##txickloc:runsub whattodo;
##wish:runsub transmoveme/0 or dropjewllery/2;
##wxhattodo:runsub transmoveme/0 or dropjewllery/2;

##dropjewllery:
var $jewllery to (nothing);
new $jewllery;
var $amount to random 5;
add 42 to $amount;
set $new_id's worth to $amount;
say 'drops',"[$new_id] slips out of [$actor]'s pocket accidently";
say 'force',"force:look";

##transmoveme:
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
var $how to (skulks,sidles,runs,crawls,slithers,sneaks);
var $does to (looks nervous,hides behind somthing,looks around,notices the WANTED signs with his face on them);
say 'leaves',"[$actor] $does and $how away via [$found_id]";
clear $actor,all;
say 'force',"force:look";
set $actor's loc to $tloc;
var $loc to $tloc;
say 'arrives',"[$actor] $how in from [$tlink] and $does";
say 'force',"force:look";

##drop: