#############################################################################
# kodun amacı : Esma-Ül Hüsna ALLAH'ın 99 ismini kısa anlamlarıyla
# kanala tek tek postalatmak.Ancak:
# 99 ismin tamamlanması 40 günde olmalı.
# yani : 40gün*24saat*60dakika/99isim = 581.8181818 dakika'da 1 isim...
# bu nedenle 582 dakika'da bir olarak isim(zmn) ayarlanmıştır.
# tabiki değişmek elinizde...size kalmış...
# kod bu -> 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
istek üzerine yapılmıştır.......
############################################################################

;# kodu aktif/pasif etmek için,kullanıcı tanımlı ayar ne olacak:
set isim(def) "okuttur"

;# kodu açıp-kapama yetkisi,komutları kullanma yetkileri:
set isim(flags) "n|m"

;# kanalda komut ne olacak:
set isim(kmt) "isim"

;# komut'un başına gelecek sembol/işaret:
set isim(smb) "!"

;# kanal ayarı:
set isim(knl) "#bum"

;# okumaya başlanacak satır:
set isim(str) "0"

;# satır okuma zaman aralığı(dakika cinsinden):
set isim(zmn) "1"

;# okunacak .txt dosyası:
set isim(dosya) "scripts/mevlana.txt"

;################## ayar kısmı bitmiştir.######################################

setudef flag $::isim(def)

bind time - * isim:okut

 proc isim:okut {min hour day mon year} {
  if {([scan $min %d]+([scan $hour %d]*60)) % $::isim(zmn) == 0} { 
      oku:dur chan text
      } 
 }
 
proc oku:dur {chan text} {
  if {![channel get $::isim(knl) $::isim(def)]} { return 0;}
    set fp [open $::isim(dosya) "r"] 
    set text [split [read -nonewline $fp] "\n"]
      close $fp
        if {[lindex $text 0] != ""} {
        set isim(str) [lindex $text 0]
    }
     puthelp "privmsg $::isim(knl) :[lindex $text $::isim(str)]"
     set isim(str) [expr {$::isim(str) + 1}]
     incr ::isim(str)
}
  
 bind pub $::isim(flags) $::isim(smb)$::isim(kmt) isim:say
 
 proc isim:say {nick uhost hand chan text} {
   
    switch -exact -- [lindex [split $text] 0] {
  
  basla {
            set gun [expr {$::isim(zmn) * 99 / 24 / 60.00}]
            set saat [expr {$::isim(zmn) / 60.00}]
          puthelp "notice $nick :kod aktif...her $::isim(zmn) dakikada ( yaklaşık $saat saat'te ) bir satır kanala gönderiliyor....toplamda $gun gün sonunda okuma bitecek."
          puthelp "notice $nick :durdurmak için : \002$::isim(smb)$::isim(kmt) dur\002  komutunu kullanabilirsiniz..."
             channel set $::isim(knl) +$::isim(def)
        }
  
   dur {
        puthelp "notice $nick :okuma durduruldu...yeniden başlatmak için :"
        puthelp "notice $nick :\002$::isim(smb)$::isim(kmt) basla\002 komutunu kullanabilirsiniz..."
            channel set $::isim(knl) -$::isim(def)
        }
  
   default {
        puthelp "notice $nick :\002komutlar\002 : okumayı başlatmak için :\002$::isim(smb)$::isim(kmt) basla\002 | okumayı durdurmak için : \002$::isim(smb)$::isim(kmt) dur\002"
        }
   }
}


putlog "yüklendi..."

Bir şeyi bulunmadığı yerde aramak, hiç aramamak demektir. (Mevlana)
Tuzağa saçtığın taneler cömertlik sayılmaz. (Mevlana)
Kanaatten hiç kimse ölmedi, hırsla da hiç kimse padişah olmadı. (Mevlana)
Allah ile olduktan sonra, ölüm de ömür de hoştur. (Mevlana)
Bal yiyen, arısından gocunmaz.
Bir mum diğerini tutuşturmakla ışığından birşey kaybetmez.
Ne mutlu o kimseye ki kendi ayıbını görür.
İyiliği ve ihsanı tamamlamak, başlamaktan daha iyidir.
Bu dünya bir tuzaktır, tanesi de arzular.
Balığa, denizden başkası azaptır.
Soru da bilgiden doğar, cevap da.
Adalet nedir? – Ağaçları sulamak. Zulüm nedir? – Dikene su vermek.
Herkesin aklının ereceği, fikrinin anlayacağı bir tarzda anlat.
Hiçbir misafir aç kalmaz, herkes o sofrada kendi gıdasını bulur.
Hacca giderken hac yoldaşı ara. Ama ha Hintli olmuş, ha Türk, ha Arap.
Onun şekline, rengine bakma; azmine ve maksadına bak.
efendi olmanın en iyi yolu ağır başlı olunmasıdır. (Kraker)
Mutluluk Gülüşünde Olsun Aşk Dudaklarında Deqil Kalbinde Olsun. (Kraker)
Bir dünya düşünüyorum taşı sen topragı ben, birde bir dügün düşünüyorum damadı ben gelini sen.
Çikolata tatlıdır senin kadar değil seni seven çoktur benim kadar değil.
Eğer senin aşkın bir okyanussa ben o okyanusta nesli tükenen balık olmayı tercih ederim.
Dünyanı bütün çiçekleri bir araya gelse ay ve güneş toplansa yüzündeki o aydınlıgı veremezler.
Seni sevsem bile bunu inkar edemem çünkü gözlerim itiraf eder.
Yer yüzünde biten her aşk için gökyüzünde bir melek ağlar.
Aşk seni bulsun ama yaralamasın yüzünde güller açsın ama dikenleri batmasın.
Bana seni unut dediler unuttum ama seni değil bana seni unut diyenleri unuttum.
Uzun bir tartışma her iki tarafında haksız olduğunun delilidir.
Yarın bambaşka bir insan olacağım diyorsun. Niye bu günden başlamıyorsun?
İnsanın özgürlüğü, kendisine yapılanlara karşı takındığı tavırda gizlidir.
Hiçbir zaman çıktığın kapıyı hızla çarpma, geri dönmek isteyebilirsin.
İnsanlar hatalarını mutluyken değil ancak mutsuzken anlar.
Nankör insan, her şeyin fiyatını bilen fakat hiçbir şeyin değerini bilmeyen kimsedir.
Aşk, imkansız birçok şeyi mümkün kılar.
Güzel olan sevgili değildir, sevgili olan güzeldir.
Değmeyen Birine Dönüp Bakmam Ben; Adamsa Notunu, Hayvansa Otunu Verir Giderim!
Akılısı Bizi buLmaz! DeLisi Pesimizi bırakmaz :)
Bir köpeğim vardı beni sever anlardı bir arkadaşım vardı köpeğim kadar olamadı.
Seni sevdiğimi sanıyordum meğer hiç sevmemişim seni zira, artık rüyalarıma misafir olmuyorsun.
Kendini bişey sanma , sanılcak bişeyin yok , bunu bil ama bilcek kadar beynin yok!!!
Aşk bir kişinin başka bir kişiye ilgi duyduğunda, geleceği onunla hayal etmesidir.
yağmurdan bir damla olsan! bulur tutarım seni, korkarım çünkü toprak aldığını vermiyor geri.