# Для включения скрипта на канале: !set +u2 setudef flag u2 bind pub - !стартс addroom bind pub - !start addroom proc addroom {nick uhost hand chan text} { if {$chan == "#planu2" && [channel get $chan u2]} { # game - Название игры set game "Need For Speed Underground 2" # roomname - Название комнаты set roomname "St.Races 24/7" # port - Порт комнаты set port 1098 # vpnPort - порт open vpn set vpnPort 1097 set list [join [chanlist #planu2] ", "] set playerscount [llength [chanlist $chan]] set up 20 ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)" -urlencoding cp1251 catch {set parsing_tok [::http::geturl "http://plangc.ru/tracker/index.php?do=vpn_add&addr=&port=$port&game=VPN&mod=[http::formatQuery $game]&vpnport=$vpnPort&playerscount=$playerscount&chan=planu2&roomname=[http::formatQuery $roomname]&ts2=none&playerlist=[http::formatQuery $list]" -timeout 20000]} ::http::cleanup $parsing_tok utimer $up [list addroom $nick $uhost $hand $chan ""] } } # ________________________________________________ С т а т у с к о м н а т ы _____________________________________________- bind pub - !статус statusroom bind pub - !status statusroom proc statusroom {nick uhost hand chan text} { ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)" set parsing_tok [::http::geturl "http://plangc.ru/tracker/" -timeout 20000] set data [::http::data $parsing_tok] set data [regsub -all -- {\n|\r|\t|\v} [::http::data $parsing_tok] ""] ::http::cleanup $parsing_tok # Между тегов