kuran-i kerim tcl si - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

LaKLaKi · 14 Haziran 2007, 20:15

<LaKLaKi> kuran bakara 286

<iSLAM> Kur'an-ı Kerim Meali. Sure:2.Bakara.

<iSLAM> 286. Allah, hiç kimseye güç yetireceğinden başkasını yüklemez. Kazandığı lehine, kazandırdıkları da aleyhinedir. «Rabbimiz, unuttuklarımızdan ya da yanıldıklarımızdan dolayı bizi sorumlu tutma. Rabbimiz, bizden öncekilere yüklediğin gibi bize de ağır yük yükleme. Rabbimiz, kendisine güç yetiremeyeceğimiz şeyi bize taşıtma. Bizi affet, bizi bağışla. Bizi esirge, Sen bizim mevlamızsın. Kâfirler topluluğuna karşı bize yardım et.»®41®

Bu bot Tclsini ve txt dosyasini nasil bulabilirim veya bir bilen varmi arkadaslar.Simdiden tskler.

pRivate · 15 Haziran 2007, 03:48

Evet aynısını bende arıyorum... ?

bilyen varsa lütfen yazsın..

Lampard · 15 Haziran 2007, 06:18

tcl olarak yok ama mirc script olarak var forumda vermiştim daha önce mirc bölümünde duruyor. o örnek gösterdiğinde zaten benim orada verdiğim bot

LaKLaKi · 15 Haziran 2007, 19:44

abi bunun tcl si var sanirim
yok mu arkadaşlar..

Nurullahoruc · 15 Haziran 2007, 20:50

Mirc Scprtlerden Editle Pasa Bizde KulanaLım

pRivate · 15 Haziran 2007, 22:57

Tcl si var sanırım ve kullanılıyor.. ama adam kendisi yapmış olabilir..

LaKLaKi · 17 Haziran 2007, 14:17

yok mu bilgisi olan abiler ablalar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SaW · 18 Haziran 2007, 08:15

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Kodları yazdım. Sana düşeni ayetler.txt adında bir dosya oluşturup oraya bütün ayetleri kaydetmek. Ama kaydederken şu şekilde kaydetmelisin:

bakara 118 meali meali meali meali....
bakara 119 meali meali meali...
yasin 5 meali melai melai..
.
.
.

Yani bütün ayetleri herbiri tek bir satır olacak şekilde ayarla ve mealinden önce satır başına ayet adını ve numarasını yaz.
Çalıştırdıktan sonra !kuran bakara 105 şeklinde ayetleri söyletebilirsin.
Umarım işinize yarar.
Not: Test etmedim kodu ama çalışması lazım.

Sahip · 28 Haziran 2007, 21:21

olmadi kardes ama emegine saglik.

SaW · 29 Haziran 2007, 06:45

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kuran-ı Kerim	Sır	Dini Resimler	1	11 Ağustos 2013 07:48
THY'de Kuran-ı Kerim Dönemi	Kacak	Havacılık Haberleri	1	28 Ocak 2012 20:29
THY'de Kuran-ı Kerim Dönemi	N999	Haber Arşivi	3	28 Ocak 2012 12:37
THY’de Kuran-ı Kerim ve Rihanna	Swat	Haber Arşivi	0	10 Ocak 2012 09:00
Kuran-ı Kerim Anıtı	PizzA	Dini Resimler	0	11 Ekim 2011 10:16

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.