script for summond your corpse's in pok.
#Lordkeeper Antnov.pl
#LOC Pok (-229.65,-197.30,-155.31)
sub EVENT_SAY {
$charid = 0;
$corpse = 0;
$charid = $client->CharacterID();
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
$corpse = quest::getplayerburriedcorpsecount($charid);
sub EVENT_SAY {
if($text=~/Hail/i){
quest::say("Greetings $Name! If you wish to Improve yourself Just [Ask] and, if I am able, I will increase your power. I also have The Ability
to [Summon] any corpses you may be missing.");
}
if($text=~/AsK/i) {
$client->Message("Vary well, $name, I will grant you what power I am able."); #ASk
if($text=~/Summon/i && $corpse == 0) {
$client->Message("Vary well, $name, I shell Recover your Corpses! ");
quest::summonburriedplayercorpse($charid, $x, $y, $z, 0);
$corpse = 0;
$charid = 0;
}
sub EVENT_SPAWN
{
$x = $npc->GetX();
$y = $npc->GetY();
quest::set_proximity($x - 229.65, $x -197.30, $y -155.31, $y + 0);
}
}
sub EVENT_ITEM {
quest::say("I have no use for this, $name.");
plugin::return_items(\%itemcount);
}
#END of FILE Zone:poknowledge
|