From: cohrs <cohrs>
Date: Mon, 18 Mar 2002 06:46:01 +0000 (+0000)
Subject: kelp fronds are not gems
X-Git-Tag: MOVE2GIT~2941
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=104814e2c894d1c0b092a1e62131e8649efcd394;p=nethack

kelp fronds are not gems
- mksobj had a misplaced test for KELP_FROND in the GEM_CLASS code, moved
to the FOOD_CLASS code
---

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;