Adds RAYT (#540)

src/client/GameSave.cpp

@@ -2699,7 +2699,7 @@ bool GameSave::TypeInCtype(int type, int ctype)
 	        type == PT_STOR || type == PT_CONV || type == PT_STKM || type == PT_STKM2 ||
 	        type == PT_FIGH || type == PT_LAVA || type == PT_SPRK || type == PT_PSTN ||
 	        type == PT_CRAY || type == PT_DTEC || type == PT_DRAY || type == PT_PIPE ||
-	        type == PT_PPIP);
+	        type == PT_PPIP || type == PT_RAYT);
 }
 
 bool GameSave::TypeInTmp(int type)

src/simulation/elements/RAYT.cpp

@@ -0,0 +1,170 @@
+#include "simulation/Elements.h"
+#include <iostream>
+
+//#TPT-Directive ElementClass Element_RAYT PT_RAYT 186
+Element_RAYT::Element_RAYT()
+{
+	Identifier = "DEFAULT_PT_RAYT";
+	Name = "RAYT";
+	Colour = PIXPACK(0x66ff66);
+	MenuVisible = 1;
+	MenuSection = SC_SENSOR;
+	Enabled = 1;
+
+	Advection = 0.0f;
+	AirDrag = 0.00f * CFDS;
+	AirLoss = 0.00f;
+	Loss = 0.00f;
+	Collision = 0.0f;
+	Gravity = 0.0f;
+	Diffusion = 0.00f;
+	HotAir = 0.000f	* CFDS;
+	Falldown = 0;
+
+	Flammable = 0;
+	Explosive = 0;
+	Meltable = 0;
+	Hardness = 0;
+
+	Weight = 100;
+
+	Temperature = 283.15f;
+	HeatConduct = 0;
+	Description = "RAYT scans in 8 directions for the element in its ctype and sparks the conductor on the opposite side";
+
+	Properties = TYPE_SOLID | PROP_DRAWONCTYPE | PROP_NOCTYPEDRAW;
+
+	LowPressure = IPL;
+	LowPressureTransition = NT;
+	HighPressure = IPH;
+	HighPressureTransition = NT;
+	LowTemperature = ITL;
+	LowTemperatureTransition = NT;
+	HighTemperature = ITH;
+	HighTemperatureTransition = NT;
+
+	Update = &Element_RAYT::update;
+}
+
+const int mask_invert_filter =  0x1;
+const int mask_ignore_energy =  0x2;
+const int mask_no_copy_color =  0x4;
+const int mask_keep_searching = 0x8;
+
+//NOTES:
+// ctype is used to store the target element, if any. (NONE is treated as a wildcard)
+// life is used for the amount of pixels to skip before starting the scan. Starts just in front of the RAYT if 0.
+// tmp is the number of particles that will be scanned before scanning stops. Unbounded if 0.
+// tmp2 is used for settings (binary flags). The flags are as follows:
+// 0x01: Inverts the CTYPE filter so that the element in ctype is the only thing that doesn't trigger RAYT, instead of the opposite.
+// 0x02: Ignore energy particles
+// 0x04: Ignore FILT (do not use color copying mode)
+// 0x08: Keep searching even after finding a particle
+
+
+/* Returns true for particles that activate the special FILT color copying mode */
+bool phot_data_type(int rt)
+{
+	if (rt == PT_FILT || rt == PT_PHOT || rt == PT_BRAY)
+		return true;
+	return false;
+}
+
+/* Returns true for particles that start a ray search ("dtec" mode)
+ */
+bool accepted_type(Simulation* sim, int r)
+{
+	int rt = TYP(r);
+	if ((sim->elements[rt].Properties & PROP_CONDUCTS) && !(rt == PT_WATR || rt == PT_SLTW || rt == PT_NTCT || rt == PT_PTCT || rt == PT_INWR))
+	{
+		if (sim->parts[ID(r)].life == 0)
+			return true;
+	}
+	return false;
+}
+
+//#TPT-Directive ElementHeader Element_RAYT static int update(UPDATE_FUNC_ARGS)
+int Element_RAYT::update(UPDATE_FUNC_ARGS)
+{
+	int max = parts[i].tmp + parts[i].life;
+	for (int rx = -1; rx <= 1; rx++)
+	{
+		for (int ry = -1; ry <= 1; ry++)
+		{
+			if (BOUNDS_CHECK && (rx || ry))
+			{
+				int r = pmap[y+ry][x+rx];
+				if (!r)
+					continue;
+
+				if (!accepted_type(sim, r) && ((parts[i].tmp2 & mask_no_copy_color) || !phot_data_type(TYP(r))))
+					continue;
+
+				// Stolen from DRAY, does the ray searching
+				int xStep = rx * -1, yStep = ry * -1;
+				int xCurrent = x + (xStep * (parts[i].life + 1)), yCurrent = y + (yStep * (parts[i].life + 1));
+				for (;(parts[i].tmp == 0) || !(xCurrent - x >= max) || (yCurrent-y >= max); xCurrent += xStep, yCurrent += yStep)
+				{
+					int rr = pmap[yCurrent][xCurrent];
+					if (!(xCurrent>=0 && yCurrent>=0 && xCurrent<XRES && yCurrent<YRES))
+					{
+						break; // We're out of bounds! Oops!
+					}
+					if (!rr)
+					{
+						rr = sim->photons[yCurrent][xCurrent];
+						if (!(rr && !(parts[i].tmp2 & mask_ignore_energy)))
+						{
+							continue;
+						}
+					}
+					if (!rr)
+						continue;
+
+					// Usual DTEC-like mode
+					if (!phot_data_type(TYP(r)))
+					{
+						// If ctype isn't set (no type restriction), or ctype matches what we found
+						// Can use .tmp2 flag to invert this
+						if (parts[i].ctype == 0 || (parts[i].ctype == TYP(rr)) ^ (parts[i].tmp2 & mask_invert_filter))
+						{
+							parts[ID(r)].life = 4;
+							parts[ID(r)].ctype = TYP(r);
+							sim->part_change_type(ID(r), xCurrent, yCurrent, PT_SPRK);
+							break;
+						}
+						// room for more conditions here.
+					}
+					// FILT color copying mode
+					else
+					{
+						// If ctype isn't set (no type restriction), or ctype matches what we found
+						// Can use .tmp2 flag to invert this
+						if (parts[i].ctype == 0 || (parts[i].ctype == TYP(rr)) ^ (parts[i].tmp2 & mask_invert_filter))
+						{
+							if (phot_data_type(TYP(rr)))
+							{
+								int nx = x + rx, ny = y + ry;
+								while (TYP(r) == PT_FILT)
+								{
+									parts[ID(r)].ctype = Element_FILT::getWavelengths(&parts[ID(rr)]);
+									nx += rx;
+									ny += ry;
+									if (nx < 0 || ny < 0 || nx >= XRES || ny >= YRES)
+										break;
+									r = pmap[ny][nx];
+								}
+								break;
+							}
+						}
+					}
+					if (!(parts[i].tmp2 & mask_keep_searching))
+						break;
+				}
+			}
+		}
+	}
+	return 0;
+}
+
+Element_RAYT::~Element_RAYT() {}