get $target,as,$text,non-greedy in $loc;
if $target > 0 then checkpw else chkoneword;
##chkoneword:
var $text to '';
get $target in $loc;
if $target > 0 then checkpw else fail;
##checkpw:
if $pw like $target's pwd then chkdesc else itslocked;
##chkdesc:
if $text eq '' then editdesc else descit;

##editdesc:
var $caption to 'skills';
var $fld to 'skills';
say 'edit',"[$actor] starts to edit [$target]'s skills";
mode textbox;

##descit:
set $target's skills to $text;
say 'edits',"[$actor] modifies [$target]'s skills";

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'skillit';
var $desc_intro to "Click on the object you want to $click_cmd:

";
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##itslocked:
say 'objlocked',"[$actor] could not modify [$target] because its locked";