[druid64]

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.

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