Spell Dando Error

local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_HITCOLOR, COLOR_YELLOW)
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 118)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -34.0, 0, -39.0, 0)

local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_HITCOLOR, COLOR_PINK)
setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat3, COMBAT_PARAM_DISTANCEEFFECT, 121)
setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -34.0, 0, -39.0, 0)
 
local function onCastSpell1(parameters)
return isCreature(parameters.cid) and doCombat(parameters.cid, parameters.combat1, parameters.var)
end

local function onCastSpell3(parameters)
return isCreature(parameters.cid) and doCombat(parameters.cid, parameters.combat3, parameters.var)
end

function monaka1(cid)
for r = 1, 1 do
    addEvent(function()
        if isCreature(cid) then
            local position1 = {x=getThingPosition(getCreatureTarget(cid)).x+1, y=getThingPosition(getCreatureTarget(cid)).y+1, z=getThingPosition(getCreatureTarget(cid)).z}
            doSendMagicEffect(position1, 542)
        end
    end, 1 + ((r-1) * 250))
end
end
function monaka2(cid)
for r = 1, 1 do
    addEvent(function()
        if isCreature(cid) then
            local position1 = {x=getThingPosition(getCreatureTarget(cid)).x+2, y=getThingPosition(getCreatureTarget(cid)).y+2, z=getThingPosition(getCreatureTarget(cid)).z}
            doSendMagicEffect(position1, 407)
        end
    end, 1 + ((r-1) * 250))
end
end

function onCastSpell(cid, var)
local parameters = {cid = cid, var = var, combat1 = combat1, combat3 = combat3}
addEvent(onCastSpell1, 0, parameters)

for k = 1, 3 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(onCastSpell1, 0, parameters)
        end
    end, 1 + ((k-1) * 250))
end
for i = 4, 7 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(onCastSpell3, 0, parameters)
        end
    end, 1 + ((i-1) * 250))
end
for k = 8, 10 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(onCastSpell1, 0, parameters)
        end
    end, 1 + ((k-1) * 250))
end

for l = 1, 3 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(monaka1, 1,cid)
        end
    end, 1 + ((l-1) * 250))
end
for l = 4, 7 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(monaka2, 1,cid)
        end
    end, 1 + ((l-1) * 250))
end
for l = 7, 10 do
    addEvent(function()
        if isCreature(cid) then
            addEvent(monaka1, 1,cid)
        end
    end, 1 + ((l-1) * 250))
end
return true
end