Open Tibia Forum

--- Instalacja ---
-- w data/talkactions/scripts/ stworz plik "boisko.lua".
-- wpisz w nim owy kod, ktory wlasnie czytasz.
-- w data/talkactions/talkactions.xml dodaj ponizsze 6 linijek usuwajac na poczatku "--".
-- <talkaction words="!yellow" script="boisko.lua" />
-- <talkaction words="!red" script="boisko.lua" />
-- <talkaction words="!gool" script="boisko.lua" />
-- <talkaction words="!start" script="boisko.lua" />
-- <talkaction words="!koniec" script="boisko.lua" />
-- <talkaction words="!sedzia" script="boisko.lua" />
------------------

--- Komendy ---
---Sedzia---
-- !koniec -- zakonczenie meczu
-- !start -- Rozpoczecie Meczu
-- !yellow "nick -- przyznanie zoltej kartki(2 zolte = czerwona)
-- !red "nick -- przyznanie czerwonej kartki
-- !gool "1/2 -- 1 = druzyna 1, 2 = druzyna 2.
---GameMaster ---
-- !sedzia "nick -- mianowanie gracza na tytul sedzi
----------------


function onSay(cid, words, param)

--- Ustawienia ---
local druzyna = {"Real Madryt", "AC Milan"}
local lgorny_rog = {980, 980} -- pozycja lewego, gornego rogu boiska
local pdolny_rog = {1020, 1020} -- pozycja prawego, dolnego rogu boiska
local zet = 7 -- pozycja "z" boiska
local backpos = {x=1000, y=1000, z=7} -- pozycja, gdzie zostaje teleportniety gracz, gdy uzyska czerwona kartke
------------------

local yellow_card = 165
local red_card = 166
local sedzia = 155
local started = 555

nname = getPlayerByName(param)


if(getPlayerStorageValue(cid, sedzia)==TRUE)then
if(words=="!start")then
if(getGlobalStorageValue(started)<=FALSE)then
setGlobalStorageValue(started, TRUE)
setGlobalStorageValue(103, 0)
setGlobalStorageValue(104, 0)
doPlayerSay(cid, "/B Mecz Rozpoczety! dzisiaj graja: "..druzyna[1].." vs. "..druzyna[2].."!", 18)
else
doPlayerSendCancel(cid, "Aktualnie mecz jest rozgrywany.")
end
end
end

if(getPlayerStorageValue(cid, sedzia)==TRUE)then
if(words=="!koniec")then
if(getGlobalStorageValue(started)==TRUE)then
setGlobalStorageValue(started, FALSE)
setGlobalStorageValue(103, 0)
setGlobalStorageValue(104, 0)
doPlayerSay(cid, "/B Mecz Zostal zakonczony! Wynik: "..druzyna[1].." "..getGlobalStorageValue(103).." : "..getGlobalStorageValue(104).." "..druzyna[2].."!", 18)
else
doPlayerSendCancel(cid, "Aktualnie mecz nie jest rozgrywany.")
end
end
end

if(getPlayerStorageValue(cid, sedzia)==TRUE)then
if(getGlobalStorageValue(started)==TRUE)then
if(words=="!gool")then
if(param=="1")then
setGlobalStorageValue(103, getGlobalStorageValue(103)+1)
doPlayerSay(cid, "/B GOOL! Wynik: "..druzyna[1].." "..getGlobalStorageValue(103).." : "..getGlobalStorageValue(104).." "..druzyna[2].."!", 18)
elseif(param=="2")then
setGlobalStorageValue(104, getGlobalStorageValue(104)+1)
doPlayerSay(cid, "/B GOOL! Wynik: "..druzyna[1].." "..getGlobalStorageValue(103).." : "..getGlobalStorageValue(104).." "..druzyna[2].."!", 18)
elseif(param=="wynik")then
doPlayerSendTextMessage(cid, 19, "Wynik: "..druzyna[1].." | "..getGlobalStorageValue(103).." : "..getGlobalStorageValue(104).." | "..druzyna[2].."!")
end
end
else
doPlayerSendCancel(cid, "Zaden Mecz nie jest rozgrywany.")
end
end

if(words=="!sedzia")then
if(getPlayerAccess(cid) >= 3)then
if(getPlayerAccess(nname) >= 1)then
if(getPlayerStorageValue(cid, sedzia)==1)then
doPlayerSendCancel(cid, "Ten Gracz ma status sedzi.")
else
setPlayerStorageValue(nname, sedzia, 1)
doPlayerSendCancel(cid, "Gracz zostal mianowany sedzia.")
doPlayerSendTextMessage(nname,19, "Gratulacje, jestes sedzia!")
end
else
doPlayerSendCancel(cid, "Sedzia moze zostac osoba ze stanowiskiem wiekszym lub rownym Tutorowi.")
end
end
end

if(getGlobalStorageValue(started)==TRUE)then
if(getPlayerStorageValue(cid, sedzia)==TRUE)then
if(isPlayer(nname)==TRUE)then
if(words=="!red")then
setPlayerStorageValue(nname, red_card, 1)
doTeleportThing(nname, backpos)
doPlayerSay(cid, "/B Gracz "..param.." Dostal czerwona kartke!", 18)
elseif(words=="!yellow")then
if(getPlayerStorageValue(nname, yellow_card)==0)then
setPlayerStorageValue(nname, yellow_card, 1)
doPlayerSay(cid, "/B Gracz "..param.." Dostal zolta kartke!", 18)
else
setPlayerStorageValue(nname, yellow_card, 0)
setPlayerStorageValue(nname, red_card, 1)
doTeleportThing(nname, backpos)
doPlayerSay(cid, "/B Gracz "..param.." Dostal zolta kartke, konczy sie to czerwona kartka!", 18)
end
end
else
doPlayerSendCancel(cid, "This player is not online.")
end
end
else
doPlayerSendCancel(cid, "Zaden Mecz nie jest rozgrywany.")
end
return words
end