Corpse summoners in Guild Lobby

[Jaekob]

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

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;
  }
}

[sehall]

I got the corpse summoners in the guild lobby by doing what Jaekob suggested. In the perl scripts A_Priest_of_Luclin and A_Priestess_of_Luclin, place this command: quest::buryplayercorpse($charid);
before this command: $corpse = quest::getplayerburriedcorpsecount($charid);

It burys the player corpse so that it can be summoned.

[provocating]

It really does work beautifully. I made a small modification to let the player know a corpse was found.

sub EVENT_SAY {
  my $charid = 0;
  my $corpse = 0;
  my $charid = $client->CharacterID();
  my $x = $npc->GetX();
  my $y = $npc->GetY();
  my $z = $npc->GetZ();
  
  quest::buryplayercorpse($charid);
  my $corpse = quest::getplayerburriedcorpsecount($charid);

  if($text=~/hail/i) {
   $client->Message(4, "The spectral figure stares into your soul with cold eyes, its voice entering your mind. We keep all that has been lost. In times past, nothing be returned once it was mine. Time have changed. The bodies, your [bodies], that were lost to you can now be returned.");
  }
  if($text=~/bodies/i && $corpse == 0) {
    $client->Message(13, "The voice booms angrily in your mind, Be gone from this place. You waste my time!");
  }
  if($text=~/bodies/i && $corpse > 0) {
    quest::summonburriedplayercorpse($charid, $x, $y, $z, 0);
	$client->Message(13, "I have returned your body to this world, please be more careful in Norrath.");
  }
}

[chrsschb]

Bumping this old thread because I'm having an issue with this script where the players are getting duplicate corpses. The summoned corpse (1) and the original corpse (2). This is obviously an extremely exploitable bug.

[provocating]

Yep, best bet is to not use it. Very exploitable.

[chrsschb]

Originally Posted by provocating

Yep, best bet is to not use it. Very exploitable.

So guessing I'm not the only one?

[provocating]

Definitely not the only one.