[Kingly_Krab]

Try this:

sub EVENT_DEATH_COMPLETE {
    if (plugin::check_hasitem($client, 86009)) {
        quest::level(1);
        quest::setallskill(0);
        $client->DeleteItemInInventory(FindFirstSlot(86009), 1, 1);
    }
}

sub FindFirstSlot {
    my $item = shift;
    foreach my $slot (0..30, 251..340, 2000..2023, 2031..2271, 2500, 2501, 2531..2550, 9999) {
        if ($client->GetItemAt($slot) && $client->GetItemIDAt($slot) == $item) {
            return $slot;
        }
    }
}