home *** CD-ROM | disk | FTP | other *** search
/ Igromania 1999 August / Igromania_1999-08.iso / Demo / JanesFleetCommand / data1.cab / Doctrines_Files / AirEvadeAir.txt next >
Text File  |  1999-07-22  |  467b  |  28 lines
  1. TITLE AirEvadeAir
  2.  
  3. RULE Avoid Hostile Air
  4. IF CLASS = AIR AND SILOS < 0 AND TIMER1 = -1 THEN
  5.     VAR_SET 2 {10,30}
  6.     RULE Two Pt Five Miles
  7.     IF RNG < 3000 THEN
  8.         PERSIST VAR2
  9.         PRIORITY 255
  10.         VAR_SET 1 BRG
  11.         VAR_ADD 1 {90,270}
  12.         MAX_SPD
  13.         SETCRS VAR1
  14.         SET_TIMER 1 VAR2
  15.         DEBUG "Emergency Zig"
  16.         DEBUG VAR1
  17.     ELSE
  18.         RULE Eight Miles
  19.         IF RNG < 8000 THEN
  20.             PERSIST VAR2
  21.             PRIORITY 255
  22.             STEER_AWAY
  23.             MAX_SPD
  24.             SET_TIMER 1 VAR2
  25.         END
  26.     END
  27. END
  28.