Clean the dyer/bleacher scripts:

 * Add punctuation in menus
 * Format label name to the apparent script convention
 * Move the sorcerer robes variants into a submenu
 * Remove the color array and use a hard-coded menu for the colors

1 files changed, 53 insertions, 45 deletions

diff --git a/world/map/npc/009-2/selim.txt b/world/map/npc/009-2/selim.txt
index 0f01da40..a919240c 100644
--- a/world/map/npc/009-2/selim.txt
+++ b/world/map/npc/009-2/selim.txt
@@ -7,7 +7,6 @@
 
 009-2.gat,32,104,0|script|Selim|326,{
     setarray @all_colours$, "red", "green", "dark blue", "yellow", "light blue", "pink", "black", "orange", "purple", "dark green";
-    setarray @all_colours_cap$, "Red", "Green", "Dark Blue", "Yellow", "Light Blue", "Pink", "Black", "Orange", "Purple", "Dark Green";
 
     mes "[Selim]";
     mes "\"What can I dye for you today?\"";
@@ -18,36 +17,26 @@ L_clothes_choice:
     set @pronoun$, "it";
     set @is_verb$, "is";
     menu
-        "Cotton shirt", L_cottonshirt,
-        "V-Neck sweater", L_vneck,
-        "Turtleneck sweater", L_tneck,
-        "Cotton shorts", L_shorts,
-        "Cotton trousers", L_trousers,
-        "Cotton skirt", L_skirt,
-        "Miniskirt", L_miniskirt,
-        "Tank top ", L_tanktop,
-        "Short tank top", L_tanktop_short,
-        "Silk robe", L_robe,
-        "Cotton headband", L_headband,
-        "Desert hat", L_desert_hat,
-        "Cotton boots", L_cottonboots,
-        "Cotton gloves", L_cottongloves,
-        "Rabbit ears", L_rabbitears,
-        "Wizard hat", L_wizardhat,
-        "Bowler hat", L_bowlerhat,
-        "Red lined sorcerer robe", L_redlinedsorcererrobe,
-        "Green lined sorcerer robe", L_greenlinedsorcererrobe,
-        "Dark blue lined sorcerer robe", L_darkbluelinedsorcererrobe,
-        "Yellow lined sorcerer robe", L_yellowlinedsorcererrobe,
-        "Light blue lined sorcerer robe", L_lightbluelinedsorcererrobe,
-        "Pink lined sorcerer robe", L_pinklinedsorcererrobe,
-        "Black lined sorcerer robe", L_blacklinedsorcererrobe,
-        "Orange lined sorcerer robe", L_orangelinedsorcererrobe,
-        "Purple lined sorcerer robe", L_purplelinedsorcererrobe,
-        "Dark green lined sorcerer robe", L_darkgreenlinedsorcererrobe,
-        "White lined sorcerer robe", L_whitelinedsorcererrobe,
-        "Bowler hat (brown)", L_bowlerhatbrown,
-        "Fine dress", L_finedress,
+        "Cotton shirt.", L_cottonshirt,
+        "V-Neck sweater.", L_vneck,
+        "Turtleneck sweater.", L_tneck,
+        "Cotton shorts.", L_shorts,
+        "Cotton trousers.", L_trousers,
+        "Cotton skirt.", L_skirt,
+        "Miniskirt.", L_miniskirt,
+        "Tank top.", L_tanktop,
+        "Short tank top.", L_tanktop_short,
+        "Silk robe.", L_robe,
+        "Cotton headband.", L_headband,
+        "Desert hat.", L_desert_hat,
+        "Cotton boots.", L_cottonboots,
+        "Cotton gloves.", L_cottongloves,
+        "Rabbit ears.", L_rabbitears,
+        "Wizard hat.", L_wizardhat,
+        "Bowler hat.", L_bowlerhat,
+        "Sorcerer robe.", L_sorcererrobe,
+        "Bowler hat (brown).", L_bowlerhatbrown,
+        "Fine dress.", L_finedress,
         "About these sorcerer robes...", L_asksorcererrobe,
         "I'm fine for now, thanks.", -;
     close;
@@ -160,6 +149,25 @@ L_bowlerhat:
     set @name$, "bowler hat";
     goto L_picked_item;
 
+L_sorcererrobe:
+    mes "[Selim]";
+    mes "\"Which one?\"";
+    next;
+    menu
+        "A red lined one.", L_redlinedsorcererrobe,
+        "A green lined one.", L_greenlinedsorcererrobe,
+        "A dark blue lined one.", L_darkbluelinedsorcererrobe,
+        "A yellow lined one.", L_yellowlinedsorcererrobe,
+        "A light blue lined one.", L_lightbluelinedsorcererrobe,
+        "A pink lined one.", L_pinklinedsorcererrobe,
+        "A black lined one.", L_blacklinedsorcererrobe,
+        "An orange lined one.", L_orangelinedsorcererrobe,
+        "A purple lined one.", L_purplelinedsorcererrobe,
+        "A dark green lined one.", L_darkgreenlinedsorcererrobe,
+        "A white lined one.", L_whitelinedsorcererrobe,
+        "I'm fine for now, thanks.", -;
+    close;
+
 L_redlinedsorcererrobe:
     set @del, 798;
     set @new, 2220;
@@ -272,20 +280,20 @@ L_colour:
     mes "\"Excellent.  Now, what color do you want?\"";
     next;
     menu
-        @all_colours_cap$[0], -,
-        @all_colours_cap$[1], -,
-        @all_colours_cap$[2], -,
-        @all_colours_cap$[3], -,
-        @all_colours_cap$[4], -,
-        @all_colours_cap$[5], -,
-        @all_colours_cap$[6], -,
-        @all_colours_cap$[7], -,
-        @all_colours_cap$[8], -,
-        @all_colours_cap$[9], -;
-        set @colour, @menu - 1;
-        set @vial, 690 + @colour;
-        if (countitem(@vial) == 0) goto L_no_dye;
-        goto L_finish;
+        "Red.", -,
+        "Green.", -,
+        "Dark Blue.", -,
+        "Yellow.", -,
+        "Light Blue.", -,
+        "Pink.", -,
+        "Black.", -,
+        "Orange.", -,
+        "Purple.", -,
+        "Dark Green.", -;
+    set @colour, @menu - 1;
+    set @vial, 690 + @colour;
+    if (countitem(@vial) == 0) goto L_no_dye;
+    goto L_finish;
 
 L_no_dye:
     mes "[Selim]";