From 0484eb04feaefe52cc278765765d0b4ec7ac1f44 Mon Sep 17 00:00:00 2001 From: TurmoilToad Date: Wed, 10 Feb 2021 20:06:47 -0500 Subject: [PATCH] [Quest API] Perl NPC Annotations Added category tag annotations for NPC methods. --- zone/perl_npc.cpp | 190 +++++++++++++++++++++++----------------------- 1 file changed, 95 insertions(+), 95 deletions(-) diff --git a/zone/perl_npc.cpp b/zone/perl_npc.cpp index 08bc282ace..4dd9b77b43 100644 --- a/zone/perl_npc.cpp +++ b/zone/perl_npc.cpp @@ -61,7 +61,7 @@ XS(XS_NPC_SignalNPC); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SignalNPC) { dXSARGS; 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; int _signal_id = (int) SvIV(ST(1)); @@ -75,7 +75,7 @@ XS(XS_NPC_CheckNPCFactionAlly); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_CheckNPCFactionAlly) { dXSARGS; 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; FACTION_VALUE RETVAL; @@ -93,7 +93,7 @@ XS(XS_NPC_AddItem); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_AddItem) { dXSARGS; 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; uint32 itemid = (uint32) SvUV(ST(1)); @@ -132,7 +132,7 @@ XS(XS_NPC_AddLootTable); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_AddLootTable) { dXSARGS; 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; VALIDATE_THIS_IS_NPC; @@ -152,7 +152,7 @@ XS(XS_NPC_RemoveItem); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RemoveItem) { dXSARGS; 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; uint32 item_id = (uint32) SvUV(ST(1)); @@ -180,7 +180,7 @@ XS(XS_NPC_ClearItemList); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_ClearItemList) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::ClearItemList(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::ClearItemList(THIS)"); // @categories Inventory and Items { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -193,7 +193,7 @@ XS(XS_NPC_AddCash); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_AddCash) { dXSARGS; 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; uint16 in_copper = (uint16) SvUV(ST(1)); @@ -210,7 +210,7 @@ XS(XS_NPC_RemoveCash); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RemoveCash) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::RemoveCash(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::RemoveCash(THIS)"); // @categories Currency and Points { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -223,7 +223,7 @@ XS(XS_NPC_CountLoot); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_CountLoot) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::CountLoot(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::CountLoot(THIS)"); // @categories Inventory and Items { NPC *THIS; uint32 RETVAL; @@ -240,7 +240,7 @@ XS(XS_NPC_GetLoottableID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetLoottableID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetLoottableID(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetLoottableID(THIS)"); // @categories Stats and Attributes { NPC *THIS; uint32 RETVAL; @@ -257,7 +257,7 @@ XS(XS_NPC_GetCopper); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetCopper) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetCopper(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetCopper(THIS)"); // @categories Currency and Points { NPC *THIS; uint32 RETVAL; @@ -274,7 +274,7 @@ XS(XS_NPC_GetSilver); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSilver) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSilver(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSilver(THIS)"); // @categories Currency and Points { NPC *THIS; uint32 RETVAL; @@ -291,7 +291,7 @@ XS(XS_NPC_GetGold); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetGold) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetGold(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetGold(THIS)"); // @categories Currency and Points { NPC *THIS; uint32 RETVAL; @@ -308,7 +308,7 @@ XS(XS_NPC_GetPlatinum); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetPlatinum) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetPlatinum(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetPlatinum(THIS)"); // @categories Currency and Points { NPC *THIS; uint32 RETVAL; @@ -325,7 +325,7 @@ XS(XS_NPC_SetCopper); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetCopper) { dXSARGS; 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; uint32 amt = (uint32) SvUV(ST(1)); @@ -339,7 +339,7 @@ XS(XS_NPC_SetSilver); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSilver) { dXSARGS; 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; uint32 amt = (uint32) SvUV(ST(1)); @@ -353,7 +353,7 @@ XS(XS_NPC_SetGold); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetGold) { dXSARGS; 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; uint32 amt = (uint32) SvUV(ST(1)); @@ -367,7 +367,7 @@ XS(XS_NPC_SetPlatinum); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetPlatinum) { dXSARGS; 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; uint32 amt = (uint32) SvUV(ST(1)); @@ -381,7 +381,7 @@ XS(XS_NPC_SetGrid); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetGrid) { dXSARGS; 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; int32 grid_ = (int32) SvIV(ST(1)); @@ -395,7 +395,7 @@ XS(XS_NPC_SetSaveWaypoint); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSaveWaypoint) { dXSARGS; 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; uint16 waypoint = (uint16) SvUV(ST(1)); @@ -409,7 +409,7 @@ XS(XS_NPC_SetSp2); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSp2) { dXSARGS; 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; uint32 sg2 = (uint32) SvUV(ST(1)); @@ -423,7 +423,7 @@ XS(XS_NPC_GetWaypointMax); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetWaypointMax) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetWaypointMax(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetWaypointMax(THIS)"); // @categories Script Utility { NPC *THIS; uint16 RETVAL; @@ -440,7 +440,7 @@ XS(XS_NPC_GetGrid); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetGrid) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetGrid(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetGrid(THIS)"); // @categories Script Utility, Spawns { NPC *THIS; int32 RETVAL; @@ -457,7 +457,7 @@ XS(XS_NPC_GetSp2); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSp2) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSp2(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSp2(THIS)"); // @categories Spawns { NPC *THIS; uint32 RETVAL; @@ -474,7 +474,7 @@ XS(XS_NPC_GetNPCFactionID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetNPCFactionID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetNPCFactionID(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetNPCFactionID(THIS)"); // @categories Faction, Stats and Attributes { NPC *THIS; int32 RETVAL; @@ -491,7 +491,7 @@ XS(XS_NPC_GetPrimaryFaction); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetPrimaryFaction) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetPrimaryFaction(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetPrimaryFaction(THIS)"); // @categories Faction, Stats and Attributes { NPC *THIS; int32 RETVAL; @@ -508,7 +508,7 @@ XS(XS_NPC_GetNPCHate); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetNPCHate) { dXSARGS; 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; int32 RETVAL; @@ -534,7 +534,7 @@ XS(XS_NPC_IsOnHatelist); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_IsOnHatelist) { dXSARGS; 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; bool RETVAL; @@ -559,7 +559,7 @@ XS(XS_NPC_RemoveFromHateList); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RemoveFromHateList) { dXSARGS; 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; Mob *ent; @@ -583,7 +583,7 @@ XS(XS_NPC_SetNPCFactionID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetNPCFactionID) { dXSARGS; 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; int32 in = (int32) SvIV(ST(1)); @@ -597,7 +597,7 @@ XS(XS_NPC_GetMaxDMG); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetMaxDMG) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetMaxDMG(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetMaxDMG(THIS)"); // @categories Stats and Attributes { NPC *THIS; uint32 RETVAL; @@ -632,7 +632,7 @@ XS(XS_NPC_IsAnimal); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_IsAnimal) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::IsAnimal(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::IsAnimal(THIS)"); // @categories Stats and Attributes { NPC *THIS; bool RETVAL; @@ -648,7 +648,7 @@ XS(XS_NPC_GetPetSpellID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetPetSpellID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetPetSpellID(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetPetSpellID(THIS)"); // @categories Stats and Attributes, Pet { NPC *THIS; uint16 RETVAL; @@ -665,7 +665,7 @@ XS(XS_NPC_SetPetSpellID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetPetSpellID) { dXSARGS; 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; uint16 amt = (uint16) SvUV(ST(1)); @@ -679,7 +679,7 @@ XS(XS_NPC_GetMaxDamage); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetMaxDamage) { dXSARGS; 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; uint32 RETVAL; @@ -697,7 +697,7 @@ XS(XS_NPC_SetTaunting); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetTaunting) { dXSARGS; 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; bool toggle = (bool) SvTRUE(ST(1)); @@ -727,7 +727,7 @@ XS(XS_NPC_PickPocket); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_PickPocket) { dXSARGS; 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; Client *thief; @@ -749,7 +749,7 @@ XS(XS_NPC_StartSwarmTimer); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_StartSwarmTimer) { dXSARGS; 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; uint32 duration = (uint32) SvUV(ST(1)); @@ -763,7 +763,7 @@ XS(XS_NPC_DoClassAttacks); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_DoClassAttacks) { dXSARGS; 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; Mob *target; @@ -802,7 +802,7 @@ XS(XS_NPC_DisplayWaypointInfo); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_DisplayWaypointInfo) { dXSARGS; 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; Client *to; @@ -824,7 +824,7 @@ XS(XS_NPC_CalculateNewWaypoint); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_CalculateNewWaypoint) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::CalculateNewWaypoint(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::CalculateNewWaypoint(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -837,7 +837,7 @@ XS(XS_NPC_AssignWaypoints); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_AssignWaypoints) { dXSARGS; 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; uint32 grid = (uint32) SvUV(ST(1)); @@ -851,7 +851,7 @@ XS(XS_NPC_SetWaypointPause); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetWaypointPause) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::SetWaypointPause(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::SetWaypointPause(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -864,7 +864,7 @@ XS(XS_NPC_UpdateWaypoint); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_UpdateWaypoint) { dXSARGS; 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; int wp_index = (int) SvIV(ST(1)); @@ -878,7 +878,7 @@ XS(XS_NPC_StopWandering); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_StopWandering) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::StopWandering(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::StopWandering(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -891,7 +891,7 @@ XS(XS_NPC_ResumeWandering); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_ResumeWandering) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::ResumeWandering(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::ResumeWandering(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -904,7 +904,7 @@ XS(XS_NPC_PauseWandering); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_PauseWandering) { dXSARGS; 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; int pausetime = (int) SvIV(ST(1)); @@ -918,7 +918,7 @@ XS(XS_NPC_MoveTo); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_MoveTo) { dXSARGS; 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; float mtx = (float) SvNV(ST(1)); @@ -941,7 +941,7 @@ XS(XS_NPC_NextGuardPosition); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_NextGuardPosition) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::NextGuardPosition(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::NextGuardPosition(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -954,7 +954,7 @@ XS(XS_NPC_SaveGuardSpot); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SaveGuardSpot) { dXSARGS; 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; float x = (float)SvNV(ST(1)); @@ -971,7 +971,7 @@ XS(XS_NPC_IsGuarding); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_IsGuarding) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::IsGuarding(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::IsGuarding(THIS)"); // @categories Script Utility { NPC *THIS; bool RETVAL; @@ -987,7 +987,7 @@ XS(XS_NPC_AI_SetRoambox); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_AI_SetRoambox) { dXSARGS; 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; float iDist = (float) SvNV(ST(1)); @@ -1018,7 +1018,7 @@ XS(XS_NPC_GetNPCSpellsID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetNPCSpellsID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetNPCSpellsID(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetNPCSpellsID(THIS)"); // @categories Stats and Attributes { NPC *THIS; uint32 RETVAL; @@ -1035,7 +1035,7 @@ XS(XS_NPC_GetSpawnPointID); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnPointID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointID(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointID(THIS)"); // @categories Spawns { NPC *THIS; uint32 RETVAL; @@ -1052,7 +1052,7 @@ XS(XS_NPC_GetSpawnPointX); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnPointX) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointX(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointX(THIS)"); // @categories Spawns { NPC *THIS; float RETVAL; @@ -1069,7 +1069,7 @@ XS(XS_NPC_GetSpawnPointY); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnPointY) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointY(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointY(THIS)"); // @categories Spawns { NPC *THIS; float RETVAL; @@ -1086,7 +1086,7 @@ XS(XS_NPC_GetSpawnPointZ); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnPointZ) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointZ(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointZ(THIS)"); // @categories Spawns { NPC *THIS; float RETVAL; @@ -1103,7 +1103,7 @@ XS(XS_NPC_GetSpawnPointH); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnPointH) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointH(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnPointH(THIS)"); // @categories Spawns { NPC *THIS; float RETVAL; @@ -1120,7 +1120,7 @@ XS(XS_NPC_GetGuardPointX); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetGuardPointX) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetGuardPointX(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetGuardPointX(THIS)"); // @categories Script Utility, Spawns { NPC *THIS; float RETVAL; @@ -1137,7 +1137,7 @@ XS(XS_NPC_GetGuardPointY); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetGuardPointY) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetGuardPointY(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetGuardPointY(THIS)"); // @categories Script Utility, Spawns { NPC *THIS; float RETVAL; @@ -1154,7 +1154,7 @@ XS(XS_NPC_GetGuardPointZ); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetGuardPointZ) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetGuardPointZ(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetGuardPointZ(THIS)"); // @categories Script Utility, Spawns { NPC *THIS; float RETVAL; @@ -1171,7 +1171,7 @@ XS(XS_NPC_SetPrimSkill); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetPrimSkill) { dXSARGS; 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; int skill_id = (int) SvIV(ST(1)); @@ -1185,7 +1185,7 @@ XS(XS_NPC_SetSecSkill); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSecSkill) { dXSARGS; 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; int skill_id = (int) SvIV(ST(1)); @@ -1199,7 +1199,7 @@ XS(XS_NPC_GetPrimSkill); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetPrimSkill) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetPrimSkill(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetPrimSkill(THIS)"); // @categories Stats and Attributes { NPC *THIS; uint32 RETVAL; @@ -1216,7 +1216,7 @@ XS(XS_NPC_GetSecSkill); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSecSkill) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSecSkill(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSecSkill(THIS)"); // @categories Stats and Attributes { NPC *THIS; uint32 RETVAL; @@ -1233,7 +1233,7 @@ XS(XS_NPC_GetSwarmOwner); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSwarmOwner) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSwarmOwner(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSwarmOwner(THIS)"); // @categories Pet { NPC *THIS; uint32 RETVAL; @@ -1250,7 +1250,7 @@ XS(XS_NPC_GetSwarmTarget); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSwarmTarget) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSwarmTarget(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSwarmTarget(THIS)"); // @categories Pet { NPC *THIS; uint32 RETVAL; @@ -1267,7 +1267,7 @@ XS(XS_NPC_SetSwarmTarget); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSwarmTarget) { dXSARGS; 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; int target_id = (int) SvIV(ST(1)); @@ -1281,7 +1281,7 @@ XS(XS_NPC_ModifyNPCStat); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_ModifyNPCStat) { dXSARGS; 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; 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) { dXSARGS; 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; int priority = (int) SvIV(ST(1)); @@ -1315,7 +1315,7 @@ XS(XS_NPC_RemoveSpellFromNPCList); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RemoveSpellFromNPCList) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1329,7 +1329,7 @@ XS(XS_NPC_SetSpellFocusDMG); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSpellFocusDMG) { dXSARGS; 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; int32 NewSpellFocusDMG = (int32) SvIV(ST(1)); @@ -1343,7 +1343,7 @@ XS(XS_NPC_GetSpellFocusDMG); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpellFocusDMG) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusDMG(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusDMG(THIS)"); // @categories Spells and Disciplines { NPC *THIS; int32 RETVAL; @@ -1360,7 +1360,7 @@ XS(XS_NPC_SetSpellFocusHeal); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSpellFocusHeal) { dXSARGS; 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; int32 NewSpellFocusHeal = (int32) SvIV(ST(1)); @@ -1374,7 +1374,7 @@ XS(XS_NPC_GetSpellFocusHeal); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpellFocusHeal) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusHeal(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpellFocusHeal(THIS)"); // @categories Spells and Disciplines { NPC *THIS; int32 RETVAL; @@ -1391,7 +1391,7 @@ XS(XS_NPC_GetSlowMitigation); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSlowMitigation) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSlowMitigation(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSlowMitigation(THIS)"); // @categories Stats and Attributes { NPC *THIS; float RETVAL; @@ -1408,7 +1408,7 @@ XS(XS_NPC_GetAttackSpeed); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetAttackSpeed) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetAttackSpeed(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetAttackSpeed(THIS)"); // @categories Stats and Attributes { NPC *THIS; float RETVAL; @@ -1425,7 +1425,7 @@ XS(XS_NPC_GetAttackDelay); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetAttackDelay) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetAttackDelay(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetAttackDelay(THIS)"); // @categories Stats and Attributes { NPC *THIS; float RETVAL; @@ -1442,7 +1442,7 @@ XS(XS_NPC_GetAccuracyRating); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetAccuracyRating) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetAccuracyRating(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetAccuracyRating(THIS)"); // @categories Stats and Attributes { NPC *THIS; int32 RETVAL; @@ -1459,7 +1459,7 @@ XS(XS_NPC_GetAvoidanceRating); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetAvoidanceRating) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetAvoidanceyRating(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetAvoidanceyRating(THIS)"); // @categories Stats and Attributes { NPC *THIS; int32 RETVAL; @@ -1476,7 +1476,7 @@ XS(XS_NPC_GetSpawnKillCount); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetSpawnKillCount) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetSpawnKillCount(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetSpawnKillCount(THIS)"); // @categories Spawns { NPC *THIS; uint32 RETVAL; @@ -1493,7 +1493,7 @@ XS(XS_NPC_GetScore); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetScore) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetScore(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetScore(THIS)"); // @categories Script Utility { NPC *THIS; int RETVAL; @@ -1510,7 +1510,7 @@ XS(XS_NPC_MerchantOpenShop); XS(XS_NPC_MerchantOpenShop) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::MerchantOpenShop(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::MerchantOpenShop(THIS)"); // @categories Script Utility { NPC *THIS; dXSTARG; @@ -1524,7 +1524,7 @@ XS(XS_NPC_MerchantCloseShop); XS(XS_NPC_MerchantCloseShop) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::MerchantCloseShop(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::MerchantCloseShop(THIS)"); // @categories Script Utility { NPC *THIS; dXSTARG; @@ -1538,7 +1538,7 @@ XS(XS_NPC_AddMeleeProc); XS(XS_NPC_AddMeleeProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1554,7 +1554,7 @@ XS(XS_NPC_AddRangedProc); XS(XS_NPC_AddRangedProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1570,7 +1570,7 @@ XS(XS_NPC_AddDefensiveProc); XS(XS_NPC_AddDefensiveProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1586,7 +1586,7 @@ XS(XS_NPC_RemoveMeleeProc); XS(XS_NPC_RemoveMeleeProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1601,7 +1601,7 @@ XS(XS_NPC_RemoveRangedProc); XS(XS_NPC_RemoveRangedProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1616,7 +1616,7 @@ XS(XS_NPC_RemoveDefensiveProc); XS(XS_NPC_RemoveDefensiveProc) { dXSARGS; 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; int spell_id = (int) SvIV(ST(1)); @@ -1631,7 +1631,7 @@ XS(XS_NPC_ChangeLastName); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_ChangeLastName) { dXSARGS; 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; char *name = nullptr; @@ -1647,7 +1647,7 @@ XS(XS_NPC_ClearLastName); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_ClearLastName) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::ClearLastName(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::ClearLastName(THIS)"); // @categories Script Utility { NPC *THIS; VALIDATE_THIS_IS_NPC; @@ -1660,7 +1660,7 @@ XS(XS_NPC_GetCombatState); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_GetCombatState) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::GetCombatState(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::GetCombatState(THIS)"); // @categories Script Utility { NPC *THIS; bool RETVAL; @@ -1676,7 +1676,7 @@ XS(XS_NPC_SetSimpleRoamBox); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_SetSimpleRoamBox) { dXSARGS; 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; @@ -1702,7 +1702,7 @@ XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RecalculateSkills) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)"); + Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)"); // @categories Skills and Recipes { NPC *THIS; VALIDATE_THIS_IS_NPC;