away

alias away {
  if (%away == off) {  
    set %afknick $$?="Your away nickname:"
    set %gnick $me   
    set %reason $$?="Reason for beeing away:"  
    set %leftat $ctime | set %leftat2 $time   
    away %reason
    amsg 3I am now away. Reason:14 %reason $+ 3. I left at:14 %leftat2 $+ 3. [14 $+ $chr(88) $+ $chr(111) $+ -Script3]
    set %away on
    nick %afknick
  }
  else {
    set %ltime $ctime  
    set %away off
    nick %gnick
    away
    Amsg 3I am back from:14 %reason $+ 14. 3I was gone for:14 $duration($calc( %ltime - %leftat )) 3and left at:14 %leftat2 $+ 3. [14 $+ $chr(88) $+ $chr(111) $+ -Script3]
    unset %reason
  }
}