private item CheckItem
private boolexpr CheckPath_be
private rect CheckPath_R=Rect(-32.,-32.,32.,32.)

boolean CheckPath_f() {
  if GetItemTypeId(GetFilterItem())!='ckng' then
    TempBoolean=true
  endif
  return false
}

boolean CheckPath(real x,real y) {
  real difx
  real dify
  SetItemPosition(CheckItem,x,y)
  difx=GetWidgetX(CheckItem)-x
  dify=GetWidgetY(CheckItem)-y
  if difx>=-2. and difx<=2. and dify>=-2. and dify<=2. then
    return true
  endif
  MoveRectTo(CheckPath_R,x,y)
  TempBoolean=false
  EnumItemsInRect(CheckPath_R,CheckPath_be,null)
  return TempBoolean
}

location CheckPath2 (real x1,real y1,real x2,real y2) {
  real angle=abp(x1,y1,x2,y2)
  real v1=50.*CosBJ(angle)
  real v2=50.*SinBJ(angle)
  integer n=R2I(Distance(x1,y1,x2,y2)/50.)
  loop
    if not CheckPath(x1+v1,y1+v2) then
      return Location(x1,y1)
    endif
    set n=n-1
    exitwhen n<0
    set x1=x1+v1
    set y1=y1+v2
  endloop
  return Location(x1,y1)
}

boolean CheckPath3 (real x1,real y1,real x2,real y2) {
  real angle=abp(x1,y1,x2,y2)
  real v1=50.*CosBJ(angle)
  real v2=50.*SinBJ(angle)
  integer n=R2I(Distance(x1,y1,x2,y2)/50.)
  loop
    if not CheckPath(x1+v1,y1+v2) then
      return false
    endif
    set n=n-1
    exitwhen n<0
    set x1=x1+v1
    set y1=y1+v2
  endloop
  return true
}