Alternative to Unit Enters Region?

scope Checkpoint initializer Init

    globals
        private constant real DELAY = 1.
        private constant integer MAX_CHECKPOINTS = 8
    endglobals
    //======================================================
    
    globals
        private integer array CHECKPOINTS[MAX_PLAYERS] 
        
        public rect array AREA[MAX_CHECKPOINTS]
    endglobals
    
    private struct Check
        unit a
        integer c
        timer t
        
        private static method callback takes nothing returns nothing
            local Check dat = GetTimerData( GetExpiredTimer() )
            
            //call BJDebugMsg(I2S(CHECK[dat.a]) + " == " + I2S(dat.c))
            if CHECK[dat.a] == dat.c then
                call ReleaseTimer( dat.t )
                call dat.destroy()
                return
            endif
            
            set CHECK[dat.a] = CHECK[dat.a] + 1
        endmethod
        
        static method addLater takes unit a, integer c returns Check
            local Check dat = Check.allocate()
            
              set dat.a = a
              set dat.c = c
              set dat.t = NewTimer()
              
            call SetTimerData( dat.t, dat )
            call TimerStart( dat.t, DELAY, true, function Check.callback )
            return dat
        endmethod
    endstruct
    //======================================================
    
    private function Actions takes unit a returns nothing
        local unit b
        local player p = GetOwningPlayer( a )
        local integer c = CHECK[a] + 1
        local real x = GetRectCenterX( AREA[c] )
        local real y = GetRectCenterY( AREA[c] )
        
        //if IsPointInRegion( GetTriggeringRegion(), x, y ) then
        
            if c >= 6 then
                set c = GetPlayerId( p )
                set CHECKPOINTS[c] = CHECKPOINTS[c] + 1
                call BoardUpdateText( 2, c + 1, "  " + I2S( CHECKPOINTS[c] ) )
                
                set c = 0
                set CHECK[a] = c
                set x = GetRectCenterX( AREA[c] )
                set y = GetRectCenterY( AREA[c] )
            endif
            
            call RemoveUnit( a )
            
            set b = CreateUnitEx( p, x, y )
            call Check.addLater( b, c )
            
            if p == GetLocalPlayer() then
                call ClearSelection()
                call SelectUnit( b, true )
                call PanCameraToTimed( x, y, 0. )
            endif
        //endif
        
        set b = null
    endfunction
    //======================================================
    
    private function IHateJass takes nothing returns boolean
        if CHECK[GetFilterUnit()] > -1 then
        call BJDebugMsg("B " +I2S(CHECK[GetFilterUnit()])) //This shows once
            call Actions( GetFilterUnit() )
            call BJDebugMsg("C " +I2S(CHECK[GetFilterUnit()])) //This shows once
            return true
        endif
        return false
    endfunction
    
    private function Init takes nothing returns nothing
        local integer i = 0
        local region r = CreateRegion()
        
        set AREA[0] = Rect( -2624., -1888., -704.,   32. )
        set AREA[1] = Rect( -830.,   575.,   415.,   1760. )
        set AREA[2] = Rect( -4225.,  670.,  -3135.,  1790. )
        set AREA[3] = Rect( -4225., -3138., -3232., -2496. )
        set AREA[4] = Rect(  1092., -3171.,  1543., -2624. )
        set AREA[5] = Rect(  1230.,  2264.,  1550.,  2688. )
        set AREA[6] = Rect( -5056.,  2464., -4832.,  2688. )
        set AREA[7] = Rect( -5056., -3232., -4732., -3096. )
        
        loop
            call RegionAddRect( r, AREA[i] )
            call TriggerRegisterEnterRegion( CreateTrigger(), r, Condition( function IHateJass ) )
            set i = i + 1
            exitwhen i >= MAX_CHECKPOINTS
        endloop
    endfunction

endscope