home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / GAME.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  22KB  |  95 lines
  1. 10 REM 
  2. 100 RESERVE
  3. 1000 KEY
  4. 1010 VARNAME
  5. 1011 VARNAME
  6. 1012 VARNAME
  7. 1013 VARNAME
  8. 1020 VARNAME
  9. 1080 VARNAME
  10. 1081 VARNAME
  11. 1090 REPEAT
  12. 1091 SPRITE
  13. 1092 IF
  14. 1100 IF
  15. 1101 IF
  16. 1102 IF
  17. 1104 IF
  18. 1105 IF
  19. 1106 IF
  20. 1107 IF
  21. 1108 IF
  22. 1109 IF
  23. 1110 IF
  24. 1170 UNTIL
  25. 20 REM eddies game shell
  26. 23420 REM set up screen and colours
  27. 23430 VARNAME
  28. 23440 FOR
  29. 23450 RETURN
  30. 30 REM needs monster,map data in banks 10,9
  31. 40 REM have fun
  32. 40000 KEY
  33. 40010 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  34. 40020 REM DISPLASY THE ACTUAL MAP AT A SET LOCATION
  35. 40030 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~
  36. 40040 DIM
  37. 40050 REM for K=1 to 4000 : SS(K)=peek(start(10)+K) : next K
  38. 40060 UNKNOWN OP: 0x3A
  39. 40070 VARNAME
  40. 40080 CURS
  41. 40090 VARNAME
  42. 40100 REM ~~~~~~~~~~~~~~~~~~~
  43. 40110 SCREEN COPY
  44. 40120 VARNAME
  45. 40130 FOR
  46. 40140 VARNAME
  47. 40150 IF
  48. 40160 INC
  49. 40170 VARNAME
  50. 40171 IF
  51. 40172 REM f PAL=1 then colour 1,$321 : colour 2,$432 : colour 3,$543 : colour 4,$654 : colour 5,$765 : colour 12,$700 : colour 13,$720 : colour 14,$740 : PAL=2
  52. 40180 IF
  53. 40190 NEXT
  54. 40191 REM if PAL=0 then get palette (14)
  55. 40200 GOSUB
  56. 40210 REM ~~~~~~~~~~~~~~~~~~
  57. 40220 REM CUT OUT SPRITE AS SCREEN BLOCKS
  58. 40230 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  59. 40240 FOR
  60. 40250 SPRITE
  61. 40260 VARNAME
  62. 40270 CLS
  63. 40280 NEXT
  64. 40290 RETURN
  65. 50 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  66. 60000 REM ~~~~~~~~~~~~~~~~~~~
  67. 60010 REM grab sprite info from mam bank 9
  68. 60020 REM ~~~~~~~~~~~~~~~~~~~
  69. 60021 VARNAME
  70. 60030 FOR
  71. 60040 VARNAME
  72. 60050 VARNAME
  73. 60060 VARNAME
  74. 60070 VARNAME
  75. 60080 VARNAME
  76. 60090 VARNAME
  77. 60100 VARNAME
  78. 60110 VARNAME
  79. 60120 VARNAME
  80. 60170 INC
  81. 65000 REM ~~~~~~
  82. 65010 REM set up the movement commands!!
  83. 65020 REM ~~~~~~~
  84. 65030 VARNAME
  85. 65040 VARNAME
  86. 65041 IF
  87. 65050 IF
  88. 65060 IF
  89. 65070 IF
  90. 65071 IF
  91. 65072 IF
  92. 65073 IF
  93. 65080 MOVE
  94. 65090 RETURN
  95.