Advertisement
SaNCaK

mIRC Simple Highlight Script (Notice and Counter)

Jul 31st, 2020
2,838
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 3.37 KB | None | 0 0
  1. On $*:TEXT:$(/\b( $+ $me $+ |nick1)\b/Si):*:{
  2.   ;The line above will activate for your current nick or "nick1" change this or add using "nick1|nick2.."
  3.   inc %highlights
  4.   inc %highlights [ $+ [ $nick ] ]
  5.   inc %highlights [ $+ [ $chan ] ]
  6.   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<<<
  7.   $iif(!$window(@Highlights- $+ $network),window -evn @Highlights- $+ $network,noop)
  8.   echo @Highlights- $+ $network 10 $+ $timestamp $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  9.   if ((($active != $chan) && ($active != $window(@Highlights- $+ $network)) && ($active != $nick)) || (!$appactive)) {
  10.     noop $tip('Tray Tip', $network  » $iif($chan,$v1,Query),%hltext,10,,,,$window($iif($chan,$v1,$nick)).wid)
  11.     ;echo -a $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  12.   }
  13.   ;clipboard $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  14. }
  15.  
  16. On $*:ACTION:$(/\b( $+ $me $+ |nick1)\b/Si):*:{
  17.   ;The line above will activate for your current nick or "nick1" change this or add using "nick1|nick2.."
  18.   inc %highlights
  19.   inc %highlights [ $+ [ $nick ] ]
  20.   inc %highlights [ $+ [ $chan ] ]
  21.   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<<<
  22.   $iif(!$window(@Highlights- $+ $network),window -evn @Highlights- $+ $network,noop)
  23.   echo @Highlights- $+ $network 10 $+ $timestamp $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  24.   if ((($active != $chan) && ($active != $window(@Highlights- $+ $network)) && ($active != $nick)) || (!$appactive)) {
  25.     noop $tip('Tray Tip', $network  » $iif($chan,$v1,Query),%hltext,10,,,,$window($iif($chan,$v1,$nick)).wid)
  26.     ;echo -a $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  27.   }
  28.   ;clipboard $+(12,[,4,$iif($chan,$v1,Query),12,]) %hltext
  29. }
  30.  
  31. on *:input:*: {
  32.   if ($1 == !hls) && ($2 == $null) {
  33.     .timer 1 1 msg $chan 10I have been highlighted a total of4 $bytes(%highlights,bd) 10times...
  34.   }
  35.   elseif ($1 == !hls) && ($2 != $null) && ($2 !isnum) {
  36.     .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
  37.   }
  38.   elseif ($1 == !hls) && ($2 >= 1) {
  39.     var %i = 2
  40.     while (%i <= $var(%highlights*, 0)) {
  41.       if ($var(%highlights*,%i).value >= $2) $iif(*#* iswm $($var(%highlights*,%i),0),noop,inc %x)
  42.       inc %i
  43.     }
  44.     .timer 1 1 msg $chan 10A total of4 $bytes(%x,bd) 10people have highlighted me over4 $bytes($2,bd)10 times...
  45.     unset %x
  46.   }
  47.  
  48.   elseif ($1 == !highlights) && ($2 == $null) {
  49.     .timer 1 1 msg $chan 10I have been highlighted a total of4 $bytes(%highlights,bd) 10times...
  50.   }
  51.   elseif ($1 == !highlights) && ($2 != $null) && ($2 !isnum) {
  52.     .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
  53.   }
  54.   elseif ($1 == !highlights) && ($2 >= 1) {
  55.     var %i = 2
  56.     while (%i <= $var(%highlights*, 0)) {
  57.       if ($var(%highlights*,%i).value >= $2) $iif(*#* iswm $($var(%highlights*,%i),0),noop,inc %x)
  58.       inc %i
  59.     }
  60.     .timer 1 1 msg $chan 10A total of4 %x 10people have highlighted me over4 $bytes($2,bd)10 times...
  61.     unset %x
  62.   }
  63. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement