Code: Alles auswählen
**TI92**_ main Program file dated 02/20/98, 00:37 _ R bjn2 _ 1_ ¥Z _×(zzz68)
Prgm
1_zzz64
PopUp {"Weiterspielen","Neues Spiel"},zzz65
ClrIO
Lbl anfang
ClrIO
Output 1,1,"Höchsteinsatz"
PopUp {"10 Münzen","20 Münzen","50 Münzen","100 Münzen"},zzz66
If zzz66=1 Then
10_zzz67
ElseIf zzz66=2 Then
20_zzz67
ElseIf zzz66=3 Then
50_zzz67
ElseIf zzz66=4 Then
100_zzz67
EndIf
ClrIO
If zzz65=2 Then
zzz68_zzz74
zzz68*zzz67/2_zzz69
EndIf
While zzz64=1
ClrIO
rand(13)_zzz70
rand(13)_zzz71
Output 1,180,"Computer:"
rand(13)_zzz72
If zzz72=1 Then
Output 10,180,"Ass"
ElseIf zzz72=11 Then
Output 10,180,"Bube"
10_zzz72
ElseIf zzz72=12 Then
Output 10,180,"Dame"
10_zzz72
ElseIf zzz72=13 Then
Output 10,180,"König"
10_zzz72
Else
Output 10,180,string(zzz72)
EndIf
Output 1,1,"Karten:"
If zzz70=1 Then
Output 10,1,"Ass"
ElseIf zzz70=11 Then
Output 10,1,"Bube"
10_zzz70
ElseIf zzz70=12 Then
Output 10,1,"Dame"
10_zzz70
ElseIf zzz70=13 Then
Output 10,1,"König"
10_zzz70
Else
Output 10,1,string(zzz70)
EndIf
Output 1,60,"Punkte:"
zzz70_zzz73
Output 10,60,string(zzz73)
Output 1,120,"Münzen:"
Output 10,120," "
Output 10,120,string(zzz74)
Output 90,70," "
While zzz67=10
PopUp {"Eine Münze","Zwei Münzen","Fünf Münzen","Zehn Münzen"},zzz75
If zzz75=1 Then
1_zzz76
ElseIf zzz75=2 Then
2_zzz76
ElseIf zzz75=3 Then
5_zzz76
ElseIf zzz75=4 Then
10_zzz76
EndIf
Goto a
EndWhile
While zzz67=20
PopUp {"Eine Münze","Zwei Münzen","Fünf Münzen","Zehn Münzen","Zwanzig Münzen"},zzz75
If zzz75=1 Then
1_zzz76
ElseIf zzz75=2 Then
2_zzz76
ElseIf zzz75=3 Then
5_zzz76
ElseIf zzz75=4 Then
10_zzz76
ElseIf zzz75=5 Then
20_zzz76
EndIf
Goto a
EndWhile
While zzz67=50
PopUp {"Eine Münze","Zwei Münzen","Fünf Münzen","Zehn Münzen","Zwanzig Münzen","Fünfzig Münzen"},zzz75
If zzz75=1 Then
1_zzz76
ElseIf zzz75=2 Then
2_zzz76
ElseIf zzz75=3 Then
5_zzz76
ElseIf zzz75=4 Then
10_zzz76
ElseIf zzz75=5 Then
20_zzz76
ElseIf zzz75=6 Then
50_zzz76
EndIf
Goto a
EndWhile
While zzz67=100
PopUp {"Eine Münze","Zwei Münzen","Fünf Münzen","Zehn Münzen","Zwanzig Münzen","Fünfzig Münzen","Einhundert Münzen"},zzz75
If zzz75=1 Then
1_zzz76
ElseIf zzz75=2 Then
2_zzz76
ElseIf zzz75=3 Then
5_zzz76
ElseIf zzz75=4 Then
10_zzz76
ElseIf zzz75=5 Then
20_zzz76
ElseIf zzz75=6 Then
50_zzz76
ElseIf zzz75=7 Then
100_zzz76
EndIf
Goto a
EndWhile
Lbl a
zzz74-zzz76_zzz74
Output 1,120,"Münzen:"
Output 10,120," "
Output 10,120,string(zzz74)
Output 90,70,"Einsatz: "&string(zzz76)
0_zzz77
0_zzz78
1_zzz79
While zzz77=0
zzz79+1_zzz79
PopUp {"Karte ziehen","Zug beenden"},zzz80
If zzz80=2 Then
1_zzz77
Goto endzug
EndIf
rand(13)_zzz71
If zzz71=1 Then
Output zzz79*10,1,"Ass"
ElseIf zzz71=11 Then
Output zzz79*10,1,"Bube"
10_zzz71
ElseIf zzz71=12 Then
Output zzz79*10,1,"Dame"
10_zzz71
ElseIf zzz71=13 Then
Output zzz79*10,1,"König"
10_zzz71
Else
Output zzz79*10,1,string(zzz71)
EndIf
If zzz70=1 Then
If zzz71=1 Then
If zzz79=1 Then
1_zzz77
1_zzz73
Text "Doppelass"
Goto endzug
EndIf
EndIf
EndIf
zzz73+zzz71_zzz73
Output 10,60,string(zzz73)
If zzz73>21 Then
Output 70,50,"Du hast überboten"
Goto doppel
EndIf
Lbl endzug
EndWhile
If zzz73>21 Then
Disp "Du hast überboten"
Stop
EndIf
rand(13)_zzz81
If zzz81=1 Then
Output 20,180,"Ass"
ElseIf zzz81=11 Then
Output 20,180,"Bube"
10_zzz81
ElseIf zzz81=12 Then
Output 20,180,"Dame"
10_zzz81
ElseIf zzz81=13 Then
Output 20,180,"König"
10_zzz81
Else
Output 20,180,string(zzz81)
EndIf
zzz81+zzz72_zzz81
2_zzz79
While zzz81<17
zzz79+1_zzz79
rand(13)_zzz72
If zzz72=1 Then
Output zzz79*10,180,"Ass"
ElseIf zzz72=11 Then
Output zzz79*10,180,"Bube"
10_zzz72
ElseIf zzz72=12 Then
Output zzz79*10,180,"Dame"
10_zzz72
ElseIf zzz72=13 Then
Output zzz79*10,180,"König"
10_zzz72
Else
Output zzz79*10,180,string(zzz72)
EndIf
zzz81+zzz72_zzz81
EndWhile
If zzz81=21 Then
Output 70,50,"Der Computer hat gewonnen"
Lbl zen
Output 80,70,"Er hatte 21 Punkte"
ElseIf zzz81>21 Then
Output 60,50,"Du hast gewonnen"
Output 70,40,"Der Computer hat überboten"
zzz76*2_zzz76
zzz76+zzz74_zzz74
Else
If zzz81>zzz73 Then
Output 70,50,"Der Computer hat gewonnen"
Output 80,55,"Seine Punktzahl ist: "&string(zzz81)
Else
If zzz81=zzz73 Then
Output 70,50,"Patt keiner hat gewonnen"
Else
Output 70,60,"Du hast gewonnen"
Output 80,20,"Die Punktzahl des Computers ist: "&string(zzz81)
zzz76*2_zzz76
zzz76+zzz74_zzz74
EndIf
EndIf
EndIf
Lbl doppel
If zzz74>zzz69 Then
Text "Du bist REICH"
PopUp {"Weiterspielen","Spiel beenden"},zzz82
While zzz82=1
zzz68_zzz74
Goto anfang
EndWhile
ElseIf zzz74<0 Then
Text "Du bist BANKROTT"
PopUp {"Weiterspielen","Spiel beenden"},zzz82
While zzz82=1
zzz68_zzz74
Goto anfang
EndWhile
EndIf
PopUp {"Weiterspielen","Spiel beenden"},zzz64
EndWhile
EndPrgm _äå _Ü%