share/hedgewars/Data/Missions/Campaign/A_Space_Adventure/cosmos.lua
branchspacecampaign
changeset 9637 b23f9b7d49fa
parent 9636 e1921235fc78
child 9638 9db28f0a3f8a
equal deleted inserted replaced
9636:e1921235fc78 9637:b23f9b7d49fa
   138 			AnimSetGearPosition(hero.gear, 2400, 375)
   138 			AnimSetGearPosition(hero.gear, 2400, 375)
   139 		elseif GetCampaignVar("Planet") == "icePlanet" then
   139 		elseif GetCampaignVar("Planet") == "icePlanet" then
   140 			AnimSetGearPosition(hero.gear, 1440, 260)
   140 			AnimSetGearPosition(hero.gear, 1440, 260)
   141 		elseif GetCampaignVar("Planet") == "deathPlanet" then
   141 		elseif GetCampaignVar("Planet") == "deathPlanet" then
   142 			AnimSetGearPosition(hero.gear, 620, 530)
   142 			AnimSetGearPosition(hero.gear, 620, 530)
       
   143 		elseif GetCampaignVar("Planet") == "meteorite" then
       
   144 			AnimSetGearPosition(hero.gear, 3080, 850)
   143 		end
   145 		end
   144 	end
   146 	end
   145 	
   147 	
   146 	AnimInit()
   148 	AnimInit()
   147 	AnimationSetup()
   149 	AnimationSetup()
   198 		AddEvent(onDeathPlanetLanding, {hero.gear}, deathPlanetLanding, {hero.gear}, 0)
   200 		AddEvent(onDeathPlanetLanding, {hero.gear}, deathPlanetLanding, {hero.gear}, 0)
   199 	end
   201 	end
   200 	
   202 	
   201 	if status.death01 and not status.final then
   203 	if status.death01 and not status.final then
   202 		AddAnim(dialog08)
   204 		AddAnim(dialog08)
       
   205 		if GetCampaignVar("Planet") ~= "meteorite" then
       
   206 			AddEvent(onMeteoriteLanding, {hero.gear}, meteoriteLanding, {hero.gear}, 0)
       
   207 		end
   203 	end
   208 	end
   204 	
   209 	
   205 	SendHealthStatsOff()
   210 	SendHealthStatsOff()
   206 end
   211 end
   207 
   212 
   295 	end
   300 	end
   296 	return false
   301 	return false
   297 end
   302 end
   298 
   303 
   299 function onDeathPlanetLanding(gear)
   304 function onDeathPlanetLanding(gear)
   300 	if GetHealth(hero.gear) and GetX(gear) > 310 and GetX(gear) < 700  and GetY(gear) < 760 and StoppedGear(gear) then
   305 	if GetHealth(hero.gear) and GetX(gear) > 280 and GetX(gear) < 700  and GetY(gear) < 720 and StoppedGear(gear) then
       
   306 		return true
       
   307 	end
       
   308 	return false
       
   309 end
       
   310 
       
   311 function onMeteoriteLanding(gear)
       
   312 	if GetHealth(hero.gear) and GetX(gear) > 2990 and GetX(gear) < 3395  and GetY(gear) < 940 and StoppedGear(gear) then
   301 		return true
   313 		return true
   302 	end
   314 	end
   303 	return false
   315 	return false
   304 end
   316 end
   305 
   317 
   430 		SaveCampaignVar("UnlockedMissions", "3")
   442 		SaveCampaignVar("UnlockedMissions", "3")
   431 		SaveCampaignVar("Mission1", "9")
   443 		SaveCampaignVar("Mission1", "9")
   432 		SaveCampaignVar("Mission2", "11")
   444 		SaveCampaignVar("Mission2", "11")
   433 		SaveCampaignVar("Mission3", "1")
   445 		SaveCampaignVar("Mission3", "1")
   434 		sendStats(loc("the Planet of Death"))
   446 		sendStats(loc("the Planet of Death"))
       
   447 	end
       
   448 end
       
   449 
       
   450 function meteoriteLanding(gear)
       
   451 	if checkPointReached < 5 then
       
   452 		AddAnim(dialog06)
       
   453 	elseif not (status.fruit02 and status.ice01 and status.desert01) then
       
   454 		AddAnim(dialog07)
       
   455 	else
       
   456 		AnimCaption(hero.gear,loc("Welcome to the meteorite!"))
       
   457 		SaveCampaignVar("Planet", "meteorite")
       
   458 		SaveCampaignVar("UnlockedMissions", "2")
       
   459 		SaveCampaignVar("Mission1", "14")
       
   460 		SaveCampaignVar("Mission2", "1")
       
   461 		sendStats(loc("the meteorite"))
   435 	end
   462 	end
   436 end
   463 end
   437 
   464 
   438 function noFuelAtLand(gear)
   465 function noFuelAtLand(gear)
   439 	AddAnim(dialog06)
   466 	AddAnim(dialog06)