IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - kuran-i kerim tcl si (https://www.ircforumlari.net/eggdrop-neostats-bnc/32715-kuran-i-kerim-tcl-si.html)

LaKLaKi

14 Haziran 2007 20:15

kuran-i kerim tcl si

<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

Cevap: kuran-i kerim tcl si

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

bilyen varsa lütfen yazsın..

Lampard

15 Haziran 2007 06:18

Cevap: kuran-i kerim tcl si

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

Cevap: kuran-i kerim tcl si

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

Nurullahoruc

15 Haziran 2007 20:50

Yanıt: kuran-i kerim tcl si

Mirc Scprtlerden Editle Pasa Bizde KulanaLım

pRivate

15 Haziran 2007 22:57

Cevap: kuran-i kerim tcl si

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

LaKLaKi

17 Haziran 2007 14:17

Cevap: kuran-i kerim tcl si

yok mu bilgisi olan abiler ablalar:D

SaW	18 Haziran 2007 08:15

Yanıt: kuran-i kerim tcl si

Kod:

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

Cevap: kuran-i kerim tcl si

olmadi kardes ama emegine saglik.

SaW	29 Haziran 2007 06:45

Yanıt: kuran-i kerim tcl si

Kod:

#######################################

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

colletrall

01 Temmuz 2007 14:01

Yanıt: kuran-i kerim tcl si

evet güzel çalışıor bende 2 güne o scriptden tcl editleyeem buraya atacam benim sunucumda kullanacam

Tai_Pan

18 Şubat 2013 22:34

Cevap: kuran-i kerim tcl si

Alıntı:

Lampard Nickli Üyeden Alıntı (Mesaj 223235)

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

Tekrar yükleyip bir link verebilir misin.. mirc script için lazım bana da.. Allah Razı Olsun Cümlenizden..

ustad38

22 Şubat 2013 13:00

Cevap: kuran-i kerim tcl si

Al kardeşim dua et ltf.

dosya büyük yükleyemedim msn den ulaşan olursa veririm

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

LAZOLAR

22 Şubat 2013 20:48

Cevap: kuran-i kerim tcl si

Selamün aleyküm Bot Bizde Mevcut Arkadaşlar iletişime geçebilirseniz paylaşırız Severek.

Tai_Pan

23 Şubat 2013 08:37

Cevap: kuran-i kerim tcl si

Alıntı:

LAZOLAR Nickli Üyeden Alıntı (Mesaj 1041283688)

Selamün aleyküm Bot Bizde Mevcut Arkadaşlar iletişime geçebilirseniz paylaşırız Severek.

Ve aleykum selam ve rahmetullahi ve berekatuhu.. mirc script olarak var mı elinizde kardeş..?

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:04.