home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503c.d64 / shugun (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  15KB  |  525 lines
  1. 10 REM  **************************
  2. 20 REM  *                        *
  3. 30 REM  *    S  H  U  G  U  N    *
  4. 40 REM  *                        *
  5. 50 REM  *           BY           *
  6. 60 REM  *      ANDREAS GAST      *
  7. 70 REM  *    & RAINER WILHELM    *
  8. 80 REM  *                        *
  9. 90 REM  *    1984/85 ETTENHEIM   *
  10. 91 REM  *                        *
  11. 92 REM  **************************
  12. 93 :
  13. 94 REM  **************************
  14. 95 REM  * 'REM-ZEILEN' AUCH AB-  *
  15. 96 REM  * TIPPEN...              *
  16. 97 REM  **************************
  17. 121 :
  18. 125 REM ******************************
  19. 130 REM * TITELBILD                  *
  20. 132 REM ******************************
  21. 133 :
  22. 140 POKE53281,0:POKE53280,0:PRINTCHR$(142)CHR$(8)
  23. 150 PRINT"[147]";
  24. 160 PRINT" [213][195][195][195][195][195][192][195][195][195][201] [213][195][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][178][203][213][192][203]"
  25. 170 PRINT" [194][213][195][195][192][195][195][195][195][201][194] [171][195][203][171][178][203][171][192] [202][192][201][171][192] [221] [221] [221] [202][192][201] [190]"
  26. 180 PRINT" [194][194] A & R [194][194] [203]  [203][202] [202][192][203][202][192][203][202][192][203][202] [202] [203] [202][192][203] [190]"
  27. 190 PRINT" [194][194] [184][184][184][184][184] [194][194]   "
  28. 200 PRINT" [194][194] SOFT* [194][194]   "
  29. 210 PRINT" [194][202][195][195][192][195][195][195][195][203][194]       S [159]H [156]U G U [158]N"
  30. 220 PRINT" [202][195][195][195][201] [213][192][195][195][203]     "
  31. 230 PRINT" [176][195][195][195][203] [202][195][192][195][174]     [158]A STRATEGIC GAME"
  32. 240 PRINT" [194][197][162][146][197]   [197][162][146][197][171][201]"
  33. 250 PRINT" [173][195][195][195][195][195][195][192][195][195][189][194]       [158] FOR THE"
  34. 260 PRINT"            [221]             [150] [164][164][164][164]"
  35. 270 PRINT" [176][195][195][195][195][195][195][195][195][192][174][221]   [150] COMMODORE LXIV"
  36. 280 PRINT" [194][191][191][191][191][191][191][191][191][191][171][203]             [150] [163][163][163][163]"
  37. 290 PRINT" [202][195][195][195][195][195][195][195][195][195][203]     "
  38. 300 PRINT"                 "
  39. 310 PRINT" [171][201][201][201]   [213][195][201] [213][195][201][213][195][201][213][195][203][213][178][195][203]  [150] [164][164][164][164][164][164][164][164][164][164][164]"
  40. 320 PRINT" [202][203][202][179]   [171][195][179] [194][195][201][171][195][179][202][195][201] [194]    [150] MDCCCCLXXXV"
  41. 330 PRINT" [213][195][195][203]   [203] [203][190][202][195][203][203] [203][213][195][203] [203]    [150] [163][163][163][163][163][163][163][163][163][163][163]"
  42. 340 PRINT"      [221] [213][195][201] [201] [201][213][178][203][201] [201] [201][213][178][203][201] [213][178][201] "
  43. 350 PRINT" [213][179][213][201][213][179] [171][178][203] [194][194][194] [194] [194] [171][195][179] [171] [194] [194][194][194] "
  44. 360 PRINT" [202][203][203][203][202][203] [203][202] [190][202][177][203][213][177][203][202][195][202] [202] [177][203][202][195][202] [202] "
  45. 370 PRINT"[159]              [176][192][192][192][192][174]"
  46. 380 PRINT"[159]        PRESS [221][150] F1 [159][221] TO START"
  47. 390 PRINT"[159]              [173][192][192][192][192][189]"
  48. 400 FORT=1TO5000:NEXTT
  49. 410 GETA$:IFA$<>"[133]"THEN410
  50. 420 GOSUB20000
  51. 421 :
  52. 422 REM  ******************************
  53. 423 REM  * EINLEITUNGSTEXT            *
  54. 424 REM  ******************************
  55. 425 :
  56. 438 PRINT"[147]"CHR$(142)CHR$(8)
  57. 439 PRINT"          S [159]H [156]U G U [158]N"
  58. 440 PRINT
  59. 450 PRINT" SIE BEFINDEN SICH IM ALTEN CHINA"
  60. 460 PRINT" VOR RUND 2000 JAHREN."
  61. 470 PRINT" BEI EINEM FELDZUG GEGEN DIE REBELLEN"
  62. 480 PRINT" HAT SIE DER GROSSE KHAN"
  63. 490 PRINT" COMM-O-DOR LXIV. GEFANGENGENOMMEN."
  64. 500 PRINT" ES BESTEHT NUR NOCH EINE GERINGE"
  65. 510 PRINT" CHANCE, IHR LEBEN ZU RETTEN."
  66. 520 PRINT" SIE MUESSEN IHN IM SHUGUN BESIEGEN..."
  67. 530 PRINT" DER, DER DIE SHUGUN-SCHLACHT"
  68. 540 PRINT" VERLIERT, WIRD MIT EINEM  "
  69. 550 PRINT" FELSBROCKEN AM FUSS IM JANGTSEKIANG "
  70. 560 PRINT" VERSENKT. "
  71. 570 PRINT" DIE SPIELREGELN DIESES SPIELES ENT-"
  72. 580 PRINT" SPRECHEN DENEN DES STRATEGIESPIELS"
  73. 590 PRINT" 'SHOGUN' (TM)."
  74. 600 PRINT" KENNEN SIE DIESE REGELN (J/N) ?"
  75. 610 GETA$:Z=INT(RND(1)):IFA$=""THEN610
  76. 620 IFA$="N"THENGOTO2840
  77. 630 IFA$="J"THEN650
  78. 640 GOTO610
  79. 650 PRINT" VIEL GLUECK, FREMDER !"
  80. 660 FORI=1TO1000:NEXT
  81. 661 :
  82. 662 REM  ******************************
  83. 663 REM  * SPIELFELD ZEICHNEN         *
  84. 664 REM  ******************************
  85. 670 :
  86. 680 POKE53275,0:POKE53281,2:POKE53280,2
  87. 690 PRINT"[147]":PRINTCHR$(142)CHR$(8)""
  88. 700 FORI=1TO3:PRINT"[158]                                       [146]":NEXT
  89. 710 FORI=1TO16:PRINT"[158]   [146]";TAB(19);"                    [146]" :NEXT
  90. 720 FORI=1TO3:PRINT"[158]                                       [146]":NEXT
  91. 730 FORI=1103TO1943STEP40:POKEI,160:NEXT:FORI=55335TO56215STEP40:POKEI,7:NEXT
  92. 740 PRINT"[144]"
  93. 750 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] "
  94. 760 FORI=1TO8
  95. 770 PRINT"[170][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][180]"
  96. 780 PRINT"";CHR$(I+64);"[144][170][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][180]"
  97. 790 NEXT
  98. 800 PRINT"[144] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] "
  99. 810 PRINT"12345678"
  100. 820 PRINT"[144]"
  101. 830 FORI=1TO22
  102. 840 PRINTTAB(22)"[158][181]"
  103. 850 NEXT
  104. 860 :
  105. 861 REM  ******************************
  106. 862 REM  * SPRITES AKTIVIEREN         *
  107. 980 REM  ******************************
  108. 981 :
  109. 990 V=53248
  110. 1000 POKEV+39,1:POKEV+40,5:POKEV+41,6:POKEV+42,5:POKEV+43,5:POKEV+44,5
  111. 1010 POKEV+45,5:POKEV+46,5
  112. 1020 FORI=0TO62:READS1:POKEI+832,S1:NEXT
  113. 1030 FORI=0TO62:READS2:POKEI+896,S2:NEXT
  114. 1040 FORI=0TO62:READS3:POKEI+960,S3:NEXT
  115. 1050 POKE2040,13:POKE2041,14:POKE2042,15
  116. 1060 POKE2043,14:POKE2044,14:POKE2045,14
  117. 1070 POKE2046,14:POKE2047,14
  118. 1080 POKEV+21,255:POKEV+23,255:POKEV+29,255
  119. 1090 POKEV,255:POKEV+1,62
  120. 1100 POKEV+2,185:POKEV+3,185
  121. 1110 POKEV+4,205:POKEV+5,180
  122. 1120 POKEV+6,235:POKEV+7,170
  123. 1130 POKEV+8,215:POKEV+9,150
  124. 1140 POKEV+10,235:POKEV+11,200
  125. 1150 POKEV+12,170:POKEV+13,70
  126. 1160 POKEV+14,180:POKEV+15,130
  127. 1161 :
  128. 1162 REM  *****************************
  129. 1163 REM  * ZUGANZEIGE                *
  130. 1164 REM  *****************************
  131. 1165 :
  132. 1170 PRINT"";
  133. 1180 PRINTTAB(24)"[150][213][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  134. 1190 PRINTTAB(24)"[150][221][213][201][201][213][201][213][213][201][201][213][213][201][221]"
  135. 1200 PRINTTAB(24)"[150][221][202][201][171][179][221][221][221][178][221][221][221][221][221]"
  136. 1210 PRINTTAB(24)"[150][221][202][203][203][202][202][203][202][203][202][203][203][202][221]"
  137. 1220 PRINTTAB(24)"[150][202][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  138. 1230 PRINTTAB(23)"[158] IHR ZUG:   -[146]"
  139. 1240 PRINTTAB(23)"[158] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  140. 1250 PRINTTAB(26)"   R. WILHELM"
  141. 1260 PRINT:PRINTTAB(34)"&"
  142. 1270 PRINT:PRINTTAB(32)"A. GAST"
  143. 1280 PRINT:PRINTTAB(31)"A&R SOFT"
  144. 1290 PRINT""TAB(24)"[164][164][164][164][164][164]    [164][164][164][164][164]"
  145. 1300 PRINT""TAB(24)"MDCCCC   +LXXXV"
  146. 1310 PRINT""TAB(24)"[163][163][163][163][163][163]    [163][163][163][163][163]"
  147. 1320 :
  148. 1321 REM  *****************************
  149. 1322 REM  * SPIELSTEINE ZEICHNEN      *
  150. 1323 REM  *****************************
  151. 1330 :
  152. 1340 PRINT"[154]"
  153. 1350 PRINT"";
  154. 1360 PRINT"[176] [176] [176] [176] [218] [176] [176] [176] "
  155. 1370 PRINT"[173][189][173][189][173][189][173][189][218][218][173][189][173][189][173][189]"
  156. 1380 PRINT"";
  157. 1390 PRINT"[213] [213] [213] [213] [209] [213] [213] [213] "
  158. 1400 PRINT"[202][203][202][203][202][203][202][203][209][209][202][203][202][203][202][203]"
  159. 1401 :
  160. 1402 REM  *****************************
  161. 1403 REM  * VARIABLENDEFINITION       *
  162. 1404 REM  *****************************
  163. 1410 :
  164. 1420 FORI=1TO8:PA(I)=1185+2*I:NEXT
  165. 1430 FORI=1TO8:PB(I)=1745+2*I:NEXT
  166. 1440 FORI=1TO8:Z=INT(RND(1)*4+1):FA(I)=Z:NEXT
  167. 1450 FORI=1TO8:Z=INT(RND(1)*4+1):FB(I)=Z:NEXT
  168. 1460 :
  169. 1470 FORI=1TO8:POKEPA(I)+1,FA(I)+48+128::POKE54273+PA(I),14:NEXT
  170. 1480 FORI=1TO8:POKEPB(I)+1,FB(I)+48+128::POKE54273+PB(I), 1:NEXT
  171. 1490 GOTO3360
  172. 1500 :
  173. 1501 REM  *****************************
  174. 1502 REM  * EINGABE PRUEFEN           *
  175. 1503 REM  *****************************
  176. 1510 :
  177. 1520 ZU$=ZU$(1)+ZU$(2)
  178. 1530 FORI=1TO4
  179. 1540 Z$(I)=MID$(ZU$,I,1)
  180. 1550 NEXT
  181. 1560 FORI=0TO7
  182. 1570 IFZ$(1)=CHR$(I+65)THENZ$(1)=STR$(I)
  183. 1580 NEXT
  184. 1590 FORI=0TO7
  185. 1600 IFZ$(3)=CHR$(I+65)THENZ$(3)=STR$(I)
  186. 1610 NEXT
  187. 1620 :
  188. 1630 FX=VAL(Z$(3))-VAL(Z$(1))
  189. 1640 FY=VAL(Z$(4))-VAL(Z$(2))
  190. 1650 :
  191. 1660 PX=1185+(VAL(Z$(1))*80)
  192. 1670 PY=PX+(VAL(Z$(2))*2)
  193. 1680 P=PY
  194. 1690 FORI=1TO8
  195. 1700 IFPB(I)=PTHEN1730
  196. 1710 NEXT
  197. 1720 GOTO3360
  198. 1730 F=FB(I)
  199. 1740 IF F<>(ABS(FX)+ABS(FY))THEN3360
  200. 1750 :
  201. 1760 S=I
  202. 1770 FX=FX*80
  203. 1780 FY=FY*2
  204. 1790 ZP=P+FX+FY
  205. 1800 FORI=1TO8
  206. 1810 IFZP=PB(I)THEN3360
  207. 1820 NEXTI
  208. 1830 :
  209. 1840 FORI=1TO8
  210. 1850 IFZP=PA(I)THENGOSUB3550:GOTO1870
  211. 1860 NEXTI
  212. 1870 IFS= 5THENS(1)=209:S(2)=160:S(3)=209:S(4)=209:GOTO1890
  213. 1880 IFS<>5THENS(1)=213:S(2)=160:S(3)=202:S(4)=203
  214. 1890 POKEPB(S),79:POKE54272+PB(S),0
  215. 1900 POKEPB(S)+1,80:POKE54272+PB(S)+1,0
  216. 1910 POKEPB(S)+40,76:POKE54272+PB(S)+40,0
  217. 1920 POKEPB(S)+41,122:POKE54272+PB(S)+41,0
  218. 1930 POKEZP,S(1):POKEZP+1,S(2):POKEZP+40,S(3):POKEZP+41,S(4)
  219. 1940 POKE54272+ZP,1:POKE54272+ZP+1,1:POKE54272+ZP+40,1:POKE54272+ZP+41,1
  220. 1950 Z=INT(RND(1)*4+1)
  221. 1960 FB(S)=Z
  222. 1970 PB(S)=ZP:POKEZP+1,128+Z+48
  223. 1971 :
  224. 1972 REM  *****************************
  225. 1973 REM  * COMPUTER-STRATEGIE        *
  226. 1974 REM  *****************************
  227. 1980 :
  228. 1990 FORI=1TO8:IFPA(I)=200THEN2030
  229. 2000 XA(I)=PA(I)-1187:YA(I)=INT(XA(I)/80)
  230. 2010 XA(I)=XA(I)-80*YA(I):YA(I)=16*YA(I)
  231. 2020 ZA(I)=XA(I)/2:XA(I)=YA(I)+ZA(I)
  232. 2030 NEXT:FORI=1TO8:IFPB(I)=200THEN2060
  233. 2040 XB(I)=PB(I)-1187:YB(I)=INT(XB(I)/80):XB(I)=XB(I)-80*YB(I):YB(I)=16*YB(I)
  234. 2050 ZB(I)=XB(I)/2:XB(I)=YB(I)+ZB(I)
  235. 2060 NEXT:FORI=1TO8:IFNOTPB(I)=200THENPOKE53212+I,XB(I)
  236. 2070 IFPB(I)=200THENPOKE53212+I,PB(I)
  237. 2080 NEXT:FORI=1TO8:IFNOTPA(I)=200THENPOKE53112+I,XA(I)
  238. 2090 IFPA(I)=200THENPOKE53112+I,PA(I)
  239. 2100 NEXT:FORI=1TO8:POKE53202+I,FB(I):NEXT
  240. 2110 FORI=1TO8:POKE53102+I,FA(I):NEXT
  241. 2120 SYS49152:C1=PEEK(52970):ES=PEEK(53244):C2=PEEK(52969)
  242. 2130 IFES=200ANDC2=200THEN2200
  243. 2140 IF(ES>0ANDES<9)ANDC2=200THENGOSUB2790:GOTO2230
  244. 2150 IFES=200AND(C2>0ANDC2<9)THEN2390
  245. 2160 IF(ES>0ANDES<9)ANDC1=5THEN2390
  246. 2170 IFES=5THENGOSUB2790:GOTO2230
  247. 2180 IF(ES>0ANDES<9)AND(C2>0ANDC2<9)THEN2390
  248. 2190 :
  249. 2191 REM  *****************************
  250. 2192 REM  * COMPUTER ZIEHT            *
  251. 2193 REM  *****************************
  252. 2194 :
  253. 2200 P=0:FORI=53100TO52972STEP-2:IFPEEK(I)<>200THENP=P+1:NEXTI
  254. 2210 Z=INT((RND(1))*P)*2:Z=53101-Z
  255. 2220 ZP=PEEK(Z):S=PEEK(Z-1)
  256. 2230 X=INT(ZP/16):ZP=ZP-16*X:X=X*80:Y=ZP*2:ZP=1187+X+Y
  257. 2240 P=PA(S)
  258. 2250 POKEP,79:POKEP+1,80:POKEP+40,76:POKEP+41,122
  259. 2260 POKE54272+P,0:POKE54272+P+1,0:POKE54272+P+40,0:POKE54272+P+41,0
  260. 2270 IFS=5THENS(1)=218:S(2)=160:S(3)=218:S(4)=218:GOTO2290
  261. 2280 IFS<>5THENS(1)=240:S(2)=160:S(3)=237:S(4)=253
  262. 2290 POKEZP,S(1)
  263. 2300 POKEZP+1,S(2)
  264. 2310 POKEZP+40,S(3)
  265. 2320 POKEZP+41,S(4)
  266. 2330 POKE54272+ZP,14
  267. 2340 POKE54272+ZP+1,14
  268. 2350 POKE54272+ZP+40,14
  269. 2360 POKE54272+ZP+41,14
  270. 2370 PA(S)=ZP:Z=INT(RND(1)*4+1):POKEZP+1,Z+48+128:FA(S)=Z
  271. 2380 GOTO1490
  272. 2381 :
  273. 2382 REM  *****************************
  274. 2383 REM  * COMPUTER KANN SCHLAGEN    *
  275. 2384 REM  *****************************
  276. 2390 :
  277. 2391 Z=INT(RND(1)*(LEV+1)+1):IFZ=1ANDNOTLEV=9THEN2190
  278. 2400 PRINT"";
  279. 2410 PRINT"[158]UND NOCH EIN SETZER VON DIR DRAUSSEN..."
  280. 2420 POKE1983,46:POKE56255,7
  281. 2430 C1=PEEK(52970):C2=PEEK(52969):IF(C1<1ORC1>8)OR(C2<1ORC2>8)THEN2130
  282. 2440 P=PB(C1):FORA=0TO10STEP2:POKE54272+P,A:POKE54272+P+1,A:POKE54272+P+40,A
  283. 2450 POKE54272+P+41,A
  284. 2460 FORFA=1TO150:NEXTFA,A
  285. 2470 IFC2= 5THENS(1)=218:S(2)=160:S(3)=218:S(4)=218
  286. 2480 IFC2<>5THENS(1)=240:S(2)=160:S(3)=237:S(4)=253
  287. 2490 POKEPA(C2)  ,79:POKE54272+PA(C2),0
  288. 2500 POKEPA(C2)+1,80:POKE54272+PA(C2)+1,0
  289. 2510 POKEPA(C2)+40,76:POKE54272+PA(C2)+40,0
  290. 2520 POKEPA(C2)+41,122:POKE54272+PA(C2)+41,0
  291. 2530 POKEPB(C1),S(1):POKEPB(C1)+1,S(2):POKEPB(C1)+40,S(3):POKEPB(C1)+41,S(4)
  292. 2540 POKE54272+PB(C1),14:POKE54272+PB(C1)+1,14:POKE54272+PB(C1)+40,14
  293. 2550 POKE54272+PB(C1)+41,14:Z=INT(RND(1)*4+1)
  294. 2560 FA(C2)=Z
  295. 2570 PA(C2)=PB(C1)
  296. 2580 POKEPA(C2)+1,128+Z+48
  297. 2590 PB(C1)=200:FB(C1)=0:XB(C1)=200
  298. 2600 IFPB(5)=200THEN3650
  299. 2605 PRINT"";
  300. 2607 PRINT"                                       "
  301. 2610 GOTO1490
  302. 2611 :
  303. 2740 REM  *****************************
  304. 2750 REM  * UNTERPROGRAMME            *
  305. 2760 REM  *****************************
  306. 2761 :
  307. 2790 REM  *****************************
  308. 2791 REM  * COMPUTER WIRD BEDROHT     *
  309. 2792 REM  *****************************
  310. 2793 :
  311. 2800 FORI=53100TO52972STEP-2
  312. 2810 IFPEEK(I)<>ESTHENNEXTI
  313. 2820 ZP=PEEK(I+1):S=ES:IFZP<>200THENRETURN:REM"ZUG MOEGLICH"
  314. 2821 FORI=1TO8:POKE53112+I,XA(ES):NEXT
  315. 2822 FORI=1TO8:POKE53102+I,FA(ES):NEXT
  316. 2823 POKE53101,200:SYS49152
  317. 2824 T=53101:ZP=PEEK(T):IFZP<>200THEN2829
  318. 2825 FORI=1TO8:POKE53112+I,XA(I):NEXT
  319. 2826 FORI=1TO8:POKE53102+I,FA(I):NEXT
  320. 2827 SYS49152
  321. 2828 GOTO 2190
  322. 2829 FORI=52961TO52969STEP2:IFPEEK(I)=ESTHENC1=PEEK(I+1):C2=PEEK(I):GOTO2440
  323. 2830 NEXT:FORI=1TO8:IFNOTZP=XA(I)THENNEXT:S=ES:RETURN
  324. 2831 T=T-2:ZP(1)=PEEK(T):IFZP(1)=ZPORZP(1)=200THEN2825
  325. 2832 FORI=1TO8:IFNOTZP(1)=XA(I)THENNEXT:ZP=ZP(1):S=ES:RETURN
  326. 2833 IFT>=52973THEN2831
  327. 2839 GOTO2825
  328. 2840 REM  *****************************
  329. 2841 REM  * SPIELREGELN               *
  330. 2842 REM  *****************************
  331. 2859 :
  332. 2860 PRINT"[147] SPIELREGELN DES SPIELS 'SHUGUN' :      [146]"
  333. 2870 PRINT" 'SHUGUN' WIRD AUF EINEM 8 MAL 8 FELDER"
  334. 2880 PRINT" GROSSEN SPIELBRETT GESPIELT."
  335. 2890 PRINT" DIE GEGNER (SIE UND DER C-64) "
  336. 2900 PRINT" ZIEHEN MIT EINEM 8 MANN STARKEN "
  337. 2910 PRINT" SAMURAI-HEER IN DEN KAMPF."
  338. 2920 PRINT" DABEI UEBERNEHMEN SIE DAS UNTERE HEER,"
  339. 2930 PRINT" DER C-64 DAS OBERE HEER."
  340. 2940 PRINT" AUF JEDEM SPIELSTEIN ERSCHEINT DURCH"
  341. 2950 PRINT" ZUFALL EINE ZAHL ZWISCHEN 1 UND 4."
  342. 2960 PRINT" DIESE ZAHL SAGT IHNEN, WIE VIELE"
  343. 2970 PRINT" FELDER SIE MIT DIESER FIGUR FAHREN"
  344. 2980 PRINT" KOENNEN."
  345. 2990 PRINT"                     [RETURN]"
  346. 3000 GETA$:IFA$<>CHR$(13)THEN3000
  347. 3010 PRINT"[147]"
  348. 3020 PRINT" STEHT AUF EINEM STEIN NUN ZUM BEISPIEL"
  349. 3030 PRINT" EINE '4', SO KOENNEN SIE MIT DIESEM"
  350. 3040 PRINT" STEIN 4 FELDER FAHREN. "
  351. 3050 PRINT" ( Z.B. 4 GERADEAUS , 2 GERADEAUS "
  352. 3060 PRINT" UND 2 NACH LINKS ODER RECHTS )"
  353. 3070 PRINT" ES KANN JEDOCH NUR EINE X- UND EINE"
  354. 3080 PRINT" Y-BEWEGUNG PRO ZUG GEMACHT WERDEN!"
  355. 3090 PRINT" SIE KOENNEN AUCH NICHT DIAGONAL"
  356. 3100 PRINT" FAHREN ."
  357. 3110 PRINT" HABEN SIE EINEN STEIN BEWEGT, SO"
  358. 3120 PRINT" AENDERT SICH SEINE ZAHL WIEDER"
  359. 3130 PRINT" DURCH ZUFALL."
  360. 3140 PRINT" FAHREN SIE NUN MIT EINEM STEIN AUF"
  361. 3150 PRINT" EIN VOM GEGNER BESETZTES FELD, SO"
  362. 3160 PRINT" WIRD DER GEGNERISCHE STEIN VON IHNEN"
  363. 3170 PRINT" GESCHLAGEN."
  364. 3180 PRINT"                     [RETURN]"
  365. 3190 GETA$:IFA$<>CHR$(13)THEN3190
  366. 3200 PRINT"[147]"
  367. 3210 PRINT" EIN KRIEGER JEDER MANNSCHAFT IST"
  368. 3220 PRINT" BESONDERS GEKENNZEICHNET."
  369. 3230 PRINT" ES IST DER 'SHUGUN'."
  370. 3240 PRINT" WIRD DER 'SHUGUN' SO BEDROHT, DASS"
  371. 3250 PRINT" ER NICHT MEHR AUSWEICHEN KANN, SO IST"
  372. 3260 PRINT" DAS SPIEL ZU ENDE."
  373. 3270 PRINT" AUCH WENN ALLE KRIEGER EINES HEERES"
  374. 3280 PRINT" GESCHLAGEN SIND, IST DER KAMPF VORBEI."
  375. 3290 PRINT" DOCH NUN GENUG DER WORTE,"
  376. 3300 PRINT" DIE SCHLACHT BEGINNT !"
  377. 3310 PRINT" VIEL SPASS WUENSCHEN DIE AUTOREN"
  378. 3320 PRINT" DES SPIELES !"
  379. 3330 GETA$:IFA$=""THEN3330
  380. 3340 GOTO650
  381. 3351 :
  382. 3352 REM  *****************************
  383. 3353 REM  * EINGABE DES ZUGES         *
  384. 3354 REM  *****************************
  385. 3355 :
  386. 3360 GOSUB3500
  387. 3370 GETZ$(1):IFZ$(1)=""THEN3370
  388. 3380 IFASC(Z$(1))<65ORASC(Z$(1))>72THEN3370
  389. 3390 PRINT"[158]"TAB(33)Z$(1)"?"
  390. 3400 GETZ$(2):IFZ$(2)=""THEN3400
  391. 3410 IFASC(Z$(2))<49ORASC(Z$(2))>56THEN3400
  392. 3420 PRINT"[158]"TAB(34)Z$(2)"-?":ZU$(1)=Z$(1)+Z$(2)
  393. 3430 GETZ$(3):IFZ$(3)=""THEN3430
  394. 3440 IFASC(Z$(3))<65ORASC(Z$(3))>72THEN3430
  395. 3450 PRINT"[158]"TAB(36)Z$(3)"?"
  396. 3460 GETZ$(4):IFZ$(4)=""THEN3460
  397. 3470 IFASC(Z$(4))<49ORASC(Z$(4))>56THEN3460
  398. 3480 PRINT"[158]"TAB(37)Z$(4):ZU$(2)=Z$(3)+Z$(4)
  399. 3490 GOTO1500
  400. 3500 PRINT"[158]"TAB(33)"[158]?*-**"
  401. 3510 PRINT"";
  402. 3520 PRINT"                                       ":POKE1983,32
  403. 3530 RETURN
  404. 3540 :
  405. 3550 REM  *****************************
  406. 3551 REM  * SPIELER SCHLAEGT          *
  407. 3552 REM  *****************************
  408. 3553 :
  409. 3560 PRINT"";
  410. 3570 PRINT"[158]AUSNAHMSWEISE MAL EIN GUTER ZUG VON DIR":POKE1983,33:POKE56255,7
  411. 3580 FORA=0TO10STEP2:POKE54272+ZP,A:POKE54272+ZP+1,A:POKE54272+ZP+40,A
  412. 3590 POKE54272+ZP+41,A
  413. 3600 FORFA=1TO150:NEXTFA
  414. 3610 NEXTA
  415. 3620 PA(I)=200:FA(I)=0:XA(I)=200
  416. 3630 IFPA(5)=200THEN3650
  417. 3640 RETURN
  418. 3641 :
  419. 3642 REM  *****************************
  420. 3643 REM  * SPIELENDE (GRAPHIK & TEXT)*
  421. 3644 REM  *****************************
  422. 3650 :
  423. 3651 FORA=0TO10STEP2:POKE53281,A:POKE53280,A:FORFQ=0TO150:NEXTFQ,A
  424. 3653 IFPA(5)=200THENGEW$="B"
  425. 3654 IFPB(5)=200THENGEW$="A"
  426. 3660 V=53248:POKEV+21,0:FORI=0TO62:READQ:POKE832+I,Q:NEXT
  427. 3740 POKE2042,13:POKEV+41,1
  428. 3750 PRINT"[147]";:POKE53281,0:POKE53280,0
  429. 3760 PRINT"";
  430. 3770 PRINT"    [164][175][185][185][185][162][162][162][185][175]      [164][175][185][162][162][162][185]"
  431. 3780 PRINT"    [163][183][184][162][185][185][175][162][146][183]       [163][183][184][162][185][146][184][183][163]"
  432. 3790 PRINT"        [164][175][175][175][185][185][162][162][162][183][183][163][163][183][183][146][162][162][162][185][175][164][164]"
  433. 3800 PRINT"        [163][183][184][162][185][175]         [185][162][146][184][184][183][163][163][163][163]"
  434. 3810 PRINT"             [163][183][183][184][184][184][184][184][184] "
  435. 3820 PRINT"[149]";
  436. 3830 PRINT"[162][185][185][175][164][175][185][175][164][164][185][162][185]"
  437. 3840 PRINT"            [146][169]"
  438. 3850 PRINT"           [146][169]"
  439. 3860 PRINT"          [146][161]"
  440. 3870 PRINT"          [146][180]"
  441. 3880 PRINT"          [146]"
  442. 3890 PRINT"         [146][169]"
  443. 3900 PRINT"         [146]"
  444. 3910 PRINT"        [146][169]"
  445. 3920 PRINT"        [146]"
  446. 3930 PRINT"        [146]"
  447. 3940 PRINT"[149]        [146][129][191] "
  448. 3950 PRINT"[149]       [146][169][129][191][191][172]"
  449. 3960 PRINT"[149]       [146][180][129][191][175][175][164][175][185][162][185][185][175][175][164][164][164][185][162][162][175][164][164][175][185][162][175][164][164][175][185][185][175][164][164][149]";
  450. 3970 PRINT"[149]       [146][129]                                 ";
  451. 3980 PRINT"[149]       [146][129]                                [146]";
  452. 3990 POKE2023,160:POKE56295,8
  453. 3991 PRINT""TAB(17)"G [159]A [156]M E  O [158]V [129]E [149]R"
  454. 3992 IFGEW$="B"THEN4004
  455. 3993 PRINT:PRINT""TAB(17)"DER KHAN HAT DICH BE-"
  456. 3994 PRINTTAB(17)"SIEGT.QUALVOLL STIRBST"
  457. 3995 PRINTTAB(17)"DU IM JANGTSEKIANG...":GOTO 4008
  458. 4004 PRINT:PRINT""TAB(17)"DU HAST DEN KHAN BE-"
  459. 4005 PRINTTAB(17)"SIEGT.QUALVOLL STIRBT"
  460. 4006 PRINTTAB(17)"ER IM JANGTSEKIANG..."
  461. 4008 FORI=1TO4000:NEXT
  462. 4009 POKEV+4,130:POKEV+5,100:POKEV+21,4
  463. 4010 POKE53275,255:POKEV+23,0:POKEV+29,0
  464. 4020 FORI=100TO255
  465. 4030 POKEV+5,I:FORT=1TO15:NEXTT
  466. 4040 NEXT
  467. 4050 PRINT"[146]";
  468. 4060 PRINTTAB(11)"[158]UARGH"
  469. 4070 FORY=1TO2000:NEXTY
  470. 4160 PRINTTAB(17)"[145][145][145][145][145][145] NOCH EIN SPIEL(J/N)?"
  471. 4170 GETA$:IFA$<>"J"ANDA$<>"N"THEN4170
  472. 4180 IFA$="J"THENRUN
  473. 4190 IFA$="N"THENSYS64738
  474. 9000 :
  475. 9001 REM  *****************************
  476. 9002 REM  * DATEN FUER SPRITES        *
  477. 9003 REM  *****************************
  478. 9004 :
  479. 10000 REM  ---SPRITE 1-SAEBEL----------
  480. 10010 DATA192,0,3,224,0,7,112,0,14,56,0,28,28,0,56,14,0,112,7,0
  481. 10020 DATA224,3,129,192,1,195,128,0,231,0,0,110,0,0,28,0,0,56,0,0,118
  482. 10030 DATA0,24,231,24,13,195,176,7,129,224,7,0,224,13,129,176,24,195,24,48,0,12
  483. 10040 REM  ---SPRITE 2-BAUM  ----------
  484. 10050 DATA0,0,0,0,0,0,0,0,0,0,8,0,0,24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,126,0
  485. 10060 DATA0,255,0,0,255,0,1,255,128,3,255,192,3,255,192,7,255,224,15,255
  486. 10070 DATA240,28,60,56,0,60,0,0,126,0,0,255,0
  487. 10080 REM  ---SPRITE 3-ZELT  ----------
  488. 10090 DATA0,0,0,0,65,8,0,33,16,0,125,32,0,125,64,0,61,128,0,59,0,0,125,0,0,253,0
  489. 10100 DATA1,251,0,3,247,128,7,247,192,15,227,224,15,193,240,31,128,240,63,128,248
  490. 10110 DATA63,128,248,127,128,252,127,128,252,127,128,252,255,255,254
  491. 10120 REM  ---SPRITE 4-MANN  ----------
  492. 10130 DATA 0,192,0,17,226,0,9,228,0,4
  493. 10140 DATA 200,0,3,240,0,1,224,0,1,224
  494. 10150 DATA 0,1,224,0,1,224,0,1,224,0
  495. 10160 DATA 1,32,0,1,32,0,1,32,0,3
  496. 10170 DATA 48,0,2,0,0,4,0,0,8,0
  497. 10180 DATA 0,112,0,0,248,0,0,248,0,0
  498. 10190 DATA 240,0,0
  499. 10200 :
  500. 10201 REM  ****************************
  501. 10202 REM  * LEVELEINGABE (1-9)       *
  502. 10203 REM  ****************************
  503. 20000 :
  504. 20010 PRINT"[147]"
  505. 20020 PRINT" WAEHLEN SIE DEN SCHWIERIGKEITSGRAD:"
  506. 20030 PRINT:PRINT
  507. 20040 PRINTTAB(10)"(1) - [158]VOLLIDIOT"
  508. 20050 PRINTTAB(10)"(2) - [158]LEICHT BESCHRAENKT"
  509. 20060 PRINTTAB(10)"(3) - [158]HOBBYSPASTIKER"
  510. 20070 PRINTTAB(10)"(4) - [158]ANFAENGER"
  511. 20080 PRINTTAB(10)"(5) - [158]AMATEUR"
  512. 20090 PRINTTAB(10)"(6) - [158]FORTGESCHRITTENER"
  513. 20100 PRINTTAB(10)"(7) - [158]PROFI"
  514. 20110 PRINTTAB(10)"(8) - [158]SELBSTMOERDER"
  515. 20120 PRINTTAB(10)"(9) - [158]ANGEBER"
  516. 20130 PRINT:PRINTTAB(8)"  NUMMER >   <"
  517. 20140 GETA$:IFVAL(A$)<1ORVAL(A$)>9THEN20140
  518. 20150 PRINT"[145]"TAB(19)A$:LEV=VAL(A$)
  519. 20160 FORI=1TO1000:NEXT
  520. 20170 RETURN
  521. 30000 :
  522. 30010 REM  ****************************
  523. 30020 REM  * ENDE DES PROGRAMMS       *
  524. 30030 REM  ****************************
  525.