Finally I did it to shorten WordDMT's script to 525 bytes
menu status,nicklist,menubar {
-
WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)
.$iif(%stat.wclone,Dis,En) $+ able it:set %stat.wclone $iif(%stat.wclone,0,1)
-
}
on *:join:#:{
if $nick = $me { set %/who $+ # 1 | who # }
elseif %stat.wclone && $ialchan($wildsite,#,0) > 1 {
while ($ialchan($wildsite,#,$0).nick) tokenize 32 $1- $v1 | echo # 7- Clones Detected 4[ $2- 4]
}
}
raw *:*:{
if (($numeric = 352) && ($($+(%,/who,$2),2))) haltdef
elseif ($numeric = 315) && ($($+(%,/who,$2),2)) unset %/who $+ $2 | haltdef
}
I wasn't bored until slub77 started it. lol But thanks for the suggestion, Ford. This time I tried looking at both the inconsistency, redundancy and went for a different route rather than using the regsubex, which cuts many bytes.