echo [>    ] Start Upload: Remote Control
@set $RC=/_/de:{lexec:desc}
lsedit $RC=desc
.del 1 1000
\r{lit:     }A large remote with a multitude of buttons and small readouts.  At the top is the name '{name:{owner:this}}' printed in block letters.  Below the name are two readouts.\r \r
Morph:           {morph} / {prop:sex,{owner:this}} {prop:species,{owner:this}}\r
Clothing:        {wearing-readout}\r \r
{lit:     }Underneath the readouts are the buttons.\r \r
[rmorph]         {left:Changes {name:{owner:this}}'s morph.,36}'rmorph' for help\r
[rwear]          Puts on an article of clothing.     'rwear' for help\r
[rstrip]         Takes off an article of clothing.   'rstrip' for help\r
[rpadlock]       Locks an article of clothing.       'rpadlock' for help\r
[runpadlock]     Unlocks an article of clothing.     'runpadlock' for help\r
[rblock]         Blocks an artice of clothing.       'rblock' for help\r
[runblock]       Unblocks an article of clothing.    'runblock' for help\r
[rwearoutfit]    Puts on an outfit.                  'rwearoutfit' for help\r
[rstripoutfit]   Strips off the current outfit.      No help available.\r
[rstripall]      {left:Strips {name:{owner:this}} nude.,36}No help available.\r
{lit:     }Please note, all functions are performed silently.  No messages are broadcast to the room.\r \r
.end
@name $RCA=rwear;rwearoutfit;rstrip;rstripoutfit;rstripall;rpadlock;runpadlock;rblock;runblock;rmorph
@set $RCA=/_/de:{lexec:desc,$RC}
@set $RCA=/_/sc:{exec:{&cmd}/sc}
@set $RCA=/rblock/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{block:{&li}}},\r},<=> Usage: rblock [clothing]...{b-choices}}
@set $RCA=/rmorph/sc:{setmorph:{&arg}}
@set $RCA=/rpadlock/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{padlock:{&li}}},\r},<=> Usage: rpadlock [clothing]...{p-choices}}
@set $RCA=/rstrip/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{stripclothing:{&li}}},\r},<=> Usage: rstrip [clothing]...{wearing-strip}}
@set $RCA=/rstripall/sc:{stripall}
@set $RCA=/rstripoutfit/sc:{stripoutfit}
@set $RCA=/runblock/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{unblock:{&li}}},\r},<=> Usage: runblock [clothing]...{ub-choices}}
@set $RCA=/runpadlock/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{if:{eq:!,{midstr:{&li},1}},{unpadlock:{midstr:{&li},2,-1},!},{unpadlock:{&li}}}},\r},<=> Usage: runpadlock [clothing]...{up-choices}}
@set $RCA=/rwear/sc:{if:{&arg},{lremove:{parse:li,{subst:{&arg}, ,\r},{wearclothing:{&li}}},\r},<=> Usage: rwear [clothing]...{wearing}{c-choices}}
@set $RCA=/rwearoutfit/sc:{if:{&arg},{wearoutfit:{&arg}},<=> Usage: rwearoutfit [outfit]{wearing}{o-choices}}
echo [---->] End Upload (38 lines)