From 9b5d0a3ddf41e686439dcda1edfe11eee51c3b07 Mon Sep 17 00:00:00 2001
From: Markus Mittendrein <git@maxmitti.tk>
Date: Thu, 5 Jan 2017 16:19:56 +0100
Subject: Initial

---
 DTPhysicalStack.c | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 DTPhysicalStack.c

(limited to 'DTPhysicalStack.c')

diff --git a/DTPhysicalStack.c b/DTPhysicalStack.c
new file mode 100644
index 0000000..c0aa7ad
--- /dev/null
+++ b/DTPhysicalStack.c
@@ -0,0 +1,72 @@
+#strict 2
+
+global func GetPhysicalFactorStack(object target)
+{
+	target || FatalError("GetPhysicalFactorStack: no target object given");
+	return GetEffect("PhysicalFactorStack", target) || AddEffect("PhysicalFactorStack", target, 200);
+}
+
+global func AddPhysicalFactor(string physical, int factor, int precision, object target)
+{
+	target = target || this || FatalError("AddPhysicalFactor: no target object given");
+	precision = precision || 100;
+	
+	return EffectCall(target, GetPhysicalFactorStack(target), "AddFactor", physical, factor, precision);
+}
+
+global func RemovePhysicalFactor(int id, object target)
+{
+	target = target || this || FatalError("AddPhysicalFactor: no target object given");
+	
+	return EffectCall(target, GetPhysicalFactorStack(target), "RemoveFactor", id);
+}
+
+global func FxPhysicalFactorStackStart(object target, int effectNumber, int temp)
+{
+	if(!temp)
+	{
+		EffectVar(1, target, effectNumber) = [];
+	}
+}
+
+global func FxPhysicalFactorStackAddFactor(object target, int effectNumber, string physical, int factor, int precision)
+{
+	ArrayAppend(EffectVar(1, target, effectNumber), [++EffectVar(0, target, effectNumber), physical, factor, precision]);
+	EffectCall(target, effectNumber, "ApplyPhysical", physical);
+	return EffectVar(0, target, effectNumber);
+}
+
+global func FxPhysicalFactorStackRemoveFactor(object target, int effectNumber, int id)
+{
+	for(var i = 0; i < GetLength(EffectVar(1, target, effectNumber)); ++i)
+	{
+		if(EffectVar(1, target, effectNumber)[i][0] == id)
+		{
+			var physical = EffectVar(1, target, effectNumber)[i][1];
+			ArrayErase(EffectVar(1, target, effectNumber), i);
+			EffectCall(target, effectNumber, "ApplyPhysical", physical);
+			return true;
+		}
+	}
+	return 0;
+}
+
+global func FxPhysicalFactorStackApplyPhysical(object target, int effectNumber, string physical)
+{
+	var phys = GetPhysical(physical, PHYS_Temporary, target);
+	if(phys)
+	{
+		ResetPhysical(target, physical);
+	}
+	phys = GetPhysical(physical, PHYS_Current, target);
+	for(var factor in EffectVar(1, target, effectNumber))
+	{
+		if(factor[1] == physical)
+		{
+			phys *= factor[2];
+			phys /= factor[3];
+		}
+	}
+	SetPhysical(physical, phys, PHYS_StackTemporary, target);
+	return phys;
+}
-- 
cgit v1.2.3-54-g00ecf