IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:

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

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

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

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

##  ######## ##    ## ##    #### ######## ßy rascoLn ##

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

package require http

set komut ".sans"

set kanal "#spor"
 

bind pub - $komut sans
 

proc sans {nick host hand chan text} {

global kanal

set connect [::http::geturl https://www.haberler.com/sans-oyunlari/ -timeout 1000]

        set data [::http::data $connect]

        ::http::cleanup $connect

set x 0

if { $chan == $kanal } {

set sysl1 [string range $data [expr [string first "Sayısal Loto Sonuçları
" $data]] [expr [string last "


regexp -- {(.*?)(.*?)
(.*)$} $sysl1 -> tarih hafta sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi1 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi2 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi3 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi4 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi5 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi6 sysl1

regexp -- {(.*?)(.*?)
(.*)$} $sysl1 -> tarih2 hafta2 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi7 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi8 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi9 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi10 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi11 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi12 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi13 sysl1

regexp -- {(.*?)(.*?)
(.*)$} $sysl1 -> tarih3 hafta3 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi14 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi15 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi16 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi17 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi18 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi19 sysl1

regexp -- {(.*?)(.*?)
(.*)$} $sysl1 -> tarih4 hafta4 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi20 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi21 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi22 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi23 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi24 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi25 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi26 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi27 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi28 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi29 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi30 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi31 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi32 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi33 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi34 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi35 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi36 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi37 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi38 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi39 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi40 sysl1

regexp -- {(.*?)
(.*)$} $sysl1 -> sayi41 sysl1

putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003  \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 "

putquick "privmsg $chan :-------------------------------------------------------"

putquick "privmsg $chan :\0030,1 $tarih\0038$hafta\0030 Sayısal Loto Sonuclari: \003 \0030,2  $sayi1 \003 \0030,2 $sayi2 \003 \0030,2 $sayi3 \003 \0030,2 $sayi4 \003 \0030,2 $sayi5 \003 \0030,2 $sayi6  \003"

putquick "privmsg $chan :-"

putquick "privmsg $chan :\0030,1 $tarih2\0038$hafta2\0030 Şans Topu Sonuclari: \003 \0030,3  $sayi7 \003 \0030,3 $sayi8 \003 \0030,3 $sayi9 \003 \0030,3 $sayi10 \003 \0030,3 $sayi11 \003 \0030,1  $sayi12  \003 \0030,3  $sayi13  \003"

putquick "privmsg $chan :-"

putquick "privmsg $chan :\0030,1 $tarih3\0038$hafta3\0030 Süper Loto Sonuclari: \003 \0030,4  $sayi14 \003 \0030,4 $sayi15 \003 \0030,4 $sayi16 \003 \0030,4 $sayi17 \003 \0030,4 $sayi18 \003 \0030,4  $sayi19  \003"

putquick "privmsg $chan :-"

putquick "privmsg $chan :\0030,1 $tarih4\0038$hafta4\0030 On Numara Sonuclari: \003 \0030,7  $sayi20 \003 \0030,7 $sayi21 \003 \0030,7 $sayi22 \003 \0030,7 $sayi23 \003 \0030,7 $sayi24 \003 \0030,7  $sayi25  \003 \0030,7  $sayi26  \003 \0030,7  $sayi27  \003 \0030,7  $sayi28 \003 \0030,7  $sayi29  \003 \0030,7  $sayi30  \003 \0030,7  $sayi31  \003 \0030,7  $sayi32  \003 \0030,7  $sayi33  \003 \0030,7  $sayi34  \003 \0030,7  $sayi35  \003 \0030,7  $sayi36  \003 \0030,7  $sayi37  \003 \0030,7  $sayi38  \003 \0030,7  $sayi39  \003 \0030,7  $sayi40  \003 \0030,7  $sayi41  \003"

putquick "privmsg $chan :-------------------------------------------------------"

putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003  \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 "

}

}
 

putlog "sans.tcl written ßy rascoLn"