From d69552d4df58507c86ae7b814cc818028b094056 Mon Sep 17 00:00:00 2001
From: KayenEQ <kayen85@gmail.com>
Date: Wed, 17 Dec 2014 05:57:16 -0500
Subject: [PATCH] Perl: NPC AddRangedProc(spellid, chance) Perl: NPC
 AddDefensiveProc(spellid, chance)

---
 zone/perl_npc.cpp | 54 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 53 insertions(+), 1 deletion(-)

diff --git a/zone/perl_npc.cpp b/zone/perl_npc.cpp
index 736db9565..279b64330 100644
--- a/zone/perl_npc.cpp
+++ b/zone/perl_npc.cpp
@@ -2301,7 +2301,57 @@ XS(XS_NPC_AddMeleeProc);
 XS(XS_NPC_AddMeleeProc) {
 	dXSARGS;
 	if (items != 3)
-		Perl_croak(aTHX_ "Usage: NPC::AddMeleePro(THIS,spellid,chance)");
+		Perl_croak(aTHX_ "Usage: NPC::AddMeleeProc(THIS,spellid,chance)");
+	{
+		NPC * THIS;
+		int	spell_id = (int)SvIV(ST(1));
+		int	chance = (int)SvIV(ST(2));
+		dXSTARG;
+
+		if (sv_derived_from(ST(0), "NPC")) {
+			IV tmp = SvIV((SV*)SvRV(ST(0)));
+			THIS = INT2PTR(NPC *,tmp);
+		}
+		else
+			Perl_croak(aTHX_ "THIS is not of type NPC");
+		if(THIS == NULL)
+			Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
+
+		THIS->AddProcToWeapon(spell_id, true, chance);
+	}
+	XSRETURN_EMPTY;
+}
+
+XS(XS_NPC_AddRangedProc);
+XS(XS_NPC_AddRangedProc) {
+	dXSARGS;
+	if (items != 3)
+		Perl_croak(aTHX_ "Usage: NPC::AddRangedProc(THIS,spellid,chance)");
+	{
+		NPC * THIS;
+		int	spell_id = (int)SvIV(ST(1));
+		int	chance = (int)SvIV(ST(2));
+		dXSTARG;
+
+		if (sv_derived_from(ST(0), "NPC")) {
+			IV tmp = SvIV((SV*)SvRV(ST(0)));
+			THIS = INT2PTR(NPC *,tmp);
+		}
+		else
+			Perl_croak(aTHX_ "THIS is not of type NPC");
+		if(THIS == NULL)
+			Perl_croak(aTHX_ "THIS is NULL, avoiding crash.");
+
+		THIS->AddDefensiveProc(spell_id,chance);
+	}
+	XSRETURN_EMPTY;
+}
+
+XS(XS_NPC_AddDefensiveProc);
+XS(XS_NPC_AddDefensiveProc) {
+	dXSARGS;
+	if (items != 3)
+		Perl_croak(aTHX_ "Usage: NPC::AddDefensiveProc(THIS,spellid,chance)");
 	{
 		NPC * THIS;
 		int	spell_id = (int)SvIV(ST(1));
@@ -2427,6 +2477,8 @@ XS(boot_NPC)
 		newXSproto(strcpy(buf, "SetMerchantProbability"), XS_NPC_SetMerchantProbability, file, "$$");
 		newXSproto(strcpy(buf, "GetMerchantProbability"), XS_NPC_GetMerchantProbability, file, "$");
 		newXSproto(strcpy(buf, "AddMeleeProc"), XS_NPC_AddMeleeProc, file, "$$$");
+		newXSproto(strcpy(buf, "AddRangedProc"), XS_NPC_AddRangedProc, file, "$$$");
+		newXSproto(strcpy(buf, "AddDefensiveProc"), XS_NPC_AddDefensiveProc, file, "$$$");
 	XSRETURN_YES;
 }