on *:sockopen:hb*:{
  sockwrite -n $sockname Get /asya/turkiye/ $+ %þehir HTTP/1.1
  sockwrite -n $sockname Host: havadurumu.mynet.com
  sockwrite -n $sockname $crlf 
}
on *:sockread:hb*:{
  if ($sockerr) { msg %havakanal 4Hata: Ýsdediginiz Veri Bulunamadý | halt }
  else {
    var %ghost
    sockread %ghost
    if (HTTP/1.1 301 Moved Permanently isin %ghost) {
      msg %havakanal :2Ýstenen Þehir Bulanamadý!
      sockclose $sockname
    }
    if (<title>MYNET Hava Durumu - Ana Sayfa</title> isin %ghost) {
      msg %havakanal :2Ýstenen Þehir Bulanamadý!
      sockclose $sockname
    }
    if (<h1 class="hvCityTitle"> isin %ghost)  { set %title ibo! }
    elseif (%title) {
      unset %title
      msg %havakanal :4Þehir:1 $regsubex($trchra($remove($htmlfree(%ghost),&gt;)) ,/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))
      msg %havakanal :7-------------------------------
    }
    if (*span class=*hvDay* iswm %ghost) {
      msg %havakanal :4Gün:1 $regsubex($trchra($htmlfree(%ghost)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))
    }
    if (*span class="hvMood">*</span* iswm %ghost)  {
      msg %havakanal :4Hava:1 $regsubex($trchra($htmlfree(%ghost)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))    
    }
    if (*<span class="hvDeg1">*</span* iswm %ghost)  {
      msg %havakanal :4En Yüksek:1 $remove($htmlfree(%ghost),Â)
    }
    if (*<span class="hvDeg2">*</span>* iswm %ghost)  {
      msg %havakanal :4En Düþük:1 $remove($htmlfree(%ghost),Â)
      msg %havakanal :7------------------------------------   
    }
  }
}
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),-)
alias hbüyük {
  return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ð,G,Ð,G,h,H,ý,I,i,I,Ý,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,þ,S,Þ,S,@,A)
}
alias htmlfree { 
  if ($len($1-) <= 900) { 
    var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x 
  } 
}
on *:text:*:#:{
  if $1 == !hava {
    if !$2 { msg $chan :2Lütfen Þehir Belirdiniz. | halt }
    msg $chan :4 $hbüyük($2) 2 Sorgusu yapýlýyor.
    set %þehir $hbüyük($2)
    set %havakanal $chan
    var %rand $rand(1,9999)
    sockopen $+(hb,%rand) havadurumu.mynet.com 80
  }
}