So I created a betting game. I was wondering if anyone wanted to take a look at it, see if I could optimize it, suggest any changes or fun additions, and have fun with it:
ClrHome
Lbl A
If J≥1000 or J≤0
100→J
End
ClrHome
rand2→B
rand2→C
Goto D
Lbl E
B≤1→H
Menu("How much?","1 Dollar",Q,"5 Dollars",R,"10 Dollars",S,"20 Dollars",T,"50 Dollars",U,"100 Dollars",V
Lbl F
B≤1 and C≤1→H
Menu("How much?","1 Dollar",K,"5 Dollars",L,"10 Dollars",M,"20 Dollars",N,"50 Dollars",O,"100 Dollars",P
Lbl D
Menu("What do you choose?","1/2",E,"1/4",F,"Exit",AC
Lbl I
If H:Then
Disp "It's your lucky day
Else
Disp "You saw a black cat
End
Pause
Lbl AF
Disp "You have",J,"Dollars
Pause
If J≥1000 or J=0:Then
Goto W
Else
Goto A
Lbl Q
If H<1:Then
J-1→J
Else
J-1→J
End
Goto I
Lbl R
If (J-5)<(J=0):Then
Goto AA
End
If H<1:Then
J-5→J
Else
J+5→J
End
Goto I
Lbl S
If (J-10)<(J=0):Then
Goto AA
End
If H<1:Then
J-10→J
Else
J+10→J
End
Goto I
Lbl T
If (J-20)<(J=0):Then
Goto AA
End
If H<1:Then
J-20→J
Else
J+20→J
End
Goto I
Lbl U
If (J-50)<(J=0):Then
Goto AA
End
If H<1:Then
J-50→J
Else
J+50→J
End
Goto I
Lbl V
If (J-100)<(J=0):Then
Goto AA
End
If H<1:Then
J-100→J
0→G «Zero
Else
J+100→J
1→G
End
Goto AE
Lbl K
If H<1:Then
J-1→J
Else
J+2→J
End
Goto I
Lbl L
If (J-5)<(J=0):Then
Goto AB
End
If H<1:Then
J-5→J
Else
J+10→J
End
Goto I
Lbl M
If (J-10)<(J=0):Then
Goto AB
End
If H<1:Then
J-10→J
Else
J+20→J
End
Goto I
Lbl N
If (J-20)<(J=0):Then
Goto AB
End
If H<1:Then
J-20→J
Else
J+40→J
End
Goto I
Lbl O
If (J-50)<(J=0):Then
Goto AB
End
If H<1:Then
J-50→J
Else
J+100→J
End
Goto I
Lbl P
If (J-100)<(J=0):Then
Goto AB
End
If H<1:Then
J-100→J
0→G
Else
J+200→J
1→G
End
Goto AE
Lbl AA
Disp "You can't do that
Pause
Disp "You only have",J,"Dollars
Pause
ClrHome
End
Goto E
Lbl AB
Disp "You can't do that
Pause
Disp "You only have",J,"Dollars
Pause
ClrHome
End
Goto F
Lbl AE
End
If G=1:Then
Disp "Jackpot!!!
Pause
Else
Disp "You lost a lot
Pause
End
Goto AF
Lbl W
End
If J=0:Then
Goto Y
Else
Disp "You Won! :)
Pause
Goto Z
Lbl Y
Disp "You Lost! :(
Pause
End
Lbl Z
Menu("Want to play again?","Sure",A,"No thanks",AC
Lbl AC
End
Stop
I know it isn't that compact since I am fairly new to Ti-84 Basic, but I wanted to give it a go.
Tell me what you think and if I made any errors while typing this up.
I am open to all suggestions
I have no idea what I'm doing