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

>
+
Etiketlenen Kullanıcılar

8Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 14 Haziran 2014, 13:05   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kodlama hakkında sorular [TCL]




yuf ossun bana... markete gitmem lazım diye acele acele yazayım derken ayar kısımlarında "set .." 'leri eklememişim. sadece isimleri girmişim .gittim geldim başka birşey için yeniden sublime editörü açınca gördüm "set .." yazmadığımı ....pfff
yukardakini yok sayın . sildim zaten hesabımdan....

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# Komuta erişimi olacak kişilerin eggdrop kullanıcı flagları ne olmalı set tpkflags "mnoa" # kodu harekete geçirecek komut ne olmalı set tpkkmt "topik" # komut başına gelecek sembol/işaret/trigger ne olmalı set tpktrig "!" # topic komutu gönderimi için hangi service ile muhatap olunmalı set tpkserv "ChanServ" # hangi kanal üstünde kullanılacaksa botunuza bağlanın : .chanset #kanal +topik setudef flag topik bind pub - $tpktrig$tpkkmt top:topik proc top:topik {nick uhost hand chan text} { if {![channel get $chan topik]} { return } set tpkmsj [join [lrange [split $text] 0 end]] # aşağıdaki if {![isop $nick $chan]} { satırları aktif edilecekse # yani kanal opları kullansın* seçilecekse bu if {![matchattr [nick2hand $nick] $::tpkflags $chan]} { # ile başlayan satırların başına # ekleyerek pasif kılmalısınız. # aksi halde kanalda op olsalar dahi botun kullanıcı listesinde istenen flaglarla # ekli değilselerde çalışmayacaktır. yani ikisi arasında seçim yapmalısınız. # ya kullanıcı flagları ya kanal yetkileri...şu haliyle kullanıcı flaglarına bakar... if {![matchattr [nick2hand $nick] $::tpkflags $chan]} { puthelp "notice $nick :\00312Bu komutu kullanmaya yetkili değilsiniz. \ Komuta erişim için $::tpkflags eggdrop kullanıcı flaglarına sahip olmalısınız.\003" return 0 } # kanal oplarının kullanımına açmak için alttaki satırların başlarındaki # 'ları kaldırın. # oplar dışında halfop ve voicelar içinde kullansın isteniyorsa if {![isop $nick $chan]} { # satırını if {![isop $nick $chan] || ![ishalfop $nick $chan] || ![isvoice $nick $chan]} { # olarak değişmeniz gerekir. #if {![isop $nick $chan]} { # puthelp "notice $nick :\00312Bu komutu kullanmaya yetkili değilsiniz. \ # $chan kanalında en az Op ( @ ) olmalısınız...\003" # return 0 # } if {[llength $tpkmsj] < "1"} { puthelp "notice $nick :\002Kullanım şekli\002 : \00304$::lastbind <kanal topiği>\003" return } if {![botisop $chan]} { puthelp "notice $nick :$chan \00312kanalında yetkim yok...\003" return 0 } putserv "privmsg $::tpkserv :topic $chan $tpkmsj" puthelp "notice $nick :$chan \00312kanalının Topiği\003 $tpkmsj \00312olarak değiştirildi...\003" } putlog "ok..."


 
Alıntı ile Cevapla

 

Etiketler
hakkında, kodlama, sorular, tcl


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
Uykusuzluk Hakkında Sorular ve Cevaplar Zen Ruh Sağlığı 0 30 Ocak 2013 16:07
Dialog kodlama hakkında.. MavipikSeL mIRC Scripting Sorunları 2 27 Mayıs 2007 09:07
Basit dialog kodlama hakkında... MavipikSeL mIRC Scripting Sorunları 5 24 Mayıs 2007 19:45
Msn hakkında genellikle sorulan sorular ? AngeL Güvenlik Açıkları 0 17 Mayıs 2007 11:35
_queue Kodlama Şekli Hakkında... yozgatli6644 mIRC Scripting Sorunları 12 22 Ağustos 2005 20:30