Unnamed

alias nc {
  var %x = 7 $+ $r(1,$len($$1-))
  var %a = 7 $+ $left($1-,$calc(%x - 1))
  var %b =  7 $+ $mid($1-,%x,1)
  var %c = 7 $+ $mid($1-,$calc(%x + 1))
  var %nc = $+(%a,$chr(3),15,$chr(31),%b,$chr(3),$chr(31),%c,$chr(15))
  if (x isin $gettok($chan($active).mode,1,32)) { return $strip(%nc,c) } 
  else { return %nc }
}