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

C Jeopardy: Show correctness percentage when an answer is almost correct; recommend #cjeopardy channel when attempting to play via /msg

Browse Source
This commit is contained in:
Pragmatic Software 2014-08-31 20:21:09 +00:00
parent 34d9a2a6d9
commit 021401b538
4 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ 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 => 778, BUILD_REVISION => 779,
BUILD_DATE => "2014-08-18", BUILD_DATE => "2014-08-31",
}; };
1; 1;

2
modules/cjeopardy.pl
View File

@ -19,7 +19,7 @@ sub encode { my $str = shift; $str =~ s/\\(.)/{sprintf "\\%03d", ord($1)}/ge; re
sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str } sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str }
if ($channel !~ /^#/) { if ($channel !~ /^#/) {
print "Sorry, C Jeopardy must be played in a channel.\n"; print "Sorry, C Jeopardy must be played in a channel. Feel free to join #cjeopardy.\n";
exit; exit;
} }

23
modules/cjeopardy_answer.pl
View File

@ -20,7 +20,7 @@ sub encode { my $str = shift; $str =~ s/\\(.)/{sprintf "\\%03d", ord($1)}/ge; re
sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str } sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str }
if ($channel !~ /^#/) { if ($channel !~ /^#/) {
print "Sorry, C Jeopardy must be played in a channel.\n"; print "Sorry, C Jeopardy must be played in a channel. Feel free to join #cjeopardy.\n";
exit; exit;
} }
@ -105,6 +105,8 @@ if (not @data) {
my @valid_answers = map { decode $_ } split /\|/, encode $data[1]; my @valid_answers = map { decode $_ } split /\|/, encode $data[1];
my $incorrect_percentage = 100;
foreach my $answer (@valid_answers) { foreach my $answer (@valid_answers) {
chomp $answer; chomp $answer;
$answer =~ s/\\\|/|/g; $answer =~ s/\\\|/|/g;
@ -117,7 +119,13 @@ foreach my $answer (@valid_answers) {
my $distance = fastdistance($lctext, lc $answer); my $distance = fastdistance($lctext, lc $answer);
my $length = (length($lctext) > length($answer)) ? length $lctext : length $answer; my $length = (length($lctext) > length($answer)) ? length $lctext : length $answer;
if ($distance / $length < 0.15) { my $percentage = $distance / $length * 100;
if ($percentage < $incorrect_percentage) {
$incorrect_percentage = $percentage;
}
if ($percentage < 15) {
if ($distance == 0) { if ($distance == 0) {
print "'$answer' is correct!"; print "'$answer' is correct!";
} else { } else {
@ -153,4 +161,13 @@ foreach my $answer (@valid_answers) {
} }
} }
print "Sorry, '$text' is incorrect.\n"; my $correct_percentage = 100 - $incorrect_percentage;
if ($correct_percentage >= 80) {
printf "Sorry, '$text' is %.1f%% correct. So close!\n", $correct_percentage;
} elsif ($correct_percentage >= 70) {
printf "Sorry, '$text' is %.1f%% correct. Almost.\n", $correct_percentage;
} elsif ($correct_percentage >= 50) {
printf "Sorry, '$text' is only %.1f%% correct.\n", $correct_percentage;
} else {
print "Sorry, '$text' is incorrect.\n";
}

4
modules/cjeopardy_hint.pl
View File

@ -18,7 +18,7 @@ sub encode { my $str = shift; $str =~ s/\\(.)/{sprintf "\\%03d", ord($1)}/ge; re
sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str } sub decode { my $str = shift; $str =~ s/\\(\d{3})/{"\\" . chr($1)}/ge; return $str }
if ($channel !~ /^#/) { if ($channel !~ /^#/) {
print "Sorry, C Jeopardy must be played in a channel.\n"; print "Sorry, C Jeopardy must be played in a channel. Feel free to join #cjeopardy.\n";
exit; exit;
} }
@ -88,7 +88,7 @@ while (@indices <= $hidden_character_count - $spaces - $dashes - $underscores) {
} }
foreach my $index (@indices) { foreach my $index (@indices) {
substr $hint, $index, 1, '?'; substr $hint, $index, 1, '.';
} }
print "Hint: $hint\n"; print "Hint: $hint\n";