mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
C Jeopardy: Add shuffler to preventing repeating questions
This commit is contained in:
parent
1f8445d3bc
commit
9978f0c793
@ -13,7 +13,7 @@ use warnings;
|
|||||||
# These are set automatically by the build/commit script
|
# These are set automatically by the build/commit script
|
||||||
use constant {
|
use constant {
|
||||||
BUILD_NAME => "PBot",
|
BUILD_NAME => "PBot",
|
||||||
BUILD_REVISION => 751,
|
BUILD_REVISION => 752,
|
||||||
BUILD_DATE => "2014-07-28",
|
BUILD_DATE => "2014-07-28",
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -8,7 +8,7 @@ use Time::Duration qw/duration/;
|
|||||||
|
|
||||||
my $CJEOPARDY_FILE = 'cjeopardy.txt';
|
my $CJEOPARDY_FILE = 'cjeopardy.txt';
|
||||||
my $CJEOPARDY_DATA = 'cjeopardy.dat';
|
my $CJEOPARDY_DATA = 'cjeopardy.dat';
|
||||||
my $CJEOPARDY_SQL = 'cjeopardy.sqlite3';
|
my $CJEOPARDY_SHUFFLE = 'cjeopardy.shuffle';
|
||||||
|
|
||||||
my $TIMELIMIT = 300;
|
my $TIMELIMIT = 300;
|
||||||
|
|
||||||
@ -28,12 +28,37 @@ if (defined $ret) {
|
|||||||
|
|
||||||
if (scalar gettimeofday - $last_timestamp <= $TIMELIMIT) {
|
if (scalar gettimeofday - $last_timestamp <= $TIMELIMIT) {
|
||||||
my $duration = duration($TIMELIMIT - scalar gettimeofday - $last_timestamp);
|
my $duration = duration($TIMELIMIT - scalar gettimeofday - $last_timestamp);
|
||||||
print "The current question is: $last_question You will be able to request a new question in $duration.\n";
|
print "The current question is: $last_question You may request a new question in $duration.\n";
|
||||||
close $fh;
|
close $fh;
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
my $question_index;
|
||||||
|
|
||||||
|
if (not length $text) {
|
||||||
|
$ret = open $fh, "<", "$CJEOPARDY_SHUFFLE-$channel";
|
||||||
|
if (defined $ret) {
|
||||||
|
my @indices = <$fh>;
|
||||||
|
$question_index = shift @indices;
|
||||||
|
close $fh;
|
||||||
|
|
||||||
|
if (not @indices) {
|
||||||
|
print "(Shuffling.)\n";
|
||||||
|
shuffle_questions(0);
|
||||||
|
} else {
|
||||||
|
open my $fh, ">", "$CJEOPARDY_SHUFFLE-$channel" or print "Failed to shuffle questions.\n" and exit;
|
||||||
|
foreach my $index (@indices) {
|
||||||
|
print $fh $index;
|
||||||
|
}
|
||||||
|
close $fh;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
print "(Shuffling!)\n";
|
||||||
|
$question_index = shuffle_questions(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
my @questions;
|
my @questions;
|
||||||
open $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!";
|
open $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!";
|
||||||
while (my $question = <$fh>) {
|
while (my $question = <$fh>) {
|
||||||
@ -48,7 +73,11 @@ if (not @questions) {
|
|||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $question = $questions[int rand(@questions)];
|
if (length $text) {
|
||||||
|
$question_index = int rand(@questions);
|
||||||
|
}
|
||||||
|
|
||||||
|
my $question = $questions[$question_index];
|
||||||
|
|
||||||
my ($q, $a) = split /\|/, $question, 2;
|
my ($q, $a) = split /\|/, $question, 2;
|
||||||
chomp $q;
|
chomp $q;
|
||||||
@ -62,3 +91,31 @@ print $fh "$q\n";
|
|||||||
print $fh "$a\n";
|
print $fh "$a\n";
|
||||||
print $fh scalar gettimeofday, "\n";
|
print $fh scalar gettimeofday, "\n";
|
||||||
close $fh;
|
close $fh;
|
||||||
|
|
||||||
|
|
||||||
|
sub shuffle_questions {
|
||||||
|
my $return_index = shift @_;
|
||||||
|
|
||||||
|
open my $fh, "<", $CJEOPARDY_FILE or die "Could not open $CJEOPARDY_FILE: $!";
|
||||||
|
my (@indices, $i);
|
||||||
|
while (<$fh>) {
|
||||||
|
push @indices, $i++;
|
||||||
|
}
|
||||||
|
close $fh;
|
||||||
|
|
||||||
|
open $fh, ">", "$CJEOPARDY_SHUFFLE-$channel" or die "Could not open $CJEOPARDY_FILE: $!";
|
||||||
|
while (@indices) {
|
||||||
|
my $random_index = int rand(@indices);
|
||||||
|
my $index = $indices[$random_index];
|
||||||
|
print $fh "$index\n";
|
||||||
|
splice @indices, $random_index, 1;
|
||||||
|
|
||||||
|
if ($return_index and @indices == 1) {
|
||||||
|
close $fh;
|
||||||
|
return $indices[0];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close $fh;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user