pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-12 22:01:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Perl NPC Annotations (#1245)

Browse Source 
Added category tag annotations for NPC methods.
This commit is contained in:
TurmoilToad 2021-02-23 12:59:57 -05:00 committed by GitHub
parent 0887eb0976
commit 041879c4e6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 95 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

190
zone/perl_npc.cpp
View File

@ -61,7 +61,7 @@ XS(XS_NPC_SignalNPC); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SignalNPC) { XS(XS_NPC_SignalNPC) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SignalNPC(THIS, int signal_id)"); Perl_croak(aTHX_ "Usage: NPC::SignalNPC(THIS, int signal_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int _signal_id = (int) SvIV(ST(1)); int _signal_id = (int) SvIV(ST(1));
@ -75,7 +75,7 @@ XS(XS_NPC_CheckNPCFactionAlly); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_CheckNPCFactionAlly) { XS(XS_NPC_CheckNPCFactionAlly) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::CheckNPCFactionAlly(THIS, int32 faction_id)"); Perl_croak(aTHX_ "Usage: NPC::CheckNPCFactionAlly(THIS, int32 faction_id)"); // @categories Faction
{ {
NPC *THIS; NPC *THIS;
FACTION_VALUE RETVAL; FACTION_VALUE RETVAL;
@ -93,7 +93,7 @@ XS(XS_NPC_AddItem); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AddItem) { XS(XS_NPC_AddItem) {
dXSARGS; dXSARGS;
if (items < 2 || items > 10) if (items < 2 || items > 10)
Perl_croak(aTHX_ "Usage: NPC::AddItem(THIS, uint32 item_id, [uint16 charges = 0], [bool equip_item = true], [uint32 aug1 = 0], [uint32 aug2 = 0], [uint32 aug3 = 0], [uint32 aug4 = 0], [uint32 aug5 = 0], [uint32 aug6 = 0])"); Perl_croak(aTHX_ "Usage: NPC::AddItem(THIS, uint32 item_id, [uint16 charges = 0], [bool equip_item = true], [uint32 aug1 = 0], [uint32 aug2 = 0], [uint32 aug3 = 0], [uint32 aug4 = 0], [uint32 aug5 = 0], [uint32 aug6 = 0])"); // @categories Inventory and Items
{ {
NPC *THIS; NPC *THIS;
uint32 itemid = (uint32) SvUV(ST(1)); uint32 itemid = (uint32) SvUV(ST(1));
@ -132,7 +132,7 @@ XS(XS_NPC_AddLootTable); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AddLootTable) { XS(XS_NPC_AddLootTable) {
dXSARGS; dXSARGS;
if (items < 1) if (items < 1)
Perl_croak(aTHX_ "Usage: NPC::AddLootTable(THIS, [uint32 loottable_id])"); Perl_croak(aTHX_ "Usage: NPC::AddLootTable(THIS, [uint32 loottable_id])"); // @categories Inventory and Items
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -152,7 +152,7 @@ XS(XS_NPC_RemoveItem); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RemoveItem) { XS(XS_NPC_RemoveItem) {
dXSARGS; dXSARGS;
if (items < 2 || items > 4) if (items < 2 || items > 4)
Perl_croak(aTHX_ "Usage: NPC::RemoveItem(THIS, uint32 item_id, [uint16 quantity = 0], [uint16 slot_id = 0])"); Perl_croak(aTHX_ "Usage: NPC::RemoveItem(THIS, uint32 item_id, [uint16 quantity = 0], [uint16 slot_id = 0])"); // @categories Inventory and Items
{ {
NPC *THIS; NPC *THIS;
uint32 item_id = (uint32) SvUV(ST(1)); uint32 item_id = (uint32) SvUV(ST(1));
@ -180,7 +180,7 @@ XS(XS_NPC_ClearItemList); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_ClearItemList) { XS(XS_NPC_ClearItemList) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::ClearItemList(THIS)"); Perl_croak(aTHX_ "Usage: NPC::ClearItemList(THIS)"); // @categories Inventory and Items
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -193,7 +193,7 @@ XS(XS_NPC_AddCash); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AddCash) { XS(XS_NPC_AddCash) {
dXSARGS; dXSARGS;
if (items != 5) if (items != 5)
Perl_croak(aTHX_ "Usage: NPC::AddCash(THIS, uint16 copper, uint16 silver, uint16 gold, uint16 platinum)"); Perl_croak(aTHX_ "Usage: NPC::AddCash(THIS, uint16 copper, uint16 silver, uint16 gold, uint16 platinum)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint16 in_copper = (uint16) SvUV(ST(1)); uint16 in_copper = (uint16) SvUV(ST(1));
@ -210,7 +210,7 @@ XS(XS_NPC_RemoveCash); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RemoveCash) { XS(XS_NPC_RemoveCash) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::RemoveCash(THIS)"); Perl_croak(aTHX_ "Usage: NPC::RemoveCash(THIS)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -223,7 +223,7 @@ XS(XS_NPC_CountLoot); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_CountLoot) { XS(XS_NPC_CountLoot) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::CountLoot(THIS)"); Perl_croak(aTHX_ "Usage: NPC::CountLoot(THIS)"); // @categories Inventory and Items
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -240,7 +240,7 @@ XS(XS_NPC_GetLoottableID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetLoottableID) { XS(XS_NPC_GetLoottableID) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetLoottableID(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetLoottableID(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -257,7 +257,7 @@ XS(XS_NPC_GetCopper); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetCopper) { XS(XS_NPC_GetCopper) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetCopper(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetCopper(THIS)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -274,7 +274,7 @@ XS(XS_NPC_GetSilver); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSilver) { XS(XS_NPC_GetSilver) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSilver(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSilver(THIS)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -291,7 +291,7 @@ XS(XS_NPC_GetGold); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetGold) { XS(XS_NPC_GetGold) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetGold(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetGold(THIS)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -308,7 +308,7 @@ XS(XS_NPC_GetPlatinum); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetPlatinum) { XS(XS_NPC_GetPlatinum) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetPlatinum(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetPlatinum(THIS)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -325,7 +325,7 @@ XS(XS_NPC_SetCopper); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetCopper) { XS(XS_NPC_SetCopper) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetCopper(THIS, uint32 copper_amount)"); Perl_croak(aTHX_ "Usage: NPC::SetCopper(THIS, uint32 copper_amount)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 amt = (uint32) SvUV(ST(1)); uint32 amt = (uint32) SvUV(ST(1));
@ -339,7 +339,7 @@ XS(XS_NPC_SetSilver); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSilver) { XS(XS_NPC_SetSilver) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSilver(THIS, uint32 silver_amount)"); Perl_croak(aTHX_ "Usage: NPC::SetSilver(THIS, uint32 silver_amount)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 amt = (uint32) SvUV(ST(1)); uint32 amt = (uint32) SvUV(ST(1));
@ -353,7 +353,7 @@ XS(XS_NPC_SetGold); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetGold) { XS(XS_NPC_SetGold) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetGold(THIS, uint32 gold_amount)"); Perl_croak(aTHX_ "Usage: NPC::SetGold(THIS, uint32 gold_amount)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 amt = (uint32) SvUV(ST(1)); uint32 amt = (uint32) SvUV(ST(1));
@ -367,7 +367,7 @@ XS(XS_NPC_SetPlatinum); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetPlatinum) { XS(XS_NPC_SetPlatinum) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetPlatinum(THIS, uint32 platinum_amount)"); Perl_croak(aTHX_ "Usage: NPC::SetPlatinum(THIS, uint32 platinum_amount)"); // @categories Currency and Points
{ {
NPC *THIS; NPC *THIS;
uint32 amt = (uint32) SvUV(ST(1)); uint32 amt = (uint32) SvUV(ST(1));
@ -381,7 +381,7 @@ XS(XS_NPC_SetGrid); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetGrid) { XS(XS_NPC_SetGrid) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetGrid(THIS, int32 grid_id)"); Perl_croak(aTHX_ "Usage: NPC::SetGrid(THIS, int32 grid_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int32 grid_ = (int32) SvIV(ST(1)); int32 grid_ = (int32) SvIV(ST(1));
@ -395,7 +395,7 @@ XS(XS_NPC_SetSaveWaypoint); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSaveWaypoint) { XS(XS_NPC_SetSaveWaypoint) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSaveWaypoint(THIS, uint16 waypoint)"); Perl_croak(aTHX_ "Usage: NPC::SetSaveWaypoint(THIS, uint16 waypoint)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
uint16 waypoint = (uint16) SvUV(ST(1)); uint16 waypoint = (uint16) SvUV(ST(1));
@ -409,7 +409,7 @@ XS(XS_NPC_SetSp2); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSp2) { XS(XS_NPC_SetSp2) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSp2(THIS, uint32 set_spawn_group_id)"); Perl_croak(aTHX_ "Usage: NPC::SetSp2(THIS, uint32 set_spawn_group_id)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
uint32 sg2 = (uint32) SvUV(ST(1)); uint32 sg2 = (uint32) SvUV(ST(1));
@ -423,7 +423,7 @@ XS(XS_NPC_GetWaypointMax); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetWaypointMax) { XS(XS_NPC_GetWaypointMax) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetWaypointMax(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetWaypointMax(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
uint16 RETVAL; uint16 RETVAL;
@ -440,7 +440,7 @@ XS(XS_NPC_GetGrid); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetGrid) { XS(XS_NPC_GetGrid) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetGrid(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetGrid(THIS)"); // @categories Script Utility, Spawns
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -457,7 +457,7 @@ XS(XS_NPC_GetSp2); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSp2) { XS(XS_NPC_GetSp2) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSp2(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSp2(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -474,7 +474,7 @@ XS(XS_NPC_GetNPCFactionID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetNPCFactionID) { XS(XS_NPC_GetNPCFactionID) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetNPCFactionID(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetNPCFactionID(THIS)"); // @categories Faction, Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -491,7 +491,7 @@ XS(XS_NPC_GetPrimaryFaction); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetPrimaryFaction) { XS(XS_NPC_GetPrimaryFaction) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetPrimaryFaction(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetPrimaryFaction(THIS)"); // @categories Faction, Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -508,7 +508,7 @@ XS(XS_NPC_GetNPCHate); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetNPCHate) { XS(XS_NPC_GetNPCHate) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::GetNPCHate(THIS, Mob* entity)"); Perl_croak(aTHX_ "Usage: NPC::GetNPCHate(THIS, Mob* entity)"); // @categories Hate and Aggro
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -534,7 +534,7 @@ XS(XS_NPC_IsOnHatelist); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_IsOnHatelist) { XS(XS_NPC_IsOnHatelist) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::IsOnHatelist(THIS, Mob* target)"); Perl_croak(aTHX_ "Usage: NPC::IsOnHatelist(THIS, Mob* target)"); // @categories Hate and Aggro
{ {
NPC *THIS; NPC *THIS;
bool RETVAL; bool RETVAL;
@ -559,7 +559,7 @@ XS(XS_NPC_RemoveFromHateList); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RemoveFromHateList) { XS(XS_NPC_RemoveFromHateList) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::RemoveFromHateList(THIS, Mob* target)"); Perl_croak(aTHX_ "Usage: NPC::RemoveFromHateList(THIS, Mob* target)"); // @categories Hate and Aggro
{ {
NPC *THIS; NPC *THIS;
Mob *ent; Mob *ent;
@ -583,7 +583,7 @@ XS(XS_NPC_SetNPCFactionID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetNPCFactionID) { XS(XS_NPC_SetNPCFactionID) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetNPCFactionID(THIS, int32 faction_id)"); Perl_croak(aTHX_ "Usage: NPC::SetNPCFactionID(THIS, int32 faction_id)"); // @categories Faction
{ {
NPC *THIS; NPC *THIS;
int32 in = (int32) SvIV(ST(1)); int32 in = (int32) SvIV(ST(1));
@ -597,7 +597,7 @@ XS(XS_NPC_GetMaxDMG); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetMaxDMG) { XS(XS_NPC_GetMaxDMG) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetMaxDMG(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetMaxDMG(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -632,7 +632,7 @@ XS(XS_NPC_IsAnimal); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_IsAnimal) { XS(XS_NPC_IsAnimal) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::IsAnimal(THIS)"); Perl_croak(aTHX_ "Usage: NPC::IsAnimal(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
bool RETVAL; bool RETVAL;
@ -648,7 +648,7 @@ XS(XS_NPC_GetPetSpellID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetPetSpellID) { XS(XS_NPC_GetPetSpellID) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetPetSpellID(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetPetSpellID(THIS)"); // @categories Stats and Attributes, Pet
{ {
NPC *THIS; NPC *THIS;
uint16 RETVAL; uint16 RETVAL;
@ -665,7 +665,7 @@ XS(XS_NPC_SetPetSpellID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetPetSpellID) { XS(XS_NPC_SetPetSpellID) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetPetSpellID(THIS, uint16 amount)"); Perl_croak(aTHX_ "Usage: NPC::SetPetSpellID(THIS, uint16 amount)"); // @categories Pet
{ {
NPC *THIS; NPC *THIS;
uint16 amt = (uint16) SvUV(ST(1)); uint16 amt = (uint16) SvUV(ST(1));
@ -679,7 +679,7 @@ XS(XS_NPC_GetMaxDamage); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetMaxDamage) { XS(XS_NPC_GetMaxDamage) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::GetMaxDamage(THIS, uint8 target_level)"); Perl_croak(aTHX_ "Usage: NPC::GetMaxDamage(THIS, uint8 target_level)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -697,7 +697,7 @@ XS(XS_NPC_SetTaunting); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetTaunting) { XS(XS_NPC_SetTaunting) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetTaunting(THIS, bool toggle)"); Perl_croak(aTHX_ "Usage: NPC::SetTaunting(THIS, bool toggle)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
bool toggle = (bool) SvTRUE(ST(1)); bool toggle = (bool) SvTRUE(ST(1));
@ -727,7 +727,7 @@ XS(XS_NPC_PickPocket); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_PickPocket) { XS(XS_NPC_PickPocket) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::PickPocket(THIS, Client* thief)"); Perl_croak(aTHX_ "Usage: NPC::PickPocket(THIS, Client* thief)"); // @categories Skills and Recipes
{ {
NPC *THIS; NPC *THIS;
Client *thief; Client *thief;
@ -749,7 +749,7 @@ XS(XS_NPC_StartSwarmTimer); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_StartSwarmTimer) { XS(XS_NPC_StartSwarmTimer) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::StartSwarmTimer(THIS, uint32 duration)"); Perl_croak(aTHX_ "Usage: NPC::StartSwarmTimer(THIS, uint32 duration)"); // @categories Script Utility, Pet
{ {
NPC *THIS; NPC *THIS;
uint32 duration = (uint32) SvUV(ST(1)); uint32 duration = (uint32) SvUV(ST(1));
@ -763,7 +763,7 @@ XS(XS_NPC_DoClassAttacks); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_DoClassAttacks) { XS(XS_NPC_DoClassAttacks) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::DoClassAttacks(THIS, Mob* target)"); Perl_croak(aTHX_ "Usage: NPC::DoClassAttacks(THIS, Mob* target)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
Mob *target; Mob *target;
@ -802,7 +802,7 @@ XS(XS_NPC_DisplayWaypointInfo); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_DisplayWaypointInfo) { XS(XS_NPC_DisplayWaypointInfo) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::DisplayWaypointInfo(THIS, Client* target)"); Perl_croak(aTHX_ "Usage: NPC::DisplayWaypointInfo(THIS, Client* target)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
Client *to; Client *to;
@ -824,7 +824,7 @@ XS(XS_NPC_CalculateNewWaypoint); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_CalculateNewWaypoint) { XS(XS_NPC_CalculateNewWaypoint) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::CalculateNewWaypoint(THIS)"); Perl_croak(aTHX_ "Usage: NPC::CalculateNewWaypoint(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -837,7 +837,7 @@ XS(XS_NPC_AssignWaypoints); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AssignWaypoints) { XS(XS_NPC_AssignWaypoints) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::AssignWaypoints(THIS, uint32 grid_id)"); Perl_croak(aTHX_ "Usage: NPC::AssignWaypoints(THIS, uint32 grid_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
uint32 grid = (uint32) SvUV(ST(1)); uint32 grid = (uint32) SvUV(ST(1));
@ -851,7 +851,7 @@ XS(XS_NPC_SetWaypointPause); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetWaypointPause) { XS(XS_NPC_SetWaypointPause) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::SetWaypointPause(THIS)"); Perl_croak(aTHX_ "Usage: NPC::SetWaypointPause(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -864,7 +864,7 @@ XS(XS_NPC_UpdateWaypoint); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_UpdateWaypoint) { XS(XS_NPC_UpdateWaypoint) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::UpdateWaypoint(THIS, int wp_index)"); Perl_croak(aTHX_ "Usage: NPC::UpdateWaypoint(THIS, int wp_index)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int wp_index = (int) SvIV(ST(1)); int wp_index = (int) SvIV(ST(1));
@ -878,7 +878,7 @@ XS(XS_NPC_StopWandering); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_StopWandering) { XS(XS_NPC_StopWandering) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::StopWandering(THIS)"); Perl_croak(aTHX_ "Usage: NPC::StopWandering(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -891,7 +891,7 @@ XS(XS_NPC_ResumeWandering); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_ResumeWandering) { XS(XS_NPC_ResumeWandering) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::ResumeWandering(THIS)"); Perl_croak(aTHX_ "Usage: NPC::ResumeWandering(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -904,7 +904,7 @@ XS(XS_NPC_PauseWandering); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_PauseWandering) { XS(XS_NPC_PauseWandering) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::PauseWandering(THIS, int pause_time)"); Perl_croak(aTHX_ "Usage: NPC::PauseWandering(THIS, int pause_time)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int pausetime = (int) SvIV(ST(1)); int pausetime = (int) SvIV(ST(1));
@ -918,7 +918,7 @@ XS(XS_NPC_MoveTo); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_MoveTo) { XS(XS_NPC_MoveTo) {
dXSARGS; dXSARGS;
if (items != 4 && items != 5 && items != 6) if (items != 4 && items != 5 && items != 6)
Perl_croak(aTHX_ "Usage: NPC::MoveTo(THIS, float x, float y, float z, [float heading], [bool save_guard_location = false])"); Perl_croak(aTHX_ "Usage: NPC::MoveTo(THIS, float x, float y, float z, [float heading], [bool save_guard_location = false])"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
float mtx = (float) SvNV(ST(1)); float mtx = (float) SvNV(ST(1));
@ -941,7 +941,7 @@ XS(XS_NPC_NextGuardPosition); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_NextGuardPosition) { XS(XS_NPC_NextGuardPosition) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::NextGuardPosition(THIS)"); Perl_croak(aTHX_ "Usage: NPC::NextGuardPosition(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -954,7 +954,7 @@ XS(XS_NPC_SaveGuardSpot); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SaveGuardSpot) { XS(XS_NPC_SaveGuardSpot) {
dXSARGS; dXSARGS;
if (items != 5) if (items != 5)
Perl_croak(aTHX_ "Usage: NPC::SaveGuardSpot(THIS, x, y, z, heading)"); Perl_croak(aTHX_ "Usage: NPC::SaveGuardSpot(THIS, x, y, z, heading)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
float x = (float)SvNV(ST(1)); float x = (float)SvNV(ST(1));
@ -971,7 +971,7 @@ XS(XS_NPC_IsGuarding); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_IsGuarding) { XS(XS_NPC_IsGuarding) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::IsGuarding(THIS)"); Perl_croak(aTHX_ "Usage: NPC::IsGuarding(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
bool RETVAL; bool RETVAL;
@ -987,7 +987,7 @@ XS(XS_NPC_AI_SetRoambox); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AI_SetRoambox) { XS(XS_NPC_AI_SetRoambox) {
dXSARGS; dXSARGS;
if (items < 6 || items > 8) if (items < 6 || items > 8)
Perl_croak(aTHX_ "Usage: NPC::AI_SetRoambox(THIS, float distance, float max_x, float min_x, float max_y, float min_y, [uint32 max_delay = 2500], [uint32 min_delay = 2500])"); Perl_croak(aTHX_ "Usage: NPC::AI_SetRoambox(THIS, float distance, float max_x, float min_x, float max_y, float min_y, [uint32 max_delay = 2500], [uint32 min_delay = 2500])"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
float iDist = (float) SvNV(ST(1)); float iDist = (float) SvNV(ST(1));
@ -1018,7 +1018,7 @@ XS(XS_NPC_GetNPCSpellsID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetNPCSpellsID) { XS(XS_NPC_GetNPCSpellsID) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetNPCSpellsID(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetNPCSpellsID(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1035,7 +1035,7 @@ XS(XS_NPC_GetSpawnPointID); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnPointID) { XS(XS_NPC_GetSpawnPointID) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointID(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointID(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1052,7 +1052,7 @@ XS(XS_NPC_GetSpawnPointX); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnPointX) { XS(XS_NPC_GetSpawnPointX) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointX(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointX(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1069,7 +1069,7 @@ XS(XS_NPC_GetSpawnPointY); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnPointY) { XS(XS_NPC_GetSpawnPointY) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointY(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointY(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1086,7 +1086,7 @@ XS(XS_NPC_GetSpawnPointZ); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnPointZ) { XS(XS_NPC_GetSpawnPointZ) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointZ(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointZ(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1103,7 +1103,7 @@ XS(XS_NPC_GetSpawnPointH); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnPointH) { XS(XS_NPC_GetSpawnPointH) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointH(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointH(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1120,7 +1120,7 @@ XS(XS_NPC_GetGuardPointX); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetGuardPointX) { XS(XS_NPC_GetGuardPointX) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetGuardPointX(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetGuardPointX(THIS)"); // @categories Script Utility, Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1137,7 +1137,7 @@ XS(XS_NPC_GetGuardPointY); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetGuardPointY) { XS(XS_NPC_GetGuardPointY) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetGuardPointY(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetGuardPointY(THIS)"); // @categories Script Utility, Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1154,7 +1154,7 @@ XS(XS_NPC_GetGuardPointZ); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetGuardPointZ) { XS(XS_NPC_GetGuardPointZ) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetGuardPointZ(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetGuardPointZ(THIS)"); // @categories Script Utility, Spawns
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1171,7 +1171,7 @@ XS(XS_NPC_SetPrimSkill); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetPrimSkill) { XS(XS_NPC_SetPrimSkill) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetPrimSkill(THIS, int skill_id)"); Perl_croak(aTHX_ "Usage: NPC::SetPrimSkill(THIS, int skill_id)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int skill_id = (int) SvIV(ST(1)); int skill_id = (int) SvIV(ST(1));
@ -1185,7 +1185,7 @@ XS(XS_NPC_SetSecSkill); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSecSkill) { XS(XS_NPC_SetSecSkill) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSecSkill(THIS, int skill_id)"); Perl_croak(aTHX_ "Usage: NPC::SetSecSkill(THIS, int skill_id)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int skill_id = (int) SvIV(ST(1)); int skill_id = (int) SvIV(ST(1));
@ -1199,7 +1199,7 @@ XS(XS_NPC_GetPrimSkill); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetPrimSkill) { XS(XS_NPC_GetPrimSkill) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetPrimSkill(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetPrimSkill(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1216,7 +1216,7 @@ XS(XS_NPC_GetSecSkill); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSecSkill) { XS(XS_NPC_GetSecSkill) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSecSkill(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSecSkill(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1233,7 +1233,7 @@ XS(XS_NPC_GetSwarmOwner); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSwarmOwner) { XS(XS_NPC_GetSwarmOwner) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSwarmOwner(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSwarmOwner(THIS)"); // @categories Pet
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1250,7 +1250,7 @@ XS(XS_NPC_GetSwarmTarget); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSwarmTarget) { XS(XS_NPC_GetSwarmTarget) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSwarmTarget(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSwarmTarget(THIS)"); // @categories Pet
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1267,7 +1267,7 @@ XS(XS_NPC_SetSwarmTarget); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSwarmTarget) { XS(XS_NPC_SetSwarmTarget) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSwarmTarget(THIS, int target_id)"); Perl_croak(aTHX_ "Usage: NPC::SetSwarmTarget(THIS, int target_id)"); // @categories Pet
{ {
NPC *THIS; NPC *THIS;
int target_id = (int) SvIV(ST(1)); int target_id = (int) SvIV(ST(1));
@ -1281,7 +1281,7 @@ XS(XS_NPC_ModifyNPCStat); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_ModifyNPCStat) { XS(XS_NPC_ModifyNPCStat) {
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: NPC::ModifyNPCStat(THIS, string key, string value)"); Perl_croak(aTHX_ "Usage: NPC::ModifyNPCStat(THIS, string key, string value)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
Const_char *identifier = (Const_char *) SvPV_nolen(ST(1)); Const_char *identifier = (Const_char *) SvPV_nolen(ST(1));
@ -1296,7 +1296,7 @@ XS(XS_NPC_AddSpellToNPCList); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_AddSpellToNPCList) { XS(XS_NPC_AddSpellToNPCList) {
dXSARGS; dXSARGS;
if (items != 7) if (items != 7)
Perl_croak(aTHX_ "Usage: NPC::AddAISpell(THIS, int priority, int spell_id, int type, int mana_cost, int recast_delay, int resist_adjust)"); Perl_croak(aTHX_ "Usage: NPC::AddAISpell(THIS, int priority, int spell_id, int type, int mana_cost, int recast_delay, int resist_adjust)"); // @categories Spells and Disciplines, Script Utility
{ {
NPC *THIS; NPC *THIS;
int priority = (int) SvIV(ST(1)); int priority = (int) SvIV(ST(1));
@ -1315,7 +1315,7 @@ XS(XS_NPC_RemoveSpellFromNPCList); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RemoveSpellFromNPCList) { XS(XS_NPC_RemoveSpellFromNPCList) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::RemoveAISpell(THIS, int spell_id)"); Perl_croak(aTHX_ "Usage: NPC::RemoveAISpell(THIS, int spell_id)"); // @categories Spells and Disciplines
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1329,7 +1329,7 @@ XS(XS_NPC_SetSpellFocusDMG); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSpellFocusDMG) { XS(XS_NPC_SetSpellFocusDMG) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSpellFocusDMG(THIS, int new_spell_focus_dmg)"); Perl_croak(aTHX_ "Usage: NPC::SetSpellFocusDMG(THIS, int new_spell_focus_dmg)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 NewSpellFocusDMG = (int32) SvIV(ST(1)); int32 NewSpellFocusDMG = (int32) SvIV(ST(1));
@ -1343,7 +1343,7 @@ XS(XS_NPC_GetSpellFocusDMG); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpellFocusDMG) { XS(XS_NPC_GetSpellFocusDMG) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusDMG(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusDMG(THIS)"); // @categories Spells and Disciplines
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -1360,7 +1360,7 @@ XS(XS_NPC_SetSpellFocusHeal); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSpellFocusHeal) { XS(XS_NPC_SetSpellFocusHeal) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::SetSpellFocusHeal(THIS, int32 new_spell_focus_heal)"); Perl_croak(aTHX_ "Usage: NPC::SetSpellFocusHeal(THIS, int32 new_spell_focus_heal)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 NewSpellFocusHeal = (int32) SvIV(ST(1)); int32 NewSpellFocusHeal = (int32) SvIV(ST(1));
@ -1374,7 +1374,7 @@ XS(XS_NPC_GetSpellFocusHeal); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpellFocusHeal) { XS(XS_NPC_GetSpellFocusHeal) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusHeal(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusHeal(THIS)"); // @categories Spells and Disciplines
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -1391,7 +1391,7 @@ XS(XS_NPC_GetSlowMitigation); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSlowMitigation) { XS(XS_NPC_GetSlowMitigation) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSlowMitigation(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSlowMitigation(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1408,7 +1408,7 @@ XS(XS_NPC_GetAttackSpeed); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetAttackSpeed) { XS(XS_NPC_GetAttackSpeed) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetAttackSpeed(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetAttackSpeed(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1425,7 +1425,7 @@ XS(XS_NPC_GetAttackDelay); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetAttackDelay) { XS(XS_NPC_GetAttackDelay) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetAttackDelay(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetAttackDelay(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
float RETVAL; float RETVAL;
@ -1442,7 +1442,7 @@ XS(XS_NPC_GetAccuracyRating); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetAccuracyRating) { XS(XS_NPC_GetAccuracyRating) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetAccuracyRating(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetAccuracyRating(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -1459,7 +1459,7 @@ XS(XS_NPC_GetAvoidanceRating); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetAvoidanceRating) { XS(XS_NPC_GetAvoidanceRating) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetAvoidanceyRating(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetAvoidanceyRating(THIS)"); // @categories Stats and Attributes
{ {
NPC *THIS; NPC *THIS;
int32 RETVAL; int32 RETVAL;
@ -1476,7 +1476,7 @@ XS(XS_NPC_GetSpawnKillCount); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetSpawnKillCount) { XS(XS_NPC_GetSpawnKillCount) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetSpawnKillCount(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetSpawnKillCount(THIS)"); // @categories Spawns
{ {
NPC *THIS; NPC *THIS;
uint32 RETVAL; uint32 RETVAL;
@ -1493,7 +1493,7 @@ XS(XS_NPC_GetScore); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetScore) { XS(XS_NPC_GetScore) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetScore(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetScore(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int RETVAL; int RETVAL;
@ -1510,7 +1510,7 @@ XS(XS_NPC_MerchantOpenShop);
XS(XS_NPC_MerchantOpenShop) { XS(XS_NPC_MerchantOpenShop) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::MerchantOpenShop(THIS)"); Perl_croak(aTHX_ "Usage: NPC::MerchantOpenShop(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
dXSTARG; dXSTARG;
@ -1524,7 +1524,7 @@ XS(XS_NPC_MerchantCloseShop);
XS(XS_NPC_MerchantCloseShop) { XS(XS_NPC_MerchantCloseShop) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::MerchantCloseShop(THIS)"); Perl_croak(aTHX_ "Usage: NPC::MerchantCloseShop(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
dXSTARG; dXSTARG;
@ -1538,7 +1538,7 @@ XS(XS_NPC_AddMeleeProc);
XS(XS_NPC_AddMeleeProc) { XS(XS_NPC_AddMeleeProc) {
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: NPC::AddMeleeProc(THIS, int spell_id, int chance)"); Perl_croak(aTHX_ "Usage: NPC::AddMeleeProc(THIS, int spell_id, int chance)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1554,7 +1554,7 @@ XS(XS_NPC_AddRangedProc);
XS(XS_NPC_AddRangedProc) { XS(XS_NPC_AddRangedProc) {
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: NPC::AddRangedProc(THIS, int spell_id, int chance)"); Perl_croak(aTHX_ "Usage: NPC::AddRangedProc(THIS, int spell_id, int chance)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1570,7 +1570,7 @@ XS(XS_NPC_AddDefensiveProc);
XS(XS_NPC_AddDefensiveProc) { XS(XS_NPC_AddDefensiveProc) {
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: NPC::AddDefensiveProc(THIS, int spell_id, int chance)"); Perl_croak(aTHX_ "Usage: NPC::AddDefensiveProc(THIS, int spell_id, int chance)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1586,7 +1586,7 @@ XS(XS_NPC_RemoveMeleeProc);
XS(XS_NPC_RemoveMeleeProc) { XS(XS_NPC_RemoveMeleeProc) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::RemoveMeleeProc(THIS, int spell_id)"); Perl_croak(aTHX_ "Usage: NPC::RemoveMeleeProc(THIS, int spell_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1601,7 +1601,7 @@ XS(XS_NPC_RemoveRangedProc);
XS(XS_NPC_RemoveRangedProc) { XS(XS_NPC_RemoveRangedProc) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::RemoveRangedProc(THIS, int spell_id)"); Perl_croak(aTHX_ "Usage: NPC::RemoveRangedProc(THIS, int spell_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1616,7 +1616,7 @@ XS(XS_NPC_RemoveDefensiveProc);
XS(XS_NPC_RemoveDefensiveProc) { XS(XS_NPC_RemoveDefensiveProc) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: NPC::RemoveDefensiveProc(THIS, int spell_id)"); Perl_croak(aTHX_ "Usage: NPC::RemoveDefensiveProc(THIS, int spell_id)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
int spell_id = (int) SvIV(ST(1)); int spell_id = (int) SvIV(ST(1));
@ -1631,7 +1631,7 @@ XS(XS_NPC_ChangeLastName); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_ChangeLastName) { XS(XS_NPC_ChangeLastName) {
dXSARGS; dXSARGS;
if (items < 1 || items > 2) if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: NPC::ChangeLastName(THIS, string name)"); Perl_croak(aTHX_ "Usage: NPC::ChangeLastName(THIS, string name)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
char *name = nullptr; char *name = nullptr;
@ -1647,7 +1647,7 @@ XS(XS_NPC_ClearLastName); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_ClearLastName) { XS(XS_NPC_ClearLastName) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::ClearLastName(THIS)"); Perl_croak(aTHX_ "Usage: NPC::ClearLastName(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;
@ -1660,7 +1660,7 @@ XS(XS_NPC_GetCombatState); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_GetCombatState) { XS(XS_NPC_GetCombatState) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::GetCombatState(THIS)"); Perl_croak(aTHX_ "Usage: NPC::GetCombatState(THIS)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
bool RETVAL; bool RETVAL;
@ -1676,7 +1676,7 @@ XS(XS_NPC_SetSimpleRoamBox); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_SetSimpleRoamBox) { XS(XS_NPC_SetSimpleRoamBox) {
dXSARGS; dXSARGS;
if (items < 2) if (items < 2)
Perl_croak(aTHX_ "Usage: NPC::SetSimpleRoamBox(THIS, box_size, move_distance, move_delay)"); Perl_croak(aTHX_ "Usage: NPC::SetSimpleRoamBox(THIS, box_size, move_distance, move_delay)"); // @categories Script Utility
{ {
NPC *THIS; NPC *THIS;
@ -1702,7 +1702,7 @@ XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RecalculateSkills) { XS(XS_NPC_RecalculateSkills) {
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)"); Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)"); // @categories Skills and Recipes
{ {
NPC *THIS; NPC *THIS;
VALIDATE_THIS_IS_NPC; VALIDATE_THIS_IS_NPC;