From a023cf16f0ec841620c975862cb5a96de99c577f Mon Sep 17 00:00:00 2001 From: The Kandiman Date: Mon, 5 Sep 2011 00:59:06 -0400 Subject: Tab conversion project. Maps 007-1 to 010-2 complete. --- world/map/npc/009-2/selim.txt | 299 +++++++++++++++++++++--------------------- 1 file changed, 151 insertions(+), 148 deletions(-) (limited to 'world/map/npc/009-2/selim.txt') diff --git a/world/map/npc/009-2/selim.txt b/world/map/npc/009-2/selim.txt index dc7d29df..aad7ff24 100644 --- a/world/map/npc/009-2/selim.txt +++ b/world/map/npc/009-2/selim.txt @@ -5,206 +5,209 @@ //# # //################################################################################# -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"; +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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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; + 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], -; + 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; + 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; + 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; + 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; + 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; } -- cgit v1.2.3-70-g09d2