require 'ruby2d'  # Замовлення бібліотеки ruby2d
require 'rmagick' # Замовлення бібліотеки rmagick

igame= 0 # стан гри
idir = 0 # напрям руху
xb   = 0 # найбільше досягнуте значення абсциси
jb   = 0 # номер точки таєкторії з найбільшим
         # досягнутим значенням абсциси
jt   = 0 # поточний номер точки таєкторії при поверненні
         # у точку "відриву" за найменшу кількість кроків
tr=[]    # траєкторія центрів круга
incjt=true # зростання поточного номера точки таєкторії
           # при поверненні у "точку відриву від перешкоди"
           # за найменшу кількість кроків
can=[true,true,true,true] # can[j] - чи можна рухатися у напрямку j
field = Magick::ImageList.new("field.png")

r=8      # Радіус рухомого круга
s=2      # Крок переміщення круга по горизонталі чи вертикалі 
xmax=800 # Розміри поля по горизонталі
ymax=450 # Розміри поля по вертикалі

set title: "obstacles", background: '#008000', width: xmax, height: ymax
x=r       # абсциса  центра круга
y=ymax/2  # ордината центра круга

f = Image.new("field.png", x:0,    y:0,         width: xmax, height: ymax)
b = Image.new("ball.png",  x: x-r, y: y-r, z:1, width: 2*r,  height: 2*r)

t = 0 # лічильник оновлень

update do
  if (x+r+s<xmax) && (t == 0) 
  # Визначення значень глобальних змінних x, y
  # - координат центра рухомого круга
    for i in 0...4
      case i
        when 0
          j0=x+r
          j1=x+r+s
          k0=y-r
          k1=y+r
          can[0]=(j1<=xmax)
        when 1
          j0=x-r
          j1=x+r
          k0=y-r-s
          k1=y-r
          can[1]=(0<=k0)
        when 2
          j0=x-r-s
          j1=x-r
          k0=y-r
          k1=y+r
          can[2]=(0<=j0)
        when 3
          j0=x-r
          j1=x+r
          k0=y+r
          k1=y+r+s
          can[3]=(k1<=ymax)
      end
      if (can[i])
        for j in j0...j1
          if (can[i])
            for k in k0...k1
              if (can[i])
                p = field.get_pixels(j,k,1,1)
                can[i] = (p[0].red  !=65535) ||
                         (p[0].green!=65535) ||
                         (p[0].blue !=0);
              end
            end
          end
        end
      end
    end

    case (igame)
      when 0
        if (can[0])
          x+=s
        else 
          igame=1
          tr.push([x,y])
          xb=x
          jb=0
          if (can[1])
            idir=1
            y-=s
          else if (can[2]) 
                 idir=2
                 x-=s
               else
                 idir=3
                 y+=s
               end
          end
        end

      when 1
        tr.push([x,y])
        if (tr[0]==[x,y])
          igame=2
          if (jb<tr.size-jb-1)
            jt=0
            incjt=true;
          else
            jt=tr.length-1
            incjt=false
          end
        else 
          if (xb<x)
              xb=x
              jb=tr.length-1
          end
          if (can[(idir+3)%4])
             idir=(idir+3)%4
          else if (can[idir])
                  idir=idir
               else if (can[(idir+1)%4])
                       idir=(idir+1)%4
                    else
                       idir=(idir+2)%4
                    end
               end
          end
          case (idir)
            when 0
              x+=s
            when 1
              y-=s
            when 2
              x-=s
            when 3
              y+=s
          end
        end

      when 2
        if (jt==jb)  # "відрив" від перешкоди
          tr.clear   # вилучення траекторії обходу перешкоди
          igame=0    # відрив
          idir=0
        else
          if (incjt)
            jt+=1
          else
            jt-=1
          end
          x = tr[jt][0]
          y = tr[jt][1]
        end
    end
  end
  b.x=x-r
  b.y=y-r
  t=(t+30)%60
end

show