--[[

	=== Continental supplies ===

	Created by Vatten in 2012.

	Further worked on by the Hedgewars Team and contributors.

	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

	The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

]]

-- fix selection increase delay (weapons to compesate)

HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Utils.lua")

HedgewarsScriptLoad("/Scripts/Tracker.lua")

--approximative version of square root. This function follows the babylonian method.

function IntegerSqrt(num)

	local temp=num

	while(temp*temp-div(temp,2)>num)

	do

		temp=div((temp+div(num,temp)),2)

	end

	return math.abs(temp)

end

-- sqrt(x^2,y^2), work without desyncs. is approximative

function Norm(xx,yy)

	--to fix overflows

	if(((math.abs(xx)^2)+(math.abs(yy)^2))>2^26)

	then

		local bitr=2^13

		return IntegerSqrt((div(math.abs(xx),bitr)^2)+(div(math.abs(yy),bitr)^2))*bitr

	else

		return IntegerSqrt((math.abs(xx)^2)+(math.abs(yy)^2))

	end

end

-- returns 1 or -1 depending on where it is

function GetIfNegative(num)

	if(num<0)

	then

		return -1

	else

		return 1

	end

end

--Will end the turn + give escape time

function EndTurnCS(seconds)

	-- Set attacked state to prevent “Boring” sound to be played

	SetState(CurrentHedgehog, bor(GetState(CurrentHedgehog), gstAttacked))

	--set escape time

	local escapeTime = GetAwayTime*10*seconds

	if escapeTime > 0 then

		Retreat(escapeTime, false)

	else

		SetTurnTimeLeft(escapeTime)

	end

 end

 --show health tag (will mostly be used when a hog is damaged)

function ShowDamageTag(hog,damage)

	local healthtag=AddVisualGear(GetX(hog), GetY(hog), vgtHealthTag, damage, false)

	SetVisualGearValues(healthtag, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(hog)))

end

--will use IntegerSqrt

function FireGear(hedgehog,geartype,vx,vy,timer)

	local hypo=Norm(vx,vy)

	return AddGear(div((GetGearRadius(hedgehog)*2*vx),hypo)+GetX(hedgehog), div((GetGearRadius(hedgehog)*2*vy),hypo)+GetY(hedgehog), geartype, 0, vx, vy, timer)

end

function CollectMultiAmmo(hog, ammoList, noAddAmmo)

	local x, y = GetGearPosition(hog)

	x = x + 2

	y = y + 32

	local ammoStr = ""

	local ammoLength = 0

	for _, _ in pairs(ammoList) do

		ammoLength = ammoLength + 1

	end

	local a = 1

	for ammo, count in pairs(ammoList) do

		if not noAddAmmo then

			local oldCount = GetAmmoCount(hog, ammo)

			local newCount = oldCount + count

			-- Make sure that finite ammo stays finite

			if count < 100 and oldCount < 100 and newCount >= 100 then

				newCount = 99

			end

			AddAmmo(hog, ammo, newCount)

		end

		if IsHogLocal(hog) then

			x = x + 2

			y = y + 32

			local vgear = AddVisualGear(x, y, vgtAmmo, 0, true)

			if vgear ~= nil then

				local vgtFrame = ammo

				SetVisualGearValues(vgear, nil, nil, nil, nil, nil, vgtFrame)

			end

			ammoStr = ammoStr .. string.format(loc("%s (+%d)"), GetAmmoName(ammo), count)

			if a < ammoLength then

				ammoStr = ammoStr .. " • "

			end

		end

		a = a + 1

	end

	if ammoLength > 0 then

		PlaySound(sndShotgunReload)

		-- Show collected ammo

		if IsHogLocal(hog) then

			AddCaption(ammoStr, GetClanColor(GetHogClan(hog)), capgrpAmmoinfo)

		end

	end

end

function SetAttackState(state)

	if state==true then

		SetInputMask(bor(GetInputMask(), gmAttack))

	else

		SetInputMask(band(GetInputMask(), bnot(gmAttack)))

	end

end

--====MISC_TIMER GLOBALS====

local CS = {}

--for selecting continent

CS.INIT_TEAMS = {}

CS.GAME_STARTED = false

CS.SELECT_CONTINENT_CHECK=false

CS.START_TIME=0

CS.HOG_HEALTH=100

CS.TEAM_CONTINENT = {}

--variables for seeing if you have swaped around on a weapon

CS.AUSTRALIAN_SPECIAL=0

CS.AFRICAN_SPECIAL_SEDUCTION=0

CS.AFRICAN_SPECIAL_STICKY=0

CS.SOUTH_AMERICAN_SPECIAL=false

CS.NORTH_AMERICAN_SPECIAL_SNIPER=1

CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=false

CS.KERGUELEN_SPECIAL=1

CS.NORTH_AMERICAN_SPECIAL_SHOTGUN=false

CS.EUROPE_SPECIAL=0

CS.ANTARCTICA_SPECIAL=0

CS.SEDUCTION_INCREASER=0

--detection if something is activated

CS.SWITCH_HOG_IS_ON=false

CS.VAMPIRIC_IS_ON=0

CS.EXTRA_DAMAGE_IS_ON=100

CS.PARACHUTE_IS_ON=false

CS.PRECISE=false

CS.CONTINENT_LABEL_TIMER=-1

CS.SPEECH_TIMER=-1

CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER=-1

CS.HANDLE_SOUTH_AMERICAN_SPECIAL_TIMER=-1

CS.CONFIRM_CONTINENT_SELECTION=-1

--the visual circle for kerguelen

CS.VISUAL_CIRCLE=nil

--the global temporary value

CS.TEMP_VALUE=0

--true if player used any sticky mine mine mode besides hedgehog projectile in this turn

CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED=false

-- “constants”

CS.SABOTAGE_GRAVITY=350

CS.SABOTAGE_GRAVITY_LOW=175

CS.SABOTAGE_DAMAGE=2

CS.SABOTAGE_FREQUENCY=100

--for sabotage

CS.SABOTAGE_COUNTER=0

CS.SABOTAGE_HOGS={}

CS.SABOTAGE_FREQUENCY_NOW=0

--for sundaland

CS.SUNDALAND_END_HOG_CONTINENT_NAME=nil

--misc.

CS.OPTION_NO_SPECIALS=false

--====GENERAL GLOBALS (useful for handling continents)====

CS.SNIPER_SPECIAL_NAME = loc("Green Lipstick Bullet")

CS.BASEBALLBAT_BOOMERANG_NAME = loc("Bouncy Boomerang")

CS.CHEESE_SPECIAL_NAME = loc("Anno 1032")

CS.SEDUCTION_SPECIAL_NAME = loc("Dust Storm")

CS.BASEBALLBAT_CRICKET_NAME = loc("Cricket Time")

CS.PARACHUTE_SPECIAL_NAME = loc("Heroic Wind")

CS.HAMMER_ROAR_NAME = loc("Penguin Roar")

CS.HAMMER_SWAP_NAME = loc("Disguise as a Rockhopper Penguin")

CS.HAMMER_LONELY_NAME = loc("Lonely Cries")

CS.STICKY_PROJECTILE_NAME = loc("Hedgehog Projectile")

CS.STICKY_NAPALM_NAME = loc("Napalm Rocket")

CS.SHOTGUN_SPECIAL_NAME = loc("Eagle Eye")

CS.MOLOTOV_SPECIAL_NAME = loc("Medicine")

CS.HAMMER_SABOTAGE_NAME = loc("Flare")

CS.PICKHAMMER_SPECIAL_NAME = loc("Upside-Down World")

CS.SNIPER_SPECIAL_DESC = loc("Poisonous, deals no damage.")

CS.BASEBALLBAT_BOOMERANG_DESC = loc("Launch a bouncy ball which explodes into a crate.")

CS.CHEESE_SPECIAL_DESC = loc("Strong knockback, but no poison.")

CS.SEDUCTION_SPECIAL_DESC = loc("Deals 15 damage to all enemies in the circle.")

CS.BASEBALLBAT_CRICKET_DESC = loc("Throw a 1 second mine!")

CS.PARACHUTE_SPECIAL_DESC = loc("Drop a ball of dirt which turns into a|cluster on impact. Doesn’t end turn.")

CS.HAMMER_ROAR_DESC = loc("Deal 15 damage + 10% of your hog’s health to all hogs around you and get 2/3 back.")

CS.HAMMER_SWAP_DESC = loc("Swap place with a random enemy in the circle.")

CS.HAMMER_LONELY_DESC = loc("Rise the water if nobody else is in the circle and deal 6 damage to all enemy hogs.")

CS.STICKY_PROJECTILE_DESC = loc("Fire your hedgehog like a sticky mine.")

CS.STICKY_NAPALM_DESC = loc("Fire a rocket with napalm.")

CS.SHOTGUN_SPECIAL_DESC = loc("Teleport to the impact location.")

CS.MOLOTOV_SPECIAL_DESC = loc("Fire some exploding medicine that will heal 15 health to all hogs in its effect radius.")

CS.HAMMER_SABOTAGE_DESC = loc("Sabotage all hogs in the circle and fire a cluster above you.|Sabotaged hogs lose health and have to deal with a very high gravity during their turn.")

CS.PICKHAMMER_SPECIAL_DESC = loc("Teleport to the top of the map, expect fall damage!")

CS.INVULNERABLE_SPECIAL_CAPTION = loc("15+%d damage, %d invulnerable left")

-- Make info

local minfo = function(name, desc)

	return string.format(loc("%s: %s"), name, desc)

end

CS.SNIPER_SPECIAL_INFO = minfo(CS.SNIPER_SPECIAL_NAME, CS.SNIPER_SPECIAL_DESC)

CS.BASEBALLBAT_BOOMERANG_INFO = minfo(CS.BASEBALLBAT_BOOMERANG_NAME, CS.BASEBALLBAT_BOOMERANG_DESC)

CS.CHEESE_SPECIAL_INFO = minfo(CS.CHEESE_SPECIAL_NAME, CS.CHEESE_SPECIAL_DESC)

CS.SEDUCTION_SPECIAL_INFO = minfo(CS.SEDUCTION_SPECIAL_NAME, CS.SEDUCTION_SPECIAL_DESC)

CS.INVULNERABLE_SPECIAL_INFO = loc("Increase the dust storm damage by sacrificing|your invulnerable ammo.")

CS.INVULNERABLE_SPECIAL_CTRL = loc("Up/Down: Adjust dust storm damage")

CS.BASEBALLBAT_CRICKET_INFO = minfo(CS.BASEBALLBAT_CRICKET_NAME, CS.BASEBALLBAT_CRICKET_DESC)

CS.PARACHUTE_SPECIAL_INFO = minfo(CS.PARACHUTE_SPECIAL_NAME, CS.PARACHUTE_SPECIAL_DESC)

CS.HAMMER_ROAR_INFO = minfo(CS.HAMMER_ROAR_NAME, CS.HAMMER_ROAR_DESC)

CS.HAMMER_SWAP_INFO = minfo(CS.HAMMER_SWAP_NAME, CS.HAMMER_SWAP_DESC)

CS.HAMMER_LONELY_INFO = minfo(CS.HAMMER_LONELY_NAME, CS.HAMMER_LONELY_DESC)

CS.STICKY_PROJECTILE_INFO = minfo(CS.STICKY_PROJECTILE_NAME, CS.STICKY_PROJECTILE_DESC)

CS.STICKY_NAPALM_INFO = minfo(CS.STICKY_NAPALM_NAME, CS.STICKY_NAPALM_DESC)

CS.SHOTGUN_SPECIAL_INFO = minfo(CS.SHOTGUN_SPECIAL_NAME, CS.SHOTGUN_SPECIAL_DESC)

CS.MOLOTOV_SPECIAL_INFO = minfo(CS.MOLOTOV_SPECIAL_NAME, CS.MOLOTOV_SPECIAL_DESC)

CS.HAMMER_SABOTAGE_INFO = minfo(CS.HAMMER_SABOTAGE_NAME, CS.HAMMER_SABOTAGE_DESC)

CS.PICKHAMMER_SPECIAL_INFO = minfo(CS.PICKHAMMER_SPECIAL_NAME, CS.PICKHAMMER_SPECIAL_DESC)

CS.SELECT_WEP_INFORMATION=loc("Select your continent with [Up]/[Down] or by selecting a representative weapon.").."|"..

	loc("Press [Attack] to confirm.")

CS.SELECT_WEP_INFORMATION_SHORT=loc("%s, select your continent!")

function GeneralInformation()

	local select_wep, quit_hint

	if not CS.GAME_STARTED then

		select_wep = "| |"..CS.SELECT_WEP_INFORMATION

		quit_hint = "|"..loc("Hint: Use the quit key to see the team’s continent.")

	else

		select_wep = ""

		quit_hint = ""

	end

	local general_information =

		loc("Continents: Select a continent at the beginning.").."|"..

		loc("Supplies: Each continent gives you unique weapons, specials and health.").."|"..

		loc("Weapon specials: Some weapons have special modes (see weapon description).")..

		select_wep..

		quit_hint

	return general_information

end

CS.CONTINENT_INFORMATION =

{

{loc("North America"),

loc("The continent of firearms"),

loc("The Union: You can select a hedgehog at the start of your turns.").."| |"..

loc("Special weapons:").." |"..

GetAmmoName(amShotgun)..": "..CS.SHOTGUN_SPECIAL_INFO.."|"..

GetAmmoName(amSniperRifle)..": "..CS.SNIPER_SPECIAL_INFO,

{amSniperRifle,1},

{{amShotgun,100},{amDEagle,100},{amLaserSight,2},{amSniperRifle,100},{amCake,1},{amAirAttack,2},{amSwitch,2}},

{sndShotgunFire,sndCover},100},

{loc("South America"),

loc("The continent of guerilla tactics"),

"| |"..loc("Special weapons:").." |"

..GetAmmoName(amGasBomb)..": "..CS.CHEESE_SPECIAL_INFO,

{amGasBomb,2},

{{amBirdy,100},{amHellishBomb,1},{amBee,100},{amGasBomb,100},{amFlamethrower,100},{amNapalm,2},{amExtraDamage,3}},

{sndEggBreak,sndLaugh},125},

{loc("Europe"),

loc("The continent of medicine"),

"| |"..loc("Special weapons:").." |"

..GetAmmoName(amMolotov)..": "..CS.MOLOTOV_SPECIAL_INFO,

{amBazooka,3},

{{amBazooka,100},{amGrenade,100},{amMortar,100},{amMolotov,100},{amVampiric,4},{amPiano,1},{amResurrector,2},{amJetpack,4}},

{sndExplosion,sndEnemyDown},100},

{loc("Africa"),

loc("The continent of dust"),

"| |"..loc("Special weapons:").." |"..

GetAmmoName(amSeduction)..": "..CS.SEDUCTION_SPECIAL_INFO.."|"..

CS.INVULNERABLE_SPECIAL_INFO.."|"..

GetAmmoName(amSMine)..": "..CS.STICKY_PROJECTILE_INFO.."|"..

GetAmmoName(amSMine)..": "..CS.STICKY_NAPALM_INFO,

{amSMine,4},

{{amSMine,100},{amWatermelon,1},{amDrillStrike,1},{amDrill,100},{amInvulnerable,7},{amSeduction,100},{amLandGun,3}},

{sndMelonImpact,sndCoward},125},

{loc("Asia"),

loc("The continent of ninjas"),

loc("Textile industry: Will give you a parachute every second turn.").."| |"..

loc("Special weapons:").." |"..

GetAmmoName(amParachute)..": "..CS.PARACHUTE_SPECIAL_INFO,

{amRope,5},

{{amRope,100},{amFirePunch,100},{amParachute,1},{amKnife,2},{amDynamite,1}},

{sndRopeAttach,sndComeonthen},50},

{loc("Australia"),

loc("The continent of sports"),

"| |"..loc("Special weapons:").." |"..

GetAmmoName(amBaseballBat)..": "..CS.BASEBALLBAT_CRICKET_INFO.."|"..

GetAmmoName(amBaseballBat)..": "..CS.BASEBALLBAT_BOOMERANG_INFO.."|"..

loc("Baseball bat specials cannot be used close to other hogs."),

{amBaseballBat,6},

{{amBaseballBat,100},{amMine,100},{amLowGravity,4},{amBlowTorch,100},{amRCPlane,2},{amRubber,4}},

{sndBaseballBat,sndNooo},100},

{loc("Antarctica"),

loc("The continent of ice and science"),

loc("Antarctic summer: Every 4th turn you get 1 girder, 1 mudball, 2 sine guns and 1 portable portal device.").."| |"..

loc("Special weapons:").." |"..

GetAmmoName(amPickHammer)..": "..CS.PICKHAMMER_SPECIAL_INFO,

{amIceGun,7},

{{amSnowball,2},{amPickHammer,100},{amSineGun,4},{amGirder,1},{amExtraTime,1},{amIceGun,1},{amPortalGun,2}},

{sndSineGun,sndOops},75},

{loc("Kerguelen"),

loc("The continent of cowards"),

"| |"..loc("Special weapons:").." |"..

GetAmmoName(amHammer)..": "..CS.HAMMER_ROAR_INFO.."|"..

GetAmmoName(amHammer)..": "..CS.HAMMER_SWAP_INFO.."|"..

GetAmmoName(amHammer)..": "..CS.HAMMER_LONELY_INFO.."|"..

GetAmmoName(amHammer)..": "..CS.HAMMER_SABOTAGE_INFO,

{amHammer,8},

{{amHammer,100},{amMineStrike,1},{amBallgun,1},{amTeleport,1}},

{sndPiano5,sndStupid},75},

{loc("Zealandia"),

loc("The forgotten continent"),

loc("Surprise supplies: Get 1-3 random weapons each turn.") .. "|" ..

loc("Treasure: Massive weapon bonus in first turn.").."|"..

loc("Forgetfulness: You will lose all your weapons each turn."),

{amInvulnerable,9},

{{amBazooka,1},{amGrenade,1},{amBlowTorch,1},{amSwitch,1},{amRope,1},{amDrill,1},{amDEagle,1},{amPickHammer,1},{amFirePunch,1},{amWhip,1},{amMortar,1},{amSnowball,1},{amExtraTime,1},{amInvulnerable,1},{amVampiric,1},{amFlamethrower,1},{amBee,1},{amClusterBomb,1},{amTeleport,1},{amLowGravity,1},{amJetpack,1},{amGirder,1},{amLandGun,1},{amBirdy,1},{amAirMine,1},{amTardis,1},{amLaserSight,1},{amAirMine,1}},

{sndSplash,sndFirstBlood},100},

{loc("Sundaland"),

loc("The continent of greed"),

loc("Bounty: Get 6 weapons for each kill (even on own hogs)."),

{amTardis,10},

{{amClusterBomb,5},{amTardis,100},{amWhip,100},{amKamikaze,100},{amAirMine,2}},

{sndWarp,sndSameTeam},100}

}

--weapontype,ammo,?,duration,*times your choice,affect on random team (should be placed with 1,0,1,0,1 on the 6th option for better randomness)

CS.WEAPONS_DAMAGE = {

	{amKamikaze,    0, 1, 0, 1, 0},

	{amSineGun,     0, 1, 0, 1, 0},

	{amMineStrike,  0, 1, 6, 1, 1},

	{amGrenade,     0, 1, 0, 1, 0},

	{amPiano,       0, 1, 7, 1, 0},

	{amClusterBomb, 0, 1, 0, 1, 0},

	{amBee,         0, 1, 0, 1, 0},

	{amShotgun,     0, 1, 0, 1, 0},

	{amSniperRifle, 0, 1, 0, 1, 0},

	{amDynamite,    0, 1, 6, 1, 1},

	{amFirePunch,   0, 1, 0, 1, 0},

	{amHellishBomb, 0, 1, 6, 1, 2},

	{amWhip,        0, 1, 0, 1, 0},

	{amNapalm,      0, 1, 6, 1, 1},

	{amPickHammer,  0, 1, 0, 1, 0},

	{amBaseballBat, 0, 1, 0, 1, 1},

	{amMortar,      0, 1, 0, 1, 0},

	{amCake,        0, 1, 5, 1, 2},

	{amSeduction,   0, 1, 0, 1, 0},

	{amWatermelon,  0, 1, 6, 1, 2},

	{amDrill,       0, 1, 0, 1, 0},

	{amBallgun,     0, 1, 8, 1, 2},

	{amDEagle,      0, 1, 0, 1, 0},

	{amMolotov,     0, 1, 0, 1, 0},

	{amHammer,      0, 1, 0, 1, 1},

	{amBirdy,       0, 1, 0, 1, 0},

	{amRCPlane,     0, 1, 6, 1, 2},

	{amMine,        0, 1, 0, 1, 0},

	{amGasBomb,     0, 1, 0, 1, 0},

	{amAirAttack,   0, 1, 5, 1, 1},

	{amBlowTorch,   0, 1, 0, 1, 0},

	{amFlamethrower,0, 1, 0, 1, 0},

	{amSMine,       0, 1, 0, 1, 0},

	{amSnowball,    0, 1, 0, 1, 0},

	{amKnife,       0, 1, 0, 1, 0},

	{amDrillStrike, 0, 1, 5, 1, 1},

	{amBazooka,     0, 1, 0, 1, 0},

	{amAirMine,     0, 1, 0, 1, 0},

}

CS.WEAPONS_SUPPORT = {

	{amParachute,   0, 1, 0, 1, 0},

	{amGirder,      0, 1, 0, 1, 0},

	{amSwitch,      0, 1, 0, 1, 0},

	{amLowGravity,  0, 1, 0, 1, 0},

	{amExtraDamage, 0, 1, 2, 1, 0},

	{amRope,        0, 1, 0, 1, 0},

	{amInvulnerable,0, 1, 0, 1, 0},

	{amExtraTime,   0, 1, 0, 1, 0},

	{amLaserSight,  0, 1, 0, 1, 0},

	{amVampiric,    0, 1, 0, 1, 0},

	{amJetpack,     0, 1, 0, 1, 0},

	{amPortalGun,   0, 1, 3, 1, 1},

	{amResurrector, 0, 1, 2, 1, 0},

	{amTeleport,    0, 1, 0, 1, 0},

	{amLandGun,     0, 1, 0, 1, 0},

	{amTardis,      0, 1, 0, 1, 0},

	{amIceGun,      0, 1, 0, 1, 0},

	{amRubber,      0, 1, 0, 1, 0}

}

--check if weps valid

function wepNotValidBorder(weapon)

	if(MapHasBorder() == false or (weapon ~= amAirAttack and weapon ~= amMineStrike and weapon ~= amNapalm and weapon ~= amDrillStrike and weapon ~= amPiano))

	then

		return true

	end

	return false

end

--will check after borders and stuff

function ValidateWeapon(hog,weapon,amount)

	if(wepNotValidBorder(weapon))

	then

		if(amount==1)

		then

			AddAmmo(hog, weapon)

		else

			AddAmmo(hog, weapon,amount)

		end

	end

end

function SpawnRandomCrate(x,y,strength)

	local tot=table.maxn(CS.WEAPONS_SUPPORT)+table.maxn(CS.WEAPONS_DAMAGE)

	local rand=GetRandom(tot)+1

	if(rand>table.maxn(CS.WEAPONS_SUPPORT))

	then

		local weapon=rand-table.maxn(CS.WEAPONS_SUPPORT)

		while(wepNotValidBorder(CS.WEAPONS_DAMAGE[weapon][1])==false)

		do

			if(weapon>=table.maxn(CS.WEAPONS_DAMAGE))

			then

				weapon=0

			end

			weapon = weapon+1

		end

		SpawnAmmoCrate(x, y, CS.WEAPONS_DAMAGE[weapon][1])

	else

		SpawnUtilityCrate(x, y, CS.WEAPONS_SUPPORT[rand][1])

	end

end

--removes one weapon

function RemoveWeapon(hog,weapon)

	if(GetAmmoCount(hog, weapon)<100)

	then

		AddAmmo(hog,weapon,GetAmmoCount(hog, weapon)-1)

	end

end

--reset all weapons for a team

function CleanWeapons(hog)