on *:TEXT:.away *:#: { 
  set %away. $nick $nick
  set %away. $+ $chan $chan
  set %away. $nick yes 
  set %awayreason. $+ $nick $2- 
  msg $chan $nick is now away. Reason: $2-
}

on *:JOIN:*: {
  if ($chan == %away. $+ $chan) {
    if { away. $+ $nick == yes) {
        notice $nick %away. $+ $nick is away. Reason: %awayreason. $+ $nick 
      }   
      else { halt }
    }
    else { halt }
  }
}