alias bye {
  /scon -at1 /ame is away for reason: $1- time left at: $time(hh:mm:ss)
  set %away.reason $1- | /scon -at1 away $1- $time(hh:nn:ss:tt) | set %away.time $ctime
} 




alias back {
  /scon -at1 /ame is back from: %away.reason $+ . Time gone: $duration($calc( $ctime - %away.time ))
  /scon -at1 away
  unset %away.*
}
on *:Text:*:*: {
  if (%away.reason != $null) {
    if (%away. [ $+ [ $nick ] ] != $nick) {
      if ($me isin $1- ) { notice $nick I am currently away for reason: %away.reason I have been gone for $duration($calc( $ctime - %away.time )) This is a one time notice. Please leave me a message by using /msg $me <message>. Thank you.
        set %away. [ $+ [ $nick ] ] $nick
      }
    }
  }
}
on *:TEXT:*:#: {
  if (($netcheck.for.highlights($remove($1-,?,!,.,$chr(44),, ,*))) || ($me isin $1-) {
    if ($network == Earth2Me-IRC && # == #logs) { halt }
    else {
      /window -eknz @Highlights
      if ($active != @Highlights && $active != #) { /echo 7 -atl2 **** [Highlight]1 $nick 7highlighted you on  3 $+ # $+  7 ( 03 $network  07) }
      /echo -tl2 @Highlights  7 $+ **** [Message] $nick highlighted you on  3 $+ # $+  12 ( 1 $network  12) ****  1 $1-
    }
  }
}

on *:action:*:#: {
  if (($netcheck.for.highlights($remove($1-,?,!,.,$chr(44),, ,*))) || ($me isin $1-) || ( Adam isin $1- ) {
    if ($network == Earth2Me-IRC && # == #logs) { halt }
    else {
      /window -eknz @Highlights
      if ($active != @Highlights && $active != #) { /echo 6 -atl2 **** [Highlight]1 $nick 6highlighted you on  1 $+ # $+  6 ( 1 $network  6) }
      /echo -tl2 @Highlights  6 $+ **** [Action] $nick highlighted you on  1 $+ # $+  6 ( 1 $network  6)1 ****  6 $nick $1-
    }
  }
}

alias -l NetGet.Highlights {
  var %x = 1, %Groups = $ini(mirc.ini,highlight,0)
  while (%x <= %groups) {
    var %NetHighlights = $addtok(%NetHighlights,$highlight(%x),44)
    inc %x
  }
  return %NetHighlights
}

alias -l NetCheck.For.highlights { 
  if (!%NetHighlights) set %NetHighlights $NetGet.Highlights
  var %x = 1, %highlights = $numtok(%NetHighlights,44)
  while (%x <= %highlights) {
    var %chighlight = $($gettok(%NetHighlights,%x,44),2)
    if ($istok($1-,%chighlight,32)) { return %chighlight | unset %NetHighlights }
    inc %x
  }
  unset %NetHighlights
  return $false
}