Here are the changes I made to the distro decay system. Notes below show why:
Code:
CONST RECT_SIZE := 32;
program DecayCycle(realm)
// Make sure there isn't already a decay cycler running for this realm.
Set_Critical(1);
if ( GetProcess(CInt(GetGlobalProperty("#DecayPid-"+realm.name))) )
return 0;
else
SetGlobalProperty("#DecayPid-"+realm.name, GetPid());
endif
Set_Critical(0);
var data_file := DFOpenDataFile("DecayInfo", DF_CREATE);
var data_elem := DFFindElement(data_file, "Status-"+realm.name, DF_CREATE);
Set_Priority(1);
Sleep(3);
/* Start from the last place the decayer was at.
* This is to ensure that if there are a lot of crashes,
* it doesn't decay the start of the realm over and over.
*/
var cur_x := CInt(data_elem.GetProp("X"));
var cur_y := CInt(data_elem.GetProp("Y"));
// Report the starting position of the decay cycle for this realm.
DECAY_ReportText("Starting "+realm.name+" decayer at X:"+cur_x+" Y:"+cur_y + " Width: " + realm.width + " Height: " + realm.height, DECAY_REPORT_CONSOLE+DECAY_REPORT_SYSLOG);
while ( 1 )
//check to see if the server is shutting down. If so, quit
if ( GetGlobalProperty("#restartingserver") )
DECAY_ReportText("Closing down decay system in " + realm.name + " as server is shutting down.", DECAY_REPORT_CONSOLE+DECAY_REPORT_SYSLOG);
return 0;
endif
var starttimer := ReadGameClock();
for ( cur_x; cur_x <= realm.width; cur_x := cur_x + RECT_SIZE )
for ( cur_y; cur_y <= realm.height; cur_y := cur_y + RECT_SIZE )
/*
* Note:
* Print("Decayer: sweeping "+cur_x+" "+cur_y+" "+(cur_x+RECT_SIZE)+" "+(cur_y+RECT_SIZE));
* ListObjectsInBox() is ruthless and will list everything that is in that rect.
*/
foreach object in ( ListObjectsInBox(cur_x, cur_y, -130, cur_x+RECT_SIZE, cur_y+RECT_SIZE, 130, realm.name) )
if ( CanRemove(object) )
RemoveObject(object);
endif
endforeach
data_elem.SetProp("Y", cur_y);
if ( realm.name == "britannia" )
// realm not used. do it slowly
SleepMS(400);
else
SleepMS(10);
endif
endfor
cur_y := 0;
data_elem.SetProp("X", cur_x);
endfor
// A full realm sweep has been done.
cur_x := 0;
cur_y := 0;
data_elem.SetProp("X", 0);
data_elem.SetProp("Y", 0);
var elapsedtime := ReadGameClock() - starttimer;
DECAY_ReportText("Decay sweep of " + realm.name + " took " + elapsedtime + " seconds", DECAY_REPORT_CONSOLE+DECAY_REPORT_SYSLOG);
//Ensure decayer run 15 minutes after last time.
var nextloop := starttimer + 900;
while ( ReadGameClock() < nextloop )
Sleep(60);
endwhile
endwhile
return 1;
endprogram
A couple of notes:
* yeah made 096 compatible.. cos that's what I use!
* I play in britannia_alt, that's why the decay for britannia is slow.
* the while loop at the end of the program is there just to ensure decay only happens every 15 minutes, not 15 minutes after you last ran it.
* the sleeps seem to work ok for a realm with about 60,000 top level items.
* the RECT+SIZE is 32 to make it fit map boundaries better
* cur_y is reset to 0 otherwise the inner for/enfor loop doesn't run more than once.
* I have a cprop set by shutdown timers to signal impending shutdown, it's tested here to close down the decay system early
Extenal changes:
* I also don't log every item decayed, I only log if it can't decay something.
* The decayCycle is started 10 minute after shard startup so players can at least attempt to get to things after restart.
He was probably logging every item just to make sure the thing worked. Pre-pre-pre-alpha version and all that.
