home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 2000 January / CD-Gamer_2000-01_04_cd.bin / games / phoenix.exe / Tactics / Dogfight / FighterProtect.tac < prev    next >
Encoding:
Text File  |  1999-08-06  |  312 b   |  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)