##tickloc:runsub whattodo;
##whattodo:runsub photo/5;
##wish:runsub photo;

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

##photo:
find $loc,random player not me;
if $found_id's class like photo then nophoto else takeit;
##takeit:
var $meth to (slowly,secretly,slyly,flamboyantly,carelessly,quickly);
var $typ to (takes,snaps);
say 'act',"[$actor] $meth $typ a photo of [$found_id]";
getname $found_id,plain;
var $phclr to $found_id's colour;
var $dropchk to random 5;
if $dropchk < 5 then chkforphotoonfloor else end;
##chkforphotoonfloor:
find $loc,a photo;
if $found_id > 0 then end else dropit;
##dropit:
var $photoname to "of $this_name"; rem $this_name comes from findname;
var $quality to (an excellent,a mediocre,a stunning,a poor,a blurred);
var $typ to (action shot,portrait,candid photo,glamour shot,artistic study of light,artistic photo,wide-angle,closeup,example);
new a photo;
set $target's extra to "$photoname";
set $target's info to "it is $quality $typ $photoname";
set $target's worth to $dropchk;
set $target's colour to "$phclr";
set $target's pose to "dropped";
say 'drops', "[$actor] accidentally dropped [$target]. It may be worth something!";
say 'force',"force:look";

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