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

Arama Bugünki Mesajlar Forumları Okundu Kabul Et

ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 18:14   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Sınema tcl

Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#######################################################################################################
##     								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</a></li>*" [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 "<h1>Vizyona Gelecek Filmler</h1>" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {<div class="grid8 date-header">(.*?)</div>(.*)$} $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 -- {<a onclick=".*?" title="(.*?)" href="(.*?)" class="relative fl">(.*)$} $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 -- {<a id=\"seans-link\" title=\"(.*?)\" href=\"(.*?)\" class=\"filter-seans\">Seanslar</a>(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {<span  class=\"fixed-rate\" itemprop=\"rating\" itemscope="" itemtype=\"https://data-vocabulary.org/Rating\"><span itemprop=\"value\" id=\"rating\">(.*?)</span>(.*)$} $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</a></li>*" [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 "<h1>Vizyona Gelecek Filmler</h1>" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {<div class="grid8 date-header">(.*?)</div>(.*)$} $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 -- {<a onclick=".*?" title="(.*?)" href="(.*?)" class="relative fl">(.*)$} $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 -- {<a id=\"seans-link\" title=\"(.*?)\" href=\"(.*?)\" class=\"filter-seans\">Seanslar</a>(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {<span  class=\"fixed-rate\" itemprop=\"rating\" itemscope="" itemtype=\"https://data-vocabulary.org/Rating\"><span itemprop=\"value\" id=\"rating\">(.*?)</span>(.*)$} $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"

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#######################################################################################################
##     								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</a></li>*" [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 "<h1>Vizyona Gelecek Filmler</h1>" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {<div class="grid8 date-header">(.*?)</div>(.*)$} $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 -- {<a onclick=".*?" title="(.*?)" href="(.*?)" class="relative fl">(.*)$} $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 -- {<a id=\"seans-link\" title=\"(.*?)\" href=\"(.*?)\" class=\"filter-seans\">Seanslar</a>(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {<span  class=\"fixed-rate\" itemprop=\"rating\" itemscope="" itemtype=\"https://data-vocabulary.org/Rating\"><span itemprop=\"value\" id=\"rating\">(.*?)</span>(.*)$} $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</a></li>*" [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 "<h1>Vizyona Gelecek Filmler</h1>" $data5]] [expr [string last "1 Hafta Sonra Vizyona Girecekler" $data5]]]
regexp -- {<div class="grid8 date-header">(.*?)</div>(.*)$} $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 -- {<a onclick=".*?" title="(.*?)" href="(.*?)" class="relative fl">(.*)$} $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 -- {<a id=\"seans-link\" title=\"(.*?)\" href=\"(.*?)\" class=\"filter-seans\">Seanslar</a>(.*)$} $konu2 -> film2 link2 konu2]} {
regexp -- {<span  class=\"fixed-rate\" itemprop=\"rating\" itemscope="" itemtype=\"https://data-vocabulary.org/Rating\"><span itemprop=\"value\" id=\"rating\">(.*?)</span>(.*)$} $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"
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
sınema, tcl
IRCForumu.Net - Sponsor Bağlantılar


« önceki Konu | sonraki Konu »
Seçenekler Arama
Arama:

Gelişmiş Arama Yap
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, IRC Forum sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet gösterilmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
Sohbet Bizim mekan
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.