get $target in $loc;
var $otarget to $target;
var $sendto to 7209; rem - where to send deleted objects;

if $otarget > 0 then checkclass else fail;
##checkclass:
if $otarget's class eq 'player' then fail else chklock;
##chklock:
if $pw like $otarget's pwd then moveit else itslocked;
##moveit:
var $how to (disintegrates,deletes,rubs out,removes,evaporates);
var $amt to $otarget's worth;
var $wth to $actor's worth;
var $penny to 'penny';
if $amt > 1 then morethanone;

say 'delete',"[$actor] $how [$otarget] and gained $amt $penny";
clear $otarget,all;
unhost $otarget;
add $amt to $wth;
set $actor's worth to $wth;
update $otarget to "worth=0, loc=$sendto, pose='hidden', link=0, switch=0";
relook $loc;

##morethanone:var $penny to 'pennies';
##fail:
var $click_cmd to 'delete';
var $desc_intro to 'Click on the object you want to delete:
';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";

##itslocked:
say 'deletefailed',"[$actor] could not delete [$otarget] because it's locked";