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