home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 127 / Tiger_Disk_127_20xx_Tiger-Crew-Disk_de_Side_B.d64 / sd.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  111 lines
  1. 1 rem sprite tool instruction
  2. 2 :
  3. 3 rem 1987 by r. baier
  4. 4 rem zuletzt geaendert am 02-11-87
  5. 5 :
  6. 6 :
  7. 7 rem vorbereitungen
  8. 8 :
  9. 9 print"[147]"chr$(14)chr$(8): v=53248
  10. 10 poke v+33,0: poke v+17,27
  11. 11 fo$="[198][207][210][205][193][212]:    ": fu$="[198][213][206][203][212][201][207][206]:  ": pa$="[208][193][210][193][205][197][212][197][210]: ": be$="[194][197][201][211][208][201][197][204]:  "
  12. 12 :
  13. 13 goto 23: rem befehle
  14. 14 :
  15. 15 rem unterprogramme
  16. 16 :
  17. 17 poke v+17,11: print"[147][211][208][210][201][212][197][160][212][207][207][204]         -[193]: 52618 -[197]: 53247 ": return
  18. 18 poke 211,32: poke 214,20: sys 58732: print" [210][197][212][213][210][206] ": poke v+17,27
  19. 19 get a$: if a$<>chr$(13) then 19
  20. 20 return
  21. 21 :
  22. 22 :
  23. 23 rem befehle
  24. 24 :
  25. 25 rem position mob
  26. 26 :
  27. 27 gosub 17: rem bildschirm
  28. 28 print""fo$"![208][205][207][194] x,y,n
  29. 29 [153]""fu$"(NULL)ositioniert (NULL)prite n nach"
  30. 30 [153][166]11)"x/y."
  31. 31 [153]""pa$"n - (NULL)pritenummer (0-7)"
  32. 32 [153][166]11)"x - x-(NULL)oordinate (0-511)"
  33. 33 [153][166]11)"y - y-(NULL)oordinate (0-255)"
  34. 34 [141] 18: [143] tastaturabfrage
  35. 35 :
  36. 36 [143] colour mob
  37. 37 :
  38. 38 [141] 17: [143] bildschirm
  39. 39 [153]""fo$"!len(NULL)(NULL)peek f,mc,n"
  40. 40 [153]""fu$"str$efiniert ascarbe f und (NULL)ulti-"
  41. 41 [153][166]11)"colourmodus mc von (NULL)prite n."
  42. 42 [153]""pa$"n  - (NULL)pritenummer  (0-7)"
  43. 43 [153][166]11)"f  - ascarbe         (0-15)"
  44. 44 [153][166]11)"mc - (NULL)odus ein/aus (1/0)"
  45. 45 [153]""be$"!len(NULL)(NULL)peek 5,0,7"
  46. 46 [153][166]11)"(NULL)prite 7 in ascarbe gruen."
  47. 47 [141] 18: [143] tastaturabfrage
  48. 48 :
  49. 49 [143] multicolour mob
  50. 50 :
  51. 51 [141] 17: [143] bildschirm
  52. 52 [153]""fo$"!(NULL)(NULL)(NULL)peek mc1,mc2"
  53. 53 [153]""fu$"peekestimmt die (NULL)ulticolour-"
  54. 54 [153][166]11)"farben mc1 und mc2."
  55. 55 [153]""pa$"mc1 - (NULL)len-ascarbe 1 (0-15)"
  56. 56 [153][166]11)"mc2 - (NULL)len-ascarbe 2 (0-15)"
  57. 57 [141] 18: [143] tastaturabfrage
  58. 58 :
  59. 59 [143] kind of mob
  60. 60 :
  61. 61 [141] 17: [143] bildschirm
  62. 62 [153]""fo$"!(NULL)(NULL)(NULL)peek dx,dy,pr,n"
  63. 63 [153]""fu$"peekestimmt chr$roesse dx/dy und"
  64. 64 [153][166]11)"(NULL)rioritaet pr von (NULL)prite n."
  65. 65 [153]""pa$"n  - (NULL)pritenummer     (0-7)"
  66. 66 [153][166]11)"dx - (NULL)ergroesserung x (0/1)"
  67. 67 [153][166]11)"dy - (NULL)ergroesserung y (0/1)"
  68. 68 [153][166]11)"pr - (NULL)rioritaet       (0/1)"
  69. 69 [141] 18: [143] tastaturabfrage
  70. 70 :
  71. 71 [143] switch on/off mob
  72. 72 :
  73. 73 [141] 17: [143] bildschirm
  74. 74 [153]""fo$"!(NULL)(NULL)(NULL)peek mo,[bl],n"
  75. 75 [153]""fu$"(NULL)chaltet (NULL)prite n (aus peeklock"
  76. 76 [153][166]11)"bl) ein, bzw. aus."
  77. 77 [153]""pa$"n  - (NULL)pritenummer (0-7)"
  78. 78 [153][166]11)"mo - valin/atnus      (1/0)"
  79. 79 [153][166]11)"bl - peeklock        (0-255)"
  80. 80 [153]""be$"!(NULL)(NULL)(NULL)peek 0,5"
  81. 81 [153][166]11)"(NULL)chaltet (NULL)prite 5 aus."
  82. 82 [141] 18: [143] tastaturabfrage
  83. 83 :
  84. 84 [143] joystick controlled mob
  85. 85 :
  86. 86 [141] 17: [143] bildschirm
  87. 87 [153]""fo$"!mid$(NULL)(NULL)peek js,mo,n"
  88. 88 [153]""fu$"(NULL)teuerung von (NULL)prite n mit"
  89. 89 [153][166]11)"mid$oystick js, bis peekedingung"
  90. 90 [153][166]11)"mo erfuellt ist."
  91. 91 [153]""pa$"n  - (NULL)pritenummer (0-7)"
  92. 92 [153][166]11)"js - mid$oystick     (1/2)"
  93. 93 [153][166]11)"mo - peekedingung    (0-7)"
  94. 94 [141] 18: [143] tastaturabfrage
  95. 95 [141] 17: [143] bildschirm
  96. 96 [153]"atnpeekpeek(NULL)(NULL)lenleft$peekvalstr$right$(NULL)chr$(NULL)(NULL)chr$val(NULL):"
  97. 97 [153]"mo: 0 - nach jeder atnbfrage"
  98. 98 [153]"    1 - bei (NULL)prite/(NULL)prite-(NULL)ollision"
  99. 99 [153]"    2 - bei (NULL)prite/left$chr$(NULL)-(NULL)ollision"
  100. 100 [153]"    4 - bei gedruecktem asceuerknopf"
  101. 101 [153]""be$"!mid$(NULL)(NULL)peek 2,7,4"
  102. 102 [153]"    (NULL)teuerung von (NULL)prite 4 mit mid$oystick"
  103. 103 [153]"    in (NULL)ort 2,  bis eine der atnbbruchbe-"
  104. 104 [153]"    dingungen erfuellt ist."
  105. 105 [141] 18: [143] tastaturabfrage
  106. 106 :
  107. 107 [143] nachladen
  108. 108 :
  109. 109 [151] v[170]17,11: [153]"loadstopload"           [199](34)"sdto3"[199](34)",8";
  110. 110 [151] 631,131: [151] 198,1: [128]
  111.