bind pub - !kuran krn:ayt
set ayetfile "ayetler.txt"

proc krn:ayt {nick uhost hand chan arg} {
  global ayetfile
  if {[lindex $arg 0] == ""} {
   putserv "notice $nick :Okunacak ayeti ve numarasını belirtmelisiniz! örnek: !kuran bakara 17"
 return 0
 }
 set okufile [open $ayetfile r]
 while {![eof $okufile]} {
  set okuline [gets $okufile]
  if {[string match -nocase [string tolower [lrange $arg 0 1]] [string tolower [lrange $okuline 0 1]]} {
  putserv "privmsg $chan : $okuline"
  } else {
   putserv "privmsg $chan :Aradağınız isimle bir veri kayıtlı değil."
   return 0
  }
 }
}

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