From bad63a0d36eb20aa1d4b93deb9a65c2488460289 Mon Sep 17 00:00:00 2001
From: Pasi Kallinen <paxed@alt.org>
Date: Sun, 14 Apr 2024 10:14:27 +0300
Subject: [PATCH] Hallu Banana

---
 src/apply.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/apply.c b/src/apply.c
index 6c18cb039..63fcdc964 100644
--- a/src/apply.c
+++ b/src/apply.c
@@ -4076,6 +4076,9 @@ apply_ok(struct obj *obj)
         || obj->otyp == LUMP_OF_ROYAL_JELLY)
         return GETOBJ_SUGGEST;
 
+    if (obj->otyp == BANANA && Hallucination)
+        return GETOBJ_DOWNPLAY;
+
     if (is_graystone(obj)) {
         /* The only case where we don't suggest a gray stone is if we KNOW it
            isn't a touchstone. */
@@ -4284,6 +4287,12 @@ doapply(void)
     case TOUCHSTONE:
         res = use_stone(obj);
         break;
+    case BANANA:
+        if (Hallucination) {
+            pline("It rings! ... But no-one answers.");
+            break;
+        }
+        /*FALLTHRU*/
     default:
         /* Pole-weapons can strike at a distance */
         if (is_pole(obj)) {