מחפש קלונים - Clones scanner

[Arthas]

שם הקוד: Clones scanner
יוצר: Arthas
גירסא: v2.0
תיאור: זהו דיאלוג שמאפשר לך לחפש קלונים (משתמשים בעלי אותו אייפי) בערוץ שלך, ואם תרצה גם להעיף אותם מהערוץ.
הפעלה: לשים את הקוד ברימווט (Alt + R), מקש ימיני -> Clones Scanner. אם תרצו להעיף את הקלון מהערוץ תלחצו על הכתובת(זה יעיף את כל הקלונים מהכתובת) או רק על הניק(יעיף רק אותו) בדאבל קליק .. ומה שלחצתם יקבל BAN+KICK.
דרישות: MDX - תוסף למירק שמאפשר לדיאלוגים בעיקר להיראות טוב יותר וחדשני יותר.
לשים את קבצי הMDX בתיקיה של המירק.
תמונה:

קוד:

קוד: בחר הכל

; ——————————————————————————————————————————————— ;
; Clones scanner by Arthas v2.0
; This Snippets let you to find clones in your channel and if you want, to ban them.
;
; When you double click on any address or nick it will ban him from the channel.
; ——————————————————————————————————————————————— ;


dialog cscanner {
  title "Clones Scanner"
  size -1 -1 242 139
  option dbu
  text "Channel:", 2, 10 10 23 8
  edit "", 3, 39 9 55 10, autohs
  text "", 4, 145 10 89 8
  button "Start", 5, 101 8 37 12
  list 6, 9 26 146 49, size
  list 7, 161 26 72 49, size
}

alias scan2 {
  did -r cscanner 6
  var %k 1, %scannum 1
  while ($read(Scan.txt,%k)) {
    if ($ialchan($read(Scan.txt,%k),$1,0) > 1) {
      if (!%clns) { inc %clns }
      var %x 1,%y 1
      var %nicks $null
      write ScanAd.txt $read(Scan.txt,%k)
      .timer 1 1 .timer -m 1 $calc(%scannum * 70) did -a cscanner 6 $read(Scan.txt,%k) $chr(9) $ialchan($read(Scan.txt,%k),$1,0)
      inc %scannum
    }
    inc %k
  }
  if (%clns) { .timer 1 4 did -ra cscanner 4 Clones were found in $1 ! }
  else { .timer 1 4 did -ra cscanner 4 There are no clones in $1 ! }
  .timer 1 4 did -e cscanner 3,5
  unset %clns
  .remove Scan.txt
  .remove Scannicks.txt
  .remove ScanAd.txt
}
RAW 352:*: if (!$read(Scan.txt,w,* $+ $4)) && (%who) write Scan.txt *!*@ $+ $4
RAW 315:*: if (%who) { scan2 %who }
on *:dialog:cscanner:*:*:{
  if ($devent == init) { if ($active ischan) { did -a $dname 3 $active | did -b $dname 3,5 | set -u10 %who $active | .timer 1 3 who $active | var %yy 1 | while (%yy <= 6) { .timer 1 %yy did -ra cscanner 4 Scanning for clones in $active $+ $str(.,%yy) | inc %yy } } | dialog -s $dname -1 -1 485 165 | dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 6,7 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 6 1 headerdims 200 70 | did -i $dname 7 1 headerdims 125 | did -i $dname 6 1 headertext Address $chr(9) Number | did -i $dname 7 1 headertext Nicks }
  if ($devent == dclick) {
    if ($did == 7) && ($did(7).sel) {
      ban -k $gettok($did(4),5,32) $right($remove($gettok($did(7).seltext,1,9),0 +fs 0 0 0),-1) 2 Clones scanner detected ! By Arthas
    }
    if ($did == 6) && ($did(6).sel) {
    var %add = $right($remove($gettok($did(6).seltext,1,9),0 +fs 0 0 0),-1),%chan = $gettok($did(4),5,32) | ban $gettok($did(4),5,32) %add | var %x 1 | while ($ialchan(%add,%chan,%x)) { .timer 1 %x kick $gettok($did(4),5,32) $gettok($ialchan(%add,%chan,%x),1,33) Clones scanner detected ! By Arthas | inc %x } }
  }
  if ($devent == sclick) {
    if ($did == 6) { var %add = $right($remove($gettok($did(6).seltext,1,9),0 +fs 0 0 0),-1),%chan = $gettok($did(4),5,32) | if (%add) && (%chan) { did -r $dname 7 | var %x 1 | while (%x <= $ialchan(%add,%chan,0)) { did -a $dname 7 $gettok($ialchan(%add,%chan,%x),1,33) | inc %x } } }
    if ($did == 5) {
      if ($did(3)) {
        if ($me ison $did(3)) {
          did -b $dname 3,5 | did -r $dname 4,6,7 | set -u10 %who $did(3) | .timer 1 3 who $did(3) | var %yy 1 | while (%yy <= 6) { .timer 1 %yy did -ra cscanner 4 Scanning for clones in $did(cscanner,3) $+ $str(.,%yy) | inc %yy }
        }
        else { did -ra $dname 4 * You must be on this channel ! }
      }
      else { did -ra $dname 4 * Type channel ! }
    }
  }
}
menu * {
  Clones Scanner: dialog -m cscanner cscanner
}



[Ocean]

חיפוש קלונים איכותי ביותר תודה.

[XtrAp]

אחלה סקריפט, תודה.

[Nixxo]

תודה...

[uns]

סניפט מצויין.

[earl]

חמוד