-------------------------------------------

-- FRENZY

-- a hedgewars mode inspired by Hysteria

-------------------------------------------

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

local cTimer = 0

local cn = 0

function initialSetup(gear)

	SetHealth(gear, 75) -- official is 80, but that assumes bazookas/grenades that do 50 damage

end

function showStartingInfo()

	ruleSet = "" ..

	loc("RULES") .. ": " .. "|" ..

	loc("Each turn is only ONE SECOND!") .. "|" ..

	loc("Use your ready time to think.") .. "|" ..

	loc("Slot keys save time! (F1-F10 by default)") .. "|" ..

	" |" ..

	loc("SLOTS") .. ": " .. "|" ..

	loc("Slot") .. " 1 - " .. loc("Bazooka") .. "|" ..

	loc("Slot") .. " 2 - " .. loc("Grenade") .. "|" ..

	loc("Slot") .. " 3 - " .. loc("Shotgun") .. "|" ..

	loc("Slot") .. " 4 - " .. loc("Shoryuken") .. "|" ..

	loc("Slot") .. " 5 - " .. loc("Mine") .. "|" ..

	loc("Slot") .. " 6 - " .. loc("Teleport") .. "|" ..

	loc("Slot") .. " 7 - " .. loc("Blowtorch") .. "|" ..

	loc("Slot") .. " 8 - " .. loc("Flying Saucer") .. "|" ..

	loc("Slot") .. " 9 - " .. loc("Molotov") .. "|" ..

	loc("Slot") .. " 10 - " .. loc("Low Gravity")

	ShowMission(loc("FRENZY"),

                loc("a frenetic Hedgewars mini-game"),

                ruleSet, 0, 4000)

end

function onGameInit()

	if TurnTime > 10001 then

		Ready = 8000

	else

		Ready = TurnTime

	end

	TurnTime = 1000

	--These are the official settings, but I think I prefer allowing customization in this regard

	--MinesNum = 8

	--MinesTime = 3000

	--MinesDudPercent = 30

	--Explosives = 0

	--Supposedly official settings

	HealthCaseProb = 0

	CrateFreq = 0

	--Approximation of Official Settings

	--SuddenDeathTurns = 10

	--WaterRise = 47

	--HealthDecrease = 0

end

function onGameStart()

	showStartingInfo()

	runOnHogs(initialSetup)

end

function onSlot(sln)

	cTimer = 8

	cn = sln

end

function onGameTick()

	if cTimer ~= 0 then

		cTimer = cTimer -1

		if cTimer == 1 then

			ChangeWep(cn)

			cn = 0

			cTimer = 0

		end

	end

end

function ChangeWep(s)

	if s == 0 then

		ParseCommand("setweap " .. string.char(amBazooka))

	elseif s == 1 then

		ParseCommand("setweap " .. string.char(amGrenade))

	elseif s == 2 then

		ParseCommand("setweap " .. string.char(amShotgun))

	elseif s == 3 then

		ParseCommand("setweap " .. string.char(amFirePunch))

	elseif s == 4 then

		ParseCommand("setweap " .. string.char(amMine))

	elseif s == 5 then

		ParseCommand("setweap " .. string.char(amTeleport))

	elseif s == 6 then

		ParseCommand("setweap " .. string.char(amBlowTorch))

	elseif s == 7 then

		ParseCommand("setweap " .. string.char(amJetpack))

	elseif s == 8 then

		ParseCommand("setweap " .. string.char(amMolotov))

	elseif s == 9 then

		ParseCommand("setweap " .. string.char(amLowGravity))

	end

end

function onGearAdd(gear)

	if GetGearType(gear) == gtHedgehog then

		trackGear(gear)

	end

end

function onGearDelete(gear)

	if GetGearType(gear) == gtHedgehog then

		trackDeletion(gear)

	end

end

function onAmmoStoreInit()

	SetAmmo(amBazooka, 9, 0, 0, 0)

	SetAmmo(amGrenade, 9, 0, 0, 0)

	SetAmmo(amMolotov, 9, 0, 0, 0)

	SetAmmo(amShotgun, 9, 0, 0, 0)

	--SetAmmo(amFlamethrower, 9, 0, 0, 0) -- this was suggested on hw.org but it's not present on base

	SetAmmo(amFirePunch, 9, 0, 0, 0)

	SetAmmo(amMine, 9, 0, 0, 0)

	--SetAmmo(amCake, 1, 0, 2, 0) -- maybe it's beefcake?

	SetAmmo(amJetpack, 9, 0, 0, 0)

	SetAmmo(amBlowTorch, 9, 0, 0, 0)

	SetAmmo(amTeleport, 9, 0, 0, 0)

	SetAmmo(amLowGravity, 9, 0, 0, 0)

	--SetAmmo(amSkipGo, 9, 0, 0, 0) -- not needed with 1s turn time

end