@chachin

Similar to what I did for @bladerunner

 Replace Lines 47 thru 53 (This changes ! to @)
 on $*:INPUT:#: {
if ($regex($1,/^[?](w|weather|forecast|forecast5|alert|alerts|alertinfo|alertsinfo|time|current)/Si)) wunderground $1-
}
on $*:text:/^[?](w|weather|forecast|forecast5|alert|alerts|alertinfo|alertsinfo|time|current)/Si:#: {
wunderground $1-
}   

Insert between Line 130 and 131 (This changes the @ back to the ! so the rest of the script will work (helps not having to replace every single ! in the whole code)
 ;---Command Prep. Checks command to see which data file it will be pulling from depending on command entered ---
set %wu_command $replace(%wu_command,$chr(63),$chr(33))