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 / DumbFire.tac < prev    next >
Text File  |  1999-08-06  |  505b  |  25 lines
  1. A: EMPLACEMENT
  2. B: FIGHTER;TURRET;BOMBER;FIGHTER2;EMPLACEMENT
  3.  
  4. Targets(B)
  5.  
  6. Start(A)
  7.  
  8. // Pick the closest enemy every second, after an initial period of 5 seconds.
  9. Lock(B)
  10. Do(SayIm[A,"ATTACK",B])
  11. StopAndFire(AB)
  12. Timer(A,4000)
  13. Label(FIRST_ATTACK_LOOP)
  14. If(Timer[A]): Goto(FIRST_ATTACK_LOOP)
  15.  
  16. Label(PICK_NEW_TARGET)
  17. If(GetCloserTargetStrength[A,B]): Lock(B)
  18. Do(SayIm[A,"ATTACK",B])
  19. StopAndFire(AB)
  20.  
  21. Timer(A,1000)
  22. Label(ATTACK_LOOP)
  23. If(Timer[A]): Goto(ATTACK_LOOP)
  24. Goto(PICK_NEW_TARGET)
  25.