Fishing System 100% (7.92)

[Rafael Hamdan 0]

Fala galera!

 

Eu, particurlamente, nunca encontrei um sistema de fishing 100% igual ao global aqui, todos faltam alguma coisa!

 

Fishing System 100% - Features:

 

- Remove uma minhoca ao pescar um peixe

- Só sobe skill se tiver minhoca na bp

- Só pesca se tiver minhoca na bp

- Sobe skills normalmente

- Todas tiles de águas, EXATAMENTE TODAS

 

Script:

 

Abra o actions.xml, em Pastadoot/actions/actions.xml

 

Adicione:

 

<action itemid="2580" script="fishing.lua" allowfaruse="1" />

 

Não mecha nisto, e não remova o allowfaruse, que faz com que possa pescar de longe da tile da água.

 

Agora, crie um arquivo chamado "fishing.lua", dentro da pasta scripts que está dentro da pasta actions, e nele coloque:

 

-- Fishing system : By RafaelHamdan --

 

 

 

function onUse(cid, item, frompos, item2, topos)

 

-- itemid means that is a creature

 

if item2.itemid == 490 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

elseif item2.itemid == 491 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

elseif item2.itemid == 492 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

elseif item2.itemid >= 4608 and item2.itemid <=4625 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

elseif item2.itemid >= 4820 and item2.itemid <=4825 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

elseif item2.itemid >= 4664 and item2.itemid <=4666 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

 

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

elseif item2.itemid >= 606 and item2.itemid <=636 then

 

skill_level = getPlayerSkill(cid,6)

 

random_number = math.random(1,(100+skill_level/10))

 

doSendMagicEffect(topos,1)

 

if random_number<=skill_level then

if doPlayerRemoveItem(cid,3976,1) == 1 then

doPlayerAddItem(cid,2667,1)

end

end

 

if haveItem(cid,3976,1,0,1) == 1 then

doPlayerAddSkillTry(cid,6,1)

end

 

 

 

else

 

return 0

 

end

 

return 1

 

end[/b]

 

Pronto! Fishing system igualzinho global, com todas tiles, 100% funcionando.

 

Testado em Zorzin 7.92 e Evolutions 7.92.

 

//Rafael Hamdan;[/b]

[Giko 0]

@Rafael

 

Boa!

 

Aprovado.

 

Tópico movido.

[T l l S 0]

Boa cara,

 

 

Gostei.

 

Aprovado

 

Abraço

[Velho Doidao 2]

Boa cara,tava precisando de 1 script

dessa mesmo aki,valeu por trazer pra nois

Aprovado

[manoeln 0]

Muito bem!

APROVADO!

[Rafael Hamdan 0]

Giko, o tópico não deveria ficar em : Downloads / Downloads de Scripts / Actions ??

 

//Rafael Hamdan;

[Rul700 0]

Aew cara vlw!!!

 

 

uma duvida

 

funfa no 8.00?

[HenneT 2]

Me diz uma coisa a minhoca tem que estar na BP ou no lugar da flecha?

 

-- Baixando..

 

Abraços HeNnEt

[Rogui 0]

Já tem varios tópicos desses aqui :~

 

E esse seu está menos completo, ele nem adiciona tentativas de fishing :/

[matheus azzi 0]

muito bem

cara

tava procurando

pois é verdade

ñ tem nenhum ot

que teja perfeito

(que eu saiba)

vlw

[Lugano The Fakke 0]

gostei pra caramba!!! parabens!! vlw

[LMS 0]

Dá esse errinho ai =/

[Mohamed 0]

tava precisando

no meu ele pesca td certinho...

so nao remove as minhocas :/

vo por no meu sv

[Raphael Carnaúba 1]

WATER_WITH_FISH = {490, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625} 
WATER_WITHOUT_FISH = {491, 492, 493, 618, 619, 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 4664, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825} 


function onUse(cid, item, frompos, item2, topos)

    if isInArray(WATER_WITH_FISH, item2.itemid) == TRUE then 
        formula = getPlayerSkill(cid, 6) / 200 + 0.85 * math.random()
        if formula > 0.70 then
            if doPlayerRemoveItem(cid, 3976, 1) == TRUE then
                if item2.actionid == 100 and math.random(1, 1000) == 1000 then
                    doPlayerAddItem(cid, 2669, 1)
                else
                    doPlayerAddItem(cid, 2667, 1)
                end
                doTransformItem(item2.uid, item2.itemid + 2)
                doDecayItem(item2.uid)
            end
        end
        doSendMagicEffect(topos, 1)
        doPlayerAddSkillTry(cid, 6, 1)
    elseif isInArray(WATER_WITHOUT_FISH, item2.itemid) == TRUE then
        doSendMagicEffect(topos, 1)
    else
        return 0
    end
    return 1
end

 

Bem melhor não?

 

Abraços...

[higor_gremista 0]

Muito bom cara

eu tbm nunca vi aki...

fLws

[Rafael Hamdan 0]

Moderador, passe para downloads de scripts por favor. =(

 

//Rafael Hamdan;

[cnecjoao 0]

boa mais meio inutel... hoje em dia ninguem mais pesca em ot algum!!

[Conde2 0]

eu nao tava procurando mais ta bem legal sim

so uma pergunta funciona em 8.0?

aguardando respostas

[ftofelipe 0]

Muito bom msm gostei ;D

parabens

[HenneT 2]

Muito bom cara para quem não gosta do que vem esse ai é uma alternativa x]

 

Parabéns!

 

Abraços HeNNET \\