| immortaL | 29 Haziran 2016 18:14 |
Sınema tcl
Kod:
#######################################################################################################
## SINEMA.TCL By rascoLn ##
## ##
## Komut : .sinema vizyon -- Vizyondaki Filmleri Gosterir. ##
## Komut : .sinema yakinda -- Bir Sonraki Hafta Vizyona Girecek Filmleri Gosterir. ##
## Komut : .sinema salonlari (sehir ismi) -- Belirtilen sehrin semt semt sinema salonlarini verir ##
## ##
## NOT : istanbul sehri icin sehir olarak istanbul yazmiyorsunuz. ##
## Avrupa yakasi icin : .sinema salonlari avrupa ##
## Anadolu yakasi icin : .sinema salonlari anadolu ##
#######################################################################################################
package require http
bind pub - .sinema kanal
bind msg - .sinema ozel
proc ozel {nick host hand text} {
if { [lindex $text 0] == "salonlari" } {
set sehir [lindex $text 1]
set baglan6 [::http::geturl "https://www.sinemalar.com/sinemasalonlari" -timeout 25000]
set data1 [split [::http::data $baglan6] \n]
::http::cleanup $baglan6
if { $sehir == "avrupa" } {
putquick "privmsg $nick :\002----------------------------------------\002"
putquick "privmsg $nick :\002İstanbul Avrupa Yakası Sinema Salonları :\002"
putquick "privmsg $nick :\002----------------------------------------\002"
set baglan5 [::http::geturl "https://www.sinemalar.com/sinemasalonlari/164/istanbul-$sehir" -timeout 25000]
set data2 [split [::http::data $baglan5] \n]
::http::cleanup $baglan5
foreach i $data2 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $nick :\0034[degis [lindex $i 4]] Sinemalari :\003 https://www.sinemalar.com/sinemasalonlari/164/istanbul-$sehir[string map -nocase {"href=" "" "\"" ""} [lindex $i 8]]"]
utimer 2[list putquick "privmsg $nick :\002------------------------------------------\002"]
}
}
} elseif { $sehir == "anadolu" } {
putquick "privmsg $nick :\002------------------------------------------\002"
putquick "privmsg $nick :\002İstanbul Anadolu Yakası Sinema Salonları :\002"
putquick "privmsg $nick :\002------------------------------------------\002"
set baglan4 [::http::geturl "https://www.sinemalar.com/sinemasalonlari/165/istanbul-$sehir" -timeout 25000]
set data3 [split [::http::data $baglan4] \n]
::http::cleanup $baglan4
foreach i $data3 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $nick :\0034[degis [lindex $i 4]] Sinemalari :\003 https://www.sinemalar.com/sinemasalonlari/165/istanbul-$sehir[string map -nocase {"href=" "" "\"" ""} [lindex $i 8]]"]
utimer 2[list putquick "privmsg $nick :\002------------------------------------------\002"]
}
}
} else {
foreach i $data1 {
if {[string match -nocase "*$sehir*" [string map -nocase {"þ" "ş" "ÅŸ" "Ş" "´" "'" "±" "ı" "ö" "ö" "ü" "ü"} [encoding convertfrom utf-8 $i]]]} {
putquick "privmsg $nick :\002---------------------------------\002"
putquick "privmsg $nick :\002$sehir Şehri Sinema Salonları :\002"
putquick "privmsg $nick :\002---------------------------------\002"
set conn1 "[lindex [string map -nocase {"href=\"" "" "\">" " "} [lindex $i 5]] 0]"
set baglan3 [::http::geturl "$conn1" -timeout 25000]
set data4 [split [::http::data $baglan3] \n]
::http::cleanup $baglan3
foreach i $data4 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $nick :\0034[degis [lindex $i 3]] Sinemalari :\003 $conn1[string map -nocase {"href=" "" "\"" ""} [lindex $i 7]]"]
utimer 2[list putquick "privmsg $nick :\002---------------------------------\002"]
}
}
}
}
}
}
if { [lindex $text 0] == "yakinda" } {
set baglan1 [::http::geturl "https://www.sinemalar.com/filmler/pekyakinda" -timeout 25000]
set data5 [::http::data $baglan1]
::http::cleanup $baglan1
set konu1 [string range $data5 [expr [string first "Vizyona Gelecek Filmler" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {(.*)$} $konu1 -> tarih konu1
putquick "privmsg $nick :\002-----------------------------------------------------\002"
putquick "privmsg $nick :\0034[degis [string map -nocase {"Bu" "Önümüzdeki" "Girecekler" "Girecek Filmler"} $tarih]]\003"
putquick "privmsg $nick :\002-----------------------------------------------------\002"
while {[regexp -- {(.*)$} $konu1 -> film1 link1 konu1]} {
putquick "privmsg $nick :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film ismi : \002[degis $film1]\002"
putquick "privmsg $nick :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film link : $link1"
putquick "privmsg $nick :-"
}
putquick "privmsg $nick :\002-------------------------------------------\002"
}
switch -- $text {
"vizyon" {
set baglan2 [::http::geturl "https://www.sinemalar.com/filmler/vizyondaki" -timeout 25000]
set data6 [::http::data $baglan2]
::http::cleanup $baglan2
set konu2 [string range $data6 [expr [string first "Bu Hafta Vizyona Girenler" $data6]] [expr [string last "1 Hafta Önce Vizyona Girenler" $data6]]]
putquick "privmsg $nick :\002-------------------------------\002"
putquick "privmsg $nick :\0034Bu Hafta Vizyona Giren Filmler:\003"
putquick "privmsg $nick :\002-------------------------------\002"
while {[regexp -- {Seanslar(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {(.*?)(.*)$} $konu2 -> rating konu2
putquick "privmsg $nick :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film ismi :\002 [lrange [degis $film2] 0 end-1] ->\002 \0038,1 IMDB : (\0030 $rating \0038/\00311 10 \0038) \003"
putquick "privmsg $nick :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film link : [string map -nocase {"seans" "film"} $link2]"
putquick "privmsg $nick :-"
}
putquick "privmsg $nick :\002------------------------------\002"
}
}
}
proc kanal {nick host hand chan text} {
if { [lindex $text 0] == "salonlari" } {
set sehir [lindex $text 1]
set baglan6 [::http::geturl "https://www.sinemalar.com/sinemasalonlari" -timeout 25000]
set data1 [split [::http::data $baglan6] \n]
::http::cleanup $baglan6
if { $sehir == "avrupa" } {
putquick "privmsg $chan :\002----------------------------------------\002"
putquick "privmsg $chan :\002İstanbul Avrupa Yakası Sinema Salonları :\002"
putquick "privmsg $chan :\002----------------------------------------\002"
set baglan5 [::http::geturl "https://www.sinemalar.com/sinemasalonlari/164/istanbul-$sehir" -timeout 25000]
set data2 [split [::http::data $baglan5] \n]
::http::cleanup $baglan5
foreach i $data2 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $chan :\0034[degis [lindex $i 4]] Sinemalari :\003 https://www.sinemalar.com/sinemasalonlari/164/istanbul-$sehir[string map -nocase {"href=" "" "\"" ""} [lindex $i 8]]"]
utimer 2[list putquick "privmsg $chan :\002------------------------------------------\002"]
}
}
} elseif { $sehir == "anadolu" } {
putquick "privmsg $chan :\002------------------------------------------\002"
putquick "privmsg $chan :\002İstanbul Anadolu Yakası Sinema Salonları :\002"
putquick "privmsg $chan :\002------------------------------------------\002"
set baglan4 [::http::geturl "https://www.sinemalar.com/sinemasalonlari/165/istanbul-$sehir" -timeout 25000]
set data3 [split [::http::data $baglan4] \n]
::http::cleanup $baglan4
foreach i $data3 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $chan :\0034[degis [lindex $i 4]] Sinemalari :\003 https://www.sinemalar.com/sinemasalonlari/165/istanbul-$sehir[string map -nocase {"href=" "" "\"" ""} [lindex $i 8]]"]
utimer 2[list putquick "privmsg $chan :\002------------------------------------------\002"]
}
}
} else {
foreach i $data1 {
if {[string match -nocase "*$sehir*" [string map -nocase {"þ" "ş" "ÅŸ" "Ş" "´" "'" "±" "ı" "ö" "ö" "ü" "ü"} [encoding convertfrom utf-8 $i]]]} {
putquick "privmsg $chan :\002---------------------------------\002"
putquick "privmsg $chan :\002$sehir Şehri Sinema Salonları :\002"
putquick "privmsg $chan :\002---------------------------------\002"
set conn1 "[lindex [string map -nocase {"href=\"" "" "\">" " "} [lindex $i 5]] 0]"
set baglan3 [::http::geturl "$conn1" -timeout 25000]
set data4 [split [::http::data $baglan3] \n]
::http::cleanup $baglan3
foreach i $data4 {
if {[string match -nocase "*class=\"select-city\"*" $i]} {
utimer 2[list putquick "privmsg $chan :\0034[degis [lindex $i 3]] Sinemalari :\003 $conn1[string map -nocase {"href=" "" "\"" ""} [lindex $i 7]]"]
utimer 2[list putquick "privmsg $chan :\002---------------------------------\002"]
}
}
}
}
}
}
if { [lindex $text 0] == "yakinda" } {
set baglan1 [::http::geturl "https://www.sinemalar.com/filmler/pekyakinda" -timeout 25000]
set data5 [::http::data $baglan1]
::http::cleanup $baglan1
set konu1 [string range $data5 [expr [string first "Vizyona Gelecek Filmler" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {(.*)$} $konu1 -> tarih konu1
putquick "privmsg $chan :\002-----------------------------------------------------\002"
putquick "privmsg $chan :\0034[degis [string map -nocase {"Bu" "Önümüzdeki" "Girecekler" "Girecek Filmler"} $tarih]]\003"
putquick "privmsg $chan :\002-----------------------------------------------------\002"
while {[regexp -- {(.*)$} $konu1 -> film1 link1 konu1]} {
putquick "privmsg $chan :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film ismi : \002[degis $film1]\002"
putquick "privmsg $chan :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film link : $link1"
putquick "privmsg $chan :-"
}
putquick "privmsg $chan :\002-------------------------------------------\002"
}
switch -- $text {
"vizyon" {
set baglan2 [::http::geturl "https://www.sinemalar.com/filmler/vizyondaki" -timeout 25000]
set data6 [::http::data $baglan2]
::http::cleanup $baglan2
set konu2 [string range $data6 [expr [string first "Bu Hafta Vizyona Girenler" $data6]] [expr [string last "1 Hafta Önce Vizyona Girenler" $data6]]]
putquick "privmsg $chan :\002-------------------------------\002"
putquick "privmsg $chan :\0034Bu Hafta Vizyona Giren Filmler:\003"
putquick "privmsg $chan :\002-------------------------------\002"
while {[regexp -- {Seanslar(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {(.*?)(.*)$} $konu2 -> rating konu2
putquick "privmsg $chan :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film ismi :\002 [lrange [degis $film2] 0 end-1] ->\002 \0038,1 IMDB : (\0030 $rating \0038/\00311 10 \0038) \003"
putquick "privmsg $chan :\[\0030,1\002 S\002\00313,1I\002\0038,1N\002\00311,1E\002\0037,1M\002\0030,1A \002\003\] Film link : [string map -nocase {"seans" "film"} $link2]"
putquick "privmsg $chan :-"
}
putquick "privmsg $chan :\002------------------------------\002"
}
}
}
proc degis {harfler} {
set harfler [encoding convertto utf-8 [subst -nocommands -novariables [regsub -all {%([a-fA-F0-9]{2})} $harfler {\u\1}]]]
return $harfler
}
putlog "Sinema.TCL by rascoLn"
|
