#!/usr/bin/ruby

require "io/console"

I = _ = [[0,-1], [0, 1], [1, 0], [-1, 0], !1]
K = "\e["
A = [K + "0m", K + "1m"] + "#,'h_(e(#kek#df/)de/`(f)f.#j".scan(/../).map{|z| K + "#{z.ord - 5};#{z[1].ord}m" } + "##  []()@@OO%%XX++".scan(/../)
R = "arrrzzesarrzgtarrzessarzgttarzfsssazhtttazesssazgtttazdqzzcrzzfszeszgtzhtzfuzhvzkwzlqziwzjqzixzjyzmuznvzdszzdtzza".split(/z/).map{|z| z == "" ? _ : _ = z.bytes.map{|a| A[a - 97]} * "" }
U, G = A


h, w = IO.console.winsize
if h < 12 || w < 40
   print"console too small\n"
   exit
end


w = ~-w / 2
h -= 2

r = c = 1
a = v = 2
b = d = []
e = 8
l = [s = o = n = m = tf = j = k = g = 0] * 8
f = qp = !1

t = ARGV[0].to_f
td = t >= 0.1 ? 1 / t : 0.2

z = [*1..(w - 2)].product([*1..(h - 2)]).shuffle

h.times{|i| b += [[5] + [i > 0 && i < h - 1 ? 6 : 5] * (w - 2) + [5]] }

b[q = h / 2][p = w / 4] = 9

b[q][w - p] = 8

t = 4

ef = ->(x, y) {
   f = t % 6 / 3 + 7

   i = *-1..1
   i.product(i).all?{|p, q|
      i = b[y + q][x + p]
      i == f || i == 6
   }
}

z.map{|x, y|
   if (y - q).abs > 1 && rand < 0.1 && ef.call(x, y)
      b[y][x] = f
      t += 1
   end
}


rf = -> {
   x = " #{s}"
   y = " " * (w * 2 - 6 - x.size)
   if n > 0
      y = "  %-#{w * 2 - 8 - x.size}s" % "#{n} chain"
      i = [y.size, n * 2].min
      y = A[n > 9 ? (y.upcase!; 15) : 14] + y[0, i] + K + "0m" + y[i, y.size]
   end

   print K + "#{h + 1}A\r" + R[o * 2 + e - 7] + y + G + x + U + "\n\r" +
         b.map{|p| p.map{|q| R[q * 2 + c]} * "" } * "#{U}\n\r" +
         ?\n
}


ti = Thread.new{
   while r
      id = K.index(ik = STDIN.getch) ? !1 : ("AwBsCdDa".index(ik) || 8) / 2
      if id
         l[iw = -~j % 8] = id
         j = iw
      end
   end
}


STDIN.echo = !1
print "\e[?25l\n" * h


rf.call

t0 = Time::now
while r
   if o > 2
      print K + "#{h + 1}A\r#{R[e - 1 + tf]}\e[#{h + 1}B"
      tf ^= 2
   end

   if k != j
      i = I[x = l[k = -~k % 8]]
      y = i ? b[q + i[1]][p + i[0]] : (c ^= 1)
      if y > 5 && y < 9
         a = x
         t0 = Time.at(0)
      end
      rf.call
   end

   t1 = Time::now
   if t1 - t0 < td
      sleep 0.02
      next
   end

   t0 = t1

   d += u = [[p, q]]
   u += [d[d.size / 2], d[d.size / 4]]
   3.times{|i| b[u[i][1]][u[i][0]] = 10 + i}

   x = I[a]
   p += x[0]
   q += x[1]

   i = b[q][p]
   if i != 6
      if i == c + 7
         s += 10

         o = o % 3 > 0 ? e == i ? o == 2 ? (n += 1; m = [m, n].max; s += 2 ** [n - 1, 8].min * 100; 3) : o + 1 : (e = i; n = 0; 1) : (e = i; 1)

         v += 2

         b[q][p] = 9

         pq = !1
         3.times{|i|
            z.size.times{
               g = -~g % z.size
               x, y = z[g]

               if [!pq,
                   b[y][x] == 6,
                   (x - p).abs > 3 || (y - q).abs > 3,
                   ef.call(x, y)].take(4 - i).all?
                  qp ||= i > 0 && (b[h - 1][w - 1] = f + 7)

                  b[y][x] = f

                  pq = rand > 0.1

                  t += qp ? 0 : 1
               end
            }
         }

         rf.call
         next
      end

      b[q][p] = 13
      rf.call

      print K + "#{h / 2 + 1}A\r\e[#{w - 8}C#{U}    GAME OVER    ",
            "\n\r" * (h / 2)
      r = !1
      next
   end

   b[q][p] = 9
   u += [[p, q]]

   if d.size > v
      x, y = d.shift
      b[y][x] = 6
      u += [[x, y]]

      if o == 3
         o = 0
         rf.call
      end
   end

   print K + "#{h}A" +
         u.map{|x, y|
            "\e[#{y}B\r\e[#{x * 2}C#{R[b[y][x] * 2 + c]}\e[#{y}A"
         } * "" +
         K + "#{h}B"
end

ti.join

rf.call

a = (h - 2) * (w - 2)
g = "Dot eater"
if m > 0
   i = a / 2
   4.times{|f|
      g = d.size > a * (f * 0.3 - 0.1) || s > i * 10 + i / 3 * 100 * 2 ** (f * 3 - 2) ? "CBAS"[f] : g
   }
end

print "#{U}\e[?25h\nArea: #{G}#{d.size * 100 / a}%#{U}\nScore: #{G}#{s}#{U}\nMax: #{G}#{m} chain#{U}\nGrade: #{G}#{g}#{U}\n"

STDIN.echo = true