Puglover3

on *:TEXT:!away *:#:{
  if ($address($nick,2) == $address($me,2)) {
    set %nick $me
    set %away $2-
    nick Pug|Away
    ame I'm Currently away, Reason: %away $+ : Set at $time
    set %time $time
  }
}
on *:TEXT:!back:#:{
  if ($address($nick,2) == $address($me,2)) {
    nick %nick
    ame I'm Currently Back, Reason away: %away : Back at $time Set at %time
    unset %away
    unset %nick
    unset %time
  }
}

on *:TEXT:/^(Pug|Puglover3)/iS:#:{
  if %away {
    notice $nick I'm Currently away Set at %time With Reason: %away
  }
}