Oh, I didn't underdstand you mean "wrapping" your code.
Splitting a regexp is a bad idea as you don't know how cr/lf could be interpreted, but you can have a look on https://stackoverflow.com/questions/636 ... iple-lines
if {$UnoAdNumber > 4} {set UnoAdNumber 0}
proc msg_guess { nick chan host handle text } {
set unumber [join [lindex [split $text] 0]]
...
5 {UnoPlayed $UnoRobot none none $UnoChan ""}
bind pub -|- number msg_number