--[[

	version 1.3n

	The expat (MIT) license

	Copyright (C) 2012 Vatten

	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.

]]

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 EndTurn()

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

	--3 sec espace time

	TurnTimeLeft = GetAwayTime*10*3

 end

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

function ShowDamageTag(hog,damage)

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

	v1, v2, v3, v4, v5, v6, v7, v8, v9, v10 = GetVisualGearValues(healthtag)

	SetVisualGearValues(healthtag, v1, v2, v3, v4, v5, v6, v7, v8, v9, 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

--This function will set the gravity on a scale from 0->100, where 50 is the standard one.

 function SetGravityFromScale(grav)

	if(grav>100)

	then

		grav=100

	elseif(grav<0)

	then

		grav=0

	end

	if(grav>50)

	then

		SetGravity(100+((grav-50)*12))

	else

		SetGravity(25+grav+div(grav,2))

	end

 end

--====MISC GLOBALS====

--for selecting continent

local GLOBAL_INIT_TEAMS = {}

local GLOBAL_SELECT_CONTINENT_CHECK=false

local GLOBAL_TEAM_CONTINENT = {}

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

local GLOBAL_AUSTRALIAN_SPECIAL=0

local GLOBAL_AFRICAN_SPECIAL_SEDUCTION=0

local GLOBAL_AFRICAN_SPECIAL_STICKY=0

local GLOBAL_SOUTH_AMERICAN_SPECIAL=false

local GLOBAL_NORTH_AMERICAN_SPECIAL_SNIPER=1

local GLOBAL_NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=false

local GLOBAL_KERGUELEN_SPECIAL=1

local GLOBAL_NORTH_AMERICAN_SPECIAL_SHOTGUN=false

local GLOBAL_EUROPE_SPECIAL=0

--detection if something is activated

local GLOBAL_SWITCH_HOG_IS_ON=false

local GLOBAL_VAMPIRIC_IS_ON=0

local GLOBAL_EXTRA_DAMAGE_IS_ON=100

local GLOBAL_PARACHUTE_IS_ON=false

--the visual circle for kerguelen

local GLOBAL_VISUAL_CIRCLE=nil

--the global temp value

local GLOBAL_TEMP_VALUE=0

--for sabotage

local GLOBAL_SABOTAGE_COUNTER=0

local GLOBAL_SABOTAGE_HOGS={}

local GLOBAL_SABOTAGE_FREQUENCY=0

local GLOBAL_SABOTAGE_GRAVITY_SWITCH=true

--for sundaland

local GLOBAL_SUNDALAND_END_HOG=0

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

local GLOBAL_GENERAL_INFORMATION="- "..loc("Per team weapons").."|- 10 "..loc("weaponschemes").."|- "..loc("Unique new weapons").."| |"..loc("Select your continent/weaponset: with the \"Up\" or \"Down\" keys. You can also select one with the weapons menu.").."|"..loc("Note: Some weapons have a second option (See continent information). Find and use them with the \"")..loc("switch").."\" "..loc("key.").."|"..loc("Tip: See the \"esc\" key (this menu) if you want to see the currently playing teams continent, or that continents specials.")

local GLOBAL_SHOW_SMALL_INFO=0

local GLOBAL_WEAPON_TEXTS = {

loc("Green lipstick bullet: [Poisonous, deals no damage]"),

loc("Cluck-cluck time: [Fire an egg ~ Sabotages and cures poison ~ Cannot be fired close to another hog]"),

loc("Anno 1032: [The explosion will make a strong push ~ Wide range, wont affect hogs close to the target]"),

loc("Dust storm: [Deals 15 damage to all enemies in the circle]"),

loc("Cricket time: [Fire away a 1 sec mine! ~ Cannot be fired close to another hog]"),

loc("Drop a bomb: [Drop some heroic wind that will turn into a bomb on impact]"),

loc("Penguin roar: [Deal 15 damage + 10% of your hogs health to all hogs around you and get 2/3 back]"),

loc("Disguise as a Rockhopper Penguin: [Swap place with a random enemy hog in the circle]"),

nil,

loc("Lonely Cries: [Rise the water if no hog is in the circle and deal 6 damage to all enemy hogs.]"),

loc("Hedgehog projectile: [Fire your hog like a Sticky Bomb]"),

loc("Napalm rocket: [Fire a bomb with napalm!]"),

loc("Eagle Eye: [Blink to the impact ~ One shot]"),

loc("Medicine: [Fire some exploding medicine that will heal all hogs effected by the explosion]"),

loc("Sabotage/Flare: [Sabotage all hogs in the circle and deal ~1 dmg OR Fire a cluster up into the air]")

}

local GLOBAL_CONTINENT_INFORMATION =

{

{loc("North America"),"["..loc("Difficulty: ")..loc("EASY").."] "..loc("Area")..": 24,709,000 km2, "..loc("Population")..": 529,000,000",loc("- You can switch between hogs at the start of your turns. (Not first one)").."|"..loc("Special Weapons:").."|"..loc("Shotgun")..": "..GLOBAL_WEAPON_TEXTS[13].."|"..loc("Sniper Rifle")..": "..GLOBAL_WEAPON_TEXTS[1],amSniperRifle,

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

{loc("South America"),"["..loc("Difficulty: ")..loc("MEDIUM").."] "..loc("Area")..": 17,840,000 km2, "..loc("Population")..": 387,000,000",loc("Special Weapons:").."|"..loc("GasBomb")..": "..GLOBAL_WEAPON_TEXTS[3],amGasBomb,

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

{loc("Europe"),"["..loc("Difficulty: ")..loc("EASY").."] "..loc("Area")..": 10,180,000 km2, "..loc("Population")..": 740,000,000",loc("Special Weapons:").."|"..loc("Molotov")..": "..GLOBAL_WEAPON_TEXTS[14],amBazooka,

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

{loc("Africa"),"["..loc("Difficulty: ")..loc("MEDIUM").."] "..loc("Area")..": 30,222,000 km2, "..loc("Population")..": 1,033,000,000",loc("Special Weapons:").."|"..loc("Seduction")..": "..GLOBAL_WEAPON_TEXTS[4].."|"..loc("Sticky Mine")..": "..GLOBAL_WEAPON_TEXTS[11].."|"..loc("Sticky Mine")..": "..GLOBAL_WEAPON_TEXTS[12],amSMine,

{{amSMine,100},{amWatermelon,1},{amDrillStrike,1},{amDrill,100},{amInvulnerable,5},{amSeduction,100},{amLandGun,2}}},

{loc("Asia"),"["..loc("Difficulty: ")..loc("MEDIUM").."] "..loc("Area")..": 44,579,000 km2, "..loc("Population")..": 3,880,000,000",loc("- Will give you a parachute every second turn.").."|"..loc("Special Weapons:").."|"..loc("Parachute")..": "..GLOBAL_WEAPON_TEXTS[6],amRope,

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

{loc("Australia"),"["..loc("Difficulty: ")..loc("EASY").."] "..loc("Area")..": 8,468,000 km2, "..loc("Population")..": 31,000,000",loc("Special Weapons:").."|"..loc("Baseballbat")..": "..GLOBAL_WEAPON_TEXTS[5].."|"..loc("Baseballbat")..": "..GLOBAL_WEAPON_TEXTS[2],amBaseballBat,

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

{loc("Antarctica"),"["..loc("Difficulty: ")..loc("HARD").."] "..loc("Area")..": 14,000,000 km2, "..loc("Population")..": ~1,000",loc("Antarctic summer: - Will give you one girder/mudball and two sineguns/portals every fourth turn."),amIceGun,

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

{loc("Kerguelen"),"["..loc("Difficulty: ")..loc("EASY").."] "..loc("Area")..": 1,100,000 km2, "..loc("Population")..": ~100",loc("Special Weapons:").."|"..loc("Hammer")..": "..GLOBAL_WEAPON_TEXTS[7].."|"..loc("Hammer")..": "..GLOBAL_WEAPON_TEXTS[8].." ("..loc("Duration")..": 2)|"..loc("Hammer")..": "..GLOBAL_WEAPON_TEXTS[10].."|"..loc("Hammer")..": "..GLOBAL_WEAPON_TEXTS[15],amHammer,

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

{loc("Zealandia"),"["..loc("Difficulty: ")..loc("MEDIUM").."] "..loc("Area")..": 3,500,000 km2, "..loc("Population")..": 5,000,000",loc("- Will Get 1-3 random weapons") .. "|" .. loc("- Massive weapon bonus on first turn"),amInvulnerable,

{{amBazooka,1},{amGrenade,1},{amBlowTorch,1},{amSwitch,100},{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}}},

{loc("Sundaland"),"["..loc("Difficulty: ")..loc("HARD").."] "..loc("Area")..": 1,850,000 km2, "..loc("Population")..": 290,000,000",loc("- You will recieve 2-4 weapons on each kill! (Even on own hogs)"),amTardis,

{{amClusterBomb,4},{amTardis,4},{amWhip,100},{amKamikaze,4}}}

}

local GLOBAL_CONTINENT_SOUNDS=

{

	{sndShotgunFire,sndCover},

	{sndEggBreak,sndLaugh},

	{sndExplosion,sndEnemyDown},

	{sndMelonImpact,sndCoward},

	{sndRopeAttach,sndComeonthen},

	{sndBaseballBat,sndNooo},

	{sndSineGun,sndOops},

	{sndPiano5,sndStupid},

	{sndSplash,sndFirstBlood},

	{sndWarp,sndSameTeam},

	{sndFrozenHogImpact,sndUhOh}

}

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

local GLOBAL_WEAPONS_DAMAGE = {

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

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

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

	{amMineStrike, 0, 1, 5, 1, 2},

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

	{amPiano, 0, 1, 5, 1, 0},

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

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

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

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

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

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

	{amDynamite, 0, 1, 5, 1, 1},

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

	{amHellishBomb, 0, 1, 5, 1, 2},

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

	{amNapalm, 0, 1, 5, 1, 2},

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

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

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

	{amCake, 0, 1, 4, 1, 2},

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

	{amWatermelon, 0, 1, 5, 1, 2},

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

	{amBallgun, 0, 1, 5, 1, 2},

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

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

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

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

	{amRCPlane, 0, 1, 5, 1, 2},

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

	{amAirAttack, 0, 1, 4, 1, 1},

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

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

	{amDrillStrike, 0, 1, 4, 1, 2},

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

}

local GLOBAL_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, 1},

	{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, 1},

	{amPortalGun, 0, 1, 2, 1, 1},

	{amResurrector, 0, 1, 3, 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},

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

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

}

--will check after borders and stuff

function ValidateWeapon(hog,weapon,amount)

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

	then

		if(amount==1)

		then

			AddAmmo(hog, weapon)

		else

			AddAmmo(hog, weapon,amount)

		end

	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)

	local i=1

	--+1 for skip

	while(i<=table.maxn(GLOBAL_WEAPONS_SUPPORT)+table.maxn(GLOBAL_WEAPONS_DAMAGE)+1)

	do

		AddAmmo(hog,i,0)

		i=i+1

	end

	AddAmmo(hog,amSkip,100)

end

--get the weapons from a weaponset

function LoadWeaponset(hog, num)

	for v,w in pairs(GLOBAL_CONTINENT_INFORMATION[num][5])

	do

		ValidateWeapon(hog, w[1],w[2])

	end

end

--list up all weapons from the icons for each continent

function InitWeaponsMenu(hog)

	if(GetHogLevel(hog)==0)

	then

		for v,w in pairs(GLOBAL_CONTINENT_INFORMATION)

		do

			ValidateWeapon(hog, GLOBAL_CONTINENT_INFORMATION[v][4],1)

		end

		AddAmmo(hog,amSwitch) --random continent

	--for the computers

	else

		--europe

		ValidateWeapon(hog, GLOBAL_CONTINENT_INFORMATION[3][4],1)

		--north america

		ValidateWeapon(hog, GLOBAL_CONTINENT_INFORMATION[1][4],1)

	end

end

--shows the continent info

function ShowContinentInfo(continent,time,generalinf)

	local geninftext=""

	local ns=false

	if(time==-1)

	then

		time=0

		ns=true

	end

	if(generalinf)

	then

		geninftext="| |"..loc("General information")..": |"..GLOBAL_GENERAL_INFORMATION

	end

	GLOBAL_SHOW_SMALL_INFO=div(time,40)

	ShowMission(GLOBAL_CONTINENT_INFORMATION[continent][1],GLOBAL_CONTINENT_INFORMATION[continent][2],GLOBAL_CONTINENT_INFORMATION[continent][3]..geninftext, -GLOBAL_CONTINENT_INFORMATION[continent][4], time)

	if(ns)

	then

		HideMission()

	end

end

--will show a circle of gears (eye candy)

function VisualExplosion(range,xpos,ypos,gear1,gear2)

	local degr=0

	local lap=30

	while(lap<range)

	do

		while(degr < 6.2831)

		do

			AddVisualGear(xpos+math.cos(degr+0.1)*(lap+5), ypos+math.sin(degr+0.1)*(lap+5), gear1, 0, false)

			if(gear2~=false)

			then

				AddVisualGear(xpos+math.cos(degr)*lap, ypos+math.sin(degr)*lap, gear2, 0, false)

			end

			degr=degr+((3.1415*3)*0.125) --1/8 = 0.125

		end

		lap=lap+30

		degr=degr-6.2831

	end

end

--zealandia (generates weapons from the weaponinfo above

function ZealandiaGetWeapons(hog)

	if(GetGearType(hog) == gtHedgehog and GLOBAL_TEAM_CONTINENT[GetHogTeamName(hog)]==9 and getTeamValue(GetHogTeamName(hog), "rand-done-turn")==nil)

	then

		CleanWeapons(hog)

		local random_weapon = 0

		local old_rand_weap = 0

		local rand_weaponset_power = 0

		local numberofweaponssupp=table.maxn(GLOBAL_WEAPONS_SUPPORT)

		local numberofweaponsdmg=table.maxn(GLOBAL_WEAPONS_DAMAGE)

		local rand1=math.abs(GetRandom(numberofweaponssupp)+1)

		local rand2=math.abs(GetRandom(numberofweaponsdmg)+1)

		random_weapon = math.abs(GetRandom(table.maxn(GLOBAL_WEAPONS_DAMAGE))+1)

		while(GLOBAL_WEAPONS_DAMAGE[random_weapon][4]>TotalRounds or (MapHasBorder() == true and (GLOBAL_WEAPONS_DAMAGE[random_weapon][1]== amAirAttack or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amMineStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amNapalm or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amDrillStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amPiano)))

		do

			if(random_weapon>=numberofweaponsdmg)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		ValidateWeapon(hog, GLOBAL_WEAPONS_DAMAGE[random_weapon][1],1)

		rand_weaponset_power=GLOBAL_WEAPONS_DAMAGE[random_weapon][6]

		old_rand_weap = random_weapon

		if(rand_weaponset_power <2)

		then

			random_weapon = rand1

			while(GLOBAL_WEAPONS_SUPPORT[random_weapon][4]>TotalRounds or rand_weaponset_power+GLOBAL_WEAPONS_SUPPORT[random_weapon][6]>2)

			do

				if(random_weapon>=numberofweaponssupp)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			ValidateWeapon(hog, GLOBAL_WEAPONS_SUPPORT[random_weapon][1],1)

			rand_weaponset_power=rand_weaponset_power+GLOBAL_WEAPONS_SUPPORT[random_weapon][6]

		end

		--check again if  the power is enough

		if(rand_weaponset_power <1)

		then

			random_weapon = rand2

			while(GLOBAL_WEAPONS_DAMAGE[random_weapon][4]>TotalRounds or old_rand_weap == random_weapon or GLOBAL_WEAPONS_DAMAGE[random_weapon][6]>0 or (MapHasBorder() == true and (GLOBAL_WEAPONS_DAMAGE[random_weapon][1]== amAirAttack or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amMineStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amNapalm or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amDrillStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amPiano)))

			do

				if(random_weapon>=numberofweaponsdmg)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			ValidateWeapon(hog, GLOBAL_WEAPONS_DAMAGE[random_weapon][1],1)

		end

		setTeamValue(GetHogTeamName(hog), "rand-done-turn", true)

	end

end

--sundaland add weps

function SundalandGetWeapons(hog)

		local random_weapon = 0

		local old_rand_weap = 0

		local rand_weaponset_power = 0

		local firstTurn=0

		local numberofweaponssupp=table.maxn(GLOBAL_WEAPONS_SUPPORT)

		local numberofweaponsdmg=table.maxn(GLOBAL_WEAPONS_DAMAGE)

		local rand1=GetRandom(numberofweaponssupp)+1

		local rand2=GetRandom(numberofweaponsdmg)+1

		local rand3=GetRandom(numberofweaponsdmg)+1

		random_weapon = GetRandom(numberofweaponsdmg)+1

		if(TotalRounds<0)

		then

			firstTurn=-TotalRounds

		end

		while(GLOBAL_WEAPONS_DAMAGE[random_weapon][4]>(TotalRounds+firstTurn) or (MapHasBorder() == true and (GLOBAL_WEAPONS_DAMAGE[random_weapon][1]== amAirAttack or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amMineStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amNapalm or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amDrillStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amPiano)))

		do

			if(random_weapon>=numberofweaponsdmg)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		ValidateWeapon(hog, GLOBAL_WEAPONS_DAMAGE[random_weapon][1],1)

		rand_weaponset_power=GLOBAL_WEAPONS_DAMAGE[random_weapon][6]

		old_rand_weap = random_weapon

		random_weapon = rand1

		while(GLOBAL_WEAPONS_SUPPORT[random_weapon][4]>(TotalRounds+firstTurn) or rand_weaponset_power+GLOBAL_WEAPONS_SUPPORT[random_weapon][6]>2)

		do

			if(random_weapon>=numberofweaponssupp)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		ValidateWeapon(hog, GLOBAL_WEAPONS_SUPPORT[random_weapon][1],1)

		rand_weaponset_power=rand_weaponset_power+GLOBAL_WEAPONS_SUPPORT[random_weapon][6]

		--check again if  the power is enough

		if(rand_weaponset_power <2)

		then

			random_weapon = rand2

			while(GLOBAL_WEAPONS_DAMAGE[random_weapon][4]>(TotalRounds+firstTurn) or old_rand_weap == random_weapon or GLOBAL_WEAPONS_DAMAGE[random_weapon][6]>0 or (MapHasBorder() == true and (GLOBAL_WEAPONS_DAMAGE[random_weapon][1]== amAirAttack or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amMineStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amNapalm or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amDrillStrike or GLOBAL_WEAPONS_DAMAGE[random_weapon][1] == amPiano)))

			do

				if(random_weapon>=numberofweaponsdmg)

				then

					random_weapon=0