HedgewarsScriptLoad("/Scripts/Locale.lua")
local player = nil
local enemy = nil
local failed = false
local hhs = {}
local numhhs = 0
function onGameInit()
Seed = 0
TurnTime = 60000
CaseFreq = 0
MinesTime = 1000
SuddenDeathTurns = 999999
HealthCaseProb = 35
Explosives = 0
MinesNum = 0
Map = "Hammock"
Theme = "Nature"
AddTeam(loc("Pathetic Resistance"), 14483456, "Simple", "Island", "Default")
player = AddHog("Ikeda", 0, 48, "StrawHat")
AddTeam(loc("Cybernetic Empire"), 1175851, "Simple", "Island", "Default")
enemy = AddHog(loc("Unit") .. " 811", 1, 100, "cyborg1")
SetGearPosition(player,430,1540)
SetGearPosition(enemy,1464,1960)
end
function onGameStart()
AddAmmo(enemy, amShotgun, 100)
AddAmmo(enemy, amFirePunch, 100)
--GIRDER LIST.
PlaceGirder(1073,2009,0)
PlaceGirder(524,1487,3)
PlaceGirder(638,1453,4)
PlaceGirder(761,1453,0)
PlaceGirder(840,1421,3)
PlaceGirder(302,1388,6)
PlaceGirder(327,1506,1)
PlaceGirder(1669,1832,3)
--MINE LIST.
AddGear(1056,1987,gtMine, 0, 0, 0, 0)
AddGear(1086,1988,gtMine, 0, 0, 0, 0)
--STICKY MINE LIST.
AddGear(1089,965,gtSMine, 0, 0, 0, 0)
AddGear(1133,945,gtSMine, 0, 0, 0, 0)
AddGear(1010,1081,gtSMine, 0, 0, 0, 0)
AddGear(1036,1049,gtSMine, 0, 0, 0, 0)
AddGear(1057,1004,gtSMine, 0, 0, 0, 0)
AddGear(784,1252,gtSMine, 0, 0, 0, 0)
AddGear(841,1257,gtSMine, 0, 0, 0, 0)
AddGear(902,1263,gtSMine, 0, 0, 0, 0)
AddGear(952,1281,gtSMine, 0, 0, 0, 0)
AddGear(517,1546,gtSMine, 0, 0, 0, 0)
AddGear(559,1597,gtSMine, 0, 0, 0, 0)
AddGear(613,1650,gtSMine, 0, 0, 0, 0)
AddGear(674,1705,gtSMine, 0, 0, 0, 0)
AddGear(746,1692,gtSMine, 0, 0, 0, 0)
AddGear(810,1692,gtSMine, 0, 0, 0, 0)
AddGear(872,1673,gtSMine, 0, 0, 0, 0)
AddGear(933,1666,gtSMine, 0, 0, 0, 0)
AddGear(981,1662,gtSMine, 0, 0, 0, 0)
AddGear(1016,1634,gtSMine, 0, 0, 0, 0)
AddGear(1063,1595,gtSMine, 0, 0, 0, 0)
AddGear(1100,1574,gtSMine, 0, 0, 0, 0)
AddGear(1002,1461,gtSMine, 0, 0, 0, 0)
AddGear(1052,1438,gtSMine, 0, 0, 0, 0)
AddGear(1102,1464,gtSMine, 0, 0, 0, 0)
--WEAPON CRATE LIST.
SpawnAmmoCrate(1565,642,amSineGun)
SpawnAmmoCrate(548,858,amBazooka)
--UTILITY CRATE LIST.
SpawnUtilityCrate(479,847,amJetpack)
SpawnUtilityCrate(1550,1715,amBlowTorch)
SpawnUtilityCrate(1227,1941,amJetpack)
SpawnUtilityCrate(1070,1964,amInvulnerable)
SpawnUtilityCrate(1070,1875,amTeleport)
--HOG POSITION LIST.
if hhs[0] ~= nil then
SetGearPosition(hhs[0],397,865)
end
if hhs[1] ~= nil then
SetGearPosition(hhs[1],561,1365)
end
ShowMission(loc("Newton's Hammock"), loc("User Challenge"), loc("Eliminate the enemy before the time runs out"), -amParachute, 0)
end
function onAmmoStoreInit()
SetAmmo(amSkip, 9, 0, 0, 1)
SetAmmo(amBazooka, 0, 0, 0, 1)
SetAmmo(amJetpack, 0, 0, 0, 1)
SetAmmo(amTeleport, 0, 0, 0, 1)
SetAmmo(amSineGun, 0, 0, 0, 1)
SetAmmo(amInvulnerable, 0, 0, 0, 1)
SetAmmo(amBlowTorch, 0, 0, 0, 1)
end
function onGearDamage(gear, damage)
if (gear == player) and (damage >= 48) then
failed = true
end
end
function onGearAdd(gear)
if GetGearType(gear) == gtHedgehog then
hhs[numhhs] = gear
numhhs = numhhs + 1
end
end
function onGearDelete(gear)
if (gear == enemy) and (failed == false) then
ShowMission(loc("Newton's Hammock"), loc("MISSION SUCCESSFUL"), loc("Congratulations!"), 0, 0)
elseif gear == player then
ShowMission(loc("Newton's Hammock"), loc("MISSION FAILED"), loc("Oh no! Just try again!"), -amSkip, 0)
end
end