--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Training/User_Mission_-_Teamwork.lua Fri Dec 24 00:53:50 2010 -0500
@@ -0,0 +1,119 @@
+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(loc("Pathetic Hog #1"), 0, 50, "NoHat")
+ p2 = AddHog(loc("Pathetic Hog #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("by mikade"), loc("- Eliminate Unit 3378 |- Feeble Resistance must survive"), 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);
+ elseif (gear == player) or (gear == p2) 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