Olá gostaria da ajuda de vcs, estou com um problema no meu servidor. Quando eu tento pescar usando as iscas " Steak - Special Lure - Misty's Special Lure - Big Steak " o char não pesca fica bugado... Olhei se achava algum post em relação a este erro, não encontrei...
local storageP = 154585 local sto_iscas = 5648454 --muda aki pra sto q ta no script da isca local bonus = 85 local limite = 100
local function doFish(cid, pos, ppos, interval) if not isCreature(cid) then return false end if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then return false end
doSendMagicEffect(pos, CONST_ME_LOSEENERGY)
if interval > 0 then addEvent(doFish, 1000, cid, pos, ppos, interval-1) return true end
local peixe = 0 local playerpos = getClosestFreeTile(cid, getThingPos(cid)) local fishes = fishing[getPlayerStorageValue(cid, sto_iscas)] local random = {}
if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end
--[[if math.random(1, 100) <= chance then if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end]]
random = fishes.pokes[math.random(#fishes.pokes)]
for i = 1, math.random(random[2]) do peixe = doSummonCreature(random[1], playerpos) if not isCreature(peixe) then setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT) return true end doSetMonsterPassive(peixe) doWildAttackPlayer(peixe, cid) doCreatureSetLookDir(cid, getDirectionTo(getThingPos(cid), getThingPos(peixe))) --alterado ver depois if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 0) doChallengeCreature(getCreatureSummons(cid)[1], peixe) else doSendMagicEffect(getThingPos(cid), 0) doChallengeCreature(cid, peixe) end end setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT) return true end
if getPlayerGroupId(cid) == 11 then return true end
local checkPos = toPos checkPos.stackpos = 0
if getTileThingByPos(checkPos).itemid <= 0 then doPlayerSendCancel(cid, '!') return true end
if not isInArray(waters, getTileInfo(toPos).itemid) then return true end
if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) and not canFishWhileSurfingOrFlying then doPlayerSendCancel(cid, "You can't fish while surfing/flying.") return true end
if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then doPlayerSendCancel(cid, "You can\'t fish while surfing neither flying above water.") return true end
if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.") return true end
if not isInArray({520, 521}, getCreatureOutfit(cid).lookType) then return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.") end
local delay = fishing[getPlayerStorageValue(cid, sto_iscas)].segs
if getPlayerStorageValue(cid, sto_iscas) ~= -1 then if getPlayerItemCount(cid, getPlayerStorageValue(cid, sto_iscas)) >= 1 then doPlayerRemoveItem(cid, getPlayerStorageValue(cid, sto_iscas), 1) else setPlayerStorageValue(cid, sto_iscas, -1) end end
local outfit = getCreatureOutfit(cid) local out = getPlayerSex(cid) == 0 and 1467 or 1468
info
Grupo: Campones
Registrado: 18/08/10
Posts: 1
Reputação: 0
Char no Tibia: Leco Doido
Olá gostaria da ajuda de vcs, estou com um problema no meu servidor.
Quando eu tento pescar usando as iscas " Steak - Special Lure - Misty's Special Lure - Big Steak " o char não pesca fica bugado...
Olhei se achava algum post em relação a este erro, não encontrei...
Se alguém poder me ajudar, fico muito agradecido.