home *** CD-ROM | disk | FTP | other *** search
/ 300 Favorite Games / 300GAMES.iso / 316 / corner.atr < prev    next >
Text File  |  1992-02-15  |  4KB  |  234 lines
  1. ; Corner.ATR           Ed T. Toton III  2/15/92
  2.  
  3. #spd 8
  4. #def goto_corner
  5. #def move
  6. #def x
  7. #def y
  8. #def move_time
  9. #def shoot
  10. #def fire
  11. #def accuracy
  12.  
  13. set goto_corner 100
  14. set     move    500
  15. set     move_time       0
  16. set     shoot   1000
  17. set     accuracy        0
  18. set     fire    2000
  19. gsb     goto_corner
  20.  
  21.  
  22. ;MAIN
  23. :1
  24.         ;If it's been a while, pick a new corner.
  25.         add     move_time       move_time       1
  26.         cmp     move_time       10
  27.         jgr     move    1
  28.  
  29.         ;Ok, let's go for it!
  30.         gsb     shoot
  31. jmp 1
  32.  
  33.  
  34.  
  35. ;Move
  36. :500
  37.         set     move_time       0
  38.         gsb     goto_corner
  39. RET
  40.  
  41.  
  42. ;Fire
  43. :2000
  44.         ipo     8       accuracy
  45.         opo     15      accuracy
  46.         opo     14      accuracy
  47. RET
  48.  
  49.  
  50. ;Shoot
  51. :1000
  52.         cmp     y       1
  53.         jeq     1001
  54.         jmp     1002
  55.         ret
  56.  
  57. :1001
  58.         cmp     x       1
  59.         jeq     1011
  60.         jmp     1021
  61.         ret
  62.  
  63. :1002
  64.         cmp     x       1
  65.         jeq     1031
  66.         jmp     1041
  67.  
  68. ret
  69.  
  70.  
  71. :1011
  72.         set     ax      0
  73.         int     8
  74.         ipo     3       ax
  75.         cmp     ax      0
  76.         jne     1011
  77.  
  78.         do      18
  79. :1012
  80.         opo     14      5
  81.         ipo     7       ax
  82.         cmp     ax      5000
  83.         jls     fire    1
  84.         loop    1012
  85. ret
  86.  
  87. :1021
  88.         set     ax      0
  89.         int     8
  90.         ipo     3       ax
  91.         cmp     ax      0
  92.         jne     1021
  93.  
  94.         do      18
  95. :1022
  96.         opo     14      -5
  97.         ipo     7       ax
  98.         cmp     ax      5000
  99.         jls     fire    1
  100.         loop    1022
  101. ret
  102.  
  103. :1031
  104.         set     ax      180
  105.         int     8
  106.         ipo     3       ax
  107.         cmp     ax      180
  108.         jne     1031
  109.  
  110.         do      18
  111. :1032
  112.         opo     14      -5
  113.         ipo     7       ax
  114.         cmp     ax      5000
  115.         jls     fire    1
  116.         loop    1032
  117. ret
  118.  
  119. :1041
  120.         set     ax      180
  121.         int     8
  122.         ipo     3       ax
  123.         cmp     ax      180
  124.         jne     1041
  125.  
  126.         do      18
  127. :1042
  128.         opo     14      5
  129.         ipo     7       ax
  130.         cmp     ax      5000
  131.         jls     fire    1
  132.         loop    1042
  133. ret
  134.  
  135.  
  136. RET
  137.  
  138.  
  139.  
  140. ;Goto_corner
  141. :100
  142.         ;Choose up or down
  143.         cmp     10030   5000
  144.         jls     101
  145.         set     y       1
  146.         gsb     111
  147.         jmp     103
  148. :101
  149.         set     y       2
  150.         gsb     121
  151. :103
  152.         ;Choose left or right.
  153.         cmp     10030   5000
  154.         jls     102
  155.         set     x       1
  156.         jmp     131
  157.         jmp     104
  158. :102
  159.         set     x       2
  160.         jmp     141
  161. :104
  162. RET
  163.  
  164. ; Go Down
  165. :111
  166.         
  167.         set     ax      180
  168.         int     8
  169.         ipo     3       ax
  170.         cmp     ax      180
  171.         jne     111
  172.  
  173.         opo     11      100
  174.         del     9
  175. :112
  176.         ipo     1       ax
  177.         cmp     ax      0
  178.         jgr     112
  179. RET
  180.  
  181. ; Go Up
  182. :121
  183.         
  184.         set     ax      0
  185.         int     8
  186.         ipo     3       ax
  187.         cmp     ax      0
  188.         jne     121
  189.  
  190.         opo     11      100
  191.         del     9
  192. :122
  193.         ipo     1       ax
  194.         cmp     ax      0
  195.         jgr     122
  196.  
  197. RET
  198.  
  199. ; Go Left
  200. :131
  201.         
  202.         set     ax      270
  203.         int     8
  204.         ipo     3       ax
  205.         cmp     ax      270
  206.         jne     131
  207.  
  208.         opo     11      100
  209.         del     9
  210. :132
  211.         ipo     1       ax
  212.         cmp     ax      0
  213.         jgr     132
  214.  
  215. RET
  216.  
  217. ; Go Right
  218. :141
  219.         
  220.         set     ax      90
  221.         int     8
  222.         ipo     3       ax
  223.         cmp     ax      90
  224.         jne     141
  225.  
  226.         opo     11      100
  227.         del     9
  228. :142
  229.         ipo     1       ax
  230.         cmp     ax      0
  231.         jgr     142
  232.  
  233. RET
  234.