use vars qw($VERSION %IRSSI);
use Irssi 20020217.1542 (); # Version 0.8.1 or perhaps get the most up to date irssi version
-$VERSION = "0.7GR02";
+$VERSION = "0.7GR03";
%IRSSI = (
authors => "Athanasius Emilius Arvanitis based on Simon Huggins quiz 0.7",
contact => "arvan",
my $tag = $game->{'tag'};
my $channel = $game->{'channel'};
+ $game->{'used_questions'}=[];
+
my $server = Irssi::server_find_tag($tag);
if (!defined $server) {
#putting it in used
if (@{$game->{'used_questions'}}){
${$game->{'usedCounter'}} = @{$game->{'used_questions'}};
- } else {my ${$game->{'usedCounter'}}=0;}
+ } else {${$game->{'usedCounter'}}=0;}
${$game->{'used_questions'}}[${$game->{'usedCounter'}}]=${$game->{'the_question'}};
#putting it in used
if (@{$game->{'used_questions'}}){
${$game->{'usedCounter'}} = @{$game->{'used_questions'}};
- } else {my ${$game->{'usedCounter'}} =0;}
+ } else {${$game->{'usedCounter'}} =0;}
${$game->{'used_questions'}}[${$game->{'usedCounter'}}]=${$game->{'the_question'}};