grounds = {}
groundsa = {}
players = {}
plist = tfm.get.room.playerList
function eventNewPlayer(name)
players[name] = {ba=false,btime=0,ca=false,ctime=0,da=false,dtime=0}
system.bindMouse(name,true)
end

for name,i in pairs(tfm.get.room.playerList) do
eventNewPlayer(name)
end

function eventNewGame()
grounds = {}
if tfm.get.room.xmlMapInfo.xml:gmatch("<S[^/]+/>") then
for ground in tfm.get.room.xmlMapInfo.xml:gmatch("<S[^/]+/>") do
local pos = #grounds+1
if tonumber(ground:match('T="([^"]+)"')) == 13 then
grounds[pos] = {}
grounds[pos].X = tonumber(ground:match('X="([^"]+)"'))
grounds[pos].Y = tonumber(ground:match('Y="([^"]+)"'))
grounds[pos].L = tonumber(ground:match('L="([^"]+)"'))
grounds[pos].H = tonumber(ground:match('L="([^"]+)"'))
grounds[pos].T = tonumber(ground:match('T="([^"]+)"'))
else
grounds[pos] = {}
grounds[pos].X = tonumber(ground:match('X="([^"]+)"'))
grounds[pos].Y = tonumber(ground:match('Y="([^"]+)"'))
grounds[pos].L = tonumber(ground:match('L="([^"]+)"'))
grounds[pos].H = tonumber(ground:match('H="([^"]+)"'))
grounds[pos].T = tonumber(ground:match('T="([^"]+)"'))
end
end
end
groundsa = {}
if tfm.get.room.xmlMapInfo.xml:gmatch("<P[^/]+/>") then
for groundss in tfm.get.room.xmlMapInfo.xml:gmatch("<P[^/]+/>") do
local posu = #groundsa+1
groundsa[posu] = {}
groundsa[posu].X = tonumber(groundss:match('X="([^"]+)"'))
groundsa[posu].Y = tonumber(groundss:match('Y="([^"]+)"'))
groundsa[posu].T = tonumber(groundss:match('T="([^"]+)"'))
end
end
end

function eventMouse(n,x,y)
for i,ground in ipairs(grounds) do
if x > ground.X - ground.L/2 and x < ground.X + ground.L/2 and y > ground.Y - ground.H/2 and y < ground.Y + ground.H/2 then
ui.addTextArea(2,"<r>Zemin id:<N>"..ground.T.."<br><r>Zemin yeri(x,y):<N>"..ground.X..","..ground.Y.."<br><r>Zemin büyüklüğü(L,H):<N>"..ground.L..","..ground.H.."",n,25,350,200,nil,0x31474F,0x27373F,1,true)
players[n].ba=true
players[n].btime = 3
end
end
for name,i in pairs(tfm.get.room.playerList) do
if x > i.x - 15 and x < i.x + 15 and y > i.y - 15 and y < i.y + 15 then
ui.addTextArea(3,"<r>Kişi adı:<N>"..name.."<br><r>Yeri(x,y):<N>"..plist[name].x..","..plist[name].y.."<br><r>Kabilesi:<N>"..plist[name].tribeName.."<N>",n,240,350,200,nil,0x31474F,0x27373F,1,true)
players[n].ca=true
players[n].ctime = 3
end
end
for i,groundd in ipairs(groundsa) do
if groundd.X and groundd.Y then
if x > groundd.X - 30 and x < groundd.X + 30 and y > groundd.Y - 40 and y < groundd.Y + 40 then
ui.addTextArea(4,"<r>Süs id:<N>"..groundd.T.."<br><r>Süs yeri(x,y):<N>"..groundd.X..","..groundd.Y.."<br><r>Z:<N>"..i.."",n,455,350,200,nil,0x31474F,0x27373F,1,true)
players[n].da=true
players[n].dtime = 3
end
end
end
end

function eventLoop(k,g)
for name,i in pairs(tfm.get.room.playerList) do
if players[name].ba then
players[name].btime = players[name].btime - 0.5
if players[name].btime < 0 then
ui.removeTextArea(2,name)
players[name].ba=false
end
end
if players[name].ca then
players[name].ctime = players[name].ctime - 0.5
if players[name].ctime < 0 then
ui.removeTextArea(3,name)
players[name].ca=false
end
end
if players[name].da then
players[name].dtime = players[name].dtime - 0.5
if players[name].dtime < 0 then
ui.removeTextArea(4,name)
players[name].da=false
end
end
end
end