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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Namaz Vakitleri TCL (https://www.ircforumlari.net/tcl-scriptler/486386-namaz-vakitleri-tcl.html)

Namaz Vakitleri TCL

PHP- Kodu:

    
###############   K O M U T L A R  B Ö L Ü M Ü   ############# 

##                                                          ## 

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ## 

##      kendinize özel yapabilir yada asla değiştirmeden    ## 

##             mevcut hali ile kullanabilirsiniz            ## 

##                                                          ## 

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

 
set namaz(komut) "!namaz" 

set namaz(kanal) "#islam" 

 
bind pub - $namaz(komut) namaz:vakit 

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

  global botnick namaz

  if {![string match "$namaz(kanal)" $chan]} { return }

  set semt [lindex $text 0] 

  if {$semt == ""} {putquick "PRIVMSG $namaz(kanal) :Hata: Herhangi bir il'in namaz vakitlerini öğrenmek için lütfen bir şehir belirtiniz.";return} 

  set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [string map[list \n " "] [::http::data $connect]] 

  if {[string match -nocase "*Invalid use of Null*" $files]} {

    putquick "PRIVMSG $namaz(kanal) Hata: Herhangi bir il'in namaz 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 

    putquick "privmsg $namaz(kanal) :Bilgiler alınıyor, lütfen bekleyin." 

    putquick "privmsg $namaz(kanal) :- "

    putquick "privmsg $namaz(kanal) :$semt: İmsak: $imsak Güneş: $gunes Öğle: $ogle İkindi: $ikindi Akşam: $aksam Yatsı: $yatsi" 

    putquick "privmsg $namaz(kanal) :Hadis: Namaz her hayrın, her iyiliğin anahtarıdır." 

    putquick "privmsg $namaz(kanal) :-" 

    putquick "privmsg $namaz(kanal) :Namaz vakitleri bilgilendirme sonu."

  }

} 

 
putlog "Namaz Vakitleri TCL v1.0 - Written By CLubber"

* Birçok arkadaşımızın islami sunucusu olduğu dikkatimi çekti, bizimde bir yararımız dokunsun istedik.

* 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;

PHP- Kodu:

   source scripts/http.tcl

* Belirttiğiniz kanal genelinde !namaz şehir yazarak herhangi bir il'e ait namaz vakitlerini öğrenebilirsiniz.

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