IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   TCL Scriptler (https://www.ircforumu.net/tcl-scriptler/)
-   -   Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri (https://www.ircforumu.net/tcl-scriptler/2643-namaz-ve-iftar-vakitleri-hadis-i-serif-sure-mealleri.html)

} $files - imsak
    regexp -- {} $files - gunes
    regexp -- {} $files - ogle
    regexp -- {} $files - ikindi
    regexp -- {} $files - aksam
    regexp -- {} $files - yatsi
        ::http::cleanup $connect
    set int "00"
    set ex(time) "$aksam:$int"
    set serv(time) [clock seconds]
    set cur(time) [clock format [lindex $serv(time) 0] -format "%H:%M:%S"]
    set remain [duration [expr {[clock scan $ex(time)] - [clock scan $cur(time)]}]]
    regsub -all {hours} $remain {saat} remain
    regsub -all {hour} $remain {saat} remain
    regsub -all {minutes} $remain {dakika} remain
    regsub -all {minute} $remain {dakika} remain
    regsub -all {seconds} $remain {saniye} remain
    regsub -all {second} $remain {saniye} remain
    putquick "privmsg $kanal :Bilgiler alınıyor, lütfen bekleyin."
    putquick "privmsg $kanal :- "
    putquick "privmsg $kanal :$semt: İmsak:4 $imsak1 Güneş:4 $gunes1 Öğle:4 $ogle1 İkindi:4 $ikindi1 Akşam:4 $aksam1 Yatsı:4 $yatsi1"
    putquick "privmsg $kanal :İftara Kalan Süre: ($remain)"
    putquick "privmsg $kanal :-"
    putquick "privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu."
        }

proc hadis {d s g a y} {
set number[list 2 5]
if { [set b [expr [rand 160]]] != 0 } {
  set connect [::http::geturl https://www.16000hadisiserif.com/index.php?c=[lindex $number [expr [rand [llength $number]]]]&ss=$b]
  set files [string map[list \n " "] [::http::data $connect]]
  set hadisal [string trim [harfdecode [string range $files [expr [string first "
" $files]+36] [expr [string last "" $files]-18]]]]
  putquick "privmsg $::kanal :++++++++++++++++++++++++"
  hadisver privmsg $::kanal "\0030,4 Hadisi Şerif \003 \00314 [string map {"\{" "" "\}" ""} [lrange $hadisal 2 end]] \003"
  putquick "privmsg $::kanal :++++++++++++++++++++++++"
  } else {
        hadis $d $s $g $a $y
  }
 }

set sureler {
"\002                                        KURAN-I KERİM MEALİ                                      \002"
"\003"
"\0034 1-\003Fatiha |\0034 2-\003Bakara |\0034 3-\003Al-i İmran |\0034 4-\003Nisa |\0034 5-\003Maide |\0034 6-\003Enam |\0034 7-\003Araf |\0034 8-\003Enfal |\0034 9-\003Tevbe |\0034 10-\003Yunus"
"\003"
"\0034 11-\003Hud |\0034 12-\003Yusuf |\0034 13-\003Rad |\0034 14-\003İbrahim |\0034 15-\003Hicr |\0034 16-\003Nahl |\0034 17-\003İsra |\0034 18-\003Kehf |\0034 19-\003Meryem |\0034 20-\003Taha"
"\003"
"\0034 21-\003Enbiya |\0034 22-\003\003Hac |\0034 23-\003Muminun |\0034 24-\003Nur |\0034 25-\003Furkan |\0034 26-\003Suara |\0034 27-\003Neml |\0034 28-\003Kasas |\0034 29-\003Ankebut |\0034 30-\003Rum"
"\003"
"\0034 31-\003Lokman |\0034 32-\003\003Secde |\0034 33-\003Ahzab |\0034 34-\003Sebe |\0034 35-\003Fatir |\0034 36-\003Yasin |\0034 37-\003Saffat |\0034 38-\003Sad |\0034 39-\003Zümer |\0034 40-\003Mümin"
"\003"
"\0034 41-\003Fusilet |\0034 42-\003\003Şura |\0034 43-\003Zuhruf |\0034 44-\003Duhan |\0034 45-\003Casiye |\0034 46-\003Ahkaf |\0034 47-\003Muhammed |\0034 48-\003Fetih |\0034 49-\003Hucurat |\0034 50-\003Kaf"
"\003"
"\0034 51-\003Zariyat |\0034 52-\003\003Tur |\0034 53-\003Necm |\0034 54-\003Kamer |\0034 55-\003Rahman |\0034 56-\003Vakia |\0034 57-\003Hadid |\0034 58-\003Mucadele |\0034 59-\003Hasr |\0034 60-\003Mumtehine"
"\003"
"\0034 61-\003Saff |\0034 62-\003\003Cuma |\0034 63-\003Munafikun |\0034 64-\003Tegabun |\0034 65-\003Talak |\0034 66-\003Tahrim |\0034 67-\003Mülk |\0034 68-\003Kalem |\0034 69-\003Hakka |\0034 70-\003Mearic"
"\003"
"\0034 71-\003Nuh |\0034 72-\003\003Cin |\0034 73-\003Müzzemmil |\0034 74-\003Muddessir |\0034 75-\003Kıyame |\0034 76-\003İnsan |\0034 77-\003Murselat |\0034 78-\003Nebe |\0034 79-\003Naziat |\0034 80-\003Abese"
"\003"
"\0034 81-\003Tekvir |\0034 82-\003\003İnfitar |\0034 83-\003Mütaffirin |\0034 84-\003İnşikak |\0034 85-\003Büruc |\0034 86-\003Tarık |\0034 87-\003A'la |\0034 88-\003Gasiye |\0034 89-\003Fecr |\0034 90-\003Beled"
"\003"
"\0034 91-\003Şems |\0034 92-\003\003Lehl |\0034 93-\003Duha |\0034 94-\003İnşirah |\0034 95-\003Tin |\0034 96-\003Alak |\0034 97-\003Kadr |\0034 98-\003Beyyine |\0034 99-\003Zilzal |\0034 100-\003Adiyat"
"\003"
"\0034 101-\003Karia |\0034 102-\003\003Tekasur |\0034 103-\003Asr |\0034 104-\003Hümeze |\0034 105-\003Fil |\0034 106-\003Kureyş |\0034 107-\003Maun |\0034 108-\003Kevser |\0034 109-\003Kafirun |\0034 110-\003Nasr"
"\003"
"\0034 111-\003Tebbet |\0034 112-\003\003İhlas |\0034 113-\003Felak |\0034 114-\003Nas"
"\003"
}

proc meal {n u h a} {
foreach sureliste $::sureler {
putquick "privmsg $n :$sureliste"
}
}

proc ayet {nick host hand text} {
if {$text < 115} {
set suresite [::http::geturl https://www.kurandan.com/kk/1fatiha.htm -timeout 5000]
set suredata [::http::data $suresite]
::http::cleanup $suresite
set sureayir [string range $suredata [expr [string first "Sure'ler 1 - 10" $suredata]] [expr [string last "Konular ve Ayetler" $suredata]]]
while {[regexp -- {
  • .*? (.*?)
  • (.*)$} $sureayir - sayi sureismi sureayir]} {
    if {[string match -nocase "*$text*" $sayi] } {
    set suresite [::http::geturl https://www.kurandan.com/kk/$sayi -timeout 5000]
    set suredata [string map -nocase {"scope=\"col\">

    " "\n"} [::http::data $suresite]]
    ::http::cleanup $suresite
    set sureara [string range $suredata [expr [string first "Bismillâhirrahmânirrahîm

    " $suredata]] [expr [string last "
    " $harfler "" harfler
    regsub -all "
    immortaL 29 Haziran 2016 18:19

    Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri
     
    Kod:

    ###########################################################################################
    #                                                                                        #
    #                                                                                        #
    #        iftar ve Namaz Vakitleri + Kuran-ı Kerim Sure ve Mealleri + Hadis-i Şerif        #
    #                                                                                        #
    #                                                                                        #
    ###########################################################################################

    # Namaz ve iftar saatlerinin gozukmesini istediginiz kanali belirtin!!
    set kanal "#kanaladi"

    # Burdan sonrasına kesinlikle dokunmayınız!!
    bind pub - !iftar iftar:vakit
    bind time - "?0 * * * *" hadis
    bind msg - .sure meal
    bind msgm - * ayet
    proc iftar:vakit {nick uhost hand chan text} {
      global botnick kanal
      if {![string match -nocase "$kanal" $chan]} { return 0 }
      set semt [lindex $text 0]
      if {$semt == ""} {putquick "PRIVMSG $kanal :Hata: Herhangi bir il'in namaz ve iftar vakitlerini öğrenmek için lütfen bir şehir belirtiniz.";return}
      set connect [::http::geturl https://www.haberler.com/$semt/namaz-vakitleri/]
      set files [string map[list \n " "] [::http::data $connect]]
              regexp -- {
    .*?MSAK (.*?)G.*?NE.*? (.*?).*?LE (.*?).*?K.*?ND.*? (.*?)AK.*?AM (.*?)YATS.*? (.*?)
    " $suredata]]]
    putquick "privmsg $nick :\002\0034$sureismi SURESİ\002\003"
    set surex 0
    foreach surever [split [harfdecode $sureara] \n] {
    if {$surex == 0} {
    putquick "privmsg $nick :\002$surever\002"
    } else {
    putquick "privmsg $nick :[string trimright [string trim $surever] "<"]"
    }
    incr surex
    }
    break
    }
    }
    }
    }

    proc harfdecode {harfler} {
    regsub -all "

    " $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "
    " $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all " " $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all "
    " $harfler "" harfler
    regsub -all "
    " $harfler "" harfler
    regsub -all "
    " $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all "" $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    regsub -all "

    " $harfler "" harfler
    return $harfler
    }

    proc hadisver {type target text {delims {" "•,.!?}}} {
            set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}]
           
            if {[string length $text] <= $lineLen} {
                putquick "$type $target :\00314[entityToChar $text] \003"
                return 0
            }
           
            set _text [split [entityToChar $text] $delims]
            set x 0
            set i 0
           
            while {$x < $lineLen} {
                if {$i >= [llength $_text]} {
                    return 0
                }
               
                set wordlen [string length [lindex $_text $i]]
                if {$x + $wordlen > $lineLen} {
                    break
                }
               
                incr x $wordlen
                incr x
                incr i
            }
           
        putquick "$type $target :\00314[string range [entityToChar $text] 0 [expr {$x - 1}]] \003"
        hadisver $type $target  [string trimleft [string range [entityToChar $text] $x end]] $delims
        }
           
            proc entityToChar {text {char utf-8}} {
        if {![string match *&* $text]} {return $text}
       
        set escapes {
              \xa0 ¡ \xa1 ¢ \xa2 £ \xa3 ¤ \xa4
            ¥ \xa5 ¦ \xa6 § \xa7 ¨ \xa8 © \xa9
            ª \xaa « \xab ¬ \xac * \xad ® \xae
            ¯ \xaf ° \xb0 ± \xb1 ² \xb2 ³ \xb3
            ´ \xb4 µ \xb5 ¶ \xb6 · \xb7 ¸ \xb8
            ¹ \xb9 º \xba » \xbb ¼ \xbc ½ \xbd
            ¾ \xbe ¿ \xbf À \xc0 Á \xc1 Â \xc2
            Ã \xc3 Ä \xc4 Å \xc5 Æ \xc6 Ç \xc7
            È \xc8 É \xc9 Ê \xca Ë \xcb Ì \xcc
            Í \xcd Î \xce Ï \xcf Ð \xd0 Ñ \xd1
            Ò \xd2 Ó \xd3 Ô \xd4 Õ \xd5 Ö \xd6
            × \xd7 Ø \xd8 Ù \xd9 Ú \xda Û \xdb
            Ü \xdc Ý \xdd Þ \xde ß \xdf à \xe0
            á \xe1 â \xe2 ã \xe3 ä \xe4 å \xe5
            æ \xe6 ç \xe7 è \xe8 é \xe9 ê \xea
            ë \xeb ì \xec í \xed î \xee ï \xef
            ð \xf0 ñ \xf1 ò \xf2 ó \xf3 ô \xf4
            õ \xf5 ö \xf6 ÷ \xf7 ø \xf8 ù \xf9
            ú \xfa û \xfb ü \xfc ý \xfd þ \xfe
            ÿ \xff ƒ \u192 Α \u391 Β \u392 Γ \u393 Δ \u394
            Ε \u395 Ζ \u396 Η \u397 Θ \u398 Ι \u399
            Κ \u39A Λ \u39B Μ \u39C Ν \u39D Ξ \u39E
            Ο \u39F Π \u3A0 Ρ \u3A1 Σ \u3A3 Τ \u3A4
            Υ \u3A5 Φ \u3A6 Χ \u3A7 Ψ \u3A8 Ω \u3A9
            α \u3B1 β \u3B2 γ \u3B3 δ \u3B4 ε \u3B5
            ζ \u3B6 η \u3B7 θ \u3B8 ι \u3B9 κ \u3BA
            λ \u3BB μ \u3BC ν \u3BD ξ \u3BE ο \u3BF
            π \u3C0 ρ \u3C1 ς \u3C2 σ \u3C3 τ \u3C4
            υ \u3C5 φ \u3C6 χ \u3C7 ψ \u3C8 ω \u3C9
            ϑ \u3D1 ϒ \u3D2 ϖ \u3D6 • \u2022
            … \u2026 ′ \u2032 ″ \u2033 ‾ \u203E
            ⁄ \u2044 ℘ \u2118 ℑ \u2111 ℜ \u211C
            ™ \u2122 ℵ \u2135 ← \u2190 ↑ \u2191
            → \u2192 ↓ \u2193 ↔ \u2194 ↵ \u21B5
            ⇐ \u21D0 ⇑ \u21D1 ⇒ \u21D2 ⇓ \u21D3 ⇔ \u21D4
            ∀ \u2200 ∂ \u2202 ∃ \u2203 ∅ \u2205
            ∇ \u2207 ∈ \u2208 ∉ \u2209 ∋ \u220B ∏ \u220F
            ∑ \u2211 − \u2212 ∗ \u2217 √ \u221A
            ∝ \u221D ∞ \u221E ∠ \u2220 ∧ \u2227 ∨ \u2228
            ∩ \u2229 ∪ \u222A ∫ \u222B ∴ \u2234 ∼ \u223C
            ≅ \u2245 ≈ \u2248 ≠ \u2260 ≡ \u2261 ≤ \u2264
            ≥ \u2265 ⊂ \u2282 ⊃ \u2283 ⊄ \u2284 ⊆ \u2286
            ⊇ \u2287 ⊕ \u2295 ⊗ \u2297 ⊥ \u22A5
            ⋅ \u22C5 ⌈ \u2308 ⌉ \u2309 ⌊ \u230A
            ⌋ \u230B ⟨ \u2329 ⟩ \u232A ◊ \u25CA
            ♠ \u2660 ♣ \u2663 ♥ \u2665 ♦ \u2666
            " \x22 & \x26 < \x3C > \x3E O&Elig; \u152 œ \u153
            Š \u160 š \u161 Ÿ \u178 ˆ \u2C6
            ˜ \u2DC   \u2002   \u2003   \u2009
            ‌ \u200C ‍ \u200D ‎ \u200E ‏ \u200F – \u2013
            — \u2014 ‘ \u2018 ’ \u2019 ‚ \u201A
            “ \u201C ” \u201D „ \u201E † \u2020
            ‡ \u2021 ‰ \u2030 ‹ \u2039 › \u203A
            € \u20AC ' \u0027 ‎ "" ‏ "" ? "" * ""
            * ""
        };
       
        set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
        regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text
        regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text
        return [subst "$text"]
      }

    putlog "Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri ( rascoLn )"


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

    Powered by vBulletin® Version 3.8.11
    Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
    Search Engine Friendly URLs by vBSEO 3.6.0
    Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.