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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 02 Ağustos 2007, 22:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ... ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 02 Ağustos 2007, 22:27   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: eggdrop istiyorum yardım !!!!



Ö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

 
Alıntı ile Cevapla

Alt 02 Ağustos 2007, 22:38   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: eggdrop istiyorum yardım !!!!



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

 
Alıntı ile Cevapla

Alt 02 Ağustos 2007, 23:32   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: eggdrop istiyorum yardım !!!!



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

 
Alıntı ile Cevapla

Cevapla

Etiketler
eggdrop, istiyorum, yardim

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
eggdrop yardım sEntieL Eggdrop, NeoStats, BNC 8 26 Eylül 2014 06:16
eggdrop yardım TxceN Eggdrop, NeoStats, BNC 14 03 Kasım 2011 15:51




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org