- ; ––––––––––––––––––––––––––––––––––––––––
- ; NNScript by ESNation v4.22 - clone scanner - coded by greeny & mute
- ; Don't edit anything in here unless you REALLY know what you're doing!
- ; ––––––––––––––––––––––––––––––––––––––––
- alias cscan {
- if (!$chan(0)) { errdialog you are not on any channel you could scan for clones! }
- else {
- if ($1 ischan) { set %cscan.pchan $1 }
- nndlg -m clonescan
- }
- }
- dialog clonescan {
- title CloneScan on $curconserv [/cscan]
- size -1 -1 364 206
- option pixels
- icon scriptspicsnntray.ico
- box "Channel", 2, 4 0 144 48
- combo 7, 12 16 128 144, sort size drop
- box "Statistics", 5, 4 54 144 118
- text "Total users", 15, 14 74 58 16
- edit "", 14, 84 70 56 22, read autohs center
- text "Clones", 8, 14 98 36 16
- edit "", 9, 84 94 56 22, read autohs center
- text "Percentage", 10, 14 122 62 16
- edit "", 11, 84 118 56 22, read autohs center
- text "Scan time", 12, 14 146 50 16
- edit "", 13, 84 142 56 22, read autohs center
- box "Clones (right-click for options)", 4, 156 0 204 172
- list 6, 164 16 188 148, size
- button "&Ok", 1, 280 178 80 24, ok
- menu "&File", 17
- item "&Close", 18, 17
- menu "&Settings", 19
- item "&Update IAL", 20, 19
- item "&Refresh clones", 21, 19
- }
- on *:dialog:clonescan:*:*:{
- if ($devent == init) {
- mdx SetControlMDX $dname 6 TreeView haslines hasbuttons showsel nohscroll > $mdxfile(views)
- var %c = $chan(0)
- while (%c) {
- did -a $dname 7 $chan(%c)
- dec %c
- }
- did -c $dname 7 $iif($didwm(7,$iif(%cscan.pchan,$v1,$active)),$v1,1)
- unset %cscan.pchan
- cscan.do
- }
- elseif ($devent == sclick) {
- if ($did == 7) { cscan.do }
- elseif ($did == 6) {
- tokenize 32 $did($did,1)
- if ($1 == rclick) && ($5) {
- did -i $dname $did 1 cb root $3-4
- did -c $dname 6 $5
- var %c = $did(7).seltext,%o = $iif(!$ccontrol(%c),+g,+),%n
- noop $regsub($wd($gettok($gettok($did($did,$5),2,9),1,13),2),$+(/[,$prefix,]/g),,%n)
- popdll.new
- popdll.add 1 +g 1 0 $shorten(10,%n) $+ :
- popdll.add 2 + 2 0 -
- popdll.add 3 + 3 0 Whoiswe %n
- popdll.add 4 + 4 0 -
- popdll.add 5 $+ %o 5 0 Kickk %c %n Clones are not welcome in %c $+ !
- popdll.add 6 $+ %o 6 0 Kickbankb %c %n Clones are not welcome in %c $+ , banned!
- popdll.add 7 $+ %o 7 0 Timekickbantkb %c %n Clones are not welcome in %c $+ , tempbanned!
- popdll.disp
- }
- }
- }
- elseif ($devent == menu) {
- if ($did == 20) {
- if ($remc(who)) { errdialog there is already another /who request going on. Please wait for it to finish. }
- else { .who $did(7).seltext }
- }
- elseif ($did == 18) { dialog -c $dname }
- elseif ($did == 21) { cscan.do }
- }
- }
- alias cscan.do {
- did -r clonescan 6
- did -i clonescan 6 1 cb root
- did -a clonescan 6 +be 1 1 0 0 0 Hostnames
- did -i clonescan 6 1 cb last
- var %m = $nnticks,%x = $did(clonescan,7).seltext,%s = $ialchan(*,%x,0),%c = 0,%v = $nick(%x,0)
- did -ra clonescan 14 %v
- if (%s != %v) {
- did -a clonescan 6 + 1 1 0 0 0 IAL for %x not filled!
- did -bra clonescan 9,11,13 n/a
- did -b clonescan 4,5,6,8,10,12,14,15
- }
- else {
- did -e clonescan 4,5,6,8,9,10,11,12,13,14,15
- _hmake clonescan
- while (%s) {
- hinc clonescan *@ $+ $gettok($ialchan(*,%x,%s),2-,64)
- dec %s
- }
- var %s = $hget(clonescan,0).item
- while (%s) {
- var %l = 1,%t = $hget(clonescan,%s).item,%h = $hget(clonescan,%t)
- if (%h > 1) {
- did -a clonescan 6 + 1 1 0 0 0 $+($gettok(%t,2-,64), Host: $gettok(%t,2-,64),$cr,Users:) %h
- did -i clonescan 6 1 cb last
- while (%l <= %h) {
- var %ö = $ialchan(%t,%x,%l).nick,%g = $iif(%ö !isreg %x,$left($nick(%x,%ö).pnick,1)) $+ %ö
- did -a clonescan 6 + 1 1 0 0 0 $+(%g, Nickname: $ialchan(%t,%x,%l).nick,$cr,Clone #: %l,/,%h,$cr,Address: $gettok($ialchan(%t,%x,%l),2-,33),$cr,Idle) time: $sduration($nick(%x,%ö).idle)
- inc %l
- }
- did -i clonescan 6 1 sort
- did -i clonescan 6 1 cb up
- inc %c $calc(%h -1)
- }
- dec %s
- }
- if (!%c) { did -a clonescan 6 + 1 1 0 0 0 No clones on %x found. }
- else { did -i clonescan 6 1 sort }
- did -ra clonescan 9 %c
- did -ra clonescan 11 $percent(%c,$nick(%x,0),0)
- did -ra clonescan 13 $round($calc($nnticks - %m),2) $+ s
- hfree clonescan
- }
- }
- ; ––––––––––––––––––––––––––––––––––––––––
- ; End of file
- ; ––––––––––––––––––––––––––––––––––––––––
clonescanner mirc
By: clonescanner | Date: Mar 22 2011 02:09 | Format: None | Expires: never | Size: 4.49 KB | Hits: 1019
Latest pastes
1 days ago
1 days ago
2 days ago
4 days ago
5 days ago