home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / KILL1.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  574 b   |  56 lines
  1. head 0
  2. move 100
  3. setshift 180
  4. burn-on
  5.  
  6. :1
  7. if enemy fire
  8. if y>70 goto 1
  9.  
  10. setshift 90
  11. angle 5
  12. :10
  13. head 90
  14. move 100
  15.  
  16. :20
  17. if x<910 if enemy gosub 49
  18. if x<960 goto 20
  19. head 180
  20. move 100
  21.  
  22. :30
  23. if y<910 if enemy gosub 49
  24. if y<960 goto 30
  25. head 270
  26. move 100
  27.  
  28. :40
  29. if x>90 if enemy gosub 49
  30. if x>40 goto 40
  31. head 0
  32. move 100
  33.  
  34. :50
  35. if y>90 if enemy gosub 49
  36. if y>40 goto 50
  37. goto 10
  38.  
  39.  
  40. :49
  41. lfire
  42. setshift 81
  43. sfire
  44. setshift 0
  45. if enemy gosub 99
  46. setshift 90
  47. return
  48.  
  49. :99
  50. move 0
  51. sfire
  52. if enemy goto 99
  53. return
  54. ;         Jeremy's wonderful BOT.
  55.  
  56.