globals

 integer	HolyLight_AbilityId	= 'A000'
 string		HolyLight_RayModelPath	= "Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl"
 real		HolyLight_AreaOfEffect	= 200.00
 real		HolyLight_RayCollision	= 80.0
 real		HolyLight_WaveInterval	= 1.0

endglobals

function HolyLight_TargetFilter takes unit target returns boolean
    if (IsUnitType(target, UNIT_TYPE_STRUCTURE)) then
        return false
    endif
    if (IsUnitType(target, UNIT_TYPE_MAGIC_IMMUNE)) then
        return false
    endif
    if (IsUnitType(target, UNIT_TYPE_MECHANICAL)) then
        return false
    endif
 return true
endfunction

function HolyLight_RandomPointInCircle takes real centerX, real centerY, real radius returns location
 local real range = GetRandomReal(0.0, radius)
 local real angle = GetRandomReal(0.0, 360.0)
 local real x = centerX + range * Cos(angle * 3.14159/180.0)
 local real y = centerY + range * Sin(angle * 3.14159/180.0)
 return Location(x, y)
endfunction

function HolyLight_RayCount takes integer level returns integer
 return 5

    // Though I do not take advantage of the 'level' variable, I left it in there
    // so that people who may be altering this ability can alter the amount of rays
    // that appear per wave based on the ability's level.
endfunction

function HolyLight_HitpointsCalc takes integer level returns real
 return (15.0 + (15.0 * level))

    // This is the equation I use, returning amounts of 30/45/60. If a user wishes to
    // change the amount healed per ray, he may alter the equation here.
endfunction

struct HolyLight
 unit caster
 real centerX
 real centerY
 integer level
endstruct

function HolyLight_Channel takes nothing returns nothing

    local HolyLight data = 0
    local integer index = 0
    
    local group units = CreateGroup( )
    local unit temp = null
    local location random = null
    local real x = 0.0
    local real y = 0.0
    local real hitpoints = 0.0
    
    loop
        set data = data + 1
        if GetUnitCurrentOrder(data.caster) == OrderId("blizzard") then
                set index = 0
            loop
                set random = HolyLight_RandomPointInCircle(data.centerX, data.centerY, HolyLight_AreaOfEffect)
                set x = GetLocationX(random)
                set y = GetLocationY(random)
                set hitpoints = HolyLight_HitpointsCalc(data.level)
                call RemoveLocation(random)
                call DestroyEffect(AddSpecialEffect(HolyLight_RayModelPath, x, y))
                call GroupEnumUnitsInRange(units, x, y, HolyLight_RayCollision, null)
                loop
                    set temp = FirstOfGroup(units)
                    exitwhen (temp == null)
                    if (HolyLight_TargetFilter(temp)) then
                        if (IsUnitEnemy(temp, GetOwningPlayer(data.caster))) then
                            call UnitDamageTarget(data.caster, temp, hitpoints, false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                        elseif (IsUnitAlly(temp, GetOwningPlayer(data.caster))) then
                            call SetUnitState(temp, UNIT_STATE_LIFE, GetUnitState(temp, UNIT_STATE_LIFE) + hitpoints)
                        endif
                    endif
                    call GroupRemoveUnit(units, temp)
                endloop
            
                exitwhen index >= HolyLight_RayCount(data.level)
                set index = index + 1
            endloop
            
        else
            set s__HolyLight_caster[data] = null
            call data.destroy( )
        endif
        exitwhen data == 5
    endloop
endfunction

function HolyLight_Conditions takes nothing returns boolean
    return (GetSpellAbilityId( ) == HolyLight_AbilityId)
endfunction

function HolyLight_Actions takes nothing returns nothing
    local HolyLight data = HolyLight.create( )
    call BJDebugMsg(I2S(data))
    set data.caster  = GetTriggerUnit( )
    set data.centerX = GetSpellTargetX()
    set data.centerY = GetSpellTargetY()
    set data.level   = GetUnitAbilityLevel(data.caster, HolyLight_AbilityId)
endfunction

function InitTrig_HolyLight takes nothing returns nothing
 local trigger spell = CreateTrigger( )
    call TimerStart(CreateTimer(), HolyLight_WaveInterval, true, function HolyLight_Channel)
    call TriggerRegisterAnyUnitEventBJ(spell, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(spell, Condition(function HolyLight_Conditions))
    call TriggerAddAction(spell, function HolyLight_Actions)
endfunction