mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-12-02 10:50:58 +00:00
1 line
33 KiB
Plaintext
1 line
33 KiB
Plaintext
|
***************** CRAPS *****************************jrg 06okt88nach Wil Baden Da es in Deutschland das W<>rfelspiel CRAPS nicht gibt, habe ich diesem Begriff ein W<>rfel- und Trinkspiel aus der Schulzeit unterlegt. Bei diesem Spiel steht in der Tischmitte ein Vorrat an gef<65>lltenGl<47>sern. Danach soll ein Mitspieler abh<62>ngig von seinem Wurf entweder ein neues Glas aus der Tischmitte vor sich stellen oder eines seiner Gl<47>ser seinem Nachbarn zur linken oder zur rechten zuschieben oder alle vor ihm stehenden Gl<47>ser austrinken. Zuordnung: 1=nehmen, 2/3=links, 4/5=rechts, 6 trinken \ nehmen trinken links rechts schieben jrg 03feb89 : nehmen bright ." ein Glas nehmen" normal 2 spaces ; : trinken bright ." alle Gl<47>ser austrinken" normal 2 spaces ; : links bright ." ein Glas nach LINKS" normal 2 spaces ; : rechts bright ." ein Glas nach RECHTS" normal 2 spaces ; : schieben ; : Anfrage ." Sollen Sie nehmen, trinken oder schieben? " cr ." Bitte Ihre Augenzahl und <cr> : " ; : Gl<47>ckwunsch cr ." Viel Gl<47>ck beim n<>chsten Wurf ... " ; cr .( Spr<70>che geladen ) \ Auswertung mit IF...THEN / ENDIF jrg 03feb89 ' THEN Alias ENDIF immediate restrict : Auswertung ( 1<= Wurfergebnis <=6 -- ) dup 1 = IF nehmen ENDIF dup 2 = IF links schieben ENDIF dup 3 = IF links schieben ENDIF dup 4 = IF rechts schieben ENDIF dup 5 = IF rechts schieben ENDIF dup 6 = IF trinken ENDIF 1 6 between not IF invers ." Betrug!" normal ENDIF ; \ =or jrg 06okt88 code =or ( n1 f1 n2 -- n1 f2 ) A D xchg D pop S W mov W ) A cmp 0= ?[ -1 # D mov ]? next end-code \ : =or ( n1 f1 n2 -- n1 f2 ) 2 pick = or ;
|