pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-08-29 21:08:03 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #3 from EQEmu/master

Browse Source 
sync
This commit is contained in:
josheb
2013-05-06 14:16:46 -07:00
parent 05d7c12d38 90c7fab452
commit 8e49ab9179
216 changed files with 4167 additions and 4149 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/perl_npc.cpp
+164 -164
View File
@@ -59,8 +59,8 @@ XS(XS_NPC_SignalNPC)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SignalNPC(_signal_id);
}
@@ -85,8 +85,8 @@ XS(XS_NPC_CheckNPCFactionAlly)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->CheckNPCFactionAlly(other_faction);
XSprePUSH; PUSHi((IV)RETVAL);
@@ -112,8 +112,8 @@ XS(XS_NPC_AddItem)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (items > 2)
charges = (uint16)SvUV(ST(2));
@@ -140,8 +140,8 @@ XS(XS_NPC_AddLootTable)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
uint32 loottable_id = 0;
@@ -176,8 +176,8 @@ XS(XS_NPC_RemoveItem)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (items < 3)
quantity = 0;
@@ -211,8 +211,8 @@ XS(XS_NPC_ClearItemList)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->ClearItemList();
}
@@ -238,8 +238,8 @@ XS(XS_NPC_AddCash)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->AddCash(in_copper, in_silver, in_gold, in_platinum);
}
@@ -261,8 +261,8 @@ XS(XS_NPC_RemoveCash)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->RemoveCash();
}
@@ -286,8 +286,8 @@ XS(XS_NPC_CountLoot)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->CountLoot();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -312,8 +312,8 @@ XS(XS_NPC_GetLoottableID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetLoottableID();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -338,8 +338,8 @@ XS(XS_NPC_GetCopper)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetCopper();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -364,8 +364,8 @@ XS(XS_NPC_GetSilver)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSilver();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -390,8 +390,8 @@ XS(XS_NPC_GetGold)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetGold();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -416,8 +416,8 @@ XS(XS_NPC_GetPlatinum)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetPlatinum();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -441,8 +441,8 @@ XS(XS_NPC_SetCopper)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetCopper(amt);
}
@@ -465,8 +465,8 @@ XS(XS_NPC_SetSilver)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSilver(amt);
}
@@ -489,8 +489,8 @@ XS(XS_NPC_SetGold)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetGold(amt);
}
@@ -513,8 +513,8 @@ XS(XS_NPC_SetPlatinum)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetPlatinum(amt);
}
@@ -537,8 +537,8 @@ XS(XS_NPC_SetGrid)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetGrid(grid_);
}
@@ -561,8 +561,8 @@ XS(XS_NPC_SetSaveWaypoint)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSaveWaypoint(waypoint);
}
@@ -585,8 +585,8 @@ XS(XS_NPC_SetSp2)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSp2(sg2);
}
@@ -610,8 +610,8 @@ XS(XS_NPC_GetWaypointMax)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetWaypointMax();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -636,8 +636,8 @@ XS(XS_NPC_GetGrid)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetGrid();
XSprePUSH; PUSHi((IV)RETVAL);
@@ -662,8 +662,8 @@ XS(XS_NPC_GetSp2)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSp2();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -688,8 +688,8 @@ XS(XS_NPC_GetNPCFactionID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetNPCFactionID();
XSprePUSH; PUSHi((IV)RETVAL);
@@ -714,8 +714,8 @@ XS(XS_NPC_GetPrimaryFaction)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetPrimaryFaction();
XSprePUSH; PUSHi((IV)RETVAL);
@@ -741,8 +741,8 @@ XS(XS_NPC_GetNPCHate)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (sv_derived_from(ST(1), "Mob")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
@@ -750,8 +750,8 @@ XS(XS_NPC_GetNPCHate)
}
else
Perl_croak(aTHX_ "in_ent is not of type Mob");
if(in_ent == NULL)
Perl_croak(aTHX_ "in_ent is NULL, avoiding crash.");
if(in_ent == nullptr)
Perl_croak(aTHX_ "in_ent is nullptr, avoiding crash.");
RETVAL = THIS->GetNPCHate(in_ent);
XSprePUSH; PUSHi((IV)RETVAL);
@@ -776,8 +776,8 @@ XS(XS_NPC_IsOnHatelist)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (sv_derived_from(ST(1), "Mob")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
@@ -785,8 +785,8 @@ XS(XS_NPC_IsOnHatelist)
}
else
Perl_croak(aTHX_ "p is not of type Mob");
if(p == NULL)
Perl_croak(aTHX_ "p is NULL, avoiding crash.");
if(p == nullptr)
Perl_croak(aTHX_ "p is nullptr, avoiding crash.");
RETVAL = THIS->IsOnHatelist(p);
ST(0) = boolSV(RETVAL);
@@ -811,8 +811,8 @@ XS(XS_NPC_SetNPCFactionID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetNPCFactionID(in);
}
@@ -836,8 +836,8 @@ XS(XS_NPC_GetMaxDMG)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetMaxDMG();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -862,8 +862,8 @@ XS(XS_NPC_GetMinDMG)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetMinDMG();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -888,8 +888,8 @@ XS(XS_NPC_IsAnimal)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->IsAnimal();
ST(0) = boolSV(RETVAL);
@@ -915,8 +915,8 @@ XS(XS_NPC_GetPetSpellID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetPetSpellID();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -940,8 +940,8 @@ XS(XS_NPC_SetPetSpellID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetPetSpellID(amt);
}
@@ -966,8 +966,8 @@ XS(XS_NPC_GetMaxDamage)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetMaxDamage(tlevel);
XSprePUSH; PUSHu((UV)RETVAL);
@@ -991,8 +991,8 @@ XS(XS_NPC_SetTaunting)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetTaunting(tog);
}
@@ -1015,8 +1015,8 @@ XS(XS_NPC_PickPocket)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (sv_derived_from(ST(1), "Client")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
@@ -1024,8 +1024,8 @@ XS(XS_NPC_PickPocket)
}
else
Perl_croak(aTHX_ "thief is not of type Client");
if(thief == NULL)
Perl_croak(aTHX_ "thief is NULL, avoiding crash.");
if(thief == nullptr)
Perl_croak(aTHX_ "thief is nullptr, avoiding crash.");
THIS->PickPocket(thief);
}
@@ -1048,8 +1048,8 @@ XS(XS_NPC_StartSwarmTimer)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->StartSwarmTimer(duration);
}
@@ -1072,8 +1072,8 @@ XS(XS_NPC_DoClassAttacks)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (sv_derived_from(ST(1), "Mob")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
@@ -1081,8 +1081,8 @@ XS(XS_NPC_DoClassAttacks)
}
else
Perl_croak(aTHX_ "target is not of type Mob");
if(target == NULL)
Perl_croak(aTHX_ "target is NULL, avoiding crash.");
if(target == nullptr)
Perl_croak(aTHX_ "target is nullptr, avoiding crash.");
THIS->DoClassAttacks(target);
}
@@ -1106,8 +1106,8 @@ XS(XS_NPC_GetMaxWp)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetMaxWp();
XSprePUSH; PUSHi((IV)RETVAL);
@@ -1131,8 +1131,8 @@ XS(XS_NPC_DisplayWaypointInfo)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (sv_derived_from(ST(1), "Client")) {
IV tmp = SvIV((SV*)SvRV(ST(1)));
@@ -1140,8 +1140,8 @@ XS(XS_NPC_DisplayWaypointInfo)
}
else
Perl_croak(aTHX_ "to is not of type Client");
if(to == NULL)
Perl_croak(aTHX_ "to is NULL, avoiding crash.");
if(to == nullptr)
Perl_croak(aTHX_ "to is nullptr, avoiding crash.");
THIS->DisplayWaypointInfo(to);
}
@@ -1163,8 +1163,8 @@ XS(XS_NPC_CalculateNewWaypoint)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->CalculateNewWaypoint();
}
@@ -1187,8 +1187,8 @@ XS(XS_NPC_AssignWaypoints)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->AssignWaypoints(grid);
}
@@ -1210,8 +1210,8 @@ XS(XS_NPC_SetWaypointPause)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetWaypointPause();
}
@@ -1234,8 +1234,8 @@ XS(XS_NPC_UpdateWaypoint)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->UpdateWaypoint(wp_index);
}
@@ -1257,8 +1257,8 @@ XS(XS_NPC_StopWandering)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->StopWandering();
}
@@ -1280,8 +1280,8 @@ XS(XS_NPC_ResumeWandering)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->ResumeWandering();
}
@@ -1304,8 +1304,8 @@ XS(XS_NPC_PauseWandering)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->PauseWandering(pausetime);
}
@@ -1342,8 +1342,8 @@ XS(XS_NPC_MoveTo)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->MoveTo(mtx, mty, mtz, mth, saveguard);
}
@@ -1365,8 +1365,8 @@ XS(XS_NPC_NextGuardPosition)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->NextGuardPosition();
}
@@ -1389,8 +1389,8 @@ XS(XS_NPC_SaveGuardSpot)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (items < 2)
iClearGuardSpot = false;
@@ -1419,8 +1419,8 @@ XS(XS_NPC_IsGuarding)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->IsGuarding();
ST(0) = boolSV(RETVAL);
@@ -1450,8 +1450,8 @@ XS(XS_NPC_AI_SetRoambox)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
if (items < 7)
iDelay = 2500;
@@ -1481,8 +1481,8 @@ XS(XS_NPC_GetNPCSpellsID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetNPCSpellsID();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1507,8 +1507,8 @@ XS(XS_NPC_GetSpawnPointID)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSpawnPointID();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1533,8 +1533,8 @@ XS(XS_NPC_GetSpawnPointX)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSpawnPointX();
@@ -1560,8 +1560,8 @@ XS(XS_NPC_GetSpawnPointY)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSpawnPointY();
@@ -1587,8 +1587,8 @@ XS(XS_NPC_GetSpawnPointZ)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSpawnPointZ();
@@ -1614,8 +1614,8 @@ XS(XS_NPC_GetSpawnPointH)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSpawnPointH();
@@ -1641,8 +1641,8 @@ XS(XS_NPC_GetGuardPointX)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetGuardPointX();
@@ -1668,8 +1668,8 @@ XS(XS_NPC_GetGuardPointY)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetGuardPointY();
@@ -1695,8 +1695,8 @@ XS(XS_NPC_GetGuardPointZ)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetGuardPointZ();
@@ -1721,8 +1721,8 @@ XS(XS_NPC_SetPrimSkill)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetPrimSkill(skill_id);
}
@@ -1745,8 +1745,8 @@ XS(XS_NPC_SetSecSkill)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSecSkill(skill_id);
}
@@ -1770,8 +1770,8 @@ XS(XS_NPC_GetPrimSkill)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetPrimSkill();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1796,8 +1796,8 @@ XS(XS_NPC_GetSecSkill)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSecSkill();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1822,8 +1822,8 @@ XS(XS_NPC_GetSwarmOwner)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSwarmOwner();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1848,8 +1848,8 @@ XS(XS_NPC_GetSwarmTarget)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSwarmTarget();
XSprePUSH; PUSHu((UV)RETVAL);
@@ -1873,8 +1873,8 @@ XS(XS_NPC_SetSwarmTarget)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSwarmTarget(target_id);
}
@@ -1898,8 +1898,8 @@ XS(XS_NPC_ModifyNPCStat)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->ModifyNPCStat(identifier, newValue);
}
@@ -1927,8 +1927,8 @@ XS(XS_NPC_AddSpellToNPCList)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->AddSpellToNPCList(priority, spell_id, type, mana_cost, recast_delay, resist_adjust);
}
@@ -1951,8 +1951,8 @@ XS(XS_NPC_RemoveSpellFromNPCList)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->RemoveSpellFromNPCList(spell_id);
}
@@ -1975,8 +1975,8 @@ XS(XS_NPC_SetSpellFocusDMG)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSpellFocusDMG(NewSpellFocusDMG);
}
@@ -1999,8 +1999,8 @@ XS(XS_NPC_SetSpellFocusHeal)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
THIS->SetSpellFocusHeal(NewSpellFocusHeal);
}
@@ -2024,8 +2024,8 @@ XS(XS_NPC_GetSlowMitigation)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSlowMitigation();
XSprePUSH; PUSHn((double)RETVAL);
@@ -2050,8 +2050,8 @@ XS(XS_NPC_GetAttackSpeed)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetAttackSpeed();
XSprePUSH; PUSHn((double)RETVAL);
@@ -2076,8 +2076,8 @@ XS(XS_NPC_GetAccuracyRating)
}
else
Perl_croak(aTHX_ "THIS is not of type NPC");
if(THIS == NULL)
Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
if(THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetAccuracyRating();
XSprePUSH; PUSHu((UV)RETVAL);