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 object until there is nothing left";
clear $target,all;
set $target's class to 'teletubby';
set $target's loc to 0;
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] could not delete [$target] because it's locked';