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