--Global Arerna --
 g_arena=nil
 g_player=nil

function Arena_OnCreate(arena)
	-- Set our global value
	g_arena = arena
	-- Initialize random
	math.randomseed(os.time())
	--Create Vendors

end

function test()
	
	local vech1 = g_arena:vehicle_create(411, 2188, 272, 99) --create trainer
	local vech2 = g_arena:vehicle_create(400, 2385, 277, 145) --create Certificate dealer
	vech1:setFrequency(65535)
	vech2:setFrequency(65535)
	g_arena:message("NPCS respawned Succseffuly")
	
end
 
function Player_OnDeath(killer, victim) -- player, player

	--Give them Attribute points.
	if (victim:getExperience() >= 25000) then -- If they kill someone with more than 25000 experience
		if (victim:getExperience() >= 50000) then --If they kill someone with more than 50000 experience
			if (victim:getExperience() >= 75000) then --If they kill someone with more than 75000 experience
				if (victim:getExperience() >=100000) then -- If they kill someone with more than 100000 experience
					killer:message("You have gained 10 Attribute Points")
					killer:modPoints(10) -- Give them 10 Attribute Points
				end
				killer:message("You have gained 7 Attribute Points")
				killer:modPoints(7) --  Give them 7 Attribute Points
			end
			killer:message("You have gained 5 Attribute Points")
			killer:modPoints(5) -- Give them 5 Attribute Points
		end
		killer:message("You have gained 2 Attribute Points")
		killer:modPoints(2) -- Give them 2 Attribute Points
	end
	
	--Check if they have enough Attribute Points and remind them how to spend them.
	if (killer:getPoints() >= 50) then -- if they have 40 or more attribute points.
		killer:message("You currently have 10 or more Attribute points, ")
		killer:message("I suggest typing ?attribute if you have forgotten how to use them.")
	end

end 

function loc()
	local tor = g_arena:getPlayer("Toriad")
	local c = tor:coords()
	
	tor:message("X = " .. c.x .. " Y = " .. c.y .. " Rotation = " .. c.rotation)
end
	
function att()
local tor = g_arena:getPlayer("Toriad")

tor:modPoints(25)

tor:message("you have 50 points!")
end
	
function Player_OnJoin(player)
	
	if (noSkills(player) == true)then
		player:inventory_modify("Soldier",1)
		player:message("It would seem you have never played Infantry RPG before, if this is true please type ?tutorial")
	else
		player:message("Welcome back to Infantry RPG " .. player.m_name .. ", type in ?login to join the world")
	end
	
	
	
end

function Player_OnUnspec(player) -- player
	player:message("You need to type ?tutorial")
	return false
end

function noSkills(player) -- Finds out if a player has skills

	if (player:skillFind(1) == false) then
		if (player:skillFind(2) == false) then
			if (player:skillFind(3) == false) then
				if (player:skillFind(4) == false) then
					if (player:skillFind(5) == false) then
						if (player:skillFind(6) == false) then
							if (player:skillFind(7) == false) then
								if (player:skillFind(8) == false) then
									if (player:skillFind(9) == false) then
										if (player:skillFind(10) == false) then
											return true
										end
										return false
									end
									return false
								end
								return false
							end
							return false
						end
						return false
					end
					return false
				end
				return false
			end
			return false
		end
		return false
	end
end

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

	local player = plyr
	local ore = ""
	local style = "" 
	local team_n = ""
	local team_p = ""
	-- string.len("string") returns length of the string
	-- string.find("string", ":") returns the position of the character found
	-- if not found then returns nil.  Starts at 1.
	-- string.sub("string", 1, 4) returns "stri", first index is the
	-- starting position and last index is the ending position
	-- string.sub("string", 4) returns "ing", with one argument
	-- the function starts from the index and goes to the end
	
	if (command == "?tutorial")then --Tutorial Command
		player:message("Welcome to Infantry RPG, you will soon get used to ")
		player:message("the style of gameplay however here are the basics.")
		player:message("You will first notice you are your on team this is ")
		player:message("because I am trying to keep a very RPG feel to this game.")
		player:message("If you wish to team up with other people you will need ")
		player:message("to goto a tavern in one of the many cities and type ")
		player:message("?party 'The Name of the Party:Password if any' without the '.")
		player:message("You get money and experience by killing other people or ")
		player:message("mining and selling the resources back to the local NPC purchaser.")
		player:message("There are 4 ways to advance your character in this Zone. ")
		player:message("Training, Certifications, Permissions, and Class Changes.")
		player:message("Each way has its pros and cons, by visiting a trainer in ")
		player:message("a city you can recieve training which will allow you to use different weapons.")
		player:message("Certifications work the same as training however you ")
		player:message("might be required to get both in order to get a new class or use new weapons.")
		player:message("Permissions allow you to do certain things such as build things, ")
		player:message("drive certain vehicles and to get aura bonuses.")
		player:message("Class Changing in this zone is different than any other zone, ")
		player:message("first you must reach the requirements of that ")
		player:message("class then you must find a trainer in the ")
		player:message("city, and ask him to change your class. ")
		player:message("Then you will be asked a couple of simple questions ")
		player:message("about your decision to change classes and then allowed to change.");
		player:message("When you are ready to join the game type ?login .")
	end
	
	if (command == "?login")then
		if (noSkills(player) == true)then
			player:inventory_modify("Soldier",1)
			player:message("It would seem you have never played Infantry RPG before, if this is true please type ?tutorial")
		end
		player:unspec(player.m_name,"unknown")
			
	end

	if (command == "?attribute") then
		plyr:message("Each Attribute costs you 40 points. for list of attributes type ?list attributes.")
		plyr:message("In order to purchase an attribute type ?levelup 'name of attribute'")
	end
	
	if (command == "?list") then -- If they are asking for a list
		if (payload == "attributes") then -- If that list is attributes.
			plyr:message("Agility")
			plyr:message("Endurance")
			plyr:message("Health")
			plyr:message("Intelligence")
			plyr:message("Reflexes")
			plyr:message("Strength")
		else
			plyr:message("?list <argument here>")
		end
	end
	
	if (command == "?levelup") then -- If they are trying to level up something
		if (payload == "Agility" or payload == "agility") then -- If they are trying to level up Agility
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Agility", 1)
				plyr:message("Your Agility has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		elseif (payload == "Endurance" or payload == "endurance") then
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Endurance", 1)
				plyr:message("Your Endurance has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		elseif (payload == "Health" or payload == "health") then
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Health", 1)
				plyr:message("Your Health has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		elseif (payload == "Intelligence" or payload == "intelligence") then
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Intelligence", 1)
				plyr:message("Your Intelligence has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		elseif (payload == "Reflexes" or payload == "reflexes") then
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Reflexes", 1)
				plyr:message("Your Reflexes has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		elseif (payload == "Strength" or payload == "strength") then
			if (plyr:getPoints() >= 50) then -- Do they have enough Attribute points?
				plyr:modPoints(-50)
				plyr:inventory_modify("Strength", 1)
				plyr:message("Your Strength has increased by 1")
			else
				plyr:message("You need " .. (50 - plyr:getPoints()) .. " more attribute points.")
			end
		else
			plyr:message("?levelup <argument required>")
		end
	end

	if (command == "?craft") then
		if (string.len(payload) > 0) and (string.find(payload, ":") ~= nil) then
			ore = string.sub(payload, 1, (string.find(payload, ":") - 1))
			style = string.sub(payload, (string.find(payload, ":") + 1))
		else
			plyr:message("No Payload. E.X. ?craft <ore here>:<style here E.X Legging, Neck, Chest>")
		end
		if (ore == "Noobium") then
			plyr:message("Craft part works!")
			if (style == "Leggings") then
				plyr:message("style part works!")
			else
				plyr:message("You did not try to use a valid Style")
			end
		else
			plyr:message("You did not try to use a valid ore")
		end
	end		

	if (command == "?party") then
		if (string.len(payload) > 0) and (string.find(payload, ":") ~= nil) then
			team_n = string.sub(payload, 1, (string.find(payload, ":") - 1))
			team_p = string.sub(payload, (string.find(payload, ":") + 1))
			if (innOne(plyr) == true) then
				plyr:changeTeam(team_n, team_p)
			end
		else
			plyr:message("You need to make sure your putting the part name in E.X ?Party Killers:42")
		end
	end
	
	if (command == "?permission") then
		if (payload == "Squad Leader") then
			if (plyr:getStat(2) == 1) then
				plyr:message("You are about to purchase Academy Permission to start the Command Branch, repeat to confirm.")
				plyr:setStat(2, 2)
			elseif (plyr:getStat(2) == 2) then
				plyr:message("You now have permission to begin the Command Branch.")
				plyr:inventory_modify("Academy Permission", 1)
				plyr:setStat(2, 0)
			else
				plyr:message("You have not sacraficed Toriad's soul at a shrine.")
			end
		elseif (payload == "PsiOps") then
			if (plyr:getStat(2) == 1) then
				plyr:message("You are about to purchase Permission to Ascend to start the Command Branch, repeat to confirm.")
				plyr:setStat(2, 2)
			elseif (plyr:getStat(2) == 2) then
				plyr:message("You now have permission to begin the Command Branch.")
				plyr:inventory_modify("Permission to Ascend", 1)
				plyr:setStat(2, 0)
			else
				plyr:message("You have not sacraficed Toriad's soul at a shrine.")
			end
		elseif (payload == "Missing") then
			if (plyr:getStat(2) == 1) then
				plyr:message("You are about to purchase Unknown Permission to start the Command Branch, repeat to confirm.")
				plyr:setStat(2, 2)
			elseif (plyr:getStat(2) == 2) then
				plyr:message("You now have permission to begin the Command Branch.")
				plyr:inventory_modify("Unknown Permission", 1)
				plyr:setStat(2, 0)
			else
				plyr:message("You have not sacraficed Toriad's soul at a shrine.")
			end
		else
			plyr:message("Invalid Syntax. Correct Usage E.X. ?permisson <Class Name or Weapon/Armor Type>")
		end
	end
end


	
function trainCheck(xp, cash, plyr, item) --Bring in XP, cash ,Plyr, and Item requirements output table

	local myTable = {false, false, false}
	
	if (plyr.getExperience() >= xp) then
		myTable[1] = true
	end
	
	if (plyr.getCash() >= cash) then
		myTable[2] = true
	end
	
	if (plyr.inventory_find(item) == 0) then
		myTable[3] = true
	end
	
	return myTable
end

function ubah(plyr)
local stat


plyr:setStat(1, 10)
stat = plyr:getStat(1)

plyr:message(stat)

end

function purchaseSkill(plyr, item, expr, cash)

	plyr:message(item .. " requires 20,000 Experince and 15,000 credits.")
			if (plyr:inventory_find(item) < 1) then
				plyr:message("inventory find works..")
				if (plyr:getCash() >= cash) then
					plyr:message("getCASH() works.")
					if (plyr:getExperience() >= expr) then
						plyr:modExperience(-expr)
						plyr:modCash(-cash)
						plyr:message("Have your Training.")
						return true
					else
						plyr:message("You need " .. expr .. " Experience, you only have " .. plyr:getExperience() .. ".")
						return false
					end
				else
					plyr:message("You need " .. cash .. " Credits, you only have " .. plyr:getCash() .. ".")
					return false
				end
			else
				plyr:message("You have already been trained in this, you cannot learn anything else.")
				return false
			end
	return false
end

function Vehicle_OnProduce(vech, plyr, menuitem) -- vehicle, player, integer
	local vid = vech:vehicletypeid()
	local menu = menuitem + 1
	
	
	--For testing---
	--g_arena:message("'Vehicle_OnProduce' called by " .. plyr.m_name .. " with vid " .. vid .. " and menu item " .. menuitem)
	------------------
	
	if (vid == 411) then -- It's the training vehicle
		if (menu == 1) then --They've pressed menu item 1
			if (purchaseSkill(plyr, "Command Training", 30000, 15000) == true) then
				return true
			else
				return false
			end
		elseif (menu == 2) then --They've pressed menu item 2
			if (purchaseSkill(plyr, "Mental Training", 35000, 20000) == true) then
				return true
			else
				return false
			end
		elseif (menu == 3) then
			if (purchaseSkill(plyr, "Unknown Training", 50000, 30000) == true) then
				return true
			else
				return false
			end
		end
	end

	if (vid == 400) then --It's the certificate Vehicle
		if (menu == 1) then
			if (purchaseSkill(plyr, "Command Certification", 30000, 15000) == true) then
				return true
			else
				return false
			end
		elseif (menu == 2) then
			if (purchaseSkill(plyr, "Mental Certification", 35000, 2000) == true) then
				return true
			else
				return false
			end
		elseif (menu == 3) then
			if (purchaseSkill(plyr, "Missing Certification", 50000, 2000) == true) then
				return true
			else
				return false
			end
		end
	end

	if (vid == 401) then -- It's the Shrine they are using.
		if (menu == 1) then
			plyr:message("You can now ask for the following class changes using ?permission Class")
			if (plyr:skillFind(1) == true) then
				plyr:message("Squad Leader")
				plyr:message("PsiOps")
				plyr:message("Missing")
			end
			if (plyr:skillFind(2) == true) then
				plyr:message("City Leader")
			end
			if (plyr:skillFind(3) == true) then
				plyr:message("Commander")
			end
			if (plyr:skillFind(4) == true) then
				plyr:message("You have reached the top of the Command Branch, there is nothing better for you.")
			end
			if (plyr:skillFind(5) == true) then
				plyr:message("Psionic")
			end
			if (plyr:skillFind(6) == true) then
				plyr:message("Psiopic")
			end
			if (plyr:skillFind(7) == true) then
				plyr:message("You dont need my permission Psiopic, there is nothing better for you.")
			end
			if (plyr:skillFind(8) == true) then
				plyr:message("Lost")
			end
			if (plyr:skillFind(9) == true) then
				plyr:message("Hidden")
			end
			if (plyr:skillFind(10) == true) then
				plyr:message("Your already hidden, the only change for you is to be found which I cannnot help with.")
			end
			plyr:message("---------------------------------------------")
			plyr:message("You may also spend this permission to meet a Weapon or Armor type requirement, by using ?permission Type")
			plyr:setStat(2, 1) -- Enable purchase of Permissions.
		end
	end
end

function Vehicle_OnDeath(vech, plyr, itemid) -- vehicle, player, integer

	local vid = vech:vehicletypeid()
	local pteam = plyr:getTeam()
	
	if (vid == 402) then --If they killed Toriad of Malion
		g_arena:message("Toriad of Malion has been killed by " .. plyr.m_name .. " from team " .. pteam.m_name .. ".")
		plyr:message("You have captured the soul of Toriad of Malion, sacrafice his soul at a Shrine of Malion and choose your reward.")
		plyr:inventory_modify("Soul of Toriad", 1)
	end

end

function innOne(plyr)
	local g_x1 = 1791
	local g_y1 = 1546
	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

function Arena_OnGameStart()
	
	local trainer1 = g_arena:vehicle_create(411, 2188, 272, 99) --create Trainer
	local cert1 = g_arena:vehicle_create(400, 2385, 277, 145) --create Certificate dealer
	local shrine1 = g_arena:vehicle_create(401, 2378, 1073, 180) -- Creat the Shrine if Malion
	local toriad1 = g_arena:vehicle_create(402, 775, 807, 84) -- Create Toriad of Malion
	
	trainer1:setFrequency(65535)
	cert1:setFrequency(65535)
	g_arena:message("NPCS respawned Succseffuly")

end

function Arena_OnGameEnd()
	
	local trainer1 = g_arena:vehicle_create(411, 2188, 272, 99) --create Trainer
	local cert1 = g_arena:vehicle_create(400, 2385, 277, 145) --create Certificate dealer
	local shrine1 = g_arena:vehicle_create(401, 2378, 1073, 180) -- Creat the Shrine if Malion
	local toriad1 = g_arena:vehicle_create(402, 775, 807, 84) -- Create Toriad of Malion
	
	trainer1:setFrequency(65535)
	cert1:setFrequency(65535)
	g_arena:message("NPCS respawned Succseffuly")

end