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

Kod:

/hava - tüm şehirlerin hava durumunu listeler

/hava ŞEHİR - Belirli şehirin detaylı hava durumunu listeler

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }

on $*:sockopen:/^hava/i: {

  sockwrite -n $sockname GET $iif($sock($sockname).mark,$+(/api/hava/index.php?city=,$sock($sockname).mark),/api/hava/sehirler.php) HTTP/1.1 

  sockwrite -n $sockname Host: $sock($sockname).addr

  sockwrite -n $sockname $crlf | unset %w

}

on $*:sockread:/^hava/i: {

  var %b | sockread %b | tokenize 32 %b 

  if $sock($sockname).mark {

    if <div class="weather-card"> isin %b {

      echo -s $replace($htmlfree(%b),&nbsp;,$chr(32))

    }

  }

  else {

    if (<img src isin %b) && ($token(%b,8,34) != >) {  echo -s - |  echo -s $token(%b,8,34) }

    if city-name site-url isin %b { echo -s $htmlfree(%b) }

    if <span> isin %b { echo -s $htmlfree(%b) }

  }

}

alias hava { 

  var %y $ticks

  sockopen $+(hava,%y) flort.gen.tr 80 

  if $1 { sockmark $+(hava,%y) $1 }

}