NPC script issue

[Nightrider84]

well long story short, I wrote a script a few years ago for my corpse summoner npc's and after I updated they don't work now, here is the script if someone could give me a hint it would be appreciated.

sub EVENT_SAY {

my $bodies = quest::saylink("bodies", 1);
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) {
plugin::Whisper("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. 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);
plugin::Whisper("I have returned your body to this world, please be more careful in Norrath.");
}
}

[Nightrider84]

So ive isolated the probem to

quest::buryplayercorpse($charid);
my $corpse = quest::getplayerburriedcorpsecount($charid);

is whats causing the issue, it is either an unused pearl sub or i have it in the wrong spot or missing something

[Kingly_Krab]

I recently changed this function, burried is now buried. Refer to this commit: https://github.com/EQEmu/Server/commit/e2ac647e03c6ceac9131e89faa18d76f1e0fa637