Destroy Player Corpse quest file.

[sorvani]

I created a NPC and dropped this script on it to let players handle destroying a bugged corpse that will not go away.

sub EVENT_SAY {
  my $CorpseCount = 0;
  my $charid = $client->CharacterID();
  if($text=~/hail/i) {
    $client->Message(15,"I can [bury a corpse] or [destroy a corpse] that you have unburied.");
  } else {
    $CorpseCount = COUNT_CORPSES();
    if($text eq "destroy a corpse") {
      if($CorpseCount == 1) {
        $client->Message(15,'You have '.$CorpseCount.' corpse in the zone, are you certain you wish to [destroy this corpse]? Be very certain that you have the correct corpse unburied. A GM WILL NOT be able to undo this action. If not, I can [bury the corpse] for you.');
        quest::setglobal("dest_corpse",1,0,"M2");
      } elsif($CorpseCount > 1) {
        $client->Message(15,'You have '.$CorpseCount.' corpses in the zone. I am unabled to read your mind, so would you like to [bury a corpse] instead?');
      } else {
        $client->Message(13,"You have no unburied corpses, begone.");
      }
    }
    if($text eq "bury a corpse" || $text eq "bury the corpse") {
	  if($CorpseCount > 0) {
        quest::buryplayercorpse($charid);
        $client->Message(15,"Very well, burying one of your corpses now.");
      } else {
        $client->Message(13,"You have no unburied corpses, begone.");
	  }
    }
    if(defined($qglobals{dest_corpse}) && $qglobals{dest_corpse} == 1 && $text eq "destroy this corpse" && $CorpseCount == 1) {
      my $response = int(rand(1000)) + 1000;
      quest::setglobal("dest_corpse",$response,0,"M2");
      $client->Message(14,'To confirm you really wish to destroy this corpse, please say ['.$response.'].');
    }
    if(defined($qglobals{dest_corpse}) && $qglobals{dest_corpse} == $text && $CorpseCount == 1) {
      $client->Message(13,"Confirmed, I am now destroying your corpse.");
      my $corpse = $entity_list->GetCorpseByOwner($client);
      $client->Message(1,'You have served your purpose '.$corpse->GetOwnerName().'\'s corpse, now begone');
      $corpse->Delete();
      $client->Message(15,"Your corpse has been destroyed beyond any means of recovery.");
      quest::delglobal(dest_corpse);
    }
  }
}

sub COUNT_CORPSES {
  my @corpse_list = $entity_list->GetCorpseList();
  my $count = 0;
  foreach $corpse_found (@corpse_list) {
    if ($corpse_found->GetOwnerName() eq $client->GetName()) {
      $count++;
    }
  }
  $count;
}