--[[

A Classic Fairytale: The Journey Back

= SUMMARY =

This is a very complex and heavily scripted mission with

2 major gameplay variants and 2 sub-variants each.

This mission is mostly about movement and overcoming obstacles,

and not much about fighting.

The player has either 1 or 2 hogs (depending on previous mission)

and must reach the left coast. The cyborg will show up from time

to time and constantly annoys the heroes with obstacles and additional

challenges.

The mission's gameplay is affected by whether Dense Cloud survived

in the previous mission. The mission's dialogues are affected by

the decision of the player in the previous mission.

= GOALS =

- Collect the crate at the left coast

- (Need to accomplish various sub-goals before this is possible)

- Then kill the cyborg

= FLOW CHART =

== Linear events ==

Note: This mission's gameplay is significantly affected by the choices of the previous mission (The Shadow Falls).

There are two major paths, and each of them has two variants.

=== PATH ONE (AL) ===

Condition: Cyborg's offer in ACF2 accepted and Dense Cloud survived.

- Mission starts with Dense Cloud and Leaks a Lot

- Mines time: 5s

- Cut scene: startAnimAL (initial instructions)

- Hog moves past flower (via teamwork)

- Animation: pastFlowerAnimAL

- Player jumps up the tree

- Cut scene: outPutAnimAL

- Cyborg teleports one hog to the pit, while the other hog remains

- TBS

- Trapped hog walks out of pit

- Cut scene: midAnimAL

- Trapped hog is teleported below bridge (and trapped again)

- A huge barricade at the bridge is erected, and mines spawn on bridge

- Now any hog needs to collect the final crate

- TBS

- Final crate collected

- Cut scene: endAnimAL

- Cyborg and princess apear, player must kill cyborg

| Cyborg killed

    - Cut scene: winAnim

    > Victory

| Princess killed

    - Cut scene: endFailAnim

    > Game over

=== PATH TWO (AD) ===

Condition: Cyborg's offer in ACF2 accepted, but Dense Cloud died afterwards.

- Mission starts with Leaks a Lot only

- Cut scene: startAnimAD (initial instructions)

- Hog moves past flower (via blowtorch)

- Animation: pastFlowerAnimAD

- TBS

- Hog proceeds all the way to the bridge

- Cut scene: outPutAnimAD (the “Princess Game”)

- Hog is teleported to the pit

- TBS

- Hog must reach goal crate within a given number of turns

| Hog reaches goal crate within the turn limit

    - Cut scene: endAnimAD

    - Cyborg and princess spawn

    | Cyborg killed

        - Cut scene: winAnim

        > Victory

    | Princess killed

        - Cut scene: endFailAnim

        > Game over

| Turn limit exceeded

    - Cut scene: failAnimAD (princess is caged and killed by cyborg)

    > Game over

=== PATH THREE (RL) ===

Condition: Cyborg's offer in ACF2 rejected.

This is almost identical to Path One, only the dialogues differ.

All AL animations are replaced with RL animations.

=== PATH FOUR (attacked) ===

Condition: Cyborg from ACF2 was attacked.

This is almost identical to Path Two, only the dialogues differ.

Uses startAnim and midAnim from SetupAnimAttacked.

== Non-linear events ==

- Any of the Natives dies

   > Game over

]]

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Animate.lua")

--///////////////////////////////CONSTANTS///////////////////////////

choiceAccepted = 1

choiceRefused = 2

choiceAttacked = 3

endStage = 1

cannibalNum = 8

cannibalNames = {loc("John"), loc("Flesh for Brainz"), loc("Eye Chewer"), loc("Torn Muscle"),

                 loc("Nom-Nom"), loc("Vedgies"), loc("Brain Blower"), loc("Gorkij")}

cannibalPos = {{2471, 1174}, {939, 1019}, {1953, 902}, {3055, 1041},

               {1121, 729}, {1150, 718}, {1149, 680}, {1161, 773}}

startLeaksPosDuo = {3572, 1426}

startEventXDuo = 3300

startDensePosDuo = {3454, 1471}

startCyborgPosDuo = {3202, 1307}

midDensePosDuo = {1464, 1410}

midCyborgPosDuo = {1264, 1390}

--///////////////////////////////VARIABLES///////////////////////////

m2Choice = 0

m2DenseDead = 0

TurnsLeft = 0

stage = 0

nativesTeamName = nil

princessTeamName = nil

cannibalsTeamName = nil

cyborgTeamName = nil

startAnimStarted = false

blowTaken = false

gravityTaken = false

sniperTaken = false

leaksDead = false

denseDead = false

princessDead = false

cyborgDead = false

victory = false

cannibalDead = {}

hedgeHidden = {}

startAnim = {}

startAnimAD = {}

startAnimAL = {}

startAnimRL = {}

pastFlowerAnimAL = {}

pastFlowerAnimRL = {}

pastFlowerAnim = {}

outPitAnimAL = {}

outPitAnimRL = {}

outPitAnim = {}

midAnim = {}

midAnimAD = {}

failAnim = {}

failAnimAD = {}

endAnim = {}

endAnimAD = {}

endAnimAL = {}

endAnimRL = {}

endFailAnim = {}

winAnim = {}

winAnimAD = {}

--/////////////////////////Animation Functions///////////////////////

function AfterMidFailAnim()

  EndTurn(true)

end

function AfterMidAnimAlone()

  SetupCourse()

  for i = 5, 8 do

    RestoreHedge(cannibals[i])

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

  end

  AddAmmo(cannibals[5], amDEagle, 0)

  AddEvent(CheckOnFirstGirder, {}, DoOnFirstGirder, {}, 0)

  AddEvent(CheckTookSniper, {}, DoTookSniper, {}, 0)

  AddEvent(CheckFailedCourse, {}, DoFailedCourse, {}, 0)

  SetGearMessage(leaks, band(GetGearMessage(leaks), bnot(gmAllStoppable)))

  TurnsLeft = 12

  SetTurnTimeLeft(TurnTime)

  ShowMission(loc("The Journey Back"), loc("Collateral Damage"),

    loc("Save the princess by collecting the crate in under 12 turns!") .. "|" ..

    loc("Mines time: 3 seconds"), 0, 6000)

  -----------------------///////////////------------

end

function SkipEndAnimAlone()

  RestoreHedge(cyborg)

  RestoreHedge(princess)

  AnimSetGearPosition(cyborg, 437, 1700)

  AnimSetGearPosition(princess, 519, 1726)

end

function SkipEndAnimDuo()

  RestoreHedge(cyborg)

  RestoreHedge(princess)

  if princessHidden then

    RestoreHog(princess)

    princessHidden = false

  end

  AnimSetGearPosition(cyborg, 437, 1700)

  AnimSetGearPosition(princess, 519, 1726)

  AnimSetGearPosition(leaks, 763, 1760)

  AnimSetGearPosition(dense, 835, 1519)

  HogTurnLeft(leaks, true)

  HogTurnLeft(dense, true)

end

function AfterEndAnimAlone()

  stage = endStage

  SetGearMessage(dense, band(GetGearMessage(dense), bnot(gmAllStoppable)))

  AnimSwitchHog(leaks)

  SetTurnTimeLeft(MAX_TURN_TIME)

  ShowMission(loc("The Journey Back"), loc("Collateral Damage II"), loc("Save Fell From Heaven!"), 1, 4000)

  AddEvent(CheckLost, {}, DoLost, {}, 0)

  AddEvent(CheckWon, {}, DoWon, {}, 0)

  RemoveEventFunc(CheckFailedCourse)

end

function AfterEndAnimDuo()

  stage = endStage

  SetGearMessage(dense, band(GetGearMessage(dense), bnot(gmAllStoppable)))

  AnimSwitchHog(leaks)

  SetTurnTimeLeft(MAX_TURN_TIME)

  ShowMission(loc("The Journey Back"), loc("Collateral Damage II"), loc("Save Fell From Heaven!"), 1, 4000)

  AddEvent(CheckLost, {}, DoLost, {}, 0)

  AddEvent(CheckWon, {}, DoWon, {}, 0)

end

function SkipMidAnimAlone()

  AnimSetGearPosition(leaks, 2656, 1845)

  AnimSwitchHog(leaks)

  AnimWait(dense, 1)

  AddFunction({func = HideHedge, args = {princess}})

  AddFunction({func = HideHedge, args = {cyborg}})

end

function AfterStartAnim()

  SetGearMessage(leaks, band(GetGearMessage(leaks), bnot(gmAllStoppable)))

  SetTurnTimeLeft(TurnTime)

  local goal = loc("Get the crate on the other side of the island.")

  local hint = loc("Hint: You might want to stay out of sight and take all the crates ...")

  local stuck = loc("If you get stuck, use your Desert Eagle or restart the mission!")

  local conds = loc("Leaks A Lot must survive!")

  if m2DenseDead == 0 then

    conds = loc("Your hogs must survive!")

  end

  ShowMission(loc("The Journey Back"), loc("Adventurous"), goal .. "|" .. hint .. "|" .. stuck .. "|" .. conds, 0, 7000)

end

function SkipStartAnim()

  AnimTurn(leaks, "Left")

  AnimSwitchHog(leaks)

end

function PlaceCratesDuo()

  SpawnSupplyCrate(3090, 827, amBaseballBat)

  girderCrate1 = SpawnSupplyCrate(2366, 1814, amGirder)

  girderCrate2 = SpawnSupplyCrate(2630, 1278, amGirder)

  SpawnSupplyCrate(2322, 1810, amParachute)

  SpawnSupplyCrate(3157, 1009, amLowGravity)

  sniperCrate = SpawnSupplyCrate(784, 1715, amSniperRifle)

end

function PlaceMinesDuo()

  AddGear(2920, 1448, gtMine, 0, 0, 0, 0)

  AddGear(2985, 1338, gtMine, 0, 0, 0, 0)

  AddGear(3005, 1302, gtMine, 0, 0, 0, 0)

  AddGear(3030, 1270, gtMine, 0, 0, 0, 0)

  AddGear(3046, 1257, gtMine, 0, 0, 0, 0)

  AddGear(2954, 1400, gtMine, 0, 0, 0, 0)

  AddGear(2967, 1385, gtMine, 0, 0, 0, 0)

  AddGear(2849, 1449, gtMine, 0, 0, 0, 0)

  AddGear(2811, 1436, gtMine, 0, 0, 0, 0)

  AddGear(2773, 1411, gtMine, 0, 0, 0, 0)

  AddGear(2732, 1390, gtMine, 0, 0, 0, 0)

  AddGear(2700, 1362, gtMine, 0, 0, 0, 0)

  AddGear(2642, 1321, gtMine, 0, 0, 0, 0)

  AddGear(2172, 1417, gtMine, 0, 0, 0, 0)

  AddGear(2190, 1363, gtMine, 0, 0, 0, 0)

  AddGear(2219, 1332, gtMine, 0, 0, 0, 0)

  AddGear(1201, 1207, gtMine, 0, 0, 0, 0)

  AddGear(1247, 1205, gtMine, 0, 0, 0, 0)

  AddGear(1295, 1212, gtMine, 0, 0, 0, 0)

  AddGear(1356, 1209, gtMine, 0, 0, 0, 0)

  AddGear(1416, 1201, gtMine, 0, 0, 0, 0)

  AddGear(1466, 1201, gtMine, 0, 0, 0, 0)

  AddGear(1678, 1198, gtMine, 0, 0, 0, 0)

  AddGear(1738, 1198, gtMine, 0, 0, 0, 0)

  AddGear(1796, 1198, gtMine, 0, 0, 0, 0)

  AddGear(1637, 1217, gtMine, 0, 0, 0, 0)

  AddGear(1519, 1213, gtMine, 0, 0, 0, 0)

end

function AfterPastFlowerAnim()

  PlaceMinesDuo()

  AddEvent(CheckDensePit, {}, DoDensePit, {}, 0)

  SetGearMessage(dense, band(GetGearMessage(dense), bnot(gmAllStoppable)))

  SetGearMessage(leaks, band(GetGearMessage(leaks), bnot(gmAllStoppable)))

  EndTurn(true)

  ShowMission(loc("The Journey Back"), loc("The Savior"), 

    loc("Get Dense Cloud out of the pit!") .. "|" ..

    loc("Your hogs must survive!") .. "|" ..

    loc("Beware of mines: They explode after 5 seconds."), 1, 5000)

end

function SkipPastFlowerAnim()

  AnimSetGearPosition(dense, 2656, 1845)

  AnimTurn(dense, "Left")

  AnimSwitchHog(leaks)

  AnimWait(leaks, 1)

  AddFunction({func = HideHedge, args = {cyborg}})

end

function AfterOutPitAnim()

  SetupCourseDuo()

  RestoreHedge(cannibals[5])

  AddAmmo(cannibals[5], amDEagle, 0)

  HideHedge(cannibals[5])

  SetGearMessage(dense, band(GetGearMessage(dense), bnot(gmAllStoppable)))

  SetGearMessage(leaks, band(GetGearMessage(leaks), bnot(gmAllStoppable)))

  EndTurn(true)

  ShowMission(loc("The Journey Back"), loc("They never learn"),

    loc("Free Dense Cloud and continue the mission!") .. "|" ..

    loc("Collect the weapon crate at the left coast!") .. "|" ..

    loc("Your hogs must survive!") .. "|" ..

    loc("Mines time: 5 seconds"), 1, 5000)

end

function SkipOutPitAnim()

  AnimSetGearPosition(dense, unpack(midDensePosDuo))

  AnimSwitchHog(dense)

  AnimWait(dense, 1)

  AddFunction({func = HideHedge, args = {cyborg}})

end

function RestoreCyborg(x, y, xx, yy)

  RestoreHedge(cyborg)

  RestoreHedge(princess)

  AnimOutOfNowhere(cyborg, x, y)

  AnimOutOfNowhere(princess, xx, yy)

  HogTurnLeft(princess, false)

  return true

end

function RestoreCyborgOnly(x, y)

  RestoreHedge(cyborg)

  SetState(cyborg, 0)

  AnimOutOfNowhere(cyborg, x, y)

  return true

end

function TargetPrincess()

  SetWeapon(amDEagle)

  SetGearMessage(cyborg, gmUp)

  return true

end

function HideCyborg()

  HideHedge(cyborg)

  HideHedge(princess)

end

function HideCyborgOnly()

  HideHedge(cyborg)

end

function SetupKillRoom()

  PlaceGirder(2342, 1814, 2)

  PlaceGirder(2294, 1783, 0)

  PlaceGirder(2245, 1814, 2)

end

function SetupCourseDuo()

  PlaceGirder(1083, 1152, 6)

  PlaceGirder(1087, 1150, 6)

  PlaceGirder(1133, 1155, 0)

  PlaceGirder(1135, 1152, 0)

  PlaceGirder(1135, 1078, 0)

  PlaceGirder(1087, 1016, 2)

  PlaceGirder(1018, 921, 5)

  PlaceGirder(1016, 921, 5)

  PlaceGirder(962, 782, 6)

  PlaceGirder(962, 662, 2)

  PlaceGirder(962, 661, 2)

  PlaceGirder(962, 650, 2)

  PlaceGirder(962, 630, 2)

  PlaceGirder(1033, 649, 0)

  PlaceGirder(952, 650, 0)

  SpawnSupplyCrate(1846, 1100, amFirePunch, AMMO_INFINITE)

  SpawnSupplyCrate(1900, 1100, amPickHammer)

  SpawnSupplyCrate(950, 674, amDynamite)

  SpawnSupplyCrate(994, 825, amRope)

  SpawnSupplyCrate(570, 1357, amLowGravity)

end

local trackedGears = {}

-- Remove mines and crates for the princess cage scene.

-- Some annoying gears might get in the way for this scene, like a dropped

-- mine, or the crate on the leaf.

function ClearTrashForPrincessCage()

  for gear, _ in pairs(trackedGears) do

    if GetY(gear) > 1600 and GetX(gear) > 1800 and GetX(gear) < 2700 then

      DeleteGear(gear)

    end

  end

end

-- Dump mines in princess cage

function DumpMines(t)

  if not t then

    t = 0

  end

  AddGear(2261, 1835, gtMine, 0, 0, 0, t)

  AddGear(2280, 1831, gtMine, 0, 0, 0, t)

  AddGear(2272, 1809, gtMine, 0, 0, 0, t)

  AddGear(2290, 1815, gtMine, 0, 0, 0, t)

  AddGear(2278, 1815, gtMine, 0, 0, 0, t)

  AddGear(2307, 1811, gtMine, 0, 0, 0, t)

  AddGear(2286, 1820, gtMine, 0, 0, 0, t)

  AddGear(2309, 1813, gtMine, 0, 0, 0, t)

  AddGear(2303, 1822, gtMine, 0, 0, 0, t)

  AddGear(2317, 1827, gtMine, 0, 0, 0, t)

  AddGear(2312, 1816, gtMine, 0, 0, 0, t)

  AddGear(2316, 1812, gtMine, 0, 0, 0, t)

  AddGear(2307, 1802, gtMine, 0, 0, 0, t)

  AddGear(2276, 1818, gtMine, 0, 0, 0, t)

  AddGear(2284, 1816, gtMine, 0, 0, 0, t)

  AddGear(2292, 1811, gtMine, 0, 0, 0, t)

  AddGear(2295, 1814, gtMine, 0, 0, 0, t)

  AddGear(2306, 1811, gtMine, 0, 0, 0, t)

  AddGear(2292, 1815, gtMine, 0, 0, 0, t)

  AddGear(2314, 1815, gtMine, 0, 0, 0, t)

  AddGear(2286, 1813, gtMine, 0, 0, 0, t)

  AddGear(2275, 1813, gtMine, 0, 0, 0, t)

  AddGear(2269, 1814, gtMine, 0, 0, 0, t)

  AddGear(2273, 1812, gtMine, 0, 0, 0, t)

  AddGear(2300, 1808, gtMine, 0, 0, 0, t)

  AddGear(2322, 1812, gtMine, 0, 0, 0, t)

  AddGear(2323, 1813, gtMine, 0, 0, 0, t)

  AddGear(2311, 1811, gtMine, 0, 0, 0, t)

  AddGear(2303, 1809, gtMine, 0, 0, 0, t)

  AddGear(2287, 1808, gtMine, 0, 0, 0, t)

  AddGear(2282, 1808, gtMine, 0, 0, 0, t)

  AddGear(2277, 1809, gtMine, 0, 0, 0, t)

  AddGear(2296, 1809, gtMine, 0, 0, 0, t)

  AddGear(2314, 1818, gtMine, 0, 0, 0, t)

end

function SetupAnimRefusedDied()

  SetupAnimAcceptedDied()

  table.insert(startAnim, {func = AnimSay, args = {leaks, loc("I just wonder where Ramon and Spiky disappeared..."), SAY_THINK, 6000}})

end

function SetupAnimAttacked()

  SetupAnimAcceptedDied()

  startAnim = {}

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

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

  table.insert(startAnim, {func = AnimSay, args = {leaks, loc("I wonder where Dense Cloud is..."), SAY_THINK, 4000}})

  table.insert(startAnim, {func = AnimSay, args = {leaks, loc("He must be in the village already."), SAY_THINK, 4000}})

  table.insert(startAnim, {func = AnimSay, args = {leaks, loc("I'd better get going myself."), SAY_THINK, 4000}})

  AddSkipFunction(startAnim, SkipStartAnim, {})

  midAnim = {}

  table.insert(midAnim, {func = AnimWait, args = {leaks, 500}})

  table.insert(midAnim, {func = AnimCustomFunction, swh = false, args = {leaks, RestoreCyborg, {1300, 1200, 1390, 1200}}})

  table.insert(midAnim, {func = AnimSwitchHog, args = {cyborg}})

  table.insert(midAnim, {func = AnimCustomFunction, args = {cyborg, TargetPrincess, {}}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("Welcome, Leaks A Lot!"), SAY_SAY, 3000}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("I want to play a game..."), SAY_SAY, 3000}})

  table.insert(midAnim, {func = AnimSay, args = {princess, loc("Help me, please!"), SAY_SHOUT, 3000}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("If you can get that crate fast enough, your beloved \"princess\" may go free."), SAY_SAY, 7000}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("However, if you fail to do so, she dies a most violent death! Muahahaha!"), SAY_SAY, 8000}})

  table.insert(midAnim, {func = AnimSay, args = {cyborg, loc("Good luck...or else!"), SAY_SAY, 4000}})

  table.insert(midAnim, {func = AnimTeleportGear, args = {leaks, 2656, 1845}})

  table.insert(midAnim, {func = AnimCustomFunction, args = {cyborg, HideCyborg, {}}, swh = false})

  table.insert(midAnim, {func = AnimSay, args = {leaks, loc("Hey! This is cheating!"), SAY_SHOUT, 4000}})