function init_array(length,mode) 
	local array={} 
	for i=1,length do 
		array[i]=mode end 
	return array 
end

function table.copy(t, lookup_table)
	if (t == nil) then return nil end
	local copy = {}
	setmetatable(copy, getmetatable(t))
	for i,v in pairs(t) do
		if type(v) ~= "table" then
			copy[i] = v
		else
			lookup_table = lookup_table or {}
			lookup_table[t] = copy
			if lookup_table[v] then
				copy[i] = lookup_table[v]
			else
				copy[i] = table.copy(v, lookup_table)
			end
		end
	end
	return copy
end

_menu=menu

menu={}
menu.data={
	["@main_menu"]={
		title="Menu Principal";
		button={
			{name="Inventário",func="menu.inv_show(v_me)"};
			{name="Loja",target="@shop"};
		}
	};
	["@shop"]={
		title="Loja@b";
		button={
			{name="Menu Principal";caption="Voltar";target="@main_menu"};
		}
	};
	["@buy"]={
		title="Deseja comprar esse item?";
		button={
			{name="Loja";caption="Voltar";target="@shop"};
			{name="Comprar";func="menu.inv_buy(v_me,USER[v_me].sel)"};
			{name="Ver descrição",func="menu.inv_shopdesc(v_me,USER[v_me].sel)"};
		}
	};
	["@equip"]={
		title="Test";
		button={
			{name="Menu Principal",caption="Voltar",target="@main_menu"};
			{name="Usar",func="menu.inv_use(v_me,USER[v_me].sel)"};
			{name="Vender",func="menu.inv_sell(v_me,USER[v_me].sel)"};
			{name="Ver descrição",func="menu.inv_desc(v_me,USER[v_me].sel)"};
			{name="Jogar fora",func="menu.inv_remove(v_me,USER[v_me].sel)"};
		}
	};
}

menu.itemdata={
{name="Poção de HP [250]",price=120,desc="Esta poção recupera totalmente sua saude.",func="heal_p(v_me,250)"};
{name="Poção de HP [100]",price=50,desc="Esta poção recupera sua saude.",func="heal_p(v_me,100)"};
{name="Poção de HP [50]",price=30,desc="Esta poção recupera um pouco sua saude.",func="heal_p(v_me,50)"};
{name="Poção de HP [20]",price=10,desc="Esta poção recupera um pouquinho sua saude.",func="heal_p(v_me,20)"};
}

for index,value in ipairs(menu.itemdata) do menu.data["@shop"].button[index+1]={name=menu.itemdata[index].name;caption=menu.itemdata[index].price.." créditos";func="USER[v_me].sel=(v_slot-1)";target="@buy"} end

USERDATA={
	menu_page="";
	menu_name="";
	sel="";
	inv={};
}

USER=init_array(32,USERDATA)
USER_ITEMS=init_array(32,{})

function menu.get(name,page,button)
	local data={}
	if type(name) == "table" then
		data = name
	else
		data = menu.data[name]
	end
	
	local slot=7*(page-1)+button
	local item=data.button[slot]
	--print(item.name)
	return item,slot
end

function menu.show(uid,name,page)
	local menu_page = page or 1
	local menu_name = name
	local data = {}
	
	if type(name) == "table" then
		data = name
	else
		data = menu.data[name]
	end	

	if data then
		local title = data.title
		local content = data.title
		local button = data.button or {}
		local length = math.ceil(#button/ 7)
			
		if #button > 9 then
			if menu_page < 1 then 
				menu_page = length 
			elseif menu_page > length then 
				menu_page = 1 
			end
				
			for	i = 7 * menu_page - 6, 7 * menu_page do
				if button[i] then 
					content = content ..','..button[i].name
					if button[i].caption then 
						content = content.."|"..button[i].caption
					end	
				else 
					content = content ..',' 
				end
			end
			
			if menu_page == length 
			then content = content ..',(Proximo)'
			else content = content ..',>> Proximo >>|Pagina '..menu_page+1 
			end
	
			if menu_page == 1 
			then content = content ..',(Anterior)' 
			else content = content ..',<< Anterior <<|Pagina '..menu_page-1  
			end	
		else
			for slot,button in ipairs(button) do
				content = content..","..button.name
				if button.caption then
					content = content.."|"..button.caption
				end
			end
		end
	
		USER[uid].menu_name = menu_name
		USER[uid].menu_page = menu_page
		_menu(uid,content)
	end
end

addhook("menu","menu.hook")
function menu.hook(uid,title,button)
	if button==0 then return end
	
	local menu_name = USER[uid].menu_name
	local menu_page = USER[uid].menu_page
	local menu_button = 0
	
	if type(menu_name) == "table" then
		menu_button = #menu_name.button 
	else 
		menu_button = #menu.data[menu_name].button
	end
	
	if menu_button > 9 then
		if button==9 then menu.show(uid,menu_name,menu_page-1) return end
		if button==8 then menu.show(uid,menu_name,menu_page+1) return end
	end
	
	local item,slot=menu.get(menu_name,menu_page,button)
	v_me=uid
	v_slot=slot
		
	if item.func then loadstring(item.func)() end
	if item.target then
		menu.show(uid,item.target)
	end	
end

addhook("serveraction","menu.input")
function menu.input(uid,action)
	if action==3 then
		menu.show(uid,"@main_menu")
	end
end

function menu.inv_remove(uid,item_slot)
	local items=table.copy(USER_ITEMS[uid])
	for slot,item in ipairs(items) do
		if item_slot == slot then
			table.remove(items,slot)
			USER_ITEMS[uid]=items
			break
		end
	end
end

function menu.inv_buy(uid,item_id)
	local item=menu.itemdata[item_id]
	if player(uid,"money") >= item.price then
		msg2(uid,"Você adquiriu "..item.name.."!")
		menu.inv_add(uid,item_id)
		parse("setmoney "..uid.." "..(player(uid,"money")-item.price))
	else
		msg2(uid,"Você não tem dinheiro suficiente para comprar "..item.name..".")
	end
end

function menu.inv_shopdesc(uid,item_id)
	local item=menu.itemdata[item_id]
	msg2(uid,item.name..": "..item.desc)
end

function menu.inv_desc(uid,item_slot)
	local item_id=USER_ITEMS[uid][item_slot]
	local item=menu.itemdata[item_id]
	msg2(uid,item.name..": "..item.desc)
end

function menu.inv_use(uid,item_slot)
	local item_id=USER_ITEMS[uid][item_slot]
	loadstring(menu.itemdata[item_id].func)()
	menu.inv_remove(uid,item_slot)
end

function menu.inv_sell(uid,item_slot)
	local item_id=USER_ITEMS[uid][item_slot]
	local item=menu.itemdata[item_id]

	parse("setmoney "..uid.." "..(player(uid,"money")+math.floor(item.price/2)))
	
	msg2(uid,item.name.." vendido por "..item.price.." de cash.")
	menu.inv_remove(uid,item_slot)
end

function menu.inv_add(uid,item_id)
	local item_id=item_id or 1
	local items=table.copy(USER_ITEMS[uid])
	
	table.insert(items,item_id)
		
	if #USER_ITEMS[uid] <= 14 then
		USER_ITEMS[uid] = items
	else
		msg2(uid,"Desculpe, o seu inventório está cheio.")
	end
end

function menu.inv_show(uid)
	local data=USER_ITEMS[uid]
	local newdata={title="Inventório";button={{name="Menu Principal",caption="Voltar",target="@main_menu"}}}

	for slot,item_id in pairs(data) do
		newdata.button[slot+1] = {name=(menu.itemdata[item_id].name),func="USER[v_me].sel=(v_slot-1)",target="@equip"}
	end
	menu.show(uid,newdata)
end

function menu.inv_addname(uid,_name)
	for item_id,data in ipairs(menu.itemdata) do
		if menu.itemdata[item_id].name:lower()==_name:lower() then
			menu.inv_add(uid,item_id)
			return
		end	
	end	
	return error("Erro, esse item não existe.")
end

function heal_p(uid,amount)
	parse("sethealth "..uid.." "..player(uid,"health")+amount)
	msg2(uid,"Você foi curado em "..amount.." pontos")
end