Derivado [Ajuda]Erro na distrito de pokemon

[Poul Lennon 21]

Queria saber como resolver este bug que está na distro, e tá largando demais o servidor... Por favor, ajudem. Serei muito grato a quem puder

 

[15/05/2016 04:13:56] [Error - CreatureScript Interface] 
[15/05/2016 04:13:56] In a timer event called from: 
[15/05/2016 04:13:56] data/creaturescripts/scripts/spawn.lua:onSpawn
[15/05/2016 04:13:56] Description: 
[15/05/2016 04:13:56] (luaDoCreatureSetStorage) Creature not found

[Sekk 396]

posta o seu  data/creaturescripts/scripts/spawn.lua

 

vou tentar ver

[Poul Lennon 21]

local shinys = {
"Oddish"}
local raros = {"Dragonite"}    

function isNpcSummon(cid)
return isNpc(getCreatureMaster(cid))
end

local function doShiny(cid)
if isCreature(cid) then
   if isSummon(cid) then return true end
   if isNpcSummon(cid) then return true end
   
if isInArray(shinys, getCreatureName(cid)) then
   chance = 100    --1% chance        
elseif isInArray(raros, getCreatureName(cid)) then 
   chance = 1   --1% 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

local function doSetRandomGender(cid)
    if not isCreature(cid) then return true end
    if isSummon(cid) then return true end
    local gender = 0
    local rate = 70
        if getCreatureName(cid) == "Nidoran Male" then
            gender = 4
        elseif getCreatureName(cid) == "Nidoran Female" then
            gender = 3
        elseif getCreatureName(cid) == "Dragonite" then
            gender = 0
        elseif getCreatureName(cid) == "Magneton" then
            gender = 0
        else
            if rate == 0 then
                gender = 3
            elseif rate == 100 then
                gender = 4
            elseif rate == -1 then
                gender = 0
            elseif math.random(1, 100) <= rate then
                gender = 4
            else
                gender = 3
            end
        end
    doCreatureSetSkullType(cid, gender)
end

local function ShinyName(cid)
if isCreature(cid) then
   if string.find(tostring(getCreatureName(cid)), "Shiny") then
      local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")             
      doUpdateNick(cid, newName)
   end
end
end

function setPokemonWildStatus(cid)
    if isMonster(cid) and pokes[getCreatureName(cid)] then
        local plvl = 0
        local b = getCreatureOutfit(cid).lookBody
        local lvl = pokes[getCreatureName(cid)].level
        local maxh = (pokes[getCreatureName(cid)].cons * lvl)
        setCreatureMaxHealth(cid, (maxh +pokes[getCreatureName(cid)].vida))
        doCreatureAddHealth(cid,  getCreatureMaxHealth(cid))
    end
return true
end

function onSpawn(cid)
    registerCreatureEvent(cid, "Exp")

    if isSummon(cid) then
        registerCreatureEvent(cid, "DiePoke")
        if not getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), CONST_SLOT_FEET).uid, "ExpLevel") then
            doItemSetAttribute(getPlayerSlotItem(getCreatureMaster(cid), CONST_SLOT_FEET).uid, "ExpLevel", 1)
        end
    return true
    end
    
    if not isPlayer(cid) and not isSummon(cid) then
        registerCreatureEvent(cid, "Aloot")
        if pokes[getCreatureName(cid)] then
            setPlayerStorageValue(cid, 993615, pokes[getCreatureName(cid)].level)
        end
        --addEvent(setPokemonWildStatus, 5, cid)
    end
    
    addEvent(doSetRandomGender, 5, cid)
    addEvent(doShiny, 10, cid)
    addEvent(ShinyName, 15, cid)
    
return true
end