on *:TEXT:!away*:#: {
  if (%away. $+ [ $nick ] $+ .away == $null) { 
    set %away. $+ [ $nick ] $+ .nick $nick
    set %away. $+ [ $nick ] $+ .reason $2-
    set %away. $+ [ $nick ] $+ .time $ctime
    set %away. $+ [ $nick ] $+ .away Away
    /msg $chan %away. $+ [ $nick ] $+ .nick has gone away: %away. $+ $nick $+ .reason ( $+ $ctime $+ )
  }
  if (%away. $+ [ $nick ] $+ .away == Away) {
    /msg $chan %away. $+ [ $nick ] $+ .nick has returned: %away. $+ $nick $+ .reason ( $+ $duration($calc($ctime - %away. $+ $nick $+ .time)) $+ )    
    set %away. $+ [ $nick ] $+ .nick $null
    set %away. $+ [ $nick ] $+ .reason $null
    set %away. $+ [ $nick ] $+ .time $null
    set %away. $+ [ $nick ] $+ .away $null  
  }
}
on *:TEXT:!return:#: {
  if (%away. $+ $[ $nick ] $+ .away == Away) {
    set %away. $+ [ $nick ] $+ .nick $null
    set %away. $+ [ $nick ] $+ .reason $null
    set %away. $+ [ $nick ] $+ .time $null
    set %away. $+ [ $nick ] $+ .away Here   
  }
}
on *:TEXT:!back:#: {
  if (%away. $+ [ $nick ] $+ .away == Away) {
    set %away. $+ [ $nick ] $+ .nick $null
    set %away. $+ [ $nick ] $+ .reason $null
    set %away. $+ [ $nick ] $+ .time $null
    set %away. $+ [ $nick ] $+ .away Here   
  }
}
on *:TEXT:*:#: {
  if ($findtok($1-,%away. $+ [ $nick ] $+ .nick,1,32) != $null) {
    /notice $nick %away. $+ [ $nick ] $+ .nick is away: %away. $+ $nick $+ .reason ( $+ $duration($calc($ctime - %away. $+ $nick $+ .time)) $+ )
  }
}