home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / KILL.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  914 b   |  87 lines
  1. move 100
  2. setshift 180
  3. burn-on
  4. setshift 90
  5. angle 5
  6.  
  7. if y<500 goto 1
  8. if y>501 goto 2
  9.  
  10. :5
  11. head 270
  12. move 100
  13. goto 40
  14.  
  15. :10
  16. head 90
  17. move 100
  18.  
  19. :20
  20. if x<910 if enemy gosub 49
  21. if x<910 gosub 111
  22. if x<965 goto 20
  23. head 180
  24. move 100
  25.  
  26. :30
  27. if y<910 if enemy gosub 49
  28. if y<910 gosub 111
  29. if y<965 goto 30
  30. head 270
  31. move 100
  32.  
  33. :40
  34. if x>90 if enemy gosub 49
  35. if x>90 gosub 111
  36. if x>35 goto 40
  37. head 0
  38. move 100
  39.  
  40. :50
  41. if y>90 if enemy gosub 49
  42. if y>90 gosub 111
  43. if y>35 goto 50
  44. goto 10
  45.  
  46. :1
  47. head 0
  48. if enemy fire
  49. if y>70 goto 1
  50. goto 3
  51.  
  52. :2
  53. head 180
  54. if enemy fire
  55. if y<930 goto 2
  56.  
  57. :3
  58. if y>500 goto 5
  59. if y<500 goto 10
  60.  
  61. :49
  62. lfire
  63. setshift 89
  64. sfire
  65. setshift -1
  66. if enemy gosub 99
  67. setshift 90
  68. return
  69.  
  70. :99
  71. move 5
  72. sfire
  73. lfire
  74. if enemy goto 99
  75. move 100
  76. return
  77.  
  78. :111
  79. angle 2
  80. setshift 0
  81. if enemy gosub 99
  82. angle 5
  83. setshift 89
  84. return
  85. ;         Jeremy's wonderful BOT.
  86.  
  87.