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

5Beğeni(ler)
  • 4 Post By CLubber
  • 1 Post By CLubber

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Temmuz 2012, 18:14   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İftar Vakitleri TCL




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
########################################################################################### # # # # # İ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:   Kodu kopyalamak için üzerine çift tıklayın!
source scripts/http.tcl

* TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Temmuz 2012, 18:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Biri şu adama dur desin yahu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
IRC ve Sanal bitmiştir.
 
Alıntı ile Cevapla

Alt 19 Temmuz 2012, 20:44   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Ben çok dedim ama dinlemedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Temmuz 2012, 02:09   #4
Supernova
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Güzel olmuş eline sağlık.

 
Alıntı ile Cevapla

Alt 20 Temmuz 2012, 02:15   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Ellerine sağlık kardesım.

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

Alt 24 Temmuz 2012, 23:03   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Emeğine sağlık, güzel olmuş.

 
Alıntı ile Cevapla

Alt 07 Ocak 2013, 02:19   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Calismiyor artik sanirsam... veya benmi yanlis denedim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 07 Ocak 2013, 02:34   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




kod içersinde bilgi aldığı adres var onu browser'ınıza copyleyip o siteye bi girin bakın..sanmıyorum ki yılın bu zamanında ramazan olmadan iftar saatleri yayınlanıyor olsun...yada site kaynak kodları değişmiştir....oda olası..

 
Alıntı ile Cevapla

Alt 07 Ocak 2013, 10:07   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İftar Vakitleri TCL




Kodda problem yok, http.tcl ile beraber kullanmanız gerekiyor kodu.

 
Alıntı ile Cevapla

Cevapla

Etiketler
iftar, tcl, vakitleri, İftar


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Namaz Vakitleri TCL CLubber TCL Scriptler 7 21 Mart 2013 11:10
Namaz Vakitleri Ecrin Genel İslami Konular 0 07 Nisan 2011 18:55
Cep Tel. / Namaz Vakitleri. Silencer Uygulamalar 0 17 Nisan 2007 12:01