library_once GetUnitCollisionSize

    globals
        private constant integer ITERATIONS         = 10   
                                                            
        public  constant real    MAX_COLLISION_SIZE = 300.0
    endglobals

//========================================================
function GetUnitCollisionSize takes unit u returns real
 local integer i=0
 local real x=GetUnitX(u)
 local real y=GetUnitY(u)
 local real hi
 local real lo
 local real mid


    set hi=MAX_COLLISION_SIZE
    set lo=0.0
    loop
        set mid=(lo+hi)/2.0
        exitwhen (i==ITERATIONS)
        if (IsUnitInRangeXY(u,x+mid,y,0)) then
            set lo=mid
        else
            set hi=mid
        endif
        set i=i+1
    endloop
 return mid
endfunction

endlibrary