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 / Misc / RANDOMPATHDIRECT.tac < prev    next >
Text File  |  1999-07-13  |  290b  |  21 lines
  1. // A=me, B= start target null
  2.  
  3. A: CANTPICK
  4.  
  5. Start(A)
  6. Set Priority(A,1000000)
  7. Unlock
  8. FlyTo(AB)
  9. Label(FlyTowards)
  10. If(CloseTogether[A,B,4000]): Goto(PickNext)
  11. Goto(FlyTowards)
  12.  
  13. Label(PickNext)
  14. Do(PickRandomPath[A,B,B])
  15. FlyTo(AB)
  16. Goto(FlyTowards)
  17.  
  18. Label(Adone)
  19. Goto(Adone)
  20.  
  21.