update selim

1 files changed, 19 insertions, 5 deletions

diff --git a/world/map/npc/009-2/selim.txt b/world/map/npc/009-2/selim.txt
index f9dc3b40..7ede82c7 100644
--- a/world/map/npc/009-2/selim.txt
+++ b/world/map/npc/009-2/selim.txt
@@ -15,8 +15,16 @@
     setarray @items_new,   5131,           2250,           2060,             2070,                 2110,            2180,              2100,           2170,        2090,       2120,             2080,        2140,              2130,         2150,           2160,            2190,                2200,         2210,         2230,                 2240,         5131,                2220,                      5000,                        5011,                            5022,                         5033,                             5044,                       5055,                        5066,                         5077,                         5088,                             5099;
     setarray @items$,      "CottonShirt",  "CottonCloth",  "VNeckSweater",   "TurtleneckSweater",  "CottonShorts",  "CottonTrousers",  "CottonSkirt",  "Miniskirt", "TankTop",  "ShortTankTop",   "SilkRobe",  "CottonHeadband",  "DesertHat",  "CottonBoots",  "CottonGloves",  "WhiteRabbitEars",   "WizardHat",  "BowlerHat",  "BowlerHatBrown",     "FineDress",  "ContributorShirt",  "SorcererRobeRed",         "SorcererRobeGreen",         "SorcererRobeDarkBlue",          "SorcererRobeYellow",         "SorcererRobeLightBlue",          "SorcererRobePink",         "SorcererRobeBlack",         "SorcererRobeOrange",         "SorcererRobePurple",         "SorcererRobeDarkGreen",          "SorcererRobeWhite";
     setarray @item_names$, "Cotton Shirt", "Cotton Cloth", "V-Neck Sweater", "Turtleneck Sweater", "Cotton Shorts", "Cotton Trousers", "Cotton Skirt", "Miniskirt", "Tank Top", "Short Tank Top", "Silk Robe", "Cotton Headband", "Desert Hat", "Cotton Boots", "Cotton Gloves", "White Rabbit Ears", "Wizard Hat", "Bowler Hat", "Bowler Hat (brown)", "Fine Dress", "Contributor Shirt", "Red lined Sorcerer Robe", "Green lined Sorcerer Robe", "Dark Blue lined Sorcerer Robe", "Yellow lined Sorcerer Robe", "Light Blue lined Sorcerer Robe", "Pink lined Sorcerer Robe", "Black lined Sorcerer Robe", "Orange lined Sorcerer Robe", "Purple lined Sorcerer Robe", "Dark Green lined Sorcerer Robe", "White lined Sorcerer Robe";
-    set @default_choice$, "About these sorcerer robes...";
-    goto L_clothes_choice;
+    goto L_Main;
+
+L_Main:
+    mes "[Selim]";
+    mes "\"What can I do for you?\"";
+    menu
+        "Can you dye something for me?", L_clothes_choice,
+        "Can you tell me about dyes?", L_ask_dye,
+        "About these sorcerer robes...", L_asksorcererrobe,
+        "Never mind.", L_Close;
 
 L_clothes_choice:
     mes "[Selim]";
@@ -29,7 +37,7 @@ L_clothes_choice:
     set @name$, @item_names$[@index];
     cleararray @items$, "", getarraysize(@items$);
     cleararray @item_names$, "", getarraysize(@item_names$);
-    if(@item$ == "") goto L_asksorcererrobe;
+    if(@item$ == "") goto L_Close;
     goto L_picked_item;
 
 
@@ -89,13 +97,19 @@ L_no_dye:
         "Where would I get dye?", L_explain_dye,
         "Never mind.", L_Close;
 
+L_ask_dye:
+    mes "[Selim]";
+    mes "\"blabla\"";
+    menu
+        "Could you give me some dye?", L_explain_dye;
+
 L_explain_dye:
     if (QUEST_clothdyer_knowsdye < 1)
         set QUEST_clothdyer_knowsdye, 1;
     mes "[Selim]";
     mes "\"Well, dye is very expensive, and since I don't charge adventurers anything, I can't give you any for free.";
     mes "But most alchemists can make dye; perhaps you can find one around here.\"";
-    close;
+    goto L_Close;
 
 L_finish:
     delitem @vial, 1;
@@ -103,7 +117,7 @@ L_finish:
     getitem @item_new + @colour, 1;
     mes "[Selim]";
     mes "\"Here's your " + @all_colours$[@colour] + " " + @name$ + "!  Please let dry for a minute.\"";
-    close;
+    goto L_Close;
 
 L_havenone:
     mes "[Selim]";