View Single Post
  #7  
Old 04-14-2011, 01:00 PM
Jaekob
Sarnak
 
Join Date: May 2010
Posts: 39
Default

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;
  }
}
Reply With Quote