Çevrimdışı | SANS.TCl (sayisal loto , sanstopu , süper loto ve on numara))
Sayisal loto , Sans Topu , Süper Loto ve On Numara şans oyunlarının sonuçlarını gosterir.
Komut : .sans Kod: Kodu kopyalamak için üzerine çift tıklayın! ## ######## ######## #### ## ######## ##
## ## ## ## ## ## ## ## ##
## ######## ######## ## ## ## ######## ##
## ## ## ## ## ## ## ## ##
## ######## ## ## ## #### ######## ß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 "<h3>Sayısal Loto Sonuçları</h3>" $data]] [expr [string last "<div class=\"moreLink\"><a href=\"https://www.haberler.com/on-numara/\"" $data]]]
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih hafta sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi1 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi2 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi3 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi4 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi5 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi6 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih2 hafta2 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi7 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi8 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi9 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi10 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi11 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi12 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi13 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih3 hafta3 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi14 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi15 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi16 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi17 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi18 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi19 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih4 hafta4 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi20 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi21 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi22 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi23 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi24 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi25 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi26 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi27 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi28 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi29 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi30 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi31 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi32 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi33 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi34 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi35 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi36 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi37 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi38 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi39 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi40 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $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"
Sayisal loto , Sans Topu , Süper Loto ve On Numara şans oyunlarının sonuçlarını gosterir.
Komut : .sans Kod: Kodu kopyalamak için üzerine çift tıklayın! ## ######## ######## #### ## ######## ##
## ## ## ## ## ## ## ## ##
## ######## ######## ## ## ## ######## ##
## ## ## ## ## ## ## ## ##
## ######## ## ## ## #### ######## ß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 "<h3>Sayısal Loto Sonuçları</h3>" $data]] [expr [string last "<div class=\"moreLink\"><a href=\"https://www.haberler.com/on-numara/\"" $data]]]
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih hafta sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi1 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi2 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi3 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi4 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi5 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi6 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih2 hafta2 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi7 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi8 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi9 sysl1
regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi10 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi11 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi12 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi13 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih3 hafta3 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi14 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi15 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi16 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi17 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi18 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi19 sysl1
regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih4 hafta4 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi20 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi21 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi22 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi23 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi24 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi25 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi26 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi27 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi28 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi29 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi30 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi31 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi32 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi33 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi34 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi35 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi36 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi37 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi38 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi39 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi40 sysl1
regexp -- {<li><span>(.*?)</span></li>(.*)$} $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" |