get $target in $loc;
if $target > 0 then checkclass else fail;
##checkclass:
if $target's class eq 'spinal_bellum' then fail else chklock;
##chklock:
if $pw like $target's pwd then moveit else itslocked;
##moveit:
say 'delete',"[$actor] erases the [$target] until there is nothing left";
set $target's class to 'splinge';
set $target's loc to 0;
clear $target,all;
look $loc;
##fail:
var $click_cmd to 'delete';
var $desc_intro to 'Click on the object you want to delete:
';look $loc,list;
##itslocked:say 'deletefailed','[$actor] looks at the [$target] inquisitively';