Sinema TCL

[No_FeaR]

################################################## ################################################## ###
## 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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data1 [split [::[Only Registered Users Can See Links] $baglan6] \n]
::[Only Registered Users Can See Links] $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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$sehir" -timeout 25000]
set data2 [split [::[Only Registered Users Can See Links] $baglan5] \n]
::[Only Registered Users Can See Links] $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 [Only Registered Users Can See Links]$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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$sehir" -timeout 25000]
set data3 [split [::[Only Registered Users Can See Links] $baglan4] \n]
::[Only Registered Users Can See Links] $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 [Only Registered Users Can See Links]$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 [::[Only Registered Users Can See Links] "$conn1" -timeout 25000]
set data4 [split [::[Only Registered Users Can See Links] $baglan3] \n]
::[Only Registered Users Can See Links] $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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data5 [::[Only Registered Users Can See Links] $baglan1]
::[Only Registered Users Can See Links] $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,1 M\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,1 M\002\0030,1A \002\003\] Film link : $link1"
putquick "privmsg $nick :-"
}
putquick "privmsg $nick :\002-------------------------------------------\002"
}

switch -- $text {
"vizyon" {
set baglan2 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data6 [::[Only Registered Users Can See Links] $baglan2]
::[Only Registered Users Can See Links] $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=\"[Only Registered Users Can See Links]"><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,1 M\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,1 M\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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data1 [split [::[Only Registered Users Can See Links] $baglan6] \n]
::[Only Registered Users Can See Links] $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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$sehir" -timeout 25000]
set data2 [split [::[Only Registered Users Can See Links] $baglan5] \n]
::[Only Registered Users Can See Links] $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 [Only Registered Users Can See Links]$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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$sehir" -timeout 25000]
set data3 [split [::[Only Registered Users Can See Links] $baglan4] \n]
::[Only Registered Users Can See Links] $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 [Only Registered Users Can See Links]$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 [::[Only Registered Users Can See Links] "$conn1" -timeout 25000]
set data4 [split [::[Only Registered Users Can See Links] $baglan3] \n]
::[Only Registered Users Can See Links] $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 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data5 [::[Only Registered Users Can See Links] $baglan1]
::[Only Registered Users Can See Links] $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,1 M\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,1 M\002\0030,1A \002\003\] Film link : $link1"
putquick "privmsg $chan :-"
}
putquick "privmsg $chan :\002-------------------------------------------\002"
}

switch -- $text {
"vizyon" {
set baglan2 [::[Only Registered Users Can See Links] "[Only Registered Users Can See Links]" -timeout 25000]
set data6 [::[Only Registered Users Can See Links] $baglan2]
::[Only Registered Users Can See Links] $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=\"[Only Registered Users Can See Links]"><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,1 M\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,1 M\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"

Nasıl Kullanılacağı TCL İçinde Yazılmıştır, Yapımcısı ; rascoLn