Então, venho pedir a ajuda de vocês com um erro que está dando no meu server ao ligar...
O erro começou quando eu estava adicionando o Mega Blaziken.Andei dando uma rodada tentando achar a solução, mas não encontrei nada.
Vim pedir ajuda para vocês, porque faz um mês que estou nesse projeto, e estou fazendo tudo sozinho, e perder tudo assim é tenso.Vlw ai pra quem puder ajudar

 

Imagem do erro abaixo

 

 

 

Meu Spawn.lua ae

 

local shinys = {

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

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

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

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini"}

local raros = {"Dragonite"}                               

 

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 = 1    --1% chance        

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

   chance = 2.0   --0.5% 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

Editado Dezembro 18, 2014 10 anos por Liru (veja o histórico de edições)

poste seu spawn.lua pra que possamos dar uma olhada

Tambem estou com esse problema.

Amigo, dei uma recodificada, veja se funcionou e me avise.

ocal shinys = {

"Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect",
"Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Onix", "Krabby",
"Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir",
"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini"}
local raros = {"Dragonite"}

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 = 1 --1% chance
elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!
chance = 2.0 --0.5% 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(doShiny, 10, cid)
addEvent(ShinyName, 15, cid)
addEvent(adjustWildPoke, 5, cid)

return true
end