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

4Beğeni(ler)
  • 4 Post By rascoLn

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Haziran 2014, 16:40   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
iftar.tcl




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:   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. # # # # # ########################################################################################### # !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"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 30 Haziran 2014, 16:59   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: iftar.tcl




calişmadı şef.

 
Alıntı ile Cevapla

Alt 30 Haziran 2014, 17:36   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: iftar.tcl




Eggdrop confunuzda http.tcl 'yi source ettinizmi.

web ile ilgili calismalarda confunuzda http.tcl nin yuklenmis olmasi gerekmektedir.

http.tcl indir : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 30 Haziran 2014, 18:26   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: iftar.tcl




teşekkür ederim RascoLn eklemiştim sorunu çözdüm Kanal adı büyük kücükharf vs vardı ondan dolayı çalışmadı.

 
Alıntı ile Cevapla

Cevapla

Etiketler
iftartcl


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
Iftar yemegi - 3 :d Stella Yalan Haber 14 16 Ağustos 2012 18:20
Sahur ve iftar vakitleri Kalemzede İslamiyet 0 09 Temmuz 2011 12:02
Guinness'lik iftar Caddeci Haber Arşivi 0 22 Ağustos 2010 10:51