Ir para conteúdo

Mabel

Campones
  • Total de itens

    11
  • Registro em

  • Última visita

Posts postados por Mabel

  1. bem eu só sei o basico do basico só que eu queria por respawn aleatorio de shiny de outland no meu ot 
     

    Spoiler

    local shinys = {
    "Venusaur", "Blastoise", "Butterfree", "Mr. Mime", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", "Magcargo", 
    "Kingler", "Cubone", "Horsea", "Seadra", "Weezing", "Scyther", "Pinsir", "Crobat", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode", "Grimer", "Muk", "Sandslash", "Mantine", "Marowak", "Lanturn"}

    local raros = {"Magmortar", "Electivire", "Salamence"}                               

    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 == 500 then
                gender = 4
            elseif rate == -1 then
                gender = 0
            elseif math.random(1, 500) <= 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 = 2.0    --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, 500) <= 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

     

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...