Stuff

alias gone {
  if (%away == no) {    
    set %reason $$?="Enter your reason here:"  
    set %leftat $ctime | set %leftat2 $time
    away %reason
    amsg6[7Away6] Reason:7 %reason $+ 6 $chr(149) Left at7 $time
    set %away yes
  }
  else {
    set %1time $ctime    
    set %away no
    away
    amsg 6[7Back6] From:7 %reason $+ 6 $chr(149) Gone for:7 $duration($calc( %1time - %leftat )) 6 $chr(149) Left at7 %leftat2
    unset %reason 
  }
}