Sistema TFS 0.X SNOWBAL EVENT TIBIA

**KotZletY** · Fevereiro 7, 2017

Com certeza não. Só você olhar o que o console está apontando. Ou então você printou o erro pela metade, e cortou a foto, não sei pra que, vergonha de mostra o pc ? Vergonha de mostra a distro ?

Posta a foto do erro todo ae, completa. E posta o seu movements.

Se não é esse o erro qual seria ? Se já resolveu porque deu up ?

Bagual Corcoveador · Fevereiro 8, 2017

cara tudo funciona normal quando o evento começa o player nao teleporta para o mapa de neve.. fica na area de espera.. oque pode ser? uso TFS 0.4

Segue o erro no distro.

Spoiler

[19:3:00.869] [Error - GlobalEvent Interface]
[19:3:00.872] In a timer event called from:
[19:3:00.875] data/globalevents/scripts/events/snowballglobalevent.lua:onTime
[19:3:00.878] Description:
[19:3:00.880] .../globalevents/scripts/events/snowballglobalevent.lua:58: attempt to call global 'Position' (a nil value)
[19:3:00.884] stack traceback:
[19:3:00.885] .../globalevents/scripts/events/snowballglobalevent.lua:58: in function <.../globalevents/scripts/events/snowballglobalevent.lua:52>

~~LuanMattheus~~ · Fevereiro 10, 2017

Como coloca pra os 3 primeiros ganhar premios?

tetheuscunha · Fevereiro 22, 2017

Como usar em SQLITE? Consegui alterar pra SQLITE.

-- Estou agora com um pequeno erro, quando entro no evento ele não avisa quem entrou. Já tentei editar o globalevents na parte do SetItemAttribute e não funcionou.

Editado Fevereiro 23, 2017 por tetheuscunha (veja o histórico de edições)

Rafals · Março 10, 2017

Em 08/02/2017 ás 19:10, patrick323 disse:

cara tudo funciona normal quando o evento começa o player nao teleporta para o mapa de neve.. fica na area de espera.. oque pode ser? uso TFS 0.4

Segue o erro no distro.

Ocultar conteúdo

[19:3:00.869] [Error - GlobalEvent Interface]
[19:3:00.872] In a timer event called from:
[19:3:00.875] data/globalevents/scripts/events/snowballglobalevent.lua:onTime
[19:3:00.878] Description:
[19:3:00.880] .../globalevents/scripts/events/snowballglobalevent.lua:58: attempt to call global 'Position' (a nil value)
[19:3:00.884] stack traceback:
[19:3:00.885] .../globalevents/scripts/events/snowballglobalevent.lua:58: in function <.../globalevents/scripts/events/snowballglobalevent.lua:52>

to com o mesmo erro =x help?

lano · Março 22, 2017

Em 08/02/2017 ás 18:10, patrick323 disse:

cara tudo funciona normal quando o evento começa o player nao teleporta para o mapa de neve.. fica na area de espera.. oque pode ser? uso TFS 0.4

Segue o erro no distro.

Ocultar conteúdo

[19:3:00.869] [Error - GlobalEvent Interface]
[19:3:00.872] In a timer event called from:
[19:3:00.875] data/globalevents/scripts/events/snowballglobalevent.lua:onTime
[19:3:00.878] Description:
[19:3:00.880] .../globalevents/scripts/events/snowballglobalevent.lua:58: attempt to call global 'Position' (a nil value)
[19:3:00.884] stack traceback:
[19:3:00.885] .../globalevents/scripts/events/snowballglobalevent.lua:58: in function <.../globalevents/scripts/events/snowballglobalevent.lua:52>

uso TFS 0.4 mesmo erro aqui HELP!

davidguimaraesdrum · Março 23, 2017

Em 22/02/2017 ás 02:03, tetheuscunha disse:

Como usar em SQLITE? Consegui alterar pra SQLITE.

-- Estou agora com um pequeno erro, quando entro no evento ele não avisa quem entrou. Já tentei editar o globalevents na parte do SetItemAttribute e não funcionou.

Eu consigo rodar em SQLITE?

Outra coisa, está dando essa mensagem ao abrir o OT:

[22/03/2017 21:58:07] [Warning - Event::loadScript] Event onTimer not found (data/globalevents/scripts/snowballglobalevent.lua)

Oque pode ser?

Editado Março 23, 2017 por davidguimaraesdrum (veja o histórico de edições)

tetheuscunha · Março 23, 2017

2 horas atrás, davidguimaraesdrum disse:

Eu consigo rodar em SQLITE?

Outra coisa, está dando essa mensagem ao abrir o OT:

[22/03/2017 21:58:07] [Warning - Event::loadScript] Event onTimer not found (data/globalevents/scripts/snowballglobalevent.lua)

Oque pode ser?

Qual versão do TFS? Se for 0.4 abre o arquivo e mude onTimer para onTime

davidguimaraesdrum · Março 23, 2017

3 minutos atrás, tetheuscunha disse:

Qual versão do TFS? Se for 0.4 abre o arquivo e mude onTimer para onTime

Consegui, muito obrigado!

Queria saber se é possível executar o SQL pelo SQLITE ;/

tetheuscunha · Março 23, 2017

2 minutos atrás, davidguimaraesdrum disse:

Consegui, muito obrigado!

Queria saber se é possível executar o SQL pelo SQLITE ;/

Eu estou usando ele SQLITE

davidguimaraesdrum · Março 23, 2017

38 minutos atrás, tetheuscunha disse:

Eu estou usando ele SQLITE

Pode me auxiliar? eu não sei como executar esses comandos pelo SQLITE:

Spoiler

E por fim, vá até o seu banco de dados (phpmyadmin) e insira a seguinte query:

CREATE TABLE IF NOT EXISTS `snowballwar` ( `id` int(11) NOT NULL AUTO_INCREMENT, `name` varchar(255) NOT NULL, `score` int(11) NOT NULL, `data` varchar(255) NOT NULL, `hora` varchar(255) NOT NULL, PRIMARY KEY (`id`), KEY `id` (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

Ainda no phpmyadmin execute:

ALTER TABLE `players` ADD `sbw_points` int(11);

Editado Março 23, 2017 por davidguimaraesdrum (veja o histórico de edições)

Nox · Março 23, 2017

Em 08/02/2017 ás 19:10, patrick323 disse:

cara tudo funciona normal quando o evento começa o player nao teleporta para o mapa de neve.. fica na area de espera..

Mesmo problema.

tetheuscunha · Março 23, 2017

4 horas atrás, Nox disse:

Mesmo problema.

Testa esse aqui. O meu estava dando o mesmo erro, fui la e configurei uma linha, mais nao me recordo qual! kkkkk, ja faz um tempinho que modifiquei. Testa esse e me fala se funcionou.


function onTime()
                
function isInWallArray(pos)
    for k = 0, table.getn(SBW_WALLSID) do
        if (getTileItemById(pos, SBW_WALLSID[k]).itemid == SBW_WALLSID[k]) then
            return true    
        end    
    end
 return false
end

               
function endsnowball()
    local score = {}
    if not SBW_USEWAIT then
        doRemoveItem(getTileItemById(SBW_TP, 1387).uid)
    end
    for _, pid in ipairs(getPlayersOnline()) do
        if getPlayerStorageValue(pid, SBW_INEVENT) > 0 then
            table.insert(score, {getCreatureName(pid), getPlayerStorageValue(pid, SBW_SCORE)})
            doPlayerSetStorageValue(pid, SBW_INEVENT, 0)
            doPlayerSetStorageValue(pid, SBW_SCORE, 0)
            doPlayerSetStorageValue(pid, SBW_AMMO, 0)
            doTeleportThing(pid, SBW_TPEND)
        end
    end
    table.sort(score, function(a, b) return a[2] > b[2] end)
    --local random_item = SBW_REWARDS[math.random(1, #SBW_REWARDS)]
    local hora = os.date("%X")
    local data = os.date("%x")    
    if table.getn(score) > 0 then
        if SBW_ADDREWARD then
            for _, pid in ipairs(getPlayersOnline()) do
                if getCreatureName(pid) == score[1][1] then
                    for op,ad in pairs(SBW_REWARDS) do
                        doPlayerAddItem(pid, ad[1], ad[2])
                    end
                    break
                end
            end
        end
        db.query("INSERT INTO `snowballwar`  VALUES ('', ".. db.escapeString(score[1][1]) ..  ",".. score[1][2] ..", ".. db.escapeString(data) ..", ".. db.escapeString(hora) ..");")  
        db.query("UPDATE `players` SET `sbw_points`=`sbw_points`+".. score[1][2] .." WHERE `name` = " .. db.escapeString(score[1][1]) .. ";")
        doBroadcastMessage("[SNOWBALL EVENT] encerrou-se, parabens ao jogador "..score[1][1].." que venceu o SnowBall Event com "..score[1][2].." pontos.")
    end
    return true
end

local t_l = SBW_AREA[1]
local b_r = SBW_AREA[2]

function moveToEvent()
for _, pid in ipairs(getPlayersOnline()) do
    if isInRange(getCreaturePosition(pid), SBW_WAITROOM[1], SBW_WAITROOM[2]) then
        local posti = {}
        local isPossibleToTeleportPlayer = false
        while (isPossibleToTeleportPlayer == FALSE) do
        doTeleportThing(pid, {x=math.random(t_l.x,b_r.x), y=math.random(t_l.y, b_r.y), z=math.random(t_l.z, b_r.z)})
            if (isInWallArray(posti) == FALSE) then
                isPossibleToTeleportPlayer = TRUE
            end
        end
        doTeleportThing(pid, posti)
        doPlayerSetStorageValue(pid, SBW_INEVENT, 1)
        doPlayerSetStorageValue(pid, SBW_AMMO, SBW_MINAMMO)
        doPlayerSetStorageValue(pid, SBW_SCORE, 0)
        doPlayerSendTextMessage(pid, 27, "[SNOWBALL WAR] Seja bem vindo, aqui estao os comandos que voce vai usar durante o evento\n!snowball atirar --Atirar uma bola de neve.\n!snowball info --Isso mostra seus pontos de jogos e a quantia de bolas de neve que voce tem. Tambem mostra o ranking de pontos do evento.\n Recarregue suas bolas de neve clicando em frente ao gerador no centro do campo.\nAltamente recomendado adicionar estes comandos a sua hotkeys.")                                                                       
    end
end
doRemoveItem(getTileItemById(SBW_TP, 1387).uid)
addEvent(endsnowball, SBW_DURATION*1000*60)
doBroadcastMessage(SBW_MSGSTART)
end

local time = os.date("*t")
local timeopen1 = math.ceil(SBW_TIMEWAIT / 4)
local timeopen2 = math.ceil(SBW_TIMEWAIT / 2)
if (SBW_STARTAUTO) and (isInArray(SBW_DAYS,time.wday)) then
    doBroadcastMessage(SBW_MSGWARNING)
    if SBW_USEWAIT then
        addEvent(doBroadcastMessage, timeopen1*1000*60, "[SNOWBALL WAR] - Resta(m) ".. timeopen2 .." minuto(s) para iniciar o evento!")
        if (timeopen2 ~= timeopen1) then
            addEvent(doBroadcastMessage, timeopen2*1000*60, "[SNOWBALL WAR] - Resta(m) ".. timeopen1 .." minuto(s) para iniciar o evento!")
        end
        addEvent(moveToEvent, SBW_TIMEWAIT*1000*60)
    local tp = doCreateItem(1387, SBW_TPGO, SBW_TP)
        doItemSetAttribute(tp, "aid", 2880)
    else
        if SBW_TFS == "0.4" then
            doSetItemActionId(doCreateItem(tp, SBW_TP), 2880)
        else
            doSetItemActionId(doCreateItem(tp, SBW_TP), 2880)
        end
        if(SBW_DURATION > 0) then
            addEvent(endsnowball, SBW_DURATION*1000*60)
        end
    end
end
return true
end

-------------------------

14 horas atrás, davidguimaraesdrum disse:

Pode me auxiliar? eu não sei como executar esses comandos pelo SQLITE:

Mostrar conteúdo oculto

E por fim, vá até o seu banco de dados (phpmyadmin) e insira a seguinte query:

CREATE TABLE IF NOT EXISTS `snowballwar` ( `id` int(11) NOT NULL AUTO_INCREMENT, `name` varchar(255) NOT NULL, `score` int(11) NOT NULL, `data` varchar(255) NOT NULL, `hora` varchar(255) NOT NULL, PRIMARY KEY (`id`), KEY `id` (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

Ainda no phpmyadmin execute:

ALTER TABLE `players` ADD `sbw_points` int(11);

Tenta esse. No SQLITEStudio aperte ALT + E e coloque esse codigo la dentro e aperte F9.

CREATE TABLE snowballwar ( id INTEGER (11) NOT NULL, name VARCHAR (255) NOT NULL, score INTEGER (11) NOT NULL, data VARCHAR (255) NOT NULL, hora VARCHAR (255) NOT NULL, PRIMARY KEY ( id ) );

Ja este comando

ALTER TABLE `players` ADD `sbw_points` int(11);

E da mesma forma do de cima ALT + E / Colar nas linhas que tem la/ F9

Editado Março 23, 2017 por tetheuscunha (veja o histórico de edições)

Nox · Março 23, 2017

1 hora atrás, tetheuscunha disse:

Testa esse aqui. O meu estava dando o mesmo erro, fui la e configurei uma linha, mais nao me recordo qual! kkkkk, ja faz um tempinho que modifiquei. Testa esse e me fala se funcionou.

Mostrar conteúdo oculto



function onTime()
                
function isInWallArray(pos)
    for k = 0, table.getn(SBW_WALLSID) do
        if (getTileItemById(pos, SBW_WALLSID[k]).itemid == SBW_WALLSID[k]) then
            return true    
        end    
    end
 return false
end

               
function endsnowball()
    local score = {}
    if not SBW_USEWAIT then
        doRemoveItem(getTileItemById(SBW_TP, 1387).uid)
    end
    for _, pid in ipairs(getPlayersOnline()) do
        if getPlayerStorageValue(pid, SBW_INEVENT) > 0 then
            table.insert(score, {getCreatureName(pid), getPlayerStorageValue(pid, SBW_SCORE)})
            doPlayerSetStorageValue(pid, SBW_INEVENT, 0)
            doPlayerSetStorageValue(pid, SBW_SCORE, 0)
            doPlayerSetStorageValue(pid, SBW_AMMO, 0)
            doTeleportThing(pid, SBW_TPEND)
        end
    end
    table.sort(score, function(a, b) return a[2] > b[2] end)
    --local random_item = SBW_REWARDS[math.random(1, #SBW_REWARDS)]
    local hora = os.date("%X")
    local data = os.date("%x")    
    if table.getn(score) > 0 then
        if SBW_ADDREWARD then
            for _, pid in ipairs(getPlayersOnline()) do
                if getCreatureName(pid) == score[1][1] then
                    for op,ad in pairs(SBW_REWARDS) do
                        doPlayerAddItem(pid, ad[1], ad[2])
                    end
                    break
                end
            end
        end
        db.query("INSERT INTO `snowballwar`  VALUES ('', ".. db.escapeString(score[1][1]) ..  ",".. score[1][2] ..", ".. db.escapeString(data) ..", ".. db.escapeString(hora) ..");")  
        db.query("UPDATE `players` SET `sbw_points`=`sbw_points`+".. score[1][2] .." WHERE `name` = " .. db.escapeString(score[1][1]) .. ";")
        doBroadcastMessage("[SNOWBALL EVENT] encerrou-se, parabens ao jogador "..score[1][1].." que venceu o SnowBall Event com "..score[1][2].." pontos.")
    end
    return true
end

local t_l = SBW_AREA[1]
local b_r = SBW_AREA[2]

function moveToEvent()
for _, pid in ipairs(getPlayersOnline()) do
    if isInRange(getCreaturePosition(pid), SBW_WAITROOM[1], SBW_WAITROOM[2]) then
        local posti = {}
        local isPossibleToTeleportPlayer = false
        while (isPossibleToTeleportPlayer == FALSE) do
        doTeleportThing(pid, {x=math.random(t_l.x,b_r.x), y=math.random(t_l.y, b_r.y), z=math.random(t_l.z, b_r.z)})
            if (isInWallArray(posti) == FALSE) then
                isPossibleToTeleportPlayer = TRUE
            end
        end
        doTeleportThing(pid, posti)
        doPlayerSetStorageValue(pid, SBW_INEVENT, 1)
        doPlayerSetStorageValue(pid, SBW_AMMO, SBW_MINAMMO)
        doPlayerSetStorageValue(pid, SBW_SCORE, 0)
        doPlayerSendTextMessage(pid, 27, "[SNOWBALL WAR] Seja bem vindo, aqui estao os comandos que voce vai usar durante o evento\n!snowball atirar --Atirar uma bola de neve.\n!snowball info --Isso mostra seus pontos de jogos e a quantia de bolas de neve que voce tem. Tambem mostra o ranking de pontos do evento.\n Recarregue suas bolas de neve clicando em frente ao gerador no centro do campo.\nAltamente recomendado adicionar estes comandos a sua hotkeys.")                                                                       
    end
end
doRemoveItem(getTileItemById(SBW_TP, 1387).uid)
addEvent(endsnowball, SBW_DURATION*1000*60)
doBroadcastMessage(SBW_MSGSTART)
end

local time = os.date("*t")
local timeopen1 = math.ceil(SBW_TIMEWAIT / 4)
local timeopen2 = math.ceil(SBW_TIMEWAIT / 2)
if (SBW_STARTAUTO) and (isInArray(SBW_DAYS,time.wday)) then
    doBroadcastMessage(SBW_MSGWARNING)
    if SBW_USEWAIT then
        addEvent(doBroadcastMessage, timeopen1*1000*60, "[SNOWBALL WAR] - Resta(m) ".. timeopen2 .." minuto(s) para iniciar o evento!")
        if (timeopen2 ~= timeopen1) then
            addEvent(doBroadcastMessage, timeopen2*1000*60, "[SNOWBALL WAR] - Resta(m) ".. timeopen1 .." minuto(s) para iniciar o evento!")
        end
        addEvent(moveToEvent, SBW_TIMEWAIT*1000*60)
    local tp = doCreateItem(1387, SBW_TPGO, SBW_TP)
        doItemSetAttribute(tp, "aid", 2880)
    else
        if SBW_TFS == "0.4" then
            doSetItemActionId(doCreateItem(tp, SBW_TP), 2880)
        else
            doSetItemActionId(doCreateItem(tp, SBW_TP), 2880)
        end
        if(SBW_DURATION > 0) then
            addEvent(endsnowball, SBW_DURATION*1000*60)
        end
    end
end
return true
end

-------------------------

Tenta esse. No SQLITEStudio aperte ALT + E e coloque esse codigo la dentro e aperte F9.

Mostrar conteúdo oculto

CREATE TABLE snowballwar ( id INTEGER (11) NOT NULL, name VARCHAR (255) NOT NULL, score INTEGER (11) NOT NULL, data VARCHAR (255) NOT NULL, hora VARCHAR (255) NOT NULL, PRIMARY KEY ( id ) );

Ja este comando


ALTER TABLE `players` ADD `sbw_points` int(11);

E da mesma forma do de cima ALT + E / Colar nas linhas que tem la/ F9

Deu certo meu parceiro, porem tem outro problema que está acontecendo quando acerto uma pessoa ela não morre so conta o ponto.

Obrigado pela ajuda +REP

tetheuscunha · Março 23, 2017

2 horas atrás, Nox disse:

Deu certo meu parceiro, porem tem outro problema que está acontecendo quando acerto uma pessoa ela não morre so conta o ponto.

Obrigado pela ajuda +REP

Ja sei qual e o erro. Também tive ele. Agora estou na faculdade assim que chega em casa eu mando pra voce a correção. Ate 22:30 eu posto aqui.

Nox · Março 23, 2017

8 minutos atrás, tetheuscunha disse:

Ja sei qual e o erro. Também tive ele. Agora estou na faculdade assim que chega em casa eu mando pra voce a correção. Ate 22:30 eu posto aqui.

Obrigado meu brother

tetheuscunha · Março 24, 2017

Em 23/03/2017 ás 19:54, Nox disse:

Obrigado meu brother

Desculpe não postar ontem, cheguei era 22:30 morto da faculdade.

function onSay(cid, words, param, channel)
local k = string.explode(param, ",")
if(k[1] ~= nil) then
       if(string.upper(k[1]) == 'INFO') then
           local score = {}
           local output = "Voce tem " .. getPlayerStorageValue(cid, SBW_SCORE) .. " pontos.\nVoce tem "..getPlayerStorageValue(cid, SBW_AMMO).."x municoes.\n------------------\nO maior matador:\n"
           for _, pid in ipairs(getPlayersOnline()) do
               if getPlayerStorageValue(pid, SBW_INEVENT) then
                   table.insert(score, {getCreatureName(pid), getPlayerStorageValue(pid, SBW_SCORE)})
               end
           end
           local lx = table.getn(score)
           if(lx > 3) then lx = 3 end
               table.sort(score, function(a, b) return a[2] > b[2] end)
               for k = 1,lx do
                   output = output .. k..". "..score[k][1] .." [".. score[k][2] .."].\n"
               end
               doPlayerPopupFYI(cid, output)
           end
if (string.upper(k[1]) == 'ATIRAR') then
   if(getPlayerStorageValue(cid, SBW_INEVENT) == 1) and not getTileInfo(getThingPos(cid)).protection then
       if getPlayerStorageValue(cid, SBW_EXAUSTHED) <= 1 then
           if(getPlayerStorageValue(cid, SBW_AMMO) > 0) then
               if SBW_STATUS == 'on' then
                   if(SBW_AMMOINFI == false) then
                       doPlayerSetStorageValue(cid, SBW_AMMO, getPlayerStorageValue(cid, SBW_AMMO)-1)
                   end
                   doPlayerSetStorageValue(cid, SBW_EXAUSTHED, 2)
                   lineAnimation(getPlayerLookDirection(cid),getCreaturePosition(cid),12,cid,1,0,1,0,0,0,1,0)
                   addEvent(doPlayerSetStorageValue, SBW_SHOOTEXAUSTHED, cid, SBW_EXAUSTHED, 1)
                   if (getPlayerStorageValue(cid, SBW_AMMO) ~= 1) then
                       doPlayerSendTextMessage(cid, 27, "Restam "..getPlayerStorageValue(cid, SBW_AMMO).."x bolas de neve.")
                   else
                       doPlayerSendTextMessage(cid, 27, "Usando sua ultima bola de neve, recarregue.")
                   end
               end
           else
               doPlayerSendCancel(cid, "Voce esta sem bolas de neve, recarregue no centro do campo ou mate um inimigo.")
               doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
           end
       else
           doPlayerPopupFYI(cid, "Acalme-se voce deve esperar para atirar novamente.")
           doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
           return false
       end
   else
       doPlayerPopupFYI(cid, "Voce precisa estar dentro evento ou fora da pz.")
       doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
   end
end
end
return true
end

                function lineAnimation(lookDir,playerPos,effect,cid,fvar,fpos,ffound,fposV,fcheck,fvcid,floopCounter,fvpid, name)
                local var = fvar
                local pos = fpos
                local found = ffound
                local posV = fposV
                local check = fcheck
                local vcid = fvcid
                local loopCounter = floopCounter
                local vpid = fvpid
                local storage = SBW_EXAUSTHED
                        if var < 2 then
                                vcid = cid
                        end
                        pos = playerPos
                        if not isInWallArray(convert(lookDir,pos)) then--isInWallArray({x=convert(lookDir,pos).x, y=convert(lookDir,pos).y,z=convert(lookDir,pos).z}) then --isInArray(t.onShoot.misc.walls_id, getThingfromPos({x=convert(lookDir,pos).x, y=convert(lookDir,pos).y,z=convert(lookDir,pos).z, stackpos=0}).itemid) then
                                doSendDistanceShoot(pos, convert(lookDir,pos),effect)
                                pos = convert(lookDir,pos)
                                var=var+1
                                posV = convertV(lookDir,playerPos)
                                for _, pid in ipairs(getPlayersOnline()) do
                                        if (getCreaturePosition(pid).x == pos.x and getCreaturePosition(pid).y == pos.y and getCreaturePosition(pid).z == pos.z) then
                                                --if loopCounter > 2 then
                                                vpid = pid
                                                --end
                                                if (vpid ~= vcid) then
                                                        if var > 2 then
                                                                if (getCreaturePosition(pid).x == posV.x and getCreaturePosition(pid).y == posV.y and getCreaturePosition(pid).z == posV.z) then
killPlayer(pid,pos,getCreatureName(vcid))
                                                                        if (lookDir == 0) or (lookDir == 2) then
                                                                                var = 6
                                                                        else
                                                                                var = 8
                                                                        end
                                                                end
                                                        end
                                                        killPlayer(pid,pos,vcid)
                                                        if (lookDir == 0) or (lookDir == 2) then
                                                                var = 6
                                                        else
                                                                var = 8
                                                        end
                                                end
                                        end
                                        loopCounter = loopCounter +1
                                end
                                if (lookDir == 0) or (lookDir == 2) then
                                        if var ~= 6 then
                                                addEvent(lineAnimation, SBW_BALLSPEED, lookDir,pos,effect,nil,var,pos,found,posV,check,vcid,loopCounter,vpid)
                                        else
                                                var = 1
                                        end
                                else
                                        if var ~= 8 then
                                                addEvent(lineAnimation, SBW_BALLSPEED, lookDir,pos,effect,nil,var,pos,found,posV,check,vcid,loopCounter,vpid)
                                        else
                                                var = 1
                                        end
                                end
                        else
                                doSendMagicEffect(convert(lookDir,pos),2)
                                var = 1
                        end
                end

                local ret = {}
                function convert(lookDir,pos)
                local positions = {
                        [0] = {x = pos.x, y = pos.y-1, z = pos.z},
                        [1] = {x = pos.x+1, y = pos.y, z = pos.z},
                        [2] = {x = pos.x, y = pos.y+1, z = pos.z},
                        [3] = {x = pos.x-1, y = pos.y, z = pos.z}
                        }
                        ret = positions[lookDir]
                return ret
                end

                local ret = {}
                function convertV(lookDir,pos)
                local positions = {
                        [0] = {x = pos.x, y = pos.y+1, z = pos.z},
                        [1] = {x = pos.x-1, y = pos.y, z = pos.z},
                        [2] = {x = pos.x, y = pos.y-1, z = pos.z},
                        [3] = {x = pos.x+1, y = pos.y, z = pos.z}
                        }
                        ret = positions[lookDir]
                return ret
                end

               function isInWallArray(pos)
                        for k = 0, table.getn(SBW_WALLSID) do
                                if getTileItemById(pos, SBW_WALLSID[k]).itemid == SBW_WALLSID[k] then --this doesn't even make sense but tried other ways and it gave errors, so meh 2lazy2search
                                   return true
                                end
                        end
                        return false
                end

                function killPlayer(cid, pos, killer)
                    local t_l = SBW_AREA[1]
                   local b_r = SBW_AREA[2]
                   local posti = {}
                   local isPossibleToTeleportPlayer = false
                   while (isPossibleToTeleportPlayer == FALSE) do
                   doTeleportThing(cid, {x=math.random(t_l.x,b_r.x), y=math.random(t_l.y, b_r.y), z=math.random(t_l.z, b_r.z)})
                       if isInWallArray(posti) == FALSE then
                           isPossibleToTeleportPlayer = TRUE
                       end
                   end
                   doTeleportThing(cid, posti)
                   doSendMagicEffect(pos,2)
                   doSendMagicEffect(posti,6)
                   doSendAnimatedText(pos, ""..getCreatureName(killer).." ", 55)
                   doPlayerSendTextMessage(cid, 27, "Voce morreu para "..getCreatureName(killer)..".")
                   doPlayerSetStorageValue(killer, SBW_SCORE, getPlayerStorageValue(killer, SBW_SCORE)+SBW_POINTSKILL)
                   doPlayerSendTextMessage(killer, 27, "You've killed "..getCreatureName(cid)..".")
                   if SBW_LOSTSCORE then
                       doPlayerSetStorageValue(cid, SBW_SCORE, getPlayerStorageValue(cid, SBW_SCORE)-1)
                   end
                   if SBW_RESETAMMO then
                       doPlayerSetStorageValue(cid, SBW_AMMO, SBW_MINAMMO)
                   end
                end

O erro de o player não ser teletransportado esta em Talkaction, substitui por esse.

Editado Março 24, 2017 por tetheuscunha (veja o histórico de edições)

Nox · Março 25, 2017

5 horas atrás, tetheuscunha disse:

Desculpe não postar ontem, cheguei era 22:30 morto da faculdade.

Mostrar conteúdo oculto

function onSay(cid, words, param, channel)
local k = string.explode(param, ",")
if(k[1] ~= nil) then
       if(string.upper(k[1]) == 'INFO') then
           local score = {}
           local output = "Voce tem " .. getPlayerStorageValue(cid, SBW_SCORE) .. " pontos.\nVoce tem "..getPlayerStorageValue(cid, SBW_AMMO).."x municoes.\n------------------\nO maior matador:\n"
           for _, pid in ipairs(getPlayersOnline()) do
               if getPlayerStorageValue(pid, SBW_INEVENT) then
                   table.insert(score, {getCreatureName(pid), getPlayerStorageValue(pid, SBW_SCORE)})
               end
           end
           local lx = table.getn(score)
           if(lx > 3) then lx = 3 end
               table.sort(score, function(a, b) return a[2] > b[2] end)
               for k = 1,lx do
                   output = output .. k..". "..score[k][1] .." [".. score[k][2] .."].\n"
               end
               doPlayerPopupFYI(cid, output)
           end
if (string.upper(k[1]) == 'ATIRAR') then
   if(getPlayerStorageValue(cid, SBW_INEVENT) == 1) and not getTileInfo(getThingPos(cid)).protection then
       if getPlayerStorageValue(cid, SBW_EXAUSTHED) <= 1 then
           if(getPlayerStorageValue(cid, SBW_AMMO) > 0) then
               if SBW_STATUS == 'on' then
                   if(SBW_AMMOINFI == false) then
                       doPlayerSetStorageValue(cid, SBW_AMMO, getPlayerStorageValue(cid, SBW_AMMO)-1)
                   end
                   doPlayerSetStorageValue(cid, SBW_EXAUSTHED, 2)
                   lineAnimation(getPlayerLookDirection(cid),getCreaturePosition(cid),12,cid,1,0,1,0,0,0,1,0)
                   addEvent(doPlayerSetStorageValue, SBW_SHOOTEXAUSTHED, cid, SBW_EXAUSTHED, 1)
                   if (getPlayerStorageValue(cid, SBW_AMMO) ~= 1) then
                       doPlayerSendTextMessage(cid, 27, "Restam "..getPlayerStorageValue(cid, SBW_AMMO).."x bolas de neve.")
                   else
                       doPlayerSendTextMessage(cid, 27, "Usando sua ultima bola de neve, recarregue.")
                   end
               end
           else
               doPlayerSendCancel(cid, "Voce esta sem bolas de neve, recarregue no centro do campo ou mate um inimigo.")
               doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
           end
       else
           doPlayerPopupFYI(cid, "Acalme-se voce deve esperar para atirar novamente.")
           doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
           return false
       end
   else
       doPlayerPopupFYI(cid, "Voce precisa estar dentro evento ou fora da pz.")
       doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
   end
end
end
return true
end

                function lineAnimation(lookDir,playerPos,effect,cid,fvar,fpos,ffound,fposV,fcheck,fvcid,floopCounter,fvpid, name)
                local var = fvar
                local pos = fpos
                local found = ffound
                local posV = fposV
                local check = fcheck
                local vcid = fvcid
                local loopCounter = floopCounter
                local vpid = fvpid
                local storage = SBW_EXAUSTHED
                        if var < 2 then
                                vcid = cid
                        end
                        pos = playerPos
                        if not isInWallArray(convert(lookDir,pos)) then--isInWallArray({x=convert(lookDir,pos).x, y=convert(lookDir,pos).y,z=convert(lookDir,pos).z}) then --isInArray(t.onShoot.misc.walls_id, getThingfromPos({x=convert(lookDir,pos).x, y=convert(lookDir,pos).y,z=convert(lookDir,pos).z, stackpos=0}).itemid) then
                                doSendDistanceShoot(pos, convert(lookDir,pos),effect)
                                pos = convert(lookDir,pos)
                                var=var+1
                                posV = convertV(lookDir,playerPos)
                                for _, pid in ipairs(getPlayersOnline()) do
                                        if (getCreaturePosition(pid).x == pos.x and getCreaturePosition(pid).y == pos.y and getCreaturePosition(pid).z == pos.z) then
                                                --if loopCounter > 2 then
                                                vpid = pid
                                                --end
                                                if (vpid ~= vcid) then
                                                        if var > 2 then
                                                                if (getCreaturePosition(pid).x == posV.x and getCreaturePosition(pid).y == posV.y and getCreaturePosition(pid).z == posV.z) then
killPlayer(pid,pos,getCreatureName(vcid))
                                                                        if (lookDir == 0) or (lookDir == 2) then
                                                                                var = 6
                                                                        else
                                                                                var = 8
                                                                        end
                                                                end
                                                        end
                                                        killPlayer(pid,pos,vcid)
                                                        if (lookDir == 0) or (lookDir == 2) then
                                                                var = 6
                                                        else
                                                                var = 8
                                                        end
                                                end
                                        end
                                        loopCounter = loopCounter +1
                                end
                                if (lookDir == 0) or (lookDir == 2) then
                                        if var ~= 6 then
                                                addEvent(lineAnimation, SBW_BALLSPEED, lookDir,pos,effect,nil,var,pos,found,posV,check,vcid,loopCounter,vpid)
                                        else
                                                var = 1
                                        end
                                else
                                        if var ~= 8 then
                                                addEvent(lineAnimation, SBW_BALLSPEED, lookDir,pos,effect,nil,var,pos,found,posV,check,vcid,loopCounter,vpid)
                                        else
                                                var = 1
                                        end
                                end
                        else
                                doSendMagicEffect(convert(lookDir,pos),2)
                                var = 1
                        end
                end

                local ret = {}
                function convert(lookDir,pos)
                local positions = {
                        [0] = {x = pos.x, y = pos.y-1, z = pos.z},
                        [1] = {x = pos.x+1, y = pos.y, z = pos.z},
                        [2] = {x = pos.x, y = pos.y+1, z = pos.z},
                        [3] = {x = pos.x-1, y = pos.y, z = pos.z}
                        }
                        ret = positions[lookDir]
                return ret
                end

                local ret = {}
                function convertV(lookDir,pos)
                local positions = {
                        [0] = {x = pos.x, y = pos.y+1, z = pos.z},
                        [1] = {x = pos.x-1, y = pos.y, z = pos.z},
                        [2] = {x = pos.x, y = pos.y-1, z = pos.z},
                        [3] = {x = pos.x+1, y = pos.y, z = pos.z}
                        }
                        ret = positions[lookDir]
                return ret
                end

               function isInWallArray(pos)
                        for k = 0, table.getn(SBW_WALLSID) do
                                if getTileItemById(pos, SBW_WALLSID[k]).itemid == SBW_WALLSID[k] then --this doesn't even make sense but tried other ways and it gave errors, so meh 2lazy2search
                                   return true
                                end
                        end
                        return false
                end

                function killPlayer(cid, pos, killer)
                    local t_l = SBW_AREA[1]
                   local b_r = SBW_AREA[2]
                   local posti = {}
                   local isPossibleToTeleportPlayer = false
                   while (isPossibleToTeleportPlayer == FALSE) do
                   doTeleportThing(cid, {x=math.random(t_l.x,b_r.x), y=math.random(t_l.y, b_r.y), z=math.random(t_l.z, b_r.z)})
                       if isInWallArray(posti) == FALSE then
                           isPossibleToTeleportPlayer = TRUE
                       end
                   end
                   doTeleportThing(cid, posti)
                   doSendMagicEffect(pos,2)
                   doSendMagicEffect(posti,6)
                   doSendAnimatedText(pos, ""..getCreatureName(killer).." ", 55)
                   doPlayerSendTextMessage(cid, 27, "Voce morreu para "..getCreatureName(killer)..".")
                   doPlayerSetStorageValue(killer, SBW_SCORE, getPlayerStorageValue(killer, SBW_SCORE)+SBW_POINTSKILL)
                   doPlayerSendTextMessage(killer, 27, "You've killed "..getCreatureName(cid)..".")
                   if SBW_LOSTSCORE then
                       doPlayerSetStorageValue(cid, SBW_SCORE, getPlayerStorageValue(cid, SBW_SCORE)-1)
                   end
                   if SBW_RESETAMMO then
                       doPlayerSetStorageValue(cid, SBW_AMMO, SBW_MINAMMO)
                   end
                end



O erro de o player não ser teletransportado esta em Talkaction, substitui por esse.

Esquenta não brother, obrigado deu certinho porem apareceu um outro bug que esta spawnando em cima das coisas mas vou tentar resolver, mas deu certinho.

tetheuscunha · Março 25, 2017

1 hora atrás, Nox disse:

Esquenta não brother, obrigado deu certinho porem apareceu um outro bug que esta spawnando em cima das coisas mas vou tentar resolver, mas deu certinho.

kkkk o meu da o mesmo erro ainda. Não tentei solucionar. Eu acho que é na lib.

Editado Março 25, 2017 por tetheuscunha (veja o histórico de edições)

Nox · Março 25, 2017

8 horas atrás, tetheuscunha disse:

kkkk o meu da o mesmo erro ainda. Não tentei solucionar. Eu acho que é na lib.

Também estou achando

Entrar

Sistema TFS 0.X SNOWBAL EVENT TIBIA

Posts Recomendados

Link para o post

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Posted Images

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

Conteúdo Similar

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Informação Importante