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

- IRCd Botlar (https://www.ircforumlari.net/ircd-botlar/)

- - Kuran Meal Botu (https://www.ircforumlari.net/ircd-botlar/31615-kuran-meal-botu.html)

Cevap: Kuran Meal Botu

Alıntı:

AsiL Nickli Üyeden Alıntı (Mesaj 215220)

Kuran Meal Botu :

[11:57] <AcquirE> !bul Taha 114
[11:57] <Islam> Sure No: 20
[11:57] <Islam> TAHA -- Toplam Ayet Sayisi: 135
[11:57] <Islam> Ayet: 114 - 114 AsiL için yaziliyor...
[11:57] • UyaRı ! • Islam #islam Kanalında Sana Sesleniyor...
[11:57] <Islam> 114. O Melik/o hak hükümdar olan Allah, yüceler yücesidir. Sana vahyi tamamlanmadan önce, Kur'an hakkında aceleci olma. Şöyle de:"Rabbim, ilmimi artır!"
[11:58] <Mgt-Islam> -------------------------------0000------------------------ 6 sn. durakladi

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

Selamun Aleykum Arkadaşlar.. Öncelikle Link Ölü.. mİRC Scripte yüklenebilecek ve komutlarla !Sure 114, !Sure 114 - Ayet 5, ve içerisinde istenen kelime geçen ayetleri bulmak gibi Örnek kelime Kıyamet olsun !Bul Kıyamet vb. şekilde işleyecek bir kod mevcut mu acaba.. Çok aradım ama bulamadım.. Bu konuda yardımcı olabilecek bir arkadaşımız var mı acaba.. Allah Razı Olsun Cümlenizden..

Cevap: Kuran Meal Botu

Selamun Aleyküm Arkadaslar
Mubarek Ramazanı şerif yaklaşırken
Fazla bilgim olmadığı halde biraz emek sonucu amatörce hazırladım.
mirc scripts olarak hazırladım.
bot kanalda konuşma olmadığı zaman ayarladığınız zaman dahilinde kanala ayetleri pasteler.
örnek 2 dakikaya ayarlarsanız 2 dakika kanalda konuşulmadığı zaman kanala direk ayet gönderir.
dakika ayarı sizin elinizde istediğiniz dakikaya ayarlıyabilirsiniz.
ayetleri ister sırayla isterseniz karışık yollayabilirsiniz.
bu işlemi yapmak için online olup servere bağlandığınız zaman,
botu kanala aldığınız zaman
mouseyi kanalda boş bir yerdesağ tıklayın bot menüsü açılacaktır.
buradan ayarları kafanıza göre yapabilirsiniz.
yalnız bot'un op olması gerekir.
ayrıca serverin bütün global kanallarınada msg li ayetleri yollar.
bu ayarı açıp kapamak size kalmış bir şey.
botun çalışması ise 2 şekilde
kanalda bir user
kuran fatiha 1
diye komut verdiği zaman direk fatiha 1. ayeti sunar
diğer ayetlerdede aynıdır ,örnek;kuran bakara 282
2. çalışma sistem komutu ayet rakamlarıyladır.
örnek;
!kuran 2:282
bu komutla 2. surenin (yani bakara) 282. ayetini verir.
4 ayet arka arkaya vermek için,
!kuran play 2:282-2:285
bu komutla bakara suresinin 282,283,284 ve 285. ayetlerini sırayla sunar.
kanalda selam verenlerin selamını alır.
şimdilik püf noktaları bunlar.
usta arkadaşlar üzerinde oynamalar yaparak eksikleri düzeltebilir.
ve özelikle Ricam paylaşım sitelerinde lütfen çoğaltınız.
Parayla satmayınız.
çok emek verdim hepsi helal olsun.
nette çok aradım ama bulamadım her şey parayla değil.
insanlara hizmet eden insanların efendisidir.Hadisi Şerif.
ve her satırına kadar yaptığım düzenlemeleri asla abdestsiz yapmadım.
Buyrun arkadaşlar güle güle kullanın hayrını görün inşallah.
Sevgi ve SaygılarımLa (Secret)
BUYRUN aşağıdaki Linkten indirebilirsiniz:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Kuran Meal Botu

Paşam linkte sıkıntı var inmiyor bakabilirmisin

Cevap: Kuran Meal Botu

TCL Olarak İse ;

Kod:

# kanal komutları:                         

# !meal  :  kanala meal.txt'teki satırları okur.

# !meal nick|kanal : kanala yada nicke meal.txt'teki satırı okur.

# !durmeal : okutmayı durdurmak için ..

# NOT:  sadece oplar,halfop ve voice sahipleri      

# !meal nick|kanal komutlarından birini kullanabilir.

# bu komutla sunucudaki kanala yada belirlenen nickin

# özeline atacaktır.  

# bu komutun kötüye kullanılmasından şikayetçiyseniz

# aşağıdaki kodlarda oynama yaparak bu özelliği 

# kapatın-değiştirin. 

# kodu yüklemek için :

# kodun işleyeceği kanalı ve satırları 

# okuma aralık süresini (dakika cinsinden)

# ayarlayın.botunuzun conf'una

# source scripts/meal.tcl                                  

# şeklinde kodu gösterin.

# bot/scripts/ dizini içine meal.txt dosyasını

# düzenleyip atmayı unutmayın..

# kodun işlemeye başlaması için

# .rehash yada .restart etmeyi unutmayın

#

# not: ilk verdiğim kodda !meal komutundan sonra

# işlem bir daha durduralamıyordu.

# meal.txt içindekileri sonuna dek okumadan durmuyordu.

# !durmeal komutu bu kodda eklendi denendi.

# bunla istendiğinde okuma işleminin durması sağlandı.

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

 

# kodun çalışmasını istediğiniz kanal

 set mealkanal "#kanalınız"

 

# satırları okuma süresini ayarlayın(dakika)

 set mealzaman "3"

 

# kanala post atmaya bu satırdan başlıyoruz

 set mealsatir 0

 

# okumayı durdurmak için kullanıcaz.

 setudef flag durmeal

 

# ayarlar bu kadar..kod başlıyor.

 

if { [info exists mealzaman] } { timer $mealzaman "timer:meal" }

 

set mealtxt "scripts/meal.txt"

 

bind pub - !meal oku:meal

 

proc oku:meal {nick host handle chan text} {

   global mealkanal mealtxt mealsatir

 

   catch {channel set $mealkanal -durmeal}

 

  if { [isop $nick $mealkanal] || [ishalfop $nick $mealkanal] || [isvoice $nick $mealkanal] } {  

     if { [lindex $text 0] != "" } {

         set satiroku [lindex $text 0]

     } else {

         set satiroku $mealkanal

     }

       set mealdosya [open $mealtxt r]

       set mealoku [split [read $mealdosya] \n]

       close $mealdosya

 

# durdurma işlemini kontrol ediyoruz.

       if {![channel get $mealkanal durmeal]} {

           putserv "PRIVMSG $satiroku :[lindex $mealoku $mealsatir] "

           set mealsatir [expr $mealsatir + 1]

       }

   } else {

       set mealdosya [open $mealtxt r]

       set mealoku [split [read $mealdosya] \n]

       close $mealdosya

 

       if {![channel get $mealkanal durmeal]} {

           putserv "PRIVMSG $nick :[lindex $mealoku $mealsatir] "

           set mealsatir [expr $mealsatir + 1]

       }

   }

 }

 

# bu kısım durdurma işlemi için

 bind pub - !durmeal durmeal

 proc durmeal {nick host handle chan text} {

     global mealkanal mealtxt mealsatir

     if { [isop $nick $mealkanal] || [ishalfop $nick $mealkanal] || [isvoice $nick $mealkanal] } {  

         catch {channel set $mealkanal +durmeal}

     }

     putserv "PRIVMSG $chan : $mealkanal kanalında meal okuma $nick tarafından durduruldu."

 }

 

proc timer:meal {} {

   global botnick mealkanal mealzaman mealtxt mealsatir

   if { [onchan $botnick $mealkanal] && ![channel get $mealkanal durmeal] } {

     set mealdosya [open $mealtxt r]

     set mealoku [split [read $mealdosya] \n]

     close $mealdosya

     putserv "PRIVMSG $mealkanal :[lindex $mealoku $mealsatir] "

     set mealsatir [expr $mealsatir + 1]

     timer $mealzaman "timer:meal" 

  }

 }

#bu kadar ... hadi geçmiş olsun :d 

putlog "meal.tcl kullanıma hazır... "

#

İlgili Linkten Daha Detaylı Bilgi Alabilirsiniz.
Link ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]