Create soulbound keys (EQEMU scripts)

soulbound.pl

# place this script in quests/global/global_player.pl
sub EVENT_DEATH_COMPLETE {
  @keyIds = (20883);

  my $corpse = $entity_list->GetCorpseByOwner($client);
  foreach(@keyIds) {
    if ($corpse->HasItem($_)) {
      $corpse->RemoveItemByID($_);
      quest::summonitem($_);
    }
  }
}