get $target,$rel,$text in $loc;
if $rel eq 'to' then checkpw else fail;
##checkpw:
if $pw like $target's pwd then updateit else updateit;

##chkclass:
print "first word = $firstword ltarget=$ltarget last_target=$last_target lastword=$lastword";

##updateit:
set $target's class to "$text";
fixplural $target;
say 'change',"[$actor] renames $cmd_text";
relook $loc;


##itslocked:
say 'changefail',"[$actor] could not rename $cmd_text because it is locked";
##fail:
say 'changefail',"[$actor] could not rename $cmd_text";