EQEmulator Forums - Ressurection Script for Guild Lobby

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Custom (https://www.eqemulator.org/forums/forumdisplay.php?f=671)

- - Ressurection Script for Guild Lobby (https://www.eqemulator.org/forums/showthread.php?t=34728)

Ressurection Script for Guild Lobby

Here is a little script that will cast 96% rez on your corpse. I wrote it and attached to some npc's in the guild lobby. Could probably use a little tweaking but works fine for my needs.

Code:

#NPC Rez script by druid64 01-16-2012

 

sub EVENT_SAY {  

        my $charid = $client->GetID();

        my $saylink1 = quest::saylink("rez");



        if ($text =~ /hail/i)  {

            $client->Message(315, "I can try and [$saylink1] your corpse if you like.");

        }

            

        if($text=~/rez/i) {

            my $corpse = $entity_list->GetCorpseByOwner($client);

            $client->Message(315,'I will now try and rez '.$corpse->GetOwnerName().'\'s corpse');

            $corpse_id = $corpse->GetID();

            $npc->CastSpell(1524,$corpse_id);

        }

    }

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

NoPort,

I don't know where you got that script or if it is one that you wrote, but that has quite a few things wrong with it. More than 1 EVENT_SAY, missing closing brackets, a proximity set on spawn that isn't used, typos, etc etc.

lmao I was wondering about that too. A random post after mine I thought he would have posted separately.