From 34bd05d88e26ec048db80e332659db312150720c Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 15 Feb 2013 23:16:19 -0500
Subject: [PATCH] Updated for negative wager (requires next alpha)

---
 scripts/blackjack.mps | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/scripts/blackjack.mps b/scripts/blackjack.mps
index 3b22c86..0c68bca 100644
--- a/scripts/blackjack.mps
+++ b/scripts/blackjack.mps
@@ -15,13 +15,14 @@
 //   - Added Top 10 list
 //   - Added command line option RESET to reset scores
 //   - Added command line option TOP10 to show top 10 and exit
+//   - No longer allows negative numbers to be a Wager.
 // ==========================================================================
 
 Uses
   User;
 
 Const
-  Version     = '1.3';
+  Version     = '1.4';
   CashStart   = 1000;
   CardJack    = 11;
   CardQueen   = 12;
@@ -403,7 +404,7 @@ Begin
 
   Write('|17');
 
-  Wager := Str2Int(Input(10, 10, 1, ''));
+  Wager := Abs(Str2Int(Input(10, 10, 1, '')));
 
   If Wager > Player.Cash Then Wager := 0;
 
@@ -470,7 +471,7 @@ Begin
       FileErase(DataPath + 'blackjack.ply');
       WriteLn ('|CRScores have been reset|CR|CR|PA');
     End;
-    
+
     Halt;
   End;