aparecer shinys mais rápido.

[MaxxSilva 78]

como faço para que de respaw de shinys mais rápido no meu ot, ja deixei online por um tempo e os players reclamavam q nunca vinha shiny.

spaw.lua

local shinys = {

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

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

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

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini", "Slowking", "Pichu", "Ampharos", "Magmar", "Wigglytuff", "Lapras", "Elekid", "Magby", "Mareep", "Flaaffy", "Tyrogue", 

"Gloom",

}

local raros = {"Dragonite", "Tyranitar", "Donphan", "Scizor", "Hitmontop"}                               --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

Editado Julho 10, 2014 por MaxxSilva (veja o histórico de edições)

[slyton 51]

usa o meu se der erro ou algo do tipo fala ai no tópico que posso te ajudar.

local shinys = {

local shinys = {

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

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

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

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini", "Slowking", "Pichu", "Ampharos", "Magmar", "Wigglytuff", "Lapras", "Elekid", "Magby", "Mareep", "Flaaffy", "Tyrogue",

"Gloom",

}

local raros = {"Dragonite", "Tyranitar", "Donphan", "Scizor", "Hitmontop"}

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

if isNpcSummon(cid) then return true end

if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9

if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/

chance = 3 --3% chance

elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!

chance = 3 --3% chance

else

return true

end

if math.random(1, 1000) <= chance*10 then

doSendMagicEffect(getThingPos(cid), 18)

local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid)

doRemoveCreature(cid)

local shi = doCreateMonster(name, pos, false)

setPlayerStorageValue(shi, 74469, 1)

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

Bom para configurar a chance de nascer um shiny é nesta parte (chance = 3 --3% chance) só configurar lembre-se nunca ponha menor que 1

Se eu ajudei? Rep+

Editado Julho 10, 2014 por slyton (veja o histórico de edições)

[MaxxSilva 78]

Vlw!! Pergunta eu coloquei 10 e aparecia shiny mt rápido vc usa 3 é uma chance boa para aparecer shinys?

[slyton 51]

cara eu uso sim mas tmb eu almento a hate de respawn la no config.lua rateSpawn = 13 Eu acho razoável não é zuado e também não hard