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

Adjust score output: Move ratio to end, and use concise time durations

Browse Source
This commit is contained in:
Pragmatic Software 2015-05-25 11:34:43 -07:00
parent b1f3d304b3
commit 059ac072a6
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
modules/cjeopardy/cjeopardy_scores.pl
View File

@ -148,9 +148,9 @@ sub print_quickest {
my $quickest; my $quickest;
if ($player->{quickest_correct} < 60) { if ($player->{quickest_correct} < 60) {
$quickest = sprintf("%.2f seconds", $player->{quickest_correct}); $quickest = sprintf("%.2fs", $player->{quickest_correct});
} else { } else {
$quickest = duration($player->{quickest_correct}); $quickest = concise duration($player->{quickest_correct});
} }
return "$player->{nick}: $quickest"; return "$player->{nick}: $quickest";
@ -298,24 +298,27 @@ if (lc $command eq 'score') {
my $score = "$player_data->{nick}: " unless lc $nick eq lc $player_nick; my $score = "$player_data->{nick}: " unless lc $nick eq lc $player_nick;
$score .= "correct: $player_data->{correct_answers}" . ($player_data->{lifetime_correct_answers} > $player_data->{correct_answers} ? " [$player_data->{lifetime_correct_answers}]" : "") . ", "; $score .= "correct: $player_data->{correct_answers}" . ($player_data->{lifetime_correct_answers} > $player_data->{correct_answers} ? " [$player_data->{lifetime_correct_answers}]" : "") . ", ";
$score .= "current streak: $player_data->{correct_streak}, "; $score .= "current correct streak: $player_data->{correct_streak}, ";
$score .= "highest streak: $player_data->{highest_correct_streak}" . ($player_data->{lifetime_highest_correct_streak} > $player_data->{highest_correct_streak} ? " [$player_data->{lifetime_highest_correct_streak}]" : "") . ", "; $score .= "highest correct streak: $player_data->{highest_correct_streak}" . ($player_data->{lifetime_highest_correct_streak} > $player_data->{highest_correct_streak} ? " [$player_data->{lifetime_highest_correct_streak}]" : "") . ", ";
$score .= "quickest streak: "; $score .= "quickest correct streak: ";
$score .= ($player_data->{highest_quick_correct_streak} > 0 ? "$player_data->{highest_quick_correct_streak} in " . (duration $player_data->{quickest_correct_streak}) : "N/A") . ($player_data->{lifetime_highest_quick_correct_streak} > $player_data->{highest_quick_correct_streak} ? " [$player_data->{lifetime_highest_quick_correct_streak} in " . (duration $player_data->{lifetime_quickest_correct_streak}) . "]" : "") . ", "; $score .= ($player_data->{highest_quick_correct_streak} > 0 ? "$player_data->{highest_quick_correct_streak} in " . (concise duration $player_data->{quickest_correct_streak}) : "N/A") . ($player_data->{lifetime_highest_quick_correct_streak} > $player_data->{highest_quick_correct_streak} ? " [$player_data->{lifetime_highest_quick_correct_streak} in " . (concise duration $player_data->{lifetime_quickest_correct_streak}) . "]" : "") . ", ";
$score .= "quickest answer: "; $score .= "quickest answer: ";
if ($player_data->{quickest_correct} == 0) { if ($player_data->{quickest_correct} == 0) {
$score .= "N/A"; $score .= "N/A";
} elsif ($player_data->{quickest_correct} < 60) { } elsif ($player_data->{quickest_correct} < 60) {
$score .= sprintf("%.2f seconds", $player_data->{quickest_correct}); $score .= sprintf("%.2fs", $player_data->{quickest_correct});
} else { } else {
$score .= duration($player_data->{quickest_correct}); $score .= concise duration($player_data->{quickest_correct});
} }
$score .= ", "; $score .= ", ";
$score .= "wrong: $player_data->{wrong_answers}" . ($player_data->{lifetime_wrong_answers} > $player_data->{wrong_answers} ? " [$player_data->{lifetime_wrong_answers}]" : "") . ", "; $score .= "wrong: $player_data->{wrong_answers}" . ($player_data->{lifetime_wrong_answers} > $player_data->{wrong_answers} ? " [$player_data->{lifetime_wrong_answers}]" : "") . ", ";
$score .= "current wrong streak: $player_data->{wrong_streak}, ";
$score .= "highest wrong streak: $player_data->{highest_wrong_streak}" . ($player_data->{lifetime_highest_wrong_streak} > $player_data->{highest_wrong_streak} ? " [$player_data->{lifetime_highest_wrong_streak}]" : "") . ", ";
$score .= "ratio: "; $score .= "ratio: ";
my $wrong = $player_data->{wrong_answers} ? $player_data->{wrong_answers} : 1; my $wrong = $player_data->{wrong_answers} ? $player_data->{wrong_answers} : 1;
$score .= sprintf("%.2f", $player_data->{correct_answers} / $wrong); $score .= sprintf("%.2f", $player_data->{correct_answers} / $wrong);
@ -324,8 +327,6 @@ if (lc $command eq 'score') {
$score .= sprintf(" [%.2f]", $player_data->{lifetime_correct_answers} / $wrong); $score .= sprintf(" [%.2f]", $player_data->{lifetime_correct_answers} / $wrong);
} }
$score .= ", "; $score .= ", ";
$score .= "current streak: $player_data->{wrong_streak}, ";
$score .= "highest streak: $player_data->{highest_wrong_streak}" . ($player_data->{lifetime_highest_wrong_streak} > $player_data->{highest_wrong_streak} ? " [$player_data->{lifetime_highest_wrong_streak}]" : "") . ", ";
$score .= "hints: $player_data->{hints}" . ($player_data->{lifetime_hints} > $player_data->{hints} ? " [$player_data->{lifetime_hints}]" : "") . "\n"; $score .= "hints: $player_data->{hints}" . ($player_data->{lifetime_hints} > $player_data->{hints} ? " [$player_data->{lifetime_hints}]" : "") . "\n";