Preciso de um script que nem de pokemon shiny so que ele funcionara igual so que o seria boss esse é o do shiny de pokemon se alguem conseguir adptar pra tibia agradeço desde ja 

 

Spoiler

local boss = {
"Venusaur", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", 
"Kingler", "Cubone", "Marowak", "Horsea", "Seadra", "Weezing", "Scyther", "Pinsir", "Crobat", "Ariados", "Beedrill", "Blaziken", "Espeon", "Farfetch'd", "Hitmoncham", "Hirmonlee", " Hitmontop", "Dodrio", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Oddish", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode", "Tangrowth", "Rapidash", "Gardevoir", "Bronzong", "Charmander", "Charmeleon", "Bulbasaur", "Ivysaur", "Squirtle", "Wartortle", "Machop", "Machoke", "Pidgey", "Pidgeotto", "Pikachu", "Wobbuffet"}

local boss = {"Dragonair", "Dratini", "Giant Magikarp", "Gyarados", "Magmortar", "Electivire", "Salamence", "Mantine", "Black Tangrowth"}                               

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 = 4
        elseif rate == 500 then
            gender = 5
        elseif rate == -1 then
            gender = 1
        elseif math.random(1, 500) <= rate then
            gender = 3
        else
            gender = 4
        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 = 0.2   --1% chance        
elseif isInArray(raros, getCreatureName(cid)) then   --n coloquem valores menores que 0.1 !!
   chance = 1.0   --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

 

up

Editado Março 21, 2017 8 anos por darcioantonio (veja o histórico de edições)

@darcioantonio aqui não é playground para brincadeira, ou mensagem sem importância não relacionada ao conteúdo do tópico. Leia as regras!

 

Regra Nº 2.4 - Mensagens inúteis:

Não poste mensagens sem conteúdo, que não contribuem em nada ou que não estejam relacionadas ao assunto do tópico. Mensagens assim são chamadas de Floods. Postar coisas como "haha", "lol", "me add no msn aí", entre outras, é o que considera-se completamente inútil. Postar várias mensagens iguais, mesmo que em tópicos diferentes, também pode ser considerado Flood.

a fmz maus ai man

ele e meu irmao por isso coloquei :D