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_En.exe
/
Tactics
/
Manouevres
/
FlyToFaceQuick.man
< prev
next >
Wrap
Text File
|
1999-01-11
|
230b
|
13 lines
// A=me, B=target
Fly(B.POS+A.ANG*[0,0,-5000])
Aim(B.POS)
Label(GetThere)
If(SIZE A.POS-B.POS<8000): Goto (StopAndFace)
Goto(GetThere)
Label(StopAndFace)
Fly(B.POS+A.ANG*[0,0,-5000])
Aim(B.POS)
Label(done)
Goto(done)