From 104814e2c894d1c0b092a1e62131e8649efcd394 Mon Sep 17 00:00:00 2001
From: cohrs <cohrs>
Date: Mon, 18 Mar 2002 06:46:01 +0000
Subject: [PATCH] kelp fronds are not gems - mksobj had a misplaced test for
 KELP_FROND in the GEM_CLASS code, moved to the FOOD_CLASS code

---
 src/mkobj.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mkobj.c b/src/mkobj.c
index aa80a7743..ea9320175 100644
--- a/src/mkobj.c
+++ b/src/mkobj.c
@@ -445,6 +445,9 @@ boolean artif;
 	    case SLIME_MOLD:
 		otmp->spe = current_fruit;
 		break;
+	    case KELP_FROND:
+		otmp->quan = (long) rnd(2);
+		break;
 	    }
 	    if (otmp->otyp == CORPSE || otmp->otyp == MEAT_RING) break;
 	    /* fall into next case */
@@ -452,7 +455,6 @@ boolean artif;
 	case GEM_CLASS:
 		if (otmp->otyp == LOADSTONE) curse(otmp);
 		else if (otmp->otyp == ROCK) otmp->quan = (long) rn1(6,6);
-		else if (otmp->otyp == KELP_FROND) otmp->quan = (long) rnd(2);
 		else if (otmp->otyp != LUCKSTONE && !rn2(6)) otmp->quan = 2L;
 		else otmp->quan = 1L;
 		break;