1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
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,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;
}
|
