share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/moon01.lua
branchspacecampaign
changeset 9326 689f591aa226
parent 9324 98368198a75d
child 9330 b6483dc78feb
equal deleted inserted replaced
9324:98368198a75d 9326:689f591aa226
   112 	Delay = 5 
   112 	Delay = 5 
   113 	Map = "moon01_map"
   113 	Map = "moon01_map"
   114 	Theme = "Cheese" -- Because ofc moon is made of cheese :)
   114 	Theme = "Cheese" -- Because ofc moon is made of cheese :)
   115 	-- Hog Solo
   115 	-- Hog Solo
   116 	AddTeam(teamD.name, teamD.color, "Bone", "Island", "HillBilly", "cm_birdy")
   116 	AddTeam(teamD.name, teamD.color, "Bone", "Island", "HillBilly", "cm_birdy")
   117 	hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
   117 	if GetCampaignVar("HeroHealth") then
       
   118 		hero.gear = AddHog(hero.name, 0, tonumber(GetCampaignVar("HeroHealth")), "war_desertgrenadier1")
       
   119 	else
       
   120 		hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
       
   121 	end
   118 	AnimSetGearPosition(hero.gear, hero.x, hero.y)
   122 	AnimSetGearPosition(hero.gear, hero.x, hero.y)
   119 	-- PAoTH
   123 	-- PAoTH
   120 	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
   124 	AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
   121 	paoth1.gear = AddHog(paoth1.name, 0, 100, "scif_2001O")
   125 	paoth1.gear = AddHog(paoth1.name, 0, 100, "scif_2001O")
   122 	AnimSetGearPosition(paoth1.gear, paoth1.x, paoth1.y)
   126 	AnimSetGearPosition(paoth1.gear, paoth1.x, paoth1.y)
   199 	elseif checkPointReached == 2 then	
   203 	elseif checkPointReached == 2 then	
   200 		AddAmmo(hero.gear, amBazooka, 2)
   204 		AddAmmo(hero.gear, amBazooka, 2)
   201 		AddAmmo(hero.gear, amParachute, 2)
   205 		AddAmmo(hero.gear, amParachute, 2)
   202 		AddAmmo(hero.gear, amGrenade, 2)
   206 		AddAmmo(hero.gear, amGrenade, 2)
   203 		AddAmmo(hero.gear, amDEagle, 2)
   207 		AddAmmo(hero.gear, amDEagle, 2)
   204 		SetWind(80)		
   208 		SetWind(60)		
   205 		GameFlags = bor(GameFlags,gfDisableWind)
   209 		GameFlags = bor(GameFlags,gfDisableWind)
   206 		weaponsAcquired = true
   210 		weaponsAcquired = true
   207 		TurnTimeLeft = 0
   211 		TurnTimeLeft = 0
   208 		AddAnim(dialog02)
   212 		AddAnim(dialog02)
   209 	end
   213 	end
   308 end
   312 end
   309 
   313 
   310 -------------- OUTCOMES ------------------
   314 -------------- OUTCOMES ------------------
   311 
   315 
   312 function weaponsPlatform(gear)	
   316 function weaponsPlatform(gear)	
   313 	SaveCampaignVar("Moon01CheckPoint", "2")
   317 	SaveCampaignVar("Moon01CheckPoint", "2")	
       
   318 	SaveCampaignVar("HeroHealth",GetHealth(hero.gear))
   314 	TurnTimeLeft = 0
   319 	TurnTimeLeft = 0
   315 	weaponsAqcuired = true
   320 	weaponsAqcuired = true
   316 	SetWind(80)		
   321 	SetWind(60)		
   317 	GameFlags = bor(GameFlags,gfDisableWind)
   322 	GameFlags = bor(GameFlags,gfDisableWind)
   318 	AddAnim(dialog02)
   323 	AddAnim(dialog02)
   319 end
   324 end
   320 
   325 
   321 function heroDeath(gear)
   326 function heroDeath(gear)
   416 
   421 
   417 ------------------- custom "animation" functions --------------------------
   422 ------------------- custom "animation" functions --------------------------
   418 
   423 
   419 function startCombat()
   424 function startCombat()
   420 	-- use this so guard2 will gain control
   425 	-- use this so guard2 will gain control
   421 	HealthCaseProb = 100 
       
   422 	HealthCaseAmount = 50
       
   423 	AnimSwitchHog(minion3.gear)
   426 	AnimSwitchHog(minion3.gear)
   424 	TurnTimeLeft = 0
   427 	TurnTimeLeft = 0
   425 end
   428 end