[Ajuda]Rate pokemon shiny !

[tcheco1994 0]

Alguem me ajude, onde modifico para que pokemon shiny apareçam mais facil no meu ot, dei uma pesquisada e dizem que é nesse script chamado Spawn fica no data data\creaturescripts\scripts

 

Ele esta correto??? help

 

 

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(6, 100) --6% chance 

elseif isInArray(raros, getCreatureName(cid)) then

 transform = math.random(1, 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

[Summ 238]

local chance_shiny = 6 
local chance_raro = 1 

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 == 100 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

 

 

configura a porcentagem no começo do script :

local chance_shiny = 6 
local chance_raro = 1 

está na chance padrão só mudar de acordo com a que tu quer...

Editado Março 26, 2015 por Summ (veja o histórico de edições)

[tcheco1994 0]

deu este erro olha !