fa60e1081a
Undoes 714b337 because github seems to no longer require chmod +x
for syntax highlighting extensionless files.
139 lines
2.5 KiB
Perl
139 lines
2.5 KiB
Perl
#!perl
|
|
|
|
warn "The game plugin is deprecated and will be removed from a future revbank";
|
|
|
|
#Scan-foo-game for Revbank - (C)Edwin Eefting (psy0rz)
|
|
|
|
#Released under GPL or whatever revbank uses as license :)
|
|
|
|
use Time::HiRes qw( gettimeofday tv_interval);
|
|
|
|
HELP "game" => "Scan-fu game!";
|
|
|
|
my $start_time;
|
|
my $step;
|
|
my $slowest;
|
|
my $elapsed=1000;
|
|
|
|
sub print_highscores()
|
|
{
|
|
$slowest=1000;
|
|
print "\n---- fastest times ----\n";
|
|
open my $in, "highscores.txt";
|
|
my $nr=0;
|
|
while (<$in>)
|
|
{
|
|
my ($name,$time)=split(" ");
|
|
printf "$nr: %f $name\n", $time;
|
|
$nr++;
|
|
$slowest=$time;
|
|
}
|
|
if ($nr<10)
|
|
{
|
|
$slowest=1000;
|
|
}
|
|
|
|
close($in);
|
|
print "-----------------------\n";
|
|
}
|
|
|
|
sub command :Tab(game)
|
|
{
|
|
|
|
my ($self, $cart, $command) = @_;
|
|
|
|
return NEXT if $command !~ /^(?:game)$/;
|
|
|
|
print "\nWelcome to SCAN-FU \\o/\n";
|
|
|
|
print_highscores();
|
|
|
|
$start_time=[gettimeofday];
|
|
$step=1;
|
|
|
|
return "NOW SCAN game_$step", \&step;
|
|
|
|
}
|
|
|
|
|
|
sub step :Tab(whatevah) {
|
|
my ($self, $cart, $input) = @_;
|
|
|
|
if ($step<5)
|
|
{
|
|
if ($input ne "game_$step")
|
|
{
|
|
print "\n\aFAIL! :( *sad trombone*\n";
|
|
|
|
return ACCEPT;
|
|
}
|
|
|
|
$step++;
|
|
|
|
return "NOW SCAN game_$step", \&step;
|
|
}
|
|
else
|
|
{
|
|
|
|
$elapsed = tv_interval ( $start_time, [gettimeofday]);
|
|
|
|
print "\aCompleted in $elapsed seconds *tadaah*\n";
|
|
|
|
if ($elapsed < $slowest)
|
|
{
|
|
print " #####################\n";
|
|
print " #### NEW RECORD! ####\n";
|
|
print " #####################\n";
|
|
print " You did it in $elapsed !!!\n";
|
|
|
|
return "Enter your name for the hall of fame", \&name;
|
|
|
|
}
|
|
|
|
return ACCEPT;
|
|
}
|
|
}
|
|
|
|
sub name :Tab(whatevah)
|
|
{
|
|
my ($self, $cart, $input) = @_;
|
|
|
|
|
|
#store new highscores:
|
|
#(ulgy as hell...but hey i'm sleepy :)
|
|
|
|
open my $in, "<highscores.txt";
|
|
open my $out, ">highscores.txt.tmp";
|
|
my $nr=0;
|
|
while (<$in>)
|
|
{
|
|
$nr++;
|
|
my ($name,$time)=split(" ");
|
|
if ($elapsed!=-1 && $elapsed<=$time)
|
|
{
|
|
print $out "$input $elapsed\n";
|
|
$elapsed=-1;
|
|
$nr++;
|
|
}
|
|
|
|
print $out "$name $time\n";
|
|
|
|
if ($nr>10)
|
|
{
|
|
last;
|
|
}
|
|
}
|
|
if ($nr<10 && $elapsed!=-1)
|
|
{
|
|
print $out "$input $elapsed\n";
|
|
}
|
|
|
|
close($in);
|
|
close($out);
|
|
rename("highscores.txt.tmp", "highscores.txt");
|
|
|
|
print_highscores();
|
|
|
|
return ACCEPT;
|
|
}
|
|
|