hedgewars: comparison share/hedgewars/Data/Missions/Campaign/A_Space

equal deleted inserted replaced

-:808d38b2182c
+:790d4f7d57d1
 -- antigravity device. He has to capture Icy Pit who
 -- knows where the device is hidden. Hero will be
 -- able to use only the ice gun for this mission.
 -- TODO
--- alter map so hero may climb to the higher place
 -- maybe use rope challenge to go there
 -- add checkpoints
 -- fix the stats
--- Add first checkpoint save if icegun is taken
+-- manually set the frozen hogs to last frozen for fixed number of turns
+-- SetState(bandit1.gear,bor(GetState(bandit1.gear),gstFrozen))
+-- SetEffect(bandit1.gear,heFrozen,9999999)
 HedgewarsScriptLoad("/Scripts/Locale.lua")
 HedgewarsScriptLoad("/Scripts/Animate.lua")
 ----------------- VARIABLES --------------------
 ally.x = 300
 ally.y = 1840
 bandit1.name = "Thanta"
 bandit1.x = 3240
 bandit1.y = 1280
+bandit1.dead = false
 bandit2.name = "Billy Frost"
 bandit2.x = 1480
 bandit2.y = 1990
 bandit3.name = "Ice Jake"
 bandit3.x = 1860
 bandit3.y = 1150
 bandit4.name = "John Snow"
-bandit4.x = 3250
+bandit4.x = 3200
 bandit4.y = 970
 bandit5.name = "White Tee"
-bandit5.x = 3300
+bandit5.x = 3280
 bandit5.y = 600
 teamA.name = loc("Allies")
 teamA.color = tonumber("FF0000",16) -- red
 teamB.name = loc("Frozen Bandits")
 teamB.color = tonumber("0033FF",16) -- blues
 	HogTurnLeft(bandit1.gear, true)
 	bandit2.gear = AddHog(bandit2.name, 1, 100, "tophats")
 	AnimSetGearPosition(bandit2.gear, bandit2.x, bandit2.y)
 	bandit3.gear = AddHog(bandit3.name, 1, 100, "tophats")
 	AnimSetGearPosition(bandit3.gear, bandit3.x, bandit3.y)
-	bandit4.gear = AddHog(bandit4.name, 1, 100, "tophats")
+	bandit4.gear = AddHog(bandit4.name, 1, 40, "tophats")
 	AnimSetGearPosition(bandit4.gear, bandit4.x, bandit4.y)
 	HogTurnLeft(bandit4.gear, true)
-	bandit5.gear = AddHog(bandit5.name, 1, 100, "tophats")
+	bandit5.gear = AddHog(bandit5.name, 1, 40, "tophats")
 	AnimSetGearPosition(bandit5.gear, bandit5.x, bandit5.y)
 	HogTurnLeft(bandit5.gear, true)
 	-- get the check point
 	if tonumber(GetCampaignVar("Ice01CheckPoint")) then
 	end
 	if checkPointReached == 1 then
 		-- Start of the game
 	elseif checkPointReached == 2 then
+		iceGunTaken = true
 		AnimSetGearPosition(hero.gear, 840, 1650)
+	elseif checkPointReached == 3 then
+		iceGunTaken = true
+		heroAtFinaleStep = true
+		heroVisitedAntiFlyArea = true
+		AnimSetGearPosition(hero.gear, 1450, 910)
 	end
 	AnimInit()
 	AnimationSetup()
 end
 	AddEvent(onHeroDeath, {hero.gear}, heroDeath, {hero.gear}, 1)
 	AddEvent(onHeroFinalStep, {hero.gear}, heroFinalStep, {hero.gear}, 0)
 	AddEvent(onAntiFlyArea, {hero.gear}, antiFlyArea, {hero.gear}, 1)
 	AddEvent(onNonAntiFlyArea, {hero.gear}, nonAntiFlyArea, {hero.gear}, 1)
+	AddEvent(onThantaDeath, {bandit1.gear}, thantaDeath, {bandit1.gear}, 1)
 	AddAmmo(hero.gear, amJetpack, 99)
 	AddAmmo(bandit1.gear, amBazooka, 5)
 	AddAmmo(bandit2.gear, amBazooka, 4)
 	AddAmmo(bandit3.gear, amMine, 2)
 		AddAmmo(hero.gear, amBazooka, 1)
 		SpawnAmmoCrate(icegunX, icegunY, amIceGun)
 		AddEvent(onColumnCheckPoint, {hero.gear}, columnCheckPoint, {hero.gear}, 0)
 		AddEvent(onHeroAtIceGun, {hero.gear}, heroAtIceGun, {hero.gear}, 0)
 		AddAnim(dialog01)
 	elseif checkPointReached == 2 then
 		AddAmmo(hero.gear, amIceGun, 8)
+		AnimCaption(hero.gear, loc("Go to Thanta and get the device part!"), 5000)
+	elseif checkPointReached == 3 then
+		AddAmmo(hero.gear, amIceGun, 6)
+		AnimCaption(hero.gear, loc("Go to Thanta and get the device part!"), 5000)
 	end
 end
 function onNewTurn()
 	elseif not heroVisitedAntiFlyArea and CurrentHedgehog == hero.gear then
 		TurnTimeLeft = -1
 	elseif not heroAtFinaleStep and (CurrentHedgehog == bandit1.gear or CurrentHedgehog == bandit4.gear or CurrentHedgehog == bandit5.gear) then
 		AnimSwitchHog(hero.gear)
 		TurnTimeLeft = 0
+	elseif heroAtFinaleStep and (CurrentHedgehog == bandit2.gear or CurrentHedgehog == bandit3.gear) then
+		AnimSwitchHog(hero.gear)
+		TurnTimeLeft = 0
 	elseif CurrentHedgehog == ally.gear then
 		TurnTimeLeft = 0
 	end
 end
 end
 function onGearDelete(gear)
 	if gear == hero.gear then
 		hero.dead = true
+	elseif gear == bandit1.gear then
+		bandit1.dead = true
 	end
 end
 function onPrecise()
 	if GameTime > 3000 then
 	end
 	return false
 end
 function onHeroFinalStep(gear)
-	if not hero.dead and GetY(gear) < 900 and GetX(gear) > 1400 then
+	if not hero.dead and GetY(gear) < 960 and GetX(gear) > 1400 then
 		return true
 	end
 	return false
 end
 	return false
 end
 function onHeroAtIceGun(gear)
 	if not hero.dead and GetX(gear) < icegunX+15 and GetX(gear) > icegunX-15 and GetY(gear) > icegunY-15 and GetY(gear) < icegunY+15 then
+		return true
+	end
+	return false
+end
+function onThantaDeath(gear)
+	if bandit1.dead then
 		return true
 	end
 	return false
 end
 	EndGame()
 end
 function heroFinalStep(gear)
 	heroAtFinaleStep = true
+	SaveCampaignVar("Ice01CheckPoint", "3")
+	SaveCampaignVar("HeroHealth", GetHealth(hero.gear))
+	WriteLnToConsole("Final Step")
 end
 function columnCheckPoint(gear)
 	SaveCampaignVar("Ice01CheckPoint", "2")
-	WriteLnToConsole("I AM HERE")
+	SaveCampaignVar("HeroHealth", GetHealth(hero.gear))
 	AnimCaption(hero.gear, loc("Checkpoint reached!"), 5000)
 end
 function heroAtIceGun(gear)
 	iceGunTaken=true
+end
+function thantaDeath(gear)
+	SendStat('siGameResult', loc("Hog Solo lost, try again!")) --1
+	-- more custom stats
+	EndGame()
 end
 -------------- ANIMATIONS ------------------
 function Skipanim(anim)

branch	spacecampaign
changeset 9388	790d4f7d57d1
parent 9386	808d38b2182c
child 9390	9956b1fbac8b