Diga em poucas palavras a base utilizada (Nome do servidor ou nome do website).

Ex. TFS 1.3;

Base: 

 

 

Qual erro está surgindo/O que você procura?

 

 

Você tem o código disponível? Se tiver publique-o aqui:

 

Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.

Gostaria de saber se alguém poderia me ajudar a resolver esse erro

adc na sua lib

 

function isSummon(uid)
return uid ~= getCreatureMaster(uid) or false
end

 

@Vodkart Não consegui ajeitar, esse é o meu código que ta:
 

local shinys = {
"Venusaur", "Dratini", "Milotic", "Houndoomm", "Magikarp", "Rapidash", "Wobbuffet", "Grimer", "Larvitar", "Pupitar", "Flygon", "Umbreon", "Dodrio", "Muk", "Sandslash", "Magmar", "Electabuzz", "Magneton", "Ariados", "Scizor", "Ludicolo", "Ninetales", "Rhydon", "Swellow", "Kabutops", "Miltank", "Houndoom", "Magcargo", "Venomoth", "Politoed", "Mr. Mime", "Tropius", "Metagross", "Lanturn", "Tangrowth", "Slowking", "Swampert", "Sceptile", "Blaziken", "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", "Kingdra", "Weezing", "Scyther", "Pinsir", "Crobat", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode"}

local raros = {"Dragonair", "Snorlax", "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 then
        registerCreatureEvent(cid, "SummonDeath")
    return true
    end

    addEvent(doShiny, 10, cid)
    addEvent(ShinyName, 15, cid)
    addEvent(adjustWildPoke, 5, cid)

return true
end

é dentro da pasta lib, tem lá as funções, se não me engano ta 050-function

 

coloca nessa

@Vodkart Coloquei nela, quando fui ligar continuou o mesmo erro.

 

Editado Julho 9, 2018 6 anos por CrazyX (veja o histórico de edições)