on $*:INPUT:#: {
  if ($regex($1,/^[!](w|weather|forecast|forecast5|alert|alerts|alertinfo|alertsinfo|time|current)/Si)) wunderground $1-
}

on $10:text:/^[!](w|weather|forecast|forecast5|alert|alerts|alertinfo|alertsinfo|time|current)/Si:#: {
  ((%asdf == $null) || ($calc((%asdf + 20) - $ctime) < 0)) {
    wunderground $1-
    set -u20 %asdf $ctime
  }
  else {
    notice $nick Wait $calc((%asdf + 20) - $ctime) second(s) before trying !w again.
  }
}