on *:text:!havadurumu *:#:if !$hget(Flood,$nick) { .hinc -msu600 Flood $nick | .havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg # }

alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

 alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ notice $nick | msg # ŞEHİR:  $2  $+ , 5 Günlük hava durumu notice olarak özelinize yansıdı.

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

on *:text:*:#: {
if $regex($1,/[!.]hava(|durumu)$/i)  { if !$2 { msg # il belirtmediniz! | return }
Hava $lower($2) | set -u5 %HavaChan $chan | set -u5 %HavaŞehir $tr_($2) | write -c hava.txt
}
}
on *:input:#: {
if $regex($1,/[!.]hava(|durumu)$/i)  { if !$2 { msg # il belirtmediniz! | return }
Hava $lower($2) | set -u5 %HavaChan $chan | set -u5 %HavaŞehir $2 | write -c hava.txt
}
}
alias -l tr_ return $replacex($1-,İ,i,ç,c,ı,i,ğ,g,ü,u,ş,s,ö,o)
alias -l _tr return $replacex($1-,ı,ı,�§,ç,ş,ş,ö,ö,ü,ü,ğ,ğ,İ,İ,Ç,Ç,Ş,Ş,ş,Ş,Ö,Ö,Ü,Ü,ğ,Ğ)
alias -l hava var %rand = $rand(1,999) | sockopen $+(hava,%rand) qbilisim.net 80 | sockmark $+(hava,%rand) $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:hava*:{
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:hava*:{
var %- | sockread %-
if $regex($_tr(%-),<div class="status-code">404<\/div>) { msg %HavaChan  %HavaŞehir adında il bulunamadi. | sockclose $sockname  }
if $regex($_tr(%-),<h1 class="heading mb-1 ">(.+)<\/h1>) { set -u5 %Şehir $regml(1) }
if $regex($_tr(%-),<small class="">(.+)<\/small>) { write hava.txt $+(%Şehir,$chr(32),$chr(124),$chr(32),[,$regml(1),]) | unset %Şehir  }
if $regex($_tr(%-),<strong class="d-flex align-items-start">(.+)<span>(.+)<\/span><\/strong>) { write hava.txt - Tahmin edilen sıcaklık: $+(,$remove($regml(1),$chr(32)),�)  }
if $regex($_tr(%-),<div class="weather-list-felt weather-list-item">Hissedilen: (.+)<\/div>) && !%-his { write hava.txt - Hissedilen sıcaklık: $remove($regml(1),$chr(194)) | set -u5 %-his 1 }
if $regex($_tr(%-),<div class="weather-list-item weather-list-humidity">Nem: (.+)<\/div>) { write hava.txt - Nem oranı : $regml(1) }
if $regex($_tr(%-),<div class="weather-list-item weather-list-possibility">Yağış İhtimali: (.+)<\/div>) { write hava.txt - Yağış İhtimali : $regml(1) }
if $regex($_tr(%-),<h3 class="heading mb-2">(.+)</h3>) { var %txt = $read(hava.txt,1) | write -l1 hava.txt  $replace(%txt,$chr(124),$replace($upper($+(,$_tr($regml(1)),)),ı,I)) | sockclose $sockname | Yazdır  }
}
Alias -l Yazdır {
var %i = 1
while %i <= $lines(hava.txt) {  msg %HavaChan $read(hava.txt,%i) |  inc %i  }
unset %havaChan %HavaŞehir %Şehir
}