home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / game / misc / 003 / f16.src < prev    next >
Encoding:
Text File  |  1993-05-12  |  2.1 KB  |  160 lines
  1. $trp 100
  2. $eng 010
  3. $msh 060
  4. $rsh 020
  5. $pwr 010
  6. set l 000
  7. set m 000
  8. set n 000
  9. set o 000
  10. # sets up constants u=1000, s=2000, r=30, t=6000, q=90, p=180
  11. set u 100
  12. set a 010
  13. mlt u a
  14. cpy u s
  15. set s 002
  16. mlt s u
  17. set r 030
  18. set t 006
  19. mlt t u
  20. set q 090
  21. set p 180
  22. @loop
  23. set a 003
  24. arm a
  25. set a 040
  26. prx a
  27. set v 002
  28. set w 001
  29. loc
  30. # if range>2000 (max phaser range), goto @lead
  31. bgr a s @lead
  32. # otherwise, phaser it, then fire a torp.
  33. phs
  34. set a 001
  35. arm a
  36. set a 015
  37. prx a
  38. # 
  39. # this next part tries to lead the enemy ship and fire at it
  40. @lead
  41. # this part corrects for acceleration
  42. tim
  43. cpy a j
  44. sub j l
  45. cpy a l
  46. vel
  47. cpy a g
  48. cpy b h
  49. cpy c i
  50. sub g m
  51. sub h n
  52. sub i o
  53. cpy a m
  54. cpy b n
  55. cpy c o
  56. div g j
  57. div h j
  58. div i j
  59. loc
  60. set j 200
  61. div a j
  62. mlt g a
  63. mlt h a
  64. mlt i a
  65. vel
  66. add a g
  67. add b h
  68. add c i
  69. # this gets the ship's velocity and converts it to x,y,z components
  70. sin b z
  71. cos c x
  72. sin c y
  73. mlt x z
  74. div x u
  75. mlt x a
  76. div x u
  77. mlt y z
  78. div y u
  79. mlt y a
  80. div y u
  81. cos b z
  82. mlt z a
  83. div z u
  84. # this part gets the relative position and converts it to X,Y,Z
  85. loc
  86. cpy a k
  87. sin b i
  88. cos c g
  89. sin c h
  90. mlt g i
  91. div g u
  92. mlt g a
  93. div g u
  94. mlt h i
  95. div h u
  96. mlt h a
  97. div h u
  98. cos b i
  99. mlt i a
  100. div i u
  101. # use the formula that X=X0+Vx*T, where X is the position to shoot at, X0 is
  102. # the current position, Vx is the velocity in the X direction, and T is the
  103. # estimated time to reach the target.  Here, I am letting T be Range/600.
  104. # (600 is the torpedo's speed).
  105. set j 100
  106. div a j
  107. set j 006
  108. div a j
  109. mlt x a
  110. mlt y a
  111. mlt z a
  112. add x g
  113. add y h
  114. add z i
  115. # this copies the final results to X, Y, and Z, converts back to polar
  116. # coordinates, fires, and chooses direction.
  117. pol
  118. cpy b y
  119. cpy c z
  120. fir
  121. blt k t @near
  122. # I add 30 degrees to the angle here, to avoid charging the target head on.
  123. set g 150
  124. bgr y g @f2
  125. add y r
  126. set x 100
  127. mve
  128. exe
  129. jmp @loop
  130. @f2
  131. set g 150
  132. add g p
  133. sub g y
  134. cpy g y
  135. add z p
  136. mve
  137. exe
  138. jmp @loop
  139. # keep distance if nearby (r<4000)
  140. @near
  141. blt y r @n2
  142. set x 100
  143. add z p
  144. set g 090
  145. sub g y
  146. cpy g y
  147. add y r
  148. mve
  149. exe
  150. jmp @loop
  151. @n2
  152. set x 100
  153. add y q
  154. sub y r
  155. mve
  156. exe
  157. jmp @loop
  158. $end
  159.  
  160.