Ir para conteúdo
TK News
  • Cadastre-se

Sistema De Pesca

Warner Arthur
 Share Seguidores 0

Posts Recomendados

Warner Arthur

Warner Arthur 0

Postado
Postado

Queria Melhorar Meu Sistema De Pesca. O que eu vou pedir é bem simples.

 

1* Queria Por o Personagem Pra Pescar no Ctrl+Z. E Para Poder Parar De Pescar Ctrl+Z Novamente.

 

2* Queria Que Enquanto está pescando não poder deslogar

 

 

 

 

 

 

1* http://img.prntscr.com/img?url=http://i.imgur.com/3qNVRis.jpg

 

2* http://img.prntscr.com/img?url=http://i.imgur.com/t0vEf3M.jpg

 

 


Alguém Poderia me Ajudar ?

Link para o post
Compartilhar em outros sites
Wakon

Wakon 912

Postado
Postado

O tópico foi movido para a área correta, preste mais atenção da próxima vez!

Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:

De: "OTServ → Suporte OTServ → Suporte de Scripts"

Para: "OTServ → Suporte OTServ → Suporte de Clients"

 

 

➥ Regras | Seções OTServ | Seções BOT

Link para o post
Compartilhar em outros sites
Snowsz

Snowsz 339

Postado
Postado

Queria Melhorar Meu Sistema De Pesca. O que eu vou pedir é bem simples.

 

1* Queria Por o Personagem Pra Pescar no Ctrl+Z. E Para Poder Parar De Pescar Ctrl+Z Novamente.

 

2* Queria Que Enquanto está pescando não poder deslogar

 

 

 

 

 

 

1* http://img.prntscr.com/img?url=http://i.imgur.com/3qNVRis.jpg

 

2* http://img.prntscr.com/img?url=http://i.imgur.com/t0vEf3M.jpg

 

 

Alguém Poderia me Ajudar ?

Normalmente, quando você clica na vara enquanto está pescando, ela para a pescaria ?

                              _
                          .-'` `}
                  _./)   /       }
                .'o   \ |       }
                '.___.'`.\    {`
                /`\_/  , `.    }                                      ME DA UMA NOZ!
                \=' .-'   _`\  {
                 `'`;/      `,  }
                    _\   @   ;  }
                   /__`;-...'--'

Cluck!

Link para o post
Compartilhar em outros sites
Warner Arthur

Warner Arthur 0

Postado
  • Autor
Postado

Não, é essa a questão. Quando coloco pra pescar não tem outro jeito de parar a não ser esperar pescar algum poke

Link para o post
Compartilhar em outros sites
Snowsz

Snowsz 339

Postado
Postado

Não, é essa a questão. Quando coloco pra pescar não tem outro jeito de parar a não ser esperar pescar algum poke

Poste seu script de pesca.

                              _
                          .-'` `}
                  _./)   /       }
                .'o   \ |       }
                '.___.'`.\    {`
                /`\_/  , `.    }                                      ME DA UMA NOZ!
                \=' .-'   _`\  {
                 `'`;/      `,  }
                    _\   @   ;  }
                   /__`;-...'--'

Cluck!

Link para o post
Compartilhar em outros sites
Warner Arthur

Warner Arthur 0

Postado
  • Autor
Postado

Desculpa a demora, eu estava ocupado. 

 

 

local fishing = {
["Magikarp"] = {skill = 0, level = 100},
["Horsea"] = {skill = 2, level = 100},
["Poliwag"] = {skill = 2, level = 100},
["Krabby"] = {skill = 5, level = 100},
["Goldeen"] = {skill = 5, level = 100},
["Tentacool"] = {skill = 5, level = 100},
["Staryu"] = {skill = 10, level = 100},
["Kingler"] = {skill = 15, level = 100},
["Seaking"] = {skill = 15, level = 100},
["Starmie"] = {skill = 20, level = 10},
["Psyduck"] = {skill = 15, level = 100},
["Poliwhirl"] = {skill = 20, level = 100},
["Seadra"] = {skill = 25, level = 100},
["Gyarados"] = {skill = 25, level = 100},
["Tentacruel"] = {skill = 25, level = 100},
["Blastoise"] = {skill = 25, level = 100},
["Marill"] = {skill = 0, level = 100},
["Remoraid"] = {skill = 2, level = 100},
["Carvanha"] = {skill = 5, level = 100},
["Totodile"] = {skill = 5, level = 100},
["Azumarill"] = {skill = 5, level = 100},
["Wailmer"] = {skill = 5, level = 100},
["Feebas"] = {skill = 5, level = 100},
["Barboach"] = {skill = 15, level = 10},
["Squirtle"] = {skill = 15, level = 100},
["Wartortle"] = {skill = 20, level = 100},
["Lapras"] = {skill = 20, level = 100},
["Wailord"] = {skill = 20, level = 100},
["Feraligatr"] = {skill = 20, level = 100},
["Omanyte"] = {skill = 20, level = 100},
["Omastar"] = {skill = 20, level = 100},
["Marill"] = {skill = 20, level = 100},
["Kabuto"] = {skill = 20, level = 100},
["Kabutops"] = {skill = 20, level = 100},
["Milotic"] = {skill = 20, level = 100},
["Vaporeon"] = {skill = 20, level = 100},
["Kingdra"] = {skill = 25, level = 100},
["Shellder"] = {skill = 10, level = 100},
["Seel"] = {skill = 10, level = 100},
["Dewgong"] = {skill = 20, level = 100},
["Cloyster"] = {skill = 20, level = 100},
}
 
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) ---- 1 e o efeito que ira sair ao usar a rod na agua.
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 ---- Outfit necessaria para usar o fishing
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
return false
end
else
if getCreatureOutfit(cid).lookType ~= 521 then ---- Outfit necessaria para usar o fishing
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 --- Outfit de Pesca FEMININA
else
out = 1468 --- Outfit de Pesca MASCULINA
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

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 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • Viny 13
      (Resolvido)Skills não upam em certo ponto
      Por Viny 13
      Galera, estou precisando muito de vocês ai, que já são mais experientes que eu.
      é o seguinte no meu Poketibia, o meu Sistema de pesca só upa até o 29 ! quando chega no 29 á barrinha não sobe mais.
       
      E se eu não conseguir resolver, vou perder cada vez mais players :c
       
      meu script do fishing.lua ( que se encontra em data/actions/tools/fishing.lua )
       
       
      vocations.xml caso vocês precise
       

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