mirror of
https://github.com/EQEmu/Server.git
synced 2026-04-02 16:32:26 +00:00
7ab909ee47
- License was intended to be GPLv3 per earlier commit of GPLv3 LICENSE FILE - This is confirmed by the inclusion of libraries that are incompatible with GPLv2 - This is also confirmed by KLS and the agreement of KLS's predecessors - Added GPLv3 license headers to the compilable source files - Removed Folly licensing in strings.h since the string functions do not match the Folly functions and are standard functions - this must have been left over from previous implementations - Removed individual contributor license headers since the project has been under the "developer" mantle for many years - Removed comments on files that were previously automatically generated since they've been manually modified multiple times and there are no automatic scripts referencing them (removed in 2023)
236 lines
8.5 KiB
C++
236 lines
8.5 KiB
C++
/* EQEmu: EQEmulator
|
|
|
|
Copyright (C) 2001-2026 EQEmu Development Team
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
#include "common/features.h"
|
|
|
|
#ifdef EMBPERL_XS_CLASSES
|
|
|
|
#include "zone/client.h"
|
|
#include "zone/embperl.h"
|
|
|
|
bool Perl_Inventory_CanItemFitInContainer(EQ::InventoryProfile* self, EQ::ItemInstance* item_to_check, EQ::ItemInstance* container_to_check)
|
|
{
|
|
const EQ::ItemData* item_data = item_to_check->GetItem();
|
|
const EQ::ItemData* container_data = container_to_check->GetItem();
|
|
return self->CanItemFitInContainer(item_data, container_data);
|
|
}
|
|
|
|
bool Perl_Inventory_CheckNoDrop(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->CheckNoDrop(slot_id);
|
|
}
|
|
|
|
bool Perl_Inventory_DeleteItem(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->DeleteItem(slot_id);
|
|
}
|
|
|
|
bool Perl_Inventory_DeleteItem(EQ::InventoryProfile* self, int16_t slot_id, uint8_t quantity)
|
|
{
|
|
return self->DeleteItem(slot_id, quantity);
|
|
}
|
|
|
|
int Perl_Inventory_FindFreeSlot(EQ::InventoryProfile* self, bool is_for_bag, bool try_cursor)
|
|
{
|
|
return self->FindFreeSlot(is_for_bag, try_cursor);
|
|
}
|
|
|
|
int Perl_Inventory_FindFreeSlot(EQ::InventoryProfile* self, bool is_for_bag, bool try_cursor, uint8_t min_size)
|
|
{
|
|
return self->FindFreeSlot(is_for_bag, try_cursor, min_size);
|
|
}
|
|
|
|
int Perl_Inventory_FindFreeSlot(EQ::InventoryProfile* self, bool is_for_bag, bool try_cursor, uint8_t min_size, bool is_arrow)
|
|
{
|
|
return self->FindFreeSlot(is_for_bag, try_cursor, min_size, is_arrow);
|
|
}
|
|
|
|
int Perl_Inventory_GetBagIndex(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->CalcBagIdx(slot_id);
|
|
}
|
|
|
|
EQ::ItemInstance* Perl_Inventory_GetItem(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->GetItem(slot_id);
|
|
}
|
|
|
|
int Perl_Inventory_GetMaterialFromSlot(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->CalcMaterialFromSlot(slot_id);
|
|
}
|
|
|
|
int Perl_Inventory_GetSlotByItemInst(EQ::InventoryProfile* self, EQ::ItemInstance* item)
|
|
{
|
|
return self->GetSlotByItemInst(item);
|
|
}
|
|
|
|
int Perl_Inventory_GetSlotFromMaterial(EQ::InventoryProfile* self, uint8_t material)
|
|
{
|
|
return self->CalcSlotFromMaterial(material);
|
|
}
|
|
|
|
int Perl_Inventory_GetSlotID(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->CalcSlotId(slot_id);
|
|
}
|
|
|
|
int Perl_Inventory_GetSlotID(EQ::InventoryProfile* self, int16_t slot_id, uint8_t bag_index)
|
|
{
|
|
return self->CalcSlotId(slot_id, bag_index);
|
|
}
|
|
|
|
int Perl_Inventory_HasItem(EQ::InventoryProfile* self, uint32_t item_id)
|
|
{
|
|
return self->HasItem(item_id);
|
|
}
|
|
|
|
int Perl_Inventory_HasItem(EQ::InventoryProfile* self, uint32_t item_id, uint8_t quantity)
|
|
{
|
|
return self->HasItem(item_id, quantity);
|
|
}
|
|
|
|
int Perl_Inventory_HasItem(EQ::InventoryProfile* self, uint32_t item_id, uint8_t quantity, uint8_t where_to_look)
|
|
{
|
|
return self->HasItem(item_id, quantity, where_to_look);
|
|
}
|
|
|
|
int Perl_Inventory_HasItemByLoreGroup(EQ::InventoryProfile* self, uint32_t loregroup)
|
|
{
|
|
return self->HasItemByLoreGroup(loregroup);
|
|
}
|
|
|
|
int Perl_Inventory_HasItemByLoreGroup(EQ::InventoryProfile* self, uint32_t loregroup, uint8_t where_to_look)
|
|
{
|
|
return self->HasItemByLoreGroup(loregroup, where_to_look);
|
|
}
|
|
|
|
int Perl_Inventory_HasItemByUse(EQ::InventoryProfile* self, uint8_t item_use, uint8_t quantity)
|
|
{
|
|
return self->HasItemByUse(item_use, quantity);
|
|
}
|
|
|
|
int Perl_Inventory_HasItemByUse(EQ::InventoryProfile* self, uint8_t item_use, uint8_t quantity, uint8_t where_to_look)
|
|
{
|
|
return self->HasItemByUse(item_use, quantity, where_to_look);
|
|
}
|
|
|
|
bool Perl_Inventory_HasSpaceForItem(EQ::InventoryProfile* self, EQ::ItemInstance* item_to_check, uint8_t quantity)
|
|
{
|
|
const EQ::ItemData* item_data = item_to_check->GetItem();
|
|
return self->HasSpaceForItem(item_data, quantity);
|
|
}
|
|
|
|
EQ::ItemInstance* Perl_Inventory_PopItem(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->PopItem(slot_id);
|
|
}
|
|
|
|
bool Perl_Inventory_SupportsContainers(EQ::InventoryProfile* self, int16_t slot_id)
|
|
{
|
|
return self->SupportsContainers(slot_id);
|
|
}
|
|
|
|
bool Perl_Inventory_SwapItem(EQ::InventoryProfile* self, int16_t source_slot_id, int16_t destination_slot_id)
|
|
{
|
|
EQ::InventoryProfile::SwapItemFailState fail_state = EQ::InventoryProfile::swapInvalid;
|
|
return self->SwapItem(source_slot_id, destination_slot_id, fail_state);
|
|
}
|
|
|
|
int Perl_Inventory_PushCursor(EQ::InventoryProfile* self, EQ::ItemInstance* item)
|
|
{
|
|
return self->PushCursor(*item);
|
|
}
|
|
|
|
int Perl_Inventory_PutItem(EQ::InventoryProfile* self, int16_t slot_id, EQ::ItemInstance* item)
|
|
{
|
|
return self->PutItem(slot_id, *item);
|
|
}
|
|
|
|
bool Perl_Inventory_HasAugmentEquippedByID(EQ::InventoryProfile* self, uint32_t item_id)
|
|
{
|
|
return self->HasAugmentEquippedByID(item_id);
|
|
}
|
|
|
|
uint32 Perl_Inventory_CountAugmentEquippedByID(EQ::InventoryProfile* self, uint32_t item_id)
|
|
{
|
|
return self->CountAugmentEquippedByID(item_id);
|
|
}
|
|
|
|
bool Perl_Inventory_HasItemEquippedByID(EQ::InventoryProfile* self, uint32_t item_id)
|
|
{
|
|
return self->HasItemEquippedByID(item_id);
|
|
}
|
|
|
|
uint32 Perl_Inventory_CountItemEquippedByID(EQ::InventoryProfile* self, uint32_t item_id)
|
|
{
|
|
return self->CountItemEquippedByID(item_id);
|
|
}
|
|
|
|
perl::array Perl_Inventory_GetAugmentIDsBySlotID(EQ::InventoryProfile* self, int16 slot_id)
|
|
{
|
|
perl::array result;
|
|
auto augments = self->GetAugmentIDsBySlotID(slot_id);
|
|
|
|
for (int i = 0; i < augments.size(); ++i) {
|
|
result.push_back(augments[i]);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
void perl_register_inventory()
|
|
{
|
|
perl::interpreter perl(PERL_GET_THX);
|
|
|
|
auto package = perl.new_class<EQ::InventoryProfile>("Inventory");
|
|
package.add("CanItemFitInContainer", &Perl_Inventory_CanItemFitInContainer);
|
|
package.add("CountAugmentEquippedByID", &Perl_Inventory_CountAugmentEquippedByID);
|
|
package.add("CountItemEquippedByID", &Perl_Inventory_CountItemEquippedByID);
|
|
package.add("CheckNoDrop", &Perl_Inventory_CheckNoDrop);
|
|
package.add("DeleteItem", (bool(*)(EQ::InventoryProfile*, int16_t))&Perl_Inventory_DeleteItem);
|
|
package.add("DeleteItem", (bool(*)(EQ::InventoryProfile*, int16_t, uint8_t))&Perl_Inventory_DeleteItem);
|
|
package.add("FindFreeSlot", (int(*)(EQ::InventoryProfile*, bool, bool))&Perl_Inventory_FindFreeSlot);
|
|
package.add("FindFreeSlot", (int(*)(EQ::InventoryProfile*, bool, bool, uint8_t))&Perl_Inventory_FindFreeSlot);
|
|
package.add("FindFreeSlot", (int(*)(EQ::InventoryProfile*, bool, bool, uint8_t, bool))&Perl_Inventory_FindFreeSlot);
|
|
package.add("GetAugmentIDsBySlotID", &Perl_Inventory_GetAugmentIDsBySlotID);
|
|
package.add("GetBagIndex", &Perl_Inventory_GetBagIndex);
|
|
package.add("GetItem", &Perl_Inventory_GetItem);
|
|
package.add("GetMaterialFromSlot", &Perl_Inventory_GetMaterialFromSlot);
|
|
package.add("GetSlotByItemInst", &Perl_Inventory_GetSlotByItemInst);
|
|
package.add("GetSlotFromMaterial", &Perl_Inventory_GetSlotFromMaterial);
|
|
package.add("GetSlotID", (int(*)(EQ::InventoryProfile*, int16_t))&Perl_Inventory_GetSlotID);
|
|
package.add("GetSlotID", (int(*)(EQ::InventoryProfile*, int16_t, uint8_t))&Perl_Inventory_GetSlotID);
|
|
package.add("HasAugmentEquippedByID", &Perl_Inventory_HasAugmentEquippedByID);
|
|
package.add("HasItem", (int(*)(EQ::InventoryProfile*, uint32_t))&Perl_Inventory_HasItem);
|
|
package.add("HasItem", (int(*)(EQ::InventoryProfile*, uint32_t, uint8_t))&Perl_Inventory_HasItem);
|
|
package.add("HasItem", (int(*)(EQ::InventoryProfile*, uint32_t, uint8_t, uint8_t))&Perl_Inventory_HasItem);
|
|
package.add("HasItemByLoreGroup", (int(*)(EQ::InventoryProfile*, uint32_t))&Perl_Inventory_HasItemByLoreGroup);
|
|
package.add("HasItemByLoreGroup", (int(*)(EQ::InventoryProfile*, uint32_t, uint8_t))&Perl_Inventory_HasItemByLoreGroup);
|
|
package.add("HasItemByUse", (int(*)(EQ::InventoryProfile*, uint8_t, uint8_t))&Perl_Inventory_HasItemByUse);
|
|
package.add("HasItemByUse", (int(*)(EQ::InventoryProfile*, uint8_t, uint8_t, uint8_t))&Perl_Inventory_HasItemByUse);
|
|
package.add("HasItemEquippedByID", &Perl_Inventory_HasItemEquippedByID);
|
|
package.add("HasSpaceForItem", &Perl_Inventory_HasSpaceForItem);
|
|
package.add("PopItem", &Perl_Inventory_PopItem);
|
|
package.add("PushCursor", &Perl_Inventory_PushCursor);
|
|
package.add("PutItem", &Perl_Inventory_PutItem);
|
|
package.add("SupportsContainers", &Perl_Inventory_SupportsContainers);
|
|
package.add("SwapItem", &Perl_Inventory_SwapItem);
|
|
}
|
|
|
|
#endif //EMBPERL_XS_CLASSES
|