summaryrefslogblamecommitdiff
path: root/npc/guild/old/prtg_cas04.txt
blob: 8579401ae4b1f956093378356d88c0a106f779bf (plain) (tree)
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
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666

























































































































































































































































































































































































































































































































































































































































































                                                                                                                                                                                                                                                                     
//===== eAthena Script =======================================
//= War of Emperium - prtg_cas04 script
//===== By: ==================================================
//= jAthena - kalen (1.0)
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= eAthena 0.1+; RO Episode 4+
//===== Description: =========================================
//= Guild Flags, Kafra and Guild Manager scripts in prtg_cas04
//===== Additional Comments: =================================
//= 1.1 by Akaru, ho|yAnge|X, and Valaris
//============================================================

prtg_cas04.gat,82,29,4	script	Squagul#p4-7::SquagulNW	722,{
	set @GIDp4,GetCastleData("prtg_cas04.gat",1);
	if (@GIDp4 != 0) goto LStartg;
		mes "[ Edict of the Divine Rune Midgard Kingdom of Prontera ]";
		mes " ";
		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Prontera,";
		mes "    this guild base has not been taken by any guild yet";
		mes " ";
		mes "2. In order to take this guild base, you must defeat all the guardians";
		mes "    that are protecting the guild base and eliminate the Emperium";
		close;
LStartg:
		mes "[ Edict of the Divine Rune Midgard Kingdom of Prontera ]";
		mes " ";
		mes "1. Honoring the ordinance of the Divine Rune Midgard Kingdom of Prontera,";
		mes "    we approve that this base is in the private possession of ^ff0000" + GetGuildName(@GIDp4) + "^000000 guild";
		mes " ";
		mes "2. The guild master of ^ff0000" + GetGuildName(@GIDp4) + "^000000 is";
		mes "    ^ff0000" + GetGuildMaster(@GIDp4) + "^000000. If anyone who objects to that,";
		mes "    raise your sword to honor yourself.";
		close;
OnRecvCastleP04:
	FlagEmblem GetCastleData("prtg_cas04.gat",1);
	break;
}

prtg_cas04.gat,75,29,4	duplicate(SquagulNW)	Squagul#p4-8	722
prtg_cas04.gat,75,27,4	duplicate(SquagulNW)	Squagul#p4-9	722
prtg_cas04.gat,82,27,4	duplicate(SquagulNW)	Squagul#p4-10	722
prtg_cas04.gat,59,29,4	duplicate(SquagulNW)	Squagul#p4-11	722
prtg_cas04.gat,67,29,4	duplicate(SquagulNW)	Squagul#p4-12	722
prtg_cas04.gat,258,25,4	duplicate(SquagulNW)	Squagul#p4-13	722
prtg_cas04.gat,258,20,4	duplicate(SquagulNW)	Squagul#p4-14	722
prtg_cas04.gat,263,20,4	duplicate(SquagulNW)	Squagul#p4-15	722
prtg_cas04.gat,263,27,4	duplicate(SquagulNW)	Squagul#p4-16	722

//================================================
// Kafra Service
//================================================
prtg_cas04.gat,258,247,4	script	Kafra Service#prt4	117,{
	cutin "kafra_01",2;
	set @GIDp4,GetCastleData("prtg_cas04.gat",1);
	if (getcharid(2) == @GIDp4) goto LStartg;
	mes "[Kafra Service]";
	mes "I am here to serve only ^ff0000" + GetGuildName(@GIDp4) + "^000000 members. Please use different Kafra Service. Thank you.";
	goto L_EXIT;
LStartg:
	mes "[Kafra Service]";
	mes "Welcome. ^ff0000" + GetGuildName(@GIDp4) + "^000000 members";
	mes "We will stay with you wherever you go";
	next;
	menu "Open Storage",L2,"Teleport Service",L3,"Use Cart Service",L4,"Cancel",L7;
//================================================
// Storage
//================================================
L2:
	if(getskilllv(1) < 6) goto Lerror2_1;
		openstorage;
		goto L_EXIT;
	Lerror2_1:
		mes "[Kafra Service]";
		mes "You must have lvl 6 or higher novice skill.";
		goto L_EXIT;
//================================================
// Teleport Service
//================================================
L3:
	mes "[Kafra Service]";
	mes "Please confirm your destination.";
	next;
	menu "Prontera -> 200 z",L3_1,"Cancel",L3_2;
		L3_1:
			if (Zeny < 200) goto Lerror3;
			set Zeny,Zeny-200;
			warp "prontera.gat",278,211;
break;
		L3_2:
				mes "[Kafra Service]";
				mes "Kafra Service always trying to offer best service for you.";
				mes "Thank you for using our service.";
				goto L_EXIT;
		Lerror3:
				mes "[Kafra Service]";
  				mes "Sorry, you don't have enough Zeny to use the teleport service.";
				goto L_EXIT;
//================================================
// Cart Rental
//================================================
L4:
	if (!((Class == 5) || (Class == 10) || (Class == 18) || (Class == 4006) || (Class == 4011) || (Class == 4019))) goto Lerror4_1;
	if (checkcart(0) == 1) goto Lerror4_3;
	mes "[Kafra Service]";
	mes "The cart rental fee is 800 Zeny.";
	mes "Would you like to rent a cart?";
	next;
	menu "Rent a Cart",L4_1,"Cancel",-;
		mes "[Kafra Service]";
		mes "We always try to serve you better.";
		mes "Thank you for using our service.";
		goto L_EXIT;
	L4_1:
		If(getskilllv(39) == 0) goto Lerror4_4;
		if (Zeny < 800) goto Lerror4_2;
		set Zeny,Zeny-800;
		setcart;
		goto L_EXIT;
	//Not a merchant class
	Lerror4_1:
		mes "[Kafra Service]";
		mes "Sorry, the cart rental service is only for the merchant class.";
		goto L_EXIT;
	//Not enough zenny
	Lerror4_2:
		mes "[Kafra Service]";
		mes "Sorry, you don't have enough zeny. You need 800 Zeny.";
		goto L_EXIT;
	//Already have cart
	Lerror4_3:
		mes "[Kafra Service]";
		mes "Sorry, you already have a cart now.";
		mes "Return when you dont have one and are in need of our service.";
		goto L_EXIT;
//No Pushcart Skill
	Lerror4_4:
		mes "[Kafra Service]";
		mes "Sorry, you need to learn the skill [Pushcart] first";
		goto L_EXIT;
//================================================
// Cancel
//================================================
L7:
	mes "[Kafra Service]";
	mes "We will always try to serve you better.";
	mes "Thank you for using our service.";
	goto L_EXIT;
L_EXIT:
	cutin "kafra_01",255;
	close;
OnInit:
	if (GetCastleData("prtg_cas04.gat",9) == 1) break;
	disablenpc "Kafra Service#prt4";
	break;
}

//================================================
// Guild Dungeon Switch
//================================================

prtg_cas04.gat,56,283,0	script	Switch	111,{
	mes "[ Vibration of Man's Voice ]";
	mes " ' Only brave man get to lead the guild base.. '";
	next;
	mes " ";
	mes "There is little switch over here";
	mes "Would you like to pull the switch down?";
	next;
	menu "Yes",-,"No",L2;
	set @GIDp4,GetCastleData("prtg_cas04.gat",1);
	if (getcharid(2) != @GIDp4) goto L1n;
	warp "gld_dun03.gat",268,203;
	break;
L1n:
	mes "[ Vibration of Man's Voice ]";
	mes " ' ... ' ";
L2:
	close;
}

//================================================
// Guild Castle Manager
//================================================

prtg_cas04.gat,259,265,4	script	Bandred	55,{
	set @GIDp4,GetCastleData("prtg_cas04.gat",1);
	if (@GIDp4 == 0) goto LStart;
	if (getcharid(2) != @GIDp4) goto LStart2;
	if (strcharinfo(0) == getguildmaster(@GIDp4)) goto LStart3;
	goto LStart1;

//================================================
// Guild Members
//================================================
LStart1:
	mes "[ Bandred ]";
	mes "You're not ^ff0000" + getguildmaster(@GIDp4) + "^000000 ! I am here to follow ^ff0000" + getguildmaster(@GIDp4) + "^000000 's command only";
	close;
//================================================
// Castle not owned
//================================================
LStart:
	mes "[ Bandred ]";
	mes "I am waiting for my master.";
	mes "Brave Player! follow your destiny!...";
	close;
//================================================
// Non-Guild Members
//================================================
LStart2:
	mes "[ Bandred ]";
	mes "I am here to follow ^ff0000" + getguildmaster(@GIDp4) + "^000000 's command! Where are the guardians? Destroy these bastards!";
	close;
//================================================
// Guild Leader
//================================================
LStart3:
	mes "[ Bandred ]";
	mes "Welcome Master ^ff0000" + getguildmaster(@GIDp4) + "^000000 !";
	mes "I'll do anything you tell me to do sir!.";
	next;
	menu "Guild Base Briefing",L1,"Commerce Investment",L2,"Defence Investment",L3,"Guardian Installation",L4,"Kafra Service Employment / Dismissal",L5,"Enter Master's Room",L6,"Empty Guild Base",L7;
//-----------------------------------------------------------
//================================================
// Guild Base Briefing
//================================================
L1:
	mes "[ Bandred ]";
	mes "Guild Base Investment Information.";
	mes " ";
	mes "Current Commerce Investment is : " + GetCastleData("prtg_cas04.gat",2) + " points.";
	mes "^0000ff - You have invested " + GetCastleData("prtg_cas04.gat",4)  + "times today.^000000";
	mes " ";
	mes "Current Defence Investment is : " + GetCastleData("prtg_cas04.gat",3)  + "points.";
	mes "^0000ff- You have invested" +  GetCastleData("prtg_cas04.gat",5)  + "times today.^000000";
	mes " ";
	mes "That is about it.";
	close;
//================================================
// Commerce Investment
//================================================
L2:
	set @TriggerE,GetCastleData("prtg_cas04.gat",4);
	set @Economy,GetCastleData("prtg_cas04.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;
	if(@TriggerE == 0) goto L2_1;
	if(@TriggerE == 1) goto L2_1_2;
	if(@Economy >= 100) goto L2_2;
	mes "[ Bandred ]";
	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
		mes " ";
	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.";
	 	close;
L2_1:
	if(@TriggerE == 1) goto L2_1_2;
	mes "[ Bandred ]";
	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
	mes " ";
	mes "The needed investment amount is ^ff0000" + $eco_invest + "^000000 zeny. Would you like to invest?";
	next;
	menu "Invest Commerce.",L2_1_1,"Cancel.",-;
		mes "[ Bandred ]";
		mes "As you wish, master.";
		close;
	L2_1_1:
		if(Zeny < $eco_invest) goto L2_error;
		set Zeny,Zeny-$eco_invest;
		SetCastleData "prtg_cas04.gat",4,@TriggerE+1;
		SetCastleData "prtg_cas04.gat",2,@Economy+1;
		mes "[ Bandred ]";
		mes "You have invested successfully.";
		close;
		
L2_1_2:
	set $eco_invest,$eco_invest*4;
	mes "[ Bandred ]";
	mes "If you improve your Commerce Investment, the guild's productive power increases to produce more goods. So an investment will be required if you consider the future";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
	mes " ";
	mes "You've already invested once today, but you can invest again at ^ff0000" + $eco_invest + "^000000 Zeny. Would you like to invest again?";
	next;
	menu "Invest Commerce.",L2_1_3,"Cancel.",-;
		mes "[ Bandred ]";
		mes "As you wish, master.";
		close;
	L2_1_3:
		if(Zeny < $eco_invest) goto L2_error;
		set Zeny,Zeny-$eco_invest;
		SetCastleData "prtg_cas04.gat",4,@TriggerE+1;
		SetCastleData "prtg_cas04.gat",2,@Economy+1;
		mes "[ Bandred ]";
		mes "You have invested successfully";
		close;

L2_2:
		mes "[ Bandred ]";
		mes " ";
		mes "^ff0000This Castle's commerce investment is already maxed at 100 points. You don't have to invest any further.^000000";
	 	close;

L2_error:
	mes "[ Bandred ]";
	mes "Master, you do not have enough money to invest, investment has been cancelled.";
	close;
//================================================
// Defence Investment
//================================================
L3:
	set @TriggerD,GetCastleData("prtg_cas04.gat",5);
	set @Defence,GetCastleData("prtg_cas04.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;
	if(@TriggerD == 0) goto L3_1;
	if(@TriggerD == 1) goto L3_1_2;
	if(@Defence >= 100) goto L3_2;
	mes "[ Bandred ]";
	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
		mes " ";
	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.";
	 	close;

L3_1:
	if(@TriggerD == 1) goto L3_1_2;
	mes "[ Bandred ]";
	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
	mes " ";
	mes "The needed investment amount is ^ff0000" + $def_invest + "^000000 zeny. Would you like to invest?";
	next;
	menu "Invest Defence.",L3_1_1,"Cancel",-;
		mes "[ Bandred ]";
		mes "As you wish, master.";
		close;
	L3_1_1:
		if(Zeny < $def_invest) goto L3_error;
		set Zeny,Zeny-$def_invest;
		SetCastleData "prtg_cas04.gat",5,@TriggerD+1;
		SetCastleData "prtg_cas04.gat",3,@Defence+1;
		mes "[ Bandred ]";
		mes "You have invested successfully.";
		close;
L3_1_2:
	set $def_invest,$def_invest*4;
	mes "[ Bandred ]";
	mes "If you improve investment of defence, the durability of our guardians and the emperium will increase. So if you consider our future battles, an investment will be required.";
	mes " ";
	mes "You can invest up to two times a day, but the second time costs more";
	mes " ";
	mes "You've already invested once today, but you can invest again at ^ff0000" + $eco_invest + "^000000 Zeny. Would you like to invest again?";
	next;
	menu "Invest Defence.",L3_1_3,"Cancel",-;
		mes "[ Bandred ]";
		mes "As you wish, master.";
		close;
		
	L3_1_3:
		if(Zeny < $def_invest) goto L3_error;
		set Zeny,Zeny-$def_invest;
		SetCastleData "prtg_cas04.gat",5,@TriggerD+1;
		SetCastleData "prtg_cas04.gat",3,@Defence+1;
		mes "[ Bandred ]";
		mes "You have invested successfully.";
		close;
L3_2:
		mes "[ Bandred ]";
		mes " ";
		mes "^ff0000This Castle's Defence Investment is already maxed at 100 points. You don't have to invest any further.^000000";
		close;
L3_error:
	mes "[ Bandred ]";
	mes "Master, you do not have enough money to invest, investment has been cancelled.";
	close;
//================================================
// Guardian Installation
//================================================
L4:
	If(getskilllv(10002) == 0) goto L4Error;
	set @Defence,GetCastleData("prtg_cas04.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 @SGuardian,strmobinfo(4,1287)+2000*@Defence;
	set @AGuardian,strmobinfo(4,1286)+2000*@Defence;
	set @KGuardian,strmobinfo(4,1285)+2000*@Defence;

	mes "[ Bandred ]";
	mes "Would you like to install a guardian? Guardian will protect guild base from enemies.";
	mes "Please choose 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("prtg_cas04.gat",10) == 1) goto L4Error2;
			set @GDnum,10;
			set @GDnum2,18;
			set @GuardianHP,@SGuardian;
			goto L4_9;
		L4_2:
			if (GetCastleData("prtg_cas04.gat",11) == 1) goto L4Error2;
			set @GDnum,11;
			set @GDnum2,19;
			set @GuardianHP,@SGuardian;
			goto L4_9;
		L4_3:
			if (GetCastleData("prtg_cas04.gat",12) == 1) goto L4Error2;
			set @GDnum,12;
			set @GDnum2,20;
			set @GuardianHP,@SGuardian;
			goto L4_9;
		L4_4:
			if (GetCastleData("prtg_cas04.gat",13) == 1) goto L4Error2;
			set @GDnum,13;
			set @GDnum2,21;			
			set @GuardianHP,@AGuardian;
			goto L4_9;
		L4_5:
			if (GetCastleData("prtg_cas04.gat",14) == 1) goto L4Error2;
			set @GDnum,14;
			set @GDnum2,22;			
			set @GuardianHP,@AGuardian;			
			goto L4_9;
		L4_6:
			if (GetCastleData("prtg_cas04.gat",15) == 1) goto L4Error2;
			set @GDnum,15;
			set @GDnum2,23;		
			set @GuardianHP,@KGuardian;
			goto L4_9;
		L4_7:
			if (GetCastleData("prtg_cas04.gat",16) == 1) goto L4Error2;
			set @GDnum,16;
			set @GDnum2,24;
			set @GuardianHP,@KGuardian;
			goto L4_9;
		L4_8:
			if (GetCastleData("prtg_cas04.gat",17) == 1) goto L4Error2;
			set @GDnum2,25;			
			set @GuardianHP,@KGuardian;
			goto L4_9;
	L4_9:
		mes "[ Bandred ]";
		mes "Would you really like to install guardian? You need 10,000 zeny to install.";
		next;
		menu "Install",L4_9_1,"Cancel",-;
			mes "[ Bandred ]";
			mes "I'll follow your order sir, but it is worth to have a guardian soon or later.";
			close;
		L4_9_1:
		if (Zeny < 10000) goto L4Error3;
		set Zeny,Zeny-10000;
		SetCastleData "prtg_cas04.gat",@GDnum,1;
		SetCastleData "prtg_cas04.gat",@GDnum2,@GuardianHP;
		if(@GDnum==10) guardian "prtg_cas04.gat",30,234,"Soldier Guardian",1287,1,"Guardian_D04::OnGuardianDied",0; 
		if(@GDnum==11) guardian "prtg_cas04.gat",38,234,"Soldier Guardian",1287,1,"Guardian_D04::OnGuardianDied",1; 
		if(@GDnum==12) guardian "prtg_cas04.gat",63,26,"Soldier Guardian",1287,1,"Guardian_D04::OnGuardianDied",2;
		if(@GDnum==13) guardian "prtg_cas04.gat",253,274,"Archer Guardian",1285,1,"Guardian_D04::OnGuardianDied",3; 
		if(@GDnum==14) guardian "prtg_cas04.gat",269,256,"Archer Guardian",1285,1,"Guardian_D04::OnGuardianDied",4; 
		if(@GDnum==15) guardian "prtg_cas04.gat",267,271,"Knight Guardian",1286,1,"Guardian_D04::OnGuardianDied",5; 
		if(@GDnum==16) guardian "prtg_cas04.gat",34,281,"Knight Guardian",1286,1,"Guardian_D04::OnGuardianDied",6; 
		if(@GDnum==17) guardian "prtg_cas04.gat",33,232,"Knight Guardian",1286,1,"Guardian_D04::OnGuardianDied",7;
		mes "[ Bandred ]";
		mes "Guardian has been installed, guardian will protect our guild base against enemies.";
		close;
L4Error:
	mes "[ Bandred ]";
	mes "Master, you cannot install guardians because the guild had not learnt the ^ff0000Guardian Research^000000 skill. Guardian Installation has been cancelled.";
	close;
L4Error2:
	mes "[ Bandred ]";
	mes "Master, that guardian has already been installed..";
	close;
L4Error3:
	mes "[ Bandred ]";
	mes "Master, you do not have enough money to invest, investment has been cancelled.";
	close;
//================================================
// Kafra Employment
//================================================
L5:
	if (GetCastleData("prtg_cas04.gat",9) == 1) goto Lkafra_dimi;
//================================================
//(When Kafra is off) Employment
//================================================
	If(getskilllv(10001) == 0) goto L_k_a;
	mes "[ Bandred ]";
	mes "Would you like to employ the services of a Kafra Service?";
	mes "^ff0000 You need 10,000 Zeny to employ... ";
	next;
	menu "Employ Kafra.",L_k_0,"Cancel",L_k_E;

	L_k_a:
		mes "[ Bandred ]";
		mes "Master, you don't have a contract with the Kafra Service Company. In order to hire, a kafra, it is important to be contracted with the Kafra Service by having Guild Skill ^ff0000Contract With Kafra^000000. Employment has been cancelled .";
		close;
	L_k_0:
		if (Zeny > 10000) goto L_k_1;
		mes "[ Bandred ]";
		mes "Master, you do not have enough money to employ Kafra. Employment has been cancelled.";
		close;
	L_k_1:
		set Zeny,Zeny-10000;
		enablenpc "Kafra Service#prt4";
		SetCastleData "prtg_cas04.gat",9,1;
		mes "[ Bandred ]";
		mes "You have been contracted with Kafra Service Company.";
		next;
		cutin "kafra_01",2;
		mes "[ Kafra Service ]";
		mes "How do you do? I came here to follow your orders!.";
		mes "I'll do the best I can to serve you better.";
		next;
		cutin "kafra_01",255;
		mes "[ Bandred ]";
		mes "Your employment contract lasts one month.";
		mes "After this term, you'll have to pay again.";
		mes "I think the Kafra Service will benefit our guild members.";
		close;
L_k_e:
		mes "[ Bandred ]";
		mes "Yes, Master. But we should really get a Kafra as soon as possible!";
		close;
//=========================
//(When Kafra is on) Dismissal
//=========================
Lkafra_dimi:
	mes "[ Bandred ]";
	mes "Would you like to dismiss current Kafra Service?";
	next;
	menu "Dismissal",-,"Cancel",L_D_1;
		cutin "kafra_01",2;
		mes "[ Kafra Service ]";
		mes "What have I done wrong? if so, would you please forgive me?";
		next;
		menu "Dismiss",-,"Cancel",L_D_2;
				mes "[ Kafra Service ]";
				mes "It's such unfortunate that I'm unable to serve master anymore";
				next;
				disablenpc "Kafra Service#prt4";
				SetCastleData "prtg_cas04.gat",9,0;
				cutin "kafra_01",255;
				mes "[ Bandred ]";
				mes "The Kafra Service had been dismissed";
				mes "But... we should really get a Kafra as soon as possible!";
				close;
			L_D_2:
				mes "[ Kafra Service ]";
				mes "Thank you master, I'll do my best! ^^.";
				cutin "kafra_01",255;
				close;
		L_D_1:
			mes "[ Bandred ]";
			mes "Master, I think you should keep the current Kafra Service because she is already trying her best to serve us";
			close;
L5_1:
//================================================
// Guild Treasure Room
//================================================
L6:
	mes "[ Bandred ]";
	mes "Would you like to get into our treasure room?";
	mes "That place is only for guild master, which means you are the only one who has access to enter.";
	next;
	menu "Enter Master's room.",-,"Cancel",L6_1;
			mes "[ Bandred ]";
			mes "Please follow me through the secret way.";
			mes "You must push down the secret switch in order to get out.";
			next;
			warp "prtg_cas04",271,162;
		L6_1:
			mes "[ Bandred ]";
			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.";
			close;
//================================================
// Surrender Castle
//================================================
L7:
	mes "[ Bandred ]";
	mes "Master..";
	mes "Do you really want to give up this guild base?";
	mes "It is not worth it to give up this guild base, master!!!";
	mes "Please reconsider, master!!";
	next;
	menu "Empty Guild Base",L7_1,"Cancel",L7_2;
		L7_1:
			mes "[ Bandred ]";
			mes "Master, please reconsider...!!";
			next;
			menu "Cancel",L7_2,"Empty Guild Base",-;
				mes "[ Bandred ]";
				mes "Master!!.....";
				mes "Oh well..";
				next;
			SetCastleData "prtg_cas04.gat",1,0;
			SetCastleData "prtg_cas04.gat",2,0;
			SetCastleData "prtg_cas04.gat",3,0;
			SetCastleData "prtg_cas04.gat",4,0;
			SetCastleData "prtg_cas04.gat",5,0;
			SetCastleData "prtg_cas04.gat",6,0;
			SetCastleData "prtg_cas04.gat",7,0;
			SetCastleData "prtg_cas04.gat",8,0;
			SetCastleData "prtg_cas04.gat",9,0;
			SetCastleData "prtg_cas04.gat",10,0;
			SetCastleData "prtg_cas04.gat",11,0;
			SetCastleData "prtg_cas04.gat",12,0;
			SetCastleData "prtg_cas04.gat",13,0;
			SetCastleData "prtg_cas04.gat",14,0;
			SetCastleData "prtg_cas04.gat",15,0;
			SetCastleData "prtg_cas04.gat",16,0;
			SetCastleData "prtg_cas04.gat",17,0;
			SetCastleData "prtg_cas04.gat",18,0;
			SetCastleData "prtg_cas04.gat",19,0;
			SetCastleData "prtg_cas04.gat",20,0;
			SetCastleData "prtg_cas04.gat",21,0;
			SetCastleData "prtg_cas04.gat",22,0;
			SetCastleData "prtg_cas04.gat",23,0;
			SetCastleData "prtg_cas04.gat",24,0;
			SetCastleData "prtg_cas04.gat",25,0;
			Announce "[" + GetGuildName(@GIDp4) + "] has surrendered Agit [" + GetCastleName("prtg_cas04.gat") + "]",0;
			MapRespawnGuildID "prtg_cas04.gat",GetCastleData("prtg_cas04.gat",1),7;
			break;
			L7_2:
			mes "[ Bandred ]";
			mes "I knew it master!!";
			mes "Please, don't freak me out like that again.";
		close;
}