Unnamed

on $*^:text:/(dragoy|cedoux|cedrik|zablez|Cedoux|ced)/Si:#:{
  ;/run trompette.wav
  set %Talk_Chan $chan
  haltdef
  if ($istok(Banhammer captain_falcon willem client coder machine milk mirc noobs Q runescape snoozles unknown w warcraft X Y,$nick,32) == $true) {
    echo -t # $+(<,$iif($nick isop $chan,$+(4@,$nick),$iif($nick ishop $chan,$+(7%,$nick),$iif($nick isvoice $chan,$+(12+,$nick),$+(10,$nick)))),>) $1-
    halt
  }
  inc -u2 %spmzr
  if (%spmzr > 2) {
    echo -t # $+(<,$iif($nick isop $chan,$+(4@,$nick),$iif($nick ishop $chan,$+(7%,$nick),$iif($nick isvoice $chan,$+(12+,$nick),$+(10,$nick)))),>) $1-
    halt
  }
  echo -t # $+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(3,$regml(1),))
  flash
  if (!$window(@HighLight)) window -k0l19n @HighLight tahoma 12
  var %a = 1
  while (%a <= $comchan($nick,0)) {
    var %b = $iif(%b,%b $+ $chr(44) $comchan($nick,%a),$comchan($nick,%a))
    inc %a
  }
  echo @HighLight $timestamp $+([,$replace($chan,$chr(35),$+(3,$chr(35),)),]) $+(7{,$network,7}) ( $+ $iif($address($nick,5),$replace($remove($v1,$+($nick,!)),@,4@),Unknown Host!) $+ ) $+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(4,$regml(1),))
  echo @HighLight *** [Info On $+(3,$nick,]:) Common Channels: $replace($replace(%b,#,$+(,#,)),$chr(35),$+(3,$chr(35),))
  echo @Highlight -
  aline -l @HighLight $+($+($time(HH),:,$time(nn)),-›) $iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick))))
  window -g1 @HighLight
  window -g2 #
  inc %highlight
  write -l1 highlight.txt $calc($read(highlight.txt,0) +1)
  write highlight.txt # $timestamp $strip($+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>)) $strip($replace($1-,$regml(1),$+(3,$regml(1),)))
  if ($appactive == $false && $tip(Highlight,mIRC HighLights,$+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(3,$regml(1),)),5,,,tohilite) != 0) halt
}
alias odd return $iif(. isin $calc($1 /2),$true,$false)
alias addtokken {
  var %3 = $chr($3), %2 = $2
  return $regsubex($1, /(?<=^.{ $+ %2 $+ })/, %3)
}
menu @highlight {
  dclick:{
    window -a $gettok($read(highlight.txt,$1),1,32)
    findtext $gettok($read(highlight.txt,$1),2-,32)
  }
}
menu * {
  -
  HighLight logs:$iif(highlight.ini,run highlight.ini,echo -a Unable to locate Highlight.ini in $mircdir)
}
on *:CLOSE:@HighLight:/write -c highlight.txt
alias alphabet {
  var %a = 1 
  while (%a <= 26) {
    var %b = $iif(%b,%b $+ $chr($calc(96+ %a)),$chr($calc(96+ %a)))
    inc %a
  }
  return %b
}
alias tohilite {
  /window -a %Talk_Chan
}