alias mario {
  msg $chan 0,0------4,4------------0,0--------
  msg $chan 0,0----4,4--------------------0,0--
  msg $chan 0,0----5,5------7,7----5,5--7,7----0,0------
  msg $chan 0,0--5,5--7,7--5,5--7,7------5,5--7,7--------0,0--
  msg $chan 0,0--5,5--7,7--5,5----7,7------5,5--7,7--------
  msg $chan 0,0--5,5----7,7--------5,5----------0,0--
  msg $chan 0,0------7,7----------------0,0----
  msg $chan 0,0----5,5----4,4--5,5--------0,0--------
  msg $chan 0,0--5,5------4,4--5,5----4,4--5,5--------0,0--
  msg $chan 5,5--------4,4--------5,5----------
  msg $chan 7,7----5,5--4,4--7,7--4,4----7,7--4,4--5,5--7,7------
  msg $chan 7,7------4,4------------7,7--------
  msg $chan 7,7----4,4----------------7,7------
  msg $chan 0,0----4,4--------0,0--4,4--------0,0----
  msg $chan 0,0--5,5--------0,0------5,5--------0,0-
}

alias smile {
  say 12,12XXXXXXXXXXXXXXXXXXXXXX12,12XXXXXXXXXXXX
  say 12,12XXXXXXXXXXXX1,1XXXXXXXXXX12,12XXXXXXXXXXXX
  say 12,12XXXXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX12,12XXXXXXXX
  say 12,12XXXXXX1,1XX8,8XXXXXXXXXXXXXXXXXX1,1XX12,12XXXXXX
  say 12,12XXXX1,1XX8,8XXXX1,1XXXX8,8XXXXXX1,1XXXX8,8XXXX1,1XX12,12XXXX
  say 12,12XXXX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX12,12XXXX
  say 12,12XX1,1XX8,8XXXXXXXXXXXXXXXXXXXXXXXXXX1,1XX12,12XX
  say 12,12XX1,1XX8,8XX1,1XXXXXXXXXXXXXXXXXXXXXX8,8XX1,1XX12,12XX
  say 12,12XX1,1XX8,8XX1,1XX0,0XXXX1,1XX0,0XXXXXX1,1XX0,0XXXX1,1XX8,8XX1,1XX12,12XX
  say 12,12XX1,1XX8,8XX1,1XX0,0XXXX1,1XX0,0XXXXXX1,1XX0,0XXXX1,1XX8,8XX1,1XX12,12XX
  say 12,12XXXX1,1XX8,8XX1,1XX0,0XX1,1XX0,0XXXXXX1,1XX0,0XX1,1XX8,8XX1,1XX12,12XXXX
  say 12,12XXXX1,1XX8,8XXXX1,1XXXX0,0XXXXXX1,1XXXX8,8XXXX1,1XX12,12XXXX
  say 12,12XXXXXX1,1XX8,8XXXX1,1XXXXXXXXXX8,8XXXX1,1XX12,12XXXXXX
  say 12,12XXXXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX12,12XXXXXXXX
  say 12,12XXXXXXXXXXXX1,1XXXXXXXXXX12,12XXXXXXXXXXXX
  say 12,12XXXXXXXXXXXXXXXXXXXXXX12,12XXXXXXXXXXXX
}