updated highligt counter now with alias

By DjSxX on Nov 15, 2013

I didn't create this snippet, I just edited
It wil give you a popup in the corner if you have been higlighted and it wil show in a window
old snippet, adjusted with aliases.
type !counter or !counter or
or type /hls or /hls or


;Simple Highlight Script (Notice and Counter)
;Made by djsxx
;Last edit November 15, 2013

on $*:TEXT:$(/( $+ $me $+ |nick1|nick2)/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 $+ >10 $replace($1-,$regml(1),$+(04,$regml(1),10)) 
  $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:$(/( $+ $me $+ |nick1|nick2)/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 == !counter) && ($2 == $null) {
    .timer 1 1 msg $chan 10Ik ben in totaal al4 $bytes(%highlights,bd) 10keer geroepen.
  }
  elseif ($1 == !counter) && ($2 != $null) && ($2 !isnum) {
    .timer 1 1 msg $chan 10Ik ben in totaal4 $bytes($iif($($+(%, highlights,$2),2),$($+(%, highlights,$2),2),0),bd) 10keer geroepen $iif(($left($2,1) == $chr(35)),in,door) $+ 4 $2
  }
  elseif ($1 == !counter) && ($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 10Een totaal van4 $bytes(%x,bd) 10mensen hebben me 4 $bytes($2,bd)10 keer geroepen...
    unset %x
  }

  elseif ($1 == !highlights) && ($2 == $null) {
    .timer 1 1 msg $chan 10Ik ben in totaal4 $bytes(%highlights,bd) 10keer geroepen...
  }
  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
  }
}
alias hls {
  if ($1 == $null) {
    .timer 1 1 msg $chan 10Ik ben in totaal al4 $bytes(%highlights,bd) 10keer geroepen.
  }
  elseif ($1 != $null) && ($1 !isnum) {
    .timer 1 1 msg $chan 10Ik ben in totaal4 $bytes($iif($($+(%, highlights,$1),2),$($+(%, highlights,$1),2),0),bd) 10keer geroepen $iif(($left($1,1) == $chr(35)),in,door) $+ 4 $1
  }
  elseif ($1 >= 1) {
    var %i = 2
    while (%i <= $var(%highlights*, 0)) {
      if ($var(%highlights*,%i).value >= $1) $iif(*#* iswm $($var(%highlights*,%i),0),noop,inc %x)
      inc %i
    }
    .timer 1 1 msg $chan 10Een totaal van4 $bytes(%x,bd) 10mensen hebben me 4 $bytes($1,bd)10 keer geroepen...
    unset %x
  }
}

Comments

Sign in to comment.
rosedunn   -  Nov 20, 2013

I am searching for such a snippet to implement pop-up in corner.Now I can use it and optimize the code as per need of my site.
http://www.ohshow.net

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.