Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 105" data-attributes="member: 1">[CODE]############################################################################################&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; İftar ve Namaz Vakitleri TCL v1.0 - Written By CLubber&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; Bu TCL ile herhangi bir il'in namaz ve iftar vakitlerini öğrenebilirsiniz.&nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Kullanımı iftar kanalı genelinde !iftar şehir şeklindedir.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Bu tcl'nin çalışması için, http.tcl'ye ihtiyaç vardır.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ##&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ############################################################################################# !iftar komutunun calismasini istediginiz kanali belirtin!!set kanal &quot;#sohbet&quot;# Burdan sonrasına kesinlikle dokunmayınız!!bind pub - !iftar iftar:vakitproc iftar:vakit {nick uhost hand chan text} {&nbsp; global botnick tcl kanal&nbsp; if {![string match &quot;$kanal&quot; $chan]} { return 0 }&nbsp; set semt [lindex $text 0]&nbsp; if {$semt == &quot;&quot;} {putquick &quot;PRIVMSG $kanal :Hata: Herhangi bir il'in namaz ve iftar vakitlerini öğrenmek için lütfen bir şehir belirtiniz.&quot;;return}&nbsp; set connect [::http::geturl http://www.haberler.com/$semt/namaz-vakitleri/] &nbsp; set files [string map [list \n &quot; &quot;] [::http::data $connect]]&nbsp; &nbsp; &nbsp;&nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;.*?MSAK &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - imsak&nbsp; &nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;G.*?NE.*? &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - gunes&nbsp; &nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;.*?LE &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - ogle&nbsp; &nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;.*?K.*?ND.*? &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - ikindi&nbsp; &nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;AK.*?AM &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - aksam&nbsp; &nbsp; regexp -- {&lt;td class=&quot;pngfix&quot;&gt;YATS.*? &lt;strong&gt;(.*?)&lt;/strong&gt;&lt;/td&gt;} $files - yatsi&nbsp; &nbsp; ::http::cleanup $connect&nbsp; &nbsp; set int &quot;00&quot;&nbsp; &nbsp; set ex(time) &quot;$aksam:$int&quot;&nbsp; &nbsp; set serv(time) [clock seconds]&nbsp; &nbsp; set cur(time) [clock format [lindex $serv(time) 0] -format &quot;%H:%M:%S&quot;]&nbsp; &nbsp; set remain [duration [expr {[clock scan $ex(time)] - [clock scan $cur(time)]}]]&nbsp; &nbsp; regsub -all {hours} $remain {saat} remain&nbsp; &nbsp; regsub -all {hour} $remain {saat} remain&nbsp; &nbsp; regsub -all {minutes} $remain {dakika} remain&nbsp; &nbsp; regsub -all {minute} $remain {dakika} remain&nbsp; &nbsp; regsub -all {seconds} $remain {saniye} remain&nbsp; &nbsp; regsub -all {second} $remain {saniye} remain&nbsp; &nbsp; putquick &quot;privmsg $kanal :Bilgiler alınıyor, lütfen bekleyin.&quot;&nbsp; &nbsp; putquick &quot;privmsg $kanal :- &quot;&nbsp; &nbsp; putquick &quot;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&quot;&nbsp; &nbsp; putquick &quot;privmsg $kanal :İftara Kalan Süre: ($remain)&quot;&nbsp; &nbsp; putquick &quot;privmsg $kanal :-&quot;&nbsp; &nbsp; putquick &quot;privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu.&quot;&nbsp; &nbsp; }putlog &quot;Namaz ve Iftar Vakitleri TCL - Written By CLubber&quot;[/CODE]</blockquote>

[QUOTE="Che, post: 105, member: 1"] [CODE]########################################################################################### # # # # # İ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 -- {<td class="pngfix">.*?MSAK (.*?)</td>} $files - imsak regexp -- {<td class="pngfix">G.*?NE.*? (.*?)</td>} $files - gunes regexp -- {<td class="pngfix">.*?LE (.*?)</td>} $files - ogle regexp -- {<td class="pngfix">.*?K.*?ND.*? (.*?)</td>} $files - ikindi regexp -- {<td class="pngfix">AK.*?AM (.*?)</td>} $files - aksam regexp -- {<td class="pngfix">YATS.*? (.*?)</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"[/CODE] [/QUOTE]

Adı

İnsan doğrulaması