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

Che · 09 Mayıs 2015, 00:45

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

 
# TCL Scripts 2o15 - Sohbettur.Com 
 
proc join_greet {nick uhost handle channel } { 
 
putserv "PRIVMSG $nick :2Merhaba 4 $nick "
 
putserv "PRIVMSG $nick :2SUNUCUADI.COM 2ailesine 2hoşgeldiniz."
 
putserv "PRIVMSG $nick :2Sunucumuzda 2kurallarina lütfen 2uyunuz."
 
putserv "PRIVMSG $nick :2Sunucumuzda 2yardim 2kanalımız 4#help 2kanalıdir."
 
 
 
putserv "PRIVMSG $nick :2Sunucumuzda 2Oyun 2kanalımız 4#Oyun 2kanalıdir."
 
putserv "PRIVMSG $nick :2Sunucumuzda 2Radyo 2kanalımız 4#Radyo 2kanalıdir."
 
putserv "PRIVMSG $nick :2Sunucumuzda 2Sohbet 2kanalımız 4#Sohbet 2 kanallaridir."
 
putserv "PRIVMSG $nick :2Winampı Olmayanlar bizleri 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
uzerinden dinleyebilirler."
 
 
putserv "PRIVMSG $nick :2Radyo RADYOADIFM! yayınlarımız başlamıştır bütün dostlarımızı 9,1 http://IPADRES:PORT/listen.pls " 
 
 
 
putserv "PRIVMSG $nick :2Adresinden radyomuza bekliyoruz ii eğlenceler dileriz ."
 
putserv "PRIVMSG $nick :2İsteklerinizi 4#Radyo 2kanalindan yapabilirsiniz..."
 
 
putserv "PRIVMSG $nick :2Diğer bilgilerimiz için 4/motd 2yazabilirsiniz."
 
 
}
 
bind join - * join_greet

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

No_FeaR · 09 Mayıs 2015, 00:50

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bunu Niye Yazdın ki Forumda bi Ton Mevcuttu, Ama Sadeleştirirsek Benim Elimdeki Daha Sade Duruyor : ) ^^

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

proc join_greet {nick uhost handle channel } {  
 putserv "privmsg $nick :4M2erhaba 3 $nick " 
 putserv "privmsg $nick :14irc.AlemTR.Com 4s2ohbet 4s2unucusuna 4h2oşgeldiniz." 
 putserv "privmsg $nick :4S2unucu 4k2urallarına4 v2e 4g2örev 4d2ağılımına 14/motd 4y2azarak 4u2laşabilirsiniz." 
 putserv "privmsg $nick :4S2unucu4 y2ardım 4k2analımız14: 7#Help 14~&~ 4G2enel 4s2ohbet 4k2analımız14: 7#Sohbet 14~&~ 4O2yun 4k2analımız14: 7#Oyun 14~&~ 4R2adyo 4k2analımız14: 7#Radyo 14'4d2ur." 
 putserv "privmsg $nick :4W2eb 4c2hat 4a2dresimiz14: 3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14'4d2ur." 
 putserv "privmsg $nick :4D2ilek4 v2e 4ş2ikayetlerinizi, 7admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]TR.Com 4a2dresine 4e14-2mail4 y2oluyla 4i2letebilirsininiz." 
 putserv "privmsg $nick :3S6izlere 3e7n 3g4üzel14, 3e7n 3s2eviyeli 3s10ohbet 3o13rtamı 3d12ileriz.3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14~&~ 3irc.AlemTR.Com"  
 putserv "NOTICE  $nick : 0,4Ş0,2iir 0,4b0,2otumuzdan 0,4g0,2üzel 0,4s0,2öz 0,4o0,2kumak 0,4i0,2sterseniz 0,4l0,2ütfen 0,4g0,2enel 0,4s0,2ohbet 0,4k0,2analımızda0,3 !soz 0,4y0,2azınız."   
} 
bind join - * join_greet

Forum Nedeniyle Renk Kodları Çıkmıyor, TCL Olarak Alındığında Sorunsuz Çalışıyor.

Heartbroken · 09 Mayıs 2015, 10:57

Her giriş için 8 satır ,
En Yukardakinde 12
Hemde putserv ile,
Bot için iyi değil.
Puthelp ile Satırları birleştirip,
Her satırda bu kadar az kelime
Yerine,
Satırları Daha uzun Tutarak ,
Satır sayısını Azaltmak,
Daha iyi oLur.

Yada Her girene atmak yerine,
Atılacak kişileri seçmesi,
Bot için daha Doğru.

Diyelim ki ,
Kanala kısa aralıklarla ,
Ardarda 5 giriş oldu.
8*5 = 40 satırı bir anda
Göndermesi gerekecek.

En iyi ihtimalle bot laga düşer.
Daha büyük olasılıkla ,
Flood'dan sunucudan düşer.

Ya Kanala join-part Saldırı
Yapsalar?

Üstelik kanal'da belirtilmemiş.
Botun olduğu her kanalda
Bu çalışacak.

Bot'un hali haraptır.

KraLaz · 30 Mart 2017, 22:51

s.a

bu kodu sadece kanala giren userlere mesaj gönderme yapabilirmiyiz
access listekılere atmayacak..

bind join - * kanal:karsilama
proc kanal:karsilama {nick uhost handle chan} {
global botnick
if {$nick == $botnick} { return 0 }
if {[string match -nocase "#test1" $chan]} {
putquick "PRIVMSG #test2 :#Sohbethelp kanalinda $nick Suan"
putquick "PRIVMSG $nick :En kisa surede yardim alacaksiniz."

}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Karsilama, ugurlama tcl.	ellesme	Eggdrop, NeoStats, BNC	10	03 Eylül 2012 21:12
Farkli Karsilama	DeLiKaNLi	Eggdrop, NeoStats, BNC	7	17 Aralık 2011 22:34
Nick Karsilama TCL Yardım	eXaDuS	TCL Scriptler	1	27 Haziran 2009 16:17
Karsilama botu hk soru	sh4d3	Eggdrop, NeoStats, BNC	5	21 Kasım 2007 16:11

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

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.