eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated for negative wager (requires next alpha)

This commit is contained in:
mysticbbs 2013-02-15 23:16:19 -05:00
parent fde7a102de
commit 34bd05d88e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/blackjack.mps
View File

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