home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_4_of_4_Side_B.d64 / module3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  490 lines
  1. 10 rem mensch aegrere dich nicht               teil iii
  2. 100 rem dimensionieren
  3. 110 poke657,128:poke774,226:poke775,252
  4. 120 v=53248:pokev+21,0
  5. 130 dims(4),na$(4),st(16),d(4),f$(4),f(4),dr(4),z(16),b(16),zf(16)
  6. 140 dimpo(75),ge(75),fa(75)
  7. 150 print"[147]"
  8. 160 fori=1to16:z(i)=3:next
  9. 170 d(1)=4:d(2)=4:d(3)=4:d(4)=4
  10. 180 rem zeichenverschiebung
  11. 190 fori=51200to51252
  12. 200 readx:pokei,x:s=s+x:next
  13. 210 data120,165,1,72,41,251,133,1,169,208,133,3
  14. 220 data169,48,133,5,160,0,132,2,132,4,162,32
  15. 230 data177,2,145,4,200,208,249,230,3,230,5,202
  16. 240 data208,242,104,133,1,173,24,208,41,241,9,12
  17. 250 data141,24,208,88,96
  18. 260 sys51200
  19. 270 rem eingabemodus
  20. 280 poke53280,0:poke53281,0:t=20
  21. 290 rem buchstabenaenderungen
  22. 300 fori=0to2
  23. 310 readas
  24. 320 forx=0to7
  25. 330 readda
  26. 340 poke12288+8*as+x,da
  27. 350 nextx:nexti
  28. 360 data27,219,60,102,126,102,102,102,0
  29. 370 data85,102,0,102,102,102,102,60,0
  30. 380 data29,102,60,102,102,102,102,60,0
  31. 390 n=0:c=0
  32. 400 fori=1to4:readf$(i),f(i):next
  33. 410 data"yel.",7,"blue",6,"green",5,"red",2
  34. 420 print"[147]         we [129]presents"
  35. 430 fora=0to20:gosub630:next:t=700
  36. 440 print"[155]       mensch [rgere dich nicht"
  37. 450 fora=0to20:forz=1to15:poke1231+54272+int(25*rnd(1)),z:next:next
  38. 460 print"[158]              notation:   "
  39. 470 print"             [195][195][195][195][195][195][195][195][195][195][192][192]    "
  40. 480 print" this game is set up by the rules,"
  41. 490 print"            by which i"
  42. 500 print"       mensch [rgere dich nicht[158]"
  43. 510 print"                play"
  44. 520 print" -there could be different opinions"
  45. 530 print"space[146]"
  46. 540 poke198,0:wait198,1
  47. 550 print"[147][155]              re-marks "
  48. 560 print"             [192][192][192][192][192][192][192][192][192][192][192][155]
  49. 570 [153]"*dice are thrown with spacewait."
  50. 580 [153]"*the computer player throws and draws   by it-self...."
  51. 590 [153]"*the pawn is chosen with spacewait          and drawn with returnwait"
  52. 600 [153]"that is it - the rest is done by the computer."
  53. 610 [153]"spacewait"
  54. 620 t[178]2000:[151]198,0:[146]198,1:[137]640
  55. 630 [129]b[178]0[164]t:[130]:[153]"";:[142]
  56. 640 [153]"load"
  57. 650 n[178]0:c[178]0:a$[178]""
  58. 660 [129]i[178]1[164]4
  59. 670 [151]53280,f(i):[153]"load   would a player like ";f$(i);"  ywait/nwait"
  60. 680 [161]a$:[139]a$[178]""[167]680
  61. 690 [139]a$[178]"y"[167]n[178]n[170]1:s(i)[178]2:[137]810
  62. 700 [139]a$[178]"n"[167]720
  63. 710 [137]680
  64. 720 [153]"  shall the computer take players":[153][166]9);"place?? ywait/nwait
  65. 730 geta$:ifa$=""then730
  66. 740 ifa$="y"thenc=c+1:s(i)=1:on c goto770,780,790,800
  67. 750 ifa$="n"then:s(i)=0:goto850
  68. 760 goto730
  69. 770 na$(i)="computer 1":goto850
  70. 780 na$(i)="computer 2":goto850
  71. 790 na$(i)="computer 3":goto850
  72. 800 na$(i)="computer 4":goto850
  73. 810 print" please enter the name of player":print"      ";
  74. 820 print"-not more then 10 letters!    "
  75. 830 poke19,64:inputna$:poke19,0
  76. 840 na$(i)=left$(na$,10)
  77. 850 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":next:poke53280,0
  78. 860 ifn+c<2thenprint"[147]2 players are needed!!":you=1:goto880
  79. 870 print"[147]":goto890
  80. 880 forz=1to1000:next:goto640
  81. 890 print"[147]":forq=1to4
  82. 900 ifs(q)=0thenna$(q)="not used"
  83. 910 print"player";q;": ";na$(q)
  84. 920 next
  85. 930 print"is this correct?? y/n";
  86. 940 geta$:ifa$=""then940
  87. 950 ifa$="y"thenprint"[157][157][157][157][157]!    ":goto980
  88. 960 ifa$="n"thenrun
  89. 970 goto940
  90. 980 rem zeichenaenderungen
  91. 990 fori=0to27
  92. 1000 readas
  93. 1010 forx=0to7
  94. 1020 readda
  95. 1030 poke12288+8*as+x,da
  96. 1040 nextx:nexti
  97. 1050 data35,0,0,0,7,31,63,127,127
  98. 1060 data36,0,0,0,224,248,252,254,254
  99. 1070 data37,127,127,63,31,7,0,0,0
  100. 1080 data38,254,254,252,248,224,0,0,0
  101. 1090 data81,0,0,0,7,24,32,64,64
  102. 1100 data82,0,0,0,224,24,4,2,2
  103. 1110 data83,64,64,32,24,7,0,0,0
  104. 1120 data84,2,2,4,24,224,0,0,0
  105. 1130 data86,1,7,15,15,15,7,3,3
  106. 1140 data87,128,224,240,240,240,224,192,192
  107. 1150 data88,7,7,15,15,31,31,15,0
  108. 1160 data89,224,224,240,240,248,248,240,0
  109. 1170 data39,0,0,0,7,31,62,124,122
  110. 1180 data40,0,0,0,224,248,124,62,94
  111. 1190 data41,126,126,62,31,7,0,0,0
  112. 1200 data42,126,126,124,248,224,0,0,0
  113. 1210 data68,0,0,0,7,31,63,127,124
  114. 1220 data69,0,0,0,224,248,124,190,30
  115. 1230 data70,124,127,63,31,7,0,0,0
  116. 1240 data71,30,190,124,248,224,0,0,0
  117. 1250 data72,0,0,0,7,31,62,126,126
  118. 1260 data73,0,0,0,224,248,124,126,126
  119. 1270 data74,122,124,62,31,7,0,0,0
  120. 1280 data75,94,62,124,248,224,0,0,0
  121. 1290 data76,0,0,0,7,31,62,125,120
  122. 1300 data77,0,0,0,224,248,252,254,30
  123. 1310 data78,120,125,62,31,7,0,0,0
  124. 1320 data79,30,254,252,248,224,0,0,0
  125. 1330 rem bildaufbau
  126. 1340 print"[147]mensch";spc(8);"[rgere":print"dich";spc(11);"nicht"
  127. 1350 print"":po(0)=1532
  128. 1360 fori=1to16:readpo:readfa:po(i)=po:fa(i)=fa
  129. 1370 ifs(int((i-1)/4)+1)=0thenge(i)=35:goto1390
  130. 1380 ge(i)=86
  131. 1390 next
  132. 1400 ge=81:fa=12
  133. 1410 fori=17to56:readpo:po(i)=po:ge(i)=ge:fa(i)=fa
  134. 1420 next
  135. 1430 ge=35
  136. 1440 fori=57to72:readpo:readfa:po(i)=po:ge(i)=ge:fa(i)=fa
  137. 1450 next
  138. 1460 ge(17)=72:fa(17)=7
  139. 1470 ge(27)=76:fa(27)=6
  140. 1480 ge(37)=39:fa(37)=5
  141. 1490 ge(47)=68:fa(47)=2
  142. 1500 fori=1to72
  143. 1510 pokepo(i),ge(i):pokepo(i)+54272,fa(i)
  144. 1520 pokepo(i)+1,ge(i)+1:pokepo(i)+54273,fa(i)
  145. 1530 pokepo(i)+40,ge(i)+2:pokepo(i)+54312,fa(i)
  146. 1540 pokepo(i)+41,ge(i)+3:pokepo(i)+54313,fa(i)
  147. 1550 next
  148. 1560 fori=1to16:ge(i)=35:next
  149. 1570 fori=1090to1930step40:pokei,93:pokei+54272,5:next
  150. 1580 poke1650,107:fori=1651to1663:pokei,67:pokei+54272,5:next
  151. 1590 data1162,7,1165,7,1242,7,1245,7,1722,6,1725,6,1802,6,1805,6
  152. 1600 data1707,5,1710,5,1787,5,1790,5,1147,2,1150,2,1227,2,1230,2,1078
  153. 1610 data1158,1238,1318,1398,1400,1402,1404,1406,1486,1566,1564,1562,1560,1558
  154. 1620 data1638,1718,1798,1878,1876,1874,1794,1714,1634,1554,1552,1550,1548,1546
  155. 1630 data1466,1386,1388,1390,1392,1394,1314,1234,1154,1074,1076
  156. 1640 data1156,7,1236,7,1316,7,1396,7,1484,6,1482,6,1480,6,1478,6
  157. 1650 data1796,5,1716,5,1636,5,1556,5,1468,2,1470,2,1472,2,1474,2
  158. 1660 rem grundstellungen
  159. 1670 fori=1to16:st(i)=i:next
  160. 1680 v=53248:pokev+16,126
  161. 1690 poke2040,184:pokev+39,1
  162. 1700 pokev+23,126:pokev+29,126
  163. 1710 forz=2to12step2:pokev+z,15:pokev+z+1,195:pokev+39+z/2,15
  164. 1720 poke2040+z/2,184+z/2:next
  165. 1730 poke211,30:poke214,2:sys58640:print"mensch":print"[157][157][157][157][157][157][157][157][157][157][152][rgere"
  166. 1740 print"[157][157][157][157][157][157][157][157][157][152]dich":print"[157][157][157][157][157][157][157][157][157][157][151]nicht!";""
  167. 1750 print
  168. 1760 forz=0to6
  169. 1770 forn=0to62:readq:poke11776+z*64+n,q:next:next
  170. 1780 data63,255,252,32,0,4,32
  171. 1790 data0,4,32,0,4,32,0
  172. 1800 data4,32,0,4,32,0,4
  173. 1810 data32,0,4,32,0,4,32
  174. 1820 data0,4,32,0,4,32,0
  175. 1830 data4,32,0,4,32,0,4
  176. 1840 data32,0,4,32,0,4,32
  177. 1850 data0,4,32,0,4,32,0
  178. 1860 data4,32,0,4,63,255,252
  179. 1870 data7,255,254,15,255,253,31
  180. 1880 data255,251,63,255,247,127,255
  181. 1890 data239,0,0,31,127,255,223
  182. 1900 data127,255,223,127,255,223,127
  183. 1910 data255,223,127,255,223,127,255
  184. 1920 data223,127,31,223,127,31,223
  185. 1930 data127,31,223,127,255,223,127
  186. 1940 data255,222,127,255,220,127,255
  187. 1950 data216,127,255,208,127,255,192
  188. 1960 data7,255,254,15,255,253,31
  189. 1970 data255,251,63,255,247,127,255
  190. 1980 data239,0,0,31,127,255,223
  191. 1990 data127,248,223,127,248,223,127
  192. 2000 data248,223,127,255,223,127,255
  193. 2010 data223,127,255,223,127,255,223
  194. 2020 data127,255,223,127,255,223,127
  195. 2030 data255,222,99,255,220,99,255
  196. 2040 data216,99,255,208,127,255,192
  197. 2050 data7,255,254,15,255,253,31
  198. 2060 data255,251,63,255,247,127,255
  199. 2070 data239,0,0,31,127,255,223
  200. 2080 data127,248,223,127,248,223,127
  201. 2090 data248,223,127,255,223,127,255
  202. 2100 data223,127,31,223,127,31,223
  203. 2110 data127,31,223,127,255,223,127
  204. 2120 data255,222,99,255,220,99,255
  205. 2130 data216,99,255,208,127,255,192
  206. 2140 data7,255,254,15,255,253,31
  207. 2150 data255,251,63,255,247,127,255
  208. 2160 data239,0,0,31,127,255,223
  209. 2170 data99,248,223,99,248,223,99
  210. 2180 data248,223,127,255,223,127,255
  211. 2190 data223,127,255,223,127,255,223
  212. 2200 data127,255,223,127,255,223,127
  213. 2210 data255,222,99,248,220,99,248
  214. 2220 data216,99,248,208,127,255,192
  215. 2230 data7,255,254,15,255,253,31
  216. 2240 data255,251,63,255,247,127,255
  217. 2250 data239,0,0,31,127,255,223
  218. 2260 data99,248,223,99,248,223,99
  219. 2270 data248,223,127,255,223,127,255
  220. 2280 data223,127,31,223,127,31,223
  221. 2290 data127,31,223,127,255,223,127
  222. 2300 data255,222,99,248,220,99,248
  223. 2310 data216,99,248,208,127,255,192
  224. 2320 data7,255,254,15,255,253,31
  225. 2330 data255,251,63,255,247,127,255
  226. 2340 data239,0,0,31,127,255,223
  227. 2350 data99,248,223,99,248,223,99
  228. 2360 data248,223,127,255,223,127,255
  229. 2370 data223,99,248,223,99,248,223
  230. 2380 data99,248,223,127,255,223,127
  231. 2390 data255,222,99,248,220,99,248
  232. 2400 data216,99,248,208,127,255,192
  233. 2410 rem stechen
  234. 2420 rem ifpeek(po(k))<>18thensys64738
  235. 2430 poke211,0:poke214,24:sys58640
  236. 2440 print"let's throw dice to begin[145]":fori=1to1000:next
  237. 2450 a=int(rnd(1)*4+3):g=int(4*rnd(1))+1
  238. 2460 ifs(g)=0then2450
  239. 2470 forq=1to4:j=q
  240. 2480 ifs(q)=0then2550
  241. 2490 poke646,f(q):print"    ";na$(q);" is due!            [145]":pokev+21,0
  242. 2500 ifs(q)=1thenfori=1to1000:next:goto2520
  243. 2510 poke198,0:wait198,1
  244. 2520 ifq=gthenw=a:gosub2870:goto2550
  245. 2530 w=rnd(1)*a:w=int(w):ifw=0thenw=1
  246. 2540 gosub2870
  247. 2550 next
  248. 2560 pokev+21,0
  249. 2570 poke646,f(g):print"    ";na$(g);" is the winner!        [145]"
  250. 2580 fori=1to800:next
  251. 2590 j=g:goto2640
  252. 2600 rem spielschleife
  253. 2610 j=0
  254. 2620 j=j+1:ifj=5thenj=1
  255. 2630 ifs(j)=0then2620
  256. 2640 ifd(j)=4thengosub3360:goto2720
  257. 2650 ifd(j)<4anddr(j)>0andd(j)+dr(j)=4then2670
  258. 2660 goto2710
  259. 2670 sp=0:fori=56+4*jto56+4*j+1-dr(j)step-1
  260. 2680 ifpeek(po(i))=86thensp=sp+1
  261. 2690 next
  262. 2700 ifsp=dr(j)thengosub3360:goto2720
  263. 2710 gosub2800:as=0
  264. 2720 ifwu=6thengosub3470
  265. 2730 ifwu=6thengosub3470
  266. 2740 ifwu=6thengosub3470
  267. 2750 ifas=1thenas=0:goto2620
  268. 2760 gosub2950
  269. 2770 ifs(j)=1thengosub3700
  270. 2780 ifs(j)=2thengosub3130
  271. 2790 goto2620
  272. 2800 rem wuerfeln
  273. 2810 poke646,f(j):pokev+21,0
  274. 2820 print"                  [145]"
  275. 2830 printna$(j);" your turn!               [145]":w=int(6*rnd(1))+1
  276. 2840 wu=w
  277. 2850 ifs(j)=1thenfori=1to1200:next:goto2870
  278. 2860 ifj<>3thenpoke198,0:wait198,1
  279. 2870 si=54272:poke54277,5:poke54278,0:poke54296,15
  280. 2880 forz=1to8:fort=1to50:next
  281. 2890 poke54279,100:pokesi+8,8:pokesi+12,0:pokesi+11,129:pokesi+13,16:pokesi+4,0
  282. 2900 pokesi+1,6:pokesi+4,129:pokesi+24,15:pokesi+24,15:pokesi+11,0:next
  283. 2910 pokev+21,2^w
  284. 2920 poke54276,0:poke54277,0:poke54278,0
  285. 2930 fori=1to1000:next
  286. 2940 return
  287. 2950 rem figuren sperren
  288. 2960 fori=(j-1)*4+1toj*4:z(i)=3
  289. 2970 ifst(i)<17thenz(i)=0:goto3110
  290. 2980 ifj=1then3010
  291. 2990 ifst(i)+wu>56andst(i)<=56thenw=wu-40:goto3010
  292. 3000 ifst(i)+wu>j*10+6andst(i)<=j*10+6thenw=wu+46-6*j
  293. 3010 ifst(i)+w>56+j*4thenz(i)=0:goto3110
  294. 3020 ifrs=1thenreturn
  295. 3030 ifst(i)<=56andst(i)+w>56andst(i)+w<=56+j*4thenz(i)=2
  296. 3040 fo=0:forfi=1to16
  297. 3050 ifst(i)+w=st(fi)thenfo=fi
  298. 3060 nextfi:iffo=0then3110
  299. 3070 f1=int((i-1)/4)+1
  300. 3080 f2=int((fo-1)/4)+1
  301. 3090 iff(f1)=f(f2)thenz(i)=0:goto3110
  302. 3100 ifst(i)+w<=56+j*4andz(i)<>2thenz(i)=1:zf(i)=fo
  303. 3110 ifrs=1thenreturn
  304. 3120 w=wu:nexti:return
  305. 3130 rem eingabe
  306. 3140 f=(j-1)*4
  307. 3150 ifz(f+1)+z(f+2)+z(f+3)+z(f+4)=0then4660
  308. 3160 s=0:forq=1to4
  309. 3170 ifz(f+q)<>0thens=s+5
  310. 3180 next
  311. 3190 ifs>5then3220
  312. 3200 forq=1to4:ifz(f+q)<>0thena$=chr$(13):f=(j-1)*4+q:goto3300
  313. 3210 next
  314. 3220 poke646,f(j):print"choose pawn: space[146]   move : return[146][145]"
  315. 3230 t=t+1:ift>=5thent=1
  316. 3240 f=(j-1)*4+t
  317. 3250 ifz(f)=0then3230
  318. 3260 y=(int((po(st(f))-1024)/40)+1)*8
  319. 3270 x=(po(st(f))-983-5*y)*8
  320. 3280 pokev,x+12:pokev+1,y+40:pokev+21,1+2^wu
  321. 3290 geta$:ifa$=""then3290
  322. 3300 ifa$=chr$(13)thenpokev+21,0:goto3330
  323. 3310 ifa$=" "thenw=wu:pokev+21,2^wu:goto3230
  324. 3320 goto3290
  325. 3330 print"           [145]":rs=1:i=f:gosub2980:rs=0
  326. 3340 gosub4190
  327. 3350 return
  328. 3360 rem 3-mal wuerfeln
  329. 3370 ifs(j)=1thenfori=1to1000:next:goto3380
  330. 3380 pokev+21,0
  331. 3390 poke646,f(j):printna$(j);" can throw 3 times!     [145]"
  332. 3400 fori=1to1300:next
  333. 3410 forq=1to3
  334. 3420 gosub2800
  335. 3430 ifs(j)=1orq=3thenfori=1to1000:next:goto3440
  336. 3440 ifw=6thengosub3470:return
  337. 3450 next
  338. 3460 as=1:return
  339. 3470 rem ansetzen
  340. 3480 as=1
  341. 3490 forf=(j-1)*4+1to4*j
  342. 3500 ifst(f)<17then3520
  343. 3510 next
  344. 3520 ifd(j)=0then4460
  345. 3530 w=1
  346. 3540 gosub2950:ifs(j)=2andd(j)=0thengosub3130
  347. 3550 ifs(j)=1andd(j)=0thengosub3700
  348. 3560 d(j)=d(j)-1:w=1
  349. 3570 poke646,f(j):printna$(j);" must start!          [145]"
  350. 3580 forfi=1to16
  351. 3590 ifst(fi)=j*10+7thenz(f)=1:zf(f)=fi:goto3610
  352. 3600 next
  353. 3610 gosub4190
  354. 3620 ifd(j)=0thengosub2800:goto4460
  355. 3630 print"free the arrow!                  [145]":goto3640
  356. 3640 fori=1to1000:next:gosub2800
  357. 3650 gosub2950:ifz(f)=0ands(j)=2thengosub3130:goto3680
  358. 3660 ifz(f)=0ands(j)=1thengosub3700:goto3680
  359. 3670 gosub4190
  360. 3680 ifwu=6thengosub2800:as=0
  361. 3690 return
  362. 3700 rem denkphase
  363. 3710 w=wu:wu=w:f=(j-1)*4+1:gf=0
  364. 3720 ifz(f)+z(f+1)+z(f+2)+z(f+3)=0then4660
  365. 3730 fori=ftof+3
  366. 3740 ifz(i)=0thenb(i)=0:goto3870
  367. 3750 rs=1:gosub2980:rs=0:b(i)=0
  368. 3760 sv=0:sn=0
  369. 3770 ifst(i)+w=17andd(1)<>0thenb(i)=1:goto3870
  370. 3780 ifst(i)+w=27andd(2)<>0thenb(i)=1:goto3870
  371. 3790 ifst(i)+w=37andd(3)<>0thenb(i)=1:goto3870
  372. 3800 ifst(i)+w=47andd(4)<>0thenb(i)=1:goto3870
  373. 3810 ifst(i)=17andd(1)<>0thenb(i)=30:goto3870
  374. 3820 ifst(i)=27andd(2)<>0thenb(i)=30:goto3870
  375. 3830 ifst(i)=37andd(3)<>0thenb(i)=30:goto3870
  376. 3840 ifst(i)=47andd(4)<>0thenb(i)=30:goto3870
  377. 3850 ifz(i)=1then3890
  378. 3860 goto3970
  379. 3870 next
  380. 3880 goto4130
  381. 3890 rem schlagen
  382. 3900 forfi=1to16
  383. 3910 ifi=fithen3930
  384. 3920 ifst(fi)=st(i)+wthen3940
  385. 3930 next
  386. 3940 b(i)=st(i)-j*10
  387. 3950 ifb(i)<0thenb(i)=b(i)+40
  388. 3960 goto3870
  389. 3970 rem lage vorher
  390. 3980 forfi=1to16
  391. 3990 ifi=fithen4010
  392. 4000 ifst(fi)+6>=st(i)andst(fi)<st(i)thensv=sv+1
  393. 4010 next
  394. 4020 b(i)=sv*5
  395. 4030 ifz(i)=2thenb(i)=b(i)+50:goto3870
  396. 4040 rem lage nacher
  397. 4050 forfi=1to16
  398. 4060 ifi=fithen4080
  399. 4070 ifst(fi)+6>=st(i)+wandst(fi)<st(i)+wthensn=sn+1
  400. 4080 next
  401. 4090 ifsn>svthenb(i)=2:goto3870
  402. 4100 ifsn=svthenb(i)=3:goto3870
  403. 4110 b(i)=4+(sv-sn)*3
  404. 4120 goto3870
  405. 4130 rem auswahl
  406. 4140 w=wu:f=(j-1)*4+1:c=f
  407. 4150 fori=f+1tof+3:ifb(c)<b(i)thenc=i
  408. 4160 next
  409. 4170 f=c:i=f:rs=1:gosub2980:rs=0:gosub4190
  410. 4180 return
  411. 4190 rem zugphase
  412. 4200 ifz(f)=1thengosub4530
  413. 4210 ifst(f)<=56andst(f)+w>56thendr(j)=dr(j)+1:wp=w:gosub2950:w=wp
  414. 4220 y=(int((po(st(f))-1024)/40)+1)*8
  415. 4230 x=(po(st(f))-983-5*y)*8
  416. 4240 pokev,x+12:pokev+1,y+40:pokev+21,1
  417. 4250 forz=1to300:next
  418. 4260 pokepo(st(f)),ge(st(f))
  419. 4270 pokepo(st(f))+54272,fa(st(f))
  420. 4280 pokepo(st(f))+1,ge(st(f))+1
  421. 4290 pokepo(st(f))+54273,fa(st(f))
  422. 4300 pokepo(st(f))+40,ge(st(f))+2
  423. 4310 pokepo(st(f))+54312,fa(st(f))
  424. 4320 pokepo(st(f))+41,ge(st(f))+3
  425. 4330 pokepo(st(f))+54313,fa(st(f))
  426. 4340 ifst(f)<17thenst(f)=j*10+6
  427. 4350 pokev+21,0
  428. 4360 y=(int((po(st(f)+w)-1024)/40)+1)*8
  429. 4370 x=(po(st(f)+w)-983-5*y)*8
  430. 4380 pokev,x+12:pokev+1,y+40:pokev+21,1
  431. 4390 pokepo(st(f)+w),86:pokepo(st(f)+w)+54272,f(j)
  432. 4400 pokepo(st(f)+w)+1,87:pokepo(st(f)+w)+54273,f(j)
  433. 4410 pokepo(st(f)+w)+40,88:pokepo(st(f)+w)+54312,f(j)
  434. 4420 pokepo(st(f)+w)+41,89:pokepo(st(f)+w)+54313,f(j)
  435. 4430 st(f)=(st(f)+w)
  436. 4440 ifdr(j)=4thengosub4770
  437. 4450 forz=1to300:next:pokev+21,0:return
  438. 4460 rem nochmal wuerfeln
  439. 4470 gosub2950
  440. 4480 ifs(j)=2thengosub3130
  441. 4490 ifs(j)=1thengosub3700
  442. 4500 ifwu=6andd(j)<>0thengosub3470:goto2620
  443. 4510 ifwu=6thengosub2800:wu=w:goto4460
  444. 4520 return
  445. 4530 rem schlagen
  446. 4540 ws=w:ff=f:f=zf(f)
  447. 4550 j=int((f-1)/4)+1:d(j)=d(j)+1
  448. 4560 w=f-st(f)
  449. 4570 poke54276,0:poke54277,0:poke54278,0
  450. 4580 forx=15to0step-2
  451. 4590 poke54296,x:poke54277,15:poke54278,0:poke54273,16:poke54272,80:poke54276,129
  452. 4600 next
  453. 4610 poke54276,0:poke54277,0:poke54278,0
  454. 4620 gosub4220
  455. 4630 w=ws:f=ff
  456. 4640 j=int((f-1)/4)+1
  457. 4650 return
  458. 4660 rem naechster spieler
  459. 4670 poke646,f(j):printna$(j);"can not draw!        "
  460. 4680 poke54296,15
  461. 4690 poke54277,25
  462. 4700 poke54278,150
  463. 4710 poke54273,3:poke54272,100
  464. 4720 poke54276,33
  465. 4730 fort=1to200:next
  466. 4740 poke54276,0:poke54277,0:poke54278,0
  467. 4750 fori=1to1000:next
  468. 4760 return
  469. 4770 rem spielende
  470. 4780 poke646,f(j):printna$(j);" is the winner!!!!!    [145]"
  471. 4790 poke54296,15:forz=1to3
  472. 4800 poke54277,25
  473. 4810 poke54278,150
  474. 4820 poke54273,7:poke54272,193
  475. 4830 poke54276,33
  476. 4840 fort=1to200:next
  477. 4850 poke54276,0:poke54277,0:poke54278,0:next
  478. 4860 poke54277,25:poke54278,150:poke54273,6:poke54272,39:poke54276,33
  479. 4870 fort=1to500:next:poke54276,0:poke54277,0:poke54278,0
  480. 4880 poke198,0:wait198,1
  481. 4890 dr(j)=0:s(j)=0
  482. 4900 ifs(1)+s(2)+s(3)+s(4)=0then4960
  483. 4910 print"  want to play again ???? y/n [145]"
  484. 4920 geta$:ifa$=""then4920
  485. 4930 ifa$="y"then4970
  486. 4940 ifa$="n"then4960
  487. 4950 goto4920
  488. 4960 print"     -------end of game------[145]":poke198,0:wait198,1:run
  489. 4970 print"                                   [145]":return
  490.