share/hedgewars/Data/Missions/Scenario/User_Mission_-_Teamwork.lua
changeset 11968 1de4d6b35748
parent 8043 da083f8d95e6
child 12049 030464f34d47
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Scenario/User_Mission_-_Teamwork.lua	Wed Apr 13 14:39:17 2016 +0200
@@ -0,0 +1,119 @@
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+
+local player = nil -- This variable will point to the hog's gear
+local p2 = nil
+local enemy = nil
+local bCrate = nil
+
+local GameOver = false
+
+function onGameInit()
+
+	-- Things we don't modify here will use their default values.
+	Seed = 0 -- The base number for the random number generator
+	GameFlags = gfDisableWind-- Game settings and rules
+	TurnTime = 30000 -- The time the player has to move each round (in ms)
+	CaseFreq = 0 -- The frequency of crate drops
+	MinesNum = 0 -- The number of mines being placed
+	MinesTime  = 1
+	Explosives = 0 -- The number of explosives being placed
+	Delay = 10 -- The delay between each round
+	Map = "Mushrooms" -- The map to be played
+	Theme = "Nature" -- The theme to be used
+	SuddenDeathTurns = 99999
+
+	AddTeam(loc("Feeble Resistance"), 14483456, "Simple", "Island", "Default")
+	player = AddHog(string.format(loc("Pathetic Hog #%d"), 1), 0, 50, "NoHat")
+	p2 = AddHog(string.format(loc("Pathetic Hog #%d"), 2), 0, 20, "NoHat")
+
+	--AddTeam("Toxic Team", 	1175851, "Simple", "Island", "Robot","cm_binary")
+	AddTeam(loc("Cybernetic Empire"), 	1175851, "Simple", "Island", "Robot", "cm_binary")
+	enemy = AddHog(loc("Unit 3378"), 5, 30, "cyborg1")
+
+	SetGearPosition(player,1403,235)
+	SetGearPosition(p2,1269,239)
+	SetGearPosition(enemy,492,495)
+
+end
+
+
+function onGameStart()
+
+	--mines
+	AddGear(276,76,gtMine, 0, 0, 0, 0)
+	AddGear(301,76,gtMine, 0, 0, 0, 0)
+	AddGear(326,76,gtMine, 0, 0, 0, 0)
+	AddGear(351,76,gtMine, 0, 0, 0, 0)
+	AddGear(376,76,gtMine, 0, 0, 0, 0)
+	AddGear(401,76,gtMine, 0, 0, 0, 0)
+	AddGear(426,76,gtMine, 0, 0, 0, 0)
+	AddGear(451,76,gtMine, 0, 0, 0, 0)
+	AddGear(476,76,gtMine, 0, 0, 0, 0)
+
+	AddGear(886,356,gtMine, 0, 0, 0, 0)
+	AddGear(901,356,gtMine, 0, 0, 0, 0)
+	AddGear(926,356,gtMine, 0, 0, 0, 0)
+	AddGear(951,356,gtMine, 0, 0, 0, 0)
+	AddGear(976,356,gtMine, 0, 0, 0, 0)
+	AddGear(1001,356,gtMine, 0, 0, 0, 0)
+
+	-- crates crates and more crates
+	bCrate = SpawnAmmoCrate(1688,476,amBaseballBat)
+	SpawnUtilityCrate(572,143,amGirder)
+	SpawnAmmoCrate(1704,954,amPickHammer)
+	SpawnAmmoCrate(704,623,amBlowTorch)
+	SpawnUtilityCrate(1543,744,amJetpack)
+	SpawnAmmoCrate(227,442,amDrill)
+
+	ShowMission(loc("Codename: Teamwork"), "", loc("- Eliminate Unit 3378 |- Feeble Resistance must survive") .. loc("|- Mines Time:") .. " " .. 0 .. " " .. loc("sec"), 0, 0)
+
+end
+
+
+--function onGameTick()
+
+	--if CurrentHedgehog ~= nil then
+	--	AddCaption(GetX(CurrentHedgehog) .. ";" .. GetY(CurrentHedgehog))
+	--end
+
+--end
+
+
+function onAmmoStoreInit()
+	SetAmmo(amBlowTorch, 0, 0, 0, 1)
+	SetAmmo(amGirder, 0, 0, 0, 1)
+	SetAmmo(amPickHammer, 0, 0, 0, 2)
+	SetAmmo(amJetpack, 0, 0, 0, 1)
+	SetAmmo(amDrill, 0, 0, 0, 2)
+	SetAmmo(amBaseballBat, 0, 0, 0, 1)
+	SetAmmo(amSwitch, 9, 0, 0, 0)
+	SetAmmo(amSkip, 9, 0, 0, 0)
+end
+
+function onGearDamage(gear, damage)
+	if (gear == player) and (damage == 30) then
+		HogSay(player,loc("T_T"),SAY_SHOUT)
+	end
+end
+
+function onGearDelete(gear)
+
+	if gear == bCrate then
+		HogSay(CurrentHedgehog, loc("Hmmm..."), SAY_THINK)
+	end
+
+	if GetGearType(gear) == gtCase then
+		TurnTimeLeft = TurnTimeLeft + 5000
+	end
+
+	if (gear == enemy) and (GameOver == false) then
+		ShowMission(loc("Codename: Teamwork"), loc("MISSION SUCCESSFUL"), loc("Congratulations!"), 0, 0)
+		GameOver = true
+	elseif  ( ((gear == player) or (gear == p2)) and (GameOver == false)) then
+		ShowMission(loc("Codename: Teamwork"), loc("MISSION FAILED"), loc("Oh no! Just try again!"), -amSkip, 0)
+		GameOver = true
+		SetHealth(p2,0)
+		SetHealth(player,0)
+	end
+
+end