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