width = 800  -- SZEROKOŚĆ MAPY
height = 400  -- WYSOKOŚĆ MAPY 

initialize = function() start = false i = 0 delay = 0 power = 1 end
split = function(t,s) local a={}for i,v in string.gmatch(t,string.format("[^%s]+",s or"%s"))do table.insert(a,i)end; return a end

eventChatCommand = function(n, c)
  if (c == 'setadmin' and adm == nil) then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Admin skryptu ustawiony na gracza </T><N>' .. n .. '</N>')
    adm = n
  elseif (c:sub(1, 5) == 'start' and n == adm) then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Gwiazdki włączone </T>')
    start = true
    arg = split(c, ' ')
	if (arg[2] ~= nil) then power = tonumber(arg[2]) end
    if (arg[3] ~= nil) then delay = tonumber(arg[3] + 1) end
  elseif (c == 'stop') then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Gwiazdki wyłączone </T>')
    initialize()
  end
end

eventLoop = function()
  if (start == true) then
    if (delay == 0 or i >= delay) then
	  i = 0
      for i=1,power do
        tfm.exec.displayParticle(29, math.random(width-(width-20), width-20), math.random(height-(height-10), height-10))
      end
	end
	i = i + 1
  end
end

initialize()

system.disableChatCommandDisplay()

-- by Boxofkrain#0000

commands = {['admin'] = 'SETADMIN', ['meep'] = 'MEEP', ['magicmap'] = 'MAGICMAP', ['stop'] = 'STOP'}
colors = {'#ff2222', '#22ff22', '#08ffde', '#ff9d00', '#ff00bf', '#ffff22'}
i = 1
rStart = false

eventChatCommand = function(n, c)
  if (c:upper() == commands.admin and adm == nil) then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Admin skryptu ustawiony na gracza </T><N>' .. n .. '</N>')
    adm = n
  elseif (c:upper() == commands.meep and n == adm) then
    for n in next, tfm.get.room.playerList do
	  print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Meep wręczony wszystkim graczom</T>')
	  tfm.exec.giveMeep(n)
	end
  elseif (c:upper() == commands.magicmap and n == adm) then
    ui.addPopup(1, 2, 'Nazwa mapy:', adm, 290, 30, 220)
  elseif (c:upper() == commands.stop and n == adm) then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Nazwa mapy przywrócona</T>')
	ui.setMapName('')
    rStart = false
  end
end

eventPopupAnswer = function(_, _, r)
  if (r ~= '') then
    print('<font color="#31e0dd">[SCRIPTLOG]</font> <T>Nazwa mapy zmieniona na </T><N>' .. r .. '</N>')
    ui.setMapName(r)
    mapName = r
    rStart = true
  end
end

eventLoop = function()
  if (rStart == true) then
    ui.setMapName('<b><font color="' .. colors[i] .. '">' .. mapName .. '</font></b>')
	i = i + 1
	if (i > #colors) then i = 1 end
  end
end

system.disableChatCommandDisplay()

-- by Boxofkrain#0000

local admin = 'Alekstraper#0000'
local fontColor = '367417'
local commands = {['show'] = 'WITAJ', ['del'] = 'ZAMKNIJ', ['exit'] = 'STOP'}

showPlate = function(text,color) ui.addTextArea(0,'<font size="14"><font color="#' .. color .. '">' .. text .. '</font></font>',nil,1,320,330,80,0x3d250c,0x693f13,0.9,true) end

eventChatCommand = function(n, c)
  if (n == admin) then
    if (c:upper() == commands.show:upper()) then
      ui.addPopup(0, 2, 'Tekst:', admin, 200, 26, 400, true)
    elseif (c:upper() == commands.del:upper()) then
      ui.removeTextArea(0)
    elseif (c:upper() == commands.exit:upper()) then
      system.exit()
    end
  end
end

eventPopupAnswer = function(_, _, r)
  if (r ~= '') then
    showPlate(r, fontColor)
  end
end

system.disableChatCommandDisplay()

local adm = 'Alekstraper#0000'

local tpTarget
local commands = {['tp'] = 'TP', ['stop'] = 'STOP'}

split = function(t,s) local a={}for i,v in string.gmatch(t,string.format("[^%s]+",s or"%s"))do table.insert(a,i)end return a end
playerExists = function(n) for p in next,tfm.get.room.playerList do if(p:upper()==n:upper()) then return true end end return false end

eventChatCommand = function(n, c)
  arg = split(c, ' ')
  if (n == adm) then
    if (arg[1]:upper() == commands.tp) then
	  if (arg[2] == nil) then
	    tpTarget = adm
	  elseif (playerExists(arg[2])) then
	    tpTarget = arg[2]
	  elseif (arg[2]:upper() == 'OFF') then
	    tpTarget = nil
	  end
    elseif (arg[1]:upper() == commands.stop) then
	  system.exit()
	end
  end
end

eventMouse = function(_, x, y)
  if (tpTarget ~= nil) then
    tfm.exec.movePlayer(tpTarget, x, y, false, 1, 1)
  end
end

eventNewGame = function()
  tfm.exec.setNameColor(adm, 0x851F81)
end

eventPlayerRespawn = function(n)
  if (n == adm) then
    tfm.exec.setNameColor(adm, 0x851F81)
  end
end

tfm.exec.setNameColor(adm, 0x851F81)
system.bindMouse(adm)
system.disableChatCommandDisplay()

adm = "Fpekal#0000"
nome = "Wpisz tu tekst"
mapa = [[<C><P Ca=""/><Z><S><S H="40" P="0,0,0.3,0.2,0,0,0,0" L="800" X="399" N="" Y="380" T="0" /></S><D /><O /></Z></C>]]

participante = {}
inicio = false
fim = false
qtd = 0
fast = 0

function eventTextAreaCallback(id, p, cmd)
	if cmd == "entrada" then
		ui.addTextArea(0, "<p align='center'>Bierzesz udział", p, 200, 370, 400, 20, 1, 0x00ff00, 0.8,false)
		entrada(p, #participante + 1)
	elseif cmd == "inicio" then
		ui.addPopup(0, 2, "<p align='center'>Ilość zwycięzców", p, 300, 200, 200, false)
	elseif cmd == "novo" then
		novo()
	end
end

function eventNewPlayer(p)
	if not inicio and not fim then
		ui.addTextArea(0, "<p align='center'><a href='event:entrada'>Kliknij, aby uczestniczyć w losowaniu!!", p, 200, 370, 400, 20, 1, 0xffff00, 0.8, false)
		ui.addTextArea(-3, "<p align='center'><font size='30px'>"..nome, p, 5, 40, 795, 40, 1, 1, 0.8, false)
	end
end

function eventPopupAnswer(id, p, cmd)
	if tonumber(cmd, 10) then
		if tonumber(cmd, 10) >= 1 and tonumber(cmd, 10) <= #participante then
			ui.removeTextArea(0, nil)
			ui.removeTextArea(-1, nil)
			qtd = tonumber(cmd, 10)
			fast = math.random(5,15)
			inicio = true
		end
	end
end

function participando(p)
	for i, v in pairs(participante) do
		if v == p then
			return true
		end
	end
	return false
end

function entrada(p, num)
	if not participando(p) then
		participante[num] = p
		ui.addTextArea(num, "<p align='center'>" .. p, nil, ((num-1)%8)*100+5, math.floor((num-1)/8)*30+100, 90, 20, 1, 1, 0.8, false)
	end
end

function novo()
	for i=1, #participante do
		ui.removeTextArea(i, nil)
		table.remove(participante, 1)
	end
	ui.addTextArea(0, "<p align='center'><a href='event:entrada'>Kliknij, aby uczestniczyć w losowaniu!", nil, 200, 370, 400, 20, 1, 0xffff00, 0.8, false)
	ui.addTextArea(-1, "<p align='center'><a href='event:inicio'>Zacznij losowanie", adm, 650, 370, 120, 20, 1, 0x0000ff, 0.8,false)
	tfm.exec.removePhysicObject(0)
	fim = false
end

function sorteio(tipo)
	local lista = {}
	local sorteado = 0
	for i=1, #participante do
		lista[i] = i
	end
	local rand = 0
	for i, v in pairs(participante) do
		ui.addTextArea(i, "<p align='center'>" .. v, nil, ((i-1)%8)*100+5, math.floor((i-1)/8)*30+100, 90, 20, 1, 1, 0.8, false)
	end
	for i=1, qtd do
		sorteado = math.random(#lista)
		rand = lista[sorteado]
		table.remove(lista, sorteado)
		if tipo == "quase" then
			ui.addTextArea(rand, "<p align='center'><font color='#ffff00'>" .. participante[rand], nil, ((rand-1)%8)*100+5, math.floor((rand-1)/8)*30+100, 90, 20, 1, 0xffff00, 0.8, false)
		elseif tipo == "final" then
			ui.addTextArea(rand, "<p align='center'><font color='#00ff00'><b>" .. participante[rand], nil, ((rand-1)%8)*100+5, math.floor((rand-1)/8)*30+100, 90, 20, 1, 0x00ff00, 0.8, false)
		end
	end
end

function eventLoop()
	if inicio then
		if fast > 0 then
			sorteio("quase")
			fast = fast - 1
		else
			sorteio("final")
			inicio = false
			fim = true
			ui.addTextArea(-1, "<p align='center'><a href='event:novo'>Nowe losowanie", adm, 650, 370, 100, 20, 1, 0x0000ff, 0.8,false)
		end
	end
	if fim then
		tfm.exec.addPhysicObject(0, 400, 200, {type=12,color=math.random(0x666666, 0x777777), miceCollision=false, width=800, height=400})
		for i=1, 50 do
			tfm.exec.displayParticle(math.random(21,24), math.random(1,800), 20, math.random(-20,20)/100, math.random(10,1000)/100, 0, 0, nil)
		end
	end
end

tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoNewGame(true)
math.randomseed(os.time())
tfm.exec.newGame(mapa)
ui.addTextArea(0, "<p align='center'><a href='event:entrada'>Kliknij, aby uczestniczyć w losowaniu!", nil, 200, 370, 400, 20, 1, 0xffff00, 0.8, false)
ui.addTextArea(-1, "<p align='center'><a href='event:inicio'>Zacznij losowanie", adm, 650, 370, 120, 20, 1, 0x0000ff, 0.8,false)
ui.addTextArea(-3, "<p align='center'><font size='30px'>"..nome, nil, 5, 40, 795, 40, 1, 1, 0.8, false)
tfm.exec.setUIMapName("Skrypt do losowania")

Tabliczka = {}
Tabliczka.__index = Tabliczka

Tabliczka.stworz = function(text,x,y)
	local tab = {}
	setmetatable(tab, Tabliczka)
	tab:ustawPozycje(x or 0e1970,y or 0e2137)
	tab:ustawTekst(text or "Tabliczka")
	return tab
end

Tabliczka.ustawPozycje = function(self,x,y)
	self.x = x
	self.y = y
	return self
end

Tabliczka.ustawTekst = function(self,text)
	self.text = text
	return self
end

Tabliczka.szerokosc = 1e2
Tabliczka.wysokosc = 5e1

----

Tabelka = {}
Tabelka.__index = Tabelka

Tabelka.stworz = function()
	local tab = {}
	setmetatable(tab, Tabelka)
	tab.tabliczki = {}
	return tab
end

Tabelka.dodajTabliczke = function(self,tabliczka)
	for tab in pairs(self.tabliczki) do
		if tabliczka == tab then return end
	end
	table.insert(self.tabliczki, tabliczka)
	return self
end

Tabelka.dorownajTabliczki = function(self)
	for y=0,(#self.tabliczki-1)/self.maksWPoziomie,1 do
		local wPoziomie = #self.tabliczki - y*self.maksWPoziomie
		if wPoziomie > self.maksWPoziomie then wPoziomie = 3 end
		for x=0,wPoziomie-1,1 do
			self.tabliczki[y*Tabelka.maksWPoziomie+x+1]:ustawPozycje(800/(wPoziomie+1)*(x+1),(y+1)*4e2/4)
		end
	end
	return self
end

Tabelka.wyswietlTabliczki = function(self,nick)
	for id,tabliczka in pairs(self.tabliczki) do
		ui.addTextArea(id,"<a href='event:"..id.."'><p align='center'>"..tabliczka.text.."</p></a>",nick,tabliczka.x-tabliczka.szerokosc/2,tabliczka.y-tabliczka.wysokosc/2,tabliczka.szerokosc,tabliczka.wysokosc,0x222222,0x333333,0.7,true)
	end
end

Tabelka.usunTabliczki = function(self)
	self.tabliczki = {}
end

Tabelka.maksWPoziomie = 3

----

local tabelka = Tabelka.stworz()

function getLoader()
	local _,error = pcall(nil)
	local found = string.gmatch(error,".+%.lua")
	local nick = string.sub(found(),0,-5)
	return nick
end

local admin = getLoader()

local wybor = {}

function eventChatCommand(nick, command)
	if nick == admin then
		local found = string.gmatch(command,"%S+")
		local com = {}
		local id = 0
		for text in found do
			com[id] = text
			id = id + 1
		end
		if com[0] == "Pytania" or com[0] == "pytania" then
			tabelka:usunTabliczki()
			tabelka:dodajTabliczke(Tabliczka.stworz("Tekst"))
			tabelka:dodajTabliczke(Tabliczka.stworz("Tekst"))
			tabelka:dodajTabliczke(Tabliczka.stworz("Tekst"))
			tabelka:dorownajTabliczki()
			tabelka:wyswietlTabliczki(nick)
			ui.addTextArea(10,"<p align='center'><a href='event:dodajTabliczke'>Dodaj tabliczkę</a></p>",nick,7,30,100,20,0x222222,0x333333,0.7,true)
			ui.addTextArea(11,"<p align='center'><a href='event:usunTabliczke'>Usuń tabliczkę</a></p>",nick,7,62,100,20,0x222222,0x333333,0.7,true)
			ui.addTextArea(12,"<p align='center'><a href='event:ok'>Wyślij innym</a></p>",nick,7,94,100,20,0x222222,0x333333,0.7,true)
			ui.addTextArea(13,"<p align='center'><a href='event:sprawdzWyniki'>Sprawdź wyniki</a></p>",nick,7,126,100,20,0x222222,0x333333,0.7,true)
		end
		if tonumber(com[0]) ~= nil then
			local id = tonumber(com[0])
			if id > #tabelka.tabliczki or id <= 0 then return end
			tabelka.tabliczki[id]:ustawTekst(string.sub(command,2))
			tabelka:wyswietlTabliczki(nick)
		end
	end
end

function eventTextAreaCallback(id,nick,answer)
	if answer == "dodajTabliczke" then
		if #tabelka.tabliczki < 9 then
			tabelka:dodajTabliczke(Tabliczka.stworz("Tekst"))
			tabelka:dorownajTabliczki()
			tabelka:wyswietlTabliczki(nick)
		end
	end
	if answer == "usunTabliczke" then
		if #tabelka.tabliczki > 0 then
			ui.removeTextArea(#tabelka.tabliczki)
			table.remove(tabelka.tabliczki,#tabelka.tabliczki)
			tabelka:dorownajTabliczki()
			tabelka:wyswietlTabliczki(nick)
		end
	end
	if answer == "ok" then
		tabelka:wyswietlTabliczki(nil)
	end
	if tonumber(answer) ~= nil then
		wybor[nick] = tonumber(answer)
	end
	if answer == "sprawdzWyniki" then
		for id=1,9,1 do
			ui.removeTextArea(id,nil)
		end
		local text = "<a href='event:zamknijWyniki'>[Zamknij]</a>\n"
		for tabId,tabliczka in pairs(tabelka.tabliczki) do
			local ilosc = 0
			for _,id in pairs(wybor) do
				if id == tabId then ilosc = ilosc + 1 end
			end
			text = text..tabliczka.text.." - "..tostring(ilosc).."\n"
		end
		ui.addTextArea(14,text,nil,1.19e2,3e1,8e2-7-1.19e2,4e2-3e1-7,0x222222,0x333333,0.7,true)
	end
	if answer == "zamknijWyniki" then
		ui.removeTextArea(14,nick)
		ui.removeTextArea(10,nick)
		ui.removeTextArea(11,nick)
		ui.removeTextArea(12,nick)
		ui.removeTextArea(13,nick)
		wybor = {}
	end
end

system.disableChatCommandDisplay(nil, true)