get $text,$rel,$second in $loc;
if $second > 0 then chklock1 else fail1;


##chklock1:
if $pw like $second's pwd then tryit else itslocked;

##tryit:
get $target,$rel,$second in $second;
if $target > 0 then getit else fail2;

##getit:
set $target's loc = $actor's loc;
clear $target,all;
refresh $target;relook $loc;
say 'grab',"[$actor] reaches into [$second] and pulls out [$target]";

##fail1:
print "[$actor] tried to grab $text from something that is not here";

##fail2:
print "[$actor] tried to grab $text from [$second] but it was not in there";

##itslocked1:
print "[$actor] tried to grab [$target] from [$second] but its locked";

##itslocked2:
print "[$actor] tried to grab [$target] from [$second] but [$target] is locked";