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

-- HIGHLANDER / HOGS OF WAR

-- version 0.3

-- by mikade

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

-----------

--0.1

-----------

-- concept test

-----------

--0.2

-----------

-- remove tardis till Henek fixes his tracker

-- change wep crates to health crates

-- reset arb turntimevalue

-- include randomOrder

-- Until fixed .17 methods come out, remove switches and resurrector

-- on request, removed kamikaze and piano weapons

-- provisional fixing of bugs that can't actually be fixed yet

-----------

--0.3

-----------

-- meh, update incorrect display

-- may change this in the future to have switches

-- but for now people are used to it without, so~

-- mudball is now counted as a utility

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

-- other ideas

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

-- circles to mark hogs with more than 4 weapons

-- health crate and switch drops

-- hogs start with 1 weap and 1 utility each (some are rarer than others?)

-- could always create a "donor card" mini circle instead of automatic disposal

loadfile(GetDataPath() .. "Scripts/Locale.lua")()

loadfile(GetDataPath() .. "Scripts/Tracker.lua")()

local wepArray = {}

local wepArrayCount = 0

local atkArray = {}

local atkCount = 0

local utilArray = {}

local utilArrayCount = 0

local currName

local lastName

local started = false

local switchStage = 0

function StartingSetUp(gear)

	for i = 0, (wepArrayCount-1) do

		setGearValue(gear,wepArray[i],0)

	end

	i = GetRandom(atkArrayCount)

	setGearValue(gear,atkArray[i],1)

	i = GetRandom(utilArrayCount)

	setGearValue(gear,utilArray[i],1)

	SetHealth(gear, 100)

end

--[[function SaveWeapons(gear)

	-

	for i = 0, (wepArrayCount-1) do

		setGearValue(gear, wepArray[i], GetAmmoCount(gear, wepArray[i]) )

		 --AddAmmo(gear, wepArray[i], getGearValue(gear,wepArray[i]) )

	end

end]]

function ConvertValues(gear)

	for i = 0, (wepArrayCount-1) do

		AddAmmo(gear, wepArray[i], getGearValue(gear,wepArray[i]) )

	end

end

function TransferWeps(gear)

	if CurrentHedgehog ~= nil then

		for i = 0, (wepArrayCount-1) do

			val = getGearValue(gear,wepArray[i])

			if val ~= 0 then

				setGearValue(CurrentHedgehog, wepArray[i], val)

				AddAmmo(CurrentHedgehog, wepArray[i], val)

			end

		end

	end

end

function onGameInit()

	GameFlags = gfInfAttack + gfRandomOrder

	HealthCaseProb = 100

end

function onGameStart()

	ShowMission	(

				loc("HIGHLANDER"),

				loc("Not all hogs are born equal."),

				"- " .. loc("Eliminate enemy hogs and take their weapons.") .. "|" ..

				"- " .. loc("Per-Hog Ammo") .. "|" ..

				"- " .. loc("Weapons reset.") .. "|" ..

				"- " .. loc("Unlimited Attacks") .. "|" ..

				"", 4, 4000

				)

	atkArray[0] = amBazooka

	atkArray[1] = amBee

	atkArray[2] = amMortar

	atkArray[3] = amDrill

	--atkArray[4] = amSnowball

	atkArray[4] = amGrenade

	atkArray[5] = amClusterBomb

	atkArray[6] = amMolotov

	atkArray[7] = amWatermelon

	atkArray[8] = amHellishBomb

	atkArray[9] = amGasBomb

	atkArray[10] = amShotgun

	atkArray[11] = amDEagle

	atkArray[12] = amFlamethrower

	atkArray[13] = amSniperRifle

	atkArray[14] = amSineGun

	atkArray[15] = amFirePunch

	atkArray[16] = amWhip

	atkArray[17] = amBaseballBat

	--atkArray[19] = amKamikaze

	atkArray[18] = amBirdy

	atkArray[19] = amSeduction

	atkArray[20] = amHammer

	atkArray[21] = amMine

	atkArray[22] = amDynamite

	atkArray[23] = amCake

	atkArray[24] = amBallgun

	atkArray[25] = amRCPlane

	atkArray[26] = amSMine

	atkArray[27] = amAirAttack

	atkArray[28] = amMineStrike

	atkArray[29] = amDrillStrike

	atkArray[30] = amNapalm

	--atkArray[32] = amPiano

	atkArray[31] = amLandGun

	--atkArray[33] = amBirdy

	--atkArray[34] = amLandGun

	atkArrayCount = 32

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

	wepArray[0] = amBazooka

	wepArray[1] = amBee

	wepArray[2] = amMortar

	wepArray[3] = amDrill

	wepArray[4] = amSnowball

	wepArray[5] = amGrenade

	wepArray[6] = amClusterBomb

	wepArray[7] = amMolotov

	wepArray[8] = amWatermelon

	wepArray[9] = amHellishBomb

	wepArray[10] = amGasBomb

	wepArray[11] = amShotgun

	wepArray[12] = amDEagle

	wepArray[13] = amFlamethrower

	wepArray[14] = amSniperRifle

	wepArray[15] = amSineGun

	wepArray[16] = amFirePunch

	wepArray[17] = amWhip

	wepArray[18] = amBaseballBat

	--wepArray[19] = amKamikaze

	wepArray[19] = amExtraTime

	wepArray[20] = amSeduction

	wepArray[21] = amHammer

	wepArray[22] = amMine

	wepArray[23] = amDynamite

	wepArray[24] = amCake

	wepArray[25] = amBallgun

	wepArray[26] = amRCPlane

	wepArray[27] = amSMine

	wepArray[28] = amAirAttack

	wepArray[29] = amMineStrike

	wepArray[30] = amDrillStrike

	wepArray[31] = amNapalm

	--wepArray[32] = amPiano

	wepArray[32] = amExtraDamage

	wepArray[33] = amBirdy

	wepArray[34] = amLandGun

	wepArray[35] = amBlowTorch

	wepArray[36] = amPickHammer

	wepArray[37] = amGirder

	wepArray[38] = amPortalGun

	wepArray[39] = amRope

	wepArray[40] = amParachute

	wepArray[41] = amTeleport

	wepArray[42] = amJetpack

	wepArray[43] = amInvulnerable

	wepArray[44] = amLaserSight

	wepArray[45] = amVampiric

	----resurrector used to be here

	wepArray[46] = amLowGravity

	--wepArray[47] = amExtraDamage -- see 19

	--wepArray[48] = amExtraTime	-- see 32

	--wepArray[49] = amResurrector

	--wepArray[50] = amTardis

	wepArrayCount = 47

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

	utilArray[0] = amBlowTorch

	utilArray[1] = amPickHammer

	utilArray[2] = amGirder

	utilArray[3] = amPortalGun

	utilArray[4] = amRope

	utilArray[5] = amParachute

	utilArray[6] = amTeleport

	utilArray[7] = amJetpack

	utilArray[8] = amInvulnerable

	utilArray[9] = amLaserSight

	utilArray[10] = amVampiric

	utilArray[11] = amLowGravity

	utilArray[12] = amExtraDamage

	utilArray[13] = amExtraTime

	utilArray[14] = amSnowball

	--utilArray[14] = amResurrector

	--utilArray[15] = amTardis

	utilArrayCount = 15

	runOnGears(StartingSetUp)

	runOnGears(ConvertValues)

end

function onNewTurn()

--

end

function onGameTick()

	if (CurrentHedgehog ~= nil) then

		currName = GetHogName(CurrentHedgehog)

		if (currName ~= lastName) then

			AddCaption(loc("Switched to ") .. currName .. "!")

			ConvertValues(CurrentHedgehog)

		end

		lastName = currName

	end

end

--[[function onHogHide(gear)

	-- waiting for Henek

end

function onHogRestore(gear)

	-- waiting for Henek

end]]

function onGearAdd(gear)

	--if GetGearType(gear) == gtSwitcher then

	--	SaveWeapons(CurrentHedgehog)

	--end

	if (GetGearType(gear) == gtHedgehog) then

		trackGear(gear)

	end

end

function onGearDelete(gear)

	if (GetGearType(gear) == gtHedgehog) then --or (GetGearType(gear) == gtResurrector) then

		TransferWeps(gear)

		trackDeletion(gear)

	end

end

function onAmmoStoreInit()

	SetAmmo(amSkip, 9, 0, 0, 0)

	--SetAmmo(amSwitch, 9, 0, 0, 0) -------1

end