##tickday:runsub whattodo;
##tickhour2:runsub clanupnow;
##wish:runsub checkall;
if target of push then whattodo;

##cleanupnow:
call "denote"; rem removes any empty comments left by spiders and feed burners etc..

##checkall:
foreach in $loc do checkcounter;

##checkcounter:
var $tmp to $for_id's counter;
rem print "[$for_id] = $tmp";

##whattodo:
var $archivebox to 21943; rem - the ID of the archive box;
var $td = today -45 day format %Y%m%d%H%i;
foreach in $loc do checkdate;
relook $loc;

##checkdate:
$tm = $for_id's add_stamp;
if $tm < $td then conciderit;

##conciderit:
var $moveok to 0;
if $for_id's link > 0 then leaveit;
if $for_id's class eq 'player' then leaveit;
if $for_id eq $actor then leaveit;

if $moveok eq 0 then moveit else canttouchit;

##leaveit: add 1 to $moveok;

##moveit:
say 'msg',"[$actor] shoved [$for_id] into [$archivebox] as its $tmp days old";
set $for_id's loc to $archivebox;


##canttouchit:
rem say 'msg',"[$actor] is happy with [$for_id] for now";