X
mIRCScripts
By using this site, you understand and agree to us using cookies.
Snippets
  • Uploaded By: entropy
  • Added: 2 years ago
  • Updated: 2 years ago
  • mIRC Version: v6.35+
  • Hits: 969
  • Size: 1.6KB
  • Downloads: 34
  • Review By: Talon



Next Gen Clone Scanner v1.2

This snippet is a classic. It's simple and accurate. Nifty to have an easy and great way to list clones on a channel.

This snippet uses mIRC's Internal Address List ($ial and /who).

So onload, if you are currently connected to a network and there is a channel open, it silently /who #chan.

You can /clonescan (for active window) or /clonescan #channel. Or, you can right click a channel, then select "Clone Scan".

- Enjoy!
Screenshot...

  
  2    0  Login to Vote.


Source Code:
  1. ; NEXT GEN CLONESCANNER v1.2 - by entropy & Talon 2018
  2. ; To use: /clonescan (for active channel) and: /clonescan #channel (for the given channel)
  3.  
  4. ;==========================================================================================
  5.  
  6. on *:load:{
  7. if ($ial == $true) {
  8. var %a = 1, %b
  9. while ($scon(%a)) {
  10. .scid $v1
  11. var %x = 1, %y
  12. while ($chan(%x)) { %y = $v1 | if ($chan(%y).ial == $false) { who %y } | inc %x }
  13. inc %a
  14. }
  15. .scid -r
  16. }
  17. echo $color(whois) -tag [Clonescan] $chr(9679) Loaded..
  18. }
  19.  
  20. on me:*:join:#:{ who # }
  21.  
  22. raw 352:*:{ halt }
  23. raw 315:*:{ halt }
  24.  
  25. ;==========================================================================================
  26.  
  27. #clonescan on
  28.  
  29. menu channel {
  30. -
  31. $iif($server,Clone Scanner) { clonescan # }
  32. -
  33. }
  34.  
  35. alias clonescan {
  36. tokenize 32 $iif($1 ischan,$1,$iif($active ischan,$active))
  37. if ($1 && $server) {
  38. echo $color(info) -tag Clonescan in progress for: $1 $+ ...
  39. var %x 0 , %s 0 , %c 0
  40. while ($nick($1,%x)) {
  41. var %x %x + 1 , %n $v1 , %a $address($v1,2)
  42. if (!$var($+(%,Match.,%a),1) && $ialchan(%a,$1,0) > 1) { var %s %s + 1 , %c %c + $v1 , % $+ [ Match. $+ [ %a ] ] 1 | echo $color(whois) -tag $+([,%s,]) %a $+($chr(40),$regsubex($mid($str($chr(32),$v1),2),//g,$ialchan(%a, [ $1 ] ,\n).nick),$chr(41)) }
  43. }
  44. echo $color(info) -tag [Clones] $chr(9679) $iif(!%s,No clones found on $1 $+ .,Clones Found: %c - Clone Sets Found: %s - $1 is: %c $+ / $+ $nick($1,0) $+($chr(40),$round($calc(%c / $nick($1,0) * 100),2),%,$chr(41)) clones)
  45. }
  46. }
  47. #clonescan end
  48.  


Comments
No Comments.

Login to Comment.