Miscellany

on *:TEXT:!Away *:#:{
  if ($address($nick,2) == $address($me,2)) {
    /close -@ @AwayLog
    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) 
    window -nm @AwayLog
    aline -ahsp @AwayLog 2[Away-System-Log-File2] Reason: 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)) || ($nick == so0pa) && (%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)
    aline -ahsp @AwayLog 2[Away-System-Log-File(END)2] Reason: 12( $+ %awaymsg (Time: $+ $time / Date: %awaydate )12) 
    unset %awaytime
    unset %awaymsg
    unset %awaydate
    set %away No
  }
}
on $*:TEXT:/(Pug|De-Hiller|South)/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)
    window -nm @AwayLog
    aline -ahsp @AwayLog 2[Away-System2] 2¥14 $+ $asctime(hh:nntt) $+ 2¥7 2[ $+ $nick $+ 2] 2MESSAGE:14 $strip($1-,c)
  }
}