away script

Final code:

alias setaway { 
  set %away.reason $$?="Reason?"
  scid -at1 away %away.reason
  scid -at1 amsg %in $+ now marked as away: %away.reason $+ %out
}
alias setback {
  unset %away.reason
  scid -at1 away %away.reason
  scid -at1 amsg %in $+ returned from away, gone for %in2 $+ $duration($awaytime,3) $+ %out2 $+ %out
}
alias amsg {
  if (!$server) return
  var %a 1
  while $chan(%a) {
    var %a = %a + 1,%b $ifmatch
    .raw PRIVMSG %b : $+ $1-
    var %Access = $remove($nick(#,$me).pnick,$me) 
    echo -i21 %b $timestamp2 %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ $me $+ %out $1- 
  }
}