local shinys = {

"Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect", 

"Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Onix", "Krabby", 

"Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir", 

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini",

}

local raros = {"Dragonite"}                               --alterado v1.5

 

local function ShinyName(cid)

if isCreature(cid) then

   if string.find(tostring(getCreatureName(cid)), "Shiny") then

      local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")             

      doCreatureSetNick(cid, newName)

      if isMonster(cid) then

         doSetCreatureDropLoot(cid, false)  

      end

   end

end

end

 

local function doSetRandomGender(cid)

if not isCreature(cid) then return true end

if isSummon(cid) then return true end

local gender = 0

local name = getCreatureName(cid)

if not newpokedex[name] then return true end

local rate = newpokedex[name].gender

if rate == 0 then

gender = 3

elseif rate == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= rate then

gender = 4

else

gender = 3

end

doCreatureSetSkullType(cid, gender)

end

 

local function doShiny(cid)

if isCreature(cid) then

   if isSummon(cid) then return true end

   if getPlayerStorageValue(cid, 74469) >= 1 then return true end

   if isNpcSummon(cid) then return true end

if isInArray(shinys, getCreatureName(cid)) then

   transform = math.random(1, 1000)    --0.1% chance        

elseif isInArray(raros, getCreatureName(cid)) then

   transform = math.random(1, 1000)   --0.1% chance       

elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then

   return true

end    

    if transform == 10 then

      doSendMagicEffect(getThingPos(cid), 18)

      local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid))

      setPlayerStorageValue(shi, 74469, 1)

      setPlayerStorageValue(cid, 74469, 1)

      doRemoveCreature(cid)

   else

       setPlayerStorageValue(cid, 74469, 1)

   end

else                                                            

return true

end

end

                                                                

function onSpawn(cid)

 

    registerCreatureEvent(cid, "Experience")

registerCreatureEvent(cid, "GeneralConfiguration")

registerCreatureEvent(cid, "DirectionSystem")

registerCreatureEvent(cid, "CastSystem")

 

 

if isSummon(cid) then

registerCreatureEvent(cid, "SummonDeath")

return true

end

 

addEvent(doSetRandomGender, 5, cid)

addEvent(doShiny, 10, cid)

addEvent(ShinyName, 15, cid)

addEvent(adjustWildPoke, 5, cid)

 

return true

end

 

 

queria 1 tipo de spanw tipo red pokemon ai esta meu spanw.lua

Editado Maio 16, 2015 10 anos por 345sat (veja o histórico de edições)

Não entendi, como assim "red pokémon"... 

tipo aparecer no respawn dos pokemon aparecer tipo exemplo 

meu conteudo Red Metapod Red Gloon Red  Haunter Red Dratini

Editado Maio 16, 2015 10 anos por 345sat (veja o histórico de edições)

tipo aparecer no respawn dos pokemon aparecer tipo exemplo 

meu conteudo Red Metapod Red Gloon Red  Haunter Red Dratini

Fala a lista dos Pokemons Red que voce tem e a % de Apariçao!

Red Dratini,Red Metapod,Red Gloom,Red Gloom sou esses 4

Editado Maio 16, 2015 10 anos por 345sat (veja o histórico de edições)