Bot kanaldan degil ozelden cevap vermektedir..
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:21 -->-> Daha önceki mesaj 19:01 --
Buyrun buda sizin belirlediginiz kanalda çalışan kodlama :
set kanal "kanaladı" bolumunde başına (
# ) işaretini koyarak kanalınızı yazıp kullanabilirsiniz...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
###########################
#tcl name : sahibinden.tcl
#tcl editor : rascoLn
###########################
set pingtimeout "250000"
set komut ".sahibinden"
set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.set linkler(sayi) "26"
set devam ".devam"
set kanal "kanaladı"
#############################
#BURDAN SONRASINA DOKUNMAYIN#
#############################
bind pub - $komut sahibinden
bind pub - $devam devam
proc sahibinden {nick host hand chan text} {
global kanal
if {[info exists ::checks($host)] && ([clock seconds] - $::checks($host)) < 10} { putquick "privmsg $kanal :\[\0030,4 Lütfen (\0038 10 \0030) saniye bekleyip tekrar deneyiniz!! \003\]"; return }
set ::checks($host) [clock seconds]
if {[string match "$kanal" $chan]} {
set baglan [::http::geturl [string map -nocase {" " "+"} $::url$text] -timeout $::pingtimeout]
set kaynak [::http::data $baglan]
::http::cleanup $baglan
regexp -- {<div><h1>\"(.*?)\"</h1> .*? <span>(.*?)</span> (.*?)</div>} $kaynak - aranan adet kelime2
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \[\002$aranan\002\] aramanızda $adet $kelime2"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 siralaniyor:"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 ----------------------------------------"
set x "0"
while { [regexp -- {<a class="classifiedTitle" href=\"(.*?)\">(.*)$} $kaynak -> link kaynak] } {
if { $x == $::linkler(sayi) } { break }
regexp -- {alt=\"(.*?)\" title=".*?"\/>(.*)$} $kaynak -> satilan kaynak
regexp -- {<div> (.*?)</div></td>(.*)$} $kaynak -> para kaynak
regexp -- {<td class=\"searchResultsDateValue\">(.*)$} $kaynak -> kaynak
regexp -- {<span>(.*?)</span>(.*)$} $kaynak -> ilan kaynak
regexp -- {<br/>(.*)$} $kaynak -> kaynak
regexp -- {<span>(.*?)</span>(.*)$} $kaynak -> yil kaynak
regexp -- {<td class=\"searchResultsLocationValue\">(.*)$} $kaynak -> kaynak
regexp -- {(.............?)<br/>(.*?)</td>(.*)$} $kaynak -> il ilce kaynak
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034Satilan:\003 [lrange [split $link "-"] 4 end-1] | \0034Fiyat:\003 \002[string map -nocase {"<sup>" "" "</sup>" ""} $para]\002"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034ilan Tarihi:\003 $ilan $yil | \0034Gönderilecek Yer:\003 [string map -nocase {" " "" "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "Ÿ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "±" "ı" "‡" "Ç" "Ÿ" "ğ" "œ" "Ü" """ "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [encoding convertto utf-8 $il]] / [string map -nocase {"başc" "bağc" "başl" "bağl" "kaşı" "kağı" "oşl" "oğl"} [string map -nocase {"°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "Ÿ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "±" "ı" "‡" "Ç" "Ÿ" "ğ" "œ" "Ü" """ "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [encoding convertto utf-8 $ilce]]]"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034Link:\003\0030,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.putquick "privmsg $kanal :\002 \002"
incr x
}
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 ----------------------------------------"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 aramaya devam etmek için \0037.devam\003 yazin.."
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 ----------------------------------------"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 Ürün Arama Sonu.."
set ::arg [string map -nocase {" " "+"} $text]
} else {
return 0
}
}
proc devam {nick host hand chan text} {
global kanal
if {[info exists ::checks($host)] && ([clock seconds] - $::checks($host)) < 10} { putquick "privmsg $kanal :\[\0030,4 Lütfen (\0038 10 \0030) saniye bekleyip tekrar deneyiniz!! \003\]"; return }
set ::checks($host) [clock seconds]
if {[string match "$kanal" $chan]} {
set baglan [::http::geturl
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.set kaynak [::http::data $baglan]
::http::cleanup $baglan
regexp -- {<div><h1>\"(.*?)\"</h1> .*? <span>(.*?)</span> (.*?)</div>} $kaynak - aranan adet kelime2
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \[\002$aranan\002\] sıralaması devam ediyor.."
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 2. sıralama:"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 ----------------------------------------"
set x "0"
while { [regexp -- {<a class="classifiedTitle" href=\"(.*?)\">(.*)$} $kaynak -> link kaynak] } {
if { $x == $::linkler(sayi) } { break }
regexp -- {alt=\"(.*?)\" title=".*?"\/>(.*)$} $kaynak -> satilan kaynak
regexp -- {<div> (.*?)</div></td>(.*)$} $kaynak -> para kaynak
regexp -- {<td class=\"searchResultsDateValue\">(.*)$} $kaynak -> kaynak
regexp -- {<span>(.*?)</span>(.*)$} $kaynak -> ilan kaynak
regexp -- {<br/>(.*)$} $kaynak -> kaynak
regexp -- {<span>(.*?)</span>(.*)$} $kaynak -> yil kaynak
regexp -- {<td class=\"searchResultsLocationValue\">(.*)$} $kaynak -> kaynak
regexp -- {(.............?)<br/>(.*?)</td>(.*)$} $kaynak -> il ilce kaynak
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034Satilan:\003 [lrange [split $link "-"] 4 end-1] | \0034Fiyat:\003 \002[string map -nocase {"<sup>" "" "</sup>" ""} $para]\002"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034ilan Tarihi:\003 $ilan $yil | \0034Gönderilecek Yer:\003 [string map -nocase {" " "" "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "Ÿ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "±" "ı" "‡" "Ç" "Ÿ" "ğ" "œ" "Ü" """ "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [encoding convertto utf-8 $il]] / [string map -nocase {"başc" "bağc" "başl" "bağl" "kaşı" "kağı" "oşl" "oğl"} [string map -nocase { "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "Ÿ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "±" "ı" "‡" "Ç" "Ÿ" "ğ" "œ" "Ü" """ "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [encoding convertto utf-8 $ilce]]]"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 \0034Link:\003\0030,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.putquick "privmsg $kanal :\002 \002"
incr x
}
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 ----------------------------------------"
putquick "privmsg $kanal :\0031,8 sahibinden.com \003 Ürün Arama Sonu.."
}
}
putlog "sahibinden.tcl yuklendi..by rascoLn"