IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 18:27   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Hava TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####################################################### ## Hava.TCL ## ## Türkiye geneli hava durumlarını kanala yansıtır. ## ## İl il, Bölge bölge hava durumunun haberini verir. ## ## Belli Başlı illerin hava durumuna bakılabilir. ## ####################################################### package require http ## Hava durumu haberlerinin aktarılacağı kanal set havakanal "#kanaladi" ## Hava Durumu Haberleri kaç dakika arayla aktarılsın? set havasure "30" timer $havasure[list genel] proc genel {} { if { ($::havakanal ne "") } { set havabaglan [http::geturl "https://www.mgm.gov.tr/tahmin/gunluk-tahmin.aspx?#sfB"] set havadata [encoding convertto utf-8 [http::data $havabaglan]] http::cleanup $havabaglan putquick "privmsg $::havakanal :\002Türkiye Geneli Günlük Hava Tahmin Raporu:" putquick "privmsg $::havakanal :--------------------------------------------------------------" regexp -- {<td>\:(.*?)\-(.*?)</td>} $havadata - btarih bsaat regexp -- {<td class="bbn">:(.*?)-(.*?)</td>} $havadata - starih ssaat regexp -- {<td colspan="2">Yap.*?lan son de.*?erlendirmelere g.*?re.*? (.*?)</td>} $havadata - degerlendirme putquick "privmsg $::havakanal :\0033Başlangıç:\003 $btarih - $bsaat \002/\002 \0034Bitiş:\003 $starih - $ssaat" putquick "privmsg $::havakanal :--------------------------------------------------------------" set sicaklik [string map {"<br /><br />" "\n"} $degerlendirme] set hava 0 foreach sicak [split $sicaklik \n] { if {$hava eq 3} { break } if {$hava eq 0} { putquick "privmsg $::havakanal :\0037HAVA DURUMU:\003 $sicak"} if {$hava eq 1} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"} if {$hava eq 2} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"} incr hava } putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002Bölgelerimizdeki Hava Durumu:" putquick "privmsg $::havakanal :--------------------------------------------------------------" while {[regexp -- {<strong>B.*?LGELER.*?M.*?ZDE HAVA</strong>(.*)$} $havadata - havadata]} { regexp -- {<td colspan="2">(.*?)</td>(.*)$} $havadata - mrapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - bursa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dbursa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ybursa havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - edirne havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dedirne havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yedirne havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - istanbul havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - distanbul havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yistanbul havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - kirklareli havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkirklareli havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykirklareli havadata regexp -- {<td>(.*?)</td>(.*)$} $havadata - erapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - karahisar havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkarahisar havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykarahisar havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - izmir havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dizmir havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yizmir havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - manisa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmanisa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymanisa havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mugla havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmugla havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymugla havadata regexp -- {<td>(.*?)</td>(.*)$} $havadata - arapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - adana havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dadana havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yadana havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - antalya havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dantalya havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yantalya havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - hatay havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dhatay havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yhatay havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mersin havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmersin havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymersin havadata putquick "privmsg $::havakanal :\002\0037MARMARA:\003\002 $mrapor" putquick "privmsg $::havakanal :[sekil $bursa] \0034Bursa:\003 $bursa \002->\002\00312 En Düşük:\003 $dbursa -\0037 En Yüksek:\003 $ybursa" putquick "privmsg $::havakanal :[sekil $edirne] \0034Edirne:\003 $edirne \002->\002\00312 En Düşük:\003 $dedirne -\0037 En Yüksek:\003 $yedirne" putquick "privmsg $::havakanal :[sekil $istanbul] \0034Istanbul:\003 $istanbul \002->\002\00312 En Düşük:\003 $distanbul -\0037 En Yüksek:\003 $yistanbul" putquick "privmsg $::havakanal :[sekil $kirklareli] \0034Kirklareli:\003 $kirklareli \002->\002\00312 En Düşük:\003 $dkirklareli -\0037 En Yüksek:\003 $ykirklareli" putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002\0037EGE:\003\002 $mrapor" putquick "privmsg $::havakanal :[sekil $karahisar] \0034A.Karahisar:\003 $karahisar \002->\002\00312 En Düşük:\003 $dkarahisar -\0037 En Yüksek:\003 $ykarahisar" putquick "privmsg $::havakanal :[sekil $izmir] \0034Izmir:\003 $izmir \002->\002\00312 En Düşük:\003 $dizmir -\0037 En Yüksek:\003 $yizmir" putquick "privmsg $::havakanal :[sekil $manisa] \0034Manisa:\003 $manisa \002->\002\00312 En Düşük:\003 $dmanisa -\0037 En Yüksek:\003 $ymanisa" putquick "privmsg $::havakanal :[sekil $mugla] \0034Mugla:\003 $mugla \002->\002\00312 En Düşük:\003 $dmugla -\0037 En Yüksek:\003 $ymugla" putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002\0037AKDENIZ:\003\002 $arapor" putquick "privmsg $::havakanal :[sekil $adana] \0034Adana:\003 $adana \002->\002\00312 En Düşük:\003 $dadana -\0037 En Yüksek:\003 $yadana" putquick "privmsg $::havakanal :[sekil $antalya] \0034Antalya:\003 $antalya \002->\002\00312 En Düşük:\003 $dantalya -\0037 En Yüksek:\003 $yantalya" putquick "privmsg $::havakanal :[sekil $hatay] \0034Hatay:\003 $hatay \002->\002\00312 En Düşük:\003 $dhatay -\0037 En Yüksek:\003 $yhatay" putquick "privmsg $::havakanal :[sekil $mersin] \0034Mersin:\003 $mersin \002->\002\00312 En Düşük:\003 $dmersin -\0037 En Yüksek:\003 $ymersin" putquick "privmsg $::havakanal :--------------------------------------------------------------" } timer $::havasure[list genel] } } bind pub - .hava havatahmin proc havatahmin {nick host hand chan a} { if { [string match $::havakanal $chan] } { set tbaglan [http::geturl "https://www.mgm.gov.tr/tahmin/default.aspx?s=[set sehir [strupr $a]]"] set hdata [encoding convertto utf-8 [http::data $tbaglan]] http::cleanup $tbaglan regexp -- {<h1 id=\"sfB\">Saatlik Hava Tahmini \| (.*?)</h1>} $hdata - esle regexp -- {<td class="hadise1" title=" (.*?) "(.*)$} $hdata - t hdata regexp -- {<th class="sicak1" style="font-weight:bold; color:red; background-color:#ecf4f8;">(.*?)</th><th(.*)$} $hdata - s hdata regexp -- {<th class="sicakh1" style=" color:red; background-color:"#ffffff";">(.*?)</th><th(.*)$} $hdata - h hdata regexp -- {<th class="nem1" style="color:#4247b8; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - n hdata regexp -- {<td class="ruzgarhiz1" title=" .*? " ><img src=".*?" style="width:20px;" /> </br>(.*?)</td><td(.*)$} $hdata - r hdata regexp -- {<th class="ruzgarham1" style="color:#731d75; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - rh hdata if { $sehir eq $esle } { putquick "privmsg $::havakanal :\00312MERKEZLER :\003istanbul - ankara - izmir- antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir" putquick "privmsg $::havakanal :\0034$sehir\003 HAVA DURUMU" putquick "privmsg $::havakanal :-----------------------------------" putquick "privmsg $::havakanal :\002Beklenen Hadise:\002 [sekil $t] $t" putquick "privmsg $::havakanal :\002Sicaklik:\002 $s" putquick "privmsg $::havakanal :\002Hissedilen Sicaklik:\002 $h" putquick "privmsg $::havakanal :\002Nem:\002 $n" putquick "privmsg $::havakanal :\002Ruzgar Yonu:\002 $r" putquick "privmsg $::havakanal :\002Ruzgar Hamlesi:\002 $rh" } else { putquick "NOTICE $nick :Türkçe karakter kullanımına dikkat edelim. Sadece aşağıdaki şehirlerin bilgilerini alabilirsiniz." putquick "NOTICE $nick :\0034MERKEZLER :\0031istanbul - ankara - izmir - antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir" } } } proc sekil {veri} { if {[string match -nocase "*anak*" $veri]} { set yagis "\00311,1::.:.\003" return $yagis } elseif {[string match -nocase "*bulutlu*" $veri] & ![string match -nocase "*anak*" $veri]} { set yagis "\0030,1~\0037O\0030~\003" return $yagis } elseif {[string match -nocase "A*" $veri] & ![string match -nocase "*anak*" $veri] & ![string match -nocase "*bulutlu*" $veri]} { set yagis "\0037,1-O-\003" return $yagis } } putlog "Hava Durumu kodlama rascoLn"

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####################################################### ## Hava.TCL ## ## Türkiye geneli hava durumlarını kanala yansıtır. ## ## İl il, Bölge bölge hava durumunun haberini verir. ## ## Belli Başlı illerin hava durumuna bakılabilir. ## ####################################################### package require http ## Hava durumu haberlerinin aktarılacağı kanal set havakanal "#kanaladi" ## Hava Durumu Haberleri kaç dakika arayla aktarılsın? set havasure "30" timer $havasure[list genel] proc genel {} { if { ($::havakanal ne "") } { set havabaglan [http::geturl "https://www.mgm.gov.tr/tahmin/gunluk-tahmin.aspx?#sfB"] set havadata [encoding convertto utf-8 [http::data $havabaglan]] http::cleanup $havabaglan putquick "privmsg $::havakanal :\002Türkiye Geneli Günlük Hava Tahmin Raporu:" putquick "privmsg $::havakanal :--------------------------------------------------------------" regexp -- {<td>\:(.*?)\-(.*?)</td>} $havadata - btarih bsaat regexp -- {<td class="bbn">:(.*?)-(.*?)</td>} $havadata - starih ssaat regexp -- {<td colspan="2">Yap.*?lan son de.*?erlendirmelere g.*?re.*? (.*?)</td>} $havadata - degerlendirme putquick "privmsg $::havakanal :\0033Başlangıç:\003 $btarih - $bsaat \002/\002 \0034Bitiş:\003 $starih - $ssaat" putquick "privmsg $::havakanal :--------------------------------------------------------------" set sicaklik [string map {"<br /><br />" "\n"} $degerlendirme] set hava 0 foreach sicak [split $sicaklik \n] { if {$hava eq 3} { break } if {$hava eq 0} { putquick "privmsg $::havakanal :\0037HAVA DURUMU:\003 $sicak"} if {$hava eq 1} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"} if {$hava eq 2} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"} incr hava } putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002Bölgelerimizdeki Hava Durumu:" putquick "privmsg $::havakanal :--------------------------------------------------------------" while {[regexp -- {<strong>B.*?LGELER.*?M.*?ZDE HAVA</strong>(.*)$} $havadata - havadata]} { regexp -- {<td colspan="2">(.*?)</td>(.*)$} $havadata - mrapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - bursa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dbursa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ybursa havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - edirne havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dedirne havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yedirne havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - istanbul havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - distanbul havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yistanbul havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - kirklareli havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkirklareli havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykirklareli havadata regexp -- {<td>(.*?)</td>(.*)$} $havadata - erapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - karahisar havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkarahisar havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykarahisar havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - izmir havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dizmir havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yizmir havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - manisa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmanisa havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymanisa havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mugla havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmugla havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymugla havadata regexp -- {<td>(.*?)</td>(.*)$} $havadata - arapor havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - adana havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dadana havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yadana havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - antalya havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dantalya havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yantalya havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - hatay havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dhatay havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yhatay havadata regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mersin havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmersin havadata regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymersin havadata putquick "privmsg $::havakanal :\002\0037MARMARA:\003\002 $mrapor" putquick "privmsg $::havakanal :[sekil $bursa] \0034Bursa:\003 $bursa \002->\002\00312 En Düşük:\003 $dbursa -\0037 En Yüksek:\003 $ybursa" putquick "privmsg $::havakanal :[sekil $edirne] \0034Edirne:\003 $edirne \002->\002\00312 En Düşük:\003 $dedirne -\0037 En Yüksek:\003 $yedirne" putquick "privmsg $::havakanal :[sekil $istanbul] \0034Istanbul:\003 $istanbul \002->\002\00312 En Düşük:\003 $distanbul -\0037 En Yüksek:\003 $yistanbul" putquick "privmsg $::havakanal :[sekil $kirklareli] \0034Kirklareli:\003 $kirklareli \002->\002\00312 En Düşük:\003 $dkirklareli -\0037 En Yüksek:\003 $ykirklareli" putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002\0037EGE:\003\002 $mrapor" putquick "privmsg $::havakanal :[sekil $karahisar] \0034A.Karahisar:\003 $karahisar \002->\002\00312 En Düşük:\003 $dkarahisar -\0037 En Yüksek:\003 $ykarahisar" putquick "privmsg $::havakanal :[sekil $izmir] \0034Izmir:\003 $izmir \002->\002\00312 En Düşük:\003 $dizmir -\0037 En Yüksek:\003 $yizmir" putquick "privmsg $::havakanal :[sekil $manisa] \0034Manisa:\003 $manisa \002->\002\00312 En Düşük:\003 $dmanisa -\0037 En Yüksek:\003 $ymanisa" putquick "privmsg $::havakanal :[sekil $mugla] \0034Mugla:\003 $mugla \002->\002\00312 En Düşük:\003 $dmugla -\0037 En Yüksek:\003 $ymugla" putquick "privmsg $::havakanal :--------------------------------------------------------------" putquick "privmsg $::havakanal :\002\0037AKDENIZ:\003\002 $arapor" putquick "privmsg $::havakanal :[sekil $adana] \0034Adana:\003 $adana \002->\002\00312 En Düşük:\003 $dadana -\0037 En Yüksek:\003 $yadana" putquick "privmsg $::havakanal :[sekil $antalya] \0034Antalya:\003 $antalya \002->\002\00312 En Düşük:\003 $dantalya -\0037 En Yüksek:\003 $yantalya" putquick "privmsg $::havakanal :[sekil $hatay] \0034Hatay:\003 $hatay \002->\002\00312 En Düşük:\003 $dhatay -\0037 En Yüksek:\003 $yhatay" putquick "privmsg $::havakanal :[sekil $mersin] \0034Mersin:\003 $mersin \002->\002\00312 En Düşük:\003 $dmersin -\0037 En Yüksek:\003 $ymersin" putquick "privmsg $::havakanal :--------------------------------------------------------------" } timer $::havasure[list genel] } } bind pub - .hava havatahmin proc havatahmin {nick host hand chan a} { if { [string match $::havakanal $chan] } { set tbaglan [http::geturl "https://www.mgm.gov.tr/tahmin/default.aspx?s=[set sehir [strupr $a]]"] set hdata [encoding convertto utf-8 [http::data $tbaglan]] http::cleanup $tbaglan regexp -- {<h1 id=\"sfB\">Saatlik Hava Tahmini \| (.*?)</h1>} $hdata - esle regexp -- {<td class="hadise1" title=" (.*?) "(.*)$} $hdata - t hdata regexp -- {<th class="sicak1" style="font-weight:bold; color:red; background-color:#ecf4f8;">(.*?)</th><th(.*)$} $hdata - s hdata regexp -- {<th class="sicakh1" style=" color:red; background-color:"#ffffff";">(.*?)</th><th(.*)$} $hdata - h hdata regexp -- {<th class="nem1" style="color:#4247b8; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - n hdata regexp -- {<td class="ruzgarhiz1" title=" .*? " ><img src=".*?" style="width:20px;" /> </br>(.*?)</td><td(.*)$} $hdata - r hdata regexp -- {<th class="ruzgarham1" style="color:#731d75; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - rh hdata if { $sehir eq $esle } { putquick "privmsg $::havakanal :\00312MERKEZLER :\003istanbul - ankara - izmir- antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir" putquick "privmsg $::havakanal :\0034$sehir\003 HAVA DURUMU" putquick "privmsg $::havakanal :-----------------------------------" putquick "privmsg $::havakanal :\002Beklenen Hadise:\002 [sekil $t] $t" putquick "privmsg $::havakanal :\002Sicaklik:\002 $s" putquick "privmsg $::havakanal :\002Hissedilen Sicaklik:\002 $h" putquick "privmsg $::havakanal :\002Nem:\002 $n" putquick "privmsg $::havakanal :\002Ruzgar Yonu:\002 $r" putquick "privmsg $::havakanal :\002Ruzgar Hamlesi:\002 $rh" } else { putquick "NOTICE $nick :Türkçe karakter kullanımına dikkat edelim. Sadece aşağıdaki şehirlerin bilgilerini alabilirsiniz." putquick "NOTICE $nick :\0034MERKEZLER :\0031istanbul - ankara - izmir - antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir" } } } proc sekil {veri} { if {[string match -nocase "*anak*" $veri]} { set yagis "\00311,1::.:.\003" return $yagis } elseif {[string match -nocase "*bulutlu*" $veri] & ![string match -nocase "*anak*" $veri]} { set yagis "\0030,1~\0037O\0030~\003" return $yagis } elseif {[string match -nocase "A*" $veri] & ![string match -nocase "*anak*" $veri] & ![string match -nocase "*bulutlu*" $veri]} { set yagis "\0037,1-O-\003" return $yagis } } putlog "Hava Durumu kodlama rascoLn"

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
hava, tcl
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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 Açık
Pingbacks are Açık
Refbacks are Açık