alias getweather { sockopen weather www.weather.com 80 }

on *:sockopen:weather: { 
  sockwrite -n weather GET /weather/local/ $+ %weather.zip.town  $+ ?lswe= $+ %weather.zip.town  $+ &lwsa=WeatherLocalUndeclared HTTP/1.0
  sockwrite -n weather Host: www.weather.com 
  sockwrite -n weather Connection: close
  sockwrite -n weather 
  echo Connecting to sock
}
on *:scokread:weather: {
  var %temp 
  sockread %temp
  if CLASS=obsInfo2><B CLASS=obsTextA> isin %temp {
    set %display.1 1
  }
  if %display.1 {
    if $regex(%temp,/color=black>([^<]+)/g) {
      var %i = 1
      while $regml(%i) {
        set $weather.condition $nohtml($ifmatch) $+ $crlf
        inc %i
      }
    }
    if </B></TD> isin %temp {
      unset %display.1
    }
  }
  if (%weather.short $+ 1.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\1.png
  }
  elseif (%weather.short $+ 2.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\2.png
  }
  elseif (%weather.short $+ 3.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\3.png
  }
  elseif (%weather.short $+ 4.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\4.png
  }
  elseif (%weather.short $+ 5.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\5.png
  }
  elseif (%weather.short $+ 6.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\6.png
  }
  elseif (%weather.short $+ 7.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\7.png
  }
  elseif (%weather.short $+ 8.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\8.png
  }
  elseif (%weather.short $+ 9.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\9.png
  }
  elseif (%weather.short $+ 10.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\10.png
  }
  elseif (%weather.short $+ 11.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\11.png
  }
  elseif (%weather.short $+ 12.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\12.png
  }
  elseif (%weather.short $+ 13.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\13.png
  }
  elseif (%weather.short $+ 14.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\14.png
  }
  elseif (%weather.short $+ 15.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\15.png
  }
  elseif (%weather.short $+ 16.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\16.png
  }
  elseif (%weather.short $+ 17.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\17.png
  }
  elseif (%weather.short $+ 18.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\18.png
  }
  elseif (%weather.short $+ 19.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\19.png
  }
  elseif (%weather.short $+ 20.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\20.png
  }
  elseif (%weather.short $+ 21.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\21.png
  }
  elseif (%weather.short $+ 22.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\22.png
  }
  elseif (%weather.short $+ 23.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\23.png
  }
  elseif (%weather.short $+ 24.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\24.png
  }
  elseif (%weather.short $+ 25.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\25.png
  }
  elseif (%weather.short $+ 26.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\26.png
  }
  elseif (%weather.short $+ 27.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\27.png
  }
  elseif (%weather.short $+ 28.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\28.png
  }
  elseif (%weather.short $+ 29.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\29.png
  }
  elseif (%weather.short $+ 30.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\30.png
  }
  elseif (%weather.short $+ 31.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\31.png
  }
  elseif (%weather.short $+ 32.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\32.png
  }
  elseif (%weather.short $+ 33.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\33.png
  }
  elseif (%weather.short $+ 34.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\34.png
  }
  elseif (%weather.short $+ 35.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\35.png
  }
  elseif (%weather.short $+ 36.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\36.png
  }
  elseif (%weather.short $+ 37.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\37.png
  }
  elseif (%weather.short $+ 38.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\38.png
  }
  elseif (%weather.short $+ 39.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\39.png
  }
  elseif (%weather.short $+ 40.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\40.png
  }
  elseif (%weather.short $+ 41.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\25.png
  }
  elseif (%weather.short $+ 42.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\42.png
  }
  elseif (%weather.short $+ 43.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\43.png
  }
  elseif (%weather.short $+ 44.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\44.png
  }
  elseif (%weather.short $+ 45.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\45.png
  }
  elseif (%weather.short $+ 46.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\46.png
  }
  elseif (%weather.short $+ 47.gif isin %temp) {
    set %weather.pic $mircdirimages\icons\47.png
  }
}