function initArray(m)
local array = {}
for i = 1, m do
array[i]=0
end
return array
end

function toTable(t,match)
local cmd = {}
if not match then match = "[^%s]+" end
for word in string.gmatch(t, match) do
table.insert(cmd, word)
end
return cmd
end

plx[id]=initArray(32)
tpas[id]=initArray(32)
shoplicencepoint[id]=initArray(32)
shoplicencelevel[id]=initArray(32)
careerpoint[id]=initArray(32)
moral[id]=initArray(32)
money[id]=initArray(32)


city={}

city[1]={owner=0,money=0,shop1owner=0,shop2owner=0,shop3owner=0,police=0,burgers=0,burgermoney=10000,npcmoney=15000,name="No owner",burger=0,npc=0}
city[2]={owner=0,money=0,shop1owner=0,shop2owner=0,shop3owner=0,police=0,burgers=0,burgermoney=10000,npcmoney=15000,name="No owner",burger=0,npc=0}
city[3]={owner=0,money=0,shop1owner=0,shop2owner=0,shop3owner=0,police=0,burgers=0,burgermoney=10000,npcmoney=15000,name="No owner",burger=0,npc=0}
city[4]={owner=0,money=0,shop1owner=0,shop2owner=0,shop3owner=0,police=0,burgers=0,burgermoney=10000,npcmoney=15000,name="No owner",burger=0,npc=0}
city[5]={owner=0,money=0,shop1owner=0,shop2owner=0,shop3owner=0,police=0,burgers=0,burgermoney=10000,npcmoney=15000,name="No owner",burger=0,npc=0}

addhook("join","hhjoin")
addhook("leave","hhleave")
addhook("minute","hhminute")
savecounter=0

function hhminute()
savecounter=savecounter+1
if savecounter>=30 then
hhgsave()
hhsave(id)
end
end

addhook("say", "saids")

function saids (id,s)
if ( s:lower() == "!loadserver" ) then
if player(id,"usgn")=="13667" then
hhgload(id)
end
end
end

function hhleave(id)
hhsave(id)
plx[id]=0
tpas[id]=0
shoplicencepoint[id]=0
shoplicencelevel[id]=0
careerpoint[id]=0
moral[id]=150
money[id]=0
end

function hhjoin(id)
plx[id]=0
tpas[id]=0
shoplicencepoint[id]=0
shoplicencelevel[id]=0
careerpoint[id]=0
moral[id]=150
money[id]=0
hhload(id)
end

function hhsave(id)
file = assert(io.open("user/"..player(id, "usgn")..".txt","w"))
file:write(careerpoint[id].." "..money[id].." "..moral[id].." "..plx[id].." "..ctpas[id].." "..tpas[id].." "..pistoll[id].." "..lightl[id].." "..crimepoint[id].." "..shoplicencelevel[id].." "..shoplicencepoint[id])
file:close()
msg2(id,'©107142035Save Game Successfull!@C')
end

function hhgsave()
file = assert(io.open("serverr/"..server..".txt","w"))
file:write(city[1].burger.." "..city[1].owner.." "..city[1].money.." "..city[1].name.." "..city[1].npc.." "..city[2].owner.." "..city[2].money.." "..city[2].name.." "..city[2].npc.." "..city[3].owner.." "..city[3].money.." "..city[3].name.." "..city[3].npc.." "..city[4].owner.." "..city[4].money.." "..city[4].name.." "..city[4].npc.." "..city[5].owner.." "..city[5].money.." "..city[5].name.." "..city[5].npc.." "..city1.." "..city2.." "..city3.." "..city4.." "..city5)
file:close()
end

function hhgload(id)
files = io.open("serverr/"..server..".txt","r")
if(files~=nil) then
msg2(id,"©107142035Server Loaded Successfully!@C")
for line in io.lines("server/"..server..".txt","r") do
local parses = toTable(line)
if (tonumber(parses[1])>0) then
city[1].burger = tonumber(parses[1])
city[1].owner = tonumber(parses[2])
city[1].money = tonumber(parses[3])
city[1].name = tonumber(parses[4])
city[1].npc = tonumber(parses[5])
city[2].burger = tonumber(parses[6])
city[2].owner = tonumber(parses[7])
city[2].money = tonumber(parses[8])
city[2].name = tonumber(parses[9])
city[2].npc = tonumber(parses[10])
city[3].burger = tonumber(parses[11])
city[3].owner = tonumber(parses[12])
city[3].money = tonumber(parses[13])
city[3].name = tonumber(parses[14])
city[3].npc = tonumber(parses[15])
city[4].burger = tonumber(parses[16])
city[4].owner = tonumber(parses[17])
city[4].money = tonumber(parses[18])
city[4].name = tonumber(parses[19])
city[4].npc = tonumber(parses[20])
city[5].burger = tonumber(parses[21])
city[5].owner = tonumber(parses[22])
city[5].money = tonumber(parses[23])
city[5].name = tonumber(parses[24])
city[5].npc = tonumber(parses[25])
city1 = tonumber(parses[26])
city2 = tonumber(parses[27])
city2 = tonumber(parses[28])
city2 = tonumber(parses[29])
city2 = tonumber(parses[30])
break
end
end
end
end

function hhload(id)
usgn = player(id,"usgn")
local usgn = player(id, "usgn")
files = io.open("user/"..usgn..".txt","r")
if(files~=nil) then
msg2(id,"©107142035Your Last Save Loaded Successfully!@C")
for line in io.lines("user/"..usgn..".txt","r") do
local parses = toTable(line)
if (tonumber(parses[1])>0) then
careerpoint[id] = tonumber(parses[1])
money[id] = tonumber(parses[2])
moral[id] = tonumber(parses[3])
plx[id] = tonumber(parses[4])
ctpas[id] = tonumber(parses[5])
tpas[id] = tonumber(parses[6])
pistoll[id] = tonumber(parses[7])
lightl[id] = tonumber(parses[8])
shoplicencelevel[id] = tonumber(parses[9])
shoplicencepoint[id] = tonumber(parses[10])
careerpoint[id] = tonumber(parses[11])
elseif (files==nil) then
shoplicencepoint[id]=0
shoplicencelevel[id]=0
careerpoint[id]=0
moral[id]=150
money[id]=0
break
end
end
else
msg2(id,"©255000000Failed to load save!@C")
end
end