Simple Highlight Script (Notice and Counter)

;Simple Highlight Script (Notice and Counter)
;Made by nick1
;Last edit June 18, 2014

On $*:TEXT:$(/\b( $+ $me $+ |nick1)\b/Si):*:{
  ;The line above will activate for your current nick or "nick1" change this or add using "nick1|nick2.."
  inc %highlights
  inc %highlights [ $+ [ $nick ] ]
  inc %highlights [ $+ [ $chan ] ]
  var %hltext 12< $+ $iif($left($nick($chan,$nick).pnick,1) isin $prefix,$v1) $+ $nick $+ > 4>>>10 $replace($1-,$regml(1),$+(04,$regml(1),10)) 4<<<
  $iif(!$window(@Highlights- $+ $network),window -evn @Highlights- $+ $network,noop)
  echo @Highlights- $+ $network 10 $+ $timestamp $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  if ((($active != $chan) && ($active != $window(@Highlights- $+ $network)) && ($active != $nick)) || (!$appactive)) {
    noop $tip('Tray Tip', $network  » $iif($chan,$v1,Query),%hltext,10,,,,$window($iif($chan,$v1,$nick)).wid)
    ;echo -a $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  }
  ;clipboard $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
}

On $*:ACTION:$(/\b( $+ $me $+ |nick1)\b/Si):*:{
  ;The line above will activate for your current nick or "nick1" change this or add using "nick1|nick2.."
  inc %highlights
  inc %highlights [ $+ [ $nick ] ]
  inc %highlights [ $+ [ $chan ] ]
  var %hltext 12< $+ $iif($left($nick($chan,$nick).pnick,1) isin $prefix,$v1) $+ $nick $+ > 4>>>10 $replace($1-,$regml(1),$+(04,$regml(1),10)) 4<<<
  $iif(!$window(@Highlights- $+ $network),window -evn @Highlights- $+ $network,noop)
  echo @Highlights- $+ $network 10 $+ $timestamp $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  if ((($active != $chan) && ($active != $window(@Highlights- $+ $network)) && ($active != $nick)) || (!$appactive)) {
    noop $tip('Tray Tip', $network  » $iif($chan,$v1,Query),%hltext,10,,,,$window($iif($chan,$v1,$nick)).wid)
    ;echo -a $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  }
  ;clipboard $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
}

on *:input:*: {
  if ($1 == !hls) && ($2 == $null) {
    .timer 1 1 msg $chan 10I have been highlighted a total of4 $bytes(%highlights,bd) 10times...
  }
  elseif ($1 == !hls) && ($2 != $null) && ($2 !isnum) {
    .timer 1 1 msg $chan 10I have been highlighted4 $bytes($iif($($+(%, highlights,$2),2),$($+(%, highlights,$2),2),0),bd) 10times $iif(($left($2,1) == $chr(35)),in,by) $+ 4 $2
  }
  elseif ($1 == !hls) && ($2 >= 1) {
    var %i = 2
    while (%i <= $var(%highlights*, 0)) {
      if ($var(%highlights*,%i).value >= $2) $iif(*#* iswm $($var(%highlights*,%i),0),noop,inc %x)
      inc %i
    }
    .timer 1 1 msg $chan 10A total of4 $bytes(%x,bd) 10people have highlighted me over4 $bytes($2,bd)10 times...
    unset %x
  }

  elseif ($1 == !highlights) && ($2 == $null) {
    .timer 1 1 msg $chan 10I have been highlighted a total of4 $bytes(%highlights,bd) 10times...
  }
  elseif ($1 == !highlights) && ($2 != $null) && ($2 !isnum) {
    .timer 1 1 msg $chan 10I have been highlighted4 $bytes($iif($($+(%, highlights,$2),2),$($+(%, highlights,$2),2),0),bd) 10times $iif(($left($2,1) == $chr(35)),in,by) $+ 4 $2
  }
  elseif ($1 == !highlights) && ($2 >= 1) {
    var %i = 2
    while (%i <= $var(%highlights*, 0)) {
      if ($var(%highlights*,%i).value >= $2) $iif(*#* iswm $($var(%highlights*,%i),0),noop,inc %x)
      inc %i
    }
    .timer 1 1 msg $chan 10A total of4 %x 10people have highlighted me over4 $bytes($2,bd)10 times...
    unset %x
  }
}