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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
//===== eAthena Script ========================================
//= Arrow Quiver Event
//===== By: ==================================================
//= Muad_Dib (Prometheus Project)
//===== Current Version: =====================================
//= 1.0b
//===== Compatible With: =====================================
//= eAthena 1.0+
//===== Description: =========================================
//= Turns arrows into Arrow Quivers.
//===== Additional Comments: =================================
//= 07/06/05 : Added 1st Version. [Muad_Dib]
//= Converted to eAthena format by Dr.Evil
//= added prize to quest - 500 Zeny
//= Fixed a few spelling errors. [Nexon]
//============================================================
payon_in01.gat,5,134,4 script Inventor Jaax 89,{
mes "[Inventor Jaax]";
mes "My name is Jaax.";
mes "Without ego, I can";
mes "sat that I am perhaps the";
mes "^996600greatest inventor of our time.^000000";
next;
mes "[Inventor Jaax]";
mes "This time, I've";
mes "created something";
mes "truly extraordinary. I call them...";
mes "^996600Magic Quivers^000000 !! This will be";
mes "remembered in history as an";
mes "arrow revolution!";
next;
mes "[Inventor Jaax]";
mes "I've studied magic and quivers for";
mes "years, working night and day until";
mes "I finally figured out how to condense";
mes "arrows with magic! With magic";
mes "quivers, you'll be carrying more";
mes "arrows, but with less weight!";
next;
mes "[Inventor Jaax]";
mes "Would you like to try using one of";
mes "my arrow quivers? I have no doubt";
mes "that someone like you can";
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;
// Arguments
//===========
callsub sF_Make, 1750,500,12004, "Arrow Quiver";
goto M_Menu;
Q2:
callsub sF_Make, 1770,500,12005, "Iron Arrow Quiver";
goto M_Menu;
Q3:
callsub sF_Make, 1753,500,12006, "Steel Arrow Quiver";
goto M_Menu;
Q4:
callsub sF_Make, 1765,500,12007, "Oridecon Arrow Quiver";
goto M_Menu;
Q5:
callsub sF_Make, 1752,500,12008, "Fire Arrow Quiver";
goto M_Menu;
Q6:
callsub sF_Make, 1751,500,12009, "Silver Arrow Quiver";
goto M_Menu;
Q7:
callsub sF_Make, 1755,500,12010, "Wind Arrow Quiver";
goto M_Menu;
Q8:
callsub sF_Make, 1756,500,12011, "Stone Arrow Quiver";
goto M_Menu;
Q9:
callsub sF_Make, 1754,500,12012, "Crystal Arrow Quiver";
goto M_Menu;
Q10:
callsub sF_Make, 1767,500,12013, "Shadow Arrow Quiver";
goto M_Menu;
Q11:
callsub sF_Make, 1757,500,12014, "Immaterial Arrow Quiver";
goto M_Menu;
Q12:
callsub sF_Make, 1762,500,12015, "Rusty Arrow Quiver";
goto M_Menu;
// Subfunction for making quivers
//================================
sF_Make:
set @arrownum,500;
if(countitem(getarg(0)) < @arrownum) goto L_NdArrows;
if(Zeny < getarg(1)) goto L_NdZeny;
mes "[Inventor Jaax]";
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,100;
if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);
if(countitem(getarg(0))/@arrownum < @amount) set @amount, countitem(getarg(0))/@arrownum;
if(@amount > 0) goto L_End;
mes "[Inventor Jaax]";
mes "Jeez... you don't even have the right items.....";
close;
sM_0b:
input @amount;
if(@amount<1 || @amount>100) goto L_BadAmnt;
if(countitem(getarg(0))/@arrownum < @amount) goto L_NdArrows;
if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;
L_End:
mes "[Inventor Jaax]";
mes "There you go~!";
mes "Here are your " +getarg(3)+ ".";
delitem getarg(0), (@amount*@arrownum);
set Zeny, Zeny - (getarg(1)*@amount);
getitem getarg(2), @amount;
close;
L_NdArrows:
mes "[Inventor Jaax]";
mes "Sorry, but you need 500 Arrows and 500 Zeny to make 1 Arrow Quiver.";
close;
L_NdZeny:
mes "[Inventor Jaax]";
mes "You don't have enough zeny for that many.";
close;
L_BadAmnt:
mes "[Inventor Jaax]";
mes "Please choose a number between 1 and 100.";
close;
L_Come:
mes "[Inventor Jaax]";
mes "Please, come again whenever you want too.";
close;
M_End:
mes "[Inventor Jaax]";
mes "Sure, no problem.";
mes "Come back any time.";
close;
}
|
