# Устанавливаем счетчик set i 0 # Устанавливаем переменную со списком set list [list] # Условие: пока счетчик меньше или равен числу в команде, то ... while {$i <= $text} { # Добавляем в список строку начиная со случайной... lappend list [lindex $lines [expr $num + $i]] # и каждый раз увеличивая ее номер на счетчик incr i } # Выводим полученный список в канал putserv "PRIVMSG $chan :[join $list]"