bind pub - !разум razumproc proc razumproc {nick uhost hand chan text} { set razumlist1 { "В частности " "С другой стороны, " "Однако " "Аналогично, " "Таким образом, " "Нетрудно видеть, что " "Как показывают приведенные выше соображения, " "Например, " "Итак, " "Что касается нашей конкретной задачи, то " } set razumlist2 { "гиперповерхность в пространстве состояний " "постоянный поток эффективной информации " "отличительная особенность выбранных критериев " "инициация развития критической подсистемы " "комплексная программа испытаний " "траектория в конфигурационном пространстве " "нагруженный несущий элемент " "включение дополнительных внутренних связей " "независимый принцип функционирования " "первичное отношение между подсистемной и технологией подсистемы " } set razumlist3 { "находит широкое применение и требует " "сводит до минимума затраты при условии " "указывает на пределы применимости " "свидетельствует о необходимости более тщательного анализа " "чрезвычайно усложняется, если не принять во внимание условие " "подразумевает более основательное использование теории " "открывает весьма интересные перспективы " "признает значимость других систем и необходимость " "позволяет эффективно использовать метод " "требует применения " } set razumlist4 { "более тонкой аппаратурной реализации." "оборудования четвертого поколения." "тестирования четвертого поколения." "проектирования на основе системного подхода." "предварительного отбора данных по определенным критериям." "гибкого, изменяющегося в зависимости от условий описания." "интеграции и специализации." "более строгой стандартизации основных модулей." "функционирования в режиме дискретного времени." } set razumpart1 "[lindex $razumlist1 [rand [llength $razumlist1]]]" set razumpart2 "[lindex $razumlist2 [rand [llength $razumlist2]]]" set razumpart3 "[lindex $razumlist3 [rand [llength $razumlist3]]]" set razumpart4 "[lindex $razumlist4 [rand [llength $razumlist4]]]" set razumphrase "$razumpart1$razumpart2$razumpart3$razumpart4" putserv "PRIVMSG $chan :\00314Сгенерированная фраза: \00303$razumphrase" }