summaryrefslogtreecommitdiff
path: root/world/map/npc/009-2/selim.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/009-2/selim.txt')
-rw-r--r--world/map/npc/009-2/selim.txt299
1 files changed, 151 insertions, 148 deletions
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;
}
generated by cgit v1.2.3-60-g2f50 (git 2.42.0) at 2024-06-26 16:16:27 +0000