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

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

-----------------------------Map--------------------------------------

local map = 

{

	"\255\242\4\218\132\0\53\4\253\0\0\53\4\253\132\0\102\5\92\0\0\102\5\92\132\0\106\5\205\0\0\106\5\205\132\1\1\6\37\0",

	"\1\1\6\37\132\1\124\6\160\0\1\113\6\160\132\2\157\6\111\0\2\164\6\107\132\2\252\6\178\0\2\252\6\178\132\3\224\4\179\0",

	"\3\224\4\179\132\3\38\2\209\0\3\38\2\209\132\4\109\3\179\0\4\109\3\179\132\5\124\3\172\0\5\128\3\172\132\6\69\4\239\0",

	"\6\69\4\239\132\7\175\4\32\0\7\172\4\46\132\8\116\5\18\0\3\38\2\213\132\3\41\1\244\0\3\41\1\244\132\3\94\2\245\0",

	"\8\127\5\8\132\8\127\0\14\0\8\127\0\14\132\8\194\5\29\0\8\194\5\29\132\9\36\5\82\0\9\29\5\75\132\9\180\5\103\0",

	"\9\194\5\92\132\10\51\6\5\0\10\51\6\5\132\10\216\5\152\0\10\227\5\145\132\11\189\5\212\0\11\189\5\212\132\12\91\5\131\0",

	"\12\91\5\131\132\12\253\5\191\0\12\253\5\191\132\13\149\5\106\0\13\149\5\106\132\16\11\5\106\0\14\19\5\110\132\14\16\4\236\0",

	"\14\16\4\236\132\15\66\4\236\0\15\66\4\236\132\15\66\5\110\0\14\79\4\194\132\15\6\4\194\0\14\255\4\176\132\14\255\4\49\0",

	"\14\255\4\49\132\14\76\4\53\0\14\76\4\53\132\14\76\4\201\0\14\125\4\74\128\14\128\4\187\0\14\188\4\77\128\14\185\4\179\0",

	"\14\111\4\39\129\14\76\3\252\0\14\72\3\249\129\14\72\3\147\0\14\72\3\147\129\14\97\3\235\0\14\97\3\235\129\14\146\4\28\0",

	"\14\202\4\28\129\14\248\3\238\0\14\248\3\238\129\15\17\3\133\0\15\17\3\133\129\15\27\3\235\0\15\27\3\235\129\14\230\4\49\0",

	"\1\124\6\220\130\1\244\7\13\0\1\244\7\13\130\2\104\6\206\0\2\100\6\206\130\2\30\6\178\0\2\12\6\181\130\1\135\6\213\0",

	"\3\172\7\136\130\15\41\7\136\0\15\41\7\136\130\15\41\7\62\0\15\41\7\62\130\3\175\7\52\0\3\175\7\52\130\3\126\6\206\0",

	"\3\126\6\206\130\3\122\7\133\0\3\122\7\133\130\3\186\7\136\0\8\123\7\94\136\9\173\7\101\0\8\88\7\66\130\8\88\7\119\0",

	"\9\212\7\69\130\9\212\7\126\0\8\155\0\14\133\8\151\5\11\0\8\190\2\160\131\8\194\5\1\0\14\83\3\235\131\14\114\4\21\0",

	"\15\10\3\196\131\15\10\3\235\0\15\10\3\235\131\14\220\4\32\0\14\65\5\47\137\15\20\5\36\0\15\41\5\82\132\15\41\5\82\0",

	"\3\94\3\17\138\4\137\5\124\0\3\221\3\119\138\5\57\4\250\0\4\102\4\67\160\5\26\4\74\0\4\113\5\36\161\5\142\4\222\0",

	"\4\42\5\216\169\9\89\6\26\0\6\100\5\22\145\8\134\5\64\0\6\255\4\197\140\7\161\4\120\0\7\214\4\204\146\7\214\4\204\0",

	"\10\55\6\97\147\11\13\5\247\0\11\59\6\26\146\11\224\6\30\0\12\95\6\16\153\14\55\6\90\0\13\173\5\226\153\15\196\5\212\0",

	"\15\172\7\91\152\15\165\5\230\0\15\235\7\221\142\255\238\7\207\0\14\248\6\188\152\3\217\6\178\0\3\112\6\83\143\3\31\7\101\0",

	"\3\73\7\143\140\3\73\7\143\0\15\62\7\13\140\15\62\7\13\0\15\101\7\157\140\15\101\7\157\0\2\181\6\220\141\1\205\7\108\0",

	"\2\86\6\160\137\2\150\6\128\0\2\26\6\153\134\1\96\6\195\0\1\82\6\241\136\1\226\7\59\0\2\157\7\98\155\2\157\7\98\0",

	"\1\64\7\80\149\255\249\7\27\0\1\4\6\174\148\0\25\6\86\0\0\211\6\58\139\0\7\5\219\0\0\35\5\159\142\0\4\5\47\0",

	"\8\123\0\14\199\8\187\0\11\0\16\14\5\99\199\16\14\7\245\0\255\235\4\218\199\255\238\8\25\0\8\67\2\72\202\8\208\2\72\0",

	"\8\141\1\251\202\8\141\0\74\0\8\201\2\143\195\8\204\4\49\0\8\84\2\185\205\8\204\2\188\0\8\99\2\230\205\8\187\2\230\0",

	"\8\165\3\41\131\8\144\3\3\0\8\144\3\3\131\8\60\2\248\0\8\60\2\248\131\7\252\3\59\0\7\252\3\59\131\8\137\3\31\0",

	"\8\56\3\20\131\8\102\3\20\0\8\60\3\13\194\8\60\3\13\0\8\60\3\3\128\8\60\3\31\0\7\238\3\66\128\7\214\3\84\0",

	"\7\217\3\87\128\7\217\3\98\0\7\217\3\87\128\7\200\3\91\0\6\209\4\70\208\8\18\4\95\0\0\11\4\225\131\0\0\8\21\0",

	"\15\224\5\99\131\15\245\7\252\0\15\242\5\191\192\15\196\6\33\0\15\196\6\33\192\15\245\6\209\0\15\245\6\209\192\15\193\7\115\0",

	"\15\193\7\115\192\15\235\8\18\0\15\249\5\223\196\15\217\6\40\0\15\217\6\40\196\16\4\6\188\0\15\245\6\16\196\16\21\7\77\0",

	"\16\0\6\245\196\15\214\7\112\0\15\207\7\129\196\16\0\8\4\0\15\245\7\80\196\16\4\7\207\0\15\221\5\85\196\16\11\5\184\0",

}

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

choiceAccepted = 1

choiceRefused = 2

choiceAttacked = 3

choiceEliminate = 1

choiceSpare = 2

leaksNum = 1

denseNum = 2

waterNum = 3

buffaloNum = 4

chiefNum = 5

girlNum = 6

wiseNum = 7

nativeNames = {loc("Leaks A Lot"), loc("Dense Cloud"), loc("Fiery Water"), 

               loc("Raging Buffalo"), loc("Righteous Beard"), loc("Fell From Grace"),

               loc("Wise Oak"), loc("Ramon"), loc("Spiky Cheese")

              }

nativeUnNames = {loc("Zork"), loc("Steve"), loc("Jack"),

                 loc("Lee"), loc("Elmo"), loc("Rachel"),

                 loc("Muriel")}

nativeHats = {"Rambo", "RobinHood", "pirate_jack", "zoo_Bunny", "IndianChief",

              "tiara", "AkuAku", "rasta", "hair_yellow"}

nativePos = {{110, 1310}, {984, 1907}, {1040, 1907}}

nativePos2 = {196, 1499}

cyborgNames = {loc("Unit 0x0007"), loc("Hogminator"), loc("Carol"), 

               loc("Blender"), loc("Elderbot"), loc("Fiery Water")}

cyborgsDif = {2, 2, 2, 2, 2, 1}

cyborgsHealth = {90, 90, 90, 80, 80, 20}

cyborgPos = {945, 1216}

cyborgsNum = 6

cyborgsPos = {{2243, 1043}, {3588, 1227}, {2781, 1388},

              {3749, 1040}, {2475, 1338}, {3853, 881}}

cyborgsDir = {"Left", "Left", "Left", "Left", "Left", "Right"}

princessPos = {3737, 1181}

crateConsts = {}

reactions = {}

nativeMidPos = {1991, 841}

cyborgMidPos = {2109, 726}

nativeMidPos2 = {2250, 1071}

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

natives = {}

native = nil

cyborgs = {}

cyborg = nil

gearDead = {}

hedgeHidden = {}

startAnim = {}

midAnim = {}

freshDead = nil

crates = {}

cratesNum = 0

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

function EmitDenseClouds(dir)

  local dif

  if dir == "Left" then

    dif = 10

  else

    dif = -10

  end

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

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

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

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

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

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

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

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

end

function AnimationSetup()

  table.insert(startAnim, {func = AnimWait, args = {natives[1], 4000}})

  table.insert(startAnim, {func = AnimMove, args = {natives[1], "Right", unpack(nativePos2)}})

  if m5DeployedNum == leaksNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Those aliens are destroying the island!"), SAY_THINK, 5000}})

  elseif m5DeployedNum == denseNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Dude, all the plants are gone!"), SAY_THINK, 3500}})

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("What am I gonna...eat, yo?"), SAY_THINK, 3500}})

  elseif m5DeployedNum == girlNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Fell From Heaven is the best! Fell From Heaven is the greatest!"), SAY_THINK, 7000}})

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Yuck! I bet they'll keep worshipping her even after I save the village!"), SAY_THINK, 7500}})

  elseif m5DeployedNum == chiefNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("I'm getting old for this!"), SAY_THINK, 4000}})

  elseif m5DeployedNum == waterNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("I'm getting thirsty..."), SAY_THINK, 3000}})

  elseif m5DeployedNum == buffaloNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("I wonder why I'm so angry all the time..."), SAY_THINK, 6000}})

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("It must be a childhood trauma..."), SAY_THINK, 4000}})

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Just wait till I get my hands on that trauma! ARGH!"), SAY_THINK, 6500}})

  elseif m5DeployedNum == wiseNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("I could just teleport myself there..."), SAY_THINK, 4500}})

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("It's a shame, I forgot how to do that!"), SAY_THINK, 4500}})

  end

  table.insert(startAnim, {func = AnimCustomFunction, args = {natives[1], RestoreHedge, {cyborg}}})

  table.insert(startAnim, {func = AnimOutOfNowhere, args = {cyborg, unpack(cyborgPos)}})

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

  table.insert(startAnim, {func = AnimTurn, args = {natives[2], "Left"}})

  table.insert(startAnim, {func = AnimTurn, args = {natives[3], "Left"}})

  table.insert(startAnim, {func = AnimSay, args = {cyborg, loc("Hello again, ") .. nativeUnNames[m5DeployedNum] .. "!", SAY_SAY, 2500}})

  table.insert(startAnim, {func = AnimSay, args = {cyborg, loc("I just found out that they have captured your princess!"), SAY_SAY, 7000}})

  if m5DeployedNum == girlNum then

    table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Of course I have to save her. What did I expect?!"), SAY_SAY, 7000}})

  elseif m5DeployedNum == denseNum then

    table.insert(startAnim, {func = AnimCustomFunction, args = {natives[1], EmitDenseClouds, {"Right"}}})

  end

  table.insert(startAnim, {func = AnimSay, args = {cyborg, loc("She's behind that tall thingy."), SAY_SAY, 5000}})

  table.insert(startAnim, {func = FollowGear, swh = false, args = {princess}})

  table.insert(startAnim, {func = AnimWait, swh = false, args = {princess, 1000}})

  table.insert(startAnim, {func = FollowGear, swh = false, args = {cyborg}})

  table.insert(startAnim, {func = AnimSay, args = {cyborg, loc("I'm here to help you rescue her."), SAY_SAY, 5000}})

  table.insert(startAnim, {func = AnimSay, args = {natives[2], loc("Yo, dude, we're here, too!"), SAY_SHOUT, 4000}})

  table.insert(startAnim, {func = AnimSay, args = {natives[3], loc("We were trying to save her and we got lost."), SAY_SHOUT, 6000}})

  table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("That's typical of you!"), SAY_SAY, 3000}})

  table.insert(startAnim, {func = AnimSay, args = {natives[1], loc("Why are you helping us, uhm...?"), SAY_SAY, 3000}})

  table.insert(startAnim, {func = AnimSay, args = {cyborg, loc("Call me Beep! Well, 'cause I'm such a nice...person!"), SAY_SAY, 2500}})

  table.insert(startAnim, {func = AnimDisappear, args = {cyborg, unpack(cyborgPos)}})

  table.insert(startAnim, {func = AnimSwitchHog, args = {natives[1]}})

  table.insert(startAnim, {func = AnimWait, args = {natives[1], 1}})

  AddSkipFunction(startAnim, SkipStartAnim, {})

  table.insert(midAnim, {func = AnimCustomFunction, args = {natives[1], RestoreHedge, {cyborg}}})

  table.insert(midAnim, {func = AnimOutOfNowhere, args = {cyborg, unpack(cyborgMidPos)}}) 

  table.insert(midAnim, {func = AnimTurn, args = {cyborg, "Left"}})

  table.insert(midAnim, {func = AnimTeleportGear, args = {natives[1], unpack(nativeMidPos)}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("Here, let me help you save her!"), SAY_SAY, 5000}})

  table.insert(midAnim, {func = AnimSay, args = {natives[1], loc("Thanks!"), SAY_SAY, 2000}})

  table.insert(midAnim, {func = AnimTeleportGear, args = {natives[1], unpack(nativeMidPos2)}})

  table.insert(midAnim, {func = AnimSay, args = {natives[1], loc("Why can't he just let her go?!"), SAY_THINK, 5000}})

  AddSkipFunction(midAnim, SkipStartAnim, {})

end

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

function AfterMidAnim()

  HideHedge(cyborg)

  SetupPlace3()

  SetGearMessage(natives[1], 0)

  AddNewEvent(CheckPrincessFreed, {}, DoPrincessFreed, {}, 0)

  TurnTimeLeft = TurnTime

  ShowMission(loc("Family Reunion"), loc("Salvation"), loc("Get your teammates out of their natural prison and save the princess!|Hint: Drilling holes should solve everything."), 1, 7000)

end

function SetupPlace3()

  SpawnUtilityCrate(2086, 1887, amRope, 1)

  SpawnUtilityCrate(2147, 728, amBlowTorch, 2)

  SpawnUtilityCrate(2778, 1372, amPickHammer, 2)

  SpawnUtilityCrate(2579, 1886, amPickHammer, 2)

  SpawnUtilityCrate(2622, 1893, amGirder, 1)

  SpawnUtilityCrate(2671, 1883, amPortalGun, 3)

  SpawnUtilityCrate(2831, 1384, amGirder, 3)

  SetTimer(AddGear(2725, 1387, gtMine, 0, 0, 0, 0), 5000)

  SetTimer(AddGear(2760, 1351, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2805, 1287, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2831, 1376, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2684, 1409, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2637, 1428, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2278, 1280, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2311, 1160, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2339, 1162, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2362, 1184, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2407, 1117, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2437, 1143, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2472, 1309, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2495, 1331, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2536, 1340, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2569, 1360, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2619, 1379, gtMine, 0, 0, 0, 0), 5000)

	SetTimer(AddGear(2596, 1246, gtMine, 0, 0, 0, 0), 5000)

end

function SkipStartAnim()

  AnimSwitchHog(natives[1])

  AnimWait(natives[1], 1)

end

function AfterStartAnim()

  HideHedge(cyborg)

  SetupPlace2()

  SetGearMessage(natives[1], 0)

  AddNewEvent(CheckGearDead, {natives[1]}, EndMission, {}, 0)

  AddNewEvent(CheckGearDead, {natives[2]}, EndMission, {}, 0)

  AddNewEvent(CheckGearDead, {natives[3]}, EndMission, {}, 0)

  AddNewEvent(CheckGearDead, {princess}, EndMission, {}, 0)

  AddNewEvent(CheckCyborgsDead, {}, DoCyborgsDead, {}, 0)

  for i = 1, cyborgsNum do

    AddNewEvent(CheckGearDead, {cyborgs[i]}, DoCyborgDead, {i}, 0)

  end

  TurnTimeLeft = TurnTime

  ShowMission(loc("Family Reunion"), loc("Hostage Situation"), loc("Save the princess! All your hogs must survive!|Hint: Kill the cyborgs first! Use the ammo very carefully!"), 1, 7000)

end

function SetupPlace2()

	PlaceGirder(709, 564, 7)

	PlaceGirder(591, 677, 7)

	PlaceGirder(473, 794, 7)

	PlaceGirder(433, 933, 5)

	PlaceGirder(553, 1052, 5)

	PlaceGirder(674, 1170, 5)

	PlaceGirder(710, 1310, 7)

	PlaceGirder(648, 1427, 5)

  PlaceGirder(2110, 980, 0)

	SpawnAmmoCrate(814, 407, amBazooka, 8)

	SpawnAmmoCrate(862, 494, amClusterBomb, 8)

	SpawnAmmoCrate(855, 486, amBee, 5)

	SpawnAmmoCrate(849, 459, amGrenade, 8)

	SpawnAmmoCrate(2077, 847, amWatermelon, 3)

	SpawnAmmoCrate(2122, 847, amGrenade, 8)

	SpawnUtilityCrate(747, 1577, amPickHammer, 1)

	SpawnUtilityCrate(496, 1757, amGirder, 2)

  SpawnUtilityCrate(1809, 1880, amGirder, 1)

	SpawnUtilityCrate(530, 1747, amPortalGun, 1)

end

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

function CheckPrincessFreed()

  return math.abs(GetX(natives[1]) - GetX(princess)) <= 10 and math.abs(GetX(natives[1]) - GetX(princess)) <= 10 and StoppedGear(natives[1]) 

        and GetY(natives[2]) < 1500 and GetY(natives[3]) < 1500 and StoppedGear(natives[2]) and StoppedGear(natives[3])

end

function DoPrincessFreed()

  AnimSay(princess, loc("Thank you, my hero!"), SAY_SAY, 0)

  SaveCampaignVar("Progress", "7")

  ParseCommand("teamgone " .. loc("011101001"))

  TurnTimeLeft = 0

end

function CheckCyborgsDead()

  return cyborgsLeft == 0

end

function DoCyborgsDead()

  AddAnim(midAnim)

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

end

function DoCyborgDead(index)

  if cyborgsLeft == 0 then

    return

  end

  if index == 1 then

    SpawnAmmoCrate(1700, 407, amBazooka, 3)

  elseif index == 2 then

    SpawnAmmoCrate(1862, 494, amClusterBomb, 3)

  elseif index == 3 then

  	SpawnAmmoCrate(1855, 486, amBee, 1)

  elseif index == 4 then

    SpawnAmmoCrate(1849, 459, amGrenade, 3)

  elseif index == 5 then

    SpawnAmmoCrate(2122, 847, amGrenade, 3)

  elseif index == 6 then

    SpawnAmmoCrate(2077, 847, amWatermelon, 1)

  end

end

function CheckGearsDead(gearList)

  for i = 1, # gearList do

    if gearDead[gearList[i]] ~= true then

      return false

    end

  end

  return true

end

function CheckGearDead(gear)

  return gearDead[gear]

end

function EndMission()

  AddCaption("So the princess was never heard of again...")

  ParseCommand("teamgone " .. loc("Natives"))

  ParseCommand("teamgone " .. loc("011101001"))

  TurnTimeLeft = 0

end

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

function HideHedge(hedge)

  if hedgeHidden[hedge] ~= true then

    HideHog(hedge)

    hedgeHidden[hedge] = true

  end

end

function RestoreHedge(hedge)

  if hedgeHidden[hedge] == true then

    RestoreHog(hedge)

    hedgeHidden[hedge] = false

  end

end

function GetVariables()

  m5DeployedNum = tonumber(GetCampaignVar("M5DeployedNum"))

  m2Choice = tonumber(GetCampaignVar("M2Choice"))

  m5Choice = tonumber(GetCampaignVar("M5Choice"))

end

function SetupPlace()

  SetHogHat(natives[1], nativeHats[m5DeployedNum])

  SetHogName(natives[1], nativeNames[m5DeployedNum])

  if m2Choice ~= choiceAccepted or m5Choice ~= choiceEliminate then

    DeleteGear(cyborgs[cyborgsNum])

    cyborgsNum = cyborgsNum - 1

  end

  HideHedge(cyborg)

  AddGear(princessPos[1], princessPos[2], gtCase, 0, 0, 0, 0)

end

function SetupEvents()

end

function SetupAmmo()

  AddAmmo(cyborgs[1], amBazooka, 100)

  AddAmmo(cyborgs[1], amGrenade, 100)

  AddAmmo(cyborgs[1], amClusterBomb, 100)

  AddAmmo(cyborgs[1], amSniperRifle, 1)

  AddAmmo(cyborgs[1], amDynamite, 100)

  AddAmmo(cyborgs[1], amBaseballBat, 100)

  AddAmmo(cyborgs[1], amMolotov, 100)

end

function AddHogs()

	AddTeam(loc("Natives"), 29439, "Bone", "Island", "HillBilly", "cm_birdy")

  for i = 7, 9 do

    natives[i-6] = AddHog(nativeNames[i], 0, 100, nativeHats[i])

    gearDead[natives[i-6]] = false

  end

  AddTeam(loc("011101001"), 14483456, "ring", "UFO", "Robot", "cm_star")

  cyborg = AddHog(loc("Unit 334a$7%;.*"), 0, 200, "cyborg1")

  princess = AddHog(loc("Fell From Heaven"), 0, 133, "tiara")

  gearDead[cyborg] = false

  gearDead[princess] = false

  AddTeam(loc("Biomechanic Team"), 14483457, "ring", "UFO", "Robot", "cm_star")

  for i = 1, cyborgsNum do

    cyborgs[i] = AddHog(cyborgNames[i], cyborgsDif[i], cyborgsHealth[i], "cyborg2")

    gearDead[cyborgs[i]] = false

  end

  cyborgsLeft = cyborgsNum

  for i = 1, 3 do

  end

  for i = 1, cyborgsNum do

    AnimTurn(cyborgs[i], cyborgsDir[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

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

function onGameInit()

	Seed = 0

	GameFlags = gfSolidLand + gfDisableLandObjects + gfDisableGirders

	TurnTime = 60000 

	CaseFreq = 0

	MinesNum = 0

	MinesTime = 3000

	Explosives = 0

	Delay = 10 

  MapGen = 2

	Theme = "Hell"

  SuddenDeathTurns = 25

	for i = 1, #map do

		ParseCommand('draw ' .. map[i])

	end

  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)

  gearDead[gear] = true

  if GetGearType(gear) == gtHedgehog then

    if GetHogTeamName(gear) == loc("Biomechanic Team") then

      cyborgsLeft = cyborgsLeft - 1

    end

  end

end

function onGearAdd(gear)

end

function onAmmoStoreInit()

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

  SetAmmo(amSwitch, 9, 0, 0, 0)

	SetAmmo(amBazooka, 0, 0, 0, 8)

	SetAmmo(amClusterBomb,0, 0, 0, 8)

	SetAmmo(amBee, 0, 0, 0, 3)

	SetAmmo(amGrenade, 0, 0, 0, 8)

	SetAmmo(amWatermelon, 0, 0, 0, 2)

	SetAmmo(amSniperRifle, 0, 0, 0, 3)

	SetAmmo(amPickHammer, 0, 0, 0, 1)

	SetAmmo(amGirder, 0, 0, 0, 3)

	SetAmmo(amPortalGun, 0, 0, 0, 1)

end

function onNewTurn()

  if AnimInProgress() then

    TurnTimeLeft = -1

    return

  end

  if GetHogTeamName(CurrentHedgehog) == loc("011101001") then

    TurnTimeLeft = 0

  elseif GetHogTeamName(CurrentHedgehog) == loc("Biomechanic Team") then

    HideHedge(princess)

  else

    RestoreHedge(princess)

  end

end

function onGearDamage(gear, damage)

end

function onPrecise()

  if GameTime > 2500 and AnimInProgress() then

    SetAnimSkip(true)

    return

  end

end