online результаты

Просьбы о написании новых скриптов или поиске уже существующих.

Модератор: Модераторы

online результаты

Сообщение analyzer » 25 ноя 2010 17:12

Скрипт выводящий в канал онлайн изменения в счете:
откуда http://livescore.com/soccer/
при изменении счета, писать минута какой счет и желательно кто забил.
пример;
Goal !!!: 87' Juventus 1-0 Genoa (A. Del Piero)


заранее благодарен
analyzer
 
Сообщения: 12
Зарегистрирован: 15 ноя 2010 21:57
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: online результаты

Сообщение analyzer » 25 ноя 2010 20:10

и еще не работают скрипт http://www.egghelp.ru/files/473 , там ссылки поменялись, вроде как поменял но все же так и не работает.

можно ли как то пофиксить... еще раз спасибо
analyzer
 
Сообщения: 12
Зарегистрирован: 15 ноя 2010 21:57
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: online результаты

Сообщение Stefan » 25 ноя 2010 22:55

Но что-то не работает. Исправьте это пожалуйста

TCL: [ Скачать ] [ Скрыть ]
if {![info exists egglib(ver)]} {
        putlog "************************************************"
        putlog "             egglib_pub NOT FOUND !"
        putlog "   Download last version of egglib_pub here:"
        putlog "  http://eggdrop.org.ru/scripts/egglib_pub.zip"
        putlog "************************************************"      
        die
}

if {[expr {$egglib(ver) < 1.4}]} {
        putlog "************************************************"
        putlog "    YOUR VERSION OF egglib_pub IS TOO OLD !"
        putlog "   Download last version of egglib_pub here:"
        putlog "  http://eggdrop.org.ru/scripts/egglib_pub.zip"
        putlog "************************************************"
        putlog " version installed : $egglib(ver)"
        putlog " version required: 1.4"
        die
}

#################################################

namespace eval ls {}

setudef flag nopubls

#################################################

bind pub - !ls          ::ls::pub_ls
bind pub - !score       ::ls::pub_ls
bind pub - !livescore   ::ls::pub_ls
bind msg - !ls          ::ls::msg_ls
bind msg - !score       ::ls::msg_ls
bind msg - !livescore   ::ls::msg_ls

#################################################

foreach p [array names ls *] { catch {unset ls($p)} }

#max results per public query
set ls(maxres)          10

set ls(timeout)         20
set ls(debug)           1

set ls(use_proxy)       0
set ls(proxy_host)      "proxy1.bezeqint.net"
set ls(proxy_port)      3128

#################################################
##### DON'T CHANGE ANYTHING BELOW THIS LINE #####
#################################################

set ls(ver)             "2.0"
set ls(authors)         "Stream@RusNet <stream@eggdrop.org.ru>"
set ls(agent)           "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)"

#################################################

proc ::ls::pub_ls { nick uhost hand chan args } {
        if {[channel get $chan nopubls]} return
        set args [string tolower [string trim $args]]
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
        if {[llength $args] < 1} {::egglib::outn $nick "Izpolzvai !livescore \[-strana\] <maska>. maskata moge da sydyrga '*' i '?' ."; return}
        ::ls::ls $nick $uhost $hand $chan $args
}
proc ::ls::msg_ls { nick uhost hand args } {
        set args [string tolower [string trim $args]]
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
        if {[llength $args] < 1} {::egglib::outn $nick "Izpolzvai !livescore \[-strana\] <maska>. maskata moge da sydyrga '*' i '?' ."; return}
        ::ls::ls $nick $uhost $hand $nick $args
}

#################################################

proc ::ls::ls { nick uhost hand chan args } {
        global ls
        if {[info exists ls(host,$uhost)]} {::egglib::outn $nick "Predishnata zaqvka ne e izlylnena oshte..."; return}
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
       
        if {[string range [lindex $args 0] 0 0] == "-"} {
                set country [string range [lindex $args 0] 1 end]
                set mask [lrange $args 1 end]
        } else {
                set country "ukraine"
                set mask $args
        }
       
        ::egglib::log $chan $nick "ls" "$country $mask"
        if {[string range $mask 0 0] != "*"} {set mask "*$mask"}
        if {[string range $mask end end] != "*"} {set mask "$mask\*"}
        set ls(host,$uhost) [list $country $mask]
        set url "http://www.livescore.com/default.dll?page=$country"
        set id [::egglib::http_init "::ls::ls_"]
        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
        ::egglib::http_set_timeout $id $ls(timeout)
        ::egglib::http_get $id $url [list $nick $chan $uhost]
}

proc ::ls::ls_on_data { id html nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "\[ls\] callback executed... analyzing data..."}
       
        regsub -all -nocase -- <tr $html \n<tr html
        #::egglib::writedata "debugls.htm" [list $html]
       
        foreach line [split $html \n] {
                if {[regexp -nocase -- {<html>.*robots.*refresh.*URL\=(.*?)\".*action\=\"(.*?)\".*value\=\"(.*?)\"} $line garb url posturl sid]} {
                        putlog "
antibot check found. redirecting to $url & POSTing to $posturl (params sid=$sid)"
                        set url "
http://www.livescore.com$url"
                        set id [::egglib::http_init "
::ls::ls1_"]
                        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                        ::egglib::http_set_timeout $id 1
                        ::egglib::http_get $id $url [list $nick $chan $uhost]
                        set url "
http://www.livescore.com$posturl"
                        set param "
sid=$sid"
                        set id [::egglib::http_init "
::ls::lspost_"]
                        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                        ::egglib::http_set_timeout $id $ls(timeout)
                        ::egglib::http_set_method $id "
POST"
                        ::egglib::http_post $id $url $param [list $nick $chan $uhost]
                        break
                }
        }
       
        if {$ls(debug)} {putlog "
\[ls\] html parsed"}
}

proc ::ls::ls_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "
\[ls\] connection timed out"}
        if {$nick == "
"} {return}
        ::egglib::out $nick $chan "
nemoga da se svyrga s livescore.com..."
}

proc ::ls::ls1_on_data { id html nick chan uhost } {
        ::egglib::writedata "
debugls1.htm" [list $html]
        if {$ls(debug)} {putlog "
\[ls1\] callback executed! Something is wrong..."}
}

proc ::ls::ls1_on_error { id nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "
\[ls1\] connection timed out - OK"}
}

proc ::ls::lspost_on_data { id html nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "
\[lspost\] callback executed... analyzing data..."}

        #::egglib::writedata "
debugpost.htm" [list $html]
       
        set moved 0
        foreach line [split $html \n] {
                if {[string match "
HTTP* 302 Object Moved" $line]} {set moved 1
                } elseif {$moved == 1} {
                        if {[regexp -nocase -- {^Location\:\ (.*?)$} $line garb url]} {
                                if {$ls(debug)} {putlog "
recieved HTTP 302 Object Moved, new location: $url"}
                                set url "
http://www.livescore.com$url"
                                set id [::egglib::http_init "
::ls::ls2_"]
                                if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                                ::egglib::http_set_timeout $id $ls(timeout)
                                ::egglib::http_get $id $url [list $nick $chan $uhost]
                        }
                }
        }
        if {$ls(debug)} {putlog "
\[lspost]: html parsed"}
}

proc ::ls::lspost_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "
\[lspost\] connection timed out"}
        if {$nick == "
"} {return}
        ::egglib::out $nick $chan "
nemoga da se svyrga s livescore.com..."
}

proc ::ls::ls2_on_data { id html nick chan uhost } {
        global ls
        catch {
                set country [lindex $ls(host,$uhost) 0]
                set mask [lrange $ls(host,$uhost) 1 end]
                #putlog "
country = $country , mask = $mask"
                unset ls(host,$uhost)
        }
        if {$ls(debug)} {putlog "
\[ls2\] callback executed... analyzing data..."}
       
        regsub -all -nocase -- <tr $html \n<tr html
        #::egglib::writedata "
debugls2.htm" [list $html]
       
        if {$nick != $chan} {set nick "
"}

        set cfound 0
        set cts "
"
        set title "
"
        set tshown 0
        set timedate "
"
        set tdshown 0
        set resshown 0
        set restotal 0
        foreach line [split $html \n] {
                if {$cfound == 0} {
                        if {[regexp -nocase -- {<tr><td.*><img.*name\=\"i(.*)\"\ alt.*><a\ href\=\"/default.dll\?page\=([a-z]+)\"\ on.*>(.*?)</a></td></tr>} $line garb cnum page ctr]} {
                                if {$cnum > 4} {
                                        if {$cts == "
"} {set cts $page} else {set cts "$cts\, $page"}
                                        if {$page == $country} {set cfound 1}
                                }
                        } elseif {[regexp -nocase -- {<tr><td.*><img.*name\=\"i(.*)\"\ alt.*><a\ href\=\"/default.dll\?page\=([a-z]+)\"\ class\=\"selected\">(.*?)</a></td></tr>} $line garb cnum page ctr]} {
                                if {$cnum > 4} {
                                        if {$cts == "
"} {set cts $page} else {set cts "$cts\, $page"}
                                        if {$page == $country} {set cfound 1}
                                }
                        }
                        if {[string match "
<tr><td colspan=\"4\" height=\"1\"></td></tr>" $line] && $cfound == 0} {
                                ::egglib::out $nick $chan "Доступные значения: $cts"
                                return
                        }
                }
                if {[regexp -nocase -- {^<tr.*><td\ class\=\"title\".*>\&nbsp\;<b>(.*?)</b>\ \-\ (.*?)</td></tr>} $line garb country league]} {
                        set title "
\002$country\002 - $league"
                        set tshown 0
                        set tdshown 0
                        set timedate "
"
                        #putlog "
title = $title"
                        continue
                } elseif {[regexp -nocase -- {^<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)\&nbsp\;</td></tr>$} $line garb tm dt]} {
                        if {$tm == "
"} {set timedate $dt} else {set timedate "$tm, $dt"}
                        set tdshown 0
                        #putlog "
timedate = $timedate"
                        continue
                } elseif {![regexp -nocase -- {<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)</td>.*<a.*>(.*?)</a></td><td.*>(.*?)</td>} $line garb state team1 score team2]} {
                        if {![regexp -nocase -- {<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)</td><td.*>(.*?)</td><td.*>(.*?)</td>} $line garb state team1 score team2]} {continue}
                }
                regsub -nocase {^(.*?)\-(.*?)$} $score {\1-\2} score
                set res "
($state) $team1 $score $team2"
                if {[string match $mask [string tolower $res]]} {
                        #putlog "
res = $res"
                        incr restotal
                        if {$restotal > $ls(maxres) && $nick != $chan} {continue}
                        incr resshown
                        if {$tshown == 0} {
                                ::egglib::out $nick $chan $title
                                set tshown 1
                        }
                        if {$tdshown == 0} {
                                ::egglib::out $nick $chan $timedate
                                set tdshown 1
                        }
                        ::egglib::out $nick $chan $res
                }
        }
        if {$ls(debug)} {putlog "
\[ls2\] html parsed"}
        if {$resshown < $restotal} {::egglib::out $nick $chan "
Pokazani $resshown ot $restotal (pylniq spisyk shte byde pokazan s komanda na private)."}
}

proc ::ls::ls2_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "
\[ls2\] connection timed out"}
        if {$nick == "
"} {return}
        ::egglib::out $nick $chan "
nemoga da se svyrga s livescore.com..."
}
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: online результаты

Сообщение tvrsh » 28 ноя 2010 16:56

analyzer писал(а):Скрипт выводящий в канал онлайн изменения в счете:
откуда http://livescore.com/soccer/
при изменении счета, писать минута какой счет и желательно кто забил.
пример;
Goal !!!: 87' Juventus 1-0 Genoa (A. Del Piero)


заранее благодарен

Думал что лучше брать отсюда http://livescore.com/soccer/live/
В настоящий момент там очень много онлайн матчей. Тебе интересует все, в том числе Турецкий, Молдавский и прочие чемпионатики или матчи каких-то определенных стран?
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: online результаты

Сообщение analyzer » 29 ноя 2010 18:52

в принципе, достаточно только топовых :
1.Италия
2.Испания
3.Англия
4.Германия
5.Франция
___________________
Снг:
1. Россия
2. Беларусь
3. Украина
___________________
Европа:
Лига Чемпионов
Лига Европы
___________________
На будущее =)
Чемпионат Мира
Чемпионат Европы
analyzer
 
Сообщения: 12
Зарегистрирован: 15 ноя 2010 21:57
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: online результаты

Сообщение EvilHeart » 10 май 2011 22:53

Код: Выделить всё
if {![info exists egglib(ver)]} {
        putlog "************************************************"
        putlog "             egglib_pub NOT FOUND !"
        putlog "   Download last version of egglib_pub here:"
        putlog "  http://eggdrop.org.ru/scripts/egglib_pub.zip"
        putlog "************************************************"     
        die
}

if {[expr {$egglib(ver) < 1.4}]} {
        putlog "************************************************"
        putlog "    YOUR VERSION OF egglib_pub IS TOO OLD !"
        putlog "   Download last version of egglib_pub here:"
        putlog "  http://eggdrop.org.ru/scripts/egglib_pub.zip"
        putlog "************************************************"
        putlog " version installed : $egglib(ver)"
        putlog " version required: 1.4"
        die
}

#################################################

namespace eval ls {}

setudef flag nopubls

#################################################

bind pub - !ls          ::ls::pub_ls
bind pub - !<span class="posthilit">score</span>        ::ls::pub_ls
bind pub - !livescore   ::ls::pub_ls
bind msg - !ls          ::ls::msg_ls
bind msg - !<span class="posthilit">score</span>        ::ls::msg_ls
bind msg - !livescore   ::ls::msg_ls

#################################################

foreach p [array names ls *] { catch {unset ls($p)} }

#max results per public query
set ls(maxres)          10

set ls(timeout)         20
set ls(debug)           1

set ls(use_proxy)       0
set ls(proxy_host)      "proxy1.bezeqint.net"
set ls(proxy_port)      3128

#################################################
##### DON'T CHANGE ANYTHING BELOW THIS LINE #####
#################################################

set ls(ver)             "2.0"
set ls(authors)         "Stream@RusNet <stream@eggdrop.org.ru>"
set ls(agent)           "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)"

#################################################

proc ::ls::pub_ls { nick uhost hand chan args } {
        if {[channel get $chan nopubls]} return
        set args [string tolower [string trim $args]]
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
        if {[llength $args] < 1} {::egglib::outn $nick "Izpolzvai !livescore \[-strana\] <maska>. maskata moge da sydyrga '*' i '?' ."; return}
        ::ls::ls $nick $uhost $hand $chan $args
}
proc ::ls::msg_ls { nick uhost hand args } {
        set args [string tolower [string trim $args]]
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
        if {[llength $args] < 1} {::egglib::outn $nick "Izpolzvai !livescore \[-strana\] <maska>. maskata moge da sydyrga '*' i '?' ."; return}
        ::ls::ls $nick $uhost $hand $nick $args
}

#################################################

proc ::ls::ls { nick uhost hand chan args } {
        global ls
        if {[info exists ls(host,$uhost)]} {::egglib::outn $nick "Predishnata zaqvka ne e izlylnena oshte..."; return}
        if {[llength [split [lindex $args 0]]] > 1 || [llength [split [lindex $args 0]]] == 0} {set args [split [lindex $args 0]]}
       
        if {[string range [lindex $args 0] 0 0] == "-"} {
                set country [string range [lindex $args 0] 1 end]
                set mask [lrange $args 1 end]
        } else {
                set country "ukraine"
                set mask $args
        }
       
        ::egglib::log $chan $nick "ls" "$country $mask"
        if {[string range $mask 0 0] != "*"} {set mask "*$mask"}
        if {[string range $mask end end] != "*"} {set mask "$mask\*"}
        set ls(host,$uhost) [list $country $mask]
        set url "http://www.livescore.com/default.dll?page=$country"
        set id [::egglib::http_init "::ls::ls_"]
        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
        ::egglib::http_set_timeout $id $ls(timeout)
        ::egglib::http_get $id $url [list $nick $chan $uhost]
}

proc ::ls::ls_on_data { id html nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "\[ls\] callback executed... analyzing data..."}
       
        regsub -all -nocase -- <tr $html \n<tr html
        #::egglib::writedata "debugls.htm" [list $html]
       
        foreach line [split $html \n] {
                if {[regexp -nocase -- {<html>.*robots.*refresh.*URL\=(.*?)\".*action\=\"(.*?)\".*value\=\"(.*?)\"} $line garb url posturl sid]} {
                        putlog "antibot check found. redirecting to $url & POSTing to $posturl (params sid=$sid)"
                        set url "http://www.livescore.com$url"
                        set id [::egglib::http_init "::ls::ls1_"]
                        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                        ::egglib::http_set_timeout $id 1
                        ::egglib::http_get $id $url [list $nick $chan $uhost]
                        set url "http://www.livescore.com$posturl"
                        set param "sid=$sid"
                        set id [::egglib::http_init "::ls::lspost_"]
                        if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                        ::egglib::http_set_timeout $id $ls(timeout)
                        ::egglib::http_set_method $id "POST"
                        ::egglib::http_post $id $url $param [list $nick $chan $uhost]
                        break
                }
        }
       
        if {$ls(debug)} {putlog "\[ls\] html parsed"}
}

proc ::ls::ls_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "\[ls\] connection timed out"}
        if {$nick == " "} {return}
        ::egglib::out $nick $chan "nemoga da se svyrga s livescore.com..."
}

proc ::ls::ls1_on_data { id html nick chan uhost } {
        ::egglib::writedata "debugls1.htm" [list $html]
        if {$ls(debug)} {putlog "\[ls1\] callback executed! Something is wrong..."}
}

proc ::ls::ls1_on_error { id nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "\[ls1\] connection timed out - OK"}
}

proc ::ls::lspost_on_data { id html nick chan uhost } {
        global ls
        if {$ls(debug)} {putlog "\[lspost\] callback executed... analyzing data..."}

        #::egglib::writedata "debugpost.htm" [list $html]
       
        set moved 0
        foreach line [split $html \n] {
                if {[string match "HTTP* 302 Object Moved" $line]} {set moved 1
                } elseif {$moved == 1} {
                        if {[regexp -nocase -- {^Location\:\ (.*?)$} $line garb url]} {
                                if {$ls(debug)} {putlog "recieved HTTP 302 Object Moved, new location: $url"}
                                set url "http://www.livescore.com$url"
                                set id [::egglib::http_init "::ls::ls2_"]
                                if {$ls(use_proxy)} {::egglib::http_set_proxy $id $ls(proxy_host) $ls(proxy_port)}
                                ::egglib::http_set_timeout $id $ls(timeout)
                                ::egglib::http_get $id $url [list $nick $chan $uhost]
                        }
                }
        }
        if {$ls(debug)} {putlog "\[lspost]: html parsed"}
}

proc ::ls::lspost_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "\[lspost\] connection timed out"}
        if {$nick == " "} {return}
        ::egglib::out $nick $chan "nemoga da se svyrga s livescore.com..."
}

proc ::ls::ls2_on_data { id html nick chan uhost } {
        global ls
        catch {
                set country [lindex $ls(host,$uhost) 0]
                set mask [lrange $ls(host,$uhost) 1 end]
                #putlog "country = $country , mask = $mask"
                unset ls(host,$uhost)
        }
        if {$ls(debug)} {putlog "\[ls2\] callback executed... analyzing data..."}
       
        regsub -all -nocase -- <tr $html \n<tr html
        #::egglib::writedata "debugls2.htm" [list $html]
       
        if {$nick != $chan} {set nick ""}

        set cfound 0
        set cts ""
        set title ""
        set tshown 0
        set timedate ""
        set tdshown 0
        set resshown 0
        set restotal 0
        foreach line [split $html \n] {
                if {$cfound == 0} {
                        if {[regexp -nocase -- {<tr><td.*><img.*name\=\"i(.*)\"\ alt.*><a\ href\=\"/default.dll\?page\=([a-z]+)\"\ on.*>(.*?)</a></td></tr>} $line garb cnum page ctr]} {
                                if {$cnum > 4} {
                                        if {$cts == ""} {set cts $page} else {set cts "$cts\, $page"}
                                        if {$page == $country} {set cfound 1}
                                }
                        } elseif {[regexp -nocase -- {<tr><td.*><img.*name\=\"i(.*)\"\ alt.*><a\ href\=\"/default.dll\?page\=([a-z]+)\"\ class\=\"selected\">(.*?)</a></td></tr>} $line garb cnum page ctr]} {
                                if {$cnum > 4} {
                                        if {$cts == ""} {set cts $page} else {set cts "$cts\, $page"}
                                        if {$page == $country} {set cfound 1}
                                }
                        }
                        if {[string match "<tr><td colspan=\"4\" height=\"1\"></td></tr>" $line] && $cfound == 0} {
                                ::egglib::out $nick $chan "Доступные значения: $cts"
                                return
                        }
                }
                if {[regexp -nocase -- {^<tr.*><td\ class\=\"title\".*>\&nbsp\;<b>(.*?)</b>\ \-\ (.*?)</td></tr>} $line garb country league]} {
                        set title "\002$country\002 - $league"
                        set tshown 0
                        set tdshown 0
                        set timedate ""
                        #putlog "title = $title"
                        continue
                } elseif {[regexp -nocase -- {^<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)\&nbsp\;</td></tr>$} $line garb tm dt]} {
                        if {$tm == ""} {set timedate $dt} else {set timedate "$tm, $dt"}
                        set tdshown 0
                        #putlog "timedate = $timedate"
                        continue
                } elseif {![regexp -nocase -- {<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)</td>.*<a.*>(.*?)</a></td><td.*>(.*?)</td>} $line garb state team1 <span class="posthilit">score</span> team2]} {
                        if {![regexp -nocase -- {<tr.*><td.*>\&nbsp\;(.*?)</td><td.*>(.*?)</td><td.*>(.*?)</td><td.*>(.*?)</td>} $line garb state team1 <span class="posthilit">score</span> team2]} {continue}
                }
                regsub -nocase {^(.*?)\-(.*?)$} $<span class="posthilit">score</span> {\1-\2} <span class="posthilit">score</span>
                set res "($state) $team1 $<span class="posthilit">score</span> $team2"
                if {[string match $mask [string tolower $res]]} {
                        #putlog "res = $res"
                        incr restotal
                        if {$restotal > $ls(maxres) && $nick != $chan} {continue}
                        incr resshown
                        if {$tshown == 0} {
                                ::egglib::out $nick $chan $title
                                set tshown 1
                        }
                        if {$tdshown == 0} {
                                ::egglib::out $nick $chan $timedate
                                set tdshown 1
                        }
                        ::egglib::out $nick $chan $res
                }
        }
        if {$ls(debug)} {putlog "\[ls2\] html parsed"}
        if {$resshown < $restotal} {::egglib::out $nick $chan "Pokazani $resshown ot $restotal (pylniq spisyk shte byde pokazan s komanda na private)."}
}

proc ::ls::ls2_on_error { id nick chan uhost } {
        global ls
        catch {unset ls(host,$uhost)}
        if {$ls(debug)} {putlog "\[ls2\] connection timed out"}
        if {$nick == " "} {return}
        ::egglib::out $nick $chan "nemoga da se svyrga s livescore.com..."


livesoccer.com script not work anyone update plss thanks
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8


Вернуться в Заявки на скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

cron