#!/usr/bin/ruby

require "io/console"

# Decode LZW encoded sprites
lzw_data = %w{
"""""##..#))#90;;KCX2;;K>U5z2k0MF[:$$$..#)+]1;;K=%$%%$X1;;K?##//1.91j.m.#+z2K:q3i5%x./.%#)n/;;K;"#$%)++)%$8/;;K=#[.$..#++i2y/*</z1K9o1a.y3Z/*%..n.%#;;K<]/$)##)$80;;K<#$l/z.$#+#j.#*$$'?.z/$$#K<o2+)o.z1#X/p/$#%l/;;K;T.$Z.[/v0;;K9#*$$'[.l.#$].o.'($*z1;/K:m/Q.##+U.90z.'$$*$l.=/;;K<T.z0[.y0;;K9o.'($*Z0]/;/n.*$$;5K7l/G.I.$$%l0*$('*m/>.K.;;K<j.%*Z/y0;;K;#%#'#L.Z/%k0#'-<1F.K=##%%%$/.%a.l1$('*(>.$#k0;;K:"#$z.*%$80;;K=##'-#].[.%]0;.*o/s.z0K8#%%y.%..%$#m12.#'##9.;;KAL.j180;2*;9L.K4#'-*#$$%/.k0;/('#;8$K.$>.x.#%%%..;/n0###*-'o0K/l/;;K3#[2$%*y.W0[0;.<<L.Z0z.w.('#%b._0#'''((r0;2K2n01.$'$$*$l.;0))l.'..#l1d.;4k1K3U.[1#*%w.#I0[/#%%%%3/<3$%%*#[1k.'''((R1^/#<.:0#:0K5I1*$('*$*%$$<2+)m/'z/j.#+;4++z0C.;2:1+#%%%$#[/j0k.$</[6</%#t.k/#z.(1.4.#m.#J.(((c0k.n/K380%$('*l/$q.l0))#[.))++:0+;4:1;4z1Z/y/[8%%[9L1z2#z.k.t.m0#&''(B/:1m.#I6"#$##K.#$%q.I0+#''''2.;;J1;9z.)#&''&;3k/#$$20;3K0)Z3Y.'(#+)=2#&&&i/(z1;.''x/[3#*-''-*$J3(#,]/,c.k/#';3':0w.K2(l3Z/X.;1[.d.h/[0"R.K2Z1m/k/+k3l.++)#':4W0'Z2#E.-'..4.j1E.)++B.'&l/d/;0(':0&'V.K/n.m1K2T/k7K1b/k2Z2###j1k2=.&&&i2M2(93#U1W.))+l3('&&&#'*k/#(&..l.(#..y/*'#J.z.m1N/L/(#>.j/[5k1'k0(h0j.'###l/0/m0#(L.Y.L2"#*'&''83)y.#h.M.)L3(''?.#i2';.&&'(#..k0F.l.z3[/*(&R.&&l/#[5:0A.'J.*[2q/L.'&##'L0"#;.8/i0l0'&(>/[1#'&''[.'<2o/(*##Z2w.##*(=/'(^2&=/Y4o.*'#(&U/i0[391a.&(#'*[3J.(*v.##'[1k.9.84l0G.&&l3'#7.r.K4&(*&#&h3##&'(('Z.z3H.*(K3[/&x.&#('n1[3x1'([/M/Z3,Y.#k.#=4L0K2#70(&&,,n1#'*#*q.[4l/,h4;1=/<5M1K4v0&k8[5B.H.M/h3Z.##(O.m3g.,L3x0w/1/k1('#''n.<2N1g3^1&I.=9M6v/,##;5[:F.M0X2x.w.##&]3k.#m.@.Y1J/q021S.(..L.D1>/52k2;/==M4u.,[9v.=;M4###v0#,l3=.,,,;6E1L0#v.&##''(&5.^2Z.g3;2m.=:M7[<&#..[Dz/o/z6##..o451;1F2M2#
} * ""

skip_next_byte = nil
flat_data = ""
lzw_data.size.times{|i|
   if skip_next_byte
      skip_next_byte = nil
   else
      flat_data +=
         lzw_data[i] < "." && lzw_data[i] ||
         flat_data[skip_next_byte = 43 + flat_data.size - lzw_data[i].ord,
                   lzw_data[i + 1].ord - 43]
   end
}

# Split decompressed data to individual sprites
sprites = []
5.times{|i|
   sprites.push([])
   4.times{sprites[i].push("")}
}
24.times{|y|
   3.times{|frame|
      3.times{|direction|
         sprites[direction][frame] +=
            flat_data[(y * 10 + direction * 3 + frame) * 16, 16] + "T"
      }
      sprites[3][frame] += sprites[2][frame][y * 17, 16].reverse + "T"
      sprites[4][frame] += flat_data[y * 160 + 144, 16] + "T"
   }
}
5.times{|direction|
   sprites[direction][3] = sprites[direction][1]
}

# Convert sprites to ANSI coded string
palette = [0, 233, 23, 108, 88, 222, 173, 98, 230, 177, 136, 17].map{
   |c| "\e[48;5;#{c}m"
}
sprites = sprites.map{|i|
   i.map{|input|
      output = palette[0] + "\e[24A\e[1G"
      input.each_byte{|c|
         output +=
            c == 84 && palette[0] + "\e[1B\e[1G" || palette[c - 34] + "  "
      }
      output
   }
}

# Hide cursor and prepare a set of blank lines
print palette[0] + "\n" * 24, "\e[?25l"

# Spawn thread to read input
direction = frame = 0
input_thread = Thread.new{
   while direction < 4
      mapped_key = "jBkAhDlCq\3".index(STDIN.getch())
      direction = mapped_key && mapped_key / 2 || direction
   end
}

while direction < 4
   print sprites[direction][frame]
   frame = -~frame % 4
   sleep 0.14
end
print sprites[4][0], "\e[?25h\e[0m\n"
input_thread.join