PIP'S FAIL SCRIPT

on $*^:text:/(Pip|carmen|Pippy)/Si:#:{
  haltdef
  if ($istok(Banhammer captain_falcon 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),)),]) ( $+ $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 -
  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
  writeini highlight.ini $remove($replace($fulldate,$chr(32),$chr(95)),$time) $+($time,/1) $+([,%highlight,])       $+([,$replace($chan,$chr(35),$+(3,$chr(35),)),]) ( $+ $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),))
  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,,,) != 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)
  }
}
on *:CLOSE:@HighLight:/write -c highlight.txt