GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-03 01:48:38 +02: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 # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 756, BUILD_REVISION => 757,
BUILD_DATE => "2014-07-29", BUILD_DATE => "2014-07-29",
}; };

15
modules/cjeopardy_hint.pl
View File

@ -3,12 +3,14 @@
use warnings; use warnings;
use strict; use strict;
use Text::Levenshtein qw(fastdistance); use Time::HiRes qw/gettimeofday/;
use Time::Duration qw/duration/;
my $CJEOPARDY_DATA = 'cjeopardy.dat'; my $CJEOPARDY_DATA = 'cjeopardy.dat';
my $CJEOPARDY_HINT = 'cjeopardy.hint'; my $CJEOPARDY_HINT = 'cjeopardy.hint';
my @hints = (0.90, 0.75, 0.50, 0.25, 0.10); my @hints = (0.90, 0.75, 0.50, 0.25, 0.10);
my $timeout = 60;
my $channel = shift @ARGV; 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"; my $ret = open $fh, "<", "$CJEOPARDY_HINT-$channel";
if (defined $ret) { if (defined $ret) {
$hint_counter = <$fh>; $hint_counter = <$fh>;
$last_timeout = <$fh>;
close $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++; $hint_counter++;
open $fh, ">", "$CJEOPARDY_HINT-$channel" or die "Couldn't open $CJEOPARDY_HINT-$channel: $!"; open $fh, ">", "$CJEOPARDY_HINT-$channel" or die "Couldn't open $CJEOPARDY_HINT-$channel: $!";
print $fh "$hint_counter\n"; print $fh "$hint_counter\n";
print $fh scalar gettimeofday, "\n";
close $fh; close $fh;
my $hidden_character_count = int length ($hint) * $hints[$hint_counter > $#hints ? $#hints : $hint_counter]; my $hidden_character_count = int length ($hint) * $hints[$hint_counter > $#hints ? $#hints : $hint_counter];