######################
# KuraL Tcl          #
# By DmX             #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#
######################
set kurl "12,1TC. Devletine hakaret iceren soz,yazi,baslik Genel ahlak kurallari disinda kalan sozlu tabirler Diger kullanicilari rahatsiz edicek davranislar Kanal,Web,Server vb. reklam ve flood yapmak Kanal Topiclerinde server reklami,kotu soz,küfür hakaret iceren sozler kullanmak.Kesinlikle yasaktir."
bind pub - !kural kurallar
proc kurallar {nick user hand chan arg} {
global kurl
if {![isop $nick $chan]} {return 0}
putquick "PRIVMSG $chan : $kurl ! "
putquick "PRIVMSG $chan : Kurallara uyup eglenceli ve keyifli dakikalar  gecirmeniz dilegi ile.."