Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated Ammo Casing NPC Kenny to official version

Browse Source 
git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@10383 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
SinSloth 2007-04-28 11:51:00 +00:00
parent 25c7f24a13
commit 80f8c8036d
2 changed files with 140 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
npc/Changelog.txt
View File

@ -1,6 +1,7 @@
Date Added Date Added
====== ======
2007/04/29 2007/04/29
* Updated Ammo Casing NPC Kenny to official version [SinSloth]
* Fixed level requirement of Eye of Hellion quest [Playtester] * Fixed level requirement of Eye of Hellion quest [Playtester]
* Some 11.1 field spawn updates [Playtester] * Some 11.1 field spawn updates [Playtester]
2007/04/28 2007/04/28

228
npc/merchants/ammo_boxes.txt
View File

@ -1,116 +1,154 @@
//===== eAthena Script ======================================== //===== eAthena Script ========================================
//= Ammo Box Event //= Casing Pack Dealer Kenny
//===== By: ================================================== //===== By: ==================================================
//= Playtester //= SinSloth
//===== Current Version: ===================================== //===== Current Version: =====================================
//= 1.0 //= 1.1
//===== Compatible With: ===================================== //===== Compatible With: =====================================
//= eAthena 1.0+ //= eAthena 1.0+
//===== Description: ========================================= //===== Description: =========================================
//= Turns bullets into ammo boxes. //= Turns bullets/spheres into packs/casings.
//===== Additional Comments: ================================= //===== Additional Comments: =================================
//= 1.0 Added the first 8 ammo boxes [Playtester] //= 1.0 First version. [SinSloth]
//= 1.1 Optimized version - Reduced to only one function [SinSloth]
//============================================================ //============================================================
que_ng,187,149,3 script Kenny 83,{ que_ng,187,149,3 script Casing Pack Dealer Kenny 83,{
if(BaseJob == Job_Gunslinger)
{
mes "[Kenny]"; mes "[Kenny]";
mes "My name is Kenny."; mes "I am the Casing Dealer, Kenny!";
mes "I can create ^0000FFbullet casings^000000"; mes "If your bullets are getting";
mes "and ^0000FFsphere packs^000000."; mes "too heavy, come to me!";
next; next;
mes "[Kenny]"; mes "[Kenny]";
mes "Would you like to try using one of"; mes "I can make you Casings and Packs,";
mes "my bullet bullet casings or sphere"; mes "which will let you carry the";
mes "packs?"; mes "Spheres at a lower weight!";
mes "Select the one you want me to make!"; mes "Come on! Take a look!";
next; next;
switch( select( "Lightning Sphere Pack","Blind Sphere Pack","Poison Sphere Pack","Freezing Sphere Pack","Flare Sphere Pack","Bullet Casing","Shell of Blood Casing","Silver Bullet Casing","Cancel" ))
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; {
case 1:
// Arguments callfunc "Func_Casing",13204,12144;
//=========== break;
callsub sF_Make, 13200,500,12149, "Bullet Casings"; case 2:
goto M_Menu; callfunc "Func_Casing",13206,12145;
Q2: break;
callsub sF_Make, 13201,500,12151, "Silver Bullet Casings"; case 3 :
goto M_Menu; callfunc "Func_Casing",13205,12146;
Q3: break;
callsub sF_Make, 13202,500,12150, "Shell of Blood Casings"; case 4 :
goto M_Menu; callfunc "Func_Casing",13207,12147;
Q4: break;
callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs"; case 5 :
goto M_Menu; callfunc "Func_Casing",13203,12148;
Q5: break;
callsub sF_Make, 13206,500,12145, "Blind Sphere Packs"; case 6 :
goto M_Menu; callfunc "Func_Casing",13200,12149;
Q6: break;
callsub sF_Make, 13205,500,12146, "Poison Sphere Packs"; case 7 :
goto M_Menu; callfunc "Func_Casing",13202,12150;
Q7: break;
callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs"; case 8 :
goto M_Menu; callfunc "Func_Casing",13201,12151;
Q8: break;
callsub sF_Make, 13203,500,12148, "Flare Sphere Packs"; case 9:
goto M_Menu; goto L_Cancel;
break;
// 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 "[Kenny]";
mes "What do you want me to do?"; mes "I am the Casing Dealer, Kenny!";
mes "I'm here to package the Shells";
mes "and Bullets for Gunslingers.";
next; 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 "[Kenny]";
mes "Dude, you don't even have the right items..."; mes "But you don't look like a";
mes "Gunslinger to me. I'm afraid";
mes "that I must ask you to leave";
mes "after you're done looking around.";
close; close;
sM_0b: L_Cancel:
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 "[Kenny]";
mes "There you go~!"; mes "Alright. If there's";
mes "Here are your " +getarg(3)+ "."; mes "something else I can help";
close; mes "you with, please tell me.";
close;
L_NdAmmo: }
mes "[Kenny]";
mes "Sorry, but you need 500 bullets or"; function script Func_Casing {
mes "spheres and 500 zeny to make";
mes "1 bullet casing or 1 sphere pack."; mes "[Kenny]";
close; mes "Please input the amount you want.";
next;
L_NdZeny: mes "[Kenny]";
mes "[Kenny]"; mes "" +getitemname(getarg(1))+ " will";
mes "You don't have enough zeny for that many."; if(getarg(0) == 13202) { mes "cost 500 Shells of Blood"; } else mes "cost 500 " +getitemname(getarg(0))+ "s";
close; mes "and 500 zeny each.";
next;
L_BadAmnt: mes "[Kenny]";
mes "[Kenny]"; mes "You can trade a maximum of 50.";
mes "Please choose a number between 1 and 50."; mes "Input 0 if you want to cancel.";
close; next;
input @caser_amount;
L_Come: if(@caser_amount < 1) goto L_Cancel;
mes "[Kenny]"; else if(@caser_amount > 50)
mes "Please, come again whenever you want too."; {
close; mes "[Kenny]";
M_End: mes "You've exceeded the limit!";
mes "[Kenny]"; mes "Try again next time?";
mes "Sure, no problem."; close;
mes "Come back any time."; }
set @caser_bullet,@caser_amount * 500;
//Weight checking
if(checkweight(getarg(1),@caser_amount) != 1) goto L_Weight;
//Materials checking
else if(countitem(getarg(0)) < @caser_bullet) goto L_NoBullet;
//Zeny checking
else if(Zeny < @caser_bullet) goto L_NoMoney;
mes "[Kenny]";
mes "Ah very well!";
mes "The number is confirmed!";
if(getarg(1) < 12149) mes "I'll get you the Packs right away.";
else mes "I'll get you the Casings right away.";
set Zeny, Zeny - @caser_bullet;
delitem getarg(0),@caser_bullet;
getitem getarg(1),@caser_amount;
close;
L_Weight:
mes "[Kenny]";
mes "You are overweight.";
mes "Please clear your inventory.";
close;
L_NoBullet:
mes "[Kenny]";
mes "Huh......";
mes "You don't have enough";
mes "materials to trade for";
mes "the number of items you";
mes "want. Please come with the";
mes "correct amount of items.";
close;
L_NoMoney:
mes "[Kenny]";
mes "Erm... You don't have enough money.";
mes "The fee is 500 zeny";
mes "Check your zeny and come again.";
close;
L_Cancel:
mes "[Kenny]";
mes "Alright. If there's";
mes "something else I can help";
mes "you with, please tell me.";
close; close;
} }