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

Merhaba arkadaşlar CLubber arkadaşımızın yazmış oldugu iftar.tcl yi tekrardan duzenledim ve kullanımıza sunuyorum güle güle kullanın hayırlı ramazanlar..

Komut : !iftar sehir
Kod:
###########################################################################################

#                                                                                         #

#                                                                                         #

#                 İftar ve Namaz Vakitleri TCL v1.0 - Written By CLubber                  #

#        Bu TCL ile herhangi bir il'in namaz ve iftar vakitlerini öğrenebilirsiniz.       #

#              Kullanımı iftar kanalı genelinde !iftar şehir şeklindedir.                 #

#                Bu tcl'nin çalışması için, http.tcl'ye ihtiyaç vardır.                   #

#                                                                                         #

#                                                                                         #

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

# !iftar komutunun calismasini istediginiz kanali belirtin!!

set kanal "#sohbet"
 

# Burdan sonrasına kesinlikle dokunmayınız!!

bind pub - !iftar iftar:vakit 

proc iftar:vakit {nick uhost hand chan text} { 

  global botnick tcl kanal 

  if {![string match "$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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set files [string map [list \n " "] [::http::data $connect]] 

       regexp -- {<td class="pngfix">.*?MSAK <strong>(.*?)</strong></td>} $files - imsak

    regexp -- {<td class="pngfix">G.*?NE.*? <strong>(.*?)</strong></td>} $files - gunes

    regexp -- {<td class="pngfix">.*?LE <strong>(.*?)</strong></td>} $files - ogle

    regexp -- {<td class="pngfix">.*?K.*?ND.*? <strong>(.*?)</strong></td>} $files - ikindi

    regexp -- {<td class="pngfix">AK.*?AM <strong>(.*?)</strong></td>} $files - aksam

    regexp -- {<td class="pngfix">YATS.*? <strong>(.*?)</strong></td>} $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: \002İmsak:\002 $imsak \002Güneş:\002 $gunes \002Öğle:\002 $ogle \002İkindi:\002 $ikindi \002Akşam:\002 $aksam \002Yatsı:\002 $yatsi" 

    putquick "privmsg $kanal :İftara Kalan Süre: ($remain)" 

    putquick "privmsg $kanal :-" 

    putquick "privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu."

    }
 

putlog "Namaz ve Iftar Vakitleri TCL - Written By CLubber"