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

1.3 final

This commit is contained in:
mysticbbs 2012-07-30 18:22:46 -04:00
parent 06a2412b06
commit 0a2fee553b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/blackjack.mps
View File

@ -466,10 +466,14 @@ Begin
End; End;
If Upper(ParamStr(1)) = 'RESET' Then Begin If Upper(ParamStr(1)) = 'RESET' Then Begin
If InputYN('|CR|12Reset blackjack scores? ') Then 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;
End;
Randomize; Randomize;
DeckCreate; DeckCreate;
LoadPlayer; LoadPlayer;