Anyway, so, basically you want on-command to scan and punish clones if are more than specified amount? I've linked to this old code cos I found the percentage interesting.

Code: Select all
set qwhy "Go away."
Code: Select all
proc qkick {ch {nk ""}} { global qkick
Code: Select all
proc qkick {ch {nk ""} {qwhy "Go away."}} { global qkick
Code: Select all
.tcl package require eggdrop
Tcl: 1.8.4
.tcl catch {package require "eggdrop 1.6.20"} err
Tcl: 1