Posted to tcl by rmax at Mon Jul 03 11:00:23 GMT 2023view pretty

--- ijbridge.tcl.orig   2023-07-03 12:57:35.205115845 +0200
+++ ijbridge.tcl        2023-07-03 12:58:37.493083892 +0200
@@ -1112,7 +1112,13 @@
     $cn registerevent 433 {
         # ERR_NICKNAMEINUSE
         if { [lindex [additional] 0] == $::client::nick } {
-            cmd-send "NICK [string trimright $::client::nick 0123456789][string range [expr rand()] end-2 end]"
+            set nick_base [string trimright $::client::nick 0123456789]
+            if {$nick_base == $::client::nick} {
+                cmd-send "NICK $nick_base[string range [expr rand()] end-2 end]"
+                after 5000 [list cmd-send "NICK $nick_base"]
+            } else {
+                cmd-send "NICK $nick_base"
+            }
         }
     }