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