# Процедура обработки запроса. proc ::tvcountdown::tvcountdown_proc {nick uhost hand chan text source} { variable tvcountdown if {[info exists tvcountdown(lasttime,$chan)] && [expr $tvcountdown(lasttime,$chan) + $tvcountdown(delay)] > [clock seconds]} { putserv "NOTICE $nick :$tvcountdown(color1)Запрос не чаще одного раза в $tvcountdown(color2)$tvcountdown(delay) $tvcountdown(color1)[lindex {. секунду секунды секунд} [::tvcountdown::tvcountdown_numgrp $tvcountdown(delay)]]." putserv "NOTICE $nick :$tvcountdown(color1)Подождите $tvcountdown(color3)[expr $tvcountdown(delay) - [expr [clock seconds] - $tvcountdown(lasttime,$chan)]] $tvcountdown(color1)[lindex {. секунду секунды секунд} [::tvcountdown::tvcountdown_numgrp [expr $tvcountdown(delay) - [expr [clock seconds] - $tvcountdown(lasttime,$chan)]]]] до следующего запроса." return 0 } if {[string is space $text]} { putserv "PRIVMSG $chan :$tvcountdown(color2)$nick, $tvcountdown(color1)используй $tvcountdown(color3)$::lastbind $tvcountdown(color1)\[-номер\] $tvcountdown(color2)\<название сериала\>$tvcountdown(color1) для поиска.\003" return 0 } if {[regexp -- {^\-(\d+)\s} $text - num]} { set text [regsub -- {^\-\d+\s} $text ""] set num [scan $num %d] } else { set num 0 } ::http::config -urlencoding "utf-8" -useragent $tvcountdown(useragent) set tvcountdown_tok [::http::geturl "http://tvcountdown.com/" -timeout "15000"] set data [::http::data $tvcountdown_tok] ::http::cleanup $tvcountdown_tok putlog "\[tvcountdown\] $nick/$chan/$text" set results [list ] regsub -all -nocase -- {^.*?