Форум о ботах Eggdrop/Windrop

[andreichsb]

Вот, вывел вчера в инет все
http://91.203.169.242
http://91.203.169.242/statcod5/

[tvrsh]

Код: Выделить всё

if { ![info exists egglib(ver)] || [expr {$egglib(ver) < 1.2}] } {
    putlog "***********************************************"
    putlog " egglib_pub NOT FOUND OR VERSION IS TOO OLD!"
    putlog " Download last version of egglib_pub here:"
    putlog "http://eggdrop.org.ru/scripts/egglib_pub.zip"
    putlog "***********************************************"
    die
    }

    bind pub - !код pub_online

    proc pub_online {nick uhost hand chan args} {
        set query "http://91.203.169.242/"
        set query2 "http://91.203.169.242/statcod5/"

        set id [::egglib::http_init "pub_online_"]
        set id2 [::egglib::http_init "pub_online2_"]

        ::egglib::http_get $id $query [list $nick $uhost $chan]
        ::egglib::http_get $id2 $query2 [list $nick $uhost $chan]

    }

    proc pub_online_on_error {id nick uhost chan} {
        ::egglib::out $nick $chan "Я не смог соединиться с Server for clan SB..."
    }

    proc pub_online2_on_error {id2 nick uhost chan} {
        ::egglib::out $nick $chan "Я не смог соединиться с WW Server SB..."
    }

    proc pub_online_on_data {id data nick uhost chan} {
           regsub -all -- {\n} $data "" data
           foreach line [split $data \n] {
                if { [regexp -nocase -- {<p\ align=\"center\">Информация\ о\ сервере<\/td>(.*?)<p\ align=\"center\">Полная\ информация<\/td>} $line g aaa]} {
                regsub -all -- {\s+} $aaa " " aaa
                regsub -all -- {<tr>} $aaa "" aaa
                regsub -all -- {<td\ .*?>} $aaa "" aaa
                regsub -all -- {<a\ .*?>} $aaa "" aaa
                regsub -all -- {<img\ .*?>} $aaa "" aaa
                regsub -all -- {</tr>} $aaa "" aaa
                regsub -all -- {</a>} $aaa "" aaa
                regsub -all -- {</img>} $aaa "" aaa
                regsub -all -- {<b>} $aaa "" aaa
                regsub -all -- {</b>} $aaa "" aaa
                regsub -all -- {</td>} $aaa "," aaa
                regsub -all -- {</font>} $aaa "" aaa
                regsub -all -- {  } $aaa " " aaa
                ::egglib::out $nick $chan [string trimright $aaa ", "].
                return
                }
            }
        ::egglib::out $nick $chan "Я не смог узнать текущее кол-во игроков на Server for clan SB..."
    }

    proc pub_online2_on_data {id2 data nick uhost chan} {
           regsub -all -- {\n} $data "" data
           foreach line [split $data \n] {
                if { [regexp -nocase -- {<p\ align=\"center\">Server\ Information<\/td>(.*?)<p\ align=\"center\">Extra\ Information<\/td>} $line g aaa]} {
                regsub -all -- {\s+} $aaa " " aaa
                regsub -all -- {<tr>} $aaa "" aaa
                regsub -all -- {<td\ .*?>} $aaa "" aaa
                regsub -all -- {<a\ .*?>} $aaa "" aaa
                regsub -all -- {<img\ .*?>} $aaa "" aaa
                regsub -all -- {</tr>} $aaa "" aaa
                regsub -all -- {</a>} $aaa "" aaa
                regsub -all -- {</img>} $aaa "" aaa
                regsub -all -- {<b>} $aaa "" aaa
                regsub -all -- {</b>} $aaa "" aaa
                regsub -all -- {</td>} $aaa "," aaa
                regsub -all -- {</font>} $aaa "" aaa
                regsub -all -- {  } $aaa " " aaa
                ::egglib::out $nick $chan [string trimright $aaa ", "].
                return
                }
            }
        ::egglib::out $nick $chan "Я не смог узнать текущее кол-во игроков на WW Server SB..."
    }

Обновлено.

[andreichsb]

тоже самое

[tvrsh]

Обновил скрипт в предыдущем посте, смотри там.

[andreichsb]

да он работает, спасибо большое, но (ты уже наверное скажеш- достал, блин) он такой флудовый получился, ты вставил отображение и карты и режима, и все это пишется в следующую строку, короч на пол экрана растягивает, вот если бы можно еще было сделать так
Bot: $nick игроков на сервере Аля улю: 14 карта:mp_creek режим:sab
Bot: $nick игроков на сервере Улю Аля: 12 карта:mp_moscow режим:war

я чето поковырял, не получается, ни чего в этом ткл не понимаю

[tvrsh]

Смотри там же. Все, это последний раз, дальше все сам делай.

[andreichsb]

Все отлично, все работает бооооольшущее спасибо.