home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / SNIPER.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  429 b   |  51 lines
  1. angle 9
  2. range 1000
  3. setshift 0
  4.  
  5.  
  6.  
  7.  
  8. :1
  9. gosub 1000
  10. if random goto 3
  11. goto 2
  12.  
  13. :2
  14. turn 19
  15. if hit gosub 1000
  16. if enemy gosub 10
  17. goto 2
  18.  
  19. :3
  20. turn -19
  21. if hit gosub 1000
  22. if enemy gosub 10
  23. goto 3
  24.  
  25.  
  26. :10
  27. lfire
  28. fire
  29. if hit return
  30. if enemy goto 10
  31. return
  32.  
  33.  
  34.  
  35. :1000
  36. randspin
  37.  
  38. delay 2
  39. ;:1002
  40. ;if athead goto 1003
  41. ;goto 1002
  42.  
  43. ;:1003
  44. move 100
  45. delay 2
  46.  
  47. :1001
  48. if speed>0 goto 1001
  49. if hit delay 0
  50. return
  51.