home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / DRUNK.TR < prev    next >
Encoding:
Text File  |  1991-12-12  |  255 b   |  28 lines
  1. ; Robot-   Drunk
  2.  
  3. Angle 10
  4. range 1000
  5. setshift 0
  6. burn-off
  7. keepshift-off
  8.  
  9. :1
  10. move 100
  11. randspin
  12. if speed<1 gosub 50
  13. if enemy gosub 1000
  14. goto 1
  15.  
  16. :50
  17. randspin
  18. delay 2
  19. return
  20.  
  21. :1000
  22. FIRE
  23. LFIRE
  24. if enemy goto 1000
  25. return
  26.  
  27. ; End robot.
  28.