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

8
scripts/blackjack.mps
View File

@ -466,8 +466,12 @@ Begin
End; End;
If Upper(ParamStr(1)) = 'RESET' Then Begin If Upper(ParamStr(1)) = 'RESET' Then Begin
FileErase(DataPath + 'blackjack.ply'); If InputYN('|CR|12Reset blackjack scores? ') Then Begin
WriteLn ('|CRScores have been reset|CR|CR|PA'); FileErase(DataPath + 'blackjack.ply');
WriteLn ('|CRScores have been reset|CR|CR|PA');
End;
Halt;
End; End;
Randomize; Randomize;