Pescando Monstros

tibiaa4e · Fevereiro 7, 2010

Eu vi um pedido aqui e navegando pela net acabei achando e resolvi postar

Para adicionar basta trocar o que tem em tools/fishing_rod.lua por isso (o arquivo pode ter nome diferente em certos otservers)

local config = {

waterIds = {493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625},

rateSkill = getConfigValue("rateSkill"),

allowFromPz = false,

useWorms = true

}


function onUse(cid, item, fromPosition, itemEx, toPosition)

if(not isInArray(config.waterIds, itemEx.itemid)) then

	return false

end


if((config.allowFromPz or not getTileInfo(getCreaturePosition(cid)).protection) and itemEx.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

               if(formula > 5.53) then
        doPlayerSendTextMessage(cid, 22, You've caught a Wyrm!)
        doSummonCreature(Wyrm, topos)                
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.47) then

        doPlayerSendTextMessage(cid, 22, You've caught a Sea Serpent!)
        doSummonCreature(Sea Serpent, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.7) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara constrictor!)
        doSummonCreature(quara constrictor, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 4.1) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara hydromancer!)
        doSummonCreature(quara hydromancer, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.85) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara mantassin!)
        doSummonCreature(quara mantassin, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.25) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara pincher!)
        doSummonCreature(quara pincher, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.20) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara predator!)
        doSummonCreature(quara predator, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 6.20) then
        doPlayerSendTextMessage(cid, 22, You've angered the water gods and a water god has been sent to kill you!!)
        doSummonCreature([sea God Name], topos)
               broadcastMessage(getPlayerName(cid) .. " has angered the goddess of water, [boss Name]")
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               end
end


doSendMagicEffect(toPosition, CONST_ME_LOSEENERGY)

return true

end

Creditos :SexyDevil

TheGODMaX · Fevereiro 7, 2010

Legal o Script !!

Não intendi muito bem, mais pelo que ví está bom...

Mais o nosso outro amigo ja avisa postado um sistema de pescar monstros !! :x

Porém, acho q este esteja mais complexo... explica um pouco ele, pelo que ví tem gente q vai se enrolar !!

Tipo na parte:

doSummonCreature([sea God Name], topos)

broadcastMessage(getPlayerName(cid) .. " has angered the goddess of water, [boss Name]")

doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

end

Não é todo ot que tem o monstro 'Sea God Name'. ( o meu msm n tem )

:x

Vlw aew por trazer o script pra ca ^^

-----------

Edit:

Opa! deu um erro aqui..

[07/02/2010 16:44:50] [Error - LuaScriptInterface::loadFile] data/actions/scripts/tools/fishingm.lua:30: ')' expected near 'pegou'

[07/02/2010 16:44:50] [Warning - Event::loadScript] Cannot load script (data/actions/scripts/tools/fishingm.lua)

[07/02/2010 16:44:50] data/actions/scripts/tools/fishingm.lua:30: ')' expected near 'pegou'

esse 'pegou' foi pq eu traduzi as frases, tipo:

if(formula > 5.53) then

doPlayerSendTextMessage(cid, 22, Voce pegou um Wyrm!)

doSummonCreature(wyrm, topos)

doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

Editado Fevereiro 7, 2010 por TheGODMaX

satan666 · Fevereiro 7, 2010

Eu vi um pedido aqui e navegando pela net acabei achando e resolvi postar

Para adicionar basta trocar o que tem em tools/fishing_rod.lua por isso (o arquivo pode ter nome diferente em certos otservers)

local config = {

waterIds = {493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625},

rateSkill = getConfigValue("rateSkill"),

allowFromPz = false,

useWorms = true

}


function onUse(cid, item, fromPosition, itemEx, toPosition)

if(not isInArray(config.waterIds, itemEx.itemid)) then

	return false

end


if((config.allowFromPz or not getTileInfo(getCreaturePosition(cid)).protection) and itemEx.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

               if(formula > 5.53) then
        doPlayerSendTextMessage(cid, 22, You've caught a Wyrm!)
        doSummonCreature(Wyrm, topos)                
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.47) then

        doPlayerSendTextMessage(cid, 22, You've caught a Sea Serpent!)
        doSummonCreature(Sea Serpent, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.7) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara constrictor!)
        doSummonCreature(quara constrictor, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 4.1) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara hydromancer!)
        doSummonCreature(quara hydromancer, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.85) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara mantassin!)
        doSummonCreature(quara mantassin, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.25) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara pincher!)
        doSummonCreature(quara pincher, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.20) then

        doPlayerSendTextMessage(cid, 22, You've caught a quara predator!)
        doSummonCreature(quara predator, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 6.20) then
        doPlayerSendTextMessage(cid, 22, You've angered the water gods and a water god has been sent to kill you!!)
        doSummonCreature([sea God Name], topos)
               broadcastMessage(getPlayerName(cid) .. " has angered the goddess of water, [boss Name]")
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               end
end


doSendMagicEffect(toPosition, CONST_ME_LOSEENERGY)

return true

end

Creditos :SexyDevil

bem que você poderia ter dado um arrumada nesse script ta orrivel.

rockstar96 · Fevereiro 9, 2010

o cara nem fechou as strings

xurupita1 · Fevereiro 9, 2010

Eu vi um pedido aqui e navegando pela net acabei achando e resolvi postar

Para adicionar basta trocar o que tem em tools/fishing_rod.lua por isso (o arquivo pode ter nome diferente em certos otservers)

local config = {

waterIds = {493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625},

rateSkill = getConfigValue("rateSkill"),

allowFromPz = false,

useWorms = true

}


function onUse(cid, item, fromPosition, itemEx, toPosition)

if(not isInArray(config.waterIds, itemEx.itemid)) then

	return false

end


if((config.allowFromPz or not getTileInfo(getCreaturePosition(cid)).protection) and itemEx.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

               if(formula > 5.53) then
       	doPlayerSendTextMessage(cid, 22, You've caught a Wyrm!)
       	doSummonCreature(Wyrm, topos)                
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.47) then

       	doPlayerSendTextMessage(cid, 22, You've caught a Sea Serpent!)
       	doSummonCreature(Sea Serpent, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)

               elseif(formula > 4.7) then

       	doPlayerSendTextMessage(cid, 22, You've caught a quara constrictor!)
       	doSummonCreature(quara constrictor, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 4.1) then

       	doPlayerSendTextMessage(cid, 22, You've caught a quara hydromancer!)
       	doSummonCreature(quara hydromancer, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.85) then

       	doPlayerSendTextMessage(cid, 22, You've caught a quara mantassin!)
       	doSummonCreature(quara mantassin, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.25) then

       	doPlayerSendTextMessage(cid, 22, You've caught a quara pincher!)
       	doSummonCreature(quara pincher, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 3.20) then

       	doPlayerSendTextMessage(cid, 22, You've caught a quara predator!)
       	doSummonCreature(quara predator, topos)
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               elseif(formula > 6.20) then
       	doPlayerSendTextMessage(cid, 22, You've angered the water gods and a water god has been sent to kill you!!)
       	doSummonCreature([sea God Name], topos)
               broadcastMessage(getPlayerName(cid) .. " has angered the goddess of water, [boss Name]")
	doPlayerAddSkillTry(cid, SKILL_FISHING, config.rateSkill)
               end
end


doSendMagicEffect(toPosition, CONST_ME_LOSEENERGY)

return true

end

Creditos :SexyDevil

Gostei , Mais Nao Tem Como Colocar, Imagens Tanbem Nao?? So PAra Ficar Mais Organizado Ainda.?

morgado4ever · Fevereiro 17, 2010

Maaaaaano, da onde saiu esse formula? Não consegui entender..

Entrar

Pescando Monstros

Posts Recomendados

tibiaa4e 86

Link para o comentário

Compartilhar em outros sites

TheGODMaX 24

Link para o comentário

Compartilhar em outros sites

satan666 12

Link para o comentário

Compartilhar em outros sites

rockstar96 4

Link para o comentário

Compartilhar em outros sites

xurupita1 1

Link para o comentário

Compartilhar em outros sites

morgado4ever 2

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Baiak Titan 8.6 200X - 24h/7 Dedicado BR (COM MONTARIAS)

[MOD] Pokedex Window para base PDA [v1.0]

Sabbath Global Reset 8.6

naruto [OTX2 8.6] NTO BATTLE (NOVIDADE) ATUALIZADO 1 2

Pokemon Imperium - Por Lordbaxx | Completo 1 2 3

Fóruns

Tutoriais

Suporte