$EntityList->DeleteNPCCorpses();

**trevius** · #7 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.