on *:dialog:clonescanner:dclick:2: {
var %x = $gettok(%CSSC,3-,32)
var %t = $matchtok(%x,&,0,32)
while (%t > 0) {
var %x = $remtok(%x,&,%t,32)
dec %t
}
.did -ra clonescanner 5 %x
.unset %CSSC
}
on *:dialog:clonescanner:sclick:*: {
set %CSSC $did(2).seltext
if ($did == 10) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/whois $gettok($did(5),%n,32) $gettok($did(5),%n,32)
dec %n
}
}
if ($did == 11) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/ping $gettok($did(5),%n,32)
dec -c %n
}
}
if ($did == 20) {
var %n = $numtok($did(5),32)
while (%n > 0) {
.notice $gettok($did(5),%n,32) 4 No Clones, Servers and Ops Only... Msg Me if there is a problem. %ac
dec -c %n
}
}
if ($did == 21) {
var %n = $numtok($did(5),32)
while (%n > 0) {
msg $gettok($did(5),%n,32) 4 No Clones, Servers and Ops Only... Msg Me if there is a problem. %ac
}
}
if ($did == 22) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/query $gettok($did(5),%n,32) 4 No Clones, Servers and Ops Only... %ac
dec -c %n
}
}
if ($did == 23) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/notice $gettok($did(5),%n,32) 4 No Clones, Servers and Ops Only... Final Warning!! %ac
/msg $gettok($did(5),%n,32) 4 No Clones, Servers and Ops Only... Final Warning!! %ac
dec -c %n
}
}
if ($did == 30) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/kick %ac $gettok($did(5),%n,32) 4 Clones
dec -c %n
}
}
if ($did == 31) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/ban $gettok($did(5),%n,32) | /kick %ac $gettok($did(5),%n,32) 4 Clones
dec -c %n
}
}
if ($did == 32) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/ban -u600 $gettok($did(5),%n,32) | /kick %ac $gettok($did(5),%n,32) 4 Clones
dec -c %n
}
}
if ($did == 33) {
var %n = $numtok($did(5),32)
while (%n > 0) {
/ban -u3600 $gettok($did(5),%n,32) | /kick %ac $gettok($did(5),%n,32) 4 Clones
dec -c %n
}
}
if ($did == 40) {
dialog -x clonescanner clonescanner
/clonescan %ac
}
}