Stuff

on *:TEXT:*:#: {
  if ($me isin $1-) && ($readini(tomaway.ini,away,away) == on) {
    .notice $nick I am currently away - $readini(tomaway.ini,away,reason) - One time response to highlight.
    Awaylog 7[14Channel Highlight - $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) - One time response to highlight.
    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) - One time response to highlight.
    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) - One time response to highlight.
      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 is now 5away: $readini(tomaway.ini,away,reason)
      !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 is now 5back from - $readini(tomaway.ini,away,reason) - Gone 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-
}