Kod: Kodu kopyalamak için üzerine çift tıklayın!
#######################################
#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." }
}
Bir önceki söylediklerim aynen bunun için de geçerli, denedim, çok da güzel çalışıyor.
Umarım işinize yarar.