eqemu-server/zone/perl_questitem.cpp

/*	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"

std::string Perl_QuestItem_GetName(EQ::ItemInstance* self) // @categories Inventory and Items
{
	return self->GetItem()->Name;
}

void Perl_QuestItem_SetScale(EQ::ItemInstance* self, float scale_multiplier) // @categories Inventory and Items
{
	if (self->IsScaling()) {
		self->SetExp((int) (scale_multiplier * 10000 + .5));
	}
}

void Perl_QuestItem_ItemSay(EQ::ItemInstance* self, const char* text) // @categories Inventory and Items
{
	quest_manager.GetInitiator()->ChannelMessageSend(self->GetItem()->Name, 0, ChatChannel_Say, Language::CommonTongue, Language::MaxValue, text);
}

void Perl_QuestItem_ItemSay(EQ::ItemInstance* self, const char* text, uint8 language_id) // @categories Inventory and Items
{
	quest_manager.GetInitiator()->ChannelMessageSend(self->GetItem()->Name, 0, ChatChannel_Say, language_id, Language::MaxValue, text);
}

bool Perl_QuestItem_IsType(EQ::ItemInstance* self, int type) // @categories Inventory and Items
{
	return self->IsType(static_cast<EQ::item::ItemClass>(type));
}

bool Perl_QuestItem_IsAttuned(EQ::ItemInstance* self) // @categories Inventory and Items
{
	return self->IsAttuned();
}

bool Perl_QuestItem_IsInstanceNoDrop(EQ::ItemInstance* self) // @categories Inventory and Items
{
	return self->IsAttuned();
}

int Perl_QuestItem_GetCharges(EQ::ItemInstance* self) // @categories Inventory and Items
{
	return self->GetCharges();
}

EQ::ItemInstance* Perl_QuestItem_GetAugment(EQ::ItemInstance* self, uint8 slot_id) // @categories Inventory and Items
{
	return self->GetAugment(slot_id);
}

uint32_t Perl_QuestItem_GetID(EQ::ItemInstance* self) // @categories Inventory and Items
{
	return self->GetItem()->ID;
}

bool Perl_QuestItem_ContainsAugmentByID(EQ::ItemInstance* self, uint32_t item_id) // @categories Inventory and Items
{
	return self->ContainsAugmentByID(item_id);
}

int Perl_QuestItem_CountAugmentByID(EQ::ItemInstance* self, uint32_t item_id) // @categories Inventory and Items
{
	return self->CountAugmentByID(item_id);
}

bool Perl_QuestItem_IsStackable(EQ::ItemInstance* self)
{
	return self->IsStackable();
}

void Perl_QuestItem_SetCharges(EQ::ItemInstance* self, int16_t charges)
{
	self->SetCharges(charges);
}

int Perl_QuestItem_GetTaskDeliveredCount(EQ::ItemInstance* self)
{
	return self->GetTaskDeliveredCount();
}

int Perl_QuestItem_RemoveTaskDeliveredItems(EQ::ItemInstance* self)
{
	return self->RemoveTaskDeliveredItems();
}
void Perl_QuestItem_AddEXP(EQ::ItemInstance* self, uint32 exp)
{
	self->AddExp(exp);
}

void Perl_QuestItem_ClearTimers(EQ::ItemInstance* self)
{
	self->ClearTimers();
}

EQ::ItemInstance* Perl_QuestItem_Clone(EQ::ItemInstance* self)
{
	return self->Clone();
}

void Perl_QuestItem_DeleteCustomData(EQ::ItemInstance* self, std::string identifier)
{
	self->DeleteCustomData(identifier);
}

uint32 Perl_QuestItem_GetAugmentItemID(EQ::ItemInstance* self, uint8 slot_id)
{
	return self->GetAugmentItemID(slot_id);
}

int Perl_QuestItem_GetAugmentType(EQ::ItemInstance* self)
{
	return self->GetAugmentType();
}

uint32 Perl_QuestItem_GetColor(EQ::ItemInstance* self)
{
	return self->GetColor();
}

std::string Perl_QuestItem_GetCustomData(EQ::ItemInstance* self, std::string identifier)
{
	return self->GetCustomData(identifier);
}

std::string Perl_QuestItem_GetCustomDataString(EQ::ItemInstance* self)
{
	return self->GetCustomDataString();
}

uint32 Perl_QuestItem_GetEXP(EQ::ItemInstance* self)
{
	return self->GetExp();
}

EQ::ItemInstance* Perl_QuestItem_GetItem(EQ::ItemInstance* self, uint8 slot_id)
{
	return self->GetItem(slot_id);
}

uint32 Perl_QuestItem_GetItemID(EQ::ItemInstance* self, uint8 slot_id)
{
	return self->GetItemID(slot_id);
}

uint32 Perl_QuestItem_GetItemScriptID(EQ::ItemInstance* self)
{
	return self->GetItemScriptID();
}

int8 Perl_QuestItem_GetMaxEvolveLevel(EQ::ItemInstance* self)
{
	return self->GetMaxEvolveLvl();
}

uint32 Perl_QuestItem_GetPrice(EQ::ItemInstance* self)
{
	return self->GetPrice();
}

uint8 Perl_QuestItem_GetTotalItemCount(EQ::ItemInstance* self)
{
	return self->GetTotalItemCount();
}

bool Perl_QuestItem_IsAmmo(EQ::ItemInstance* self)
{
	return self->IsAmmo();
}

bool Perl_QuestItem_IsAugmentable(EQ::ItemInstance* self)
{
	return self->IsAugmentable();
}

bool Perl_QuestItem_IsAugmented(EQ::ItemInstance* self)
{
	return self->IsAugmented();
}

bool Perl_QuestItem_IsEquipable(EQ::ItemInstance* self, int16 slot_id)
{
	return self->IsEquipable(slot_id);
}

bool Perl_QuestItem_IsEquipable(EQ::ItemInstance* self, uint16 race_bitmask, uint16 class_bitmask)
{
	return self->IsEquipable(race_bitmask, class_bitmask);
}

bool Perl_QuestItem_IsExpendable(EQ::ItemInstance* self)
{
	return self->IsExpendable();
}

bool Perl_QuestItem_IsWeapon(EQ::ItemInstance* self)
{
	return self->IsWeapon();
}

void Perl_QuestItem_SetAttuned(EQ::ItemInstance* self, bool is_attuned)
{
	self->SetAttuned(is_attuned);
}

void Perl_QuestItem_SetInstanceNoDrop(EQ::ItemInstance* self, bool is_attuned)
{
	self->SetAttuned(is_attuned);
}

void Perl_QuestItem_SetColor(EQ::ItemInstance* self, uint32 color)
{
	self->SetColor(color);
}

void Perl_QuestItem_SetCustomData(EQ::ItemInstance* self, std::string identifier, bool value)
{
	self->SetCustomData(identifier, value);
}

void Perl_QuestItem_SetCustomData(EQ::ItemInstance* self, std::string identifier, float value)
{
	self->SetCustomData(identifier, value);
}

void Perl_QuestItem_SetCustomData(EQ::ItemInstance* self, std::string identifier, int value)
{
	self->SetCustomData(identifier, value);
}

void Perl_QuestItem_SetCustomData(EQ::ItemInstance* self, std::string identifier, std::string value)
{
	self->SetCustomData(identifier, value);
}

void Perl_QuestItem_SetEXP(EQ::ItemInstance* self, uint32 exp)
{
	self->SetExp(exp);
}

void Perl_QuestItem_SetPrice(EQ::ItemInstance* self, uint32 price)
{
	self->SetPrice(price);
}

void Perl_QuestItem_SetScaling(EQ::ItemInstance* self, bool is_scaling)
{
	self->SetScaling(is_scaling);
}

void Perl_QuestItem_SetTimer(EQ::ItemInstance* self, std::string timer_name, uint32 timer)
{
	self->SetTimer(timer_name, timer);
}

void Perl_QuestItem_StopTimer(EQ::ItemInstance* self, std::string timer_name)
{
	self->StopTimer(timer_name);
}

EQ::ItemData* Perl_QuestItem_GetItem(EQ::ItemInstance* self) {
	return const_cast<EQ::ItemData*>(self->GetItem());
}

EQ::ItemData* Perl_QuestItem_GetUnscaledItem(EQ::ItemInstance* self) {
	return const_cast<EQ::ItemData*>(self->GetUnscaledItem());
}

perl::array Perl_QuestItem_GetAugmentIDs(EQ::ItemInstance* self)
{
	perl::array result;

	const auto& augment_ids = self->GetAugmentIDs();

	for (int i = 0; i < augment_ids.size(); i++) {
		result.push_back(augment_ids[i]);
	}

	return result;
}

std::string Perl_QuestItem_GetItemLink(EQ::ItemInstance* self)
{
	EQ::SayLinkEngine linker;
	linker.SetLinkType(EQ::saylink::SayLinkItemInst);
	linker.SetItemInst(self);

	return linker.GenerateLink();
}

void Perl_QuestItem_AddEvolveAmount(EQ::ItemInstance* self, uint64 amount)
{
	self->SetEvolveAddToCurrentAmount(amount);
}

uint32 Perl_QuestItem_GetAugmentEvolveUniqueID(EQ::ItemInstance* self, uint8 slot_id)
{
	return self->GetAugmentEvolveUniqueID(slot_id);
}

bool Perl_QuestItem_GetEvolveActivated(EQ::ItemInstance* self)
{
	return self->GetEvolveActivated();
}

uint64 Perl_QuestItem_GetEvolveAmount(EQ::ItemInstance* self)
{
	return self->GetEvolveCurrentAmount();
}

uint32 Perl_QuestItem_GetEvolveCharacterID(EQ::ItemInstance* self)
{
	return self->GetEvolveCharID();
}

bool Perl_QuestItem_GetEvolveEquipped(EQ::ItemInstance* self)
{
	return self->GetEvolveEquipped();
}

uint32 Perl_QuestItem_GetEvolveItemID(EQ::ItemInstance* self)
{
	return self->GetEvolveItemID();
}

uint32 Perl_QuestItem_GetEvolveFinalItemID(EQ::ItemInstance* self)
{
	return self->GetEvolveFinalItemID();
}

int8 Perl_QuestItem_GetEvolveLevel(EQ::ItemInstance* self)
{
	return self->GetEvolveLvl();
}

uint32 Perl_QuestItem_GetEvolveLoreID(EQ::ItemInstance* self)
{
	return self->GetEvolveLoreID();
}

double Perl_QuestItem_GetEvolveProgression(EQ::ItemInstance* self)
{
	return self->GetEvolveProgression();
}

uint64 Perl_QuestItem_GetEvolveUniqueID(EQ::ItemInstance* self)
{
	return self->GetEvolveUniqueID();
}

bool Perl_QuestItem_IsEvolving(EQ::ItemInstance* self)
{
	return self->IsEvolving();
}

void Perl_QuestItem_SetEvolveProgression(EQ::ItemInstance* self, float amount)
{
	self->SetEvolveProgression(amount);
}

void Perl_QuestItem_SetEvolveAmount(EQ::ItemInstance* self, uint64 amount)
{
	self->SetEvolveCurrentAmount(amount);
}


void perl_register_questitem()
{
	perl::interpreter perl(PERL_GET_THX);

	auto package = perl.new_class<EQ::ItemInstance>("QuestItem");
	package.add("AddEvolveAmount", &Perl_QuestItem_AddEvolveAmount);
	package.add("AddEXP", &Perl_QuestItem_AddEXP);
	package.add("ClearTimers", &Perl_QuestItem_ClearTimers);
	package.add("Clone", &Perl_QuestItem_Clone);
	package.add("ContainsAugmentByID", &Perl_QuestItem_ContainsAugmentByID);
	package.add("CountAugmentByID", &Perl_QuestItem_CountAugmentByID);
	package.add("DeleteCustomData", &Perl_QuestItem_DeleteCustomData);
	package.add("GetAugment", &Perl_QuestItem_GetAugment);
	package.add("GetAugmentEvolveUniqueID", &Perl_QuestItem_GetAugmentEvolveUniqueID);
	package.add("GetAugmentIDs", &Perl_QuestItem_GetAugmentIDs);
	package.add("GetAugmentItemID", &Perl_QuestItem_GetAugmentItemID);
	package.add("GetAugmentType", &Perl_QuestItem_GetAugmentType);
	package.add("GetCharges", &Perl_QuestItem_GetCharges);
	package.add("GetColor", &Perl_QuestItem_GetColor);
	package.add("GetCustomData", &Perl_QuestItem_GetCustomData);
	package.add("GetCustomDataString", &Perl_QuestItem_GetCustomDataString);
	package.add("GetEvolveActivated", &Perl_QuestItem_GetEvolveActivated);
	package.add("GetEvolveAmount", &Perl_QuestItem_GetEvolveAmount);
	package.add("GetEvolveCharacterID", &Perl_QuestItem_GetEvolveCharacterID);
	package.add("GetEvolveEquipped", &Perl_QuestItem_GetEvolveEquipped);
	package.add("GetEvolveFinalItemID", &Perl_QuestItem_GetEvolveFinalItemID);
	package.add("GetEvolveItemID", &Perl_QuestItem_GetEvolveItemID);
	package.add("GetEvolveLevel", &Perl_QuestItem_GetEvolveLevel);
	package.add("GetEvolveLoreID", &Perl_QuestItem_GetEvolveLoreID);
	package.add("GetEvolveProgression", &Perl_QuestItem_GetEvolveProgression);
	package.add("GetEvolveUniqueID", &Perl_QuestItem_GetEvolveUniqueID);
	package.add("GetEXP", &Perl_QuestItem_GetEXP);
	package.add("GetID", &Perl_QuestItem_GetID);
	package.add("GetItem", (EQ::ItemData*(*)(EQ::ItemInstance*))&Perl_QuestItem_GetItem);
	package.add("GetItem", (EQ::ItemInstance*(*)(EQ::ItemInstance*, uint8))&Perl_QuestItem_GetItem);
	package.add("GetItemID", &Perl_QuestItem_GetItemID);
	package.add("GetItemLink", &Perl_QuestItem_GetItemLink);
	package.add("GetItemScriptID", &Perl_QuestItem_GetItemScriptID);
	package.add("GetMaxEvolveLevel", &Perl_QuestItem_GetMaxEvolveLevel);
	package.add("GetName", &Perl_QuestItem_GetName);
	package.add("GetPrice", &Perl_QuestItem_GetPrice);
	package.add("GetTaskDeliveredCount", &Perl_QuestItem_GetTaskDeliveredCount);
	package.add("GetTotalItemCount", &Perl_QuestItem_GetTotalItemCount);
	package.add("GetUnscaledItem", &Perl_QuestItem_GetUnscaledItem);
	package.add("IsAmmo", &Perl_QuestItem_IsAmmo);
	package.add("IsAttuned", &Perl_QuestItem_IsAttuned);
	package.add("IsAugmentable", &Perl_QuestItem_IsAugmentable);
	package.add("IsAugmented", &Perl_QuestItem_IsAugmented);
	package.add("IsEquipable", (bool(*)(EQ::ItemInstance*, int16))&Perl_QuestItem_IsEquipable);
	package.add("IsEquipable", (bool(*)(EQ::ItemInstance*, uint16, uint16))&Perl_QuestItem_IsEquipable);
	package.add("IsEvolving", &Perl_QuestItem_IsEvolving);
	package.add("IsExpendable", &Perl_QuestItem_IsExpendable);
	package.add("IsInstanceNoDrop", &Perl_QuestItem_IsInstanceNoDrop);
	package.add("IsStackable", &Perl_QuestItem_IsStackable);
	package.add("IsType", &Perl_QuestItem_IsType);
	package.add("IsWeapon", &Perl_QuestItem_IsWeapon);
	package.add("ItemSay", (void(*)(EQ::ItemInstance*, const char*))&Perl_QuestItem_ItemSay);
	package.add("ItemSay", (void(*)(EQ::ItemInstance*, const char*, uint8))&Perl_QuestItem_ItemSay);
	package.add("RemoveTaskDeliveredItems", &Perl_QuestItem_RemoveTaskDeliveredItems);
	package.add("SetAttuned", &Perl_QuestItem_SetAttuned);
	package.add("SetCharges", &Perl_QuestItem_SetCharges);
	package.add("SetColor", &Perl_QuestItem_SetColor);
	package.add("SetCustomData", (void(*)(EQ::ItemInstance*, std::string, bool))&Perl_QuestItem_SetCustomData);
	package.add("SetCustomData", (void(*)(EQ::ItemInstance*, std::string, float))&Perl_QuestItem_SetCustomData);
	package.add("SetCustomData", (void(*)(EQ::ItemInstance*, std::string, int))&Perl_QuestItem_SetCustomData);
	package.add("SetCustomData", (void(*)(EQ::ItemInstance*, std::string, std::string))&Perl_QuestItem_SetCustomData);
	package.add("SetEvolveAmount", &Perl_QuestItem_SetEvolveAmount);
	package.add("SetEvolveProgression", &Perl_QuestItem_SetEvolveProgression);
	package.add("SetEXP", &Perl_QuestItem_SetEXP);
	package.add("SetInstanceNoDrop", &Perl_QuestItem_SetInstanceNoDrop);
	package.add("SetPrice", &Perl_QuestItem_SetPrice);
	package.add("SetScale", &Perl_QuestItem_SetScale);
	package.add("SetScaling", &Perl_QuestItem_SetScaling);
	package.add("SetTimer", &Perl_QuestItem_SetTimer);
	package.add("StopTimer", &Perl_QuestItem_StopTimer);
}

#endif //EMBPERL_XS_CLASSES