--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Campaign/A Classic Fairytale/united.lua Thu Jul 05 00:57:30 2012 +0300
@@ -0,0 +1,453 @@
+
+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}}
+
+HogNames = {"Olive", "Brain Stu", "Brainila", "Salivaslurper",
+ "Spleenlover", "Tighlicker", "NomNom", "Mindy"}
+
+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()
+ local goal = "Defeat the cannibals!|"
+ local chiefgoal = "Try to protect the chief! Unlike your other hogs, he won't return on future missions if he dies."
+ TurnTimeLeft = TurnTime
+ ShowMission("United We Stand", "Invasion", goal .. chiefgoal, 1, 6000)
+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")
+ ParseCommand("teamgone 011101001")
+ 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}})
+ table.insert(startAnim, {func = AnimCaption, args = {leaks, "Back in the village, after telling the villagers about the threat...", 5000}})
+ table.insert(startAnim, {func = AnimCaption, args = {leaks, "Their buildings were very primitive back then, even for an uncivilised island.", 7000}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "Young one, you are telling us that they can instantly change location without a shaman?", SAY_SAY, 8000}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "That is, indeed, very weird...", SAY_SAY, 3500}})
+ table.insert(startAnim, {func = AnimSay, args = {buffalo, "If they try coming here, they can have a taste of my delicious knuckles!", SAY_SHOUT, 8000}})
+ table.insert(startAnim, {func = AnimSay, args = {buffalo, "Haha!", SAY_SHOUT, 2000}})
+ if denseDead == false then
+ table.insert(startAnim, {func = AnimSay, args = {dense, "I'm not sure about that!", SAY_SAY, 3400}})
+ table.insert(startAnim, {func = AnimSay, args = {dense, "They have weapons we've never seen before!", SAY_SAY, 5000}})
+ table.insert(startAnim, {func = AnimSay, args = {dense, "Luckily, I've managed to snatch some of them.", SAY_SAY, 5000}})
+ table.insert(startAnim, {func = AnimCustomFunction, args = {dense, SpawnCrates, {1}}})
+ table.insert(startAnim, {func = AnimSay, args = {dense, "Oops...I dropped them.", SAY_SAY, 3000}})
+ else
+ table.insert(startAnim, {func = AnimSay, args = {leaks, "I'm not sure about that!", SAY_SAY, 3400}})
+ table.insert(startAnim, {func = AnimSay, args = {leaks, "They have weapons we've never seen before!", SAY_SAY, 5000}})
+ table.insert(startAnim, {func = AnimCustomFunction, args = {leaks, SpawnCrates, {1}}})
+ table.insert(startAnim, {func = AnimWait, args = {leaks, 1000}})
+ table.insert(startAnim, {func = AnimSay, args = {leaks, "They keep appearing like this. It's weird!", SAY_SAY, 5000}})
+ end
+ table.insert(startAnim, {func = AnimSay, args = {chief, "Did anyone follow you?", SAY_SAY, 3000}})
+ table.insert(startAnim, {func = AnimSay, args = {leaks, "No, we made sure of that!", SAY_SAY, 3500}})
+ table.insert(startAnim, {func = AnimCustomFunction, args = {leaks, SpawnHealthCrates, {1}}})
+ table.insert(startAnim, {func = AnimWait, args = {leaks, 1000}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "First aid kits?!", SAY_SAY, 3000}})
+ table.insert(startAnim, {func = AnimSay, args = {leaks, "I've seen this before. They just appear out of thin air.", SAY_SAY, 7000}})
+ 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 = AnimSay, args = {water, "Hey guys!", SAY_SAY, 2500}})
+ table.insert(startAnim, {func = AnimTurn, args = {chief, "Right"}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "...", SAY_THINK, 1500}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "Where have you been?", SAY_SAY, 4000}})
+ table.insert(startAnim, {func = AnimSay, args = {water, "Just on a walk.", SAY_SAY, 3000}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "You have chosen the perfect moment to leave.", SAY_SAY, 6000}})
+ 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 = AnimSay, args = {leaks, "HOW DO THEY KNOW WHERE WE ARE???", SAY_SHOUT, 5000}})
+ table.insert(startAnim, {func = AnimSay, args = {chief, "We have to protect the village!", SAY_SAY, 5000}})
+ 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]}}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[1], "We can't hold them up much longer!", SAY_SAY, 5000}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[1], "We need to move!", SAY_SAY, 3000}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[2], "But where can we go?", SAY_SAY, 3000}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[1], "To the caves...", SAY_SAY, 2500}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[2], "Good idea, they'll never find us there!", SAY_SAY, 5000}})
+ else
+ for i = 1, 5 do
+ if nativesDead[i] ~= true then
+ hogs[1] = natives[i]
+ end
+ end
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[1], "I need to move the tribe!", SAY_THINK, 4000}})
+ table.insert(finalAnim, {func = AnimSay, args = {hogs[1], "The caves are well hidden, they won't find us there!", SAY_THINK, 7000}})
+ 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()
+ AddTeam("Natives", 2567585, "Bone", "Island", "HillBilly", "cm_birdy")
+ leaks = AddHog("Leaks A Lot", 0, 100, "Rambo")
+ dense = AddHog("Dense Cloud", 0, 100, "RobinHood")
+ water = AddHog("Fiery Water", 0, 100, "pirate_jack")
+ buffalo = AddHog("Raging Buffalo", 0, 100, "zoo_Bunny")
+ chief = AddHog("Righteous Beard", 0, 100, "IndianChief")
+ natives = {leaks, dense, water, buffalo, chief}
+ nativesNum = 5
+
+ AddTeam("Light Cannfantry", 14483456, "Skull", "Island", "Pirate", "cm_vampire")
+ for i = 1, 4 do
+ cannibals[i] = AddHog(HogNames[i], 3, 70, "Zombi")
+ end
+
+ AddTeam("Heavy Cannfantry", 14483456, "Skull", "Island", "Pirate", "cm_vampire")
+ for i = 5, 8 do
+ cannibals[i] = AddHog(HogNames[i], 2, 100, "vampirichog")
+ end
+
+ AddTeam("011101001", 14483456, "ring", "UFO", "Robot", "cm_star")
+ cyborg = AddHog("Unit 334a$7%;.*", 0, 200, "cyborg1")
+
+ 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
+