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

[tvrsh]

Название: liveresult.tcl
Версия: 1.5
Автор: tvrsh
Описание: Скрипт транслирует в канал текстовые трансляции футбольных матчей с сайта http://liveresult.ru/ Возможен просмотр отчетов о прошедших матчах.
Поддержка Suzi: Да
Пример работы:

# Просмотр списка сегодняшних трансляций.
<tvrsh> !список
<@bionic> Текстовые трансляции (Воскресенье, 29 июля 2012) < Футбол < Live Result Ru
<@bionic> Летние Олимпийские игры 2012 :: Мужчины / Группа A
<@bionic> ! >>> 22:45 - Великобритания (олимп) 0:0 ОАЭ (олимп) [!старт 1]
<@bionic> Летние Олимпийские игры 2012 :: Мужчины / Группа C
<@bionic> 18:00 - Бразилия (олимп) 3:1 Беларусь (олимп) [!отчет 2]
<@bionic> Летние Олимпийские игры 2012 :: Мужчины / Группа D
<@bionic> ! >>> 22:45 - Испания (олимп) 0:1 Гондурас (олимп) [!старт 3]
<@bionic> Россия :: Премьер-Лига
<@bionic> 15:00 - Рубин 3:1 Алания [!отчет 4]
<@bionic> 17:30 - Спартак Москва 2:1 Волга НН [!отчет 5]
<@bionic> 20:00 - Ростов 2:2 Анжи [!отчет 6]

# Просмотр отчета о прошедшей игре.
<tvrsh> !отчет 2
<@bionic> Олимпийская сборная Бразилии вышла в четвертьфинал
<@bionic> Евро-Футбол.Ру Бразильцы добились победы, лучший игрок встречи - Оскар.   Сборная Бразилии – Сборная Беларуси – 3:1 (1:1) Голы: Брессан, 9 – 0:1, Пато, 16 – 1:1, Неймар, 65 – 2:1, Оскар, 90+2 - 3:1.   Сборная Бразилии:
<@bionic> Нето, Марсело, Рафаэль, Сильва, Жуан, Сандро (Гансо, 64), Ромуло, Оскар, Неймар, Пато (Лукас, 85), Халк (Данило, 86). В резерве остались: Алекс, Габриэл, Дамиан, Бруно.   Сборная Беларуси: Гутор, Гордейчук, Кузьменок, Политевич...

# Просмотр трансляции.
<tvrsh> !старт 9
* bionic изменил тему на: Текущая трансляция: Заря 1:3 Арсенал Киев ::
<@bionic> Дополнительное время - 45': Стартовало компенсированное время.
<@bionic> 45': Концовку тайма "Заря" проводит в атаках. Никита Каменюка пробил головой после флангового навеса, но мяч разминулся со стойкой.
<@bionic> Перерыв - -: Счёт 1:3 фиксирует рефери Андрей Кузьмин после первого тайма! Команды уже боевым шагом направляются в раздевалку. Давайте отдохнём немного и мы. Сбор на том же месте через 15 минут! Перерыв.

Ссылка на скрипт: liveresult.tcl

[tvrsh]

Вот способ лечения выскакивающих тэгов.
Открываете скрипт и дописываете в него такую процедуру:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Тут чистим выводимый текст от html тэгов.
proc ::liveresult::putlive {type dest text} {
    variable liveresult

    # Взято из egglib_pub.tcl
    regsub -all -nocase -- {<.*?>(.*?)</.*?>} $text {\1} text
    regsub -all -nocase -- {<.*?>} $text {} text
    set text [string map {&quot; \' &gt; > &lt; < &copy; © \&\#169; © \&\#183; - &amp; &} $text]
    regsub -all -nocase -- {&#[0]*33;} $text {!} text
    regsub -all -nocase -- {&#[0]*58;} $text {:} text
    regsub -all -nocase -- {&#[0]*36;} $text {$} text
    regsub -all -nocase -- {&.*?;} $text {} text

    switch $type {
        "PRIVMSG" {
            putserv "PRIVMSG $dest :$text"
        }
        "NOTICE" {
            putserv "NOTICE $dest :$text"
        }
    }
}

Теперь находим в скрипте все строки отправляющие текст на сервер. То-есть строки начинающиеся с putserv.
Заменить их надо таким образом:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$champ \003- $liveresult(color2)$part\003"

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            ::liveresult::putlive PRIVMSG $liveresult(channel) "$liveresult(color1)$champ \003- $liveresult(color2)$part\003"

Заменяем putserv на ::liveresult::putlive, потом стираем первую ковычку, и заменяем : идущее после $liveresult(channel) на ковычки. Таким образом в новую процедуру ::liveresult::putlive отправляется способ вывода текста PRIVMSG или NOTICE, куда отправлять текст и сам текст в ковычках.
В итоге имеем:

# Было.
[17:26:51] <@bionic> Россия - Кубок</a> / <a href="http://www.liveresult.ru/football/txt/week/?country=180&cup=2456&cat=28869">1/32 финала
# Стало.
[17:28:25] <@bionic> Россия - Кубок / 1/32 финала

[tvrsh]

Чтобы команда !стоп стала нормально работать замените процедуру ::liveresult::liveresult_stop на эту:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Процедура обработки паблик команды остановки трансляции.
proc ::liveresult::liveresult_stop {nick uhost hand chan text} {
    variable liveresult

    # Проверяем наличие активных таймеров и убиваем их если они существуют.
    foreach tms "[utimers]" {
        if {[string match -nocase "*::liveresult::*" $tms]} {
            ::liveresult::killtm
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)Трансляция $liveresult(color2)[lindex [split [lindex [lindex $tms 1] 5] "|"] 2] $liveresult(color1)остановлена.\003"
            return 0
        }
    }
    putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)Текущих трансляций нет.\003"
    return 0
}

Теперь она не только останавливает трансляции, но и показывает какая трансляция была остановлена:

[18:41:22] <@tvrsh> !стоп
[18:41:22] <@bionic> Трансляция Аргентина 0:1 Германия остановлена.

[triton]

(00:27:13) (@iFud) Бразилия 3:0 Чили. @078;8O ;53:> >1K3@K205B '8;8.  N6=>0<5@8:0=A:>< 45@18 @078;8O >:070;0AL =0 3>;>2C A8;L=55. "5?5@L ?>4>?5G=KE C=38 645B ?@>B82>AB>O=85 A >;;0=4859 2 G5B25@BLD8=0;5.
(00:27:13) (@iFud) Голы: Нет данных Предупреждения: Нет данных Удаления: Нет данных
(00:27:13) (@iFud) Судья: Нет данных

почему так, транслирует все нормально.

[triton]

[22:42] Tcl error [nub]: can't read "city(gamechan)": no such element in array

вот такая ошибка в пати.
устал уже кодировки менять

sok: скажи именно где поменять

[tvrsh]

(00:27:13) (@iFud) Бразилия 3:0 Чили. @078;8O ;53:> >1K3@K205B '8;8.  N6=>0<5@8:0=A:>< 45@18 @078;8O >:070;0AL =0 3>;>2C A8;L=55. "5?5@L ?>4>?5G=KE C=38 645B ?@>B82>AB>O=85 A >;;0=4859 2 G5B25@BLD8=0;5.
(00:27:13) (@iFud) Голы: Нет данных Предупреждения: Нет данных Удаления: Нет данных
(00:27:13) (@iFud) Судья: Нет данных

почему так, транслирует все нормально.

Как так? Я тебе объясняю второй раз, у тебя проблема с кодировками.

[tvrsh]

[22:42] Tcl error [nub]: can't read "city(gamechan)": no such element in array

вот такая ошибка в пати.
устал уже кодировки менять

sok: скажи именно где поменять

1. Эта ошибка не из моего скрипта.
2. Лог ошибок показывай с .set errorInfo Что это такое и как его читаем в Правилах оформления топиков

[tvrsh]

Теннисные трансляции тоже неплохо транслируются:

[17:49:02] <@tvrsh> !список
[17:49:02] <@bionic> Текстовые трансляции (Воскресенье, 04 июля 2010) < Теннис < Live Result Ru
[17:49:02] <@bionic> Англия - Уимблдон / ATP - одиночные
[17:49:03] <@bionic> ! >>> 17:15 - Бердых Томаш 0:0 Надаль Рафаэль [!старт 1]
[17:49:07] <@tvrsh> !старт 1
[17:49:08] <@bionic> Эйс! - 1': Эйс! 15-30.
[17:50:22] <@bionic> 1 сетбол - 1': Ещё один эйс! 30-40. Сетбол!
[17:50:52] <@bionic> Сет - 1': Рафаэль Надаль сильнее в первой партии! Томаш БЕРДЫХ - Рафаэль НАДАЛЬ 3:6!

Только вот сайт редко обновляется и после обновления появляется по паре комментариев, а бот транслирует только последний. Надо как-то исправить это дело будет.

[ksd]

баскетбол бы и ваще ништяк

[tvrsh]

баскетбол бы и ваще ништяк

Чтобы был баскетбол или теннис, замени в switch -glob $text ссылки с футбола на эти виды спорта. То-есть, например

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/today/"]  
 

замени на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            set liveresult_tok [::http::geturl "http://www.liveresult.ru/tennis/txt/today/"]  
 

Только смысла в этом нету, в баскетболе вообще не было трансляций. Единственное, что транслируется это теннис, но очень редко.

[tvrsh]

Если на сегодняшний день отсутствуют матчи то бот выдает ошибку

Tcl error [::liveresult::liveresult_list]: list element in quotes followed by ">" instead of space

Чтобы это исправить откройте скрипт и в процедуре ::liveresult::liveresult_list перед строкой

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    regexp {<title>(.*?)</title>} $data "" title

добавьте

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    if {[regexp {<div class=\"error\">(.*?)</div>} $data "" error]} {
        ::liveresult::putlive PRIVMSG $liveresult(channel) "$liveresult(color1)$error \003- $liveresult(color1)Используйте $liveresult(color2)$lastbind хелп\003"
        return 0
    }

В итоге имеем:

[20:11:45] <@tvrsh> !список
[20:11:46] <@bionic> Согласно Вашему запросу, не найдено ни одного матча. - Используйте !список хелп

[tvrsh]

И еще, чтобы при просмотре помощи по спискам не появлялась ошибка

Tcl error [::liveresult::liveresult_list]: can't read "state(body)": no such variable

В switch -glob $text после строки

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            putserv "NOTICE $nick :$liveresult(color1)При использовании команды $liveresult(color2)$lastbind $liveresult(color1)без параметров выводится расписание на сегодня.\003"

допишите

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

return 0

[nunucuH2H]

(00:27:13) (@iFud) Бразилия 3:0 Чили. @078;8O ;53:> >1K3@K205B '8;8.  N6=>0<5@8:0=A:>< 45@18 @078;8O >:070;0AL =0 3>;>2C A8;L=55. "5?5@L ?>4>?5G=KE C=38 645B ?@>B82>AB>O=85 A >;;0=4859 2 G5B25@BLD8=0;5.
(00:27:13) (@iFud) Голы: Нет данных Предупреждения: Нет данных Удаления: Нет данных
(00:27:13) (@iFud) Судья: Нет данных

почему так, транслирует все нормально.

Найди

set opis "Нет данных"; set opis2 "Нет данных"; set opis3 "Нет данных"

И закоментируй 4 строчки над ним

#if {[info exists ::sp_version]} {
# set data [encoding convertfrom utf-8 $data]
#} else {
# set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
#}

[triton]

Найди

set opis "Нет данных"; set opis2 "Нет данных"; set opis3 "Нет данных"


И закоментируй 4 строчки над ним

#if {[info exists ::sp_version]} {
# set data [encoding convertfrom utf-8 $data]
#} else {
# set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
#}

nunucuH2H спасибо большое, помогло

[vit]

Большущее спасиба за скрипт! А как сделать чтобы время показывало на час назад, де шо дописать

[tvrsh]

Если ты говоришь про время начала трансляции то можно попробовать так:
После строки

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

                    regsub -all -- "</span>" $time "" time

допиши

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

                    set time "[expr [lindex [split $time ":"] 0] - 1]:[lindex [split $time ":"] 1]"

Тут мы просто разбивает время на две части, до и после :, и уменьшаем первую часть на единицу. Тут могут возникнуть косяки если матч по Москве начнется в 00, время будет -1 тогда. Пробуй.

[vit]

Угу спасиба, работает, ток если 00, абы 23 показывало ((

[tvrsh]

Перед

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set time "[expr [lindex [split $time ":"] 0] - 1]:[lindex [split $time ":"] 1]"

допиши

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

if {[lindex [split $time ":"] 0] == "00"} {
    set time "23:[lindex [split $time ":"] 1]"
}

[vit]

Ок, ммм, чето приветсвие не пашет и никаких ошыбок не выдает, че эт может быть , и есчо можна как то сделать чтобы список выводился нотисе ник , каму набрал токо..

[tvrsh]

... , и есчо можна как то сделать чтобы список выводился нотисе ник , каму набрал токо..

Замени

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            ::liveresult::putlive PRIVMSG $liveresult(channel) "$liveresult(color1)$champ \003- $liveresult(color2)$part\003"

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

            ::liveresult::putlive NOTICE $nick "$liveresult(color1)$champ \003- $liveresult(color2)$part\003"

и

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

                    if {$status == "st_min"} {
                        putserv "PRIVMSG $liveresult(channel) :\00304\002! \00301>\00314>\00315>\002 $liveresult(color1)$time \003- $liveresult(color2)$teams \003\[\002$liveresult(color3)!старт $i\002\003\]"
                    } else {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color3)!старт $i\003\]"
                    }

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

                    if {$status == "st_min"} {
                        putserv "NOTICE $nick :\00304\002! \00301>\00314>\00315>\002 $liveresult(color1)$time \003- $liveresult(color2)$teams \003\[\002$liveresult(color3)!старт $i\002\003\]"
                    } else {
                        putserv "NOTICE $nick :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color3)!старт $i\003\]"
                    }

[vit]

о норм спасиба, токо приветсвие не хочет работать и пипец