home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8709a.d64 / duell (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  9KB  |  300 lines
  1. 10 REM            DUELL
  2. 20 REM
  3. 30 REM   (C) 1987 BY RALPH JORDAN
  4. 40 REM
  5. 50 REM        HIRSCHWEG 8
  6. 60 REM        7090 ELLWANGEN
  7. 70 REM        TEL. 07961/4377
  8. 80 REM
  9. 90 REM===============================
  10. 100 REM********LADER******************
  11. 110 REM===============================
  12. 120 PRINT"[147]":POKE53280,0:POKE53281,0:POKE 646,14:POKE53272,21
  13. 130 IF P=0 THEN P=1:LOAD"DUELL OBJ.",8,8
  14. 140 IF P2=0 THEN P2=1:LOAD"FX OBJ.",8,8
  15. 150 REM===============================
  16. 160 REM******GRAFIKZEICHEN************
  17. 170 REM===============================
  18. 180 PZ(1)=0:PZ(2)=0:PZ(3)=0:PZ(4)=0:RESTORE:POKE53280,0:POKE53281,0
  19. 190 FOR  I=52200 TO 52252
  20. 200 READ  X:POKE  I,X :S=S+X:NEXT I
  21. 210 DATA 120,165,1,72,41,251,133,1,169,208,133,3
  22. 220 DATA 169,48,133,5,160,0,132,2,132,4,162,32
  23. 230 DATA 177,2,145,4,200,208,249,230,3,230,5,202
  24. 240 DATA 208,242,104,133,1,173,24,208,41,241,9,12
  25. 250 DATA 141,24,208,88,96
  26. 260 SYS52200
  27. 270 FOR  X=0 TO 7:READ DT
  28. 280 POKE 12288+8*71+X,DT
  29. 290 DATA 0,0,0,0,3,15,63,255
  30. 300 NEXT
  31. 310 FOR  X=0 TO 7:READ DT
  32. 320 POKE 12288+8*72+X,DT
  33. 330 DATA 1,7,63,127,255,255,255,255
  34. 340 NEXT
  35. 350 FOR  X=0 TO 7:READ DT
  36. 360 POKE 12288+8*74+X,DT
  37. 370 DATA 128,192,240,252,255,255,255,255
  38. 380 NEXT
  39. 390 FOR  X=0 TO 7:READ DT
  40. 400 POKE 12288+8*75+X,DT
  41. 410 DATA 0,0,0,0,192,248,254,255
  42. 420 NEXT
  43. 430 FOR  X=0 TO 7:READ DT
  44. 440 POKE 12288+8*76+X,DT
  45. 450 DATA 0,0,0,0,24,0,0,0
  46. 460 NEXT
  47. 470 FOR  X=0 TO 7:READ DT
  48. 480 POKE 12288+8*68+X,DT
  49. 490 DATA 0,0,3,4,8,30,127,218
  50. 500 NEXT
  51. 510 FOR  X=0 TO 7:READ DT
  52. 520 POKE 12288+8*70+X,DT
  53. 530 DATA 0,0,192,32,16,120,254,91
  54. 540 NEXT
  55. 550 FOR  X=0 TO 7:READ DT
  56. 560 POKE 12288+8*83+X,DT
  57. 570 DATA 255,255,255,255,255,255,255,255
  58. 580 NEXT
  59. 590 REM===============================
  60. 600 REM******EINGABEN*****************
  61. 610 REM===============================
  62. 620 IF SZ>0 THEN GOTO 870
  63. 630 GOSUB 2510
  64. 640 PRINT"[147]":POKE198,0:POKE 646,14:T1=1:T2=2
  65. 650 PRINT""
  66. 660 INPUT"        SPIELERZAHL(2-4)";SZ
  67. 670 IF SZ<2 OR SZ>4 THEN GOTO 640
  68. 680 FOR X=1 TO SZ
  69. 690 PRINT"[147]"
  70. 700 PRINT""
  71. 710 PRINT"       SPIELER";X;"(MAX.4 ZEICHEN):"
  72. 720 PRINT"[145]"
  73. 730 PRINT
  74. 740 INPUT"              ";S$(X)
  75. 750 IF LEN(S$(X))>4 OR LEN(S$(X))<1 THEN GOTO 690
  76. 760 NEXT X
  77. 770 REM===============================
  78. 780 REM******S$1 VS S$2***************
  79. 790 REM===============================
  80. 800 PRINT"[147]":POKE 646,1
  81. 810 PRINT""
  82. 820 PRINT"       ";S$(1);"(BLAU)  ";"VS  ";S$(2);"(GRAU)"
  83. 830 SYS 52300:POKE53280,0:POKE53281,0
  84. 840 REM===============================
  85. 850 REM******GRAFIK*******************
  86. 860 REM===============================
  87. 870 POKE 53265,PEEK(53265)AND 239
  88. 880 PRINT"    [204]        [204]      [204]          [204]    [204]"
  89. 890 PRINT"[155][204]  [204]     [204]         [204]        [204]    [204]   "
  90. 900 PRINT"  [204]           [204]              [204]   [204]  "
  91. 910 PRINT"     [204]          [204]         [204]        "
  92. 920 PRINT"  [204]         [204]         [204]           [204]"
  93. 930 PRINT" [204]      [204]         [204]         [204]    [204]     [204] "
  94. 940 PRINT"[155]    [204]       [204]        [204]            [204]    [204]"
  95. 950 PRINT"  [204]     [204]       [204]         [204]          [204]  "
  96. 960 PRINT"[155]    [204]  [204]    [204]         [204]        [204] "
  97. 970 PRINT"[149]                  [199][200][202][203]                "
  98. 980 PRINT"                [199][200][211][211][211][211][202][203]              "
  99. 990 PRINT"              [199][200][211][211][211][211][211][211][211][211][202][203]    [199][200][202][203]    "
  100. 1000 PRINT"    [199][200][202][203]    [199][200][211][211][211][211][211][211][211][211][211][211][211][211][202][203][199][200][211][211][211][211][202][203]"
  101. 1010 PRINT"  [199][200][211][211][211][211][202][203][199][200][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][202][203]"
  102. 1020 PRINT"[199][200][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][202][203]"
  103. 1030 PRINT"[154][196][198] [204][204]   [204][204]  [196][198]  [204][204]   [204][204]     [204][204]  [204]    [196][198]"
  104. 1040 PRINT"      [196][198]  [204]  [204] [204]   [196][198]    [204][204]   [196][198]  [204][204] [204] "
  105. 1050 PRINT"[204]  [204]      [204][204]  [204][204]      [204][204] [204]    [204]    "
  106. 1060 PRINT"[196][198]  [204]  [204]   [196][198]  [204]   [204][204]     [196][198]  [204]  [204]"
  107. 1070 PRINT" [204][204]   [196][198]    [204]   [204][204][204]  [196][198]   [204][204]   [204][204] [204] [196][198] [204]  [204]"
  108. 1080 PRINT""
  109. 1090 PRINTTAB(18)"[153]^";
  110. 1100 POKE 53265,PEEK(53265)OR 16
  111. 1110 REM==============================
  112. 1120 REM********SPRITES***************
  113. 1130 REM==============================
  114. 1140 FOR N=12288 TO 12350:READ Q:POKE N,Q:NEXT
  115. 1150 DATA 10,0,0,2,0,12,1,64,57
  116. 1160 DATA 1,128,60,1,64,48,42,84,48
  117. 1170 DATA 186,149,48,46,170,170,46,164,48
  118. 1180 DATA 11,170,48,58,170,240,250,170,240
  119. 1190 DATA 250,170,240,254,170,240,254,170,192
  120. 1200 DATA 62,152,0,2,80,0,1,20,0
  121. 1210 DATA 1,69,0,0,82,0,0,32,0
  122. 1220 FOR N=12352 TO 12414:READ Q:POKE N,Q:NEXT
  123. 1230 DATA 0,0,160,48,0,128,108,1,64
  124. 1240 DATA 60,2,64,12,1,64,12,21,168
  125. 1250 DATA 12,86,174,170,170,184,12,26,184
  126. 1260 DATA 12,170,224,15,170,172,15,170,175
  127. 1270 DATA 15,170,175,15,170,191,3,170,191
  128. 1280 DATA 0,38,188,0,5,128,0,20,64
  129. 1290 DATA 0,81,64,0,133,0,0,8,0
  130. 1300 FOR N=12416 TO 12478:READ Q:POKE N,Q:NEXT
  131. 1310 DATA 2,170,64,2,169,64,2,165,64
  132. 1320 DATA 2,149,64,2,85,128,1,86,128
  133. 1330 DATA 1,90,128,1,106,128,1,170,64
  134. 1340 DATA 2,169,64,2,165,64,2,149,64
  135. 1350 DATA 2,85,128,1,86,128,1,90,128
  136. 1360 DATA 1,106,128,1,170,64,2,169,64
  137. 1370 DATA 2,165,64,2,149,64,2,85,64
  138. 1380 FOR N=12672 TO 12734:READ Q:POKE N,Q:NEXT
  139. 1390 DATA 0,0,0,0,238,0,3,174,192
  140. 1400 DATA 15,190,176,14,190,176,62,190,172
  141. 1410 DATA 58,254,172,175,171,235,175,171,235
  142. 1420 DATA 175,171,235,175,171,235,175,171,235
  143. 1430 DATA 175,171,235,58,254,188,58,190,172
  144. 1440 DATA 14,190,176,14,190,176,3,190,192
  145. 1450 DATA 0,190,0,0,0,0,0,0,0
  146. 1460 REM==============================
  147. 1470 REM***SPRITE&SOUND POKES*********
  148. 1480 REM==============================
  149. 1490 V=53248
  150. 1500 POKEV+41,2:POKEV+42,2
  151. 1510 POKEV+43,6:POKEV+44,13:POKEV+4,24:POKEV+6,64
  152. 1520 POKE V+37,7:POKEV+38,12:POKEV+39,6:POKEV+40,11
  153. 1530 POKE54296,10
  154. 1540 POKE54272,0
  155. 1550 POKE54273,40
  156. 1560 POKE54277,6
  157. 1570 POKE54278,250
  158. 1580 POKE54276,33
  159. 1590 REM==============================
  160. 1600 REM********START*****************
  161. 1610 REM==============================
  162. 1620 POKEV+30,0:SYS49152
  163. 1630 REM==============================
  164. 1640 REM*********KOLLISION************
  165. 1650 REM==============================
  166. 1660 POKE53280,1:POKE53280,0:POKEV+30,0:POKEV+21,31
  167. 1670 X1=PEEK(V):X2=PEEK(V+2):Y1=PEEK(V+1):Y2=PEEK(V+3)
  168. 1680 IF PEEK(V+16)AND2^0 THEN X1=X1+255
  169. 1690 IF PEEK(V+16)AND2^1 THEN X2=X2+255
  170. 1700 IF ABS(X1-X2)<24 AND ABS(Y1-Y2)<21 THEN GOTO 1730
  171. 1710 IF PEEK(50030)=0 THEN GOTO 1860
  172. 1720 IF PEEK(50030)=1 THEN GOTO 1750
  173. 1730 IF Y1=Y2THEN GOSUB 2360:GOTO 1530
  174. 1740 IF Y1>Y2THEN GOTO 1860
  175. 1750 PRINT"":S1=S1+1
  176. 1760 FORX=1TOS1
  177. 1770 PRINT"[209]";
  178. 1780 NEXTX
  179. 1790 IFS1=5THENRU=RU+1:FORX=1984TO1990:POKEX,96:NEXT X
  180. 1800 IFS1=5THENS1=0:S2=0:PZ(T1)=PZ(T1)+1:FORX=2015TO2023:POKEX,96:NEXT X
  181. 1810 GOSUB 2360
  182. 1820 IFRU=1THENPRINT"":PRINTTAB(18)"[153]^^";
  183. 1830 IFRU=2THENPRINT"":PRINTTAB(18)"[153]^^^";
  184. 1840 IF RU=3 THEN ZL=ZL+1:GOTO 2000
  185. 1850 GOTO 1530
  186. 1860 PRINT"":S2=S2+1
  187. 1870 FORX=1TOS2
  188. 1880 PRINTTAB(34)"[152][209]";
  189. 1890 NEXTX
  190. 1900 IFS2=5THENRU=RU+1:FORX=1984TO1990:POKE X,96:NEXTX
  191. 1910 IFS2=5THENS1=0:S2=0:PZ(T2)=PZ(T2)+1:FORX=2015TO2023:POKE X,96:NEXTX
  192. 1920 GOSUB 2360
  193. 1930 IFRU=1THENPRINT"":PRINTTAB(18)"[153]^^";
  194. 1940 IFRU=2THENPRINT"":PRINTTAB(18)"[153]^^^";
  195. 1950 IF RU=3 THEN ZL=ZL+1:GOTO 2000
  196. 1960 GOTO 1530
  197. 1970 REM==============================
  198. 1980 REM*****SIEGER !!****************
  199. 1990 REM==============================
  200. 2000 IF SZ>2 THEN GOTO 2710
  201. 2010 IF PZ(1)>PZ(2) THEN SI$=S$(1):GOTO 2030
  202. 2020 SI$=S$(2)
  203. 2030 POKE V+21,0:PRI