home *** CD-ROM | disk | FTP | other *** search
/ ftp.team17.com 2014 / 2014.05.ftp.team17.com.tar / ftp.team17.com / pub / t17 / demos / pc / PhoenixDemo_De.exe / Tactics / Manouevres / FlyToFaceQuick.man < prev    next >
Text File  |  1999-01-11  |  230b  |  13 lines
  1. // A=me, B=target
  2. Fly(B.POS+A.ANG*[0,0,-5000])
  3. Aim(B.POS)
  4. Label(GetThere)
  5. If(SIZE A.POS-B.POS<8000): Goto (StopAndFace)
  6. Goto(GetThere)
  7.  
  8. Label(StopAndFace)
  9. Fly(B.POS+A.ANG*[0,0,-5000])
  10. Aim(B.POS)
  11. Label(done)
  12. Goto(done)
  13.