n1k0la Admin
Broj poruka : 108 Godina : 30 Location : Jagodina Datum upisa : 15.08.2007
| Naslov: Detect clone on join Čet Avg 16, 2007 7:01 pm | |
| Ovo je kod, koji, kada neko, sa dva ista hosta (sa istog kompa dva nicka) - klonovi, pridruzhi kanalu vi dobijete izveshtaj... Korisno... - Kod:
-
on *:join:#:{ clonescan } alias clonescan { if ($active ischan) { unset %cs.* if ($window(@CloneScan) == $null) { .window -e @CloneScan } var %cs.i = 0 var %cs.total .clear @CloneScan .aline $colour(notify) @CloneScan * Skeniram # radi klonova... var %cs.ticks = $ticks while (%cs.i < $nick(#,0)) { inc %cs.i if (($ialchan($address($nick(#,%cs.i),2),#,0) > 1) && ($istok(%cs.tmp.address,$address($nick(#,%cs.i),2),32) == $false)) { var %cs.tmp.address = $addtok(%cs.tmp.address,$address($nick(#,%cs.i),2),32) inc %cs.total var %cs.l = 0 while (%cs.l < $ialchan($address($nick(#,%cs.i),2),#,0)) { inc %cs.l var %cs.nicks = $addtok(%cs.nicks,$ialchan($address($nick(#,%cs.i),2),#,%cs.l).nick,44) } .aline $colour(info) @CloneScan * < $+ %cs.total $+ > ( $+ $address($nick(#,%cs.i),2) $+ ) %cs.nicks unset %cs.nicks } } .aline $colour(ctcp) @CloneScan * $iif(%cs.total == $null,Klonovi nisu pronadjeni, [ %cs.total ] grupa klonova je pronadjeno.) .aline $colour(action) @CloneScan * Trajanje skeniranja : $calc(($ticks - %cs.ticks) / 1000) secs. } } Moram da napomenem da je kod napisao: Vlada_bgd Kod je isproban i savrsheno radi! Poz i otkrivajte klonchitje | |
|