Tekil Mesaj gösterimi
Alt 29 Haziran 2007, 06:45   #10
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: kuran-i kerim tcl si




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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet