Snowball war event

Postado Janeiro 14, 2018 7 anos

Ola boa noite, gostaria de saber se alguém pode me ajudar. com snowball war event. estou com o seguinte problema.

quando um player morre ele spawna em cima de objetos do mapa. Ex. Montanhas, água... e qualquer outra coisa que esteja dentro do mapa do evento.

não aparece nenhum erro no tfs que uso 0.4.0. apenas spawna em lugares errados.

se alguerm puder ajudar desde já fico grato segue abaixo todo o script que estou usando.

Obs.. já procurei em todos os lugares e em nenhum fórum tem o script sem bugs.

TalkAction. >> snowballtalk.lua

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

Globalevent >> snowballglobalevent.lua

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)
doCreateTeleport(1387, SBW_TPGO, SBW_TP)
else
       if SBW_TFS == "0.3" then
           doItemSetAttribute(doCreateItem(1387, SBW_TP), "aid", 2880)
       else
           doSetItemActionId(doCreateItem(1387, SBW_TP), 2880)
end
if(SBW_DURATION > 0) then
addEvent(endsnowball, SBW_DURATION*1000*60)
end
end
end
return true
end

Movemevent >> snowballmovement.lua

function onStepIn(cid, item, pos)
   doTeleportThing(cid, SBW_TPGO)
   doBroadcastMessage("[SNOWBALL WAR] O " ..getCreatureName(cid).. " player esta participando do evento snowball.", MESSAGE_STATUS_CONSOLE_ORANGE)
   doPlayerSetStorageValue(cid, SBW_INEVENT, 1)
   doPlayerSetStorageValue(cid, SBW_AMMO, SBW_MINAMMO)
   doPlayerSetStorageValue(cid, SBW_SCORE, 0)
end

Lib >> SBW.lua

-- This script is part of Snow Ball War Event Tibiaking Absolute
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>.

-- //

-- POSIÇÕES IMPORTANTES
SBW_AREA = {{x = 147, y = 479, z = 7}, {x = 176, y = 506, z = 7}}-- AREA DO EVENTO | Canto superior esquerdo / inferior direito
SBW_WAITROOM = {{x = 150, y = 482, z = 6}, {x = 170, y = 500, z = 6}} -- AREA DE ESPERA | Canto superior esquerdo / inferior direito
SBW_TP = {x = 167, y = 47, z = 7} -- local onde teleport sera criado (entrada de jogadores)
SBW_TPGO = {x = 160, y = 491, z = 6} -- local onde teleport vai levar (saida de jogadores)
SBW_TPEND = {x = 159, y = 51, z = 7} -- local onde serao teleport ao final do evento
SBW_GERADOR = {x = 160, y = 491, z = 7} -- local onde gerador vai ficar

-- CONFIGURAÇÕES DO EVENTO
SBW_DAYS = {1,2,3,4,5,6,7} -- dias de semana que vai abrir
SBW_DURATION = 10 -- duração do evento em minutos
SBW_POINTSKILL = 1 -- pontos de jogo por morte
SBW_AMMOBUY = 20 -- quantia de munições compradas por cada ponto
SBW_MINAMMO = 50 -- munição inicial dos jogadores
SBW_TIMEWAIT = 2 -- tempo na sala de espera em minutos
SBW_AMMOINFI = false
SBW_LOSTSCORE = true
SBW_RANDOMIZE = true
SBW_RESETAMMO = true
SBW_STARTAUTO = true
SBW_USEWAIT = true

--PREMIO DO EVENTO
SBW_ADDREWARD = true
SBW_REWARDS = {
               {6527,100},
               {2345,1}
           }

-- // Não mexa daqui para baixo
SBW_TFS = "0.4"

-- STORAGES
SBW_EXAUSTHED = 2455
SBW_INEVENT = 2460
SBW_SCORE = 2465
SBW_AMMO = 2400

SBW_WALLSID = {5324,7003,7021,6712,7023,7002,6713,6714,6869,6822,6823,6824,6825,6826,6827,6828,6829,6830,6831,6832,6833,6707,6708,6709,6710,6711,2698,2697,7020,6719,6720,6721,6722,6723,6724,6725,6726,6727,6761,6762,6768,6769,4608,4609,4610,4611,4612,4613,4614,4615,4616,4617,4618,4619,4620,4621,4622,4623,4624,4625,4664,4665,4666,7008,7009,7010,7011,8239,7004,7005,7006,7007,6627,6628,6629,6630,6631,6632,6633,6634,6635,6636,6637,6638,7022}
SBW_BALLSPEED = 150
SBW_SHOOTEXAUSTHED = 1000
SBW_SHOOTDIR = 0
SBW_STATUS = 'on'

-- MENSAGENS
SBW_MSGWARNING = "[SNOWBALL WAR] Abriu o teleport para o evento, para participar se dirija ate o templo do servidor."
SBW_MSGSTART = "[SNOWBALL WAR] O teleport foi removido e o evento foi iniciado, boa sorte a todos participantes."

Citar

Mention