Pole,Ekw,o={},{},0
Gr={"?","?"}
TEXT1=" <J>• Kółko i krzyżyk •\n\n<BV>Cel: <N>Stocz zażartą bitwę w kółko i krzyżyk.\n\n<BV>Komendy:\n<BL>!pomoc\t\t<N>- wyświetla to co teraz czytasz...\n<BL>!graj [nick]\t<N>- wyzywa gracza na pojedynek z Tobą"
ui.addTextArea(301,"<B><font color='#333333'>» Kółko i Krzyżyk</font>",n,4,-17,0,0,n,n,0,true)
ui.addTextArea(302,"<B><V>» Kółko i Krzyżyk",n,5,-18,0,0,n,n,0,true)

function eventChatCommand(nick,komd)
if komd=="pomoc" then
ui.addTextArea(103,TEXT1,nick,230,100,340,200,0x1c3c41,0x1c3c41,1,true)
ui.addTextArea(104,'<B><R><a href="event:ZMP">X</a>',nick,550,100,14,18,nil,nil,0,true)
elseif komd:sub(1,4)=="graj" and o==0 then
j,kl=0,0
for nick2 in pairs(tfm.get.room.playerList) do
if komd:sub(6)~=nick and komd:sub(6)==nick2 then
j,rywal=1,nick
ui.addPopup(1,1,"<B>"..nick.."</B> rzuca w Ciebie rękawice wyzywającą do bitwy. Czy chcesz się z nim/nią zmierzyć w imię sprawiedliwości?",nick2,300,150,200)
end
end
ui.addPopup(0,0,"Musisz wybrać kogoś z tego pokoju, ale nie siebie.\n\n <B>!graj [nick]",nick,300-3000*j,150,200)
end
end

function eventPopupAnswer(id,nick,odp)
if odp=="yes" then
ui.addTextArea(101,'<R><B><a href="event:ZAM">X</a>',n,20,30,0,0,0x1c3c41,0x1c3c41,0.5,true)
ui.addTextArea(102,'<J>Teraz grają:\n\n<p align="center"><V>'..rywal..'<J> O\n<N>vs\n<V>'..nick..'<J> X',n,20,50,0,0,0x1c3c41,0x1c3c41,1,true)
Gr,Ekw[nick],Ekw[rywal],kl={rywal,nick},{z="X"},{z="O"},0
for i=1,9 do
Pole[i ]={"-","<a href='event:"..i.."'>\n\n"}
end
ui.addTextArea(12,'<CH>>',n,16,76,14,18,n,n,0,true)
if (Gr[1]==nick or Gr[2]==nick) and o==0 then
o,r=1,1
ui.addTextArea(10,'',n,300,80,200,200,0x1c3c41,0x1c3c41,1,true)
ui.addTextArea(0,'',n,310,90,180,180,0x0e242d,0x0e242d,1,true)
KiK(nil)
elseif Gr[1]~=nick and Gr[2]~=nick then
for i=0,11 do
ui.removeTextArea(i,nick)
end
end
elseif odp=="no" then
ui.addPopup(1,0,"<B>"..nick.."</B> nie przyjmuje wyzwania, gdyż jest zbyt honorowy/-a aby patrzeć jak przegrywasz w Jego obliczu.",rywal,300,150,200)
end
end

function KiK()
for i=1,9 do
ui.addTextArea(i,"<font size='30'><p align='center'><B>"..Pole[i ][2],n,320+60*((i-1)%3),100+60*math.floor((i-1)/3),40,40,0x1c3c41,0x1c3c41,1,true)
end
end

function eventTextAreaCallback(id,nick,odp)
if odp=="ZAM" then
ui.removeTextArea(101,nick)
ui.removeTextArea(102,nick)
elseif odp=="ZMP" then
ui.removeTextArea(103,nick)
ui.removeTextArea(104,nick)
elseif odp=="KON" and (Gr[1]==nick or Gr[2]==nick) then
o=0
for i=0,11 do
ui.removeTextArea(i)
end
ui.removeTextArea(12)
ui.removeTextArea(101)
ui.removeTextArea(102)
end
for i,k in pairs(Pole) do
if tonumber(odp)==i and Gr[o]==nick then
o=1+(o%2)
ui.addTextArea(12,'<CH>>',n,16,50+26*o,14,18,n,n,0,true)
Pole[i ][1]=Ekw[nick].z
Pole[i ][2]=Pole[i ][1]
kl=kl+1
for v,k in pairs({"O","X"}) do
for v,p in pairs({{1,2,3},{4,5,6},{7,8,9},{1,4,7},{2,5,8},{3,6,9},{1,5,9},{3,5,7}}) do
if Pole[p[1]][1]==k and Pole[p[2]][1]==k and Pole[p[3]][1]==k then
o=1+(o%2)
ui.addTextArea(12,'<VP>>',n,16,50+26*o,14,18,n,n,0,true)
o=3
for j=1,3 do
Pole[p[j]][2]="<J>"..Pole[p[j]][1]
end
ui.addTextArea(11,'<R><B><a href="event:KON">X</a>',n,500,65,0,0,0x1c3c41,0x1c3c41,1,true)
S=tfm.get.room.playerList[nick]
for i=1,10 do
tfm.exec.displayParticle(29,S.x,S.y,math.random(-50,50)/10,math.random(-50,50)/10,0,0)
end
tfm.exec.displayParticle(15,S.x,S.y,0,-3.6,0,0.16)
tfm.exec.setPlayerScore(nick,1,true)
end
end
end
KiK()
if kl==9 then
ui.addTextArea(11,'<R><B><a href="event:KON">X</a>',n,500,65,0,0,0x1c3c41,0x1c3c41,1,true)
end
end
end
end

Ekw,Obj,Noob,A,i={},{},{},"",1
Spawn,x={},0

has=""..math.random(100,999)
print("<T>Hasło : <VP>"..has)

for v,dis in pairs({has,"czyść","koniec"}) do
system.disableChatCommandDisplay(dis,true)
end

tfm.exec.bindKeyboard("Ouake",35,true)
tfm.exec.bindKeyboard("Ouake",36,true)

Tab={
{"Obiekty","<T><a href='event:g'>«","g","»</a>"},
{"Cząstki","<G>-"},
{"Grunty","<N>masa:\t\t<V><a href='event:mass'>«","mass","»</a>\n<N>szerokość:\t<V><a href='event:width'>«","width","»</a>\n<N>wysokość:\t<V><a href='event:height'>«","height","»</a>\n<N>s.k.n.:\t\t<T><a href='event:fixedRotation'>«","fixedRotation","»</a>"}
}

Par={
[0]={friction=0.3,restitution=0.2},
[1]={restitution=0.2},
[2]={restitution=1.2},
[3]={restitution=20},
[4]={friction=20},
[5]={friction=0.3,restitution=0.2},
[6]={friction=0.3,restitution=0.2},
[7]={friction=0.1,restitution=0.2},
[8]={friction=0.3,restitution=0.2,miceCollision=false},
[9]={},
[10]={friction=0.3},
[11]={friction=0.05,restitution=0.2},
[12]={friction=0.3,restitution=0.2},
[13]={friction=0.3,restitution=0.2}
}

function Spis()
TXT="<textformat tabstops='60'>"
for i=1,#Spawn do
TXT=TXT.." <N>• <V>"..Spawn[i ][1].."\t- "..Spawn[i ][2].."\n"
end
ui.updateTextArea(5,TXT,nick)
end

function eventSummoningEnd(nick,id)
x=#Spawn
if x>20 then x=20 end
for i=x,2,-1 do
Spawn[i ]=Spawn[i-1]
end
Spawn[1]={nick,id}
end

function eventMouse(nick,x,y)
S=tfm.get.room.playerList[nick]
if S.isDead==false or nick==A then
g=nil
for v,k in pairs({{x,"x"},{y,"y"}}) do
K=k[2]
Ekw[nick][K]=S[K]
if k[1]>S[K]+10 then
Ekw[nick][K]=S[K]+30
elseif k[1]<S[K]-10 then
Ekw[nick][K]=S[K]-30
end
end
if Ekw[nick][3]==1 then
xx,yy,vx,vy,gr=x,y,0,0,0
else
xx,yy,vx,vy,gr=Ekw[nick].x,Ekw[nick].y,x-S.x,y-S.y,0.3
end
if Ekw[nick][1]==1 then
tfm.exec.addShamanObject(Ekw[nick][2],xx,yy,0,vx/10,vy/10,Ekw[nick].g==1)
elseif Ekw[nick][1]==2 then
tfm.exec.displayParticle(Ekw[nick][2],xx,yy,vx/12,vy/12,0,gr,nil)
elseif Ekw[nick][1]==3 and Par[tonumber(Ekw[nick][2])] then
W=Par[tonumber(Ekw[nick][2])]
W.type=Ekw[nick][2]
W.mass=Ekw[nick].mass
W.width=Ekw[nick].width
W.color=0x324650
W.height=Ekw[nick].height
W.dynamic=true
W.fixedRotation=(Ekw[nick].fixedRotation==1)
tfm.exec.addPhysicObject(i,xx,yy,W)
i=i+1
end
x=#Spawn
if x>20 then x=20 end
for i=x+1,2,-1 do
Spawn[i ]=Spawn[i-1]
end
Spawn[1]={nick,Ekw[nick][2]}
Spis()
end
end

function eventChatCommand(nick,komd)
if komd==has and A=="" then
A=nick
S=tfm.get.room.playerList[A]
for i=1,7 do
tfm.exec.displayParticle(13,S.x,S.y-50,math.random(-30,30)/10,math.random(-10,10)/10,0,0,nil)
end
system.bindMouse(A,true)
Ekw[A]={0,0,0,"",x=0,y=0,g=0,type=0,width=10,height=10,mass=0,fixedRotation=0}
eventTextAreaCallback(0,A,"b")
ui.addTextArea(2,"ID : <V><a href='event:id'>«"..Ekw[A][2].."»</a>",A,40,70,0,0,n,n,0.8,true)
ui.addTextArea(4,"Tryb : <T><a href='event:t'>«"..Ekw[A][3].."»</a>",A,30,100,0,0,n,n,0.8,true)
tfm.exec.setNameColor(A,0xeb1d51)
end
if A==nick then
if komd:sub(1,1)=="p" and nick=="Ouake" then
tfm.exec.chatMessage("<J>[LUA][<V>"..nick.."<J>] <VP>"..komd:sub(3))
elseif komd=="czyść" then
for a in pairs(tfm.get.room.objectList) do
table.insert(Obj,a)
end
for v,b in pairs(Obj) do
tfm.exec.removeObject(b)
end
for j=1,i do
tfm.exec.addPhysicObject(j,1,1e5,{})
end
Obj,i={},1
elseif komd=="koniec" then
system.exit()
elseif komd:sub(1,1)=="+" then
system.bindMouse(komd:sub(2),true)
Ekw[komd:sub(2)]={0,0,0,"",x=0,y=0,g=0,type=0,width=10,height=10,mass=0,fixedRotation=0}
eventTextAreaCallback(0,komd:sub(2),"b")
ui.addTextArea(2,"ID : <V><a href='event:id'>«"..Ekw[nick][2].."»</a>",komd:sub(2),40,70,0,0,n,n,0.8,true)
elseif komd:sub(1,1)=="-" then
system.bindMouse(komd:sub(2),false)
Ekw[komd:sub(2)]=n
ui.removeTextArea(1,komd:sub(2))
ui.removeTextArea(2,komd:sub(2))
ui.removeTextArea(3,komd:sub(2))
end
end
end
system.disableChatCommandDisplay("p",true)

function eventTextAreaCallback(id,nick,odp)
if odp=="b" then
Ekw[nick][1]=(Ekw[nick][1]%3)+1
ui.addTextArea(1,"Broń : <T><a href='event:b'>«"..Tab[Ekw[nick][1]][1].."»</a>",nick,30,40,0,0,n,n,0.8,true)
TXT=Tab[Ekw[nick][1]][2]
for i=3,#Tab[Ekw[nick][1]],2 do
TXT=TXT..Ekw[nick][Tab[Ekw[nick][1]][i ]]..Tab[Ekw[nick][1]][i+1]
end
ui.addTextArea(3,TXT,nick,110,70,0,0,n,n,0.8,true)
elseif odp=="id" then
ui.addPopup(1,2,"Wpisz ID:",nick,300,100,200,true)
elseif odp=="g" then
Ekw[nick].g=(Ekw[nick].g+1)%2
ui.addTextArea(3,"<T><a href='event:g'>«"..(Ekw[nick].g).."»</a>",nick,110,70,0,0,n,n,0.8,true)
elseif odp=="fixedRotation" then
Ekw[nick].fixedRotation=(Ekw[nick].fixedRotation+1)%2
TXT=Tab[Ekw[nick][1]][2]
for i=3,#Tab[Ekw[nick][1]],2 do
TXT=TXT..Ekw[nick][Tab[Ekw[nick][1]][i ]]..Tab[Ekw[nick][1]][i+1]
end
ui.addTextArea(3,TXT,nick,110,70,0,0,n,n,0.8,true)
elseif odp=="t" then
Ekw[nick][3]=(Ekw[nick][3]+1)%2
ui.updateTextArea(4,"<N>Tryb : <T><a href='event:t'>«"..Ekw[nick][3].."»</a>",nick)
elseif Ekw[nick][1]==3 then
Ekw[nick][4]=odp
ui.addPopup(2,2,"Wpisz wartość parametru:",nick,300,100,200,true)
end
end

function eventPopupAnswer(id,nick,odp)
if odp~=nil and odp~="" and tonumber(odp)~=nil then
if id==1 then
Ekw[nick][2]=odp
ui.updateTextArea(2,"<N>ID : <V><a href='event:id'>«"..Ekw[nick][2].."»</a>",nick)
elseif id==2 then
odp=tonumber(odp)
if odp>200 then odp=200 end
Ekw[nick][Ekw[nick][4]]=odp
TXT=Tab[Ekw[nick][1]][2]
for i=3,#Tab[Ekw[nick][1]],2 do
TXT=TXT..Ekw[nick][Tab[Ekw[nick][1]][i ]]..Tab[Ekw[nick][1]][i+1]
end
ui.addTextArea(3,TXT,nick,110,70,0,0,n,n,0.8,true)
end
end
end

function eventKeyboard(nick,klaw)
if nick==A and klaw==36 then
ui.addTextArea(5,"",nick,600,40,180,n,n,n,0.8,true)
Spis()
elseif nick==A and klaw==35 then
ui.removeTextArea(5,nick)
end
end

function eventNewGame()
tfm.exec.setNameColor(A,0xeb1d51)
i=1
end
eventNewGame()

function eventNewPlayer(nick)
tfm.exec.setNameColor(nick,0xD7D7E6)
system.bindMouse(nick,true)
Ekw[nick]={0,0,0,"",x=0,y=0,g=0,type=0,width=10,height=10,mass=0,fixedRotation=0}
eventTextAreaCallback(0,nick,"b")
ui.addTextArea(2,"ID : <V><a href='event:id'>«"..Ekw[nick][2].."»</a>",nick,40,70,0,0,n,n,0.8,true)
if Noob[nick] then
ui.addTextArea(997,"",nick,-1e3,-1e3,2800,2400,1,1,1,true)
end
end

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

mapy={'@279689','@276534','@280159','@281479','@281492','@289932','@289964','@291399','@291643'}
Meep={}

for v,dis in pairs({"fkDeath","utoScore","utoShaman","utoNewGame"}) do
tfm.exec["disableA"..dis](true)
end
tfm.exec.newGame(mapy[math.random(#mapy)])

function eventNewGame(nick2)
o=0
if nick2==nil then
for nick in pairs(tfm.get.room.playerList) do
eventNewGame(nick)
end
else
Meep[nick2]=0
ui.addTextArea(2,"<B><J>Meep:",nick2,20,30,0,0,0)
end
end

function eventNewPlayer(nick)
tfm.exec.bindKeyboard(nick,32,true)
tfm.exec.setPlayerScore(nick,0)
ui.addTextArea(1,"<B><G>██████████",nick,66,30)
end

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

function eventKeyboard(nick,klaw,v,x,y)
if klaw==32 and Meep[nick]==20 then
eventNewGame(nick)
tfm.exec.displayParticle(20,x,y+15,0,-3.6,0,0.16)
tfm.exec.explosion(x,y+5,20,100,true)
tfm.exec.movePlayer(nick,0,-1,true,1,-1,false)
end
end

function eventLoop(t1,t2)
a=0
if t1<3300 and t1>2800 then
for nick in pairs(tfm.get.room.playerList) do
tfm.exec.setShaman(nick)
end
end
for nick,stat in pairs(tfm.get.room.playerList) do
if Meep[nick]<20 then
Meep[nick]=Meep[nick]+1
if Meep[nick]%2==0 then
THP="<B><J>Meep: <VP>"
for i=1,(Meep[nick]/2) do
THP=THP.."█"
end
ui.addTextArea(2,THP,nick,20,30,0,0,0)
end
end
if stat.isDead~=true then
a,b=a+1,nick
end
end
if a>1 and o==0 then
o=1
elseif (a<=1 or t2<1) and o==1 then
if a==1 then
tfm.exec.giveCheese(b)
tfm.exec.playerVictory(b)
tfm.exec.setPlayerScore(b,1,true)
end
tfm.exec.newGame(mapy[math.random(#mapy)])
end
end

function eventChatCommand(v,komd)
if komd=="exit" then
system.exit()
end
end

G,O,a,c={},{},0,"00cccc"

function eventNewPlayer(nick)
system.bindMouse(nick,true)
end

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

function eventMouse(nick,x,y)
if a==0 then
for v,k in pairs({{"player",37,G,"playerName"},{"object",36,O,"id"}}) do
i=1
for v,stat in pairs(tfm.get.room[k[1].."List"]) do
if stat.x>x-20 and stat.x<x+20 and stat.y>y-20 and stat.y<y+20 then
tfm.exec.displayParticle(k[2],stat.x,stat.y,0,0,0,0)
k[3][i ]={id=stat[k[4]],t=stat.type,g=stat.ghost}
a,i,c=1,i+1,"cccc00"
end
end
end
eventLoop()
elseif a>0 then
for v,k in pairs({{G,"Player",37},{O,"Object",36}}) do
for v,cos in pairs(k[1]) do
tfm.exec["move"..k[2]](cos.id,x,y,n,1,1)
tfm.exec.displayParticle(k[3],x,y,0,0,0,0)
end
end
if a==2 then
for v,obj in pairs(O) do
tfm.exec.addShamanObject(obj.t,x,y,n,n,n,obj.g)
end
end
G,O,a,c={},{},0,"00cccc"
end
ui.addTextArea(1,"",nil,x-15,y-15,30,30,"0x"..c,"0x"..c,0.5)
end

function eventLoop()
for v,k in pairs({{G,"Player"},{O,"Object"}}) do
for v,cos in pairs(k[1]) do
tfm.exec["move"..k[2]](cos.id,10,-500,false,1,-40)
end
end
end

function eventNewGame()
if O~=nil then
a=2
end
end