function CreateUnitsAndGivePointOrder takes player owner, integer units, integer id, real x, real y, real angle, string order, real x1, real y1 returns nothing
    local integer i = 0
	local unit u        
	loop
		set u = CreateUnit(owner,id,x,y,angle) 
		call IssuePointOrder(u,order,x1,y1) 
	    set i = i+1
	    exitwhen i >= units
	endloop
	set u = null
    return
endfunction

call CreateUnitsAndGivePointOrder(Player(0),5,'h000',0,5300,0,"attack",0,-5300)

library handlecounter initializer InitTrig_HandleCounter
private timer Timer = CreateTimer()
private leaderboard HandleBoard

function HandleCounter_Update takes nothing returns nothing
   local integer i = 0
   local integer id
   local location array P
   local real result=0
   loop
      exitwhen i >= 50
      set i = i + 1
      set P[i] = Location(0,0)
      set id = GetHandleId(P[i])
      set result = result + (id-0x100000)
   endloop
   set result = result/i-i/2
   loop
      call RemoveLocation(P[i])
      set P[i] = null
      exitwhen i <= 1
      set i = i - 1
   endloop
   call LeaderboardSetItemValue(HandleBoard,0,R2I(result))
endfunction

function HandleCounter_Actions takes nothing returns nothing
   set HandleBoard = CreateLeaderboard()
   call LeaderboardSetLabel(HandleBoard, "Счетчик")
   call PlayerSetLeaderboard(GetLocalPlayer(),HandleBoard)
   call LeaderboardDisplay(HandleBoard,true)
   call LeaderboardAddItem(HandleBoard,"Хэндлы",0,Player(0))
   call LeaderboardSetSizeByItemCount(HandleBoard,1)
   call HandleCounter_Update()
   call TimerStart(GetExpiredTimer(),0.05,true,function HandleCounter_Update)
endfunction

function InitTrig_HandleCounter takes nothing returns nothing
   call TimerStart(Timer,0,false,function HandleCounter_Actions)
endfunction

endlibrary