IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)

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

- - Hava TCL (https://www.ircforumu.net/tcl-scriptler/2649-hava-tcl.html)

} $havadata - btarih bsaat
regexp -- {} $havadata - starih ssaat
regexp -- {} $havadata - degerlendirme
putquick "privmsg $::havakanal :\0033Başlangıç:\003 $btarih - $bsaat \002/\002 \0034Bitiş:\003 $starih - $ssaat"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
set sicaklik [string map {"" "\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 " "" "" "" ""} $sicak]"}
if {$hava eq 2} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "" "" "" ""} $sicak]"}
incr hava
}
putquick "privmsg $::havakanal :--------------------------------------------------------------"
putquick "privmsg $::havakanal :\002Bölgelerimizdeki Hava Durumu:"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
while {[regexp -- {B.*?LGELER.*?M.*?ZDE HAVA(.*)$} $havadata - havadata]} {
regexp -- {(.*)$} $havadata - mrapor havadata
regexp -- {(.*)$} $havadata - bursa havadata
regexp -- {(.*?)(.*)$} $havadata - dbursa havadata
regexp -- {(.*?)(.*)$} $havadata - ybursa havadata
regexp -- {(.*)$} $havadata - edirne havadata
regexp -- {(.*?)(.*)$} $havadata - dedirne havadata
regexp -- {(.*?)(.*)$} $havadata - yedirne havadata
regexp -- {(.*)$} $havadata - istanbul havadata
regexp -- {(.*?)(.*)$} $havadata - distanbul havadata
regexp -- {(.*?)(.*)$} $havadata - yistanbul havadata
regexp -- {(.*)$} $havadata - kirklareli havadata
regexp -- {(.*?)(.*)$} $havadata - dkirklareli havadata
regexp -- {(.*?)(.*)$} $havadata - ykirklareli havadata
regexp -- {(.*)$} $havadata - erapor havadata
regexp -- {(.*)$} $havadata - karahisar havadata
regexp -- {(.*?)(.*)$} $havadata - dkarahisar havadata
regexp -- {(.*?)(.*)$} $havadata - ykarahisar havadata
regexp -- {(.*)$} $havadata - izmir havadata
regexp -- {(.*?)(.*)$} $havadata - dizmir havadata
regexp -- {(.*?)(.*)$} $havadata - yizmir havadata
regexp -- {(.*)$} $havadata - manisa havadata
regexp -- {(.*?)(.*)$} $havadata - dmanisa havadata
regexp -- {(.*?)(.*)$} $havadata - ymanisa havadata
regexp -- {(.*)$} $havadata - mugla havadata
regexp -- {(.*?)(.*)$} $havadata - dmugla havadata
regexp -- {(.*?)(.*)$} $havadata - ymugla havadata
regexp -- {(.*)$} $havadata - arapor havadata
regexp -- {(.*)$} $havadata - adana havadata
regexp -- {(.*?)(.*)$} $havadata - dadana havadata
regexp -- {(.*?)(.*)$} $havadata - yadana havadata
regexp -- {(.*)$} $havadata - antalya havadata
regexp -- {(.*?)(.*)$} $havadata - dantalya havadata
regexp -- {(.*?)(.*)$} $havadata - yantalya havadata
regexp -- {(.*)$} $havadata - hatay havadata
regexp -- {(.*?)(.*)$} $havadata - dhatay havadata
regexp -- {(.*?)(.*)$} $havadata - yhatay havadata
regexp -- {(.*)$} $havadata - mersin havadata
regexp -- {(.*?)(.*)$} $havadata - dmersin havadata
regexp -- {(.*?)(.*)$} $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 -- {

Saatlik Hava Tahmini \| (.*?)

} $hdata - esle
regexp -- { regexp -- {(.*?) regexp -- { regexp -- { 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"

immortaL

29 Haziran 2016 18:27

Hava TCL

Kod:

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

##                                         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 -- {

\:(.*?)\-(.*?)

:(.*?)-(.*?)

Yap.*?lan son de.*?erlendirmelere g.*?re.*? (.*?)

(.*?)

regexp -- {(.*?) regexp -- {

(.*?)

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:21.