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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
|
//===== eAthena Script =======================================
//= War of Emperium Guild Manager Function
//===== By: ==================================================
//= jAthena - kalen (1.0)
//= 1.1 by Akaru, ho|yAnge|X, and Valaris
//===== Current Version: =====================================
//= 1.31
//===== Compatible With: =====================================
//= eAthena 0.1+; RO Episode 4+
//===== Description: =========================================
//= The Guild Manager allows the Guildmaster to invest in comerce
//= and defense, hire guardians and kafras, go to the treasure room,
//= and surrender the guild castle.
//==============================================
//= Break down of arguments used in the function:
//= arg(0): name of Castle Manager
//= arg(1): name of guild castle.
//= arg(2): x1 coordinate for warp to treasure room
//= arg(3): y1 coordinate for warp to treasure room
//= arg(4): guild script suffix for kafra, gaurdian scripts etc.
//===== Additional Comments: =================================
//= v1.31: Added support for Emsolute Develop [celest]
//= v1.2: All Guild manager scripts use this function. Optimized
//= Comerce and Defense investment. [kobra_k88]
//= v1.2a Function now returns to script that called it.
//= Added disablenpc line to surrender castle option to remove kafra
//= upon surrender.[kobra_k88]
//= v1.2b U can't surrender the base during WOE [Lupus]
//= v1.2c Fixed issue of guardians hp not increasing upon defense
//= investment.[kobra_k88]
//= 1.3 Now you can't install Guardians during WOE [Lupus]
//============================================================
//==============================================
function script F_GldManager {
set @GID, GetCastleData(getarg(1)+".gat",1);
if (strcharinfo(0) == getguildmaster(@GID)) goto L_Start;
if (@GID == 0) goto L_NotOwn;
if (getcharid(2) == @GID) goto L_Mem;
L_NotMem:
mes "[ "+getarg(0)+" ]";
mes "I am here to follow ^5533FF" + getguildmaster(@GID) + "^000000's command! Hey! Your not even a part of the guild!!";
mes "Where are the guardians? Destroy these intruders!";
return 0;
L_NotOwn:
mes "[ "+getarg(0)+" ]";
mes "I am waiting for my master. Brave adventurer, follow your destiny!";
return 0;
L_Mem:
mes "[ "+getarg(0)+" ]";
mes "You're not ^5533FF" + getguildmaster(@GID) + "^000000! I am here to follow ^5533FF" + getguildmaster(@GID) + "^000000's command only";
return 0;
L_Start:
mes "[ "+getarg(0)+" ]";
mes "Welcome Master ^5533FF" + getguildmaster(@GID) + "^000000 ! I will assist you in any way I can!";
next;
menu "Guild Base Briefing",M_Base, "Commerce Investment",M_Comrc, "Defence Investment",M_Def, "Guardian Installation",M_Gaurd,
"Kafra Service Employment / Dismissal",M_Kaf, "Enter Treasure Room",M_Treas, "Surrender Guild Base",M_Sur, "Cancel",M_End;
//========================
M_Base:
//=========
mes "[ "+getarg(0)+" ]";
mes "Guild Base Investment Information.";
mes " ";
mes "Current Commerce Investment is : ^FF3322" + GetCastleData(getarg(1)+".gat",2) + "^000000 points.";
mes "^0000ff - You have invested " + GetCastleData(getarg(1)+".gat",4) + " times today.^000000";
next;
mes "[ "+getarg(0)+" ]";
mes "Current Defence Investment is : ^FF3322" + GetCastleData(getarg(1)+".gat",3) + "^000000 points.";
mes "^0000ff- You have invested " + GetCastleData(getarg(1)+".gat",5) + " times today.^000000";
mes " ";
mes "That is about it.";
return 0;
//========================
M_Comrc:
//=========
set @TriggerE,GetCastleData(getarg(1)+".gat",4);
set @Economy,GetCastleData(getarg(1)+".gat",2);
if(@Economy < 8) set @eco_invest,10000;
if(@Economy >= 8) set @eco_invest,20000;
if(@Economy >= 16) set @eco_invest,40000;
if(@Economy >= 25) set @eco_invest,80000;
if(@Economy >= 34) set @eco_invest,160000;
if(@Economy >= 44) set @eco_invest,320000;
if(@Economy >= 54) set @eco_invest,640000;
if(@Economy >= 65) set @eco_invest,1280000;
if(@Economy >= 76) set @eco_invest,2560000;
if(@Economy >= 88) set @eco_invest,5120000;
mes "[ "+getarg(0)+" ]";
if(@TriggerE == 2) goto L_MaxTimesC;
if(@Economy >= 100) goto L_MaxInvesC;
mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods.";
mes "So an investment will be required if you're considering future growth.";
next;
mes "[ "+getarg(0)+" ]";
if(@TriggerE == 0) mes "You can invest up to two times a day, but the second time costs more";
if(@TriggerE == 0) mes "The needed investment amount is ^5533FF" + @eco_invest + "^000000 zeny.";
if(@TriggerE == 1) set @eco_invest,@eco_invest*4;
if(@TriggerE == 1) mes "You've already invested once today, but you can invest again at ^5533FF" + @eco_invest + "^000000 Zeny.";
next;
mes "[ "+getarg(0)+" ]";
mes "Would you like to invest?";
next;
menu "Invest Commerce.",-,"Cancel.",M_End;
if(Zeny < @eco_invest) goto sL_NoZenyC;
set Zeny,Zeny-@eco_invest;
SetCastleData getarg(1)+".gat",4,@TriggerE+1;
SetCastleData getarg(1)+".gat",2,@Economy+1;
// if we learnt Emsolute Develop there's a chance to get +1 investment again
if (getgdskilllv(@GID,10014) > 0 && rand(100)>50) set @Economy, @Economy + 1;
mes "[ "+getarg(0)+" ]";
mes "You have invested successfully.";
return 0;
sL_NoZenyC:
mes "[ "+getarg(0)+" ]";
mes "Master, you do not have enough money to invest. Investment has been cancelled.";
return 0;
L_MaxTimesC:
mes "^ff0000You have already invested twice today, and that's the limit.^000000 I'm expecting to see our riches grow at a high level.";
return 0;
L_MaxInvestC:
mes "[ "+getarg(0)+" ]";
mes " ";
mes "^ff0000This Castle's commerce investment is already maxed at 100 points. You don't have to invest any further.^000000";
return 0;
//=========================
M_Def:
//========
set @TriggerD,GetCastleData(getarg(1)+".gat",5);
set @Defence,GetCastleData(getarg(1)+".gat",3);
if(@Defence < 8) set @def_invest,20000;
if(@Defence >= 8) set @def_invest,40000;
if(@Defence >= 16) set @def_invest,80000;
if(@Defence >= 25) set @def_invest,160000;
if(@Defence >= 34) set @def_invest,320000;
if(@Defence >= 44) set @def_invest,640000;
if(@Defence >= 54) set @def_invest,1280000;
if(@Defence >= 65) set @def_invest,2560000;
if(@Defence >= 76) set @def_invest,5120000;
if(@Defence >= 88) set @def_invest,10240000;
mes "[ "+getarg(0)+" ]";
if(@TriggerD == 2) goto L_MaxTimesD;
if(@Defence >= 100) goto L_MaxInvestD;
mes "If you improve investment of defence, the durability of our Guardians and the Emperium will increase.";
mes "So if you consider our future battles, an investment will be required.";
next;
mes "[ "+getarg(0)+" ]";
if(@TriggerD == 0) mes "You can invest up to two times a day, but the second time costs more";
if(@TriggerD == 0) mes "The needed investment amount is ^5533FF" + @def_invest + "^000000 zeny.";
if(@TriggerD == 1) set @def_invest,@def_invest*4;
if(@TriggerD == 1) mes "You've already invested once today, but you can invest again at ^5533FF" + @def_invest + "^000000 Zeny.";
next;
mes "[ "+getarg(0)+" ]";
mes "Would you like to invest?";
next;
menu "Invest Defence.",-, "Cancel",M_End;
if(Zeny < @def_invest) goto sL_NoZenyD;
set Zeny,Zeny-@def_invest;
SetCastleData getarg(1)+".gat",5,@TriggerD+1;
SetCastleData getarg(1)+".gat",3,@Defence+1;
// set new hp values for guardians
set @Defence, @Defence + 1;
// if we learnt Emsolute Develop there's a chance to get +1 investment again
if (getgdskilllv(@GID,10014) > 0 && rand(100)>50) set @Defence, @Defence + 1;
set @AGuardian, 28634 + (@Defence*2000);
set @KGuardian, 30214 + (@Defence*2000);
set @SGuardian, 15670 + (@Defence*2000);
//set @AGuardian,strmobinfo(4,1285) + (@Defence*2000);
//set @KGuardian,strmobinfo(4,1286) + (@Defence*2000);
//set @SGuardian,strmobinfo(4,1287) + (@Defence*2000);
if (GetCastleData(getarg(1)+".gat",10) == 1) SetCastleData getarg(1)+".gat",18,@SGuardian;
if (GetCastleData(getarg(1)+".gat",11) == 1) SetCastleData getarg(1)+".gat",19,@SGuardian;
if (GetCastleData(getarg(1)+".gat",12) == 1) SetCastleData getarg(1)+".gat",20,@SGuardian;
if (GetCastleData(getarg(1)+".gat",13) == 1) SetCastleData getarg(1)+".gat",21,@AGuardian;
if (GetCastleData(getarg(1)+".gat",14) == 1) SetCastleData getarg(1)+".gat",22,@AGuardian;
if (GetCastleData(getarg(1)+".gat",15) == 1) SetCastleData getarg(1)+".gat",23,@KGuardian;
if (GetCastleData(getarg(1)+".gat",16) == 1) SetCastleData getarg(1)+".gat",24,@KGuardian;
if (GetCastleData(getarg(1)+".gat",17) == 1) SetCastleData getarg(1)+".gat",25,@KGuardian;
mes "[ "+getarg(0)+" ]";
mes "You have invested successfully.";
return 0;
sL_NoZenyD:
mes "[ "+getarg(0)+" ]";
mes "Master, you do not have enough money to invest in Defence. Defence investment has been cancelled.";
return 0;
L_MaxTimesD:
mes "^ff0000You have already invested twice today, and that's the limit.^000000 I'm expecting to see our riches grow at a high level.";
return 0;
L_MaxInvestD:
mes "^ff0000This Castle's Defence Investment is already maxed at 100 points. You don't have to invest any further.^000000";
return 0;
//=========================
M_Gaurd:
//=========
if (getgdskilllv(@GID,10002) == 0) goto L_NoSkGuard;
set @Defence,GetCastleData(getarg(1)+".gat",3);
set @Guardian0,guardianinfo(0);
set @Guardian1,guardianinfo(1);
set @Guardian2,guardianinfo(2);
set @Guardian3,guardianinfo(3);
set @Guardian4,guardianinfo(4);
set @Guardian5,guardianinfo(5);
set @Guardian6,guardianinfo(6);
set @Guardian7,guardianinfo(7);
set @AGuardian, 28634 + (@Defence*2000);
set @KGuardian, 30214 + (@Defence*2000);
set @SGuardian, 15670 + (@Defence*2000);
//set @AGuardian,strmobinfo(4,1285) + (@Defence*2000);
//set @KGuardian,strmobinfo(4,1286) + (@Defence*2000);
//set @SGuardian,strmobinfo(4,1287) + (@Defence*2000);
mes "[ "+getarg(0)+" ]";
if(agitcheck(0) != 0) goto L_CantGuard;
mes "Would you like to install a guardian? Guardians will protect the guild base from enemies.";
mes "Please choose a guardian.";
next;
menu "Soldier Guardian (" + @Guardian0 + "/" + @SGuardian + ")",L4_1,
"Soldier Guardian (" + @Guardian1 + "/" + @SGuardian + ")",L4_2,
"Soldier Guardian (" + @Guardian2 + "/" + @SGuardian + ")",L4_3,
"Archer Guardian (" + @Guardian3 + "/" + @AGuardian + ")",L4_4,
"Archer Guardian (" + @Guardian4 + "/" + @AGuardian + ")",L4_5,
"Knight Guardian (" + @Guardian5 + "/" + @KGuardian + ")",L4_6,
"Knight Guardian (" + @Guardian6 + "/" + @KGuardian + ")",L4_7,
"Knight Guardian (" + @Guardian7 + "/" + @KGuardian + ")",L4_8;
L4_1:
if (GetCastleData(getarg(1)+".gat",10) == 1) goto L_GotGuard;
set @GDnum,10;
set @GDnum2,18;
set @GuardianHP,@SGuardian;
goto L4_9;
L4_2:
if (GetCastleData(getarg(1)+".gat",11) == 1) goto L_GotGuard;
set @GDnum,11;
set @GDnum2,19;
set @GuardianHP,@SGuardian;
goto L4_9;
L4_3:
if (GetCastleData(getarg(1)+".gat",12) == 1) goto L_GotGuard;
set @GDnum,12;
set @GDnum2,20;
set @GuardianHP,@SGuardian;
goto L4_9;
L4_4:
if (GetCastleData(getarg(1)+".gat",13) == 1) goto L_GotGuard;
set @GDnum,13;
set @GDnum2,21;
set @GuardianHP,@AGuardian;
goto L4_9;
L4_5:
if (GetCastleData(getarg(1)+".gat",14) == 1) goto L_GotGuard;
set @GDnum,14;
set @GDnum2,22;
set @GuardianHP,@AGuardian;
goto L4_9;
L4_6:
if (GetCastleData(getarg(1)+".gat",15) == 1) goto L_GotGuard;
set @GDnum,15;
set @GDnum2,23;
set @GuardianHP,@KGuardian;
goto L4_9;
L4_7:
if (GetCastleData(getarg(1)+".gat",16) == 1) goto L_GotGuard;
set @GDnum,16;
set @GDnum2,24;
set @GuardianHP,@KGuardian;
goto L4_9;
L4_8:
if (GetCastleData(getarg(1)+".gat",17) == 1) goto L_GotGuard;
set @GDnum,17;
set @GDnum2,25;
set @GuardianHP,@KGuardian;
L4_9:
mes "[ "+getarg(0)+" ]";
mes "Would you really like to install a guardian? You need ^5533FF10,000 zeny^000000 to install one....";
next;
menu "Install",-, "Cancel",M_End;
if (Zeny < 10000) goto sL_NoZenyG;
set Zeny,Zeny-10000;
SetCastleData getarg(1)+".gat",@GDnum,1;
SetCastleData getarg(1)+".gat",@GDnum2,@GuardianHP;
return 1;
sL_NoZenyG:
mes "[ "+getarg(0)+" ]";
mes "I'm sorry Master, but you do not have enough zeny for a Guardian.";
return 0;
L_NoSkGuard:
mes "[ "+getarg(0)+" ]";
mes "I'm sorry Master but you cannot install any guardians right now. Your guild must learn the Guild skill ^5533FFGuardian Research^000000 first.";
mes "Guardian Installation has been cancelled.";
return 0;
L_GotGuard:
mes "[ "+getarg(0)+" ]";
mes "Excuse me Master, but that guardian has already been installed.....";
emotion 4;
return 0;
L_CantGuard:
mes "Master.... don't you know that we can't install guardians during the War Of Emperium?!!";
emotion 4;
return 0;
//===========================
M_Kaf:
//======
mes "[ "+getarg(0)+" ]";
if (GetCastleData(getarg(1)+".gat",9) == 1) goto L_Dismiss;
if (getgdskilllv(@GID,10001) == 0) goto L_NoSkKaf;
L_Hire:
mes "Would you like to employ the services of a Kafra? You will need ^5533FF10,000 Zeny^000000 to do so... ";
next;
menu "Employ Kafra.",-,"Cancel",sM_KafEnd;
mes "[ "+getarg(0)+" ]";
if (Zeny < 10000) goto sL_NoZenyK;
set Zeny,Zeny-10000;
enablenpc "Kafra Service#"+getarg(4);
SetCastleData getarg(1)+".gat",9,1;
mes "You have created a contract with the Kafra Service Company.";
next;
cutin "kafra_01",2;
mes "[ Kafra Service ]";
mes "How do you do? I'm here to provide you with helpful service! I'll do the best I can to serve you.";
next;
cutin "kafra_01",255;
mes "[ "+getarg(0)+" ]";
mes "Your employment contract lasts ^5533FF1 month^000000. After this term is over you will have to create a new contract.";
mes "I think the Kafra Service will benefit our guild members.";
return 0;
sL_NoZenyK:
mes "Master, you do not have enough money to employ a Kafra. Employment has been cancelled.";
return 0;
sM_KafEnd:
mes "[ "+getarg(0)+" ]";
mes "As you wish Master. But I suggest we get a Kafra as soon as possible!";
return 0;
L_Dismiss:
mes "Would you like to dismiss the current Kafra?";
next;
menu "Dismissal",-,"Cancel",sM_KafEnd2;
cutin "kafra_01",2;
mes "[ Kafra Service ]";
mes "Have I done anything wrong? If I did, will you please forgive me?";
next;
menu "Dismiss",-,"Cancel",ssM_KafEnd2;
mes "[ Kafra Service ]";
mes "It's unfortunate that I won't be able to serve your guild anymore....";
next;
disablenpc "Kafra Service#"+getarg(4);
SetCastleData getarg(1)+".gat",9,0;
cutin "kafra_01",255;
mes "[ "+getarg(0)+" ]";
mes "The Kafra has been dismissed. But... we should really get a Kafra as soon as possible!";
return 0;
ssM_KafEnd2:
mes "[ Kafra Service ]";
mes "Thank you master, I'll do my best! ^^.";
cutin "kafra_01",255;
return 0;
sM_KafEnd2:
mes "[ "+getarg(0)+" ]";
mes "Master, I think you should keep the current Kafra Service because she is already trying her best to serve us";
return 0;
L_NoSkKaf:
mes "Master, you don't have a contract with the Kafra Service Company.";
mes "In order to hire a Kafra, you must first learn the Guild skill ^5533FFContract With Kafra^000000.";
return 0;
//=========================
M_Treas:
//========
mes "[ "+getarg(0)+" ]";
mes "Would you to go to our Treasure Room? Only you, the Guild Master, are allowed to enter this room.";
next;
menu "Enter Treasure room.",-,"Cancel",sM_TresEnd;
mes "[ "+getarg(0)+" ]";
mes "Please follow me through the secret passage way.";
mes "You must pull down on the secret switch in order to get out.";
next;
warp getarg(1)+".gat",getarg(2),getarg(3);
return 0;
sM_TresEnd:
mes "[ "+getarg(0)+" ]";
mes "The goods are produced everyday.";
mes "You should get them whenever you can because they might dissapear if you take them at the wrong time.";
return 0;
//==========================
M_Sur:
//=======
mes "[ "+getarg(0)+" ]";
emotion 19;
if(agitcheck(0) != 0) goto sL_CantSur;
mes "Master.... Do you really want to give up this guild base?? It is not worth it master!!! Please reconsider, master!!";
next;
menu "Surrender Guild Base",-, "Cancel",sM_SurEnd;
mes "[ "+getarg(0)+" ]";
mes "Master, please reconsider...!!";
emotion 16;
next;
menu "Surrender Guild Base",-, "Cancel",sM_SurEnd;
mes "[ "+getarg(0)+" ]";
mes "Master!!.....";
mes "Oh well..";
next;
disablenpc "Kafra Service#"+getarg(4);
killmonster getarg(1)+".gat", "Guardian_" +getarg(4)+ "::OnGuardianDied";
set @i, 0;
L_Loop:
set @i, @i + 1;
SetCastleData getarg(1)+".gat",@i,0;
if(@i < 25) goto L_Loop;
Announce "[" + GetGuildName(@GID) + "] has surrendered the Guild Castle [" + GetCastleName(getarg(1)+".gat") + "]",0;
MapRespawnGuildID getarg(1)+".gat",GetCastleData(getarg(1)+".gat",1),7;
return 0;
sM_SurEnd:
mes "[ "+getarg(0)+" ]";
mes "I knew it master!! Please, don't scare me like that again.";
emotion 33;
return 0;
sL_CantSur:
mes "Master.... don't you know that we can't give up this guild base during the War Of Emperium?!!";
close;
//==========================
M_End:
//=======
mes "[ "+getarg(0)+" ]";
mes "As you wish, master.";
return 0;
}
|
