diff --git a/src/namedef.h b/src/namedef.h
index 1e7fbd0d3..5c65ab655 100644
--- a/src/namedef.h
+++ b/src/namedef.h
@@ -299,6 +299,7 @@ xx(ACS_NamedExecuteWithResult)
 xx(CallACS)
 xx(Sqrt)
 xx(CheckClass)
+xx(IsPointerEqual)
 
 // Various actor names which are used internally
 xx(MapSpot)
diff --git a/src/p_acs.cpp b/src/p_acs.cpp
index 983728c8d..9fa5079ff 100644
--- a/src/p_acs.cpp
+++ b/src/p_acs.cpp
@@ -4373,6 +4373,7 @@ enum EACSFunctions
 	ACSF_GetArmorInfo,
 	ACSF_DropInventory,
 	ACSF_PickActor,
+	ACSF_IsPointerEqual,
 
 	/* Zandronum's - these must be skipped when we reach 99!
 	-100:ResetMap(0),
@@ -5630,6 +5631,22 @@ doplaysound:			if (funcIndex == ACSF_PlayActorSound)
 			}
 			break;
 
+		case ACSF_IsPointerEqual:
+			{
+				int tid1 = 0, tid2 = 0;
+				switch (argCount)
+				{
+				case 4: tid2 = args[3];
+				case 3: tid1 = args[2];
+				}
+
+				actor = SingleActorFromTID(tid1, activator);
+				AActor * actor2 = tid2 == tid1 ? actor : SingleActorFromTID(tid2, activator);
+
+				return COPY_AAPTR(actor, args[0]) == COPY_AAPTR(actor2, args[1]);
+			}
+			break;
+
 		default:
 			break;
 	}
diff --git a/src/thingdef/thingdef_function.cpp b/src/thingdef/thingdef_function.cpp
index 9bf80dcaa..fcc936017 100644
--- a/src/thingdef/thingdef_function.cpp
+++ b/src/thingdef/thingdef_function.cpp
@@ -260,4 +260,37 @@ class FxGlobalFunctionCall_CheckClass : public FxGlobalFunctionCall
 		}
 	};
 
-GLOBALFUNCTION_ADDER(CheckClass);
\ No newline at end of file
+GLOBALFUNCTION_ADDER(CheckClass);
+
+//==========================================================================
+//
+// Function: ispointerequal
+//
+//==========================================================================
+
+class FxGlobalFunctionCall_IsPointerEqual : public FxGlobalFunctionCall
+{
+	public:
+		GLOBALFUNCTION_DEFINE(IsPointerEqual);
+		
+		FxExpression *Resolve(FCompileContext& ctx)
+		{
+			CHECKRESOLVED();
+			
+			if (!ResolveArgs(ctx, 2, 2, true))
+				return NULL;
+			
+			ValueType = VAL_Int;
+			return this;
+		}
+		
+		ExpVal EvalExpression(AActor *self)
+		{
+			ExpVal ret;
+			ret.Type = VAL_Int;
+			ret.Int = COPY_AAPTR(self, (*ArgList)[0]->EvalExpression(self).GetInt()) == COPY_AAPTR(self, (*ArgList)[1]->EvalExpression(self).GetInt());
+			return ret;
+		}
+};
+
+GLOBALFUNCTION_ADDER(IsPointerEqual);
\ No newline at end of file