get $target in loc;
if $target > 0 then chklock else notarg;
##chklock:
if $pw like $target's pwd then possessit else itslocked;

##possessit:
$tepid = $init_obj's pid;
set $target's pid = $tepid;
set $init_obj's pid = '';
"[$init_obj] fans $hisher fingers towards [$target].";
"[$target] suddenly begins to sputter and convulse.";
"[$target] is suddenly possessed by [$init_obj]";

##itslocked:
sayto $init_obj,"Sorry but [$target] is locked.";

##notarg:
sayto $init_obj,"Invalid target.";