######################
# 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.."

set oku "x.txt"
set kanal "#kanal"

bind pub - !kural pub:kuralmsg
proc pub:kuralmsg { nick host hand chan text} {
global oku kanal
if {[file exists $oku]} {
set kuralfile [open $oku r]
while {![eof $kuralfile]} {
catch {set kuraltext [gets $kuralfile]}
putserv "PRIVMSG $kanal :$kuraltext"
}
catch {close $kuralfile}    
}
}

proc fread {dosya kime} { 
    if {![file exists $dosya]} { 
        putlog "$dosya adinda bir belge bulunamadi" 
        return 
    } 
    set cikti [open $dosya r] 
    set satir [split [read $cikti] \n] 
    catch {close $cikti} 
    set say 0 
    foreach satir $satir { 
        if {$satir != ""} { 
            puthelp "PRIVMSG $kime :$satir" 
            incr say 
        } 
    } 
    if {$say == 0} { 
        puthelp "PRIVMSG $kime :Mevcut dosya icinde bilgi bulunamadi"
        return 
    } else { 
        puthelp "PRIVMSG $kime :Liste sonu!" 
    } 
}

bind pub - !kural kural

proc kural {nick uhost hand chan text} {
    fread scripts/kural.txt $chan
}