home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 120 / Tiger_Disk_120_20xx_Tiger-Crew-Disk_de_Side_C.d64 / menue (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  324 lines
  1. 100 rem
  2. 101 rem *******************************
  3. 102 rem * ladeparameter               *
  4. 103 rem * neuer zeichensatz           *
  5. 108 rem *******************************
  6. 109 rem
  7. 110 ifpeek(787)=0thenpoke787,1:poke45,peek(174):poke46,peek(175):clr
  8. 120 ifpeek(787)=1thenpoke787,2:load"lade bild",8,1
  9. 130 ifpeek(787)=2thenpoke787,3:load"lade level",8,1
  10. 140 sys695:printchr$(142):print"[147]"
  11. 150 rem zeichensatz
  12. 151 data 102,254,254,254,000,239,239,239,000
  13. 152 data 104,000,000,000,000,239,239,239,000
  14. 153 restore
  15. 154 forn=1to2:readd:d=57344+d*8:fori=dtod+7:reade:pokei,e:nexti:nextn
  16. 160 s=54272:poke1022,0
  17. 170 rem
  18. 171 rem *******************************
  19. 172 rem * titelbild                   *
  20. 178 rem *******************************
  21. 179 rem
  22. 180 gosub300:a=40448
  23. 181 sa=250:sb=128:sc=500
  24. 182 sysa,20,4,"[158]*":gosub650
  25. 183 fort=0to250:next:sysa,20,32,"*":gosub650
  26. 184 fort=0to2000:next:sysa,20,10,"[156]b":gosub650
  27. 185 fort=0to1500:next:sysa,20,18,"r":gosub650
  28. 186 fort=0to1000:next:sysa,20,22,"[150]t":gosub650
  29. 187 fort=0to500:next:sysa,20,14,"[129]e":gosub650
  30. 188 fort=0to500:next:sysa,20,26,"[154]y":gosub650
  31. 190 j=peek(56320)
  32. 191 if(jand16)=0then210
  33. 192 geta$
  34. 193 ifa$=chr$(32)then210
  35. 194 ifa$=chr$(133)then210
  36. 195 ifa$=chr$(134)then210
  37. 196 ifa$=chr$(135)then210
  38. 197 ifa$=chr$(136)then210
  39. 198 d=d+1:ifd=1000thend=0:gosub300:gosub710:goto400
  40. 199 goto190
  41. 200 rem
  42. 201 rem *******************************
  43. 202 rem * auswahl menue               *
  44. 208 rem *******************************
  45. 209 rem
  46. 210 poke53280,0:poke53281,0:print"[147]":sys828,2
  47. 220 rem sprite ein
  48. 221 poke53240,8
  49. 222 v=53248
  50. 223 pokev+39,4
  51. 224 pokev,40
  52. 225 pokev+1,45
  53. 226 pokev+21,1
  54. 227 fort=0to500:next
  55. 230 rem joy abfrage
  56. 231 c=1:d=0
  57. 232 j=peek(56320)
  58. 233 if(jand 1)=0thengosub260
  59. 234 if(jand 2)=0thengosub250
  60. 235 if(jand16)=0thengosub270
  61. 240 rem tastatur abfrage
  62. 241 geta$
  63. 242 ifa$="[133]"thenc=1:goto270
  64. 243 ifa$="[134]"thenc=2:goto270
  65. 244 ifa$="[135]"thenc=3:goto270
  66. 245 ifa$="[136]"thenc=4:goto270
  67. 247 d=d+1:ifd=1000thend=0:gosub300:gosub710:goto400
  68. 248 goto232
  69. 250 rem sprite tiefer
  70. 251 c=c+1:ifc=5thenc=1
  71. 252 oncgoto253,254,255,256
  72. 253 pokev+1,45:return
  73. 254 pokev+1,85:return
  74. 255 pokev+1,125:return
  75. 256 pokev+1,165:return
  76. 260 rem sprite hoeher
  77. 261 c=c-1:ifc=0thenc=4
  78. 262 oncgoto253,254,255,256
  79. 270 rem sprung anzeige im fenster
  80. 271 pokev+21,0
  81. 272 rem gosub300
  82. 273 pokes+24,0
  83. 274 poke787,0
  84. 275 oncgoto276,277,278,279
  85. 276 a$="c/game":goto800
  86. 277 gosub300:gosub710:goto400
  87. 278 a$="high score":poke1022,255:goto800
  88. 279 a$="erklaerung":goto800
  89. 280 end
  90. 300 rem
  91. 301 rem *******************************
  92. 302 rem * auswahl menue               *
  93. 303 rem * sprite ein                  *
  94. 308 rem *******************************
  95. 309 rem
  96. 310 poke53280,0:poke53281,0:print"[147]":sys828,1
  97. 311 a=40448:r=40704:b=1:v=53248
  98. 320 rem sprite ein
  99. 321 forn=0to6:poke53241+n,peek(r+b+(n*4)):next
  100. 322 forn=0to6:pokev+40+n,peek(r+b+(n*4+28)):next
  101. 323 pokev+23,peek(r+b+56)
  102. 324 pokev+27,peek(r+b+60)
  103. 325 pokev+29,peek(r+b+64)
  104. 326 forn=0to6:pokev+2+(n*2),peek(r+b+(n*4+68)):next
  105. 327 forn=0to6:pokev+3+(n*2),peek(r+b+(n*4+96)):next
  106. 330 rem sonderreg.16
  107. 331 pokev+16,0
  108. 332 ifpeek(r+124+b)=1thenpokev+16,peek(v+16)or2
  109. 333 ifpeek(r+128+b)=1thenpokev+16,peek(v+16)or4
  110. 334 ifpeek(r+132+b)=1thenpokev+16,peek(v+16)or8
  111. 335 ifpeek(r+136+b)=1thenpokev+16,peek(v+16)or16
  112. 336 ifpeek(r+140+b)=1thenpokev+16,peek(v+16)or32
  113. 337 ifpeek(r+144+b)=1thenpokev+16,peek(v+16)or64
  114. 338 ifpeek(r+148+b)=1thenpokev+16,peek(v+16)or128
  115. 340 rem figur ein
  116. 341 poke53240,3
  117. 342 pokev+39,15
  118. 343 x=peek(r+185)
  119. 344 y=peek(r+186)
  120. 345 pokev,x
  121. 346 pokev+1,y
  122. 347 pokev+21,255
  123. 350 d=0
  124. 390 fort=0to1000:next
  125. 391 return
  126. 400 rem
  127. 401 rem *******************************
  128. 402 rem * demo steuerung              *
  129. 408 rem *******************************
  130. 409 rem
  131. 410 rem weg 1 ***  ball
  132. 411 gosub610
  133. 412 sa=125:sb=32
  134. 413 gosub550:m=5:gosub580:b$="hunger!":gosub590
  135. 414 gosub650
  136. 415 pokev+21,191
  137. 420 rem weg 2 ***  ball
  138. 421 sa=125:sb=32
  139. 422 m=5:gosub580:gosub520:m=4:gosub570:b$="hunger!":gosub590
  140. 423 gosub650
  141. 424 pokev+21,63
  142. 430 rem weg 3 ***  kiste zu
  143. 432 m=6:gosub570:gosub520:m=10:gosub580:b$=" z u ? ":gosub590
  144. 440 rem weg 4 ***  ball
  145. 441 sa=125:sb=32
  146. 442 m=8:gosub580:gosub510:gosub510
  147. 443 m=2:gosub580:b$="hunger!":gosub590
  148. 444 gosub650
  149. 445 pokev+21,31
  150. 450 rem weg 5 ***  schluessel
  151. 451 sa=250:sb=16
  152. 452 m=11:gosub580:b$=" a h a ":gosub590
  153. 453 gosub650
  154. 454 pokev+21,27
  155. 460 rem weg 6 ***  kiste auf
  156. 461 sa=35:sb=16
  157. 462 m=13:gosub570:gosub520:gosub520
  158. 463 m=3:gosub570:b$="a u f !":gosub590
  159. 464 gosub650
  160. 465 poke53241,10
  161. 470 rem weg 7 *** gitter
  162. 471 m=3:gosub580:gosub510:gosub510
  163. 472 m=8:gosub580:gosub520:gosub520
  164. 473 m=3:gosub580:b$="bombe ?":gosub590
  165. 480 rem weg 8 *** bombe
  166. 481 sa=250:sb=16
  167. 482 m=3:gosub570:gosub510:m=5:gosub580
  168. 483 b$="a h a !":gosub590
  169. 484 gosub650
  170. 485 pokev+21,11
  171. 490 rem weg 9 *** gitter
  172. 492 m=5:gosub570:gosub520:m=5:gosub580
  173. 493 gosub640
  174. 494 gosub560
  175. 495 pokev+21,0:goto210
  176. 500 rem
  177. 501 rem *******************************
  178. 502 rem * laufroutinen fuer'n mann    *
  179. 508 rem *******************************
  180. 509 rem
  181. 510 rem nach oben
  182. 511 forn=0to4:gosub515:y=y-4:gosub620:gosub515:y=y-4:gosub630:gosub517:next
  183. 512 return
  184. 515 p=p+1:ifp=4thenp=1
  185. 516 poke53240,p:pokev+1,y:fort=0to50:nextt:return
  186. 517 poke53240,3:pokev+1,y:return
  187. 520 rem nach unten
  188. 521 forn=0to4:gosub525:y=y+4:gosub620:gosub525:y=y+4:gosub630:gosub527:next
  189. 522 return
  190. 525 p=p-1:ifp=-1thenp=3
  191. 526 poke53240,p:pokev+1,y:fort=0to50:nextt:return
  192. 527 poke53240,3:pokev+1,y:return
  193. 530 rem nach links
  194. 531 x=x-4:gosub620:gosub535:poke53240,5:fort=0to50:nextt
  195. 532 x=x-4:gosub630:gosub535:poke53240,3
  196. 533 return
  197. 535 rx=int(x/256):lx=x-rx*256:pokev,lx
  198. 536 ifrx=0thenpokev+16,peek(v+16)and254
  199. 537 ifrx=1thenpokev+16,peek(v+16)or1
  200. 539 return
  201. 540 rem nach rechts
  202. 541 x=x+4:gosub620:gosub545:poke53240,4:fort=0to50:nextt
  203. 542 x=x+4:gosub630:gosub545:poke53240,3
  204. 543 return
  205. 545 rx=int(x/256):lx=x-rx*256
  206. 546 ifrx=0thenpokev+16,peek(v+16)and254
  207. 547 ifrx=1thenpokev+16,peek(v+16)or1
  208. 548 pokev,lx
  209. 549 return
  210. 550 rem winken des sprites
  211. 551 forn=0to5:gosub620:gosub555:fort=0to100:nextt:nextn
  212. 552 return
  213. 555 poke53240,0:fort=0to50:nextt:poke53240,3:fort=0to50:nextt
  214. 556 return
  215. 560 rem explosion
  216. 561 pokev+16,0:pokev+21,255
  217. 562 fori=53240to53247:pokei,rnd(0)*256:next
  218. 563 i=int(rnd(0)*3):j=int(rnd(0)*3)
  219. 564 i=i*3+16:j=j+3:poke53265,i:poke53270,j
  220. 565 fori=vtov+7:pokei,rnd(0)*256:next
  221. 566 z=z+1:ifz<50then562
  222. 567 z=0:fort=0to1000:next
  223. 568 pokev+21,0:poke53265,27:poke53270,200
  224. 569 forl=0to24:pokes+l,0:next:return
  225. 570 rem laufen nach links
  226. 571 forf=1tom:gosub530:nextf:return
  227. 580 rem laufen nach rechts
  228. 581 forf=1tom:gosub540:nextf:return
  229. 590 rem grossschrift einblendungen
  230. 591 print"[156]":sysa,20,6,b$:fort=0to1000:next:sysa,20,6,"d e m o"
  231. 592 return
  232. 600 rem
  233. 601 rem *******************************
  234. 602 rem * geraeuschkulisse            *
  235. 608 rem *******************************
  236. 609 rem
  237. 610 rem ** ton schriite ein (st.1+2)
  238. 611 s=54272
  239. 612 forl=0to13:pokes+l,0:next:forl=21to23:pokes+l,0:next
  240. 613 pokes+24,15:pokes,220:pokes+1,68:pokes+5,0:pokes+6,192
  241. 614 pokes+7,120:pokes+8,100:pokes+12,0:pokes+13,192
  242. 619 return
  243. 620 rem ** schritt hoch
  244. 621 pokes+4,129:pokes+4,0
  245. 629 return
  246. 630 rem ** schritt niedrig
  247. 631 pokes+11,129:pokes+11,0
  248. 639 return
  249. 640 rem ** explosion
  250. 641 pokes+23,246:pokes+24,31:pokes+19,9:pokes+20,255:pokes+15,4
  251. 642 pokes+14,10:pokes+22,0:pokes+12,15:pokes+13,255:pokes+8,4
  252. 643 pokes+18,129:pokes+11,129:fort=1to500:next:pokes+18,128:pokes+11,128
  253. 649 return
  254. 650 rem ** sondergeraeusche (st.3)
  255. 651 forl=14to23:pokes+l,0:next
  256. 652 pokes+14,130:pokes+19,9
  257. 653 pokes+15,sa:pokes+24,15
  258. 654 pokes+18,sb+1
  259. 657 gosub610
  260. 659 return
  261. 700 rem
  262. 701 rem *******************************
  263. 702 rem * demo einblenden             *
  264. 708 rem *******************************
  265. 709 rem
  266. 710 sa=35:sb=128:sc=500
  267. 711 gosub650
  268. 712 sysa,20,18,"[156] [146]"
  269. 720 sa=15:sb=32:sc=0
  270. 721 forn=18to6step-1
  271. 722 gosub650
  272. 723 sysa,20,n,"[156]d "
  273. 724 sysa,20,18,"[156] [146]"
  274. 725 fort=0to50
  275. 726 nextt
  276. 727 nextn
  277. 730 :
  278. 731 forn=17to26
  279. 732 gosub650
  280. 733 sysa,20,n," o"
  281. 734 sysa,20,18,"[156] [146]"
  282. 735 fort=0to50
  283. 736 nextt
  284. 737 nextn
  285. 740 :
  286. 741 forn=18to14step-1
  287. 742 gosub650
  288. 743 sysa,20,n,"e"
  289. 744 sysa,20,18,"[156] [146]"
  290. 745 fort=0to50
  291. 746 nextt
  292. 747 nextn
  293. 750 :
  294. 751 forn=18to22
  295. 752 gosub650
  296. 753 sysa,20,n,"m"
  297. 754 sysa,20,18,"[156] [146]"
  298. 755 fort=0to50
  299. 756 nextt
  300. 757 nextn
  301. 760 gosub640
  302. 761 sysa,20,18,"[156][166][146]":fort=0to100:next:sysa,20,18,"[166]":fort=0to100:next
  303. 770 sysa,20,18,"[168][146]":fort=0to100:next:sysa,20,18,"[168]":fort=0to100:next
  304. 780 sysa,20,18," "
  305. 790 return
  306. 800 rem ladebild
  307. 801 print"[147]"
  308. 802 forn=0to25
  309. 803 print
  310. 804 next
  311. 805 print"[155]                                    [146]"
  312. 806 print"[155]      das programm wird geladen     [146]"
  313. 807 print"[155]                                    [146]"
  314. 808 forn=0to6
  315. 809 print
  316. 810 next
  317. 900 rem ladeprogramm
  318. 901 print"[144]load"+chr$(34)+a$+chr$(34)+",8"
  319. 902 print"run"
  320. 903 poke631,19:poke632,13:poke633,13:poke634,13
  321. 904 poke198,4
  322. 905 end
  323. 910 rem ladeprogramm
  324.