##examines:runsub isitme;

##isitme:
if $actor eq $target then droppen else end;

##droppen:
new a green pen;
say 'creates',"[$actor] drops [$new_id]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";