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 getPlayerStorageValue(cid, 22546) >= 1 then return true end --alterado v1.7 -golden-
  if isNpcSummon(cid) then return true end

if isInArray(shinys, getCreatureName(cid)) then
  transform = math.random(1, 20)	--0.1% chance	  
elseif isInArray(raros, getCreatureName(cid)) then
  transform = math.random(1, 20)   --0.1% chance	  
else
  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