PDA

Просмотр полной версии : eggdrop script


XIII
22.10.2006, 23:58
Народ недавно написал скрипт вот только незнаю как его подправить
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::out $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::out $nick $chan "Сервер или сайт не доступен"
}

putlog "La2 script 0.1 By XIII loaded"
так вот я не знаю как написать если статус на сайте online то бот пишит online зелёным цветом а если offline то красным offlne

m0nzt3r
23.10.2006, 15:42
\003код цветаonline (в данном случае \0033online\0031 , \0035offline\0031)
только я не понял, как ты узнаешь что он онлайн или оффлайн?

XIII
23.10.2006, 17:15
вот Login server: <span style=".*?"><b>(.*?)</b></span><br>.*?Game server: <span style=".*?"><b>(.*?)</b></span><br>
там где (.*?) там написало Online или Offline

m0nzt3r
24.10.2006, 16:31
ну ставишь кондишн, if {[regsub -тут регекс] == online} { то ... } else { ... }
просто я не уверен правилен ли твой регекс