$EntityList->DeleteNPCCorpses();

**cavedude** · #1 08-09-2008, 11:08 AM

I remember I had a hell of a time trying to use Perl to work with corpses before the graveyard/shadowrest system was put into place. Finally, I just gave up and convinced Wildcard to implement the graveyard (and then he became inspired and threw in SR for the hell of it - I do miss Wild!) Sadly, you don't have this option. Though, I too would like to see empty NPC corpses delete after a few seconds like on Live.

**trevius** · #2 08-10-2008, 04:15 AM

I am getting closer! At least now I can get the corpse to actually delete or decay using one of these 2 options:

Delete Corpse:

Code:

my $deadnpc = $entity_list->GetCorpseByName("Tiny_Albino_Rat's corpse445");

  if ($deadnpc) {
    my $delete_corpse = $deadnpc->CastToCorpse();
    $delete_corpse->Delete(); }
    
    quest::say ("$deadnpc");

}

Decay Corpse after 1 Second:

Code:

my $deadnpc = $entity_list->GetCorpseByName("Tiny_Albino_Rat's corpse445");

  if ($deadnpc) {
    my $delete_corpse = $deadnpc->CastToCorpse();
    $delete_corpse->SetDecayTimer(1); }
    
    quest::say ("$deadnpc");

}

This option works as well for specifying the corpses:

Code:

my $deadnpc = $entity_list->GetCorpseByID(631);

Now, if I can just figure out how to do it without having to be so specific as to put the exact name or ID I want to delete... I will keep you all informed if I come up with a solution.

**trevius** · #3 08-10-2008, 04:37 AM

This is promising! This isn't exactly what I want just yet, but I think it can definitely be useful. This will delete all corpses in the zone:

Code:

$entity_list->DeleteNPCCorpses();

I still want to be able to specify which ones I want to delete.

**trevius** · #4 08-10-2008, 04:58 AM

Maybe this can help for automatically poofing empty corpses:

Code:

$corpse->IsEmpty();

Now, if I can only figure out how to make them target their own corpse when they die, or something to that effect.

**trevius** · #5 08-10-2008, 07:14 AM

This seems to work to only delete the corpse if it is empty:

Code:

my $deadnpc = $entity_list->GetCorpseByName("Tiny_Albino_Rat's corpse423");

  if ($deadnpc->IsEmpty()) {
    my $delete_corpse = $deadnpc->CastToCorpse();
    $delete_corpse->SetDecayTimer(1); }

The only thing left is to figure out how to select corpses without having to provide an exact name or entity ID number.

**joligario** · #6 08-10-2008, 09:13 AM

Maybe there is a GetCorpseByType?

**trevius** · #7 08-10-2008, 09:04 PM

I am just going off of the list of Quest Objects from the Wiki here:

http://www.eqemulator.net/wiki/wikka...a=QuestObjects

I don't see anything there that will do what I need exactly. Unless maybe more were added that just aren't in the Wiki yet.

What I really need is either a way for an NPC to somehow identify it's corpse via exact name or entity ID, or a way to have the script look at all corpses in the zone.

I am not at home right now, but maybe something like this would work to have it check all corpses in the zone:

Code:

my $deadnpc = $entity_list->IsNPCCorpse();

  if ($deadnpc->IsEmpty()) {
    my $delete_corpse = $deadnpc->CastToCorpse();
    $delete_corpse->SetDecayTimer(1); }

I am doubtful, as I don't think that is actually getting anything, but rather for checking if it is a corpse or not. I will test it later tonight. But, I am definitely open to suggestions