IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:


###########################

#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 {" " "" "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "ÂŸ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "Â±" "ı" "Â‡" "Ç" "Ÿ" "ğ" "œ" "Ü" "&quot;" "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [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 {"°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "ÂŸ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "Â±" "ı" "Â‡" "Ç" "Ÿ" "ğ" "œ" "Ü" "&quot;" "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [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 {" " "" "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "ÂŸ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "Â±" "ı" "Â‡" "Ç" "Ÿ" "ğ" "œ" "Ü" "&quot;" "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [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 { "°" "İ" "™" "" "â€" "'" "Å" "" "Ä" "" "Ã" "" "ÂŸ" "ş" "„Â" "" "…Â" "" "ƒÂ" "" "Â±" "ı" "Â‡" "Ç" "Ÿ" "ğ" "œ" "Ü" "&quot;" "" "Ä" "Ğ" "–" "Ö" "¼" "ü" "¶" "ö" "§" "ç"} [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"