From 59bffd94d891ddc59042201861e2b1a433436ea7 Mon Sep 17 00:00:00 2001 From: Playtester Date: Tue, 15 Aug 2006 14:17:23 +0000 Subject: * 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 --- npc/merchants/ammo_boxes.txt | 116 +++++++++++++++++++++++++++++++++++++++++++ npc/merchants/quivers.txt | 8 ++- 2 files changed, 122 insertions(+), 2 deletions(-) create mode 100644 npc/merchants/ammo_boxes.txt (limited to 'npc/merchants') 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 //================================ -- cgit v1.2.3-70-g09d2