setudef flag lamon
bind pub - !la pub_la
bind pub - !дa pub_la
bind pub - !ла pub_la
proc pub_la {nick uhost hand chan args} {
set query "http://*************"
set id [::egglib::http_init "pub_la_"]
::egglib::http_get $id $query[list $nick $uhost $chan]
}
proc pub_la_on_error {id nick uhost chan} {
::egglib:ut $nick $chan "Нет коннекта("
}
proc pub_la_on_data {id data nick uhost chan} {
regsub -all -- \n $data {} data
regsub -all -nocase -- </tr> $data </tr>\n data
foreach line [split $data \n] {
if { [regexp -nocase -- {Login server: <span style=".*?"><b>(.*?)</b></span><br>.*?Game server: <span style=".*?"><b>(.*?)</b></span><br>} $line garb laloginserv gameserv] } {
puthelp "PRIVMSG $chan :12Login Server:03 $laloginserv 12Game server:03 $gameserv"
return
}
}
::egglib:ut $nick $chan "Сервер или сайт не доступен"
}

putlog "La2 script 0.1 By XIII loaded"