Triggers

//TESH.scrollpos=149
//TESH.alwaysfold=0
scope FireStorm initializer Init

globals

    private constant integer SpellId    = 'A000'
        //This is the spell's raw code.
    private constant integer EntityUnit = 'n000'
        //This is the dummy unit
    private constant real InitDamage    = 100
        //This is the initial damage that the fire ball will deal
    private constant real LvlInc        = 25
        //This is the damage increase per level
    private constant real MaxDist       = 500
        //This is the maximum distance that the fire balls will move away from the cast point
    private constant real MinDist       = 100
        //This is the minimum distance when created
    private constant real MaxHeight     = 600
        //This is the maximum height the fire balls will travel
    private constant real UnitTime      = 6
        //This is the dummy units timed life
    private constant real DetectDist    = 100
        //This is the distance that an unit will be detected.
    private constant string ModelPath   = "Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl"
        //This is the fire ball's model path
    private constant string Effect      = "Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl"
        //This is the colision effect
    private constant string BirthEffect = "Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl"
        //This is the birth effect
        
    private integer counter     = 0
    private timer TIM           = CreateTimer()
    private firedata array Data

endglobals

struct firedata

    unit caster = null
    unit entity = null
    real a      = 0
    real x      = 0
    real y      = 0
    real z      = 0
    real d      = 0
    real xC     = 0
    real yC     = 0
    effect s    = null
    
    static method create takes unit u, real x, real y returns firedata
    
        local firedata dat = firedata.allocate()
        
        set dat.caster = u
        set dat.xC     = x
        set dat.yC     = y
        set dat.d      = GetRandomReal(MinDist, MaxDist)
        set dat.a      = GetRandomReal(0, 360)
        set dat.x      = x + dat.d * Cos(dat.a * bj_DEGTORAD)
        set dat.y      = y + dat.d * Sin(dat.a * bj_DEGTORAD)
        set dat.entity = CreateUnit(GetOwningPlayer(u), EntityUnit, dat.x, dat.y, dat.a)
        set dat.s      = AddSpecialEffectTarget(ModelPath, dat.entity, "origin")
        
        
        call DestroyEffect(AddSpecialEffect(BirthEffect, dat.x, dat.y))
        call UnitApplyTimedLife(dat.entity, 'BFLT', UnitTime)
        
        if counter == 0 then
            call TimerStart(TIM, 0.03, true, function firedata.onLoop)
        endif
        
        set counter          = counter + 1
        set Data[counter -1] = dat
        
        return dat
    
    endmethod
    
    static method damageArea takes unit u, real x, real y returns nothing
    
       
        local group g = CreateGroup()
        local unit  n = null  
        local real  d = (GetUnitAbilityLevel(u, SpellId) * LvlInc) + InitDamage
    
        call GroupEnumUnitsInRange(g, x, y, DetectDist, null)
    
        loop
    
            set n = FirstOfGroup(g)
            exitwhen n == null
            if IsUnitEnemy(n, GetOwningPlayer(u)) == true then
                call UnitDamageTarget(u, n, d, true, false, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_NORMAL, null)
                call DestroyEffect(AddSpecialEffectTarget(Effect, n, "chest"))
            endif
            call GroupRemoveUnit(g, n)
    
        endloop
    
        call DestroyGroup(g)
        
        set g = null
       
    endmethod
    
    static method detectUnit takes unit u, real x, real y returns integer
    
        local group    g = CreateGroup()
        local integer  i = 0
        local unit     n = null   
    
        call GroupEnumUnitsInRange(g, x, y, DetectDist, null)
    
        loop
    
            set n = FirstOfGroup(g)
            exitwhen n == null
            if IsUnitEnemy(n, GetOwningPlayer(u)) == true then
                if GetUnitState(n, UNIT_STATE_LIFE) > 0 then
                    call DestroyGroup(g)
                    set g = null
                    set n = null
                    return 0
                endif
            endif
            call GroupRemoveUnit(g, n)
            
            call DestroyGroup(g)
            set n = null
            set g = null
    
        endloop
    
        call DestroyGroup(g)
        set g = null
    
        return 1
    
    endmethod
    
    static method onLoop takes nothing returns nothing
    
        local firedata dat
        local integer i = 0
        
        loop
        
            exitwhen i >= counter
            set dat = Data[i]
            
            //This is the onLoop actions
            
            set dat.a = dat.a + 5
            set dat.x = dat.xC + dat.d * Cos(dat.a * bj_DEGTORAD)
            set dat.y = dat.yC + dat.d * Sin(dat.a * bj_DEGTORAD)
            
            call SetUnitX(dat.entity, dat.x)
            call SetUnitY(dat.entity, dat.y)
            
            set dat.z = dat.z + 20
            call SetUnitFlyHeight(dat.entity, dat.z, 40)
            
            if firedata.detectUnit(dat.entity, dat.x, dat.y) == 0 then
            
                call KillUnit(dat.entity)
                call firedata.damageArea(dat.caster, dat.x, dat.y)
            
            endif
            
            //End of onLoop actions
            
            if GetWidgetLife(dat.entity) < 0.405 then
            
                set Data[i] = Data[counter - 1]
                set counter = counter - 1
                call DestroyEffect(AddSpecialEffectTarget(Effect, dat.entity, "origin"))
                
                call dat.destroy()
            
            endif
            
            set i = i + 1
        
        endloop
        
        if counter == 0 then
            call PauseTimer(TIM)
        endif
    
    endmethod
    
    method onDestroy takes nothing returns nothing
    
        local unit u = .entity
        call DestroyEffect(.s)
        call TriggerSleepAction(.1)
        call RemoveUnit(u)
        
        set u = null
    
    endmethod

endstruct

private function FireStormConditions takes nothing returns boolean

    return GetSpellAbilityId() == SpellId
    
endfunction

private function FireStormActions takes nothing returns nothing

    local integer i = 0
    local unit    u = GetTriggerUnit()
    local real    x = GetSpellTargetX()
    local real    y = GetSpellTargetY()

    loop
    
        exitwhen i == 20
        set i = i + 1
        call TriggerSleepAction(.1)
        call firedata.create(u, x, y)
    
    endloop
    
    set u = null

endfunction

private function Init takes nothing returns nothing
    
    local trigger MainTrigger = CreateTrigger()

    call TriggerRegisterAnyUnitEventBJ( MainTrigger, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( MainTrigger, Condition( function FireStormConditions ) )
    call TriggerAddAction( MainTrigger, function FireStormActions )

    set MainTrigger = null
    
endfunction

endscope