local removeMonster = "Solid Frozen Horror"
local random = 3
function onThink(cid)
    local monster = Creature(cid)
    if monster:getHealth() >= 19000 then
        local removeCreature = Creature(getStorage(56782))
        if (removeCreature ~= nil) then
            local newMonster = Game.createMonster("Melting Frozen Horror", removeCreature:getPosition(), true, true)
            local removeHP = -(newMonster:getMaxHealth() - removeCreature:getHealth())
            newMonster:addHealth(removeHP)
            removeCreature:remove()
            addEvent(checkMelting, 20 * 1000, monster:getId(), newMonster:getId())
        end
    end
end


function checkMelting(dragonEggId, meltingId)
    local dragon_egg = Creature(dragonEggId)
    local melting = Creature(meltingId)
    if (melting ~= nil and melting:getHealth() >= 100000) then
        if (math.random(1, random) == random) then
            local newMonster = Game.createMonster("Solid Frozen Horror", melting:getPosition(), true, true)
            setStorage(56782, newMonster:getId())
            local removeHP = -(newMonster:getMaxHealth() - melting:getHealth())
            newMonster:addHealth(removeHP)
            melting:remove()
            if (dragon_egg ~= nil) then
                dragon_egg:addHealth(-dragon_egg:getHealth()+1)
            end
            return true
        end
    addEvent(checkMelting, 20 * 1000, dragonEggId, meltingId)
    end
end