library SucculentionLib
globals
    private constant hashtable H = InitHashtable( )
    private constant group TempGroup = CreateGroup( )
    private constant location LFZ = Location( 0.00, 0.00 )
    private constant integer SlowAbility = 'B000'   // дебаф сповільнюючої здібності, 0 - якщо нема
    private constant integer RootAbility = 'BEer'   // дебаф коренів, 0 - якщо нема
    private constant integer RootID        = 'u000' // корені
    private constant integer RootReverseID = 'u001' // реверснуті корені
    private constant integer FlowerID      = 'u002' // квітка
    private constant integer BirthID       = 'u003' // ефект появи
    private constant integer RootMineID    = 'u004' // масивні корені
    private constant integer OriginID      = 'u005' // ефект притягування
    private constant integer GreenSphereID = 'u006' // зелена кружлялка
    private constant real DamagePeriodic   = 0.50   // періодичність дамагу
    
    private unit TempUnit
    private group TempGroup1
    private integer TempS
    private integer TempInt
    private unit bj_lastFilterUnit = null
endglobals

native UnitAlive takes unit id returns boolean

private function GetLocZ takes real x, real y returns real
    call MoveLocation( LFZ, x, y )
    return GetLocationZ( LFZ )
endfunction

private struct SucculentionS
    unit caster
    player p
    group g
    
    real x
    real y
    real z
    real s
    real time
    real timeDamage
    real heal
    real damage
    real damageEnd
    boolexpr cond
    boolexpr cond1
endstruct

private function SucculentionDamage_1 takes nothing returns nothing
    local SucculentionS A = TempS
    local unit u = GetEnumUnit( )
    local real x
    local real y
    local real z
    local real x1
    local real y1
    local real z1
    local real a
    local real az
    local real d
    local lightning l = LoadLightningHandle( H, TempInt, GetHandleId( u ) )
    
    if not IsUnitInGroup( u, TempGroup ) or not UnitAlive( u ) or not IsUnitInRangeXY( u, A.x, A.y, 500.00 ) then
        if l != null then
            call DestroyLightning( l )
            call RemoveSavedHandle( H, TempInt, GetHandleId( u ) )
        endif
        
        if SlowAbility > 0 then
            call UnitRemoveAbility( u, SlowAbility )
        endif
        
        call GroupRemoveUnit( TempGroup1, u )
    else
        set x = GetUnitX( u )
        set y = GetUnitY( u )
        set z = GetLocZ( x, y ) + GetUnitFlyHeight( u ) + 50.00
        set a = Atan2( y - A.y, x - A.x )
        set az = Atan2( z - A.z, SquareRoot( ( x - A.x ) * ( x - A.x ) + ( y - A.y ) * ( y - A.y ) ) )
        
        set x1 = A.x + 100.00 * Cos( a ) * Cos( az )
        set y1 = A.y + 100.00 * Sin( a ) * Cos( az )
        set z1 = A.z + 100.00 * az
        
        if l == null then
            set l = AddLightningEx( "DRAL", false, x1, y1, z1, x, y, z )
            call SaveLightningHandle( H, TempInt, GetHandleId( u ), l )
        else
            call MoveLightningEx( l, false, x1, y1, z1, x, y, z )
        endif
        
        set d = SquareRoot( ( x - A.x ) * ( x - A.x ) + ( y - A.y ) * ( y - A.y ) + ( z - A.z ) * ( z - A.z ) ) - 100.00
        
        call SetLightningColor( l, 1.00, 1.00, 1.00, 0.10 + 0.90 * RMaxBJ( 0.00, ( 1.00 - RMaxBJ( 0.00, d - 200.00 ) / 300.00 ) ) )
        
        if IsUnitInRangeXY( u, A.x, A.y, 200.00 ) and A.timeDamage >= DamagePeriodic then
            if A.damage >= 0.00 then
                call UnitDamageTarget( A.caster, u, A.damage, false, false, null, null, null )
            else
                call SetWidgetLife( u, GetWidgetLife( u ) - A.damage )
            endif
            
            call SetWidgetLife( A.caster, GetWidgetLife( A.caster ) + A.heal )
            call DestroyEffect( AddSpecialEffectTarget( "Abilities\\Weapons\\snapMissile\\snapMissile.mdl", u, "chest" ) )
        endif
        
        if IsUnitInRangeXY( u, A.x, A.y, 125.00 ) then
            call SetUnitX( u, x + 5.00 * Cos( a ) )
            call SetUnitY( u, y + 5.00 * Sin( a ) )
        else
            if A.s > 0.00 then
                call SetUnitX( u, x - ( 0.10 + A.s * RMaxBJ( 0.00, ( 1.00 - RMaxBJ( 0.00, d - 200.00 ) / 300.00 ) ) ) * Cos( a ) )
                call SetUnitY( u, y - ( 0.10 + A.s * RMaxBJ( 0.00, ( 1.00 - RMaxBJ( 0.00, d - 200.00 ) / 300.00 ) ) ) * Sin( a ) )
            else
                call SetUnitX( u, x - ( -0.10 + A.s * RMaxBJ( 0.00, ( 1.00 - RMaxBJ( 0.00, d - 200.00 ) / 300.00 ) ) ) * Cos( a ) )
                call SetUnitY( u, y - ( -0.10 + A.s * RMaxBJ( 0.00, ( 1.00 - RMaxBJ( 0.00, d - 200.00 ) / 300.00 ) ) ) * Sin( a ) )
            endif
        endif
    endif
    
    set l = null 
    set u = null
endfunction

private function SucculentionBloom takes nothing returns nothing
    local SucculentionS A = LoadInteger( H, GetHandleId( GetExpiredTimer( ) ), 0 )
    local unit u
    local real x
    local real y
    local real a = GetRandomReal( 0.00, 360.00 )
    local integer i = R2I( ( 2.00 * bj_PI * ( 120.00 + 280.00 * ( 1.00 - A.time / ( 0.20 * 6.00 ) ) ) ) / 96.00 + 0.50 )
    local integer i1 = i
    
    loop
        set x = A.x + ( 120.00 + 280.00 * ( 1.00 - A.time / ( 0.20 * 6.00 ) ) ) * Cos( a * bj_DEGTORAD )
        set y = A.y + ( 120.00 + 280.00 * ( 1.00 - A.time / ( 0.20 * 6.00 ) ) ) * Sin( a * bj_DEGTORAD )
        
        set udg_TempUnit = A.caster
        call GroupEnumUnitsInRange( TempGroup, x, y, 200.00, A.cond1 )
        
        loop
            set u = FirstOfGroup( TempGroup )
            exitwhen u == null
            call GroupRemoveUnit( TempGroup, u )
            
            if IsUnitInRangeXY( u, x, y, 50.00 ) then
                if RootAbility > 0 then
                    call UnitRemoveAbility( u, RootAbility )
                    call IssueTargetOrder( TempUnit, "entanglingroots", u )
                endif
                
                if not IsUnitInGroup( u, A.g ) then
                    call GroupAddUnit( A.g, u )
                    
                    if A.damageEnd >= 0.00 then
                        call UnitDamageTarget( A.caster, u, A.damageEnd, false, false, null, null, null )
                    else
                        call SetWidgetLife( u, GetWidgetLife( u ) - A.damageEnd )
                    endif
                endif
            endif
        endloop
        
        set bj_lastCreatedUnit = CreateUnit( A.p, RootID, x, y, a )
        call SetUnitX( bj_lastCreatedUnit, x )
        call SetUnitY( bj_lastCreatedUnit, y )
        call SetUnitAnimation( bj_lastCreatedUnit, "birth" )
        call QueueUnitAnimation( bj_lastCreatedUnit, "stand" )
        call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', 2.50 )
    
        set i = i - 1
        exitwhen i <= 0
        set a = a + 360.00 / i1
    endloop
    
    set A.time = A.time - 0.20
    
    if A.time <= 0.00 then
        call PauseTimer( GetExpiredTimer( ) )
        call FlushChildHashtable( H, GetHandleId( GetExpiredTimer( ) ) )
        call DestroyTimer( GetExpiredTimer( ) )
        
        call DestroyGroup( A.g )
        
        set A.g = null
        set A.caster = null
        call A.destroy( )
    endif
endfunction

private function SucculentionDamage takes nothing returns nothing
    local SucculentionS A = LoadInteger( H, GetHandleId( GetExpiredTimer( ) ), 0 )
    local unit u
    local lightning l
    local integer i
    local real a
    
    set A.timeDamage = A.timeDamage + 0.01
    
    set TempS = A
    set TempInt = GetHandleId( GetExpiredTimer( ) )
    set TempGroup1 = A.g
    set udg_TempUnit = A.caster
    
    call GroupEnumUnitsInRange( TempGroup, A.x, A.y, 700.00, A.cond )
    
    set bj_groupAddGroupDest = A.g
    call ForGroup( TempGroup, function GroupAddGroupEnum )
    
    call ForGroup( A.g, function SucculentionDamage_1 )
    call GroupClear( TempGroup )
    
    set A.time = A.time - 0.01
    
    if A.time <= 0.00 then
        call PauseUnit( A.caster, false )
        call SetUnitInvulnerable( A.caster, false )
        
        set i = 3
        set a = GetRandomReal( 0.00, 360.00 )
        
        loop
            set bj_lastCreatedUnit = CreateUnit( A.p, BirthID, A.x, A.y, a )
            call SetUnitX( bj_lastCreatedUnit, A.x )
            call SetUnitY( bj_lastCreatedUnit, A.y )
            call SetUnitScale( bj_lastCreatedUnit, 3.00, 3.00, 3.00 )
            call KillUnit( bj_lastCreatedUnit )
            
            set i = i - 1
            exitwhen i <= 0
            set a = a + 360.00 / 3.00
        endloop
        
        loop
            set u = FirstOfGroup( A.g )
            exitwhen u == null
            call GroupRemoveUnit( A.g, u )
            
            set l = LoadLightningHandle( H, TempInt, GetHandleId( u ) )
            
            if l != null then
                call DestroyLightning( l )
                call RemoveSavedHandle( H, TempInt, GetHandleId( u ) )
            endif
            
            if SlowAbility > 0 then
                call UnitRemoveAbility( u, SlowAbility )
            endif
        endloop
        
        set l = null
        
        set A.time = 0.20 * 6.00
        
        call TimerStart( GetExpiredTimer( ), 0.20, true, function SucculentionBloom )
    elseif A.timeDamage >= DamagePeriodic then
        set A.timeDamage = A.timeDamage - DamagePeriodic
    endif
endfunction

private function Pause takes nothing returns nothing
    local timer t = GetExpiredTimer( )
    
    call PauseUnit( LoadUnitHandle( H, GetHandleId( t ), 0 ), true )
    
    call FlushChildHashtable( H, GetHandleId( t ) )
    call DestroyTimer( t )
    
    set t = null
endfunction

function Succulention_Actions takes unit caster, real damage, real damageEnd, real heal, real time, real s, boolexpr b, boolexpr b1 returns nothing
    local timer t = CreateTimer( )
    local SucculentionS A = SucculentionS.create( )
    local integer i = 6
    local real a = GetRandomReal( 0.00, 360.00 )
    
    set A.caster = caster
    set A.p = GetOwningPlayer( A.caster )
    set A.x = GetUnitX( A.caster )
    set A.y = GetUnitY( A.caster )
    set A.z = GetLocZ( A.x, A.y ) + 150.00
    set A.s = s
    set A.g = CreateGroup( )
    set A.time = RMaxBJ( 0.00, time )
    set A.timeDamage = DamagePeriodic
    set A.damage = damage
    set A.damageEnd = damageEnd
    set A.heal = heal
    set A.cond = b
    set A.cond1 = b1
    
    call SetUnitInvulnerable( A.caster, true )
    
    loop
        set bj_lastCreatedUnit = CreateUnit( A.p, RootID, A.x, A.y, a )
        call SetUnitX( bj_lastCreatedUnit, A.x )
        call SetUnitY( bj_lastCreatedUnit, A.y )
        call SetUnitScale( bj_lastCreatedUnit, 3.00, 3.00, 3.00 )
        call SetUnitAnimation( bj_lastCreatedUnit, "birth" )
        call QueueUnitAnimation( bj_lastCreatedUnit, "stand" )
        call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
        
        set bj_lastCreatedUnit = CreateUnit( A.p, RootReverseID, A.x, A.y, a )
        call SetUnitX( bj_lastCreatedUnit, A.x )
        call SetUnitY( bj_lastCreatedUnit, A.y )
        call SetUnitFlyHeight( bj_lastCreatedUnit, 250.00, 0.00 )
        call SetUnitScale( bj_lastCreatedUnit, 3.00, 3.00, 3.00 )
        call SetUnitAnimation( bj_lastCreatedUnit, "birth" )
        call QueueUnitAnimation( bj_lastCreatedUnit, "stand" )
        call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
        
        set i = i - 1
        exitwhen i <= 0
        set a = a + 360.00 / 6.00
    endloop
    
    set bj_lastCreatedUnit = CreateUnit( A.p, FlowerID, A.x, A.y, a )
    call UnitAddAbility( bj_lastCreatedUnit, 'Arav' )
    call SetUnitX( bj_lastCreatedUnit, A.x )
    call SetUnitY( bj_lastCreatedUnit, A.y )
    call SetUnitFlyHeight( bj_lastCreatedUnit, 225.00, 0.00 )
    call SetUnitScale( bj_lastCreatedUnit, 2.00, 2.00, 2.00 )
    call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
    
    set i = 3
    set a = GetRandomReal( 0.00, 360.00 )
    
    loop
        set bj_lastCreatedUnit = CreateUnit( A.p, BirthID, A.x, A.y, a )
        call SetUnitX( bj_lastCreatedUnit, A.x )
        call SetUnitY( bj_lastCreatedUnit, A.y )
        call SetUnitScale( bj_lastCreatedUnit, 3.00, 3.00, 3.00 )
        call KillUnit( bj_lastCreatedUnit )
        
        set i = i - 1
        exitwhen i <= 0
        set a = a + 360.00 / 3.00
    endloop
    
    set bj_lastCreatedUnit = CreateUnit( A.p, RootMineID, A.x, A.y - 50.00, 5.00 )
    call UnitAddAbility( bj_lastCreatedUnit, 'Arav' )
    call SetUnitX( bj_lastCreatedUnit, A.x )
    call SetUnitY( bj_lastCreatedUnit, A.y - 50.00 )
    call SetUnitScale( bj_lastCreatedUnit, 1.50, 1.50, 1.50 )
    call SetUnitFlyHeight( bj_lastCreatedUnit, 75.00, 0.00 )
    call SetUnitAnimation( bj_lastCreatedUnit, "birth" )
    call QueueUnitAnimation( bj_lastCreatedUnit, "stand" )
    call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
    
    set bj_lastCreatedUnit = CreateUnit( A.p, OriginID, A.x, A.y, a )
    call SetUnitX( bj_lastCreatedUnit, A.x )
    call SetUnitY( bj_lastCreatedUnit, A.y )
    call SetUnitAnimation( bj_lastCreatedUnit, "birth" )
    call QueueUnitAnimation( bj_lastCreatedUnit, "stand" )
    call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
    
    set bj_lastCreatedUnit = CreateUnit( A.p, GreenSphereID, A.x, A.y, a )
    call SetUnitX( bj_lastCreatedUnit, A.x )
    call SetUnitY( bj_lastCreatedUnit, A.y )
    call SetUnitScale( bj_lastCreatedUnit, 2.00, 2.00, 2.00 )
    call UnitApplyTimedLife( bj_lastCreatedUnit, 'BTLF', A.time )
    
    call SaveInteger( H, GetHandleId( t ), 0, A )
    call TimerStart( t, 0.01, true, function SucculentionDamage )
    
    set t = CreateTimer( )
    
    call SaveUnitHandle( H, GetHandleId( t ), 0, A.caster )
    call TimerStart( t, 0.00, false, function Pause )
    
    set t = null
endfunction

//===========================================================================
function InitTrig_Succulention takes nothing returns nothing
    //set gg_trg_Succulention = CreateTrigger(  )
    
    // юніт з коренями
    if RootAbility > 0 then
        set TempUnit = CreateUnit( Player( PLAYER_NEUTRAL_PASSIVE ), 'u007', GetRectCenterX( bj_mapInitialPlayableArea ), GetRectCenterY( bj_mapInitialPlayableArea ), 0.00 )
    endif
endfunction
endlibrary