local chance_shiny = 6 -- 6% de chance
local chance_raro = 1 -- 1 % de chance

local shinys = {
 "Caterpie", "Venusaur", "Charizard", "Blastoise", "Metapod", "Butterfree", "Weedle", "Kakuna", "Beedrill", "Pidgey", "Pidgeotto", "Pidgeot", "Rattata",
 "Raticate", "Spearow", "Fearow", "Ekans", "Arbok", "Pikachu", "Raichu", "Sandshrew", "Sandslash", "Nidoran Female",
 "Nidorina", "Nidoqueen", "Nidoran Male", "Nidorino", "Nidoking", "Clefairy", "Clefable", "Vulpix", "Ninetales",
 "Jigglypuff", "Wigglytuff", "Zubat", "Golbat", "Oddish", "Gloom", "Vileplume", "Paras", "Parasect", "Venonat", "Venomoth",
 "Diglett", "Dugtrio", "Meowth", "Persian", "Psyduck", "Golduck", "Mankey", "Primeape", "Growlithe", "Arcanine",
 "Poliwhirl", "Poliwrath", "Machop", "Machoke", "Machamp", "Bellsprout", "Weepinbell", "Victreebel",
 "Tentacruel", "Geodude", "Graveler", "Golem", "Ponyta", "Rapidash", "Slowpoke", "Slowbro", "Magnemite", "Magneton",
 "Farfetch'd", "Doduo", "Dodrio", "Seel", "Dewgong", "Grimer", "Muk", "Shellder", "Cloyster", "Onix", "Drowzee", "Hypno",
 "Krabby", "Kingler", "Voltorb", "Electrode", "Exeggcute", "Exeggutor", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan",
 "Lickitung", "Koffing", "Weezing", "Rhyhorn", "Rhydon", "Tangela", "Horsea", "Seadra", "Goldeen",
 "Seaking", "Staryu", "Starmie", "Mr. Mime", "Pinsir", "Tauros", "Gyarados", "Lapras", "Ditto", "Vaporeon", "Jolteon",
 "Flareon", "Porygon", "Kadabra", "Omanyte", "Magikarp", "Jynx", "Poliwag", "Tentacool", "Haunter", "Chansey", "Ivysaur",
 "Charmeleon", "Dragonair", "Wartortle", "Snorlax", "Omastar", "Dragonite", "Gengar", "Alakazam", "Electabuzz", "Magmar", "Kabuto", "Kabutops"
 }
 local raros = {"Bulbasaur", "Charmander", "Squirtle",
 "Dratini", "Eevee", "Scyther", "Gastly", "Kangaskhan",
 "Abra", "Articuno", "Zapdos", "Moltres", "Mew", "Mewtwo", "Aerodactyl"}

local function doPokemonRegisterLevel(cid)
 if not isCreature(cid) then return true end
 if getWildPokemonLevel(cid) == -1 then
 setWildPokemonLevel(cid)
 end
 end

local function doSetRandomGender(cid)
 if not isCreature(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(chance_shiny, 100) --6% chance
elseif isInArray(raros, getCreatureName(cid)) then
 transform = math.random(chance_raro, 100) --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, "GeneralConfiguration")
 registerCreatureEvent(cid, "DirectionSystem")
 registerCreatureEvent(cid, "CastSystem")

if isSummon(cid) then
 registerCreatureEvent(cid, "SummonDeath")
 return true
 end

registerCreatureEvent(cid, "Experience")

addEvent(doPokemonRegisterLevel, 5, cid)
 addEvent(doSetRandomGender, 5, cid)
 addEvent(doShiny, 10, cid)

return true
 end