GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-30 07:59:42 +01:00
Code Issues Projects Releases Wiki Activity

C Jeopardy: Add time-limit to hints

Browse Source
This commit is contained in:
Pragmatic Software 2014-07-29 20:07:48 +00:00
parent 88dc009ae7
commit 236b4c1d06
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 756,
BUILD_REVISION => 757,
BUILD_DATE => "2014-07-29",
};

15
modules/cjeopardy_hint.pl
View File

@ -3,12 +3,14 @@
use warnings;
use strict;
use Text::Levenshtein qw(fastdistance);
use Time::HiRes qw/gettimeofday/;
use Time::Duration qw/duration/;
my $CJEOPARDY_DATA = 'cjeopardy.dat';
my $CJEOPARDY_HINT = 'cjeopardy.hint';
my @hints = (0.90, 0.75, 0.50, 0.25, 0.10);
my $timeout = 60;
my $channel = shift @ARGV;
@ -37,17 +39,26 @@ foreach my $answer (@valid_answers) {
}
}
my $hint_counter;
my ($hint_counter, $last_timeout);
my $ret = open $fh, "<", "$CJEOPARDY_HINT-$channel";
if (defined $ret) {
$hint_counter = <$fh>;
$last_timeout = <$fh>;
close $fh;
}
my $duration = scalar gettimeofday - $last_timeout;
if ($duration < $timeout) {
$duration = duration($timeout - $duration);
print "Please wait $duration before requesting another hint.\n";
exit;
}
$hint_counter++;
open $fh, ">", "$CJEOPARDY_HINT-$channel" or die "Couldn't open $CJEOPARDY_HINT-$channel: $!";
print $fh "$hint_counter\n";
print $fh scalar gettimeofday, "\n";
close $fh;
my $hidden_character_count = int length ($hint) * $hints[$hint_counter > $#hints ? $#hints : $hint_counter];