home *** CD-ROM | disk | FTP | other *** search
/ Igromania 1999 August / Igromania_1999-08.iso / Demo / JanesFleetCommand / data1.cab / Doctrines_Files / SubAvoidWeap.txt < prev    next >
Text File  |  1999-07-22  |  825b  |  48 lines
  1. TITLE SubAvoidWeap
  2.  
  3. ; Timer 4 : Evade Torpedo legs
  4.  
  5. RULE Default Evade Torpedo
  6. IF TIMER4 = -1 AND SILOS < 0 THEN
  7.     ;go right to max speed
  8.     DEBUG "starting evasive manuever!"
  9.     VAR_SET 1 {180,360}
  10.     PRIORITY 255
  11.     PERSIST VAR1
  12.     MAX_SPD
  13.     PRIORITY 255
  14.     STEER_EVASIVE
  15.     SET_TIMER 4 VAR1
  16.  
  17.     RULE Set Depth Opposite Layer
  18.     IF ALT < LAYER THEN
  19.         PERSIST VAR1
  20.         PRIORITY 255
  21.         SETALT {-100,-150}
  22.     ELSE
  23.         PERSIST VAR1
  24.         PRIORITY 255
  25.         LAYER_ALT  ;set depth to 100 ft below layer
  26.     END
  27.  
  28.     ;RULE Emergency Speed?
  29.     ;IF RNG < 3500 THEN
  30.         ;PRIORITY 255
  31.         ;PERSIST 0
  32.         ;MAX_SPD
  33.     ;END
  34.  
  35.     RULE Throw CM?
  36.     IF EXPR {0,10} > 2 THEN
  37.         RULE Decoy or Jammer?
  38.         IF SOURCE = "Active Intercept" THEN
  39.             DEBUG "CM Decoy"
  40.             COUNTERMEASURE Decoy
  41.         ELSE
  42.             DEBUG "CM Jammer"
  43.             COUNTERMEASURE Jammer
  44.         END
  45.     END
  46. END
  47.  
  48.