SHARE
TWEET

Chan Clone Scanner

Seb May 7th, 2011 (edited) 420 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # Clone Scanner found on a script site that died a long time ago
  2. # I do not recall the name of the author. credits goes to him
  3. #################################################################
  4.  
  5. alias clones {
  6.   if ($me ison $1) || (!$1) {
  7.     var %c $iif($1,$1,$chan)
  8.     echo -ag $chr(160) $+ 3໑ 14Clones
  9.     var %x 1,%t $ticks,%to 0,%hosts
  10.     while (%x <= $nick(%c,0)) {
  11.       var %host $address($nick(%c,%x),2)
  12.       if ($ialchan(%host,%c,0) > 1) && (!$istok(%hosts,%host,32)) {
  13.         var %regTh = $left($regsubex($str(~,$ialchan(%host,%c,0)),/(.)/g,15 $+ $replace($ialchan(%host,%c,\n).pnick,@,4@15,%,9%15,+,12+15) $+ $chr(44) $+ $chr(32)),-2)
  14.         echo -ag 3໑ $+ $str($chr(160),$calc( 50 - $len($strip(%regTh)) )) 15 $+ %regTh 4(14* $+ $remove($replace(%host,@,4@14),*!*) $+ 4)
  15.         var %hosts %hosts %host
  16.         inc %to
  17.       }
  18.       inc %x
  19.     }
  20.     echo -ag $chr(160) $+ 3໑ 14Clones4:15 %to $iif(%to == 1,14match,14matches) found. 4(15 $+ %c $+ 4)
  21.   }
  22.   elseif (#* iswm $1) {
  23.     echo -ag 5• 14Clones5:15 Not currently on channel14 $1
  24.   }
  25.   else {
  26.     var %x 1, %to 0
  27.     while (%x <= $chan(0)) {
  28.       var %chan $chan(%x), %y 1
  29.       while (%y <= $nick(%chan,0)) {
  30.         var %addr $address($nick(%chan,%y),5),%nick $gettok(%addr,1,33)
  31.         if ($1 iswm %addr) && (!$istok(%nlist,%nick,32)) {
  32.           echo -ag 5• $str($chr(160),$calc( 42 - $len(%nick) - $len($gettok($gettok(%addr,2,33),1,64)) )) $+ 14 $+ %nick 15[14 $+ $replace($gettok(%addr,2,33),@,5@14,.,5.14) $+ 15]15 $regsubex($str(~,$comchan(%nick,0)),/./g,$iif(%nick isop $comchan(%nick,\n),4@,$iif(%nick ishop $comchan(%nick,\n),8%,$iif(%nick isvoice $comchan(%nick,\n),12+))) $+ 15 $+ $comchan(%nick,\n) $chr(32))
  33.           var %nlist %nlist %nick
  34.           inc %to
  35.         }
  36.         inc %y
  37.       }
  38.       inc %x
  39.     }
  40.     echo -ag $chr(160) $+ 5• 14Clones5:15 %to $iif(%to == 1,14match,14matches) found. 15[14 $+ $1 $+ 15]
  41.  
  42.   }
  43. }
  44. menu channel {
  45.   -  
  46.   $iif($server,Clone Scanner):clones
  47. }
  48. -
RAW Paste Data
Top