# Считываем данные из файла с командами. set data [::egglib::readdata "$help(file)"] # Если первая строка в нем это цифра ... if { [isnumber [lindex $data 0]] } { # ... то сохраняем в переменную все остальные строки кроме первой. set data2 [lrange $data 1 end] # И перебирая кажду строку по очереди ... foreach line $data2 { # ... если она не пустая, то ... if { $line != "" } { # ... пишем ее в приват нику. putserv "privmsg $nick :$line" } } # Создаем счетчик в котором к первой строке из файла прибавляем единицу. set counter [expr [lindex $data 0] + 1] # И пишем в приват нику про колиичество просмотров файла. putserv "privmsg $nick :Этот файл просмотрели $counter ра[lindex {. з за з} [numgrp $counter]]." # Добавляем это значение в переменную с командами, которые только что выводили нику в приват. set data2 [linsert $data2 0 $counter] # И записываем эту переменную в файл. ::egglib::writedata "$help(file)" $data2 # А если первая строка в начальном файле не цифра, значит его еще ни разу не просматривали. } else { # Также пишем его построчно нику в приват. foreach line $data { if { $line != "" } { putserv "privmsg $nick :$line" } } # Сообщаем о том, что это первой просмотр файла. putserv "privmsg $nick :Этот файл просмотрели 1 раз." # Вставляем первой строкой единицу. set data [linsert $data 0 "1"] # Сохраняем все в файл. ::egglib::writedata "$help(file)" $data }