From bc103a242a7983f016aae10f1ab9d073f44c8ff7 Mon Sep 17 00:00:00 2001
From: Edwin Eefting <edwin@datux.nl>
Date: Sat, 9 Aug 2014 04:20:36 +0200
Subject: [PATCH] highscore

---
 plugins/game    | 19 ++++++++++++++++++-
 revbank.plugins |  1 +
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/plugins/game b/plugins/game
index 3d9e023..db3cf6c 100644
--- a/plugins/game
+++ b/plugins/game
@@ -8,13 +8,18 @@ use Time::HiRes qw( gettimeofday tv_interval);
 
 HELP "game" => "Scan-foo game!";
 
+my $fastest=1000;
+my $fastest_name="nobody";
+
 sub command :Tab(game) {
+
     my ($self, $cart, $command) = @_;
 
     return NEXT if $command !~ /^(?:game)$/;
 
     print "\nWelcome to SCAN-FOO \\o/\n";
 
+    print "\nRecord time is $fastest by $fastest_name\n";
 
     my $start_time=[gettimeofday];
 
@@ -32,7 +37,19 @@ sub command :Tab(game) {
 
     my $elapsed = tv_interval ( $start_time, [gettimeofday]);
 
-    print "COMPLETED in $elapsed seconds *tadaah*\n";
+    print "Completed in $elapsed seconds *tadaah*\n";
+
+    if ($elapsed < $fastest)
+    {
+        print " #####################\n";
+        print " #### NEW RECORD! ####\n";
+        print " #####################\n";
+        print " You did it in $elapsed !!!\n";
+
+        print "Enter your name: ";
+        $fastest_name=<STDIN>;
+        $fastest=$elapsed;
+    }
 
     return ACCEPT;
 }
diff --git a/revbank.plugins b/revbank.plugins
index b2ef101..1698288 100644
--- a/revbank.plugins
+++ b/revbank.plugins
@@ -16,6 +16,7 @@ stock
 
 beep_terminal
 
+game       # Scan-foo game
 
 # Then, plugins that apply heuristics