Ir para conteúdo
TK News
  • Cadastre-se

(Resolvido)Adicionando Wild Na Frente?

Drazyn1291
 Share Seguidores 0
Ir para solução Resolvido por zipter98,

Posts Recomendados

Drazyn1291

Drazyn1291 307

Postado
Postado

Eai Pessoal Blz?? Gostaria de um script que adicione a palavra wild na frente dos nome dos pokemons selvagens

 

ex:

 

Wild Charizard

Wild Charmander

Wild Bulbasaur

Wild Mega Charizard

e por ai vai...

 

Mas isto vale apenas para pokemons que são selvagens, se forem summon ou capturados, tivessem apenas o normal

tipo se o pokemon for selvagem(sem nenhum dono) Séra "Wild Charizard", se for um pokemon do tipo summon ou capturado(a mesma coisa q summon) séra apenas "Charizard" acredito eu q seja no creaturescript 

 

quem puder me ajudar estarei muito agradecido!! e ganhará REP++ !!!

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado (editado)

olha ai 

 

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", "Machamp"}
local raros = {"Dragonite"}
 
local function doShinys(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)) and math.random(1, 1000) <= 5 then
 
        local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
        local newName = "Shiny "..getCreatureName(cid)..""
 
         doRemoveCreature(cid)
         local s = doCreateMonster(newName, position)
         doSendMagicEffect(getThingPos(s), 18)
      end
   end
end
 
function onSpawn(cid)
 print(getCreatureName(cid))
 
registerCreatureEvent(cid, "Exp")
if isSummon(cid) then
registerCreatureEvent(cid, "SummonDeath")
return true
end
         doShiny(cid)
doShinys(cid)
return true
end
 
function doShiny(cid)
 
if isPlayer(cid) or isNpc(cid) then return true end
        local position = {x=581, y=980, z=7}
local level = pokes[getCreatureName(cid)].level
        local newName = getCreatureName(cid).."["..level.."]"
 
         doRemoveCreature(cid)
         doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end

Editado por Summer Slyer (veja o histórico de edições)

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado 
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", "Machamp"}
local raros = {"Dragonite"}
local function doWildName(cid)
local lvl = pokes[getCreatureName(cid)].level
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newNm,pos)
end 
return true
end
local function doShinys(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)) and math.random(1, 1000) <= 5 then


        local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
        local newName = "Shiny "..getCreatureName(cid)..""


         doRemoveCreature(cid)
         local s = doCreateMonster(newName, position)
         doSendMagicEffect(getThingPos(s), 18)
      end
   end
end


function onSpawn(cid)
 print(getCreatureName(cid))


registerCreatureEvent(cid, "Exp")
if isSummon(cid) then
registerCreatureEvent(cid, "SummonDeath")
return true
end
         doShiny(cid)
doShinys(cid)
doWildName(cid)
return true
end


function doShiny(cid)
if isPlayer(cid) or isNpc(cid) then return true end
        local position = {x=581, y=980, z=7}
local level = pokes[getCreatureName(cid)].level
        local newName = getCreatureName(cid).."["..level.."]"   


         doRemoveCreature(cid)
         doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado 
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", "Machamp"}
local raros = {"Dragonite"}
local function doWildName(cid)
local lvl = pokes[getCreatureName(cid)].level
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newNm,pos)
end 
return true
end
local function doShinys(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)) and math.random(1, 1000) <= 5 then


        local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
        local newName = "Shiny "..getCreatureName(cid)..""


         doRemoveCreature(cid)
         local s = doCreateMonster(newName, position)
         doSendMagicEffect(getThingPos(s), 18)
      end
   end
end


function onSpawn(cid)
 print(getCreatureName(cid))


registerCreatureEvent(cid, "Exp")
if isSummon(cid) then
registerCreatureEvent(cid, "SummonDeath")
return true
end
         doShiny(cid)
doShinys(cid)
doWildName(cid)
return true
end


function doShiny(cid)
if isPlayer(cid) or isNpc(cid) then return true end
        local position = {x=581, y=980, z=7}
local level = pokes[getCreatureName(cid)].level
        local newName = getCreatureName(cid).."["..level.."]"   


         doRemoveCreature(cid)
         doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end

Ei man esta funcionando pela metade! tipo ele n aparece no nome do monstro Wild Charizard, mas quando dou look aparece isto You see a wild charizard.

Hit Points: 70000 / 70000.

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado

Mude:

local function doWildName(cid)
local lvl = pokes[getCreatureName(cid)].level
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newNm,pos)
end 
return true
end

Por:

local function doWildName(cid)
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonster(newNm,pos)
end 
return true
end

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
Snowsz

Snowsz 339

Postado
Postado

 

Mude:

local function doWildName(cid)
local lvl = pokes[getCreatureName(cid)].level
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newNm,pos)
end 
return true
end

Por:

local function doWildName(cid)
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonster(newNm,pos)
end 
return true
end

Isso vai fazer com que não troque o nome do monstro...

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", "Machamp"}
local raros = {"Dragonite"}
local function doWildName(cid)
local lvl = pokes[getCreatureName(cid)].level
local newNm = "["..Wild.."]"..getCreatureName(cid)
local pos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
if not isPlayer(cid) and not isSummon(cid) then
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newNm,pos)
end 
return true
end
local function doShinys(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)) and math.random(1, 1000) <= 5 then


        local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
        local newName = "Shiny "..getCreatureName(cid)..""


         doRemoveCreature(cid)
         local s = doCreateMonster(newName, position)
         doSendMagicEffect(getThingPos(s), 18)
      end
   end
end


function onSpawn(cid)
 print(getCreatureName(cid))


registerCreatureEvent(cid, "Exp")
if isSummon(cid) then
registerCreatureEvent(cid, "SummonDeath")
return true
end
         doShiny(cid)
doShinys(cid)
doWildName(cid)
return true
end


function doShiny(cid)
if isPlayer(cid) or isNpc(cid) then return true end
        local position = {x=581, y=980, z=7}
local level = pokes[getCreatureName(cid)].level
        local newName = "Wild "..getCreatureName(cid).."["..level.."]"   


         doRemoveCreature(cid)
         doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end

                              _
                          .-'` `}
                  _./)   /       }
                .'o   \ |       }
                '.___.'`.\    {`
                /`\_/  , `.    }                                      ME DA UMA NOZ!
                \=' .-'   _`\  {
                 `'`;/      `,  }
                    _\   @   ;  }
                   /__`;-...'--'

Cluck!

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado

eu troquei de base... dai estes ai n funcionaram! poderiam adaptar pra esta base nova?? estou usando o pda v3 by bolz

 

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

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado 
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 isPlayer(cid) or isNpc(cid) then return true end
if isCreature(cid) then
local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
local newName = "Wild "..getCreatureName(cid)..""   
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end
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

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado (editado) 
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 isPlayer(cid) or isNpc(cid) then return true end
if isCreature(cid) then
local position = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
local newName = "Wild "..getCreatureName(cid)..""   
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end
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

o seu esta dando este erro:

 

post-136291-0-83265400-1432140109_thumb.

 

Obs: foi oq eu consegui tirar com o console dando debug devido ao erro ._.

Editado por Summer Slyer (veja o histórico de edições)

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado 
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 isPlayer(cid) or isNpc(cid) then return true end
if isCreature(cid) then
local position = {x=581, y=980, z=7}
local newName = "Wild "..getCreatureName(cid)..""   
doRemoveCreature(cid)
doCreateMonsterNick(getCreatureName(cid),newName, position)
return true
end
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

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
  • Solução
zipter98

zipter98 460

Postado
  • Solução
Postado (editado)

Troque o código da função ShinyName por este:

local function ShinyName(cid)
    if isCreature(cid) then
        local newName = "Wild "..getCreatureName(cid)
        if string.find(tostring(getCreatureName(cid)), "Shiny") then
            newName = newName:gsub("Shiny ", "")
        end
        doCreatureSetNick(cid, newName)
        if isMonster(cid) then
            doSetCreatureDropLoot(cid, false)  
        end
    end
end
Editado por zipter98 (veja o histórico de edições)

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado

 

Troque o código da função ShinyName por este:

local function ShinyName(cid)
    local newName = "Wild "..getCreatureName(cid)
    if isCreature(cid) then
        if string.find(tostring(getCreatureName(cid)), "Shiny") then
            newName = newName:gsub("Shiny ", "")
        end
    end
    doCreatureSetNick(cid, newName)
    if isMonster(cid) then
        doSetCreatureDropLoot(cid, false)  
    end
end

o seu da este erro ao terminar de abrir o serv

 

[20/05/2015 22:33:03] [Error - CreatureScript Interface] 
[20/05/2015 22:33:03] In a timer event called from: 
[20/05/2015 22:33:03] data/creaturescripts/scripts/spawn.lua:onSpawn
[20/05/2015 22:33:03] Description: 
[20/05/2015 22:33:03] (luaGetCreatureName) Creature not found
 
[20/05/2015 22:33:03] [Error - CreatureScript Interface] 
[20/05/2015 22:33:03] In a timer event called from: 
[20/05/2015 22:33:03] data/creaturescripts/scripts/spawn.lua:onSpawn
[20/05/2015 22:33:03] Description: 
[20/05/2015 22:33:03] data/creaturescripts/scripts/spawn.lua:9: attempt to concatenate a boolean value
[20/05/2015 22:33:03] stack traceback:
[20/05/2015 22:33:03]  data/creaturescripts/scripts/spawn.lua:9: in function <data/creaturescripts/scripts/spawn.lua:8>

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites
Drazyn1291

Drazyn1291 307

Postado
  • Autor
Postado

 

Troque o código da função ShinyName por este:

local function ShinyName(cid)
    if isCreature(cid) then
        local newName = "Wild "..getCreatureName(cid)
        if string.find(tostring(getCreatureName(cid)), "Shiny") then
            newName = newName:gsub("Shiny ", "")
        end
        doCreatureSetNick(cid, newName)
        if isMonster(cid) then
            doSetCreatureDropLoot(cid, false)  
        end
    end
end

Agora Funcionou!! Vlw!! Mt obrigado!

wq3bBzt.png
Pokémon Dust Evolution
 
É aonde começa sua nova aventura!! 

 

Facebook

 
Verifique Atualizações

 

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito