FoRuM KaNaLa #chanel

FoRuM KaNaLa #chanel
 
PrijemPrijem  PortalliPortalli  Često Postavljana PitanjaČesto Postavljana Pitanja  TražiTraži  Registruj seRegistruj se  Lista članovaLista članova  Korisničke grupeKorisničke grupe  Pristupi  

Delite | 
 

 Detect clone on join

Ići dole 
AutorPoruka
n1k0la
Admin
Admin


Broj poruka : 108
Godina : 25
Location : Jagodina
Datum upisa : 15.08.2007

PočaljiNaslov: 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 Very Happy
Nazad na vrh Ići dole
Pogledaj profil korisnika http://chanel-4-you.forumsr.com
 
Detect clone on join
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
FoRuM KaNaLa #chanel :: Scripting :: Snipets-
Skoči na: