tfm.exec.disableAutoScore(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAfkDeath(true)
tfm.exec.disableAutoNewGame(true)

mapcr={"Aviener","Kaysha","Ilyasport"}
admins={"Aviener"}

maplist={"@1257258", "@6459786", "@6465008", "@6464994", "@4043664"}
maps=maplist[math.random(#maplist)]

imagelist={"PTQL30f.png", "x1zS39R.png", "9LcqZUY.png", "Dydh9Qo.png", "1CBFyuL.png"}

lang=tfm.get.room.community
messages = {
{RU={welcome='<BV>"..playerName.."</BV><N>, привет! Добро пожаловать в <BV>#darkroom<BV>!<N> Попробуй найти выход из лабиринта. Напиши в чат <J>!help<J> <N> для более подробной информации.<CH>';
help='<BV>Суть игры</BV><N>: найдите <BV>выход</BV> <N>лабиринта! Напишите в чат <j>!cont</j>, чтобы получить контакты для связи \<BV>Основной концепт</BV><N> придуман игроком Defoster\ <BV>Игра сделана</BV><N> игроком Aviener';
cont='<BV>Администратор<N>: Aviener\ <BV>Map Crew<N>: "..table.concat(mapcr, ", ")';
win='<CH>"..playerName.."</CH><N> выиграл <J>игру!<J>'};
{EN={welcome='<BV>"..playerName.."</BV><N>, hello! Welcome to <BV>#darkroom<BV>!<N> Try to find hole. Type <J>!help<J> <N> for more information.<CH>';
help='<BV>Point of game</BV><N>: Find <BV> the hole</BV> from labyrinth<N>Type <j>!cont</j> for contacts \<BV>Original idea</BV><N> by Defoster\ <BV>Game made by</BV><N> Aviener';
cont='<BV>Admin<N>: Aviener\ <BV>Map Crew<N>: "..table.concat(mapcr, ", ")';
win='<CH>"..playerName.."</CH><N> won the <J>game!<J>'}
} } }

function start()
tfm.exec.newGame(maplist[math.random(#maplist)])
end

function isarray(val,arr)
	local flag=true
	for i,v in pairs(arr) do
		if v==val then
			flag=false;
			break
		end
	end
	return flag
end

function xmlToobj(xmlS)
	local obj={}
	local i=1
	local blacklist={"0","1","2","4","5","6","7","8","10","12","13","14","15","16","17","18","19","20","21","22","23","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","40","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85","86","87","88","89","90","91","92","93","94","95","96","97","98","99","100","101","102","103","104","105","106","107","108","109","110","111","112","113","114","115","116","117","118","119","120","121","122","123","124","125","126","127","128","129","130","131"}
	for w in string.gmatch(xmlS, "<P.-T.->") do
		local tmps=string.sub(w, string.find(w, 'X="[-]?%d+"'))
		xO=string.sub(tmps,string.find(tmps,"[-]?%d+"))
		tmps=string.sub(w, string.find(w, 'Y="[-]?%d+"'))
		yO=string.sub(tmps,string.find(tmps,"[-]?%d+"))
		idO=string.gsub(string.sub(w, string.find(w, 'T="%d+"')),"%D","")
		if isarray(idO,blacklist) then
			print("Found object [" .. tostring(i) .. "] x:" .. tostring(xO) .. "," .. tostring(yO))
			obj[i]={x=xO;y=yO;id=idO}
			i=i+1
		end
	end
	-- table.insert(obj,{x=tonumber(xO);y=tonumber(yO);id=tonumber(idO)})
	return obj
end


function eventNewGame()
	if tfm.get.room.xmlMapInfo.xml then
		local myVar = xmlToobj(tfm.get.room.xmlMapInfo.xml);
		local index = math.random(#myVar)
		print("Choose location:" .. tostring(index))
		local tmpO=myVar[index]
		tfm.exec.addShamanObject (27, tmpO.x, tmpO.y-50, 0, 0, 0, ghost)
		tfm.exec.addShamanObject (26, 818, 363, 0, 0, 0, false)
		for player,name in pairs(tfm.get.room.playerList) do
			tfm.exec.addImage("imagelist[math.random(#imagelist)]", "%name", 0, 0)
			ui.removeTextArea (1, playerName)
		end
	end
end

--ChatCommands
function eventChatCommand(playername, cmd)
	if cmd == "help" then
		tfm.exec.chatMessage("messages.[lang].help", playername)
	elseif cmd== "cont" then
		tfm.exec.chatMessage("messages.[lang].cont", playername)
	end
end

--Game
tfm.exec.newGame(maplist[math.random(#maplist)])

function eventNewPlayer(playerName)
	ui.addTextArea(1,"",playerName,0,0,800, 400,0x030303,0x030303,1,true)
	tfm.exec.chatMessage("messages.[lang].welcome", playerName)
end

function eventPlayerWon(playerName)
	ui.addTextArea(1,"",playerName,0,0,800, 400,0x030303,0x030303,1,true)
	for name,player in pairs(tfm.get.room.playerList) do
		tfm.exec.chatMessage("messages.[lang].win", name)
		tfm.exec.newGame(maplist[math.random(#maplist)])
	end
end

function eventLoop(t1,t2)
	if t2<=0 then
		maps=maplist[math.random(#maplist)]
		tfm.exec.newGame(maplist[math.random(#maplist)])
	end
end