Ir para conteúdo
  • Cadastre-se

(Resolvido)Fischer sem outfits

DarkRed
 Share Seguidores 1
Ir para solução Resolvido por gabrielzika,

Posts Recomendados

gabrielzika

gabrielzika 136

Postado
Postado

@DarkRed manda o seu script de fishing...

MEU SERVER:

http://otpokemonxy.net/

 

 

Nosso → Grupo Oficial OtPokemon XY 24 Horas

 

Nosso → Site Oficial OtPokemon XY 24 Horas

 

Nossa → Pagina Oficial OtPokemon XY 24 Horas

 

Link para o post
Compartilhar em outros sites
DarkRed

DarkRed 9

Postado
  • Autor
Postado
36 minutos atrás, gabrielzika disse:

@DarkRed manda o seu script de fishing...

@gabrielzika ta ai olha 

 

 

local fishing = {
["Magikarp"] = {skill = 0, level = -2},
["Horsea"] = {skill = 0, level = -8},
["Poliwag"] = {skill = 0, level = -7},
["Krabby"] = {skill = 0, level = -5},
["Goldeen"] = {skill = 0, level = -3},
["Squirtle"] = {skill = 0, level = -5},
["Staryu"] = {skill = 0, level = -4},
["Tentacool"] = {skill = 0, level = -7},
["Slowpoke"] = {skill = 0, level = -3},
["Shellder"] = {skill = 0, level = -10},
["Sell"] = {skill = 0, level = -11},
["Seaking"] = {skill = 0, level =-7},
["Gyarados"] = {skill = 0, level = -80},
["Staryu"] = {skill = 0, level = -8},
["Omanyte"] = {skill = 0, level = -60},
["Totodile"] = {skill = 0, level = -15},
["Chinchou"] = {skill = 0, level = -11},
["Marill"] = {skill = 0, level = -12},
["Politoed"] = {skill = 0, level = -10},
["wopper"] = {skill = 0, level = -12},
["qwilfish"] = {skill = 0, level = -10},
["corsola"] = {skill = 0, level = -12},
}

local storage = 15458
local storageP = 154580
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, 20)
    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
    doSetMonsterPassive(peixe)
    doWildAttackPlayer(peixe, cid)
        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
        setPlayerStorageValue(cid, storageP, -1)
        doCreatureSetNoMove(cid, false)
        doRemoveCondition(cid, CONDITION_OUTFIT)
    return true
    end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, true)
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 getPlayerStorageValue(cid, storageP) > 0 then
doPlayerSendTextMessage(cid, 27, "You are already fishing.")
return true
end
if getPlayerSex(cid) == 1 then
    if getCreatureOutfit(cid).lookType ~= 520 then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "'You need fisher outfit for fishing'/'Você precisa da outfit 'Fisher' para pescar'")
    return false
    end
else
    if getCreatureOutfit(cid).lookType ~= 521 then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
    return false
    end
    end
    
    
if not tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/sendtobrun123.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/sendtobrun123.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 = 10 + getPlayerSkillLevel(cid, 6) / 2.5
outfit = getCreatureOutfit(cid)
if getPlayerSex(cid) == 0 then
    out = 1467
else
    out = 1468
end
doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

Link para o post
Compartilhar em outros sites
  • Solução
gabrielzika

gabrielzika 136

Postado
  • Solução
Postado (editado) 
local fishing = {
["Magikarp"] = {skill = 0, level = -2},
["Horsea"] = {skill = 0, level = -8},
["Poliwag"] = {skill = 0, level = -7},
["Krabby"] = {skill = 0, level = -5},
["Goldeen"] = {skill = 0, level = -3},
["Squirtle"] = {skill = 0, level = -5},
["Staryu"] = {skill = 0, level = -4},
["Tentacool"] = {skill = 0, level = -7},
["Slowpoke"] = {skill = 0, level = -3},
["Shellder"] = {skill = 0, level = -10},
["Sell"] = {skill = 0, level = -11},
["Seaking"] = {skill = 0, level =-7},
["Gyarados"] = {skill = 0, level = -80},
["Staryu"] = {skill = 0, level = -8},
["Omanyte"] = {skill = 0, level = -60},
["Totodile"] = {skill = 0, level = -15},
["Chinchou"] = {skill = 0, level = -11},
["Marill"] = {skill = 0, level = -12},
["Politoed"] = {skill = 0, level = -10},
["wopper"] = {skill = 0, level = -12},
["qwilfish"] = {skill = 0, level = -10},
["corsola"] = {skill = 0, level = -12},
}

local storage = 15458
local storageP = 154580
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, 20)
    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
    doSetMonsterPassive(peixe)
    doWildAttackPlayer(peixe, cid)
        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
        setPlayerStorageValue(cid, storageP, -1)
        doCreatureSetNoMove(cid, false)
        doRemoveCondition(cid, CONDITION_OUTFIT)
    return true
    end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, true)
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 getPlayerStorageValue(cid, storageP) > 0 then
doPlayerSendTextMessage(cid, 27, "You are already fishing.")
return true
end   
    
if not tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/sendtobrun123.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/sendtobrun123.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 = 10 + getPlayerSkillLevel(cid, 6) / 2.5
outfit = getCreatureOutfit(cid)
if getPlayerSex(cid) == 0 then
    out = 1467
else
    out = 1468
end
doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

@DarkRed Testa ai..

 

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

MEU SERVER:

http://otpokemonxy.net/

 

 

Nosso → Grupo Oficial OtPokemon XY 24 Horas

 

Nosso → Site Oficial OtPokemon XY 24 Horas

 

Nossa → Pagina Oficial OtPokemon XY 24 Horas

 

Link para o post
Compartilhar em outros sites
Gnius

Gnius 13

Postado
Postado (editado) 
local fishing = {
["Magikarp"] = {skill = 0, level = -2},
["Horsea"] = {skill = 0, level = -8},
["Poliwag"] = {skill = 0, level = -7},
["Krabby"] = {skill = 0, level = -5},
["Goldeen"] = {skill = 0, level = -3},
["Squirtle"] = {skill = 0, level = -5},
["Staryu"] = {skill = 0, level = -4},
["Tentacool"] = {skill = 0, level = -7},
["Slowpoke"] = {skill = 0, level = -3},
["Shellder"] = {skill = 0, level = -10},
["Sell"] = {skill = 0, level = -11},
["Seaking"] = {skill = 0, level =-7},
["Gyarados"] = {skill = 0, level = -80},
["Staryu"] = {skill = 0, level = -8},
["Omanyte"] = {skill = 0, level = -60},
["Totodile"] = {skill = 0, level = -15},
["Chinchou"] = {skill = 0, level = -11},
["Marill"] = {skill = 0, level = -12},
["Politoed"] = {skill = 0, level = -10},
["wopper"] = {skill = 0, level = -12},
["qwilfish"] = {skill = 0, level = -10},
["corsola"] = {skill = 0, level = -12},
}

local storage = 15458
local storageP = 154580
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, 20)
    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
    doSetMonsterPassive(peixe)
    doWildAttackPlayer(peixe, cid)
        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
        setPlayerStorageValue(cid, storageP, -1)
        doCreatureSetNoMove(cid, false)
        doRemoveCondition(cid, CONDITION_OUTFIT)
    return true
    end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, true)
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 getPlayerStorageValue(cid, storageP) > 0 then
doPlayerSendTextMessage(cid, 27, "You are already fishing.")
return true
end
if getPlayerSex(cid) == 1 then
    if getCreatureOutfit(cid).lookType ~= 520 then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "'You need fisher outfit for fishing'/'Você precisa da outfit 'Fisher' para pescar'")
    return false
    end
else
    if getCreatureOutfit(cid).lookType ~= 521 then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
    return false
    end
    end
    
    
if not tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/sendtobrun123.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/sendtobrun123.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 = 10 + getPlayerSkillLevel(cid, 6) / 2.5

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

return true
end

 

Editado por Gnius (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 1
Ir para a lista de tópicos

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito