alias cardhouse {
  if ($regex($1,^[+-]m$)) {
    var %send msg $active
    tokenize 32 $2-
  }
  else var %send echo -a
  if ($1 !isnum 1-) echo $col(error) -a Syntax Error: /cardhouse [-m] LEVELS
  else {
    var %layer $1
    while (%layer) {
      %send $str($chr(160),$({,%layer)) $+ $iif($2 != noline,$chr(31)) $+ $str(/\,$calc($1 - %layer + 1))
      dec %layer
    }
  }
}