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