if target of use then used;

##used:
runsub findsitter;
update $init_obj = "host=$target,hosthow='sitting on'";
say 'msg',"[$init_obj] sits on [$target]";
relook $loc;

##findsitter:
// this doesnt work because sit puts both words in hosthow and the 2nd word can be anything: $sitter is sitting on $target;
foreach in $loc do checksit;

##checksit:
$host = $for_id's host;
if $host eq $target then checksit2;

##checksit2:
$how = $for_id's hosthow;
$match = 'sitting';
if $how like $match then pushoff;

##pushoff:
update $for_id = "host=$target,hosthow='near',pose='standing'";
say 'msg',"[$init_obj] pushes [$for_id] off [$target].";