_data = {}

pl = {
	command = {
		"e",
		"cdaj",
		"daj",
		"powiedz",
		"zrob",
		"szepnij",
		"odloz",
		"podnies",
		"pokazID",
		"uzyj"
	},
	item = {
		"Galeon",
		"Sykl",
		"Knut",
		"Różdżka z rdzeniem z włókna smoczego serca",
		"Różdżka z rdzeniem z pióra feniksa",
		"Miotła szkolna"
	},
	ui = {
		"Powiedz",
		"Szepnij",
		"Zrób",
		"Użyj",
		"Odłóż",
		"Ile"
	}
}

eng = {
	command = {
		"i",
		"cgive",
		"give",
		"say",
		"do",
		"whisper",
		"put",
		"get",
		"showID",
		"use"
	},
	item = {
		"Galleon",
		"Sickle",
		"Knut",
		"Wand with the core made of a fiber from a dragon heart",
		"Wand with the core made of a phoenix's feather",
		"School broom"
	},
	ui = {
		"Say",
		"Whisper",
		"Do",
		"Use",
		"Put",
		"How much"
	}
}

_data.lang = pl
_data.sign = {}
_data.p = {}
_data.item = {}
_data.restoreEnergyTime = 0

for _, com in pairs(_data.lang.command) do
	system.disableChatCommandDisplay(com, true)
end

function eventNewPlayer(nick)
	_data.p[nick] = {
		rang = 0,
		energy = 0,
		maxEnergy = 50,
		flyBy = 0,
		inv = {
			{id = 1, amount = 10}
		},
		haveOpenedInv = false,
		haveOpenedList = false,
	}
	ui.addTextArea(202, "", nick, 20, 380, 50, 10, 0x000001, 0x000001, 0.8, true)
	ui.addTextArea(510, "Script by <font color='#00FFFF'>Fpekal</font>", nil, 700, 380, 100, 20, 0x000000, 0x000000, 0, true)
	ui.addTextArea(205, "<a href='event:1'>" .. _data.lang.ui[1] .. "</a>   <a href='event:2'>" .. _data.lang.ui[2] .. "</a>   <a href='event:3'>" .. _data.lang.ui[3] .. "</a>", nil, 90, 375, nil, nil, 0x222222, 0x333333, 0.8, true)
	system.bindKeyboard(nick, 0, true, true)
	system.bindKeyboard(nick, 1, true, true)
	system.bindKeyboard(nick, 2, true, true)
	system.bindKeyboard(nick, 3, true, true)
	system.bindKeyboard(nick, string.byte('X'), true, true)
end

function addSign(text, Time, x, y, range, relX, relY)
	if relX == nil then
		relX = 0
	end
	if relY == nil then
		relY = 0
	end
	table.insert(_data.sign, {text = text, Time = Time, x = x, y = y})
	local finalText = ""
	local text = _data.sign[#_data.sign].text
	local czyDluzsze = 0
	local nczyDluzsze = 1
	local countOfLines = 1
	while string.len(text) > 20 do
		czyDluzsze = 1
		nczyDluzsze = 0
		finalText = finalText .. text:sub(0, 20) .. "\n"
		text = text:sub(21)
		countOfLines = countOfLines + 1
	end
	finalText = finalText .. text
	for nick, n in pairs(tfm.get.room.playerList) do
		if math.pow(x - n.x, 2) + math.pow(y - n.y, 2) < math.pow(range, 2) then
			ui.addTextArea(#_data.sign, finalText, nick, (_data.sign[#_data.sign].x - nczyDluzsze * (string.len(_data.sign[#_data.sign].text) * 6) / 2 + czyDluzsze * -60) + relX, _data.sign[#_data.sign].y - 40 - 10 * countOfLines + relY, nil, nil, 0x222222, 0x333333, 0.8)
		end
	end
end

function updateItem()
	for id, item in pairs(_data.item) do
		for nick, n in pairs(tfm.get.room.playerList) do
			if math.sqrt(math.pow(item.x - n.x, 2) + math.pow(item.y - n.y, 2)) < 200 then
				ui.addTextArea(id + 100,  item.amount .. " " .. _data.lang.item[item.id], nick, item.x - (string.len(_data.lang.item[item.id]) + 2) * 2.5, item.y, nil, nil, 0x024300, 0x024300, 0.8, false)
			else
				ui.removeTextArea(id + 100, nick)
			end
		end
	end
end

function updateSign()
	local clear = {}
	local delete = {}
	local i = false
	for id, sign in pairs(_data.sign) do
		if sign.Time ~= nil then
			i = true
			sign.Time = sign.Time - 1
			if sign.Time == 0 then
				table.insert(clear, id)
			end
		end
	end
	if i == false then
		for id in pairs(_data.sign) do
			table.insert(delete, id)
		end
	end
	for _, id in pairs(clear) do
		ui.removeTextArea(id, nil)
		_data.sign[id] = {}
	end
	for _, id in pairs(delete) do
		table.remove(_data.sign, id)
	end
end

function restoreEnergy()
	_data.restoreEnergyTime = _data.restoreEnergyTime + 1
	if _data.restoreEnergyTime == 1 then
		for _, n in pairs(_data.p) do
			if n.energy < n.maxEnergy then
				n.energy = n.energy + 1
			end
		end
		_data.restoreEnergyTime = 0
	end
end

function updateEnergy()
	for nick, n in pairs(_data.p) do
		local i = n.energy
		if i == 1 then
			i = 2					-- Był błąd z wyświetlaniem
		end
		ui.addTextArea(203, "", nick, 23, 383, (i / n.maxEnergy) * 44, 4, 0x0000FF, 0x0000FF, 1, true)
	end
end

function eventLoop()
	updateSign()
	updateItem()
	restoreEnergy()
	updateEnergy()
end

function showBroom(nick, x, y)
	local i = 0
	for xnick in pairs(_data.p) do
		if nick == xnick then
			break
		end
		i = i + 1
	end
	local right = tfm.get.room.playerList[nick].isFacingRight
	tfm.exec.addPhysicObject(i*4+1, x, y, {width = 50, friction = 3})
	tfm.exec.addPhysicObject(i*4+2, x + (right and -33 or 33), y-6, {width = 20, friction = 3, type = 12, color = 0x4C2300, angle = (right and 30 or -30)})
	tfm.exec.addPhysicObject(i*4+3, x + (right and -35 or 35), y, {width = 20, friction = 3, type = 12, color = 0x4C2300})
	tfm.exec.addPhysicObject(i*4+4, x + (right and -33 or 33), y+6, {width = 20, friction = 3, type = 12, color = 0x4C2300, angle = (right and -30 or 30)})
end

function eventKeyboard(nick, key, _, x, y)
	ui.removeTextArea(204, nick)
	if key == 1 and _data.p[nick].flyBy ~= 0 and _data.p[nick].energy >= 3 then
		tfm.exec.movePlayer(nick, 0, -10, true, 0, 1, false)
		showBroom(nick, x, y + 10)
		_data.p[nick].energy = _data.p[nick].energy - 3
	elseif key == 3 and _data.p[nick].flyBy ~= 0 and _data.p[nick].energy >= 3 then
		tfm.exec.movePlayer(nick, 0, 10, true, 0, 0, false)
		showBroom(nick, x, y + 30)
		_data.p[nick].energy = _data.p[nick].energy - 3
	elseif key == 0 and _data.p[nick].flyBy ~= 0 and _data.p[nick].energy >= 1 then
		tfm.exec.movePlayer(nick, -20, 0, true, 0, 0, false)
		showBroom(nick, x - 20, y + 20)
		_data.p[nick].energy = _data.p[nick].energy - 1
	elseif key == 2 and _data.p[nick].flyBy ~= 0 and _data.p[nick].energy >= 1 then
		tfm.exec.movePlayer(nick, 20, 0, true, 0, 0, false)
		showBroom(nick, x + 20, y + 20)
		_data.p[nick].energy = _data.p[nick].energy - 1
	elseif key == string.byte('X') then
		local items = {}
		for id, item in pairs(_data.item) do
			if math.sqrt(math.pow(item.x - x, 2) + math.pow(item.y - y, 2)) < 50 then
				table.insert(items, id)
			end
		end
		if #items == 1 then
			giveItem(nick, _data.item[items[1]].id, _data.item[items[1]].amount)
			for id = items[1], #_data.item do
				ui.removeTextArea(id + 100, nil)
			end
			table.remove(_data.item, items[1])
			updateItem()
		elseif #items > 1 then
			local text = ""
			for _, id in pairs(items) do
				text = text .. "<a href='event:" .. id .. "'>" .. _data.item[id].amount .. " " .. _data.lang.item[_data.item[id].id] .. "</a>\n"
			end
			ui.addTextArea(204, text, nick, 20, 40, nil, nil, 0x222222, 0x333333, 0.8, true)
		end
	end
end

for nick in pairs(tfm.get.room.playerList) do
	eventNewPlayer(nick)
end

function eventTextAreaCallback(id, nick, odp)
	if id == 204 then
		if _data.item[tonumber(odp)] ~= nil then
			giveItem(nick, _data.item[tonumber(odp)].id, _data.item[tonumber(odp)].amount)
			for id = tonumber(odp), #_data.item do
				ui.removeTextArea(id + 100, nil)
			end
			table.remove(_data.item, odp)
			updateItem()
			ui.removeTextArea(204, nick)
		end
	elseif id == 205 then
		if odp == "1" then
			ui.addPopup(1, 2, _data.lang.ui[1] .. ":", nick, 276, 150, 228, true)
		elseif odp == "2" then
			ui.addPopup(2, 2, _data.lang.ui[2] .. ":", nick, 276, 150, 228, true)
		else
			ui.addPopup(3, 2, _data.lang.ui[3] .. ":", nick, 276, 150, 228, true)
		end
	elseif id == 0 then
		ui.addTextArea(206, "<a href='event:" .. tonumber(odp) * 2 .. "'>" .. _data.lang.ui[4] .. "</a>\n<a href='event:" .. tonumber(odp) * 2 + 1 .. "'>" .. _data.lang.ui[5] .. "</a>", nick, 50, tonumber(odp) * 5 + 50, nil, nil, 0x222222, 0x333333, 0.6, true)
	elseif id == 206 then
		if tonumber(odp) % 2 == 0 then
			useItem(nick, _data.p[nick].inv[math.floor(tonumber(odp) / 2)].id)
		else
			ui.addPopup(math.floor(tonumber(odp) / 2) + 100, 2, _data.lang.ui[6] .. ":", nick, 276, 150, 228, true)
		end
		ui.removeTextArea(206, nick)
	end
end

function eventPopupAnswer(id, nick, odp)
	if id == 1 and odp ~= "" then
		addSign(odp, 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 200)
	elseif id == 3 and odp ~= "" then
		addSign("<J>*"..odp.."*</J>", 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 200, 16)
	elseif id == 2 and odp ~= "" then
		addSign("<G>"..odp.."</G>", 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 50, 22)
	elseif id >= 101 and id <= 200 and odp ~= "" and tonumber(odp) ~= nil then
		odp = tonumber(odp)
		if _data.p[nick].inv[id - 100].amount >= odp then
			putItem(_data.p[nick].inv[id - 100].id, odp, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y)
			giveItem(nick, _data.p[nick].inv[id - 100].id, -odp)
		end
	end
end

function giveItem(nick, xid, xamount)
	nick = nick:sub(0, 1):upper() .. nick:sub(2)
	xid = tonumber(xid)
	xamount = tonumber(xamount)
	
	if type(xid) == "number" and type(xamount) == "number" and tfm.get.room.playerList[nick] ~= nil then
		
		
		local aamount = xamount
		
		local i = 0
		
		for _, item in pairs(_data.p[nick].inv) do
			i = i + 1
			if xid == item.id then
				aamount = _data.p[nick].inv[i].amount + aamount
				table.remove(_data.p[nick].inv, i)
				break
			end
		end
		
		if aamount > 0 then
			table.insert(_data.p[nick].inv, {id = xid, amount = aamount})
		end
		if _data.p[nick].haveOpenedInv == true then
			local text = ""
			for id, item in pairs(_data.p[nick].inv) do
				text = text .. "<a href='event:" .. id .. "'>" .. item.amount .. " " .. _data.lang.item[item.id] .. "</a>" .. "\n"
			end
			ui.addTextArea(0, text, nick, 20, 30, nil, nil, 0x222222, 0x333333, 0.8, true)
		end
	end
end

function putItem(id, xamount, x, y)
	id = tonumber(id)
	local amount = 0
	local delete = {}
	for xid, item in pairs(_data.item) do
		if math.sqrt(math.pow(item.x - x, 2) + math.pow(item.y - y, 2)) < 50 and id == item.id then
			amount = amount + item.amount
			table.insert(delete, xid)
		end
	end
	for id = #delete, 1, -1 do
		ui.removeTextArea(delete[id] + 100, nil)
		table.remove(_data.item, delete[id])
	end
	if id ~= nil then
		table.insert(_data.item, {id = id, amount = xamount + amount, x = x, y = y})
		updateItem()
	end
end

function useItem(nick, id)
	if id == 6 then
		_data.p[nick].flyBy = _data.p[nick].flyBy ~= 0 and 0 or id
		if _data.p[nick].flyBy == 0 then
			local i = 0
			for xnick in pairs(_data.p) do
				if nick == xnick then
					break
				end
				i = i + 1
			end
			tfm.exec.removePhysicObject(i * 4 + 1)
			tfm.exec.removePhysicObject(i * 4 + 2)
			tfm.exec.removePhysicObject(i * 4 + 3)
			tfm.exec.removePhysicObject(i * 4 + 4)
		end
	end
end

function eventChatCommand(nick, com)
	local word = {}
	for w in com:gmatch("%S+") do
		table.insert(word, w)
	end
	if word[1] == _data.lang.command[1] then
		if _data.p[nick].haveOpenedInv == false then
			local text = ""
			for id, item in pairs(_data.p[nick].inv) do
				text = text .. "<a href='event:" .. id .. "'>" .. item.amount .. " " .. _data.lang.item[item.id] .. "</a>" .. "\n"
			end
			ui.addTextArea(0, text, nick, 20, 30, nil, nil, 0x222222, 0x333333, 0.8, true)
		else
			ui.removeTextArea(0, nick)
		end
		_data.p[nick].haveOpenedInv = not(_data.p[nick].haveOpenedInv)
	elseif word[1] == _data.lang.command[2] and _data.p[nick].rang == 1 then
		giveItem(word[2], word[3], word[4])
	elseif word[1] == _data.lang.command[3] and word[4] ~= nil then
		if tonumber(word[4]) > 0 and _data.p[word[2]:sub(0, 1):upper()..word[2]:sub(2)] ~= nil then
			local i = 0
			for _, item in pairs(_data.p[nick].inv) do
				if item.id == tonumber(word[3]) then
					i = item.amount
				end
			end
			if i >= tonumber(word[4]) then
				giveItem(nick, word[3], -word[4])
				giveItem(word[2], word[3], word[4])
			end
		end
	elseif word[1] == _data.lang.command[4] then
		addSign(com:sub(string.len(word[1])+2), 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 200)
	elseif word[1] == _data.lang.command[5] then
		addSign("<J>*"..com:sub(string.len(word[1])+2).."*</J>", 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 200, 16)
	elseif word[1] == _data.lang.command[6] then
		addSign("<G>"..com:sub(string.len(word[1])+2).."</G>", 10, tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y, 50, 22)
	elseif word[1] == _data.lang.command[7] then
		if word[2] ~= nil and word[3] ~= nil and tonumber(word[3]) ~= nil then
			if tonumber(word[3]) > 0 then
				local i = 0
				for _, item in pairs(_data.p[nick].inv) do
					if item.id == tonumber(word[2]) then
						i = item.amount
					end
				end
				if i >= tonumber(word[3]) then
					giveItem(nick, word[2], -word[3])
					putItem(word[2], word[3], tfm.get.room.playerList[nick].x, tfm.get.room.playerList[nick].y)
					updateItem()
				end
			end
		end
	elseif word[1] == _data.lang.command[8] then
		if word[2] ~= nil and word[3] ~= nil and tonumber(word[3]) ~= nil then
			if tonumber(word[3]) > 0 then
				for id, item in pairs(_data.item) do
					if tonumber(item.id) == tonumber(word[2]) and tonumber(item.amount) >= tonumber(word[3]) and math.sqrt(math.pow(item.x - tfm.get.room.playerList[nick].x, 2) + math.pow(item.y - tfm.get.room.playerList[nick].y, 2)) < 50 then
						giveItem(nick, word[2], word[3])
						item.amount = item.amount - tonumber(word[3])
						if tonumber(item.amount) == 0 then
							ui.removeTextArea(id + 100, nil)
							table.remove(_data.item, id)
							break
						end
					end
				end
			end
		end
	elseif word[1] == _data.lang.command[9] then
		local text = ""
		for id, item in pairs(_data.lang.item) do
			text = text .. id .. " " .. item .. "\n"
		end
		if _data.p[nick].haveOpenedList == false then
			ui.addTextArea(201, text, nick, 20, 30, nil, nil, 0x222222, 0x333333, 0.8, true)
		else
			ui.removeTextArea(201, nick)
		end
		_data.p[nick].haveOpenedList = not _data.p[nick].haveOpenedList
	elseif word[1] == _data.lang.command[10] and tonumber(word[2]) ~= nil then
		local test = false
		for _, item in pairs(_data.p[nick].inv) do
			if item.id == tonumber(word[2]) then
				test = true
			end
		end
		if test == true then
			useItem(nick, tonumber(word[2]))
		end
	end
end

-- Wykrywanie, kto wczytał skrpyt zrobione przez Tocutoeltuco
local _, nickname = pcall(nil)
_data.p[string.match(nickname, "(.-)%.")].rang = 1
-------------------------------------------------------------

-- Aby dodać gracza do administratorów należy wpisać przykładowo:
-- _data.p["Fpekal#0000"].rang = 1