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 >
Text File  |  1998-12-18  |  673b  |  34 lines
  1. // A=me, B=object to dodge around
  2.  
  3. A: CANTPICK
  4. B: CANTPICK
  5.  
  6. Targets(B)
  7.  
  8. Start(A)
  9.  
  10. Unlock
  11.  
  12. Label(DODGE_TIMED)
  13.  
  14. Do(SayIm[A,"DODGE AWARE",B])
  15. Label(PICK_NEW_DODGE_TIMED)
  16. Do(Random[A,4])
  17. If(RandomIs[A,0]): DodgeAroundLeft(AB)
  18. If(RandomIs[A,1]): DodgeAroundRight(AB)
  19. If(RandomIs[A,2]): DodgeAroundAbove(AB)
  20. If(RandomIs[A,3]): DodgeAroundBelow(AB)
  21. Do(Random[A,4])
  22. If(RandomIs[A,0]): Timer(A,1000)
  23. If(RandomIs[A,1]): Timer(A,2000)
  24. If(RandomIs[A,2]): Timer(A,3000)
  25. If(RandomIs[A,3]): Timer(A,4000)
  26. Label(DODGE_TIMED_LOOP)
  27. // Has the time limit expired yet?
  28. If(Timer[A]): Goto(DODGE_TIMED_LOOP)
  29. Goto(PICK_NEW_DODGE_TIMED)
  30.  
  31. Label(Adone)
  32. Goto(Adone)
  33.  
  34.