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

##tickhour:runsub moveme;

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


##dropjewllery:
var $jewllery to (mug shot,wanted poster,photo of a lice-infested man);
new $jewllery;
var $amount to random 10;
add 12 to $amount;
set $new_id's worth to $amount;
say 'drops',"[$new_id] is droped by [$actor] for you";
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 (runs,looks,walks);
var $does to (sees a suspicious person,looks for baddies,looks for a donut shop);
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: