Unnamed

alias awaymsg {
  /set %away on
  /set %awayname $me
  if ($chan(%i) == #rsidle) { 
   inc %i 
   msg $chan 14I am now 2Away:7 $2- 14Left at: [2 $+ $time(h:nn:ss tt) $+ 14]
   Continue
  }
 /raw away $2-
 /set %awaymsg $2-
 //set %awaytime $ctime
 //set %lefttime $time(h:nn:ss tt)
}

alias backmsg {
  /set %away off
  //set %backtime $duration($calc( $ctime - %awaytime))
  if ($chan(%i) == #rsidle) { 
   inc %i 
   /amsg 14I am now 2Back14 from:7 %awaymsg 14Gone for: [2 $+ %backtime $+ 14] Left at: [2 $+ %lefttime $+ 14]
   Continue
  }
 /raw away
 /unset %awaymsg
 /unset %awaytime
 /unset %awayname
 /unset %lefttime
}