eggdrop istiyorum yardım !!!! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

sereserpe · 02 Ağustos 2007, 22:04

selam arkadaslar bana arama ve doru düzgün calısan (sizin Begendiginiz OLabiliR..) VERİRSENİZ SEVİNİRİM bide sizden ricam varsa calısan güzel bir koruma botu istiyorum lütfen yardımcı olun yardımlarınızı bekliyorum ... ?

sohbettc · 02 Ağustos 2007, 22:27

Örnek Gösterim :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

»22:20:44« <10ShellTC1> !ara sohbettc
»22:20:47« <BilgiTC> 1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 2) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 3) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 4) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:50« <BilgiTC> 5) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:52« <BilgiTC> 6) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:54« <BilgiTC> 7) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:54« <BilgiTC> 8) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:56« <BilgiTC> 9) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:58« <BilgiTC> 10) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:21:00« <BilgiTC> 4Arama Bitti.!

Örnek sunucu : irc.sohbettc.com Kanal #arama

Arkadaşlar tcl yi #arama kanalına ayarlayınız.

Kod: Kodu kopyalamak için üzerine çift tıklayın!


# Komut Dizini Ornek !Bul 
set google(triggers) "!Ara" 
#######################################
#bundan sonrasına dokunmayın arkadaşlar
#######################################
set google(flags) "-|-" 
set google(nopub) "" 
set google(antiflood) 5 
set google(method) 1 
set google(results) 10 
set google(perline) 1 
### Aram.Tcl Configure Bitisi Lütfen Alt Kisimlarda Oynama Yapmayiniz.! ### 
## ossoara.tcl Ayarlar Bitisi ## 
#die "Lütfen Scriptinizi Tam Olarak Ayarladiysaniz Bu Satirin Basina Diez (#) Koyunuz .!" 
#Editleme düzenleme SohbetTc.Com 
# Google.com.tr ye göre düzenlenmiştir.
######################################################################################## 
### Tcl Code Girisi.! Dikkat Oynama Yapmayiniz.! ### 
set google(version) 0.4 
if {[catch { package require http } err]} { 
putlog "Loadda Hata [file tail [info script]]: Http Aramada Hata Olustu.!: $err" 
return 1 
} 
if {[info tclversion] < 8.1} { 
putlog "Loadda Hata [file tail [info script]]: Eggdrop Sisteminizdeki Tcl Yanit Vermiyor Lütfen 8.1 Version Yükleyiniz.! [info tclversion]." 
return 1 
} 
foreach trigger [split $google(triggers)] { 
bind pub $google(flags) $trigger google:pub 
} 
catch { unset trigger } 
proc google:output {chan nick output} { 
global google 
switch $google(method) { 
0 { putquick "PRIVMSG $nick :$output" } 
1 { putquick "PRIVMSG #arama :$output" } 
2 { putquick "NOTICE $nick :$output" } 
3 { putquick "NOTICE #arama :$output" } 
default { putquick "PRIVMSG #arama :$output" } 
} 
} 
proc google:pub {nick uhost hand chan text} { 
global lastbind google 
if {[lsearch -exact $google(nopub) [string tolower $chan]] >= 0} { return 0 } 
if {[string length [string trim [lindex $text 0]]] == 0} { 
putquick "NOTICE $nick :Usage: $lastbind <Aranilacak-Kelime>" 
return 0 
} 
if {[info exists google(floodprot)]} { 
set diff [expr [clock seconds] - $google(floodprot)] 
if {$diff < $google(antiflood)} { 
putquick "NOTICE $nick :Yeni Bir Arama Yapmaniz Icin Lütfen [expr $google(antiflood) - $diff] Saniye Daha Bekleyiniz.!.." 
return 1 
} 
catch { unset diff } 
} 
set google(floodprot) [clock seconds] 
regsub -all { } [join $text] {+} search 
set google(url) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set google(page) [http::config -useragent "Mozilla"] 
if {[catch {set google(page) [http::geturl $google(url) -timeout 15000]} msg]} { 
putquick "NOTICE $nick :Giris Yapilamiyor.! ($msg)" 
return 0 
} 
set google(data) [http::data $google(page)] 
if {$google(results) >= 1} { 
regexp -nocase {related:(.*?)>} $google(data) t link1 
} 
if {$google(results) >= 2} { 
regexp -nocase {related:.*?>.*?related:(.*?)>} $google(data) t link2 
} 
if {$google(results) >= 3} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link3 
} 
if {$google(results) >= 4} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link4 
} 
if {$google(results) >= 5} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link5 
} 
if {$google(results) >= 6} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link6 
} 
if {$google(results) >= 7} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link7 
} 
if {$google(results) >= 8} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link8 
} 
if {$google(results) >= 9} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link9 
} 
if {$google(results) >= 10} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link10 
} 
if {$google(results) >= 11} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link11 
} 
if {$google(results) >= 12} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link12 
} 
if {$google(results) >= 13} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link13 
} 
if {$google(results) >= 14} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link14 
} 
if {$google(results) >= 15} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link15 
} 
if {$google(perline) == 1} { 
set separator "\n" 
} else { 
set separator "-" 
} 
if {[info exists link15]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13 $separator http://$link14 $separator http://$link15" 
} elseif {[info exists link14]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13 $separator http://$link14" 
} elseif {[info exists link13]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13" 
} elseif {[info exists link12]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12" 
} elseif {[info exists link11]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11" 
} elseif {[info exists link10]} { 
set output "1) http://$link1 $separator 2) http://$link2 $separator 3) http://$link3 $separator 4) http://$link4 $separator 5) http://$link5 $separator 6) http://$link6 $separator 7) http://$link7 $separator 8) http://$link8 $separator 9) http://$link9 $separator 10) http://$link10 $separator 7>>> 4Arama Bitti.! 7<<<  " 
} elseif {[info exists link9]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9" 
} elseif {[info exists link8]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8" 
} elseif {[info exists link7]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7" 
} elseif {[info exists link6]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6" 
} elseif {[info exists link5]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5" 
} elseif {[info exists link4]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4" 
} elseif {[info exists link3]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3" 
} elseif {[info exists link2]} { 
set output "http://$link1 $separator http://$link2" 
} elseif {[info exists link1]} { 
set output "http://$link1" 
} else { 
set output "HerhanGi Bir Arama Sonucu Bulunmadi.!" 
} 
regsub -all {%26} $output {\&} output 
regsub -all {%3F} $output {?} output 
regsub -all {%3D} $output {=} output 
if {$google(perline) == 1} { 
foreach line [split $output \n] { 
google:output $chan $nick [string trim $line] 
} 
} else { 
google:output $chan $nick [string trim $output] 
} 
catch { unset output separator t link1 link2 link3 link4 link5 link6 link7 link8 link9 link10 link11 link12 link13 link14 link15 } 
catch { http::cleanup $google(page) } 
return 1 
}

Kolay gelsin...

Kolay gelsin arkadaşlar

sereserpe · 02 Ağustos 2007, 22:38

eyvallah kardes cok sagol sohbetcc tesekkür ederim.....

sohbettc · 02 Ağustos 2007, 23:32

sereserpe Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

eyvallah kardes cok sagol sohbetcc tesekkür ederim.....

Ne demek yardımcı olabilmişsem ne mutlu bana

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Eggdrop Yardım	aLSanCak	Eggdrop, NeoStats, BNC	2	22 Ekim 2016 19:47
eggdrop yardım	TxceN	Eggdrop, NeoStats, BNC	14	03 Kasım 2011 15:51

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.