A small morphing program.

To use, create your descriptions on your character, in a propdir called
/descs/, each description name starting with _:

lsedit me=/descs/_asleep
lsedit me=/descs/_fluffy
lsedit me=/descs/_rumpled

and scents in /scents/

@set me=/scents/_asleep:You smell a snoring otter.
@set me=/scents/_fluffy:Achoo!
@set me=/scents/_rumpled:Muskier than usual. Probably due to the increased available surface area.

@desc me={eval:{list:/descs/_{prop:_desc}}}
@set me=scent:{prop:/scents/_{prop:_desc}}

Type mm (or your action's name) for a list of available descriptions, and 

[Start Dump]
@action mm=me=tmp/exit1
@link $tmp/exit1=$nothing
@set $tmp/exit1=H
@propset $tmp/exit1=str:/_/sc:{if:{propdir:/descs/_{&arg}#/,me},Your description is now {store:{&arg},_desc,me},You're currently '{prop:_desc,me}'. You can choose from:{nl}   {subst:{subst:{listprops:descs,me,*#}\r,descs/_,},#\r, }}
[End Dump]