Random:
.AFK: {
  if (%afk [ $+ [ $network ] ] == 1) { halt }
  set %afk [ $+ [ $network ] ] 1
  set %time [ $+ [ $network ] ] 0
  set %reason [ $+ [ $network ] ] $$?
  timer [ $+ [ $network ] ] 0 1 inc %time [ $+ [ $network ] ] 1
  ame is away for: %reason [ $+ [ $network ] ] 
  set %nick [ $+ [ $network ] ] $me
  nick  %nick [ $+ [ $network ] ] $+ |AFK
}
.Back: {
  if (%afk [ $+ [ $network ] ] == 0) { halt }
  ame is back from: %reason [ $+ [ $network ] ] after $duration( $+ %time [ $+ [ $network ] ] $+ )
  timer [ $+ [ $network ] ] off
  set %afk [ $+ [ $network ] ] 0
  unset %time [ $+ [ $network ] ]
  unset %reason [ $+ [ $network ] ] 
  nick %nick [ $+ [ $network ] ]
  unset %nick [ $+ [ $network ] ]
}