--- [[ Global Variables ]] ----------
 
g_arena = nil      -- The global arena class, to avoid having to pass it around functions
g_bGameRunning = false  -- Is the game running?

--- [[ Functions ]] -------

-- when the arena is created, it runs this
function Arena_OnCreate(arena)        
    g_arena = arena
    math.randomseed(os.time())
end

-- Code in this function is carried out when the player joins 
function Player_OnJoin(player) 
    player:message("Debug message: Lua loaded")
end

-- when the game starts, it sets gameRunning to true
function Arena_OnGameStart()
	g_bGameRunning = true
end

-- when the game finishes, it sets gameRunning to false
function Arena_OnGameEnd()
	g_bGameRunning = false
end

-- Silo Resouces upon death
function Vehicle_OnDeath(victim, killer, itemid)
 local c = victim:coords()
 	local vid = victim:vehicletypeid()
 	if (vid == 411) then
		g_arena:item_create("Basic Resources", 5, c.x, c.y)
	elseif (vid == 412) then --Bandito death drop
		g_arena:item_create("PDA", 1, c.x, c.y)
		g_arena:item_create("Human Blood", 2, c.x, c.y)		
	elseif (vid == 413) then --Bandito Sniper death drop
		g_arena:item_create("PDA", 1, c.x, c.y)
		g_arena:item_create("Human Blood", 2, c.x, c.y)	
	elseif (vid == 414) then --Bandito Heavy death drop
		g_arena:item_create("PDA", 1, c.x, c.y)
		g_arena:item_create("Human Blood", 2, c.x, c.y)	
    end
end	

-- Human Death Drop
function Player_OnDeath(killer, victim)
	local c = victim:coords()
	local vid = victim:getVehicle():vehicletypeid()
	
	if (vid == 10) then
		g_arena:item_create("PDA", 1, c.x, c.y)
		g_arena:item_create("Human Blood", 2, c.x, c.y)
	elseif (vid == 100) then -- snork death drop
		g_arena:item_create("Mutant Blood", 2, c.x, c.y)
		g_arena:item_create("Mutant Heart", 1, c.x, c.y)
	elseif (vid == 101) then --zombie death drop
		g_arena:item_create("Mutant Blood", 2, c.x, c.y)
		g_arena:item_create("Mutant Heart", 1, c.x, c.y)   
	end
	
	--Lets find out if they are killing in a neutral location...
	if (neutralLoc(killer) == true) then -- They are in a neutral location
		if (killer:getFrequency() == victim:getFrequency()) then -- They are both on the same team
			if (killer:getRequency() == 1) then -- They are on the Human team
				killer:setFrequency(599) --Just set them to some random team so that the npcs around them shoot them.
				killer:setStat(2, 1) -- Set the stat to 1
			end
		end
	end
	
	--If someone who is running from npcs dies lets make them teamed again
	if (victim:getStat(2) == 1) then -- They are running from NPCS
		victim:setFrequency(1) --Put them back on team
		victim:setStat(2, 0) -- make that nothing again
	end
	
	
end	

function Reload()
dofile("stalker.lua")
end

--The Following is the script for putting everyone on their respective team.

function Player_OnUnspec(plyr) -- player
	
	local vid = plyr:getVehicle():vehicletypeid()
	
	--Lets assign our unspeccer a team... That bastard
	-- We only have two options, either hes a Human or hes a Mutant.
	
	if (vid == 10) then --Oh that mother fucker is a human... Well we know what to do with mother fuckers like that dont we Prae?
		plyr:setFrequency(0) -- Put that mother fucker on the Human team!
		return true
	elseif (vid == 100) then -- If they are a Snork lets put them on that team.
		plyr:unspec("Snorks","adminonly") -- Put those fucker son the Mutant Team!
		if (plyr:getTeam():num() <= 5) then --But if they have 5 or fewer players lets let them choose to be on that team
			plyr:message("You currently have 5 or fewer players on your team.")
			plyr:message("If you wish to switch to a team with more people use ?newteam.")
		end
		return true
	elseif (vid == 101) then -- If they are Zombified lets put them on that team.
		plyr:unspec("Zombies","adminonly") -- Put those fucker son the Mutant Team!
		if (plyr:getTeam():num() <= 5) then --But if they have 5 or fewer players lets let them choose to be on that team
			plyr:message("You currently have 5 or fewer players on your team.")
			plyr:message("If you wish to switch to a team with more people use ?newteam.")
		end
		return true
	else --if they are noe of the above dont let them unspec
		plyr:message("Pick a class")
		return false
	end
	
	
	return false -- return boolean (whether to allow the player to unspec or not)
end


function Msg_OnCommand(plyr, command, payload, recipient, msg_type) -- player, string, string, string, integer
	
	local newteam = payload

	if (command == "?newteam") then -- Are they trying to get a new team?
		if (plyr:getTeam():num() <= 5) then -- Are they less than 5 people.
			if (payload == "Zombified" or payload == "Snork") then -- Make sure they are trying to get on a new team
				if (newteam:num() >= 5) then -- Does the new team have 5 or more people?
					plyr:message("You will now be transfered to the new team.")
					plyr:changeTeam(payload .. " Mutants", "adminonly")
				end
				plyr:message("That team is to small.")
			end
			plyr:message("You need to Specify which Mutant team to join. E.X ?newteam rodent")
		end
		plyr:message("You have more than 5 people, you cannot abandon your team")
	end
			
	if (command == "?deposit") then -- Are they trying to Deposit something?
		if (payload ~= "") then -- If they forgot to put in a item name
			if (plyr:getStat(1) == 1) then -- They have talked to a banker
				plyr:inventory_modify(payload, -1) -- Take the item from them
				plyr:inventory_modify(payload .. "depot", 1) -- Give them the depot version of that item EX. Pistol's Depo version is called Pistoldepot
				plyr:message("You have succesfully deposited 1 " .. payload .. ".")
				plyr:setStat(1 , 0)
			else
				plyr:message("You need to talk to a banker first")
			end
		else
			plyr:message("You need to Deposit something with this. E.X. ?deposit Pistol")
		end
	end
	
	if (command == "?withdraw") then -- are they trying to take something Back?
		if (payload ~= "") then -- If they forgot to put in an Item name
			if (plyr:inventory_find(payload .. "depot") >= 1) then -- they have the depot item?
				if (plyr:getStat(1) == 1) then -- They ahve talked to a banker.
					plyr:inventory_modify(payload .. "depot", -1)
					plyr:inventory_modify(payload, 1)
					plyr:message("You have successfuly withdrawn 1 " .. payload .. ".")
					plyr:setStat(1 , 0)
				else
					plyr:message("You need to talk to a banker first!")
				end
			else
				plyr:message("You have no " .. payload .. " to withdraw.")
			end
		else
			plyr:message("You need to Withdraw something with this. E.X. ?Withdraw Pistol")
		end
			
	end
	
end

function Vehicle_OnProduce(vech, plyr, menuitem) -- vehicle, player, integer

	local vid = vech:vehicletypeid()

	if (vid == 410) then -- Make sure they are talking to the banker
			plyr:setStat(1, 1) -- Stat index 1 is going to be "Have they talked to a banker" set it to they have.
		if (menuitem == 0) then --they are using the first menu item
			plyr:message("You can now withdraw or deposit an item using ?depost <item name> or ?withdraw <item name>")
			return true
		end
		return true
	end
	
return true --return boolean (whether to allow the produce or not)
end

function neutralLoc(plyr)

	--coords of the top left of the area
	local g_x1 = 1791
	local g_y1 = 1546
	--coords of the bottom right of the area
	local g_x2 = 2063
	local g_y2 = 1682

	local coords = plyr:coords()
	
	if (((coords.x > g_x1) and (coords.x < g_x2) and (coords.y > g_y1) and (coords.y < g_y2))) then
		return true
	else
		return false
	end
end