DCS_MissionDev/DCS_Afgainistan/Insurgent_Sandstorm/Moose_InsurgentSandstorm.lua

  --Build Command Center and Mission for Blue
US_CC = COMMANDCENTER:New( GROUP:FindByName( "BLUEHQ" ), "USA HQ" )
US_Mission = MISSION:New( US_CC, "Insurgent Sandstorm", "Primary", "Clear the front lines of enemy activity.", coalition.side.BLUE)    
US_Score = SCORING:New( "Insurgent Sandstorm - Blue" )
US_Mission:AddScoring( US_Score )
US_Mission:Start()
US_Score:SetMessagesHit(false)
US_Score:SetMessagesDestroy(false)
US_Score:SetMessagesScore(false)  
    
--Build Command Center and Mission Red
RU_CC = COMMANDCENTER:New( GROUP:FindByName( "REDHQ" ), "Russia HQ" )
RU_Mission = MISSION:New (RU_CC, "Insurgent Sandstorm", "Primary", "Destroy U.S. and NATO forces.", coalition.side.RED)
RU_Score = SCORING:New("Insurgent Sandstorm - Red")
RU_Mission:AddScoring( RU_Score)
RU_Mission:Start()
RU_Score:SetMessagesHit(false)
RU_Score:SetMessagesDestroy(false)
RU_Score:SetMessagesScore(false)


-- How many red/blue aircraft are in the air by default.
local RedA2ADefaultOverhead = 2
local BlueA2ADefaultOverhead = 2


PlayerClients = SET_PLAYER:New():FilterStart()
  :HandleEvent( EVENTS.Crash )
function PlayerClients:OnEventCrash( EventData )
  
  local coal = EventData.initiator:getCoalition()
  local side, oside
  if coal == 1 then
  
      side = 'RED'
      oside = 'BLUE'
      MissionPlayerName = EventData.initiator:getPlayerName() 
      if MissionPlayerName ~= nil then
        MESSAGE:New("\n\nA " .. side .. " player ( " .. MissionPlayerName .. " ) has crashed! ", msgTime, "Alert!"):ToAll()
        end
 
  elseif coal == 2 then 
     
      side = 'BLUE'
      oside = 'RED'
      MissionPlayerName = EventData.initiator:getPlayerName() 
      if  MissionPlayerName ~= nil then
  
        local current_time = os.time()     -- Get the current date and time
        local formatted_time = os.date("%A, %B %d, %Y %I:%M:%S %p", current_time) -- Format the date and time
        MESSAGE:New("\n\nAt .. " .. formatted_time .. ": " .. MissionPlayerName .. " ) was shot down! Insurgent fighters could be heard screaming something over the radio about aloha and snack bars..", msgTime, "Alert!"):ToAll()
        USERSOUND:New("AllahuAkbar.ogg"):ToAll()
      end
  else
    env.info("**** We should not have gotten here! Moose_insurgentSandstorm.lua ****")
  end    
end

local RED_AA_ZONES = {
  ZONE:New("RED-AA-1"),
  ZONE:New("RED-AA-2"),
  ZONE:New("RED-AA-3"),
  ZONE:New("RED-AA-4"),
  ZONE:New("RED-AA-5"),
  ZONE:New("RED-AA-6"),
  ZONE:New("RED-AA-7"),
  ZONE:New("RED-AA-8"),
  ZONE:New("RED-AA-9"),
  ZONE:New("RED-AA-10"),
  ZONE:New("RED-AA-11"),
  ZONE:New("RED-AA-12"),
  ZONE:New("RED-AA-13"),
  ZONE:New("RED-AA-14"),
  ZONE:New("RED-AA-15"),
  ZONE:New("RED-AA-16")

}


-- Schedule RED AA spawns using the calculated frequencies
RED_SA08 = SPAWN:New("SA08")
    :InitRandomizeZones(RED_AA_ZONES)
    :InitLimit(5, 5)
    :SpawnScheduled(1, 0.5)

-- There are 18 units in this group. Need space for each one in the numbers. So if I want 3 SA10s i'm just rounding up to 60.
RED_SA10 = SPAWN:New("RED-AA-SA10-1")
:InitRandomizeZones(RED_AA_ZONES)
:InitLimit(60, 60)
:SpawnScheduled(1, 0.5)

-- There are 12 units in this group. Need space for each one in the numbers. So if I want 4 SA11s i'm just rounding up to 48
RED_SA11 = SPAWN:New("RED-AA-SA112-1")
:InitRandomizeZones(RED_AA_ZONES)
:InitLimit(48, 48)
:SpawnScheduled(1, 0.5)

-- Setup AI A2A Dispatchers
--Red

CCCPBorderZone = ZONE_POLYGON:New( "RED BORDER", GROUP:FindByName( "RED BORDER" ) )
RedA2ADispatcher = AI_A2A_GCICAP:New( { "RED EWR" }, { "FIGHTER SWEEP RED" }, { "RED BORDER" }, CCCPBorderZone )
RedA2ADispatcher:SetDefaultLandingAtEngineShutdown()
RedA2ADispatcher:SetDefaultTakeoffFromParkingHot()
RedA2ADispatcher:SetBorderZone( CCCPBorderZone )
RedA2ADispatcher:SetTacticalDisplay(false)
RedA2ADispatcher:SetDefaultFuelThreshold( 0.20 )
RedA2ADispatcher:SetRefreshTimeInterval( 300 )
RedA2ADispatcher:SetDefaultOverhead(RedA2ADefaultOverhead)

--Blue
BLUEBorderZone = ZONE_POLYGON:New( "BLUE BORDER", GROUP:FindByName( "BLUE BORDER" ) )
BLUEA2ADispatcher = AI_A2A_GCICAP:New( { "BLUE EWR" }, { "FIGHTER SWEEP BLUE" }, { "BLUE BORDER" }, BLUEBorderZone )  
BLUEA2ADispatcher:SetDefaultLandingAtEngineShutdown()
BLUEA2ADispatcher:SetDefaultTakeoffFromParkingHot()
BLUEA2ADispatcher:SetBorderZone( BLUEBorderZone )
BLUEA2ADispatcher:SetTacticalDisplay(false)
BLUEA2ADispatcher:SetDefaultFuelThreshold( 0.20 )
BLUEA2ADispatcher:SetRefreshTimeInterval( 300 )
BLUEA2ADispatcher:SetDefaultOverhead(BlueA2ADefaultOverhead)

--Red
DwyerBorderZone = ZONE_POLYGON:New( "DwyerBorderZone", GROUP:FindByName( "DwyerBorderZone" ) )
DwyerBorderZone = AI_A2A_GCICAP:New( { "RED EWR" }, { "DwyerBorderCAP" }, { "DwyerBorderZone" }, DwyerBorderZone )  
DwyerBorderZone:SetDefaultLandingAtEngineShutdown()
DwyerBorderZone:SetDefaultTakeoffFromParkingHot()
DwyerBorderZone:SetBorderZone( BLUEBorderZone )
DwyerBorderZone:SetTacticalDisplay(false)
DwyerBorderZone:SetDefaultFuelThreshold( 0.20 )
DwyerBorderZone:SetRefreshTimeInterval( 300 )
DwyerBorderZone:SetDefaultOverhead(BlueA2ADefaultOverhead)

--Red
BostZone = ZONE_POLYGON:New( "BostBorderZone", GROUP:FindByName( "BostBorderZone" ) )
BostZone = AI_A2A_GCICAP:New( { "RED EWR" }, { "BostBorderCAP" }, { "BostBorderZone" }, BostBorderZone )  
BostZone:SetDefaultLandingAtEngineShutdown()
BostZone:SetDefaultTakeoffFromParkingHot()
BostZone:SetBorderZone( BLUEBorderZone )
BostZone:SetTacticalDisplay(false)
BostZone:SetDefaultFuelThreshold( 0.20 )
BostZone:SetRefreshTimeInterval( 300 )
BostZone:SetDefaultOverhead(BlueA2ADefaultOverhead)

Blue_Drone = SPAWN:New("BLUE DRONE")
  :InitLimit(1, 25)
  :SpawnScheduled(600, 0.5)