Tcl error [kurallars]: wrong # args: should be "putquick text ?options?"
kurallars proc'unda argümanı yanlış kullanılıyormuş..."putquick" içeren satırı kontrol edin...
dikkat ederseniz benim verdiğim koddaki proc adı kurallars değil "kurallarz" ayrıca ben arg/args kullanmaktan gerekmedikçe/zaruriyet doğmadıkça itina ederim genelde text kullanırım..
arg/ heleki args tcl'de ancak çok özel durumlarda kullanılabilir....
diğer konudaki tarifinize göre düzenlendi...
bota bağlanın partyline üzerindeyken (bota bağlıyken)
.chanset #kanal +kural
ile kullanılmak istenen kanal/lar üzerinde aktif edin..
web üzerindekiler !kurallar yazar bot LMSG !kurallar görür kod tetiklenir...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
setudef flag kural
set kurallar { \002Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak Yasaktır.
\002Reklam Yapmak, Din ve Politika Konuşarak Odadakileri Rahatsiz Etmek, Küfür Etmek Yasaktır.
\002Başkalarını Rahatsız Edecek Davranışlarda Bulunmak Yasaktır.
\002Kişiler Arasında Ayrimcılık Yaratmaya Çalışmak Yasaktır.
\002Otomatik Mesaj Kullanmak, Kelimeleri Gereksiz Yere Uzatmak Yasaktir.
\002Kanal Sorumlularından Voice ve Op İstemek ve Oplarla Tartışmak Kesinlikle Yasaktır! }
set admin_chan "#kanal"
bind pubm -|- "*" kurallarz
proc kurallarz {nick uhost hand chan text} {
if {![channel get $chan kural]} { return 0;}
if {![string first -nocase "LMSG"]} { return 0;}
if {![string equal -nocase "!kurallar" [lindex $text 1]]} { return 0;}
if {![isop $nick $chan] || ![onchan $nick $::admin_chan]} { puthelp "notice $nick :bu komutu kullanmaya yetkiniz yok..."
return 0
} else {; set i 0; foreach line [split $::kurallar \n] {; puthelp "privmsg $chan :[lindex $line 0] [lrange $line 1 end]"; incr i
}
}
}