TPT: TRON element, needs to glow and fancy explosion on crash eccf5658d2

5 files changed, 168 insertions, 3 deletions

diff --git a/src/elements/tron.cpp b/src/elements/tron.cpp
new file mode 100644
index 0000000..6830dab
--- /dev/null
+++ b/src/elements/tron.cpp
@@ -0,0 +1,152 @@
+#include "simulation\Element.h"
+
+/* TRON element is meant to resemble a tron bike (or worm) moving around and trying to avoid obstacles itself.
+ * It has four direction each turn to choose from, 0 (left) 1 (up) 2 (right) 3 (down).
+ * Each turn has a small random chance to randomly turn one way (so it doesn't do the exact same thing in a large room)
+ * If the place it wants to move isn't a barrier, it will try and 'see' infront of itself to determine its safety.
+ * For now the tron can only see its own body length in pixels ahead of itself (and around corners)
+ *  - - - - - - - - - -
+ *  - - - - + - - - - -
+ *  - - - + + + - - - -
+ *  - - +<--+-->+ - - -
+ *  - +<----+---->+ - -
+ *  - - - - H - - - - -
+ * Where H is the head with tail length 4, it checks the + area to see if it can hit any of the edges, then it is called safe, or picks the biggest area if none safe.
+ * .tmp bit values: 0 tail , 1 head , 2 no tail growth , 4-8 is direction , 16 is wait flag
+ * .tmp2 is tail length (gets longer every few hundred frames)
+ * .life is the timer that kills the end of the tail (the head uses life for how often it grows longer)
+ */
+#define TRON_HEAD 1
+#define TRON_NOGROW 2
+#define TRON_WAIT 16 //it was just created, so WAIT a frame
+#define TRON_NODIE 32
+int tron_rx[4] = {-1, 0, 1, 0};
+int tron_ry[4] = { 0,-1, 0, 1};
+int new_tronhead(Simulation * sim, int x, int y, int i, int direction)
+{
+	int np = sim->create_part(-1, x , y ,PT_TRON);
+	if (np==-1)
+		return -1;
+	if (sim->parts[i].life >= 100) // increase tail length
+	{
+		sim->parts[i].tmp2++;
+		sim->parts[i].life = 5;
+	}
+	//give new head our properties
+	sim->parts[np].tmp = 1 | direction<<2 | sim->parts[i].tmp&(TRON_NOGROW|TRON_NODIE);
+	if (np > i)
+		sim->parts[np].tmp |= TRON_WAIT;
+
+	sim->parts[np].tmp2 = sim->parts[i].tmp2;
+	sim->parts[np].life = sim->parts[i].life + 2;
+	sim->parts[np].dcolour = sim->parts[i].dcolour;
+	return 1;
+}
+int trymovetron(Simulation * sim, int x, int y, int dir, int i, int len)
+{
+	int k,j,r,rx,ry,tx,ty,count;
+	count = 0;
+	rx = x;
+	ry = y;
+	for (k = 1; k <= len; k ++)
+	{
+		rx += tron_rx[dir];
+		ry += tron_ry[dir];
+		r = sim->pmap[ry][rx];
+		if (!r && !sim->bmap[(ry)/CELL][(rx)/CELL] && ry > CELL && rx > CELL && ry < YRES-CELL && rx < XRES-CELL)
+		{
+			count++;
+			for (tx = rx - tron_ry[dir] , ty = ry - tron_rx[dir], j=1; abs(tx-rx) < (len-k) && abs(ty-ry) < (len-k); tx-=tron_ry[dir],ty-=tron_rx[dir],j++)
+			{
+				r = sim->pmap[ty][tx];
+				if (!r && !sim->bmap[(ty)/CELL][(tx)/CELL] && ry > CELL && rx > CELL && ry < YRES-CELL && rx < XRES-CELL)
+				{
+					if (j == (len-k))//there is a safe path, so we can break out
+						return len+1;
+					count++;
+				}
+				else //we hit a block so no need to check farther here
+					break;
+			}
+			for (tx = rx + tron_ry[dir] , ty = ry + tron_rx[dir], j=1; abs(tx-rx) < (len-k) && abs(ty-ry) < (len-k); tx+=tron_ry[dir],ty+=tron_rx[dir],j++)
+			{
+				r = sim->pmap[ty][tx];
+				if (!r && !sim->bmap[(ty)/CELL][(tx)/CELL] && ry > CELL && rx > CELL && ry < YRES-CELL && rx < XRES-CELL)
+				{
+					if (j == (len-k))
+						return len+1;
+					count++;
+				}
+				else
+					break;
+			}
+		}
+		else //a block infront, no need to continue
+			break;
+	}
+	return count;
+}
+int update_TRON(UPDATE_FUNC_ARGS) {
+	int r, rx, ry, np;
+	if (parts[i].tmp&TRON_WAIT)
+	{
+		parts[i].tmp -= TRON_WAIT;
+		return 0;
+	}
+	if (parts[i].tmp&TRON_HEAD)
+	{
+		int firstdircheck = 0,seconddir,seconddircheck = 0,lastdir,lastdircheck = 0;
+		int direction = (parts[i].tmp>>2 & 0x3);
+		int originaldir = direction;
+
+		//random turn
+		int random = rand()%340;
+		if (random==1 || random==3)
+		{
+			//randomly turn left(3) or right(1)
+			direction = (direction + random)%4;
+		}
+
+		//check infront
+		//do sight check
+		firstdircheck = trymovetron(sim,x,y,direction,i,parts[i].tmp2);
+		if (firstdircheck < parts[i].tmp2)
+		{
+			if (originaldir != direction) //if we just tried a random turn, don't pick random again
+			{
+				seconddir = originaldir;
+				lastdir = (direction + 2)%4;
+			}
+			else
+			{
+				seconddir = (direction + ((rand()%2)*2)+1)% 4;
+				lastdir = (seconddir + 2)%4;
+			}
+			seconddircheck = trymovetron(sim,x,y,seconddir,i,parts[i].tmp2);
+			lastdircheck = trymovetron(sim,x,y,lastdir,i,parts[i].tmp2);
+		}
+		//find the best move
+		if (seconddircheck > firstdircheck)
+			direction = seconddir;
+		if (lastdircheck > seconddircheck && lastdircheck > firstdircheck)
+			direction = lastdir;
+		//now try making new head, even if it fails
+		if (new_tronhead(sim,x + tron_rx[direction],y + tron_ry[direction],i,direction) == -1)
+		{
+			//ohgod crash, <sparkle effect start here>
+			//trigger tail death for TRON_NODIE, or is that mode even needed? just set a high tail length(but it still won't start dying when it crashes)
+		}
+
+		//set own life and clear .tmp (it dies if it can't move anyway)
+		parts[i].life = parts[i].tmp2;
+		parts[i].tmp = 0;
+	}
+	else // fade tail deco, or prevent tail from dieing
+	{
+		if (parts[i].tmp&TRON_NODIE)
+			parts[i].life++;
+		parts[i].dcolour =  clamp_flt((float)parts[i].life/(float)parts[i].tmp2,0,1.0f) << 24 |  parts[i].dcolour&0x00FFFFFF;
+	}
+
+	return 0;
+}
diff --git a/src/simulation/ElementFunctions.h b/src/simulation/ElementFunctions.h
index 7f86424..b1d6409 100644
--- a/src/simulation/ElementFunctions.h
+++ b/src/simulation/ElementFunctions.h
@@ -109,6 +109,7 @@ int update_FRAY(UPDATE_FUNC_ARGS);
 int update_REPL(UPDATE_FUNC_ARGS);
 int update_NBLE(UPDATE_FUNC_ARGS);
 int update_GEL(UPDATE_FUNC_ARGS);
+int update_TRON(UPDATE_FUNC_ARGS);
 int update_legacy_PYRO(UPDATE_FUNC_ARGS);
 int update_legacy_all(UPDATE_FUNC_ARGS);
 int run_stickman(playerst* playerp, UPDATE_FUNC_ARGS);
@@ -168,6 +169,7 @@ int graphics_WIRE(GRAPHICS_FUNC_ARGS);
 int graphics_ACEL(GRAPHICS_FUNC_ARGS);
 int graphics_DCEL(GRAPHICS_FUNC_ARGS);
 int graphics_GEL(GRAPHICS_FUNC_ARGS);
+int graphics_TRON(GRAPHICS_FUNC_ARGS);
 int graphics_DEFAULT(GRAPHICS_FUNC_ARGS);
 
 #endif /* ELEMENTFUNCTIONS_H_ */
diff --git a/src/simulation/Elements.h b/src/simulation/Elements.h
index 6a62c11..fc90929 100644
--- a/src/simulation/Elements.h
+++ b/src/simulation/Elements.h
@@ -263,6 +263,7 @@
 #define PT_IGNT 140
 #define PT_BOYL 141
 #define PT_GEL 142
+#define PT_TRON 143
 
 #define OLD_PT_WIND 147
 #define PT_H2   148
diff --git a/src/simulation/Simulation.cpp b/src/simulation/Simulation.cpp
index 5101dfb..e8c9d75 100644
--- a/src/simulation/Simulation.cpp
+++ b/src/simulation/Simulation.cpp
@@ -2027,7 +2027,17 @@ int Simulation::create_part(int p, int x, int y, int tv)//the function for creat
 		parts[i].tmp = grule[v+1][9] - 1;
 		parts[i].ctype = v;
 	}
-
+	if (t==PT_TRON)
+	{
+		int rr,rg,rb;
+		int randhue = rand()%360;
+		int randomdir = rand()%4;
+		HSV_to_RGB(randhue,255,255,&rr,&rg,&rb);
+		parts[i].dcolour = 255<<24 | rr<<16 | rg<<8 | rb;
+		parts[i].tmp = 1|(randomdir<<2);//set as a head and a direction
+		parts[i].tmp2 = 4;//tail
+		parts[i].life = 5;
+	}
 	if (t==PT_DEUT)
 		parts[i].life = 10;
 	if (t==PT_MERC)
diff --git a/src/simulation/SimulationData.cpp b/src/simulation/SimulationData.cpp
index 46f3ee6..03e0344 100644
--- a/src/simulation/SimulationData.cpp
+++ b/src/simulation/SimulationData.cpp
@@ -332,7 +332,7 @@ part_type * LoadElements(int & elementCount)
 		{"IGNC",	PIXPACK(0xC0B050),	0.0f,	0.00f * CFDS,	0.90f,	0.00f,	0.0f,	0.0f,	0.00f,	0.000f	* CFDS,	0,	0,		0,	0,	1,	1,	1,	100,	SC_EXPLOSIVE,	R_TEMP+0.0f	+273.15f,	88,		"Ignition cord.", ST_SOLID, TYPE_SOLID | PROP_NEUTPENETRATE | PROP_SPARKSETTLE | PROP_LIFE_KILL, &update_IGNT, NULL},
 		{"BOYL",	PIXPACK(0x0A3200),	1.0f,	0.01f * CFDS,	0.99f,	0.30f,	-0.1f,	0.0f,	0.18f,	0.000f	* CFDS,	0,	0,		0,	0,	1,	1,	1,	1,		SC_GAS,			R_TEMP+2.0f	+273.15f,	42,		"Boyle, variable pressure gas. Expands when heated.", ST_GAS, TYPE_GAS, &update_BOYL, NULL},
 		{"GEL",  PIXPACK(0xFF9900),  0.6f,  0.01f * CFDS,  0.98f,  0.95f,  0.0f,  0.1f,  0.00f,  0.000f  * CFDS,  2,  0,    0,  0,  20,  1,  1,  35,    SC_LIQUID,    R_TEMP-2.0f  +273.15f,  29,    "Gel. A liquid with variable viscosity and heat conductivity", ST_LIQUID, TYPE_LIQUID|PROP_LIFE_DEC|PROP_NEUTPENETRATE, &update_GEL, &graphics_GEL},
-		/*FREE*/{"FRG2",	PIXPACK(0x00FF00),	0.0f,	0.00f * CFDS,	0.90f,	0.00f,	0.0f,	0.0f,	0.00f,	0.000f	* CFDS,	0,	0,		0,	0,	0,	0,	0,	100,	SC_LIFE,		9000.0f,				40,		"Like Frogs rule S124/B3/3", ST_NONE, TYPE_SOLID|PROP_LIFE, NULL, NULL},
+		{"TRON",  PIXPACK(0x000000),  0.0f,  0.00f * CFDS,  0.90f,  0.00f,  0.0f,  0.0f,  0.00f,  0.000f  * CFDS,  0,  0,    0,  0,  0,  1,  1,  100,  SC_SPECIAL,    0.0f,        40,    "An automaton tron snake thing", ST_NONE, TYPE_SOLID|PROP_LIFE_DEC|PROP_LIFE_KILL, &update_TRON, NULL},
 		/*FREE*/{"STAR",	PIXPACK(0x0000FF),	0.0f,	0.00f * CFDS,	0.90f,	0.00f,	0.0f,	0.0f,	0.00f,	0.000f	* CFDS,	0,	0,		0,	0,	0,	0,	0,	100,	SC_LIFE,		9000.0f,				40,		"Like Star Wars rule S3456/B278/6", ST_NONE, TYPE_SOLID|PROP_LIFE, NULL, NULL},
 		/*FREE*/{"FROG",	PIXPACK(0x00AA00),	0.0f,	0.00f * CFDS,	0.90f,	0.00f,	0.0f,	0.0f,	0.00f,	0.000f	* CFDS,	0,	0,		0,	0,	0,	0,	0,	100,	SC_LIFE,		9000.0f,				40,		"Frogs S12/B34/3", ST_NONE, TYPE_SOLID|PROP_LIFE, NULL, NULL},
 		/*FREE*/{"BRAN",	PIXPACK(0xCCCC00),	0.0f,	0.00f * CFDS,	0.90f,	0.00f,	0.0f,	0.0f,	0.00f,	0.000f	* CFDS,	0,	0,		0,	0,	0,	0,	0,	100,	SC_LIFE,		9000.0f,				40,		"Brian 6 S6/B246/3", ST_NONE, TYPE_SOLID|PROP_LIFE, NULL, NULL},
@@ -686,7 +686,7 @@ part_transition * LoadTransitions(int & transitionCount)
 		/* IGNP */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			673.0f,	PT_FIRE},
 		/* BOYL */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
 		/* GEL  */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
-		/*FREE*//* GOL  */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
+		/* TRON */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
 		/*FREE*//* GOL  */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
 		/*FREE*//* GOL  */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},
 		/*FREE*//* GOL  */ {IPL,	NT,			IPH,	NT,			ITL,	NT,			ITH,	NT},