I like it, it seems good, but there are a few things you can fix:
You should put this somewhere else in the script, because it may confuse some "new" users that they need to change it.
Code:
bonetype ='Bones'; //the up text
and i think it should actually be:
Code:
bonetype ='ones'; //the up text
Another part is this:
Code:
procedure setscreen;
begin
makecompass('n');
setangle(true);
proggy;
end;
Code:
loginplayer;
setscreen;
proggy;
repeat
This will login your players, set the screen, do a proggy, then redo on a second later. This is pointless because 1, they didnt even start burying yet, and 2, it does it twice. I would leave it in your burry procedure and take it out of your setangle procedure.
I would also add it to this:
Code:
until (h=howmany)
logout;
end.
Code:
until (h=howmany)
logout;
proggy;
end.
Also, doing this will get you banned:
No one can wait exactly that much time so do this:
Code:
wait(1500 + Random(500));
I attached your script with standards fixed. Also use proper capitalization for your constants