#######################################
#Kullanılışı: !kuran <sure-adı> <ayet-no>
#Örnek    : !kuran bakara 20
#                            By Nebiliymben..
#######################################


set ayetfile "scripts/ayetler.txt"

bind pub - !kuran krn:ayt
proc krn:ayt {nick uhost hand chan arg} {
    global ayetfile
    if {[lindex $arg 1] == ""} {
        putserv "notice $nick :Okunacak sureyi ve ayet numarasını belirtmelisiniz! örnek: !kuran bakara 17"
        return 0
    }
    set okufile [open $ayetfile r]
    set lines [split [read $okufile] "\n"]
    catch {close $okufile}
    set count 1
    foreach lines $lines {
        if {$lines != ""} {
            if {[string match -nocase *[string tolower [lrange $arg 0 1]]* [string tolower [lrange $lines 0 1]]]} {
                putserv "privmsg $chan : $lines"
                incr count    
            }
        }
    }
    if {$count == "1"} { putserv "privmsg $chan :Aradağınız isimde bir veri kayıtlı değil." }
}