get $target in $Loc;
if $target > 0 then possessit else fail;
##continue:
if $pw like $target's pwd then possessit else itslocked;
##possessit:
say 'possess',"[$actor] and [$target] do a little jig to commemorate an event";
set $target's pid to $actor's pid;
set $actor's pid to '';
var $sp to 1262;set $sp's loc to $target;rem code;
var $sp to 1291;set $sp's loc to $target;rem possesss;
var $sp to 217;set $sp's loc to $target;rem into;
var $sp to 215;set $sp's loc to $target;rem outof;
var $sp to 218;set $sp's loc to $target;rem summon;
var $sp to 1302;set $sp's loc to $target;rem change;


##fail:
say 'failed',"[$actor] feels giddy";

##itslocked:
say 'faillocked',"[$actor] tries on a new piece of clothing but it is too big for him";