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 / Dogfight / FighterProtect.tac < prev    next >
Text File  |  1999-08-06  |  312b  |  17 lines
  1. A: FIGHTER;FIGHTER2
  2.  
  3. B: FIGHTER;TURRET;BOMBER;CARRIER;FIGHTER2;EMPLACEMENT
  4.  
  5. Protect(B)
  6.  
  7. Start(A)
  8. Set Priority(A,2)
  9.  
  10. Do(Random[A,4])
  11. If(RandomIs[A,0]): EscortAbove(AB)
  12. If(RandomIs[A,1]): EscortLeft(AB)
  13. If(RandomIs[A,2]): EscortRight(AB)
  14. If(RandomIs[A,3]): EscortBelow(AB)
  15.  
  16. Label(Adone)
  17. Goto(Adone)