Galera no meu serve os shinys estão com catch bom que eu ajeitei mas eles nascem mt facil como dificulto? para demorar mais a nascer shiny.

O tópico foi movido para a área correta, preste mais atenção da próxima vez!

Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:

De: "OTServ → Suporte OTServ → Suporte de Scripts"

Para: "OTServ → Suporte OTServ → Suporte de Servidores Derivados"

Teria como o senhor me passar o arquivo lua chamado Spawn.lua que fica em data/creaturescripts/scripts.

Teria como o senhor me passar o arquivo lua chamado Spawn.lua que fica em data/creaturescripts/scripts.

 

Sim esta aqui:

 

 

local shinys = {

"Venusaur", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", 

"Kingler", "Cubone", "Horsea", "Seadra", "Weezing", "Blaziken", "Oddish", "Scyther", "Pinsir", "Crobat", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode"}

 

local raros = {"Dragonair", "Dratini", "Giant Magikarp", "Gyarados", "Magmortar", "Electivire", "Salamence", "Mantine"}                               

 

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 == 500 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 500) <= 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 = 2.0    --1% chance        

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

   chance = 1   --1% chance       

else

   return true

end    

    if math.random(1, 500) <= 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(doShiny, 10, cid)

addEvent(ShinyName, 15, cid)

addEvent(adjustWildPoke, 5, cid)

 

return true

end

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

chance = 2 -- configure a chance não bota menor que 1

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

chance = 1 --1% chance


se não der certo mano você boto a hate de respawn lá do config.lua mt alto...

Editado Abril 2, 2015 10 anos por slyton (veja o histórico de edições)