Ability Preload

scope ALoad initializer Init

    globals
        private unit preload = null
    endglobals

    function AbilityPreload takes integer abilityid returns nothing
         call UnitAddAbility(preload, abilityid)
    endfunction

    function AbilityPreloadBX takes integer s, integer e returns nothing
        local integer i = 0
        if s > e then
            set i = s
            set e = s
            set s = i
        endif
        loop
            exitwhen s > e
            call UnitAddAbility(preload, s)
            set s = s + 1
        endloop
    endfunction

    private function Init takes nothing returns nothing
        set preload = CreateUnit(Player(15), 'zsmc', 0., 0., 0.)
        call ShowUnit(preload, false)
        call UnitAddAbility(preload, 'Aloc')
    endfunction

endscope