(Resolvido)Anunciar quando nascer o monstro !

[J.L 33]

Eu gostaria de um Script de quando Nascesse (Spawnasse) Um pokemon anunciasse no servidor em vermelho !

 

Rep+ and Best answer

[zipter98 460]

Qual a base do seu servidor? Possui as sources? É possível fazer isto usando onSpawn.

[J.L 33]

O Meu é PDA sem Sources  ;-; !

[zipter98 460]

Pode postar o conteúdo do arquivo spawn.lua (data/creaturescripts/scripts)?

[J.L 33]

Sim aki esta

 

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

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

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

 

 

[zipter98 460]

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 mName = "name"    --Nome do monstro que será anunciado ao nascer.                         
 
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 = 6    --1% chance        
        elseif isInArray(raros, getCreatureName(cid)) then   --n coloquem valores menores que 0.1 !!
            chance = 6   --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
    if getCreatureName(cid) == mName then
        broadcastMessage(mName.." spawned!")
    end
 
    addEvent(doSetRandomGender, 5, cid)
    addEvent(doShiny, 10, cid)
    addEvent(ShinyName, 15, cid)
    addEvent(adjustWildPoke, 5, cid)
 
    return true
end

[xandeloko 90]

ah intendi hahahah boa, so comentando aqui pra ficar salvo...