alias -l lineArt {
  var %pixel = $str($chr(160), 2)
  var %x = 0
  var %tok
  var %cnt
  var %clr
  var %res
  while (%x < $0) {
    inc %x
    %tok = $ [ $+ [ %x ] ]
    %cnt = $gettok(%tok, 1, 58)
    %clr = $gettok(%tok, 2, 58)
    if (: !isin %tok) {
      %res = %res $+ $str(%pixel, %tok)
    }
    else {
      %res = %res $+ $chr(3) $+ 99, $+ %clr $+ $str(%pixel, %cnt) $+ 
    }
  }
  return %res
}


alias mcSword {
  var %cmd = $iif($1-, $1-, echo -a)
  %cmd $lineArt(3:21)
  %cmd $lineArt(1:21, 1:58, 1:70, 1:21)
  %cmd $lineArt(1:21, 1:70, 1:58, 1:70, 1:21)
  %cmd $lineArt(1, 1:21, 1:70, 1:58, 1:70, 1:21)
  %cmd $lineArt(2, 1:21, 1:70, 1:58, 1:70, 1:21)
  %cmd $lineArt(3, 1:21, 1:70, 1:58, 1:70, 1:21)
  %cmd $lineArt(4, 1:21, 1:70, 1:58, 1:70, 1:21, 3, 2:22)
  %cmd $lineArt(5, 1:21, 1:70, 1:58, 1:70, 1:21, 1, 1:22, 1:34, 1:22)
  %cmd $lineArt(6, 1:21, 1:70, 1:58, 1:70, 1:22, 1:34, 1:22)
  %cmd $lineArt(7, 1:21, 1:70, 1:58, 1:22, 1:34, 1:22)
  %cmd $lineArt(8, 2:22, 1:34, 1:22)
  %cmd $lineArt(7, 1:22, 2:34, 1:22, 1:41, 1:29)
  %cmd $lineArt(6, 1:22, 1:34, 2:22, 1, 1:17, 1:41, 1:29)
  %cmd $lineArt(6, 2:22, 4, 1:17, 1:41, 2:22)
  %cmd $lineArt(13, 1:22, 1:34, 1:22)
  %cmd $lineArt(13, 3:22)
}

alias wreath {
  var %cmd = $iif($1-, $1-, echo -a)
  %cmd $lineArt(4, 2:52, 2, 2:52)
  %cmd $lineArt(3, 1:32, 1:52, 1:32, 2:52, 1:32, 1:52, 1:32)
  %cmd $lineArt(2, 3:32, 4:52, 3:32)
  %cmd $lineArt(1, 4:32, 1, 2:52, 1, 4:32)
  %cmd $lineArt(2:32, 1:66, 1:32, 1, 1:52, 2, 1:52, 1, 1:32, 1:66, 2:32)
  %cmd $lineArt(4:32, 6, 4:32)
  %cmd $lineArt(4:32, 6, 4:32)
  %cmd $lineArt(2:32, 1:66, 1:32, 6, 1:32, 1:66, 2:32)
  %cmd $lineArt(4:32, 6, 4:32)
  %cmd $lineArt(1, 4:32, 4, 4:32)
  %cmd $lineArt(2, 1:32, 1:66, 6:32, 1:66, 1:32)
  %cmd $lineArt(3, 3:32, 2:66, 3:32)
  %cmd $lineArt(4, 6:32)
}

alias elfpres {
  var %cmd = $iif($1-, $1-, echo -a)
  %cmd $lineart(14, 3:66)
  %cmd $lineart(6, 5:20, 3, 3:66)
  %cmd $lineart(5, 9:20, 1, 1:20)
  %cmd $lineart(4, 12:20)
  %cmd $lineart(4, 12:20)
  %cmd $lineart(3, 1:20, 7:41, 1:77, 1:41, 2:20)
  %cmd $lineart(3, 7:41, 2:77, 1:41)
  %cmd $lineart(3, 5:41, 6:77)
  %cmd $lineart(1:41, 1:52, 1, 3:77, 1:71, 3:77, 1:71, 2:77, 1:41, 1, 1:52, 1:41)
  %cmd $lineart(1:52, 3:41, 4:77, 1:65, 4:77, 1, 2:41, 1:52)
  %cmd $lineart(5, 7:77)
  %cmd $lineart(3, 2:52, 2:77, 1:52, 1:54, 1:52, 1:77, 3:52)
  %cmd $lineart(3, 5:52, 1:54, 5:52)
  %cmd $lineart(3, 11:54)
  %cmd $lineart(3, 5:52, 1:54, 5:52)
  %cmd $lineart(3, 5:52, 1:54, 5:52)
}