Suicide

local ManaToDamage = 0.7
local minDamage = 200

local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_FIREAREA)
combat:setArea(createCombatArea(AREA_CIRCLE5X5))

function onGetFormulaValues(player, level, maglevel)

    local damage = player:getMana() * ManaToDamage
    if damage > minDamage then
        damage = player:getMana() * ManaToDamage
    else
        damage = minDamage
    end

    local min = damage
    local max = damage
    return -min, -max
end

combat:setCallback(1, "onGetFormulaValues")

function onCastSpell(creature, variant)

    if creature:getHealth() <= 100 then
        combat:execute(creature, variant)
    end

    local position = creature:getPosition()
    position:sendMagicEffect(CONST_ME_EXPLOSIONHIT)

    creature:addHealth(-100)

    return true
end