| CLubber | 19 Temmuz 2012 18:14 |
İftar Vakitleri TCL
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. #
# #
# #
###########################################################################################
bind pub - !iftar iftar:vakit
proc iftar:vakit {nick uhost hand chan text} {
global botnick tcl
if {![string match "#iftar" $chan]} { return 0 }
set semt [lindex $text 0]
if {$semt == ""} {putquick "PRIVMSG #iftar :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]]
if {[string match -nocase "*Invalid use of Null*" $files]} {
putquick "PRIVMSG #iftar Hata: Herhangi bir il'in namaz ve iftar vakitlerini sorgularken türkçe karakter kullanmayınız."
::http::cleanup $connect
} else {
regexp -- {<td width="100" height="25" class="vakitstl">.*?msak</td>.*?<td width="5" class="vakitstl2">:</td>.*?<td width="70" class="vakitstl">(.*?)</td>} $files - imsak
regexp -- {<td height="25" class="vakitstl">G.*?ne.*?</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - gunes
regexp -- {<td height="25" class="vakitstl">.*?le</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - ogle
regexp -- {<td height="25" class="vakitstl">.*?kindi</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - ikindi
regexp -- {<td height="25" class="vakitstl">Ak.*?am</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - aksam
regexp -- {<td height="25" class="vakitstl">Yats.*?</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</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 #iftar :Bilgiler alınıyor, lütfen bekleyin."
putquick "privmsg #iftar :- "
putquick "privmsg #iftar :$semt: İmsak: $imsak Güneş: $gunes Öğle: $ogle İkindi: $ikindi Akşam: $aksam Yatsı: $yatsi"
putquick "privmsg #iftar :İftara Kalan Süre: ($remain)"
putquick "privmsg #iftar :-"
putquick "privmsg #iftar :Ramazan imsakiyesi bilgilendirme sonu."
}
}
putlog "Namaz ve Iftar Vakitleri TCL - Written By CLubber"
* Ramazan geldi, kullanıcılarınız irc sunucunuzda sohbet ederken, iftara kaç dakika kaldığını merak edebilir.
* Böyle bir tcl yazayım dedim, #iftar kanalı genelinde !iftar şehir şeklinde, türkçe karakter olmadan kullanabilirsiniz.
* Bu scriptin http.tcl ile beraber kullanılması gerekmektedir.
* NOT: set files [string map[list \n " "] [::http::data $connect]] satırında map'tan sonra boşluk olması gerek, lütfen düzenleyin.
* [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* http.tcl'yi indirdikten sonra conf'unuzun en son satırına bu kodu eklemelisiniz; Kod:
source scripts/http.tcl
* TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | 