eqemu-server/zone/perl_doors.cpp

#include "../common/features.h"

#ifdef EMBPERL_XS_CLASSES

#include "../common/global_define.h"
#include "embperl.h"
#include "doors.h"

uint32_t Perl_Doors_GetDoorDBID(Doors* self) // @categories Doors
{
	return self->GetDoorDBID();
}

uint32_t Perl_Doors_GetDoorID(Doors* self) // @categories Doors
{
	return self->GetDoorID();
}

uint32_t Perl_Doors_GetID(Doors* self) // @categories Doors
{
	return self->GetEntityID();
}

float Perl_Doors_GetX(Doors* self) // @categories Doors
{
	return self->GetPosition().x;
}

float Perl_Doors_GetY(Doors* self) // @categories Doors
{
	return self->GetPosition().y;
}

float Perl_Doors_GetZ(Doors* self) // @categories Doors
{
	return self->GetPosition().z;
}

float Perl_Doors_GetHeading(Doors* self) // @categories Doors
{
	return self->GetPosition().w;
}

uint32_t Perl_Doors_GetOpenType(Doors* self)  // @categories Doors
{
	return self->GetOpenType();
}

uint32_t Perl_Doors_GetLockPick(Doors* self) // @categories Doors, Skills and Recipes
{
	return self->GetLockpick();
}

uint32_t Perl_Doors_GetKeyItem(Doors* self) // @categories Doors
{
	return self->GetKeyItem();
}

uint8_t Perl_Doors_GetNoKeyring(Doors* self) // @categories Doors
{
	return self->GetNoKeyring();
}

int Perl_Doors_GetIncline(Doors* self) // @categories Doors
{
	return self->GetIncline();
}

uint32_t Perl_Doors_GetSize(Doors* self) // @categories Doors
{
	return self->GetSize();
}

void Perl_Doors_SetOpenType(Doors* self, uint32_t open_type) // @categories Doors
{
	self->SetOpenType(open_type);
}

void Perl_Doors_SetLockPick(Doors* self, uint32_t lockpick_type) // @categories Doors
{
	self->SetLockpick(lockpick_type);
}

void Perl_Doors_SetKeyItem(Doors* self, uint32_t key_item_id) // @categories Doors
{
	self->SetKeyItem(key_item_id);
}

void Perl_Doors_SetNoKeyring(Doors* self, uint8_t no_key_ring) // @categories Doors
{
	self->SetNoKeyring(no_key_ring);
}

void Perl_Doors_SetIncline(Doors* self, uint32_t incline) // @categories Doors
{
	self->SetIncline(incline);
}

void Perl_Doors_SetSize(Doors* self, uint32_t size) // @categories Doors
{
	self->SetSize(size);
}

void Perl_Doors_SetLocation(Doors* self, float x, float y, float z) // @categories Doors
{
	self->SetLocation(x, y, z);
}

void Perl_Doors_SetX(Doors* self, float x) // @categories Doors
{
	auto position = self->GetPosition();
	position.x = x;
	self->SetPosition(position);
}

void Perl_Doors_SetY(Doors* self, float y) // @categories Doors
{
	auto position = self->GetPosition();
	position.y = y;
	self->SetPosition(position);
}

void Perl_Doors_SetZ(Doors* self, float z) // @categories Doors
{
	auto position = self->GetPosition();
	position.z = z;
	self->SetPosition(position);
}

void Perl_Doors_SetHeading(Doors* self, float heading) // @categories Doors
{
	auto position = self->GetPosition();
	position.w = heading;
	self->SetPosition(position);
}

void Perl_Doors_SetModelName(Doors* self, const char* name) // @categories Doors
{
	self->SetDoorName(name);
}

std::string Perl_Doors_GetModelName(Doors* self) // @categories Doors
{
	return self->GetDoorName();
}

void Perl_Doors_CreateDatabaseEntry(Doors* self) // @categories Doors
{
	self->CreateDatabaseEntry();
}

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

	auto package = perl.new_class<Doors>("Doors");
	package.add("CreateDatabaseEntry", &Perl_Doors_CreateDatabaseEntry);
	package.add("GetDoorDBID", &Perl_Doors_GetDoorDBID);
	package.add("GetDoorID", &Perl_Doors_GetDoorID);
	package.add("GetHeading", &Perl_Doors_GetHeading);
	package.add("GetID", &Perl_Doors_GetID);
	package.add("GetIncline", &Perl_Doors_GetIncline);
	package.add("GetKeyItem", &Perl_Doors_GetKeyItem);
	package.add("GetLockPick", &Perl_Doors_GetLockPick);
	package.add("GetModelName", &Perl_Doors_GetModelName);
	package.add("GetNoKeyring", &Perl_Doors_GetNoKeyring);
	package.add("GetOpenType", &Perl_Doors_GetOpenType);
	package.add("GetSize", &Perl_Doors_GetSize);
	package.add("GetX", &Perl_Doors_GetX);
	package.add("GetY", &Perl_Doors_GetY);
	package.add("GetZ", &Perl_Doors_GetZ);
	package.add("SetHeading", &Perl_Doors_SetHeading);
	package.add("SetIncline", &Perl_Doors_SetIncline);
	package.add("SetKeyItem", &Perl_Doors_SetKeyItem);
	package.add("SetLocation", &Perl_Doors_SetLocation);
	package.add("SetLockPick", &Perl_Doors_SetLockPick);
	package.add("SetModelName", &Perl_Doors_SetModelName);
	package.add("SetNoKeyring", &Perl_Doors_SetNoKeyring);
	package.add("SetOpenType", &Perl_Doors_SetOpenType);
	package.add("SetSize", &Perl_Doors_SetSize);
	package.add("SetX", &Perl_Doors_SetX);
	package.add("SetY", &Perl_Doors_SetY);
	package.add("SetZ", &Perl_Doors_SetZ);
}

#endif //EMBPERL_XS_CLASSES