Collect Quest plugin

#plugin::check_hascount($client, itemid, amountcheck)
sub check_hascount {
    my $client = shift;
    my $itemid = shift;
    my $count = shift;
    my $count_total = 0;

    #Ignore cursor / cursor bags Slots 30 / 331-340
    my @slots = (0..29, 251..330);
    foreach $slot (@slots) {
        if ($client->GetItemIDAt($slot) == $itemid) {
            $count_total+= $client->GetItemAt($slot)->GetCharges();
        }
    }
    if ($count_total >= $count) {
        return 1;
    } else {
        return 0;
    }
}

#plugin::collect_quest($client, itemid, amountcheck)
sub collect_quest {
    my $client = shift;
    my $itemid = shift;
    my $count = shift;
    my $item_charges;

    #Ignore cursor / cursor bags Slots 30 / 331-340
    my @slots = (0..29, 251..330);
    foreach $slot (@slots) {
        if ($client->GetItemIDAt($slot) == $itemid) {
            $item_charges = $client->GetItemAt($slot)->GetCharges();
            if ($item_charges >= $count) {
                $client->DeleteItemInInventory($slot, $count, 1);
                $count = 0;
            }
            elsif($item_charges < $count && $item_charges > 0) {
                $client->DeleteItemInInventory($slot, $item_charges, 1);
                $count-= $item_charges;
            }
        }
        if($count <= 0) {
            return 1;
        }
    }
    return 0;
}