home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / game / misc / 003 / f15.src < prev    next >
Encoding:
Text File  |  1993-05-12  |  2.1 KB  |  158 lines
  1. $trp 100
  2. $eng 005
  3. $msh 070
  4. $rsh 000
  5. $pwr 025
  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 gets the ship's velocity and converts it to x,y,z components
  42. vel
  43. sin b z
  44. cos c x
  45. sin c y
  46. mlt x z
  47. div x u
  48. mlt x a
  49. div x u
  50. mlt y z
  51. div y u
  52. mlt y a
  53. div y u
  54. cos b z
  55. mlt z a
  56. div z u
  57. cpy x g
  58. cpy y h
  59. cpy z i
  60. sub g m
  61. sub h n
  62. sub i o
  63. cpy x m
  64. cpy y n
  65. cpy z o
  66. loc
  67. set j 200
  68. div a j
  69. mlt g a
  70. mlt h a
  71. mlt i a
  72. tim
  73. cpy a j
  74. sub j l
  75. cpy a l
  76. div g j
  77. div h j
  78. div i j
  79. add x g
  80. add y h
  81. add z i
  82. # this part gets the relative position and converts it to X,Y,Z
  83. loc
  84. cpy a k
  85. sin b i
  86. cos c g
  87. sin c h
  88. mlt g i
  89. div g u
  90. mlt g a
  91. div g u
  92. mlt h i
  93. div h u
  94. mlt h a
  95. div h u
  96. cos b i
  97. mlt i a
  98. div i u
  99. # use the formula that X=X0+Vx*T, where X is the position to shoot at, X0 is
  100. # the current position, Vx is the velocity in the X direction, and T is the
  101. # estimated time to reach the target.  Here, I am letting T be Range/600.
  102. # (600 is the torpedo's speed).
  103. set j 100
  104. div a j
  105. set j 006
  106. div a j
  107. mlt x a
  108. mlt y a
  109. mlt z a
  110. add x g
  111. add y h
  112. add z i
  113. # this copies the final results to X, Y, and Z, converts back to polar
  114. # coordinates, fires, and chooses direction.
  115. pol
  116. cpy b y
  117. cpy c z
  118. fir
  119. blt k t @near
  120. # I add 30 degrees to the angle here, to avoid charging the target head on.
  121. set g 150
  122. bgr y g @f2
  123. add y r
  124. set x 100
  125. mve
  126. exe
  127. jmp @loop
  128. @f2
  129. set g 150
  130. add g p
  131. sub g y
  132. cpy g y
  133. add z p
  134. mve
  135. exe
  136. jmp @loop
  137. # keep distance if nearby (r<4000)
  138. @near
  139. blt y r @n2
  140. set x 100
  141. add z p
  142. set g 090
  143. sub g y
  144. cpy g y
  145. add y r
  146. mve
  147. exe
  148. jmp @loop
  149. @n2
  150. set x 100
  151. add y q
  152. sub y r
  153. mve
  154. exe
  155. jmp @loop
  156. $end
  157.  
  158.