Fishing Rod

[Conde Sapo 4]

Exclusivo para XTibia

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

e ponha o getPlayerExhaust identico a esse que fizeram num tutorial

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

 

Divirtam-se pescando.

Editado Novembro 25, 2007 por Conde Sapo

[Skulls 331]

Parabens...

Super fishing rod completa =D

 

aprovado...

 

flw

[tibiaa4e 86]

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%

[Ferrys 0]

muito bom

a fishing não

funcionava lá

no meu ot

valeu ai

[Dark Lost 2]

Boa Conde Sapo

 

Está sempre trazendo boas novidades

 

para o fórum

 

Parabéns

 

Abraços

[Conde Sapo 4]

a fishing não funcionava lá no meu ot

Adoro ouvir isso...

Saber que meu trabalho ajudou alguém.

 

OBRIGADO POR MENCIONAR ISSO

 

:smile_positivo:

[tibiaa4e 86]

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)

[4291226 0]

Pow...

Nao Funfo

 

Help mE

Xd

 

 

Cya

Deu esse Erro

 

event onUse not found.

 

 

Cya

[Conde Sapo 4]

(como se eu fosse grande coisa xD)

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

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

 

Nao Funfo

Deu esse Erro

event onUse not found.

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

 

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

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

 

Para de quebrar minhas pernas PLX

[4291226 0]

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..

[Conde Sapo 4]

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

 

[4291226 0]

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

[DeadKennedy 2]

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:

[Conde Sapo 4]

Vlw King

 

vai ajudar muita gente

agradeço em nome de todos

 

:smile_positivo:

[Cloaky 0]

Opa,

*Conde Sapo~

• Gostei mas acho que precisa adicionar Exausted.
  

Sem mais,

Cloaky\~\