function BattleTime_Spell takes nothing returns boolean
return GetSpellAbilityId()=='A0K0'
endfunction

function BattleTime_Check takes nothing returns boolean
return GetOwningPlayer(GetFilterUnit())==GetOwningPlayer(udg_U_temp)and(GetUnitAbilityL    evel(GetFilterUnit(),'A04Y')==0) or IsUnitAlly(GetFilterUnit(),GetOwningPlayer(udg_U_temp))==true
endfunction

function BattleTime_Main takes nothing returns nothing
local timer t=GetExpiredTimer()
local string s=H2Tx(t)
local unit A=GetUnit(s,"Caster")
local unit U=GetUnit(s,"Hero")
local integer lvl=GetUnitAbilityLevel(U,'A0K0')
local integer a=GetInteger(s,"Counter")
local real v=GetUnitX(A)
local real V=GetUnitY(A)
local boolexpr W=Condition(function BattleTime_Check)
local group g=CreateGroup()
local unit d=GetUnit(s,"Caster2")
local unit f
set udg_U_temp=U
call GroupEnumUnitsInRange(g,v,V,435,W)
loop
          set f=FirstOfGroup(g)
          exitwhen f==null
          if IsUnitAlly(f,GetOwningPlayer(d))==true then
             call IssueTargetOrder(d,"bloodlust",f)
             call GroupRemoveUnit(g,f)
          else
             call UnitDamageTarget(d,f,GetUnitMoveSpeed(f)*0.25,true,false,ATTACK_TYPE_HERO,DAMAGE    _TYPE_NORMAL,null)
             call GroupRemoveUnit(g,f)
          endif
        endloop
        call GroupClear(g)
call DestroyGroup(g)
call DestroyBoolExpr(W)
set a=a+1
call SetInteger(s,"Counter",a)
if a>30+lvl*30 then
call RemoveUnit(A)
call RemoveUnit(d)
call PauseTimer(t)
call FastFlush(s)
call DestroyTimer(t)
endif
        set A=null
        set U=null
        set lvl=0
        set a=0
        set v=0
        set V=0
        set W=null
        set g=null
        set d=null
        set f=null
endfunction

function BattleTime_Setting takes nothing returns nothing
local unit U=GetTriggerUnit()
local integer lvl=GetUnitAbilityLevel(U,'A0K0')
local location B=GetSpellTargetLoc()
local real v=GetLocationX(B)
local real V=GetLocationY(B)
local unit A=CreateUnit(GetOwningPlayer(U),'e00Y',v,V,0)
local unit d=CreateUnit(GetOwningPlayer(U),'e000',v,V,0)
local timer t
local string s
call UnitAddAbility(d,'A0JZ')
call SetUnitAbilityLevel(d,'A0JZ',lvl)
set t=CreateTimer()
set s=H2Tx(t)
call SetHandle(s,"Caster",A)
call SetHandle(s,"Caster2",d)
call SetHandle(s,"Hero",U)
call SetInteger(s,"Counter",0)
call TimerStart(t,.1,true,function BattleTime_Main)
call RemoveLocation(B)
endfunction

function InitTrig_Battle_Time takes nothing returns nothing
set gg_trg_Battle_Time = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Battle_Time,EVENT_PLAYER_UNIT_SPELL_EFFECT)    
call TriggerAddCondition(gg_trg_Battle_Time,Condition(function BattleTime_Spell))
call TriggerAddAction(gg_trg_Battle_Time,function BattleTime_Setting)
endfunction