Eggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads
[03:55] --- 
Loading eggdrop v1.6.17 (Mon Feb 20 2012)
[03:55] Module loaded: 
channels
[03:55] Module loaded: server
[03:55] Module loaded: 
ctcp
[03:55] Module loaded: irc
[03:55] Module loaded: 
notes            (with 
lang support)
[03:55] Module loaded: 
console          (with lang 
support)
[03:55] Module loaded: blowfish
[03:55] Module loaded: 
uptime
[03:55] Userinfo TCL v1.07 loaded (URL BF GF IRL EMAIL DOB PHONE 
ICQ).
[03:55] use '.help userinfo' for commands.
[03:55] Tcl error in file 
'ligtv.conf':
[03:55] can't find package http 2.7
    while 
executing
"package require http 2.7  "
    (in 
namespace eval "::ls" script line 33)
    invoked from 
within
"namespace eval ls {
# deðiþkenleri 
ayarlayabilirsiniz..
foreach p [array names ls *] { catch {unset ls($p) } 
}

 
# kodu kanalýnýza partyline'dan (...."
    (file 
"scripts/ls.tcl" line 15)
    invoked from within
"source 
scripts/ls.tcl"
    (file "ligtv.conf" line 75)
[03:55] * 
CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
-bash-4.1$ 

package require http 2.7

source scripts/http.tcl

###
#
# livescore.tcl livescore.com sitesinden canlı maç akışı sağlar.
#
###
#
# kurulum: 
#         1. ls.tcl dosyasını botunuzun /scripts klasörüne kopyalayın
#         2. eggdrop.conf dosyasını açıp source scripts/ls.tcl  şeklinde script listesine ekleyin
#         3. botunuzu .rehash komutuyla yeniden yükleyin.
#       "bu script'in çalışabilmesi için http 2.7 ve üstü gereklidir ."
#       " tcl8.5 ve üstü version makinanizda varsa çalisacaktir "
#       "yoksa http.tcl ayri olarak bot/scripts icine atip .conf uzerinde gosterin "
###
namespace eval ls {
foreach p [array names ls *] { catch {unset ls($p)} }
# kodu kanalınıza partyline'dan (.chanset #kanaliniz +ls )komutuyla ayarlayın.
setudef flag ls
##################################
# buradan değişmek istediğiniz   #
# ayarları yapabilirsiniz.       #
##########################################################
# ONEMLI: -live canli gormek istediginiz ulke adlarini  ##
# ingilizce karsiliginda bosluk birakarak ekleyin       ##
#  yada silin                                           ##
##########################################################
 variable ls
 array set ls {
        pref {!}
     binds {ls}
     msg 1
     delay 10
        live "Turkey England Italy Spain Germany France Russia Japan Brazil Argentina Portugal Belgium Holland Scotland Bolivia Chile Colombia Ecuador Paraguay Uruguay Venezuela Mexico USA Greece Denmark Sweden Switzerland Norway Bulgaria Serbia Ukraine"
        color1 \00314
        color2 \00303
        color3 \00305
        color4 \00308
        color5 \00304
 }
###                                                                             ###
# Burdan itibaren kodlamalar başlıyor.tcl kodlaması bilmiyorsanız oynamamalısınız #
# bu tcl script çalışabilmesi için http 2.7 ve üstü gereklidir .                .  #
###                                                                             ###                                 
package require http 2.7  
# bu kisimda ls icin kullanilacak komut ve mesajlari iletim sekli belirleniyor..
foreach bind [split $ls(binds) " "] {
    bind pub -|- "$ls(pref)$bind" ::ls::ls_pub
    if {$ls(msg) >= 1} {
        bind msg -|- "$ls(pref)$bind" ::ls::ls_msg
    }
}
# alinan komutu isleme proseduru.
proc ::ls::ls_msg {nick uhost hand text} {
    variable ls
    ::ls::ls_proc $nick $uhost $hand $nick [lindex [split $text] 0]
}
# Prosedürü işleme aliniyor.
proc ::ls::ls_pub {nick uhost hand chan text} {
    variable ls
    # durumdaki değişikliklere bakılıyor.
    if {![channel get $chan ls]} { 
        return 0
    }
    ::ls::ls_proc $nick $uhost $hand $chan [lindex [split $text] 0]
}
#  istek izleme prosedürü.
proc ::ls::ls_proc {nick uhost hand chan text} {
    global lastbind
    variable ls 
    if {[info exists ls(lasttime,$chan)] && [expr $ls(lasttime,$chan) + $ls(delay)] > [clock seconds]} {
        putserv "NOTICE $nick :$ls(color1)Komutlari ayni anda bir kez kullanin $ls(color2)$ls(delay) $ls(color1)[lindex {. Saniye Saniye Saniye} [::ls::numgrp $ls(delay)]]. komutlar arasi bekleme suresi vardir."
        putserv "NOTICE $nick :$ls(color1)Sabredin $ls(color3)[expr $ls(delay) - [expr [clock seconds] - $ls(lasttime,$chan)]] $ls(color1)[lindex {. tane tane tane } [::ls::numgrp [expr $ls(delay) - [expr [clock seconds] - $ls(lasttime,$chan)]]]] daha istek siraya alindi.Iletim tamamlandiktan sonra baska bir istek daha yapabilirsiniz."
        return 0
    }
    if {$text == ""} {
        putserv "PRIVMSG $chan :$ls(color1)Kullanim $ls(color3)!ls $ls(color2)\[-all\] $ls(color1) Tum oynanmis maclarin gosterimi icin kullanin, \003"
  putserv "PRIVMSG $chan :$ls(color3)!ls $ls(color2)\[Ulke Adi÷\] $ls(color1) Bu ülkede oynanan maçlarin (Tum Alt Ligleriyle Birlikte) sonuclarini gosterir.\003"
        putserv "PRIVMSG $chan :$ls(color1)Kullanim $ls(color3)!ls $ls(color2)\[-live\] $ls(color1) Su anda oynanan maclardaki durumu $ls(color3)canli $ls(color1)olarak gosterir.\003"
        return 0
    }
 
    if {[string match "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*" $text]} {
        ::ls::ls_proc_2 $nick $uhost $hand $chan $text
        return 0
    }
    if {[string range [lindex [split $text] 0] 0 0] == "-"} {
       set country [string range [lindex [split $text] 0] 1 end]
       set lsurl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    } elseif {[string range [lindex [split $text] 0] 1 end] == "-live"} {
       set lsurl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    } else {
       set country "Turkey"
       set lsurl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    }
 # sitedeki kaynak kodlarindan veri cekilmesi icin gerekli kisim
    ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)"
    set ls_tok [::http::geturl "$lsurl" -timeout 15000]  
    set data [::http::data $ls_tok]
    ::http::cleanup $ls_tok
    putlog "\[ls\] $nick/$chan"
    regsub -all {^.*?> } $data "" data
    regsub -all {Home</a>.*?$} $data "" data
    regsub -all {<td class="title".*?>} $data "|" data
    foreach country_ [split $ls(live)] {
        foreach line [split $data "|"] {
            if {[regexp -nocase -- {<b>(.*?)</b> - (.*?)</td>} $line -> country liga]} {           
                if {$country == $country_} {
                    set line [string map {"&amp;" "&" "<b>" "\002" "</b>" "\002" "<td>" "" "</td>" "" "<tr>" "" "</tr>" "" "</table>" "" "</a>" "" "</iframe>" ""} $line]
                    regsub -all {<td .*?>} $line "$ls(color1) " line
                    regsub -all {<tr .*?>} $line "" line
                    regsub -all {<table .*?>} $line "" line
                    regsub -all {<iframe .*?>} $line "" line
                    regsub -all {<img src="[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]".*?>} $line "\002$ls(color5)LIVE!\002" line
                    regsub -all {<img .*?>} $line "" line
                    putserv "PRIVMSG $chan :$ls(color3)$country $ls(color1)- $ls(color2)$liga"
                    regsub -all { &nbsp;} $line "|" line
                    foreach subline [split $line "|"] {
                        if {[string match "*href=\"\/default.dll\/game\?comp*" $subline]} {
                            set game ""
                            regexp {href="\/default.dll\/game\?(.*?)">} $subline "" game           
                            regsub -all {<a .*?>} $subline "$ls(color2)" subline
                            if {$game != ""} {
                                append subline "$ls(color3)$lastbind \037\00312http://livescore.com/default.dll/game\?$game\037"
                            }
                            regsub -all {  } $subline "" subline
                            putserv "PRIVMSG $chan :$ls(color4)$subline\003"
                        } 
                    }
                }
            }   
        }
    }
    set ls(lasttime,$chan) [clock seconds]
    return 0
}
# sitenin kaynak kodlari isleniyor elenip alinan veri komutla kanala veriliyor.
proc ::ls::ls_proc_2 {nick uhost hand chan text} {
    variable ls 
    ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)"
    set ls_tok [::http::geturl "$text" -timeout 15000]  
    set data [::http::data $ls_tok]
    ::http::cleanup $ls_tok
    regsub -all {^.*?<tr class=\"title\">} $data "" data
    regsub -all {<table .*?$} $data "" data
    foreach line [split $data "\n"] {
        set line [string map {"<b>" "\002" </b> "\002" "<td>" "" "</td>" "" "<tr>" "" "</tr>" "" "</font>" "" "</a>" "\002"} $line]
        regsub -all {<td .*?>} $line " " line
        regsub -all {<tr .*?>} $line "" line
        regsub -all {<font .*?>} $line "" line
        regsub -all {<img .*?goal.gif.*?>} $line "\002$ls(color3)Goal!\003\002" line
        regsub -all {<img .*?yellow.gif.*?>} $line "\002$ls(color4)Yellow Card!\003\002" line
        regsub -all {<img .*?red.gif.*?>} $line "\002$ls(color5)Red Card!\003\002" line
        regsub -all {<img .*?flash.gif.*?>} $line "" line
        if {$line != " "} {
            putserv "PRIVMSG $chan :$line"
        }
    }
    set ls(lasttime,$chan) [clock seconds]
    return 0
}
proc ::ls::numgrp {number} { 
    switch -glob -- "$number" { 
        *11 {return 3} 
        *12 {return 3} 
        *13 {return 3} 
        *14 {return 3} 
        *1 {return 1} 
        *2 {return 2} 
        *3 {return 2} 
        *4 {return 2} 
        default {return 3} 
    }
}
# kod başarıyla yüklenince alınacak mesaj..
putlog "\[ls\] yuklendi."
}