##tickloc:runsub whattodo;
##wish:runsub transmoveme/2 or dropjewllery/2;
##whattodo:runsub transmoveme/3 or dropjewllery/50;

##tickhour:runsub moveme;
##moveme:
find $loc,random doorway;
call "go $found_id";


##dropjewllery:
var $jewllery to (pearl necklace,gold watch,diamond earrings,rubies,sapphires);
new $jewllery;
var $amount to random 500;
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: