Ir para conteúdo

[Encerrado] Função Pokedex


AsMinaPira

Posts Recomendados

local rate = 20
function onUse(cid, item, fromPos, item2, toPos)

if not isCreature(item2.uid) then
return true
end
local poke = getCreatureName(item2.uid)
if isMonster(item2.uid) then
   local this = newpokedex[getCreatureName(item2.uid)]
   local myball = 0
   if isSummon(item2.uid) then
   myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
   end
   if not getPlayerInfoAboutPokemon(cid, poke).dex then
   local exp = this.level * rate
	  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
	  doSendMagicEffect(getThingPos(cid), 210)
	  doPlayerAddExperience(cid, exp)
	  doAddPokemonInDexList(cid, poke)
   else
	  doShowPokedexRegistration(cid, item2, myball)
   end
return true
end
if not isPlayer(item2.uid) then return true end
local kanto = 0
local johto = 0
							    --alterado v1.7 \/\/
for i = 1, #oldpokedex do
 if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[i][1]).dex then
 if i <= 151 then
		  kanto = kanto+1
	   elseif i >= 209 then
		  johto = johto+1
	   end
 end
end													  --alterado v1.6
local player = getRecorderPlayer(toPos, cid)
if cid == player then
 doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's pokémons until now.")
    doPlayerSetVocation(cid, 9) --alterado v1.6
    openChannelDialog(cid)
end
return true
end

Link para o comentário
Compartilhar em outros sites

Troca por:

 

 

local rate = 20
function onUse(cid, item, fromPos, item2, toPos)

local no_can = {"Pikachu", "Raichu", "Zapdos"} -- Entre aspas

if not isCreature(item2.uid) then
return true
end

if isInArray(no_can, getCreatureName(item2.uid)) then return doPlayerSendCancel(cid, "This poke is disabled!") end

local poke = getCreatureName(item2.uid)
if isMonster(item2.uid) then
	   local this = newpokedex[getCreatureName(item2.uid)]
local myball = 0
if isSummon(item2.uid) then
	   myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
	   end
	   if not getPlayerInfoAboutPokemon(cid, poke).dex then
	   local exp = this.level * rate
			  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")
	   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
			  doSendMagicEffect(getThingPos(cid), 210)
			  doPlayerAddExperience(cid, exp)
			  doAddPokemonInDexList(cid, poke)
	   else
			  doShowPokedexRegistration(cid, item2, myball)
	   end
return true
end
if not isPlayer(item2.uid) then return true end
local kanto = 0
local johto = 0
																--alterado v1.7 \/\/
for i = 1, #oldpokedex do
 if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[i][1]).dex then
	 if i <= 151 then
					  kanto = kanto+1
			   elseif i >= 209 then
					  johto = johto+1
			   end
 end
end																									   --alterado v1.6
local player = getRecorderPlayer(toPos, cid)
if cid == player then
	 doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's pokémons until now.")
		doPlayerSetVocation(cid, 9) --alterado v1.6
		openChannelDialog(cid)
end
return true
end

 

 

Nessa linha:

 

local no_can = {"Pikachu", "Raichu", "Zapdos"} 

 

Entre aspas e separados por vírgula coloca o nome dos pokes

Editado por Roksas
Link para o comentário
Compartilhar em outros sites

  • 4 years later...
A questão neste tópico de suporte foi encerrada por falta de respostas. Este tópico está fechado e foi movido para Suporte - Tópicos Sem Resposta.

+ Caso a dúvida não tenha sido resolvida você poderá criar outro tópico solicitando ajuda.
* Lembre-se que é permitido dar UP no tópico a cada 24 horas para assim o destacar e manter movimentado.
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...