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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   eggdrop istiyorum yardım !!!! (https://www.ircforumlari.net/eggdrop-neostats-bnc/35338-eggdrop-istiyorum-yardim.html)

sereserpe 02 Ağustos 2007 22:04
eggdrop istiyorum yardım !!!!
 
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
Cevap: eggdrop istiyorum yardım !!!!
 
Örnek Gösterim :

Kod:
»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:

# 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
Cevap: eggdrop istiyorum yardım !!!!
 
eyvallah kardes cok sagol sohbetcc tesekkür ederim.....

sohbettc 02 Ağustos 2007 23:32
Cevap: eggdrop istiyorum yardım !!!!
 
Alıntı:
sereserpe Nickli Üyeden Alıntı (Mesaj 242774)
eyvallah kardes cok sagol sohbetcc tesekkür ederim.....
Ne demek yardımcı olabilmişsem ne mutlu bana


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:01.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk