Move to a subdirectory

1 files changed, 210 insertions, 0 deletions

diff --git a/world/map/npc/009-2/selim.txt b/world/map/npc/009-2/selim.txt
new file mode 100644
index 00000000..dc7d29df
--- /dev/null
+++ b/world/map/npc/009-2/selim.txt
@@ -0,0 +1,210 @@
+//#################################################################################
+//#                                                                               #
+//# This script file contains the script for the cloth dyer.   It has been        #
+//# revised to require dye items; collaborating NPCs are Selim and Angus.         #
+//#                                                                               #
+//#################################################################################
+
+009-2.gat,32,104,0	script	Selim	142,{
+	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?\"";
+        set QUEST_clothdyer_state, 3;
+	next;
+
+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 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,
+		"Bowler hat (brown)", L_bowlerhatbrown,
+		"I'm fine for now, thanks.", -;
+	close;
+
+L_cottonshirt:
+	set @del, 1202;
+	set @new, 2050;
+        set @name$, "cotton shirt";
+	goto L_picked_item;
+
+L_vneck:
+	set @del, 624;
+	set @new, 2060;
+        set @name$, "V-neck sweater";
+	goto L_picked_item;
+
+L_tneck:
+	set @del, 564;
+	set @new, 2070;
+        set @name$, "turtleneck sweater";
+	goto L_picked_item;
+
+L_shorts:
+	set @del, 586;
+	set @new, 2110;
+        set @name$, "cotton shorts";
+        set @pronoun$, "them";
+        set @is_verb$, "are";
+	goto L_picked_item;
+
+L_skirt:
+	set @del, 632;
+	set @new, 2100;
+        set @name$, "cotton skirt";
+	goto L_picked_item;
+
+L_miniskirt:
+	set @del, 771;
+	set @new, 2170;
+        set @name$, "miniskirt";
+	goto L_picked_item;
+
+L_tanktop:
+	set @del, 688;
+	set @new, 2090;
+        set @name$, "tanktop";
+	goto L_picked_item;
+
+L_tanktop_short:
+	set @del, 689;
+	set @new, 2120;
+        set @name$, "short tanktop";
+	goto L_picked_item;
+
+L_robe:
+	set @del, 720;
+	set @new, 2080;
+        set @name$, "silk robe";
+	goto L_picked_item;
+
+L_headband:
+	set @del, 724;
+	set @new, 2140;
+        set @name$, "cotton headband";
+	goto L_picked_item;
+
+L_desert_hat:
+	set @del, 723;
+	set @new, 2130;
+        set @name$, "desert hat";
+	goto L_picked_item;
+
+L_cottonboots:
+	set @del, 735;
+	set @new, 2150;
+	set @name$, "cotton boots";
+	goto L_picked_item;
+
+L_cottongloves:
+	set @del, 741;
+	set @new, 2160;
+	set @name$, "cotton gloves";
+	goto L_picked_item;
+
+L_rabbitears:
+	set @del, 1255;
+	set @new, 2190;
+	set @name$, "rabbit ears";
+        set @pronoun$, "them";
+        set @is_verb$, "are";
+	goto L_picked_item;
+
+L_wizardhat:
+	set @del, 4028;
+	set @new, 2200;
+	set @name$, "wizard hat";
+	goto L_picked_item;
+
+L_bowlerhat:
+	set @del, 4030;
+	set @new, 2210;
+	set @name$, "bowler hat";
+	goto L_picked_item;
+
+L_redlinedsorcererrobe:
+	set @del, 798;
+	set @new, 2220;
+	set @name$, "red lined sorcerer robe";
+	goto L_picked_item;
+
+L_bowlerhatbrown:
+	set @del, 800;
+	set @new, 2230;
+	set @name$, "bowler hat (brown)";
+	goto L_picked_item;
+
+L_picked_item:
+	if (countitem(@del) == 0) goto L_havenone;
+L_colour:
+        mes "[Selim]";	
+	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;
+
+L_no_dye:
+        mes "[Selim]";	
+        mes "\"I would love to dye your " + @name$ + " for you, but you will have to bring me some " + @all_colours$[@colour] + " dye first.\"";
+        next;
+        menu
+        	"Sorry, I meant a different color.", L_colour,
+                "I wanted to dye a different item anyway.", L_clothes_choice,
+                "What do you mean, `bring you dye'?", L_explain_dye,
+                "Where would I get dye?", L_explain_dye,
+        	"Never mind.", -;
+        close;
+
+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;
+
+L_finish:
+	if (countitem(@del) == 0) goto L_havenone;
+	delitem @vial, 1;
+	delitem @del, 1;
+	getitem @new + @colour, 1;
+        mes "[Selim]";	
+	mes "\"Here " + @is_verb$ + " your " + @all_colours$[@colour] + " " + @name$ + "!  Please let " + @pronoun$ + " dry for a minute before you put " + @pronoun$ + " on.\"";
+	close;
+
+L_havenone:
+        mes "[Selim]";	
+	mes "\"You don't have any uncolored " + @name$ + "?  That's unfortunate.";
+	mes "Would you like to dye something else?\"";
+        next;
+        goto L_clothes_choice;	
+}