Skip to content

Instantly share code, notes, and snippets.

/talih-oyunlari.tcl

Created September 30, 2015 14:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/fb19a36a7c4b51b459db to your computer and use it in GitHub Desktop.
Save anonymous/fb19a36a7c4b51b459db to your computer and use it in GitHub Desktop.
Download ZIP
Raw
talih-oyunlari.tcl
namespace eval piyango {
# komutların başına gelecek:
variable piyangotrig "."
# onnumara komutları ne olacak
variable piyangoon "on onnu onn"
# şanstopu komutları ne olacak
variable piyangosans "şans şt şanst"
# sayısal loto komutları ne olacak:
variable piyangosay "sayı sl sloto"
# süper loto komutları ne olacak:
variable piyangosup "süper süperloto süperl"
# komutları kullanma yetkileri eggdrop kullanıcı flaglarıyla*
variable piyangoflg "-|-"
# komutlar bot özelinde kullanılsın mı ( 1 == evet , 0 == hayır )
variable piyangoozl "1"
# komutlara flood edilmemesi için her kullanıcının komutlar arasında beklemesi gereken süre ( saniye )
variable piyangofld "10"
# veri çekilen linktir.
variable piyangolink "http://sansoyunlari.hurriyet.com.tr"
}
# aktif etmek için : .chanset #kanal +piyango
setudef flag piyango
# Tcl http paketi kullanır.
package require http
# ayarların sonu....
foreach on [split $piyango::piyangoon " "] {
bind pub $piyango::piyangoflg $piyango::piyangotrig${on} ::piyango::on_pub
if {$piyango::piyangoozl >= "1"} {
bind msg $piyango::piyangoflg $piyango::piyangotrig${on} ::piyango::on_msg
}
}
foreach sans [split $piyango::piyangosans " "] {
bind pub $piyango::piyangoflg $piyango::piyangotrig${sans} ::piyango::sans_pub
if {$piyango::piyangoozl >= "1"} {
bind msg $piyango::piyangoflg $piyango::piyangotrig${sans} ::piyango::sans_msg
}
}
foreach say [split $piyango::piyangosay " "] {
bind pub $piyango::piyangoflg $piyango::piyangotrig${say} ::piyango::say_pub
if {$piyango::piyangoozl >= "1"} {
bind msg $piyango::piyangoflg $piyango::piyangotrig${say} ::piyango::say_msg
}
}
foreach sup [split $piyango::piyangosup " "] {
bind pub $piyango::piyangoflg $piyango::piyangotrig${sup} ::piyango::sup_pub
if {$piyango::piyangoozl >= "1"} {
bind msg $piyango::piyangoflg $piyango::piyangotrig${sup} ::piyango::sup_msg
}
}
namespace eval piyango {
proc on_msg {nick uhost hand text} {
::piyango::on_pub $nick $uhost $hand $nick $text
}
proc sans_msg {nick uhost hand text} {
::piyango::sans_pub $nick $uhost $hand $nick $text
}
proc say_msg {nick uhost hand text} {
::piyango::say_pub $nick $uhost $hand $nick $text
}
proc sup_msg {nick uhost hand text} {
::piyango::sup_pub $nick $uhost $hand $nick $text
}
proc on_pub {nick uhost hand chan text} {
if {![channel get $chan piyango]} { return 0 }
set host [lindex [split [getchanhost $nick $chan] @] 1]
variable piyangofld; variable throttled
if {[::piyango::throttled $host,$chan $piyangofld]} {
::piyango::notfld $nick "\002Flood yapmayın !!!\002 - \
\00314[expr {[clock seconds] - $throttled($host,$chan)}] saniye sonra deneyin ...\003"
return 0
}
::piyango::on_main $nick $uhost $hand $chan $text
}
proc sans_pub {nick uhost hand chan text} {
if {![channel get $chan piyango]} { return 0 }
set host [lindex [split [getchanhost $nick $chan] @] 1]
variable piyangofld; variable throttled
if {[::piyango::throttled $host,$chan $piyangofld]} {
::piyango::notfld $nick "\002Flood yapmayın !!!\002 - \
\00314[expr {[clock seconds] - $throttled($host,$chan)}] saniye sonra deneyin ...\003"
return 0
}
::piyango::sans_main $nick $uhost $hand $chan $text
}
proc say_pub {nick uhost hand chan text} {
if {![channel get $chan piyango]} { return 0 }
set host [lindex [split [getchanhost $nick $chan] @] 1]
variable piyangofld; variable throttled
if {[::piyango::throttled $host,$chan $piyangofld]} {
::piyango::notfld $nick "\002Flood yapmayın !!!\002 - \
\00314[expr {[clock seconds] - $throttled($host,$chan)}] saniye sonra deneyin ...\003"
return 0
}
::piyango::say_main $nick $uhost $hand $chan $text
}
proc sup_pub {nick uhost hand chan text} {
if {![channel get $chan piyango]} { return 0 }
set host [lindex [split [getchanhost $nick $chan] @] 1]
variable piyangofld; variable throttled
if {[::piyango::throttled $host,$chan $piyangofld]} {
::piyango::notfld $nick "\002Flood yapmayın !!!\002 - \
\00314[expr {[clock seconds] - $throttled($host,$chan)}] saniye sonra deneyin ...\003"
return 0
}
::piyango::sup_main $nick $uhost $hand $chan $text
}
proc on_main {nick uhost hand chan text} {
variable piyangolink
set data [::piyango::data_fetch $piyangolink/OnNumara/OnNumaraSonuclari.aspx]
#set out [list ]
regexp -- {<td align=\"center\" class=\"hurriyet2010_so_menubottom_bg\">(.*?)</td>.+align=\"center\">(.*?)</table>} $data "" sonuc toplar
regsub -all -- {(:?([0-9]){1,2})} $toplar "\\1\003 \00312,08" toplar
::piyango::postala $chan "\002$sonuc\002 : \00312,08\002$toplar\002\003"
foreach {n bir iki uc dort bes alti} [regexp -all -inline -- {hurriyet2010_so_center_text\">(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>} $data] {
#lappend out \00303$bir\003 : \00304$iki\003 - \00303$uc\003 : \00304$dort\003 - \00303$bes\003 : \00304$alti\003
set kisi1 [lindex [split [::piyango::temiz $bir] :] 0]; set bas1 [lindex [split [::piyango::temiz $bir] :] 1]; set ikr1 [lindex [split [::piyango::temiz $bir] :] 2]
set kisi2 [lindex [split [::piyango::temiz $iki] :] 0]; set bas2 [lindex [split [::piyango::temiz $iki] :] 1]; set ikr2 [lindex [split [::piyango::temiz $iki] :] 2]
set kisi3 [lindex [split [::piyango::temiz $uc] :] 0]; set bas3 [lindex [split [::piyango::temiz $uc] :] 1]; set ikr3 [lindex [split [::piyango::temiz $uc] :] 2]
set kisi4 [lindex [split [::piyango::temiz $dort] :] 0]; set bas4 [lindex [split [::piyango::temiz $dort] :] 1]; set ikr4 [lindex [split [::piyango::temiz $dort] :] 2]
set kisi5 [lindex [split [::piyango::temiz $bes] :] 0]; set bas5 [lindex [split [::piyango::temiz $bes] :] 1]; set ikr5 [lindex [split [::piyango::temiz $bes] :] 2]
set kisi6 [lindex [split [::piyango::temiz $alti] :] 0]; set bas6 [lindex [split [::piyango::temiz $alti] :] 1]; set ikr6 [lindex [split [::piyango::temiz $alti] :] 2]
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi1 "\00304\\1\003 \00312\\2\003" kisi1
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi2 "\00304\\1\003 \00312\\2\003" kisi2
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi3 "\00304\\1\003 \00312\\2\003" kisi3
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi4 "\00304\\1\003 \00312\\2\003" kisi4
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi5 "\00304\\1\003 \00312\\2\003" kisi5
regsub -line -- {(:?\D+|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi6 "\00311\\1\003 \00312\\2\003" kisi6
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas1 "\00304\\1\003 \00312\\2\003" bas1
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas2 "\00304\\1\003 \00312\\2\003" bas2
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas3 "\00304\\1\003 \00312\\2\003" bas3
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas4 "\00304\\1\003 \00312\\2\003" bas4
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas5 "\00304\\1\003 \00312\\2\003" bas5
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas6 "\00304\\1\003 \00312\\2\003" bas6
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr1 "\00310\\1\003 \00314\\2\003" ikr1; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr2 "\00310\\1\003 \00314\\2\003" ikr2
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr3 "\00310\\1\003 \00314\\2\003" ikr3; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr4 "\00310\\1\003 \00314\\2\003" ikr4
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr5 "\00310\\1\003 \00314\\2\003" ikr5; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr6 "\00310\\1\003 \00314\\2\003" ikr6
::piyango::postala $chan "$kisi1 : $bas1 : $ikr1 \002|\002 $kisi2 : $bas2 : $ikr2"
::piyango::postala $chan "$kisi3 : $bas3 : $ikr3 \002|\002 $kisi4 : $bas4 : $ikr4"
::piyango::postala $chan "$kisi5 : $bas5 : $ikr5 \002|\002 $kisi6 : $bas6 : $ikr6"
}
#::piyango::postala $chan "[join $out]"
return 0
}
proc sans_main {nick uhost hand chan text} {
variable piyangolink
set data [::piyango::data_fetch $piyangolink/SansTopu/SansTopuSonuclari.aspx]
#set out [list ]
regexp -- {<td align=\"center\" class=\"hurriyet2010_so_menubottom_bg\">(.*?)</td>.+ align=\"center\">(.*?)</td>} $data "" sonuc toplar
regsub -all -- {(:?([0-9]){1,2}|\+)} $toplar "\\1\003 \00312,08" toplar
::piyango::postala $chan "\002$sonuc\002 : \00312,08\002$toplar\002\003"
foreach {n bir iki uc dort bes alti yedi sekiz} [regexp -all -inline -- {hurriyet2010_so_center_text\">(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>} $data] {
#lappend out \00303$bir\003 : \00304$iki\003 - \00303$uc\003 : \00304$dort\003 - \00303$bes\003 : \00304$alti\003 - \00303$yedi\003 : \00304$sekiz\003
set kisi1 [lindex [split [::piyango::temiz $bir] :] 0]; set bas1 [lindex [split [::piyango::temiz $bir] :] 1]; set ikr1 [lindex [split [::piyango::temiz $bir] :] 2]
set kisi2 [lindex [split [::piyango::temiz $iki] :] 0]; set bas2 [lindex [split [::piyango::temiz $iki] :] 1]; set ikr2 [lindex [split [::piyango::temiz $iki] :] 2]
set kisi3 [lindex [split [::piyango::temiz $uc] :] 0]; set bas3 [lindex [split [::piyango::temiz $uc] :] 1]; set ikr3 [lindex [split [::piyango::temiz $uc] :] 2]
set kisi4 [lindex [split [::piyango::temiz $dort] :] 0]; set bas4 [lindex [split [::piyango::temiz $dort] :] 1]; set ikr4 [lindex [split [::piyango::temiz $dort] :] 2]
set kisi5 [lindex [split [::piyango::temiz $bes] :] 0]; set bas5 [lindex [split [::piyango::temiz $bes] :] 1]; set ikr5 [lindex [split [::piyango::temiz $bes] :] 2]
set kisi6 [lindex [split [::piyango::temiz $alti] :] 0]; set bas6 [lindex [split [::piyango::temiz $alti] :] 1]; set ikr6 [lindex [split [::piyango::temiz $alti] :] 2]
set kisi7 [lindex [split [::piyango::temiz $yedi] :] 0]; set bas7 [lindex [split [::piyango::temiz $yedi] :] 1]; set ikr7 [lindex [split [::piyango::temiz $yedi] :] 2]
set kisi8 [lindex [split [::piyango::temiz $sekiz] :] 0]; set bas8 [lindex [split [::piyango::temiz $sekiz] :] 1]; set ikr8 [lindex [split [::piyango::temiz $sekiz] :] 2]
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi1 "\00304\\1\003 \00312\\2\003" kisi1
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi2 "\00304\\1\003 \00312\\2\003" kisi2
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi3 "\00304\\1\003 \00312\\2\003" kisi3
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi4 "\00304\\1\003 \00312\\2\003" kisi4
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi5 "\00304\\1\003 \00312\\2\003" kisi5
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi6 "\00304\\1\003 \00312\\2\003" kisi6
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi7 "\00304\\1\003 \00312\\2\003" kisi7
regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi8 "\00304\\1\003 \00312\\2\003" kisi8
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas1 "\00304\\1\003 \00312\\2\003" bas1
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas2 "\00304\\1\003 \00312\\2\003" bas2
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas3 "\00304\\1\003 \00312\\2\003" bas3
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas4 "\00304\\1\003 \00312\\2\003" bas4
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas5 "\00304\\1\003 \00312\\2\003" bas5
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas6 "\00304\\1\003 \00312\\2\003" bas6
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas7 "\00304\\1\003 \00312\\2\003" bas7
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas8 "\00304\\1\003 \00312\\2\003" bas8
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr1 "\00310\\1\003 \00314\\2\003" ikr1; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr2 "\00310\\1\003 \00314\\2\003" ikr2
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr3 "\00310\\1\003 \00314\\2\003" ikr3; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr4 "\00310\\1\003 \00314\\2\003" ikr4
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr5 "\00310\\1\003 \00314\\2\003" ikr5; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr6 "\00310\\1\003 \00314\\2\003" ikr6
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr7 "\00310\\1\003 \00314\\2\003" ikr7; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr8 "\00310\\1\003 \00314\\2\003" ikr8
::piyango::postala $chan "$kisi1 : $bas1 : $ikr1 \002|\002 $kisi2 : $bas2 : $ikr2"
::piyango::postala $chan "$kisi3 : $bas3 : $ikr3 \002|\002 $kisi4 : $bas4 : $ikr4"
::piyango::postala $chan "$kisi5 : $bas5 : $ikr5 \002|\002 $kisi6 : $bas6 : $ikr6"
::piyango::postala $chan "$kisi7 : $bas7 : $ikr7 \002|\002 $kisi8 : $bas8 : $ikr8"
}
#set out [::piyango::onar [encoding convertfrom utf-8 $out]]
#::piyango::postala $chan "[join $out]"
return 0
}
proc sup_main {nick uhost hand chan text} {
variable piyangolink
set data [::piyango::data_fetch $piyangolink/SuperLoto/SuperLotoSonuclari.aspx]
#set out [list ]
regexp -- {<td align=\"center\" class=\"hurriyet2010_so_menubottom_bg\">(.*?)</td>.+ align=\"center\">(.*?)</td>} $data "" sonuc toplar
regsub -all -- {(:?([0-9]){1,2})} $toplar "\\1\003 \00312,08" toplar
::piyango::postala $chan "\002$sonuc\002 : \00312,08\002$toplar\002\003"
foreach {n bir iki uc dort} [regexp -all -inline -- {hurriyet2010_so_center_text\">(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>} $data] {
#lappend out \00303$bir\003 : \00304$iki\003 - \00303$uc\003 : \00304$dort\003
set kisi1 [lindex [split [::piyango::temiz $bir] :] 0]; set bas1 [lindex [split [::piyango::temiz $bir] :] 1]; set ikr1 [lindex [split [::piyango::temiz $bir] :] 2]
set kisi2 [lindex [split [::piyango::temiz $iki] :] 0]; set bas2 [lindex [split [::piyango::temiz $iki] :] 1]; set ikr2 [lindex [split [::piyango::temiz $iki] :] 2]
set kisi3 [lindex [split [::piyango::temiz $uc] :] 0]; set bas3 [lindex [split [::piyango::temiz $uc] :] 1]; set ikr3 [lindex [split [::piyango::temiz $uc] :] 2]
set kisi4 [lindex [split [::piyango::temiz $dort] :] 0]; set bas4 [lindex [split [::piyango::temiz $dort] :] 1]; set ikr4 [lindex [split [::piyango::temiz $dort] :] 2]
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi1 "\00304\\1\003 \00312\\2\003" kisi1
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi2 "\00304\\1\003 \00312\\2\003" kisi2
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi3 "\00304\\1\003 \00312\\2\003" kisi3
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi4 "\00304\\1\003 \00312\\2\003" kisi4
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas1 "\00304\\1\003 \00312\\2\003" bas1
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas2 "\00304\\1\003 \00312\\2\003" bas2
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas3 "\00304\\1\003 \00312\\2\003" bas3
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas4 "\00304\\1\003 \00312\\2\003" bas4
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr1 "\00310\\1\003 \00314\\2\003" ikr1; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr2 "\00310\\1\003 \00314\\2\003" ikr2
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr3 "\00310\\1\003 \00314\\2\003" ikr3; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr4 "\00310\\1\003 \00314\\2\003" ikr4
::piyango::postala $chan "$kisi1 : $bas1 : $ikr1"
::piyango::postala $chan "$kisi2 : $bas2 : $ikr2"
::piyango::postala $chan "$kisi3 : $bas3 : $ikr3"
::piyango::postala $chan "$kisi4 : $bas4 : $ikr4"
}
#::piyango::postala $chan "[join $out]"
return 0
}
proc say_main {nick uhost hand chan text} {
variable piyangolink
set data [::piyango::data_fetch $piyangolink/SayisalLoto/SayisalLotoSonuclari.aspx]
#set out [list ]
regexp -- {<td align=\"center\" class=\"hurriyet2010_so_menubottom_bg\">(.*?)</td>.+ align=\"center\">(.*?)</td>} $data "" sonuc toplar
regsub -all -- {(:?([0-9]){1,2})} $toplar "\\1\003 \00312,08" toplar
::piyango::postala $chan "\002$sonuc\002 : \00312,08\002$toplar\002\003"
foreach {n bir iki uc dort} [regexp -all -inline -- {hurriyet2010_so_center_text\">(.*?)</tr>(.*?)</tr>(.*?)</tr>(.*?)</tr>} $data] {
#lappend out \00303$bir\003 : \00304$iki\003 - \00303$uc\003 : \00304$dort\003
#regexp {^(.+?):(.+?):(.+?)$} $bir - a1 a2 a3; regexp {^(.+?):(.+?):(.+?)$} $iki - b1 b2 b3
#regexp {^(.+?):(.+?):(.+?)$} $uc - c1 c2 c3; regexp {^(.+?):(.+?):(.+?)$} $dort - d1 d2 d3
#::piyango::postala $chan "\00304[lindex [split $a1] 0]\003 \00305[join [lrange [split $a1] 1 end]]\003 : \
#\00304[lindex [split $a2] 0]\003 \00303[join [lrange [split $a2] 1 end]]\003 : \00310[lindex [split $a3] 0]\003 \00311[lindex [split $a3] 1]\003"
#::piyango::postala $chan "[lindex [split $b1] 0] [join [lrange [split $b1] 1 end]] : [lindex [split $b2] 0] [join [lrange [split $b2] 1 end]] : [lindex [split $b3] 0] [lindex [split $b3] 1]"
#::piyango::postala $chan "[lindex [split $c1] 0] [join [lrange [split $c1] 1 end]] : [lindex [split $c2] 0] [join [lrange [split $c2] 1 end]] : [lindex [split $c3] 0] [lindex [split $c3] 1]"
#::piyango::postala $chan "[lindex [split $d1] 0] [join [lrange [split $d1] 1 end]] : [lindex [split $d2] 0] [join [lrange [split $d2] 1 end]] : [lindex [split $d3] 0] [lindex [split $d3] 1]"
set kisi1 [lindex [split [::piyango::temiz $bir] :] 0]; set bas1 [lindex [split [::piyango::temiz $bir] :] 1]; set ikr1 [lindex [split [::piyango::temiz $bir] :] 2]
set kisi2 [lindex [split [::piyango::temiz $iki] :] 0]; set bas2 [lindex [split [::piyango::temiz $iki] :] 1]; set ikr2 [lindex [split [::piyango::temiz $iki] :] 2]
set kisi3 [lindex [split [::piyango::temiz $uc] :] 0]; set bas3 [lindex [split [::piyango::temiz $uc] :] 1]; set ikr3 [lindex [split [::piyango::temiz $uc] :] 2]
set kisi4 [lindex [split [::piyango::temiz $dort] :] 0]; set bas4 [lindex [split [::piyango::temiz $dort] :] 1]; set ikr4 [lindex [split [::piyango::temiz $dort] :] 2]
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi1 "\00304\\1\003 \00312\\2\003" kisi1
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi2 "\00304\\1\003 \00312\\2\003" kisi2
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi3 "\00304\\1\003 \00312\\2\003" kisi3
regsub -line -- {(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)} $kisi4 "\00304\\1\003 \00312\\2\003" kisi4
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas1 "\00304\\1\003 \00312\\2\003" bas1
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas2 "\00304\\1\003 \00312\\2\003" bas2
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas3 "\00304\\1\003 \00312\\2\003" bas3
regsub -line -- {^\s(:?\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)$} $bas4 "\00304\\1\003 \00312\\2\003" bas4
#regsub -line -- {(:?\d\+\d|\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?):(\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3})(.*?)\
#:(\d{1,3}|\d{1,3}\.|\d{1,3}\.\d{1,3}|\d{1,3}\.\d{1,3}\.\d{1,3}||\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,2})(.*?)} $bir "\00304\\1\003\00312\\2\003 : \00304\\3\003\00312\\4\003 : \00310\\5\003\00311\\6\003" bir
#::piyango::postala $chan "$bir"
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr1 "\00310\\1\003 \00314\\2\003" ikr1; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr2 "\00310\\1\003 \00314\\2\003" ikr2
regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr3 "\00310\\1\003 \00314\\2\003" ikr3; regsub -line -- {^\s([^\s]+)\s(.*?)$} $ikr4 "\00310\\1\003 \00314\\2\003" ikr4
::piyango::postala $chan "$kisi1 : $bas1 : $ikr1"
::piyango::postala $chan "$kisi2 : $bas2 : $ikr2"
::piyango::postala $chan "$kisi3 : $bas3 : $ikr3"
::piyango::postala $chan "$kisi4 : $bas4 : $ikr4"
}
#::piyango::postala $chan "[join $out]"
return 0
}
proc temiz {str} {
set str [string map {\} "" \{ ""} $str]
regsub -all -- {<strong>(.*?)</strong>} $str "\002\\1\002" str
regsub -all -- {<.*?>} $str "" str
regsub -all -- {\s+} [string trim $str] " " str
regsub -all -- {&nbsp;} $str " " str
return $str
}
#proc onar {str} {
# return [string map {"KiÅŸi" "Kişi" "Sayısı" "Sayısı" "Başına" "Başına" "Düşen" "Düşen" "Ä°kramiye" "İkramiye"} $str]
#}
proc notfld {hedef posta} {
putserv "notice $hedef :$posta"
}
proc postala {nere ne} {
putserv "privmsg $nere :[::piyango::temiz $ne]"
}
proc data_fetch {url} {
set ua "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5"
::http::config -useragent $ua -urlencoding "utf-8"
if {[catch { set token [::http::geturl $url -timeout [expr {1000*15}]] } token]} {
putlog "Hata : $token"
return 0
} elseif {![string equal -nocase [::http::status $token] "ok"] || ![string equal [::http::ncode $token] 200]} {
putlog "Hata : ( [::http::ncode $token] ) [::http::status $token]"
::http::cleanup $token
return 0
} else {
set data [::http::data $token]
::http::cleanup $token
}
return [split $data \n]
}
# -> http://is.gd/SVU9r1
proc throttled {id time} {
if {[info exists ::piyango::throttled($id)]} {
return 1
} {
set ::piyango::throttled($id) [clock seconds]
utimer $time [list unset ::piyango::throttled($id)]
return 0
}
}
putlog "[lindex [split [info script] /] 1] ok..."
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment