------------------- ABOUT ----------------------
--
-- In the desert planet Hero will have to explore
-- the dunes below the surface and find the hidden
-- crates. It is told that one crate contains the
-- lost part.
-- TODO
-- maybe use same name in missionName and frontend mission name..
-- in this map I have to track the weapons the player has in checkpoints
HedgewarsScriptLoad("/Scripts/Locale.lua")
HedgewarsScriptLoad("/Scripts/Animate.lua")
----------------- VARIABLES --------------------
-- globals
local campaignName = loc("A Space Adventure")
local missionName = loc("Desert planet, lost in sand!")
local checkPointReached = 1 -- 1 is normal spawn
-- crates
local btorch1Y = 60
local btorch1X = 2700
local btorch2Y = 1800
local btorch2X = 1010
local rope1Y = 970
local rope1X = 3200
local rope2Y = 1900
local rope2X = 680
local rope3Y = 1850
local rope3X = 2460
local portalY = 480
local portalX = 1465
local constructY = 1630
local constructX = 3350
-- hogs
local hero = {}
local ally = {}
local smuggler1 = {}
local smuggler2 = {}
local smuggler3 = {}
-- teams
local teamA = {}
local teamB = {}
local teamC = {}
-- hedgehogs values
hero.name = "Hog Solo"
hero.x = 1740
hero.y = 40
hero.dead = false
ally.name = "Chief Sandologist"
ally.x = 1660
ally.y = 40
smuggler1.name = "Sanndy"
smuggler1.x = 320
smuggler1.y = 235
smuggler2.name = "Spike"
smuggler2.x = 736
smuggler2.y = 860
smuggler3.name = "Sandstorm"
smuggler3.x = 1940
smuggler3.y = 1625
teamA.name = loc("PAotH")
teamA.color = tonumber("FF0000",16) -- red
teamB.name = loc("Smugglers")
teamB.color = tonumber("0033FF",16) -- blues
teamC.name = loc("Hog Solo")
teamC.color = tonumber("38D61C",16) -- green
-------------- LuaAPI EVENT HANDLERS ------------------
function onGameInit()
Seed = 1
TurnTime = 25000
CaseFreq = 0
MinesNum = 0
MinesTime = 1
Explosives = 0
Delay = 3
HealthCaseAmount = 30
Map = "desert01_map"
Theme = "Desert"
-- Hog Solo
AddTeam(teamC.name, teamC.color, "Bone", "Island", "HillBilly", "cm_birdy")
hero.gear = AddHog(hero.name, 0, 100, "war_desertgrenadier1")
AnimSetGearPosition(hero.gear, hero.x, hero.y)
HogTurnLeft(hero.gear, true)
-- PAotH undercover scientist and chief Sandologist
AddTeam(teamA.name, teamA.color, "Bone", "Island", "HillBilly", "cm_birdy")
ally.gear = AddHog(ally.name, 0, 100, "war_desertgrenadier1")
AnimSetGearPosition(ally.gear, ally.x, ally.y)
-- Smugglers
AddTeam(teamB.name, teamB.color, "Bone", "Island", "HillBilly", "cm_birdy")
smuggler1.gear = AddHog(smuggler1.name, 1, 120, "tophats")
AnimSetGearPosition(smuggler1.gear, smuggler1.x, smuggler1.y)
smuggler2.gear = AddHog(smuggler2.name, 1, 120, "tophats")
AnimSetGearPosition(smuggler2.gear, smuggler2.x, smuggler2.y)
smuggler3.gear = AddHog(smuggler3.name, 1, 120, "tophats")
AnimSetGearPosition(smuggler3.gear, smuggler3.x, smuggler3.y)
--AnimInit()
--AnimationSetup()
end
function onGameStart()
--AnimWait(hero.gear, 3000)
FollowGear(hero.gear)
AddAmmo(hero.gear, amRope, 10)
-- spawn crates
SpawnAmmoCrate(btorch1X, btorch1Y, amBlowTorch)
SpawnAmmoCrate(btorch2X, btorch2Y, amBlowTorch)
SpawnAmmoCrate(rope1X, rope1Y, amRope)
SpawnAmmoCrate(rope2X, rope2Y, amRope)
SpawnAmmoCrate(rope3X, rope3Y, amRope)
SpawnAmmoCrate(portalX, portalY, amPortalGun)
SpawnAmmoCrate(constructX, constructY, amConstruction)
SpawnHealthCrate(3300, 970)
end
function onAmmoStoreInit()
SetAmmo(amBlowTorch, 0, 0, 0, 1)
SetAmmo(amRope, 0, 0, 0, 1)
SetAmmo(amPortalGun, 0, 0, 0, 1)
SetAmmo(amConstruction, 0, 0, 0, 1)
end
function onGearDelete(gear)
if gear == hero.gear then
hero.dead = true
end
end