YAATZEE auf dem C 16

Wollen Sie ein interessantes Würfelspiel auf Ihrem Computer spielen? Dann schlagen Sie nicht gleich die nächste Seite auf, denn wir haben etwas für Sie.

YAATZEE ist ein Spiel, das viele auch unter dem Namen »KNIFFEL« kennen. Die nachfolgenden Spielregeln zeigen Ihnen, was Sie nach der Eingabe des nebenstehenden Programms (siehe Listing) erwartet. Nun zu den Spielregeln.

Am Anfang fallen alle 5 Würfel. Davon können 0 bis 5 Würfel getauscht werden, indem Sie die Anzahl der zu tauschenden Würfel eingeben (GETKEY-Abfrage). Daraufhin fragt das Programm ab, welche Würfel getauscht werden sollen. Die getauschten Würfel werden neu geworfen, und Sie haben anschließend erneut die Möglichkeit zum Tausch. Drei Versuche stehen Ihnen zur Verfügung.

Anschließend können Sie mit der Abfrage »WOHIN« Ihren gesamten Wurf einer von 13 Rubriken (Tabelle 1) zuordnen. Diese Rubrik ist dann belegt und kann nicht mehr aufgerufen werden. Hatten Sie keinen Erfolg, müssen Sie trotzdem eine Rubrik belegen. Der Wert 0 wird dort eingetragen.

Mögliche Rubriken
1)	1er	Hier zählen nur die gefallenen 1er
2)	2er	Hier zählen nur die gefallenen 2er
3)	3er	Hier zählen nur die gefallenen 3er
4)	4er	Hier zählen nur die gefallenen 4er
5)	5er	Hier zählen nur die gefallenen 5er
6)	6er	Hier zählen nur die gefallenen 6er
8)	Drilling	3 Würfel mit gleichem Wert, es zählen alle Augen.
9)	Vierling	4 Würfel mit gleichem Wert, es zählen alle Augen.
10)	Full House	Je 3 und 2 gleiche Würfel, Zählwert 25 Punkte
11)	Kleine Straße	4 Würfel in aufsteigender Folge (zum Beispiel 2,3,4,5) Zählwert 30 Punkte.
12)	Große Straße	5 Würfel in aufsteigender Folge (zum Beispiel 1,2,3,4,5) Zählwert 40 Punkte)
13)	YAATZEE	5 Würfel mit gleichem Wert, Zählwert 50 Punkte
14)	Chance	Diese kann man anfordern, wenn keine bestimmte Kombination erzielt wurde oder die erzielte bereits belegt ist. Es werden alle Augen gezählt.

Tabelle 1. Rubriken, denen ein Wurf zugeordnet werden kann

Wenn Sie bei den Rubriken 1 bis 6 insgesamt mehr als 62 Punkte erreicht haben, erhalten Sie einen Bonus von 35 Punkten.

Wer das Spiel verändern will, findet in Tabelle 2 die Variablenliste und in Tabelle 3 eine Programmübersicht.

(Karl-Heinz Montag/kn)

VARIABLENLISTE
A$(1) bis A$(6)	:	6 mögliche Würfel
A (1) bis A(15)	:	mögliche Kombinationen
C (1) bis C(13)	:	Überprüfung, ob Kombinationen schon belegt
K	:	Zeiger für Spielende
R	:	Zähler für 3 Würfe
S	:	Zähler für 13 mögliche Kombinationen
AA,AB,AC,AD,AE	:	5 Würfel
BA,BB,BC,BD,BE,BF	:	Zähler für Drilling, Vierling und Full House
AG	:	Anzahl Würfel tauschen
U(1) bis U(5)	:	Würfel tauschen
B,TT	:	Warteschleife
O	:	Abfrage welche Kombination
V(P),W(P)	:	DATAs für Melodie
T	:	Highscore

Tabelle 2. Variablenliste zu »YAATZEE«

10-102	Dimensionierung, Variablenbestimmung
103-300	Bilderstellung
301-801	Würfeln
900	Überprüfung, ob schon dreimal gewürfelt wurde
1000-1010	Abfrage wieviele tauschen
1100-1303	Abfrage welche tauschen
1399-6402	Würfel tauschen
6510	Eingabe welche Kombinationen belegen
7000-7005	Zähler für 1er
7100-7105	Zähler für 2er
7200-7205	Zähler für 3er
7300-7305	Zähler für 4er
7400-7405	Zähler für 5er
7500-7505	Zähler für 6er
7600	Zwischensumme
7700-8204	Zähler für Drilling, Vierling und Full House
8300-8302	Überprüfung ob Drilling
8400-8402	Überprüfung ob Vierling
8500-9050	Überprüfung ob Full House
9060-9110	Überprüfung ob große Straße
9300-9306	Überprüfung ob YAATZEE
9610-9693	Melodie
9700-9720	Highscore
9901-9910	Abfrage: nochmal
10000-10060	Würfel

Tabelle 3. Programmübersicht zu »YAATZEE«

10 dima(15),c(15),v(38),w(38) :gosub10000
20 forx=1to15:a(x)=0:c(x)=0:next
90 scnclr
91 s=0:vol3
92 color0,8,7:color4,7,3
100 color1,1:a(7)=a(1)+a(2)+a(3)+a(4)+a(5)+a(6):ifa(7)>62thena(7)=a(7)+35
101 gosub9450:r=0:k=0:s=s+1:ifs>13then9500
102 scnclr:aa=0:ab=0:ac=0:ad=0:ae=0
103 ba=0:bb=0:bc=0:bd=0:be=0:bf=0
106 print"     {rvon}{red}1{rvof}      {rvon}{cyn}2{rvof}      {rvon}{pur}3{rvof}      {rvon}{grn}4{rvof}      {rvon}{dblu}5{rvon}"
107 print"   UCCCI {$a0}UCCCI {$a0}UCCCI {$a0}UCCCI {$a0}UCCCI"
110 print"   B   B  B   B {$a0}B   B {$a0}B   B  B   B"
120 print"   B   B {$a0}B   B {$a0}B   B {$a0}B   B {$a0}B   B"
130 print"   B   B {$a0}B   B {$a0}B   B {$a0}B   B {$a0}B   B"
140 print"   JCCCK {$a0}JCCCK {$a0}JCCCK  JCCCK {$a0}JCCCK"
150 print:
160 print"   1) 1er         ="a(1)
170 print"   2) 2er         ="a(2)
180 print"   3) 3er         ="a(3)
190 print"   4) 4er         ="a(4)
200 print"   5) 5er         ="a(5)
210 print"   6) 6er         ="a(6)
220 print"    {pur}zw-summe      =     {rvon}"a(7)"{rvof}{blk}
230 print"   8)drilling     =":ifc(7)=1then231:else232
231 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(8)"{rvof}{blk}":goto240
232 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(8)
240 print"   9)vierling     =":ifc(8)=1then241:else242
241 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(9)"{rvof}{blk}":goto250
242 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(9)
250 print"   10)fullhouse   =":ifc(9)=1then251:else252
251 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(10)"{rvof}{blk}":goto260
252 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(10)
260 print"   11)kl.strasse  =":ifc(10)=1then261:else262
261 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(11)"{rvof}{blk}":goto270
262 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(11)
270 print"   12)gr.strasse  =":ifc(11)=1then271:else272
271 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(12)"{rvof}{blk}":goto280
272 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(12)
280 print"   13)yaatzee     =":ifc(12)=1then281:else282
281 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(13)"{rvof}{blk}":goto290
282 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(13)
290 print"   14)chance      =":ifc(13)=1then291:else292
291 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red}"a(14)"{rvof}{blk}":goto300
292 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a(14)
300 print"     {grn}gesamt       =     {rvon}"a(15)"{rvof}{blk}"
301 ifk=100then9600
400 aa=int(rnd(1)*6)+1
401 print"{home}{down}{down}{rght}{rght}{rght}{rght}"a$(aa)
500 ab=int(rnd(1)*6)+1
501 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ab)
600 ac=int(rnd(1)*6)+1
601 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ac)
700 ad=int(rnd(1)*6)+1
701 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ad)
800 ae=int(rnd(1)*6)+1
801 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ae)
900 r=r+1:ifr<3then990 :else6500
990 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                              "
1000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}wieviele willst du tauschen?"
1010 getkeyag:ifag=0then6500
1015 ifag=7then7600
1020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}       "
1100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}welche"
1200 foraf=1toag
1300 getkeyu(af):u=af:sound1, 99,6 :next
1301 ifu    >0andu    <6then1399:else1302
1302 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      "
1303 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}welche":goto1200
1399 forb=1to500:next
1400 onu(1)gosub6000,6100,6200,6300,6400
1409 forb=1to500:next
1410 onu(2)gosub6000,6100,6200,6300,6400
1419 forb=1to500:next
1420 onu(3)gosub6000,6100,6200,6300,6400
1429 forb=1to500:next
1430 onu(4)gosub6000,6100,6200,6300,6400
1439 forb=1to500:next
1440 onu(5)gosub6000,6100,6200,6300,6400
1450 foraf=1to5:u(af)=0:next
1500 goto900
6000 print"{home}{down}{down}{rght}{rght}{rght}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   "
6001 aa=int(rnd(1)*6)+1
6002 print"{home}{down}{down}{rght}{rght}{rght}{rght}"a$(aa):gosub11000:return
6100 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   "
6101 ab=int(rnd(1)*6)+1
6102 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ab):gosub11000:return
6200 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   "
6201 ac=int(rnd(1)*6)+1
6202 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ac):gosub11000:return
6300 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   "
6301 ad=int(rnd(1)*6)+1
6302 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ad):gosub11000:return
6400 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   "
6401 ae=int(rnd(1)*6)+1
6402 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$(ae):gosub11000:return
6500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                               "
6501 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}wohin  "
6510 inputo:goto6520
6511 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                               "
6512 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}wohin "
6513 inputo
6520 ifo=1then7000:else6530
6530 ifo=2then7100:else6540
6540 ifo=3then7200:else6550
6550 ifo=4then7300:else6560
6560 ifo=5then7400:else6570
6570 ifo=6then7500:else6580
6580 ifo=8then7700:else6590
6590 ifo=9then7700:else6600
6600 ifo=10then7700:else6610
6610 ifo=11then9060:else6620
6620 ifo=12then9095:else6630
6630 ifo=13then9300:else6640
6640 ifo=14then9400:else6650
6650 goto100
7000 ifc(1)=1then6511:a(1)=0:elseifaa=1thena(1)=a(1)+1:elseaa=0
7001 ifab=1thena(1)=a(1)+1:elseab=0
7002 ifac=1thena(1)=a(1)+1:elseac=0
7003 ifad=1thena(1)=a(1)+1:elsead=0
7004 ifae=1thena(1)=a(1)+1:elseae=0:c(1)=1
7005 goto100
7100 ifc(2)=1then6511:a(2)=0:elseifaa=2thena(2)=a(2)+2:elseaa=0
7101 ifab=2thena(2)=a(2)+2:elseab=0
7102 ifac=2thena(2)=a(2)+2:elseac=0
7103 ifad=2thena(2)=a(2)+2:elsead=0
7104 ifae=2thena(2)=a(2)+2:elseae=0:c(2)=1
7105 goto100
7200 ifc(3)=1then6511:a(3)=0:elseifaa=3thena(3)=a(3)+3:elseaa=0
7201 ifab=3thena(3)=a(3)+3:elseab=0
7202 ifac=3thena(3)=a(3)+3:elseac=0
7203 ifad=3thena(3)=a(3)+3:elsead=0
7204 ifae=3thena(3)=a(3)+3:elseae=0:c(3)=1
7205 goto100
7300 ifc(4)=1then6511:a(4)=0:elseifaa=4thena(4)=a(4)+4:elseaa=0
7301 ifab=4thena(4)=a(4)+4:elseab=0
7302 ifac=4thena(4)=a(4)+4:elseac=0
7303 ifad=4thena(4)=a(4)+4:elsead=0
7304 ifae=4thena(4)=a(4)+4:elseae=0:c(4)=1
7305 goto100
7400 ifc(5)=1then6511:a(5)=0:elseifaa=5thena(5)=a(5)+5:elseaa=0
7401 ifab=5thena(5)=a(5)+5:elseab=0
7402 ifac=5thena(5)=a(5)+5:elseac=0
7403 ifad=5thena(5)=a(5)+5:elsead=0
7404 ifae=5thena(5)=a(5)+5:elseae=0:c(5)=1
7405 goto100
7500 ifc(6)=1then6511:a(6)=0:elseifaa=6thena(6)=a(6)+6:elseaa=0
7501 ifab=6thena(6)=a(6)+6:elseab=0
7502 ifac=6thena(6)=a(6)+6:elseac=0
7503 ifad=6thena(6)=a(6)+6:elsead=0
7504 ifae=6thena(6)=a(6)+6:elseae=0:c(6)=1
7505 goto100
7600 a(7)=a(1)+a(2)+a(3)+a(4)+a(5)+a(6)
7601 ifa(7)>62thena(7)=a(7)+35:goto100
7700 ifaa=1thenba=ba+1
7701 ifab=1thenba=ba+1
7702 ifac=1thenba=ba+1
7703 ifad=1thenba=ba+1
7704 ifae=1thenba=ba+1
7800 ifaa=2thenbb=bb+1
7801 ifab=2thenbb=bb+1
7802 ifac=2thenbb=bb+1
7803 ifad=2thenbb=bb+1
7804 ifae=2thenbb=bb+1
7900 ifaa=3thenbc=bc+1
7901 ifab=3thenbc=bc+1
7902 ifac=3thenbc=bc+1
7903 ifad=3thenbc=bc+1
7904 ifae=3thenbc=bc+1
8000 ifaa=4thenbd=bd+1
8001 ifab=4thenbd=bd+1
8002 ifac=4thenbd=bd+1
8003 ifad=4thenbd=bd+1
8004 ifae=4thenbd=bd+1
8100 ifaa=5thenbe=be+1
8101 ifab=5thenbe=be+1
8102 ifac=5thenbe=be+1
8103 ifad=5thenbe=be+1
8104 ifae=5thenbe=be+1
8200 ifaa=6thenbf=bf+1
8201 ifab=6thenbf=bf+1
8202 ifac=6thenbf=bf+1
8203 ifad=6thenbf=bf+1
8204 ifae=6thenbf=bf+1
8205 ifo=10then8500:else8206
8206 ifo=9then8400:else8207
8207 ifo=8then8300
8300 ifc(7)=1then6511:else8301
8301 ifba>2orbb>2orbc>2orbd>2orbe>2orbf>2then8302:elsec(7)=1:a(8)=0:goto100
8302 a(8)=aa+ab+ac+ad+ae:c(7)=1:goto100
8400 ifc(8)=1then6511:elseifba>3orbb>3orbc>3orbd>3orbe>3orbf>3then8402
8401 c(8)=1:a(9)=0:goto100
8402 a(9)=aa+ab+ac+ad+ae:c(8)=1:goto100
8500 ifc(9)=1then6511:elseifba=3then8501:else8600
8501 ifbb=2orbc=2orbd=2orbe=2orbf=2then9050:else8600
8600 ifbb=3then8601:else8700
8601 ifba=2orbc=2orbd=2orbe=2orbf=2then9050:else8700
8700 ifbc=3then8701:else8800
8701 ifba=2orbb=2orbd=2orbe=2orbf=2then9050:else8800
8800 ifbd=3then8801:else8900
8801 ifba=2orbb=2orbc=2orbe=2orbf=2then9050:else8900
8900 ifbe=3then8901:else9000
8901 ifba=2orbb=2orbc=2orbd=2orbf=2then9050:else9000
9000 ifbf=3then9001:else9020
9001 ifba=2orbb=2orbc=2orbd=2orbe=2then9050:else9020
9020 a(10)=0:c(9)=1:goto100
9050 a(10)=25:c(9)=1:goto100
9060 ifc(10)=1then6511:elsea(11)=30:c(10)=1:goto100
9095 ifc(11)=1then6511:else9098
9098 ifaa<>abandaa<>acandaa<>adandaa<>aethen9102:else9108
9102 ifab<>acandab<>adandab<>aeandab<>aathen9103:else9108
9103 ifac<>aaandac<>abandac<>adandac<>aethen9104:else9108
9104 ifad<>aaandad<>abandad<>acandad<>aethen9105:else9108
9105 ifae<>aaandae<>abandae<>acandae<>adthen9106:else9108
9106 ifaa>1andab>1andac>1andad>1andae>1then9110:else9107
9107 ifaa<6andab<6andac<6andad<6andae<6then9110:else9108
9108 a(12)=0:c(11)=1:goto100
9110 a(12)=40:c(11)=1:goto100
9300 ifc(12)=1then6511:else9302
9302 ifaa=abandaa=acandaa=adandaa=aethen9306:else9305
9305 a(13)=0:c(12)=1:goto100
9306 a(13)=50:c(12)=1:goto100
9400 ifc(13)=1then6511:elsea(14)=aa+ab+ac+ad+ae:c(13)=1:goto100
9450 a(15)=a(7)+a(8)+a(9)+a(10)+a(11)+a(12)+a(13)+a(14):return
9500 a(15)=a(7)+a(8)+a(9)+a(10)+a(11)+a(12)+a(13)+a(14):k=100:goto103
9600 fortt=1to3000:next
9610 ifa(15)>290then9620:else9700
9620 scnclr:forp=1to38
9630 readv(p),w(p)
9640 sound1,v(p),w(p)
9650 print"{rvof}{red}S{grn}{rvon}"a(15)"{rvof}{left}{dblu}SS";"{red}S{grn}{rvon}"a(15)"{rvof}{left}{red}SS";"{red}S{grn}{rvon}"a(15)"{rvof}{left}{red}SS";"{red}S{pur}{rvon}"a(15)"{rvof}{left}{red}SS";
9660 nextp
9670 data 643,20,739,20,739,10,770,10,798,20,739,20,834,40
9680 data 798,30,798,10,810,20,834,10,810,10,798,10,810,10
9690 data 834,20,770,10,739,10,770,10,798,10,770,20
9691 data1021,2 ,643,20,739,20,739,10,770,10,798,20,739,20,834,40,798,30
9692 data798,10,810,10,834,10,798,10,810,10,770,30,739,10,1021,2,739,30
9693 restore
9695 fortt=1to3000:next
9700 ifa(15)>tthent=a(15):goto9710:else9900
9710 color1,2:color0,1:color4,1
9720 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}highscore:{rvon}"t"{rvof}"
9900 fortt=1to3000:next
9901 print"{down}{down}{down}nochmal (j/n)?"
9910 getkeya$:ifa$="j"then20:elseend
10000 a$(1)="{rght}{down}Q"
10010 a$(2)="{red}Q{down}{down}{rght}Q{blk}"
10020 a$(3)="{cyn}Q{down}Q{down}Q{blk}"
10030 a$(4)="{pur}Q{rght}Q{down}{left}{left}{left}{down}Q{rght}Q{blk}"
10040 a$(5)="{grn}Q{rght}Q{down}{left}{left}Q{down}{left}{left}Q{rght}Q{blk}"
10050 a$(6)="{dblu}Q{rght}Q{down}{left}{left}{left}Q{rght}Q{down}{left}{left}{left}Q{rght}Q{blk}"
10060 return
11000 sound1,1000,6:return

Listing zu »YAATZEE«