Posted to tcl by rmax at Mon Jul 03 11:26:07 GMT 2023view pretty

    $cn registerevent 433 {
        # ERR_NICKNAMEINUSE
        set nick_base [string trimright $::client::nick 0123456789]
        if { [lindex [additional] 0] == $::client::nick } {
            cmd-send "NICK $nick_base[string range [expr rand()] end-2 end]"
        }   
        if {$nick_base != $::client::nick} {
            after 20000 [list cmd-send "NICK $nick_base"]
        }
    }