COWbrowse

You are looking at a command called erase

erase {object}

Compeletely erase all traces of the named object. This sends it straight to the void, never to be seen again - it doe not send it to the rubbish bin.

eg:


create a pig. paint it as pink
erase the pig

Use read command called delete if you want to softly delete something with the potential of maybe, if your lucky, getting it back if you change your mind later.. but not much later othewise the janitor will clean it up.

Created by a lost object #2274, last updated 06 Dec 2010

Code

get $target in $loc;
var $sendto to 0; rem - where to send deleted objects;
if $target > 0 then checkclass else fail;
##checkclass:
if $target's class eq 'player' then fail else chklock;
##chklock:
if $pw like $target's pwd then moveit else itslocked;
##moveit:
unhost $target;
var $amt to $target's worth;
var $wth to $actor's worth;
say 'delete',"[$actor] completely erases all traces of [$target]";
clear $target,all;
add $amt to $wth;
set $actor's worth to $wth;
update $target to "worth=0, loc=$sendto, pose='hidden', switch=0, link=0";
relook $loc;

##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 [$target] because it's locked";