home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / BOMB.TR next >
Encoding:
Text File  |  1991-11-14  |  1.1 KB  |  101 lines
  1. angle 2
  2. setshift 0
  3. range 1000
  4.  
  5. :1
  6. if range<20 destruct
  7. lfire
  8. head 180
  9. randspin
  10. move 100
  11. randspin
  12. randspin
  13. delay 1
  14. if range<20 destruct
  15. :2
  16. if range<20 destruct
  17. if speed>0 goto 2
  18.  
  19. ;if y<999 goto 1
  20.  
  21. randspin
  22. randspin
  23. if random goto 10
  24. goto 20
  25.  
  26. :10
  27. if armor<100 goto 3000
  28. shift 4
  29. if range<20 destruct
  30. if enemy gosub 2000
  31. goto 10
  32.  
  33. :20
  34. if armor<100 goto 3000
  35. shift -4
  36. if range<20 destruct
  37. if enemy gosub 2000
  38. goto 20
  39.  
  40.  
  41. :2000
  42. lfire
  43. if heat>300 return
  44. fire
  45. if enemy goto 2000
  46. if range<20 destruct
  47. return
  48.  
  49. :3000
  50. burn-on
  51. setshift 0
  52. :3001
  53. move 100
  54. if x>700 gosub 270
  55. if x<300 gosub 90
  56. if y<300 gosub 180
  57. if y>700 gosub 0
  58. if heat<70 lfire
  59. if range<20 destruct
  60. if y<700 if y>300 if x<700 if x>300 goto 4000
  61. goto 3001
  62.  
  63. :0
  64. head 0
  65. move 100
  66. if range<20 destruct
  67. if y>700 goto 0
  68. return
  69.  
  70. :270
  71. head 270
  72. move 100
  73. if range<20 destruct
  74. if x>700 goto 270
  75. return
  76.  
  77. :180
  78. head 180
  79. move 100
  80. if range<20 destruct
  81. if y<300 goto 180
  82. return
  83.  
  84. :90
  85. head 90
  86. move 100
  87. if range<20 destruct
  88. if x<300 goto 90
  89. return
  90.  
  91.  
  92.  
  93. :4000
  94. burn-on
  95. :4001
  96. move 100
  97. turn 22
  98. if heat<150 lfire
  99. if range<16 destruct
  100. goto 4001
  101.