llocal atk3 = createCombatObject()
local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_HITBYPOISON)
setCombatParam(combat1, COMBAT_PARAM_CREATEITEM, 1492)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -2.0, -150000, -1.6, -150000)
local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_FIREDAMAGE)
setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_PLANTATTACK)
setCombatParam(combat2, COMBAT_PARAM_CREATEITEM, 1492)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -2.0, -20000000, -1.6, -100000000)
local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_ENERGYAREA )
setCombatParam(combat3, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGYBALL )
setCombatParam(combat3, COMBAT_PARAM_CREATEITEM, 1492)
setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -0,6, -3000, -1.2, -4000)
arr1 = {
{0, 0, 0, 0, 0, 0, 0,},
{0, 0, 0, 0, 0, 0, 0,},
{0, 0, 1, 1, 1, 0, 0,},
{0, 0, 1, 1, 1, 0, 0,},
{0, 0, 1, 1, 1, 0, 0,},
{0, 0, 0, 0, 0, 0, 0,},
{0, 0, 0, 0, 0, 0, 0,},
};
arr2 = {
{0, 0, 0, 0, 0, 0, 0,},
{0, 1, 1, 1, 1, 1, 0,},
{0, 1, 0, 0, 0, 1, 0,},
{0, 1, 0, 3, 0, 1, 0,},
{0, 1, 0, 0, 0, 1, 0,},
{0, 1, 1, 1, 1, 1, 0,},
{0, 0, 0, 0, 0, 0, 0,},
};
arr3 = {
{0, 0, 0, 0, 0, 0, 0,},
{1, 0, 1, 0, 0, 1, 1,},
{1, 1, 1, 1, 1, 0, 0,},
{0, 1, 1, 2, 0, 1, 0,},
{1, 1, 1, 0, 1, 1, 0,},
{0, 1, 0, 1, 0, 1, 0,},
{0, 0, 0, 0, 0, 0, 0,},
};

local area1 = createCombatArea(arr1)
local area2 = createCombatArea(arr2)
local area3 = createCombatArea(arr3)
setCombatArea(atk3, area3)
setCombatArea(combat1, area1)
setCombatArea(combat2, area2)
setCombatArea(combat3, area3)
local function onCastSpell1(parameters)
doCombat(parameters.cid, parameters.combat1, parameters.var)
end
local function onCastSpell2(parameters)
doCombat(parameters.cid, parameters.combat2, parameters.var)
end
local function onCastSpell3(parameters)
doCombat(parameters.cid, parameters.combat3, parameters.var)
end
function onTargetTile3(cid, pos)
doCombat(cid,combat3,positionToVariant(pos))
end
setCombatCallback(atk3, CALLBACK_PARAM_TARGETTILE, "onTargetTile3")
local function onCastSpell3(parameters)
doCombat(parameters.cid, atk3, parameters.var)
end
function onCastSpell(cid, var)
local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2, combat3 = combat3, combat4 = combat4 }
addEvent(onCastSpell1, 0, parameters)
addEvent(onCastSpell2, 200, parameters)
addEvent(onCastSpell3, 400, parameters)
addEvent(onCastSpell1, 600, parameters)
addEvent(onCastSpell2, 800, parameters)
addEvent(onCastSpell3, 1000, parameters)
end

<instant name="DED" words="samobujstwo" lvl="500" maglv="5" mana="3500" soul="0" exhaustion="1" prem="1" enabled="1" script="DED.lua"><vocation id="4"/><vocation id="8"/></instant>