home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / game / misc / 003 / mighty2.src < prev    next >
Encoding:
Text File  |  1993-05-03  |  1.8 KB  |  121 lines
  1. #configure ship
  2. $trp 100
  3. $eng 005
  4. $msh 095
  5. $rsh 100
  6. $pwr 100
  7. set a 010
  8. arm a
  9. set a 040
  10. prx a
  11. # sets up constants m=1000, n=100, s=2000, p=40, r=30, o=1, q=0, t=5
  12. set m 100
  13. set a 010
  14. mlt m a
  15. set n 100
  16. cpy m s
  17. set p 002
  18. mlt s p
  19. set p 040
  20. set r 030
  21. set o 001
  22. set q 000
  23. set t 005
  24. @loop1
  25. #finds southernmost enemy ship (-z)
  26. set f 001
  27. set g 000
  28. set v 002
  29. set w 001
  30. @lp1
  31. loc
  32. bne w o @tmp1
  33. cpy b g
  34. @tmp1
  35. blt b g @in1
  36. cpy w f
  37. cpy b g
  38. @in1
  39. add w o
  40. dam
  41. blt a n @lp1
  42. cpy f w
  43. @targeting
  44. loc
  45. # if range>2000 (max phaser range), goto @lead
  46. bgr a s @lead
  47. # otherwise, phaser it, select movement direction, and goto @mvt
  48. phs
  49. cpy b y
  50. cpy c z
  51. cpy p x
  52. jmp @mvt
  53. # 
  54. # this next part tries to lead the enemy ship and fire at it
  55. @lead
  56. # this gets the ship's velocity and converts it to x,y,z components
  57. vel
  58. sin b i
  59. cos c g
  60. sin c h
  61. mlt g i
  62. div g m
  63. mlt g a
  64. div g m
  65. mlt h i
  66. div h m
  67. mlt h a
  68. div h m
  69. cos b i
  70. mlt i a
  71. div i m
  72. # this part gets the relative position and converts it to X,Y,Z
  73. loc
  74. sin b l
  75. cos c j
  76. sin c k
  77. mlt j l
  78. div j m
  79. mlt j a
  80. div j m
  81. mlt k l
  82. div k m
  83. mlt k a
  84. div k m
  85. cos b l
  86. mlt l a
  87. div l m
  88. # use the formula that X=X0+Vx*T, where X is the position to shoot at, X0 is
  89. # the current position, Vx is the velocity in the X direction, and T is the
  90. # estimated time to reach the target.  Here, I am letting T be Range/250.
  91. # (250 is the torpedo's speed).
  92. cpy a t
  93. set u 100
  94. div t u
  95. set u 006
  96. div t u
  97. mlt g t
  98. mlt h t
  99. mlt i t
  100. add g j
  101. add h k
  102. add i l
  103. # this copies the final results to X, Y, and Z, converts back to polar
  104. # coordinates, fires, and chooses direction.
  105. cpy g x
  106. cpy h y
  107. cpy i z
  108. pol
  109. cpy b y
  110. cpy c z
  111. fir
  112. # I add 30 degrees to the angle here, to avoid charging the target head on.
  113. add z r
  114. cpy n x
  115. @mvt
  116. # here we move
  117. mve
  118. exe
  119. jmp @loop1
  120. $end
  121.