Before I forget to mention, there's a parser command in your main script that I suspect doesn't work as you intend.
(cond
((Said 'look>')
(cond
((Said '/carpet,down')
"Look carpet" will work, although I'm not sure why this would be in your main script...unless there's a carpet in every room in the game.
But "look down" doesn't parse as "down" I believe is an adverb. I think the game will just give the standard "look" command if the player types "look down."
Just a small observation.