Tekil Mesaj gösterimi
Alt 19 Temmuz 2006, 19:17   #15
Çevrimdışı
AsiLmavi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Eggdrop (TCL Arşivleri)




yardim.tcl ( #yardim,#help kanalında userler e cevap veren tcl botu)
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#Yardim Botu Edit By RangeR bind join - * join_selam bind pub - yardim pub_help bind msgm - help pub_help bind msgm - yardim msg_help bind msgm - nshelp msg_nshelp bind msgm - cshelp msg_cshelp bind msgm - memohelp msg_memohelp bind msgm - nsregister msg_nsregister bind msgm - nsidentify msg_nsidentify bind msgm - nsset msg_nsset bind msgm - nsghost msg_nsghost bind msgm - nspassword msg_nspassword bind msgm - nslanguage msg_nslanguage bind msgm - nsurl msg_nsurl bind msgm - nsemail msg_nsemail bind msgm - nsicqnumber msg_nsicqnumber bind msgm - nslocation msg_nslocation bind msgm - nskill msg_nskill bind msgm - nsprivate msg_nsprivate bind msgm - nshide msg_nshide bind msgm - csregister msg_csregister bind msgm - csidentify msg_csidentify bind msgm - csset msg_csset bind msgm - csaccess msg_csaccess bind msgm - cslevel msg_cslevel bind pub - selam msg_selam proc join_selam {nick uhost handle chan} { if {$chan == "#help"} { putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz." putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum." putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden gerekli bilgileri alabilirsiniz" putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz." putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz." } return 1 } proc msg_help { nick uhost handle text } { putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:" putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )" putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )" putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" } proc msg_nshelp { nick uhost handle text } { putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )" putserv "PRIVMSG $nick :Nick Identify ( nsidentify )" putserv "PRIVMSG $nick :Nick Droplama ( nsdrop )" putserv "PRIVMSG $nick :Nick Set Ayarlari ( nsset )" putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" } proc msg_nsregister { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz." putserv "PRIVMSG $nick :( /ns register sifreniz email_adresiniz )" putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." } proc msg_nsidentify { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir." putserv "PRIVMSG $nick :( /ns identify sifreniz )" } proc msg_nsdrop { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir." putserv "PRIVMSG $nick :( /ns drop )" } proc msg_nsset { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizin ayarlari." putserv "PRIVMSG $nick :(1) nspassword " putserv "PRIVMSG $nick :(2) nslanguage " putserv "PRIVMSG $nick :(3) nsurl " putserv "PRIVMSG $nick :(4) nsemail " putserv "PRIVMSG $nick :(5) nsicqnumber " putserv "PRIVMSG $nick :(6) nslocation " putserv "PRIVMSG $nick :(7) nskill " putserv "PRIVMSG $nick :(8) nsprivate " putserv "PRIVMSG $nick :(9) nshide " } proc msg_nsghost { nick uhost handle text } { putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse" putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz." putserv "PRIVMSG $nick :( /ns ghost nickiniz sifreniz )" } proc msg_nspassword { nick uhost handle text } { putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir." putserv "PRIVMSG $nick :( /ns set password yenisifre )" } proc msg_nslanguage { nick uhost handle text } { putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar." putserv "PRIVMSG $nick :( /ns set language dilno )" putserv "PRIVMSG $nick :Dil No: 1 ingilizce " putserv "PRIVMSG $nick :Dil No: 2 Portekizce " putserv "PRIVMSG $nick :Dil No: 3 Turkce " putserv "PRIVMSG $nick :Dil No: 4 Almanca " } proc msg_nsurl { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar." putserv "PRIVMSG $nick :( /ns set url Adres )" } proc msg_nsemail { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar." putserv "PRIVMSG $nick :( /ns set email
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)" } proc msg_nsicqnumber { nick uhost handle text } { putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar." putserv "PRIVMSG $nick :( /ns set icqnumber #icq_no )" } proc msg_nslocation { nick uhost handle text } { putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar." putserv "PRIVMSG $nick :( /ns set location bulundugunuz_yer )" } proc msg_nskill { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. " putserv "PRIVMSG $nick :( /ns set kill On/OFF )" putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir." putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir." } proc msg_nsprivate { nick uhost handle text } { putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler." putserv "PRIVMSG $nick :( /ns set private On/Off )" putserv "PRIVMSG $nick :On: Gorunmez." putserv "PRIVMSG $nick :Off: Gorunur." } proc msg_nshide { nick uhost handle text } { putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller" putserv "PRIVMSG $nick :( /ns set hide On/Off )" putserv "PRIVMSG $nick :On: Gorunmez." putserv "PRIVMSG $nick :Off: Gorunur." } proc msg_cshelp { nick uhost handle text } { putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )" putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )" putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )" putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )" putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" } proc msg_csregister { nick uhost handle text } { putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir." putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir." putserv "PRIVMSG $nick :( /cs register #kanal sifre aciklama )" putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." } proc msg_csidentify { nick uhost handle text } { putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir." putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir." putserv "PRIVMSG $nick :( /cs identify #kanal sifre )" } proc msg_csset { nick uhost handle text } { putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur." putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi." putserv "PRIVMSG $nick :( /cs help set komutu ile alabilirsiniz. )" } proc msg_csaccess { nick uhost handle text } { putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar." putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999 a kadardir." putserv "PRIVMSG $nick :( /cs access #kanal add Nick Seviye )" } proc msg_cslevel { nick uhost handle text } { putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar." putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin." putserv "PRIVMSG $nick :( /cs help level yazarak alabilirsiniz. )" } proc msg_selam { nick uhost handle chan text } { putserv "PRIVMSG $nick :Selam $nick . Ben Ranger’in hazirlamis oldugu yardim botuyum." putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim." putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." } #End putlog "Edit By Ranger"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet