Miscellany

on *:TEXT:!Away *:#:{
  if ($address($nick,2) == $address($me,2)) {
    set %away Yes
    set %awaytime $ctime
    set %awaymsg $2-
    set %awaydate $date
    amsg 2[Away-System2] I'm Currently away as 12( $+ %awaymsg (Time: $+ $time / Date: %awaydate )12) 
  }
}
on *:TEXT:!Back:#:{
  if (%away == No) { notice $nick I'm Not Away. | halt }
  if ($address($nick,2) == $address($me,2)) && (%away == Yes) {
    amsg 2[Away-System2] I'm No longer away after 12( $duration($calc($ctime - %awaytime )) 12) as 12( $+ %awaymsg (Date Away: %awaydate (Current Date: $date ))12)
    unset %awaytime
    unset %awaymsg
    unset %awaydate
    set %away No
  }
}
on $*:TEXT:/^[*]*(Pug|Puglover3|Puglover|De-Hiller)*/Si:#:{
  if (%away == Yes) {
    notice $nick 2[Away-System2] I'm Currently Away for 12( $duration($calc($ctime - %awaytime )) 12) as 12( $+ %awaymsg (Date Away: %awaydate (Current Date: $date ))12)
  }
}