It Is here the moment you have been waiting for...the new improved blackjack...and thanks thedon for giving me something to fill my time with
Lbl 1
Menu(“Welcome”,”Restore”,”2,”New”,A,”Exit”,C
Lbl 2
Menu(“Restore”,”Game 1”,3,”Game 2”,4,”Game 3”,5,”Game 4”,6,”Game 5”,7)
Lbl 3
Q->Z
Goto B
Lbl 4
P->Z
Goto B
Lbl 5
O->Z
Goto B
Lbl 6
N->Z
Goto B
Lbl 7
M->Z
Goto B
Lbl A
0->Z
0->X
Menu ("Welcome","Play",B,"Exit",C
Lbl C
Stop
Lbl B
disp "Money”,Z
Input “Bet”,W
If W<0
Then
Disp “Bet Higher”
Pause
Goto B
Else
IF W>Z
Then
Disp “Bet Lower”
Pause
Goto B
Else
0->V
0->U
0->T
0->S
0->L
randint(1,10)->V
Randint(1,10)->U
V+U->X
If X>21 (I don’t know why I kept this here)
Then
Disp “Bust”
Z-100->Z
0->X
Pause
Clrhome
Goto J
Else
Clrhome
Goto J
Lbl J
Menu ("Play!","Hit",D,"Stay",E,”Split”,I,"Card count",F,"Money left",G,"Exit",H,”Save”,Z
Lbl I
If V/=U (/= is not equal to)
then
goto J
else
If V=U
then
2W->W
randint(1,10)->T
V+T->X
randint(1,10)->S
U+S->L
Disp “Cards”,V,T
Disp “Cards”,U,S
Disp “Card Total”,X,L
Pause
Clrhome
If L>X
Then
L->X
Goto E
else
If X>L
Then
Goto E
Lbl H
Goto A
Lbl G
disp "Money",Z
Pause
ClrHome
Goto B
Lbl F
disp "Cards",V,U
Card Total”,X
Pause
Clrhome
Goto J
Lbl D
randint(1,10)+X->X
disp "Cards",X
Pause
ClrHome
Goto J
Lbl E
randint(15,24)>Y
If Y>21
Then
disp "You Win"
Disp “Your Cards”,X
Disp “computer’s cards”,Y
Pause
ClrHome
Z+W->Z
0->X
Goto B
Else
If X>21 (A little bug, if you and comp bust you still win, house Disp “Bust” busts first)
Disp “Your Cards”,X
disp “Computers cards”,Y
Pause
clrhome
Z-100->Z (you can adjust this according to your money
0->X reccomendation =10%)
Goto B
Else
If Y>X
Then
disp "You lost"
disp "Your cards",X
disp "Computer's cards",Y
pause
ClrHome
Z-W->Z
0->X
Goto B
Else
If Y<X
Then
disp "You Won"
disp "Your cards",X
disp "Computer's cards",Y
Pause
ClrHome
0->X
Z+W->Z
Goto B
Else
If X=Y
Then
disp "Tie"
disp "Your cards",X
disp "Computer's cards",Y
Pause
ClrHome
0->X
Goto B
Lbl Z
Menu(“Save”, “Game 1”,8,”Game 2”,9,”Game 3”,10,”Game 4”,11,”Game 5”,12)
lbl 8
Z->Q
Goto 13
Lbl 9
Z->P
Goto 13
Lbl 10
Z->O
Goto 13
Lbl 11
Z->N
Goto 13
Lbl 12
Z->M
Goto 13
Lbl 13
Menu(“Continue?”,B,”Exit”,C)
For my version, because I run many other programs involving the variables from M-Q I have just the restore function and I deleted lbl Z and lbls 8 to 13 and instead I write down the number and enter it into the store Z such as my game 1 looks like this:
Lbl 3
6200->Z
Goto B