Pokemon Catch System

[DPool 0]

Nome: Catch System
Autor: DPool
Versão Testada:  8.1 - 8.4

Informações Adicionais:
sistema de catch system para pokemon

crie um arquivo lua na pasta data/actions/scripts e coloque o nome de catch.lua

coloque isso:

function onUse(cid, item, fromPosition, itemEx, toPosition)
local pokemon  = getCreatureName(itemEx.uid)

if pokemon == "[color="DarkGreen"]POKEMON[/color]" then
	if math.random(1,100) >= [color="Red"]1[/color] then
           doRemoveCreature(itemEx.uid)
		doRemoveItem(itemEx.uid)
		doSendMagicEffect(toPosition, CONST_ME_FIREWORK_BLUE)
		doPlayerSendTextMessage(cid,22,"You cought a Wild [color="DarkGreen"]POKEMON[/color]!")
		doRemoveItem(item.uid, 1)
		doPlayerAddItem(cid, [color="Blue"]2261[/color],1)              
	else
		doRemoveItem(itemEx.uid)
		doRemoveItem(item.uid, 1)
		doPlayerSendTextMessage(cid,22,"Your pokeball broke!")
		doSendMagicEffect(toPosition, CONST_ME_POFF)
	end
end
return TRUE
end

 

POKEMON - nome do pokemon que vai se capturado.

1 - chance de captura, (1 = 100% e 99 = 1%).

2261 - id da pokebola do pokemon capturado.

 

caso queira colocar pra capturar mais pokemons faça assim:

 

[spoiler=VEJA ;)]

function onUse(cid, item, fromPosition, itemEx, toPosition)
local pokemon  = getCreatureName(itemEx.uid)

if pokemon == "POKEMON1" then
	if math.random(1,100) >= 1 then
           doRemoveCreature(itemEx.uid)
		doRemoveItem(itemEx.uid)
		doSendMagicEffect(toPosition, CONST_ME_FIREWORK_BLUE)
		doPlayerSendTextMessage(cid,22,"You cought a Wild POKEMON1!")
		doRemoveItem(item.uid, 1)
		doPlayerAddItem(cid, 2261,1)              
	else
		doRemoveItem(itemEx.uid)
		doRemoveItem(item.uid, 1)
		doPlayerSendTextMessage(cid,22,"Your pokeball broke!")
		doSendMagicEffect(toPosition, CONST_ME_POFF)
	end
end
if pokemon == "POKEMON2" then
	if math.random(1,100) >= 1 then
           doRemoveCreature(itemEx.uid)
		doRemoveItem(itemEx.uid)
		doSendMagicEffect(toPosition, CONST_ME_FIREWORK_BLUE)
		doPlayerSendTextMessage(cid,22,"You cought a Wild POKEMON2!")
		doRemoveItem(item.uid, 1)
		doPlayerAddItem(cid, 2262,1)              
	else
		doRemoveItem(itemEx.uid)
		doRemoveItem(item.uid, 1)
		doPlayerSendTextMessage(cid,22,"Your pokeball broke!")
		doSendMagicEffect(toPosition, CONST_ME_POFF)
	end
end
return TRUE
end

 

	<action itemid="[color="DeepSkyBlue"]2399[/color]" script="items/pokeball.lua" allowfaruse="1"/> 

2399 - ID do item que vai ser a pokebola.

 

 

é isso ae galera agora falta o evolution system!

ja venho com ele

doe ums troco ae pra mim tiu :ras:

Editado 29 Setembro, 2010 por DPool
falto a tag do xml :)

[Lwkass 1]

Poderia melhorar esse script ein, imagina um script com 100 pokemons, o script iria ter em torno de 1500 linhas de código sendo que da pra simplificar esse script usando tabelas, mesmo assim n tem nada no forum igual ou parecido com isso então vou aprovar,

 

Aprovado

[xhaos 0]

cara parabens

 

estava presicsando muito dele

[Mickfern 32]

Realmente estes scripts de pokemon vai ajudar muitas pessoas ( Aff ), parabéns por fazer/trazer para o fórum.

 

Realmente seu script ficou meio grandinho, e não quero imaginar para todos os pokemons, mas tudo bem... o que vale é a intenção.

[Nostalgic 0]

Ta mais Ai Ele Ta capturano o pokemon vivo neh....

 

Bota esse aki no topico \/ ta capturano pelo id do corpo

 

function onUse(cid, item, fromPosition, itemEx, toPosition)

if itemEx.itemid == 6008 then

if math.random(1,100) >= 1 then

doRemoveItem(itemEx.uid)

doDecayItem(itemEx.uid)

doSendMagicEffect(toPosition, 24)

doRemoveItem(item.uid, 1)

doPlayerAddItem(cid, 2147,1)

doPlayerSendTextMessage(cid,22,"Parabens Pokemon Captured.")

else

doRemoveItem(itemEx.uid)

doRemoveItem(item.uid, 1)

doPlayerSendTextMessage(cid,22,"Failed!Your pokeball broke.")

doSendMagicEffect(toPosition, 23)

end

end

return TRUE

end

6008=id do corpo do pokemon

1=chance de captura, (1 = 100% e 99 = 1%).

2147= id da pokebola do pokemon capturado.

Editado 30 Setembro, 2010 por felipedaniel
Melhorando o script

[tigerx2 1]

Nossa script vai dar muitoo POG,

mas tudo bem, nao tem ninguem que fez

isso mesmo .-.

Parabens por trazer aqui e ajudar os noob viado fdp caras

que querem ter seus servidores de pokemon.

[Killua 11]

Vey, vai da POG bagarai mano.

 

Já to ficando com raiva desse lance de td mundo querer fazer serv de Pokémon, vai vira uma coisa normal de mais, quando só tinha um era foda mas agora é paia =~/

[Gozzler 0]

onde arrumo esse script pokeball.lua? desse codigo:

<action itemid="2399" script="items/pokeball.lua" allowfaruse="1"/>

[Nostalgic 0]

onde arrumo esse script pokeball.lua? desse codigo:

<action itemid="2399" script="items/pokeball.lua" allowfaruse="1"/>

 

Lol Lek Isso ai E Do Script q ta No topico E so Ler Com Atençao q voce vai ver

[Lismae Foke 0]

Parabéns !

 

Script muito Boom !

[duruba 0]

Primeiramente quero dar os parabéns pelo otimo Script.

 

Dúvidas

1-Eu editei o magicEffect para igual a do PO, Porem ela é demorada e quando captura o pokemon é instantaneo, teria como botar um exhausted pra dar tempo de aparecer todo o magiceffect antes que aparecer a pokebola na Backpack ou a pokebola quebrar?(Uns 3 segundos)

Editado 2 Outubro, 2010 por duruba

[DPool 0]

Primeiramente quero dar os parabéns pelo otimo Script.

 

Dúvidas

1-Eu editei o magicEffect para igual a do PO, Porem ela é demorada e quando captura o pokemon é instantaneo, teria como botar um exhausted pra dar tempo de aparecer todo o magiceffect antes que aparecer a pokebola na Backpack ou a pokebola quebrar?(Uns 3 segundos)

 

vou ver isso!

 

@topic

demoro pra responde pq tenho outras coisa pra fazer

[duduxampp 7]

Vlws por compartilhar, Muito bom o sistema.

[DragonDraker 1]

Esses cara so sabe dar CTRL V + CTRL C,veio isso foi feito no ******************.

[josejunior23 2]

Boa!

eu antes, cerca de 4 meses...

fiz um sistema com catch/go/back(avançado) e outras coisas

amanha posto o script completo.

[Brad Pitt 0]

O Script Ficou Grande e Bastante Cansativo porém, Ja é uma grande ajuda você esta postando-o. Espero um script menor futura mente (:

[SlaerGod 0]

Bacana esse script, mas aposto que qualquer "serverzin" que se passar de pokemon e usar este script, pode ter certeza meu velho. Ele é lixo. ;D

[Geovani 0]

Parabens me ajudou muito