Ir para conteúdo
TK News
  • Cadastre-se

Sitema%2FMod [Pokemon] Catch Channel System

Nextbr

Por ,
em Scripts tfs 0.4 (OLD)

 Share Seguidores 0

Posts Recomendados

  • Este é um post popular.
Nextbr

Nextbr 259

Postado
  • Este é um post popular.
Postado (editado)

Boa Noite Glaera, BLZ?

 

Hoje Vou Postar Mais uma de minhas Ideias Loucas de Poketibia que eu particulamente achei legal ate que se Chama "Catch Channel"

 

[+] Para que Serve o Catch Channel?

- Simples Serve Para voce Ver todos os Catch do Servidor no Canal "Catch Channel"

- O Script é Bem Basico!

 

 

[+] Intao Vamos La:

 

[+] Servidor Testado:

Pokemon Dash Advanced (PDA V2.5 BY: BOLZ)

 

 

Vai em data/lib/CATCHSYSTEM.LUA  e Procure por Essa funçao: 

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

 

- Procure por essa Parte do Script:

if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then


doPlayerSendMailByName(getCreatureName(cid), item, 1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
else
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a ("..poke..")!")
end

 

- Logo Abaixo Adiciona isso:

for _, oid in ipairs(getPlayersOnline()) do


doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)
end

 

Explicando:

 

TALKTYPE_CHANNEL_W: Letra Branca 

5 : Channel ID (No Caso é o Game-Chat)

 

Depois vai em data/xml/channels.xml e troca seu Channel id "5" Para Esse:

channel id="5" name="Catch-Channel"  level="2" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">

<vocation id="1"/>
</channel>

 

[+] Imagem:

post-59798-0-38702400-1421798021_thumb.p

 

Creditos: NextBR

Editado por Nextbr (veja o histórico de edições) 

 

 

Link para o post
Compartilhar em outros sites
Danihcv

Danihcv 607

Postado
Postado

Parabéns, Nextbr, seu tutorial foi aprovado e vc recebeu um ponto de reputação. Seu tópico será movido para a área correta.

Esperamos mais conteúdos como esse. ^^

Te ajudei?? REP + e ficamos quites... <ahttp://www.tibiaking.com/forum/uploads/emoticons/default_happyy.png' alt=';D'>

Atenciosamente,

Daniel.

Abraços!

Link para o post
Compartilhar em outros sites
xWhiteWolf

xWhiteWolf 3008

Postado
Postado

ja vi mt gente procurando isso, rep+ por trazer o conteúdo pra cá ;]

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá! 

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites
Thayam

Thayam 187

Postado
Postado

Muito bom cara, certamente muitos irão usufruir haha

 

Reputado!

"A coisa mais indispensável a um homem é reconhecer

o uso que deve fazer do seu próprio conhecimento."

ne5iTLG.png

Ajudei? Reputar não vai te matar :) E Ainda me incentiva muito a continuar ajudando a todos! :rock:

 

Meus trabalhos:

[TUTORIAL] Quando preocupar-se com as cores? - Spriting

[TUTORIAL] Pedras e Rochas - Spriting

[APOSTILAS] Cores e sua parte Teórica - Spriting

[TUTORIAL] Entendendo o Básico sobre cores - Spriting

[TUTORIAL] Spriting, por onde começar?

[TUTORIAL] Coisas para evitar - Spriting

[TUTORIAL] Usando e Escolhendo Cores - Spriting

[TUTORIAL] Pensando em Cores - Spriting

[TUTORIAL] Adicionando novos Pokémons em seu PDA com e sem Icon System

[TUTORIAL] [OLD/OTC] Criando link de Download Direto para seu cliente!

 

Meu Show-off :P

 

Thayam's Show Off

 

Link para o post
Compartilhar em outros sites
  • 1 month later...
Valakinhas

Valakinhas 216

Postado
Postado

NOSSA CARA isso é top  essa ideia apareceu na minha cabeça dai vim pesquisar se realmente existia, você está de parabens, mais a que eu queria seria de alguns pokemon mais dificil tipo aerodactyl snorlax, blastoise esses poke com 3°  evolução também
 

 

 

Link para o post
Compartilhar em outros sites
  • 3 months later...
cleber13

cleber13 3

Postado
Postado

Boa Noite Glaera, BLZ?

 

Hoje Vou Postar Mais uma de minhas Ideias Loucas de Poketibia que eu particulamente achei legal ate que se Chama "Catch Channel"

 

[+] Para que Serve o Catch Channel?

- Simples Serve Para voce Ver todos os Catch do Servidor no Canal "Catch Channel"

- O Script é Bem Basico!

 

 

[+] Intao Vamos La:

 

[+] Servidor Testado:

Pokemon Dash Advanced (PDA V2.5 BY: BOLZ)

 

 

Vai em data/lib/CATCHSYSTEM.LUA  e Procure por Essa funçao: 

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

 

- Procure por essa Parte do Script:

if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

doPlayerSendMailByName(getCreatureName(cid), item, 1)

doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")

doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")

else

doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a ("..poke..")!")

end

 

- Logo Abaixo Adiciona isso:

for _, oid in ipairs(getPlayersOnline()) do

doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)

end

 

Explicando:

 

TALKTYPE_CHANNEL_W: Letra Branca 

5 : Channel ID (No Caso é o Game-Chat)

 

Depois vai em data/xml/channels.xml e troca seu Channel id "5" Para Esse:

channel id="5" name="Catch-Channel"  level="2" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">

<vocation id="1"/>
</channel>

 

[+] Imagem:

attachicon.gifaaaaaaa.png

 

Creditos: NextBR

ola amigo. aqui deu erro

 

[03/07/2015 13:47:06] Line: 22, Info: Extra content at the end of the document

[03/07/2015 13:47:06] > ERROR: Unable to load chat channels!

 

 

uso pda pokecyan

 

se souber resolver eu agradeço muito reputado. vlwww

Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
  • Autor
Postado (editado)

Posta seu channels.xml para que eu possa arrumar!

- Obs: eu Expliquei direitinho de como adicionar mesmo assim ta foda --' 

@edit: esse Sistema e tao simples que funciona em qualquer servidor de Pokemon/tibia e etc.... --'

Editado por Nextbr (veja o histórico de edições) 

 

 

Link para o post
Compartilhar em outros sites
cleber13

cleber13 3

Postado
Postado

Posta seu channels.xml para que eu possa arrumar!

- Obs: eu Expliquei direitinho de como adicionar mesmo assim ta foda --' 

@edit: esse Sistema e tao simples que funciona em qualquer servidor de Pokemon/tibia e etc.... --'

<?xml version=1.0" encoding="UTF-8"?>

<channels>

<!-- README:

0 - dynamic, reserved for guilds

1 - always acts as Party channel, only "name" tag available

3 - always acts as Rule Violations channel

9 - acts as Help channel- clientsided message

65535 - DO NOT CHANGE THE ID- only "name", "enabled", "active" and "logged" tags available

-->

<channel id="1" name="Party">

<vocation id="1"/>

</channel>

<channel id="2" name="Staff" access="3">

<vocation id="1"/>

</channel>

<channel id="3" name="Rule Violations" logged="yes">

<vocation id="1"/>

</channel>

<channel id="4" name="Counselor" access="1">

<vocation id="1"/>

</channel>

<channel id="5" name="Game-Chat" level="2">

<vocation id="1"/>

</channel>

<channel id="6" name="Trade" level="8" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">

<vocation id="1"/>

</channel>

<channel id="7" name="Trade-Rookgaard" level="2" muted="120" conditionId="3" conditionMessage="You may only place one offer in two minutes.">

<vocation id="0"/>

</channel>

<channel id="8" name="RL-Chat" level="2">

<vocation id="1"/>

</channel>

<channel id="9" name="Help" level="20" muted="120" conditionId="3" conditionMessage="Can not reenter, please wait 2 minutes.">

<vocation id="1"/>

</channel>

<channel id="10" name="Show Pokemon Statistics">

<vocation id="3"/>

</channel>

<channel id="11" name="Show Top Level">

<vocation id="3"/>

</channel>

<channel id="12" name="Show Top Fishing">

<vocation id="3"/>

</channel>

<channel id="13" name="1 poke">

<vocation id="8"/>

</channel>

<channel id="14" name="2 pokes">

<vocation id="8"/>

</channel>

<channel id="15" name="3 pokes">

<vocation id="8"/>

</channel>

<channel id="16" name="4 pokes">

<vocation id="8"/>

</channel>

<channel id="17" name="5 pokes">

<vocation id="8"/>

</channel>

<channel id="18" name="6 pokes">

<vocation id="8"/>

</channel>

<channel id="19" name="1x1">

<vocation id="7"/>

</channel>

<channel id="20" name="2x2">

<vocation id="7"/>

</channel>

<channel id="21" name="3x3">

<vocation id="7"/>

</channel>

<channel id="10001" name="001-Bulbasaur">

<vocation id="9"/>

</channel>

<channel id="10002" name="002-Ivysaur">

<vocation id="9"/>

</channel>

<channel id="10003" name="003-Venusaur">

<vocation id="9"/>

</channel>

<channel id="10004" name="004-Charmander">

<vocation id="9"/>

</channel>

<channel id="10005" name="005-Charmeleon">

<vocation id="9"/>

</channel>

<channel id="10006" name="006-Charizard">

<vocation id="9"/>

</channel>

<channel id="10007" name="007-Squirtle">

<vocation id="9"/>

</channel>

<channel id="10008" name="008-Wartortle">

<vocation id="9"/>

</channel>

<channel id="10009" name="009-Blastoise">

<vocation id="9"/>

</channel>

<channel id="10010" name="010-Caterpie">

<vocation id="9"/>

</channel>

<channel id="10011" name="011-Metapod">

<vocation id="9"/>

</channel>

<channel id="10012" name="012-Butterfree">

<vocation id="9"/>

</channel>

<channel id="10013" name="013-Weedle">

<vocation id="9"/>

</channel>

<channel id="10014" name="014-Kakuna">

<vocation id="9"/>

</channel>

<channel id="10015" name="015-Beedrill">

<vocation id="9"/>

</channel>

<channel id="10016" name="016-Pidgey">

<vocation id="9"/>

</channel>

<channel id="10017" name="017-Pidgeotto">

<vocation id="9"/>

</channel>

<channel id="10018" name="018-Pidgeot">

<vocation id="9"/>

</channel>

<channel id="10019" name="019-Rattata">

<vocation id="9"/>

</channel>

<channel id="10020" name="020-Raticate">

<vocation id="9"/>

</channel>

<channel id="10021" name="021-Spearow">

<vocation id="9"/>

</channel>

<channel id="10022" name="022-Fearow">

<vocation id="9"/>

</channel>

<channel id="10023" name="023-Ekans">

<vocation id="9"/>

</channel>

<channel id="10024" name="024-Arbok">

<vocation id="9"/>

</channel>

<channel id="10025" name="025-Pikachu">

<vocation id="9"/>

</channel>

<channel id="10026" name="026-Raichu">

<vocation id="9"/>

</channel>

<channel id="10027" name="027-Sandshrew">

<vocation id="9"/>

</channel>

<channel id="10028" name="028-Sandslash">

<vocation id="9"/>

</channel>

<channel id="10029" name="029-Nidoran Female">

<vocation id="9"/>

</channel>

<channel id="10030" name="030-Nidorina">

<vocation id="9"/>

</channel>

<channel id="10031" name="031-Nidoqueen">

<vocation id="9"/>

</channel>

<channel id="10032" name="032-Nidoran Male">

<vocation id="9"/>

</channel>

<channel id="10033" name="033-Nidorino">

<vocation id="9"/>

</channel>

<channel id="10034" name="034-Nidoking">

<vocation id="9"/>

</channel>

<channel id="10035" name="035-Clefairy">

<vocation id="9"/>

</channel>

<channel id="10036" name="036-Clefable">

<vocation id="9"/>

</channel>

<channel id="10037" name="037-Vulpix">

<vocation id="9"/>

</channel>

<channel id="10038" name="038-Ninetales">

<vocation id="9"/>

</channel>

<channel id="10039" name="039-Jigglypuff">

<vocation id="9"/>

</channel>

<channel id="10040" name="040-Wigglytuff">

<vocation id="9"/>

</channel>

<channel id="10041" name="041-Zubat">

<vocation id="9"/>

</channel>

<channel id="10042" name="042-Golbat">

<vocation id="9"/>

</channel>

<channel id="10043" name="043-Oddish">

<vocation id="9"/>

</channel>

<channel id="10044" name="044-Gloom">

<vocation id="9"/>

</channel>

<channel id="10045" name="045-Vileplume">

<vocation id="9"/>

</channel>

<channel id="10046" name="046-Paras">

<vocation id="9"/>

</channel>

<channel id="10047" name="047-Parasect">

<vocation id="9"/>

</channel>

<channel id="10048" name="048-Venonat">

<vocation id="9"/>

</channel>

<channel id="10049" name="049-Venomoth">

<vocation id="9"/>

</channel>

<channel id="10050" name="050-Diglett">

<vocation id="9"/>

</channel>

<channel id="10051" name="051-Dugtrio">

<vocation id="9"/>

</channel>

<channel id="10052" name="052-Meowth">

<vocation id="9"/>

</channel>

<channel id="10053" name="053-Persian">

<vocation id="9"/>

</channel>

<channel id="10054" name="054-Psyduck">

<vocation id="9"/>

</channel>

<channel id="10055" name="055-Golduck">

<vocation id="9"/>

</channel>

<channel id="10056" name="056-Mankey">

<vocation id="9"/>

</channel>

<channel id="10057" name="057-Primeape">

<vocation id="9"/>

</channel>

<channel id="10058" name="058-Growlithe">

<vocation id="9"/>

</channel>

<channel id="10059" name="059-Arcanine">

<vocation id="9"/>

</channel>

<channel id="10060" name="060-Poliwag">

<vocation id="9"/>

</channel>

<channel id="10061" name="061-Poliwhirl">

<vocation id="9"/>

</channel>

<channel id="10062" name="062-Poliwrath">

<vocation id="9"/>

</channel>

<channel id="10063" name="063-Abra">

<vocation id="9"/>

</channel>

<channel id="10064" name="064-Kadabra">

<vocation id="9"/>

</channel>

<channel id="10065" name="065-Alakazam">

<vocation id="9"/>

</channel>

<channel id="10066" name="066-Machop">

<vocation id="9"/>

</channel>

<channel id="10067" name="067-Machoke">

<vocation id="9"/>

</channel>

<channel id="10068" name="068-Machamp">

<vocation id="9"/>

</channel>

<channel id="10069" name="069-Bellsprout">

<vocation id="9"/>

</channel>

<channel id="10070" name="070-Weepinbell">

<vocation id="9"/>

</channel>

<channel id="10071" name="071-Victreebel">

<vocation id="9"/>

</channel>

<channel id="10072" name="072-Tentacool">

<vocation id="9"/>

</channel>

<channel id="10073" name="073-Tentacruel">

<vocation id="9"/>

</channel>

<channel id="10074" name="074-Geodude">

<vocation id="9"/>

</channel>

<channel id="10075" name="075-Graveler">

<vocation id="9"/>

</channel>

<channel id="10076" name="076-Golem">

<vocation id="9"/>

</channel>

<channel id="10077" name="077-Ponyta">

<vocation id="9"/>

</channel>

<channel id="10078" name="078-Rapidash">

<vocation id="9"/>

</channel>

<channel id="10079" name="079-Slowpoke">

<vocation id="9"/>

</channel>

<channel id="10080" name="080-Slowbro">

<vocation id="9"/>

</channel>

<channel id="10081" name="081-Magnemite">

<vocation id="9"/>

</channel>

<channel id="10082" name="082-Magneton">

<vocation id="9"/>

</channel>

<channel id="10083" name="083-Farfetch'd">

<vocation id="9"/>

</channel>

<channel id="10084" name="084-Doduo">

<vocation id="9"/>

</channel>

<channel id="10085" name="085-Dodrio">

<vocation id="9"/>

</channel>

<channel id="10086" name="086-Seel">

<vocation id="9"/>

</channel>

<channel id="10087" name="087-Dewgong">

<vocation id="9"/>

</channel>

<channel id="10088" name="088-Grimer">

<vocation id="9"/>

</channel>

<channel id="10089" name="089-Muk">

<vocation id="9"/>

</channel>

<channel id="10090" name="090-Shellder">

<vocation id="9"/>

</channel>

<channel id="10091" name="091-Cloyster">

<vocation id="9"/>

</channel>

<channel id="10092" name="092-Gastly">

<vocation id="9"/>

</channel>

<channel id="10093" name="093-Haunter">

<vocation id="9"/>

</channel>

<channel id="10094" name="094-Gengar">

<vocation id="9"/>

</channel>

<channel id="10095" name="095-Onix">

<vocation id="9"/>

</channel>

<channel id="10096" name="096-Drowzee">

<vocation id="9"/>

</channel>

<channel id="10097" name="097-Hypno">

<vocation id="9"/>

</channel>

<channel id="10098" name="098-Krabby">

<vocation id="9"/>

</channel>

<channel id="10099" name="099-Kingler">

<vocation id="9"/>

</channel>

<channel id="10100" name="100-Voltorb">

<vocation id="9"/>

</channel>

<channel id="10101" name="101-Electrode">

<vocation id="9"/>

</channel>

<channel id="10102" name="102-Exeggcute">

<vocation id="9"/>

</channel>

<channel id="10103" name="103-Exeggutor">

<vocation id="9"/>

</channel>

<channel id="10104" name="104-Cubone">

<vocation id="9"/>

</channel>

<channel id="10105" name="105-Marowak">

<vocation id="9"/>

</channel>

<channel id="10106" name="106-Hitmonlee">

<vocation id="9"/>

</channel>

<channel id="10107" name="107-Hitmonchan">

<vocation id="9"/>

</channel>

<channel id="10108" name="108-Lickitung">

<vocation id="9"/>

</channel>

<channel id="10109" name="109-Koffing">

<vocation id="9"/>

</channel>

<channel id="10110" name="110-Weezing">

<vocation id="9"/>

</channel>

<channel id="10111" name="111-Rhyhorn">

<vocation id="9"/>

</channel>

<channel id="10112" name="112-Rhydon">

<vocation id="9"/>

</channel>

<channel id="10113" name="113-Chansey">

<vocation id="9"/>

</channel>

<channel id="10114" name="114-Tangela">

<vocation id="9"/>

</channel>

<channel id="10115" name="115-Kangaskhan">

<vocation id="9"/>

</channel>

<channel id="10116" name="116-Horsea">

<vocation id="9"/>

</channel>

<channel id="10117" name="117-Seadra">

<vocation id="9"/>

</channel>

<channel id="10118" name="118-Goldeen">

<vocation id="9"/>

</channel>

<channel id="10119" name="119-Seaking">

<vocation id="9"/>

</channel>

<channel id="10120" name="120-Staryu">

<vocation id="9"/>

</channel>

<channel id="10121" name="121-Starmie">

<vocation id="9"/>

</channel>

<channel id="10122" name="122-Mr. Mime">

<vocation id="9"/>

</channel>

<channel id="10123" name="123-Scyther">

<vocation id="9"/>

</channel>

<channel id="10124" name="124-Jynx">

<vocation id="9"/>

</channel>

<channel id="10125" name="125-Electabuzz">

<vocation id="9"/>

</channel>

<channel id="10126" name="126-Magmar">

<vocation id="9"/>

</channel>

<channel id="10127" name="127-Pinsir">

<vocation id="9"/>

</channel>

<channel id="10128" name="128-Tauros">

<vocation id="9"/>

</channel>

<channel id="10129" name="129-Magikarp">

<vocation id="9"/>

</channel>

<channel id="10130" name="130-Gyarados">

<vocation id="9"/>

</channel>

<channel id="10131" name="131-Lapras">

<vocation id="9"/>

</channel>

<channel id="10132" name="132-Ditto">

<vocation id="9"/>

</channel>

<channel id="10133" name="133-Eevee">

<vocation id="9"/>

</channel>

<channel id="10134" name="134-Vaporeon">

<vocation id="9"/>

</channel>

<channel id="10135" name="135-Jolteon">

<vocation id="9"/>

</channel>

<channel id="10136" name="136-Flareon">

<vocation id="9"/>

</channel>

<channel id="10137" name="137-Porygon">

<vocation id="9"/>

</channel>

<channel id="10138" name="138-Omanyte">

<vocation id="9"/>

</channel>

<channel id="10139" name="139-Omastar">

<vocation id="9"/>

</channel>

<channel id="10140" name="140-Kabuto">

<vocation id="9"/>

</channel>

<channel id="10141" name="141-Kabutops">

<vocation id="9"/>

</channel>

<channel id="10142" name="142-Aerodactyl">

<vocation id="9"/>

</channel>

<channel id="10143" name="143-Snorlax">

<vocation id="9"/>

</channel>

<channel id="10144" name="144-Articuno">

<vocation id="9"/>

</channel>

<channel id="10145" name="145-Zapdos">

<vocation id="9"/>

</channel>

<channel id="10146" name="146-Moltres">

<vocation id="9"/>

</channel>

<channel id="10147" name="147-Dratini">

<vocation id="9"/>

</channel>

<channel id="10148" name="148-Dragonair">

<vocation id="9"/>

</channel>

<channel id="10149" name="149-Dragonite">

<vocation id="9"/>

</channel>

<channel id="10150" name="150-Mewtwo">

<vocation id="9"/>

</channel>

<channel id="10151" name="151-Mew">

<vocation id="9"/>

</channel>

<channel id="10152" name="152-Chikorita">

<vocation id="9"/>

</channel>

<channel id="10153" name="153-Bayleef">

<vocation id="9"/>

</channel>

<channel id="10154" name="154-Meganium">

<vocation id="9"/>

</channel>

<channel id="10155" name="155-Cyndaquil">

<vocation id="9"/>

</channel>

<channel id="10156" name="156-Quilava">

<vocation id="9"/>

</channel>

<channel id="10157" name="157-Typhlosion">

<vocation id="9"/>

</channel>

<channel id="10158" name="158-Totodile">

<vocation id="9"/>

</channel>

<channel id="10159" name="159-Croconaw">

<vocation id="9"/>

</channel>

<channel id="10160" name="160-Feraligatr">

<vocation id="9"/>

</channel>

<channel id="10161" name="161-Sentret">

<vocation id="9"/>

</channel>

<channel id="10162" name="162-Furret">

<vocation id="9"/>

</channel>

<channel id="10163" name="163-Hoothoot">

<vocation id="9"/>

</channel>

<channel id="10164" name="164-Noctowl">

<vocation id="9"/>

</channel>

<channel id="10165" name="165-Ledyba">

<vocation id="9"/>

</channel>

<channel id="10166" name="166-Ledian">

<vocation id="9"/>

</channel>

<channel id="10167" name="167-Spinarak">

<vocation id="9"/>

</channel>

<channel id="10168" name="168-Ariados">

<vocation id="9"/>

</channel>

<channel id="10169" name="169-Crobat">

<vocation id="9"/>

</channel>

<channel id="10170" name="170-Chinchou">

<vocation id="9"/>

</channel>

<channel id="10171" name="171-Lanturn">

<vocation id="9"/>

</channel>

<channel id="10172" name="172-Pichu">

<vocation id="9"/>

</channel>

<channel id="10173" name="173-Cleffa">

<vocation id="9"/>

</channel>

<channel id="10174" name="174-Iglybuff">

<vocation id="9"/>

</channel>

<channel id="10175" name="175-Togepi">

<vocation id="9"/>

</channel>

<channel id="10176" name="176-Togetic">

<vocation id="9"/>

</channel>

<channel id="10177" name="177-Natu">

<vocation id="9"/>

</channel>

<channel id="10178" name="178-Xatu">

<vocation id="9"/>

</channel>

<channel id="10179" name="179-Mareep">

<vocation id="9"/>

</channel>

<channel id="10180" name="180-Flaaffy">

<vocation id="9"/>

</channel>

<channel id="10181" name="181-Ampharos">

<vocation id="9"/>

</channel>

<channel id="10182" name="182-Bellossom">

<vocation id="9"/>

</channel>

<channel id="10183" name="183-Marill">

<vocation id="9"/>

</channel>

<channel id="10184" name="184-Azumarill">

<vocation id="9"/>

</channel>

<channel id="10185" name="185-Sudowoodo">

<vocation id="9"/>

</channel>

<channel id="10186" name="186-Politoed">

<vocation id="9"/>

</channel>

<channel id="10187" name="187-Hoppip">

<vocation id="9"/>

</channel>

<channel id="10188" name="188-Skiploom">

<vocation id="9"/>

</channel>

<channel id="10189" name="189-Jumpluff">

<vocation id="9"/>

</channel>

<channel id="10190" name="190-Aipom">

<vocation id="9"/>

</channel>

<channel id="10191" name="191-Sunkern">

<vocation id="9"/>

</channel>

<channel id="10192" name="192-Sunflora">

<vocation id="9"/>

</channel>

<channel id="10193" name="193-Yanma">

<vocation id="9"/>

</channel>

<channel id="10194" name="194-Wooper">

<vocation id="9"/>

</channel>

<channel id="10195" name="195-Quagsire">

<vocation id="9"/>

</channel>

<channel id="10196" name="196-Espeon">

<vocation id="9"/>

</channel>

<channel id="10197" name="197-Umbreon">

<vocation id="9"/>

</channel>

<channel id="10198" name="198-Murkrow">

<vocation id="9"/>

</channel>

<channel id="10199" name="199-Slowking">

<vocation id="9"/>

</channel>

<channel id="10200" name="200-Misdreavus">

<vocation id="9"/>

</channel>

<channel id="10201" name="201-Unown">

<vocation id="9"/>

</channel>

<channel id="10202" name="202-Wobbuffet">

<vocation id="9"/>

</channel>

<channel id="10203" name="203-Girafarig">

<vocation id="9"/>

</channel>

<channel id="10204" name="204-Pineco">

<vocation id="9"/>

</channel>

<channel id="10205" name="205-Forretress">

<vocation id="9"/>

</channel>

<channel id="10206" name="206-Dunsparce">

<vocation id="9"/>

</channel>

<channel id="10207" name="207-Gligar">

<vocation id="9"/>

</channel>

<channel id="10208" name="208-Steelix">

<vocation id="9"/>

</channel>

<channel id="10209" name="209-Snubbull">

<vocation id="9"/>

</channel>

<channel id="10210" name="210-Granbull">

<vocation id="9"/>

</channel>

<channel id="10211" name="211-Qwilfish">

<vocation id="9"/>

</channel>

<channel id="10212" name="212-Scizor">

<vocation id="9"/>

</channel>

<channel id="10213" name="213-Shuckle">

<vocation id="9"/>

</channel>

<channel id="10214" name="214-Heracross">

<vocation id="9"/>

</channel>

<channel id="10215" name="215-Sneasel">

<vocation id="9"/>

</channel>

<channel id="10216" name="216-Teddiursa">

<vocation id="9"/>

</channel>

<channel id="10217" name="217-Ursaring">

<vocation id="9"/>

</channel>

<channel id="10218" name="218-Slugma">

<vocation id="9"/>

</channel>

<channel id="10219" name="219-Magcargo">

<vocation id="9"/>

</channel>

<channel id="10220" name="220-Swinub">

<vocation id="9"/>

</channel>

<channel id="10221" name="221-Piloswine">

<vocation id="9"/>

</channel>

<channel id="10222" name="222-Corsola">

<vocation id="9"/>

</channel>

<channel id="10223" name="223-Remoraid">

<vocation id="9"/>

</channel>

<channel id="10224" name="224-Octillery">

<vocation id="9"/>

</channel>

<channel id="10225" name="225-Delibird">

<vocation id="9"/>

</channel>

<channel id="10226" name="226-Mantine">

<vocation id="9"/>

</channel>

<channel id="10227" name="227-Skarmory">

<vocation id="9"/>

</channel>

<channel id="10228" name="228-Houndour">

<vocation id="9"/>

</channel>

<channel id="10229" name="229-Houndoom">

<vocation id="9"/>

</channel>

<channel id="10230" name="230-Kingdra">

<vocation id="9"/>

</channel>

<channel id="10231" name="231-Phanpy">

<vocation id="9"/>

</channel>

<channel id="10232" name="232-Donphan">

<vocation id="9"/>

</channel>

<channel id="10233" name="233-Porygon2">

<vocation id="9"/>

</channel>

<channel id="10234" name="234-Stantler">

<vocation id="9"/>

</channel>

<channel id="10235" name="235-Smeargle">

<vocation id="9"/>

</channel>

<channel id="10236" name="236-Tyrogue">

<vocation id="9"/>

</channel>

<channel id="10237" name="237-Hitmontop">

<vocation id="9"/>

</channel>

<channel id="10238" name="238-Smoochum">

<vocation id="9"/>

</channel>

<channel id="10239" name="239-Elekid">

<vocation id="9"/>

</channel>

<channel id="10240" name="240-Magby">

<vocation id="9"/>

</channel>

<channel id="10241" name="241-Miltank">

<vocation id="9"/>

</channel>

<channel id="10242" name="242-Blissey">

<vocation id="9"/>

</channel>

<channel id="10243" name="243-Raikou">

<vocation id="9"/>

</channel>

<channel id="10244" name="244-Entei">

<vocation id="9"/>

</channel>

<channel id="10245" name="245-Suicune">

<vocation id="9"/>

</channel>

<channel id="10246" name="246-Larvitar">

<vocation id="9"/>

</channel>

<channel id="10247" name="247-Pupitar">

<vocation id="9"/>

</channel>

<channel id="10248" name="248-Tyranitar">

<vocation id="9"/>

</channel>

<channel id="10249" name="249-Lugia">

<vocation id="9"/>

</channel>

<channel id="10250" name="250-Ho-oh">

<vocation id="9"/>

</channel>

<channel id="10251" name="251-Celebi">

<vocation id="9"/>

</channel>

<channel id="65535" name="Private Chat Channel"/>

</channels>

failmsgs = {

"Sorry, you didn't catch that pokemon.",

"Sorry, your pokeball broke.",

"Sorry, the pokemon escaped.",

}

function doBrokesCount(cid, str, ball) --alterado v1.9 \/

if not isCreature(cid) then return false end

local tb = {

{b = "normal", v = 0},

{b = "great", v = 0},

{b = "super", v = 0},

{b = "ultra", v = 0},

{b = "saffari", v = 0},

{b = "dark", v = 0},

}

for _, e in ipairs(tb) do

if e.b == ball then

e.v = 1

break

end

end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do

t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"

end

return setPlayerStorageValue(cid, str, string:gsub(t, t2))

end

function sendBrokesMsg(cid, str, ball)

if not isCreature(cid) then return false end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local msg = {}

table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do

if tonumber(n) and tonumber(n) > 0 then

table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

end

if tonumber(g) and tonumber(g) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

end

if tonumber(s) and tonumber(s) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

end

if tonumber(u) and tonumber(u) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

end

if tonumber(s2) and tonumber(s2) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

end

if tonumber(d) and tonumber(d) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))

end

end

if #msg == 1 then

return true

end

if string.sub(msg[#msg], 1, 1) == "," then

msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])

end

table.insert(msg, " trying to catch it.")

sendMsgToPlayer(cid, 27, table.concat(msg))

end --alterado v1.9 /\

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

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

local name = catchinfo.name

local pos = catchinfo.topos

local topos = {}

topos.x = pos.x

topos.y = pos.y

topos.z = pos.z

local newid = catchinfo.newid

local catch = catchinfo.catch

local fail = catchinfo.fail

local rate = catchinfo.rate

local basechance = catchinfo.chance

if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then

rate = 85

end

local corpse = getTopCorpse(topos).uid

if not isCreature(cid) then

doSendMagicEffect(topos, CONST_ME_POFF)

return true

end

doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0

local levelChance = level * 0.02

local totalChance = math.ceil(basechance * (1.2 + levelChance))

local thisChance = math.random(0, totalChance)

local myChance = math.random(0, totalChance)

local chance = (1 * rate + 1) / totalChance

chance = doMathDecimal(chance * 100)

if rate >= totalChance then

local status = {}

status.gender = getItemAttribute(corpse, "gender")

status.happy = 500

doRemoveItem(corpse, 1)

doSendMagicEffect(topos, catch)

addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)

return true

end

if totalChance <= 1 then totalChance = 1 end

local myChances = {}

local catchChances = {}

for cC = 0, totalChance do

table.insert(catchChances, cC)

end

for mM = 1, rate do

local element = catchChances[math.random(1, #catchChances)]

table.insert(myChances, element)

catchChances = doRemoveElementFromTable(catchChances, element)

end

local status = {}

status.gender = getItemAttribute(corpse, "gender")

status.happy = 500

doRemoveItem(corpse, 1)

local doCatch = false

for check = 1, #myChances do

if thisChance == myChances[check] then

doCatch = true

end

end

if doCatch then

doSendMagicEffect(topos, catch)

addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)

else

addEvent(doNotCapturePokemon, 3000, cid, name, typeee)

doSendMagicEffect(topos, fail)

end

end

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

if not isCreature(cid) then

return true

end

local list = getCatchList(cid)

if not isInArray(list, poke) and not isShinyName(poke) then

doPlayerAddSoul(cid, 1)

end

doAddPokemonInOwnList(cid, poke)

doAddPokemonInCatchList(cid, poke)

if pokes[poke] then

local test = io.open("data/catch.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

if string.find(poke, "Shiny") then

read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

else

read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

end

if newpokedex[poke].stoCatch ~= -1 then

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"

local msg = {}

storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)

for n, g, s, u, s2 in storage:gmatch(t) do

if tonumber(n) and tonumber(n) > 0 then

table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

end

if tonumber(g) and tonumber(g) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

end

if tonumber(s) and tonumber(s) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

end

if tonumber(u) and tonumber(u) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

end

if tonumber(s2) and tonumber(s2) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

end

end

read = read.." - "..table.concat(msg)..""

end

local reopen = io.open("data/catch.txt", "w")

reopen:write(read)

reopen:close()

end

if not tonumber(getPlayerStorageValue(cid, 54843)) then

local test = io.open("data/sendtobrun123.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""

local reopen = io.open("data/sendtobrun123.txt", "w")

reopen:write(read)

reopen:close()

setPlayerStorageValue(cid, 54843, 1)

end

if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then

setPlayerStorageValue(cid, 54843, 1)

else

setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)

end

if icons[poke] then

ballid = icons[poke].on

end

local description = "Contains a "..poke.."."

local gender = status.gender

local happy = 200

--alterado v1.9 \/

if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

item = doCreateItemEx(ballid)

else

item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)

end

doItemSetAttribute(item, "poke", poke)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

doItemSetAttribute(item, "fakedesc", description)

doItemSetAttribute(item, "description", description)

if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then

doItemSetAttribute(item, "hands", 0)

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

----------- task clan ---------------------

if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then

sendMsgToPlayer(cid, 27, "Quest Done!")

doItemSetAttribute(item, "unique", getCreatureName(cid))

doItemSetAttribute(item, "task", 1)

setPlayerStorageValue(cid, 854788, 'done')

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

------------------------------------------- --alterado v1.9 \/

if getPlayerFreeCap(cid) >= 6 then

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

doPlayerSendMailByName(getCreatureName(cid), item, 1)

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")

doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")

doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")

end

local storage = newpokedex[poke].stoCatch

sendBrokesMsg(cid, storage, typeee)

setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

if #getCreatureSummons(cid) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)

if catchMakesPokemonHappier then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)

if useOTClient then

doCreatureExecuteTalkAction(cid, "/salvar")

end

end

else

doSendMagicEffect(getThingPos(cid), 173)

end

doIncreaseStatistics(poke, true, true)

end

function doNotCapturePokemon(cid, poke, typeee)

if not isCreature(cid) then

return true

end

if not tonumber(getPlayerStorageValue(cid, 54843)) then

local test = io.open("data/sendtobrun123.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""

local reopen = io.open("data/sendtobrun123.txt", "w")

reopen:write(read)

reopen:close()

setPlayerStorageValue(cid, 54843, 1)

end

if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then

setPlayerStorageValue(cid, 54843, 1)

else

setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)

end

doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)])

if #getCreatureSummons(cid) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166)

else

doSendMagicEffect(getThingPos(cid), 166)

end

local storage = newpokedex[poke].stoCatch

doBrokesCount(cid, storage, typeee)

doIncreaseStatistics(poke, true, false)

end

function getPlayerInfoAboutPokemon(cid, poke)

local a = newpokedex[poke]

if not isPlayer(cid) then return false end

if not a then

print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.")

return false

end

local b = getPlayerStorageValue(cid, a.storage)

if b == -1 then

setPlayerStorageValue(cid, a.storage, poke..":")

end

local ret = {}

if string.find(b, "catch,") then

ret.catch = true

else

ret.catch = false

end

if string.find(b, "dex,") then

ret.dex = true

else

ret.dex = false

end

if string.find(b, "use,") then

ret.use = true

else

ret.use = false

end

return ret

end

function doAddPokemonInOwnList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).use then return true end

local a = newpokedex[poke]

local b = getPlayerStorageValue(cid, a.storage)

setPlayerStorageValue(cid, a.storage, b.." use,")

end

function isPokemonInOwnList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).use then return true end

return false

end

function doAddPokemonInCatchList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).catch then return true end

local a = newpokedex[poke]

local b = getPlayerStorageValue(cid, a.storage)

setPlayerStorageValue(cid, a.storage, b.." catch,")

end

function getCatchList(cid)

local ret = {}

for a = 1000, 1251 do

local b = getPlayerStorageValue(cid, a)

if b ~= 1 and string.find(b, "catch,") then

table.insert(ret, oldpokedex[a-1000][1])

end

end

return ret

end

function getStatistics(pokemon, tries, success)

local ret1 = 0

local ret2 = 0

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

local arq = io.open(dir, "a+")

local num = tonumber(arq:read("*all"))

if num == nil then

ret1 = 0

else

ret1 = num

end

arq:close()

local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

local arq = io.open(dir, "a+")

local num = tonumber(arq:read("*all"))

if num == nil then

ret2 = 0

else

ret2 = num

end

arq:close()

if tries == true and success == true then

return ret1, ret2

elseif tries == true then

return ret1

else

return ret2

end

end

function doIncreaseStatistics(pokemon, tries, success)

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

if tries == true then

local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

local arq = io.open(dir, "a+")

local num = tonumber(arq:read("*all"))

if num == nil then

num = 1

else

num = num + 1

end

arq:close()

local arq = io.open(dir, "w")

arq:write(""..num.."")

arq:close()

end

if success == true then

local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

local arq = io.open(dir, "a+")

local num = tonumber(arq:read("*all"))

if num == nil then

num = 1

else

num = num + 1

end

arq:close()

local arq = io.open(dir, "w")

arq:write(""..num.."")

arq:close()

end

end

function doUpdateGeneralStatistics()

local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"

local base = "NUMBER NAME TRIES / CATCHES\n\n"

local str = ""

for a = 1, 251 do

if string.len(oldpokedex[a][1]) <= 7 then

str = "\t"

else

str = ""

end

local number1 = getStatistics(oldpokedex[a][1], true, false)

local number2 = getStatistics(oldpokedex[a][1], false, true)

base = base.."["..threeNumbers(a)..]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n"

end

local arq = io.open(dir, "w")

arq:write(base)

arq:close()

end

function getGeneralStatistics()

local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"

local base = "Number/Name/Tries/Catches\n\n"

local str = ""

for a = 1, 251 do

local number1 = getStatistics(oldpokedex[a][1], true, false)

local number2 = getStatistics(oldpokedex[a][1], false, true)

base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].." "..str..""..number1.." / "..number2.."\n"

end

return base

end

function doShowPokemonStatistics(cid)

if not isCreature(cid) then return false end

local show = getGeneralStatistics()

if string.len(show) > 8192 then

print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.")

doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.")

return false

end

doShowTextDialog(cid, math.random(2391, 2394), show)

end

Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
  • Autor
Postado

Channels.xml:

<?xml version="1.0" encoding="UTF-8"?>

<channels>
<!-- README:
0 - dynamic, reserved for guilds
1 - always acts as Party channel, only "name" tag available
3 - always acts as Rule Violations channel
9 - acts as Help channel- clientsided message
65535 - DO NOT CHANGE THE ID- only "name", "enabled", "active" and "logged" tags available
-->
<channel id="1" name="Party">
<vocation id="1"/>
</channel>
<channel id="2" name="Staff" access="3">
<vocation id="1"/>
</channel>
<channel id="3" name="Rule Violations" logged="yes">
<vocation id="1"/>
</channel>
<channel id="4" name="Counselor" access="1">
<vocation id="1"/>
</channel>
<channel id="5" name="Game-Chat" level="2">
<vocation id="1"/>
</channel>
<channel id="6" name="Trade" level="8" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">
<vocation id="1"/>
</channel>
<channel id="7" name="Trade-Rookgaard" level="2" muted="120" conditionId="3" conditionMessage="You may only place one offer in two minutes.">
<vocation id="0"/>
</channel>
<channel id="8" name="RL-Chat" level="2">
<vocation id="1"/>
</channel>
<channel id="9" name="Help" level="20" muted="120" conditionId="3" conditionMessage="Can not reenter, please wait 2 minutes.">
<vocation id="1"/>
</channel>
<channel id="10" name="Show Pokemon Statistics">
<vocation id="3"/>
</channel>
<channel id="11" name="Show Top Level">
<vocation id="3"/>
</channel>
<channel id="12" name="Show Top Fishing">
<vocation id="3"/>
</channel>
 
<channel id="13" name="1 poke">
<vocation id="8"/>
</channel>
<channel id="14" name="2 pokes">
<vocation id="8"/>
</channel>
<channel id="15" name="3 pokes">
<vocation id="8"/>
</channel>
<channel id="16" name="4 pokes">
<vocation id="8"/>
</channel>
<channel id="17" name="5 pokes">
<vocation id="8"/>
</channel>
<channel id="18" name="6 pokes">
<vocation id="8"/>
</channel>
 
<channel id="19" name="1x1">
<vocation id="7"/>
</channel>
<channel id="20" name="2x2">
<vocation id="7"/>
</channel>
<channel id="21" name="3x3">
<vocation id="7"/>
</channel>
<channel id="22" name="Catch-Channel"  level="2" muted="120" conditionId="2" conditionMessage="Voce Foi Punido Por 2 Minutos ao Falar no Canal Catch Channel">
<vocation id="1"/>
</channel>
 
<channel id="10001" name="001-Bulbasaur">
<vocation id="9"/>
</channel>
<channel id="10002" name="002-Ivysaur">
<vocation id="9"/>
</channel>
<channel id="10003" name="003-Venusaur">
<vocation id="9"/>
</channel>
<channel id="10004" name="004-Charmander">
<vocation id="9"/>
</channel>
<channel id="10005" name="005-Charmeleon">
<vocation id="9"/>
</channel>
<channel id="10006" name="006-Charizard">
<vocation id="9"/>
</channel>
<channel id="10007" name="007-Squirtle">
<vocation id="9"/>
</channel>
<channel id="10008" name="008-Wartortle">
<vocation id="9"/>
</channel>
<channel id="10009" name="009-Blastoise">
<vocation id="9"/>
</channel>
<channel id="10010" name="010-Caterpie">
<vocation id="9"/>
</channel>
<channel id="10011" name="011-Metapod">
<vocation id="9"/>
</channel>
<channel id="10012" name="012-Butterfree">
<vocation id="9"/>
</channel>
<channel id="10013" name="013-Weedle">
<vocation id="9"/>
</channel>
<channel id="10014" name="014-Kakuna">
<vocation id="9"/>
</channel>
<channel id="10015" name="015-Beedrill">
<vocation id="9"/>
</channel>
<channel id="10016" name="016-Pidgey">
<vocation id="9"/>
</channel>
<channel id="10017" name="017-Pidgeotto">
<vocation id="9"/>
</channel>
<channel id="10018" name="018-Pidgeot">
<vocation id="9"/>
</channel>
<channel id="10019" name="019-Rattata">
<vocation id="9"/>
</channel>
<channel id="10020" name="020-Raticate">
<vocation id="9"/>
</channel>
<channel id="10021" name="021-Spearow">
<vocation id="9"/>
</channel>
<channel id="10022" name="022-Fearow">
<vocation id="9"/>
</channel>
<channel id="10023" name="023-Ekans">
<vocation id="9"/>
</channel>
<channel id="10024" name="024-Arbok">
<vocation id="9"/>
</channel>
<channel id="10025" name="025-Pikachu">
<vocation id="9"/>
</channel>
<channel id="10026" name="026-Raichu">
<vocation id="9"/>
</channel>
<channel id="10027" name="027-Sandshrew">
<vocation id="9"/>
</channel>
<channel id="10028" name="028-Sandslash">
<vocation id="9"/>
</channel>
<channel id="10029" name="029-Nidoran Female">
<vocation id="9"/>
</channel>
<channel id="10030" name="030-Nidorina">
<vocation id="9"/>
</channel>
<channel id="10031" name="031-Nidoqueen">
<vocation id="9"/>
</channel>
<channel id="10032" name="032-Nidoran Male">
<vocation id="9"/>
</channel>
<channel id="10033" name="033-Nidorino">
<vocation id="9"/>
</channel>
<channel id="10034" name="034-Nidoking">
<vocation id="9"/>
</channel>
<channel id="10035" name="035-Clefairy">
<vocation id="9"/>
</channel>
<channel id="10036" name="036-Clefable">
<vocation id="9"/>
</channel>
<channel id="10037" name="037-Vulpix">
<vocation id="9"/>
</channel>
<channel id="10038" name="038-Ninetales">
<vocation id="9"/>
</channel>
<channel id="10039" name="039-Jigglypuff">
<vocation id="9"/>
</channel>
<channel id="10040" name="040-Wigglytuff">
<vocation id="9"/>
</channel>
<channel id="10041" name="041-Zubat">
<vocation id="9"/>
</channel>
<channel id="10042" name="042-Golbat">
<vocation id="9"/>
</channel>
<channel id="10043" name="043-Oddish">
<vocation id="9"/>
</channel>
<channel id="10044" name="044-Gloom">
<vocation id="9"/>
</channel>
<channel id="10045" name="045-Vileplume">
<vocation id="9"/>
</channel>
<channel id="10046" name="046-Paras">
<vocation id="9"/>
</channel>
<channel id="10047" name="047-Parasect">
<vocation id="9"/>
</channel>
<channel id="10048" name="048-Venonat">
<vocation id="9"/>
</channel>
<channel id="10049" name="049-Venomoth">
<vocation id="9"/>
</channel>
<channel id="10050" name="050-Diglett">
<vocation id="9"/>
</channel>
<channel id="10051" name="051-Dugtrio">
<vocation id="9"/>
</channel>
<channel id="10052" name="052-Meowth">
<vocation id="9"/>
</channel>
<channel id="10053" name="053-Persian">
<vocation id="9"/>
</channel>
<channel id="10054" name="054-Psyduck">
<vocation id="9"/>
</channel>
<channel id="10055" name="055-Golduck">
<vocation id="9"/>
</channel>
<channel id="10056" name="056-Mankey">
<vocation id="9"/>
</channel>
<channel id="10057" name="057-Primeape">
<vocation id="9"/>
</channel>
<channel id="10058" name="058-Growlithe">
<vocation id="9"/>
</channel>
<channel id="10059" name="059-Arcanine">
<vocation id="9"/>
</channel>
<channel id="10060" name="060-Poliwag">
<vocation id="9"/>
</channel>
<channel id="10061" name="061-Poliwhirl">
<vocation id="9"/>
</channel>
<channel id="10062" name="062-Poliwrath">
<vocation id="9"/>
</channel>
<channel id="10063" name="063-Abra">
<vocation id="9"/>
</channel>
<channel id="10064" name="064-Kadabra">
<vocation id="9"/>
</channel>
<channel id="10065" name="065-Alakazam">
<vocation id="9"/>
</channel>
<channel id="10066" name="066-Machop">
<vocation id="9"/>
</channel>
<channel id="10067" name="067-Machoke">
<vocation id="9"/>
</channel>
<channel id="10068" name="068-Machamp">
<vocation id="9"/>
</channel>
<channel id="10069" name="069-Bellsprout">
<vocation id="9"/>
</channel>
<channel id="10070" name="070-Weepinbell">
<vocation id="9"/>
</channel>
<channel id="10071" name="071-Victreebel">
<vocation id="9"/>
</channel>
<channel id="10072" name="072-Tentacool">
<vocation id="9"/>
</channel>
<channel id="10073" name="073-Tentacruel">
<vocation id="9"/>
</channel>
<channel id="10074" name="074-Geodude">
<vocation id="9"/>
</channel>
<channel id="10075" name="075-Graveler">
<vocation id="9"/>
</channel>
<channel id="10076" name="076-Golem">
<vocation id="9"/>
</channel>
<channel id="10077" name="077-Ponyta">
<vocation id="9"/>
</channel>
<channel id="10078" name="078-Rapidash">
<vocation id="9"/>
</channel>
<channel id="10079" name="079-Slowpoke">
<vocation id="9"/>
</channel>
<channel id="10080" name="080-Slowbro">
<vocation id="9"/>
</channel>
<channel id="10081" name="081-Magnemite">
<vocation id="9"/>
</channel>
<channel id="10082" name="082-Magneton">
<vocation id="9"/>
</channel>
<channel id="10083" name="083-Farfetch'd">
<vocation id="9"/>
</channel>
<channel id="10084" name="084-Doduo">
<vocation id="9"/>
</channel>
<channel id="10085" name="085-Dodrio">
<vocation id="9"/>
</channel>
<channel id="10086" name="086-Seel">
<vocation id="9"/>
</channel>
<channel id="10087" name="087-Dewgong">
<vocation id="9"/>
</channel>
<channel id="10088" name="088-Grimer">
<vocation id="9"/>
</channel>
<channel id="10089" name="089-Muk">
<vocation id="9"/>
</channel>
<channel id="10090" name="090-Shellder">
<vocation id="9"/>
</channel>
<channel id="10091" name="091-Cloyster">
<vocation id="9"/>
</channel>
<channel id="10092" name="092-Gastly">
<vocation id="9"/>
</channel>
<channel id="10093" name="093-Haunter">
<vocation id="9"/>
</channel>
<channel id="10094" name="094-Gengar">
<vocation id="9"/>
</channel>
<channel id="10095" name="095-Onix">
<vocation id="9"/>
</channel>
<channel id="10096" name="096-Drowzee">
<vocation id="9"/>
</channel>
<channel id="10097" name="097-Hypno">
<vocation id="9"/>
</channel>
<channel id="10098" name="098-Krabby">
<vocation id="9"/>
</channel>
<channel id="10099" name="099-Kingler">
<vocation id="9"/>
</channel>
<channel id="10100" name="100-Voltorb">
<vocation id="9"/>
</channel>
<channel id="10101" name="101-Electrode">
<vocation id="9"/>
</channel>
<channel id="10102" name="102-Exeggcute">
<vocation id="9"/>
</channel>
<channel id="10103" name="103-Exeggutor">
<vocation id="9"/>
</channel>
<channel id="10104" name="104-Cubone">
<vocation id="9"/>
</channel>
<channel id="10105" name="105-Marowak">
<vocation id="9"/>
</channel>
<channel id="10106" name="106-Hitmonlee">
<vocation id="9"/>
</channel>
<channel id="10107" name="107-Hitmonchan">
<vocation id="9"/>
</channel>
<channel id="10108" name="108-Lickitung">
<vocation id="9"/>
</channel>
<channel id="10109" name="109-Koffing">
<vocation id="9"/>
</channel>
<channel id="10110" name="110-Weezing">
<vocation id="9"/>
</channel>
<channel id="10111" name="111-Rhyhorn">
<vocation id="9"/>
</channel>
<channel id="10112" name="112-Rhydon">
<vocation id="9"/>
</channel>
<channel id="10113" name="113-Chansey">
<vocation id="9"/>
</channel>
<channel id="10114" name="114-Tangela">
<vocation id="9"/>
</channel>
<channel id="10115" name="115-Kangaskhan">
<vocation id="9"/>
</channel>
<channel id="10116" name="116-Horsea">
<vocation id="9"/>
</channel>
<channel id="10117" name="117-Seadra">
<vocation id="9"/>
</channel>
<channel id="10118" name="118-Goldeen">
<vocation id="9"/>
</channel>
<channel id="10119" name="119-Seaking">
<vocation id="9"/>
</channel>
<channel id="10120" name="120-Staryu">
<vocation id="9"/>
</channel>
<channel id="10121" name="121-Starmie">
<vocation id="9"/>
</channel>
<channel id="10122" name="122-Mr. Mime">
<vocation id="9"/>
</channel>
<channel id="10123" name="123-Scyther">
<vocation id="9"/>
</channel>
<channel id="10124" name="124-Jynx">
<vocation id="9"/>
</channel>
<channel id="10125" name="125-Electabuzz">
<vocation id="9"/>
</channel>
<channel id="10126" name="126-Magmar">
<vocation id="9"/>
</channel>
<channel id="10127" name="127-Pinsir">
<vocation id="9"/>
</channel>
<channel id="10128" name="128-Tauros">
<vocation id="9"/>
</channel>
<channel id="10129" name="129-Magikarp">
<vocation id="9"/>
</channel>
<channel id="10130" name="130-Gyarados">
<vocation id="9"/>
</channel>
<channel id="10131" name="131-Lapras">
<vocation id="9"/>
</channel>
<channel id="10132" name="132-Ditto">
<vocation id="9"/>
</channel>
<channel id="10133" name="133-Eevee">
<vocation id="9"/>
</channel>
<channel id="10134" name="134-Vaporeon">
<vocation id="9"/>
</channel>
<channel id="10135" name="135-Jolteon">
<vocation id="9"/>
</channel>
<channel id="10136" name="136-Flareon">
<vocation id="9"/>
</channel>
<channel id="10137" name="137-Porygon">
<vocation id="9"/>
</channel>
<channel id="10138" name="138-Omanyte">
<vocation id="9"/>
</channel>
<channel id="10139" name="139-Omastar">
<vocation id="9"/>
</channel>
<channel id="10140" name="140-Kabuto">
<vocation id="9"/>
</channel>
<channel id="10141" name="141-Kabutops">
<vocation id="9"/>
</channel>
<channel id="10142" name="142-Aerodactyl">
<vocation id="9"/>
</channel>
<channel id="10143" name="143-Snorlax">
<vocation id="9"/>
</channel>
<channel id="10144" name="144-Articuno">
<vocation id="9"/>
</channel>
<channel id="10145" name="145-Zapdos">
<vocation id="9"/>
</channel>
<channel id="10146" name="146-Moltres">
<vocation id="9"/>
</channel>
<channel id="10147" name="147-Dratini">
<vocation id="9"/>
</channel>
<channel id="10148" name="148-Dragonair">
<vocation id="9"/>
</channel>
<channel id="10149" name="149-Dragonite">
<vocation id="9"/>
</channel>
<channel id="10150" name="150-Mewtwo">
<vocation id="9"/>
</channel>
<channel id="10151" name="151-Mew">
<vocation id="9"/>
</channel>
<channel id="10152" name="152-Chikorita">
<vocation id="9"/>
</channel>
<channel id="10153" name="153-Bayleef">
<vocation id="9"/>
</channel>
<channel id="10154" name="154-Meganium">
<vocation id="9"/>
</channel>
<channel id="10155" name="155-Cyndaquil">
<vocation id="9"/>
</channel>
<channel id="10156" name="156-Quilava">
<vocation id="9"/>
</channel>
<channel id="10157" name="157-Typhlosion">
<vocation id="9"/>
</channel>
<channel id="10158" name="158-Totodile">
<vocation id="9"/>
</channel>
<channel id="10159" name="159-Croconaw">
<vocation id="9"/>
</channel>
<channel id="10160" name="160-Feraligatr">
<vocation id="9"/>
</channel>
<channel id="10161" name="161-Sentret">
<vocation id="9"/>
</channel>
<channel id="10162" name="162-Furret">
<vocation id="9"/>
</channel>
<channel id="10163" name="163-Hoothoot">
<vocation id="9"/>
</channel>
<channel id="10164" name="164-Noctowl">
<vocation id="9"/>
</channel>
<channel id="10165" name="165-Ledyba">
<vocation id="9"/>
</channel>
<channel id="10166" name="166-Ledian">
<vocation id="9"/>
</channel>
<channel id="10167" name="167-Spinarak">
<vocation id="9"/>
</channel>
<channel id="10168" name="168-Ariados">
<vocation id="9"/>
</channel>
<channel id="10169" name="169-Crobat">
<vocation id="9"/>
</channel>
<channel id="10170" name="170-Chinchou">
<vocation id="9"/>
</channel>
<channel id="10171" name="171-Lanturn">
<vocation id="9"/>
</channel>
<channel id="10172" name="172-Pichu">
<vocation id="9"/>
</channel>
<channel id="10173" name="173-Cleffa">
<vocation id="9"/>
</channel>
<channel id="10174" name="174-Iglybuff">
<vocation id="9"/>
</channel>
<channel id="10175" name="175-Togepi">
<vocation id="9"/>
</channel>
<channel id="10176" name="176-Togetic">
<vocation id="9"/>
</channel>
<channel id="10177" name="177-Natu">
<vocation id="9"/>
</channel>
<channel id="10178" name="178-Xatu">
<vocation id="9"/>
</channel>
<channel id="10179" name="179-Mareep">
<vocation id="9"/>
</channel>
<channel id="10180" name="180-Flaaffy">
<vocation id="9"/>
</channel>
<channel id="10181" name="181-Ampharos">
<vocation id="9"/>
</channel>
<channel id="10182" name="182-Bellossom">
<vocation id="9"/>
</channel>
<channel id="10183" name="183-Marill">
<vocation id="9"/>
</channel>
<channel id="10184" name="184-Azumarill">
<vocation id="9"/>
</channel>
<channel id="10185" name="185-Sudowoodo">
<vocation id="9"/>
</channel>
<channel id="10186" name="186-Politoed">
<vocation id="9"/>
</channel>
<channel id="10187" name="187-Hoppip">
<vocation id="9"/>
</channel>
<channel id="10188" name="188-Skiploom">
<vocation id="9"/>
</channel>
<channel id="10189" name="189-Jumpluff">
<vocation id="9"/>
</channel>
<channel id="10190" name="190-Aipom">
<vocation id="9"/>
</channel>
<channel id="10191" name="191-Sunkern">
<vocation id="9"/>
</channel>
<channel id="10192" name="192-Sunflora">
<vocation id="9"/>
</channel>
<channel id="10193" name="193-Yanma">
<vocation id="9"/>
</channel>
<channel id="10194" name="194-Wooper">
<vocation id="9"/>
</channel>
<channel id="10195" name="195-Quagsire">
<vocation id="9"/>
</channel>
<channel id="10196" name="196-Espeon">
<vocation id="9"/>
</channel>
<channel id="10197" name="197-Umbreon">
<vocation id="9"/>
</channel>
<channel id="10198" name="198-Murkrow">
<vocation id="9"/>
</channel>
<channel id="10199" name="199-Slowking">
<vocation id="9"/>
</channel>
<channel id="10200" name="200-Misdreavus">
<vocation id="9"/>
</channel>
<channel id="10201" name="201-Unown">
<vocation id="9"/>
</channel>
<channel id="10202" name="202-Wobbuffet">
<vocation id="9"/>
</channel>
<channel id="10203" name="203-Girafarig">
<vocation id="9"/>
</channel>
<channel id="10204" name="204-Pineco">
<vocation id="9"/>
</channel>
<channel id="10205" name="205-Forretress">
<vocation id="9"/>
</channel>
<channel id="10206" name="206-Dunsparce">
<vocation id="9"/>
</channel>
<channel id="10207" name="207-Gligar">
<vocation id="9"/>
</channel>
<channel id="10208" name="208-Steelix">
<vocation id="9"/>
</channel>
<channel id="10209" name="209-Snubbull">
<vocation id="9"/>
</channel>
<channel id="10210" name="210-Granbull">
<vocation id="9"/>
</channel>
<channel id="10211" name="211-Qwilfish">
<vocation id="9"/>
</channel>
<channel id="10212" name="212-Scizor">
<vocation id="9"/>
</channel>
<channel id="10213" name="213-Shuckle">
<vocation id="9"/>
</channel>
<channel id="10214" name="214-Heracross">
<vocation id="9"/>
</channel>
<channel id="10215" name="215-Sneasel">
<vocation id="9"/>
</channel>
<channel id="10216" name="216-Teddiursa">
<vocation id="9"/>
</channel>
<channel id="10217" name="217-Ursaring">
<vocation id="9"/>
</channel>
<channel id="10218" name="218-Slugma">
<vocation id="9"/>
</channel>
<channel id="10219" name="219-Magcargo">
<vocation id="9"/>
</channel>
<channel id="10220" name="220-Swinub">
<vocation id="9"/>
</channel>
<channel id="10221" name="221-Piloswine">
<vocation id="9"/>
</channel>
<channel id="10222" name="222-Corsola">
<vocation id="9"/>
</channel>
<channel id="10223" name="223-Remoraid">
<vocation id="9"/>
</channel>
<channel id="10224" name="224-Octillery">
<vocation id="9"/>
</channel>
<channel id="10225" name="225-Delibird">
<vocation id="9"/>
</channel>
<channel id="10226" name="226-Mantine">
<vocation id="9"/>
</channel>
<channel id="10227" name="227-Skarmory">
<vocation id="9"/>
</channel>
<channel id="10228" name="228-Houndour">
<vocation id="9"/>
</channel>
<channel id="10229" name="229-Houndoom">
<vocation id="9"/>
</channel>
<channel id="10230" name="230-Kingdra">
<vocation id="9"/>
</channel>
<channel id="10231" name="231-Phanpy">
<vocation id="9"/>
</channel>
<channel id="10232" name="232-Donphan">
<vocation id="9"/>
</channel>
<channel id="10233" name="233-Porygon2">
<vocation id="9"/>
</channel>
<channel id="10234" name="234-Stantler">
<vocation id="9"/>
</channel>
<channel id="10235" name="235-Smeargle">
<vocation id="9"/>
</channel>
<channel id="10236" name="236-Tyrogue">
<vocation id="9"/>
</channel>
<channel id="10237" name="237-Hitmontop">
<vocation id="9"/>
</channel>
<channel id="10238" name="238-Smoochum">
<vocation id="9"/>
</channel>
<channel id="10239" name="239-Elekid">
<vocation id="9"/>
</channel>
<channel id="10240" name="240-Magby">
<vocation id="9"/>
</channel>
<channel id="10241" name="241-Miltank">
<vocation id="9"/>
</channel>
<channel id="10242" name="242-Blissey">
<vocation id="9"/>
</channel>
<channel id="10243" name="243-Raikou">
<vocation id="9"/>
</channel>
<channel id="10244" name="244-Entei">
<vocation id="9"/>
</channel>
<channel id="10245" name="245-Suicune">
<vocation id="9"/>
</channel>
<channel id="10246" name="246-Larvitar">
<vocation id="9"/>
</channel>
<channel id="10247" name="247-Pupitar">
<vocation id="9"/>
</channel>
<channel id="10248" name="248-Tyranitar">
<vocation id="9"/>
</channel>
<channel id="10249" name="249-Lugia">
<vocation id="9"/>
</channel>
<channel id="10250" name="250-Ho-oh">
<vocation id="9"/>
</channel>
<channel id="10251" name="251-Celebi">
<vocation id="9"/>
</channel>
 
 
<channel id="65535" name="Private Chat Channel"/>
</channels>
 

 

- Catchsystem.lua:

failmsgs = {


"Sorry, you didn't catch that pokemon.",
"Sorry, your pokeball broke.",
"Sorry, the pokemon escaped.",
}

function doBrokesCount(cid, str, ball) --alterado v1.9 \/
if not isCreature(cid) then return false end
local tb = {
{b = "normal", v = 0},
{b = "great", v = 0},
{b = "super", v = 0},
{b = "ultra", v = 0},
{b = "saffari", v = 0},
{b = "dark", v = 0},
}
for _, e in ipairs(tb) do
if e.b == ball then
e.v = 1
break
end
end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do
t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"
end
return setPlayerStorageValue(cid, str, string:gsub(t, t2))
end

function sendBrokesMsg(cid, str, ball)
if not isCreature(cid) then return false end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local msg = {}
table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
end
if tonumber(g) and tonumber(g) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
end
if tonumber(u) and tonumber(u) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
end
if tonumber(s2) and tonumber(s2) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
end
if tonumber(d) and tonumber(d) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))
end
end
if #msg == 1 then
return true
end
if string.sub(msg[#msg], 1, 1) == "," then
msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])
end
table.insert(msg, " trying to catch it.")
sendMsgToPlayer(cid, 27, table.concat(msg))
end --alterado v1.9 /\
--------------------------------------------------------------------------------

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

local name = catchinfo.name
local pos = catchinfo.topos
local topos = {}
topos.x = pos.x
topos.y = pos.y
topos.z = pos.z
local newid = catchinfo.newid
local catch = catchinfo.catch
local fail = catchinfo.fail
local rate = catchinfo.rate
local basechance = catchinfo.chance

if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then
rate = 85
end

local corpse = getTopCorpse(topos).uid

if not isCreature(cid) then
doSendMagicEffect(topos, CONST_ME_POFF)
return true
end

doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0
local levelChance = level * 0.02

local totalChance = math.ceil(basechance * (1.2 + levelChance))
local thisChance = math.random(0, totalChance)
local myChance = math.random(0, totalChance)
local chance = (1 * rate + 1) / totalChance
chance = doMathDecimal(chance * 100)

if rate >= totalChance then
local status = {}
status.gender = getItemAttribute(corpse, "gender")
status.happy = 500

doRemoveItem(corpse, 1)
doSendMagicEffect(topos, catch)
addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)
return true
end


if totalChance <= 1 then totalChance = 1 end

local myChances = {}
local catchChances = {}


for cC = 0, totalChance do
table.insert(catchChances, cC)
end

for mM = 1, rate do
local element = catchChances[math.random(1, #catchChances)]
table.insert(myChances, element)
catchChances = doRemoveElementFromTable(catchChances, element)
end


local status = {}
status.gender = getItemAttribute(corpse, "gender")
status.happy = 500

doRemoveItem(corpse, 1)

local doCatch = false

for check = 1, #myChances do
if thisChance == myChances[check] then
doCatch = true
end
end

if doCatch then
doSendMagicEffect(topos, catch)
addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)
else
addEvent(doNotCapturePokemon, 3000, cid, name, typeee)
doSendMagicEffect(topos, fail)
end
end

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

if not isCreature(cid) then
return true
end

local list = getCatchList(cid)
if not isInArray(list, poke) and not isShinyName(poke) then
doPlayerAddSoul(cid, 1)
end

doAddPokemonInOwnList(cid, poke)
doAddPokemonInCatchList(cid, poke)

if pokes[poke] then
local test = io.open("data/catch.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
if string.find(poke, "Shiny") then
read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""
else
read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""
end

if newpokedex[poke].stoCatch ~= -1 then
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"
local msg = {}
storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)
for n, g, s, u, s2 in storage:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
end
if tonumber(g) and tonumber(g) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
end
if tonumber(u) and tonumber(u) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
end
if tonumber(s2) and tonumber(s2) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
end
end
read = read.." - "..table.concat(msg)..""
end
local reopen = io.open("data/catch.txt", "w")
reopen:write(read)
reopen:close()
end
if not tonumber(getPlayerStorageValue(cid, 54843)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, 54843, 1)
end

if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
setPlayerStorageValue(cid, 54843, 1)
else
setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
end

if icons[poke] then
ballid = icons[poke].on
end

local description = "Contains a "..poke.."."

local gender = status.gender
local happy = 200
--alterado v1.9 \/
if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
item = doCreateItemEx(ballid)
else
item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
end

doItemSetAttribute(item, "poke", poke)
doItemSetAttribute(item, "hp", 1)
doItemSetAttribute(item, "happy", happy)
doItemSetAttribute(item, "gender", gender)
doItemSetAttribute(item, "fakedesc", description)
doItemSetAttribute(item, "description", description)
if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then
doItemSetAttribute(item, "hands", 0)
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
----------- task clan ---------------------
if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then
sendMsgToPlayer(cid, 27, "Quest Done!")
doItemSetAttribute(item, "unique", getCreatureName(cid))
doItemSetAttribute(item, "task", 1)
setPlayerStorageValue(cid, 854788, 'done')
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
------------------------------------------- --alterado v1.9 \/
if getPlayerFreeCap(cid) >= 6 then
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
doPlayerSendMailByName(getCreatureName(cid), item, 1)
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")
end
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um "..poke..".", TALKTYPE_CHANNEL_W, 22)
end

local storage = newpokedex[poke].stoCatch
sendBrokesMsg(cid, storage, typeee)
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)
if catchMakesPokemonHappier then
setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)
if useOTClient then
doCreatureExecuteTalkAction(cid, "/salvar")
end
end
else
doSendMagicEffect(getThingPos(cid), 173)
end

doIncreaseStatistics(poke, true, true)

end

function doNotCapturePokemon(cid, poke, typeee)

if not isCreature(cid) then
return true
end

if not tonumber(getPlayerStorageValue(cid, 54843)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, 54843, 1)
end

if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
setPlayerStorageValue(cid, 54843, 1)
else
setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
end

doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)])

if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166)
else
doSendMagicEffect(getThingPos(cid), 166)
end

local storage = newpokedex[poke].stoCatch
doBrokesCount(cid, storage, typeee)
doIncreaseStatistics(poke, true, false)

end



function getPlayerInfoAboutPokemon(cid, poke)
local a = newpokedex[poke]
if not isPlayer(cid) then return false end
if not a then
print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.")
return false
end
local b = getPlayerStorageValue(cid, a.storage)

if b == -1 then
setPlayerStorageValue(cid, a.storage, poke..":")
end

local ret = {}
if string.find(b, "catch,") then
ret.catch = true
else
ret.catch = false
end
if string.find(b, "dex,") then
ret.dex = true
else
ret.dex = false
end
if string.find(b, "use,") then
ret.use = true
else
ret.use = false
end
return ret
end


function doAddPokemonInOwnList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).use then return true end

local a = newpokedex[poke]
local b = getPlayerStorageValue(cid, a.storage)

setPlayerStorageValue(cid, a.storage, b.." use,")
end

function isPokemonInOwnList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).use then return true end

return false
end

function doAddPokemonInCatchList(cid, poke)

if getPlayerInfoAboutPokemon(cid, poke).catch then return true end

local a = newpokedex[poke]
local b = getPlayerStorageValue(cid, a.storage)

setPlayerStorageValue(cid, a.storage, b.." catch,")
end

function getCatchList(cid)

local ret = {}

for a = 1000, 1251 do
local b = getPlayerStorageValue(cid, a)
if b ~= 1 and string.find(b, "catch,") then
table.insert(ret, oldpokedex[a-1000][1])
end
end

return ret

end


function getStatistics(pokemon, tries, success)

local ret1 = 0
local ret2 = 0

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""
local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
if num == nil then
ret1 = 0
else
ret1 = num
end
arq:close()

local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
if num == nil then
ret2 = 0
else
ret2 = num
end
arq:close()

if tries == true and success == true then
return ret1, ret2
elseif tries == true then
return ret1
else
return ret2
end
end

function doIncreaseStatistics(pokemon, tries, success)

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

if tries == true then
local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
if num == nil then
num = 1
else
num = num + 1
end
arq:close()
local arq = io.open(dir, "w")
arq:write(""..num.."")
arq:close()
end

if success == true then
local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
if num == nil then
num = 1
else
num = num + 1
end
arq:close()
local arq = io.open(dir, "w")
arq:write(""..num.."")
arq:close()
end
end

function doUpdateGeneralStatistics()

local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
local base = "NUMBER NAME TRIES / CATCHES\n\n"
local str = ""

for a = 1, 251 do
if string.len(oldpokedex[a][1]) <= 7 then
str = "\t"
else
str = ""
end
local number1 = getStatistics(oldpokedex[a][1], true, false)
local number2 = getStatistics(oldpokedex[a][1], false, true)
base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n"
end

local arq = io.open(dir, "w")
arq:write(base)
arq:close()
end

function getGeneralStatistics()

local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
local base = "Number/Name/Tries/Catches\n\n"
local str = ""

for a = 1, 251 do
local number1 = getStatistics(oldpokedex[a][1], true, false)
local number2 = getStatistics(oldpokedex[a][1], false, true)
base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].." "..str..""..number1.." / "..number2.."\n"
end

return base
end

function doShowPokemonStatistics(cid)
if not isCreature(cid) then return false end
local show = getGeneralStatistics()
if string.len(show) > 8192 then
print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.")
doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.")
return false
end
doShowTextDialog(cid, math.random(2391, 2394), show)
end


 

 

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito