#!/usr/bin/ruby

require 'zlib'

d = 0
p = 2

eval $b = %{

q = [1, 2, 4][rand(3)]

$P =
[
   [2, 16],
   [2, 16],
   [1, 18],
   [1, 18],
   [1, 18],
   [1, 18],
   [1, 18],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20]
]

vertical = [2, 3, 4, 5, 6, 7, 8, 9]
vertical = d > 0 ? vertical : vertical.reverse

swap_left_middle =
[
   [[ 8,  8], [14,  7], [18,  7], [24,  8], [30, 9]],
   [[24, 10], [19, 11], [13, 11], [ 8, 10], [ 2, 9]],
   5.times.map{[58, 9]},
   5.times.map{[65, 17]}
]
swap_data =
[
   [3, swap_left_middle],
   [6, 
    [
       5.times.map{[2, 9]},
       swap_left_middle[0].map{|x, y| [x + 28, y]},
       swap_left_middle[1].map{|x, y| [x + 28, y]},
       5.times.map{[9, 17]}
    ]
   ],
   [5,
    [
       swap_left_middle[0].map{|x, y| [x * 2 - 2, y]},
       5.times.map{[30, 9]},
       swap_left_middle[1].map{|x, y| [x * 2 - 2, y]},
       5.times.map{[37, 17]}
    ]
   ]
]

$R = ""

$data = 'salt=' + rand.to_s + ';d=' + (d ^ 1).to_s + ';p=' + q.to_s + ';eval$b=%{' + $b + '}'
$data = [Zlib::Deflate.deflate($data)].pack('m').gsub("\n", '')
$data = "eval(%w{require'zlib';eval(Zlib::Inflate.inflate('" + $data + "'.unpack('m')[0]))#" + $data

def render_sprite(u, v)
   r = u[1]
   v.each{|i, j|
      (0..(j-1)).each{|c|
         $buffer[r][u[0] + c + i] = 'x'
      }
      r += 1
   }
end

def render(u, v, w, x)
   $buffer = 24.times.map{79.times.map{" "}.join("")}

   render_sprite(x,
                 [
                    [1, 4],
                    [0, 6],
                    [0, 6],
                    [0, 6],
                    [1, 4]
                 ])
   render_sprite(u, $P)
   render_sprite(v, $P)
   render_sprite(w, $P)

   print $R
   $R = "#" + 27.chr + "[24A" + 13.chr

   template = $buffer.join("\n")
   $tdata = $data[0, template.count('x') - 5] + '}*"")'

   $tindex = -1
   $output = ''
   template.each_char{|c| $output += (c == 'x' ? $tdata[$tindex += 1] : c)}
   puts $output

   $stdout.flush
   sleep 0.05
end

for i in 0..(vertical.length - 1)
   path =
   [
      [],
      [
         vertical.map{|y| [2, y]},
         8.times.map{[30, 9]},
         8.times.map{[58, 9]},
         8.times.map{[9, 17]}
      ],
      [
         8.times.map{[2, 9]},
         vertical.map{|y| [30, y]},
         8.times.map{[58, 9]},
         8.times.map{[37, 17]}
      ],
      [],
      [
         8.times.map{[2, 9]},
         8.times.map{[30, 9]},
         vertical.map{|y| [58, y]},
         8.times.map{[65, 17]}
      ]
   ][p]
   render(path[0][i], path[1][i], path[2][i], path[3][i])
end

if d > 0
   j = 0
   while j < 20 || p != q
      op = swap_data[rand(3)]
      p ^= op[0]
      j += 1

      path = op[1]
      for i in 0..4
         render(path[0][i], path[1][i], path[2][i], path[3][i])
      end
   end
end

exit
}