Fishing Rod

favor não postar em outro forum

Já ví varios scripts de Fishing Rod

todos são ENORMES ou INCOMPLETOS

este aqui é pequeno e funciona quase igual o Tibia Global

(não consegui por exausted - HELP)

data\actions\actions.xml

-- Fishing Rod (By COnde Sapo)

function onUse(cid, item, frompos, item2, topos)
if exhaust(cid,777,1) == TRUE then
	return 0
end

if (item2.itemid >= 490 and item2.itemid <= 492) or
	(item2.itemid >= 618 and item2.itemid <= 629) or
	(item2.itemid >= 4608 and item2.itemid <= 4625) or
	(item2.itemid >= 4820 and item2.itemid <= 4825) then
	doSendMagicEffect(topos, 1)
	skill_level = getPlayerSkill(cid,6)
	random_number = math.random(1,(100+skill_level/10))
	if random_number<=skill_level then
		if doPlayerRemoveItem(cid,3976,1) == TRUE then
			doPlayerAddItem(cid,2667,1)
			doPlayerAddSkillTry(cid,6,3)
		end
	end
	doPlayerAddSkillTry(cid,6,1)
elseif item2.itemid == 7236 then
	skill_level = getPlayerSkill(cid,6)
	random_number = math.random(1,(100+skill_level/10))
	if random_number<=skill_level then
		if doPlayerRemoveItem(cid,3976,1) == TRUE then
			random_fish = math.random(1,10)
			if random_fish == 1 then
				doPlayerAddItem(cid,2669,1)
			elseif random_fish == 2 then
				doPlayerAddItem(cid,7158,1)
			elseif random_fish == 3 then
				doPlayerAddItem(cid,7159,1)
			else
				doPlayerAddItem(cid,2667,1)
			end
			doTransformItem(item2.uid, 7237)
			doDecayItem(item2.uid)
			doPlayerAddSkillTry(cid,6,3)
		end
	end
	doPlayerAddSkillTry(cid,6,1)
else
	return 0
end
return 1
end

Comentários :

Funciona em qualquer água com movimento (= tibia)

Precisa minhoca (= tibia)

Se não vem peixe sobe 1 ponto no fishing (= tibia)

Se vem o peixe sobe 3 pontos no fishing (= tibia)

A fórmula é a mesma que todos usaram (= tibia)

Buraco no gelo vem o peixe novo (= tibia)

(O script pode ser usado nas versões antigas que não tem gelo)

=============== Editado para EXHAUST ========================

function exhaust(cid, storevalue, exhausttime)
-- Exhaustion function by Alreth, v1.1 2006-06-24 01:31
-- Returns 1 if not exhausted and 0 if exhausted

newExhaust = os.time()
oldExhaust = getPlayerStorageValue(cid, storevalue)
if (oldExhaust == nil or oldExhaust < 0) then
	oldExhaust = 0
end
if (exhausttime == nil or exhausttime < 0) then
	exhausttime = 1
end
diffTime = os.difftime(newExhaust, oldExhaust)
if (diffTime >= exhausttime or diffTime < 0) then
	setPlayerStorageValue(cid, storevalue, newExhaust) 
	return 1
else
	return 0
end
end

Esse script já vem no data\actions\LIB do EVOLUTIONS

ou usem assim :

if getPlayerExhaust(cid,777,1) == 1 then

tenham certeza de não usar um número que coincida com alguma UID de quest

Divirtam-se pescando.

Parabens...

Super fishing rod completa =D

aprovado...

flw

Essa do peixe n sabia

Kero os pacu

Sobre o calculo

Acima de fishing de 30 começa a demorar muito mais para upar

Eu tinha fishing 67 e se tinha q pesca umas 3 orca pra aumenta 1%

muito bom

a fishing não

funcionava lá

no meu ot

valeu ai

Boa Conde Sapo

Está sempre trazendo boas novidades

para o fórum

Parabéns

Abraços

a fishing não funcionava lá no meu ot

Saber que meu trabalho ajudou alguém.

OBRIGADO POR MENCIONAR ISSO

:smile_positivo:

Adoro ouvir isso...

Saber que meu trabalho ajudou alguém.

 

OBRIGADO POR MENCIONAR ISSO

 

:smile_positivo:

Isso e verdade quando eu programava

ouvia isso dava ate prazer auhauhuhauuha

Bom saber que há pessoas de qualidade

No lugar que uma vez eu ocupei (como se eu fosse grande coisa xD)

Pow...

Nao Funfo

Help mE

Xd

Cya

Deu esse Erro

event onUse not found.

Cya

(como se eu fosse grande coisa xD)

......................Mas você foi um dos meus mentores..............................

Nao Funfo

Deu esse Erro

event onUse not found.

Testei varios erros que você poderia ter cometido....

o UNICO sucesso foi :

Substituí a função onUse desse script por onStepIn

a mensagem de erro foi essa ae

Para de quebrar minhas pernas PLX

Acho que você não sabe disso...

......................Mas você foi um dos meus mentores..............................

 

Não uso comandos especiais nos meus scripts...

 

Testei varios erros que você poderia ter cometido....

 

o UNICO sucesso foi :

Então acredito que você cometeu algum erro no seu Ctrl-V

 

Para de quebrar minhas pernas PLX

Lol

Fico Tudo na Msm Linha So Isso..

que o erro era SEU eu já sabia.

já é a terceira vez que você faz coisa errada e culpa meu script.

presta mais atenção PLX

que o erro era SEU eu já sabia.

 

já é a terceira vez que você faz coisa errada e culpa meu script.

presta mais atenção PLX

 

Lol Peguei e Copiei xD..

So Isso..

nao Tenho Culpa que Foi All Na Msm Linha 0o

xD

Cya

Caro conde, sempre ajudando não só as pessoas menos informadas

mas ajudando também queles coitados scripts esquecidos!

Vc é fo.da mas não conta pra ninguem

E quanto ao exhauted existe uma forma bem básica, que o coléx inventou:

é uma bliblioteca(lib) que você adiciona no ot depois de copilado, é muito Rox!

ai vai em:

storage = 12345

exhausted = 1

if doExhaustion(cid, storage, exhausted) == TRUE then

Axo que não preciso explicar né?

Ahh, o download da Lib by Colex está no meu blog:

*~* Topico do Meu Blog! *~*

Nessa lib tem muitas outras funções, espero que aproveite

Flw amigo, até mais!

:hi:

Vlw King

vai ajudar muita gente

agradeço em nome de todos

:smile_positivo:

Opa,

*Conde Sapo~

• Gostei mas acho que precisa adicionar Exausted.
  

Sem mais,

Cloaky\~\