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 / Misc / RANDOMPATHEVADEDIRECT.tac < prev    next >
Text File  |  1999-08-14  |  684b  |  39 lines
  1. // A=me, B= start target null
  2.  
  3. A: CANTPICK
  4.  
  5. Targets(BC)
  6.  
  7. Start(A)
  8. Set Priority(A,1000000)
  9.  
  10. Unlock
  11. FlyTo(AB)
  12. Label(FlyTowards)
  13. If(ShotByTimed[A,C,3000]): Goto(Evade)
  14. If(CloseTogether[A,B,4000]): Goto(PickNext)
  15. Goto(FlyTowards)
  16.  
  17. Label(PickNext)
  18. Do(PickRandomPath[A,B,B])
  19. FlyTo(AB)
  20. Goto(FlyTowards)
  21.  
  22. Label(Adone)
  23. Goto(Adone)
  24.  
  25. Label(Evade)
  26. Timer(A,3000)
  27. Do(Random[A,4])
  28. If(RandomIs[A,0]): DodgeToLeft(AC)
  29. If(RandomIs[A,1]): DodgeToRight(AC)
  30. If(RandomIs[A,2]): DodgeToAbove(AC)
  31. If(RandomIs[A,3]): DodgeToBelow(AC)
  32.  
  33. Label(WaitEvade)
  34. If(Timer[A]): Goto(WaitEvade)
  35. Do(ForgetShip[C])
  36. If(ShotByTimed[A,C,3000]): Goto(Evade)
  37. FlyThrough(AB)
  38. Goto(FlyTowards)
  39.