pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-11 21:01:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
eqemu-server/zone/embparser_api.cpp
Uleat 509a2b30a5 Inventory possessions beta testing
2018-08-13 22:32:36 -04:00

3878 lines
93 KiB
C++
Raw Blame History

/* EQEMu: Everquest Server Emulator
Copyright (C) 2001-2006 EQEMu Development Team (http://eqemulator.net)
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; version 2 of the License.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY except by those people which sell it, which
are required to give you total support for your newly bought product;
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, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "../common/features.h"
#ifdef EMBPERL
#ifdef EMBPERL_XS
#include "../common/global_define.h"
#include "../common/misc_functions.h"
#include "../common/eqemu_logsys.h"
#include "embparser.h"
#include "embxs.h"
#include "entity.h"
#include "queryserv.h"
#include "questmgr.h"
#include "zone.h"
#include "data_bucket.h"
#include <cctype>
extern Zone *zone;
extern QueryServ *QServ;
/*
Some useful perl API info:
SvUV == string to unsigned value (char->ulong)
SvIV == string to signed value (char->long)
SvNV == string to real value (float,double)
SvPV_nolen == string with no length restriction
*/
#ifdef EMBPERL_XS_CLASSES
//Any creation of new Client objects gets the current quest Client
XS(XS_Client_new);
XS(XS_Client_new) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::Client::new()");
{
Client *RETVAL;
RETVAL = quest_manager.GetInitiator();
ST(0) = sv_newmortal();
if (RETVAL)
sv_setref_pv(ST(0), "Client", (void *) RETVAL);
}
XSRETURN(1);
}
//Any creation of new NPC objects gets the current quest NPC
XS(XS_NPC_new);
XS(XS_NPC_new) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::NPC::new()");
{
NPC *RETVAL;
RETVAL = quest_manager.GetNPC();
ST(0) = sv_newmortal();
if (RETVAL)
sv_setref_pv(ST(0), "NPC", (void *) RETVAL);
}
XSRETURN(1);
}
//Any creation of new NPC objects gets the current quest NPC
XS(XS_EntityList_new);
XS(XS_EntityList_new) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::EntityList::new()");
{
EntityList *RETVAL;
RETVAL = &entity_list;
ST(0) = sv_newmortal();
if (RETVAL)
sv_setref_pv(ST(0), "EntityList", (void *) RETVAL);
}
XSRETURN(1);
}
//Any creation of new quest items gets the current quest item
XS(XS_QuestItem_new);
XS(XS_QuestItem_new) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::QuestItem::new()");
EQEmu::ItemInstance *RETVAL;
RETVAL = quest_manager.GetQuestItem();
ST(0) = sv_newmortal();
if (RETVAL)
sv_setref_pv(ST(0), "QuestItem", (void *) RETVAL);
XSRETURN(1);
}
//Any creation of new quest items gets the current quest item
XS(XS_MobList_new);
XS(XS_MobList_new) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::MobList::new()");
ListElement<Mob *> *RETVAL;
RETVAL = nullptr;
ST(0) = sv_newmortal();
if (RETVAL)
sv_setref_pv(ST(0), "MobList", (void *) RETVAL);
XSRETURN(1);
}
#endif //EMBPERL_XS_CLASSES
XS(XS__echo); // prototype to pass -Wmissing-prototypes
XS(XS__echo) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::echo(int emote_color_id, string message)");
quest_manager.echo(SvUV(ST(0)), SvPV_nolen(ST(1)));
XSRETURN_EMPTY;
}
XS(XS__say); // prototype to pass -Wmissing-prototypes
XS(XS__say) {
dXSARGS;
if (items == 1)
quest_manager.say(SvPV_nolen(ST(0)));
else if (items == 2)
quest_manager.say(SvPV_nolen(ST(0)), (int) SvIV(ST(1)));
else
Perl_croak(aTHX_ "Usage: quest::say(string message, int language_id])");
XSRETURN_EMPTY;
}
XS(XS__me); // prototype to pass -Wmissing-prototypes
XS(XS__me) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::me(string message)");
quest_manager.me(SvPV_nolen(ST(0)));
XSRETURN_EMPTY;
}
XS(XS__summonitem); // prototype to pass -Wmissing-prototypes
XS(XS__summonitem) {
dXSARGS;
if (items == 1)
quest_manager.summonitem(SvUV(ST(0)));
else if (items == 2)
quest_manager.summonitem(SvUV(ST(0)), SvUV(ST(1)));
else
Perl_croak(aTHX_ "Usage: quest::summonitem(int item_id, [int charges])");
XSRETURN_EMPTY;
}
XS(XS__write);
XS(XS__write) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::write(string file_name, string message)");
char *file = (char *) SvPV_nolen(ST(0));
char *message = (char *) SvPV_nolen(ST(1));
quest_manager.write(file, message);
XSRETURN_EMPTY;
}
XS(XS__spawn);
XS(XS__spawn) {
dXSARGS;
if (items != 6)
Perl_croak(aTHX_
"Usage: quest::spawn(int npc_type_id, int grid_id, int int_unused, float x, float y, float z)");
uint16 RETVAL;
dXSTARG;
int npc_type_id = (int) SvIV(ST(0));
int grid_id = (int) SvIV(ST(1));
int int_unused = (int) SvIV(ST(2));
auto position = glm::vec4((float) SvNV(ST(3)), (float) SvNV(ST(4)), (float) SvNV(ST(5)), 0.0f);
Mob *r = quest_manager.spawn2(npc_type_id, grid_id, int_unused, position);
RETVAL = (r != nullptr) ? r->GetID() : 0;
XSprePUSH;
PUSHu((UV) RETVAL);
XSRETURN(1);
}
XS(XS__spawn2);
XS(XS__spawn2) {
dXSARGS;
if (items != 7)
Perl_croak(aTHX_
"Usage: quest::spawn2(int npc_type_id, int grid_id, int int_unused, float x, float y, float z, float heading)");
uint16 RETVAL;
dXSTARG;
int npc_type_id = (int) SvIV(ST(0));
int grid_id = (int) SvIV(ST(1));
int int_unused = (int) SvIV(ST(2));
auto position = glm::vec4((float) SvNV(ST(3)), (float) SvNV(ST(4)), (float) SvNV(ST(5)), (float) SvNV(ST(6)));
Mob *r = quest_manager.spawn2(npc_type_id, grid_id, int_unused, position);
RETVAL = (r != nullptr) ? r->GetID() : 0;
XSprePUSH;
PUSHu((UV) RETVAL);
XSRETURN(1);
}
XS(XS__unique_spawn);
XS(XS__unique_spawn) {
dXSARGS;
if (items != 6 && items != 7)
Perl_croak(aTHX_
"Usage: quest::unique_spawn(int npc_type_id, int grid_id, int int_unused, float x, float y, float z, [float heading])");
uint16 RETVAL;
dXSTARG;
int npc_type_id = (int) SvIV(ST(0));
int grid_id = (int) SvIV(ST(1));
int int_unused = (int) SvIV(ST(2));
float x = (float) SvNV(ST(3));
float y = (float) SvNV(ST(4));
float z = (float) SvNV(ST(5));
float heading = 0;
if (items == 7)
heading = (float) SvNV(ST(6));
Mob *r = quest_manager.unique_spawn(npc_type_id, grid_id, int_unused, glm::vec4(x, y, z, heading));
RETVAL = (r != nullptr) ? r->GetID() : 0;
XSprePUSH;
PUSHu((UV) RETVAL);
XSRETURN(1);
}
XS(XS__spawn_from_spawn2);
XS(XS__spawn_from_spawn2) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::spawn_from_spawn2(int spawn2_id)");
uint16 RETVAL;
dXSTARG;
int spawn2_id = (int) SvIV(ST(0));
Mob *r = quest_manager.spawn_from_spawn2(spawn2_id);
RETVAL = (r != nullptr) ? r->GetID() : 0;
XSprePUSH;
PUSHu((UV) RETVAL);
XSRETURN(1);
}
XS(XS__enable_spawn2);
XS(XS__enable_spawn2) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::enable_spawn2(int spawn2_id)");
int spawn2_id = (int) SvIV(ST(0));
quest_manager.enable_spawn2(spawn2_id);
XSRETURN_EMPTY;
}
XS(XS__disable_spawn2);
XS(XS__disable_spawn2) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::disable_spawn2(int spawn2_id)");
int spawn2_id = (int) SvIV(ST(0));
quest_manager.disable_spawn2(spawn2_id);
XSRETURN_EMPTY;
}
XS(XS__setstat);
XS(XS__setstat) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::setstat(stat_id, int_value)");
int stat_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.setstat(stat_id, int_value);
XSRETURN_EMPTY;
}
XS(XS__incstat); //old setstat command aza
XS(XS__incstat) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::incstat(int stat_id, int value)");
int stat_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.incstat(stat_id, int_value);
XSRETURN_EMPTY;
}
XS(XS__inventory);
XS(XS__inventory) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::inventory(string identifier)");
int16 RETVAL;
dXSTARG;
std::string identifier = (Const_char *)SvPV_nolen(ST(0));
for (std::string::size_type i = 0; i < identifier.length(); ++i)
identifier[i] = std::tolower(identifier[i]);
if (identifier == "invalid") RETVAL = EQEmu::invslot::SLOT_INVALID;
else if (identifier == "cursor") RETVAL = EQEmu::invslot::slotCursor;
else if (identifier == "possessions_begin") RETVAL = EQEmu::invslot::POSSESSIONS_BEGIN;
else if (identifier == "possessions_end") RETVAL = EQEmu::invslot::POSSESSIONS_END;
else if (identifier == "bank_begin") RETVAL = EQEmu::invslot::BANK_BEGIN;
else if (identifier == "bank_end") RETVAL = EQEmu::invslot::BANK_END;
else if (identifier == "sharedbank_begin") RETVAL = EQEmu::invslot::SHARED_BANK_BEGIN;
else if (identifier == "sharedbank_end") RETVAL = EQEmu::invslot::SHARED_BANK_END;
else if (identifier == "generalbags_begin") RETVAL = EQEmu::invbag::GENERAL_BAGS_BEGIN;
else if (identifier == "generalbags_end") RETVAL = EQEmu::invbag::GENERAL_BAGS_END;
else if (identifier == "cursorbag_begin") RETVAL = EQEmu::invbag::CURSOR_BAG_BEGIN;
else if (identifier == "cursorbag_end") RETVAL = EQEmu::invbag::CURSOR_BAG_END;
else if (identifier == "bankbags_begin") RETVAL = EQEmu::invbag::BANK_BAGS_BEGIN;
else if (identifier == "bankbags_end") RETVAL = EQEmu::invbag::BANK_BAGS_END;
else if (identifier == "sharedbankbags_begin") RETVAL = EQEmu::invbag::SHARED_BANK_BAGS_BEGIN;
else if (identifier == "sharedbankbags_end") RETVAL = EQEmu::invbag::SHARED_BANK_BAGS_END;
else if (identifier == "bagslot_begin") RETVAL = EQEmu::invbag::SLOT_BEGIN;
else if (identifier == "bagslot_end") RETVAL = EQEmu::invbag::SLOT_END;
else if (identifier == "augsocket_begin") RETVAL = EQEmu::invaug::SOCKET_BEGIN;
else if (identifier == "augsocket_end") RETVAL = EQEmu::invaug::SOCKET_END;
else if (identifier == "equipment_begin") RETVAL = EQEmu::invslot::EQUIPMENT_BEGIN;
else if (identifier == "equipment_end") RETVAL = EQEmu::invslot::EQUIPMENT_END;
else if (identifier == "general_begin") RETVAL = EQEmu::invslot::GENERAL_BEGIN;
else if (identifier == "general_end") RETVAL = EQEmu::invslot::GENERAL_END;
else if (identifier == "charm") RETVAL = EQEmu::invslot::slotCharm;
else if (identifier == "ear1") RETVAL = EQEmu::invslot::slotEar1;
else if (identifier == "head") RETVAL = EQEmu::invslot::slotHead;
else if (identifier == "face") RETVAL = EQEmu::invslot::slotFace;
else if (identifier == "ear2") RETVAL = EQEmu::invslot::slotEar2;
else if (identifier == "neck") RETVAL = EQEmu::invslot::slotNeck;
else if (identifier == "shoulders") RETVAL = EQEmu::invslot::slotShoulders;
else if (identifier == "arms") RETVAL = EQEmu::invslot::slotArms;
else if (identifier == "back") RETVAL = EQEmu::invslot::slotBack;
else if (identifier == "wrist1") RETVAL = EQEmu::invslot::slotWrist1;
else if (identifier == "wrist2") RETVAL = EQEmu::invslot::slotWrist2;
else if (identifier == "range") RETVAL = EQEmu::invslot::slotRange;
else if (identifier == "hands") RETVAL = EQEmu::invslot::slotHands;
else if (identifier == "primary") RETVAL = EQEmu::invslot::slotPrimary;
else if (identifier == "secondary") RETVAL = EQEmu::invslot::slotSecondary;
else if (identifier == "finger1") RETVAL = EQEmu::invslot::slotFinger1;
else if (identifier == "finger2") RETVAL = EQEmu::invslot::slotFinger2;
else if (identifier == "chest") RETVAL = EQEmu::invslot::slotChest;
else if (identifier == "legs") RETVAL = EQEmu::invslot::slotLegs;
else if (identifier == "feet") RETVAL = EQEmu::invslot::slotFeet;
else if (identifier == "waist") RETVAL = EQEmu::invslot::slotWaist;
else if (identifier == "powersource") RETVAL = EQEmu::invslot::slotPowerSource;
else if (identifier == "ammo") RETVAL = EQEmu::invslot::slotAmmo;
else if (identifier == "general1") RETVAL = EQEmu::invslot::slotGeneral1;
else if (identifier == "general2") RETVAL = EQEmu::invslot::slotGeneral2;
else if (identifier == "general3") RETVAL = EQEmu::invslot::slotGeneral3;
else if (identifier == "general4") RETVAL = EQEmu::invslot::slotGeneral4;
else if (identifier == "general5") RETVAL = EQEmu::invslot::slotGeneral5;
else if (identifier == "general6") RETVAL = EQEmu::invslot::slotGeneral6;
else if (identifier == "general7") RETVAL = EQEmu::invslot::slotGeneral7;
else if (identifier == "general8") RETVAL = EQEmu::invslot::slotGeneral8;
else if (identifier == "general9") RETVAL = EQEmu::invslot::slotGeneral9;
else if (identifier == "general10") RETVAL = EQEmu::invslot::slotGeneral10;
else RETVAL = EQEmu::invslot::SLOT_INVALID;
XSprePUSH; PUSHu((IV)RETVAL);
XSRETURN(1);
}
XS(XS__castspell);
XS(XS__castspell) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::castspell(int spell_id, int target_id)");
int spell_id = (int) SvIV(ST(0));
int target_id = (int) SvIV(ST(1));
quest_manager.castspell(spell_id, target_id);
XSRETURN_EMPTY;
}
XS(XS__selfcast);
XS(XS__selfcast) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::selfcast(int spell_id)");
int spell_id = (int) SvIV(ST(0));
quest_manager.selfcast(spell_id);
XSRETURN_EMPTY;
}
XS(XS__addloot);
XS(XS__addloot) {
dXSARGS;
if (items < 1 || items > 3)
Perl_croak(aTHX_ "Usage: quest::addloot(uint32 item_id, uint16 charges = 0, [bool equip_item = true])");
uint32 item_id = (uint32) SvUV(ST(0));
uint16 charges = 0;
bool equipitem = true;
if (items > 1)
charges = (uint16) SvUV(ST(1));
if (items > 2)
equipitem = (bool) SvTRUE(ST(2));
quest_manager.addloot(item_id, charges, equipitem);
XSRETURN_EMPTY;
}
XS(XS__zone);
XS(XS__zone) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::zone(string zone_name)");
char *zone_name = (char *) SvPV_nolen(ST(0));
quest_manager.Zone(zone_name);
XSRETURN_EMPTY;
}
XS(XS__settimer);
XS(XS__settimer) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::settimer(string timer_name, int seconds)");
char *timer_name = (char *) SvPV_nolen(ST(0));
int seconds = (int) SvIV(ST(1));
quest_manager.settimer(timer_name, seconds);
XSRETURN_EMPTY;
}
XS(XS__settimerMS);
XS(XS__settimerMS) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::settimerMS(string timer_name, int milliseconds)");
char *timer_name = (char *) SvPV_nolen(ST(0));
int milliseconds = (int) SvIV(ST(1));
quest_manager.settimerMS(timer_name, milliseconds);
XSRETURN_EMPTY;
}
XS(XS__stoptimer);
XS(XS__stoptimer) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::stoptimer(string timer_name)");
char *timer_name = (char *) SvPV_nolen(ST(0));
quest_manager.stoptimer(timer_name);
XSRETURN_EMPTY;
}
XS(XS__stopalltimers);
XS(XS__stopalltimers) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::stopalltimers()");
quest_manager.stopalltimers();
XSRETURN_EMPTY;
}
XS(XS__emote);
XS(XS__emote) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::emote(string message)");
char *message = (char *) SvPV_nolen(ST(0));
quest_manager.emote(message);
XSRETURN_EMPTY;
}
XS(XS__shout);
XS(XS__shout) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::shout(string message)");
char *message = (char *) SvPV_nolen(ST(0));
quest_manager.shout(message);
XSRETURN_EMPTY;
}
XS(XS__shout2);
XS(XS__shout2) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::shout2(string message)");
char *message = (char *) SvPV_nolen(ST(0));
quest_manager.shout2(message);
XSRETURN_EMPTY;
}
XS(XS__gmsay);
XS(XS__gmsay) {
dXSARGS;
if ((items < 1) || (items > 5))
Perl_croak(aTHX_ "Usage: quest::gmsay(string message, [int color_id], [bool send_to_world = 0])");
char *message = (char *) SvPV_nolen(ST(0));
int color_id = 7;
bool send_to_world = 0;
uint32 to_guilddbid = 0;
uint16 to_minstatus = 80;
if (items > 1) {
color_id = (int) SvIV(ST(1));
}
if (items > 2) {
send_to_world = ((int) SvIV(ST(2))) == 0 ? false : true;
}
if (items > 3)
to_guilddbid = (int) SvUV(ST(3));
if (items > 4)
to_minstatus = (int) SvUV(ST(4));
quest_manager.gmsay(message, color_id, send_to_world, to_guilddbid, to_minstatus);
XSRETURN_EMPTY;
}
XS(XS__depop);
XS(XS__depop) {
dXSARGS;
if (items < 0 || items > 1)
Perl_croak(aTHX_ "Usage: quest::depop(int npc_type_id = 0)");
int npc_type_id;
if (items < 1)
npc_type_id = 0;
else
npc_type_id = (int) SvIV(ST(0));
quest_manager.depop(npc_type_id);
XSRETURN_EMPTY;
}
XS(XS__depop_withtimer);
XS(XS__depop_withtimer) {
dXSARGS;
if (items < 0 || items > 1)
Perl_croak(aTHX_ "Usage: quest::depop_withtimer(int npc_type_id = 0)");
int npc_type_id;
if (items < 1)
npc_type_id = 0;
else
npc_type_id = (int) SvIV(ST(0));
quest_manager.depop_withtimer(npc_type_id);
XSRETURN_EMPTY;
}
XS(XS__depopall);
XS(XS__depopall) {
dXSARGS;
if (items < 0 || items > 1)
Perl_croak(aTHX_ "Usage: quest::depopall(int npc_type_id = 0)");
int npc_type_id;
if (items < 1)
npc_type_id = 0;
else
npc_type_id = (int) SvIV(ST(0));
quest_manager.depopall(npc_type_id);
XSRETURN_EMPTY;
}
XS(XS__settarget);
XS(XS__settarget) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::settarget(string target_enum ['npc_type', 'entity'], int target_id)");
char *target_enum = (char *) SvPV_nolen(ST(0));
int target_id = (int) SvIV(ST(1));
quest_manager.settarget(target_enum, target_id);
XSRETURN_EMPTY;
}
XS(XS__follow);
XS(XS__follow) {
dXSARGS;
if (items != 1 && items != 2)
Perl_croak(aTHX_ "Usage: quest::follow(int entity_id, [int distance = 10])");
int entity_id = (int) SvIV(ST(0));
int distance;
if (items == 2)
distance = (int) SvIV(ST(1));
else
distance = 10;
quest_manager.follow(entity_id, distance);
XSRETURN_EMPTY;
}
XS(XS__sfollow);
XS(XS__sfollow) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::sfollow()");
quest_manager.sfollow();
XSRETURN_EMPTY;
}
XS(XS__changedeity);
XS(XS__changedeity) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::changedeity(int deity_id)");
int diety_id = (int) SvIV(ST(0));
quest_manager.changedeity(diety_id);
XSRETURN_EMPTY;
}
XS(XS__exp);
XS(XS__exp) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::exp(int amount)");
int amt = (int) SvIV(ST(0));
quest_manager.exp(amt);
XSRETURN_EMPTY;
}
XS(XS__level);
XS(XS__level) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::level(int new_level)");
int newlevel = (int) SvIV(ST(0));
quest_manager.level(newlevel);
XSRETURN_EMPTY;
}
XS(XS__traindisc);
XS(XS__traindisc) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::traindisc(int tome_item_id)");
int discipline_tome_item_id = (int) SvIV(ST(0));
quest_manager.traindisc(discipline_tome_item_id);
XSRETURN_EMPTY;
}
XS(XS__isdisctome);
XS(XS__isdisctome) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::isdisctome(int item_id)");
bool RETVAL;
int item_id = (int) SvIV(ST(0));
RETVAL = quest_manager.isdisctome(item_id);
ST(0) = boolSV(RETVAL);
sv_2mortal(ST(0));
XSRETURN(1);
}
XS(XS__safemove);
XS(XS__safemove) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::safemove()");
quest_manager.safemove();
XSRETURN_EMPTY;
}
XS(XS__rain);
XS(XS__rain) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::rain(int weather)");
int weather = (int) SvIV(ST(0));
quest_manager.rain(weather);
XSRETURN_EMPTY;
}
XS(XS__snow);
XS(XS__snow) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::snow(int weather)");
int weather = (int) SvIV(ST(0));
quest_manager.snow(weather);
XSRETURN_EMPTY;
}
XS(XS__surname);
XS(XS__surname) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::surname(string name)");
char *name = (char *) SvPV_nolen(ST(0));
quest_manager.surname(name);
XSRETURN_EMPTY;
}
XS(XS__permaclass);
XS(XS__permaclass) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::permaclass(int class_id)");
int class_id = (int) SvIV(ST(0));
quest_manager.permaclass(class_id);
XSRETURN_EMPTY;
}
XS(XS__permarace);
XS(XS__permarace) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::permarace(int race_id)");
int race_id = (int) SvIV(ST(0));
quest_manager.permarace(race_id);
XSRETURN_EMPTY;
}
XS(XS__permagender);
XS(XS__permagender) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::permagender(int gender_id)");
int gender_id = (int) SvIV(ST(0));
quest_manager.permagender(gender_id);
XSRETURN_EMPTY;
}
XS(XS__scribespells);
XS(XS__scribespells) {
dXSARGS;
if (items < 1)
Perl_croak(aTHX_ "Usage: quest::scribespells(int max_level, [int min_level = 1])");
uint16 RETVAL;
dXSTARG;
uint8 max_level = (uint8) SvIV(ST(0));
uint8 min_level = (uint8) SvIV(ST(1));
if (min_level)
RETVAL = quest_manager.scribespells(max_level, min_level);
else
RETVAL = quest_manager.scribespells(max_level);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__traindiscs);
XS(XS__traindiscs) {
dXSARGS;
if (items < 1)
Perl_croak(aTHX_ "Usage: quest::traindiscs(int max_level, [int min_level = 1])");
uint16 RETVAL;
dXSTARG;
uint8 max_level = (uint8) SvIV(ST(0));
uint8 min_level = (uint8) SvIV(ST(1));
if (min_level)
RETVAL = quest_manager.traindiscs(max_level, min_level);
else
RETVAL = quest_manager.traindiscs(max_level);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__unscribespells);
XS(XS__unscribespells) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::unscribespells()");
quest_manager.unscribespells();
XSRETURN_EMPTY;
}
XS(XS__untraindiscs);
XS(XS__untraindiscs) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::untraindiscs()");
quest_manager.untraindiscs();
XSRETURN_EMPTY;
}
XS(XS__givecash);
XS(XS__givecash) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::givecash(int copper, int silver, int gold, int platinum)");
int copper = (int) SvIV(ST(0));
int silver = (int) SvIV(ST(1));
int gold = (int) SvIV(ST(2));
int platinum = (int) SvIV(ST(3));
quest_manager.givecash(copper, silver, gold, platinum);
XSRETURN_EMPTY;
}
XS(XS__pvp);
XS(XS__pvp) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::pvp(string mode [on|off])");
char *mode = (char *) SvPV_nolen(ST(0));
quest_manager.pvp(mode);
XSRETURN_EMPTY;
}
XS(XS__movepc);
XS(XS__movepc) {
dXSARGS;
if (items != 4 && items != 5)
Perl_croak(aTHX_ "Usage: quest::movepc(int zone_id, float x, float y, float z [float heading])");
int zone_id = (int) SvIV(ST(0));
float x = (float) SvNV(ST(1));
float y = (float) SvNV(ST(2));
float z = (float) SvNV(ST(3));
if (items == 4)
quest_manager.movepc(zone_id, x, y, z, 0.0f);
else {
float heading = (float) SvNV(ST(4));
quest_manager.movepc(zone_id, x, y, z, heading);
}
XSRETURN_EMPTY;
}
XS(XS__gmmove);
XS(XS__gmmove) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_ "Usage: quest::gmmove(float x, float y, float z)");
float x = (float) SvNV(ST(0));
float y = (float) SvNV(ST(1));
float z = (float) SvNV(ST(2));
quest_manager.gmmove(x, y, z);
XSRETURN_EMPTY;
}
XS(XS__movegrp);
XS(XS__movegrp) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::movegrp(int zone_id, float x, float y, float z)");
int zone_id = (int) SvIV(ST(0));
float x = (float) SvNV(ST(1));
float y = (float) SvNV(ST(2));
float z = (float) SvNV(ST(3));
quest_manager.movegrp(zone_id, x, y, z);
XSRETURN_EMPTY;
}
XS(XS__doanim);
XS(XS__doanim) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::doanim(int animation_id)");
int anim_id = (int) SvIV(ST(0));
quest_manager.doanim(anim_id);
XSRETURN_EMPTY;
}
XS(XS__addskill);
XS(XS__addskill) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::addskill(int skill_id, int value)");
int skill_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.addskill(skill_id, int_value);
XSRETURN_EMPTY;
}
XS(XS__setlanguage);
XS(XS__setlanguage) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::setlanguage(int skill_id, int value)");
int skill_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.setlanguage(skill_id, int_value);
XSRETURN_EMPTY;
}
XS(XS__setskill);
XS(XS__setskill) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::setskill(int skill_id, int value)");
int skill_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.setskill(skill_id, int_value);
XSRETURN_EMPTY;
}
XS(XS__setallskill);
XS(XS__setallskill) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::setallskill(int value)");
int int_value = (int) SvIV(ST(0));
quest_manager.setallskill(int_value);
XSRETURN_EMPTY;
}
XS(XS__attack);
XS(XS__attack) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::attack(string client_name)");
char *client_name = (char *) SvPV_nolen(ST(0));
quest_manager.attack(client_name);
XSRETURN_EMPTY;
}
XS(XS__attacknpc);
XS(XS__attacknpc) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::attacknpc(int npc_entity_id)");
int npc_entity_id = (int) SvIV(ST(0));
quest_manager.attacknpc(npc_entity_id);
XSRETURN_EMPTY;
}
XS(XS__attacknpctype);
XS(XS__attacknpctype) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::attacknpctype(int npc_type_id)");
int npc_type_id = (int) SvIV(ST(0));
quest_manager.attacknpctype(npc_type_id);
XSRETURN_EMPTY;
}
XS(XS__save);
XS(XS__save) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::save()");
quest_manager.save();
XSRETURN_EMPTY;
}
XS(XS__faction);
XS(XS__faction) {
dXSARGS;
if (items < 2 || items > 3)
Perl_croak(aTHX_ "Usage: quest::faction(int faction_id, int value, [int temp = 0])");
int faction_id = (int) SvIV(ST(0));
int int_value = (int) SvIV(ST(1));
int temp;
if (items == 2)
temp = 0;
else
temp = (int) SvIV(ST(2));
quest_manager.faction(faction_id, int_value, temp);
XSRETURN_EMPTY;
}
XS(XS__setsky);
XS(XS__setsky) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::setsky(uint8 sky)");
unsigned char new_sky = (unsigned char) SvUV(ST(0));
quest_manager.setsky(new_sky);
XSRETURN_EMPTY;
}
XS(XS__setguild);
XS(XS__setguild) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::setguild(int guild_id, int guild_rank_id)");
unsigned long new_guild_id = (unsigned long) SvUV(ST(0));
int guild_rank_id = (int) SvIV(ST(1));
quest_manager.setguild(new_guild_id, guild_rank_id);
XSRETURN_EMPTY;
}
XS(XS__createguild);
XS(XS__createguild) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::createguild(string guild_name, string leader_name)");
char *guild_name = (char *) SvPV_nolen(ST(0));
char *leader_name = (char *) SvPV_nolen(ST(1));
quest_manager.CreateGuild(guild_name, leader_name);
XSRETURN_EMPTY;
}
XS(XS__settime);
XS(XS__settime) {
dXSARGS;
if (items < 2)
Perl_croak(aTHX_ "Usage: quest::settime(int new_hour, int new_min, [bool update_world = true])");
if (items == 2) {
int new_hour = (int) SvIV(ST(0));
int new_min = (int) SvIV(ST(1));
quest_manager.settime(new_hour, new_min, true);
} else if (items == 3) {
int new_hour = (int) SvIV(ST(0));
int new_min = (int) SvIV(ST(1));
int update_world = (int) SvIV(ST(2));
if (update_world == 1) {
quest_manager.settime(new_hour, new_min, true);
} else {
quest_manager.settime(new_hour, new_min, false);
}
}
XSRETURN_EMPTY;
}
XS(XS__itemlink);
XS(XS__itemlink) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::itemlink(int item_id)");
int item_id = (int) SvIV(ST(0));
quest_manager.itemlink(item_id);
XSRETURN_EMPTY;
}
XS(XS__signalwith);
XS(XS__signalwith) {
dXSARGS;
if (items == 2) {
int npc_id = (int) SvIV(ST(0));
int signal_id = (int) SvIV(ST(1));
quest_manager.signalwith(npc_id, signal_id);
} else if (items == 3) {
int npc_id = (int) SvIV(ST(0));
int signal_id = (int) SvIV(ST(1));
int wait = (int) SvIV(ST(2));
quest_manager.signalwith(npc_id, signal_id, wait);
} else {
Perl_croak(aTHX_ "Usage: quest::signalwith(int npc_id, int signal_id, [int wait_ms])");
}
XSRETURN_EMPTY;
}
XS(XS__signal);
XS(XS__signal) {
dXSARGS;
if (items == 1) {
int npc_id = (int) SvIV(ST(0));
quest_manager.signal(npc_id);
} else if (items == 2) {
int npc_id = (int) SvIV(ST(0));
int wait = (int) SvIV(ST(1));
quest_manager.signal(npc_id, wait);
} else {
Perl_croak(aTHX_ "Usage: quest::signal(int npc_id, [int wait_ms])");
}
XSRETURN_EMPTY;
}
XS(XS__setglobal);
XS(XS__setglobal) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::setglobal(stirng key, string value, int options, string duration)");
char *key = (char *) SvPV_nolen(ST(0));
char *str_value = (char *) SvPV_nolen(ST(1));
int options = (int) SvIV(ST(2));
char *duration = (char *) SvPV_nolen(ST(3));
quest_manager.setglobal(key, str_value, options, duration);
XSRETURN_EMPTY;
}
XS(XS__targlobal);
XS(XS__targlobal) {
dXSARGS;
if (items != 6)
Perl_croak(aTHX_
"Usage: quest::targlobal(stirng key, string value, string duration, int npc_id, int chararacter_id, int zone_id)");
char *key = (char *) SvPV_nolen(ST(0));
char *str_value = (char *) SvPV_nolen(ST(1));
char *duration = (char *) SvPV_nolen(ST(2));
int npc_id = (int) SvIV(ST(3));
int char_id = (int) SvIV(ST(4));
int zone_id = (int) SvIV(ST(5));
quest_manager.targlobal(key, str_value, duration, npc_id, char_id, zone_id);
XSRETURN_EMPTY;
}
XS(XS__delglobal);
XS(XS__delglobal) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::delglobal(string key)");
char *key = (char *) SvPV_nolen(ST(0));
quest_manager.delglobal(key);
XSRETURN_EMPTY;
}
XS(XS__ding);
XS(XS__ding) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::ding()");
quest_manager.ding();
XSRETURN_EMPTY;
}
XS(XS__rebind);
XS(XS__rebind) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::rebind(int zone_id, float x, float y, float z)");
int zone_id = (int) SvIV(ST(0));
auto location = glm::vec3((float) SvNV(ST(1)), (float) SvNV(ST(2)), (float) SvNV(ST(3)));
quest_manager.rebind(zone_id, location);
XSRETURN_EMPTY;
}
XS(XS__start);
XS(XS__start) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::start(int waypoint)");
int wp = (int) SvIV(ST(0));
quest_manager.start(wp);
XSRETURN_EMPTY;
}
XS(XS__stop);
XS(XS__stop) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::stop()");
quest_manager.stop();
XSRETURN_EMPTY;
}
XS(XS__pause);
XS(XS__pause) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::pause(int duration-ms)");
int duration = (int) SvIV(ST(0));
quest_manager.pause(duration);
XSRETURN_EMPTY;
}
XS(XS__moveto);
XS(XS__moveto) {
dXSARGS;
if (items != 3 && items != 4 && items != 5)
Perl_croak(aTHX_
"Usage: quest::moveto(float x, float y, float z, [float heading], [bool save_guard_location])");
float x = (float) SvNV(ST(0));
float y = (float) SvNV(ST(1));
float z = (float) SvNV(ST(2));
float h;
bool saveguard;
if (items > 3)
h = (float) SvNV(ST(3));
else
h = 0;
if (items > 4)
saveguard = (bool) SvTRUE(ST(4));
else
saveguard = false;
quest_manager.moveto(glm::vec4(x, y, z, h), saveguard);
XSRETURN_EMPTY;
}
XS(XS__resume);
XS(XS__resume) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::resume()");
quest_manager.resume();
XSRETURN_EMPTY;
}
XS(XS__addldonpoints);
XS(XS__addldonpoints) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::addldonpoints(int points, int theme_id)");
long points = (long) SvIV(ST(0));
unsigned long theme_id = (unsigned long) SvUV(ST(1));
quest_manager.addldonpoints(points, theme_id);
XSRETURN_EMPTY;
}
XS(XS__addldonwin);
XS(XS__addldonwin) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::addldonwin(int wins, int theme_id)");
long wins = (long) SvIV(ST(0));
unsigned long theme_id = (unsigned long) SvUV(ST(1));
quest_manager.addldonwin(wins, theme_id);
XSRETURN_EMPTY;
}
XS(XS__addldonloss);
XS(XS__addldonloss) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::addldonloss(int losses, int theme_id)");
long losses = (long) SvIV(ST(0));
unsigned long theme_id = (unsigned long) SvUV(ST(1));
quest_manager.addldonloss(losses, theme_id);
XSRETURN_EMPTY;
}
XS(XS__setnexthpevent);
XS(XS__setnexthpevent) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::setnexthpevent(int at_mob_percentage)");
int at = (int) SvIV(ST(0));
quest_manager.setnexthpevent(at);
XSRETURN_EMPTY;
}
XS(XS__setnextinchpevent);
XS(XS__setnextinchpevent) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::setnextinchpevent(int at_mob_percentage)");
int at = (int) SvIV(ST(0));
quest_manager.setnextinchpevent(at);
XSRETURN_EMPTY;
}
XS(XS__sethp);
XS(XS__sethp) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::sethp(int mob_health_percentage [0-100])");
int hpperc = (int) SvIV(ST(0));
quest_manager.sethp(hpperc);
XSRETURN_EMPTY;
}
XS(XS__respawn);
XS(XS__respawn) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::respawn(int npc_type_id, int grid_id)");
int npc_type_id = (int) SvIV(ST(0));
int grid_id = (int) SvIV(ST(1));
quest_manager.respawn(npc_type_id, grid_id);
XSRETURN_EMPTY;
}
XS(XS__ChooseRandom);
XS(XS__ChooseRandom) {
dXSARGS;
if (items < 1)
Perl_croak(aTHX_ "Usage: quest::ChooseRandom(option1, option2, option3, option4, option5...[no limit])");
int index = zone->random.Int(0, items - 1);
SV *tmp = ST(0);
ST(0) = ST(index);
ST(index) = tmp;
XSRETURN(1); //return 1 element from the stack (ST(0))
}
XS(XS__set_proximity);
XS(XS__set_proximity) {
dXSARGS;
if (items != 4 && items != 6 && items != 7)
Perl_croak(aTHX_
"Usage: quest::set_proximity(float min_x, float max_x, float min_y, float max_y, [float min_z], [float max_z], [say])");
float min_x = (float) SvNV(ST(0));
float max_x = (float) SvNV(ST(1));
float min_y = (float) SvNV(ST(2));
float max_y = (float) SvNV(ST(3));
if (items == 4)
quest_manager.set_proximity(min_x, max_x, min_y, max_y);
else {
float min_z = (float) SvNV(ST(4));
float max_z = (float) SvNV(ST(5));
bool bSay = false;
if (items == 7)
bSay = (bool) SvTRUE(ST(6));
quest_manager.set_proximity(min_x, max_x, min_y, max_y, min_z, max_z, bSay);
}
XSRETURN_EMPTY;
}
XS(XS__clear_proximity);
XS(XS__clear_proximity) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::clear_proximity()");
quest_manager.clear_proximity();
XSRETURN_EMPTY;
}
XS(XS__enable_proximity_say);
XS(XS__enable_proximity_say) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::enable_proximity_say()");
quest_manager.enable_proximity_say();
XSRETURN_EMPTY;
}
XS(XS__disable_proximity_say);
XS(XS__disable_proximity_say) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::disable_proximity_say()");
quest_manager.disable_proximity_say();
XSRETURN_EMPTY;
}
XS(XS__setanim);
XS(XS__setanim) //Cisyouc: mob->setappearance() addition
{
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::setanim(int npc_type_id, int appearance_number[0-4]);");
quest_manager.setanim(SvUV(ST(0)), SvUV(ST(1)));
XSRETURN_EMPTY;
}
XS(XS__showgrid);
XS(XS__showgrid) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::showgrid(int grid_id);");
quest_manager.showgrid(SvUV(ST(0)));
XSRETURN_EMPTY;
}
XS(XS__spawn_condition);
XS(XS__spawn_condition) {
dXSARGS;
if (items < 3 || items > 4)
Perl_croak(aTHX_
"Usage: quest::spawn_condition(string zone_short, [int instance_id], uint16 condition_id, int16 value)");
if (items == 3) {
char *zone_short = (char *) SvPV_nolen(ST(0));
uint16 condition_id = (int) SvUV(ST(1));
int16 int_value = (int) SvIV(ST(2));
quest_manager.spawn_condition(zone_short, zone->GetInstanceID(), condition_id, int_value);
} else {
char *zone_short = (char *) SvPV_nolen(ST(0));
uint32 instance_id = (int) SvUV(ST(1));
uint16 condition_id = (int) SvUV(ST(2));
int16 int_value = (int) SvIV(ST(3));
quest_manager.spawn_condition(zone_short, instance_id, condition_id, int_value);
}
XSRETURN_EMPTY;
}
XS(XS__get_spawn_condition);
XS(XS__get_spawn_condition) {
dXSARGS;
if (items < 2 || items > 3)
Perl_croak(aTHX_ "Usage: quest::get_spawn_condition(string zone_short, [int instance_id], int condition_id)");
if (items == 2) {
int16 RETVAL;
dXSTARG;
char *zone_short = (char *) SvPV_nolen(ST(0));
uint16 cond_id = (int) SvIV(ST(1));
RETVAL = quest_manager.get_spawn_condition(zone_short, zone->GetInstanceID(), cond_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
} else {
int16 RETVAL;
dXSTARG;
char *zone_short = (char *) SvPV_nolen(ST(0));
uint16 instance_id = (int) SvIV(ST(1));
uint16 cond_id = (int) SvIV(ST(2));
RETVAL = quest_manager.get_spawn_condition(zone_short, instance_id, cond_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
}
XS(XS__toggle_spawn_event);
XS(XS__toggle_spawn_event) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_
"Usage: quest::toggle_spawn_event(uint32 event_id, [bool is_enabled = false], [bool is_strict = false], [bool reset_base = false])");
uint32 event_id = (int) SvIV(ST(0));
bool is_enabled = ((int) SvIV(ST(1))) == 0 ? false : true;
bool is_strict = ((int) SvIV(ST(2))) == 0 ? false : true;
bool reset_base = ((int) SvIV(ST(3))) == 0 ? false : true;
quest_manager.toggle_spawn_event(event_id, is_enabled, is_strict, reset_base);
XSRETURN_EMPTY;
}
XS(XS__has_zone_flag);
XS(XS__has_zone_flag) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::has_zone_flag(uint32 zone_id)");
int16 RETVAL;
dXSTARG;
uint32 zone_id = (int) SvIV(ST(0));
RETVAL = quest_manager.has_zone_flag(zone_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__set_zone_flag);
XS(XS__set_zone_flag) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::set_zone_flag(uint32 zone_id)");
uint32 zone_id = (int) SvIV(ST(0));
quest_manager.set_zone_flag(zone_id);
XSRETURN_EMPTY;
}
XS(XS__clear_zone_flag);
XS(XS__clear_zone_flag) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::clear_zone_flag(uint32 zone_id)");
uint32 zone_id = (int) SvIV(ST(0));
quest_manager.clear_zone_flag(zone_id);
XSRETURN_EMPTY;
}
XS(XS__summonburiedplayercorpse);
XS(XS__summonburiedplayercorpse) {
dXSARGS;
if (items != 5)
Perl_croak(aTHX_
"Usage: quest::summonburiedplayercorpse(uint32 char_id, float dest_x, float dest_y, float dest_z, float dest_heading)");
bool RETVAL;
uint32 char_id = (int) SvIV(ST(0));
auto position = glm::vec4((float) SvIV(ST(1)), (float) SvIV(ST(2)), (float) SvIV(ST(3)), (float) SvIV(ST(4)));
RETVAL = quest_manager.summonburiedplayercorpse(char_id, position);
ST(0) = boolSV(RETVAL);
sv_2mortal(ST(0));
XSRETURN(1);
}
XS(XS__summonallplayercorpses);
XS(XS__summonallplayercorpses) {
dXSARGS;
if (items != 5)
Perl_croak(aTHX_
"Usage: quest::summonallplayercorpses(int char_id, float dest_x, float dest_y, float dest_z, float dest_heading)");
bool RETVAL;
uint32 char_id = (int) SvIV(ST(0));
auto position = glm::vec4((float) SvIV(ST(1)), (float) SvIV(ST(2)), (float) SvIV(ST(3)), (float) SvIV(ST(4)));
RETVAL = quest_manager.summonallplayercorpses(char_id, position);
ST(0) = boolSV(RETVAL);
sv_2mortal(ST(0));
XSRETURN(1);
}
XS(XS__getplayerburiedcorpsecount);
XS(XS__getplayerburiedcorpsecount) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::getplayerburiedcorpsecount(int character_id)");
uint32 RETVAL;
dXSTARG;
uint32 char_id = (int) SvIV(ST(0));
RETVAL = quest_manager.getplayerburiedcorpsecount(char_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__buryplayercorpse);
XS(XS__buryplayercorpse) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::buryplayercorpse(int character_id)");
uint32 RETVAL;
dXSTARG;
uint32 char_id = (int) SvIV(ST(0));
RETVAL = quest_manager.buryplayercorpse(char_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__forcedooropen);
XS(XS__forcedooropen) {
dXSARGS;
if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: quest::forcedooropen(int door_id, [int alt_mode=0])");
if (items == 1) {
uint32 door_id = (int) SvIV(ST(0));
quest_manager.forcedooropen(door_id, false);
XSRETURN_EMPTY;
} else {
uint32 door_id = (int) SvIV(ST(0));
bool alt_mode = (int) SvIV(ST(1)) == 0 ? false : true;
quest_manager.forcedooropen(door_id, alt_mode);
XSRETURN_EMPTY;
}
}
XS(XS__forcedoorclose);
XS(XS__forcedoorclose) {
dXSARGS;
if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: quest::forcedoorclose(int door_id, [bool alt_mode = 0])");
if (items == 1) {
uint32 door_id = (int) SvIV(ST(0));
quest_manager.forcedoorclose(door_id, false);
XSRETURN_EMPTY;
} else {
uint32 door_id = (int) SvIV(ST(0));
bool alt_mode = (int) SvIV(ST(1)) == 0 ? false : true;
quest_manager.forcedoorclose(door_id, alt_mode);
XSRETURN_EMPTY;
}
}
XS(XS__toggledoorstate);
XS(XS__toggledoorstate) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::toggledoorstate(int door_id)");
uint32 door_id = (int) SvIV(ST(0));
quest_manager.toggledoorstate(door_id);
XSRETURN_EMPTY;
}
XS(XS__isdooropen);
XS(XS__isdooropen) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::isdooropen(int door_id)");
bool RETVAL;
dXSTARG;
uint32 door_id = (int) SvIV(ST(0));
RETVAL = quest_manager.isdooropen(door_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__depopzone);
XS(XS__depopzone) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::depopzone([bool start_spawn_status = false])");
bool StartSpawnStatus = ((int) SvIV(ST(0))) == 0 ? false : true;
quest_manager.depopzone(StartSpawnStatus);
XSRETURN_EMPTY;
}
XS(XS__repopzone);
XS(XS__repopzone) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::repopzone()");
quest_manager.repopzone();
XSRETURN_EMPTY;
}
XS(XS__npcrace);
XS(XS__npcrace) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::npcrace(int race_id)");
int race_id = (int) SvIV(ST(0));
quest_manager.npcrace(race_id);
XSRETURN_EMPTY;
}
XS(XS__npcgender);
XS(XS__npcgender) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::npcgender(int gender_id)");
int gender_id = (int) SvIV(ST(0));
quest_manager.npcgender(gender_id);
XSRETURN_EMPTY;
}
XS(XS__npcsize);
XS(XS__npcsize) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::npcsize(int size)");
int size = (int) SvIV(ST(0));
quest_manager.npcsize(size);
XSRETURN_EMPTY;
}
XS(XS__npctexture);
XS(XS__npctexture) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::npctexture(int texture_id)");
int texture_id = (int) SvIV(ST(0));
quest_manager.npctexture(texture_id);
XSRETURN_EMPTY;
}
XS(XS__playerrace);
XS(XS__playerrace) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::playerrace(int race_id)");
int race_id = (int) SvIV(ST(0));
quest_manager.playerrace(race_id);
XSRETURN_EMPTY;
}
XS(XS__playergender);
XS(XS__playergender) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::playergender(int gender_id)");
int gender_id = (int) SvIV(ST(0));
quest_manager.playergender(gender_id);
XSRETURN_EMPTY;
}
XS(XS__playersize);
XS(XS__playersize) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::playersize(int newsize)");
int newsize = (int) SvIV(ST(0));
quest_manager.playersize(newsize);
XSRETURN_EMPTY;
}
XS(XS__playertexture);
XS(XS__playertexture) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::playertexture(int texture_id)");
int texture_id = (int) SvIV(ST(0));
quest_manager.playertexture(texture_id);
XSRETURN_EMPTY;
}
XS(XS__playerfeature);
XS(XS__playerfeature) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_
"Usage: quest::playerfeature(string feature [race|gender|texture|helm|haircolor|beardcolor|eyecolor1|eyecolor2|hair|face|beard|heritage|tatoo|details|size], int setting)");
char *str_value = (char *) SvPV_nolen(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.playerfeature(str_value, int_value);
XSRETURN_EMPTY;
}
XS(XS__npcfeature);
XS(XS__npcfeature) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_
"Usage: quest::npcfeature(string feature [race|gender|texture|helm|haircolor|beardcolor|eyecolor1|eyecolor2|hair|face|beard|heritage|tatoo|details|size], int value)");
char *str_value = (char *) SvPV_nolen(ST(0));
int int_value = (int) SvIV(ST(1));
quest_manager.npcfeature(str_value, int_value);
XSRETURN_EMPTY;
}
#ifdef BOTS
XS(XS__createbotcount);
XS(XS__createbotcount)
{
dXSARGS;
int RETVAL;
dXSTARG;
RETVAL = quest_manager.createbotcount();
XSprePUSH; PUSHi((IV)RETVAL);
XSRETURN(1);
}
XS(XS__spawnbotcount);
XS(XS__spawnbotcount)
{
dXSARGS;
int RETVAL;
dXSTARG;
RETVAL = quest_manager.spawnbotcount();
XSprePUSH; PUSHi((IV)RETVAL);
XSRETURN(1);
}
XS(XS__botquest);
XS(XS__botquest)
{
dXSARGS;
bool RETVAL;
dXSTARG;
RETVAL = quest_manager.botquest();
XSprePUSH; PUSHu((IV)RETVAL);
XSRETURN(1);
}
XS(XS__createBot);
XS(XS__createBot)
{
dXSARGS;
bool RETVAL;
dXSTARG;
if(items != 6)
{
Perl_croak(aTHX_ "Usage: quest::createBot(string first_name, string last_name, int level, int race_id, int class_id, int gender_id)");
}
char *firstname = (char *)SvPV_nolen(ST(0));
char *lastname = (char *)SvPV_nolen(ST(1));
int level = (int) SvIV(ST(2));
int race_id = (int) SvIV(ST(3));
int class_id = (int) SvIV(ST(4));
int gender_id = (int) SvIV(ST(5));
RETVAL = quest_manager.createBot(firstname, lastname, level, race_id, class_id, gender_id);
XSprePUSH; PUSHu((IV)RETVAL);
XSRETURN(1);
}
#endif //BOTS
XS(XS__taskselector);
XS(XS__taskselector) {
dXSARGS;
if ((items >= 1) && (items <= MAXCHOOSERENTRIES)) {
int tasks[MAXCHOOSERENTRIES];
for (int i = 0; i < items; i++) {
tasks[i] = (int) SvIV(ST(i));
}
quest_manager.taskselector(items, tasks);
} else {
Perl_croak(aTHX_ "Usage: quest::taskselector(int task_id, 2, 3, 4, 5 [up to 40])");
}
XSRETURN_EMPTY;
}
XS(XS__task_setselector);
XS(XS__task_setselector) {
dXSARGS;
if (items == 1) {
int task_setid = (int) SvIV(ST(0));
quest_manager.tasksetselector(task_setid);
} else {
Perl_croak(aTHX_ "Usage: quest::task_setselector(int task_set_id)");
}
XSRETURN_EMPTY;
}
XS(XS__enabletask);
XS(XS__enabletask) {
dXSARGS;
if ((items >= 1) && (items <= 10)) {
int tasks[10];
for (int i = 0; i < items; i++) {
tasks[i] = (int) SvIV(ST(i));
}
quest_manager.enabletask(items, tasks);
} else {
Perl_croak(aTHX_ "Usage: quest::enabletask(int task_id, 2, 3, [up to 10])");
}
XSRETURN_EMPTY;
}
XS(XS__disabletask);
XS(XS__disabletask) {
dXSARGS;
if ((items >= 1) && (items <= 10)) {
int tasks[10];
for (int i = 0; i < items; i++) {
tasks[i] = (int) SvIV(ST(i));
}
quest_manager.disabletask(items, tasks);
} else {
Perl_croak(aTHX_ "Usage: quest::disabletask(int task_id, 2, 3, [up to 10])");
}
XSRETURN_EMPTY;
}
XS(XS__istaskenabled);
XS(XS__istaskenabled) {
dXSARGS;
bool RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_id = (int) SvIV(ST(0));
RETVAL = quest_manager.istaskenabled(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::istaskenabled(int task_id)");
}
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__istaskactive);
XS(XS__istaskactive) {
dXSARGS;
bool RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_id = (int) SvIV(ST(0));
RETVAL = quest_manager.istaskactive(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::istaskactive(int task_id)");
}
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__istaskactivityactive);
XS(XS__istaskactivityactive) {
dXSARGS;
bool RETVAL;
dXSTARG;
if (items == 2) {
unsigned int task_id = (int) SvIV(ST(0));
unsigned int activity_id = (int) SvIV(ST(1));
RETVAL = quest_manager.istaskactivityactive(task_id, activity_id);
} else {
Perl_croak(aTHX_ "Usage: quest::istaskactivityactive(int task_id, int activity_id)");
}
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__gettaskactivitydonecount);
XS(XS__gettaskactivitydonecount) {
dXSARGS;
uint32 RETVAL;
dXSTARG;
if (items == 2) {
unsigned int task_id = (int) SvIV(ST(0));
unsigned int activity_id = (int) SvIV(ST(1));
RETVAL = quest_manager.gettaskactivitydonecount(task_id, activity_id);
XSprePUSH;
PUSHu((UV) RETVAL);
} else {
Perl_croak(aTHX_ "Usage: quest::gettaskactivitydonecount(int task_id, int activity_id)");
}
XSRETURN(1);
}
XS(XS__updatetaskactivity);
XS(XS__updatetaskactivity) {
dXSARGS;
unsigned int task_id, activity_id;
int count = 1;
bool ignore_quest_update = false;
if (items == 2) {
task_id = (int) SvIV(ST(0));
activity_id = (int) SvIV(ST(1));
quest_manager.updatetaskactivity(task_id, activity_id, count, false);
} else if (items == 3 || items == 4) {
task_id = (int) SvIV(ST(0));
activity_id = (int) SvIV(ST(1));
count = (int) SvIV(ST(2));
if (items == 4) {
bool ignore_quest_update = (bool) SvTRUE(ST(3));
}
quest_manager.updatetaskactivity(task_id, activity_id, count, ignore_quest_update);
} else {
Perl_croak(aTHX_
"Usage: quest::updatetaskactivity(int task_id, int activity_id, [int count], [bool ignore_quest_update = false])");
}
XSRETURN_EMPTY;
}
XS(XS__resettaskactivity);
XS(XS__resettaskactivity) {
dXSARGS;
unsigned int task, activity;
if (items == 2) {
int task_id = (int) SvIV(ST(0));
int activity_id = (int) SvIV(ST(1));
quest_manager.resettaskactivity(task_id, activity_id);
} else {
Perl_croak(aTHX_ "Usage: quest::resettaskactivity(int task_id, int activity_id)");
}
XSRETURN_EMPTY;
}
XS(XS__taskexploredarea);
XS(XS__taskexploredarea) {
dXSARGS;
unsigned int explore_id;
if (items == 1) {
explore_id = (int) SvIV(ST(0));
quest_manager.taskexploredarea(explore_id);
} else {
Perl_croak(aTHX_ "Usage: quest::taskexplorearea(int explore_id)");
}
XSRETURN_EMPTY;
}
XS(XS__assigntask);
XS(XS__assigntask) {
dXSARGS;
unsigned int task_id;
bool enforce_level_requirement = false;
if (items == 1 || items == 2) {
task_id = (int) SvIV(ST(0));
if (items == 2) {
if ((int) SvIV(ST(1)) == 1) {
enforce_level_requirement = true;
}
}
quest_manager.assigntask(task_id, enforce_level_requirement);
} else {
Perl_croak(aTHX_ "Usage: quest::assigntask(int task_id, [bool enforce_level_requirement = false])");
}
XSRETURN_EMPTY;
}
XS(XS__failtask);
XS(XS__failtask) {
dXSARGS;
unsigned int task_id;
if (items == 1) {
task_id = (int) SvIV(ST(0));
quest_manager.failtask(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::failtask(int task_id)");
}
XSRETURN_EMPTY;
}
XS(XS__tasktimeleft);
XS(XS__tasktimeleft) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_id = (int) SvIV(ST(0));
RETVAL = quest_manager.tasktimeleft(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::tasktimeleft(int task_id)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__istaskcompleted);
XS(XS__istaskcompleted) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_id = (int) SvIV(ST(0));
RETVAL = quest_manager.istaskcompleted(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::istaskcompleted(int task_id)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__enabledtaskcount);
XS(XS__enabledtaskcount) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_set = (int) SvIV(ST(0));
RETVAL = quest_manager.enabledtaskcount(task_set);
} else {
Perl_croak(aTHX_ "Usage: quest::enabledtaskcount(int task_set)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__firsttaskinset);
XS(XS__firsttaskinset) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_set = (int) SvIV(ST(0));
RETVAL = quest_manager.firsttaskinset(task_set);
} else {
Perl_croak(aTHX_ "Usage: quest::firsttaskinset(int task_set)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__lasttaskinset);
XS(XS__lasttaskinset) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_set = (int) SvIV(ST(0));
RETVAL = quest_manager.lasttaskinset(task_set);
} else {
Perl_croak(aTHX_ "Usage: quest::lasttaskinset(int task_set)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__nexttaskinset);
XS(XS__nexttaskinset) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 2) {
unsigned int task_set = (int) SvIV(ST(0));
unsigned int task_id = (int) SvIV(ST(1));
RETVAL = quest_manager.nexttaskinset(task_set, task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::nexttaskinset(int task_set, int task_id)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__activespeaktask);
XS(XS__activespeaktask) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 0) {
RETVAL = quest_manager.activespeaktask();
} else {
Perl_croak(aTHX_ "Usage: quest::activespeaktask()");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__activespeakactivity);
XS(XS__activespeakactivity) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_id = (int) SvIV(ST(0));
RETVAL = quest_manager.activespeakactivity(task_id);
} else {
Perl_croak(aTHX_ "Usage: quest::activespeakactivity(int task_id)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__activetasksinset);
XS(XS__activetasksinset) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_set = (int) SvIV(ST(0));
RETVAL = quest_manager.activetasksinset(task_set);
} else {
Perl_croak(aTHX_ "Usage: quest::activetasksinset(int task_set)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__completedtasksinset);
XS(XS__completedtasksinset) {
dXSARGS;
int RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task_set = (int) SvIV(ST(0));
RETVAL = quest_manager.completedtasksinset(task_set);
} else {
Perl_croak(aTHX_ "Usage: quest::completedtasksinset(int task_set)");
}
XSprePUSH;
PUSHi((IV) RETVAL);
XSRETURN(1);
}
XS(XS__istaskappropriate);
XS(XS__istaskappropriate) {
dXSARGS;
bool RETVAL;
dXSTARG;
if (items == 1) {
unsigned int task = (int) SvIV(ST(0));
RETVAL = quest_manager.istaskappropriate(task);
} else {
Perl_croak(aTHX_ "Usage: quest::istaskaappropriate(int task_id)");
}
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__popup); // prototype to pass -Wmissing-prototypes
XS(XS__popup) {
dXSARGS;
int popup_id = 0;
int buttons = 0;
int duration = 0;
if ((items < 2) || (items > 5))
Perl_croak(aTHX_
"Usage: quest::popup(string window_title, string message, int popup_id, int buttons, int duration)");
if (items >= 3)
popup_id = (int) SvIV(ST(2));
if (items >= 4)
buttons = (int) SvIV(ST(3));
if (items == 5)
duration = (int) SvIV(ST(4));
quest_manager.popup(SvPV_nolen(ST(0)), SvPV_nolen(ST(1)), popup_id, buttons, duration);
XSRETURN_EMPTY;
}
XS(XS__clearspawntimers);
XS(XS__clearspawntimers) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::clearspawntimers()");
quest_manager.clearspawntimers();
XSRETURN_EMPTY;
}
XS(XS__ze);
XS(XS__ze) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::ze(int emote_color_id, string message)");
int channel_id = (int) SvIV(ST(0));
char *message = (char *) SvPV_nolen(ST(1));
quest_manager.ze(channel_id, message);
XSRETURN_EMPTY;
}
XS(XS__we);
XS(XS__we) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::we(int emote_color_id, string message)");
int channel_id = (int) SvIV(ST(0));
char *message = (char *) SvPV_nolen(ST(1));
quest_manager.we(channel_id, message);
XSRETURN_EMPTY;
}
XS(XS__getlevel);
XS(XS__getlevel) {
dXSARGS;
if (items > 1)
Perl_croak(aTHX_ "Usage: quest::getlevel(int type)");
int RETVAL;
dXSTARG;
int type;
if (items == 1)
type = (int) SvIV(ST(0));
else
type = 0;
RETVAL = quest_manager.getlevel(type);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__CreateGroundObject);
XS(XS__CreateGroundObject) {
dXSARGS;
if (items != 5 && items != 6)
Perl_croak(aTHX_
"Usage: quest::creategroundobject(int item_id, float x, float y, float z, float heading, [uint32 decay_time-ms = 300000])");
int item_id = (int) SvIV(ST(0));
float x = (float) SvNV(ST(1));
float y = (float) SvNV(ST(2));
float z = (float) SvNV(ST(3));
float heading = (float) SvNV(ST(4));
uint16 id = 0;
if (items == 5)
id = quest_manager.CreateGroundObject(item_id, glm::vec4(x, y, z, heading));
else {
uint32 decay_time = (uint32) SvIV(ST(5));
id = quest_manager.CreateGroundObject(item_id, glm::vec4(x, y, z, heading), decay_time);
}
XSRETURN_IV(id);
}
XS(XS__CreateGroundObjectFromModel);
XS(XS__CreateGroundObjectFromModel) {
dXSARGS;
if (items < 5 || items > 7)
Perl_croak(aTHX_
"Usage: quest::creategroundobjectfrommodel(string model_name, float x, float y, float z, float heading, [int object_type], [uint32 decay_time-ms = 300000])");
char *modelname = (char *) SvPV_nolen(ST(0));
float x = (float) SvNV(ST(1));
float y = (float) SvNV(ST(2));
float z = (float) SvNV(ST(3));
float heading = (float) SvNV(ST(4));
uint32 object_type = 0;
uint32 decay_time = 0;
uint16 id = 0;
if (items > 5)
object_type = (uint32) SvIV(ST(5));
if (items > 6)
decay_time = (uint32) SvIV(ST(6));
id = quest_manager.CreateGroundObjectFromModel(modelname, glm::vec4(x, y, z, heading), object_type, decay_time);
XSRETURN_IV(id);
}
XS(XS__CreateDoor);
XS(XS__CreateDoor) {
dXSARGS;
if (items < 5 || items > 7)
Perl_croak(aTHX_
"Usage: quest::createdoor(string model_name, float x, float y, float z, float heading, [int object_type = 58], [int size = 100])");
char *modelname = (char *) SvPV_nolen(ST(0));
float x = (float) SvNV(ST(1));
float y = (float) SvNV(ST(2));
float z = (float) SvNV(ST(3));
float heading = (float) SvNV(ST(4));
uint32 object_type = 58;
uint32 size = 100;
uint16 id = 0;
if (items > 5)
object_type = (uint32) SvIV(ST(5));
if (items > 6)
size = (uint32) SvIV(ST(6));
id = quest_manager.CreateDoor(modelname, x, y, z, heading, object_type, size);
XSRETURN_IV(id);
}
XS(XS__ModifyNPCStat);
XS(XS__ModifyNPCStat) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::ModifyNPCStat(string key, string value)");
quest_manager.ModifyNPCStat(SvPV_nolen(ST(0)), SvPV_nolen(ST(1)));
XSRETURN_EMPTY;
}
XS(XS__collectitems);
XS(XS__collectitems) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::collectitems(int item_id, [bool remove_item = true])");
uint32 item_id = (int) SvIV(ST(0));
bool remove_item = ((int) SvIV(ST(1))) == 0 ? false : true;
int quantity =
quest_manager.collectitems(item_id, remove_item);
XSRETURN_IV(quantity);
}
XS(XS__UpdateSpawnTimer);
XS(XS__UpdateSpawnTimer) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::UpdateSpawnTimer(uint32 spawn2_id, uint32 updated_time_till_repop)");
uint32 spawn2_id = (int) SvIV(ST(0));
uint32 updated_time_till_repop = (int) SvIV(ST(1));
quest_manager.UpdateSpawnTimer(spawn2_id, updated_time_till_repop);
XSRETURN_EMPTY;
}
XS(XS__MerchantSetItem);
XS(XS__MerchantSetItem) {
dXSARGS;
if (items != 2 && items != 3)
Perl_croak(aTHX_ "Usage: quest::MerchantSetItem(uint32 npc_id, uint32 item_id, [uint32 quantity])");
uint32 npc_id = (int) SvUV(ST(0));
uint32 item_id = (int) SvUV(ST(1));
uint32 quantity = 0;
if (items == 3)
quantity = (int) SvUV(ST(2));
quest_manager.MerchantSetItem(npc_id, item_id, quantity);
XSRETURN_EMPTY;
}
XS(XS__MerchantCountItem);
XS(XS__MerchantCountItem) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::MerchantCountItem(uint32 npc_id, uint32 item_id)");
uint32 npc_id = (int) SvUV(ST(0));
uint32 item_id = (int) SvUV(ST(1));
uint32 quantity = quest_manager.MerchantCountItem(npc_id, item_id);
XSRETURN_UV(quantity);
}
XS(XS__varlink);
XS(XS__varlink) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::varlink(uint32 item_id)");
dXSTARG;
Const_char *RETVAL;
char text[250];
uint32 item_id;
item_id = (int) SvUV(ST(0));
RETVAL = quest_manager.varlink(text, item_id);
sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__CreateInstance);
XS(XS__CreateInstance) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_ "Usage: quest::CreateInstance(string zone_name, uint16 version, uint32 duration)");
char *zone = (char *) SvPV_nolen(ST(0));
uint16 version = (int) SvUV(ST(1));
uint32 duration = (int) SvUV(ST(2));
uint32 id = quest_manager.CreateInstance(zone, version, duration);
XSRETURN_UV(id);
}
XS(XS__DestroyInstance);
XS(XS__DestroyInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::DestroyInstance(int id)");
uint16 id = (int) SvUV(ST(0));
quest_manager.DestroyInstance(id);
XSRETURN_EMPTY;
}
XS(XS__UpdateInstanceTimer);
XS(XS__UpdateInstanceTimer) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::UpdateInstanceTimer(int16 instance_id, uint32 duration)");
uint16 instance_id = (uint16) SvUV(ST(0));
uint32 duration = (uint32) SvUV(ST(1));
quest_manager.UpdateInstanceTimer(instance_id, duration);
XSRETURN_EMPTY;
}
XS(XS__GetInstanceTimer);
XS(XS__GetInstanceTimer) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::GetInstanceTimer()");
uint32 timer = quest_manager.GetInstanceTimer();
XSRETURN_UV(timer);
}
XS(XS__GetInstanceTimerByID);
XS(XS__GetInstanceTimerByID) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetInstanceTimerByID(uint16 instance_id)");
uint16 instance_id = (uint16) SvUV(ST(0));
uint32 timer = quest_manager.GetInstanceTimerByID(instance_id);
XSRETURN_UV(timer);
}
XS(XS__GetInstanceID);
XS(XS__GetInstanceID) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::GetInstanceID(string zone_name, uint16 version)");
char *zone = (char *) SvPV_nolen(ST(0));
uint16 version = (int) SvUV(ST(1));
uint16 id = quest_manager.GetInstanceID(zone, version);
XSRETURN_UV(id);
}
XS(XS__GetCharactersInInstance);
XS(XS__GetCharactersInInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetCharactersInInstance(uint16 instance_id)");
dXSTARG;
Const_char *RETVAL;
uint16 instance_id = (int) SvUV(ST(0));
std::list<uint32> char_id_list;
std::string char_id_string;
database.GetCharactersInInstance(instance_id, char_id_list);
if (char_id_list.size() > 0) {
char_id_string = itoa(char_id_list.size());
char_id_string += " player(s) in instance: ";
auto iter = char_id_list.begin();
while (iter != char_id_list.end()) {
char char_name[64];
database.GetCharName(*iter, char_name);
char_id_string += char_name;
char_id_string += "(";
char_id_string += itoa(*iter);
char_id_string += ")";
++iter;
if (iter != char_id_list.end())
char_id_string += ", ";
}
RETVAL = char_id_string.c_str();
} else
RETVAL = "No players in that instance.";
sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__AssignToInstance);
XS(XS__AssignToInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::AssignToInstance(uint16 instance_id)");
uint16 instance_id = (int) SvUV(ST(0));
quest_manager.AssignToInstance(instance_id);
XSRETURN_EMPTY;
}
XS(XS__AssignGroupToInstance);
XS(XS__AssignGroupToInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::AssignGroupToInstance(uint16 instance_id)");
uint16 instance_id = (int) SvUV(ST(0));
quest_manager.AssignGroupToInstance(instance_id);
XSRETURN_EMPTY;
}
XS(XS__AssignRaidToInstance);
XS(XS__AssignRaidToInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::AssignRaidToInstance(uint16 instance_id)");
uint16 instance_id = (int) SvUV(ST(0));
quest_manager.AssignRaidToInstance(instance_id);
XSRETURN_EMPTY;
}
XS(XS__RemoveFromInstance);
XS(XS__RemoveFromInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::RemoveFromInstance(uint16 instance_id)");
uint16 instance_id = (int) SvUV(ST(0));
quest_manager.RemoveFromInstance(instance_id);
XSRETURN_EMPTY;
}
XS(XS__RemoveAllFromInstance);
XS(XS__RemoveAllFromInstance) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::RemoveAllFromInstance(uint16 instance_id)");
uint16 instance_id = (int) SvUV(ST(0));
quest_manager.RemoveAllFromInstance(instance_id);
XSRETURN_EMPTY;
}
XS(XS__MovePCInstance);
XS(XS__MovePCInstance) {
dXSARGS;
if (items != 5 && items != 6)
Perl_croak(aTHX_
"Usage: quest::MovePCInstance(int zone_id, int instance_id, float x, float y, float z, [float heading])");
int zone_id = (int) SvIV(ST(0));
int instanceid = (int) SvIV(ST(1));
float x = (float) SvNV(ST(2));
float y = (float) SvNV(ST(3));
float z = (float) SvNV(ST(4));
if (items == 4) {
quest_manager.MovePCInstance(zone_id, instanceid, glm::vec4(x, y, z, 0.0f));
} else {
float heading = (float) SvNV(ST(5));
quest_manager.MovePCInstance(zone_id, instanceid, glm::vec4(x, y, z, heading));
}
XSRETURN_EMPTY;
}
XS(XS__FlagInstanceByGroupLeader);
XS(XS__FlagInstanceByGroupLeader) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::FlagInstanceByGroupLeader(uint32 zone, uint16 version)");
uint32 zone = (int) SvUV(ST(0));
uint16 version = (int) SvUV(ST(1));
quest_manager.FlagInstanceByGroupLeader(zone, version);
XSRETURN_EMPTY;
}
XS(XS__FlagInstanceByRaidLeader);
XS(XS__FlagInstanceByRaidLeader) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::FlagInstanceByRaidLeader(uint32 zone, uint16 version)");
uint32 zone = (int) SvUV(ST(0));
uint16 version = (int) SvUV(ST(1));
quest_manager.FlagInstanceByRaidLeader(zone, version);
XSRETURN_EMPTY;
}
XS(XS__saylink);
XS(XS__saylink) {
dXSARGS;
if (items < 1 || items > 3)
Perl_croak(aTHX_ "Usage: quest::saylink(string message, [bool silent = false], [link_name = message])");
dXSTARG;
Const_char *RETVAL;
char message[250];
char link_name[250];
bool silent = false;
strcpy(message, (char *) SvPV_nolen(ST(0)));
if (items >= 2) {
silent = ((int) SvIV(ST(1))) == 0 ? false : true;
}
if (items == 3)
strcpy(link_name, (char *) SvPV_nolen(ST(2)));
else
strcpy(link_name, message);
RETVAL = quest_manager.saylink(message, silent, link_name);
sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__getguildnamebyid);
XS(XS__getguildnamebyid) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::getguildnamebyid(uint32 guild_id)");
dXSTARG;
Const_char *RETVAL;
uint32 guild_id = (int) SvUV(ST(0));
RETVAL = quest_manager.getguildnamebyid(guild_id);
sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__SetRunning);
XS(XS__SetRunning) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::SetRunning(bool is_running)");
bool val = ((int) SvIV(ST(0))) == 0 ? false : true;
quest_manager.SetRunning(val);
XSRETURN_EMPTY;
}
XS(XS__IsRunning);
XS(XS__IsRunning) {
dXSARGS;
if (items >= 1)
Perl_croak(aTHX_ "Usage: quest::IsRunning()");
bool RETVAL;
dXSTARG;
RETVAL = quest_manager.IsRunning();
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__IsEffectInSpell);
XS(XS__IsEffectInSpell) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::IsEffectInSpell(uint32 spell_id, uint32 effect_id)");
uint32 spell_id = (uint32) SvUV(ST(0));
uint32 effect_id = (uint32) SvUV(ST(1));
bool RETVAL;
dXSTARG;
RETVAL = IsEffectInSpell(spell_id, effect_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__IsBeneficialSpell);
XS(XS__IsBeneficialSpell) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::IsBeneficialSpell(uint32 spell_id)");
uint32 spell_id = (uint32) SvUV(ST(0));
bool RETVAL;
dXSTARG;
RETVAL = BeneficialSpell(spell_id);
XSprePUSH;
PUSHu((IV) RETVAL);
XSRETURN(1);
}
XS(XS__GetSpellResistType);
XS(XS__GetSpellResistType) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetSpellResistType(uint32 spell_id)");
uint32 spell_id = (uint32) SvUV(ST(0));
int32 spell_val = 0;
dXSTARG;
spell_val = GetSpellResistType(spell_id);
XSRETURN_UV(spell_val);
}
XS(XS__GetSpellTargetType);
XS(XS__GetSpellTargetType) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetSpellTargetType(uint32 spell_id)");
uint32 spell_id = (uint32) SvUV(ST(0));
int32 spell_val = 0;
dXSTARG;
spell_val = GetSpellTargetType(spell_id);
XSRETURN_UV(spell_val);
}
XS(XS__FlyMode);
XS(XS__FlyMode) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::FlyMode(uint8 mode [0-3])");
uint8 flymode = (int) SvUV(ST(0));
quest_manager.FlyMode(flymode);
XSRETURN_EMPTY;
}
XS(XS_FactionValue);
XS(XS_FactionValue) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::factionvalue()");
uint8 fac = quest_manager.FactionValue();
XSRETURN_UV(fac);
}
XS(XS__enabletitle);
XS(XS__enabletitle) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::enabletitle(int title_set_id)");
int titleset = (int) SvIV(ST(0));
quest_manager.enabletitle(titleset);
XSRETURN_EMPTY;
}
XS(XS__checktitle);
XS(XS__checktitle) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::checktitle(int title_set_id)");
bool RETVAL;
int titleset = (int) SvIV(ST(0));
RETVAL = quest_manager.checktitle(titleset);
ST(0) = boolSV(RETVAL);
sv_2mortal(ST(0));
XSRETURN(1);
}
XS(XS__removetitle);
XS(XS__removetitle) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::removetitle(int title_set_id)");
int titleset = (int) SvIV(ST(0));
quest_manager.removetitle(titleset);
XSRETURN_EMPTY;
}
XS(XS__wearchange);
XS(XS__wearchange) {
dXSARGS;
if (items < 2)
Perl_croak(aTHX_
"Usage: quest::wearchange(uint8 slot, uint16 texture_id, [uint32 hero_forge_model_id = 0], [uint32 elite_material_id = 0])");
uint8 slot = (int) SvUV(ST(0));
uint16 texture_id = (int) SvUV(ST(1));
uint32 hero_forge_model_id = 0;
uint32 elite_material_id = 0;
if (items > 2)
hero_forge_model_id = (int) SvUV(ST(2));
if (items > 3)
elite_material_id = (int) SvUV(ST(3));
quest_manager.wearchange(slot, texture_id, hero_forge_model_id, elite_material_id);
XSRETURN_EMPTY;
}
XS(XS__voicetell);
XS(XS__voicetell) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::voicetell(string client_name, int macro_id, int ace_id, int gender_id)");
char *client_name = (char *) SvPV_nolen(ST(0));
int macro_id = (int) SvIV(ST(1));
int race_id = (int) SvIV(ST(2));
int gender_id = (int) SvIV(ST(3));
quest_manager.voicetell(client_name, macro_id, race_id, gender_id);
XSRETURN_EMPTY;
}
XS(XS__LearnRecipe);
XS(XS__LearnRecipe) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::LearnRecipe(int recipe_id)");
uint32 recipe_id = (uint32) SvIV(ST(0));
quest_manager.LearnRecipe(recipe_id);
XSRETURN_EMPTY;
}
XS(XS__SendMail);
XS(XS__SendMail) {
dXSARGS;
if (items != 4)
Perl_croak(aTHX_ "Usage: quest::SendMail(stirng to, string from, string subject, string message)");
char *to = (char *) SvPV_nolen(ST(0));
char *from = (char *) SvPV_nolen(ST(1));
char *subject = (char *) SvPV_nolen(ST(2));
char *message = (char *) SvPV_nolen(ST(3));
quest_manager.SendMail(to, from, subject, message);
XSRETURN_EMPTY;
}
XS(XS__GetZoneID);
XS(XS__GetZoneID) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetZoneID(string zone)");
char *zone = (char *) SvPV_nolen(ST(0));
int32 id = quest_manager.GetZoneID(zone);
XSRETURN_IV(id);
}
XS(XS__GetZoneLongName);
XS(XS__GetZoneLongName) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::GetZoneLongName(string zone)");
dXSTARG;
char *zone = (char *) SvPV_nolen(ST(0));
Const_char *RETVAL = quest_manager.GetZoneLongName(zone);
sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__GetTimeSeconds);
XS(XS__GetTimeSeconds) {
dXSARGS;
if (items != 0)
Perl_croak(aTHX_ "Usage: quest::GetTimeSeconds()");
uint32 seconds = 0;
dXSTARG;
seconds = Timer::GetTimeSeconds();
XSRETURN_UV(seconds);
}
XS(XS__crosszonesignalclientbycharid);
XS(XS__crosszonesignalclientbycharid) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::crosszonesignalclientbycharid(int character_id, int value)");
if (items == 2) {
int char_id = (int) SvIV(ST(0));
uint32 int_value = (uint32) SvIV(ST(1));
quest_manager.CrossZoneSignalPlayerByCharID(char_id, int_value);
} else {
Perl_croak(aTHX_ "Usage: quest::crosszonesignalclientbycharid(int character_id, int value)");
}
XSRETURN_EMPTY;
}
XS(XS__crosszonesignalclientbyname);
XS(XS__crosszonesignalclientbyname) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::crosszonesignalclientbycharid(string name, int value)");
if (items == 2) {
char *name = (char *) SvPV_nolen(ST(0));
uint32 int_value = (uint32) SvIV(ST(1));
quest_manager.CrossZoneSignalPlayerByName(name, int_value);
} else {
Perl_croak(aTHX_ "Usage: quest::crosszonesignalclientbycharid(string name, int value)");
}
XSRETURN_EMPTY;
}
XS(XS__crosszonemessageplayerbyname);
XS(XS__crosszonemessageplayerbyname) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_ "Usage: quest::crosszonemessageplayerbyname(int channel_id, string name, string message)");
if (items == 3) {
uint32 channel_id = (uint32) SvIV(ST(0));
char *name = (char *) SvPV_nolen(ST(1));
char *message = (char *) SvPV_nolen(ST(2));
quest_manager.CrossZoneMessagePlayerByName(channel_id, name, message);
}
XSRETURN_EMPTY;
}
XS(XS__enablerecipe);
XS(XS__enablerecipe) {
dXSARGS;
bool success = false;
if (items != 1) {
Perl_croak(aTHX_ "Usage: quest::enablerecipe(int recipe_id)");
} else {
uint32 recipe_id = (uint32) SvIV(ST(0));
success = quest_manager.EnableRecipe(recipe_id);
}
if (!success) {
XSRETURN_NO;
}
XSRETURN_YES;
}
XS(XS__disablerecipe);
XS(XS__disablerecipe) {
dXSARGS;
bool success = false;
if (items != 1) {
Perl_croak(aTHX_ "Usage: quest::disablerecipe(int recipe_id)");
} else {
uint32 recipe_id = (uint32) SvIV(ST(0));
success = quest_manager.DisableRecipe(recipe_id);
}
if (!success) {
XSRETURN_NO;
}
XSRETURN_YES;
}
XS(XS__clear_npctype_cache);
XS(XS__clear_npctype_cache) {
dXSARGS;
if (items != 1) {
Perl_croak(aTHX_ "Usage: quest::clear_npctype_cache(int npc_type_id)");
} else {
int32 npc_type_id = (int32) SvIV(ST(0));
quest_manager.ClearNPCTypeCache(npc_type_id);
}
XSRETURN_EMPTY;
}
XS(XS__reloadzonestaticdata);
XS(XS__reloadzonestaticdata) {
dXSARGS;
quest_manager.ReloadZoneStaticData();
XSRETURN_EMPTY;
}
XS(XS__qs_send_query);
XS(XS__qs_send_query) {
dXSARGS;
if (items != 1) {
Perl_croak(aTHX_ "Usage: quest::qs_send_query(string query)");
} else {
// char *Query = (char *)SvPV_nolen(ST(0));
std::string Query = (std::string) SvPV_nolen(ST(0));
QServ->SendQuery(Query);
}
XSRETURN_EMPTY;
}
XS(XS__qs_player_event);
XS(XS__qs_player_event) {
dXSARGS;
if (items != 2) {
Perl_croak(aTHX_ "Usage: quest::qs_player_event(int character_id, string message)");
} else {
int char_id = (int) SvIV(ST(0));
std::string message = (std::string) SvPV_nolen(ST(1));
QServ->PlayerLogEvent(Player_Log_Quest, char_id, message);
}
XSRETURN_EMPTY;
}
XS(XS__crosszonesetentityvariablebynpctypeid);
XS(XS__crosszonesetentityvariablebynpctypeid) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_
"Usage: quest::crosszonesetentityvariablebynpctypeid(int npc_type_id, string key, string value)");
if (items == 3) {
uint32 npc_type_id = (uint32) SvIV(ST(0));
const char *key = (const char *) SvPV_nolen(ST(1));
const char *str_value = (const char *) SvPV_nolen(ST(2));
quest_manager.CrossZoneSetEntityVariableByNPCTypeID(npc_type_id, key, str_value);
}
XSRETURN_EMPTY;
}
XS(XS__crosszonesetentityvariablebyclientname);
XS(XS__crosszonesetentityvariablebyclientname) {
dXSARGS;
if (items != 3)
Perl_croak(aTHX_
"Usage: quest::crosszonesetentityvariablebyclientname(string client_name, string key, string value)");
if (items == 3) {
const char *client_name = (const char *) SvPV_nolen(ST(0));
const char *key = (const char *) SvPV_nolen(ST(1));
const char *str_value = (const char *) SvPV_nolen(ST(2));
quest_manager.CrossZoneSetEntityVariableByClientName(client_name, key, str_value);
}
XSRETURN_EMPTY;
}
XS(XS__crosszonesignalnpcbynpctypeid);
XS(XS__crosszonesignalnpcbynpctypeid) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::crosszonesignalnpcbynpctypeid(uint32 npc_type_id, uint32 value)");
if (items == 2) {
uint32 npc_type_id = (uint32) SvIV(ST(0));
uint32 int_value = (uint32) SvIV(ST(1));
quest_manager.CrossZoneSignalNPCByNPCTypeID(npc_type_id, int_value);
}
XSRETURN_EMPTY;
}
XS(XS__worldwidemarquee);
XS(XS__worldwidemarquee) {
dXSARGS;
if (items != 6)
Perl_croak(aTHX_
"Usage: quest::worldwidemarquee(uint32 color_id, uint32 priority, uint32 fade_in, uint32 fade_out, uint32 duration, string message)");
if (items == 6) {
uint32 color_id = (uint32) SvIV(ST(0));
uint32 priority = (uint32) SvIV(ST(1));
uint32 fade_in = (uint32) SvIV(ST(2));
uint32 fade_out = (uint32) SvIV(ST(3));
uint32 duration = (uint32) SvIV(ST(4));
char *message = (char *) SvPV_nolen(ST(5));
quest_manager.WorldWideMarquee(color_id, priority, fade_in, fade_out, duration, message);
}
XSRETURN_EMPTY;
}
XS(XS__debug);
XS(XS__debug) {
dXSARGS;
if (items != 1 && items != 2) {
Perl_croak(aTHX_ "Usage: quest::debug(string message, [uint8 debug_level = 1 [1-3]])");
} else {
std::string log_message = (std::string) SvPV_nolen(ST(0));
uint8 debug_level = 1;
if (items == 2)
debug_level = (uint8) SvIV(ST(1));
if (debug_level > Logs::Detail)
return;
if (debug_level == Logs::General) {
Log(Logs::General, Logs::QuestDebug, log_message);
} else if (debug_level == Logs::Moderate) {
Log(Logs::Moderate, Logs::QuestDebug, log_message);
} else if (debug_level == Logs::Detail) {
Log(Logs::Detail, Logs::QuestDebug, log_message);
}
}
XSRETURN_EMPTY;
}
XS(XS__UpdateZoneHeader);
XS(XS__UpdateZoneHeader) {
dXSARGS;
if (items != 2)
Perl_croak(aTHX_ "Usage: quest::UpdateZoneHeader(string key, string value)");
std::string key = (std::string) SvPV_nolen(ST(0));
std::string str_value = (std::string) SvPV_nolen(ST(1));
quest_manager.UpdateZoneHeader(key, str_value);
XSRETURN_EMPTY;
}
XS(XS__get_data);
XS(XS__get_data) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::get_data(string bucket_key)");
dXSTARG;
std::string key = (std::string) SvPV_nolen(ST(0));
sv_setpv(TARG, DataBucket::GetData(key).c_str());
XSprePUSH;
PUSHTARG;
XSRETURN(1);
}
XS(XS__set_data);
XS(XS__set_data) {
dXSARGS;
if (items != 2 && items != 3) {
Perl_croak(aTHX_ "Usage: quest::set_data(string key, string value, [string expires_at = 0])");
} else {
std::string key = (std::string) SvPV_nolen(ST(0));
std::string value = (std::string) SvPV_nolen(ST(1));
std::string expires_at;
if (items == 3)
expires_at = (std::string) SvPV_nolen(ST(2));
DataBucket::SetData(key, value, expires_at);
}
XSRETURN_EMPTY;
}
XS(XS__delete_data);
XS(XS__delete_data) {
dXSARGS;
if (items != 1)
Perl_croak(aTHX_ "Usage: quest::delete_data(string bucket_key)");
dXSTARG;
std::string key = (std::string) SvPV_nolen(ST(0));
XSprePUSH;
PUSHu((IV) DataBucket::DeleteData(key));
XSRETURN(1);
}
/*
This is the callback perl will look for to setup the
quest package's XSUBs
*/
EXTERN_C XS(boot_quest); // prototype to pass -Wmissing-prototypes
EXTERN_C XS(boot_quest) {
dXSARGS;
char file[256];
strncpy(file, __FILE__, 256);
file[255] = '\0';
if (items != 1)
Log(Logs::General, Logs::Error, "boot_quest does not take any arguments.");
char buf[128]; //shouldent have any function names longer than this.
//add the strcpy stuff to get rid of const warnings....
XS_VERSION_BOOTCHECK;
#ifdef BOTS
newXS(strcpy(buf, "botquest"), XS__botquest, file);
newXS(strcpy(buf, "spawnbotcount"), XS__spawnbotcount, file);
newXS(strcpy(buf, "createbotcount"), XS__createbotcount, file);
newXS(strcpy(buf, "createBot"), XS__createBot, file);
#endif //BOTS
newXS(strcpy(buf, "AssignGroupToInstance"), XS__AssignGroupToInstance, file);
newXS(strcpy(buf, "AssignRaidToInstance"), XS__AssignRaidToInstance, file);
newXS(strcpy(buf, "AssignToInstance"), XS__AssignToInstance, file);
newXS(strcpy(buf, "ChooseRandom"), XS__ChooseRandom, file);
newXS(strcpy(buf, "CreateInstance"), XS__CreateInstance, file);
newXS(strcpy(buf, "DestroyInstance"), XS__DestroyInstance, file);
newXS(strcpy(buf, "UpdateInstanceTimer"), XS__UpdateInstanceTimer, file);
newXS(strcpy(buf, "GetInstanceTimer"), XS__GetInstanceTimer, file);
newXS(strcpy(buf, "GetInstanceTimerByID"), XS__GetInstanceTimerByID, file);
newXS(strcpy(buf, "FlagInstanceByGroupLeader"), XS__FlagInstanceByGroupLeader, file);
newXS(strcpy(buf, "FlagInstanceByRaidLeader"), XS__FlagInstanceByRaidLeader, file);
newXS(strcpy(buf, "FlyMode"), XS__FlyMode, file);
newXS(strcpy(buf, "GetCharactersInInstance"), XS__GetCharactersInInstance, file);
newXS(strcpy(buf, "GetInstanceID"), XS__GetInstanceID, file);
newXS(strcpy(buf, "GetSpellResistType"), XS__GetSpellResistType, file);
newXS(strcpy(buf, "GetSpellTargetType"), XS__GetSpellTargetType, file);
newXS(strcpy(buf, "GetTimeSeconds"), XS__GetTimeSeconds, file);
newXS(strcpy(buf, "GetZoneID"), XS__GetZoneID, file);
newXS(strcpy(buf, "GetZoneLongName"), XS__GetZoneLongName, file);
newXS(strcpy(buf, "get_data"), XS__get_data, file);
newXS(strcpy(buf, "set_data"), XS__set_data, file);
newXS(strcpy(buf, "delete_data"), XS__delete_data, file);
newXS(strcpy(buf, "IsBeneficialSpell"), XS__IsBeneficialSpell, file);
newXS(strcpy(buf, "IsEffectInSpell"), XS__IsEffectInSpell, file);
newXS(strcpy(buf, "IsRunning"), XS__IsRunning, file);
newXS(strcpy(buf, "LearnRecipe"), XS__LearnRecipe, file);
newXS(strcpy(buf, "MerchantCountItem"), XS__MerchantCountItem, file);
newXS(strcpy(buf, "MerchantSetItem"), XS__MerchantSetItem, file);
newXS(strcpy(buf, "MovePCInstance"), XS__MovePCInstance, file);
newXS(strcpy(buf, "RemoveAllFromInstance"), XS__RemoveAllFromInstance, file);
newXS(strcpy(buf, "RemoveFromInstance"), XS__RemoveFromInstance, file);
newXS(strcpy(buf, "SendMail"), XS__SendMail, file);
newXS(strcpy(buf, "SetRunning"), XS__SetRunning, file);
newXS(strcpy(buf, "activespeakactivity"), XS__activespeakactivity, file);
newXS(strcpy(buf, "activespeaktask"), XS__activespeaktask, file);
newXS(strcpy(buf, "activetasksinset"), XS__activetasksinset, file);
newXS(strcpy(buf, "addldonloss"), XS__addldonpoints, file);
newXS(strcpy(buf, "addldonpoints"), XS__addldonpoints, file);
newXS(strcpy(buf, "addldonwin"), XS__addldonpoints, file);
newXS(strcpy(buf, "addloot"), XS__addloot, file);
newXS(strcpy(buf, "addskill"), XS__addskill, file);
newXS(strcpy(buf, "assigntask"), XS__assigntask, file);
newXS(strcpy(buf, "attack"), XS__attack, file);
newXS(strcpy(buf, "attacknpc"), XS__attacknpc, file);
newXS(strcpy(buf, "attacknpctype"), XS__attacknpctype, file);
newXS(strcpy(buf, "buryplayercorpse"), XS__buryplayercorpse, file);
newXS(strcpy(buf, "castspell"), XS__castspell, file);
newXS(strcpy(buf, "changedeity"), XS__changedeity, file);
newXS(strcpy(buf, "checktitle"), XS__checktitle, file);
newXS(strcpy(buf, "clear_npctype_cache"), XS__clear_npctype_cache, file);
newXS(strcpy(buf, "clear_proximity"), XS__clear_proximity, file);
newXS(strcpy(buf, "clear_zone_flag"), XS__clear_zone_flag, file);
newXS(strcpy(buf, "clearspawntimers"), XS__clearspawntimers, file);
newXS(strcpy(buf, "collectitems"), XS__collectitems, file);
newXS(strcpy(buf, "completedtasksinset"), XS__completedtasksinset, file);
newXS(strcpy(buf, "createdoor"), XS__CreateDoor, file);
newXS(strcpy(buf, "creategroundobject"), XS__CreateGroundObject, file);
newXS(strcpy(buf, "creategroundobjectfrommodel"), XS__CreateGroundObjectFromModel, file);
newXS(strcpy(buf, "createguild"), XS__createguild, file);
newXS(strcpy(buf, "crosszonemessageplayerbyname"), XS__crosszonemessageplayerbyname, file);
newXS(strcpy(buf, "crosszonesetentityvariablebynpctypeid"), XS__crosszonesetentityvariablebynpctypeid, file);
newXS(strcpy(buf, "crosszonesetentityvariablebyclientname"), XS__crosszonesetentityvariablebyclientname, file);
newXS(strcpy(buf, "crosszonesignalclientbycharid"), XS__crosszonesignalclientbycharid, file);
newXS(strcpy(buf, "crosszonesignalclientbyname"), XS__crosszonesignalclientbyname, file);
newXS(strcpy(buf, "crosszonesignalnpcbynpctypeid"), XS__crosszonesignalnpcbynpctypeid, file);
newXS(strcpy(buf, "worldwidemarquee"), XS__worldwidemarquee, file);
newXS(strcpy(buf, "debug"), XS__debug, file);
newXS(strcpy(buf, "delglobal"), XS__delglobal, file);
newXS(strcpy(buf, "depop"), XS__depop, file);
newXS(strcpy(buf, "depop_withtimer"), XS__depop_withtimer, file);
newXS(strcpy(buf, "depopall"), XS__depopall, file);
newXS(strcpy(buf, "depopzone"), XS__depopzone, file);
newXS(strcpy(buf, "ding"), XS__ding, file);
newXS(strcpy(buf, "disable_proximity_say"), XS__disable_proximity_say, file);
newXS(strcpy(buf, "disable_spawn2"), XS__disable_spawn2, file);
newXS(strcpy(buf, "disablerecipe"), XS__disablerecipe, file);
newXS(strcpy(buf, "disabletask"), XS__disabletask, file);
newXS(strcpy(buf, "doanim"), XS__doanim, file);
newXS(strcpy(buf, "echo"), XS__echo, file);
newXS(strcpy(buf, "emote"), XS__emote, file);
newXS(strcpy(buf, "enable_proximity_say"), XS__enable_proximity_say, file);
newXS(strcpy(buf, "enable_spawn2"), XS__enable_spawn2, file);
newXS(strcpy(buf, "enabledtaskcount"), XS__enabledtaskcount, file);
newXS(strcpy(buf, "enablerecipe"), XS__enablerecipe, file);
newXS(strcpy(buf, "enabletask"), XS__enabletask, file);
newXS(strcpy(buf, "enabletitle"), XS__enabletitle, file);
newXS(strcpy(buf, "exp"), XS__exp, file);
newXS(strcpy(buf, "faction"), XS__faction, file);
newXS(strcpy(buf, "factionvalue"), XS_FactionValue, file);
newXS(strcpy(buf, "failtask"), XS__failtask, file);
newXS(strcpy(buf, "firsttaskinset"), XS__firsttaskinset, file);
newXS(strcpy(buf, "follow"), XS__follow, file);
newXS(strcpy(buf, "forcedoorclose"), XS__forcedoorclose, file);
newXS(strcpy(buf, "forcedooropen"), XS__forcedooropen, file);
newXS(strcpy(buf, "getItemName"), XS_qc_getItemName, file);
newXS(strcpy(buf, "get_spawn_condition"), XS__get_spawn_condition, file);
newXS(strcpy(buf, "getguildnamebyid"), XS__getguildnamebyid, file);
newXS(strcpy(buf, "getlevel"), XS__getlevel, file);
newXS(strcpy(buf, "getplayerburiedcorpsecount"), XS__getplayerburiedcorpsecount, file);
newXS(strcpy(buf, "gettaskactivitydonecount"), XS__gettaskactivitydonecount, file);
newXS(strcpy(buf, "givecash"), XS__givecash, file);
newXS(strcpy(buf, "gmmove"), XS__gmmove, file);
newXS(strcpy(buf, "gmsay"), XS__gmsay, file);
newXS(strcpy(buf, "has_zone_flag"), XS__has_zone_flag, file);
newXS(strcpy(buf, "incstat"), XS__incstat, file);
newXS(strcpy(buf, "inventory"), XS__inventory, file);
newXS(strcpy(buf, "isdisctome"), XS__isdisctome, file);
newXS(strcpy(buf, "isdooropen"), XS__isdooropen, file);
newXS(strcpy(buf, "istaskactive"), XS__istaskactive, file);
newXS(strcpy(buf, "istaskactivityactive"), XS__istaskactivityactive, file);
newXS(strcpy(buf, "istaskappropriate"), XS__istaskappropriate, file);
newXS(strcpy(buf, "istaskcompleted"), XS__istaskcompleted, file);
newXS(strcpy(buf, "istaskenabled"), XS__istaskenabled, file);
newXS(strcpy(buf, "itemlink"), XS__itemlink, file);
newXS(strcpy(buf, "lasttaskinset"), XS__lasttaskinset, file);
newXS(strcpy(buf, "level"), XS__level, file);
newXS(strcpy(buf, "me"), XS__me, file);
newXS(strcpy(buf, "modifynpcstat"), XS__ModifyNPCStat, file);
newXS(strcpy(buf, "movegrp"), XS__movegrp, file);
newXS(strcpy(buf, "movepc"), XS__movepc, file);
newXS(strcpy(buf, "moveto"), XS__moveto, file);
newXS(strcpy(buf, "nexttaskinset"), XS__nexttaskinset, file);
newXS(strcpy(buf, "npcfeature"), XS__npcfeature, file);
newXS(strcpy(buf, "npcgender"), XS__npcgender, file);
newXS(strcpy(buf, "npcrace"), XS__npcrace, file);
newXS(strcpy(buf, "npcsize"), XS__npcsize, file);
newXS(strcpy(buf, "npctexture"), XS__npctexture, file);
newXS(strcpy(buf, "pause"), XS__pause, file);
newXS(strcpy(buf, "permaclass"), XS__permaclass, file);
newXS(strcpy(buf, "permagender"), XS__permagender, file);
newXS(strcpy(buf, "permarace"), XS__permarace, file);
newXS(strcpy(buf, "playerfeature"), XS__playerfeature, file);
newXS(strcpy(buf, "playergender"), XS__playergender, file);
newXS(strcpy(buf, "playerrace"), XS__playerrace, file);
newXS(strcpy(buf, "playersize"), XS__playersize, file);
newXS(strcpy(buf, "playertexture"), XS__playertexture, file);
newXS(strcpy(buf, "popup"), XS__popup, file);
newXS(strcpy(buf, "pvp"), XS__pvp, file);
newXS(strcpy(buf, "qs_player_event"), XS__qs_player_event, file);
newXS(strcpy(buf, "qs_send_query"), XS__qs_send_query, file);
newXS(strcpy(buf, "rain"), XS__rain, file);
newXS(strcpy(buf, "rebind"), XS__rebind, file);
newXS(strcpy(buf, "reloadzonestaticdata"), XS__reloadzonestaticdata, file);
newXS(strcpy(buf, "removetitle"), XS__removetitle, file);
newXS(strcpy(buf, "repopzone"), XS__repopzone, file);
newXS(strcpy(buf, "resettaskactivity"), XS__resettaskactivity, file);
newXS(strcpy(buf, "respawn"), XS__respawn, file);
newXS(strcpy(buf, "resume"), XS__resume, file);
newXS(strcpy(buf, "safemove"), XS__safemove, file);
newXS(strcpy(buf, "save"), XS__save, file);
newXS(strcpy(buf, "say"), XS__say, file);
newXS(strcpy(buf, "saylink"), XS__saylink, file);
newXS(strcpy(buf, "scribespells"), XS__scribespells, file);
newXS(strcpy(buf, "selfcast"), XS__selfcast, file);
newXS(strcpy(buf, "set_proximity"), XS__set_proximity, file);
newXS(strcpy(buf, "set_zone_flag"), XS__set_zone_flag, file);
newXS(strcpy(buf, "setallskill"), XS__setallskill, file);
newXS(strcpy(buf, "setanim"), XS__setanim, file);
newXS(strcpy(buf, "setglobal"), XS__setglobal, file);
newXS(strcpy(buf, "setguild"), XS__setguild, file);
newXS(strcpy(buf, "sethp"), XS__sethp, file);
newXS(strcpy(buf, "setlanguage"), XS__setlanguage, file);
newXS(strcpy(buf, "setnexthpevent"), XS__setnexthpevent, file);
newXS(strcpy(buf, "setnextinchpevent"), XS__setnextinchpevent, file);
newXS(strcpy(buf, "setskill"), XS__setskill, file);
newXS(strcpy(buf, "setsky"), XS__setsky, file);
newXS(strcpy(buf, "setstat"), XS__setstat, file);
newXS(strcpy(buf, "settarget"), XS__settarget, file);
newXS(strcpy(buf, "settime"), XS__settime, file);
newXS(strcpy(buf, "settimer"), XS__settimer, file);
newXS(strcpy(buf, "settimerMS"), XS__settimerMS, file);
newXS(strcpy(buf, "sfollow"), XS__sfollow, file);
newXS(strcpy(buf, "shout"), XS__shout, file);
newXS(strcpy(buf, "shout2"), XS__shout2, file);
newXS(strcpy(buf, "showgrid"), XS__showgrid, file);
newXS(strcpy(buf, "signal"), XS__signal, file);
newXS(strcpy(buf, "signalwith"), XS__signalwith, file);
newXS(strcpy(buf, "snow"), XS__snow, file);
newXS(strcpy(buf, "spawn"), XS__spawn, file);
newXS(strcpy(buf, "spawn2"), XS__spawn2, file);
newXS(strcpy(buf, "spawn_condition"), XS__spawn_condition, file);
newXS(strcpy(buf, "spawn_from_spawn2"), XS__spawn_from_spawn2, file);
newXS(strcpy(buf, "start"), XS__start, file);
newXS(strcpy(buf, "stop"), XS__stop, file);
newXS(strcpy(buf, "stopalltimers"), XS__stopalltimers, file);
newXS(strcpy(buf, "stoptimer"), XS__stoptimer, file);
newXS(strcpy(buf, "summonallplayercorpses"), XS__summonallplayercorpses, file);
newXS(strcpy(buf, "summonburiedplayercorpse"), XS__summonburiedplayercorpse, file);
newXS(strcpy(buf, "summonitem"), XS__summonitem, file);
newXS(strcpy(buf, "surname"), XS__surname, file);
newXS(strcpy(buf, "targlobal"), XS__targlobal, file);
newXS(strcpy(buf, "taskexploredarea"), XS__taskexploredarea, file);
newXS(strcpy(buf, "taskselector"), XS__taskselector, file);
newXS(strcpy(buf, "task_setselector"), XS__task_setselector, file);
newXS(strcpy(buf, "tasktimeleft"), XS__tasktimeleft, file);
newXS(strcpy(buf, "toggle_spawn_event"), XS__toggle_spawn_event, file);
newXS(strcpy(buf, "toggledoorstate"), XS__toggledoorstate, file);
newXS(strcpy(buf, "traindisc"), XS__traindisc, file);
newXS(strcpy(buf, "traindiscs"), XS__traindiscs, file);
newXS(strcpy(buf, "unique_spawn"), XS__unique_spawn, file);
newXS(strcpy(buf, "unscribespells"), XS__unscribespells, file);
newXS(strcpy(buf, "untraindiscs"), XS__untraindiscs, file);
newXS(strcpy(buf, "updatespawntimer"), XS__UpdateSpawnTimer, file);
newXS(strcpy(buf, "updatetaskactivity"), XS__updatetaskactivity, file);
newXS(strcpy(buf, "UpdateZoneHeader"), XS__UpdateZoneHeader, file);
newXS(strcpy(buf, "varlink"), XS__varlink, file);
newXS(strcpy(buf, "voicetell"), XS__voicetell, file);
newXS(strcpy(buf, "we"), XS__we, file);
newXS(strcpy(buf, "wearchange"), XS__wearchange, file);
newXS(strcpy(buf, "write"), XS__write, file);
newXS(strcpy(buf, "ze"), XS__ze, file);
newXS(strcpy(buf, "zone"), XS__zone, file);
XSRETURN_YES;
}
#endif
#endif
Reference in New Issue View Git Blame Copy Permalink