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
/
Mission2
/
DodgeAroundObject.tac
next >
Wrap
Text File
|
1998-12-18
|
673b
|
34 lines
// A=me, B=object to dodge around
A: CANTPICK
B: CANTPICK
Targets(B)
Start(A)
Unlock
Label(DODGE_TIMED)
Do(SayIm[A,"DODGE AWARE",B])
Label(PICK_NEW_DODGE_TIMED)
Do(Random[A,4])
If(RandomIs[A,0]): DodgeAroundLeft(AB)
If(RandomIs[A,1]): DodgeAroundRight(AB)
If(RandomIs[A,2]): DodgeAroundAbove(AB)
If(RandomIs[A,3]): DodgeAroundBelow(AB)
Do(Random[A,4])
If(RandomIs[A,0]): Timer(A,1000)
If(RandomIs[A,1]): Timer(A,2000)
If(RandomIs[A,2]): Timer(A,3000)
If(RandomIs[A,3]): Timer(A,4000)
Label(DODGE_TIMED_LOOP)
// Has the time limit expired yet?
If(Timer[A]): Goto(DODGE_TIMED_LOOP)
Goto(PICK_NEW_DODGE_TIMED)
Label(Adone)
Goto(Adone)