function Trig_NewYearFun_Actions takes nothing returns nothing
local unit f=GetTriggerUnit()
local integer i=0
local integer s=-20
local real fas=GetUnitFacing(f)
local unit array da
local integer di=0
     local real x = GetWidgetX(f) + 120. * Cos(GetUnitFacing(f) * .017)  
     local real y = GetWidgetY(f) + 120. * Sin(GetUnitFacing(f) * .017)
     local real x1 = GetWidgetX(f) + 120. * Cos(fas * .017)  
     local real y1 = GetWidgetY(f) + 120. * Sin(fas * .017)
     local real x2 = GetWidgetX(f) + 220. * Cos(fas * .017)  
     local real y2 = GetWidgetY(f) + 220. * Sin(fas * .017)
     local unit d=CreateUnit(GetOwningPlayer(f),'o004',x,y,GetUnitFacing(f))
     loop
     exitwhen i>10*GetUnitAbilityLevel(f,'A007')
     call SetUnitScale(d,s,s,s)
   set da[di] = CreateUnit(GetOwningPlayer(f),'o005',x1,y1,0)
   set fas=fas+20
     set x1 = GetWidgetX(da[di]) + 120. * Cos(fas * .017)  
     set y1 = GetWidgetY(da[di]) + 120. * Sin(fas * .017)
   set di=di+1
set    s=s+1
set    i=i+1
call TriggerSleepAction(0.01)
endloop
loop
exitwhen i==0
     call IssuePointOrder(da[di],"shockwave",x2,y2)
         set fas=fas-20
    set x2 = GetWidgetX(da[di]) + 220. * Cos(fas * .017)  
    set y2 = GetWidgetY(da[di]) + 220. * Sin(fas * .017)
     set di=di-1
     set s=s-5
     set i=i-1
     endloop
     call TriggerSleepAction(1)
     loop
     exitwhen i>10*GetUnitAbilityLevel(f,'A007')
     call RemoveUnit(da[di])
     set da[di]=null
     set di=di+1
     endloop
    set f=null
    call RemoveUnit(d)
    set d=null
endfunction