HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Animate.lua")

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

startDialogue = {}

damageAnim = {}

onShroomAnim = {}

onFlowerAnim = {}

tookParaAnim = {}

tookPunchAnim = {}

onMoleHeadAnim = {}

tookRope2Anim = {}

challengeAnim = {}

challengeFailedAnim = {}

challengeCompletedAnim = {}

beforeKillAnim = {}

closeCannim = {}

cannKilledAnim = {}

cannKilledEarlyAnim = {}

princessDamagedAnim = {}

elderDamagedAnim = {}

pastMoleHeadAnim = {}

targets = {}

crates = {}

targXdif2 = {2755, 2638, 2921, 2973, 3162, 3067, 3062, 1300}

targYdif2 = {1197, 1537, 1646, 1857, 1804, 1173, 1167, 1183}

targXdif1 = {2749, 2909, 2770, 2836, 1558, 1305}

targYdif1 = {1179, 1313, 1734, 1441, 1152, 1259}

targetPosX = {{821, 866, 789}, {614, 656, 638}, {1238, 1237, 1200}}

targetPosY = {{1342, 1347, 1326}, {1112, 1121, 1061}, {1152, 1111, 1111}}

crateNum = {6, 8}

rope2GirderX = 3245

rope2GirderY = 1190

stage = 1

cratesCollected = 0

chalTries = 0

targetsDestroyed = 0

targsWave = 1

tTime = -1

difficulty = 1

cannibalVisible = false

cannibalKilles = false

youngdamaged = false

youngKilled = false

elderDamaged = false

princessDamaged = false

elderKilled = false

princessKilled = false

rope1Taken = false

paraTaken = false

rope2Taken = false

rope2InProgress = false

punchTaken = false

canKilled = false

desertTaken = false

challengeFailed = false

deleteCrate = false

difficultyChoice = false

princessFace = "Left"

elderFace = "Left"

goals = {

  [startDialogue] = {loc("First Blood"), loc("First Steps"), loc("Press [Left] or [Right] to move around, [Enter] to jump"), 1, 4000},

  [onShroomAnim] = {loc("First Blood"), loc("A leap in a leap"), loc("Go on top of the flower") .. "|" .. loc("Hint: Press [Esc] to review the mission texts."), 1, 7000},

  [onFlowerAnim] = {loc("First Blood"), loc("Hightime"), loc("Collect the crate on the right.|Hint: Select the rope, [Up] or [Down] to aim, [Space] to fire, directional keys to move.|Ropes can be fired again in the air!"), 1, 7000},

  [tookParaAnim] = {loc("First Blood"), loc("Omnivore"), loc("Get on the head of the mole"), 1, 4000},

  [onMoleHeadAnim] = {loc("First Blood"), loc("The Leap of Faith"), loc("Use the parachute ([Space] while in air) to get the next crate"), 1, 4000},

  [tookRope2Anim] = {loc("First Blood"), loc("The Rising"), loc("Get that crate!"), 1, 4000},

  [tookPunchAnim] = {loc("First Blood"), loc("The Slaughter"), loc("Destroy the targets!|Hint: Select the Shoryuken and hit [Space]|P.S. You can use it mid-air."), 1, 5000},

  [challengeAnim] = {loc("First Blood"), loc("The Crate Frenzy"), loc("Collect the crates within the time limit!|If you fail, you'll have to try again."), 1, 5000},

  [challengeFailedAnim] = {loc("First Blood"), loc("The Crate Frenzy"), loc("Collect the crates within the time limit!|If you fail, you'll have to try again."), 1, 5000},

  [challengeCompletedAnim] = {loc("First Blood"), loc("The Ultimate Weapon"), loc("Get that crate!"), 1, 5000},

  [beforeKillAnim] = {loc("First Blood"), loc("The First Blood"), loc("Kill the cannibal!"), 1, 5000},

  [closeCannim] = {loc("First Blood"), loc("The First Blood"), loc("KILL IT!"), 1, 5000}

}

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

function Skipanim(anim)

  AnimSwitchHog(youngh)

  if goals[anim] ~= nil then

    ShowMission(unpack(goals[anim]))

  end

  if anim == startDialogue then

    HogTurnLeft(princess, false)

  end

end

function SkipDamageAnim(anim)

  SwitchHog(youngh)

  AnimSetInputMask(0xFFFFFFFF)

end

function SkipOnShroom()

  Skipanim(onShroomAnim)

  AnimSetGearPosition(elderh, 2700, 1278)

end

function AnimationSetup()

  AddSkipFunction(damageAnim, SkipDamageAnim, {damageAnim})

  table.insert(damageAnim, {func = AnimWait, args = {youngh, 500}, skipFunc = Skipanim, skipArgs = damageAnim})

  table.insert(damageAnim, {func = AnimSay, args = {elderh, loc("Watch your steps, young one!"), SAY_SAY, 2000}})

  table.insert(damageAnim, {func = AnimGearWait, args = {youngh, 500}})

  AddSkipFunction(princessDamagedAnim, SkipDamageAnim, {princessDamagedAnim})

  table.insert(princessDamagedAnim, {func = AnimWait, args = {princess, 500}, skipFunc = Skipanim, skipArgs = princessDamagedAnim})

  table.insert(princessDamagedAnim, {func = AnimSay, args = {princess, loc("Why do men keep hurting me?"), SAY_THINK, 3000}})

  table.insert(princessDamagedAnim, {func = AnimGearWait, args = {youngh, 500}})

  AddSkipFunction(elderDamagedAnim, SkipDamageAnim, {elderDamagedAnim})

  table.insert(elderDamagedAnim, {func = AnimWait, args = {elderh, 500}, skipFunc = Skipanim, skipArgs = elderDamagedAnim})

  table.insert(elderDamagedAnim, {func = AnimSay, args = {elderh, loc("Violence is not the answer to your problems!"), SAY_SAY, 3000}})

  table.insert(elderDamagedAnim, {func = AnimGearWait, args = {youngh, 500}})

  AddSkipFunction(startDialogue, Skipanim, {startDialogue})

  table.insert(startDialogue, {func = AnimWait, args = {youngh, 3500}, skipFunc = Skipanim, skipArgs = startDialogue})

  table.insert(startDialogue, {func = AnimCaption, args = {youngh, loc("Once upon a time, on an island with great natural resources, lived two tribes in heated conflict..."),  5000}})

  table.insert(startDialogue, {func = AnimCaption, args = {youngh, loc("One tribe was peaceful, spending their time hunting and training, enjoying the small pleasures of life..."), 5000}})

  table.insert(startDialogue, {func = AnimCaption, args = {youngh, loc("The other one were all cannibals, spending their time eating the organs of fellow hedgehogs..."), 5000}})

  table.insert(startDialogue, {func = AnimCaption, args = {youngh, loc("And so it began..."), 1000}})

  table.insert(startDialogue, {func = AnimSay, args = {elderh, loc("What are you doing at a distance so great, young one?"), SAY_SHOUT, 4000}})

  table.insert(startDialogue, {func = AnimSay, args = {elderh, loc("Come closer, so that your training may continue!"), SAY_SHOUT, 6000}})

  table.insert(startDialogue, {func = AnimSay, args = {youngh, loc("This is it! It's time to make Fell From Heaven fall for me..."), SAY_THINK, 6000}})

  table.insert(startDialogue, {func = AnimJump, args = {youngh, "long"}})

  table.insert(startDialogue, {func = AnimTurn, args = {princess, "Right"}})

  table.insert(startDialogue, {func = AnimSwitchHog, args = {youngh}})

  table.insert(startDialogue, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("First Steps"), loc("Press [Left] or [Right] to move around, [Enter] to jump"), 1, 4000}})

  AddSkipFunction(onShroomAnim, SkipOnShroom, {onShroomAnim})

  table.insert(onShroomAnim, {func = AnimSay, args = {elderh, loc("I can see you have been training diligently."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = onShroomAnim})

  table.insert(onShroomAnim, {func = AnimSay, args = {elderh, loc("The wind whispers that you are ready to become familiar with tools, now..."), SAY_SAY, 4000}})

  table.insert(onShroomAnim, {func = AnimSay, args = {elderh, loc("Open that crate and we will continue!"), SAY_SAY, 5000}})

  table.insert(onShroomAnim, {func = AnimMove, args = {elderh, "Right", 2700, 0}})

  table.insert(onShroomAnim, {func = AnimTurn, args = {elderh, "Left"}})

  table.insert(onShroomAnim, {func = AnimSay, args = {princess, loc("He moves like an eagle in the sky."), SAY_THINK, 4000}})

  table.insert(onShroomAnim, {func = AnimSwitchHog, args = {youngh}})

  table.insert(onShroomAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("A leap in a leap"), loc("Go on top of the flower") .. "|" .. loc("Hint: Press [Esc] to review the mission texts."), 1, 7000}})

  AddSkipFunction(onFlowerAnim, Skipanim, {onFlowerAnim})

  table.insert(onFlowerAnim, {func = AnimSay, args = {elderh, loc("See that crate farther on the right?"), SAY_SAY, 4000}})

  table.insert(onFlowerAnim, {func = AnimSay, args = {elderh, loc("Swing, Leaks A Lot, on the wings of the wind!"), SAY_SAY, 6000}})

  table.insert(onFlowerAnim, {func = AnimSay, args = {princess, loc("His arms are so strong!"), SAY_THINK, 4000}})

  table.insert(onFlowerAnim, {func = AnimSwitchHog, args = {youngh}})

  table.insert(onFlowerAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("Hightime"), loc("Collect the crate on the right.|Hint: Select the rope, [Up] or [Down] to aim, [Space] to fire, directional keys to move.|Ropes can be fired again in the air!"), 1, 7000}})

  AddSkipFunction(tookParaAnim, Skipanim, {tookParaAnim})

  table.insert(tookParaAnim, {func = AnimGearWait, args = {youngh, 1000}, skipFunc = Skipanim, skipArgs = tookParaAnim})

  table.insert(tookParaAnim, {func = AnimSay, args = {elderh, loc("Use the rope to get on the head of the mole, young one!"), SAY_SHOUT, 4000}})

  table.insert(tookParaAnim, {func = AnimSay, args = {elderh, loc("Worry not, for it is a peaceful animal! There is no reason to be afraid..."), SAY_SHOUT, 5000}})

  table.insert(tookParaAnim, {func = AnimSay, args = {elderh, loc("We all know what happens when you get frightened..."), SAY_SAY, 4000}})

  table.insert(tookParaAnim, {func = AnimSay, args = {youngh, loc("So humiliating..."), SAY_SAY, 4000}})

  table.insert(tookParaAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("Omnivore"), loc("Get on the head of the mole"), 1, 4000}})

  table.insert(tookParaAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(onMoleHeadAnim, Skipanim, {onMoleHeadAnim})

  table.insert(onMoleHeadAnim, {func = AnimSay, args = {elderh, loc("Perfect! Now try to get the next crate without hurting yourself!"), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = onMoleHeadAnim})

  table.insert(onMoleHeadAnim, {func = AnimSay, args = {elderh, loc("The giant umbrella from the last crate should help break the fall."), SAY_SAY, 4000}})

  table.insert(onMoleHeadAnim, {func = AnimSay, args = {princess, loc("He's so brave..."), SAY_THINK, 4000}})

  table.insert(onMoleHeadAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The Leap of Faith"), loc("Use the parachute ([Space] while in air) to get the next crate"), 1, 4000}})

  table.insert(onMoleHeadAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(pastMoleHeadAnim, Skipanim, {pastMoleHeadAnim})

  table.insert(pastMoleHeadAnim, {func = AnimSay, args = {elderh, loc("I see you have already taken the leap of faith."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = pastMoleHeadAnim})

  table.insert(pastMoleHeadAnim, {func = AnimSay, args = {elderh, loc("Get that crate!"), SAY_SAY, 4000}})

  table.insert(pastMoleHeadAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(tookRope2Anim, Skipanim, {tookRope2Anim})

  table.insert(tookRope2Anim, {func = AnimSay, args = {elderh, loc("Impressive...you are still dry as the corpse of a hawk after a week in the desert..."), SAY_SAY, 5000}, skipFunc = Skipanim, skipArgs = tookRope2Anim})

  table.insert(tookRope2Anim, {func = AnimSay, args = {elderh, loc("You probably know what to do next..."), SAY_SAY, 4000}})

  table.insert(tookRope2Anim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The Rising"), loc("Get that crate!"), 1, 4000}})

  table.insert(tookRope2Anim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(tookPunchAnim, Skipanim, {tookPunchAnim})

  table.insert(tookPunchAnim, {func = AnimSay, args = {elderh, loc("It is time to practice your fighting skills."), SAY_SAY, 4000}})

  table.insert(tookPunchAnim, {func = AnimSay, args = {elderh, loc("Imagine those targets are the wolves that killed your parents! Take your anger out on them!"), SAY_SAY, 5000}})

  table.insert(tookPunchAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The Slaughter"), loc("Destroy the targets!|Hint: Select the Shoryuken and hit [Space]|P.S. You can use it mid-air."), 1, 5000}})

  table.insert(tookPunchAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(challengeAnim, Skipanim, {challengeAnim})

  table.insert(challengeAnim, {func = AnimSay, args = {elderh, loc("I hope you are prepared for a small challenge, young one."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = challengeAnim})

  table.insert(challengeAnim, {func = AnimSay, args = {elderh, loc("Your movement skills will be evaluated now."), SAY_SAY, 4000}})

  table.insert(challengeAnim, {func = AnimSay, args = {elderh, loc("Collect all the crates, but remember, our time in this life is limited!"), SAY_SAY, 4000}})

  table.insert(challengeAnim, {func = AnimSay, args = {elderh, loc("How difficult would you like it to be?")}})

  table.insert(challengeAnim, {func = AnimSwitchHog, args = {youngh}})

  table.insert(challengeAnim, {func = AnimWait, args = {youngh, 500}})

  AddSkipFunction(challengeFailedAnim, Skipanim, {challengeFailedAnim})

  table.insert(challengeFailedAnim, {func = AnimSay, args = {elderh, loc("Hmmm...perhaps a little more time will help."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = challengeFailedAnim})

  table.insert(challengeFailedAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The Crate Frenzy"), loc("Collect the crates within the time limit!|If you fail, you'll have to try again."), 1, 5000}})

  table.insert(challengeFailedAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(challengeCompletedAnim, Skipanim, {challengeCompletedAnim})

  table.insert(challengeCompletedAnim, {func = AnimSay, args = {elderh, loc("The spirits of the ancerstors are surely pleased, Leaks A Lot."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = challengeCompletedAnim})

  table.insert(challengeCompletedAnim, {func = AnimSay, args = {elderh, loc("You have proven yourself worthy to see our most ancient secret!"), SAY_SAY, 4000}})

  table.insert(challengeCompletedAnim, {func = AnimSay, args = {elderh, loc("The weapon in that last crate was bestowed upon us by the ancients!"), SAY_SAY, 4000}})

  table.insert(challengeCompletedAnim, {func = AnimSay, args = {elderh, loc("Use it with precaution!"), SAY_SAY, 4000}})

  table.insert(challengeCompletedAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The Ultimate Weapon"), loc("Get that crate!"), 1, 5000}})

  table.insert(challengeCompletedAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(beforeKillAnim, Skipanim, {beforeKillAnim})

  table.insert(beforeKillAnim, {func = AnimWait, args = {elderh, 100}})

  table.insert(beforeKillAnim, {func = AnimSay, args = {elderh, loc("What do my faulty eyes observe? A spy!"), SAY_SHOUT, 4000}, skipFunc = Skipanim, skipArgs = beforeKillAnim})

  table.insert(beforeKillAnim, {func = AnimFollowGear, args = {cannibal}})

  table.insert(beforeKillAnim, {func = AnimWait, args = {cannibal, 1000}})

  table.insert(beforeKillAnim, {func = AnimSay, args = {elderh, loc("Destroy him, Leaks A Lot! He is responsible for the deaths of many of us!"), SAY_SHOUT, 4000}})

  table.insert(beforeKillAnim, {func = AnimSay, args = {cannibal, loc("Oh, my!"), SAY_THINK, 4000}})

  table.insert(beforeKillAnim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The First Blood"), loc("Kill the cannibal!"), 1, 5000}})

  table.insert(beforeKillAnim, {func = AnimSwitchHog, args = {youngh}})

  AddSkipFunction(closeCannim, Skipanim, {closeCannim})

  table.insert(closeCannim, {func = AnimSay, args = {elderh, loc("I see you would like his punishment to be more...personal..."), SAY_SAY, 4000}, skipFunc = Skipanim, skipArgs = closeCannim})

  table.insert(closeCannim, {func = AnimSay, args = {cannibal, loc("I'm certain that this is a misunderstanding, fellow hedgehogs!"), SAY_SAY, 4000}})

  table.insert(closeCannim, {func = AnimSay, args = {cannibal, loc("If only I were given a chance to explain my being here..."), SAY_SAY, 4000}})

  table.insert(closeCannim, {func = AnimSay, args = {elderh, loc("Do not let his words fool you, young one! He will stab you in the back as soon as you turn away!"), SAY_SAY, 6000}})

  table.insert(closeCannim, {func = AnimSay, args = {elderh, loc("Here...pick your weapon!"), SAY_SAY, 5000}})

  table.insert(closeCannim, {func = AnimShowMission, args = {youngh, loc("First Blood"), loc("The First Blood"), loc("KILL IT!"), 1, 5000}})

  table.insert(closeCannim, {func = AnimSwitchHog, args = {youngh}})

  table.insert(cannKilledAnim, {func = AnimSay, args = {elderh, loc("Yes, yeees! You are now ready to enter the real world!"), SAY_SHOUT, 6000}})

  table.insert(cannKilledEarlyAnim, {func = AnimSay, args = {elderh, loc("What?! A cannibal? Here? There is no time to waste! Come, you are prepared."), SAY_SHOUT, 4000}})

end

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

function CheckNeedToTurn(gear)

  if youngKilled then

    return false

  end

  if gear == princess then

    if princessKilled ~= true then

      if (GetX(princess) > GetX(youngh) and princessFace == "Right")

        or (GetX(princess) < GetX(youngh) and princessFace == "Left") then

      --if (GetX(princess) > GetX(youngh))

       -- or (GetX(princess) < GetX(youngh)) then

        return true

      end

    end

  else

    if elderKilled ~= true then

      if (GetX(elderh) > GetX(youngh) and elderFace == "Right")

        or (GetX(elderh) < GetX(youngh) and elderFace == "Left") then

        return true

      end

    end

  end

  return false

end

function DoNeedToTurn(gear)

    if GetX(princess) > GetX(youngh) then

      HogTurnLeft(princess, true)

      princessFace = "Left"

    elseif GetX(princess) < GetX(youngh) then

      HogTurnLeft(princess, false)

      princessFace = "Right"

    end

    if GetX(elderh) > GetX(youngh) then

      HogTurnLeft(elderh, true)

      elderFace = "Left"

    elseif GetX(elderh) < GetX(youngh) then

      HogTurnLeft(elderh, false)

      elderFace = "Right"

    end

  end

end

function CheckDamage()

  return youngdamaged and StoppedGear(youngh)

end

function DoOnDamage()

  AddAnim(damageAnim)

  if rope2InProgress and not rope2Taken then

    AnimSetGearPosition(youngh, 3040, 1221)

  end

  youngdamaged = false

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

end

function CheckDeath()

  return youngKilled

end

function DoDeath()

  RemoveEventFunc(CheckKilledOthers)

  RemoveEventFunc(CheckDamage)

  RemoveEventFunc(CheckDamagedOthers)

  FinishThem()

  ShowMission(loc("First Blood"), loc("The wasted youth"), loc("Leaks A Lot gave his life for his tribe! He should have survived!"), 2, 4000)

end

function CheckDamagedOthers()

  return (princessDamaged and StoppedGear(princess)) or (elderDamaged and StoppedGear(elderh))

end

function CheckKilledOthers()

  return princessKilled or elderKilled

end

function DoOnDamagedOthers()

  if princessDamaged then

    AddAnim(princessDamagedAnim)

  end

  if elderDamaged then

    AddAnim(elderDamagedAnim)

  end

  elderDamaged = false

  princessDamaged = false

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

end

function DoKilledOthers()

  AddCaption(loc("After Leaks A Lot betrayed his tribe, he joined the cannibals..."))

  FinishThem()

end

function CheckMovedUntilJump()

   return GetX(youngh) >= 2343

end

function DoMovedUntilJump()

  ShowMission(loc("First Blood"), loc("Step By Step"), loc("Hint: Double Jump - Press [Backspace] twice"), -amSkip, 0)

  AddEvent(CheckOnShroom, {}, DoOnShroom, {}, 0)

end

function CheckOnShroom()

  return GetX(youngh) >= 2461 and StoppedGear(youngh)

end

function DoOnShroom()

  ropeCrate1 = SpawnUtilityCrate(2751, 1194, amRope, 100)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(onShroomAnim)

  AddEvent(CheckOnFlower, {}, DoOnFlower, {}, 0)

end

function CheckOnFlower()

  return rope1Taken and StoppedGear(youngh)

end

function DoOnFlower()

  AddAmmo(youngh, amRope, 100)

  paraCrate = SpawnUtilityCrate(3245, 1758, amParachute, 100)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(onFlowerAnim)

  AddEvent(CheckTookParaCrate, {}, DoTookParaCrate, {}, 0)

end

function CheckTookParaCrate()

  return paraTaken and StoppedGear(youngh)

end

function DoTookParaCrate()

  AddAmmo(youngh, amParachute, 100)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(tookParaAnim)

  AddEvent(CheckOnMoleHead, {}, DoOnMoleHead, {}, 0)

  AddEvent(CheckPastMoleHead, {}, DoPastMoleHead, {}, 0)

end

function CheckOnMoleHead()

  x = GetX(youngh)

  return x >= 3005 and x <= 3126 and StoppedGear(youngh)

end

function CheckPastMoleHead()

  x = GetX(youngh)

  y = GetY(youngh)

  return x < 3005 and y > 1500 and StoppedGear(youngh)

end

function DoPastMoleHead()

  -- Initiate parachute challenge

  RemoveEventFunc(CheckOnMoleHead)

  ropeCrate2 = SpawnUtilityCrate(2782, 1720, amRope, 100)

  rope2InProgress = true

  AddAmmo(youngh, amRope, 0)

  SetGearMessage(CurrentHedgehog, 0)

  -- Block the way to the hole to the right, since the player loses the rope for this section

  PlaceGirder(rope2GirderX, rope2GirderY, 6)

  AddAnim(pastMoleHeadAnim)

  AddEvent(CheckTookRope2, {}, DoTookRope2, {}, 0)

end

function DoOnMoleHead()

  -- Initiate parachute challenge

  RemoveEventFunc(CheckPastMoleHead)

  ropeCrate2 = SpawnUtilityCrate(2782, 1720, amRope, 100)

  rope2InProgress = true

  AddAmmo(youngh, amRope, 0)

  SetGearMessage(CurrentHedgehog, 0)

  -- Block the way to the hole to the right, since the player loses the rope for this section

  PlaceGirder(rope2GirderX, rope2GirderY, 6)

  AddAnim(onMoleHeadAnim)

  AddEvent(CheckTookRope2, {}, DoTookRope2, {}, 0)

end

function CheckTookRope2()

  return rope2Taken and StoppedGear(youngh)

end

function DoTookRope2()

  AddAmmo(youngh, amRope, 100)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(tookRope2Anim)

  punchCrate = SpawnAmmoCrate(2460, 1321, amFirePunch, 100)

  AddEvent(CheckTookPunch, {}, DoTookPunch, {})

end

function CheckTookPunch()

  return punchTaken and StoppedGear(youngh)

end

function DoTookPunch()

  AddAmmo(youngh, amFirePunch, 100)

  AddAmmo(youngh, amRope, 0)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(tookPunchAnim)

  targets[1] = AddGear(1594, 1185, gtTarget, 0, 0, 0, 0)

  targets[2] = AddGear(2188, 1314, gtTarget, 0, 0, 0, 0)

  targets[3] = AddGear(1961, 1318, gtTarget, 0, 0, 0, 0)

  targets[4] = AddGear(1961, 1200, gtTarget, 0, 0, 0, 0)

  targets[5] = AddGear(1800, 900, gtTarget, 0, 0, 0, 0)

  AddEvent(CheckTargDestroyed, {}, DoTargDestroyed, {}, 0)

end

function CheckTargDestroyed()

  return targetsDestroyed == 5 and StoppedGear(youngh)

end

function DoTargDestroyed()

  AddAmmo(youngh, amFirePunch, 0)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(challengeAnim)

  targetsDestroyed = 0

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

  ropeCrate3 = SpawnUtilityCrate(2000, 1200, amRope, 100)

  AddEvent(CheckTookRope3, {}, AddAmmo, {youngh, amRope, 100}, 0)

  AddEvent(CheckCratesColled, {}, DoCratesColled, {}, 0)

  AddEvent(CheckChallengeWon, {}, DoChallengeWon, {}, 0)

  AddEvent(CheckTimesUp, {}, DoTimesUp, {}, 1)

  -- Remove up the old mole blockade from the parachute challenge

  EraseSprite(rope2GirderX, rope2GirderY, sprAmGirder, 6)

end

function DoChoice()

  PlaySound(sndPlaced)

  difficultyChoice = false

  AnimSetInputMask(0xFFFFFFFF)

  StartChallenge(120000 + chalTries * 20000)

end

function CheckCratesColled()

  return cratesCollected == crateNum[difficulty]

end

function DoCratesColled()

  RemoveEventFunc(CheckTimesUp)

  TurnTimeLeft = -1

  AddCaption(loc("As the challenge was completed, Leaks A Lot set foot on the ground..."))

end

function CheckChallengeWon()

  return cratesCollected == crateNum[difficulty] and StoppedGear(youngh)

end

function DoChallengeWon()

  desertCrate = SpawnAmmoCrate(1240, 1212, amDEagle, 100)

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(challengeCompletedAnim)

  AddEvent(CheckDesertColled, {}, DoDesertColled, {}, 0)

end

function CheckTookRope3()

  return rope3Taken

end

function CheckTimesUp()

  return TurnTimeLeft == 100

end

function DoTimesUp()

  challengeFailed = true

  deleteCrate = true

  DeleteGear(crates[1])

  TurnTimeLeft = -1

  AddCaption(loc("And so happened that Leaks A Lot failed to complete the challenge! He landed, pressured by shame ..."))

  AddEvent(CheckChallengeFailed, {}, DoChallengeFailed, {}, 0)

end

function CheckChallengeFailed()

  return challengeFailed and StoppedGear(youngh)

end

function DoChallengeFailed()

  challengeFailed = false

  SetGearMessage(CurrentHedgehog, 0)

  AddAnim(challengeFailedAnim)

  chalTries = chalTries + 1

  difficulty = 0

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

end