weapons_t = {1,2,3,4,5,6}
weapons_ct = {20,21,22,23,24,25}
menu_title = ''

addhook('menu','menus')
function menus(p,m,s)
	if (m == 'T - Select weapon') then
		if itemtype(weapons_t[s],'price') < player(p,'money') then
			msg2(p,'You bought '..itemtype(weapons_t[s],'name')..'!@C')
			parse('setmoney '..p..' '..player(p,'money') - itemtype(weapons_t[s],'price'))
			parse('equip '..p..' '..weapons_t[s])
			parse('setweapon '..p..' '..weapons_t[s])
			else
		msg2(p,'You dont have enough money!@C')
	end
	elseif (m == 'CT - Select weapon') then
		if itemtype(weapons_ct[s],'price') < player(p,'money') then
			msg2(p,'You bought '..itemtype(weapons_ct[s],'name')..'!@C')
			parse('setmoney '..p..' '..player(p,'money') - itemtype(weapons_ct[s],'price'))
			parse('equip '..p..' '..weapons_ct[s])
			parse('setweapon '..p..' '..weapons_ct[s])
		else
			msg2(p,'You dont have enough money!@C')
		end
	end
end

function weapon_menu_t(p)
	local i
	for i = 1, #weapons_t do
		menu_title = menu_title..''..itemtype(weapons_t[i],'name')..'|'..itemtype(weapons_t[i],'price')..'$,'
	end
	menu(p,'T - Select weapon,'..menu_title)
	menu_title = ''
end

function weapon_menu_ct(p)
	local i
	for i = 1, #weapons_ct do
		menu_title = menu_title..''..itemtype(weapons_ct[i],'name')..'|'..itemtype(weapons_ct[i],'price')..'$,'
	end
	menu(p,'CT - Select weapon,'..menu_title)
	menu_title = ''
end

addhook('say','says')
function says(p,t)
	if (t == '-menu') then
		if (player(p,'team') == 1) then
			weapon_menu_t(p)
		elseif (player(p,'team') == 2) then
			weapon_menu_ct(p)
		end
	end
end

function gg_p_sv(p)
	if (player(p,"usgn") > 0) then
		f = assert(io.open(gg_dir..'data/'..player(p,"usgn")..'.txt','w'))
		f:write(set_gg_val(p,1)..'\n'..set_gg_val(p,2)..'\n'..set_gg_val(p,3)..'\n'..set_gg_val(p,4)..'\n'..set_gg_val(p,5)..'\n'..set_gg_val(p,6)..'\n'..set_gg_val(p,7))
		f:close()
	end
end

function gg_p_ld(p)
	local usgn = player(p,"usgn")
	if (usgn > 0) then
		gg_msg2(p,3,'Your U.S.G.N. ID: '..usgn..'@C')
		f = io.open(gg_dir..'data/'..usgn..'.txt','r')
		if (f ~= nil) then
			gg_msg2(p,2,'Your Save File Found!@C')
			local i = 0
			for line in f:lines() do
				i = i + 1
				if (i < 8) then set_gg_stata(p,i,tonumber(line)) end
			end
			f:close()
		else
			gg_msg2(p,4,'Failed To Load Save!@C')
		end
	else
		gg_msg2(p,4,'Please check your U.S.G.N. account settings!@C')
	end
	if (set_gg_val(p,2) < 1 or usgn < 1) then
		for i = 1,7 do set_gg_stata(p,i,0) end
	end
end