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
        }
    }
}