Anonymous

alias away {
  if (%away == off) {  
    set %afknick $$?="Your away nickname:"
    set %gnick $me   
    set %reason $$?="Reason for being away:"  
    set %leftat $ctime | set %leftat2 $time   
    away %reason
    /ame is now away: %reason $+ .
    set %away on
    nick %afknick
  }
  else {
    set %ltime $ctime  
    set %away off
    nick %gnick
    away
    /ame has returned from %reason $+ . Gone for $duration($calc( %ltime - %leftat ))
    unset %reason
  }
}