Fishin Rod que pesca monstros.

[Sinister 0]

• Nome do Sistema ou Script: Fishing Rod que pesca monstros
  
• Nome do Autor: Sinister, modifiquei o script que ja vem no TFS
  
• Servidor Testado e/ou Versão do Tibia: TFS para 8.50
  
• Descrição e/ou Informações Adicionais: É bom
  
• Scripts e Como Instalar
  

Va em actions/scripts/tools/fishing, troque o que está dentro por isso:

local configg = {
   waterIds = {493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4820, 4821, 4822, 4823, 4824, 4825}
   }
[color=Sienna]local monsters = {
   {'Water Elemental'},
   {'Rat'}
}[/color]
local numero = 2 -- numero de monstros que você colocou /\
local number = 10 -- < quanto maior, mais dificil de pescar um monstro
local config = {
   rateSkill = getConfigValue("rateSkill"),
   allowFromPz = false,
   useWorms = true
}
function onUse(cid, item, frompos, item2, topos)
   if(not isInArray(configg.waterIds, item2.itemid)) then
       return false
   end
   local chance = math.random(1,numero+number) --
   if chance >= 1 and chance <= numero then
   create = monsters[chance][1]
   doSummonCreature(create, getCreaturePosition(cid))
   doSendMagicEffect(topos, 11)
   doCreatureSay(cid, "Whatahell", TEXTCOLOR_BLUE)
   else
   doSendMagicEffect(topos, CONST_ME_LOSEENERGY)
   end
   if((config.allowFromPz or not getTileInfo(getCreaturePosition(cid)).protection) and item2.itemid ~= 493 and
       math.random(1, (100 + (getPlayerSkill(cid, SKILL_FISHING) / 10))) < getPlayerSkill(cid, SKILL_FISHING) and
       (not config.useWorms or (getPlayerItemCount(cid, ITEM_WORM) > 0 and doPlayerRemoveItem(cid, ITEM_WORM, 1)))) then
       doPlayerAddItem(cid, ITEM_FISH, 1)
       doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
       doSendMagicEffect(topos, CONST_ME_LOSEENERGY)
   else
   doSendMagicEffect(topos, CONST_ME_LOSEENERGY)
   end
   return true
end

 

Explicando: Marrom: São os monstros possiveis que poderam ser pescados, lembrando que você tem que seguir o padrão:

{'Nome do Monstro'},

Com uma virgula no final se nao for o ultimo.

E lembrando de mudar aqui :

local numero = 2

Atualizando sempre para o numero de monstros.

Por exemplo no script, os monstros que podem ser puxados são Rat e Water Elemental, somando 2. Logo:

local numero = 2

 

Espero que tenham gostado

[Gpwjhlkdcf 21]

Não precisava fazer colocar a string dentro de uma tabela ({'Water Elemental'},), bastava a string, mas OK.

Movido.

[Warp 0]

Ótimo script, e só uma coisa pra "automatizar" mais o script tipo, envez de ter que indicar quantos monstros tem na tabela é so colocar:

local numero = #monsters

Retorna a mesma coisa :yes:

Exemplo:

local ok = {'lol','xd','kk'}
local num = #ok
for i = 1,20 do
 print(ok[math.random(1,num)])
end

Editado 2 Fevereiro, 2010 por Warp

[Sinister 0]

Obrigado pela sugestao, to me acostumando ainda com esse negocio de automatizar as paradas aheauiehau.

vlw

[Kerooker 0]

fico maneiro... soh nao gostei do exemplo... tu pesca um rato?? aeuhaseu

podia dar a chance de achar coisas velhas tmb... 1 gold coin, 1 worn leather lags... talvez um avançado tipo: um peixe grande te puxa pra debaixo dagua (?!?)

[Pandá s2 0]

é igual a Do P.O... é bom para os karas que tao fazendo Projetos de Pokemons!!!

[dragonlorde 0]

Ideia mto doida gostei o script ta legal

[cmf17978 0]

17/02/2010 19:46:24] >> Loading script systems

[17/02/2010 19:46:24] Warning: [Event::loadScript] Can not load script. data/actions/scripts/tools/fishing.lua

[17/02/2010 19:46:24] data/actions/scripts/tools/fishing.lua:1: unexpected symbol near 'ï'

[17/02/2010 19:46:24] >> Loading monsters

 

alguem pode me ajudar?

[Zaffend 0]

Poo achei irado manow... é bom pra pessoas que querem fazer server de pokemón ;D

[TheHaunter 0]

ow nao sobe o SKILL FISHING?

Como faço pra tpw, eu quero que pesque dpois de ter fishing 20 otros monstros como faço?

 

obrigado.

[GustavoMassa 1]

Muito Bom o script Sinister ótima ideia...

So que no seu script o fishing esta subindo muito rapido...

Aqui dei uma organizada e arrumei o fishing:

 

local useWorms = TRUE
local waterIds = {493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625}
local monsters = {
   {'Water Elemental'},
   {'Rat'}
}

local numero = 2 -- numero de monstros que você colocou /\
local number = 10 -- < quanto maior, mais dificil de pescar um monstro
local chance = math.random(1, numero + number)

function onUse(cid, item, fromPosition, itemEx, toPosition)
   if isInArray(waterIds, itemEx.itemid) == TRUE then
       if itemEx.itemid ~= 493 then
           if math.random(1, (100 + (getPlayerSkill(cid, SKILL_FISHING) / 10))) <= getPlayerSkill(cid, SKILL_FISHING) then
               if useWorms == TRUE then
                   if getPlayerItemCount(cid, ITEM_WORM) > 0 then
                       doPlayerRemoveItem(cid, ITEM_WORM, 1)
                           if chance >= 1 and chance <= numero then
                               create = monsters[chance][1]
                               doSummonCreature(create, getCreaturePosition(cid))
                               doSendMagicEffect(toPosition, 11)
                               doPlayerSendTextMessage(cid, 25,"WHATAHELL!.")
                           else
                           doSendMagicEffect(toPosition, CONST_ME_LOSEENERGY)
                           end
                       end
                   end
               else
               doPlayerAddItem(cid, ITEM_FISH, 1)
           end
           doPlayerAddSkillTry(cid, SKILL_FISHING, 1)
       end
       doSendMagicEffect(toPosition, CONST_ME_LOSEENERGY)
       return TRUE
   end
   return FALSE
end

 

vlw ;D

[Mickfern 32]

Nossa ficou muito legal =] Espero que faça mais scripts, implantei no meu servidor pegou perfeitamente e os players amaram *-*

[zannyxd123 0]

útil para alguns projetos de Pokemon... quando pesca, sai o pokémon

Parabéns!

[swordest 0]

POkemon online ? *o*'

[kenamen 0]

affs, nao funfa em ot 8.11? :DDD

[lulu1001 0]

é o seguinte eu tou com uma dúvida, Ta tudo certo aqui essa action, soh tem um problema, o fishing level parou de subir.. i agora??

[hgl_pira 0]

legal vo testar .

valeu pela contribuição.

[Monito 0]

Gostei muito bom ' para quem ta formando servidor de poke tibia isso e bom ;x

[kenamen 0]

aqui nao pega pra 8.11 :s

[lulu1001 0]

é o seguinte eu tou com uma dúvida, Ta tudo certo aqui essa action, soh tem um problema, o fishing level parou de subir.. i agora??

 

Eu continuo com a dúvida gente me ajuda ai..