mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 05:49:26 +00:00
1 line
15 KiB
Plaintext
1 line
15 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 \ LoadScreen jrg 31dez89 \needs :Does> 2 load 8 load cr .( positionelles CASE geladen ) cr \ :Does> f<>r Create <name> :Does> ... ;ks 25 aug 88jrg 31dez89 | : (does> here >r [compile] Does> ; : :Does> last @ 0= Abort" without reference" (does> current @ context ! hide 0 ] ; clear \\ : test cls 5 0 DO cr ." craps1 " I . ." mal" craps1 cr ." craps2 " I . ." mal" craps2 cr ." craps3 " I . ." mal" craps3 LOOP cr ." fertig." ; \ nehmen trinken links rechts schieben jrg 05feb89 : 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 ; : schimpfen invers ." Betrug! " normal ; : Anfrage cr ." 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 )
|