home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 February / 64er_Magazin_93-02_1993_Markt__Technik_de_Side_A.d64 / basic-game (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 100 rem   spritedemo by leo - 64'er/93
  2. 110 v=53248:rem vic-basis
  3. 120 ifll=0thenll=1:load"kugel",8,1
  4. 130 gosub550:rem spielfeld printen
  5. 140 :
  6. 150 rem variablen initialisieren
  7. 160 :
  8. 170 li=26:re=214:ob=52:un=216:s1=190
  9. 180 x=li:y=ob:d=1:t=1:s=1
  10. 190 :
  11. 200 rem sprites initialisieren
  12. 210 :
  13. 220 pokev,li:pokev+1,ob:rem sprite 1
  14. 230 rem                     setzten
  15. 240 :
  16. 250 pokev+3,223:pokev+2,s1:rem sprite 2
  17. 260 rem                     setzten
  18. 270 :
  19. 280 pokev+21,3:pokev+28,1:rem sprites                            an+multicolor
  20. 290 :
  21. 300 poke2040,255:poke2041,254
  22. 310 :
  23. 320 pokev+39,11:pokev+40,1:rem sprite-
  24. 330 pokev+37,1:pokev+38,12:rem farben
  25. 340 :
  26. 350 rem kugel bewegen
  27. 360 :
  28. 370 pokev+30,0:x=x+d:y=y+t
  29. 380 ifx=li or x=re thend=d*(-1):goto410
  30. 390 ify=ob thent= 1:goto410
  31. 400 ify>un then670
  32. 410 pokev,x:pokev+1,y
  33. 420 :
  34. 430 rem joystick-abfrage
  35. 440 :
  36. 450 j=peek(56320)
  37. 460 ifj=123 then s=-1:goto490
  38. 470 ifj=119 then s= 1:goto490
  39. 480 goto370
  40. 490 s1=s1+s:ifs1=li-1thens1=li
  41. 500 ifs1=196 thens1=195
  42. 510 pokev+2,s1:goto370
  43. 520 :
  44. 530 rem sub routine kasten zeichnen
  45. 540 :
  46. 550 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  47. 560 fori=1to20
  48. 570 print"[165]                       [167]"
  49. 580 next
  50. 590 print"[180]                       [167]"
  51. 600 pokev+32,0:pokev+33,0
  52. 610 fori=0to63:poke254*64+i,0  :next
  53. 620 poke254*64,255:poke254*64+1,255:poke254*64+2,255
  54. 630 return
  55. 640 :
  56. 650 rem kollision pruefen
  57. 660 :
  58. 670 c0=peek(v+30)and3:rem kollisions -
  59. 680 rem                     pruefen
  60. 690 if c0<>0 then t=-1:goto370
  61.