Balancing of arrows

- A bigger damage difference of Iron arrows to standard arrows,
  without changed prizes:
  standard arrow is 20 dmg for 3 gp each
      iron arrow is 60 dmg for 5 gp each

- rework of the terranite arrow quest:
  - introducing local variables to easily set prizes for terra arrows.
  - lowering the prizes for terra arrows (in item_db: sell value reduced from 400 to 20)
  - reducing the needed stuff for 1k arrows: now set: 1 terra ore, 5 coal, and 3k gp
    (old values for 1k arrows: 10 terra ore, 20 coal, 10k gp)

1 files changed, 25 insertions, 20 deletions

diff --git a/npc/021-2_Tulimshar/heathin.txt b/npc/021-2_Tulimshar/heathin.txt
index 5d675e3c..270d510a 100644
--- a/npc/021-2_Tulimshar/heathin.txt
+++ b/npc/021-2_Tulimshar/heathin.txt
@@ -1,7 +1,11 @@
 //Items for NPC are incomplete.  Makes "simple ring" which can be crafted into a useful ring by Inya and terranite armor.
 
 021-2.gat,29,55,0	script	Heathin	147,{
-	
+
+	set @TARROW_REQ_TERRA_ORE, 1;
+	set @TARROW_REQ_COAL, 5;
+	set @TARROW_REQ_GP, 3000;
+
 	if (HEATHIN_QUEST == 14) && (baselevel >= 80) goto L_Heathin_Terranite_Arrows_Trade;
 	if (HEATHIN_QUEST == 13) && (baselevel >= 80) goto L_Heathin_Terranite_Arrows_Ready;
 	if (HEATHIN_QUEST == 12) && (baselevel >= 80) goto L_Heathin_Terranite_Arrows_Forge;
@@ -94,7 +98,7 @@ L_Heathin_Terranite_Hood:
 	mes "\"Hello again friend, I just found out about this great metal called terranite.\"";
 	next;
 	mes "\"This metal is almost as strong as steel, but is also very ductile.\"";
-	next; 
+	next;
 	mes "\"With some effort, I can make this metal form rings tighter than any chain mail.  It isn't the prettiest in hue, but its uses can be many.\"";
 	next;
 	mes "\"Unfortunately, it seems to be difficult to gather.  Most that have searched for [Terranite Ore] either cannot find it or have never returned...\"";
@@ -116,7 +120,7 @@ L_Heathin_Terranite_Yes:
 	set HEATHIN_QUEST, 3;
 	mes "[Heathin]";
 	mes "\"Great, this is going to be fun!  As I have not had much practice with this armor, I'd like to get started soon.\"";
-	next; 
+	next;
 	mes "Heathin thinks for a moment.";
 	next;
 	mes "\"Ah, I know!  I will make a helm...  Well, more like a hood, since it will be woven.\"";
@@ -175,7 +179,7 @@ L_Heathin_Terranite_Legs_Ready:
 	mes "[Heathin]";
 	mes "\"I am all done with your terranite pants.  Hope you enjoy them!  I have some more work to complete for the Council.  Come back later and I might be able to assist you again.\"";
 	close;
-	
+
 L_Heathin_Terranite_Chest_Armor:
 	set HEATHIN_QUEST, 9;
 	mes "[Heathin]";
@@ -224,36 +228,36 @@ L_Heathin_Terranite_Arrows_No:
 L_Heathin_Terranite_Arrows_Yes:
 	set HEATHIN_QUEST, 12;
 	mes "[Heathin]";
-	mes "\"Good, good.  I shall begin crafting these arrows as soon as you come back.  However, I cannot just make small handfuls as it would not be worth my time and effort to have my concentration interrupted for small tasks.  I will make 1,000 [Terranite Arrow]s per request, for which I will need 10 [Terranite Ore], 20 [Coal] and 10,000 gold pieces.\"";
+	mes "\"Good, good.  I shall begin crafting these arrows as soon as you come back.  However, I cannot just make small handfuls as it would not be worth my time and effort to have my concentration interrupted for small tasks.  I will make 1,000 [Terranite Arrow]s per request, for which I will need "+@TARROW_REQ_TERRA_ORE+" [Terranite Ore], "+@TARROW_REQ_COAL+" [Coal] and "+@TARROW_REQ_GP+" gold pieces.\"";
 	next;
 	mes "\"See you soon!\"";
 	close;
 
 L_Heathin_Terranite_Arrows_Forge:
-	if ( (zeny < 10000) | (countitem("Coal") < 20) | (countitem("TerraniteOre") < 10) ) goto L_Heathin_Terranite_Arrows_Wait;
+	if ( (zeny < @TARROW_REQ_GP) | (countitem("Coal") < @TARROW_REQ_COAL) | (countitem("TerraniteOre") < @TARROW_REQ_TERRA_ORE) ) goto L_Heathin_Terranite_Arrows_Wait;
 	set HEATHIN_QUEST, 13;
-	delitem "Coal", 20;
-	delitem "TerraniteOre", 10;
-	set zeny, zeny - 10000;
+	delitem "Coal", @TARROW_REQ_COAL;
+	delitem "TerraniteOre", @TARROW_REQ_TERRA_ORE;
+	set zeny, zeny - @TARROW_REQ_GP;
 	mes "[Heathin]";
 	mes "\"Wonderful! You have everything I asked for.  I will start working on the arrows right away.\"";
 	close;
 
 L_Heathin_Terranite_Arrows_Wait:
 	mes "[Heathin]";
-	mes "\"If you want [Terranite Arrow]s, please get me 10 [Terranite Ore], 20 [Coal] and 10,000 gold pieces.\"";
+	mes "\"If you want [Terranite Arrow]s, please get me "+@TARROW_REQ_TERRA_ORE+" [Terranite Ore], "+@TARROW_REQ_COAL+" [Coal] and "+@TARROW_REQ_GP+" gold pieces.\"";
 	close;
 
 L_Heathin_Terranite_Arrows_Ready:
 	getitem "TerraniteArrow", 1000;
 	set HEATHIN_QUEST, 14;
 	mes "[Heathin]";
-	mes "\"All done, here you go!  I hope you like them.  I am still working on my commission, but if you ever need any more [Terranite Arrow]s, just come on by with 20 [Coal], 10 [Terranite Ore] and 10,000 gold pieces and I will make another 1,000 arrows for you.  By now I have enough [Terranite Ore] in reserve that you can just trade me my requirements to keep my resources up.  Thank you for all your efforts!\"";
+	mes "\"All done, here you go!  I hope you like them.  I am still working on my commission, but if you ever need any more [Terranite Arrow]s, just come on by with "+@TARROW_REQ_COAL+" [Coal], "+@TARROW_REQ_TERRA_ORE+" [Terranite Ore] and "+@TARROW_REQ_GP+" gold pieces and I will make another 1,000 arrows for you.  By now I have enough [Terranite Ore] in reserve that you can just trade me my requirements to keep my resources up.  Thank you for all your efforts!\"";
 	close;
 
 L_Heathin_Terranite_Arrows_Trade:
 	mes "[Heathin]";
-	mes "\"Hello, there.  If you have 20 [Coal], 10 [Terranite Ore] and 10,000 gold pieces, I will trade you 1,000 [Terranite Arrow]s.  Would you like some [Terranite Arrow]s?\"";
+	mes "\"Hello, there.  If you have "+@TARROW_REQ_COAL+" [Coal], "+@TARROW_REQ_TERRA_ORE+" [Terranite Ore] and "+@TARROW_REQ_GP+" gold pieces, I will trade you 1,000 [Terranite Arrow]s.  Would you like some [Terranite Arrow]s?\"";
 	menu
 		"No.", L_Heathin_Terranite_Arrows_Trade_No,
 		"Yes.", L_Heathin_Terranite_Arrows_Trade_Yes;
@@ -265,18 +269,19 @@ L_Heathin_Terranite_Arrows_Trade_No:
 	close;
 
 L_Heathin_Terranite_Arrows_Trade_Yes:
-	if ( (zeny < 10000) | (countitem("Coal") < 20) | (countitem("TerraniteOre") < 10) ) goto L_Heathin_Terranite_Arrows_Trade_Wait;
-	delitem "Coal", 20;
-	delitem "TerraniteOre", 10;
-	set zeny, zeny - 10000;
-	getitem "TerraniteArrow", 1000;
-	mes "[Heathin]";
-	mes "\"Here you go!  Come back again if you want more [Terranite Arrow]s.\"";
+	if ( (zeny < @TARROW_REQ_GP) | (countitem("Coal") < @TARROW_REQ_COAL) | (countitem("TerraniteOre") < @TARROW_REQ_TERRA_ORE) ) goto L_Heathin_Terranite_Arrows_Trade_Wait;
+	delitem "Coal", @TARROW_REQ_COAL;
+	delitem "TerraniteOre", @TARROW_REQ_TERRA_ORE;
+	set zeny, zeny - @TARROW_REQ_GP;
+	set @lucky, 5 * rand(readparam(bLuk));
+	getitem "TerraniteArrow", 1000 + @lucky;
+	mes "[Heathin]";
+	mes "\"Here you go! You are lucky, I could forge "+@lucky+" more arrows than expected. Come back again if you want more [Terranite Arrow]s.\"";
 	close;
 
 L_Heathin_Terranite_Arrows_Trade_Wait:
 	mes "[Heathin]";
-	mes "\"It seems that you do not have the necessary resources for me to trade you.  Please come back with 20 [Coal], 10 [Terranite Ore] and 10,000 gold pieces if you want another 1,000 [Terranite Arrow]s.\"";
+	mes "\"It seems that you do not have the necessary resources for me to trade you.  Please come back with "+@TARROW_REQ_COAL+" [Coal], "+@TARROW_REQ_TERRA_ORE+" [Terranite Ore] and "+@TARROW_REQ_GP+" gold pieces if you want another 1,000 [Terranite Arrow]s.\"";
 	close;
 
 }