-- v.0.7

local preciseOn = false

local wepCol = {}

local fGears = 0

local mineSpawn

local barrelSpawn

local barrelsEaten = 0

local minesEaten = 0

local moveTimer = 0

local fireTimer = 0

local vTag = {}

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

-- 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

-- add better gameflag handling

-- better barrel/minespawn effects

-- separate grab distance for mines/barrels

-- [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)

	xOffset = 40

	if i == 0 then

		yOffset = 40	

		tCol = 0xffba00ff --0xffed09ff --0xffba00ff

		tValue = TimeLeft

	elseif i == 1 then

		zoomL = 1.1		

		yOffset = 70	

		tCol = wepCol[0]

		tValue = wepAmmo[0]

	elseif i == 2 then

		zoomL = 1.1		

		xOffset = 40 + 35

		yOffset = 70		

		tCol = wepCol[1]

		tValue = wepAmmo[1]

	elseif i == 3 then

		zoomL = 1.1		

		xOffset = 40 + 70

		yOffset = 70		

		tCol = wepCol[2]

		tValue = wepAmmo[2]

	end

	DeleteVisualGear(vTag[i])

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

	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i])

				vTag[i], 		--id

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

				ScreenHeight - yOffset, --yoffset

				tValue, 		--value

				tCol		--GetClanColor( GetHogClan(CurrentHedgehog) )

	if (GetGearDistance(gear) < 1400) then

			wepAmmo[0] = wepAmmo[0] + 1

			AddCaption(wep[0] .. " " .. loc("ammo extended!"), wepCol[0], capgrpAmmoinfo )

			DrawTag(1)

			barrelsEaten = barrelsEaten + 1

			if barrelsEaten == 5 then

				AddCaption(loc("Achievement Unlocked") .. ": " .. loc("Barrel Eater!"),0xffba00ff,capgrpMessage2)

			end

			wepAmmo[1] = wepAmmo[1] + 1

			AddCaption(wep[1] .. " " .. loc("ammo extended!"), wepCol[1], capgrpAmmoinfo )

			DrawTag(2)

			minesEaten = minesEaten + 1

			if minesEaten == 5 then

				AddCaption(loc("Achievement Unlocked") .. ": " .. loc("Mine Eater!"),0xffba00ff,capgrpMessage2)

			end

		end

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

		if GetHealth(gear) > 0 then

			AddCaption(loc("Tumbling Time Extended!"), 0xffba00ff, capgrpMessage2 )

			TimeLeft = TimeLeft + HealthCaseAmount  --5 --5s

			DrawTag(0)

			wepAmmo[2] = wepAmmo[2] + 800

			AddCaption(wep[2] .. " " .. loc("fuel extended!"), wepCol[2], capgrpAmmoinfo )

			DrawTag(3)

function ChangeWeapon()

	wepIndex = wepIndex + 1

	if wepIndex == wepCount then

		wepIndex = 0

	AddCaption(wep[wepIndex] .. " " .. loc("selected!"), wepCol[wepIndex],capgrpAmmoinfo )

	AddCaption(wepAmmo[wepIndex] .. " " .. loc("shots remaining."), wepCol[wepIndex],capgrpMessage2)

		AddCaption(wepAmmo[wepIndex] .. " " .. loc("shots remaining."), wepCol[wepIndex],capgrpMessage2)

			DrawTag(1)

			DrawTag(2)

	-- pick up explosives/mines if nearby them

	HealthCaseProb = 0

	Delay = 1000

	mineSpawn = MinesNum

	if mineSpawn > 4 then

		mineSpawn = 4	

	end

	barrelSpawn = Explosives

	if barrelSpawn > 4 then

		barrelSpawn = 4	

	end

	--MinesNum = 0

	--Explosives = 0

	for i = 0, 3 do 	

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

	end

	HideTags()

	wep[0] = loc("Barrel Launcher")

	wep[1] = loc("Mine Deployer")	

	wep[2] = loc("Flamer")

	wepCol[0] = 0x78818eff

	wepCol[1] = 0xa12a77ff

	wepCol[2] = 0xf49318ff

	wepCount = 3

			loc("New Mines Per Turn") .. ": " .. (mineSpawn) .. "|" ..

			loc("New Barrels Per Turn") .. ": " .. (barrelSpawn) .. "|" ..

			loc("Time Extension") .. ": " .. (HealthCaseAmount) .. loc("sec") .. "|" ..

			" " .. "|" ..

			)