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

 Kayıt ol  Topluluk
7Beğeni(ler)
  • 3 Post By LineS
  • 4 Post By LineS

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Temmuz 2012, 13:33   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kuran ayetleri türkçe



Kodun amacı merak ettiğiniz kuran ayetlerini özelinize yansıtmasıdır
Bot sistemi üzerine kodlanmış olup kanalda veya özel penceresinde !ayt aranacak ayet ismi şeklinde calısmaktatır

örnek:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 !ayt ezan
!ayet hac
!ayt kıyamet

Şeklinde kullanılabilir.

Gelen veriler'in uzunlugu önceden kestirilemediği için 20 kelimelik satırlar halinde yansıtma uygulanacaktır sorguyu yapan kişi özeline veriler iletilecektir böylece rahatsızlık yaratılmamış olunacaktır

Beğenilen ayetlerden secmeler yapıp belge.txt içerisine atılırsa biri nick'inizi yazdığında kişiye ayetlerden bir kısım ıletilecektir tabi bu kısmı kullanmaya bilirsinizde

Koddaki bu kısmı bulup

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2))



Altta ki gibi ; koydugunuzda bukısım deaktif olacaktır

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 ;Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) }

Muaf nick'ler içinde burdaki satıra ekleyebilirsiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if !$istok(s-bot burcbot komiksoz sozbot kelime yarismaci soru bilemezki test ozelkoruma sirinfm,$nick,32) {

Umarım faydalı olur geliştirmelere değiştirmelere her türlü kullanım izni serbestir hayırlı ramazanlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias tr  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(gg.txt,%s),0,32)
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(gg.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}
on *:text:*:*: {
  if !$regex($nick,/(s-bot|burcbot|komiksoz|sozbot|Kelime|yarismaci|Soru|BiLemezki|test|OzelKoruma|SirinFm|chanserv|operserv)/i) {
    if $istok($1-,$me,32) {
      Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2))
    }
    if ($1 == !ayt) { set %nic $nick | set %ayet $replace($2-,ü,$chr(37) $+ FC,Ü,$chr(37) $+ DC,ö,$chr(37) $+ F6,Ö,$chr(37) $+ D6,ı,$chr(37) $+ FD,İ,$chr(37) $+ DD,ğ,$chr(37) $+ F0,Ğ,$chr(37) $+ D0,ş,$chr(37) $+ FE,Ş,$chr(37) $+ DE,ç,$chr(37) $+ E7,Ç,$chr(37) $+ C7)
      if !$2 { msg $chan Lütfen ayet konusunu belirtiniz. Örn; !ayt ezan | halt }
      if $sock(ayet) { msg %nic 3:-4Şu anda başka bir Ayet alınıyor lütfen daha sonra tekrar deneyiniz. | halt }
      ayet
      remove gg.txt
    }
  }
}
alias ayet { sockopen ayet meal.ihya.org 80 }
on *:sockopen:ayet: {
  sockwrite -n $sockname GET /meal.php?t2=elmali&ara= $+ $strip(%ayet) $+ &sn=0&an=0 HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Referer: meal.ihya.org, Kuran, Kur'an, Kuran-i Kerim, kuranikerim, Quran, qur'an, Al qur'an, Quran, holyquran, holy, coran, kuruan, koran, corano,koraani, islam, muslim, allah, arabic, türkçe,meal, der heilige Koran, islam, muslim, chinese al qur'an, el sagra
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: meal.ihya.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ayet: {
  var %a
  sockread %a
  if (<strong>ARAMA SONUCLARI: isin $strip(%a)) { msg %nic :- 3Uygun Ayetler Aranıyor }
  if (valign=top> isin $strip(%a)) {
  if ($findfile($mircdir,gg.txt,*) != 1) { write -c gg.txt $htmlfree(%a) } | else { write gg.txt $htmlfree(%a) }
    .timerde 1 5 tr
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}


Konu WingmaN tarafından (24 Temmuz 2012 Saat 02:16 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 24 Temmuz 2012, 02:15   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kuran ayetleri türkçe



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 
on *:text:*:*: {
  if !$regex($nick,/(s-bot|burcbot|komiksoz|sozbot|Kelime|yarismaci|Soru|BiLemezki|test|OzelKoruma|SirinFm|chanserv|operserv)/i) {
    if $istok($strip($1-),$me,32) {
      Notice $nick 3,4Allah7'ın Sözü $regsubex($read(belge.txt),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2))  $readn
    }
    if ($1 == !ayt) { set %nic $nick  | set %ayet $replace($2-,ü,$chr(37) $+ FC,Ü,$chr(37) $+ DC,ö,$chr(37) $+ F6,Ö,$chr(37) $+ D6,ı,$chr(37) $+ FD,İ,$chr(37) $+ DD,ğ,$chr(37) $+ F0,Ğ,$chr(37) $+ D0,ş,$chr(37) $+ FE,Ş,$chr(37) $+ DE,ç,$chr(37) $+ E7,Ç,$chr(37) $+ C7)
      if !$2 { msg $chan Lütfen ayet konusunu belirtiniz. Örn; !ayt ezan | halt }
      if $sock(ayet) { msg %nic 3:-4Şu anda başka bir Ayet alınıyor lütfen daha sonra tekrar deneyiniz. | halt }
      ayet
      remove gg.txt
    }
  }
}
alias sy { var %tgk $1 | amsg $regsubex($read(belge.txt,%tgk),/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) }
alias tr  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(gg.txt,%s),0,32)
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(gg.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(gg.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft msg %nic $gettok($read(gg.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}
alias ayet { sockopen ayet meal.ihya.org 80 }
on *:sockopen:ayet: {
  sockwrite -n $sockname GET /meal.php?t2=elmali&ara= $+ $strip(%ayet) $+ &sn=0&an=0 HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Referer: meal.ihya.org, Kuran, Kur'an, Kuran-i Kerim, kuranikerim, Quran, qur'an, Al qur'an, Quran, holyquran, holy, coran, kuruan, koran, corano,koraani, islam, muslim, allah, arabic, türkçe,meal, der heilige Koran, islam, muslim, chinese al qur'an, el sagra
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: meal.ihya.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ayet: {
  var %a
  sockread %a
  if (<strong>ARAMA SONUCLARI: isin $strip(%a)) { msg %nic :- 3Uygun Ayetler Aranıyor 4 %nic }
  if (valign=top> isin $strip(%a)) {
    write gg.txt :- $htmlfree(%a) 
    .timerde 1 5 tr
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}
 
Alıntı ile Cevapla

Cevapla

Etiketler
ayetler, ayetleri, kerimden, kuran, kuranı, türkçe

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sesli Türkçe Kuran'i Kerim 114 sure muratt_aziz mIRC Scripting Hazır Kodlar 17 20 Nisan 2023 15:34
Haftada 4 Ders Kuran Türkçe Meali ve Siyer N999 Haber Arşivi 0 31 Mart 2012 15:51
Yer ve göklerin âyetleri Kalemzede İslamiyet 0 11 Temmuz 2011 17:06
Vücudunda Kur'an ayetleri beliriyor.. Dilara Haber Arşivi 1 16 Ekim 2009 14:32




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org