[Andrew80k]

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:

#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:

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

But, I think it is supposed to be:

  $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.