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
}