Logo

Pescando Monstros

tibiaa4e
Por tibiaa4e
em Actions e Talkactions

tibiaa4e

Ex amante de Tibia
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 18/12/05Posts: 912Gênero: MasculinoChar no Tibia: Kohzete
Postado em fevereiro 07, 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

Aposentado de OTserver e Tibia

Meus melhores tutoriais
Enciclopédia Pasta Data
Tutorial de quest

TheGODMaX

WoDO | 2013 ~ Okami Games
avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 20/07/09Posts: 161Char no Tibia: Max of Catanduva
Postado em fevereiro 07, 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)

 

:p

wodosign2013t.png

 

WoDO

World of Digimon Online!

Okami Games™

--------------------------------------------------------------------------

Staff • [WODO] MaX

 

wodofacebook.png

O jogo ainda NÃO foi lançado, evitem floodar perguntando 'onde baixar', obrigado.

 

Msn public group:

group1029829@groupsim.com

satan666

Antichrist Superstar
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 07/05/08Posts: 612Char no Tibia: leviana luciferiana
Postado em fevereiro 07, 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.

creationb.jpg

"Um Deus que usasse seu poder para criar seres humanos que de antemão sabia que seriam atormentados eternamente, e que os predestinasse a isso,



não poderia ser sábio, nem justo e tampouco amoroso.

Além de nos submeter a isso vim a nos julgar e condenar por nossos atos aos tormentos do inferno.

pra minha pessoa isso não é um Deus Pai amoroso e bondoso como o chaman, seu padrão seria muito mais inferior do que o de muitos homens."

xurupita1

Membro Xtibiano
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 05/12/09Posts: 7Char no Tibia: Hud of Chuck
Postado em fevereiro 09, 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.?

 

 

<DIV align=left>

<FONT size=3><FONT color=#ff0000><B><A class=bbc_url title="Link externo" href="http://WWW.ShokGames.com.br" rel=nofollow>Shokgames</A>[</B></FONT></FONT>
<BR>
<BR>

morgado4ever

Eu sou o Kazz! ;)
avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 20/10/06Posts: 164Char no Tibia: Kazz Kzupzarski
Postado em fevereiro 17, 2010

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

tibiasoul2.png

Divulgue o servidor, utilize este banner em sua assinatura.

 

WalkAlone Project

Alternative Tibia Server

O N L I N E

 

[ http://WalkAlone.servegame.Com ]

ONLINE! 24 HORAS! 8.70!

 

Nos contate agora mesmo:

tibiasoul@msn.com