IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
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 adinda 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 sicaklik: $+(,$remove($regml(1),$chr(32),?)) $+ ° $+ C   }

  if $regex($_tr(%-),<div class="weather-list-felt weather-list-item">Hissedilen: (.+)<\/div>) && !%-his { write hava.txt - Hissedilen sicaklik: $remove($regml(1),$chr(194)) $+ C | set -u5 %-his 1 }

  if $regex($_tr(%-),<div class="weather-list-item weather-list-humidity">Nem: (.+)<\/div>) { write hava.txt - Nem orani : $regml(1) }

  if *weather-list-item weather-list-possibility* iswm  %-  { write hava.txt - Yagis ihtimali : $gettok($gettok(%-,2,58),1,60)  }
 

  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 | Yazdir  }

}
 

Alias -l Yazdir {

  var %i = 1

  while %i <= $lines(hava.txt) {  msg %HavaChan $read(hava.txt,%i) |  inc %i  }

  unset %havaChan %Hava?ehir %?ehir

}