[Gcblue-commits] gcb_wx/scripts SubTactics.py,NONE,1.1

[Dewitt C. <ddc...@us...>]

Update of /cvsroot/gcblue/gcb_wx/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2168/scripts

Added Files:
	SubTactics.py 
Log Message:
GCB 0.8.0 release

--- NEW FILE: SubTactics.py ---
##########################################
# Sub tactics
##########################################

from UnitCommands import *

# zig-zag patrol task
def SubPatrol(TI):
    UI = TI.GetPlatformInterface()
    BB = TI.GetBlackboardInterface()

    iteration = TI.GetMemoryValue(1) # will return 0 first time
    if (iteration == 0):  # do initialization
        TI.SetMemoryValue(2, UI.GetHeading())
        TI.SetMemoryValue(3, 0) # 0 is turn left next zig-zag, 1 turn right
        TI.SetMemoryValue(4, 255.0 + 90.0 * UI.Rand()) # random turn interval in seconds
        TI.SetMemoryText('Description', 'Perform surveillance along a zig-zag course')
        if (not UI.IsSub()):
            TI.EndTask()

    iteration = iteration + 1
    TI.SetMemoryValue(1, iteration)

    # activate all passive sensors
    # can_radiate = GetSensorControl(BB)

    ActivatePassiveSensors(UI)

    # return if conn is not available
    if (not GetConnControl(BB)):   
        return 

    # if at periscope depth and battery is not fully charged, activate snorkel and set speed slow
    # if at periscope depth and battery is fully charged, stop snorkeling, and set depth to deep
    # if deep and battery is nearly empty, set depth to periscope depth

    SI = UI.GetSubInterface() # get sub interface object

    bottomDepth = -UI.GetTerrainElevation()
    maxPatrolDepth = SI.GetMaxDepth() - 30
    if (bottomDepth > 210):
        patrolDepth = 300
    else:
        patrolDepth = bottomDepth - 30

    if (patrolDepth > maxPatrolDepth):
        patrolDepth = maxPatrolDepth
    
    UI.SetSpeed(5) # default patrol speed
    updateInterval = TI.GetMemoryValue(4)


    if (SI.IsDieselElectric()):
        battery = SI.GetBatteryFraction()
        if (SI.IsAtPeriscopeDepth()):
            if (battery < 0.99):
                SI.SetSnorkelState(1)
                UI.SetSpeed(3)
            else:
                SI.SetSnorkelState(0)
                UI.SetSpeed(5)
                UI.SetAlt(-patrolDepth)
        elif (battery < 0.2):
            SI.GoToPeriscopeDepth()
            UI.SetSpeed(5)
            updateInterval = 0.5 * updateInterval
    else: # nuclear sub
        UI.SetAlt(-patrolDepth)




    if (TI.GetMemoryValue(3) == 0):
        new_heading = TI.GetMemoryValue(2) - 30
        TI.SetMemoryValue(3, 1)
    else:
        new_heading = TI.GetMemoryValue(2) + 30
        TI.SetMemoryValue(3, 0)

    UI.SetHeading(new_heading)
    TI.SetUpdateInterval(updateInterval)
    UI.SetActionText('Patrol')


# torpedo evasion tactics
def EvadeTorpedoes(TI):
    UI = TI.GetPlatformInterface()
    BB = TI.GetBlackboardInterface()

    iteration = TI.GetMemoryValue(1) # will return 0 first time
    if (iteration == 0):  # do initialization
        TI.SetMemoryText('Description', 'Evade incoming torpedoes') 

    iteration = iteration + 1
    TI.SetMemoryValue(1, iteration)


    # find closest torpedo within 12 km (or bearing-only torpedo track with longest track life)
    # if any found, take conn control, set depth deep, set speed to max, set course to evade
    # (when available) if any found that are within 1 km(?), release countermeasure
    # if no torpedoes found and have conn control, release conn control