Miscellany

aw {
  set %amsg $?="set away message"
  var %l = 0
  tnick Russell[bot]away
  set %ctime $ctime
  while (%l < $chan(0)) {
    inc %l 
    /describe $chan(%l) is away. Reason: %amsg at $time
  }
}
back {
  var %l = 0
  while (%l < $chan(0)) {
    inc %l 1
    nick Russell[bot]
    describe $chan(%l) has returned from: %amsg I have been gone for $duration($calc($ctime - %ctime $ctime))
    unset %amsg
    unset %ctime
  }
}