Posted to tcl by rmax at Mon Jul 03 11:26:07 GMT 2023view raw
- $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"]
- }
- }