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