admins = {22068,1,}-- Put Admins U ID's Here
hogwarts_x = 0 -- Put here hogwarts x NOT TILE just X
hogwarts_y = 0 -- Put here hogwarts y NOT TILE just Y

wood_x = 0 -- Put here wood x NOT TILE just X
wood_y = 0 -- Put here wood y NOT TILE just Y


function Array(size,value) 
	local array = {}
	for i = 1, size do
		array[i]=value
	end
	return array
end
experience=Array(32,0) -- Starting EXP = 0
defence=Array(32,2) -- Starting DEF = 2
coins=Array(32,100) -- Starting COINS = 100
function find(table,value) 
     for i,v in ipairs(table) do 
          if v == value then 
               return true 
          end 
     end 
end
function teacher(id) -- if its admin (Teacher)
local val
	if find(admins,player(id,"usgn")) then
		val = "true"
	else
		val = "false"
	end
return val
end
addhook("leave","hw_leave")
function hw_leave(id)
	if (player(id,"usgn") > 0) then
		local usgn=player(id,"usgn")
		data=experience[id].." "..defence[id].." "..coins[id]
		filei=io.open("sys/lua/hw/data/"..usgn..".txt","w")
		file=assert(filei)
		file:write(data)
		file:close()
	end
	experience[id]=0
	defence[id]=2
	coins[id]=100
end
addhook("minute","minute_save")
function minute_save()
	for 1,32 do
		if (player(id,"usgn") > 0) then
			local usgn=player(id,"usgn")
			data=experience[id].." "..defence[id].." "..coins[id]
			filei=io.open("sys/lua/hw/data/"..usgn..".txt","w")
			file=assert(filei)
			file:write(data)
			file:close()
		end
	end
end
function hmsg2(id,clr,msg)
	parse("sv_msg2 "..id.." ©"..clr..""..msg)
end
function hmsg(clr,msg)
	parse("sv_msg ©"..clr..""..msg)
end

function totable(t,match)
	local cmd = {}
	if not match then match = "[^%s]+" else match = "[^"..match.."]+" end
	for word in string.gmatch(t, match) do
		table.insert(cmd, word)
	end 
	return cmd 
end
addhook("say","say")
function say(id,text)
	local t = totable(text)
	local txt = tostring(t[1])
	if string.sub(txt,1,1)==[[!]] then
		if txt=="!hogwarts" or txt=="!school" then
			parse("setpos "..id.." "..hogwarts_x.." "..hogwarts_y)
			hmsg2(id,"255050050","Farewell At School !")
		elseif txt=="!woods" or txt=="!forest" then
			parse("setpos "..id.." "..wood_x.." "..wood_y)
			hmsg2(id,"255050050","Warning! The Forest Is Dangerous!")
		else
			hmsg2(id,"255000000","Magic Not Found: "..string,sub(txt,2))
		end
		return 1 -- If Say It The Message Don't Appear
	end
end