Ir para conteúdo

Fishing Poke Serwer

Por Step Records
em Suporte Tibia OTServer

Featured Replies

Postado

tente usar este, necessário configurar qual pokemon quer pescar.

Spoiler 

local fishing = {
["Magikarp"] = {skill = 0, level = -2},
--["Qwilfish"] = {skill = 18, level = 3},
--["Remoraid"] = {skill = 16, level = 2},
["Staryu"] = {skill = 22, level = 6},
["Tentacool"] = {skill = 20, level = 7},
["Goldeen"] = {skill = 17, level = 5},
["Krabby"] = {skill = 14, level = 2},
["Horsea"] = {skill = 16, level = 3},
["Poliwag"] = {skill = 15, level = 2},
--["Marill"] = {skill = 21, level = 3},
--["Azumarill"] = {skill = 37, level = 16},
["Kingler"] = {skill = 35, level = 14},
["Seaking"] = {skill = 28, level = 11},
["Starmie"] = {skill = 49, level = 20},
--["Chinchou"] = {skill = 23, level = 6},
["Poliwhirl"] = {skill = 27, level = 9},
["Seadra"] = {skill = 41, level = 15},
--["Lanturn"] = {skill = 38, level = 14},
--["Octillery"] = {skill = 30, level = 9},
--["Corsola"] = {skill = 46, level = 16},
--["Blastoise"] = {skill = 50, level = 30},
}

local storage = 15458
local bonus = 1
local limite = 80


local function doFish(cid, pos, ppos, chance, interval, number)
        if not isCreature(cid) then return false end

        if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then
        return false end

        if getPlayerStorageValue(cid, storage) ~= number then return false end

        doSendMagicEffect(pos, CONST_ME_LOSEENERGY)

local peixe = 0
local playerpos = getClosestFreeTile(cid, getThingPos(cid))
local fishes = {}
local randomfish = ""

                                                                  --alterado!!
    if getPlayerSkillLevel(cid, 6) < limite then
    doPlayerAddSkillTry(cid, 6, bonus)
    end

for a, b in pairs (fishing) do
    if getPlayerSkillLevel(cid, 6) >= b.skill then
        table.insert(fishes, a)
    end
end

    if math.random(1, 100) <= chance then
        if getPlayerSkillLevel(cid, 6) < limite then
        doPlayerAddSkillTry(cid, 6, bonus)
        end
        randomfish = fishes[math.random(#fishes)]
        peixe = doSummonCreature(randomfish, playerpos)
        if not isCreature(peixe) then
            addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
        return true
        end
        if #getCreatureSummons(cid) >= 1 then
                doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)
            doChallengeCreature(getCreatureSummons(cid)[1], peixe)
            else
            doSendMagicEffect(getThingPos(cid), 173)
            doChallengeCreature(cid, peixe)
            end
    return true
    end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
return true
end

local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

function onUse(cid, item, fromPos, itemEx, toPos)

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 tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/log.txt", "a+")
    local read = ""
    if test then
        read = test:read("*all")
        test:close()
    end
    read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage)..""
    local reopen = io.open("data/log.txt", "w")
    reopen:write(read)
    reopen:close()
    setPlayerStorageValue(cid, storage, 1)
end

setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
    if getPlayerStorageValue(cid, storage) >= 800 then
        setPlayerStorageValue(cid, storage, 1)
    end

local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25
local chance = 5.2 + getPlayerSkillLevel(cid, 6) / 9.5

doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

@Step Records

 

Editado por underewarr (veja o histórico de edições)

  • Citar
    • Respostas 13
    • Visualizações 1.2k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Postado
    37 minutos atrás, underewarr disse:

    tente usar este, necessário configurar qual pokemon quer pescar.

      Ocultar conteúdo 
    

local fishing = {
["Magikarp"] = {skill = 0, level = -2},
--["Qwilfish"] = {skill = 18, level = 3},
--["Remoraid"] = {skill = 16, level = 2},
["Staryu"] = {skill = 22, level = 6},
["Tentacool"] = {skill = 20, level = 7},
["Goldeen"] = {skill = 17, level = 5},
["Krabby"] = {skill = 14, level = 2},
["Horsea"] = {skill = 16, level = 3},
["Poliwag"] = {skill = 15, level = 2},
--["Marill"] = {skill = 21, level = 3},
--["Azumarill"] = {skill = 37, level = 16},
["Kingler"] = {skill = 35, level = 14},
["Seaking"] = {skill = 28, level = 11},
["Starmie"] = {skill = 49, level = 20},
--["Chinchou"] = {skill = 23, level = 6},
["Poliwhirl"] = {skill = 27, level = 9},
["Seadra"] = {skill = 41, level = 15},
--["Lanturn"] = {skill = 38, level = 14},
--["Octillery"] = {skill = 30, level = 9},
--["Corsola"] = {skill = 46, level = 16},
--["Blastoise"] = {skill = 50, level = 30},
}

local storage = 15458
local bonus = 1
local limite = 80


local function doFish(cid, pos, ppos, chance, interval, number)
        if not isCreature(cid) then return false end

        if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then
        return false end

        if getPlayerStorageValue(cid, storage) ~= number then return false end

        doSendMagicEffect(pos, CONST_ME_LOSEENERGY)

local peixe = 0
local playerpos = getClosestFreeTile(cid, getThingPos(cid))
local fishes = {}
local randomfish = ""

                                                                  --alterado!!
    if getPlayerSkillLevel(cid, 6) < limite then
    doPlayerAddSkillTry(cid, 6, bonus)
    end

for a, b in pairs (fishing) do
    if getPlayerSkillLevel(cid, 6) >= b.skill then
        table.insert(fishes, a)
    end
end

    if math.random(1, 100) <= chance then
        if getPlayerSkillLevel(cid, 6) < limite then
        doPlayerAddSkillTry(cid, 6, bonus)
        end
        randomfish = fishes[math.random(#fishes)]
        peixe = doSummonCreature(randomfish, playerpos)
        if not isCreature(peixe) then
            addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
        return true
        end
        if #getCreatureSummons(cid) >= 1 then
                doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)
            doChallengeCreature(getCreatureSummons(cid)[1], peixe)
            else
            doSendMagicEffect(getThingPos(cid), 173)
            doChallengeCreature(cid, peixe)
            end
    return true
    end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
return true
end

local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

function onUse(cid, item, fromPos, itemEx, toPos)

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 tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/log.txt", "a+")
    local read = ""
    if test then
        read = test:read("*all")
        test:close()
    end
    read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage)..""
    local reopen = io.open("data/log.txt", "w")
    reopen:write(read)
    reopen:close()
    setPlayerStorageValue(cid, storage, 1)
end

setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
    if getPlayerStorageValue(cid, storage) >= 800 then
        setPlayerStorageValue(cid, storage, 1)
    end

local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25
local chance = 5.2 + getPlayerSkillLevel(cid, 6) / 9.5

doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

    @Step Records

     

     

    @underewarr Não consegui pescar com esse script...

                                                                                 1535210279_tumblr_o9b6yoxM1Z1tco8kto1_500(3).gif.f527686e19da738322c39555244decac.gif

                                                                 Meus tópicos         

                                                             Se ajudei você deixe seu Rep! para fortalecer a amizade ^^

                                                                                  Vamos ajudar o fórum a crescer mais.

                                                                              1641206641_gif-escudo-fla-3d(1).gif.a5d3c0c24824d5272a181aa91c5eda0c.gif

                                                                                                    Mengão porra! . .

                                                                         tumblr_oxm8eriUeU1sqwgnro2_400.gif.22e347b2fc58fdfd88dbf84f4bdaa1bc.gif

                                                                                    ----- NPC que vende informação -----

                                                                               -----Baú Que dá Outfit se tiver Level -----

                                                                         ----- [Npc] Que vende Stones (itens) por diamonds -----

     

     

                                                                           

                           

  • Citar
  • Mention
    • Postado

    @Sepulturaalgum erro na source?

  • Citar
    • Postado
    13 minutos atrás, underewarr disse:

    @Sepulturaalgum erro na source?

     

    Nn, Só não pesca, Já tentei uns 10 scripts diferentes... todos estacam o lvl, alguns param no 25, outros no 29, até consegui chegar em 35 com um script... Já tentei alterar no vocations/XML tentei mudar esse valor fishing="3.0" tbm tentei algo assim tbm no vocations <skill id="5" multiplier="3.5"/> mas até agora ele continua no 29 .-. 

    Creio eu que terá que ser feito algo nas source do servidor. Mas não faço ideia de como fazer. 

                                                                                 1535210279_tumblr_o9b6yoxM1Z1tco8kto1_500(3).gif.f527686e19da738322c39555244decac.gif

                                                                 Meus tópicos         

                                                             Se ajudei você deixe seu Rep! para fortalecer a amizade ^^

                                                                                  Vamos ajudar o fórum a crescer mais.

                                                                              1641206641_gif-escudo-fla-3d(1).gif.a5d3c0c24824d5272a181aa91c5eda0c.gif

                                                                                                    Mengão porra! . .

                                                                         tumblr_oxm8eriUeU1sqwgnro2_400.gif.22e347b2fc58fdfd88dbf84f4bdaa1bc.gif

                                                                                    ----- NPC que vende informação -----

                                                                               -----Baú Que dá Outfit se tiver Level -----

                                                                         ----- [Npc] Que vende Stones (itens) por diamonds -----

     

     

                                                                           

                           

  • Citar
  • Mention
    • Postado

    qual a from voc esta usando para a vocação main do servidor?

    @Sepultura

    Editado por underewarr (veja o histórico de edições)

  • Citar

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.7k

    Informação Importante

    Confirmação de Termo

    I accept