function Shunpo_Conditions takes nothing returns boolean  
       return GetSpellAbilityId() == 'A000'    
endfunction  

function Shunpo_Loop takes nothing returns nothing  
       local timer t                    = GetExpiredTimer ()  
       local unit UnitCaster                    = LoadUnitHandle(udg_Hash,GetHandleId(t),1)  
       local real Angle                    = LoadReal(udg_Hash,GetHandleId(t),2)
       local real Speed                    = LoadReal(udg_Hash,GetHandleId(t),3)
       local real Root                    = LoadReal(udg_Hash,GetHandleId(t),4)
       local real Range                    = LoadReal(udg_Hash,GetHandleId(t),5)
        
        
       local real x1
       local real y1
       local real x3
       local real y3
        
       set x1 = GetUnitX(UnitCaster)  
       set y1 = GetUnitY(UnitCaster)  
       set x3 = (x1 + Speed * Cos(Angle))  
       set y3 = (y1 + Speed * Sin(Angle))
       call SetUnitPosition(UnitCaster,x3,y3)  
       set Range = Range + Speed
        
       call SaveReal(udg_Hash,GetHandleId(t),5,Range)
        
       set t = null
       if Root <= Range then
            call DestroyTimer(GetExpiredTimer())
            call PauseUnit(UnitCaster, FALSE)
            call SetUnitVertexColor(UnitCaster,255,255,255,255)
            call SetUnitPathing(UnitCaster,true)
       endif
        
       set t = null
       set UnitCaster = null
endfunction    

function Shunpo_Actions takes nothing returns nothing         
       local unit UnitCaster                    = GetSpellAbilityUnit()
       local real x1                    = GetUnitX(UnitCaster)  
       local real y1                    = GetUnitY(UnitCaster)  
       local real x2                    = GetLocationX(GetSpellTargetLoc())  
       local real y2                    = GetLocationY(GetSpellTargetLoc())  
       local real Angle                    = Atan2(y2 - y1, x2 - x1)  
       local real Speed                    = 30
       local real Root                    = SquareRoot((x1-x2) * (x1-x2) + (y1-y2) * (y1-y2))
       local real Range                    = 0
       local real Interval                    = 0.005
       local timer t                    = CreateTimer ()    
       
       call PauseUnit(UnitCaster, true)
       call SetUnitVertexColor(UnitCaster,25,25,25,75)
       call SetUnitPathing(UnitCaster,false)
        
       call SaveUnitHandle(udg_Hash,GetHandleId(t),1,UnitCaster)
       call SaveReal(udg_Hash,GetHandleId(t),2,Angle)
       call SaveReal(udg_Hash,GetHandleId(t),3,Speed)
       call SaveReal(udg_Hash,GetHandleId(t),4,Root)
       call SaveReal(udg_Hash,GetHandleId(t),5,Range)
        
       call TimerStart(t,Interval,true,function Shunpo_Loop)  
          
       set t           = null  
       set UnitCaster  = null  
endfunction  

function InitTrig_Shunpo takes nothing returns nothing  
       local trigger t = CreateTrigger(  )  
       local integer i = 0  
       loop  
           call TriggerRegisterPlayerUnitEvent(t, Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)    
           set i = i + 1    
           exitwhen i == 16  
       endloop  
       call TriggerAddCondition( t, Condition( function Shunpo_Conditions ) )  
       call TriggerAddAction( t, function Shunpo_Actions )  
       set t = null  
endfunction