1 files changed, 30 insertions, 0 deletions
diff --git a/world/map/npc/functions/barber.txt b/world/map/npc/functions/barber.txt
index 2413e0fe..effa3436 100644
--- a/world/map/npc/functions/barber.txt
+++ b/world/map/npc/functions/barber.txt
@@ -34,8 +34,38 @@ L_Main:
     menu
         "Change my style", L_Style,
         "Change my color", L_Color,
+        "Change my gender", L_Gender,
         "Nah, I'm fine", L_Done;
 
+L_Gender:
+    menu
+        "Female.", L_Female,
+        "Male.", L_Male,
+        "Non-binary.", L_NonBinary,
+        "Nah, I'm fine", L_Done;
+
+L_Female:
+    set @sex, 0;
+    goto L_Change;
+
+L_Male:
+    set @sex, 1;
+    goto L_Change;
+
+L_NonBinary:
+    set @sex, 3;
+    goto L_Change;
+
+L_Change:
+    if (Sex == @sex)
+        goto L_Already_Change;
+    set Sex, @sex;
+    return;
+
+L_Already_Change:
+    mes "\"Umm, you are that gender already.\"";
+    return;
+
 L_Style:
     if(!@hairOpts) set @HairStyles$[getarraysize(@HairStyles$)], "Surprise me";
     if(!@hairOpts) set @HairStyles$[getarraysize(@HairStyles$)], "Nah, I'm fine";