--[[

Made for 0.9.20

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

function int_sqrt(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

function norm(xx,yy)

	--to fix overflows

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

	then

		local bitr=2^13

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

	else

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

	end

end

function positive(num)

	if(num<0)

	then

		return -1

	else

		return 1

	end

end

function EndTurn(baseRetreatTime)

	local retreatTimePercentage = 100

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

	TurnTimeLeft = baseRetreatTime / 100 * retreatTimePercentage

 end

--for sundaland

local turnhog=0

local teams_ok = {}

local wepcode_teams={}

local swapweps=false

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

local australianSpecial=false

local africanSpecial=0

local africaspecial2=0

local samericanSpecial=false

local namericanSpecial=1

local sniper_s_in_use=false

local kergulenSpecial=1

local shotgun_s=false

local europe_s=0

local VampOn=0

local austmine=nil

local inpara=false

local asianflame=0

local visualcircle=nil

local temp_val=0

--for sabotage

local disallowattack=0

local disable_moving={}

local disableRand=0

--local disableoffsetai=0

local onsabotageai=false

local continent = {}

local generalinfo="- "..loc("Per team weapons").."|- 10 "..loc("weaponschemes").."|- "..loc("Unique new weapons").."| |"..loc("Select continent first round with the Weapon Menu or by").." (["..loc("switch").."/"..loc("tab").."]="..loc("Increase")..",["..loc("presice").."/"..loc("left shift").."]="..loc("Decrease")..") "..loc("on Skip").."|"..loc("Some weapons have a second option. Find them with").." ["..loc("switch").."/"..loc("tab").."]"

local weapontexts = {

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

loc("REMOVED"),

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: [Drop a fireable mine! ~ Will work if fired close to your hog & far away from enemy ~ 1 sec]"),

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

loc("Penguin roar: [Deal 15 damage + 15% 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]"),

loc("REMOVED"),

loc("Lonely Cries: [Rise the water if no hog is in the circle and deal 7 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 weaponsets = 

{

{loc("North America"),loc("Area")..": 24,709,000 km2, "..loc("Population")..": 529,000,000",loc("- Will give you an airstrike every fifth turn.").."|"..loc("Special Weapons:").."|"..loc("Shotgun")..": "..weapontexts[13].."|"..loc("Sniper Rifle")..": "..weapontexts[1],amSniperRifle,

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

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

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

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

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

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

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

{loc("Asia"),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")..": "..weapontexts[6],amRope,

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

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

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

{loc("Antarctica"),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,4},{amGirder,2},{amExtraTime,2},{amPortalGun,2}}},

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

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

{loc("Zealandia"),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("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,3},{amTardis,4},{amWhip,100},{amKamikaze,4}}}

}

local weaponsetssounds=

{

	{sndShotgunFire,sndCover},

	{sndEggBreak,sndLaugh},

	{sndExplosion,sndEnemyDown},

	{sndMelonImpact,sndCoward},

	{sndRopeAttach,sndComeonthen},

	{sndBaseballBat,sndNooo},

	{sndSineGun,sndOops},

	{sndPiano5,sndStupid},

	{sndSplash,sndFirstBlood},

	{sndWarp,sndSameTeam}

}

--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 weapons_dmg = {

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

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

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

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

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

}

local weapons_supp = {

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

}

--will check after borders and stuff

function validate_weapon(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

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 cleanweps(hog)

	local i=1

	--+1 for skip +1 for freezer

	while(i<=table.maxn(weapons_supp)+table.maxn(weapons_dmg)+2)

	do

		AddAmmo(hog,i,0)

		i=i+1

	end

	AddAmmo(hog,amSkip,100)

end

--get the weapons from a weaponset

function load_weaponset(hog, num)

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

	do

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

	end

end

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

function load_continent_selection(hog)

	if(GetHogLevel(hog)==0)

	then

		for v,w in pairs(weaponsets) 

		do

			validate_weapon(hog, weaponsets[v][4],1)

		end

		AddAmmo(hog,amSwitch) --random continent

	--for the computers

	else

		--europe

		validate_weapon(hog, weaponsets[3][4],1)

		--north america

		validate_weapon(hog, weaponsets[1][4],1)

	end

end

--shows the continent info

function show_continent_info(continent,time,generalinf)

	local geninftext=""

	local ns=false

	if(time==-1)

	then

		time=0

		ns=true

	end

	if(generalinf)

	then

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

	end

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

	if(ns)

	then

		HideMission()

	end

end

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

function visual_gear_explosion(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 get_random_weapon(hog)

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

	then

		cleanweps(hog)

		local random_weapon = 0

		local old_rand_weap = 0

		local rand_weaponset_power = 0

		local numberof_weapons_supp=table.maxn(weapons_supp)

		local numberof_weapons_dmg=table.maxn(weapons_dmg)

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

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

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

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

		do

			if(random_weapon>=numberof_weapons_dmg)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		validate_weapon(hog, weapons_dmg[random_weapon][1],1)

		rand_weaponset_power=weapons_dmg[random_weapon][6]

		old_rand_weap = random_weapon

		if(rand_weaponset_power <2)

		then

			random_weapon = rand1

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

			do

				if(random_weapon>=numberof_weapons_supp)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			validate_weapon(hog, weapons_supp[random_weapon][1],1)

			rand_weaponset_power=rand_weaponset_power+weapons_supp[random_weapon][6]

		end

		--check again if  the power is enough

		if(rand_weaponset_power <1)

		then

			random_weapon = rand2

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

			do

				if(random_weapon>=numberof_weapons_dmg)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			validate_weapon(hog, weapons_dmg[random_weapon][1],1)

		end

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

	end

end

--sundaland add weps

function get_random_weapon_on_death(hog)

		local random_weapon = 0

		local old_rand_weap = 0

		local rand_weaponset_power = 0

		local firstTurn=0

		local numberof_weapons_supp=table.maxn(weapons_supp)

		local numberof_weapons_dmg=table.maxn(weapons_dmg)

		local rand1=GetRandom(numberof_weapons_supp)+1

		local rand2=GetRandom(numberof_weapons_dmg)+1

		local rand3=GetRandom(numberof_weapons_dmg)+1

		random_weapon = GetRandom(numberof_weapons_dmg)+1

		if(TotalRounds<0)

		then

			firstTurn=-TotalRounds

		end

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

		do

			if(random_weapon>=numberof_weapons_dmg)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		validate_weapon(hog, weapons_dmg[random_weapon][1],1)

		rand_weaponset_power=weapons_dmg[random_weapon][6]

		old_rand_weap = random_weapon

		random_weapon = rand1

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

		do

			if(random_weapon>=numberof_weapons_supp)

			then

				random_weapon=0

			end

			random_weapon = random_weapon+1

		end

		validate_weapon(hog, weapons_supp[random_weapon][1],1)

		rand_weaponset_power=rand_weaponset_power+weapons_supp[random_weapon][6]

		--check again if  the power is enough

		if(rand_weaponset_power <2)

		then

			random_weapon = rand2

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

			do

				if(random_weapon>=numberof_weapons_dmg)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			validate_weapon(hog, weapons_dmg[random_weapon][1],1)

			rand_weaponset_power=weapons_dmg[random_weapon][6]

		end

		if(rand_weaponset_power <1)

		then

			random_weapon = rand3

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

			do

				if(random_weapon>=numberof_weapons_dmg)

				then

					random_weapon=0

				end

				random_weapon = random_weapon+1

			end

			validate_weapon(hog, weapons_dmg[random_weapon][1],1)

		end

		AddVisualGear(GetX(hog), GetY(hog)-30, vgtEvilTrace,0, false)

		PlaySound(sndReinforce,hog)

end

--this will take that hogs settings for the weapons and add them

function setweapons()

	cleanweps(CurrentHedgehog)

	load_weaponset(CurrentHedgehog,continent[GetHogTeamName(CurrentHedgehog)])

	visualstuff=AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog)-5, vgtDust,0, false)

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

	SetVisualGearValues(visualstuff, v1, v2, v3, v4, v5, v6, v7, 2, v9, GetClanColor(GetHogClan(CurrentHedgehog)))

	show_continent_info(continent[GetHogTeamName(CurrentHedgehog)],0,false)

end

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

function show_damage_tag(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 int_sqrt

function fire_gear(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

--==========================run throw all hog/gear weapons ==========================

--will check if the mine is nicely placed 

function weapon_aust_check(hog)

	if(GetGearType(hog) == gtHedgehog)

	then

		if(gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 50, false)==true and hog ~= CurrentHedgehog)

		then

			temp_val=1

		end

	end