share/hedgewars/Data/Missions/Training/User_Mission_-_Teamwork.lua
author mikade
Fri, 19 Aug 2011 06:08:06 +0200
changeset 5598 265429f7ba85
parent 5325 261b79ba22b1
child 5823 f906f6645e02
permissions -rw-r--r--
- Updates to Tumbler gameplay mode [may still need a lil work] - New User Mission. Is this one possible?

loadfile(GetDataPath() .. "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
	SuddenDeathTurns = 9999
	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

	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, "cyborg")

	SetGearPosition(player, 2427, 1259)
	SetGearPosition(p2, 2293, 1263)
	SetGearPosition(enemy, 1516, 1519)

end


function onGameStart()

	--mines
	AddGear(1300, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1325, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1350, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1375, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1400, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1425, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1450, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1475, 1100, gtMine, 0, 0, 0, 0)
	AddGear(1500, 1100, gtMine, 0, 0, 0, 0)

	AddGear(1910, 1380, gtMine, 0, 0, 0, 0)
	AddGear(1925, 1380, gtMine, 0, 0, 0, 0)
	AddGear(1950, 1380, gtMine, 0, 0, 0, 0)
	AddGear(1975, 1380, gtMine, 0, 0, 0, 0)
	AddGear(2000, 1380, gtMine, 0, 0, 0, 0)
	AddGear(2025, 1380, gtMine, 0, 0, 0, 0)

	-- crates crates and more crates
	bCrate = SpawnAmmoCrate(2712,1500,amBaseballBat)
	SpawnUtilityCrate(1596,1167,amGirder)
	SpawnAmmoCrate(2728,1978,amPickHammer)
	SpawnAmmoCrate(1728,1647,amBlowTorch)
	SpawnUtilityCrate(2567,1768,amJetpack)
	SpawnAmmoCrate(1251,1466,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