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

-- TUMBLER

-- v.0.8.0

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

--[[

SCRIPT PARAMETER

The script is configured with the script parameter.

Additional configuration in the game scheme is permitted.

The script parameter is a comma-separated list of key=value pairs.

The values are always whole numbers, the keys are listed below.

Key			Default	Description

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

spawnbarrels		2	Number of barrels that spawn per turn

spawnmines		4	Number of mines that spawn per turn

ammoflamer		50	Initial fuel/ammo of Flamer

ammobarrel		2	Initial ammo of Barrel Launcher

ammomine		1	Initial ammo of Mine Deployer

minetimerplaced		1000	Mine timer of mines dropped from Mine Deployer (!) in milliseconds

bonustime		25	Bonus time in utility crates, in seconds

bonusflames		800	Flamer fuel bonus in ammo crates

chanceammo		30	Chance (in %) that an ammo crate will drop before a turn

chancetime		50	Chance (in %) that an utility crate (extra time) will drop before a turn

EXAMPLES:

ammoflamer=800, ammomine=5

--> Starts the game with 800 Flamer fuel and 5 Mine Deployer mines.

chancetime=0

--> No clock crates.

GAME SCHEME CONFIGURATION

The script recognizes most game modifiers and settings, but changing the following game modifiers

will have no effect:

- Artillery

- Tag Team

- Shared ammo

- Per-hog ammo

- Place hogs

- Invulnerable

- Reset weapons

]]

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

HedgewarsScriptLoad("/Scripts/Params.lua")

local fMod = 1000000 -- use this for dev and .16+ games

local leftOn = false

local rightOn = false

local upOn = false

local downOn = false

local preciseOn = false

local wep = {}

local wepAmmo = {}

local wepCol = {}

local wepIndex = 0

local wepCount = 0

local fGears = 0

local mineSpawn

local barrelSpawn

local roundKills = 0

local moveTimer = 0

local fireTimer = 0

local TimeLeftCounter = 0

local TimeLeft = 0

local stopMovement = false

local tumbleStarted = false

local vTag = {}

local barrelSpawn = 2

local mineSpawn = 4

local initAmmoFlamer = 50

local initAmmoBarrel = 2

local initAmmoMine = 1

local placedMineTime = 1000

local bonusTime = 25

local bonusFlames = 800

local chanceAmmo = 30

local chanceTime = 50

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

-- version 0.4

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

-- removed some old code/comments

-- removed both shell and mortar as the primary and secondary weapons

-- the primary weapon is now an explosive(barrel)

-- added support for picking up barrels scattered about the map (backspace)

-- added support for dragging around mines (enter toggles on/off)

-- added support for primary fire being onAttackUp

-- added a trail to indicate when the player has 5s or less left to tumble

-- updated showmission to reflect changed controls and options

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

-- version 0.5

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

-- changed some of the user feedback

-- i can't remember??

-- substituted onAttackUp for onPrecise()

-- brought in line with new velocity changes

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

-- version 0.6

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

-- reduced starting "ammo"

-- randomly spawn new barrels/mines on new turn

-- updated user feedback

-- better locs and coloured addcaptions

-- added tag for turntime

-- removed tractor beam

-- added two new weapons and changed ammo handling

-- health crates now give tumbler time, and wep/utility give flamer ammo

-- explosives AND mines can be picked up to increase their relative ammo

-- replaced "no weapon" selected message that hw serves

-- modified crate frequencies a bit

-- added some simple kill-based achievements, i think

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

-- version 0.7

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

-- a few code optimisations/performance tweaks

-- removed some deprecated code

-- fix a potential spawn bug

-- improved HUD (now shows ammo counts)

-- improved user feedback (less generic messages)

-- colour-coded addcaptions to match hud :)

-- base tumbling time now equals scheme turntime

-- tumbling time extension is now based on the amount of health contained in crate

-- new mines per turn based on minesnum

-- new barrels per turn based on explosives

-- added 2 more achievements: barrel eater and mine eater (like kills, don't do anything atm)

-- slightly increased grab distance for explosives/mines

-- slightly increased flamer velocity

-- slightly decreased flamer volume

-- added a flame vaporiser (based on number of flame gears?)

-- give tumblers an extra 47 health on the start of their tumble to counter the grenade (exp)

-- refocus camera on tumbler on newturn (not on crates, barrels etc)

-- increase delay: yes, yes, eat your hearts out

-- commit log

-- Better HUD

-- Allow more user customization

-- Bugfix for new gear spawns

-- Performance tweaks

-- Variety of small gameplay changes

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

-- version 0.7.1

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

-- redraw HUD on screen resolution change

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

-- version 0.8.0

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

-- Allow detailed configuration with script parameter (see above)

-- Alternative weapon selection with slot keys

--- Slot 1: Barrel Launcher

--- Slot 2: Mine Deployer

--- Slot 3: Flamer

-- Add mine/barrel launch sounds

-- Improved ammo display

-- Denied sound + message when trying to fire empty ammo weapon

-- Slightly better mission description

--- The old hacks by (ab)using MinesNum, Explosives and HealthCaseAmount have been removed

-- Permanently disable some gameflags which currently won't work together with this script (see above)

-- Show flamer ammo as fuel everywhere (no more percentage confusion)

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

-- some other ideas/things

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

--[[

-- allow invulnerability mode (currently broken, thus disabled)

-- better barrel/minespawn effects

-- separate grab distance for mines/barrels

-- bug: message color for remaining ammo does not change if two times the same message

   (but in different desired color) is shown in quick succession (i.e. "Out of ammo!" for all weapons)

-- [probably not] make barrels always explode?

-- [probably not] persistent ammo?

-- [probably not] dont hurt tumblers and restore their health at turn end?

]]

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

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

local flames = {}

local fGearValues = {}

function runOnflames(func)

    for k, gear in ipairs(flames) do

        func(gear)

    end

end

function trackFGear(gear)

    table.insert(flames, gear)

end

function trackFGearDeletion(gear)

    fGearValues[gear] = nil

    for k, g in ipairs(flames) do

        if g == gear then

            table.remove(flames, k)

            break

        end

    end

end

function getFGearValue(gear, key)

    if fGearValues[gear] ~= nil then

        return fGearValues[gear][key]

    end

    return nil

end

function setFGearValue(gear, key, value)

    found = false

    for id, values in pairs(fGearValues) do

        if id == gear then

            values[key] = value

            found = true

        end

    end

    if not found then

        fGearValues[gear] = { [key] = value }

    end

end

function decreaseFGearValue(gear, key)

    for id, values in pairs(fGearValues) do

        if id == gear then

            values[key] = values[key] - 1

        end

    end

end

function HandleLife(gear)

	decreaseFGearValue(gear, "L")

	if getFGearValue(gear, "L") == 0 then

		AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, false)

		DeleteGear(gear)

	end

end

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

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

function HideTags()

	for i = 0, 3 do

		SetVisualGearValues(vTag[i],0,0,0,0,0,1,0, 0, 240000, 0xffffff00)

	end

end

function DrawTag(i)

	local zoomL = 1.3

	local xOffset, yOffset, tValue, tCol

	if i == 0 then

		if INTERFACE == "touch" then

			xOffset = 60

			yOffset = ScreenHeight - 35

		else

			xOffset = 40

			yOffset = 40

		end

		tCol = 0xffee00ff

		tValue = TimeLeft

	elseif i == 1 then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126

			yOffset = ScreenHeight - 37

		else

			xOffset = 40

			yOffset = 70

		end

		tCol = wepCol[0]

		tValue = wepAmmo[0]

	elseif i == 2 then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126 + 35

			yOffset = ScreenHeight - 37

		else

			xOffset = 40 + 35

			yOffset = 70

		end

		tCol = wepCol[1]

		tValue = wepAmmo[1]

	elseif i == 3 then

		zoomL = 1.1

		if INTERFACE == "touch" then

			xOffset = 126 + 70

			yOffset = ScreenHeight - 37

		else

			xOffset = 40 + 70

			yOffset = 70

		end

		tCol = wepCol[2]

		tValue = wepAmmo[2]

	end

	DeleteVisualGear(vTag[i])

	vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false)

	SetVisualGearValues	(

				vTag[i], 		--id

				-(ScreenWidth/2) + xOffset,	--xoffset

				ScreenHeight - yOffset, --yoffset

				0, 			--dx

				0, 			--dy

				zoomL, 			--zoom

				1, 			--~= 0 means align to screen

				nil, 			--frameticks

				tValue, 		--value

				240000, 		--timer

				tCol		--GetClanColor( GetHogClan(CurrentHedgehog) )

				)

end

function GetGearDistance(gear)

	g1X, g1Y = GetGearPosition(gear)

	g2X, g2Y = GetGearPosition(CurrentHedgehog)

	q = g1X - g2X

	w = g1Y - g2Y

	return( (q*q) + (w*w) )

end

-- add to your ammo ***WHEN YOU PUSH A KEY*** near them

-- yes that was my justification for a non generic method

function CheckProximityToExplosives(gear)

	if (GetGearDistance(gear) < 1400) then

		if (GetGearType(gear) == gtExplosives) then

			wepAmmo[0] = wepAmmo[0] + 1

			PlaySound(sndShotgunReload)

			DeleteGear(gear)

			AddCaption(loc("+1 barrel!"), wepCol[0], capgrpAmmoinfo )

			DrawTag(1)

		elseif (GetGearType(gear) == gtMine) then

			wepAmmo[1] = wepAmmo[1] + 1

			PlaySound(sndShotgunReload)

			DeleteGear(gear)

			AddCaption(loc("+1 mine!"), wepCol[1], capgrpAmmoinfo )

			DrawTag(2)

		end

	end

end

-- check proximity on crates

function CheckProximity(gear)

	dist = GetGearDistance(gear)

	if (dist < 1600) and (GetGearType(gear) == gtCase) then

		if band(GetGearPos(gear), 0x4) ~= 0 then

			AddCaption(string.format(loc("+%d seconds!"), bonusTime), 0xffee00ff, capgrpMessage2 )

			TimeLeft = TimeLeft + bonusTime

			DrawTag(0)

			PlaySound(sndExtraTime)

		elseif band(GetGearPos(gear), 0x1) ~= 0 then

			wepAmmo[2] = wepAmmo[2] + bonusFlames

			PlaySound(sndShotgunReload)

			AddCaption(string.format(loc("+%d flamer fuel!"), bonusFlames), wepCol[2], capgrpAmmoinfo )

			DrawTag(3)

		end

		DeleteGear(gear)

	end

end

function shotsRemainingMessage()

	local shotsMsg

	if wepAmmo[wepIndex] <= 0 then

		shotsMsg = loc("Out of ammo!")

	else

		if wepIndex == 2 then

			shotsMsg = loc("Fuel: %d")

		else

			shotsMsg = loc("Ammo: %d")

		end

	end

	AddCaption(string.format(shotsMsg, wepAmmo[wepIndex]), wepCol[wepIndex],capgrpAmmostate)

end

function ChangeWeapon(newIndex)

	if newIndex == nil then

		wepIndex = wepIndex + 1

		if wepIndex == wepCount then

			wepIndex = 0

		end

	else

		wepIndex = newIndex

	end

	local selText

	if wepIndex == 0 then

		selText = loc("Barrel Launcher")

	elseif wepIndex == 1 then

		selText = loc("Mine Deployer")

	else

		selText = loc("Flamer")

	end

	AddCaption(selText, wepCol[wepIndex],capgrpAmmoinfo )

	shotsRemainingMessage()

end

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

-- Parse parameters

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

function parseNum(key, default, min, max)

	local num = tonumber(params[key])

	if type(num) ~= "number" then 

		if default ~= nil then

			return default

		else

			return nil

		end

	end

	if min ~= nil then

		num = math.max(min, num)

	end

	if max ~= nil then

		num = math.min(max, num)

	end

	return num

end

function onParameters()

	parseParams()

	barrelSpawn = parseNum("spawnbarrels", barrelSpawn, 0)

	mineSpawn = parseNum("spawnmines", mineSpawn, 0)

	initAmmoFlamer = parseNum("ammoflamer", initAmmoFlamer, 0)

	initAmmoBarrel = parseNum("ammobarrel", initAmmoBarrel, 0)

	initAmmoMine = parseNum("ammomine", initAmmoMine, 0)

	placedMineTime = parseNum("minetimeplaced", placedMineTime, 0, 5000)

	bonusTime = parseNum("bonustime", bonusTime, 0)

	bonusFlames = parseNum("bonusflames", bonusFlames, 0)