check_hasitem.pl

[Almusious]

A recent post by Uleat (today) reminded me, that those already rolling with an EQEmu setup may not have updated their check_hasitem.pl much less know it should be. This is for those of whom the aforementioned apply:

It's a modified version of the one that used to be provided BEFORE the inventory changes in which made this necessary. Unsure who to credit for it, sorry.


## Plugin Name: check_hasitem.pl
## Description: Checks character's possession(s) throughout all inventory slots to determine if the requested item (ID) exists (ie. returns 1 for true, 0 for false)
## Usage: plugin::check_hasitem($client, itemid); -- (whereas itemid = the item number we're looking for)
sub check_hasitem
{
my $client = shift;
my $itemtocheckfor = shift;
my $individualslot;
my $founditem;
my $augmentid;
my $i;
my $body_count = $client->GetCorpseCount();
my $body_id;

my @slotsarray = ((quest::getinventoryslotid("possessions.begin"))..(quest::getinventoryslotid("possessions.end")),
(quest::getinventoryslotid("generalbags.begin"))..(quest::getinventoryslotid("generalbags.end")),
(quest::getinventoryslotid("cursorbag.begin"))..(quest::getinventoryslotid("cursorbag.end")),
(quest::getinventoryslotid("bank.begin"))..(quest::getinventoryslotid("bank.end")),
(quest::getinventoryslotid("sharedbankbags.begin"))..(quest::getinventoryslotid("sharedbankbags.end")),
(quest::getinventoryslotid("sharedbank.begin"))..(quest::getinventoryslotid("sharedbank.end")));


foreach my $individualslot (@slotsarray)
{
$founditem = $client->GetItemIDAt($individualslot);
if ($founditem == $itemtocheckfor) { return 1; }
for ($i = quest::getinventoryslotid("augsocket.begin"); $i < quest::getinventoryslotid("augsocket.end"); $i++)
{
$augmentid = $client->GetAugmentIDAt($individualslot, $i);
if ($augmentid == $itemtocheckfor) { return 1; }
}
}

## Check corpses contents
if ($body_count)
{
my $foundcorpseitem;
my @corpseslotsarray = ((quest::getinventoryslotid("possessions.begin"))..(quest::getinventoryslotid("possessions.end")),
(quest::getinventoryslotid("generalbags.begin"))..(quest::getinventoryslotid("generalbags.end")));
for ($i = 1; $i <= $body_count; $i++)
{
$body_id = $client->GetCorpseID($i);
foreach my $individualcorpseslot (@corpseslotsarray)
{
$foundcorpseitem = $client->GetCorpseItemAt($body_id, $individualcorpseslot);
if ($foundcorpseitem == $itemtocheckfor) { return 1; }
}
}
}
return 0;
}

1;

[lctucker2999]

Apologies for necro'ing a 2 year old thread.

Is it just a matter of replacing the existing check_hasitem.pl with the code here? I ran into some quests that weren't working for me, and eventually figured out that it was the check_hasitem plugin that was causing the script to fail, which led me here.

So I saved backup of the original, and pasted this code into check_hasitem.pl but it doesn't seem to have had any effect. Restarted the server etc. I assume there is more to it that i'm missing

[Uleat]

If you're in a particular zone and it's not working, double-check that there's not a lua script overriding the perl one.

You would have to check whatever parent script is calling this function (i.e., player.lua vs. player.pl)