function meteor(param)
local target = getCreatureTarget(param.cid)
local to = getCreaturePosition(target)
local from = {x = to.x - 4, y = to.y - 6, z = to.z, stackpos = 255}
local area1 = {x = to.x, y = to.y - 1, z = to.z, stackpos = 255}
local area2 = {x = to.x, y = to.y + 1, z = to.z, stackpos = 255}
local area3 = {x = to.x - 1, y = to.y, z = to.z, stackpos = 255}
local area4 = {x = to.x + 1, y = to.y, z = to.z, stackpos = 255}
doSendDistanceShoot(from, to, CONST_ANI_FIRE)
doSendDistanceShoot(from, to, CONST_ANI_LARGEROCK)
doAreaCombatHealth(param.cid, COMBAT_FIREDAMAGE, to, 0, -100, -200, CONST_ME_EXPLOSIONHIT)
doAreaCombatHealth(param.cid, COMBAT_FIREDAMAGE, area1, 0, -100, -200, CONST_ME_EXPLOSIONHIT)
doAreaCombatHealth(param.cid, COMBAT_FIREDAMAGE, area2, 0, -100, -200, CONST_ME_EXPLOSIONHIT)
doAreaCombatHealth(param.cid, COMBAT_FIREDAMAGE, area3, 0, -100, -200, CONST_ME_EXPLOSIONHIT)
doAreaCombatHealth(param.cid, COMBAT_FIREDAMAGE, area4, 0, -100, -200, CONST_ME_EXPLOSIONHIT)
end
function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
local to = getCreaturePosition(target)
local from = {x = to.x - 4, y = to.y - 6, z = to.z, stackpos = 255}
doSendMagicEffect(to, CONST_ME_FIREWORK_RED)
local param = { cid = cid, var = var}
addEvent(meteor, 2000, param)
end
