diff options
Diffstat (limited to 'npc/009-2/selim.txt')
| -rw-r--r-- | npc/009-2/selim.txt | 210 |
1 files changed, 0 insertions, 210 deletions
diff --git a/npc/009-2/selim.txt b/npc/009-2/selim.txt deleted file mode 100644 index dc7d29df..00000000 --- a/npc/009-2/selim.txt +++ /dev/null @@ -1,210 +0,0 @@ -//################################################################################# -//# # -//# 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; -} |