* Fixed some parts of the Gunslinger gun quests

* Added Ammo Casing Seller Kenny
* Added Holy Arrow Quivers to Inventor Jaax

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@8290 54d463be-8e91-2dee-dedb-b68131a5f0ec

2 files changed, 122 insertions, 2 deletions

diff --git a/npc/merchants/ammo_boxes.txt b/npc/merchants/ammo_boxes.txt
new file mode 100644
index 000000000..036bfd2bb
--- /dev/null
+++ b/npc/merchants/ammo_boxes.txt
@@ -0,0 +1,116 @@
+//===== eAthena Script ========================================

+//= Ammo Box Event

+//===== By: ==================================================

+//= Playtester

+//===== Current Version: =====================================

+//= 1.0

+//===== Compatible With: =====================================

+//= eAthena 1.0+

+//===== Description: =========================================

+//= Turns bullets into ammo boxes.

+//===== Additional Comments: =================================

+//= 1.0 Added the first 8 ammo boxes [Playtester]

+//============================================================

+

+que_ng.gat,187,149,3	script	Kenny	83,{

+	mes "[Kenny]";

+	mes "My name is Kenny.";

+	mes "I can create ^0000FFbullet casings^000000";

+	mes "and ^0000FFsphere packs^000000.";

+	next;

+	mes "[Kenny]";

+	mes "Would you like to try using one of";

+	mes "my bullet bullet casings or sphere";

+	mes "packs?";

+	mes "Select the one you want me to make!";

+	next;

+

+	menu "Bullet Casing",-,"Silver Bullet Casing",Q2,"Shell of Blood Casing",Q3,"Lightning Sphere Pack",Q4,"Blind Sphere Pack",Q5,"Poison Sphere Pack",Q6,"Freezing Sphere Pack",Q7,"Flare Sphere Pack",Q8;

+

+// Arguments

+//===========

+		callsub sF_Make, 13200,500,12149, "Bullet Casings";

+			goto M_Menu;

+Q2:

+		callsub sF_Make, 13201,500,12151, "Silver Bullet Casings";

+			goto M_Menu;

+Q3:

+		callsub sF_Make, 13202,500,12150, "Shell of Blood Casings";

+			goto M_Menu;

+Q4:

+		callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs";

+			goto M_Menu;

+Q5:

+		callsub sF_Make, 13206,500,12145, "Blind Sphere Packs";

+			goto M_Menu;

+Q6:

+		callsub sF_Make, 13205,500,12146, "Poison Sphere Packs";

+			goto M_Menu;

+Q7:

+		callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs";

+			goto M_Menu;

+Q8:

+		callsub sF_Make, 13203,500,12148, "Flare Sphere Packs";

+			goto M_Menu;

+

+// Subfunction for making ammo boxes

+//==================================

+sF_Make:

+	set @ammonum,500;

+	if(countitem(getarg(0)) < @ammonum) goto L_NdAmmo;

+	if(Zeny < getarg(1)) goto L_NdZeny;

+	mes "[Kenny]";

+	mes "What do you want me to do?";

+	next;

+	menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;

+

+		set @amount,50;

+		if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);

+		if(countitem(getarg(0))/@ammonum < @amount) set @amount, countitem(getarg(0))/@ammonum;

+		if(@amount > 0) goto L_End;

+		mes "[Kenny]";

+		mes "Dude, you don't even have the right items...";

+		close;

+		

+	sM_0b:

+		input @amount;

+		if(@amount<1 || @amount>50) goto L_BadAmnt;

+		if(countitem(getarg(0))/@ammonum < @amount) goto L_NdAmmo;

+		if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;

+

+	L_End:

+		set Zeny, Zeny - (getarg(1)*@amount);

+		delitem getarg(0), (@amount*@ammonum);

+		getitem getarg(2), @amount;

+		mes "[Kenny]";

+		mes "There you go~!";

+		mes "Here are your " +getarg(3)+ ".";

+		close;

+

+	L_NdAmmo:

+		mes "[Kenny]";

+		mes "Sorry, but you need 500 bullets or"; 

+		mes "spheres and 500 zeny to make";

+		mes "1 bullet casing or 1 sphere pack.";

+		close;

+		

+	L_NdZeny:

+		mes "[Kenny]";

+		mes "You don't have enough zeny for that many.";

+		close;

+

+	L_BadAmnt:

+		mes "[Kenny]";

+		mes "Please choose a number between 1 and 50.";	

+		close;

+

+L_Come:

+	mes "[Kenny]";

+	mes "Please, come again whenever you want too.";

+	close;

+M_End:

+	mes "[Kenny]";

+	mes "Sure, no problem.";

+	mes "Come back any time.";

+	close;

+}
\ No newline at end of file
diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt
index 730b7327b..f54aa884d 100644
--- a/npc/merchants/quivers.txt
+++ b/npc/merchants/quivers.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================

 //= Muad_Dib (Prometheus Project)

 //===== Current Version: =====================================

-//= 1.0b

+//= 1.1

 //===== Compatible With: =====================================

 //= eAthena 1.0+

 //===== Description: =========================================

@@ -13,6 +13,7 @@
 //= Converted to eAthena format by Dr.Evil

 //= added prize to quest - 500 Zeny

 //= Fixed a few spelling errors. [Nexon]

+//= 1.1 Added Holy Arrow Quivers [Playtester]

 //============================================================

 

 

@@ -46,7 +47,7 @@ payon_in01.gat,5,134,4	script	Inventor Jaax	89,{
 	mes "appreciate my genius!";

 	next;

 

-	menu "Arrow Quiver",-,"Iron Arrow Quiver",Q2,"Steel Arrow Quiver",Q3,"Oridecon Arrow Quiver",Q4,"Fire Arrow Quiver",Q5,"Silver Arrow Quiver",Q6,"Wind Arrow Quiver",Q7,"Stone Arrow Quiver",Q8,"Crystal Arrow Quiver",Q9,"Shadow Arrow Quiver",Q10,"Immaterial Arrow Quiver",Q11,"Rusty Arrow Quiver",Q12;

+	menu "Arrow Quiver",-,"Iron Arrow Quiver",Q2,"Steel Arrow Quiver",Q3,"Oridecon Arrow Quiver",Q4,"Fire Arrow Quiver",Q5,"Silver Arrow Quiver",Q6,"Wind Arrow Quiver",Q7,"Stone Arrow Quiver",Q8,"Crystal Arrow Quiver",Q9,"Shadow Arrow Quiver",Q10,"Immaterial Arrow Quiver",Q11,"Rusty Arrow Quiver",Q12,"Holy Arrow Quiver",Q13;

 

 // Arguments

 //===========

@@ -85,6 +86,9 @@ Q11:
 Q12:

 		callsub sF_Make, 1762,500,12015, "Rusty Arrow Quiver";

 			goto M_Menu;

+Q13:

+		callsub sF_Make, 1772,500,12183, "Holy Arrow Quiver";

+			goto M_Menu;

 

 // Subfunction for making quivers

 //================================