COWbrowse

You are looking at a command called denote

denote
denote all

This will randomly find an unlocked and unedited object in your current location and delete it.
denote

Or it will delete all objects that are unlocked and un-edited in your location if you add the all word.
denote all

read the command called delete
read the command called create

scripting notes:

Quite handy if you have coded a roaming object as it can clean up those little objects people have created and not written in or locked.


call "denote";

Created by wolis, last updated 04 Jan 2012

Code

get $text;
var $sendto to 7209; rem - where to send deleted objects;

if $text = "all" then deleteall else deleterandom;

##deleterandom:
find $loc, random not doorway not locked not edited;

$otarget = $found_id;
if $found_id > 0 then removeit else end;

relook $loc;
##old_removeit:
call "delete $found_id";

##deleteall:
foreach in $loc do checkfornote not doorway not locked;

##checkfornote:
$otarget = $for_id;
if $otarget's info = "" then removeit;

##ZZremoveit:
print " del [$for_id] - [$otarget]";

##removeit:
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';