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

>
+
Etiketlenen Kullanıcılar

7Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 20 Aralık 2012, 02:31   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !basvuru kayıt tcl yardım lütfen




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############### K O M U T L A R B Ö L Ü M Ü ############# ## ## ## Botumuzun sunucu üzerindeki çalıştıran komutlarını ## ## kendinize özel yapabilir yada asla değiştirmeden ## ## mevcut hali ile kullanabilirsiniz ## ## ## ############################################################## set basvuru(kanal) "#Basvuru" set basvuru(oper) "#Opers" set basvuru(komut) "!basvuru" set basvuru(dizin) "scripts/basvuru.txt" bind pub - $basvuru(komut) basvuru:ekle proc basvuru:ekle {nick uhost handle chan text} { global botnick basvuru set status [lindex $text 0] set kanal [lindex $text 1] if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return} if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return} if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} { putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." set message "› $kanal kanalı başvurusu ($nick)" set liste [open $basvuru(dizin) "a"] puts $liste $message close $liste } if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return} if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} { putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." set liste [open $basvuru(dizin) "w"] close $liste } if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} { putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" putquick "PRIVMSG $basvuru(oper) \002" set file [open $basvuru(dizin) r] set listfile [split [subst -nocommands [read $file]] "\n"] foreach basvurular $listfile { putquick "privmsg $basvuru(oper) $basvurular" } close $file putquick "PRIVMSG $basvuru(oper) \002" putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir." } } putlog "Kanal Basvuru TCL - Written By CLubber"

* #Basvuru kanalında kullanıcılar !basvuru ekle #kanal komutu ile kanal başvurusu yapabilirler.

* #Opers kanalında ise !basvuru listele komutu ile kanal başvurularını listeleyebilir, !basvuru sil komutu ile listeyi temizleyebilirsin.

 
Alıntı ile Cevapla

 

Etiketler
basvuru, kayıt, lütfen, tcl, yardım


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
Kanal YasakLama ve Basvuru-Kayıt Sistemi ( Unreal - IRCservices - Eggdrop triosuyLa ) Raw Unreal IRCd 27 09 Şubat 2013 02:04
Eschat v3.9 da Nick kayıt et uyarısı yardım. mesutozturk Eggdrop, NeoStats, BNC 0 18 Şubat 2011 18:01
Nick uyarıcısı Loglarını txt'e kayıt..yardım Zifiri mIRC Scripting Sorunları 1 20 Ocak 2011 12:27
Diyez kanalı kayıt edilemiyor yardım? BaharGulu Unreal IRCd 13 31 Mart 2010 02:48