library spelllib initializer SpiritMissile
    globals
        hashtable H = InitHashtable( )
    endglobals
    
    private struct SpiritMissileInfo
        unit u
        unit u1
        unit u2
        real x
        real y
        real speed
        real offsetz
        real a
        real a1
        real dmg
        real radius
        real dist
        real az
        real azs
        integer AttackType
        integer DamageType
        boolean tf
        boolexpr b
    endstruct
    
    private function SpiritMissileMove takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local SpiritMissileInfo A = LoadInteger(H,GetHandleId(t),0)
        local real d = 0
        set A.x = (A.x+A.speed*Cos(A.a)) + A.offsetz*Sin(A.az)*Cos(A.a-A.a1)
        set A.y = (A.y+A.speed*Sin(A.a)) + A.offsetz*Sin(A.az)*Sin(A.a-A.a1)
        
        set A.dist = A.dist-A.speed
        
        call SetUnitX( A.u1, A.x )
        call SetUnitY( A.u1, A.y )
        call SetUnitFlyHeight(A.u1,GetUnitFlyHeight(A.u1) + A.offsetz*Cos(A.az),0)
        /*set bj_lastCreatedUnit = A.u
        call GroupEnumUnitsInRange(TempG,A.x,A.y,A.radius,A.b)
        if A.tf then
            call SetItemPositionEx(TempIt,A.x,A.y)
            set d = DBC(GetItemX(TempIt),GetItemY(TempIt),A.x,A.y)
        endif*/
        if A.dist <= 0 or d > 10 then
            
            //call KillUnit(A.u1)
            call FlushChildHashtable(H,GetHandleId(t))
            call PauseTimer(t)
            call DestroyTimer(t)
            call A.destroy()
            set A.u = null
            set A.u1 = null
            set A.u2 = null
            set A.a = 0.
            set A.a1 = 0.
            set A.speed = 0.
            set A.offsetz = 0.
            set A.dmg = 0.
            set A.dist = 0.
            set A.radius = 0.
            set A.az = 0.
            set A.azs = 0.
            set A.b = null
            set A.AttackType = 0
            set A.DamageType = 0
        else
            set A.az = A.az+(A.azs*bj_DEGTORAD)
            if A.u2 != null then
                set A.a = Atan2(GetUnitY(A.u2)-A.y,GetUnitX(A.u2)-A.x)
            endif
        endif
        
        set t = null
    endfunction
    
    function SpiritMissile takes nothing returns nothing
        local timer t = CreateTimer()
        local SpiritMissileInfo A = SpiritMissileInfo.create()
        
        set A.u = gg_unit_hfoo_0000
        set A.a = 0.00
        set A.a1 = 45.00 * bj_DEGTORAD
        set A.u1 = gg_unit_hfoo_0000
        set A.x = GetUnitX(A.u1)
        set A.y = GetUnitY(A.u1)
        set A.speed = 3
        set A.offsetz = 20
        set A.dmg = 0
        set A.dist = 999
        set A.radius = 100
        set A.az = 0.
        set A.azs = 6
        set A.b = null
        set A.AttackType = 0
        set A.DamageType = 0
        
        if false then
            set A.u2 = GetTriggerUnit()
        endif
        set A.tf = false
        
        call UnitAddAbility(A.u1,'Arav')
        call SetUnitFlyHeight(A.u1,50,0)
        call SetUnitPathing(A.u1,false)
        call SaveInteger(H,GetHandleId(t),0,A)
        call TimerStart(t,0.01,true,function SpiritMissileMove)
        
        set t = null
    endfunction
endlibrary