Code:

# see the bind and think about what you want to change, unbind / re bind.tcl foreach bind [binds dcc] { putlog $bind }# to see the variables with the proc need to be called type:# .tcl *dcc:kickban# Tcl error: wrong # args: should be "*dcc:kickban hand idx param"# - your script -# unbindcatch { unbind .........# re bindbind dcc - commandname new:procname# proc for what you wantnew:procname { hand idx param } { # check acess, whateever you want # logging stuff # and at least: *dcc:kickban $hand idx param}