function AvoidCircle(sangle,sx,sy,x,y,r)
   ; Vorberechnungen
   cosangle# = cos(sangle)
   sinangle# = sin(sangle)
   ; Berechnen, ob ein Strahl durch den Kreis geht
   ; Überhaupt Overlap?
   firstcolx = -1 : firstcoly = -1
   lastcolx = -1 : lastcoly = -1
   if rectsoverlapex(x-r,y-r,r*2,r*2,sx,sy,cosangle * Avoid_Distance,sinangle * Avoid_Distance) = false then return
   ax# = sx : ay# = sy
   r2 = r^2
   count = 0
   while count < Avoid_Distance
      count = count + 1
      ax = ax + cosangle
      ay = ay + sinangle
      ; Entfernung berechnen
      if ((x-ax)^2 + (y-ay)^2) < r2 then
         ; Kollision!
         if firstcolx = -1 then
            firstcolx = ax
            firstcoly = ay
         end if
         lastcolx = ax
         lastcoly = ay
      elseif lastcolx <> -1 then
         return true ; Einmal ausgetreten, wird es keine Kollision mehr geben
      end if
   wend
end function