NPC script issue
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.");
}
}
|