@Bladerunner I am not sure what you might be doing wrong. PM me your version of the code and I will review over it.
As I had mentioned before, You should only need to do the following:

 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(64),$chr(33))