@create Pouch
@set Pouch=!NO_COMMAND
@set Pouch=OPAQUE
@DESCRIBE Pouch=A small sensible pouch of soft brown leather is hung from [name(owner(me))]'s belt. [switch(%#,[owner(me)],<pouch help>)]
&HELPCMD Pouch=$pouch help:@pemit %#=Commands: pocket <item>, pull out <item>, peek pouch
&CMD.PEEK Pouch=$peek pouch:@pemit %#=[switch([words(lcon(me))],0, {The pouch is empty.}, {In the pouch are: [iter(lcon(me), [name(##)],,%b*%b )]})]
&CMD.TAKE Pouch=$pull out *:drop %0;@pemit %#=You take the [lcstr(name(%0))] out of your pocket.
&CMD.PUT Pouch=$pocket *:get %0;@pemit %#=You put the [lcstr(name(%0))] in your pocket.
&AUTHOR Pouch=Coded by Abby Goutal (Lissilma@CDI), 1999.