Clonekick
Posted by Cillin
Monday, September 22, 2008
Description: A clone kick with ban function after 2 of the same clones.
; -----------------------------------
; Name Addon: CloneKick
; Created by: Patrick Rennings (Cillin)
; Contact: Cillin@Centravi.nl // irc.onlinegamesnet.net - #centravi
; Version: RC 1
; -----------------------------------
alias clonescan {
if ($1) {
if ($1 != -t) {
echo -ac [^K]2* Invalid parameters: Clonekick
halt
}
}
var %t.n.c $nick($chan,0)
var %t.n.c.c 0
var %n, %add, %add2, %tadd, %all
who $chan
while (%t.n.c.c < %t.n.c) {
inc %t.n.c.c
%add = $address($nick($chan,%t.n.c.c),2)
var %t.s.c $nick($chan,0)
var %t.s.c.c 0
while (%t.s.c.c < %t.s.c) {
inc %t.s.c.c
%add2 = $address($nick($chan,%t.s.c.c),2)
if (%add == %add2) {
if ($nick($chan,%t.s.c.c) != $nick($chan,%t.n.c.c)) {
kick $chan $nick($chan,%t.s.c.c) Clone detaction on[^B] $address($nick($chan,%t.s.c.c),2) $+ [^B].
inc %n
mode $chan +b $address($nick($chan,%t.s.c.c),2)
inc %tadd $address($nick($chan,%t.s.c.c),2)
}
}
}
}
if (%n) { $iif($1 == -t, msg $chan, echo -a) Clone Scan Completed, kicked a total of[^B] %n [^B]users out of[^B] $chan $+ [^B]. }
else { $iif($1 == -t, msg $chan, echo -a) Clone Scan Comepleted, No clones where found in[^B] $chan $+ [^B]. }
var %t.u.b $numtok(%tadd, 32)
var %t.u.b.c 0
while (%t.u.b.c < %t.u.b) {
inc %t.u.b.c
mode $chan -b $gettok(%tadd, %t.u.b.c, 32)
}
}