From d0bf55ba0e852ecdc51464937910785757bf2cea Mon Sep 17 00:00:00 2001
From: Fedja Beader <fedja@protonmail.ch>
Date: Tue, 2 Apr 2024 19:23:26 +0200
Subject: Announce new style when "Surprise me" is used.

---
 world/map/npc/functions/barber.txt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/world/map/npc/functions/barber.txt b/world/map/npc/functions/barber.txt
index dbc7614b..311bbb85 100644
--- a/world/map/npc/functions/barber.txt
+++ b/world/map/npc/functions/barber.txt
@@ -138,6 +138,10 @@ L_RandomStyle:
     if(@randomStyle[0] == @style && @randomStyle[1] < 15) goto L_RandomStyle;
     setlook LOOK_HAIR_STYLE, @randomStyle[0];
     setarray @randomStyle[1], 0;
+
+    set .@style$, @HairStyles$[(@randomStyle[0] - 1)];
+    mes "Your new style is " + .@style$;
+
     menu
         "Surprise me once again", L_RandomStyle,
         "Go back", L_MainClear,
-- 
cgit v1.2.3-60-g2f50