Sitema%2FMod [Pokemon] Catch System Por Skill

[Nextbr 259]

Eae Galera Tudo na Paz?

[+] Hoje Vou Postar um Script de Catch Por Skill Configurado No "Sword Fighting" do Seu Old Client Intao vamos La:

-Resumo: Quanto Maior o Skill "Catching" Maior a chance de Captura do Pokemon!

[+] OBS: Eu nao Vou Postar o Script Completo Pois de Cada (PDA) ou (PDA - COM PokeLevel) é Diferente um do Outro, Eu So vou Ensinar a Voces a como Adicionar o Sistema em Seus Servidores!

[+] Servidor Testado:
- Pokemon Dash Advanced

[+] Primeiro Vai em Data/Lib/catchsystem.lua e Procure por essa Funçao:

function doCapturePokemon(cid, poke, ballid, status, typeee)

[+] Na Parte aonde manda a MSG de que Voce "capturou um Pokemon" e "Capturou um Pokemon e Foi para o CP" add Isso Abaixo dessas Msg:

doPlayerAddSkillTry(cid,2,10)

- Resumo: doPlayerAddSkillTry(cid,2,10) --- Quando Capturar um Pokemon vai Ganhar 10% de Skill "2".
- Obs: No meu Client o Skill Catching Esta no Skill "Sword Fighting"



[+] Bom Logo Apos Voce vai em data/actions/catch.lua e no Começo do Script add isso:

local skill20 = 10    -- Mude aqui a chance de capiturar

local skill30 = 15    -- Mude aqui a chance de capiturar

local skill40 = 20    -- Mude aqui a chance de capiturar

local skill50 = 25    -- Mude aqui a chance de capiturar

local skill60 = 30-- Mude aqui a chance de capiturar

local skill70 = 35 -- Mude aqui a chance de capiturar

local skill80 = 40-- Mude aqui a chance de capiturar

local skill90 = 45-- Mude aqui a chance de capiturar

local skill100 = 50-- Mude aqui a chance de capiturar

local skill150 = 75 -- Mude aqui a chance de capiturar

 

[+] Agora Procure essa Funçao: local catchinfo = {}

- E Troca por Isso:

local catchinfo = {}

if getPlayerSkillLevel(cid, 2) <= 20 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill20

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill20.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 30 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill30

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill30.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 40 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill40

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill40.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 50 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill50

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill50.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 60 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill60

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill60.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 70 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill70

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill70.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 80 then ---- Skill Cathing 0 a 25

catchinfo.rate = ballcatch[item.itemid].cr + skill80

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill80.."x]")

 

else

if getPlayerSkillLevel(cid, 2) >= 90 then ---- Skill Cathing 26 a 50

catchinfo.rate = ballcatch[item.itemid].cr + skill90

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill90.."x]")

else

if getPlayerSkillLevel(cid, 2) >= 100 then ---- Skill Cathing 51 a 75

catchinfo.rate = ballcatch[item.itemid].cr + skill100

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill100.."x]")

else

if getPlayerSkillLevel(cid, 2) >= 150 then ---- Skill Cathing 76 a 100......

catchinfo.rate = ballcatch[item.itemid].cr + skill150

doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."]  [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill150.."x]")

else

catchinfo.rate = ballcatch[item.itemid].cr

end

end

end

end

end

end

end

end

end

end

catchinfo.catch = ballcatch[item.itemid].on
catchinfo.fail = ballcatch[item.itemid].off
catchinfo.newid = newidd
catchinfo.name = doCorrectPokemonName(name)
catchinfo.topos = topos
catchinfo.chance = x.chance


doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send)
doRemoveItem(item.uid, 1)

local d = getDistanceBetween(getThingPos(cid), topos)


addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee)
addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3)
return true
end

-OBS: O Script é Bem Basico. Dar Para adicionar varios Coisas Como (Ganhar EXP Dependendo do Skill/Almentar Chance de Catch para Premium Account e etc...)

[+] Imagens:


[+] OBS: So vai ganhar Skill se Voce Capturar o Pokemon e Recomendo voces Deixar o Catch BAIXO! Por que o Script faz a Soma de Rate um Exemplo:
Pokeball Rate: 50
Skill Cathing Rate (com 25 de Skill Cathing) : 100
Somar: 50+100 = 150 de Rate o Jogador vai ter

 

[script Atualizado Dia 25/01/2015]




[+] Creditos: NextBR

Editado Janeiro 25, 2015 por Nextbr (veja o histórico de edições)

[Cat 2606]

Olá amigo, seu tópico foi aprovado. Obrigado por estar contribuindo, achei um ótimo conteúdo para o fórum

Estarei movendo para a seção adequada beleza?

[Nextbr 259]

Sim e Obrigado =)

[GabrielSapient 232]

Ótimo, muito bom mesmo, mas pode entrar em contato comigo, meu Skype está no meu perfil.

Reputado.

[Nextbr 259]

Script Atualizado Dia [25/01/2015]

[KilluaFox 1]

Achei muito boa a ideia Nex será que vc nao deixa uma variavel como voce falou de ganhar xp ao subir o skill de caught nao quero que almente o caught quero premiar o player a cada nivel que ele pegue de skill por exemplo a cada nivel de skill ganha 100k cash e 1kk de exp é um exemplo basico dae voce colocaria editavel e nós iriamos adequando as nossas preferencias , no mais muito bom o script irei testar ...

 

uma duvida eu uso OT client nao tem problema neh pelo que vi vc disse que usa o OLD

 

segunda vez que vejo um bom trabalho vindo de vc tente ser mais presente ao sanar duvidas creio que irá ajudar mt e desde já obrigado.

[Todimaster 2]

Muito bom gostei do Sistema , vai ficar mais facil de capturar pokes

[Arthasz Walker 5]

Desculpem reviver o tópico, mas me tira uma dúvida.
Caso eu capture vários pokemons do mesmo, a rate irá aumentar também? 
EX: Caso eu capture 10 rattata, o skill irá subir?