loadfile(GetDataPath() .. "Scripts/Animate.lua")()

-----------------------------Constants---------------------------------

choiceAccept = 1

choiceRefuse = 2

choiceAttack = 3

leaksPos = {2067, 509}

densePos = {1882, 503}

waterPos = {3100, 930}

buffaloPos = {2609, 494}

chiefPos = {2538, 617}

cannibalPos = {{2219, 1339}, {2322, 1357}, {805, 784}, {3876, 1048},

              {1101, 916}, {2854, 1408}, {1974, 486}, {1103, 961}}

natives = {}

-----------------------------Variables---------------------------------

cannibals = {}

cannibalDead = {}

cannibalHidden = {}

cratesSpawned = {}

healthCratesSpawned = {}

denseDead = false

leaksDead = false

waterDead = false

buffaloDead = false

chiefDead = false

nativesDead = {}

m2Choice = 0

m2DenseDead = 0

startAnim = {}

wave2Anim = {}

finalAnim = {}

--------------------------Anim skip functions--------------------------

function AfterStartAnim()

  TurnTimeLeft = TurnTime

end

function SkipStartAnim()

  SetGearPosition(water, 2467, 754)

  if cratesSpawned[1] ~= true then

    SpawnCrates(1)

  end

  if healthCratesSpawned[1] ~= true then

    SpawnHealthCrates(1)

  end

  if cannibalHidden[1] == true then

    RestoreWave(1)

  end

  AnimSwitchHog(leaks)

end

function SkipWave2Anim()

  if cratesSpawned[2] ~= true then

    SpawnCrates(2)

  end

  if healthCratesSpawned[2] ~= true then

    SpawnHealthCrates(2)

  end

  if cannibalHidden[5] == true then

    RestoreWave(2)

  end

  AnimSwitchHog(cannibals[5])

end

function AfterWave2Anim()

  TurnTimeLeft = 0

end

function AfterFinalAnim()

  if chiefDead == true then

    SaveCampaignVar("M4ChiefDead", "1")

  else

    SaveCampaignVar("M4ChiefDead", "0")

  end

  SaveCampaignVar("Progress", "4")

  TurnTimeLeft = 0

end

-----------------------------Animations--------------------------------

function EmitDenseClouds(anim, dir)

  local dif

  if dir == "left" then

    dif = 10

  else

    dif = -10

  end

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

  AnimInsertStepNext({func = AnimWait, args = {dense, 800}})

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

  AnimInsertStepNext({func = AnimWait, args = {dense, 800}})

  AnimInsertStepNext({func = AnimVisualGear, args = {dense, GetX(dense) + dif, GetY(dense) + dif, vgtSteam, 0, true}, swh = false})

end

function AnimationSetup()

  table.insert(startAnim, {func = AnimWait, args = {leaks, 4000}})

  if denseDead == false then

    table.insert(startAnim, {func = AnimCustomFunction, args = {dense, SpawnCrates, {1}}})

  else

    table.insert(startAnim, {func = AnimCustomFunction, args = {leaks, SpawnCrates, {1}}})

    table.insert(startAnim, {func = AnimWait, args = {leaks, 1000}})

  end

  table.insert(startAnim, {func = AnimCustomFunction, args = {leaks, SpawnHealthCrates, {1}}})

  table.insert(startAnim, {func = AnimWait, args = {leaks, 1000}})

  table.insert(startAnim, {func = AnimMove, args = {water, "left", 3000, 0}})

  table.insert(startAnim, {func = AnimJump, args = {water, "long"}})

  table.insert(startAnim, {func = AnimMove, args = {water, "left", 2655, 0}})

  table.insert(startAnim, {func = AnimTurn, args = {water, "Right"}})

  table.insert(startAnim, {func = AnimJump, args = {water, "back"}})

  table.insert(startAnim, {func = AnimJump, args = {water, "back"}})

  table.insert(startAnim, {func = AnimTurn, args = {water, "Left"}})

  table.insert(startAnim, {func = AnimMove, args = {water, "left", 2467, 754}})

  table.insert(startAnim, {func = AnimTurn, args = {chief, "Right"}})

  table.insert(startAnim, {func = AnimCustomFunction, args = {chief, RestoreWave, {1}}})

  for i = 1, 4 do

    table.insert(startAnim, {func = AnimOutOfNowhere, args = {cannibals[i], unpack(cannibalPos[i])}})

  end

  table.insert(startAnim, {func = AnimWait, args = {chief, 1500}})

  table.insert(startAnim, {func = AnimSwitchHog, args = {leaks}})

  AddSkipFunction(startAnim, SkipStartAnim, {})

  table.insert(wave2Anim, {func = AnimCustomFunction, args = {leaks, RestoreWave, {2}}, swh = false})

  for i = 5, 8 do

    table.insert(wave2Anim, {func = AnimOutOfNowhere, args = {cannibals[i], unpack(cannibalPos[i])}})

  end

  table.insert(wave2Anim, {func = AnimCustomFunction, args = {leaks, SpawnCrates, {2}}, swh = false})

  table.insert(wave2Anim, {func = AnimCustomFunction, args = {leaks, SpawnHealthCrates, {2}}, swh = false})

  AddSkipFunction(wave2Anim, SkipWave2Anim, {})

end

function SetupFinalAnim()

  local found = 0

  local hogs = {}

  local i = 1

  if nativesNum >= 2 then

    while found < 2 do

      if  nativesDead[i] ~= true then

        found = found + 1

        hogs[found] = natives[i]

      end

      i = i + 1

    end

    if chiefDead ~= true then

      hogs[2] = chief

    end

    table.insert(finalAnim, {func = AnimCustomFunction, args = {hogs[1], CondNeedToTurn, {hogs[1], hogs[2]}}})

  else

    for i = 1, 5 do

      if nativesDead[i] ~= true then

        hogs[1] = natives[i]

      end

    end

  end

end

-----------------------------Misc--------------------------------------

function RestoreWave(index)

  for i = (index - 1) * 4 + 1, index * 4 do

    RestoreHog(cannibals[i])

    cannibalHidden[i] = false

  end

end

function GetVariables()

  m2DenseDead = tonumber(GetCampaignVar("M2DenseDead"))

  if m2DenseDead == 1 then

    denseDead = true

  end

  m2Choice = tonumber(GetCampaignVar("M2Choice"))

end

function SetupPlace()

  if m2DenseDead == true then

    DeleteGear(dense)

  end

  for i = 1, 8 do

    HideHog(cannibals[i])

    cannibalHidden[i] = true

  end

  HideHog(cyborg)

end

function SetupEvents()

  AddEvent(CheckWaveDead, {1}, DoWaveDead, {1}, 0)

  AddEvent(CheckWaveDead, {2}, DoWaveDead, {2}, 0)

end

function SetupAmmo()

  AddAmmo(cannibals[1], amGrenade, 4)

  AddAmmo(cannibals[1], amBazooka, 4)

  AddAmmo(cannibals[1], amShotgun, 4)

  AddAmmo(cannibals[1], amMine, 2)

  AddAmmo(cannibals[2], amGrenade, 4)

  AddAmmo(cannibals[2], amBazooka, 4)

  AddAmmo(cannibals[2], amShotgun, 4)

  AddAmmo(cannibals[2], amMine, 2)

  AddAmmo(cannibals[2], amMolotov, 2)

  AddAmmo(cannibals[2], amFlamethrower, 3)

end

function AddHogs()

  natives = {leaks, dense, water, buffalo, chief}

  nativesNum = 5

  for i = 1, 4 do

    cannibals[i] = AddHog(HogNames[i], 3, 70, "Zombi")

  end

  for i = 5, 8 do

    cannibals[i] = AddHog(HogNames[i], 2, 100, "vampirichog")

  end

  SetGearPosition(leaks,   unpack(leaksPos))

  SetGearPosition(dense,   unpack(densePos))

  SetGearPosition(water,   unpack(waterPos))

  HogTurnLeft(water, true)

  SetGearPosition(buffalo, unpack(buffaloPos))

  HogTurnLeft(buffalo, true)

  SetGearPosition(chief,   unpack(chiefPos))

  HogTurnLeft(chief, true)

  SetGearPosition(cyborg, 0, 0)

  for i = 1, 8 do

    SetGearPosition(cannibals[i], unpack(cannibalPos[i]))

  end

end

function CondNeedToTurn(hog1, hog2)

  xl, xd = GetX(hog1), GetX(hog2)

  if xl > xd then

    AnimInsertStepNext({func = AnimTurn, args = {hog1, "Left"}})

    AnimInsertStepNext({func = AnimTurn, args = {hog2, "Right"}})

  elseif xl < xd then

    AnimInsertStepNext({func = AnimTurn, args = {hog2, "Left"}})

    AnimInsertStepNext({func = AnimTurn, args = {hog1, "Right"}})

  end

end

function SpawnHealthCrates(index)

  SetHealth(SpawnHealthCrate(0, 0), 25)

  SetHealth(SpawnHealthCrate(0, 0), 25)

  SetHealth(SpawnHealthCrate(0, 0), 25)

  healthCratesSpawned[index] = true

end

function SpawnCrates(index)

  if index == 1 then

    SpawnAmmoCrate(1943, 408, amBazooka)

    SpawnAmmoCrate(1981, 464, amGrenade)

    SpawnAmmoCrate(1957, 459, amShotgun)

    SpawnAmmoCrate(1902, 450, amDynamite)

    SpawnUtilityCrate(1982, 405, amPickHammer)

    SpawnUtilityCrate(2028, 455, amRope)

    SpawnUtilityCrate(2025, 464, amTeleport)

  else

    SpawnUtilityCrate(1982, 405, amBlowTorch)

    SpawnAmmoCrate(2171, 428, amMolotov)

    SpawnAmmoCrate(2364, 346, amFlamethrower)

    SpawnAmmoCrate(2521, 303, amBazooka)

    SpawnAmmoCrate(2223, 967, amGrenade)

    SpawnAmmoCrate(1437, 371, amShotgun)

 end

  cratesSpawned[index] = true

end

-----------------------------Events------------------------------------

function CheckWaveDead(index)

  for i = (index - 1) * 4 + 1, index * 4 do

    if cannibalDead[i] ~= true then

      return false

    end

  end

  return true

end

function DoWaveDead(index)

  if index == 1 then

    AddAnim(wave2Anim)

    AddFunction({func = AfterWave2Anim, args = {}})

  elseif index == 2 then

    SetupFinalAnim()

    AddAnim(finalAnim)

    AddFunction({func = AfterFinalAnim, args = {}})

  end

end

-----------------------------Main Functions----------------------------

function onGameInit()

	Seed = 0 

	GameFlags = 0

	TurnTime = 60000 

	CaseFreq = 0

	MinesNum = 0

	MinesTime = 3000

	Explosives = 2

	Delay = 10 

  Map = "Hogville"

	Theme = "Nature"

  SuddenDeathTurns = 3000

  AddHogs()

  AnimInit()

end

function onGameStart()

  GetVariables()

  SetupAmmo()

  SetupPlace()

  AnimationSetup()

  SetupEvents()

  AddAnim(startAnim)

  AddFunction({func = AfterStartAnim, args = {}})

end

function onGameTick()

  AnimUnWait()

  if ShowAnimation() == false then

    return

  end

  ExecuteAfterAnimations()

  CheckEvents()

end

function onGearDelete(gear)

  if gear == dense then

    denseDead = true

    nativesNum = nativesNum - 1

    nativesDead[2] = true

  elseif gear == leaks then

    leaksDead = true

    nativesNum = nativesNum - 1

    nativesDead[1] = true

  elseif gear == chief then

    chiefDead = true

    nativesNum = nativesNum - 1

    nativesDead[5] = true

  elseif gear == water then

    waterDead = true

    nativesNum = nativesNum - 1

    nativesDead[3] = true

  elseif gear == buffalo then

    buffaloDead = true

    nativesNum = nativesNum - 1

    nativesDead[4] = true

  else

    for i = 1, 8 do

      if gear == cannibals[i] then

        cannibalDead[i] = true

      end

    end

  end

end

function onGearAdd(gear)

end

function onAmmoStoreInit()

  SetAmmo(amDEagle, 9, 0, 0, 0)

  SetAmmo(amSniperRifle, 9, 0, 0, 0)

  SetAmmo(amFirePunch, 9, 0, 0, 0)

  SetAmmo(amWhip, 9, 0, 0, 0)

  SetAmmo(amBaseballBat, 9, 0, 0, 0)

  SetAmmo(amHammer, 9, 0, 0, 0)

  SetAmmo(amLandGun, 9, 0, 0, 0)

  SetAmmo(amSnowball, 9, 0, 0, 0)

  SetAmmo(amGirder, 4, 0, 0, 2)

  SetAmmo(amParachute, 4, 0, 0, 2)

  SetAmmo(amSwitch, 8, 0, 0, 2)

  SetAmmo(amSkip, 9, 0, 0, 0)

  SetAmmo(amRope, 5, 0, 0, 3)

  SetAmmo(amBlowTorch, 3, 0, 0, 3)

  SetAmmo(amPickHammer, 0, 0, 0, 3)

  SetAmmo(amLowGravity, 0, 0, 0, 2)

  SetAmmo(amDynamite, 0, 0, 0, 3)

  SetAmmo(amBazooka, 0, 0, 0, 4)

  SetAmmo(amGrenade, 0, 0, 0, 5)

  SetAmmo(amMine, 0, 0, 0, 2)

  SetAmmo(amMolotov, 0, 0, 0, 3)

  SetAmmo(amFlamethrower, 0, 0, 0, 3)

end

function onNewTurn()

  if AnimInProgress() then

    TurnTimeLeft = -1

  end

end

function onGearDamage(gear, damage)

end

function onPrecise()

  if GameTime > 2500 then

    SetAnimSkip(true)

  end

end