# File: Spinach.pm
#
# Purpose: Trivial game engine with a twist. Game is played in rounds. Each
# round players choose a category of questions. Then a random question from
# that category is shown. All players then privately submit a "lie" to the
# bot. Then all "lies" are revealed along with the true answer. Players
# gain points every time another player picks their lie. Very fun!
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Plugin::Spinach;
use parent 'PBot::Plugin::Base';
use PBot::Imports;
use PBot::Storage::HashObject;
use PBot::Plugin::Spinach::Stats;
use PBot::Plugin::Spinach::Rank;
use JSON;
use Lingua::EN::Fractions qw/fraction2words/;
use Lingua::EN::Numbers qw/num2en num2en_ordinal/;
use Lingua::EN::Numbers::Years qw/year2en/;
use Lingua::Stem qw/stem/;
use Lingua::EN::ABC qw/b2a/;
use Time::Duration qw/concise duration/;
use Text::Unidecode;
use Encode;
use Data::Dumper;
$Data::Dumper::Sortkeys = sub {
my ($h) = @_; my @a = sort grep { not /^(?:seen_questions|alternativeSpellings)$/ } keys %$h; \@a;
};
$Data::Dumper::Useqq = 1;
sub initialize {
my ($self, %conf) = @_;
$self->{pbot}->{commands}->register(sub { $self->cmd_spinach(@_) }, 'spinach', 0);
$self->{pbot}->{event_dispatcher}->register_handler('irc.part', sub { $self->on_departure(@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.quit', sub { $self->on_departure(@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.kick', sub { $self->on_kick(@_) });
$self->{channel} = $self->{pbot}->{registry}->get_value('spinach', 'channel') // '##spinach';
my $default_file = $self->{pbot}->{registry}->get_value('spinach', 'file') // 'trivia.json';
$self->{questions_filename} = $self->{pbot}->{registry}->get_value('general', 'data_dir') . "/spinach/$default_file";
$self->{stopwords_filename} = $self->{pbot}->{registry}->get_value('general', 'data_dir') . '/spinach/stopwords';
$self->{metadata_filename} = $self->{pbot}->{registry}->get_value('general', 'data_dir') . '/spinach/metadata';
$self->{stats_filename} = $self->{pbot}->{registry}->get_value('general', 'data_dir') . '/spinach/stats.sqlite';
$self->{metadata} = PBot::Storage::HashObject->new(pbot => $self->{pbot}, name => 'Spinach Metadata', filename => $self->{metadata_filename});
$self->{metadata}->load;
$self->set_metadata_defaults;
$self->{stats} = PBot::Plugin::Spinach::Stats->new(pbot => $self->{pbot}, filename => $self->{stats_filename});
$self->{rankcmd} = PBot::Plugin::Spinach::Rank->new(pbot => $self->{pbot}, channel => $self->{channel}, filename => $self->{stats_filename});
$self->create_states;
$self->load_questions;
$self->load_stopwords;
$self->{choosecategory_max_count} = 4;
$self->{picktruth_max_count} = 4;
$self->{tock_duration} = 30;
}
sub unload {
my $self = shift;
$self->{pbot}->{commands}->unregister('spinach');
$self->{pbot}->{event_queue}->dequeue_event('spinach loop');
$self->{stats}->end if $self->{stats_running};
$self->{pbot}->{event_dispatcher}->remove_handler('irc.part');
$self->{pbot}->{event_dispatcher}->remove_handler('irc.quit');
$self->{pbot}->{event_dispatcher}->remove_handler('irc.kick');
}
sub on_kick {
my ($self, $event_type, $event) = @_;
my ($nick, $user, $host) = ($event->{event}->nick, $event->{event}->user, $event->{event}->host);
my ($victim, $reason) = ($event->{event}->to, $event->{event}->{args}[1]);
my $channel = $event->{event}->{args}[0];
return 0 if lc $channel ne $self->{channel};
$self->player_left($nick, $user, $host);
return 0;
}
sub on_departure {
my ($self, $event_type, $event) = @_;
my ($nick, $user, $host, $channel) = ($event->{event}->nick, $event->{event}->user, $event->{event}->host, $event->{event}->to);
my $type = uc $event->{event}->type;
return 0 if $type ne 'QUIT' and lc $channel ne $self->{channel};
$self->player_left($nick, $user, $host);
return 0;
}
sub load_questions {
my ($self, $filename) = @_;
if (not defined $filename) { $filename = exists $self->{loaded_filename} ? $self->{loaded_filename} : $self->{questions_filename}; }
else { $filename = $self->{pbot}->{registry}->get_value('general', 'data_dir') . "/spinach/$filename"; }
$self->{pbot}->{logger}->log("Spinach: Loading questions from $filename...\n");
my $contents = do {
open my $fh, '<', $filename or do {
$self->{pbot}->{logger}->log("Spinach: Failed to open $filename: $!\n");
return "Failed to load $filename";
};
local $/;
my $text = <$fh>;
close $fh;
$text;
};
$self->{loaded_filename} = $filename;
$self->{questions} = decode_json $contents;
$self->{categories} = ();
my $questions;
foreach my $key (keys %{$self->{questions}}) {
foreach my $question (@{$self->{questions}->{$key}}) {
$question->{category} = uc $question->{category};
$self->{categories}{$question->{category}}{$question->{id}} = $question;
if (not exists $question->{seen_timestamp}) { $question->{seen_timestamp} = 0; }
if (not exists $question->{value}) { $question->{value} = 0; }
$questions++;
}
}
my $categories;
foreach my $category (sort { keys %{$self->{categories}{$b}} <=> keys %{$self->{categories}{$a}} } keys %{$self->{categories}}) {
my $count = keys %{$self->{categories}{$category}};
# $self->{pbot}->{logger}->log("Category [$category]: $count\n");
$categories++;
}
$self->{pbot}->{logger}->log("Spinach: Loaded $questions questions in $categories categories.\n");
return "Loaded $questions questions in $categories categories.";
}
sub save_questions {
my $self = shift;
my $json = JSON->new;
my $json_text = $json->pretty->canonical->utf8->encode($self->{questions});
my $filename = exists $self->{loaded_filename} ? $self->{loaded_filename} : $self->{questions_filename};
open my $fh, '>', $filename or do {
$self->{pbot}->{logger}->log("Failed to open Spinach file $filename: $!\n");
return;
};
print $fh "$json_text\n";
close $fh;
}
sub load_stopwords {
my $self = shift;
open my $fh, '<', $self->{stopwords_filename} or do {
$self->{pbot}->{logger}->log("Spinach: Failed to open $self->{stopwords_filename}: $!\n");
return;
};
foreach my $word (<$fh>) {
chomp $word;
$self->{stopwords}{$word} = 1;
}
close $fh;
}
sub set_metadata_defaults {
my ($self) = @_;
my $defaults = {
category_choices => 7,
category_autopick => 0,
min_players => 2,
stats => 1,
seen_expiry => 432000,
min_difficulty => 0,
max_difficulty => 25000,
max_missed_inputs => 3,
debug_state => 0,
};
if ($self->{metadata}->exists('settings')) { $self->{metadata}->add('settings', $defaults, 1); }
else {
foreach my $key (keys %$defaults) {
if (not $self->{metadata}->exists('settings', $key)) { $self->{metadata}->set('settings', $key, $defaults->{$key}, 1); }
}
}
}
my %color = (
white => "\x0300",
black => "\x0301",
blue => "\x0302",
green => "\x0303",
red => "\x0304",
maroon => "\x0305",
purple => "\x0306",
orange => "\x0307",
yellow => "\x0308",
lightgreen => "\x0309",
teal => "\x0310",
cyan => "\x0311",
lightblue => "\x0312",
magneta => "\x0313",
gray => "\x0314",
lightgray => "\x0315",
bold => "\x02",
italics => "\x1D",
underline => "\x1F",
reverse => "\x16",
reset => "\x0F",
);
sub cmd_spinach {
my ($self, $context) = @_;
my $arguments = $context->{arguments};
$arguments =~ s/^\s+|\s+$//g;
my $usage =
"Usage: spinach join|exit|ready|unready|choose|lie|reroll|skip|keep|score|show|rank|categories|filter|set|unset|kick|abort; for more information about a command: spinach help <command>";
my $command;
($command, $arguments) = split / /, $arguments, 2;
$command = defined $command ? lc $command : '';
my ($channel, $result);
given ($command) {
when ('help') {
given ($arguments) {
when ('help') { return "Seriously?"; }
when ('join') { return "Help is coming soon."; }
when ('ready') { return "Help is coming soon."; }
when ('exit') { return "Help is coming soon."; }
when ('skip') { return "Use `skip` to skip a question and return to the \"choose category\" stage. A majority of the players must agree to skip."; }
when ('keep') { return "Use `keep` to vote to prevent the current question from being rerolled or skipped."; }
when ('abort') { return "Help is coming soon."; }
when ('reroll') { return "Use `reroll` to get a different question from the same category."; }
when ('kick') { return "Help is coming soon."; }
when ('players') { return "Help is coming soon."; }
when ('score') { return "Help is coming soon."; }
when ('choose') { return "Help is coming soon."; }
when ('lie') { return "Help is coming soon."; }
when ('truth') { return "Help is coming soon."; }
when ('show') { return "Show the current question again."; }
when ('categories') { return "Help is coming soon."; }
when ('filter') { return "Help is coming soon."; }
when ('set') { return "Help is coming soon."; }
when ('unset') { return "Help is coming soon."; }
when ('rank') { return "Help is coming soon."; }
default {
if (length $arguments) { return "Spinach has no such command '$arguments'. I can't help you with that."; }
else { return "Usage: spinach help <command>"; }
}
}
}
when ('edit') {
my $admin = $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask});
if (not $admin) { return "$context->{nick}: Sorry, only admins may edit questions."; }
my ($id, $key, $value) = split /\s+/, $arguments, 3;
if (not defined $id) { return "Usage: spinach edit <question id> [key [value]]"; }
$id =~ s/,//g;
my $question;
foreach my $q (@{$self->{questions}->{questions}}) {
if ($q->{id} == $id) {
$question = $q;
last;
}
}
if (not defined $question) { return "$context->{nick}: No such question."; }
if (not defined $key) {
my $dump = Dumper $question;
$dump =~ s/\$VAR\d+ = \{\s*//;
$dump =~ s/ \};\s*$//;
return "$context->{nick}: Question $id: $dump";
}
if (not defined $value) {
my $v = $question->{$key} // 'unset';
return "$context->{nick}: Question $id: $key => $v";
}
if ($key !~ m/^(?:question|answer|category)$/i) { return "$context->{nick}: You may not edit that key."; }
$question->{$key} = $value;
$self->save_questions;
return "$context->{nick}: Question $id: $key set to $value";
}
when ('load') {
my $u = $self->{pbot}->{users}->loggedin($self->{channel}, $context->{hostmask});
if (not $u or not $self->{pbot}->{capabilities}->userhas($u, 'botowner')) { return "$context->{nick}: Sorry, only botowners may reload the questions."; }
$arguments = undef if not length $arguments;
return $self->load_questions($arguments);
}
when ('join') {
if ($self->{current_state} eq 'nogame') {
$self->{state_data} = { players => [], counter => 0 };
$self->{current_state} = 'getplayers';
$self->{pbot}->{event_queue}->enqueue_event(sub {
$self->run_one_state;
}, 1, 'spinach loop', 1
);
}
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
foreach my $player (@{$self->{state_data}->{players}}) {
if ($player->{id} == $id) { return "$context->{nick}: You have already joined this game."; }
}
my $player = {id => $id, name => $context->{nick}, score => 0, ready => $self->{current_state} eq 'getplayers' ? 0 : 1, missedinputs => 0};
push @{$self->{state_data}->{players}}, $player;
$self->{state_data}->{counter} = 0;
return "/msg $self->{channel} $context->{nick} has joined the game!";
}
when ('ready') {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
foreach my $player (@{$self->{state_data}->{players}}) {
if ($player->{id} == $id) {
if ($self->{current_state} ne 'getplayers') { return "/msg $context->{nick} This is not the time to use `ready`."; }
if ($player->{ready} == 0) {
$player->{ready} = 1;
$player->{score} = 0;
return "/msg $self->{channel} $context->{nick} is ready!";
} else {
return "/msg $context->{nick} You are already ready.";
}
}
}
return "$context->{nick}: You haven't joined this game yet. Use `j` to play now!";
}
when ('unready') {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
foreach my $player (@{$self->{state_data}->{players}}) {
if ($player->{id} == $id) {
if ($self->{current_state} ne 'getplayers') { return "/msg $context->{nick} This is not the time to use `unready`."; }
if ($player->{ready} != 0) {
$player->{ready} = 0;
return "/msg $self->{channel} $context->{nick} is no longer ready!";
} else {
return "/msg $context->{nick} You are already not ready.";
}
}
}
return "$context->{nick}: You haven't joined this game yet. Use `j` to play now!";
}
when ('exit') {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $removed = 0;
for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) {
if ($self->{state_data}->{players}->[$i]->{id} == $id) {
splice @{$self->{state_data}->{players}}, $i--, 1;
$removed = 1;
}
}
if ($removed) {
if ($self->{state_data}->{current_player} >= @{$self->{state_data}->{players}}) { $self->{state_data}->{current_player} = @{$self->{state_data}->{players}} - 1 }
if (not @{$self->{state_data}->{players}}) {
$self->{current_state} = 'nogame';
$self->{pbot}->{event_queue}->update_repeating('spinach loop', 0);
return "/msg $self->{channel} $context->{nick} has left the game! All players have left. The game has been stopped.";
} else {
return "/msg $self->{channel} $context->{nick} has left the game!";
}
} else {
return "$context->{nick}: But you are not even playing the game.";
}
}
when ('abort') {
if (not $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask})) { return "$context->{nick}: Sorry, only admins may abort the game."; }
$self->{current_state} = 'gameover';
return "/msg $self->{channel} $context->{nick}: The game has been aborted.";
}
when ($_ eq 'score' or $_ eq 'players') {
if ($self->{current_state} eq 'getplayers') {
my @names;
foreach my $player (@{$self->{state_data}->{players}}) {
if (not $player->{ready}) { push @names, "$player->{name} $color{red}(not ready)$color{reset}"; }
else { push @names, $player->{name}; }
}
my $players = join ', ', @names;
$players = 'none' if not @names;
return "Current players: $players";
}
# score
if (not @{$self->{state_data}->{players}}) { return "There is nobody playing right now."; }
my $text = '';
my $comma = '';
foreach my $player (sort { $b->{score} <=> $a->{score} } @{$self->{state_data}->{players}}) {
$text .= "$comma$player->{name}: " . $self->commify($player->{score});
$comma = '; ';
}
return $text;
}
when ('kick') {
if (not $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask})) { return "$context->{nick}: Sorry, only admins may kick people from the game."; }
if (not length $arguments) { return "Usage: spinach kick <nick>"; }
my $removed = 0;
for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) {
if (lc $self->{state_data}->{players}->[$i]->{name} eq $arguments) {
splice @{$self->{state_data}->{players}}, $i--, 1;
$removed = 1;
}
}
if ($removed) {
if ($self->{state_data}->{current_player} >= @{$self->{state_data}->{players}}) { $self->{state_data}->{current_player} = @{$self->{state_data}->{players}} - 1 }
return "/msg $self->{channel} $context->{nick}: $arguments has been kicked from the game.";
} else {
return "$context->{nick}: $arguments isn't even in the game.";
}
}
when ('n') { return $self->normalize_text($arguments); }
when ('v') {
my ($truth, $lie) = split /;/, $arguments;
return $self->validate_lie($self->normalize_text($truth), $self->normalize_text($lie));
}
when ('reroll') {
if ($self->{current_state} =~ /getlies$/) {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $player;
my $rerolled = 0;
my $keep;
foreach my $i (@{$self->{state_data}->{players}}) {
if ($i->{id} == $id) {
$i->{reroll} = 1;
delete $i->{keep};
$rerolled++;
$player = $i;
} elsif ($i->{reroll}) {
$rerolled++;
} elsif ($i->{keep}) {
$keep++;
}
}
if (not $player) { return "$context->{nick}: You are not playing in this game. Use `j` to start playing now!"; }
my $needed = int(@{$self->{state_data}->{players}} / 2) + 1;
$needed -= $rerolled;
$needed += $keep;
my $votes_needed;
if ($needed == 1) { $votes_needed = "$needed more vote to reroll!"; }
elsif ($needed > 1) { $votes_needed = "$needed more votes to reroll!"; }
else { $votes_needed = "Rerolling..."; }
return "/msg $self->{channel} $color{red}$context->{nick} has voted to reroll for another question from the same category! $color{reset}$votes_needed";
} else {
return "$context->{nick}: This command can be used only during the \"submit lies\" stage.";
}
}
when ('skip') {
if ($self->{current_state} =~ /getlies$/) {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $player;
my $skipped = 0;
my $keep = 0;
foreach my $i (@{$self->{state_data}->{players}}) {
if ($i->{id} == $id) {
$i->{skip} = 1;
delete $i->{keep};
$skipped++;
$player = $i;
} elsif ($i->{skip}) {
$skipped++;
} elsif ($i->{keep}) {
$keep++;
}
}
if (not $player) { return "$context->{nick}: You are not playing in this game. Use `j` to start playing now!"; }
my $needed = int(@{$self->{state_data}->{players}} / 2) + 1;
$needed -= $skipped;
$needed += $keep;
my $votes_needed;
if ($needed == 1) { $votes_needed = "$needed more vote to skip!"; }
elsif ($needed > 1) { $votes_needed = "$needed more votes to skip!"; }
else { $votes_needed = "Skipping..."; }
return "/msg $self->{channel} $color{red}$context->{nick} has voted to skip this category! $color{reset}$votes_needed";
} else {
return "$context->{nick}: This command can be used only during the \"submit lies\" stage.";
}
}
when ('keep') {
if ($self->{current_state} =~ /getlies$/) {
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $player;
foreach my $i (@{$self->{state_data}->{players}}) {
if ($i->{id} == $id) {
$i->{keep} = 1;
delete $i->{skip};
delete $i->{reroll};
$player = $i;
last;
}
}
if (not $player) { return "$context->{nick}: You are not playing in this game. Use `j` to start playing now!"; }
return "/msg $self->{channel} $color{green}$context->{nick} has voted to keep playing the current question!";
} else {
return "$context->{nick}: This command can be used only during the \"submit lies\" stage.";
}
}
when ($_ eq 'lie' or $_ eq 'truth' or $_ eq 'choose') {
$arguments = lc $arguments;
if ($self->{current_state} =~ /choosecategory$/) {
if (not length $arguments) { return "Usage: spinach choose <integer>"; }
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
if (not @{$self->{state_data}->{players}} or $id != $self->{state_data}->{players}->[$self->{state_data}->{current_player}]->{id}) {
return "$context->{nick}: It is not your turn to choose a category.";
}
if ($arguments !~ /^[0-9]+$/) { return "$context->{nick}: Please choose a category number. $self->{state_data}->{categories_text}"; }
$arguments--;
if ($arguments < 0 or $arguments >= @{$self->{state_data}->{category_options}}) {
return "$context->{nick}: Choice out of range. Please choose a valid category. $self->{state_data}->{categories_text}";
}
if ($arguments == @{$self->{state_data}->{category_options}} - 2) {
$arguments = (@{$self->{state_data}->{category_options}} - 2) * rand;
$self->{state_data}->{current_category} = $self->{state_data}->{category_options}->[$arguments];
return "/msg $self->{channel} $context->{nick} has chosen RANDOM CATEGORY! Randomly choosing category: $self->{state_data}->{current_category}!";
} elsif ($arguments == @{$self->{state_data}->{category_options}} - 1) {
$self->{state_data}->{reroll_category} = 1;
return "/msg $self->{channel} $context->{nick} has chosen REROLL CATEGORIES! Rerolling categories...";
} else {
$self->{state_data}->{current_category} = $self->{state_data}->{category_options}->[$arguments];
return "/msg $self->{channel} $context->{nick} has chosen $self->{state_data}->{current_category}!";
}
}
if ($self->{current_state} =~ /getlies$/) {
if (not length $arguments) { return "Usage: spinach lie <text>"; }
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $player;
foreach my $i (@{$self->{state_data}->{players}}) {
if ($i->{id} == $id) {
$player = $i;
last;
}
}
if (not $player) { return "$context->{nick}: You are not playing in this game. Use `j` to start playing now!"; }
$arguments = $self->normalize_text($arguments);
my @truth_count = split /\s/, $self->{state_data}->{current_question}->{answer};
my @lie_count = split /\s/, $arguments;
=cut
if (@truth_count > 1 and @lie_count == 1) {
return "/msg $context->{nick} Your lie cannot be one word for this question. Please try again.";
}
=cut
my $found_truth = 0;
if (not $self->validate_lie($self->{state_data}->{current_question}->{answer}, $arguments)) { $found_truth = 1; }
foreach my $alt (@{$self->{state_data}->{current_question}->{alternativeSpellings}}) {
if (not $self->validate_lie($alt, $arguments)) {
$found_truth = 1;
last;
}
}
if (not $found_truth and ++$player->{lie_count} > 2) { return "/msg $context->{nick} You cannot change your lie again this round."; }
if ($found_truth) {
$self->send_message($self->{channel}, "$color{yellow}$context->{nick} has found the truth!$color{reset}");
return "$context->{nick}: Your lie is too similar to the truth! Please submit a different lie.";
}
my $changed = exists $player->{lie};
$player->{lie} = $arguments;
if ($changed) { return "/msg $self->{channel} $context->{nick} has changed their lie!"; }
else { return "/msg $self->{channel} $context->{nick} has submitted a lie!"; }
}
if ($self->{current_state} =~ /findtruth$/) {
if (not length $arguments) { return "Usage: spinach truth <integer>"; }
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($context->{nick}, $context->{user}, $context->{host});
my $player;
foreach my $i (@{$self->{state_data}->{players}}) {
if ($i->{id} == $id) {
$player = $i;
last;
}
}
if (not $player) { return "$context->{nick}: You are not playing in this game. Use `j` to start playing now!"; }
if ($arguments !~ /^[0-9]+$/) { return "$context->{nick}: Please select a truth number. $self->{state_data}->{current_choices_text}"; }
$arguments--;
if ($arguments < 0 or $arguments >= @{$self->{state_data}->{current_choices}}) {
return "$context->{nick}: Selection out of range. Please select a valid truth. $self->{state_data}->{current_choices_text}";
}
my $changed = exists $player->{truth};
$player->{truth} = uc $self->{state_data}->{current_choices}->[$arguments];
if ($player->{truth} eq $player->{lie}) {
delete $player->{truth};
return "$context->{nick}: You cannot select your own lie!";
}
if ($changed) { return "/msg $self->{channel} $context->{nick} has selected a different truth!"; }
else { return "/msg $self->{channel} $context->{nick} has selected a truth!"; }
}
return "$context->{nick}: It is not time to use this command.";
}
when ('show') {
if ($self->{current_state} =~ /(?:getlies|findtruth|showlies)$/) {
$self->showquestion($self->{state_data}, 1);
return;
}
return "$context->{nick}: There is nothing to show right now.";
}
when ('categories') {
if (not length $arguments) { return "Usage: spinach categories <regex>"; }
my $result = eval {
use re::engine::RE2 -strict => 1;
my @categories = grep { /$arguments/i } keys %{$self->{categories}};
if (not @categories) { return "No categories found."; }
my $text = "";
my $comma = "";
foreach my $cat (sort @categories) {
$text .= "$comma$cat: " . keys %{$self->{categories}{$cat}};
$comma = ", ";
}
return $text;
};
return "$arguments: $@" if $@;
return $result;
}
when ('filter') {
my ($cmd, $args) = split / /, $arguments, 2;
$cmd = lc $cmd;
if (not length $cmd) { return "Usage: spinach filter include <regex> | exclude <regex> | show | clear"; }
given ($cmd) {
when ($_ eq 'include' or $_ eq 'exclude') {
if (not length $args) { return "Usage: spinach filter $_ <regex>"; }
eval { "" =~ /$args/ };
return "Bad filter $args: $@" if $@;
my @categories = grep { /$args/i } keys %{$self->{categories}};
if (not @categories) { return "Bad filter: No categories match. Try again."; }
$self->{metadata}->set('filter', "category_" . $_ . "_filter", $args);
return "Spinach $_ filter set.";
}
when ('clear') {
$self->{metadata}->remove('filter');
return "Spinach filter cleared.";
}
when ('show') {
if (not $self->{metadata}->exists('filter', 'category_include_filter') and not $self->{metadata}->exists('filter', 'category_exclude_filter')) {
return "There is no Spinach filter set.";
}
my $text = "Spinach ";
my $comma = "";
if ($self->{metadata}->exists('filter', 'category_include_filter')) {
$text .= "include filter set to: " . $self->{metadata}->get_data('filter', 'category_include_filter');
$comma = "; ";
}
if ($self->{metadata}->exists('filter', 'category_exclude_filter')) {
$text .= $comma . "exclude filter set to: " . $self->{metadata}->get_data('filter', 'category_exclude_filter');
}
return $text;
}
default { return "Unknown filter command '$cmd'."; }
}
}
when ('state') {
my ($command, $args) = split /\s+/, $arguments;
if ($command eq 'show') {
return "Previous state: $self->{previous_state}; Current state: $self->{current_state}; previous result: $self->{state_data}->{previous_result}";
}
if ($command eq 'set') {
if (not length $args) { return "Usage: spinach state set <new state>"; }
my $u = $self->{pbot}->{users}->loggedin($self->{channel}, $context->{hostmask});
if (not $self->{pbot}->{capabilities}->userhas($u, 'admin')) { return "$context->{nick}: Sorry, only admins may set game state."; }
$self->{previous_state} = $self->{current_state};
$self->{current_state} = $args;
return "State set to $args";
}
if ($command eq 'result') {
if (not length $args) { return "Usage: spinach state result <current state result>"; }
my $admin = $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask});
if (not $admin) { return "$context->{nick}: Sorry, only admins may set game state."; }
$self->{state_data}->{previous_result} = $self->{state_data}->{result};
$self->{state_data}->{result} = $args;
return "State result set to $args";
}
return "Usage: spinach state show | set <new state> | result <current state result>";
}
when ('set') {
my ($index, $key, $value) = split /\s+/, $arguments;
if (not defined $index) { return "Usage: spinach set <metadata> [key [value]]"; }
if (lc $index eq 'settings' and $key and lc $key eq 'stats' and defined $value and $self->{current_state} ne 'nogame') {
return "Spinach stats setting cannot be modified while a game is in progress.";
}
my $admin = $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask});
if (defined $value and not $admin) { return "$context->{nick}: Sorry, only Spinach admins may set game settings."; }
return $self->{metadata}->set($index, $key, $value);
}
when ('unset') {
my ($index, $key) = split /\s+/, $arguments;
if (not defined $index or not defined $key) { return "Usage: spinach unset <metadata> <key>"; }
if (lc $index eq 'settings' and lc $key eq 'stats' and $self->{current_state} ne 'nogame') {
return "Spinach stats setting cannot be modified while a game is in progress.";
}
my $admin = $self->{pbot}->{users}->loggedin_admin($self->{channel}, $context->{hostmask});
if (not $admin) { return "$context->{nick}: Sorry, only Spinach admins may set game settings."; }
return $self->{metadata}->unset($index, $key);
}
when ('rank') { return $self->{rankcmd}->rank($arguments); }
default { return $usage; }
}
return $result;
}
sub player_left {
my ($self, $nick, $user, $host) = @_;
my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account_ancestor($nick, $user, $host);
my $removed = 0;
for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) {
if ($self->{state_data}->{players}->[$i]->{id} == $id) {
splice @{$self->{state_data}->{players}}, $i--, 1;
$removed = 1;
}
}
if ($removed) {
if ($self->{state_data}->{current_player} >= @{$self->{state_data}->{players}}) { $self->{state_data}->{current_player} = @{$self->{state_data}->{players}} - 1 }
$self->send_message($self->{channel}, "$nick has left the game!");
}
}
sub send_message {
my ($self, $to, $text, $delay) = @_;
$delay = 0 if not defined $delay;
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
my $message = {
nick => $botnick,
user => 'spinach',
host => 'localhost',
hostmask => "$botnick!spinach\@localhost",
command => 'spinach',
checkflood => 1,
message => $text
};
$self->{pbot}->{interpreter}->add_message_to_output_queue($to, $message, $delay);
}
sub add_new_suggestions {
my ($self, $state) = @_;
my $question = undef;
my $modified = 0;
foreach my $player (@{$state->{players}}) {
if ($player->{deceived}) {
$self->{pbot}->{logger}->log("Adding new suggestion for $state->{current_question}->{id}: $state->{current_question}->{question}: $player->{deceived}\n");
if (not grep { lc $_ eq lc $player->{deceived} } @{$state->{current_question}->{suggestions}}) {
if (not defined $question) {
foreach my $q (@{$self->{questions}->{questions}}) {
if ($q->{id} == $state->{current_question}->{id}) {
$question = $q;
last;
}
}
}
push @{$question->{suggestions}}, uc $player->{deceived};
$modified = 1;
}
}
}
if ($modified) { $self->save_questions; }
}
sub run_one_state {
my $self = shift;
# check for naughty or missing players
if ($self->{current_state} =~ /r\dq\d/) {
my $removed = 0;
for (my $i = 0; $i < @{$self->{state_data}->{players}}; $i++) {
if ($self->{state_data}->{players}->[$i]->{missedinputs} >= $self->{metadata}->get_data('settings', 'max_missed_inputs')) {
$self->send_message(
$self->{channel},
"$color{red}$self->{state_data}->{players}->[$i]->{name} has missed too many prompts and has been ejected from the game!$color{reset}"
);
splice @{$self->{state_data}->{players}}, $i--, 1;
$removed = 1;
}
}
if ($removed) {
if ($self->{state_data}->{current_player} >= @{$self->{state_data}->{players}}) { $self->{state_data}->{current_player} = @{$self->{state_data}->{players}} - 1 }
}
if (not @{$self->{state_data}->{players}}) {
$self->send_message($self->{channel}, "All players have left the game!");
$self->{current_state} = 'nogame';
$self->{pbot}->{event_queue}->update_repeating('spinach loop', 0);
}
}
my $state_data = $self->{state_data};
# this shouldn't happen
if (not defined $self->{current_state}) {
$self->{pbot}->{logger}->log("Spinach state broke.\n");
$self->{current_state} = 'nogame';
$self->{pbot}->{event_queue}->update_repeating('spinach loop', 0);
return;
}
# transistioned to a brand new state; prepare first tock
if ($self->{previous_state} ne $self->{current_state}) {
$state_data->{newstate} = 1;
$state_data->{ticks} = 1;
if (exists $state_data->{tick_drift}) {
$state_data->{ticks} += $state_data->{tick_drift};
delete $state_data->{tick_drift};
}
$state_data->{first_tock} = 1;
} else {
$state_data->{newstate} = 0;
}
# dump new state data for logging/debugging
if ($state_data->{newstate} and $self->{metadata}->get_data('settings', 'debug_state')) {
$self->{pbot}->{logger}->log("Spinach: New state: $self->{previous_state} ($state_data->{previous_result}) --> $self->{current_state}\n" . Dumper $state_data);
}
# run one state/tick
$state_data = $self->{states}{$self->{current_state}}{sub}($state_data);
if ($state_data->{tocked}) {
delete $state_data->{tocked};
delete $state_data->{first_tock};
$state_data->{ticks} = 0;
}
# transform to next state
$state_data->{previous_result} = $state_data->{result};
$self->{previous_state} = $self->{current_state};
if (not exists $self->{states}{$self->{current_state}}{trans}{$state_data->{result}}) {
$self->{pbot}->{logger}->log("Spinach: State broke: no such transistion to $state_data->{result} for state $self->{current_state}\n");
# XXX: do something here
}
$self->{current_state} = $self->{states}{$self->{current_state}}{trans}{$state_data->{result}};
$self->{state_data} = $state_data;
# next tick
$self->{state_data}->{ticks}++;
}
sub create_states {
my $self = shift;
$self->{pbot}->{logger}->log("Spinach: Creating game state machine\n");
$self->{previous_state} = '';
$self->{previous_result} = '';
$self->{current_state} = 'nogame';
$self->{state_data} = {players => [], ticks => 0, newstate => 1};
$self->{states}{'nogame'}{sub} = sub { $self->nogame(@_) };
$self->{states}{'nogame'}{trans}{start} = 'getplayers';
$self->{states}{'nogame'}{trans}{nogame} = 'nogame';
$self->{states}{'getplayers'}{sub} = sub { $self->getplayers(@_) };
$self->{states}{'getplayers'}{trans}{stop} = 'nogame';
$self->{states}{'getplayers'}{trans}{wait} = 'getplayers';
$self->{states}{'getplayers'}{trans}{allready} = 'round1';
$self->{states}{'round1'}{sub} = sub { $self->round1(@_) };
$self->{states}{'round1'}{trans}{next} = 'round1q1';
$self->{states}{'round1q1'}{sub} = sub { $self->round1q1(@_) };
$self->{states}{'round1q1'}{trans}{wait} = 'round1q1';
$self->{states}{'round1q1'}{trans}{next} = 'r1q1choosecategory';
$self->{states}{'r1q1choosecategory'}{sub} = sub { $self->r1q1choosecategory(@_) };
$self->{states}{'r1q1choosecategory'}{trans}{wait} = 'r1q1choosecategory';
$self->{states}{'r1q1choosecategory'}{trans}{next} = 'r1q1showquestion';
$self->{states}{'r1q1showquestion'}{sub} = sub { $self->r1q1showquestion(@_) };
$self->{states}{'r1q1showquestion'}{trans}{wait} = 'r1q1showquestion';
$self->{states}{'r1q1showquestion'}{trans}{next} = 'r1q1getlies';
$self->{states}{'r1q1getlies'}{sub} = sub { $self->r1q1getlies(@_) };
$self->{states}{'r1q1getlies'}{trans}{reroll} = 'r1q1showquestion';
$self->{states}{'r1q1getlies'}{trans}{skip} = 'round1q1';
$self->{states}{'r1q1getlies'}{trans}{wait} = 'r1q1getlies';
$self->{states}{'r1q1getlies'}{trans}{next} = 'r1q1findtruth';
$self->{states}{'r1q1findtruth'}{sub} = sub { $self->r1q1findtruth(@_) };
$self->{states}{'r1q1findtruth'}{trans}{wait} = 'r1q1findtruth';
$self->{states}{'r1q1findtruth'}{trans}{next} = 'r1q1showlies';
$self->{states}{'r1q1showlies'}{sub} = sub { $self->r1q1showlies(@_) };
$self->{states}{'r1q1showlies'}{trans}{wait} = 'r1q1showlies';
$self->{states}{'r1q1showlies'}{trans}{next} = 'r1q1showtruth';
$self->{states}{'r1q1showtruth'}{sub} = sub { $self->r1q1showtruth(@_) };
$self->{states}{'r1q1showtruth'}{trans}{wait} = 'r1q1showtruth';
$self->{states}{'r1q1showtruth'}{trans}{next} = 'r1q1reveallies';
$self->{states}{'r1q1reveallies'}{sub} = sub { $self->r1q1reveallies(@_) };
$self->{states}{'r1q1reveallies'}{trans}{wait} = 'r1q1reveallies';
$self->{states}{'r1q1reveallies'}{trans}{next} = 'r1q1showscore';
$self->{states}{'r1q1showscore'}{sub} = sub { $self->r1q1showscore(@_) };
$self->{states}{'r1q1showscore'}{trans}{wait} = 'r1q1showscore';
$self->{states}{'r1q1showscore'}{trans}{next} = 'round1q2';
$self->{states}{'round1q2'}{sub} = sub { $self->round1q2(@_) };
$self->{states}{'round1q2'}{trans}{wait} = 'round1q2';
$self->{states}{'round1q2'}{trans}{next} = 'r1q2choosecategory';
$self->{states}{'r1q2choosecategory'}{sub} = sub { $self->r1q2choosecategory(@_) };
$self->{states}{'r1q2choosecategory'}{trans}{wait} = 'r1q2choosecategory';
$self->{states}{'r1q2choosecategory'}{trans}{next} = 'r1q2showquestion';
$self->{states}{'r1q2showquestion'}{sub} = sub { $self->r1q2showquestion(@_) };
$self->{states}{'r1q2showquestion'}{trans}{wait} = 'r1q2showquestion';
$self->{states}{'r1q2showquestion'}{trans}{next} = 'r1q2getlies';
$self->{states}{'r1q2getlies'}{sub} = sub { $self->r1q2getlies(@_) };
$self->{states}{'r1q2getlies'}{trans}{reroll} = 'r1q2showquestion';
$self->{states}{'r1q2getlies'}{trans}{skip} = 'round1q2';
$self->{states}{'r1q2getlies'}{trans}{wait} = 'r1q2getlies';
$self->{states}{'r1q2getlies'}{trans}{next} = 'r1q2findtruth';
$self->{states}{'r1q2findtruth'}{sub} = sub { $self->r1q2findtruth(@_) };
$self->{states}{'r1q2findtruth'}{trans}{wait} = 'r1q2findtruth';
$self->{states}{'r1q2findtruth'}{trans}{next} = 'r1q2showlies';
$self->{states}{'r1q2showlies'}{sub} = sub { $self->r1q2showlies(@_) };
$self->{states}{'r1q2showlies'}{trans}{wait} = 'r1q2showlies';
$self->{states}{'r1q2showlies'}{trans}{next} = 'r1q2showtruth';
$self->{states}{'r1q2showtruth'}{sub} = sub { $self->r1q2showtruth(@_) };
$self->{states}{'r1q2showtruth'}{trans}{wait} = 'r1q2showtruth';
$self->{states}{'r1q2showtruth'}{trans}{next} = 'r1q2reveallies';
$self->{states}{'r1q2reveallies'}{sub} = sub { $self->r1q2reveallies(@_) };
$self->{states}{'r1q2reveallies'}{trans}{wait} = 'r1q2reveallies';
$self->{states}{'r1q2reveallies'}{trans}{next} = 'r1q2showscore';
$self->{states}{'r1q2showscore'}{sub} = sub { $self->r1q2showscore(@_) };
$self->{states}{'r1q2showscore'}{trans}{wait} = 'r1q2showscore';
$self->{states}{'r1q2showscore'}{trans}{next} = 'round1q3';
$self->{states}{'round1q3'}{sub} = sub { $self->round1q3(@_) };
$self->{states}{'round1q3'}{trans}{next} = 'r1q3choosecategory';
$self->{states}{'round1q3'}{trans}{wait} = 'round1q3';
$self->{states}{'r1q3choosecategory'}{sub} = sub { $self->r1q3choosecategory(@_) };
$self->{states}{'r1q3choosecategory'}{trans}{wait} = 'r1q3choosecategory';
$self->{states}{'r1q3choosecategory'}{trans}{next} = 'r1q3showquestion';
$self->{states}{'r1q3showquestion'}{sub} = sub { $self->r1q3showquestion(@_) };
$self->{states}{'r1q3showquestion'}{trans}{wait} = 'r1q3showquestion';
$self->{states}{'r1q3showquestion'}{trans}{next} = 'r1q3getlies';
$self->{states}{'r1q3getlies'}{sub} = sub { $self->r1q3getlies(@_) };
$self->{states}{'r1q3getlies'}{trans}{reroll} = 'r1q3showquestion';
$self->{states}{'r1q3getlies'}{trans}{skip} = 'round1q3';
$self->{states}{'r1q3getlies'}{trans}{wait} = 'r1q3getlies';
$self->{states}{'r1q3getlies'}{trans}{next} = 'r1q3findtruth';
$self->{states}{'r1q3findtruth'}{sub} = sub { $self->r1q3findtruth(@_) };
$self->{states}{'r1q3findtruth'}{trans}{wait} = 'r1q3findtruth';
$self->{states}{'r1q3findtruth'}{trans}{next} = 'r1q3showlies';
$self->{states}{'r1q3showlies'}{sub} = sub { $self->r1q3showlies(@_) };
$self->{states}{'r1q3showlies'}{trans}{wait} = 'r1q3showlies';
$self->{states}{'r1q3showlies'}{trans}{next} = 'r1q3showtruth';
$self->{states}{'r1q3showtruth'}{sub} = sub { $self->r1q3showtruth(@_) };
$self->{states}{'r1q3showtruth'}{trans}{wait} = 'r1q3showtruth';
$self->{states}{'r1q3showtruth'}{trans}{next} = 'r1q3reveallies';
$self->{states}{'r1q3reveallies'}{sub} = sub { $self->r1q3reveallies(@_) };
$self->{states}{'r1q3reveallies'}{trans}{wait} = 'r1q3reveallies';
$self->{states}{'r1q3reveallies'}{trans}{next} = 'r1q3showscore';
$self->{states}{'r1q3showscore'}{sub} = sub { $self->r1q3showscore(@_) };
$self->{states}{'r1q3showscore'}{trans}{wait} = 'r1q3showscore';
$self->{states}{'r1q3showscore'}{trans}{next} = 'round2';
$self->{states}{'round2'}{sub} = sub { $self->round2(@_) };
$self->{states}{'round2'}{trans}{next} = 'round2q1';
$self->{states}{'round2q1'}{sub} = sub { $self->round2q1(@_) };
$self->{states}{'round2q1'}{trans}{wait} = 'round2q1';
$self->{states}{'round2q1'}{trans}{next} = 'r2q1choosecategory';
$self->{states}{'r2q1choosecategory'}{sub} = sub { $self->r2q1choosecategory(@_) };
$self->{states}{'r2q1choosecategory'}{trans}{wait} = 'r2q1choosecategory';
$self->{states}{'r2q1choosecategory'}{trans}{next} = 'r2q1showquestion';
$self->{states}{'r2q1showquestion'}{sub} = sub { $self->r2q1showquestion(@_) };
$self->{states}{'r2q1showquestion'}{trans}{wait} = 'r2q1showquestion';
$self->{states}{'r2q1showquestion'}{trans}{next} = 'r2q1getlies';
$self->{states}{'r2q1getlies'}{sub} = sub { $self->r2q1getlies(@_) };
$self->{states}{'r2q1getlies'}{trans}{reroll} = 'r2q1showquestion';
$self->{states}{'r2q1getlies'}{trans}{skip} = 'round2q1';
$self->{states}{'r2q1getlies'}{trans}{wait} = 'r2q1getlies';
$self->{states}{'r2q1getlies'}{trans}{next} = 'r2q1findtruth';
$self->{states}{'r2q1findtruth'}{sub} = sub { $self->r2q1findtruth(@_) };
$self->{states}{'r2q1findtruth'}{trans}{wait} = 'r2q1findtruth';
$self->{states}{'r2q1findtruth'}{trans}{next} = 'r2q1showlies';
$self->{states}{'r2q1showlies'}{sub} = sub { $self->r2q1showlies(@_) };
$self->{states}{'r2q1showlies'}{trans}{wait} = 'r2q1showlies';
$self->{states}{'r2q1showlies'}{trans}{next} = 'r2q1showtruth';
$self->{states}{'r2q1showtruth'}{sub} = sub { $self->r2q1showtruth(@_) };
$self->{states}{'r2q1showtruth'}{trans}{wait} = 'r2q1showtruth';
$self->{states}{'r2q1showtruth'}{trans}{next} = 'r2q1reveallies';
$self->{states}{'r2q1reveallies'}{sub} = sub { $self->r2q1reveallies(@_) };
$self->{states}{'r2q1reveallies'}{trans}{wait} = 'r2q1reveallies';
$self->{states}{'r2q1reveallies'}{trans}{next} = 'r2q1showscore';
$self->{states}{'r2q1showscore'}{sub} = sub { $self->r2q1showscore(@_) };
$self->{states}{'r2q1showscore'}{trans}{wait} = 'r2q1showscore';
$self->{states}{'r2q1showscore'}{trans}{next} = 'round2q2';
$self->{states}{'round2q2'}{sub} = sub { $self->round2q2(@_) };
$self->{states}{'round2q2'}{trans}{wait} = 'round2q2';
$self->{states}{'round2q2'}{trans}{next} = 'r2q2choosecategory';
$self->{states}{'r2q2choosecategory'}{sub} = sub { $self->r2q2choosecategory(@_) };
$self->{states}{'r2q2choosecategory'}{trans}{wait} = 'r2q2choosecategory';
$self->{states}{'r2q2choosecategory'}{trans}{next} = 'r2q2showquestion';
$self->{states}{'r2q2showquestion'}{sub} = sub { $self->r2q2showquestion(@_) };
$self->{states}{'r2q2showquestion'}{trans}{wait} = 'r2q2showquestion';
$self->{states}{'r2q2showquestion'}{trans}{next} = 'r2q2getlies';
$self->{states}{'r2q2getlies'}{sub} = sub { $self->r2q2getlies(@_) };
$self->{states}{'r2q2getlies'}{trans}{reroll} = 'r2q2showquestion';
$self->{states}{'r2q2getlies'}{trans}{skip} = 'round2q2';
$self->{states}{'r2q2getlies'}{trans}{wait} = 'r2q2getlies';
$self->{states}{'r2q2getlies'}{trans}{next} = 'r2q2findtruth';
$self->{states}{'r2q2findtruth'}{sub} = sub { $self->r2q2findtruth(@_) };
$self->{states}{'r2q2findtruth'}{trans}{wait} = 'r2q2findtruth';
$self->{states}{'r2q2findtruth'}{trans}{next} = 'r2q2showlies';
$self->{states}{'r2q2showlies'}{sub} = sub { $self->r2q2showlies(@_) };
$self->{states}{'r2q2showlies'}{trans}{wait} = 'r2q2showlies';
$self->{states}{'r2q2showlies'}{trans}{next} = 'r2q2showtruth';
$self->{states}{'r2q2showtruth'}{sub} = sub { $self->r2q2showtruth(@_) };
$self->{states}{'r2q2showtruth'}{trans}{wait} = 'r2q2showtruth';
$self->{states}{'r2q2showtruth'}{trans}{next} = 'r2q2reveallies';
$self->{states}{'r2q2reveallies'}{sub} = sub { $self->r2q2reveallies(@_) };
$self->{states}{'r2q2reveallies'}{trans}{wait} = 'r2q2reveallies';
$self->{states}{'r2q2reveallies'}{trans}{next} = 'r2q2showscore';
$self->{states}{'r2q2showscore'}{sub} = sub { $self->r2q2showscore(@_) };
$self->{states}{'r2q2showscore'}{trans}{wait} = 'r2q2showscore';
$self->{states}{'r2q2showscore'}{trans}{next} = 'round2q3';
$self->{states}{'round2q3'}{sub} = sub { $self->round2q3(@_) };
$self->{states}{'round2q3'}{trans}{wait} = 'round2q3';
$self->{states}{'round2q3'}{trans}{next} = 'r2q3choosecategory';
$self->{states}{'r2q3choosecategory'}{sub} = sub { $self->r2q3choosecategory(@_) };
$self->{states}{'r2q3choosecategory'}{trans}{wait} = 'r2q3choosecategory';
$self->{states}{'r2q3choosecategory'}{trans}{next} = 'r2q3showquestion';
$self->{states}{'r2q3showquestion'}{sub} = sub { $self->r2q3showquestion(@_) };
$self->{states}{'r2q3showquestion'}{trans}{wait} = 'r2q3showquestion';
$self->{states}{'r2q3showquestion'}{trans}{next} = 'r2q3getlies';
$self->{states}{'r2q3getlies'}{sub} = sub { $self->r2q3getlies(@_) };
$self->{states}{'r2q3getlies'}{trans}{reroll} = 'r2q3showquestion';
$self->{states}{'r2q3getlies'}{trans}{skip} = 'round2q3';
$self->{states}{'r2q3getlies'}{trans}{wait} = 'r2q3getlies';
$self->{states}{'r2q3getlies'}{trans}{next} = 'r2q3findtruth';
$self->{states}{'r2q3findtruth'}{sub} = sub { $self->r2q3findtruth(@_) };
$self->{states}{'r2q3findtruth'}{trans}{wait} = 'r2q3findtruth';
$self->{states}{'r2q3findtruth'}{trans}{next} = 'r2q3showlies';
$self->{states}{'r2q3showlies'}{sub} = sub { $self->r2q3showlies(@_) };
$self->{states}{'r2q3showlies'}{trans}{wait} = 'r2q3showlies';
$self->{states}{'r2q3showlies'}{trans}{next} = 'r2q3showtruth';
$self->{states}{'r2q3showtruth'}{sub} = sub { $self->r2q3showtruth(@_) };
$self->{states}{'r2q3showtruth'}{trans}{wait} = 'r2q3showtruth';
$self->{states}{'r2q3showtruth'}{trans}{next} = 'r2q3reveallies';
$self->{states}{'r2q3reveallies'}{sub} = sub { $self->r2q3reveallies(@_) };
$self->{states}{'r2q3reveallies'}{trans}{wait} = 'r2q3reveallies';
$self->{states}{'r2q3reveallies'}{trans}{next} = 'r2q3showscore';
$self->{states}{'r2q3showscore'}{sub} = sub { $self->r2q3showscore(@_) };
$self->{states}{'r2q3showscore'}{trans}{wait} = 'r2q3showscore';
$self->{states}{'r2q3showscore'}{trans}{next} = 'round3';
$self->{states}{'round3'}{sub} = sub { $self->round3(@_) };
$self->{states}{'round3'}{trans}{next} = 'round3q1';
$self->{states}{'round3q1'}{sub} = sub { $self->round3q1(@_) };
$self->{states}{'round3q1'}{trans}{wait} = 'round3q1';
$self->{states}{'round3q1'}{trans}{next} = 'r3q1choosecategory';
$self->{states}{'r3q1choosecategory'}{sub} = sub { $self->r3q1choosecategory(@_) };
$self->{states}{'r3q1choosecategory'}{trans}{wait} = 'r3q1choosecategory';
$self->{states}{'r3q1choosecategory'}{trans}{next} = 'r3q1showquestion';
$self->{states}{'r3q1showquestion'}{sub} = sub { $self->r3q1showquestion(@_) };
$self->{states}{'r3q1showquestion'}{trans}{wait} = 'r3q1showquestion';
$self->{states}{'r3q1showquestion'}{trans}{next} = 'r3q1getlies';
$self->{states}{'r3q1getlies'}{sub} = sub { $self->r3q1getlies(@_) };
$self->{states}{'r3q1getlies'}{trans}{reroll} = 'r3q1showquestion';
$self->{states}{'r3q1getlies'}{trans}{skip} = 'round3q1';
$self->{states}{'r3q1getlies'}{trans}{wait} = 'r3q1getlies';
$self->{states}{'r3q1getlies'}{trans}{next} = 'r3q1findtruth';
$self->{states}{'r3q1findtruth'}{sub} = sub { $self->r3q1findtruth(@_) };
$self->{states}{'r3q1findtruth'}{trans}{wait} = 'r3q1findtruth';
$self->{states}{'r3q1findtruth'}{trans}{next} = 'r3q1showlies';
$self->{states}{'r3q1showlies'}{sub} = sub { $self->r3q1showlies(@_) };
$self->{states}{'r3q1showlies'}{trans}{wait} = 'r3q1showlies';
$self->{states}{'r3q1showlies'}{trans}{next} = 'r3q1showtruth';
$self->{states}{'r3q1showtruth'}{sub} = sub { $self->r3q1showtruth(@_) };
$self->{states}{'r3q1showtruth'}{trans}{wait} = 'r3q1showtruth';
$self->{states}{'r3q1showtruth'}{trans}{next} = 'r3q1reveallies';
$self->{states}{'r3q1reveallies'}{sub} = sub { $self->r3q1reveallies(@_) };
$self->{states}{'r3q1reveallies'}{trans}{wait} = 'r3q1reveallies';
$self->{states}{'r3q1reveallies'}{trans}{next} = 'r3q1showscore';
$self->{states}{'r3q1showscore'}{sub} = sub { $self->r3q1showscore(@_) };
$self->{states}{'r3q1showscore'}{trans}{wait} = 'r3q1showscore';
$self->{states}{'r3q1showscore'}{trans}{next} = 'round3q2';
$self->{states}{'round3q2'}{sub} = sub { $self->round3q2(@_) };
$self->{states}{'round3q2'}{trans}{wait} = 'round3q2';
$self->{states}{'round3q2'}{trans}{next} = 'r3q2choosecategory';
$self->{states}{'r3q2choosecategory'}{sub} = sub { $self->r3q2choosecategory(@_) };
$self->{states}{'r3q2choosecategory'}{trans}{wait} = 'r3q2choosecategory';
$self->{states}{'r3q2choosecategory'}{trans}{next} = 'r3q2showquestion';
$self->{states}{'r3q2showquestion'}{sub} = sub { $self->r3q2showquestion(@_) };
$self->{states}{'r3q2showquestion'}{trans}{wait} = 'r3q2showquestion';
$self->{states}{'r3q2showquestion'}{trans}{next} = 'r3q2getlies';
$self->{states}{'r3q2getlies'}{sub} = sub { $self->r3q2getlies(@_) };
$self->{states}{'r3q2getlies'}{trans}{reroll} = 'r3q2showquestion';
$self->{states}{'r3q2getlies'}{trans}{skip} = 'round3q2';
$self->{states}{'r3q2getlies'}{trans}{wait} = 'r3q2getlies';
$self->{states}{'r3q2getlies'}{trans}{next} = 'r3q2findtruth';
$self->{states}{'r3q2findtruth'}{sub} = sub { $self->r3q2findtruth(@_) };
$self->{states}{'r3q2findtruth'}{trans}{wait} = 'r3q2findtruth';
$self->{states}{'r3q2findtruth'}{trans}{next} = 'r3q2showlies';
$self->{states}{'r3q2showlies'}{sub} = sub { $self->r3q2showlies(@_) };
$self->{states}{'r3q2showlies'}{trans}{wait} = 'r3q2showlies';
$self->{states}{'r3q2showlies'}{trans}{next} = 'r3q2showtruth';
$self->{states}{'r3q2showtruth'}{sub} = sub { $self->r3q2showtruth(@_) };
$self->{states}{'r3q2showtruth'}{trans}{wait} = 'r3q2showtruth';
$self->{states}{'r3q2showtruth'}{trans}{next} = 'r3q2reveallies';
$self->{states}{'r3q2reveallies'}{sub} = sub { $self->r3q2reveallies(@_) };
$self->{states}{'r3q2reveallies'}{trans}{wait} = 'r3q2reveallies';
$self->{states}{'r3q2reveallies'}{trans}{next} = 'r3q2showscore';
$self->{states}{'r3q2showscore'}{sub} = sub { $self->r3q2showscore(@_) };
$self->{states}{'r3q2showscore'}{trans}{wait} = 'r3q2showscore';
$self->{states}{'r3q2showscore'}{trans}{next} = 'round3q3';
$self->{states}{'round3q3'}{sub} = sub { $self->round3q3(@_) };
$self->{states}{'round3q3'}{trans}{wait} = 'round3q3';
$self->{states}{'round3q3'}{trans}{next} = 'r3q3choosecategory';
$self->{states}{'r3q3choosecategory'}{sub} = sub { $self->r3q3choosecategory(@_) };
$self->{states}{'r3q3choosecategory'}{trans}{wait} = 'r3q3choosecategory';
$self->{states}{'r3q3choosecategory'}{trans}{next} = 'r3q3showquestion';
$self->{states}{'r3q3showquestion'}{sub} = sub { $self->r3q3showquestion(@_) };
$self->{states}{'r3q3showquestion'}{trans}{wait} = 'r3q3showquestion';
$self->{states}{'r3q3showquestion'}{trans}{next} = 'r3q3getlies';
$self->{states}{'r3q3getlies'}{sub} = sub { $self->r3q3getlies(@_) };
$self->{states}{'r3q3getlies'}{trans}{reroll} = 'r3q3showquestion';
$self->{states}{'r3q3getlies'}{trans}{skip} = 'round3q3';
$self->{states}{'r3q3getlies'}{trans}{wait} = 'r3q3getlies';
$self->{states}{'r3q3getlies'}{trans}{next} = 'r3q3findtruth';
$self->{states}{'r3q3findtruth'}{sub} = sub { $self->r3q3findtruth(@_) };
$self->{states}{'r3q3findtruth'}{trans}{wait} = 'r3q3findtruth';
$self->{states}{'r3q3findtruth'}{trans}{next} = 'r3q3showlies';
$self->{states}{'r3q3showlies'}{sub} = sub { $self->r3q3showlies(@_) };
$self->{states}{'r3q3showlies'}{trans}{wait} = 'r3q3showlies';
$self->{states}{'r3q3showlies'}{trans}{next} = 'r3q3showtruth';
$self->{states}{'r3q3showtruth'}{sub} = sub { $self->r3q3showtruth(@_) };
$self->{states}{'r3q3showtruth'}{trans}{wait} = 'r3q3showtruth';
$self->{states}{'r3q3showtruth'}{trans}{next} = 'r3q3reveallies';
$self->{states}{'r3q3reveallies'}{sub} = sub { $self->r3q3reveallies(@_) };
$self->{states}{'r3q3reveallies'}{trans}{wait} = 'r3q3reveallies';
$self->{states}{'r3q3reveallies'}{trans}{next} = 'r3q3showscore';
$self->{states}{'r3q3showscore'}{sub} = sub { $self->r3q3showscore(@_) };
$self->{states}{'r3q3showscore'}{trans}{wait} = 'r3q3showscore';
$self->{states}{'r3q3showscore'}{trans}{next} = 'round4';
$self->{states}{'round4'}{sub} = sub { $self->round4(@_) };
$self->{states}{'round4'}{trans}{next} = 'round4q1';
$self->{states}{'round4q1'}{sub} = sub { $self->round4q1(@_) };
$self->{states}{'round4q1'}{trans}{wait} = 'round4q1';
$self->{states}{'round4q1'}{trans}{next} = 'r4q1choosecategory';
$self->{states}{'r4q1choosecategory'}{sub} = sub { $self->r4q1choosecategory(@_) };
$self->{states}{'r4q1choosecategory'}{trans}{wait} = 'r4q1choosecategory';
$self->{states}{'r4q1choosecategory'}{trans}{next} = 'r4q1showquestion';
$self->{states}{'r4q1showquestion'}{sub} = sub { $self->r4q1showquestion(@_) };
$self->{states}{'r4q1showquestion'}{trans}{wait} = 'r4q1showquestion';
$self->{states}{'r4q1showquestion'}{trans}{next} = 'r4q1getlies';
$self->{states}{'r4q1getlies'}{sub} = sub { $self->r4q1getlies(@_) };
$self->{states}{'r4q1getlies'}{trans}{reroll} = 'r4q1showquestion';
$self->{states}{'r4q1getlies'}{trans}{skip} = 'round4q1';
$self->{states}{'r4q1getlies'}{trans}{wait} = 'r4q1getlies';
$self->{states}{'r4q1getlies'}{trans}{next} = 'r4q1findtruth';
$self->{states}{'r4q1findtruth'}{sub} = sub { $self->r4q1findtruth(@_) };
$self->{states}{'r4q1findtruth'}{trans}{wait} = 'r4q1findtruth';
$self->{states}{'r4q1findtruth'}{trans}{next} = 'r4q1showlies';
$self->{states}{'r4q1showlies'}{sub} = sub { $self->r4q1showlies(@_) };
$self->{states}{'r4q1showlies'}{trans}{wait} = 'r4q1showlies';
$self->{states}{'r4q1showlies'}{trans}{next} = 'r4q1showtruth';
$self->{states}{'r4q1showtruth'}{sub} = sub { $self->r4q1showtruth(@_) };
$self->{states}{'r4q1showtruth'}{trans}{wait} = 'r4q1showtruth';
$self->{states}{'r4q1showtruth'}{trans}{next} = 'r4q1reveallies';
$self->{states}{'r4q1reveallies'}{sub} = sub { $self->r4q1reveallies(@_) };
$self->{states}{'r4q1reveallies'}{trans}{wait} = 'r4q1reveallies';
$self->{states}{'r4q1reveallies'}{trans}{next} = 'r4q1showscore';
$self->{states}{'r4q1showscore'}{sub} = sub { $self->r4q1showscore(@_) };
$self->{states}{'r4q1showscore'}{trans}{wait} = 'r4q1showscore';
$self->{states}{'r4q1showscore'}{trans}{next} = 'gameover';
$self->{states}{'gameover'}{sub} = sub { $self->gameover(@_) };
$self->{states}{'gameover'}{trans}{wait} = 'gameover';
$self->{states}{'gameover'}{trans}{next} = 'getplayers';
}
sub commify {
my $self = shift;
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
sub normalize_question {
my ($self, $text) = @_;
my @words = split / /, $text;
my $uc = 0;
foreach my $word (@words) {
if ($word =~ m/^[A-Z]/) { $uc++; }
}
if ($uc >= @words * .8) { $text = ucfirst lc $text; }
return $text;
}
sub normalize_text {
my ($self, $text) = @_;
$text = unidecode $text;
$text =~ s/^\s+|\s+$//g;
$text =~ s/\s+/ /g;
$text =~ s/^(the|a|an) //i;
$text =~ s/&/ AND /g;
$text = lc substr($text, 0, 80);
$text =~ s/\$\s+(\d)/\$$1/g;
$text =~ s/\s*%$//;
$text =~ s/(\d),(\d\d\d)/$1$2/g;
$text =~ s/(\D,)(\D)/$1 $2/g;
my @words = split / /, $text;
my @result;
foreach my $word (@words) {
my $punct = $1 if $word =~ s/(\p{PosixPunct}+)$//;
my $newword = $word;
if ($word =~ m/^\d{4}$/ and $word >= 1700 and $word <= 2100) { $newword = year2en($word); }
elsif ($word =~ m/^-?\d+$/) {
$newword = num2en($word);
if (defined $punct and $punct eq '%') {
$newword .= " percent";
$punct = undef;
}
} elsif ($word =~ m/^(-?\d+)(?:st|nd|rd|th)$/i) {
$newword = num2en_ordinal($1);
} elsif ($word =~ m/^(-)?\$(\d+)?(\.\d+)?$/i) {
my ($neg, $dollars, $cents) = ($1, $2, $3);
$newword = '';
$dollars = "$neg$dollars" if defined $neg and defined $dollars;
if (defined $dollars) {
$word = num2en($dollars);
$newword = "$word " . (abs $dollars == 1 ? "dollar" : "dollars");
}
if (defined $cents) {
$cents =~ s/^\.0*//;
$cents = "$neg$cents" if defined $neg and not defined $dollars;
$word = num2en($cents);
$newword .= " and " if defined $dollars;
$newword .= (abs $cents == 1 ? "$word cent" : "$word cents");
}
} elsif ($word =~ m/^(-?\d*\.\d+)(?:st|nd|rd|th)?$/i) {
$newword = num2en($1);
} elsif ($word =~ m{^(-?\d+\s*/\s*-?\d+)(?:st|nd|rd|th)?$}i) {
$newword = fraction2words($1);
}
$newword .= $punct if defined $punct;
push @result, $newword;
}
$text = uc b2a("@result", s => 1);
$text =~ s/([A-Z])\./$1/g;
$text =~ s/-/ /g;
$text =~ s/["'?!]//g;
$text =~ s/\s+/ /g;
$text =~ s/^\s+|\s+$//g;
return substr $text, 0, 80;
}
sub validate_lie {
my ($self, $truth, $lie) = @_;
my %truth_words = @{stem map { $_ => 1 } grep { /^\w+$/ and not exists $self->{stopwords}{lc $_} } split /\b/, $truth};
my $truth_word_count = keys %truth_words;
my %lie_words = @{stem map { $_ => 1 } grep { /^\w+$/ and not exists $self->{stopwords}{lc $_} } split /\b/, $lie};
my $lie_word_count = keys %lie_words;
my $count = 0;
foreach my $word (keys %lie_words) {
if (exists $truth_words{$word}) { $count++; }
}
if ($count == $truth_word_count) { return 0; }
my $stripped_truth = $truth;
$stripped_truth =~ s/(?:\s|\p{PosixPunct})+//g;
my $stripped_lie = $lie;
$stripped_lie =~ s/(?:\s|\p{PosixPunct})+//g;
if ($stripped_truth eq $stripped_lie) { return 0; }
return 1;
}
# generic state subroutines
sub choosecategory {
my ($self, $state) = @_;
if ($state->{init} or $state->{reroll_category}) {
delete $state->{current_category};
$state->{current_player}++ unless $state->{reroll_category};
if ($state->{current_player} >= @{$state->{players}}) { $state->{current_player} = 0; }
my @choices;
my @categories;
if ($self->{metadata}->exists('filter', 'category_include_filter') and length $self->{metadata}->get_data('filter', 'category_include_filter')) {
my $filter = $self->{metadata}->get_data('filter', 'category_include_filter');
@categories = grep { /$filter/i } keys %{$self->{categories}};
} else {
@categories = keys %{$self->{categories}};
}
if ($self->{metadata}->exists('filter', 'category_exclude_filter') and length $self->{metadata}->get_data('filter', 'category_exclude_filter')) {
my $filter = $self->{metadata}->get_data('filter', 'category_exclude_filter');
@categories = grep { $_ !~ /$filter/i } @categories;
}
my $no_infinite_loops = 0;
while (1) {
last if ++$no_infinite_loops > 10000;
my $cat = $categories[rand @categories];
my @questions = keys %{$self->{categories}{$cat}};
if (not @questions) {
$self->{pbot}->{logger}->log("No questions for category $cat\n");
next;
}
if ($self->{metadata}->exists('settings', 'min_difficulty')) {
@questions = grep { $self->{categories}{$cat}{$_}->{value} >= $self->{metadata}->get_data('settings', 'min_difficulty') } @questions;
}
if ($self->{metadata}->exists('settings', 'max_difficulty')) {
@questions = grep { $self->{categories}{$cat}{$_}->{value} <= $self->{metadata}->get_data('settings', 'max_difficulty') } @questions;
}
if ($self->{metadata}->exists('settings', 'seen_expiry')) {
my $now = time;
@questions = grep { $now - $self->{categories}{$cat}{$_}->{seen_timestamp} >= $self->{metadata}->get_data('settings', 'seen_expiry') } @questions;
}
next if not @questions;
if (not grep { $_ eq $cat } @choices) {
push @choices, $cat;
}
last if @choices == $self->{metadata}->get_data('settings', 'category_choices') or @categories < $self->{metadata}->get_data('settings', 'category_choices');
}
if (not @choices) {
$self->{pbot}->{logger}->log("Out of questions with current settings!\n");
# XXX: do something useful here
}
push @choices, 'RANDOM CATEGORY';
push @choices, 'REROLL CATEGORIES';
$state->{categories_text} = '';
my $i = 1;
my $comma = '';
foreach my $choice (@choices) {
$state->{categories_text} .= "$comma$color{green}$i)$color{reset} " . $choice;
$i++;
$comma = "; ";
}
if ($state->{reroll_category} and not $self->{metadata}->get_data('settings', 'category_autopick')) {
$self->send_message($self->{channel}, "$state->{categories_text}");
}
$state->{category_options} = \@choices;
$state->{category_rerolls} = 0 if $state->{init};
delete $state->{init};
delete $state->{reroll_category};
}
if (exists $state->{current_category} or not @{$state->{players}}) { return 'next'; }
my $tock;
if ($state->{first_tock}) { $tock = 3; }
else { $tock = $self->{tock_duration}; }
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
if (exists $state->{random_category} or $self->{metadata}->get_data('settings', 'category_autopick')) {
delete $state->{random_category};
my $category = $state->{category_options}->[rand(@{$state->{category_options}} - 2)];
my $questions = scalar keys %{$self->{categories}{$category}};
$self->send_message($self->{channel}, "$color{green}Category:$color{reset} $category! ($questions questions)");
$state->{current_category} = $category;
return 'next';
}
if (++$state->{counter} > $state->{max_count}) {
# $state->{players}->[$state->{current_player}]->{missedinputs}++;
my $name = $state->{players}->[$state->{current_player}]->{name};
my $category = $state->{category_options}->[rand(@{$state->{category_options}} - 2)];
$self->send_message($self->{channel}, "$name took too long to choose. Randomly choosing: $category!");
$state->{current_category} = $category;
return 'next';
}
my $name = $state->{players}->[$state->{current_player}]->{name};
my $warning;
if ($state->{counter} == $state->{max_count}) { $warning = $color{red}; }
elsif ($state->{counter} == $state->{max_count} - 1) { $warning = $color{yellow}; }
else { $warning = ''; }
my $remaining = $self->{tock_duration} * $state->{max_count};
$remaining -= $self->{tock_duration} * ($state->{counter} - 1);
$remaining = "(" . (concise duration $remaining) . " remaining)";
$self->send_message($self->{channel}, "$name: $warning$remaining Choose a category via `/msg me c <number>`:$color{reset}");
$self->send_message($self->{channel}, "$state->{categories_text}");
return 'wait';
}
if (exists $state->{current_category}) { return 'next'; }
else { return 'wait'; }
}
sub getnewquestion {
my ($self, $state) = @_;
if ($state->{ticks} % 3 == 0) {
my @questions = keys %{$self->{categories}{$state->{current_category}}};
if (exists $state->{seen_questions}->{$state->{current_category}}) {
my @seen = keys %{$state->{seen_questions}->{$state->{current_category}}};
my %seen = map { $_ => 1 } @seen;
@questions = grep { !defined $seen{$_} } @questions;
}
@questions =
sort { $self->{categories}{$state->{current_category}}{$a}->{seen_timestamp} <=> $self->{categories}{$state->{current_category}}{$b}->{seen_timestamp} } @questions;
my $now = time;
@questions = grep { $now - $self->{categories}{$state->{current_category}}{$_}->{seen_timestamp} >= $self->{metadata}->get_data('settings', 'seen_expiry') } @questions;
if ($self->{metadata}->exists('settings', 'min_difficulty')) {
@questions = grep { $self->{categories}{$state->{current_category}}{$_}->{value} >= $self->{metadata}->get_data('settings', 'min_difficulty') } @questions;
}
if ($self->{metadata}->exists('settings', 'max_difficulty')) {
@questions = grep { $self->{categories}{$state->{current_category}}{$_}->{value} <= $self->{metadata}->get_data('settings', 'max_difficulty') } @questions;
}
if (not @questions) {
$self->send_message($self->{channel}, "No more questions available in category $state->{current_category}! Picking new category...");
delete $state->{seen_questions}->{$state->{current_category}};
@questions = keys %{$self->{categories}{$state->{current_category}}};
$state->{reroll_category} = 1;
}
if ($state->{reroll_question}) {
delete $state->{reroll_question};
unless ($state->{reroll_category}) {
my $count = @questions;
$self->send_message(
$self->{channel},
"Rerolling new question from $state->{current_category} (" . $self->commify($count) . " question" . ($count == 1 ? '' : 's') . " remaining)\n"
);
}
}
$state->{current_question} = $self->{categories}{$state->{current_category}}{$questions[0]};
$state->{current_question}->{question} = $self->normalize_question($state->{current_question}->{question});
$state->{current_question}->{answer} = $self->normalize_text($state->{current_question}->{answer});
$state->{current_question}->{seen_timestamp} = time unless $state->{reroll_category};
my @alts = map { $self->normalize_text($_) } @{$state->{current_question}->{alternativeSpellings}};
$state->{current_question}->{alternativeSpellings} = \@alts;
$state->{seen_questions}->{$state->{current_category}}->{$state->{current_question}->{id}} = 1;
foreach my $player (@{$state->{players}}) {
delete $player->{lie};
delete $player->{lie_count};
delete $player->{truth};
delete $player->{good_lie};
delete $player->{deceived};
delete $player->{skip};
delete $player->{reroll};
delete $player->{keep};
}
$state->{current_choices_text} = "";
return 'next';
} else {
return 'wait';
}
}
sub showquestion {
my ($self, $state, $show_category) = @_;
return if $state->{reroll_category};
if (exists $state->{current_question}) {
my $category = "";
my $value = "";
if ($show_category) { $category = "[$state->{current_category}] "; }
if ($state->{current_question}->{value}) { $value = "[$state->{current_question}->{value}] "; }
$self->send_message(
$self->{channel},
"$color{green}Current question:$color{reset} " . $self->commify($state->{current_question}->{id}) . ") $category$value$state->{current_question}->{question}"
);
} else {
$self->send_message($self->{channel}, "There is no current question.");
}
}
sub getlies {
my ($self, $state) = @_;
return 'skip' if $state->{reroll_category};
my $tock;
if ($state->{first_tock}) { $tock = 3; }
else { $tock = $self->{tock_duration}; }
my @nolies;
my $reveallies = ". Revealing lies! ";
my $lies = 0;
my $comma = '';
my @keeps;
my @rerolls;
my @skips;
foreach my $player (@{$state->{players}}) {
if (not exists $player->{lie}) { push @nolies, $player->{name}; }
else {
$lies++;
$reveallies .= "$comma$player->{name}: $player->{lie}";
$comma = '; ';
}
if ($player->{reroll}) { push @rerolls, $player->{name}; }
if ($player->{skip}) { push @skips, $player->{name}; }
if ($player->{keep}) { push @keeps, $player->{name}; }
}
return 'next' if not @nolies;
$reveallies = "" if not $lies;
if (@rerolls) {
my $needed = int(@{$state->{players}} / 2) + 1;
$needed += @keeps;
$needed -= @rerolls;
if ($needed <= 0) {
$state->{reroll_question} = 1;
$self->send_message($self->{channel}, "The answer was: " . uc($state->{current_question}->{answer}) . $reveallies);
return 'reroll';
}
}
if (@skips) {
my $needed = int(@{$state->{players}} / 2) + 1;
$needed += @keeps;
$needed -= @skips;
if ($needed <= 0) {
$self->send_message($self->{channel}, "The answer was: " . uc($state->{current_question}->{answer}) . $reveallies);
return 'skip';
}
}
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
if (++$state->{counter} > $state->{max_count}) {
my @missedinputs;
foreach my $player (@{$state->{players}}) {
if (not exists $player->{lie}) {
push @missedinputs, $player->{name};
$player->{missedinputs}++;
}
}
if (@missedinputs) {
my $missed = join ', ', @missedinputs;
$self->send_message($self->{channel}, "$missed failed to submit a lie in time!");
}
return 'next';
}
my $players = join ', ', @nolies;
my $warning;
if ($state->{counter} == $state->{max_count}) { $warning = $color{red}; }
elsif ($state->{counter} == $state->{max_count} - 1) { $warning = $color{yellow}; }
else { $warning = ''; }
my $remaining = $self->{tock_duration} * $state->{max_count};
$remaining -= $self->{tock_duration} * ($state->{counter} - 1);
$remaining = "(" . (concise duration $remaining) . " remaining)";
$self->send_message($self->{channel}, "$players: $warning$remaining Submit your lie now via `/msg me lie <your lie>`!");
}
return 'wait';
}
sub findtruth {
my ($self, $state) = @_;
my $tock;
if ($state->{first_tock}) { $tock = 3; }
else { $tock = $self->{tock_duration}; }
my @notruth;
foreach my $player (@{$state->{players}}) {
if (not exists $player->{truth}) { push @notruth, $player->{name}; }
}
return 'next' if not @notruth;
if ($state->{init}) {
delete $state->{init};
my @choices;
my @suggestions = @{$state->{current_question}->{suggestions}};
my @lies;
foreach my $player (@{$state->{players}}) {
if ($player->{lie}) {
if (not grep { $_ eq $player->{lie} } @lies) {
push @lies, uc $player->{lie};
}
}
}
while (1) {
my $limit = @{$state->{players}} < 5 ? 5 : @{$state->{players}};
last if @choices >= $limit;
if (@lies) {
my $random = rand @lies;
push @choices, $lies[$random];
splice @lies, $random, 1;
next;
}
if (@suggestions) {
my $random = rand @suggestions;
my $suggestion = uc $suggestions[$random];
push @choices, $suggestion if not grep { $_ eq $suggestion } @choices;
splice @suggestions, $random, 1;
next;
}
last;
}
splice @choices, rand @choices, 0, uc $state->{current_question}->{answer};
$state->{correct_answer} = uc $state->{current_question}->{answer};
my $i = 0;
my $comma = '';
my $text = '';
foreach my $choice (@choices) {
++$i;
$text .= "$comma$color{green}$i) $color{reset}$choice";
$comma = '; ';
}
$state->{current_choices_text} = $text;
$state->{current_choices} = \@choices;
}
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
if (++$state->{counter} > $state->{max_count}) {
my @missedinputs;
foreach my $player (@{$state->{players}}) {
if (not exists $player->{truth}) {
push @missedinputs, $player->{name};
$player->{missedinputs}++;
$player->{score} -= $state->{lie_points};
}
}
if (@missedinputs) {
my $missed = join ', ', @missedinputs;
$self->send_message($self->{channel}, "$missed failed to find the truth in time! They lose $state->{lie_points} points!");
}
return 'next';
}
my $players = join ', ', @notruth;
my $warning;
if ($state->{counter} == $state->{max_count}) { $warning = $color{red}; }
elsif ($state->{counter} == $state->{max_count} - 1) { $warning = $color{yellow}; }
else { $warning = ''; }
my $remaining = $self->{tock_duration} * $state->{max_count};
$remaining -= $self->{tock_duration} * ($state->{counter} - 1);
$remaining = "(" . (concise duration $remaining) . " remaining)";
$self->send_message($self->{channel}, "$players: $warning$remaining Find the truth now via `/msg me c <number>`!$color{reset}");
$self->send_message($self->{channel}, "$state->{current_choices_text}");
}
return 'wait';
}
sub showlies {
my ($self, $state) = @_;
my @liars;
my $player;
my $tock;
if ($state->{first_tock}) { $tock = 3; }
else { $tock = 3; }
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
while ($state->{current_lie_player} < @{$state->{players}}) {
$player = $state->{players}->[$state->{current_lie_player}];
$state->{current_lie_player}++;
next if not exists $player->{truth};
foreach my $liar (@{$state->{players}}) {
next if $liar->{id} == $player->{id};
next if not exists $liar->{lie};
if ($liar->{lie} eq $player->{truth}) { push @liars, $liar; }
}
last if @liars;
if ($player->{truth} ne $state->{correct_answer}) {
if ($self->{metadata}->get_data('settings', 'stats')) {
my $player_id = $self->{stats}->get_player_id($player->{name}, $self->{channel});
my $player_data = $self->{stats}->get_player_data($player_id);
$player_data->{bad_guesses}++;
$self->{stats}->update_player_data($player_id, $player_data);
}
my $points = $state->{lie_points} * 0.25;
$player->{score} -= $points;
$self->send_message($self->{channel}, "$player->{name} fell for my lie: \"$player->{truth}\". -$points points!");
$player->{deceived} = $player->{truth};
if ($state->{current_lie_player} < @{$state->{players}}) { return 'wait'; }
else { return 'next'; }
}
}
if (@liars) {
my $liars_text = '';
my $liars_no_apostrophe = '';
my $lie = $player->{truth};
my $gains = @liars == 1 ? 'gains' : 'gain';
my $comma = '';
foreach my $liar (@liars) {
if ($self->{metadata}->get_data('settings', 'stats')) {
my $player_id = $self->{stats}->get_player_id($liar->{name}, $self->{channel});
my $player_data = $self->{stats}->get_player_data($player_id);
$player_data->{players_deceived}++;
$self->{stats}->update_player_data($player_id, $player_data);
}
$liars_text .= "$comma$liar->{name}'s";
$liars_no_apostrophe .= "$comma$liar->{name}";
$comma = ', ';
$liar->{score} += $state->{lie_points};
$liar->{good_lie} = 1;
}
if ($self->{metadata}->get_data('settings', 'stats')) {
my $player_id = $self->{stats}->get_player_id($player->{name}, $self->{channel});
my $player_data = $self->{stats}->get_player_data($player_id);
$player_data->{bad_guesses}++;
$self->{stats}->update_player_data($player_id, $player_data);
}
$self->send_message($self->{channel}, "$player->{name} fell for $liars_text lie: \"$lie\". $liars_no_apostrophe $gains +$state->{lie_points} points!");
$player->{deceived} = $lie;
}
if ($state->{current_lie_player} >= @{$state->{players}}) {
if (@liars) { delete $state->{tick_drift}; }
else { $state->{tick_drift} = $tock - 1; }
return 'next';
} else {
return 'wait';
}
}
return 'wait';
}
sub showtruth {
my ($self, $state) = @_;
if ($state->{ticks} % 3 == 0) {
my $player_id;
my $player_data;
my $players;
my $comma = '';
my $count = 0;
foreach my $player (@{$state->{players}}) {
if ($self->{metadata}->get_data('settings', 'stats')) {
$player_id = $self->{stats}->get_player_id($player->{name}, $self->{channel});
$player_data = $self->{stats}->get_player_data($player_id);
$player_data->{questions_played}++;
$player_data->{nick} = $player->{name}; # update nick in stats database once per question (nick changes, etc)
}
if (exists $player->{deceived}) {
if ($self->{metadata}->get_data('settings', 'stats')) { $self->{stats}->update_player_data($player_id, $player_data); }
next;
}
if (exists $player->{truth} and $player->{truth} eq $state->{correct_answer}) {
if ($self->{metadata}->get_data('settings', 'stats')) {
$player_data->{good_guesses}++;
$self->{stats}->update_player_data($player_id, $player_data);
}
$count++;
$players .= "$comma$player->{name}";
$comma = ', ';
$player->{score} += $state->{truth_points};
}
}
if ($count) { $self->send_message($self->{channel}, "$players got the correct answer: \"$state->{correct_answer}\". +$state->{truth_points} points!"); }
else { $self->send_message($self->{channel}, "Nobody found the truth! The answer was: $state->{correct_answer}"); }
$self->add_new_suggestions($state);
return 'next';
} else {
return 'wait';
}
}
sub reveallies {
my ($self, $state) = @_;
if ($state->{ticks} % 3 == 0) {
my $text = 'Revealing lies! ';
my $comma = '';
foreach my $player (@{$state->{players}}) {
next if not exists $player->{lie};
$text .= "$comma$player->{name}: $player->{lie}";
$comma = '; ';
if ($player->{good_lie}) {
if ($self->{metadata}->get_data('settings', 'stats')) {
my $player_id = $self->{stats}->get_player_id($player->{name}, $self->{channel});
my $player_data = $self->{stats}->get_player_data($player_id);
$player_data->{good_lies}++;
$self->{stats}->update_player_data($player_id, $player_data);
}
}
}
$self->send_message($self->{channel}, "$text");
return 'next';
} else {
return 'wait';
}
}
sub showscore {
my ($self, $state) = @_;
if ($state->{ticks} % 3 == 0) {
my $text = '';
my $comma = '';
foreach my $player (sort { $b->{score} <=> $a->{score} } @{$state->{players}}) {
$text .= "$comma$player->{name}: " . $self->commify($player->{score});
$comma = '; ';
}
$text = "none" if not length $text;
$self->send_message($self->{channel}, "$color{green}Scores:$color{reset} $text");
return 'next';
} else {
return 'wait';
}
}
sub showfinalscore {
my ($self, $state) = @_;
if ($state->{newstate}) {
my $player_id;
my $player_data;
my $mentions = "";
my $text = "";
my $comma = "";
my $i = @{$state->{players}};
$state->{finalscores} = [];
foreach my $player (sort { $a->{score} <=> $b->{score} } @{$state->{players}}) {
if ($self->{metadata}->get_data('settings', 'stats')) {
$player_id = $self->{stats}->get_player_id($player->{name}, $self->{channel});
$player_data = $self->{stats}->get_player_data($player_id);
$player_data->{games_played}++;
$player_data->{avg_score} *= $player_data->{games_played} - 1;
$player_data->{avg_score} += $player->{score};
$player_data->{avg_score} /= $player_data->{games_played};
$player_data->{low_score} = $player->{score} if $player_data->{low_score} == 0;
if ($player->{score} > $player_data->{high_score}) { $player_data->{high_score} = $player->{score}; }
elsif ($player->{score} < $player_data->{low_score}) { $player_data->{low_score} = $player->{score}; }
}
if ($i >= 4) {
$mentions = "$player->{name}: " . $self->commify($player->{score}) . "$comma$mentions";
$comma = "; ";
if ($i == 4) { $mentions = "Honorable mentions: $mentions"; }
if ($self->{metadata}->get_data('settings', 'stats')) { $self->{stats}->update_player_data($player_id, $player_data); }
$i--;
next;
} elsif ($i == 3) {
$player_data->{times_third}++;
$text = sprintf("%15s%-13s%7s", "Third place: ", $player->{name}, $self->commify($player->{score}));
} elsif ($i == 2) {
$player_data->{times_second}++;
$text = sprintf("%15s%-13s%7s", "Second place: ", $player->{name}, $self->commify($player->{score}));
} elsif ($i == 1) {
$player_data->{times_first}++;
$text = sprintf("%15s%-13s%7s", "WINNER: ", $player->{name}, $self->commify($player->{score}));
}
if ($self->{metadata}->get_data('settings', 'stats')) { $self->{stats}->update_player_data($player_id, $player_data); }
push @{$state->{finalscores}}, $text;
$i--;
}
push @{$state->{finalscores}}, $mentions if length $mentions;
}
my $tock;
if ($state->{first_tock}) { $tock = 2; }
else { $tock = 3; }
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
if (not @{$state->{finalscores}}) {
$self->send_message($self->{channel}, "$color{green}Final scores: $color{reset}none");
return 'next';
}
if ($state->{first_tock}) {
$self->send_message($self->{channel}, "$color{green}Final scores:$color{reset}");
return 'wait';
}
my $text = shift @{$state->{finalscores}};
$self->send_message($self->{channel}, "$text");
if (not @{$state->{finalscores}}) { return 'next'; }
else { return 'wait'; }
} else {
return 'wait';
}
}
# state subroutines
sub nogame {
my ($self, $state) = @_;
if ($self->{stats_running}) {
$self->{stats}->end;
delete $self->{stats_running};
}
$state->{result} = 'nogame';
$self->{pbot}->{event_queue}->update_repeating('spinach loop', 0);
return $state;
}
sub getplayers {
my ($self, $state) = @_;
my $players = $state->{players};
my @names;
my $unready = @$players ? @$players : 1;
foreach my $player (@$players) {
if (not $player->{ready}) { push @names, "$player->{name} $color{red}(not ready)$color{reset}"; }
else {
$unready--;
push @names, $player->{name};
}
}
my $min_players = $self->{metadata}->get_data('settings', 'min_players') // 2;
if (@$players >= $min_players and not $unready) {
$self->send_message($self->{channel}, "All players ready!");
$state->{result} = 'allready';
return $state;
}
my $tock;
if ($state->{first_tock}) { $tock = $self->{tock_duration}; }
else { $tock = 300; }
if ($state->{ticks} % $tock == 0) {
$state->{tocked} = 1;
if (not $unready) { $self->send_message($self->{channel}, "Game cannot begin with one player."); }
if (++$state->{counter} > 6) {
$self->send_message($self->{channel}, "Not all players were ready in time. The game has been stopped.");
$state->{result} = 'stop';
$state->{players} = [];
return $state;
}
$players = join ', ', @names;
if (not @names) {
$players = 'none';
if ($state->{counter} >= 0) {
$self->send_message($self->{channel}, "All players have left the queue. The game has been stopped.");
$self->{current_state} = 'nogame';
$self->{result} = 'nogame';
$self->{pbot}->{event_queue}->update_repeating('spinach loop', 0);
return $state;
}
}
my $msg = "Waiting for more players or for all players to ready up. Current players: $players";
$self->send_message($self->{channel}, "$msg");
}
$state->{result} = 'wait';
return $state;
}
sub round1 {
my ($self, $state) = @_;
if ($self->{metadata}->get_data('settings', 'stats')) {
$self->{stats}->begin;
$self->{stats_running} = 1;
}
$state->{truth_points} = 500;
$state->{lie_points} = 1000;
$state->{my_lie_points} = $state->{lie_points} * 0.25;
$state->{result} = 'next';
return $state;
}
sub round1q1 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{counter} = 0;
$state->{max_count} = $self->{choosecategory_max_count};
$self->send_message($self->{channel}, "Round 1/3, question 1/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r1q1choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r1q1showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r1q1getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r1q1findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r1q1showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r1q1showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r1q1reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r1q1showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round1q2 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{counter} = 0;
$state->{max_count} = $self->{choosecategory_max_count};
$self->send_message($self->{channel}, "Round 1/3, question 2/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r1q2choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r1q2showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r1q2getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r1q2findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r1q2showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r1q2showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r1q2reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r1q2showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round1q3 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$state->{result} = 'wait';
$self->send_message($self->{channel}, "Round 1/3, question 3/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
} else {
$state->{result} = 'next';
}
return $state;
}
sub r1q3choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r1q3showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r1q3getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r1q3findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r1q3showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r1q3showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r1q3reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r1q3showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round2 {
my ($self, $state) = @_;
$state->{truth_points} = 750;
$state->{lie_points} = 1500;
$state->{my_lie_points} = $state->{lie_points} * 0.25;
$state->{result} = 'next';
return $state;
}
sub round2q1 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 2/3, question 1/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q1choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r2q1showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q1getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r2q1findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r2q1showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r2q1showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r2q1reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r2q1showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round2q2 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 2/3, question 2/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q2choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r2q2showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q2getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r2q2findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r2q2showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r2q2showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r2q2reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r2q2showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round2q3 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 2/3, question 3/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q3choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r2q3showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r2q3getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r2q3findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r2q3showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r2q3showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r2q3reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r2q3showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round3 {
my ($self, $state) = @_;
$state->{truth_points} = 1000;
$state->{lie_points} = 2000;
$state->{my_lie_points} = $state->{lie_points} * 0.25;
$state->{result} = 'next';
return $state;
}
sub round3q1 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 3/3, question 1/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q1choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r3q1showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q1getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r3q1findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r3q1showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r3q1showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r3q1reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r3q1showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round3q2 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 3/3, question 2/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q2choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r3q2showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q2getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r3q2findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r3q2showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r3q2showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r3q2reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r3q2showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round3q3 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "Round 3/3, question 3/3! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q3choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r3q3showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r3q3getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r3q3findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r3q3showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r3q3showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r3q3reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r3q3showscore {
my ($self, $state) = @_;
$state->{result} = $self->showscore($state);
return $state;
}
sub round4 {
my ($self, $state) = @_;
$state->{truth_points} = 2000;
$state->{lie_points} = 3000;
$state->{my_lie_points} = $state->{lie_points} * 0.25;
$state->{result} = 'next';
return $state;
}
sub round4q1 {
my ($self, $state) = @_;
if ($state->{ticks} % 2 == 0 || $state->{reroll_category}) {
$state->{init} = 1;
$state->{random_category} = 1;
$state->{max_count} = $self->{choosecategory_max_count};
$state->{counter} = 0;
$self->send_message($self->{channel}, "FINAL ROUND! FINAL QUESTION! $state->{lie_points} for each lie. $state->{truth_points} for the truth.")
unless $state->{reroll_category};
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r4q1choosecategory {
my ($self, $state) = @_;
$state->{result} = $self->choosecategory($state);
return $state;
}
sub r4q1showquestion {
my ($self, $state) = @_;
my $result = $self->getnewquestion($state);
if ($result eq 'next') {
$self->showquestion($state);
$state->{max_count} = $self->{picktruth_max_count};
$state->{counter} = 0;
$state->{init} = 1;
$state->{current_lie_player} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
sub r4q1getlies {
my ($self, $state) = @_;
$state->{result} = $self->getlies($state);
if ($state->{result} eq 'next') {
$state->{counter} = 0;
$state->{init} = 1;
}
return $state;
}
sub r4q1findtruth {
my ($self, $state) = @_;
$state->{result} = $self->findtruth($state);
return $state;
}
sub r4q1showlies {
my ($self, $state) = @_;
$state->{result} = $self->showlies($state);
return $state;
}
sub r4q1showtruth {
my ($self, $state) = @_;
$state->{result} = $self->showtruth($state);
return $state;
}
sub r4q1reveallies {
my ($self, $state) = @_;
$state->{result} = $self->reveallies($state);
return $state;
}
sub r4q1showscore {
my ($self, $state) = @_;
$state->{result} = $self->showfinalscore($state);
return $state;
}
sub gameover {
my ($self, $state) = @_;
if ($state->{ticks} % 3 == 0) {
$self->send_message($self->{channel}, "Game over!");
my $players = $state->{players};
foreach my $player (@$players) {
$player->{ready} = 0;
$player->{missedinputs} = 0;
}
# save updated seen_timestamps
$self->save_questions;
$state->{counter} = 0;
$state->{result} = 'next';
} else {
$state->{result} = 'wait';
}
return $state;
}
1;