home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc1.iso / ARCADE / ATROBS11 / RANDMAN.ATR < prev    next >
Encoding:
Text File  |  1992-02-09  |  1.6 KB  |  127 lines
  1. ;Randman.                Ed T. Toton III   2/9/92
  2.  
  3. ; define vars
  4. #def armor
  5. #def hitcheck
  6. #def hit
  7. #def accuracy
  8.  
  9.  
  10. ; Settings...
  11. set     hitcheck  50
  12. opo     18      9
  13. opo     20      1000
  14. opo     13      0
  15. opo     22      0
  16. gsb     4000
  17. opo     11      100
  18.  
  19.  
  20. ; Main loop...
  21.  :1
  22.  ;Shift 19
  23.   opo   12      19
  24.  
  25.  ;if enemy gosub 1000
  26.   ipo   7       az
  27.   cmp   az      5000
  28.   jls   1000    1
  29.   
  30.  ;if hit gosub 2000
  31.   set   hit     0
  32.   gsb   hitcheck
  33.   cmp   hit     0
  34.   jne   2000    1
  35.  
  36.  ;if heat>350 gosub 8999
  37.   ipo   2       az
  38.   cmp   az      350
  39.   jgr   8999    1
  40.  
  41. jmp 1
  42.  
  43.  
  44.  
  45. ; Shooting sub-routine...
  46. :1000
  47.  
  48.  ;fire
  49.   ipo     8       accuracy
  50.   opo     15      accuracy
  51.  
  52.  ;if hit gosub 2000
  53.   set   hit     0
  54.   gsb   hitcheck
  55.   cmp   hit     0
  56.   jne   2000    1
  57.   
  58.  ;if enemy goto 1000
  59.   ipo     7       az
  60.   cmp     az      5000
  61.   jls     1000
  62.  
  63. ret
  64.  
  65.  
  66.  
  67.  
  68. ;Veer off...
  69. :2000
  70.  
  71.  ;radnspin
  72.   gsb   4000
  73.  
  74.  ;Delay 9   &  move 100
  75.   del   9
  76.   opo   11      100
  77.  
  78. ret
  79.  
  80.  
  81.  
  82.  
  83. ; Cool-down subroutine...
  84. :8999
  85.  
  86.  ;if heat>100 goto 8999
  87.   ipo   2       az
  88.   cmp   az      100
  89.   jgr   8999
  90.  
  91. ret
  92.  
  93.  
  94.  
  95.  
  96. ;Hitcheck
  97. :50
  98.        ;read and compare armor
  99.         ipo     6       az
  100.         cmp     az      armor
  101.  
  102.        ;if no damage then simply exit.
  103.         jeq     51
  104.  
  105.        ;if hit, then say so!
  106.         set     armor   az
  107.         set     hit     1
  108. :51
  109. ret
  110.  
  111.  
  112.  
  113.  
  114. ;Randspin
  115. :4000
  116.  
  117.         ;Randspin
  118.         set     az      10030
  119.         mod     ax      az      360
  120.         opo     14      az
  121.  
  122. ret
  123.  
  124.  
  125.  
  126. ; End of program!!
  127.