summaryrefslogtreecommitdiff
path: root/world/map/npc/021-1/hetchel.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/021-1/hetchel.txt')
-rw-r--r--world/map/npc/021-1/hetchel.txt109
1 files changed, 109 insertions, 0 deletions
diff --git a/world/map/npc/021-1/hetchel.txt b/world/map/npc/021-1/hetchel.txt
new file mode 100644
index 00000000..9ccc8e9f
--- /dev/null
+++ b/world/map/npc/021-1/hetchel.txt
@@ -0,0 +1,109 @@
+// Hetchel the Silk Weaver
+// Hetchel is referred to by Lora Tay.
+// She weaves and sells standard double elbow square silk sheets.
+// She could also sell, dyed sheets, Silk robes from Lora Tay.
+// (6000 with cocoons, 40000 (?) with no cocoons).
+//
+// Hetchel's workshop is actually under repair, Shé'll be back in 021-2 when workers have finished their job.
+//
+// @SHEET_COCOONS_NR : Number of cocoons required per sheet.
+// Might ne calculated from @ROBE_COCOONS_NR/@ROBE_SHEETS_NR
+// Actually: 150∕6 = 25
+// @SHEET_ZENY : Money to pay per sheet: A sixth of 10000-2*500-6000
+
+021-1.gat,120,39,0|script|Hetchel|376,{
+ set @SHEET_COCOONS_NR, 25;
+ set @SHEET_ZENY, 500;
+ mes "[Hetchel the weaver]";
+ mes "\"Hello I am Hetchel, I weave fine textiles, what can I do for you?\"";
+ next;
+
+L_main_menu:
+ menu
+ "Sorry to bother, I'm new to this country, just visting.", L_end,
+ "I am looking for silk sheets, Lora Tay told me that I could find some in this market. Can you help?", -;
+// "Do you have any silk robe I could buy?", L_robe,
+// "Goodbye.", L_end;
+ next;
+ mes "[Hetchel the Weaver]";
+ mes "\"Sure but you need to provide raw materials.";
+ mes "I'll need " + @SHEET_COCOONS_NR +" silk cocoons per sheet, ";
+ mes "and also " + @SHEET_ZENY +" GP per sheet for my work.\"";
+ next;
+ if (countitem("SilkCocoon") == 0)
+ goto L_sheet_no_cocoon;
+
+L_sheet_menu:
+ menu
+ "I have what you asked for.", -,
+ "Sorry I didn't pay attention enough, what do you need?", L_how_many_cocoons,
+ "Oops! Sorry, I'll come back soon with them.", L_end;
+ next;
+
+L_sheet:
+ if (countitem("SilkCocoon") < @SHEET_COCOONS_NR)
+ goto L_sheet_missing_cocoons;
+ if (Zeny < @SHEET_ZENY)
+ goto L_sheet_missing_Zeny;
+ getinventorylist;
+ if (@inventorylist_count == 100 && countitem("SilkCocoon") > @SHEET_COCOONS_NR)
+ goto L_TooMany;
+ set Zeny, Zeny - @SHEET_ZENY;
+ delitem "SilkCocoon", @SHEET_COCOONS_NR;
+ getitem "Silksheet", 1;
+ mes "[Hetchel the Weaver]";
+ mes "\"Thank you, I hope the sheets will fit your needs.\"";
+ emotion EMOTE_HAPPY;
+ goto L_end;
+
+L_sheet_missing_cocoons:
+ mes "[Hetchel the Weaver]";
+ mes "\"I'm sorry, but I need " + @SHEET_COCOONS_NR + ", not " + countitem("SilkCocoon") + ".";
+ goto L_end;
+
+L_sheet_missing_Zeny:
+ mes "[Hetchel the Weaver]";
+ mes "\"No, no no. The way this works is that you give me the GP first and I give you the sheets afterwards.";
+ mes "You're " + (@SHEET_ZENY - Zeny) + " GP short, so come back when you can afford the sheet!\"";
+ goto L_end;
+
+L_how_many_cocoons:
+ mes "[Hetchel the Weaver]";
+ mes "\"I need an average of " + @SHEET_COCOONS_NR + " cocoons per sheet";
+ mes "and also " + @SHEET_ZENY + " GP per sheet for my work.\"";
+ next;
+ goto L_sheet_menu;
+
+L_sheet_no_cocoon:
+ mes "[Hetchel the Weaver]";
+ mes "\"You don't have any cocoon? I'm sorry I can't do anything for you.\"";
+ menu
+ "I'll seek for them.", L_end,
+ "Where can I get cocoons?", -;
+ next;
+ mes "[Hetchel the Weaver]";
+ mes "\"Silk cocoons come from Silkworms. Silkworms live in the woodland area around Hurnscald.";
+ mes "Silkworms like especially woods and dark areas. You can go there by ferry.\"";
+ goto L_end;
+
+//L_robe:
+// mes "[Hetchel the Weaver]";
+// mes "\"I am not a seamstress but I have a few silk robes from Lora Tay left.";
+// mes "It is not your size as Lora made them for me, but Tondar was kind enough";
+// mes "to cast a spell on it, so that it will fit to you as soon as you wear it.";
+// mes "However his prices are not that low.\"";
+// next;
+//
+//L_robe_menu:
+// goto L_main_menu;
+
+L_TooMany:
+ mes "[Hetchel the Weaver]";
+ mes "\"Your bag hasn't room enough. Store some things and come back.\"";
+
+L_end:
+ set @SHEET_COCOONS_NR, 0;
+ set @SHEET_ZENY, 0;
+ close;
+}
+