home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / EXP.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  547 b   |  53 lines
  1. angle 5
  2. setshift 0
  3. range 1000
  4.  
  5. :1
  6. lfire
  7. head 180
  8. move 100
  9. delay 1
  10. :2
  11. if speed>0 goto 2
  12.  
  13. if y<999 goto 1
  14.  
  15. if random goto 10
  16. goto 20
  17.  
  18. :10
  19. if armor<12 goto 3000
  20. head 0
  21. shift 13
  22. if enemy gosub 2000
  23. goto 10
  24.  
  25. :20
  26. if armor<12 goto 3000
  27. head 0
  28. shift -13
  29. if enemy gosub 2000
  30. goto 20
  31.  
  32.  
  33. :2000
  34. lfire
  35. if heat>300 return
  36. fire
  37. if enemy goto 2000
  38. return
  39.  
  40. :3000
  41. move 100
  42. if heat<150 lfire
  43. if range<16 destruct
  44. if y<700 goto 4000
  45. goto 3000
  46.  
  47. :4000
  48. move 100
  49. turn 40
  50. if heat<150 lfire
  51. if range<16 destruct
  52. goto 4000
  53.