get $target,$rel,$word,non-greedy in $loc;
if $target > 0 then checkpw else fail;
##checkpw:
if $pw like $target's pwd then continue else continue;
##continue:
var $temp to $actor;
var $tmp2 to $target;
var $actor to $target;
var $target to 0;
call $word;
var $actor to $temp;
var $target to $tmp2;
look $loc;
##fail:
say 'fails',"[$actor] dreams of forcing $cmd_text";
##faillocked:
say 'failocked',"[$actor] wants to force [$target] but its locked";