$EntityList->DeleteNPCCorpses();

**trevius** · #1 08-08-2008, 07:16 AM

Does anyone know if it is possible to make quests so that an NPC will delete it's own corpse when it dies? I have many cases where mobs don't have loot for certain reasons and I would love if I could just make the corpses automatically poof when they die. One case is a zone that is purely for experience, so it has no loot. People like to AE in there alot, but it causes quite a heavy load on my server and the zone can crash sometimes. Another reason is for adds that spawn during certain encounters that don't have any loot, and their corpses can cause lag to players after too many build up. So, these are 2 good reasons why I would love to just have the corpses vanish.

So far, I have tried:

Code:

sub EVENT_DEATH {

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

}

And a couple of other ways, but none seem to work. If there isn't currently a way to do it, then it might be a good idea for some new custom code to write. I think this would come in handy on pretty much every server in certain cases.

spoon · #2 08-08-2008, 01:37 PM

you might try something like:

Code:

sub EVENT_DEATH {
  $c = $entity_list->GetCorpseByID(2700660);
  if ($c) {
    $c->Delete();
  }

or

Code:

sub EVENT_DEATH {
  $c = $entity_list->GetCorpseByID(2700660);
  if ($c) {
    $c->SetDecayTimer(1);
  }

There probably is a better way though.

**trevius** · #3 08-09-2008, 04:03 AM

Thanks for the suggestions. I tried them and can't seem to get them to work. I will keep messing with it, but if anyone has a better solution, let me know, please

**trevius** · #4 08-09-2008, 05:09 AM

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

Andrew80k · #5 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** · #6 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.