Ir para conteúdo

Jente alguem me ajuda to com esse erro quando adicione um poke no meu server

Por Vasco384
em Suporte Tibia OTServer

Featured Replies

Postado

oT.thumb.jpg.6580fbb185dd4fd276c9fb3faa10d043.jpgmeus spawn.lua 

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) ~= nil 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

  • Citar
  • Mention
    • Respostas 25
    • Visualizações 1k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Posted Images

    Postado

    Tente:

     

    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 por gabrielzika (veja o histórico de edições)

    MEU SERVER:

    http://otpokemonxy.net/

     

     

    Nosso → Grupo Oficial OtPokemon XY 24 Horas

     

    Nosso → Site Oficial OtPokemon XY 24 Horas

     

    Nossa → Pagina Oficial OtPokemon XY 24 Horas

     

  • Citar
  • Mention
    • Postado
    • Autor
    3 minutos atrás, gabrielzika disse:

    Tente:

     

    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

    mano continua o erro :(

     

  • Citar
  • Mention
    • Postado

    Quando ocorre o erro?

    MEU SERVER:

    http://otpokemonxy.net/

     

     

    Nosso → Grupo Oficial OtPokemon XY 24 Horas

     

    Nosso → Site Oficial OtPokemon XY 24 Horas

     

    Nossa → Pagina Oficial OtPokemon XY 24 Horas

     

  • Citar
  • Mention
    • Postado
    • Autor
    5 minutos atrás, gabrielzika disse:

    Quando ocorre o erro?

    tipo eu adiciono um poke ai apareçe aki lo la no quando vo iniciar o poketibia unicas coisa que mechi foi configuration pra adicionar o poke e monster xml

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.7k

    Informação Importante

    Confirmação de Termo

    I accept