diff options
Diffstat (limited to 'scripts/quiz.pl')
| -rw-r--r-- | scripts/quiz.pl | 451 |
1 files changed, 451 insertions, 0 deletions
diff --git a/scripts/quiz.pl b/scripts/quiz.pl new file mode 100644 index 0000000..46e34d8 --- /dev/null +++ b/scripts/quiz.pl @@ -0,0 +1,451 @@ +# Quiz script for irssi +# (C) Simon Huggins 2001 +# huggie@earth.li + +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the Free +# Software Foundation; either version 2 of the License, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., 59 +# Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# TODO: +# - Do something when people quit (remove from team, readd when +# rejoin?) +# - Store questions asked in a file rather than just in memory so it +# can be restarted without a problem. + +use strict; +use vars qw($VERSION %IRSSI); + +use Irssi 20020217.1542 (); # Version 0.8.1 +$VERSION = "0.8"; +%IRSSI = ( +authors => "Simon Huggins", +contact => "huggie-irssi\@earth.li", +name => "Quiz", +description => "Turns irssi into a quiz bot", +license => "GPLv2", +url => "http://the.earth.li/~huggie/irssi/", +changed => "2017-04-03", +); + +use Irssi::Irc; +use Data::Dumper; + +Irssi::settings_add_str("misc","quiz_admin","huggie"); +Irssi::settings_add_str("misc","quiz_passwd","stuff"); +Irssi::settings_add_str("misc","quiz_file","/home/huggie/.irssi/questions"); + +Irssi::settings_add_int("misc","quiz_qlength",60); +Irssi::settings_add_int("misc","quiz_hints",4); +Irssi::settings_add_int("misc","quiz_target_score",10); +Irssi::settings_add_int("misc","quiz_leave_concealed_chars",1); + +Irssi::command("set cmd_queue_speed 2010"); + +{ +my $s; + +sub load_questions($$) { + my ($game,$force) = @_; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in load_questions"); + return; + } + + return if $game->{'questions'} and not $force; + + my $file = Irssi::settings_get_str("quiz_file"); + if (open(QS, '<',$file)) { + @{$game->{'questions'}}=<QS>; + close(QS); + Irssi::print("Loaded questions"); + return 1; + } else { + $server->command("msg $channel Can't find quiz questions, sorry."); + return; + } +} + +sub start_game($) { + my $game = shift; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in start_game"); + return; + } + + Irssi::timeout_remove($game->{'timeouttag'}); + undef $game->{'timeouttag'}; + + if (!keys %{$game->{'teams'}}) { + $server->command("msg $channel Sorry no one joined!"); + $game->{'state'} = "over"; + game_over($game); + return; + } + $game->{'state'} = "game"; + + $server->command("msg $channel Game starts now. Questions last ". + Irssi::settings_get_int("quiz_qlength"). + " seconds and there are ". + (Irssi::settings_get_int("quiz_hints")-1). + " hints. First to reach ". + Irssi::settings_get_int("quiz_target_score")." wins."); + next_question($game); +} + +sub show_scores($) { + my $game = shift; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in show_scores"); + return; + } + + my (@redscorers,@bluescorers); + + foreach my $score (sort keys %{$game->{'scores'}}) { + if ($score =~ /^blue/) { + $score =~ s/^blue//; + push @bluescorers, "$score(". + $game->{'scores'}->{"blue".$score}.")"; + } else { + $score =~ s/^red//; + push @redscorers, "$score(". + $game->{'scores'}->{"red".$score}.")"; + } + } + + $server->command("msg $channel 12Blue: ".$game->{'bluescore'} + ." ".join(",",@bluescorers)); + $server->command("msg $channel 4Red : ".$game->{'redscore'} + ." ".join(",",@redscorers)); + + my $ts = Irssi::settings_get_int("quiz_target_score"); + if ($game->{'bluescore'} == $ts or $game->{'redscore'} == $ts) { + if ($game->{'bluescore'} == $ts) { + $server->command("msg $channel 12Blue team wins ". + $game->{'bluescore'}." to ". + $game->{'redscore'}); + } else { + $server->command("msg $channel 4Red team wins ". + $game->{'redscore'}." to ". + $game->{'bluescore'}); + } + $game->{'state'}="over"; + } elsif ($game->{'state'} ne "over") { + $game->{'state'}="pause"; + $server->command("msg $channel Next question in 20 seconds."); + if ($game->{'timeouttag'}) { + Irssi::timeout_remove($game->{'timeouttag'}); + } + $game->{'timeouttag'} = Irssi::timeout_add(20000, + "next_question",$game); + $game->{'timeout'} = time() + 20; + } + game_over($game); +} + +sub hint($) { + my $game = shift; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in hint"); + return; + } + + return if game_over($game); + if ($game->{'end'} <= time()) { + $server->command("msg $channel Time's up. The answer is: ".$game->{'answer'}); + show_scores($game); + } else { + $game->{'hint'}++; + my $num = $game->{'current_answer'} =~ s/\*/*/g; + if ($num <= Irssi::settings_get_int("quiz_leave_concealed_chars")) { + return; + } + my $pos = index($game->{'current_answer'},"*"); + if ($pos >= 0) { + $game->{'current_answer'} =~ s/\*/substr($game->{'answer'},$pos,1)/e; + } + my $hinttime = $game->{'hint'}*$game->{'hintlen'}; + if ($hinttime != int($hinttime)) { + $hinttime = sprintf("%.2f", $hinttime); + } + $server->command("msg $channel $hinttime second hint: ". + $game->{'current_answer'}); + } +} + +sub game_over($) { + my $game = shift; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in game_over"); + return; + } + + if ($game->{'state'} eq "over") { + Irssi::timeout_remove($game->{'timeouttag'}); + undef $game->{'timeouttag'}; + undef $game->{'state'}; + undef $game->{'teams'}; + undef $game->{'scores'}; + $server->command("msg $channel Trivia is disabled. Use !trivon to restart."); + return 1; + } + return; +} + +sub next_question($) { + my $game = shift; + my $tag = $game->{'tag'}; + my $channel = $game->{'channel'}; + my $server = Irssi::server_find_tag($tag); + + if (!defined $server) { + Irssi::print("Hrm, couldn't find server for tag ($tag) in next_question"); + return; + } + + my $len = Irssi::settings_get_int("quiz_qlength")/ + Irssi::settings_get_int("quiz_hints"); + if ($game->{'timeouttag'}) { + Irssi::timeout_remove($game->{'timeouttag'}); + } + $game->{'timeouttag'} = Irssi::timeout_add($len*1000, "hint",$game); + my $t = time(); + $game->{'timeout'} = $t + $len; + $game->{'end'} = Irssi::settings_get_int("quiz_qlength")+$t; + $game->{'hint'}=0; + $game->{'hintlen'} = $len; + if (!@{$game->{'questions'}}) { + load_questions($game,1); + if (!$game->{'questions'}) { + $server->command("msg $channel Hmmm, no questions found sorry"); + $game->{'state'}="over"; + } + Irssi::print("Questions looped"); + } + return if game_over($game); + my $q = splice(@{$game->{'questions'}},rand(@{$game->{'questions'}}),1); + chomp $q; + $q =~ s/
//; + ($game->{'answer'} = $q) =~ s/^(.*)\|//; + $server->command("msg $channel Question: $1"); + ($game->{'current_answer'} = $game->{'answer'}) =~ s/[a-zA-Z0-9]/*/g; + $q = s/^(.*)\|.*?$/$1/; + $server->command("msg $channel Answer: ".$game->{'current_answer'}); + $game->{'state'}="question"; +} + +sub invite_join($$) { + my ($server,$channel) = @_; + my $game = $s->{$server->{'tag'}}->{$channel}; + + $server->command("msg $channel Team Trivia thingummie v($VERSION) starts in 1 minute. Type 4!join red or 12!join blue"); + $game->{'timeouttag'} = Irssi::timeout_add(60000,"start_game",$game); + $game->{'timeout'} = time()+60; +} + +sub secstonormal($) { + my $seconds = shift; + my ($m,$s); + + $s = $seconds % 60; + $m = ($seconds - $s)/60; + return sprintf("%02d:%02d",$m,$s); +} + +sub do_pubcommand($$$$) { + my ($command,$channel,$server,$nick) = @_; + my $game = $s->{$server->{'tag'}}->{$channel}; + + $command = lc $command; + $command =~ s/\s*$//; + + if ($command =~ /^!bang$/) { + $server->command("msg $channel Dumping..."); + foreach (split /\n/,Dumper($s)) { + Irssi::print("$_"); + } + } elsif ($command =~ /^!trivon$/) { + if ($s->{$server->{'tag'}}->{$channel}) { + if ($s->{$server->{'tag'}}->{$channel}->{'state'}) { + $server->command("msg $nick Trivia is already on. Use !trivoff to remove it."); + return; + } + #undef $s->{$server->{'tag'}}->{$channel}; + } else { + # create structure magically + $game = $s->{$server->{'tag'}}->{$channel} = {}; + $game->{'tag'} = $server->{'tag'}; + $game->{'channel'} = $channel; + } + $game->{'teams'}={}; + $game->{'redscore'} = 0; + $game->{'bluescore'} = 0; + load_questions($game,0); + $game->{'state'} = "join"; + invite_join($server,$channel); + } elsif ($command =~ /^!trivoff$/) { + return if !$game->{'state'}; + $game->{'state'}="over"; + game_over($game); + } elsif ($command =~ /^!join/) { + if ($command =~ /^!join (red|blue)$/) { + return if !$game->{'state'}; + $game->{'teams'}->{$nick}=$1; + if ($1 eq "blue") { + $server->command("msg $nick You have joined the 12Blue team"); + } else { + $server->command("msg $nick You have joined the 4Red team"); + } + } + } elsif ($command =~ /^!teams/) { + return if !$game->{'state'}; + my @blue=(); + my @red=(); + foreach (sort keys %{$game->{'teams'}}) { + push @blue, $_ if $game->{'teams'}->{$_} eq "blue"; + push @red, $_ if $game->{'teams'}->{$_} eq "red"; + } + $server->command("msg $channel 12Blue: ".join(",",@blue)); + $server->command("msg $channel 4Red : ".join(",",@red)); + } elsif ($command =~ /^!timeleft$/) { + if ($game->{'state'} eq "join" and $game->{'timeout'}) { + my $diff = $game->{'timeout'} - time(); + if ($diff > 0) { + $server->command("msg $channel Time left: ".secstonormal($diff)); + } else { + Irssi::print("Timeleft: $diff ??"); + } + } + } +} + +sub do_command($$$) { + my ($command,$nick,$server) = @_; + + $command = lc $command; + $command =~ s/\s*$//; + + if ($command =~ /^!bang$/) { + $server->command("msg $nick BOOM!"); + } elsif ($command =~ /^admin/) { + if ($command !~ /^admin (.*)$/) { + $server->command("msg $nick admin needs a nick to change the admin user to!"); + } else { + Irssi::settings_remove("quiz_admin"); + Irssi::settings_add_str("misc","quiz_admin",$1); + $server->command("msg $nick admin user is now $1"); + } + } else { + $server->command("msg $nick Unknown command '$command'"); + } +} + +sub check_answer($$$$) { + my ($server,$channel,$nick,$text) = @_; + my $game = $s->{$server->{'tag'}}->{$channel}; + + return if not exists $game->{'teams'}->{$nick}; + + $text =~ s/\s*$//; + + if (lc $text eq lc $game->{'answer'}) { + $server->command("msg $channel Correct answer by ". + ($game->{'teams'}->{$nick} eq "blue"?"12":"4"). + $nick.": ".$game->{'answer'}); + $game->{'state'}="won"; + $game->{$game->{'teams'}->{$nick}."score"}++; + $game->{'scores'}->{$game->{'teams'}->{$nick}.$nick}++; + show_scores($game); + return; + } + + my $show=0; + my @chars = split //,$text; + + for (my $i=0; $i<length($game->{'answer'}); $i++) { + if (lc $chars[$i] eq lc substr($game->{'answer'},$i,1)) { + $show = 1 if substr($game->{'current_answer'},$i,1) + eq "*"; + substr($game->{'current_answer'},$i,1) = + substr($game->{'answer'},$i,1); + } + } + $server->command("msg $channel Answer: ".$game->{'current_answer'}) + if $show; +} + +sub event_privmsg { + my ($server,$data,$nick,$address) = @_; + my ($target, $text) = split / :/,$data,2; + my ($command); + + if ($target =~ /^#/) { + my $game = $s->{$server->{'tag'}}->{$target}; + if ($text =~ /^!/) { + do_pubcommand($text,$target,$server,$nick); + } elsif ($game->{'state'} eq "question") { + check_answer($server,$target,$nick,$text); + } + } else { + if ($nick ne Irssi::settings_get_str("quiz_admin")) { + my ($passwd); + ($passwd, $command) = split /\s/,$text,2; + if ($passwd ne Irssi::settings_get_str("quiz_passwd")) { + Irssi::print("$nick tried to do $command but got the password wrong."); + } + } else { + $command = $text; + } + do_command($command,$nick,$server); + } +} + +sub event_changed_nick { + my ($channel,$nick,$oldnick) = @_; + my $server = $channel->{'server'}; + my $game = $s->{$server->{'tag'}}->{$channel->{'name'}}; + + return if !$game->{'state'}; + + my $nicktxt = $nick->{'nick'}; + if ($game->{'teams'}->{$oldnick}) { + $game->{'teams'}->{$nicktxt} = $game->{'teams'}->{$oldnick}; + delete $game->{'teams'}->{$oldnick}; + } +} + +} + +Irssi::signal_add_last("event privmsg", "event_privmsg"); +Irssi::signal_add("nicklist changed", "event_changed_nick"); |