From 40abad4cca553e90ddca1ee6239c46c7ea35d646 Mon Sep 17 00:00:00 2001
From: Simon <simon@hardwired.org.uk>
Date: Fri, 1 Apr 2011 15:21:11 +0100
Subject: [PATCH] Fix Neutrons and clone types

---
 src/elements/neut.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/elements/neut.c b/src/elements/neut.c
index a97701dc4..65cce80af 100644
--- a/src/elements/neut.c
+++ b/src/elements/neut.c
@@ -1,7 +1,7 @@
 #include <element.h>
 
 int update_NEUT(UPDATE_FUNC_ARGS) {
-	int r, rx, ry;
+	int r, rx, ry, rt;
 	int pressureFactor = 3 + (int)pv[y/CELL][x/CELL];
 	for (rx=-1; rx<2; rx++)
 		for (ry=-1; ry<2; ry++)
@@ -84,5 +84,11 @@ int update_NEUT(UPDATE_FUNC_ARGS) {
 				  ptypes[parts[r>>8].type-1].menusection==SC_POWDERS) && 15>(rand()%1000))
 				  parts[r>>8].type--;*/
 			}
+	r = pmap[y][x];
+	rt = r&0xFF;
+	if (rt==PT_CLNE || rt==PT_PCLN || rt==PT_BCLN) {
+		if (!parts[r>>8].ctype)
+			parts[r>>8].ctype = PT_PHOT;
+	}
 	return 0;
 }