Stuff

alias setaway { 
  set %away.reason $$?="Reason?"
  scid -at1 away %away.reason
  scid -at1 ame now marked as away: %away.reason
}
alias setback {
  unset %away.reason
  scid -at1 away %away.reason
  scid -at1 ame has returned from away, gone for %in $+ $duration($awaytime,3) $+ %out
}
alias amsg { var %x = $comchan($me,0) | while (%x) {  .amsg $1- | //var %Access = $remove($nick(#,$me).pnick,$me) | echo $comchan($me,%x) $timestamp2 %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ $me $+ %out $1-  | dec %x } }
alias ame { var %x = $comchan($me,0) | while (%x) { .ame $1- | echo $comchan($me,%x) $timestamp2 %in $+  $me $+ %out  $1- | dec %x } }


;Marantz
alias amsg {
  if (!$server) return
  var %a 1
  while $chan(%a) {
    var %a = %a + 1,%b $ifmatch
    .raw PRIVMSG %b : $+ $1-
    echo -i21 %b $cinput($me,%b) $+ : $1-
  }
}
alias cinput {
  var %a $iif($2,$2,$chan),%x $iif($1 !isreg %a && $1 !ischan,+), %b $iif(%x,$left($nick(%a,$1).pnick,1)) $+ $1
  return $iif(%x,$+(,10,$left(%b,1))) $+ $str($chr(160),$calc(13 - $len(%b))) $+ $iif(%x,$+(02,$mid(%b,2,12)),$+(,02,$mid(%b,1,13)))
}