[AJUDA] ERRO DISTRU

zFaeLL · 2015-12-17T00:43:59+00:00

Ajuda TFS 0.3.6 Poketibia 8.54 Spawn.lua AJUDA URGENTE

Postado Dezembro 17, 2015 9 anos

Ajuda TFS 0.3.6 Poketibia 8.54

Spawn.lua

Spoiler

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 = 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

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

AJUDA URGENTE

Citar

Mention

Postado Dezembro 17, 2015 9 anos

Spoiler


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 = 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
                                                                
function onSpawn(cid)
    registerCreatureEvent(cid, "Experience")
    registerCreatureEvent(cid, "GeneralConfiguration")
    registerCreatureEvent(cid, "DirectionSystem")
    registerCreatureEvent(cid, "CastSystem")
    
    if (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 17, 2015 9 anos por Azhaurn (veja o histórico de edições)

Citar

Mention

Postado Dezembro 17, 2015 9 anos

Esta é uma mensagem automática, este tópico foi movido para a área correta.
Regras do fórum: http://www.tibiaking.com/forum/topic/1281-regras-gerais/#comment-7680

Este tópico foi movido:
De: Scripting OTServ > OTServ > Geral
Para: Suporte OTServ > OTServ > Suporte de Scripts

Citar

Mention

Postado Dezembro 17, 2015 9 anos

Autor

1 hora atrás, Azhaurn disse:

Ocultar conteúdo




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 = 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
                                                                
function onSpawn(cid)
    registerCreatureEvent(cid, "Experience")
    registerCreatureEvent(cid, "GeneralConfiguration")
    registerCreatureEvent(cid, "DirectionSystem")
    registerCreatureEvent(cid, "CastSystem")
    
    if (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

Continua erro.

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.

https://tibiaking.com/topic/65743-ajuda-erro-distru/

Seguidores

Ir para a lista de tópicos

Nenhum usuário registrado visualizando esta página.

Tibia Ginius Versão 1.1 by L3K0T
ferramenta

Tibia Ginius Versão 1.1 by L3K0T
L3K0T · Julho 3, 2024 Jul 3
- 10 respostas
- 13185 visualizações
junimslage

Novembro 3, 2024 Nov 3
[Servidor] GENESIS ONLINE TIBIA (GOT)
[Servidor] GENESIS ONLINE TIBIA (GOT)

chateadoagr · Abril 18, 2024 1 ano
- 854
- apocalypse
- got
- residentevil
- (e 7 mais)
  Tags:
  
  854
  
  apocalypse
  
  got
  
  residentevil
  
  survive
  
  tfs
  
  the forgotten server
  
  tibia
  
  tibiabr
  
  tibiaking
  
  twd
- 0 respostas
- 256 visualizações
chateadoagr

Abril 18, 2024 1 ano
[TFS 0.4] CreatureScripts (onOpenRuleViolation) + Telegram Notification
[TFS 0.4] CreatureScripts (onOpenRuleViolation) + Telegram Notification

Imperius · Fevereiro 28, 2024 1 ano
- c++
- creaturescript
- lua
- tfs
- tfs04
- 3 respostas
- 725 visualizações
L3K0T

Março 1, 2024 1 ano
[Servidor] Hellgrave Exodus BR (TFS 1.4) v1.7.0(10.98)
[Servidor] Hellgrave Exodus BR (TFS 1.4) v1.7.0(10.98)

chateadoagr · Novembro 15, 2023 1 ano
- 1.4
- 1098
- ats
- br
- (e 9 mais)
  Tags:
  
  1.4
  
  1098
  
  ats
  
  br
  
  custom
  
  custom rpg
  
  exodus
  
  hellgrave
  
  rpg
  
  rpg server
  
  rpg tibia
  
  tfs
  
  tibia
- 3 respostas
- 3619 visualizações
chateadoagr

Outubro 1, 2024 Out 1
Erro MySql
Erro MySql

HexusAlphos · Outubro 24, 2023 1 ano
- tfs
- 1 resposta
- 251 visualizações
FeeTads

Outubro 25, 2023 1 ano

Tópicos 96.9k
Posts 519.7k

Entrar

[AJUDA] ERRO DISTRU

Featured Replies

Participe da conversa

Quem Está Navegando 0

Conteúdo Similar

Estatísticas dos Fóruns

Informação Importante

Account

Navigation

Pesquisar