There is a quest command to bury corpses to avoid the decay timer/server reboot or whatever is set to send them to shadowrest. This is an example from qinimi, Besana_the_Gravedigger
Code:
sub EVENT_SAY {
$charid = 0;
$corpse = 0;
$charid = $client->CharacterID();
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
if ($text=~/hail/i) {
quest::say("I am ... [wish to live again] and I will dig up the body for them.");
quest::buryplayercorpse($charid);
$corpse = quest::getplayerburriedcorpsecount($charid);
}
if($text=~/wish to live again/i && $corpse == 0) {
quest::say("You have no corpse in this zone");
}
if($text=~/wish to live again/i && $corpse > 0) {
quest::say("And so you shall my friend. And so you shall.");
quest::summonburriedplayercorpse($charid, $x, $y, $z, 0);
$corpse = 0;
$charid = 0;
}
}