JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.

mIRC Scripting iftar.TCL

Che · 2022-11-21

########################################################################################### # # # # # İ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 http://www.haberler.com/$semt/namaz-vakitleri/] set files [string map [list \n " "] [::http::data $connect]] regexp -- { .*?MSAK (.*?) } $files - imsak regexp -- { G.*?NE.*? (.*?) } $files - gunes regexp -- { .*?LE (.*?) } $files - ogle regexp -- { .*?K.*?ND.*? (.*?) } $files - ikindi regexp -- { AK.*?AM (.*?) } $files - aksam regexp -- { YATS.*? (.*?) } $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"

Konbuyu başlatan Che
Başlangıç tarihi 21 Kas 2022

Che

AutoMatiC

Yönetici

21 Kas 2022

Kod:

###########################################################################################
#                                                                                         #
#                                                                                         #
#...

İçeriğin tamamını görüntülemek için lütfen giriş yapınız.