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)

on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

on *:text:*:#:if $regex($1,/[!.]havadurumu/Si) && $regex($nick,/^(nick1|nick2|nick3)$/i) { havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg # }