$EntityList->DeleteNPCCorpses();

Andrew80k · #1 08-09-2008, 09:51 AM

Quote:

Originally Posted by trevius

I have tried quite a few more combinations, but can't seem to get it to work at all. Even if I put it in EVENT_ATTACK and have another corpse of the same NPC nearby, it won't delete the nearby corpse. The script below has many commented out sections of some of the quest objects I have tried with no luck so far.

Test Script:

Code:

#depop corpses

sub EVENT_ATTACK {

#$EntityList->DeleteNPCCorpses(2700660);

#$c = $EntityList->GetCorpseByID(2700660);
#  if ($c) {
#    $c->RemoveAllCorpses(); }

#$EntityList->RemoveCorpse(2700660);

my $deadnpc = $EntityList->GetCorpseByID(2700660);

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

}

sub EVENT_DEATH {

#my $c;

#quest::depop();
#$Corpse->Delete(2700660);
#$EntityList->GetCorpseByID(2700660);
#$EntityList->DeleteNPCCorpses(2700660);

#$c = $EntityList->GetCorpseByID(2700660);
#  if ($c) {
#    $c->SetDecayTimer(1); }

}

Also, I wanted to note that the suggestion example from spoon shows:

Code:

  $c = $entity_list->GetCorpseByID(2700660);

But, I think it is supposed to be:

Code:

  $c = $EntityList->GetCorpseByID(2700660);

Have you tried $entity_list? If you look in the quest Objects wiki it uses it like that in the examples. And I have also seen it in other working quests like that.

**cavedude** · #2 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** · #3 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** · #4 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** · #5 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** · #6 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** · #7 08-10-2008, 09:13 AM

Maybe there is a GetCorpseByType?