Clone kicker

mIRC snippet that scan for clones and kickem them from the channel.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	BLKoldSUN	chanops	Cod testat	341	2024-08-11 09:34:11

alias kcl {
  if ($me !isop #) { 
    echo -a You cannot kick clones here. You need @ for that
    return
  }
  if ($hget(clones2)) hfree clones2
  hmake clones2 100
  var %x = $nick($1,0)
  while (%x) {
    if ($ialchan($address($nick($1,%x),2),$1,0) > 1) && (!$hget(clones2,$address($nick($1,%x),2))) {
      var %xx = $ialchan($address($nick($1,%x),2),$1,0), %s = %xx
      unset %n
      while (%xx) {
        var %n = %n $ialchan($address($nick($1,%x),2),$1,%xx).nick
        dec %xx
      }
      echo -a 4 $1 %s >> $address($nick($1,%x),2) $+ : %n
      mode # +b $address($nick($1,%x),2)
      var %clon.num $calc($numtok(%n,32) - 1)
      while (%clon.num) {
        kick # $gettok(%n,%clon.num,32) Clone detected : $address($nick($1,%x),2)
        dec %clon.num
      }
      hadd clones2 $address($nick($1,%x),2) %n
    }
    dec %x
  }
  hfree clones2
}

menu channel {
  Kick Clones:kcl #
}