##tickloc:runsub whattodo;
##wish:runsub transmoveme/1 or dropjewllery/1;
##whattodo:runsubtransmove/1 or dropjewllery/1;

##tickhour:runsub moveme;
##moveme:
call "denote";
call "roam";


##dropjewllery:
var $jewllery to (Rolex watch,golden ring,some money);
new $jewllery;
var $amount to random 100;
add 35 to $amount;
set $new_id's worth to $amount;
say 'drops',"[$new_id] slips out of [$actor]'s sack 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,jumps,slithers,sneaks);
var $does to (looks nervous and jumps into something,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: