if { [lindex [split $arg] 1] == "on" } {
    set proc_change "[namespace current]::recv_[lindex [split $arg] 0]"
    bind  bot - $change $proc_change
} elseif { [lindex [split $arg] 1] == "off" } {
    set proc_change "[namespace current]::recv:[lindex [split $arg] 0]"
    unbind bot - $change $proc_change