You're welcome, Scakk.

This:> on $*:text:/^!w(eather)?|f(orecast)?/Si:#: {
if ($2 isnum) {
if ($istok(!w !weather,$1,32)) { set %usweatherWF W }
if ($istok(!f !forecast,$1,32)) { set %usweatherWF F }
set %usweatherzip $2 | set %usweatherchan $chan
sockopen usweather www.localweather.net 80
}
}
Can be:

on $*:text:/^!w(eather)?\s(\d+)|f(orecast)?\s(\d+)/Si:#: {
  if ($istok(!w !weather,$1,32)) { set %usweatherWF W }
  if ($istok(!f !forecast,$1,32)) { set %usweatherWF F }
  set %usweatherzip $regml(1) | set %usweatherchan $chan
  sockopen usweather www.localweather.net 80
}

which saves the if $2 isnum statement and an end bracket.