; http://dev.adiirc.com/boards/5/topics/268
; Highlights Window per Network
; v0.2 by pereba

on *:START: { get.conf }
on *:UNLOAD: { if ($hget(hlw)) hfree hlw }
on *:OPTIONS: { get.conf }

;ctrl + 1 shortcut
on *:KEYUP:#:49: {
  if ($hget(hlw,last.highlight. $+ #) && $mouse.key & 2) { findtext $v1 }
}

on *:TEXT:$($m($1-)):#,?:{
  if ($istok($hget(hlw,ignores),$nick,166)) { return }
  hadd -m hlw last.highlight. $+ $chan $strip($timestamp $nick.formated $1-)
  var %w $+(@,$adilang(Highlights),$chr(160),$network)
  if (!$window(%w) {
    window -vnkq1 %w
    echo -c highlight %w $+($cs(Highlights),$sp,$chr(32),$sp,$cs($network))
    es %w
    echo %w $+($cs2(Window),$sp,$chr(32),$sp,$cs2(Message))
    es %w
  }
  var %h $iif($highlight($1-) == $!me, $eval($v1,2), $v1)
  echo $highlight($1-).color -m %w $target $+ $sp $sp $+ $timestamp $nick.formated $&
  $replacex($1-, %h, $+($chr(2),%h,$chr(2)))
  es %w
}

alias -l get.conf { hadd -m hlw nick.conf $readini(config.ini,n,Messages,prefixuser) | $&
hadd -m hlw ignores $readini(config.ini,n,Highlight,HighlightExclude) }
alias -l m return * $+ $iif($$highlight($iif($1- !isnum,$v1)) == $ $+ me, $me, $v1) $+ *
alias -l es echo $1 $chr(160)
alias -l sp return $str($chr(160),4)
alias -l cs return $+($chr(2),$chr(31),$1-,$chr(2),$chr(31))
alias -l cs2 return $+($chr(31),$adilang($1),$chr(31))
alias nick.formated {
  var %nick $iif($randomcolors & 1, $+($chr(3),$nick(#,$nick).color,$nick,$chr(3)), $nick)
  return $replace($hget(hlw,nick.conf), $!pnick, $left($nick(#,$nick,a,r).pnick,1) $+ %nick, $&
  $!status, $left($nick(#,$nick,a,r).pnick,1), $!nick, %nick)
}
alias hl.menu {
  var %m $adilang(Clear) :dline $active 5- $+ $line($active,0) , -, $adilang(Search) :search, $&
  -, $adilang(Highlights) $adilang(Options) :options -t highlights, -, $adilang(Close) :window -c $active
  if ($istok(begin end,$1,32)) return -
  else return $gettok($($+(%,m),2),$1,44)
}

menu @* {
  if ($+(@,$adilang(Highlights),$chr(160),$network) == $active) $submenu($hl.menu($1))
}