Hava Raporu Bülten
Komut: !havarapor Kod:
on $*:text:/^[.!]havarapor/i:#:{
if %havchnck { .msg # > Bir onceki nickin hava raporu sorgulamasi devam ediyor, biraz sonra deneyin.. | return }
set -eu10 %havchnck #
havalar
}
alias havalar sockclose hdurum | sockopen hdurum qbilisim.net 80 | sockmark hdurum https://www.mgm.gov.tr/FTPDATA/analiz/sonSOA.xml
on *:sockopen:hdurum:{
var %komut = sockwrite -n $sockname
%komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
%komut Host: $sock($sockname).addr
%komut User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
%komut $crlf
}
on *:sockread:hdurum:{
var %j_ | sockread -f %j_
if *<GenelDurum>* iswm %j_ {
if $regex(%j_,/<GenelDurum>(.+)</GenelDurum>/i) {
var %m = $regml(1) , %z = 1
while $gettok(%m,%z,46) {
msg %havchnck $turkcefont($v1)
inc %z
}
}
}
if *<HavaSicakligi>* iswm %j_ {
if $regex(%j_,/<HavaSicakligi>(.+)</HavaSicakligi>/i) {
msg %havchnck $turkcefont($regml(1))
}
}
if *<RuzgarDurum>* iswm %j_ {
if $regex(%j_,/<RuzgarDurum>(.+)</RuzgarDurum>/i) {
msg %havchnck $turkcefont($regml(1))
}
}
if *<DenizDurum>* iswm %j_ {
if $regex(%j_,/<DenizDurum>(.+)</DenizDurum>/i) {
msg %havchnck $turkcefont($regml(1))
}
}
}
alias -l turkcefont {
return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$ˆR,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,')
}
|
