Move to a subdirectory

1 files changed, 54 insertions, 0 deletions

diff --git a/world/map/npc/021-2/jhedia.txt b/world/map/npc/021-2/jhedia.txt
new file mode 100644
index 00000000..b4ec8380
--- /dev/null
+++ b/world/map/npc/021-2/jhedia.txt
@@ -0,0 +1,54 @@
+// Ingot maker takes iron ore, gives ingots for future crafting purposes.
+
+021-2.gat,23,55,0	script	Jhedia	160,{
+
+	set @Cost_Per_Ingot, 1000;
+	set @Iron_Ore_Per, 5;
+	set @Coal_Per, 10;
+
+	mes "[Jhedia]";
+	mes "\"I forge Iron Ore into ingots.  Ingots are more useful for skilled smiths, like armorers, because the ore is refined and made into useful units which can be worked with.  To make ingots, I need " + @Iron_Ore_Per + " Iron Ore and " + @Cost_Per_Ingot + " gp per ingot. I also need " + @Coal_Per + " Coal for my forge.\"";
+	next;
+	mes "[Jhedia]";
+	mes "\"How many ingots would you like?\"";
+	input @ingot_count;
+
+	if (@ingot_count == 0) goto L_Jhedia_Bye;
+	set @Zeny_cost, @ingot_count * @Cost_Per_Ingot;
+	if (countitem("IronOre") < @Iron_Ore_Per * @ingot_count) goto L_Jhedia_NotEnough_Ore;
+	if (countitem("Coal") < @Coal_Per * @ingot_count) goto L_Jhedia_NotEnough_Coal;
+	if (zeny < @Zeny_cost) goto L_Jhedia_NotEnough_Zeny;
+	getinventorylist;
+	if (@inventorylist_count == 100 && countitem("IngotIron") == 0 && countitem("IronOre") > @ingot_count * @Iron_Ore_Per | countitem("Coal") > @ingot_count * @Coal_Per) goto L_Jhedia_NotEnoughSlots;
+	set zeny, zeny - @Zeny_cost;
+	delitem "IronOre", @ingot_count * @Iron_Ore_Per;
+	delitem "Coal", @ingot_count * @Coal_Per;
+	getitem "IngotIron", @ingot_count;
+	close;
+
+L_Jhedia_Bye:
+	mes "[Jhedia]";
+	mes "\"Goodbye then.\"";
+	close;
+
+L_Jhedia_NotEnough_Ore:
+	mes "[Jhedia]";
+	mes "\"You do not seem to have enough Iron Ore.\"";
+	close;
+
+L_Jhedia_NotEnough_Coal:
+	mes "[Jhedia]";
+	mes "\"You do not seem to have enough Coal.\"";
+	close;
+
+L_Jhedia_NotEnough_Zeny:
+	mes "[Jhedia]";
+	mes "\"You do not seem to have enough gold pieces.\"";
+	close;
+
+L_Jhedia_NotEnoughSlots:
+	mes "[Jhedia]";
+	mes "\"You do not seem to have enough room to carry this many ingots.\"";
+	close;
+
+}