globals
    leaderboard udg_HandleBoard = null
endglobals
define sizehc=300;
function HandleCounter_Update takes nothing returns nothing
   local integer i = 0
   local integer id
   local location array P
   local integer result=0
   local integer min=-1;
   loop
      exitwhen i >= sizehc
      set i = i + 1
      set P[i] = Location(0,0)
      set id = GetHandleId(P[i])
      id-=0x100000
      if(min==-1){
        min=id;
      }
      if(id>result){
        result=id;
      elseif(id<min)
        min=id;
      }
   endloop
   if(result-min>sizehc){
    result=min;
   else
    result-=sizehc
   }
   loop
      call RemoveLocation(P[i])
      set P[i] = null
      exitwhen i <= 1
      set i = i - 1
   endloop
   call LeaderboardSetItemValue(udg_HandleBoard,0,result)
endfunction

function HandleCounter_Actions takes nothing returns nothing
   set udg_HandleBoard = CreateLeaderboard()
   call LeaderboardSetLabel(udg_HandleBoard, "Handle Counter")
   call PlayerSetLeaderboard(GetLocalPlayer(),udg_HandleBoard)
   call LeaderboardDisplay(udg_HandleBoard,true)
   call LeaderboardAddItem(udg_HandleBoard,"Handles",0,Player(0))
   call LeaderboardSetSizeByItemCount(udg_HandleBoard,1)
   call HandleCounter_Update()
   call TimerStart(GetExpiredTimer(),0.1,true,function HandleCounter_Update)
endfunction

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

function Trigcru takes nothing returns nothing
    local unit u= CreateUnit(Player(0),'hfoo',0,0,0)
    call RemoveUnit(u)
    set u=null
endfunction

function Trigcrul takes nothing returns nothing
    local integer i=0
    loop
        call Trigcru()
        exitwhen i==200
        set i=i+1
    endloop
    
     
endfunction

function Trig___________________________u_Actions takes nothing returns nothing
    local integer i=0
    loop
        call Trigcrul()
        call TriggerSleepAction(0.1)
        call DisplayTextToPlayer(GetLocalPlayer(),0,0,I2S(i))
        exitwhen i==10
        set i=i+1
    endloop
    set i=0
    call DisplayTextToPlayer(GetLocalPlayer(),0,0,"end")
    call TriggerSleepAction(1)
    
endfunction

//===========================================================================
function InitTrig___________________________u takes nothing returns nothing
    set gg_trg___________________________u = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg___________________________u, 2 )
    call TriggerAddAction( gg_trg___________________________u, function Trig___________________________u_Actions )
endfunction