home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / RANDMAN.TR < prev    next >
Encoding:
Text File  |  1991-11-16  |  469 b   |  41 lines
  1. ; Settings...
  2.  
  3. angle 9
  4. range 1000
  5. setshift 0
  6. keepshift-on
  7. burn-off
  8. randspin
  9. move 100
  10.  
  11.  
  12. ; Main loop...
  13.  :1
  14.   shift 19
  15.   if enemy gosub 1000
  16.   if hit gosub 2000
  17.   if heat>350 gosub 9999
  18.   goto 1
  19.  
  20.  
  21. ; Shooting sub-routine...
  22.  :1000
  23.   fire
  24.   lfire
  25.   if hit gosub 2000
  26.   if enemy goto 1000
  27.   return
  28.  
  29.  :2000
  30.   randspin
  31.   delay 2
  32.   move 100
  33.   return
  34.  
  35. ; Cool-down subroutine...
  36.  :9999
  37.   if heat>100 goto 9999
  38.   return
  39.  
  40. ; End of program!!
  41.