Context Navigation

schg_cas01.txt @ 1

Revision 1, 88.5 kB (checked in by jinshiro, 17 years ago)

Line
1	//===== eAthena Script =======================================
2	//= War of Emperium Second Edition
3	//===== By: ==================================================
4	//= L0ne_W0lf
5	//===== Current Version: =====================================
6	//= 1.6
7	//===== Compatible With: =====================================
8	//= eAthena SVN
9	//===== Description: =========================================
10	//= WoE SE Schwaltzvalt Castle 1
11	//===== Additional Comments: =================================
12	//= 1.0 First Version [L0ne_W0lf]
13	//= 1.1 Swaped an end for a close in eco investing. [L0ne_W0lf]
14	//= 1.2 Fixed take-over lowering schg_cas04's eco. [L0ne_W0lf]
15	//= 1.3 Fixed double message in defense investing. [L0ne_W0lf]
16	//= Corrected a minor typo in the guild steward.
17	//= 1.4 Fixed a guardian spawning NPCs. [L0ne_W0lf]
18	//= 1.5 Fixed investment period not resetting. [L0ne_W0lf]
19	//= Made it so treasure won't spawn if castle is empty.
20	//= Treasure will now be killed before spawning.
21	//= 1.6 Corrected a typo with treasure spawning. [L0ne_W0lf]
22	//============================================================
23
24	schg_cas01,1,1,0 script Manager#sch01_02 111,{
25	end;
26
27	OnInterIfInitOnce:
28	GetCastleData "schg_cas01",0,"::OnRecvCastleSc01";
29	end;
30
31	OnRecvCastleSc01:
32	RequestGuildInfo GetCastleData("schg_cas01",1);
33	if (GetCastleData("schg_cas01",1) == 0) {
34	donpcevent "Manager#sch01_02::Onstart";
35	}
36	end;
37
38	OnAgitStart:
39	if (agitcheck()) {
40	MapRespawnGuildID "schg_cas01",GetCastleData("schg_cas01",1),2;
41	GvgOn "schg_cas01";
42	donpcevent "Manager#sch01_02::Onstart";
43	}
44	else {
45	donpcevent "#sch01_RL00::OnDisable";
46	donpcevent "#sch01_RL01::OnDisable";
47	donpcevent "#sch01_RL02::OnDisable";
48	donpcevent "#sch01_RL03::OnDisable";
49	}
50	end;
51
52	OnAgitEnd:
53	GvgOff "schg_cas01";
54	if (GetCastleData("schg_cas01",1)) {
55	KillMonster "schg_cas01","Steward#sch01::OnStartArena";
56	donpcevent "Manager#sch01_02::Onreset";
57	donpcevent "Steward#sch01::Onstop";
58	}
59	end;
60
61	Onstart:
62	// 1st Guardian stone, 2nd Guardian stone, Barrier 1, Barrier 2, Barrier 3, Summon Guardians
63	// Settings for all but Summon Guardians
64	// 0 = Okay; 1 = Destroyed; 2 = Repairing
65	// Summon Guardians
66	// 0 = Do not Summon; 1 = Summon
67	if (GetCastleData("schg_cas01",1)) {
68	setarray $agit_sc01[0],0,0,0,0,0,0;
69	donpcevent "#sch01_df01::OnEnable";
70	donpcevent "#sch01_df02::OnEnable";
71	donpcevent "#sch01_RL00::OnEnable";
72	donpcevent "#sch01_RL01::OnEnable";
73	donpcevent "#sch01_RL02::OnEnable";
74	donpcevent "#sch01_RL03::OnEnable";
75	}
76	monster "schg_cas01",120,272,"Emperium",1288,1,"Steward#sch01::OnStartArena";
77	end;
78
79	Onreset:
80	donpcevent "#sch01_df01::OnDisable";
81	donpcevent "#sch01_df02::OnDisable";
82	donpcevent "#sch01_gard01::Onreset";
83	donpcevent "#sch01_gard02::Onreset";
84	donpcevent "#sch01_RL00::OnDisable";
85	donpcevent "#sch01_RL01::OnDisable";
86	donpcevent "#sch01_RL02::OnDisable";
87	donpcevent "#sch01_RL03::OnDisable";
88	donpcevent "1st Guardian Stone#sch01::OnDisable";
89	donpcevent "2nd Guardian Stone#sch01::OnDisable";
90	donpcevent "Control Device01#sch01::OnDisable";
91	donpcevent "Control Device02#sch01::OnDisable";
92	donpcevent "Control Device03#sch01::OnDisable";
93	if (agitcheck()) {
94	setarray $agit_sc01[0],0,0,1,1,1,0;
95	}
96	end;
97
98	Onchange:
99	setarray $agit_sc01[0],2,2,1,1,2,0;
100	monster "schg_cas01",120,272,"Emperium",1288,1,"Steward#sch01::OnStartArena";
101	donpcevent "Control Device03#sch01::OnEnable";
102	donpcevent "1st Guardian Stone#sch01::OnEnable";
103	donpcevent "2nd Guardian Stone#sch01::OnEnable";
104	end;
105
106	OnClock0001:
107	if (!GetCastleData("schg_cas01",1)) end;
108	killmonster "schg_cas01","Manager#sch01_02::OnTreasureDied";
109
110	setcastledata "schg_cas01",4,0;
111	setcastledata "schg_cas01",5,0;
112
113	set .@Treasure,GetCastleData("schg_cas01",2)/5+4;
114	if (.@Treasure) {
115	monster "schg_cas01",388,388,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
116	monster "schg_cas01",388,389,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
117	monster "schg_cas01",388,390,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
118	monster "schg_cas01",387,390,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
119	if (.@Treasure < 5) end;
120	monster "schg_cas01",386,390,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
121	if (.@Treasure < 6) end;
122	monster "schg_cas01",385,390,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
123	if (.@Treasure < 7) end;
124	monster "schg_cas01",384,389,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
125	if (.@Treasure < 8) end;
126	monster "schg_cas01",384,388,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
127	if (.@Treasure < 9) end;
128	monster "schg_cas01",384,387,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
129	if (.@Treasure < 10) end;
130	monster "schg_cas01",384,386,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
131	if (.@Treasure < 11) end;
132	monster "schg_cas01",384,385,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
133	if (.@Treasure < 12) end;
134	monster "schg_cas01",384,384,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
135	if (.@Treasure < 13) end;
136	monster "schg_cas01",385,384,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
137	if (.@Treasure < 14) end;
138	monster "schg_cas01",386,384,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
139	if (.@Treasure < 15) end;
140	monster "schg_cas01",387,384,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
141	if (.@Treasure < 16) end;
142	monster "schg_cas01",388,384,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
143	if (.@Treasure < 17) end;
144	monster "schg_cas01",389,384,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
145	if (.@Treasure < 18) end;
146	monster "schg_cas01",390,384,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
147	if (.@Treasure < 19) end;
148	monster "schg_cas01",390,385,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
149	if (.@Treasure < 20) end;
150	monster "schg_cas01",390,386,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
151	if (.@Treasure < 21) end;
152	monster "schg_cas01",389,386,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
153	if (.@Treasure < 22) end;
154	monster "schg_cas01",388,386,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
155	if (.@Treasure < 23) end;
156	monster "schg_cas01",387,286,"Treasure Chest",1938,1,"Manager#sch01_02::OnTreasureDied";
157	if (.@Treasure < 24) end;
158	monster "schg_cas01",386,386,"Treasure Chest",1324,1,"Manager#sch01_02::OnTreasureDied";
159	}
160	end;
161
162	OnTreasureDied:
163	end;
164	}
165
166	schg_cas01,123,306,3 script Ef#sch01_01 868,{
167	set .@GID, GetCastleData("schg_cas01",1);
168	if (.@GID == 0) {
169	mes "[Ef]";
170	mes "Great job. Now, all you";
171	mes "need to do is destroy this";
172	mes "Emperium to gain ownership";
173	mes "over this stronghold.";
174	close;
175	}
176	if (getcharid(2) == .@GID) {
177	if (strcharinfo(0) != getguildmaster(.@GID)) {
178	mes "[Ef]";
179	mes "As guardian of this";
180	mes "stronghold, I answer only";
181	mes "to the master of the guild";
182	mes "that controls this place.";
183	close;
184	}
185	else {
186	if (agitcheck() == 0) {
187	mes "[Ef]";
188	mes "I am Ef, guardian of";
189	mes "this stronghold. For now,";
190	mes "all is quiet in this place.";
191	next;
192	switch(select("Converse:Cancel")) {
193	case 1:
194	mes "[Ef]";
195	mes "Do you have any questions";
196	mes "about this stronghold?";
197	next;
198	switch(select("Guardian Stones:Fortress Gates:Link Flags:Battle Strategy:Cancel")) {
199	case 1:
200	mes "[Ef]";
201	mes "There is one Emperium";
202	mes "and two Guardian Stones in";
203	mes "each fortress. These stones";
204	mes "are the first line of defense,";
205	mes "and must be destroyed before";
206	mes "enemies can even enter.";
207	next;
208	mes "[Ef]";
209	mes "The stones are located in";
210	mes "^4D4DFFGate Houses^000000 which must be";
211	mes "protected to prevent enemies";
212	mes "from reaching the Emperium.";
213	mes "Guardian Stones can ^4D4DFFrecall";
214	mes "your Guardians^000000 for protection.";
215	next;
216	mes "[Ef]";
217	mes "Fortresses with higher levels";
218	mes "of defense can summon more";
219	mes "Guardians: this is why it is";
220	mes "so important for guilds to";
221	mes "invest in Defense Growth.";
222	next;
223	mes "[Ef]";
224	mes "Guardian Stones that have";
225	mes "been destroyed can be revived";
226	mes "after a certain time, but one of^FFFFFF ^000000 the guild members must give";
227	mes "me the order. I can also report^FFFFFF ^000000 the status of the Guardian Stones.";
228	close;
229	case 2:
230	mes "[Ef]";
231	mes "^4D4DFFFortress Gates^000000 are the second ^FFFFFF ^000000 line of guild stronghold defense,";
232	mes "and are protected by extra barricades activated by the Guardian Stones.";
233	mes "These gates are located in three different parts of the fortress.";
234	next;
235	mes "[Ef]";
236	mes "Barricades are protected by";
237	mes "Guardian Stones, and are";
238	mes "restored when the Guardian";
239	mes "Stones are retrieved. However,";
240	mes "it is not as easy to restore";
241	mes "destroyed Fortress Gates.";
242	next;
243	mes "[Ef]";
244	mes "Fortress Gates can only be";
245	mes "restored when the ^4D4DFFguild";
246	mes "master of a stronghold";
247	mes "changes^000000, or if ^4D4DFFrestoration";
248	mes "is requested by the guild";
249	mes "master of the stronghold^000000.";
250	close;
251	case 3:
252	mes "[Ef]";
253	mes "Strongholds have many";
254	mes "Link Flags that allow you";
255	mes "to access vital areas within";
256	mes "restrictions placed by the";
257	mes "Barricades. Usually, ^4D4DFFFlag 1";
258	mes "links to the Gate House^000000.";
259	next;
260	mes "[Ef]";
261	mes "Many flags link directly to";
262	mes "the flag near the Emperium.";
263	mes "The final numbered flag is";
264	mes "linked to the Convenience";
265	mes "Facility of the stronghold's";
266	mes "owner. Keep this in mind.";
267	close;
268	case 4:
269	mes "[Ef]";
270	mes "Strategy? It would be better";
271	mes "to develop your battle plan to";
272	mes "exploit your guild's advantages";
273	mes "and your enemies' weaknesses.";
274	mes "Use the Gate Houses and Barricades, and rebuild as quickly as you can!";
275	close;
276	case 5:
277	mes "[Ef]";
278	mes "You have no questions";
279	mes "to ask of me? Well, I'm";
280	mes "here to serve your needs.";
281	close;
282	}
283	case 2:
284	mes "[Ef]";
285	mes "I'm always here, so";
286	mes "feel free to request my";
287	mes "assistance whenever";
288	mes "the need arises.";
289	close;
290	}
291	}
292	else {
293	mes "[Ef]";
294	mes "Greetings, "+strcharinfo(0)+".";
295	mes "What are your orders?";
296	next;
297	switch(select("Increase Stronghold Defense:Situational Briefing:Cancel")) {
298	case 1:
299	if ($agit_sc01[5] == 0) {
300	if (getgdskilllv(.@GID,10002) == 0) {
301	mes "[Ef]";
302	mes "I'm sorry, but the Guardian";
303	mes "Stones aren't powerful enough";
304	mes "to summon Guardians yet. We";
305	mes "need to accumulate more";
306	mes "knowledge before they can";
307	mes "summon any Guardians.";
308	close;
309	}
310	else {
311	mes "[Ef]";
312	mes "I shall endeavor to summon";
313	mes "a Guardian through a Guardian";
314	mes "Stone. However, keep in mind";
315	mes "that this will not work if the";
316	mes "Guardian Stone is destroyed.";
317	setarray $agit_sc01[5],1;
318	if ($agit_sc01[0] == 0) {
319	donpcevent "#sch01_gard01::OnEnable";
320	}
321	if ($agit_sc01[1] == 0) {
322	donpcevent "#sch01_gard02::OnEnable";
323	}
324	close;
325	}
326	}
327	else {
328	mes "[Ef]";
329	mes "You've already commanded";
330	mes "me to summon a Guardian";
331	mes "to defend the stronghold.";
332	close;
333	}
334	case 2:
335	mes "[Ef]";
336	mes "Our defense status is...";
337	if ($agit_sc01[0] == 1) {
338	mes "1st Guardian Stone: ^FF0000Destroyed^000000";
339	}
340	else if ($agit_sc01[0] == 2) {
341	mes "1st Guardian Stone: ^008000Repairing^000000";
342	}
343	else {
344	mes "1st Guardian Stone: ^4D4DFFOperational^000000";
345	}
346	if ($agit_sc01[1] == 1) {
347	mes "2nd Guardian Stone: ^FF0000Destroyed^000000";
348	}
349	else if ($agit_sc01[1] == 2) {
350	mes "2nd Guardian Stone: ^008000Repairing^000000";
351	}
352	else {
353	mes "2nd Guardian Stone: ^4D4DFFOperational^000000";
354	}
355	if ($agit_sc01[2] == 1) {
356	mes "1st Fortress Gate: ^FF0000Destroyed^000000";
357	}
358	else if ($agit_sc01[2] == 2) {
359	mes "1st Fortress Gate: ^008000Repairing^000000";
360	}
361	else {
362	mes "1st Fortress Gate: ^4D4DFFOperational^000000";
363	}
364	if ($agit_sc01[3] == 1) {
365	mes "2nd Fortress Gate: ^FF0000Destroyed^000000";
366	}
367	else if ($agit_sc01[3] == 2) {
368	mes "2nd Fortress Gate: ^008000Repairing^000000";
369	}
370	else {
371	mes "2nd Fortress Gate: ^4D4DFFOperational^000000";
372	}
373	if ($agit_sc01[4] == 1) {
374	mes "3rd Fortress Gate: ^FF0000Destroyed^000000";
375	}
376	else if ($agit_sc01[4] == 2) {
377	mes "3rd Fortress Gate: ^008000Repairing^000000";
378	}
379	else {
380	mes "3rd Fortress Gate: ^4D4DFFOperational^000000";
381	}
382	close;
383	case 3:
384	mes "[Ef]";
385	mes "I'll be standing by,";
386	mes "awaiting your orders.";
387	close;
388	}
389	}
390	}
391	}
392	else {
393	mes "[Ef]";
394	mes "Who are you? Scoundrel!";
395	mes "Leave this stronghold now!";
396	close;
397	}
398
399	OnInit:
400	setarray $agit_sc01[0],0,0,0,0,0,0;
401	end;
402	}
403
404	schg_cas01,1,1,0 script #sch01_gard01 -1,{
405	OnEnable:
406	set .@defence,GetCastleData("schg_cas01",3);
407	guardian "schg_cas01",111,18,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //0;
408	if ((.@defence > 10) && (.@defence < 31)) {
409	set .MyMobCount,2;
410	guardian "schg_cas01",109,44,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //1;
411	}
412	else if ((.@defence > 30) && (.@defence < 51)) {
413	set .MyMobCount,3;
414	guardian "schg_cas01",109,44,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //1;
415	guardian "schg_cas01",65,22,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //2;
416	}
417	else if ((.@defence > 50) && (.@defence < 71)) {
418	set .MyMobCount,4;
419	guardian "schg_cas01",109,44,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //1;
420	guardian "schg_cas01",65,22,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //2;
421	guardian "schg_cas01",110,40,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //3;
422	}
423	else if (.@defence > 70) {
424	set .MyMobCount,5;
425	guardian "schg_cas01",109,44,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //1;
426	guardian "schg_cas01",65,22,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //2;
427	guardian "schg_cas01",110,40,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //3;
428	guardian "schg_cas01",88,20,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //4;
429	}
430	else {
431	set .MyMobCount,2;
432	guardian "schg_cas01",108,32,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //1;
433	}
434	initnpctimer;
435	end;
436
437	OnTimer300000:
438	set .MyMobCount,.MyMobCount+1;
439	guardian "schg_cas01",64,40,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //5;
440	mapannounce "schg_cas01","The 1st Guardian has been summoned from the Gate House.",bc_map,"0xff4500";
441	end;
442
443	OnTimer900000:
444	set .MyMobCount,.MyMobCount+1;
445	guardian "schg_cas01",47,43,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //6;
446	mapannounce "schg_cas01","The 2nd Guardian has been summoned from the Gate House.",bc_map,"0xff4500";
447	end;
448
449	OnTimer1800000:
450	set .MyMobCount,.MyMobCount+1;
451	guardian "schg_cas01",109,48,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //7;
452	mapannounce "schg_cas01","The 3rd Guardian has been summoned from the Gate House.",bc_map,"0xff4500";
453	end;
454
455	OnTimer2700000:
456	set .MyMobCount,.MyMobCount+1;
457	guardian "schg_cas01",111,18,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //8;
458	mapannounce "schg_cas01","The 4th Guardian has been summoned from the Gate House.",bc_map,"0xff4500";
459	end;
460
461	OnTimer3600000:
462	set .MyMobCount,.MyMobCount+1;
463	guardian "schg_cas01",112,32,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //9;
464	mapannounce "schg_cas01","The 5th Guardian has been summoned from the Gate House.",bc_map,"0xff4500";
465	stopnpctimer;
466	end;
467
468	OnGuardianDied:
469	set .MyMobCount,.MyMobCount-1;
470	if (.MyMobCount < 2) {
471	set .MyMobCount,.MyMobCount+1;
472	guardian "schg_cas01",120,37,"Guardian Soldier",1899,"#sch01_gard01::OnGuardianDied"; //10;
473	}
474	end;
475
476	Onreset:
477	stopnpctimer;
478	killmonster "schg_cas01","#sch01_gard01::OnGuardianDied";
479	end;
480	}
481
482	schg_cas01,1,2,0 script #sch01_gard02 -1,{
483	OnEnable:
484	set .@defence,GetCastleData("schg_cas01",3);
485	guardian "schg_cas01",130,22,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //11;
486	if ((.@defence > 10) && (.@defence < 31)) {
487	set .MyMobCount,2;
488	guardian "schg_cas01",187,15,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //12;
489	}
490	else if ((.@defence > 30) && (.@defence < 51)) {
491	set .MyMobCount,3;
492	guardian "schg_cas01",129,47,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //12;
493	guardian "schg_cas01",151,18,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //13;
494	}
495	else if ((.@defence > 50) && (.@defence < 71)) {
496	set .MyMobCount,4;
497	guardian "schg_cas01",129,47,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //12;
498	guardian "schg_cas01",151,18,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //13;
499	guardian "schg_cas01",187,15,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //14;
500	}
501	else if (.@defence > 70) {
502	set .MyMobCount,5;
503	guardian "schg_cas01",129,47,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //12;
504	guardian "schg_cas01",151,18,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //13;
505	guardian "schg_cas01",187,15,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //14;
506	guardian "schg_cas01",128,42,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //15;
507	}
508	else {
509	set .MyMobCount,2;
510	guardian "schg_cas01",128,42,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //12;
511	}
512	initnpctimer;
513	end;
514
515	OnTimer600000:
516	set .MyMobCount,.MyMobCount+1;
517	guardian "schg_cas01",152,43,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //16;
518	end;
519
520	OnTimer1200000:
521	set .MyMobCount,.MyMobCount+1;
522	guardian "schg_cas01",187,15,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //17;
523	end;
524
525	OnTimer2100000:
526	set .MyMobCount,.MyMobCount+1;
527	guardian "schg_cas01",128,42,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //18;
528	end;
529
530	OnTimer3000000:
531	set .MyMobCount,.MyMobCount+1;
532	guardian "schg_cas01",130,22,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //19;
533	end;
534
535	OnTimer3900000:
536	set .MyMobCount,.MyMobCount+1;
537	guardian "schg_cas01",130,28,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //20;
538	stopnpctimer;
539	end;
540
541	OnGuardianDied:
542	set .MyMobCount,.MyMobCount-1;
543	if (.MyMobCount < 2) {
544	set .MyMobCount,.MyMobCount+1;
545	guardian "schg_cas01",151,18,"Guardian Soldier",1899,"#sch01_gard02::OnGuardianDied"; //21;
546	}
547	end;
548
549	Onreset:
550	stopnpctimer;
551	killmonster "schg_cas01","#sch01_gard02::OnGuardianDied";
552	end;
553	}
554
555	schg_cas01,1,3,0 script #sch01_df01 -1,{
556	OnEnable:
557	guardian "schg_cas01",27,35,"1st Guardian Stone",1907,"#sch01_df01::OnGuardianStoneDied"; //22;
558	end;
559
560	OnDisable:
561	killmonster "schg_cas01","#sch01_df01::OnGuardianStoneDied";
562	setarray $agit_sc01[0],1; //Global Variable
563	stopnpctimer;
564	end;
565
566	OnGuardianStoneDied:
567	// 1st Guardian Stone is Destroyed
568	setarray $agit_sc01[0],1;
569	if (($agit_sc01[0] == 1) \|\| ($agit_sc01[0] == 2)) {
570	set .@destroyed,.@destroyed + 1;
571	}
572	if (($agit_sc01[1] == 1) \|\| ($agit_sc01[1] == 2)) {
573	set .@destroyed,.@destroyed + 1;
574	}
575	if (.@destroyed == 2) {
576	mapannounce "schg_cas01","All of the Guardian Stones have been destroyed!",bc_map,"0x00ff00";
577	donpcevent "#sch01_RL00::OnDisable";
578	donpcevent "#sch01_gard01::Onreset";
579	}
580	else {
581	mapannounce "schg_cas01","The 1st Guardian Stone has been destroyed!",bc_map,"0x00ff00";
582	donpcevent "#sch01_gard01::Onreset";
583	}
584	initnpctimer;
585	end;
586
587	OnTimer300000:
588	donpcevent "1st Guardian Stone#sch01::OnEnable";
589	setarray $agit_sc01[0],2; //Global Variable
590	stopnpctimer;
591	end;
592	}
593
594	schg_cas01,27,36,0 script 1st Guardian Stone#sch01 844,{
595	set .@GID, GetCastleData("schg_cas01",1);
596	if (getcharid(2) == .@GID) {
597	mes "^3355FFYou will need the";
598	mes "following materials to";
599	mes "rebuild a destroyed";
600	mes "Guardian Stone.^000000";
601	next;
602	mes "1 Oridecon";
603	mes "1 Elunium";
604	mes "30 Stones";
605	mes "5 Blue Gemstones";
606	mes "5 Yellow Gemstones";
607	mes "5 Red Gemstones";
608	next;
609	mes "^3355FFDo you want to continue?^000000";
610	switch(select("No:Continue")) {
611	case 1:
612	mes "^3355FFWork canceled.^000000";
613	close;
614	case 2:
615	if ((countitem(984) > 0) && (countitem(985) > 0) && (countitem(7049) > 29) && (countitem(717) > 4) && (countitem(715) > 4) && (countitem(716) > 4)) {
616	mes "^3355FFArrange Stones, Elunium, and";
617	mes "Oridecon, in that order, in the";
618	mes "center. Then you must arrange";
619	mes "the enchanted Gemstones to";
620	mes "rebuild the Guardian Stone.^000000";
621	next;
622	switch(select("Elunium:Oridecon:Stone")) {
623	case 1:
624	mes "^3355FFElunium has been";
625	mes "placed in the center.^000000";
626	next;
627	break;
628	case 2:
629	mes "^3355FFOridecon has been";
630	mes "placed in the center.^000000";
631	next;
632	break;
633	case 3:
634	mes "^3355FFStones have been";
635	mes "placed in the center.^000000";
636	set .@nice,.@nice+10;
637	next;
638	break;
639	}
640	switch(select("Elunium:Oridecon:Stone")) {
641	case 1:
642	mes "^3355FFYou have lined the";
643	mes "outside of the center";
644	mes "with some Elunium.^000000";
645	set .@nice,.@nice+10;
646	next;
647	break;
648	case 2:
649	mes "^3355FFYou have lined the";
650	mes "outside of the center";
651	mes "with some Oridecon.^000000";
652	next;
653	break;
654	case 3:
655	mes "^3355FFYou have lined the";
656	mes "outside of the center";
657	mes "with some Stones.^000000";
658	next;
659	break;
660	}
661	switch(select("Elunium:Oridecon:Stone")) {
662	case 1:
663	mes "^3355FFYou covered the";
664	mes "rest of the materials";
665	mes "with some Elunium.^000000";
666	next;
667	break;
668	case 2:
669	mes "^3355FFYou covered the";
670	mes "rest of the materials";
671	mes "with some Oridecon.^000000";
672	set .@nice,.@nice+10;
673	next;
674	break;
675	case 3:
676	mes "^3355FFYou covered the";
677	mes "rest of the materials";
678	mes "with some Stones.^000000";
679	next;
680	break;
681	}
682	mes "^3355FFNow you need to arrange";
683	mes "the enchanted Gemstones";
684	mes "accordingly. You can identify";
685	mes "their Magic properties by";
686	mes "their casting effect.^000000";
687	next;
688	while(1) {
689	if (.@roof0 > 7) {
690	break;
691	}
692	else {
693	switch(rand(1,3)) {
694	case 1:
695	specialeffect 54; //"1st Guardian Stone#sch01" EF_BEGINSPELL2
696	mes "^3355FFThe Gemstones must";
697	mes "be arranged in the correct";
698	mes "order according to their";
699	mes "magic properties and power.^000000";
700	next;
701	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
702	case 1:
703	mes "^3355FFYou placed the Red Gemstone.";
704	mes "However, the Guardian Stone";
705	mes "Repair System failed because";
706	mes "of a magic power conflict.^000000";
707	close;
708	case 2:
709	mes "^3355FFYou placed the Yellow Gemstone.";
710	mes "However, the Guardian Stone";
711	mes "Repair System failed because";
712	mes "of a magic power conflict.^000000";
713	close;
714	case 3:
715	mes "^3355FFYou placed the Blue Gemstone.^000000";
716	set .@nice,.@nice+10;
717	set .@roof0,.@roof0 + 1;
718	specialeffect 18; //"1st Guardian Stone#sch01" EF_STEAL
719	next;
720	break;
721	}
722	break;
723	case 2:
724	specialeffect 225; //"1st Guardian Stone#sch01" EF_VOLCANO
725	mes "^3355FFThe Gemstones must";
726	mes "be arranged in the correct";
727	mes "order according to their";
728	mes "magic properties and power.^000000";
729	next;
730	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
731	case 1:
732	mes "^3355FFYou placed the Red Gemstone.^000000";
733	set .@nice,.@nice+10;
734	set .@roof0,.@roof0 + 1;
735	specialeffect 18; //"1st Guardian Stone#sch01" EF_STEAL
736	next;
737	break;
738	case 2:
739	mes "^3355FFYou placed the Yellow Gemstone.";
740	mes "However, the Guardian Stone";
741	mes "Repair System failed because";
742	mes "of a magic power conflict.^000000";
743	close;
744	case 3:
745	mes "^3355FFYou placed the Blue Gemstone.";
746	mes "However, the Guardian Stone";
747	mes "Repair System failed because";
748	mes "of a magic power conflict.^000000";
749	close;
750	}
751	break;
752	case 3:
753	specialeffect 56; //"1st Guardian Stone#sch01" EF_BEGINSPELL4
754	mes "^3355FFThe Gemstones must";
755	mes "be arranged in the correct";
756	mes "order according to their";
757	mes "magic properties and power.^000000";
758	next;
759	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
760	case 1:
761	mes "^3355FFYou placed the Red Gemstone.";
762	mes "However, the Guardian Stone";
763	mes "Repair System failed because";
764	mes "of a magic power conflict.^000000";
765	close;
766	case 2:
767	mes "^3355FFYou placed the Yellow Gemstone.^000000";
768	set .@nice,.@nice+10;
769	set .@roof0,.@roof0 + 1;
770	specialeffect 18; //"1st Guardian Stone#sch01" EF_STEAL
771	next;
772	break;
773	case 3:
774	mes "^3355FFYou placed the Blue Gemstone.";
775	mes "However, the Guardian Stone";
776	mes "Repair System failed because";
777	mes "of a magic power conflict.^000000";
778	close;
779	}
780	}
781	}
782	}
783	if (.@nice > 90) {
784	if ($agit_sc01[0] == 0) {
785	mes "^3355FFThe Guardian Stone";
786	mes "Repair System has";
787	mes "already completed.^000000";
788	close;
789	}
790	else {
791	if (agitcheck() == 0) {
792	mes "^3355FFIt is impossible to";
793	mes "rebuild the Guardian";
794	mes "Stone because the";
795	mes "Emperium is not present.^000000";
796	close;
797	}
798	else {
799	mes "^3355FFThe Gemstones have been";
800	mes "arranged, and the Guardian";
801	mes "Stone is successfully repaired.^000000";
802	delitem 984,1; //Oridecon
803	delitem 985,1; //Elunium
804	delitem 7049,30; //Stone
805	delitem 717,5; //Blue_Gemstone
806	delitem 715,5; //Yellow_Gemstone
807	delitem 716,5; //Red_Gemstone
808	close2;
809	donpcevent "#sch01_df01::OnEnable";
810	specialeffect 135; //"1st Guardian Stone#sch01" EF_ICECRASH
811	disablenpc "1st Guardian Stone#sch01";
812	setarray $agit_sc01[0],0;
813	set .@df_all,$agit_sc01[0]+$agit_sc01[1];
814	if (.@df_all == 0) {
815	mapannounce "schg_cas01","Both Guardian Stones have been erected, bolstering this stronghold's defenses!",bc_map,"0x00ff00";
816	donpcevent "#sch01_RL00::OnEnable";
817	}
818	else {
819	mapannounce "schg_cas01","The 1st Guardian Stone has been repaired successfully.",bc_map,"0x00ff00";
820	}
821	if ($agit_sc01[5] == 1) {
822	donpcevent "#sch01_gard01::OnEnable";
823	}
824	end;
825	}
826	}
827	}
828	else {
829	mes "^3355FFAfter all of that work...";
830	mes "It looks like you failed";
831	mes "to fix the Guardian Stone,";
832	mes "and lost some materials.^000000";
833	delitem 7049,10; //Stone
834	delitem 717,2; //Blue_Gemstone
835	delitem 715,2; //Yellow_Gemstone
836	delitem 716,2; //Red_Gemstone
837	close;
838	}
839	}
840	else {
841	mes "^3355FFYou don't have enough";
842	mes "materials to repair";
843	mes "the Guardian Stone.^000000";
844	close;
845	}
846	}
847	}
848	end;
849
850	OnInit:
851	disablenpc "1st Guardian Stone#sch01";
852	end;
853
854	OnEnable:
855	enablenpc "1st Guardian Stone#sch01";
856	specialeffect 247; //"1st Guardian Stone#sch01" EF_MAPPILLAR2
857	end;
858
859	OnDisable:
860	disablenpc "1st Guardian Stone#sch01";
861	end;
862	}
863
864	schg_cas01,1,4,0 script #sch01_df02 -1,{
865	OnEnable:
866	guardian "schg_cas01",207,75,"2nd Guardian Stone",1908,"#sch01_df02::OnGuardianStoneDied"; //23;
867	end;
868
869	OnDisable:
870	killmonster "schg_cas01","#sch01_df02::OnGuardianStoneDied";
871	setarray $agit_sc01[1],1; //Global Variable
872	stopnpctimer;
873	end;
874
875	OnGuardianStoneDied:
876	// 2nd Guardian Stone is Destroyed
877	setarray $agit_sc01[1],1;
878	if (($agit_sc01[0] == 1) \|\| ($agit_sc01[0] == 2)) {
879	set .@destroyed,.@destroyed + 1;
880	}
881	if (($agit_sc01[1] == 1) \|\| ($agit_sc01[1] == 2)) {
882	set .@destroyed,.@destroyed + 1;
883	}
884	if (.@destroyed == 2) {
885	mapannounce "schg_cas01","All of the Guardian Stones have been destroyed!",bc_map,"0x00ff00";
886	donpcevent "#sch01_RL00::OnDisable";
887	donpcevent "#sch01_gard02::Onreset";
888	}
889	else {
890	mapannounce "schg_cas01","The 2nd Guardian Stone has been destroyed!",bc_map,"0x00ff00";
891	donpcevent "#sch01_gard02::Onreset";
892	}
893	initnpctimer;
894	end;
895
896	OnTimer300000:
897	donpcevent "2nd Guardian Stone#sch01::OnEnable";
898	setarray $agit_sc01[1],2; //Global Variable
899	stopnpctimer;
900	end;
901	}
902
903	schg_cas01,208,75,0 script 2nd Guardian Stone#sch01 844,{
904	set .@GID, GetCastleData("schg_cas01",1);
905	if (getcharid(2) == .@GID) {
906	mes "^3355FFYou will need the";
907	mes "following materials to";
908	mes "rebuild a destroyed";
909	mes "Guardian Stone.^000000";
910	next;
911	mes "1 Oridecon";
912	mes "1 Elunium";
913	mes "30 Stones";
914	mes "5 Blue Gemstones";
915	mes "5 Yellow Gemstones";
916	mes "5 Red Gemstones";
917	next;
918	mes "^3355FFDo you want to continue?^000000";
919	switch(select("No:Continue")) {
920	case 1:
921	mes "^3355FFWork canceled.^000000";
922	close;
923	case 2:
924	if ((countitem(984) > 0) && (countitem(985) > 0) && (countitem(7049) > 29) && (countitem(717) > 4) && (countitem(715) > 4) && (countitem(716) > 4)) {
925	mes "^3355FFArrange Stones, Elunium, and";
926	mes "Oridecon, in that order, in the";
927	mes "center. Then you must arrange";
928	mes "the enchanted Gemstones to";
929	mes "rebuild the Guardian Stone.^000000";
930	next;
931	switch(select("Elunium:Oridecon:Stone")) {
932	case 1:
933	mes "^3355FFElunium has been";
934	mes "placed in the center.^000000";
935	next;
936	break;
937	case 2:
938	mes "^3355FFOridecon has been";
939	mes "placed in the center.^000000";
940	next;
941	break;
942	case 3:
943	mes "^3355FFStones have been";
944	mes "placed in the center.^000000";
945	set .@nice,.@nice+10;
946	next;
947	break;
948	}
949	switch(select("Elunium:Oridecon:Stone")) {
950	case 1:
951	mes "^3355FFYou have lined the";
952	mes "outside of the center";
953	mes "with some Elunium.^000000";
954	set .@nice,.@nice+10;
955	next;
956	break;
957	case 2:
958	mes "^3355FFYou have lined the";
959	mes "outside of the center";
960	mes "with some Oridecon.^000000";
961	next;
962	break;
963	case 3:
964	mes "^3355FFYou have lined the";
965	mes "outside of the center";
966	mes "with some Stones.^000000";
967	next;
968	break;
969	}
970	switch(select("Elunium:Oridecon:Stone")) {
971	case 1:
972	mes "^3355FFYou covered the";
973	mes "rest of the materials";
974	mes "with some Elunium.^000000";
975	next;
976	break;
977	case 2:
978	mes "^3355FFYou covered the";
979	mes "rest of the materials";
980	mes "with some Oridecon.^000000";
981	set .@nice,.@nice+10;
982	next;
983	break;
984	case 3:
985	mes "^3355FFYou covered the";
986	mes "rest of the materials";
987	mes "with some Stones.^000000";
988	next;
989	break;
990	}
991	mes "^3355FFNow you need to arrange";
992	mes "the enchanted Gemstones";
993	mes "accordingly. You can identify";
994	mes "their Magic properties by";
995	mes "their casting effect.^000000";
996	next;
997	while(1) {
998	if (.@roof0 > 7) {
999	break;
1000	}
1001	else {
1002	switch(rand(1,3)) {
1003	case 1:
1004	specialeffect 54; //"2nd Guardian Stone#sch01" EF_BEGINSPELL2
1005	mes "^3355FFThe Gemstones must";
1006	mes "be arranged in the correct";
1007	mes "order according to their";
1008	mes "magic properties and power.^000000";
1009	next;
1010	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
1011	case 1:
1012	mes "^3355FFYou placed the Red Gemstone.";
1013	mes "However, the Guardian Stone";
1014	mes "Repair System failed because";
1015	mes "of a magic power conflict.^000000";
1016	close;
1017	case 2:
1018	mes "^3355FFYou placed the Yellow Gemstone.";
1019	mes "However, the Guardian Stone";
1020	mes "Repair System failed because";
1021	mes "of a magic power conflict.^000000";
1022	close;
1023	case 3:
1024	mes "^3355FFYou placed the Blue Gemstone.^000000";
1025	set .@nice,.@nice+10;
1026	set .@roof0,.@roof0 + 1;
1027	specialeffect 18; //"2nd Guardian Stone#sch01" EF_STEAL
1028	next;
1029	break;
1030	}
1031	break;
1032	case 2:
1033	specialeffect 225; //"2nd Guardian Stone#sch01" EF_VOLCANO
1034	mes "^3355FFThe Gemstones must";
1035	mes "be arranged in the correct";
1036	mes "order according to their";
1037	mes "magic properties and power.^000000";
1038	next;
1039	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
1040	case 1:
1041	mes "^3355FFYou placed the Red Gemstone.^000000";
1042	set .@nice,.@nice+10;
1043	set .@roof0,.@roof0 + 1;
1044	specialeffect 18; //"2nd Guardian Stone#sch01" EF_STEAL
1045	next;
1046	break;
1047	case 2:
1048	mes "^3355FFYou placed the Yellow Gemstone.";
1049	mes "However, the Guardian Stone";
1050	mes "Repair System failed because";
1051	mes "of a magic power conflict.^000000";
1052	close;
1053	case 3:
1054	mes "^3355FFYou placed the Blue Gemstone.";
1055	mes "However, the Guardian Stone";
1056	mes "Repair System failed because";
1057	mes "of a magic power conflict.^000000";
1058	close;
1059	}
1060	break;
1061	case 3:
1062	specialeffect 56; //"2nd Guardian Stone#sch01" EF_BEGINSPELL4
1063	mes "^3355FFThe Gemstones must";
1064	mes "be arranged in the correct";
1065	mes "order according to their";
1066	mes "magic properties and power.^000000";
1067	next;
1068	switch(select("Red Gemstone:Yellow Gemstone:Blue Gemstone")) {
1069	case 1:
1070	mes "^3355FFYou placed the Red Gemstone.";
1071	mes "However, the Guardian Stone";
1072	mes "Repair System failed because";
1073	mes "of a magic power conflict.^000000";
1074	close;
1075	case 2:
1076	mes "^3355FFYou placed the Yellow Gemstone.^000000";
1077	set .@nice,.@nice+10;
1078	set .@roof0,.@roof0 + 1;
1079	specialeffect 18; //"2nd Guardian Stone#sch01" EF_STEAL
1080	next;
1081	break;
1082	case 3:
1083	mes "^3355FFYou placed the Blue Gemstone.";
1084	mes "However, the Guardian Stone";
1085	mes "Repair System failed because";
1086	mes "of a magic power conflict.^000000";
1087	close;
1088	}
1089	}
1090	}
1091	}
1092	if (.@nice > 90) {
1093	if ($agit_sc01[1] == 0) {
1094	mes "^3355FFThe Guardian Stone";
1095	mes "Repair System has";
1096	mes "successfully completed.^000000";
1097	close;
1098	}
1099	else {
1100	if (agitcheck() == 0) {
1101	mes "^3355FFIt is impossible to";
1102	mes "rebuild the Guardian";
1103	mes "Stone because the";
1104	mes "Emperium is not present.^000000";
1105	close;
1106	}
1107	else {
1108	mes "^3355FFThe Gemstones have been";
1109	mes "arranged, and the Guardian";
1110	mes "Stone is successfully repaired.^000000";
1111	delitem 984,1; //Oridecon
1112	delitem 985,1; //Elunium
1113	delitem 7049,30; //Stone
1114	delitem 717,5; //Blue_Gemstone
1115	delitem 715,5; //Yellow_Gemstone
1116	delitem 716,5; //Red_Gemstone
1117	close2;
1118	donpcevent "#sch01_df02::OnEnable";
1119	specialeffect 135; //"2nd Guardian Stone#sch01" EF_ICECRASH
1120	disablenpc "2nd Guardian Stone#sch01";
1121	setarray $agit_sc01[1],0;
1122	set .@df_all,$agit_sc01[0]+$agit_sc01[1];
1123	if (.@df_all == 0) {
1124	mapannounce "schg_cas01","Both Guardian Stones have been erected, bolstering this stronghold's defenses!",bc_map,"0x00ff00";
1125	donpcevent "#sch01_RL00::OnEnable";
1126	}
1127	else {
1128	mapannounce "schg_cas01","The 2nd Guardian Stone has been repaired successfully.",bc_map,"0x00ff00";
1129	}
1130	if ($agit_sc01[5] == 1) {
1131	donpcevent "#sch01_gard02::OnEnable";
1132	}
1133	end;
1134	}
1135	}
1136	}
1137	else {
1138	mes "^3355FFAfter all of that work...";
1139	mes "It looks like you failed";
1140	mes "to fix the Guardian Stone,";
1141	mes "and lost some materials.^000000";
1142	delitem 7049,10; //Stone
1143	delitem 717,2; //Blue_Gemstone
1144	delitem 715,2; //Yellow_Gemstone
1145	delitem 716,2; //Red_Gemstone
1146	close;
1147	}
1148	}
1149	else {
1150	mes "^3355FFYou don't have enough";
1151	mes "materials to repair";
1152	mes "the Guardian Stone.^000000";
1153	close;
1154	}
1155	}
1156	}
1157	end;
1158
1159	OnInit:
1160	disablenpc "2nd Guardian Stone#sch01";
1161	end;
1162
1163	OnEnable:
1164	enablenpc "2nd Guardian Stone#sch01";
1165	specialeffect 247; //"2nd Guardian Stone#sch01" EF_MAPPILLAR2
1166	end;
1167
1168	OnDisable:
1169	disablenpc "2nd Guardian Stone#sch01";
1170	end;
1171	}
1172
1173	// Barrier Summoners
1174	schg_cas01,2,1,0 script #sch01_RL00 -1,{
1175	OnEnable:
1176	setcell "schg_cas01",114,48,126,48,cell_walkable,0;
1177	setcell "schg_cas01",114,48,126,48,cell_shootable,0;
1178	guardian "schg_cas01",115,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //24;
1179	guardian "schg_cas01",117,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //25;
1180	guardian "schg_cas01",119,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //26;
1181	guardian "schg_cas01",121,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //27;
1182	guardian "schg_cas01",123,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //28;
1183	guardian "schg_cas01",125,49," ",1905,"#sch01_RL00::OnBarrierDestroyed"; //29;
1184	end;
1185
1186	OnDisable:
1187	setcell "schg_cas01",114,48,126,48,cell_walkable,1;
1188	setcell "schg_cas01",114,48,126,48,cell_shootable,1;
1189	killmonster "schg_cas01","#sch01_RL00::OnBarrierDestroyed";
1190	end;
1191
1192	OnBarrierDestroyed:
1193	end;
1194	}
1195
1196	schg_cas01,2,2,0 script #sch01_RL01 -1,{
1197	OnEnable:
1198	set .MyMobCount,6;
1199	setcell "schg_cas01",114,51,126,51,cell_walkable,0;
1200	guardian "schg_cas01",115,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //30;
1201	guardian "schg_cas01",117,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //31;
1202	guardian "schg_cas01",119,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //32;
1203	guardian "schg_cas01",121,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //33;
1204	guardian "schg_cas01",123,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //34;
1205	guardian "schg_cas01",125,50," ",1905,"#sch01_RL01::OnBarrierDestroyed"; //35;
1206	end;
1207
1208	OnBarrierDestroyed:
1209	set .MyMobCount,.MyMobCount-1;
1210	if (.MyMobCount == 0) {
1211	setarray $agit_sc01[2],1;
1212	mapannounce "schg_cas01","The 1st Fortress Gate is destroyed.",bc_map,"0x00ff00";
1213	setcell "schg_cas01",114,51,126,51,cell_walkable,1;
1214	}
1215	end;
1216
1217	OnDisable:
1218	setcell "schg_cas01",114,51,126,51,cell_walkable,1;
1219	killmonster "schg_cas01","#sch01_RL01::OnBarrierDestroyed";
1220	end;
1221	}
1222
1223	schg_cas01,2,3,0 script #sch01_RL02 -1,{
1224	OnEnable:
1225	set .MyMobCount,6;
1226	setcell "schg_cas01",114,154,126,154,cell_walkable,0;
1227	guardian "schg_cas01",115,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //36;
1228	guardian "schg_cas01",117,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //37;
1229	guardian "schg_cas01",119,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //38;
1230	guardian "schg_cas01",121,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //39;
1231	guardian "schg_cas01",123,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //40;
1232	guardian "schg_cas01",125,153," ",1905,"#sch01_RL02::OnBarrierDestroyed"; //41;
1233	end;
1234
1235	OnBarrierDestroyed:
1236	set .MyMobCount,.MyMobCount-1;
1237	if (.MyMobCount == 0) {
1238	setarray $agit_sc01[3],1;
1239	mapannounce "schg_cas01","The 2nd Fortress Gate is destroyed.",bc_map,"0x00ff00";
1240	setcell "schg_cas01",114,154,126,154,cell_walkable,1;
1241	}
1242	end;
1243
1244	OnDisable:
1245	setcell "schg_cas01",114,154,126,154,cell_walkable,1;
1246	killmonster "schg_cas01","#sch01_RL02::OnBarrierDestroyed";
1247	end;
1248	}
1249
1250	schg_cas01,2,4,0 script #sch01_RL03 -1,{
1251	OnEnable:
1252	set .MyMobCount,4;
1253	setcell "schg_cas01",116,241,126,241,cell_walkable,0;
1254	guardian "schg_cas01",116,240," ",1905,"#sch01_RL03::OnBarrierDestroyed"; //42;
1255	guardian "schg_cas01",118,240," ",1905,"#sch01_RL03::OnBarrierDestroyed"; //43;
1256	guardian "schg_cas01",120,240," ",1905,"#sch01_RL03::OnBarrierDestroyed"; //44;
1257	guardian "schg_cas01",122,240," ",1905,"#sch01_RL03::OnBarrierDestroyed"; //45;
1258	end;
1259
1260	OnBarrierDestroyed:
1261	set .MyMobCount,.MyMobCount-1;
1262	if (.MyMobCount == 0) {
1263	setarray $agit_sc01[4],1;
1264	mapannounce "schg_cas01","The 3rd Fortress Gate is destroyed!",bc_map,"0x00ff00";
1265	setcell "schg_cas01",116,241,126,241,cell_walkable,1;
1266	}
1267	end;
1268
1269	OnDisable:
1270	setcell "schg_cas01",116,241,126,241,cell_walkable,1;
1271	killmonster "schg_cas01","#sch01_RL03::OnBarrierDestroyed";
1272	end;
1273	}
1274
1275	schg_cas01,124,52,0 script Control Device01#sch01 111,{
1276	set .@GID, GetCastleData("schg_cas01",1);
1277	if (getcharid(2) == .@GID) {
1278	if (strcharinfo(0) == getguildmaster(.@GID)) {
1279	if ($agit_sc01[2] == 2) {
1280	mes "^3355FFDemolished Fortress";
1281	mes "Gates can be repaired,";
1282	mes "but you will need to gather";
1283	mes "the following materials.^000000";
1284	next;
1285	mes "^4D4DFF10 Steel^000000,";
1286	mes "^4D4DFF30 Trunks^000000,";
1287	mes "^4D4DFF5 Oridecon^000000, and";
1288	mes "^4D4DFF10 Emveretarcon^000000.";
1289	next;
1290	select("Continue");
1291	if ((countitem(1019) > 29) && (countitem(999) > 9) && (countitem(1011) > 9) && (countitem(984) > 4)) {
1292	mes "^3355FFYou will need Trunks to";
1293	mes "repair the support frame,";
1294	mes "Oridecon to enhance the";
1295	mes "gate's endurance, and";
1296	mes "Emveretarcon to basically";
1297	mes "hold everything together.^000000";
1298	next;
1299	set .@ro_of01,rand(10,15);
1300	while(1) {
1301	if (.@ro_of02 == .@ro_of01) {
1302	break;
1303	}
1304	else {
1305	switch(rand(1,4)) {
1306	case 1:
1307	mes "^3355FFThe support frame";
1308	mes "is badly damaged:";
1309	mes "fixing this part";
1310	mes "is a top priority.^000000";
1311	next;
1312	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1313	case 1:
1314	mes "^3355FFThe frame has been";
1315	mes "reinforced with wood.^000000";
1316	set .@rp_temp,.@rp_temp + 1;
1317	set .@ro_of02,.@ro_of02 + 1;
1318	specialeffect2 101; // EF_REPAIRWEAPON
1319	next;
1320	break;
1321	case 2:
1322	mes "^3355FFYou tried using steel,";
1323	mes "but it's not working very";
1324	mes "well. You'll have to try";
1325	mes "something else.^000000";
1326	close;
1327	case 3:
1328	mes "^3355FFYou tried using emveretarcon,";
1329	mes "but it's not working very well.^FFFFFF ^3355FF You'll have to try something else.";
1330	close;
1331	case 4:
1332	mes "^3355FFYou tried using oridecon,";
1333	mes "but it's not working very";
1334	mes "well. You'll have to try";
1335	mes "something else.^000000";
1336	close;
1337	}
1338	break;
1339	case 2:
1340	mes "^3355FFIt looks like the gate's";
1341	mes "overall endurance needs to";
1342	mes "be reinforced with something.^000000";
1343	next;
1344	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1345	case 1:
1346	mes "^3355FFYou tried using wood";
1347	mes "to reinforce the gate.^000000";
1348	set .@ro_of02,.@ro_of02 + 1;
1349	next;
1350	break;
1351	case 2:
1352	mes "^3355FFYou tried using steel";
1353	mes "to reinforce the gate, but";
1354	mes "it's not working well at all.";
1355	mes "You'll have to start over.^000000";
1356	close;
1357	case 3:
1358	mes "^3355FFYou tried using emveretarcon";
1359	mes "to reinforce the gate, but it's";
1360	mes "not working well at all.";
1361	mes "You'll have to start over.^000000";
1362	close;
1363	case 4:
1364	mes "^3355FFYou hammered the";
1365	mes "oridecon: it looks";
1366	mes "like this will work.^000000";
1367	set .@rp_temp,.@rp_temp + 1;
1368	set .@ro_of02,.@ro_of02 + 1;
1369	specialeffect2 101; // EF_REPAIRWEAPON
1370	next;
1371	break;
1372	}
1373	break;
1374	case 3:
1375	mes "^3355FFThe damage to the gate";
1376	mes "has caused all these";
1377	mes "cracks. You'll have to";
1378	mes "weld them solid somehow.^000000";
1379	next;
1380	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1381	case 1:
1382	mes "^3355FFYou tried using wood to fix";
1383	mes "this problem, but it seems";
1384	mes "to have made it worse.";
1385	mes "You'll have to start all over.^000000";
1386	close;
1387	case 2:
1388	mes "^3355FFYou used steel to weld";
1389	mes "all the cracks: the gate is";
1390	mes "is starting to look more solid.^000000";
1391	set .@rp_temp,.@rp_temp + 1;
1392	set .@ro_of02,.@ro_of02 + 1;
1393	specialeffect2 101; // EF_REPAIRWEAPON
1394	next;
1395	break;
1396	case 3:
1397	mes "^3355FFYou tried using emveretarcon";
1398	mes "to reinforce the gate, but it's";
1399	mes "not working well at all.";
1400	mes "You'll have to start over.^000000";
1401	close;
1402	case 4:
1403	mes "^3355FFYou tried using oridecon,";
1404	mes "but it's not working very";
1405	mes "well. You'll have to try";
1406	mes "something else.^000000";
1407	close;
1408	}
1409	break;
1410	case 4:
1411	mes "^3355FFNow you need to make";
1412	mes "sure that the gate is held";
1413	mes "together pretty solidly.^000000";
1414	next;
1415	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1416	case 1:
1417	mes "^3355FFYou tried using wood to fix";
1418	mes "this problem, but it seems";
1419	mes "to have made it worse.";
1420	mes "You'll have to start all over.^000000";
1421	close;
1422	case 2:
1423	mes "^3355FFYou tried using steel,";
1424	mes "but it's not working very";
1425	mes "well. You'll have to try";
1426	mes "something else.^000000";
1427	close;
1428	case 3:
1429	mes "^3355FFYou successfully used";
1430	mes "the emveretarcon to repair";
1431	mes "much of the gate's damage.^000000";
1432	set .@rp_temp,.@rp_temp + 1;
1433	set .@ro_of02,.@ro_of02 + 1;
1434	specialeffect2 101; // EF_REPAIRWEAPON
1435	next;
1436	break;
1437	case 4:
1438	mes "^3355FFYou tried using oridecon,";
1439	mes "but it's not working very";
1440	mes "well. You'll have to try";
1441	mes "something else.^000000";
1442	close;
1443	}
1444	}
1445	}
1446	}
1447	mes "^3355FFWell, it looks like";
1448	mes "you're just about done";
1449	mes "with repairing the gate.^000000";
1450	next;
1451	if (agitcheck() == 0) {
1452	mes "^3355FFUnfortunately, the Fortress";
1453	mes "Gate can't be reconstructed:";
1454	mes "the Emperium is no longer here.^000000";
1455	close;
1456	}
1457	else {
1458	if (.@rp_temp == .@ro_of01) {
1459	mes "^3355FFThe Fortress Gate has";
1460	mes "been successfully repaired!^000000";
1461	delitem 1019,30; //Wooden_Block
1462	delitem 999,10; //Steel
1463	delitem 1011,10; //Emveretarcon
1464	delitem 984,5; //Oridecon
1465	close2;
1466	donpcevent "#sch01_RL01::OnEnable";
1467	disablenpc "Control Device01#sch01";
1468	mapannounce "schg_cas01","The 1st Fortress Gate has been reconstructed!",bc_map,"0x00ff00";
1469	setarray $agit_sc01[2],0;
1470	end;
1471	}
1472	else {
1473	mes "^3355FFThe wall has been breached,";
1474	mes "and the attempt to repair the";
1475	mes "Fortress Gate has failed.";
1476	mes "You lost some of your";
1477	mes "repair resources...^000000";
1478	delitem 984,2; //Oridecon
1479	delitem 999,4; //Steel
1480	delitem 1019,14; //Wooden_Block
1481	delitem 1011,3; //Emveretarcon
1482	close;
1483	}
1484	}
1485	}
1486	else {
1487	mes "^3355FFYou can't attempt to repair";
1488	mes "the Fortress Gate if you don't";
1489	mes "have all the needed materials.^000000";
1490	close;
1491	}
1492	}
1493	}
1494	}
1495	end;
1496
1497	OnInit:
1498	disablenpc "Control Device01#sch01";
1499	end;
1500
1501	OnEnable:
1502	enablenpc "Control Device01#sch01";
1503	end;
1504
1505	OnDisable:
1506	disablenpc "Control Device01#sch01";
1507	end;
1508	}
1509
1510	schg_cas01,128,157,0 script Control Device02#sch01 111,{
1511	set .@GID, GetCastleData("schg_cas01",1);
1512	if (getcharid(2) == .@GID) {
1513	if (strcharinfo(0) == getguildmaster(.@GID)) {
1514	if ($agit_sc01[3] == 2) {
1515	mes "^3355FFDemolished Fortress";
1516	mes "Gates can be repaired,";
1517	mes "but you will need to gather";
1518	mes "the following materials.^000000";
1519	next;
1520	mes "^4D4DFF10 Steel^000000,";
1521	mes "^4D4DFF30 Trunks^000000,";
1522	mes "^4D4DFF5 Oridecon^000000, and";
1523	mes "^4D4DFF10 Emveretarcon^000000.";
1524	next;
1525	select("Continue");
1526	if ((countitem(1019) > 29) && (countitem(999) > 9) && (countitem(1011) > 9) && (countitem(984) > 4)) {
1527	mes "^3355FFYou will need Trunks to";
1528	mes "repair the support frame,";
1529	mes "Oridecon to enhance the";
1530	mes "gate's endurance, and";
1531	mes "Emveretarcon to basically";
1532	mes "hold everything together.^000000";
1533	next;
1534	set .@ro_of01,rand(10,15);
1535	while(1) {
1536	if (.@ro_of02 == .@ro_of01) {
1537	break;
1538	}
1539	else {
1540	switch(rand(1,4)) {
1541	case 1:
1542	mes "^3355FFThe support frame";
1543	mes "is badly damaged:";
1544	mes "fixing this part";
1545	mes "is a top priority.^000000";
1546	next;
1547	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1548	case 1:
1549	mes "^3355FFThe frame has been";
1550	mes "reinforced with wood.^000000";
1551	set .@rp_temp,.@rp_temp + 1;
1552	set .@ro_of02,.@ro_of02 + 1;
1553	specialeffect2 101; // EF_REPAIRWEAPON
1554	next;
1555	break;
1556	case 2:
1557	mes "^3355FFYou tried using steel,";
1558	mes "but it's not working very";
1559	mes "well. You'll have to try";
1560	mes "something else.^000000";
1561	close;
1562	case 3:
1563	mes "^3355FFYou tried using emveretarcon";
1564	mes "to reinforce the gate, but it's";
1565	mes "not working well at all.";
1566	mes "You'll have to start over.^000000";
1567	close;
1568	case 4:
1569	mes "^3355FFYou tried using oridecon,";
1570	mes "but it's not working very";
1571	mes "well. You'll have to try";
1572	mes "something else.^000000";
1573	close;
1574	}
1575	break;
1576	case 2:
1577	mes "^3355FFIt looks like the gate's";
1578	mes "overall endurance needs to";
1579	mes "be reinforced with something.^000000";
1580	next;
1581	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1582	case 1:
1583	mes "^3355FFYou tried using wood";
1584	mes "to reinforce the gate.^000000";
1585	set .@ro_of02,.@ro_of02 + 1;
1586	next;
1587	break;
1588	case 2:
1589	mes "^3355FFYou tried using steel";
1590	mes "to reinforce the gate, but";
1591	mes "it's not working well at all.";
1592	mes "You'll have to start over.^000000";
1593	close;
1594	case 3:
1595	mes "^3355FFYou tried using emveretarcon";
1596	mes "to reinforce the gate, but it's";
1597	mes "not working well at all.";
1598	mes "You'll have to start over.^000000";
1599	close;
1600	case 4:
1601	mes "^3355FFYou hammered the";
1602	mes "oridecon: it looks";
1603	mes "like this will work.^000000";
1604	set .@rp_temp,.@rp_temp + 1;
1605	set .@ro_of02,.@ro_of02 + 1;
1606	specialeffect2 101; // EF_REPAIRWEAPON
1607	next;
1608	break;
1609	}
1610	break;
1611	case 3:
1612	mes "^3355FFThe damage to the gate";
1613	mes "has caused all these";
1614	mes "cracks. You'll have to";
1615	mes "weld them solid somehow.^000000";
1616	next;
1617	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1618	case 1:
1619	mes "^3355FFYou tried using wood to fix";
1620	mes "this problem, but it seems";
1621	mes "to have made it worse.";
1622	mes "You'll have to start all over.^000000";
1623	close;
1624	case 2:
1625	mes "^3355FFYou used steel to weld";
1626	mes "all the cracks: the gate is";
1627	mes "is starting to look more solid.^000000";
1628	set .@rp_temp,.@rp_temp + 1;
1629	set .@ro_of02,.@ro_of02 + 1;
1630	specialeffect2 101; // EF_REPAIRWEAPON
1631	next;
1632	break;
1633	case 3:
1634	mes "^3355FFYou tried using emveretarcon";
1635	mes "to reinforce the gate, but it's";
1636	mes "not working well at all.";
1637	mes "You'll have to start over.^000000";
1638	close;
1639	case 4:
1640	mes "^3355FFYou tried using oridecon,";
1641	mes "but it's not working very";
1642	mes "well. You'll have to try";
1643	mes "something else.^000000";
1644	close;
1645	}
1646	break;
1647	case 4:
1648	mes "^3355FFNow you need to make";
1649	mes "sure that the gate is held";
1650	mes "together pretty solidly.^000000";
1651	next;
1652	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1653	case 1:
1654	mes "^3355FFYou tried using wood to fix";
1655	mes "this problem, but it seems";
1656	mes "to have made it worse.";
1657	mes "You'll have to start all over.^000000";
1658	close;
1659	case 2:
1660	mes "^3355FFYou tried using steel,";
1661	mes "but it's not working very";
1662	mes "well. You'll have to try";
1663	mes "something else.^000000";
1664	close;
1665	case 3:
1666	mes "^3355FFYou successfully used";
1667	mes "the emveretarcon to repair";
1668	mes "much of the gate's damage.^000000";
1669	set .@rp_temp,.@rp_temp + 1;
1670	set .@ro_of02,.@ro_of02 + 1;
1671	specialeffect2 101; // EF_REPAIRWEAPON
1672	next;
1673	break;
1674	case 4:
1675	mes "^3355FFYou tried using oridecon,";
1676	mes "but it's not working very";
1677	mes "well. You'll have to try";
1678	mes "something else.^000000";
1679	close;
1680	}
1681	}
1682	}
1683	}
1684	mes "^3355FFWell, it looks like";
1685	mes "you're just about done";
1686	mes "with repairing the gate.^000000";
1687	next;
1688	if (agitcheck() == 0) {
1689	mes "^3355FFUnfortunately, the Fortress";
1690	mes "Gate can't be reconstructed:";
1691	mes "the Emperium is no longer here.^000000";
1692	close;
1693	}
1694	else {
1695	if (.@rp_temp == .@ro_of01) {
1696	mes "^3355FFThe Fortress Gate has";
1697	mes "been successfully repaired!^000000";
1698	delitem 1019,30; //Wooden_Block
1699	delitem 999,10; //Steel
1700	delitem 1011,10; //Emveretarcon
1701	delitem 984,5; //Oridecon
1702	close2;
1703	donpcevent "#sch01_RL02::OnEnable";
1704	disablenpc "Control Device02#sch01";
1705	mapannounce "schg_cas01","The 2nd Fortress Gate has been reconstructed!",bc_map,"0x00ff00";
1706	setarray $agit_sc01[3],0; //Global Variable
1707	setarray $agit_sc01[2],2; //Global Variable
1708	donpcevent "Control Device01#sch01::OnEnable";
1709	end;
1710	}
1711	else {
1712	mes "^3355FFThe wall has been breached,";
1713	mes "and the attempt to repair the";
1714	mes "Fortress Gate has failed.";
1715	mes "You lost some of your";
1716	mes "repair resources...^000000";
1717	delitem 984,2; //Oridecon
1718	delitem 999,4; //Steel
1719	delitem 1019,14; //Wooden_Block
1720	delitem 1011,3; //Emveretarcon
1721	close;
1722	}
1723	}
1724	}
1725	else {
1726	mes "^3355FFYou can't attempt to repair";
1727	mes "the Fortress Gate if you don't";
1728	mes "have all the needed materials.^000000";
1729	close;
1730	}
1731	}
1732	}
1733	}
1734	end;
1735
1736	OnInit:
1737	disablenpc "Control Device02#sch01";
1738	end;
1739
1740	OnEnable:
1741	enablenpc "Control Device02#sch01";
1742	end;
1743
1744	OnDisable:
1745	disablenpc "Control Device02#sch01";
1746	end;
1747	}
1748
1749	schg_cas01,109,247,0 script Control Device03#sch01 111,{
1750	set .@GID, GetCastleData("schg_cas01",1);
1751	if (getcharid(2) == .@GID) {
1752	if (strcharinfo(0) == getguildmaster(.@GID)) {
1753	if ($agit_sc01[4] == 2) {
1754	mes "^3355FFDemolished Fortress";
1755	mes "Gates can be repaired,";
1756	mes "but you will need to gather";
1757	mes "the following materials.^000000";
1758	next;
1759	mes "^4D4DFF10 Steel^000000,";
1760	mes "^4D4DFF30 Trunks^000000,";
1761	mes "^4D4DFF5 Oridecon^000000, and";
1762	mes "^4D4DFF10 Emveretarcon^000000.";
1763	next;
1764	select("Continue");
1765	if ((countitem(1019) > 29) && (countitem(999) > 9) && (countitem(1011) > 9) && (countitem(984) > 4)) {
1766	mes "^3355FFYou will need Trunks to";
1767	mes "repair the support frame,";
1768	mes "Oridecon to enhance the";
1769	mes "gate's endurance, and";
1770	mes "Emveretarcon to basically";
1771	mes "hold everything together.^000000";
1772	next;
1773	set .@ro_of01,rand(10,15);
1774	while(1) {
1775	if (.@ro_of02 == .@ro_of01) {
1776	break;
1777	}
1778	else {
1779	switch(rand(1,4)) {
1780	case 1:
1781	mes "^3355FFThe support frame";
1782	mes "is badly damaged:";
1783	mes "fixing this part";
1784	mes "is a top priority.^000000";
1785	next;
1786	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1787	case 1:
1788	mes "^3355FFThe frame has been";
1789	mes "reinforced with wood.^000000";
1790	set .@rp_temp,.@rp_temp + 1;
1791	set .@ro_of02,.@ro_of02 + 1;
1792	specialeffect2 101; // EF_REPAIRWEAPON
1793	next;
1794	break;
1795	case 2:
1796	mes "^3355FFYou tried using steel,";
1797	mes "but it's not working very";
1798	mes "well. You'll have to try";
1799	mes "something else.^000000";
1800	close;
1801	case 3:
1802	mes "^3355FFYou tried using emveretarcon";
1803	mes "to reinforce the gate, but it's";
1804	mes "not working well at all.";
1805	mes "You'll have to start over.^000000";
1806	close;
1807	case 4:
1808	mes "^3355FFYou tried using oridecon,";
1809	mes "but it's not working very";
1810	mes "well. You'll have to try";
1811	mes "something else.^000000";
1812	close;
1813	}
1814	break;
1815	case 2:
1816	mes "^3355FFIt looks like the gate's";
1817	mes "overall endurance needs to";
1818	mes "be reinforced with something.^000000";
1819	next;
1820	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1821	case 1:
1822	mes "^3355FFYou tried using wood";
1823	mes "to reinforce the gate.^000000";
1824	set .@ro_of02,.@ro_of02 + 1;
1825	next;
1826	break;
1827	case 2:
1828	mes "^3355FFYou tried using steel";
1829	mes "to reinforce the gate, but";
1830	mes "it's not working well at all.";
1831	mes "You'll have to start over.^000000";
1832	close;
1833	case 3:
1834	mes "^3355FFYou tried using emveretarcon";
1835	mes "to reinforce the gate, but it's";
1836	mes "not working well at all.";
1837	mes "You'll have to start over.^000000";
1838	close;
1839	case 4:
1840	mes "^3355FFYou hammered the";
1841	mes "oridecon: it looks";
1842	mes "like this will work.^000000";
1843	set .@rp_temp,.@rp_temp + 1;
1844	set .@ro_of02,.@ro_of02 + 1;
1845	specialeffect2 101; // EF_REPAIRWEAPON
1846	next;
1847	break;
1848	}
1849	break;
1850	case 3:
1851	mes "^3355FFThe damage to the gate";
1852	mes "has caused all these";
1853	mes "cracks. You'll have to";
1854	mes "weld them solid somehow.^000000";
1855	next;
1856	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1857	case 1:
1858	mes "^3355FFYou tried using wood to fix";
1859	mes "this problem, but it seems";
1860	mes "to have made it worse.";
1861	mes "You'll have to start all over.^000000";
1862	close;
1863	case 2:
1864	mes "^3355FFYou used steel to weld";
1865	mes "all the cracks: the gate is";
1866	mes "is starting to look more solid.^000000";
1867	set .@rp_temp,.@rp_temp + 1;
1868	set .@ro_of02,.@ro_of02 + 1;
1869	specialeffect2 101; // EF_REPAIRWEAPON
1870	next;
1871	break;
1872	case 3:
1873	mes "^3355FFYou tried using emveretarcon";
1874	mes "to reinforce the gate, but it's";
1875	mes "not working well at all.";
1876	mes "You'll have to start over.^000000";
1877	close;
1878	case 4:
1879	mes "^3355FFYou tried using oridecon,";
1880	mes "but it's not working very";
1881	mes "well. You'll have to try";
1882	mes "something else.^000000";
1883	close;
1884	}
1885	break;
1886	case 4:
1887	mes "^3355FFNow you need to make";
1888	mes "sure that the gate is held";
1889	mes "together pretty solidly.^000000";
1890	next;
1891	switch(select("Trunk:Steel:Emveretarcon:Oridecon")) {
1892	case 1:
1893	mes "^3355FFYou tried using wood to fix";
1894	mes "this problem, but it seems";
1895	mes "to have made it worse.";
1896	mes "You'll have to start all over.^000000";
1897	close;
1898	case 2:
1899	mes "^3355FFYou tried using steel,";
1900	mes "but it's not working very";
1901	mes "well. You'll have to try";
1902	mes "something else.^000000";
1903	close;
1904	case 3:
1905	mes "^3355FFYou successfully used";
1906	mes "the emveretarcon to repair";
1907	mes "much of the gate's damage.^000000";
1908	set .@rp_temp,.@rp_temp + 1;
1909	set .@ro_of02,.@ro_of02 + 1;
1910	specialeffect2 101; // EF_REPAIRWEAPON
1911	next;
1912	break;
1913	case 4:
1914	mes "^3355FFYou tried using oridecon,";
1915	mes "but it's not working very";
1916	mes "well. You'll have to try";
1917	mes "something else.^000000";
1918	close;
1919	}
1920	}
1921	}
1922	}
1923	mes "^3355FFWell, it looks like";
1924	mes "you're just about done";
1925	mes "with repairing the gate.^000000";
1926	next;
1927	if (agitcheck() == 0) {
1928	mes "^3355FFUnfortunately, the Fortress";
1929	mes "Gate can't be reconstructed:";
1930	mes "the Emperium is no longer here.^000000";
1931	close;
1932	}
1933	else {
1934	if (.@rp_temp == .@ro_of01) {
1935	mes "^3355FFThe Fortress Gate has";
1936	mes "been successfully repaired!^000000";
1937	delitem 1019,30; //Wooden_Block
1938	delitem 999,10; //Steel
1939	delitem 1011,10; //Emveretarcon
1940	delitem 984,5; //Oridecon
1941	close2;
1942	donpcevent "#sch01_RL03::OnEnable";
1943	disablenpc "Control Device03#sch01";
1944	mapannounce "schg_cas01","The 3rd Fortress Gate has been reconstructed!",bc_map,"0x00ff00";
1945	setarray $agit_sc01[4],0;
1946	setarray $agit_sc01[3],2;
1947	donpcevent "Control Device02#sch01::OnEnable";
1948	end;
1949	}
1950	else {
1951	mes "^3355FFThe wall has been breached,";
1952	mes "and the attempt to repair the";
1953	mes "Fortress Gate has failed.";
1954	mes "You lost some of your";
1955	mes "repair resources...^000000";
1956	delitem 984,2; //Oridecon
1957	delitem 999,4; //Steel
1958	delitem 1019,14; //Wooden_Block
1959	delitem 1011,3; //Emveretarcon
1960	close;
1961	}
1962	}
1963	}
1964	else {
1965	mes "^3355FFYou can't attempt to repair";
1966	mes "the Fortress Gate if you don't";
1967	mes "have all the needed materials.^000000";
1968	close;
1969	}
1970	}
1971	}
1972	}
1973	end;
1974
1975	OnInit:
1976	disablenpc "Control Device03#sch01";
1977	end;
1978
1979	OnEnable:
1980	enablenpc "Control Device03#sch01";
1981	end;
1982
1983	OnDisable:
1984	disablenpc "Control Device03#sch01";
1985	end;
1986	}
1987
1988	// Link Flags
1989	schg_cas01,106,302,0 script LF-01#schg_cas01 111,{
1990	set .@GID, GetCastleData("schg_cas01",1);
1991	if (getcharid(2) == .@GID) {
1992	mes "^3355FFThis is the Stronghold";
1993	mes "Teleport Service. Please";
1994	mes "choose a destination";
1995	mes "within the stronghold.^000000";
1996	switch(select("First Gate House:Second Gate House:Cancel")) {
1997	case 1:
1998	warp "schg_cas01",19,26;
1999	end;
2000	case 2:
2001	warp "schg_cas01",219,90;
2002	end;
2003	case 3:
2004	close;
2005	}
2006	}
2007	end;
2008	}
2009
2010	schg_cas01,109,302,0 script LF-02#schg_cas01 111,{
2011	set .@GID, GetCastleData("schg_cas01",1);
2012	if (getcharid(2) == .@GID) {
2013	mes "^3355FFThis is the Stronghold";
2014	mes "Teleport Service. Please";
2015	mes "choose a destination";
2016	mes "within the stronghold.^000000";
2017	switch(select("Defense Area 1-1:Defense Area 1-2:Cancel")) {
2018	case 1:
2019	warp "schg_cas01",89,43;
2020	end;
2021	case 2:
2022	warp "schg_cas01",141,45;
2023	end;
2024	case 3:
2025	close;
2026	}
2027	}
2028	end;
2029	}
2030
2031	schg_cas01,112,302,0 script LF-03#schg_cas01 111,{
2032	set .@GID, GetCastleData("schg_cas01",1);
2033	if (getcharid(2) == .@GID) {
2034	mes "^3355FFThis is the Stronghold";
2035	mes "Teleport Service. Please";
2036	mes "choose a destination";
2037	mes "within the stronghold.^000000";
2038	switch(select("Defense Area 2-1:Defense Area 2-2:Cancel")) {
2039	case 1:
2040	warp "schg_cas01",137,54;
2041	end;
2042	case 2:
2043	warp "schg_cas01",102,54;
2044	end;
2045	case 3:
2046	close;
2047	}
2048	}
2049	end;
2050	}
2051
2052	schg_cas01,115,302,0 script LF-04#schg_cas01 111,{
2053	set .@GID, GetCastleData("schg_cas01",1);
2054	if (getcharid(2) == .@GID) {
2055	mes "^3355FFThis is the Stronghold";
2056	mes "Teleport Service. Please";
2057	mes "choose a destination";
2058	mes "within the stronghold.^000000";
2059	switch(select("Defense Area 2-3:Defense Area 2-4:Cancel")) {
2060	case 1:
2061	warp "schg_cas01",94,147;
2062	end;
2063	case 2:
2064	warp "schg_cas01",163,140;
2065	end;
2066	case 3:
2067	close;
2068	}
2069	}
2070	end;
2071	}
2072
2073	schg_cas01,118,302,0 script LF-05#schg_cas01 111,{
2074	set .@GID, GetCastleData("schg_cas01",1);
2075	if (getcharid(2) == .@GID) {
2076	mes "^3355FFThis is the Stronghold";
2077	mes "Teleport Service. Please";
2078	mes "choose a destination";
2079	mes "within the stronghold.^000000";
2080	switch(select("Defense Area 2-3:Defense Area 2-4:Cancel")) {
2081	case 1:
2082	warp "schg_cas01",87,220;
2083	end;
2084	case 2:
2085	warp "schg_cas01",151,220;
2086	end;
2087	case 3:
2088	close;
2089	}
2090	}
2091	end;
2092	}
2093
2094	schg_cas01,121,302,0 script LF-06#schg_cas01 111,{
2095	set .@GID, GetCastleData("schg_cas01",1);
2096	if (getcharid(2) == .@GID) {
2097	mes "^3355FFThis is the Stronghold";
2098	mes "Teleport Service. Please";
2099	mes "choose a destination";
2100	mes "within the stronghold.^000000";
2101	switch(select("Defense Area 3-1:Defense Area 3-2:Cancel")) {
2102	case 1:
2103	warp "schg_cas01",100,242;
2104	end;
2105	case 2:
2106	warp "schg_cas01",136,242;
2107	end;
2108	case 3:
2109	close;
2110	}
2111	}
2112	end;
2113	}
2114
2115	schg_cas01,124,302,0 script LF-07#schg_cas01 111,{
2116	set .@GID, GetCastleData("schg_cas01",1);
2117	if (getcharid(2) == .@GID) {
2118	mes "^3355FFThis is the Stronghold";
2119	mes "Teleport Service. Please";
2120	mes "choose a destination";
2121	mes "within the stronghold.^000000";
2122	switch(select("Center 1 Area:Center 2 Area:Cancel")) {
2123	case 1:
2124	warp "schg_cas01",120,168;
2125	end;
2126	case 2:
2127	warp "schg_cas01",119,211;
2128	end;
2129	case 3:
2130	close;
2131	}
2132	}
2133	end;
2134	}
2135
2136	schg_cas01,127,302,0 script LF-08#schg_cas01 111,{
2137	set .@GID, GetCastleData("schg_cas01",1);
2138	if (getcharid(2) == .@GID) {
2139	mes "^3355FFThis is the Stronghold";
2140	mes "Teleport Service. Please";
2141	mes "choose a destination";
2142	mes "within the stronghold.^000000";
2143	switch(select("Area 1-1:Area 2-1:Area 3-1:Cancel")) {
2144	case 1:
2145	warp "schg_cas01",89,43;
2146	end;
2147	case 2:
2148	warp "schg_cas01",94,147;
2149	end;
2150	case 3:
2151	warp "schg_cas01",100,242;
2152	end;
2153	case 4:
2154	close;
2155	}
2156	}
2157	end;
2158	}
2159
2160	schg_cas01,130,302,0 script LF-09#schg_cas01 111,{
2161	set .@GID, GetCastleData("schg_cas01",1);
2162	if (getcharid(2) == .@GID) {
2163	mes "^3355FFThis is the Stronghold";
2164	mes "Teleport Service. Please";
2165	mes "choose a destination";
2166	mes "within the stronghold.^000000";
2167	switch(select("Area 1-2:Area 2-3:Area 3-2:Cancel")) {
2168	case 1:
2169	warp "schg_cas01",141,45;
2170	end;
2171	case 2:
2172	warp "schg_cas01",163,140;
2173	end;
2174	case 3:
2175	warp "schg_cas01",136,243;
2176	end;
2177	case 4:
2178	close;
2179	}
2180	}
2181	end;
2182	}
2183
2184	schg_cas01,133,302,0 script LF-10#schg_cas01 111,{
2185	set .@GID, GetCastleData("schg_cas01",1);
2186	if (getcharid(2) == .@GID) {
2187	mes "^3355FFThis is the Stronghold";
2188	mes "Teleport Service. Would";
2189	mes "you like to teleport to the";
2190	mes "Convenience Facility for";
2191	mes "guild members?^000000";
2192	switch(select("Go to Convenience Facility:Cancel")) {
2193	case 1:
2194	warp "schg_cas01",275,244;
2195	end;
2196	case 2:
2197	close;
2198	}
2199	}
2200	end;
2201	}
2202
2203	schg_cas01,17,45,0 script Himinn#LF_sc01_1::LF_sc01_1 111,{
2204	set .@GID, GetCastleData("schg_cas01",1);
2205	if (getcharid(2) == .@GID) {
2206	mes "^3355FFThis is the Stronghold";
2207	mes "Teleport Service. Would";
2208	mes "you like to teleport to";
2209	mes "the Emperium Center?^000000";
2210	switch(select("Teleport:Cancel")) {
2211	case 1:
2212	warp "schg_cas01",120,290;
2213	end;
2214	case 2:
2215	close;
2216	}
2217	}
2218	end;
2219	}
2220
2221	schg_cas01,207,95,0 duplicate(LF_sc01_1) Himinn#LF_sc01_2 111
2222
2223	schg_cas01,111,46,4 script Himinn#LF_sc01_3::LF_sc01_2 722,{
2224	set .@GID, GetCastleData("schg_cas01",1);
2225	if (getcharid(2) == .@GID) {
2226	mes "^3355FFThis is the Stronghold";
2227	mes "Teleport Service. Would";
2228	mes "you like to teleport to";
2229	mes "the Emperium Center?^000000";
2230	switch(select("Teleport:Cancel")) {
2231	case 1:
2232	warp "schg_cas01",120,290;
2233	end;
2234	case 2:
2235	close;
2236	}
2237	}
2238	end;
2239
2240	OnRecvCastleSc01:
2241	FlagEmblem GetCastleData("schg_cas01",1);
2242	end;
2243	}
2244
2245	schg_cas01,129,46,4 duplicate(LF_sc01_2) Himinn#LF_sc01_4 722
2246	schg_cas01,99,77,0 duplicate(LF_sc01_1) Himinn#LF_sc01_5 111
2247	schg_cas01,140,77,0 duplicate(LF_sc01_1) Himinn#LF_sc01_6 111
2248	schg_cas01,109,150,4 duplicate(LF_sc01_2) Himinn#LF_sc01_7 722
2249	schg_cas01,130,150,4 duplicate(LF_sc01_2) Himinn#LF_sc01_8 722
2250	schg_cas01,112,212,0 duplicate(LF_sc01_1) Himinn#LF_sc01_9 111
2251	schg_cas01,127,212,0 duplicate(LF_sc01_1) Himinn#LF_sc01_10 111
2252	schg_cas01,113,238,0 duplicate(LF_sc01_1) Himinn#LF_sc01_11 111
2253	schg_cas01,126,238,0 duplicate(LF_sc01_1) Himinn#LF_sc01_12 111
2254	schg_cas01,95,247,0 duplicate(LF_sc01_1) Himinn#LF_sc01_13 111
2255	schg_cas01,144,247,0 duplicate(LF_sc01_1) Himinn#LF_sc01_14 111
2256
2257	// Guild Manager
2258	schg_cas01,247,305,3 script Steward#sch01 55,{
2259	set .@GID, GetCastleData("schg_cas01",1);
2260	if (.@GID == 0) {
2261	mes "[ Steward ]";
2262	mes "I await for the master";
2263	mes "whom destiny will choose";
2264	mes "for me. Do you think you";
2265	mes "have to courage and strength";
2266	mes "to conquer this stronghold?";
2267	close;
2268	}
2269	if (getcharid(2) != .@GID \|\| strcharinfo(0) != getguildmaster(.@GID)) {
2270	mes "[ Steward ]";
2271	mes "Hmpf. Your threats don't";
2272	mes "scare me! Guardians, drive";
2273	mes "this infidel away from here!";
2274	mes "I will always be loyal to the";
2275	mes "master of this stronghold,";
2276	mes "the one and only ^FF0000" + getguildmaster(.@GID) + "^000000.";
2277	close;
2278	}
2279	mes "[ Steward ]";
2280	mes "Ah, Master ^FF0000" + getguildmaster(.@GID) + "^000000...";
2281	mes "How shall I serve you today?";
2282	mes "Was there an aspect of this";
2283	mes "stronghold's maintenance";
2284	mes "you wanted to discuss?";
2285	next;
2286	switch(select("Stronghold Briefing:Invest in Commercial Growth:Invest in Defense growth:Hire/Fire Storage Staff:Go to Master's room")) {
2287	case 1:
2288	mes "[ Steward ]";
2289	mes "The Commercial Growth";
2290	mes "Level of the stronghold is ^0000ff" + GetCastleData("schg_cas01",2) + ".";
2291	if (GetCastleData("schg_cas01",4) > 0) {
2292	mes "Last time, you invested in";
2293	mes "Commercial Growth " + GetCastleData("schg_cas01",4) + ".";
2294	}
2295	next;
2296	mes "[ Steward ]";
2297	mes "Our stronghold's";
2298	mes "safeguard level is " + GetCastleData("schg_cas01",3) + ".";
2299	if (GetCastleData("schg_cas01",5) > 0) {
2300	mes "Last time, you invested";
2301	mes "in defense " + GetCastleData("schg_cas01",5) + " times.";
2302	}
2303	mes " ";
2304	mes "That is all, master.";
2305	close;
2306	case 2:
2307	set .@Economy,GetCastleData("schg_cas01",2);
2308	if(.@Economy < 8) set .@eco_invest,10000;
2309	if(.@Economy >= 8) set .@eco_invest,20000;
2310	if(.@Economy >= 16) set .@eco_invest,40000;
2311	if(.@Economy >= 25) set .@eco_invest,80000;
2312	if(.@Economy >= 34) set .@eco_invest,160000;
2313	if(.@Economy >= 44) set .@eco_invest,320000;
2314	if(.@Economy >= 54) set .@eco_invest,640000;
2315	if(.@Economy >= 65) set .@eco_invest,1280000;
2316	if(.@Economy >= 76) set .@eco_invest,2560000;
2317	if(.@Economy >= 88) set .@eco_invest,5120000;
2318	mes "[ Steward ]";
2319	mes "Raising the stronghold's";
2320	mes "commercial growth will";
2321	mes "increase the quantity of";
2322	mes "goods produced for the guild.";
2323	mes "Investing in commercial growth";
2324	mes "will help the guild's future.";
2325	next;
2326	mes "[ Steward ]";
2327	mes "You can make one investment";
2328	mes "each day, but if you can make";
2329	mes "two investments if you pay";
2330	mes "more zeny: this will speed";
2331	mes "up commercial development,";
2332	mes "but can be quite expensive.";
2333	next;
2334	if (.@Economy == 100) {
2335	mes "[ Steward ]";
2336	mes "However, our stronghold's";
2337	mes "commerical growth level is";
2338	mes "at 100%. It's not possible to";
2339	mes "develop commercial growth";
2340	mes "any further than that.";
2341	close;
2342	}
2343	if (GetCastleData("schg_cas01",4) == 2) {
2344	mes "[ Steward ]";
2345	mes "You've already made two";
2346	mes "investments today, so you'll";
2347	mes "have to wait until tomorrow";
2348	mes "to make another investment.";
2349	close;
2350	}
2351	if (GetCastleData("schg_cas01",4) == 0) {
2352	mes "[ Steward ]";
2353	mes "You must pay ^FF0000" + .@eco_invest + "^000000 zeny";
2354	mes "to make an investment";
2355	mes "Will you invest in this";
2356	mes "stronghold's commerical";
2357	mes "development now?";
2358	}
2359	else {
2360	mes "[ Steward ]";
2361	mes "You must pay ^FF0000" + .@eco_invest + "^000000";
2362	mes "more zeny to make a second";
2363	mes "investment today. Will you";
2364	mes "invest one more time?";
2365	}
2366	next;
2367	switch(select("Invest in Commercial Growth:Cancel")) {
2368	case 1:
2369	if (Zeny < .@eco_invest) {
2370	mes "[ Steward ]";
2371	mes "I'm sorry, Master, but";
2372	mes "you do not have enough";
2373	mes "zeny to make an investment";
2374	mes "for the guild today.";
2375	close;
2376	}
2377	set zeny,zeny-.@eco_invest;
2378	SetCastleData "schg_cas01",4,GetCastleData("schg_cas01",4)+1;
2379	SetCastleData "schg_cas01",2,.@Economy + 1 + (.@Economy<99 && rand(2) && getgdskilllv(.@GID,10014));
2380	mes "[ Steward ]";
2381	mes "A wise use of the guild's";
2382	mes "funds, Master. We can expect";
2383	mes "to see the results of this";
2384	mes "investment by tomorrow.";
2385	close;
2386	case 2:
2387	mes "[ Steward ]";
2388	mes "As you command, Master.";
2389	close;
2390	}
2391	case 3:
2392	set .@Defence,GetCastleData("schg_cas01",3);
2393	if(.@Defence < 8) set .@def_invest,20000;
2394	if(.@Defence >= 8) set .@def_invest,40000;
2395	if(.@Defence >= 16) set .@def_invest,80000;
2396	if(.@Defence >= 25) set .@def_invest,160000;
2397	if(.@Defence >= 34) set .@def_invest,320000;
2398	if(.@Defence >= 44) set .@def_invest,640000;
2399	if(.@Defence >= 54) set .@def_invest,1280000;
2400	if(.@Defence >= 65) set .@def_invest,2560000;
2401	if(.@Defence >= 76) set .@def_invest,5120000;
2402	if(.@Defence >= 88) set .@def_invest,10240000;
2403	mes "[ Steward ]";
2404	mes "Investing in our stronghold's";
2405	mes "defense will enhance the";
2406	mes "durability of our Guardians";
2407	mes "and the Emperium. We'll need";
2408	mes "every advantage to protect";
2409	mes "ourselves from our enemies.";
2410	next;
2411	mes "[ Steward ]";
2412	mes "You can invest in defense";
2413	mes "once per day, but if you pay";
2414	mes "more zeny, you can invest";
2415	mes "a maximum of two times daily.";
2416	next;
2417	mes "[ Steward ]";
2418	if (GetCastleData("schg_cas01",3) == 100) {
2419	mes "The Defense Level of this";
2420	mes "stronghold is 100%, and";
2421	mes "cannot be increased further.";
2422	close;
2423	}
2424	if (GetCastleData("schg_cas01",5) == 2) {
2425	mes "Master, you've already";
2426	mes "invested in Defense twice";
2427	mes "today. You'll need to wait";
2428	mes "until tomorrow if you really";
2429	mes "want to increase our defenses.";
2430	close;
2431	}
2432	if (GetCastleData("schg_cas01",5) == 0) {
2433	mes "We need ^FF0000" + .@def_invest + "^000000";
2434	mes "zeny to invest in our";
2435	mes "stronghold's defenses.";
2436	mes "Will you invest now?";
2437	}
2438	else {
2439	mes "We need ^FF0000" + .@def_invest + "^000000";
2440	mes "zeny to invest in our";
2441	mes "stronghold's defenses";
2442	mes "a second time today.";
2443	mes "Will you invest now?";
2444	}
2445	next;
2446	switch(select("Invest in Defense:Cancel")) {
2447	case 1:
2448	if (Zeny < .@def_invest) {
2449	mes "[ Steward ]";
2450	mes "I'm sorry, Master, but";
2451	mes "you do not have enough";
2452	mes "zeny to make an investment";
2453	mes "for the guild today.";
2454	close;
2455	}
2456	set zeny,zeny-.@def_invest;
2457	SetCastleData "schg_cas01",5,GetCastleData("schg_cas01",5)+1;
2458	SetCastleData "schg_cas01",3,.@Defence+1;
2459	mes "[ Steward ]";
2460	mes "A wise use of the guild's";
2461	mes "funds, Master. Increasing";
2462	mes "the frequency of treasure";
2463	mes "procured by the guild will";
2464	mes "definitely help us all.";
2465	close;
2466	case 2:
2467	mes "[ Steward ]";
2468	mes "As you command, Master.";
2469	close;
2470	}
2471	case 4:
2472	if (GetCastleData("schg_cas01",9) == 1) {
2473	mes "[ Steward ]";
2474	mes "Do you wish to dismiss";
2475	mes "the Kafra Employee that";
2476	mes "we've hired for the guild?";
2477	next;
2478	switch(select("Dismiss:Cancel")) {
2479	case 1:
2480	cutin "kafra_01",2;
2481	mes "[ Hired Kafra Employee ]";
2482	mes "Master, please reconsider!";
2483	mes "I've been working very hard";
2484	mes "for the success of the guild!";
2485	mes "I'll try harder to serve the";
2486	mes "guild members of this";
2487	mes "stronghold, I promise!";
2488	next;
2489	switch(select("Dismiss:Cancel")) {
2490	case 1:
2491	mes "[ Hired Kafra Employee ]";
2492	mes "Why?! What have I done";
2493	mes "to deserve this? Waaah~!";
2494	next;
2495	cutin "kafra_01",255;
2496	break;
2497	case 2:
2498	mes "[ Hired Kafra Employee ]";
2499	mes "Thank you, Master!";
2500	mes "I'll obey your every";
2501	mes "command as best I can!";
2502	mes "You won't regret this!";
2503	close;
2504	}
2505	break;
2506	case 2:
2507	mes "[ Steward ]";
2508	mes "She works very hard,";
2509	mes "in my opinion. It was in";
2510	mes "all of our best interests to";
2511	mes "allow her to stay with us.";
2512	close;
2513	}
2514	disablenpc "Kafra Employee#sch01";
2515	SetCastleData "schg_cas01",9,0;
2516	mes "[ Steward ]";
2517	mes "That Kafra Employee";
2518	mes "has been dismissed.";
2519	mes "Were really dissatisfied";
2520	mes "by the quality of her service?";
2521	close;
2522	}
2523	else {
2524	mes "[ Steward ]";
2525	mes "Will you hire a";
2526	mes "Kafra Employee to serve";
2527	mes "our stronghold? You must";
2528	mes "pay ^FF000010,000 zeny^000000 to hire one.";
2529	next;
2530	switch(select("Hire:Cancel")) {
2531	case 1:
2532	if (getgdskilllv(.@GID,10001) == 0) {
2533	mes "[ Steward ]";
2534	mes "Master, we cannot hire a";
2535	mes "Kafra Employee because";
2536	mes "you have not yet attained";
2537	mes "the ^FF0000Contract with Kafra^000000";
2538	mes "guild skill.";
2539	close;
2540	}
2541	if (Zeny < 10000) {
2542	mes "[ Steward ]";
2543	mes "Master, we cannot hire a";
2544	mes "Kafra Employee because";
2545	mes "we do not have enough";
2546	mes "funds to pay the contract fee.";
2547	close;
2548	}
2549	set zeny,zeny-10000;
2550	enablenpc "Kafra Employee#sch01";
2551	SetCastleData "schg_cas01",9,1;
2552	mes "[ Steward ]";
2553	mes "Very well. We have formed";
2554	mes "a contract with the Kafra";
2555	mes "Head Office, and hired a";
2556	mes "Kafra Employee for our";
2557	mes "stronghold. Here she is~";
2558	next;
2559	cutin "kafra_01",2;
2560	mes "[ Hired Kafra Employee ]";
2561	mes "How do you do? I've";
2562	mes "been dispatched by the";
2563	mes "Kafra Head Office to";
2564	mes "serve your guild's needs.";
2565	mes "I'll do my best to follow";
2566	mes "your every command, Master.";
2567	next;
2568	cutin "kafra_01",255;
2569	mes "[ Steward ]";
2570	mes "Our contract will expire";
2571	mes "after one month, so we must";
2572	mes "pay additional fees to keep";
2573	mes "this Kafra Employee in";
2574	mes "the service of our guild.";
2575	close;
2576	case 2:
2577	mes "[ Steward ]";
2578	mes "As you command, Master.";
2579	mes "However, I suggest hiring";
2580	mes "a Kafra Employee as soon";
2581	mes "as possible since our guild";
2582	mes "would greatly benefit from";
2583	mes "the convenient Kafra services.";
2584	close;
2585	}
2586	}
2587	case 5:
2588	mes "[ Steward ]";
2589	mes "Do you wish to enter the";
2590	mes "Guild Treasure Room?";
2591	mes "Only you, the Guild Master,";
2592	mes "are permitted to enter.";
2593	next;
2594	mes "[ Steward ]";
2595	mes "Please remember to open";
2596	mes "the Treasure Boxes at the";
2597	mes "proper time. Otherwise, the";
2598	mes "treasure may disappear if";
2599	mes "something unexpected happens.";
2600	next;
2601	switch(select("Go to Treasure Room:Cancel")) {
2602	case 1:
2603	mes "[ Steward ]";
2604	mes "Allow me to guide you";
2605	mes "on the secret path to";
2606	mes "the Treasure Room.";
2607	mes "Press the secret switch";
2608	mes "when you wish to return here.";
2609	close2;
2610	warp "schg_cas01",381,381;
2611	end;
2612	case 2:
2613	mes "[ Steward ]";
2614	mes "Items in the Treasure Room";
2615	mes "are produced once each day.";
2616	mes "Therefore, you must obtain";
2617	mes "the treasure items everyday.";
2618	mes "For the sake of the guild,";
2619	mes "prioritize treasure harvesting!";
2620	close;
2621	}
2622	}
2623
2624	Onstop:
2625	stopnpctimer;
2626	end;
2627
2628	OnStartArena:
2629	set .@GID,getcharid(2);
2630	// Lower castle Economy
2631	set .@Economy,GetCastleData("schg_cas01",2) - 5;
2632	if (.@Economy < 0) set .@Economy, 0;
2633	SetCastleData "schg_cas01", 2, .@Economy;
2634	// Lower Castle Defence
2635	set .@Defence,GetCastleData("schg_cas01",3) - 5;
2636	if (.@Defence < 0) set .@Defence, 0;
2637	SetCastleData "schg_cas01", 3, .@Defence;
2638	// Set new owner
2639	SetCastleData "schg_cas01",1, .@GID;
2640	// Clear castle's data.
2641	for( set .@i, 4; .@i <= 9; set .@i, .@i+1 )
2642	SetCastleData "schg_cas01", .@i, 0;
2643	// Disable Kafra
2644	disablenpc "Kafra Employee#sch01";
2645
2646	set .msg,2;
2647	if (.msg == 1) {
2648	announce "Fortress [" + GetCastleName("schg_cas01") + "]'s 'Nithafjoll' was captured by [" + getguildname(.@gid) + "] Guild.",bc_all;
2649	donpcevent "Manager#sch01_02::Onstart";
2650	}
2651	else if (.msg == 2) {
2652	announce "The [" + getguildname(.@gid) + "] conquered the [Nithafjoll 1] stronghold of "+GetCastleName("schg_cas01"),bc_all;
2653	mapannounce "schg_cas01","The emperium has been shattered!",bc_map,"0x00FF00";
2654	if (agitcheck()) {
2655	donpcevent "Manager#sch01_02::Onreset";
2656	initnpctimer;
2657	}
2658	else {
2659	donpcevent "Manager#sch01_02::Onreset";
2660	stopnpctimer;
2661	}
2662	}
2663	else if (.msg == 0) {
2664	announce "Fortress [" + GetCastleName("schg_cas01") + "]'s 'Nithafjoll' was captured by [" + getguildname(.@gid) + "] Guild.",bc_all;
2665	donpcevent "Manager#sch01_02::Onreset";
2666	stopnpctimer;
2667	end;
2668	}
2669	MapRespawnGuildID "schg_cas01",GetCastleData("schg_cas01",1),2;
2670	GetCastleData "schg_cas01",0,"::OnRecvCastlesc01";
2671	end;
2672
2673	OnTimer10000:
2674	donpcevent "Manager#sch01_02::Onchange";
2675	mapannounce "schg_cas01","Rebuild this stonghold's Guardian Stones and Fortress Gates to secure your guild's new aquisition!",bc_map,"0x00FF00";
2676	end;
2677	}
2678
2679	// Guild Kafra
2680	schg_cas01,300,287,5 script Kafra Employee#sch01 117,{
2681	cutin "kafra_01",2;
2682	set .@GID, GetCastleData("schg_cas01",1);
2683	if (getcharid(2) == .@GID && getgdskilllv(.@GID,10001)) {
2684	mes "[Kafra Employee]";
2685	mes "Welcome, proud member";
2686	mes "of the ^FF0000" + GetGuildName(.@GID) + "^000000 Guild!";
2687	mes "The Kafra Corporation is ready";
2688	mes "to assist you wherever you go!";
2689	next;
2690	switch(select("Use Storage:Use Warp Service:Rent Pushcart:Cancel")) {
2691	case 1:
2692	if (basicskillcheck() && getskilllv("NV_BASIC") < 6) {
2693	mes "[Kafra Employee]";
2694	mes "I'm so sorry, but you must";
2695	mes "have at least Novice Skill";
2696	mes "Lv.6 to use the Storage.";
2697	}
2698	else {
2699	openstorage;
2700	}
2701	break;
2702	case 2:
2703	mes "[Kafra Employee]";
2704	mes "Please tell me your";
2705	mes "Warp destination.";
2706	next;
2707	switch(select("Juno -> 200 z:Cancel")) {
2708	case 1:
2709	if (Zeny < 200) {
2710	mes "[Kafra Employee]";
2711	mes "I'm sorry, but you don't";
2712	mes "have enough zeny to pay";
2713	mes "the warp fee. Would you";
2714	mes "please check your funds again?";
2715	close2;
2716	cutin "kafra_01",255;
2717	end;
2718	}
2719	set zeny,zeny-200;
2720	warp "yuno",158,125;
2721	end;
2722	case 2:
2723	cutin "kafra_01",255;
2724	}
2725	break;
2726	case 3:
2727	if (BaseClass != Job_Merchant) {
2728	mes "[Kafra Employee]";
2729	mes "I'm sorry, but the Pushcart";
2730	mes "rental service can only be";
2731	mes "used by Merchant, Blacksmith,";
2732	mes "and Alchemist class characters.";
2733	}
2734	else if (checkcart() == 1) {
2735	mes "[Kafra Employee]";
2736	mes "Hm? You've already";
2737	mes "rented a Pushcart.";
2738	}
2739	else {
2740	mes "[Kafra Employee]";
2741	mes "The Pushcart rental fee";
2742	mes "is 800 zeny. Would you";
2743	mes "like to rent a Pushcart?";
2744	next;
2745	switch(select("Rent Pushcart:Cancel")) {
2746	case 1:
2747	if (Zeny < 800) {
2748	mes "[Kafra Employee]";
2749	mes "I'm sorry, but you don't";
2750	mes "have enough zeny to rent";
2751	mes "one of our Pushcarts.";
2752	close2;
2753	cutin "kafra_01",255;
2754	end;
2755	}
2756	set zeny,zeny-800;
2757	setcart;
2758	break;
2759	case 2:
2760	break;
2761	}
2762	}
2763	break;
2764	case 4:
2765	mes "[Kafra Employee]";
2766	mes "Thank you for using the";
2767	mes "Kafra Service. Wherever";
2768	mes "you go, Kafra will be";
2769	mes "there to support you!";
2770	close2;
2771	cutin "kafra_01",255;
2772	end;
2773	}
2774	close2;
2775	cutin "kafra_01",255;
2776	end;
2777	}
2778	else {
2779	mes "[Kafra Employee]";
2780	mes "I'm sorry, but I've been";
2781	mes "exclusively contracted";
2782	mes "to the members of the";
2783	mes "^FF0000" + GetGuildName(.@GID) + "^000000 Guild.";
2784	mes "You'll have to ask another";
2785	mes "Kafra Employee to help you...";
2786	close2;
2787	cutin "kafra_01",255;
2788	end;
2789	}
2790
2791	OnRecvCastlesc01:
2792	if (GetCastleData("schg_cas01",1) == 0) {
2793	monster "schg_cas01",0,0,"Evil Druid",1117,10;
2794	monster "schg_cas01",0,0,"Khalitzburg",1132,4;
2795	monster "schg_cas01",0,0,"Abysmal Knight",1219,3;
2796	monster "schg_cas01",0,0,"Executioner",1205,1;
2797	monster "schg_cas01",0,0,"Penomena",1216,10;
2798	monster "schg_cas01",0,0,"Alarm",1193,18;
2799	monster "schg_cas01",0,0,"Clock",1269,9;
2800	monster "schg_cas01",0,0,"Raydric Archer",1276,12;
2801	monster "schg_cas01",0,0,"Wanderer",1208,3;
2802	monster "schg_cas01",0,0,"Alice",1275,1;
2803	monster "schg_cas01",0,0,"Bloody Knight",1268,2;
2804	monster "schg_cas01",0,0,"Dark Lord",1272,2;
2805	monster "schg_cas01",0,0,"Tower Keeper",1270,4;
2806	}
2807	if (GetCastleData("schg_cas01",9) < 1) {
2808	disablenpc "Kafra Employee#sch01";
2809	}
2810	end;
2811	}
2812
2813	schg_cas01,391,391,0 script #sch01_switch 111,{
2814	mes " ";
2815	mes "^3355FFWill you pull";
2816	mes "this small lever?^000000";
2817	next;
2818	switch(select("Pull Lever:Cancel")) {
2819	case 1:
2820	warp "schg_cas01",275,244;
2821	end;
2822	case 2:
2823	close;
2824	}
2825	}
2826
2827	sch_gld,290,90,0 script Himinn#flag_sc01_1::Sc01_Flag 722,{
2828	set .@GID, GetCastleData("schg_cas01",1);
2829	if (.@GID == 0) {
2830	mes "[ Schwaltzvalt Royal Edict ]";
2831	mes "The Holy Kingdom of";
2832	mes "Schwaltzvalt declares that";
2833	mes "one has yet to claim lordship";
2834	mes "over this stronghold. The one";
2835	mes "that breaks the Emperium will";
2836	mes "be recognized as its new owner.";
2837	close;
2838	}
2839	else {
2840	if (getcharid(2) == .@GID) {
2841	mes "[ Ringing Voice ]";
2842	mes "Courageous one,";
2843	mes "do you wish to return";
2844	mes "to your stronghold?";
2845	next;
2846	switch(select("Return to the Stronghold:Cancel")) {
2847	case 1:
2848	set .@GID, GetCastleData("schg_cas01",1);
2849	if (getcharid(2) == .@GID) {
2850	warp "schg_cas01",120,290;
2851	end;
2852	}
2853	close;
2854	case 2:
2855	close;
2856	}
2857	}
2858	mes "[ Schwaltzvalt Royal Edict ]";
2859	mes "The Holy Kingdom of";
2860	mes "Schwaltzvalt decrees that";
2861	mes "this stronghold is owned";
2862	mes "by the ^FF0000" + GetGuildName(.@GID) + "^000000 Guild.";
2863	next;
2864	mes "[ Schwaltzvalt Royal Edict ]";
2865	mes "^FF0000" + GetGuildMaster(.@GID) + "^000000 is";
2866	mes "Guild Master of ^FF0000" + GetGuildName(.@GID) + "^000000.";
2867	mes "Any that object must claim this";
2868	mes "stronghold through strength of";
2869	mes "steel and magic during the";
2870	mes "appointed Guild Siege times.";
2871	close;
2872	}
2873
2874	OnRecvCastlesc01:
2875	FlagEmblem GetCastleData("schg_cas01",1);
2876	end;
2877	}
2878
2879	sch_gld,297,90,0 duplicate(Sc01_Flag) Himinn#flag_sc01_2 722

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/guild2/schg_cas01.txt @ 1

Download in other formats: