home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / spiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  165 lines
  1. 90 print"[147][151]"
  2. 100 sys 49152
  3. 105 print
  4. 110 aa=40960:xd=128:yd=64
  5. 120 sp=32:ze=207:fa=0
  6. 130 sr=57344:rem spriteadresse
  7. 140 v=53248:rem vic
  8. 145 co=v+31:rem collision
  9. 150 sz=53240:rem sprite-zeiger
  10. 160 g1=aa+2470:g2=aa+2477
  11. 165 g3=aa+6250:g4=aa+6271
  12. 170 fz=3:rem fasszaehler
  13. 180 a$(0)="auf":a$(1)=" zu[151]"
  14. 190 def fna(x)=sin(x*.7)*cos(x*2.2)
  15. 195 :
  16. 200 _rs   :rem reset aller register
  17. 201 _cp   :rem zeichensatz kopieren
  18. 205 _mt aa,xd,yd :rem
  19. 206 :
  20. 300 rem farben+rasterzeilen
  21. 305 _hf 0,0,11
  22. 310 _rf 0,0,0
  23. 315 _rz 81,89,248
  24. 320 :
  25. 321 _js 2 :rem joysticksteuerung
  26. 322 _tg 2000,2000
  27. 330 :
  28. 332 ifegthen950
  29. 333 :
  30. 335 _us0
  31. 340 input"beschleunigung (1-255):16[157][157][157][157]";g
  32. 343 input"reibung (1-255):8[157][157][157]";r
  33. 347 input"energie:5000[157][157][157][157][157][157]";eg
  34. 350 print"neuer stollen (j/n)?"
  35. 355 geta$:ifa$="n"then950
  36. 360 ifa$<>"j"then355
  37. 365 input"breite (3-20):7[157][157][157]";b
  38. 480 :
  39. 485 printtab(10)"*** stollenaufbau ***
  40. 490 _fu aa,aa[170]8191,160
  41. 500 h[178]xd[173]12
  42. 510 [129]i[178]30[164]xd[171]1[171]b
  43. 515 p[178][181]([165]a(i[173]h)[172]16[170]32)[172]xd[170]aa[170]i
  44. 520 _fup,p[170]b,32
  45. 525 _fup[171]xd,p[170]b[171]xd,sp
  46. 526 _fup[170]xd,p[170]b[170]xd,sp
  47. 530 [130]i
  48. 590 :
  49. 600 [129]i[178]13[164]47
  50. 610 p[178]aa[170]30[170]i[172]xd
  51. 615 [139]i[179]20[167]:_fu p,p[170]25,sp
  52. 620 _fu p,p[170]6,sp
  53. 630 [130]i
  54. 690 :
  55. 700 [129]i[178]19[164]48
  56. 710 p[178]aa[170]115[170]i[172]xd
  57. 715 [139]i[177]40[167]:_fu p[171]10,p[170]13,sp
  58. 720 _fu p,p[170]13,sp
  59. 730 [130]i
  60. 790 :
  61. 950 _zf0
  62. 955 _us1
  63. 956 ee[178]eg
  64. 957 _tbg,g:_trr,r
  65. 960 :
  66. 990 [143] sprites
  67. 1000 [151] sz,128
  68. 1010 [151] sz[170]1,129
  69. 1020 [151] v[170]39,15
  70. 1030 [151] v[170]40,0
  71. 1040 [151] v,172:[151] v[170]1,150
  72. 1050 [151] v[170]2,171:[151] v[170]3,161
  73. 1090 :
  74. 1100 [151]v[170]21,3
  75. 1102 _fu sr,sr[170]128,0
  76. 1105 :
  77. 1107 [143] sprite einlesen
  78. 1108 [140]
  79. 1110 [129]i[178]25[164]i[170]18
  80. 1120 [135]a:[151]sr[170]i,a:[130]
  81. 1125 :
  82. 1127 [143] zeichen 81 in sprite kopieren
  83. 1130 [129]i[178]0[164]7
  84. 1140 [151]sr[170]65[170]i[172]3,[183](v[170]ze[172]8[170]i)
  85. 1150 [130]
  86. 1190 :
  87. 1195 [143] faesser setzen
  88. 1200 [129]i[178]g1[170]3[164]i[170]11[169]4
  89. 1210 [151]i,ze:[130]
  90. 1250 [129]i[178]g3[164]g4
  91. 1260 [151]i,sp:[130]
  92. 1270 :
  93. 1300 _po 822,247
  94. 1500 [151]v[170]21,1
  95. 1900 [153]"faesser:"fz" energie:"ee"cmd greifer: "a$(fa)
  96. 1902 [139][183](4)[167]1902
  97. 1905 _js2
  98. 1910 _tm0
  99. 1915 [141]6000
  100. 1920 [151]co,0
  101. 1930 [139]fz[178]0[167]6500
  102. 1990 :
  103. 1995 [143] **** hauptroutine ****
  104. 1996 :
  105. 2000 ee[178]ee[171]1:[153]""[163]20)ee"cmd "
  106. 2010 [139][194](co)[167]3000
  107. 2020 [139][183](4)[167]4000
  108. 2500 [139]ee[177]0[167]2000
  109. 2590 :
  110. 2595 :
  111. 2600 [153]"loadbatterie leer => absturz
  112. 2610 goto3010
  113. 2990 :
  114. 3000 _js0:gosub6000
  115. 3002 ifpeek(co)=2then3100
  116. 3005 print"[147]sie haben ihren transporter zerstoert.
  117. 3010 [145]fa[170]1[137]7050,7020
  118. 3100 [153]"loadsie haben das fass zerstoert.
  119. 3110 goto7020
  120. 3900 :
  121. 4000 ee=ee-10
  122. 4010 onfagoto4200
  123. 4112 :
  124. 4115 p=usr(3):rem fass aufnehmen
  125. 4120 ifusr(p)<>zethen1910
  126. 4122 _js0:rem traegheit loeschen
  127. 4124 rem y-position berichtigen
  128. 4125 _pousr(1),usr(2)and8184
  129. 4127 _tm1:rem bildschirm abtasten
  130. 4130 fa=1:pokev+21,3:rem sprite an
  131. 4140 pokep,sp:rem character loeschen
  132. 4145 ifp>g3andp<g4thenfz=fz+1
  133. 4150 goto1900
  134. 4190 :
  135. 4200 p=usr(3):rem fass absetzen
  136. 4210 ifusr(p+xd)<>160then4300
  137. 4215 _js0
  138. 4220 _po(usr(1)and8184)+4,usr(2)and8184
  139. 4230 _tm1:fa=0:pokep,ze
  140. 4240 pokev+21,1
  141. 4245 ifp>g3andp<g4thenfz=fz-1
  142. 4250 goto1900
  143. 4290 :
  144. 4300 print"[147]sie haben das fass fallenlassen"
  145. 4350 goto7020
  146. 4900 :
  147. 4980 :
  148. 4990 rem spritedaten
  149. 5000 data 255,0,3,255,192,60,231,60,239,255,247,3,0,192,1,0,128,0,129
  150. 6000 fori=1to20:next:return
  151. 6500 print"[147]sie haben ihre mission erfuellt.
  152. 6510 [153]"restenergie:"ee
  153. 6520 [153]"dafuer bekommen sie ein paar orden !
  154. 6590 goto7090
  155. 7020 print"der stollen ist nun vollstaendig
  156. 7030 [153]"strahlenverseucht.
  157. 7040 print"ein fortfuehren der arbeit wird in
  158. 7045 [153]"ca. 1500 jahren wieder moeglich sein.
  159. 7050 print"s i e   s i n d   t o t   ! ! !
  160. 7090 [153][163]15)"e  n  d  e
  161. 7100 _us0
  162. 7101 pokev+21,0
  163. 7105 geta$:ifa$=""then7105
  164. 7110 goto110
  165.