home *** CD-ROM | disk | FTP | other *** search
/ Igromania 1999 August / Igromania_1999-08.iso / Demo / JanesFleetCommand / data1.cab / Doctrines_Files / HeloDipping.txt < prev    next >
Text File  |  1999-07-22  |  2KB  |  109 lines
  1. TITLE Helo Dipping Sonar Search
  2.  
  3. ; uses timer 3 and 4 for Dipping Search
  4. ; uses timer 1 and 2 and var 1 for pop-up behavior
  5. ; var 2 - integer when greater than zero, indicates we are engaging a sub
  6.  
  7. RULE Init
  8. IF INIT = 1 THEN
  9. ;    SET_TIMER 1 1800
  10.     VAR_SET 1 0
  11.     VAR_SET 2 0
  12. ;    SET_TIMER 3 100
  13. END
  14.  
  15. RULE Assign Dipping Tactic
  16. IF NEWTRACK = 1 THEN
  17.     RULE Sub?
  18.     IF CLASS = SUB AND ORDER = SEARCH THEN
  19.         DEBUG "Assigning Dipping Tactic\n"
  20.         TACTIC_CENTER
  21.         TACTIC DippingSonar
  22.         SENSOR "Active Sonar" 0
  23.         SETENTMODE
  24.         SET_TIMER 1 -1
  25.         SET_TIMER 2 -1
  26.         SET_TIMER 3 -1
  27.         SET_TIMER 4 -1
  28.         VAR_ADD 2 1
  29.         
  30.     END
  31.     RULE Missile?
  32.     IF CLASS = MISSILE AND ( MISSILE_CLASS = AAM OR MISSILE_CLASS = SAM ) THEN
  33.         TACTIC AirEvadeMissile
  34.     END
  35.     RULE Enemy Plane?
  36.     IF CLASS = AIR AND ( ID = HOSTILE OR ID = UAE OR ID = UPD ) THEN
  37.         TACTIC AirEvadeAir
  38.     END        
  39. END
  40.  
  41. RULE lost track
  42. IF LOSTTRACK = 1 THEN
  43.     DEBUG "Lost Track!"
  44.     SETSOLNMODE
  45.     RULE decrement attack var2
  46.     IF DOCTRINENAME = "DippingSonar" THEN
  47.         SETENTMODE
  48.         VAR_SUB 2 1
  49.         ;lets make sure our variable doesn't go negative!
  50.         RULE check var2
  51.         IF VAR2 < 0 THEN
  52.             SETENTMODE
  53.             VAR_SET 2 0
  54.         END
  55.     END
  56. END
  57.  
  58. RULE Search only
  59. IF ORDER = SEARCH THEN
  60.     RULE Dip
  61.     IF VAR1 = 1 THEN
  62.         ; game has just clued us we've reached a waypoint
  63.         DEBUG "Starting Search Dip"
  64.         PRIORITY 249
  65.         PERSIST 180
  66.         SETSPD 0
  67.         SETALT 45
  68.     END
  69.  
  70.     RULE Start pinging
  71.     IF VAR1 = 1 AND ALT < 50 THEN
  72.         DEBUG "Starting Dip Timer"
  73.         PRIORITY 249
  74.         PERSIST 180
  75.         SETSPD 0
  76.         SETALT 45
  77.         SENSOR "Active Sonar" 1
  78.         VAR_SET 1 0
  79.         SET_TIMER 4 180
  80.     END
  81.  
  82.     RULE Stop Dip
  83.     IF TIMER4 = 0 THEN
  84.         DEBUG "Stopping Search Dip"
  85.         PRIORITY 249
  86.         MAX_SPD
  87.         SETALT 300
  88.         SENSOR "Active Sonar" 0
  89.     END
  90. END
  91.  
  92. ;RULE Pop-up
  93. ;IF TIMER1 = 0 THEN
  94. ;    DEBUG "Starting Popup\n"
  95. ;    SETALT 5000
  96. ;    SENSOR "Active Sonar" 0
  97. ;    SET_TIMER 2 300
  98. ;END
  99.  
  100. ;RULE Stop Pop-up
  101. ;IF TIMER2 = 0 THEN
  102. ;    DEBUG "Stopping Popup\n"
  103. ;    MAX_SPD
  104. ;    SETALT 300
  105. ;    SENSOR "Active Sonar" 0
  106. ;    SET_TIMER 1 1800
  107. ;    SET_TIMER 3 600
  108. ;END
  109.