Help me Fast pls ... help me with npc pls...

[2fast4u]

Hey Guys ;p
everyone of you knows advanced spells like this
Code:

local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, xxDamage)
setCombatParam(combat1, COMBAT_PARAM_EFFECT, 0)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, x, x, x, x)
 

local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_xxDamage)
setCombatParam(combat2, COMBAT_PARAM_EFFECT, x)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, x, x, x, x)

 
arr1 = 	{1, 1, 1, 1, 1},
	{0, 1, 1, 1, 0},
	{0, 1, 1, 1, 0},
	{0, 0, 3, 0, 0}
}

arr2 = 	{1, 1, 1, 1, 1},
	{0, 1, 1, 1, 0},
	{0, 1, 1, 1, 0},
	{0, 0, 3, 0, 0}
}

 
local area1 = createCombatArea(arr1)
local area2 = createCombatArea(arr2)
setCombatArea(combat1, area1)
setCombatArea(combat2, area2)

local function onCastSpell1(parameters) 
doCombat(parameters.cid, parameters.combat1, parameters.var) 
end 

local function onCastSpell2(parameters) 
doCombat(parameters.cid, parameters.combat2, parameters.var) 
end 


function onCastSpell(cid, var) 
local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } 
addEvent(onCastSpell1, 100, parameters) 
addEvent(onCastSpell2, 400, parameters) 
return TRUE
end

but does anyone know how to make this spell an advanced one?:
(Rhux made this spell for me)
Code:

 local area = createCombatArea(AREA_WAVE4)

local combat = {createCombatObject(),createCombatObject(),createCombatObject(),createCombatObject()} 

for i = 1, #combat do 
    setAttackFormula(combat[i], COMBAT_FORMULA_LEVELMAGIC, 5, 5, 1.2, 2) 
end 

local param = { 
[combat[1]] = {{setCombatParam,COMBAT_PARAM_TYPE,COMBAT_FIREDAMAGE},{setCombatParam,COMBAT_PARAM_EFFECT,CONST_ME_FIREATTACK}}, 
[combat[2]] = {{setCombatParam,COMBAT_PARAM_TYPE,COMBAT_ICEDAMAGE},{setCombatParam,COMBAT_PARAM_EFFECT,CONST_ME_ICEAREA}}, 
[combat[3]] = {{setCombatParam,COMBAT_PARAM_TYPE,COMBAT_EARTHDAMAGE},{setCombatParam,COMBAT_PARAM_EFFECT,CONST_ME_SMALLPLANTS}}, 
[combat[4]] = {{setCombatParam,COMBAT_PARAM_TYPE,COMBAT_ENERGYDAMAGE},{setCombatParam,COMBAT_PARAM_EFFECT,CONST_ME_ENERGYAREA}} 
} 

for combat, params in pairs(param) do 
    for i = 1,#params do 
        params[i][1](combat, params[i][2],params[i][3]) 
    end 
end 

for i = 1,#combat do 
    setCombatArea(combat[i], area) 
end 
function onCastSpell(cid, var) 
    return doCombat(cid, combat[(getCreatureLookDirection(cid)+1)], var) 
end

Since i learned about this spell just a day ago i dont know much 'bout it, so i hope anyone could help me...
I'll give Rep++ for sure
Regards,
2fast4u