Meat Hook Spell

//RAWCODE FUNCTIONS

constant function HookUnit takes nothing returns integer
    return 'u006'
endfunction

constant function HookDistance_Limit takes nothing returns real
    return 1000.00 //maximum range of hook
endfunction

constant function HookRange takes nothing returns real
    return 75.00 //distance between chain and hooked unit
endfunction

constant function HookDistances takes nothing returns real
    return 25.00 //distance between two chains of the hook
endfunction

//********************
//CONDITION FUNCTIONS

function HookFilter takes nothing returns boolean
    return IsUnitEnemy(GetFilterUnit(), TempPlayer) and GetWidgetLife(GetFilterUnit())>0.00 and IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE)==false
endfunction

function Trig_Meathook_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A0DE'
endfunction

//*****************
//ACTION FUNCTIONS

function HookGrab takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local string s = GetAttachmentTable(t)
    local unit prev = GetTableUnit(s, "prev")
    local unit cast = GetTableUnit(s, "cast")
    local unit hook = GetTableUnit(s, "hook")
    local real dist = GetTableReal(s, "dist")
    local unit targ = GetTableUnit(s, "targ")
    local real angle = GetTableReal(s, "angle")
    local real PolarX = GetUnitX(cast) + dist * Cos(angle)
    local real PolarY = GetUnitY(cast) + dist * Sin(angle)

    call SetTableObject(s, "hook", prev)
    //call FlushHandleLocals(hook) 
    call RemoveUnit(hook)
    set hook = null
    
    call SetUnitPosition(targ, PolarX, PolarY)
    
    if dist<=10.00 then
        //call FlushHandleLocals(t)
        call PauseTimer(t)
        call DestroyTimer(t)
    else  
    call SetTableReal(s, "dist", dist-HookDistances())
    endif
    
    set targ = null
    set cast = null
    set hook = null  
endfunction

function MeatHookCreate takes nothing returns nothing
local timer t = GetExpiredTimer()
local string s = GetAttachmentTable(t)
local unit prev = GetTableUnit(s, "prev")
local unit cast = GetTableUnit(s, "cast")
local real angle = GetTableReal(s, "angle")   
local real dist = GetTableReal(s, "dist") 
local real PolarX = GetUnitX(cast) + dist * Cos(angle)
local real PolarY = GetUnitY(cast) + dist * Sin(angle)
local unit hook = CreateUnit(GetOwningPlayer(cast), HookUnit(), PolarX, PolarY, bj_RADTODEG*angle)
local group aux = CreateGroup()
local timer trix// = CreateTimer()
local string srix// = GetAttachmentTable(trix)
local real count = 0
local unit targ = null
local real newdist = dist + HookDistances()

//call SetTableObject(srix, "prev", prev)
set TempPlayer = GetOwningPlayer(cast)
call GroupEnumUnitsInRange(aux, PolarX, PolarY, HookRange(), Condition(function HookFilter))
set count = CountUnitsInGroup(aux)
if count>0 then
    set targ = GroupPickRandomUnit(aux)
endif

if count>0 or dist>=HookDistance_Limit() then
    call PauseTimer(t)
    call DestroyTimer(t)
    //call FlushHandleLocals(t)
    set trix = CreateTimer()
    set srix = GetAttachmentTable(trix)
    call SetTableObject(srix, "cast", cast)
    call SetTableObject(srix, "targ", targ)
    call SetTableReal(srix, "dist", dist)
    call SetTableObject(srix, "hook", hook)
    call SetTableReal(srix, "angle", angle)
    call TimerStart(trix, 0.01, true, function HookGrab)  
else
    call SetTableReal(s, "dist", newdist)
    call SetTableObject(s, "prev", hook)
endif
call DestroyGroup(aux)
set hook = null
set prev = null
set targ = null
set aux = null
set cast = null    
endfunction

function Trig_Meathook_Actions takes nothing returns nothing

local unit cast = GetTriggerUnit()
local real X = GetLocationX(GetSpellTargetLoc())
local real Y = GetLocationY(GetSpellTargetLoc())
local timer t = CreateTimer()
local string s = GetAttachmentTable(t)
local real angle = Atan2(Y-GetUnitY(cast),X-GetUnitX(cast))

call SetTableObject(s, "cast", cast)
call SetTableObject(s, "prev", null)
call SetTableReal(s, "angle", angle)
call SetTableReal(s, "dist", 0.25)
call TimerStart(t, 0.01, true, function MeatHookCreate)

call RemoveLocation(GetSpellTargetLoc())
set cast = null
endfunction

//===========================================================================
function InitTrig_Meathook takes nothing returns nothing
    set gg_trg_Meathook = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Meathook, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Meathook, Condition( function Trig_Meathook_Conditions ) )
    call TriggerAddAction( gg_trg_Meathook, function Trig_Meathook_Actions )
endfunction