Igromania 1999 August/Igromania_1999-08.iso/Demo/JanesFleetCommand/data1.cab/Doctrines_Files/SubAtkSurf.txt

Text File | 1999-07-22 | 4KB | 173 lines

TITLE SubAtkSurf

; Timer 1 : TMA Leg timer
; Var 1      : Min firing range
; Var 2   : Store speed before changing it
; Var 3   : Closing speed calculation
; Var 4      : 0 = Closing target, 1 = Receding target
; Var 5   : Oblique approach angle
; Var 6      : priority of sub action
; Var 7   : have we shot at a contact that is active?

RULE Store Attack Range for this contact
IF INIT = 1 THEN
    VAR_SET 1 ATTACKRNG
    DEBUG "Max Attack Rng:"
    DEBUG VAR1
    VAR_SET 3 OWNSPD
    VAR_SET 6 200
    VAR_SET 7 0
ELSE
    DEBUG "entering surf attack mode"
    RULE let sub engage
        IF VAR6 > 0 THEN
        RULE Avoid Friendly
        IF ID = FRIEND OR ID = UAF THEN
            DONE
            DEBUG "Avoid friendly"
            TACTIC SubAvoidSurf
        END

        ;if we are beyond 20000 yrds then let code take over- just drive to target
        ;OR ( VAR1 > 20000 AND RNG < VAR1 )
        RULE Check Range
        IF RNG < 20000  THEN
            ;if the guy is actively pinging us, then lets waste him!
            RULE attack active intercept
            IF SOURCE = "Active Intercept" AND VAR7 = 0 THEN
                DEBUG "Attacking Active Ping"
                ATTACK_BEST
                VAR_SET 7 1
            ELSE
                DEBUG "Executing Attack Doctrine"
                DEBUG "RNG"
                DEBUG RNG
                DEBUG "VAR1"
                DEBUG VAR1
                RULE ID UPD
                IF ID = UPD THEN
                    VAR_SET 5 BRG
                    RULE New Leg
                    IF TIMER3 = -1 THEN
                        DEBUG "Silos:"
                        DEBUG SILOS
                        RULE Approaching?
                        IF SILOS > 0 OR RNG > VAR1 THEN
                            DEBUG "UPD Opening Pursuit"
                            VAR_SET 4 1
                            VAR_SET 3 OWNSPD
                            VAR_ADD 3 SILOS
                            VAR_ADD 3 {3,5}
                        ELSE
                            DEBUG "UPD Approaching Leg"
                            VAR_SET 4 0
                            VAR_SET 3 {6,8}
                            VAR_SET 5 BRG
                            RULE Compute oblique angle for leg
                            IF AOB < 0 THEN
                                VAR_SUB 5 {50,70}
                            ELSE
                                VAR_ADD 5 {50,70}
                            END
                        END
                        SET_TIMER 3 {300,420}
                    END
                    RULE Proceed on leg, or pursue
                    IF VAR4 = 0 THEN
                        DEBUG "proceed on leg"
                        DEBUG "Setting course:"
                        DEBUG VAR5
                        DEBUG VAR6
                        PRIORITY VAR6
                        SETCRS VAR5
                    ELSE
                        DEBUG "pursuing"
                        DEBUG VAR6
                        PRIORITY VAR6
                        STEER_TO
                    END

                    RULE Minimum speed
                    IF VAR3 < 4 THEN
                        DEBUG "min speed"
                        VAR_SET 3 4
                    END
                    PRIORITY VAR6
                    SETSPD VAR3
                END
                RULE ID Hostile
                IF ID = HOSTILE OR ID = UAE THEN
                    DEBUG "New Closing Leg"
                    DEBUG "Timer1: "
                    DEBUG TIMER1
                    DEBUG "RNG : "
                    DEBUG RNG
                    DEBUG "VAR1"
                    DEBUG VAR1
                    VAR_SET 5 BRG
                    RULE New Closing Leg
                    ;RNG range to solution is greater than max attack range and no timer is running...
                    IF RNG > VAR1 AND TIMER1 = -1 THEN
                        RULE Approaching?
                        IF SILOS > 0 THEN
                            DEBUG "Hostile Opening Pursuit"
                            VAR_SET 4 1
                            VAR_SET 3 OWNSPD
                            VAR_ADD 3 SILOS
                            VAR_ADD 3 {3,5}
                        ELSE
                            DEBUG "Hostile Approaching Leg"
                            VAR_SET 4 0
                            VAR_SET 3 {6,8}
                            VAR_SET 5 BRG
                            RULE Compute oblique angle for leg
                            IF AOB < 0 THEN
                                VAR_SUB 5 {50,70}
                            ELSE
                                VAR_ADD 5 {50,70}
                            END
                        END
                        SET_TIMER 1 {480,600}
                    END

                    RULE Proceed on leg, or pursue
                    IF VAR4 = 0 THEN
                        DEBUG "proceed on leg"
                        DEBUG "course :"
                        DEBUG VAR5
                        DEBUG VAR6
                        PRIORITY VAR6
                        SETCRS VAR5
                    ELSE
                        DEBUG "pursuing"
                        PRIORITY VAR6
                        STEER_TO
                    END

                    RULE Minimum speed
                    IF VAR3 < 4 THEN
                        DEBUG "min speed"
                        VAR_SET 3 4
                    END
                    PRIORITY VAR6
                    SETSPD VAR3

                    RULE Attack
                    IF RNG < VAR1 AND CONF > 70 THEN
                        DEBUG "attack best"
                        DEBUG VAR6
                        PRIORITY VAR6
                        ATTACK_BEST
                    END
                END

                RULE PostLaunch
                IF WEAPON_AWAY = 1 THEN
                    DEBUG "sub avoiding after shot"
                    TACTIC SubAvoidSurf
                END
            END ;if not active
        END ;if rng
    END ;let sub prosecute
END ;else