on *:TEXT:*:#: {
  if ($me isin $1-) && ($readini(tomaway.ini,away,away) == on) {
    .notice $nick I am currently away - $readini(tomaway.ini,away,reason) - Leave a PM if you need me.
    Awaylog 7[14Channel Highlight ( $+ $chan $+ ) - $nick $+ 7] $replace($1-,$me,  $+ $me $+ ) 
  }
}
on *:TEXT:*:?: {
  if ($readini(tomaway.ini,away,away) == on) {
    .notice $nick I am currently away - $readini(tomaway.ini,away,reason) - Leave a PM if you need me.
    Awaylog 7[14Private Message - $nick $+ 7] $replace($1-,$me,  $+ $me $+ )
    close -m $nick
  }
}
on *:NOTICE:*:#: {
  if ($me isin $1-) && ($readini(tomaway.ini,away,away) == on) {
    .notice $nick I am currently away - $readini(tomaway.ini,away,reason) - Leave a PM if you need me.
    Awaylog 7[14Channel Notice - $nick $+ 7] $replace($1-,$me,  $+ $me $+ ) 
  }
}
on *:NOTICE:*:?: {
  if ($readini(tomaway.ini,away,away) == on) {
    if (*serv iswm $nick) { halt }
    else {
      .notice $nick I am currently away - $readini(tomaway.ini,away,reason) - Leave a memo if you need me.
      Awaylog 7[14Private Notice - $nick $+ 7] $replace($1-,$me,  $+ $me $+ )
    }
  }
}

alias away {
  var %x = 1, %con = $scon(0) 
  while (%x <= %con) {
    scon %x
    if ($status == connected) {
      writeini tomaway.ini away reason $1-
      ame 7is 4now 7away 3«4]4[3» 4 $readini(tomaway.ini,away,reason) 7Left 4at 3«4]4[3» 7 $asctime(HH:nn:ss) 
      !away $readini(tomaway.ini,away,reason)
    }
    inc %x
  }
  writeini tomaway.ini away timeleft $ctime
  writeini tomaway.ini away away on
}
alias back {
  var %x = 1, %con = $scon(0) 
  while (%x <= %con) {
    scon %x
    if ($status == connected) {
      ame 7is 4now 7back 4from 3«4]4[3» 7 $readini(tomaway.ini,away,reason) 3«4]4[3» 4Gone for $duration($calc( $ctime - $readini(tomaway.ini,away,timeleft) )) 
      !away
    }
    inc %x
  }
  writeini tomaway.ini away away off 
  unset %away.h*
}


alias -l Awaylog {
  if (!$window(@Away.Logs)) window -eknz @Away.Logs
  echo -ti2 @Away.Logs $1-
}