Various NPC fixes

* LUPUS, REMEMBER TO ACTUALLY ADD THE DIVORCE NPC, THANKS :P *

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@8571 54d463be-8e91-2dee-dedb-b68131a5f0ec

npc/Changelog.txt

@@ -33,6 +33,13 @@ Playtester
 Date		Added
 ======
 09/01
+	* Removed useless 'npc\other\old' directory, who would need that anyway... [DracoRPG]
+	* Commented out the path to Divorce NPC as Lupus forgot to add it for good [DracoRPG]
+	* Fixed critical syntax errors in the new Valkyrie script, (è_é) @ Lupus [DracoRPG]
+	* Improved Bioethics quest & nearby Rekenber Guards [DracoRPG]
+	  - Used isequipped() instead of getequipid() to simplify code (esp. with accessories)
+	  - Rewritten the custom text about Hom. Res. and removed its actual learning
+	  - iRO-ized answers to the test (text was taken from a pRO guide so pRO names >.>)
 	* Rogue Job quest: now baby thieves can pass 4th test [Lupus]
 	- In the same quest, fixed test4 quest NPC, thanks to Dj-Yhn
 	- Added divorcing Deviruchi, converted by LightFighter

npc/cities/lighthalzen.txt

@@ -1952,7 +1952,7 @@ lhz_in01.gat,73,188,4	script	Guide#03	862,{
 
 lhz_in01.gat,34,226,4	script	Rekenber Guard#01	867,{
 
-	if(getequipid(10) == 2241 && getequipid(9) == 2243)goto s_Staff;
+	if(isequipped(2241) && isequipped(2243)) goto s_Staff;
 	mes "[Rekenber Guard]";
 	mes "This is a restricted";
 	mes "area! Please show";
@@ -1987,7 +1987,7 @@ s_Staff:
 
 lhz_in01.gat,19,129,0	script	LhzHiddenTrg1::LhzTrig	-1,1,1{
 OnTouch:
-	if(getequipid(10) == 2241 && getequipid(9) == 2243)goto s_Staff;
+	if(isequipped(2241) && isequipped(2243)) goto s_Staff;
 	mes "[Rekenber Guard]";
 	mes "This area is restricted";
 	mes "to the public! Who are you";
@@ -2015,7 +2015,7 @@ lhz_in01.gat,24,131,2	duplicate(LhzTrig)	Rekenber Guard#02	867
 
 lhz_in01.gat,25,141,4	script	Regenschirm Guard	868,{
 
-	if(getequipid(10) == 2241 && getequipid(9) == 2243)goto s_Staff;
+	if(isequipped(2241) && isequipped(2243)) goto s_Staff;
 	mes "[Regenschirm Guard]";
 	mes "This area is restricted";
 	mes "to the public! Who are you";
@@ -2038,7 +2038,7 @@ s_Staff:
 	close;
 
 s_Yes:
-	if(getequipid(7) == 2657 || getequipid(8) == 2657)goto s_Auth;
+	if(isequipped(2657)) goto s_Auth;
 	mes "[Regenschirm Guard]";
 	mes "I'm sorry but I can't let";
 	mes "staff without proper autorization";

npc/cities/valkyrie.txt

@@ -36,13 +36,13 @@ yuno_in02.gat,93,207,0	script	Book of Ymir	111,{
 		mes "...The entrance to the Hall of Honor is open to everyone who will move forward, into their next lives.";
 		mes "It is there to help heroes decide what they want to do, and can access every place in this world.";
 		next;
-		mes "[Book of Ymir]"
+		mes "[Book of Ymir]";
 		mes "In the Hall of Honor, everything is perfectly prepared for heroes.";
 		mes "It is rumored that any wish that cannot be fulfilled in our reality can be realized in the Hall of Honor.";
 		next;
-		switch(select("Stop reading.:Continue reading.")) {
+		switch(select("Stop reading.","Continue reading.")) {
 		case 1:
-			mes "[Book of Ymir]"
+			mes "[Book of Ymir]";
 			mes ". . . . .";
 			close;
 			break;
@@ -56,11 +56,10 @@ yuno_in02.gat,93,207,0	script	Book of Ymir	111,{
 			break;
 		}
 	}
-	if(Upper==2 || baseClass == Job_Taekwon || BaseJob == Job_Gunslinger || BaseJob == Job_Ninja){
-
-	}
-) goto L_IGNORE; //don't allow Taekwondo classes, Baby Classes, and GS/NJ
+	if(Upper==2 || baseClass == Job_Taekwon || BaseJob == Job_Gunslinger || BaseJob == Job_Ninja)
+		goto L_IGNORE; //don't allow Taekwondo classes, Baby Classes, and GS/NJ
 	if(valkyrie_Q >= 1) goto L_CONT;
+
 L_IGNORE:
 	mes ". . . . .";
 	close;

npc/other/old/guide.txt

@@ -1,1153 +0,0 @@
-//===== eAthena Script ======================================= 
-//= Guide Script 
-//===== By: ================================================== 
-//= Lotsa People (1.0)
-//= Even More People (1.1)
-//= Darkchild (1.2)
-//===== Current Version: ===================================== 
-//= 1.2 
-//===== Compatible With: ===================================== 
-//= Any eAthena Version In Which Duplicate Works
-//===== Description: ========================================= 
-//= Guides In RO World
-//===== Additional Comments: ================================= 
-//= 1.2 - Used the duplicate and fixed minor things
-//============================================================ 
-
-//[Prontera Guide]
-
-//Complete
-prontera.gat,154,187,4	script	Guide#p1-1::guide_p	105,{
-	cutin "prt_soldier",2;
-	mes "[Prontera Squad]";
-	mes "Welcome to Prontera,the Capital City of Rune-Midgard Kingdom.";
-	mes "We can help you to find Buildings easily, Feel free to inquire at us anytime.";
-	mes "Please Choose a menu `Notice' if you are a beginner of Ragnarok.";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_MENU_1_ROOT;
-		mes "[Prontera Squad]";
-		mes "Please choose a Menu first.";
-		mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please.",-,"No, Thanks.",L_MENU_1_ROOT;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-		mes "[Prontera Squad]";
-		mes "Please select location you want me to show you.";
-	L_SUB_1:
-		next;
-		menu "Swordman Asosiation",L_MENU_1_1,"^0000FFSantuary^000000",L_MENU_1_2,"Prontera Chivalry",L_MENU_1_3,"Armory",L_MENU_1_4,"Kit Shop",L_MENU_1_5,"Inn",L_MENU_1_6,"Trading Post",L_MENU_1_7,"Pub",L_MENU_1_8,"Library",L_MENU_1_9,"Job Agency",L_MENU_1_10,"The Castle of Prontera",L_MENU_1_11,"City Hall",L_MENU_1_12,"Cancel",L_MENU_1_13;
-		L_MENU_1_1:
-			mes "[Prontera Squad]";
-			mes "The 'Swordman Assosiation' has moved to Izlude, the Sattelite of Prontera, now that Building is Empty";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,237,41,1,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Prontera Squad]";
-			mes "The main Chapel of Rune-Midgard Kingdom, `Santuary' is located at Northeast. Usually citizens visit there to become Acolyte";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,236,316,2,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Prontera Squad]";
-			mes "'Prontera Chivalry' the Defense Force of Prontera City is located at Northwest.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,46,345,3,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Prontera Squad]";
-			mes "'Armory' is located at Northeast around the Fountain.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,175,220,4,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Prontera Squad]";
-			mes "'Kit Shop' is located Northwest around the Fountain.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,134,221,5,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_6:
-			mes "[Prontera Squad]";
-			mes "There are 2 'Inn's' around the Fountain, on is located at West, other one at East.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,204,214,6,0xFF00FF;
-			viewpoint 1,107,192,7,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_7:
-			mes "[Prontera Squad]";
-			mes "'Trading Post' is located at Southeast around the Fountain.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,179,184,8,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_8:
-			mes "[Prontera Squad]";
-			mes "'Pub is located at Southeast around the Fountain, right behind Trading Post building.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,208,154,9,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_9:
-			mes "[Prontera Squad]";
-			mes "There are 2 Buildings of 'Library', located both at Northern East and Northern West around the Fountain.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,120,267,10,0x00FF00;
-			viewpoint 1,192,267,11,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_10:
-			mes "[Prontera Squad]";
-			mes "'Job Agency' is located at Southeast of the Fountain.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,133,183,12,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_11:
-			mes "[Prontera Squad]";
-			mes "'The Castle Of Prontera' is located at Due North. Clockwise rotation is 12.";
-			mes "And when you go outside the Castle through a postern, you will see the North Prontera Field.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,156,360,13,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_12:
-			mes "[Prontera Squad]";
-			mes "City Hall is located at Southeast Contour. The Clockwise rotarion is 7.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,75,91,14,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_13:
-			mes "[Prontera Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,237,41,1,0x00FF00;
-		viewpoint 2,236,316,2,0xFF0000;
-		viewpoint 2,46,345,3,0x00FF00;
-		viewpoint 2,175,220,4,0xFF00FF;
-		viewpoint 2,8,134,5,0xFF00FF;
-		viewpoint 2,204,214,6,0xFF00FF;
-		viewpoint 2,107,192,7,0xFF00FF;
-		viewpoint 2,179,184,8,0x00FF00;
-		viewpoint 2,208,154,9,0x00FF00;
-		viewpoint 2,120,267,10,0x00FF00;
-		viewpoint 2,192,267,11,0x00FF00;
-		viewpoint 2,133,183,12,0x00FF00;
-		viewpoint 2,156,360,13,0x00FF00;
-		viewpoint 2,75,91,14,0x00FF00;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-		mes "[Prontera Squad]";
-		mes "We altered the Location Guide into de Newest Digital Style, out of the former Analog One.";
-		mes "Please Check this gorgeous newest system with your own eyes.";
-		next;
-		mes "[Prontera Squad]";
-		mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-		mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-		mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Prontera Squad]";
-		mes "Have a nice day.";
-		cutin "prt_soldier",255;
-		close;
-}
-//Duplicate
-prontera.gat,282,208,2	duplicate(guide_p)	Guide#p1-2	105
-
-prontera.gat,29,200,6	duplicate(guide_p)	Guide#p1-3	105
-
-prontera.gat,160,29,0	duplicate(guide_p)	Guide#p1-4	105
-
-prontera.gat,151,330,4	duplicate(guide_p)	Guide#p1-5	105
-
-
-//[Izlude]
-
-//Complete
-izlude.gat,123,87,6	script	Guide	105,{
-	mes "[Izlude Squad]";
-	mes "Welcome to Izlude, the New Satelite of Prontera.";
-	mes "Feel free to inquire at us anytime, Algight?";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_MENU_1_ROOT;
-		mes "[Izlude Squad]";
-		mes "Please choose a Menu first.";
-		mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please",-,"No, Thanks",L_SUB_1;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-	L_SUB_1:
-		next;
-		menu "^FF0000Swordman Asosiation^000000",L_MENU_1_1,"Swordman Hall",L_MENU_1_2,"Arena",L_MENU_1_3,"Izlude Marina",L_MENU_1_4,"Armory",L_MENU_1_5,"Kit Shop",L_MENU_1_6,"Cancel",L_MENU_1_7;
-		L_MENU_1_1:
-			mes "[Izlude Squad]";
-			mes "Do you want to be a Swordman?";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,52,140,1,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Izlude Squad]";
-			mes "Swordman Hall, the official Building of Swordman Assosiation is at East Contour.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,214,130,2,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Izlude Squad]";
-			mes "'Arena' the Popular Colosseum is at Due North. The Clockwise totation is 12.";
-			mes "You can have fun there, you know.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,128,225,3,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Izlude Squad]";
-			mes "Marina which allows you to go to 'Alberta' or 'Byalan Island' is at Northeast.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,200,180,4,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Izlude Squad]";
-			mes "Armory is near at Northwest, and you can find it easily.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,111,149,5,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_6:
-			mes "[Izlude Squad]";
-			mes "Kit Shop is near at Northeast, and you can find it easily.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,148,148,6,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_7:
-			mes "[Izlude Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,52,140,1,0xFF0000;
-		viewpoint 2,214,130,2,0x00FF00;
-		viewpoint 2,128,225,3,0x00FF00;
-		viewpoint 2,200,180,4,0xFF0000;
-		viewpoint 2,111,149,5,0xFF00FF;
-		viewpoint 2,148,148,6,0xFF00FF;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-		mes "[Izlude Squad]";
-		mes "We altered the Location Guideinto de Newest Digital Style, out of the former Analog One.";
-		mes "Please Check this gorgeous newest system with your own eyes.";
-		next;
-		mes "[Izlude Squad]";
-		mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-		mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-		mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Izlude Squad]";
-		mes "Don't get lost.";
-		close;
-}
-
-//[Geffen]
-
-//Complete
-geffen.gat,203,116,0	script	Guide#p1-6::guide_g	705,{
-		cutin "gef_soldier",2;
-		mes "[Geffen Squad]";
-		mes "Welcome to Geffen, the City of Magic.";
-		mes "We will help you when you take the Wrong way, Feel free to inquire at us anytime.";
-		mes "Please Choose a menu `Notice' if you are a beginner of Ragnarok.";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_MENU_1_ROOT;
-			mes "[Geffen Squad]";
-			mes "Please choose a Menu first.";
-			mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please",-,"No, Thanks",L_MENU_1_ROOT;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-	L_SUB_1:
-		next;
-		menu "^FF0000Magic Acadamy^000000",L_MENU_1_1,"Forge",L_MENU_1_2,"Armory",L_MENU_1_3,"Kit Shop",L_MENU_1_4,"Pub",L_MENU_1_5,"Inn",L_MENU_1_6,"Cancel",L_MENU_1_7;
-		L_MENU_1_1:
-			mes "[Geffen Squad]";
-			mes "'Magic Acadamy' is the Building in charge of Every Magical Theory.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,61,180,1,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Geffen Squad]";
-			mes "'Forge' is located at Southeast around the Tower of Magic.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,182,59,2,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Geffen Squad]";
-			mes "'Armory' is located at Northwest oround the Tower of Magic.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,99,140,3,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Geffen Squad]";
-			mes "'Kit Shop' is located at Southwest arround the Tower of Magic.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,44,86,4,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Geffen Squad]";
-			mes "'Pub' is located at Northeast around the Tower of Magic.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,138,138,5,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_6:
-			mes "[Geffen Squad]";
-			mes "'Inn' is located at Northeast around the Tower of Magic.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,172,174,6,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_7:
-			mes "[Geffen Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,61,180,1,0xFF0000;
-		viewpoint 2,182,59,2,0x00FF00;
-		viewpoint 2,99,140,3,0xFF00FF;
-		viewpoint 2,44,86,4,0xFF00FF;
-		viewpoint 2,138,138,5,0xFF00FF;
-		viewpoint 2,172,174,6,0xFF00FF;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-			mes "[Geffen Squad]";
-			mes "We altered the Location Guide into de Newest Digital Style, out of the former Analog One.";
-			mes "Please Check this gorgeous newest system with your own eyes.";
-			next;
-			mes "[Geffen Squad]";
-			mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-			mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-			mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Geffen Squad]";
-		mes "Have a nice day.";
-		cutin "gef_soldier",255;
-		close;
-}
-
-//Duplicate
-geffen.gat,118,62,0	duplicate(guide_g)	Guide#p1-7	105
-
-//[Payon]
-payon.gat,82,116,4	script	Guide#p1-8::guide_p	708,{
-	cutin "pay_soldier",2;
-	mes "[Payon Squad]";
-	mes "Welcome to Payon, the uplander village.";
-	mes "We will help you when you take the wrong way, Feel free to inquire at us anytime.";
-	mes "Please Choose a menu `Notice' if you are a beginner of Ragnarok.";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_MENU_1_ROOT;
-		mes "[Payon Squad]";
-		mes "Please choose a Menu first.";
-		mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please",-,"No, Thanks",L_MENU_1_ROOT;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-	L_SUB_1:
-		next;
-		menu "^FF0000Archer Guild^000000",L_MENU_1_1,"Armory",L_MENU_1_2,"Kit Shop",L_MENU_1_3,"Inn",L_MENU_1_4,"Central Palace",L_MENU_1_5,"Cancel",L_MENU_1_6;
-		L_MENU_1_1:
-			mes "[Payon Squad]";
-			mes "'Archer Guild' is a Control Office of Archers. It is located at Northeast Contour of the Archer Village.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,174,189,1,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Payon Squad]";
-			mes "'Armory' is located at Northwest around the Centre.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,30,176,2,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Payon Squad]";
-			mes "'Kit Shop' is located at Northwest Contour of the Archer Village.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,174,189,3,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Payon Squad]";
-			mes "'Inn' is located at East around the Centre.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,172,134,4,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Payon Squad]";
-			mes "'Central Palace' is at North around the Centre.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,89,166,5,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_6:
-			mes "[Payon Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on the Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,174,189,1,0xFF0000;
-		viewpoint 2,30,176,2,0xFF00FF;
-		viewpoint 2,174,189,3,0xFF00FF;
-		viewpoint 2,172,134,4,0xFF00FF;
-		viewpoint 2,89,166,5,0x00FF00;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-		mes "[Payon Squad]";
-		mes "We altered the Location Guide into de Newest Digital Style, out of the former Analog One.";
-		mes "Please Check this gorgeous newest system with your own eyes.";
-		next;
-		mes "[Payon Squad]";
-		mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-		mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-		mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Payon Squad]";
-		mes "Bon Voyage, Wanderer.";
-		cutin "pay_soldier",255;
-		close;
-}
-
-//Duplicate
-pay_arche.gat,85,30,2	duplicate(guide_p)	Guide#p1-9	105
-
-//[Alberta]
-
-alberta.gat,23,238,4	script	Guide#p1-10::guide_a	105,{
-	mes "[Alberta Squad]";
-	mes "Welcome to Alberta, the The Port Town.";
-	mes "We will helpyou when you take a wrong way, Feel free to inquire at us anytime.";
-	mes "Please Choose a menu `Notice' if you are a beginner of Ragnarok.";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_SUB_1;
-		mes "[Alberta Squad]";
-		mes "Please choose a Menu first.";
-		mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please",-,"No, Thanks",L_MENU_1_ROOT;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-	L_SUB_1:
-		menu "^FF0000Merchant Guild^000000",L_MENU_1_1,"Armory",L_MENU_1_2,"Kit Shop",L_MENU_1_3,"Inn",L_MENU_1_4,"Cancel",L_MENU_1_5;
-		L_MENU_1_1:
-			mes "[Alberta Squad]";
-			mes "'Merchant Guild' will help you to transform into a Merchant.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,33,41,1,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Alberta Squad]";
-			mes "'Armory' is located at North Contour from the Centre of Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,117,37,2,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Alberta Squad]";
-			mes "'Kit Shop' is located at the Centre of Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,98,154,3,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Alberta Squad]";
-			mes "'Armory' is located at North Contour around the Centre of Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,65,233,4,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Alberta Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,33,41,1,0xFF0000;
-		viewpoint 2,117,37,2,0xFF00FF;
-		viewpoint 2,98,154,3,0xFF00FF;
-		viewpoint 2,65,233,4,0xFF00FF;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-		mes "[Alberta Squad]";
-		mes "We altered the Location Guideinto de Newest Digital Style, out of the former Analog One.";
-		mes "Please Check this gorgeous newest system with your own eyes.";
-		next;
-		mes "[Alberta Squad]";
-		mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-		mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-		mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Alberta Squad]";
-		mes "Ta Ta.";
-		close;
-}
-
-//Duplicate
-alberta.gat,120,60,3	duplicate(guide_a)	Guide#p1-11	105
-
-//[Morroc]
-
-morocc.gat,153,286,6	script	Guide#p1-12::guide_m	707,{
-		cutin "moc_soldier",2;
-		mes "[Morocc Squad]";
-		mes "Welcome to Morroc,the Frontier.";
-		mes "We will help you when you take a Wrong Way, Feel free to inquire at us anytime, Algight?";
-L_START_1:
-	next;
-	menu "View Buildings",L_MENU_1,"Wipe all Indications on Mini-Map.",L_MENU_2,"Notice",L_MENU_3,"Cancel",L_MENU_4;
-	L_MENU_1:
-		if (@COMPASS_CHECK != 0) goto L_SUB_1;
-			mes "[Morocc Squad]";
-		mes "Please choose a Menu first.";
-		mes "Do you want me to leave indications on the Mini-Map?";
-		next;
-		menu "Yes, Please",-,"No, Thanks",L_MENU_1_ROOT;
-			set @COMPASS_CHECK,1;
-	L_MENU_1_ROOT:
-	L_SUB_1:
-		next;
-		menu "^FF0000Thief Guild^000000",L_MENU_1_1,"Armory",L_MENU_1_2,"Inn",L_MENU_1_3,"Pub",L_MENU_1_4,"Mercenary Guild",L_MENU_1_5,"Cancel",L_MENU_1_6;
-		L_MENU_1_1:
-			mes "[Morocc Squad]";
-			mes "'Thief Guild' wich grants you to be a Thief is located inside by hearsay...";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,24,297,1,0xFF0000;
-			goto L_SUB_1;
-		L_MENU_1_2:
-			mes "[Morocc Squad]";
-			mes "'Armory' is located at Southwest around the Centre of Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,253,56,2,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_3:
-			mes "[Morocc Squad]";
-			mes "In Morroc there are 2 'Inn's' located both at South and Northeast around the Centre on Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,274,269,3,0xFF00FF;
-			viewpoint 1,197,66,3,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_4:
-			mes "[Morocc Squad]";
-			mes "'Pub' is located at Northwest around the Centre.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,52,259,4,0xFF00FF;
-			goto L_SUB_1;
-		L_MENU_1_5:
-			mes "[Morocc Squad]";
-			mes "'Mercenary Guild' is at East Contour around the Centre of Mini-Map.";
-			if (@COMPASS_CHECK != 1) goto L_SUB_1;
-			viewpoint 1,284,171,5,0x00FF00;
-			goto L_SUB_1;
-		L_MENU_1_6:
-			mes "[Morocc Squad]";
-			mes "If you want to remove location marks, Please choose 'Wipe all Indications on the Mini-Map.'.";
-			goto L_START_1;
-	L_MENU_2:
-		viewpoint 2,24,297,1,0xFF0000;
-		viewpoint 2,253,56,2,0xFF00FF;
-		viewpoint 2,274,269,3,0xFF00FF;
-		viewpoint 2,197,66,3,0xFF00FF;
-		viewpoint 2,52,259,4,0xFF00FF;
-		viewpoint 2,284,171,5,0x00FF00;
-		set @COMPASS_CHECK,0;
-		goto L_START_1;
-	L_MENU_3:
-		mes "[Morocc Squad]";
-		mes "We altered the Location Guide into de Newest Digital Style, out of the former Analog One.";
-		mes "Please Check this gorgeous newest system with your own eyes.";
-		next;
-		mes "[Morroc Squad]";
-		mes "Don't forget to refer the Mini-Map on Upper-Right of the Screen.";
-		mes "If you can't see the Mini-Map, just use Shortcut 'ctrl+tab' or Click 'map' button on the Basic Information Window";
-		mes "After that, Click '-' button on the Mini-Map until whole buildings are shown on it.";
-		goto L_START_1;
-	L_MENU_4:
-		mes "[Morocc Squad]";
-		mes "Good by for now.";
-		cutin "moc_soldier",255;
-		close;
-}
-
-//Duplicate
-morocc.gat,54,97,6	duplicate(guide_m)	Guide#p1-13	707
-
-
-//[Comodo]
-
-comodo.gat,322,178,4	script	Guide#p1-14::guide_c	700,{
-	mes "[Native Papaya]";
-	mes "Where the night life continues 24 hours a day";
-	mes "The city of Dreams and Fantasy!";
-	mes "We welcome you to the land of Comodo!";
-	mes "I know the area very well.";
-	mes "If you need directions, ask me anytime for asistance";
-	next;
-	menu "Casino",L_MENU_1,"Hula dancing stage ^0000FF(Dancer Job Change)^000000",L_MENU_2,"Weapons and Armor Shop",L_MENU_3,"Tool store",L_MENU_4,"Tourist Shop",L_MENU_5,"Kafra Corp. Western Branch",L_MENU_6,"Chief's House",L_MENU_7,"Pub",L_MENU_8,"Camp Ground",L_MENU_9,"End Conversation",L_MENU_10;
-	L_MENU_1:
-		viewpoint 1,140,98,1,0xFF6633;
-		mes "^FF0000+^000000 -> Casino!";
-		mes "The heart of Comodo's night life!";
-		mes "A heaven of rest for tired travelers!";
-		mes "Another service provided here.!";
-		mes "The COmodo Casino ~!";
-		close;
-	L_MENU_2:
-		viewpoint 1,188,168,2,0x0000FF;
-		mes "^0000FF+^000000 -> Hula dancing Stage";
-		mes "Hula Hula - Hula Hula";
-		mes "When you become more comfortable performing on stage, you should consider changing job to be a Dancer";
-		mes "What do you think? Hula Dancing Stage - ^0000FF(Change job to Dancer)^000000";
-		close;
-	L_MENU_3:
-		viewpoint 1,266,70,3,0x00FFFF;
-		mes "^00FFFF+^000000 -> Weapons and Armor Shop";
-		mes "Here in Comodo, you can find unique items only found in Comodo.";
-		mes "'Comodo Weapons and Armor Shop'";
-		close;
-	L_MENU_4:
-		viewpoint 1,86,128,4,0x515151;
-		mes "^808080+^000000 -> Tool Shop";
-		mes "Here in Comodo, you can find tools only found in Comodo";
-		mes "'Comodo Tool Store'";
-		close;
-	L_MENU_5:
-		viewpoint 1,298,124,5,0x3355FF;
-		mes "^0000FF+^000000 -> Tourist Shop";
-		mes "Here in Comodo, you can find unique gifts only found in Comodo";
-		mes "'Comodo Tourist Shop'";
-		close;
-	L_MENU_6:
-		viewpoint 1,136,202,6,0xFF5555;
-		mes "^FF0000+^000000 -> Kafra Corp. Western Branch";
-		mes "The Western Branch of Midgards Kafra Corp.";
-		mes "Ofering you the best service!";
-		mes "Kafra Corp.'s Western Branch center is located here in Comodo";
-		close;
-	L_MENU_7:
-		viewpoint 1,114,294,7,0xFF5555;
-		mes "^FF0000+^000000 -> Chief's House";
-		mes "This is the house where the Chief of Comodo resides.";
-		mes "If you are one who posseses a serious interest in Comodo, you can meet the Chief in person.";
-		mes "I think that would be okay with him.";
-		close;
-	L_MENU_8:
-		viewpoint 1,166,298,8,0xFF5555;
-		mes "^FF0000+^000000 -> Pub";
-		mes "The pub is a place where tourists from all over the world come to converse and exchange ideas";
-		mes "Bringing the ethnic atmosphere of Comodo, to an environment which tourists can enjoy";
-		close;
-	L_MENU_9:
-		viewpoint 1,210,308,9,0xFF5555;
-		mes "^FF0000+^000000 -> Camp Ground";
-		mes "Sometimes with family and sometimes with friends, people come to Comodo campground to creat great memories.";
-		mes "BBQ Camp Ground is where you can taste the ethnic flavors of Comodo's Spit BBQ!";
-		close;
-	L_MENU_10:
-		mes "[Native Papaya]";
-		mes "Because Comodo is located in a cave, sunlight cannot shine into this area.";
-		mes "It is dark 24 hours a day!";
-		mes "The residents of Comodo are using this unusual circumstance to draw tourists to our area...";
-		close;
-}
-
-//Duplicates
-comodo.gat,176,350,4	duplicate(guide_c)	Guide#p1-14	700
-
-comodo.gat,37,219,4	duplicate(guide_c)	Guide#p1-15	700
-
-//[Yuno]
-
-//Needs Translation
-yuno.gat,153,47,4	script	"ジュノーガイド"	700,{
-	mes "[ジュノーガイド]";
-	mes "過去を知り……";
-	mes "現在を見つめ……";
-	mes "未来を予知する……";
-	mes "ここは賢者たちの都市";
-	mes "- ジュノー -";
-	mes "ジュノーにようこそ";
-	next;
-	menu "武器防具店",L1,"道具店",L2,"セージキャッスル (セージ転職所)",L3,"書店通り",L4,"中央広場",L5,"共和国図書館",L6,"シュバイチェル魔法アカデミー",L7,"モンスター博物館",L8,"会話をCancel",LEnd;
-L1:
-	mes "[ジュノーガイド]";
-	viewpoint 1,120,138,1,0xFF3355;
-	mes "^FF3355+^000000 -> 武器防具店";
-	goto Lgo;
-L2:
-	mes "[ジュノーガイド]";
-	viewpoint 1,193,142,2,0x3355FF;
-	mes "^3355FF+^000000 -> 道具店";
-	goto Lgo;
-L3:
-	mes "[ジュノーガイド]";
-	viewpoint 1,90,318,3,0x33FF55;
-	mes "^33FF55+^000000 -> セージキャッスル";
-	mes "(セージ転職所)";
-	goto Lgo;
-L4:
-	mes "[ジュノーガイド]";
-	viewpoint 1,257,102,4,0xFF3355;
-	mes "^FF3355+^000000 -> 書店通り";
-	goto Lgo;
-L5:
-	mes "[ジュノーガイド]";
-	viewpoint 1,157,170,5,0x3355FF;
-	mes "^3355FF+^000000 -> 中央広場";
-	goto Lgo;
-L6:
-	mes "[ジュノーガイド]";
-	viewpoint 1,336,204,6,0x33FF55;
-	mes "^33FF55+^000000 -> 共和国図書館";
-	goto Lgo;
-L7:
-	mes "[ジュノーガイド]";
-	viewpoint 1,323,281,7,0xFF3355;
-	mes "^FF3355+^000000 -> シュバイチェル魔法アカデミー";
-	goto Lgo;
-L8:
-	mes "[ジュノーガイド]";
-	viewpoint 1,278,288,8,0x3355FF;
-	mes "^3355FF+^000000 -> モンスター博物館";
-	goto Lgo;
-Lgo:
-	mes "になります。";
-	mes "良い時をお過ごしください。";
-	close;
-LEnd:
-	mes "[ジュノーガイド]";
-	mes "賢者たちの大都市";
-	mes "そして知識の宝庫";
-	mes "ジュノーへようこそ！";
-	close;
-}
-
-//[Amatsu]
-
-//Needs Translation
-amatsu.gat,207,91,4	script	ミス・アマツ	758,{
-	mes "[蛍ちゃん]";
-	mes "私は、第13代ミス・アマツ";
-	mes "｢蛍｣と申します。";
-	mes "アマツ代表として";
-	mes "村の案内を仰せつかっております。";
-	mes "なにかご質問が� りましたら";
-	mes "なんなりとおっしゃってくださいませ。";
-	next;
-	menu "城",L1,"道具店",L2,"武器店",L3,"居酒屋",L4;
-L1:
-		viewpoint 1,85,235,0,0xFF3355;
-		mes "[蛍ちゃん]";
-		mes "ミニマップの";
-		mes "^FF3355+^000000部分が";
-		mes "城でございます。";
-		goto LEnd;
-L2:
-		viewpoint 1,96,118,1,0xCE6300;
-		mes "[蛍ちゃん]";
-		mes "ミニマップの";
-		mes "^CE6300+^000000部分が";
-		mes "道具店になります。";
-		goto LEnd;
-L3:
-		viewpoint 1,132,117,2,0x55FF33;
-		mes "[蛍ちゃん]";
-		mes "ミニマップの";
-		mes "^55FF33+^000000部分が";
-		mes "武器店になります。";
-		goto LEnd;
-L4:
-		viewpoint 1,217,116,3,0x3355FF;
-		mes "[蛍ちゃん]";
-		mes "ミニマップの";
-		mes "^3355FF+^000000部分が";
-		mes "居酒屋になります。";
-LEnd:
-		mes "それでは、アマツで";
-		mes "楽しい時間をお過ごし下さいませ。";
-		close;
-}
-
-amatsu.gat,251,283,4	script	案内人	767,{
-	mes "[案内人]";
-	mes "ようこそ。";
-	mes "旅をするには良い季節ですね。";
-	mes "私はこのアマツの";
-	mes "案内を引き受けておる者です。";
-	next;
-	mes "[案内人]";
-	mes "何をお探しですか？";
-	next;
-	menu "城",L1,"道具店",L2,"武器店",L3,"居酒屋",L4;
-L1:
-		viewpoint 1,85,235,0,0xFF3355;
-		mes "[案内人]";
-		mes "ミニマップの";
-		mes "^FF3355+^000000部分が";
-		mes "城でございます。";
-		goto LEnd;
-L2:
-		viewpoint 1,96,118,1,0xCE6300;
-		mes "[案内人]";
-		mes "ミニマップの";
-		mes "^CE6300+^000000部分が";
-		mes "道具店になります。";
-		goto LEnd;
-L3:
-		viewpoint 1,132,117,2,0x55FF33;
-		mes "[案内人]";
-		mes "ミニマップの";
-		mes "^55FF33+^000000部分が";
-		mes "武器店になります。";
-		goto LEnd;
-L4:
-		viewpoint 1,217,116,3,0x3355FF;
-		mes "[案内人]";
-		mes "ミニマップの";
-		mes "^3355FF+^000000部分が";
-		mes "居酒屋になります。";
-LEnd:
-		mes "それでは、アマツで";
-		mes "楽しい時間をお過ごし下さいませ。";
-		close;
-}
-
-
-//[Gonryun]
-
-//Needs Translation
-gonryun.gat,163,60,4	script	コンロンガイド	780,{
-	mes "[ハ ウォンチ]";
-	mes "いつも活気に満ちて、熱気があふれ";
-	mes "毎日人々が行き交っている";
-	mes "コンロンにいらっしゃいませ!";
-	next;
-	mes "[ハ ウォンチ]";
-	mes "商売がら、村の案内をして";
-	mes "います。知りたいことがあれば";
-	mes "何でも聞いてください。";
-	next;
-	menu "村長の家",L1,"道具商人",L2,"武器商人",L3,"防具商人",L4,"旅館",L5;
-L1:
-	viewpoint 1,109,131,0,0xff3355;
-	mes "[ハ ウォンチ]";
-	mes "ミニマップの";
-	mes "^ff3355+^000000の位置に";
-	mes "村長の家があります。";
-	goto Lend;
-L2:
-	viewpoint 1,147,84,1,0xce6300;
-	mes "[ハ ウォンチ]";
-	mes "ミニマップの";
-	mes "^ce6300+^000000の位置に";
-	mes "道具商人がいます。";
-	goto Lend;
-L3:
-	viewpoint 1,174,101,2,0x55ff33;
-	mes "[ハ ウォンチ]";
-	mes "ミニマップの";
-	mes "^55ff33+^000000の位置に";
-	mes "武器商人がいます。";
-	goto Lend;
-L4:
-	viewpoint 1,173,84,3,0x3355ff;
-	mes "[ハ ウォンチ]";
-	mes "ミニマップの";
-	mes "^3355ff+^000000の位置に";
-	mes "防具商人がいます。";
-	goto Lend;
-L5:
-	viewpoint 1,215,114,4,0xffffff;
-	mes "[ハ ウォンチ]";
-	mes "ミニマップの";
-	mes "^ffffff+^000000の位置に";
-	mes "旅館があります。";
-	goto Lend;
-Lend:
-	mes "私達の楽しいコンロンを";
-	mes "思いっきり楽しんでください！";
-	close;
-}
-
-// Below not in japanese NPC
-
-aldebaran.gat,139,63,4	script	Soldier	105,{
-	mes "[Al De Baran Guard]";
-	mes "I am just any ordinary guard you could find in any other cities!!";
-	mes "I am in charge of Service Guide in Al De Baran Garrison, and the name is Al De Baran Guard (No Name) !!";
-	mes "I will guide you though our town!";
-	next;
-	menu "Get Location Guide",L0,"End conversation",End;
-	
-	L0:
-		mes "^FF0000+^000000 -> Kafra Main Office";
-		mes "^0000FF+^000000 -> Weapon Shop";
-		mes "^00F0F0+^000000 -> Sorcerer Guild (Closed)";
-		mes "^808080+^000000 -> Pub";
-		mes "^00FF00+^000000 -> Item Shop";
-		mes "^F0F000+^000000 -> Chemical Acadamy (Closed)";
-		viewpoint 0,53,228,1,0xFF0000;
-		viewpoint 1,48,198,1,0x0000FF;
-		viewpoint 2,48,198,1,0x00F0F0;
-		viewpoint 3,48,198,1,0x808080;
-		viewpoint 4,48,198,1,0x00FF00;
-		viewpoint 5,35,35,1,0xF0F000;
-		close;
-	LEnd:
-		mes "[Al De Baran Guard]";
-		mes "We are shown to protect Al De Baran!!";
-		close;
-}
-
-izlude.gat,124,178,4	script	Soldier	105,{
-	mes "[Soldier]";
-	mes "HeHeHeHe... HaHaHaHa";
-	mes "Huh? Why am I so happy?";
-	mes "you wanna know?";
-	next;
-	menu "Sure, why?",Sure,"Not really, I don't care.",NotReally;
-	
-	Sure:
-		mes "[Soldier]";
-		mes "Ah~~ There is not much for us to do these days. Merchants buy items, which monsters drop. You knew that, right?";
-		next;
-		menu "Of course",OfCourse,"Eh? Really?",EhReally;
-		
-		OfCourse:
-			mes "[Soldier]";
-			mes "HaHa In fact, that was actually our job.";
-			mes "But there were more and more hunters who come in order to get paid. So it was just too much to handle.";
-			next;
-			mes "[Soldier]";
-			mes "We had to work over time every day.";
-			mes "Ah~~~ that was a nightmare...~~~";
-			mes "Anyways, the government took a smart action, making the Registration System. The Office of Prize Compensation only pays those who have the Registration.";
-			next;
-			mes "[Soldier]";
-			mes "Requirements for the Registration are for a merchant to secure sufficient funds and to stay at one place all the time. The Office gives away the registration to any merchant who fullfills those requirements.";
-			next;
-			mes "[Soldier]";
-			mes "So there aren't too many people that come to us any more. I mean we are still busy, but that's nothing compared to how it was before~~";
-			mes "People who suffered first know how to thank even the slightest comfort.";
-			mes "HaHaHaHaHa!";
-			close;
-		EhReally:
-			mes "[Soldier]";
-			mes "What?! What do you mean you didn't know?!";
-			mes "Hm... well... well... You know you could get some items killing some monsters. You could make some money out of it if you bring and sell those to a merchant.";
-			mes "ANYWAYS!";
-			next;
-			mes "[Soldier]";
-			mes "HaHa In fact, that was actually our job.";
-			mes "But there were more and more hunters who come in order to get paid. So it was just too much to handle.";
-			next;
-			mes "[Soldier]";
-			mes "We had to work over time every day.";
-			mes "Ah~~~ that was a nightmare...~~~";
-			mes "Anyways, the government took a smart action, making the Registration System. The Office of Prize Compensation only pays those who have the Registration.";
-			next;
-			mes "[Soldier]";
-			mes "Requirements for the Registration are for a merchant to secure sufficient funds and to stay at one place all the time. The Office gives away the registration to any merchant who fullfills those requirements.";
-			next;
-			mes "[Soldier]";
-			mes "So there aren't too many people that come to us any more. I mean we are still busy, but that's nothing compared to how it was before~~";
-			mes "People who suffered first know how to thank even the slightest comfort.";
-			mes "HaHaHaHaHa!";
-			close;
-	NotReally:
-		mes "[Soldier]";
-		mes "OK Good bye~~";
-		close;
-}
-
-prontera.gat,160,330,4	script	Guard#p2-1::guard_p	105,{
-	mes "Welcome to Prontera.";
-	close;
-}
-
-prontera.gat,223,99,1	duplicate(guard_p)	Guard#p2-2	105
-
-prontera.gat,229,104,1	duplicate(guard_p)	Guard#p2-3	105
-
-prontera.gat,47,339,5	duplicate(guard_p)	Guard#p2-4	105
-
-prontera.gat,52,344,5	duplicate(guard_p)	Guard#p2-5	105
-
-
-prt_maze02.gat,100,69,4	script	Soldier#p3-1::soldier_p	105,{
-	mes "[Soldier]";
-	mes "Yo yo, you'd be better not to go in there. It has rumored there is a Demon living in the forest.";
-	mes "Of course it is just a rumor because no one see the people turning back from the palce.";
-	mes "hmmm... it's up to you to go in or leave.";
-	close;
-}
-prt_maze02.gat,110,69,4	duplicate(soldier_p)	Soldier#p3-2	105
-
-//Yuno
-yuno.gat,46,165,4	script	Soldier#p4-1::soldier_y	105,{
-			mes "[Yuno Soldier]";
-			mes "Welcome to City of scholars where wisdom exists.";
-			close;
-}
-
-yuno.gat,61,165,4	duplicate(soldier_y)	Soldier#p4-2	105
-
-yuno.gat,150,228,4	duplicate(soldier_y)	Soldier#p4-2	105
-
-yuno.gat,165,228,4	duplicate(soldier_y)	Soldier#p4-2	105
-
-yuno.gat,262,319,2	script	Yuno Soldier	105,{
-		mes "[Yuno Soldier]";
-		mes "Welcome to Yuno, the scholar's city where ancient wisdom exists.";
-		next;
-		mes "[Yuno Soldier]";
-		mes "There is a holy shield for Crusaders called 'The Messenger of the God'.";
-		next;
-		mes "[Yuno Soldier]";
-		mes "It looks like a long shield with a angel's wing image on its center.";
-		mes " It is especially strong against undead or demons.";
-		close;
-}
-
-yuno.gat,227,292,4	script	Yuno Soldier	105,{
-			mes "[Yuno Soldier]";
-			mes "Welcome to City of scholars where wisdom exists, Yuno.";
-			next;
-			mes "[Yuno Soldier]";
-			mes "Around the City of Yuno, there is fallen angel that fakes himself as the real angel, named 'Fake Angel'.";
-			next;
-			mes "[Yuno Soldier]";
-			mes "This one fakes itself as the real angel, and acts as if it's blessing travelers, and attacks them.";
-			mes "It looks all beautiful, so it's bad if you fall for its appearance.";
-			close;
-}
-
-yuno.gat,150,283,4	script	Yuno Soldier	105,{
-			mes "[Yuno Soldier]";
-			mes "Welcome to City of scholars where wisdom exists, Yuno.";
-			next;
-			mes "[Yuno Soldier]";
-			mes "Larva Golem is a stone doll that has a stone heart in which its magical power was induced by magma.";
-			mes "....from the body, it flows...";
-			next;
-			mes "[Yuno Soldier]";
-			mes "Magma is really hot as to even melt away armor and weapon made with steel.";
-			mes "if you attack thoughtlessly, ";
-			next;
-			mes "[Yuno Soldier]";
-			mes "you might get a lot of damage on yourself and even get your armor and weapon broken.";
-			close;
-}
-
-yuno.gat,165,283,4	script	Yuno Soldier	105,{
-			mes "[Yuno Soldier]";
-			mes "Welcome to City of scholars where wisdom exists.";
-			next;
-			mes "[Yuno Soldier]";
-			mes "'Geographer', it is a hard shell type thing that grows around flowers from the earth.";
-			mes "Thus, even if it's far away, you can't think less of it.";
-			next;
-			mes "[Yuno Soldier]";
-			mes "it got such name 'cause the passing-by geography scholar got eaten away during his research.";
-			close;
-}
-
-//Comodo
-
-//Yuno 
-yuno.gat,46,165,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists."; 
-         close; 
-} 
-
-yuno.gat,61,165,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists."; 
-         close; 
-} 
-
-
-yuno.gat,150,228,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists."; 
-         close; 
-} 
-
-yuno.gat,165,228,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists."; 
-         close; 
-} 
-
-yuno.gat,262,319,2	script	Yuno Soldier	105,{ 
-      mes "[Yuno Soldier]"; 
-      mes "Welcome to Yuno, the scholar's city where ancient wisdom exists."; 
-      next; 
-      mes "[Yuno Soldier]"; 
-      mes "There is a holy shield for Crusaders called 'The Messenger of the God'."; 
-      next; 
-      mes "[Yuno Soldier]"; 
-      mes "It looks like a long shield with a angel's wing image on its center."; 
-      mes " It is especially strong against undead or demons."; 
-      close; 
-} 
-
-yuno.gat,227,292,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists, Yuno."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "Around the City of Yuno, there is fallen angel that fakes himself as the real angel, named 'Fake Angel'."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "This one fakes itself as the real angel, and acts as if it's blessing travelers, and attacks them."; 
-         mes "It looks all beautiful, so it's bad if you fall for its appearance."; 
-         close; 
-} 
-
-yuno.gat,150,283,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists, Yuno."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "Larva Golem is a stone doll that has a stone heart in which its magical power was induced by magma."; 
-         mes "....from the body, it flows..."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "Magma is really hot as to even melt away armor and weapon made with steel."; 
-         mes "if you attack thoughtlessly, "; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "you might get a lot of damage on yourself and even get your armor and weapon broken."; 
-         close; 
-} 
-
-yuno.gat,165,283,4	script	Yuno Soldier	105,{ 
-         mes "[Yuno Soldier]"; 
-         mes "Welcome to City of scholars where wisdom exists."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "'Geographer', it is a hard shell type thing that grows around flowers from the earth."; 
-         mes "Thus, even if it's far away, you can't think less of it."; 
-         next; 
-         mes "[Yuno Soldier]"; 
-         mes "it got such name 'cause the passing-by geography scholar got eaten away during his research."; 
-         close; 
-} 

npc/other/old/kafra.txt

@@ -1,1866 +0,0 @@
-//===== eAthena Script ======================================= 
-//= Kafra Script 
-//===== By: ================================================== 
-//= Lotsa People (1.0)
-//= Darlskies (1.1)
-//= Darkchild (1.2)
-//= Syrus22 (2.0)
-//= Syrus22 (2.1)
-//= Darkchild (2.2)
-//===== Current Version: ===================================== 
-//= 2.2
-//===== Compatible With: ===================================== 
-//= Any eAthena Version In Which functions work.
-//===== Description: ========================================= 
-//= All The Kafra's In Ro, Incl HQ
-//===== Additional Comments: ================================= 
-//= Darkskies did all the kafra points stuff.
-//= Syrus22 - I compltely rewrote the script pretty much except for
-//= the normal conversation text in the Kafra HQ NPCs.
-//= Syrus22 - I fixed the Special Reserve in the Kafra HQ to really
-//= give you items. I will add the Lottery Chances when I get
-//= full info on the prizes.
-//= Syrus22 - I will add a Louyang Kafra when I get better location info.
-//= Darkchild - Added Comodo
-//============================================================ 
-
-//**********************************************//
-//Actual Kafra NPCs                             //
-//**********************************************//
-//These will set the necessary variables for my //
-//functions to work.                            //
-//**********************************************//
-//---Orc Dungeon Kafra---
-gef_fild10.gat,73,340,4	script	Kafra#orc1	115,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"gef_fild10.gat";
-set @save1x,54;
-set @save1y,232;
-
-callfunc "kaframain";
-break;
-}
-//---Byalan Kafra---
-izlu2dun.gat,106,58,8	script	Kafra	115,{
-if (class != Job_Novice) goto Lkafra;
-if((job_merchant_q==8) || (job_merchant_q==7)) goto JobMerQE8oE7;
-if((job_merchant_q==6) || (job_merchant_q==5)) goto JobMerQE6oE5;
-
-JobMerQE8oE7:
- if(countitem(Delivery_Message) != 0) goto JobMerQE8oE7Cont;
-		
-JobMerQE8oE7Cont:
- menu "Excuse me.",M0;
-
-  M0:
-   mes "[Kafra]";
-   mes "Yes?";
-   cutin "kafra_03",255;
-   close;
-
-JobMerQE6oE5:
- mes "[Kafra]";
- mes "Delivery fro the Merchant Guild?? Ah, Right! Yes! I almost forgot.";
- mes "Okay,Please put down here....";
- if((countitem(1081)==1) || (countitem(1082)==1) || (countitem(1083)==1)) goto MerBox123E1;
- mes ".... I think our orders are almost one Box of Oversized and Heavy....But you seem to carry it on without difficulty.";
- close;
-
-  MerBox123E1:
-   next;
-   mes "[Kafra]";
-   mes "Let me check its Serial numbers, I have to give the receipt to you anyhow.";
-   if(nov_1_2_cos_c==7) goto JobMerQ2E7;
-   if(nov_1_2_cos_c==8) goto JobMerQ2E8;
-   next;
-   mes "[Kafra]";
-   mes "......? Excuse me! I think you gave me the wrong one.";
-   mes "Our order should have the serial numbers as either of 3318702 or 3543625...";
-   cutin "kafra_03",255;
-   close;
-
-JobMerQ2E7:
- if(countitem(1081) !=0) goto MerBox1NE0;
-
- MerBox1NE0:
-  mes "Um.... 3012685. Yes! This is the right one we ordered. Here, your receipt.";
-  delitem 1081,1;
-  getitem 1079,1;
-  goto JobMerQ2Cont;
-
-JobMerQ2E8:
- if(countitem(1081) !=0) goto MerBox2NE0;
-
- MerBox2NE0:
-  mes "Um.... 3543625. Yes! This is the right one we ordered. Here, your receipt.";
-  delitem 1082,1;
-  getitem 1080,1;
-  goto JobMerQ2Cont;
-
-JobMerQ2Cont:
- if(job_merchant_q==6) goto JobMerQE6;
- getitem 3005,2;
- goto JobMerQ2Cont1;
-
-JobMerQE6:
- getitem 3005,2;
- goto JobMerQ2Cont1;
-
-JobMerQ2Cont1:
- getitem 3017,1;
- if(countitem(Delivery_Message) != 0) goto DevMsg;
- goto DevMsgCont;
-
-DevMsg:
- menu "This is from Mr. Mahnsoo...",M1;
-
-  M1:
-   delitem 1072,1;
-   set nov_3_merchant,11;
-   mes "[Kapra]";
-   mes "Oh, my good Lord! Mr. Mansoo wrote me a Letter? Thank you, Thank you~";
-   mes "I though he would send one one of these days, but I've never expected it would be so soon like this time~";
-   goto DevMsgCont;
-
-   DevMsgCont:
-    next;
-    mes "[Kafra]";
-    mes "I really appreciate you for what you've done so far. This is my Small Gift for you to lay my heart.";
-    mes "I hope you will help me next time.";
-    set @TEMP,rand(2);
-    goto R0;
-
-    R0:
-     if(@TEMP !=0) goto R1;
-     getitem 513,3;
-     cutin "kafra_03",255;
-     close;
-    R1:
-     getitem 512,3;
-     cutin "kafra_03",255;
-     close;
-
-Lkafra:
-set @cutinpic$,"kafra_03";
-
-set @save,1;
-set @save1map$,"izlu2dun.gat";
-set @save1x,87;
-set @save1y,170;
-
-callfunc "kaframain";
-break;
-}
-//---Pyramids Kafra---
-moc_ruins.gat,61,156,5	script	Kafra#pyr1	114,{
-set @cutinpic$,"kafra_04";
-
-set @save,1;
-set @save1map$,"moc_ruins.gat";
-set @save1x,41;
-set @save1y,141;
-
-callfunc "kaframain";
-break;
-}
-//---Northern Prontera Field Kafra---
-prt_fild01.gat,198,47,8	script	Kafra#pfl1	112,{
-set @cutinpic$,"kafra_06";
-
-set @save,1;
-set @save1map$,"prt_fild01.gat";
-set @save1x,197;
-set @save1y,50;
-
-callfunc "kaframain";
-break;
-}
-//---Culvert Kafra---
-prt_fild05.gat,290,224,1	script	Kafra#pfl2	114,{
-set @cutinpic$,"kafra_04";
-
-set @save,1;
-set @save1map$,"prt_fild05.gat";
-set @save1x,274;
-set @save1y,243;
-
-callfunc "kaframain";
-break;
-}
-//---In Alberta Kafras---
-alberta.gat,28,229,8	script	Kafra#alb1	115,{
-set @cutinpic$,"kafra_02";
-
-set @save1map$,"alberta.gat";
-set @save1x,31;
-set @save1y,231;
-set @save2map$,"pay_fild03.gat";
-set @save2x,386;
-set @save2y,76;
-
-set @warps,4;
-
-set @warp1$,"Payon";
-set @warp1name$,"payon.gat";
-set @warp1x,69;
-set @warp1y,100;
-set @warp1zeny,1300;
-
-set @warp2$,"Prontera";
-set @warp2name$,"prontera.gat";
-set @warp2x,116;
-set @warp2y,75;
-set @warp2zeny,2100;
-
-set @warp3$,"Morocc";
-set @warp3name$,"morocc.gat";
-set @warp3x,156;
-set @warp3y,46;
-set @warp3zeny,2200;
-
-set @warp4$,"Comodo";
-set @warp4name$,"comodo.gat";
-set @warp4x,209;
-set @warp4y,143;
-set @warp4zeny,2400;
-
-set @kaflocations,1;
-set @location1x,113;
-set @location1y,60;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-alberta.gat,113,60,5	script	Kafra#alb2	112,{
-set @cutinpic$,"kafra_06";
-
-set @save,1;
-set @save1map$,"alberta.gat";
-set @save1x,117;
-set @save1y,57;
-
-set @warps,4;
-
-set @warp1$,"Payon";
-set @warp1name$,"payon.gat";
-set @warp1x,69;
-set @warp1y,100;
-set @warp1zeny,1300;
-
-set @warp2$,"Prontera";
-set @warp2name$,"prontera.gat";
-set @warp2x,116;
-set @warp2y,75;
-set @warp2zeny,2100;
-
-set @warp3$,"Morocc";
-set @warp3name$,"morocc.gat";
-set @warp3x,156;
-set @warp3y,46;
-set @warp3zeny,2200;
-
-set @warp4$,"Comodo";
-set @warp4name$,"comodo.gat";
-set @warp4x,209;
-set @warp4y,143;
-set @warp4zeny,2400;
-
-set @kaflocations,1;
-set @location1x,28;
-set @location1y,229;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---Sunken Ship Kafra---
-alb2trea.gat,59,69,1	script	Kafra#snk1	117,{
-set @cutinpic$,"kafra_03";
-
-set @save,1;
-set @save1map$,"alb2trea.gat";
-set @save1x,92;
-set @save1y,64;
-
-callfunc "kaframain";
-break;
-}
-//---In Al De Baran Kafra---
-aldebaran.gat,143,119,4	script	Kafra#ald1	113,{
-set @cutinpic$,"kafra_05";
-
-set @save,1;
-set @save1map$,"aldebaran.gat";
-set @save1x,143;
-set @save1y,109;
-
-set @warps,3;
-
-set @warp1$,"Geffen";
-set @warp1name$,"geffen.gat";
-set @warp1x,120;
-set @warp1y,39;
-set @warp1zeny,1600;
-
-set @warp2$,"Mjolnir Dead Pit";
-set @warp2name$,"mjolnir_02.gat";
-set @warp2x,99;
-set @warp2y,351;
-set @warp2zeny,1700;
-
-set @warp3$,"Comodo";
-set @warp3name$,"comodo.gat";
-set @warp3x,209;
-set @warp3y,143;
-set @warp3zeny,2200;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Geffen Kafras---
-geffen.gat,120,62,8	script	Kafra#gef1	115,{
-set @cutinpic$,"kafra_03";
-
-set @save,1;
-set @save1map$,"geffen.gat";
-set @save1x,119;
-set @save1y,40;
-
-set @warps,5;
-
-set @warp1$,"Prontera";
-set @warp1name$,"prontera.gat";
-set @warp1x,116;
-set @warp1y,75;
-set @warp1zeny,1400;
-
-set @warp2$,"Izlude";
-set @warp2name$,"izlude.gat";
-set @warp2x,91;
-set @warp2y,105;
-set @warp2zeny,1800;
-
-set @warp3$,"Al De Baran";
-set @warp3name$,"aldebaran.gat";
-set @warp3x,143;
-set @warp3y,110;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2200;
-
-set @warp5$,"Comodo";
-set @warp5name$,"comodo.gat";
-set @warp5x,209;
-set @warp5y,143;
-set @warp5zeny,2400;
-
-set @kaflocations,1;
-set @location1x,203;
-set @location1y,123;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-geffen.gat,203,123,3	script	Kafra#gef2	114,{
-set @cutinpic$,"kafra_04";
-
-set @save1map$,"geffen.gat";
-set @save1x,200;
-set @save1y,124;
-set @save2map$,"gef_fild00.gat";
-set @save2x,51;
-set @save2y,194;
-
-set @warps,5;
-
-set @warp1$,"Prontera";
-set @warp1name$,"prontera.gat";
-set @warp1x,116;
-set @warp1y,75;
-set @warp1zeny,1400;
-
-set @warp2$,"Izlude";
-set @warp2name$,"izlude.gat";
-set @warp2x,91;
-set @warp2y,105;
-set @warp2zeny,1800;
-
-set @warp3$,"Al De Baran";
-set @warp3name$,"aldebaran.gat";
-set @warp3x,143;
-set @warp3y,110;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2200;
-
-set @warp5$,"Comodo";
-set @warp5name$,"comodo.gat";
-set @warp5x,209;
-set @warp5y,143;
-set @warp5zeny,2400;
-
-set @kaflocations,1;
-set @location1x,120;
-set @location1y,62;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Izlude Kafra---
-izlude.gat,124,115,6	script	Kafra#izl1	117,{
-set @cutinpic$,"kafra_01";
-
-set @save1map$,"izlude.gat";
-set @save1x,128;
-set @save1y,111;
-set @save2map$,"prt_fild08.gat";
-set @save2x,349;
-set @save2y,202;
-
-set @warps,4;
-
-set @warp1$,"Prontera";
-set @warp1name$,"prontera.gat";
-set @warp1x,116;
-set @warp1y,75;
-set @warp1zeny,900;
-
-set @warp2$,"Payon";
-set @warp2name$,"payon.gat";
-set @warp2x,69;
-set @warp2y,100;
-set @warp2zeny,1700;
-
-set @warp3$,"Geffen";
-set @warp3name$,"geffen.gat";
-set @warp3x,120;
-set @warp3y,39;
-set @warp3zeny,1800;
-
-set @warp4$,"Comodo";
-set @warp4name$,"comodo.gat";
-set @warp4x,209;
-set @warp4y,143;
-set @warp4zeny,2000;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Morocc Kafras---
-morocc.gat,156,97,4	script	Kafra#moc1	115,{
-set @cutinpic$,"kafra_03";
-
-set @save,1;
-set @save1map$,"morocc.gat";
-set @save1x,156;
-set @save1y,46;
-
-set @warps,5;
-
-set @warp1$,"Prontera";
-set @warp1name$,"prontera.gat";
-set @warp1x,116;
-set @warp1y,75;
-set @warp1zeny,1800;
-
-set @warp2$,"Payon";
-set @warp2name$,"payon.gat";
-set @warp2x,69;
-set @warp2y,100;
-set @warp2zeny,1800;
-
-set @warp3$,"Alberta";
-set @warp3name$,"alberta.gat";
-set @warp3x,117;
-set @warp3y,56;
-set @warp3zeny,2200;
-
-set @warp4$,"Geffen";
-set @warp4name$,"geffen.gat";
-set @warp4x,120;
-set @warp4y,39;
-set @warp4zeny,2200;
-
-set @warp5$,"Comodo";
-set @warp5name$,"comodo.gat";
-set @warp5x,209;
-set @warp5y,143;
-set @warp5zeny,1800;
-
-set @kaflocations,1;
-set @location1x,163;
-set @location1y,260;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-morocc.gat,163,260,4	script	Kafra	114,{
-set @cutinpic$,"kafra_04";
-
-set @save1map$,"morocc.gat";
-set @save1x,187;
-set @save1y,281;
-set @save2map$,"moc_fild07.gat";
-set @save2x,212;
-set @save2y,30;
-
-set @warps,5;
-
-set @warp1$,"Prontera";
-set @warp1name$,"prontera.gat";
-set @warp1x,116;
-set @warp1y,75;
-set @warp1zeny,1800;
-
-set @warp2$,"Payon";
-set @warp2name$,"payon.gat";
-set @warp2x,69;
-set @warp2y,100;
-set @warp2zeny,1800;
-
-set @warp3$,"Alberta";
-set @warp3name$,"alberta.gat";
-set @warp3x,117;
-set @warp3y,56;
-set @warp3zeny,2200;
-
-set @warp4$,"Geffen";
-set @warp4name$,"geffen.gat";
-set @warp4x,120;
-set @warp4y,39;
-set @warp4zeny,2200;
-
-set @warp5$,"Comodo";
-set @warp5name$,"comodo.gat";
-set @warp5x,209;
-set @warp5y,143;
-set @warp5zeny,1800;
-
-set @kaflocations,1;
-set @location1x,156;
-set @location1y,97;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Payon Kafra---
-payon.gat,99,116,4	script	Kafra#pay1	113,{
-set @cutinpic$,"kafra_05";
-
-set @save1map$,"payon.gat";
-set @save1x,69;
-set @save1y,100;
-set @save2map$,"pay_fild01.gat";
-set @save2x,340;
-set @save2y,347;
-
-set @warps,4;
-
-set @warp1$,"Alberta";
-set @warp1name$,"alberta.gat";
-set @warp1x,117;
-set @warp1y,56;
-set @warp1zeny,1300;
-
-set @warp2$,"Prontera";
-set @warp2name$,"prontera.gat";
-set @warp2x,116;
-set @warp2y,72;
-set @warp2zeny,1800;
-
-set @warp3$,"Morocc";
-set @warp3name$,"morocc.gat";
-set @warp3x,156;
-set @warp3y,46;
-set @warp3zeny,1800;
-
-set @warp4$,"Comodo";
-set @warp4name$,"comodo.gat";
-set @warp4x,209;
-set @warp4y,143;
-set @warp4zeny,2000;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---Archer Village Kafra---
-pay_arche.gat,55,123,8	script	Kafra	117,{
-set @cutinpic$,"kafra_01";
-
-set @save,1;
-set @save1map$,"pay_arche.gat";
-set @save1x,49;
-set @save1y,144;
-
-callfunc "kaframain";
-break;
-}
-//---In Prontera Kafras---
-prontera.gat,29,207,6	script	Kafra#pro2	113,{
-set @cutinpic$,"kafra_05";
-
-set @warps,6;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,1400;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,1700;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,1800;
-
-set @warp5$,"Orc Dungeon";
-set @warp5name$,"gef_fild10.gat";
-set @warp5x,52;
-set @warp5y,326;
-set @warp5zeny,1700;
-
-set @warp6$,"Comodo";
-set @warp6name$,"comodo.gat";
-set @warp6x,209;
-set @warp6y,143;
-set @warp6zeny,2000;
-
-set @save1map$,"prontera.gat";
-set @save1x,33;
-set @save1y,208;
-set @save2map$,"prt_fild05.gat";
-set @save2x,367;
-set @save2y,205;
-
-set @kaflocations,1;
-set @location1x,146;
-set @location1y,89;
-set @location2x,282;
-set @location2y,200;
-set @location3x,151;
-set @location3y,29;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-prontera.gat,146,89,6	script	Kafra#pro1	115,{
-set @cutinpic$,"kafra_03";
-
-set @warps,6;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,1400;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,1700;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,1800;
-
-set @warp5$,"Orc Dungeon";
-set @warp5name$,"gef_fild10.gat";
-set @warp5x,52;
-set @warp5y,326;
-set @warp5zeny,1700;
-
-set @warp6$,"Comodo";
-set @warp6name$,"comodo.gat";
-set @warp6x,209;
-set @warp6y,143;
-set @warp6zeny,2000;
-
-set @save,1;
-set @save1map$,"prontera.gat";
-set @save1x,116;
-set @save1y,73;
-
-set @kaflocations,1;
-set @location1x,29;
-set @location1y,207;
-set @location2x,282;
-set @location2y,200;
-set @location3x,151;
-set @location3y,29;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-prontera.gat,282,199,6	script	Kafra	115,{
-set @cutinpic$,"kafra_03";
-
-set @warps,6;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,1400;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,1700;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,1800;
-
-set @warp5$,"Orc Dungeon";
-set @warp5name$,"gef_fild10.gat";
-set @warp5x,52;
-set @warp5y,326;
-set @warp5zeny,1700;
-
-set @warp6$,"Comodo";
-set @warp6name$,"comodo.gat";
-set @warp6x,209;
-set @warp6y,143;
-set @warp6zeny,2000;
-
-set @save,1;
-set @save1map$,"prontera.gat";
-set @save1x,117;
-set @save1y,73;
-
-set @kaflocations,1;
-set @location1x,29;
-set @location1y,207;
-set @location2x,146;
-set @location2y,89;
-set @location3x,151;
-set @location3y,29;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-prontera.gat,151,29,8	script	Kafra	115,{
-set @cutinpic$,"kafra_03";
-
-set @warps,6;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,1400;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,1700;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,1800;
-
-set @warp5$,"Orc Dungeon";
-set @warp5name$,"gef_fild10.gat";
-set @warp5x,52;
-set @warp5y,326;
-set @warp5zeny,1700;
-
-set @warp6$,"Comodo";
-set @warp6name$,"comodo.gat";
-set @warp6x,209;
-set @warp6y,143;
-set @warp6zeny,2000;
-
-set @save1map$,"prontera.gat";
-set @save1x,150;
-set @save1y,33;
-set @save2map$,"prt_fild08.gat";
-set @save2x,170;
-set @save2y,369;
-
-set @kaflocations,1;
-set @location1x,29;
-set @location1y,207;
-set @location2x,146;
-set @location2y,89;
-set @location3x,282;
-set @location3y,199;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Yuno Kafras---
-yuno.gat,328,108,6	script	Kafra	117,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"yuno.gat";
-set @save1x,332;
-set @save1y,107;
-
-set @warps,4;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2100;
-
-set @kafralocations,1;
-set @location1x,151;
-set @location1y,87;
-set @location2x,278;
-set @location2y,221;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-yuno.gat,151,87,4	script	Kafra	115,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"yuno.gat";
-set @save1x,154;
-set @save1y,75;
-
-set @warps,4;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2100;
-
-set @kafralocations,1;
-set @location1x,328;
-set @location1y,108;
-set @location2x,278;
-set @location2y,221;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-yuno.gat,278,221,6	script	Kafra	117,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"yuno.gat";
-set @save1x,332;
-set @save1y,107;
-
-set @warps,4;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2100;
-
-set @kafralocations,1;
-set @location1x,328;
-set @location1y,108;
-set @location2x,151;
-set @location2y,87;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Umbala Kafra---
-umbala.gat,128,133,4	script	Kafra	115,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"umbala.gat";
-set @save1x,126;
-set @save1y,131;
-
-set @warps,4;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2100;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---In Gonryun Kafra---
-//Note: Gave this Kafra the same warps as Umbala and Yuno till I get the
-//real warp information.
-gonryun.gat,159,122,4	script	Kafra	116,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"gonryun.gat";
-set @save1x,160;
-set @save1y,62;
-
-set @warps,4;
-
-set @warp1$,"Izlude";
-set @warp1name$,"izlude.gat";
-set @warp1x,91;
-set @warp1y,105;
-set @warp1zeny,900;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @warp3$,"Payon";
-set @warp3name$,"payon.gat";
-set @warp3x,69;
-set @warp3y,100;
-set @warp3zeny,2100;
-
-set @warp4$,"Morocc";
-set @warp4name$,"morocc.gat";
-set @warp4x,156;
-set @warp4y,46;
-set @warp4zeny,2100;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//---Comodo---
-comodo.gat,166,163,3	script	Kafra	721,{
-set @cutinpic$,"kafra_02";
-
-set @save,1;
-set @save1map$,"comodo.gat";
-set @save1x,188;
-set @save1y,148;
-
-set @warps,2;
-
-set @warp1$,"Morroc";
-set @warp1name$,"morocc.gat";
-set @warp1x,156;
-set @warp1y,46;
-set @warp1pay,2400;
-
-set @warp2$,"Geffen";
-set @warp2name$,"geffen.gat";
-set @warp2x,120;
-set @warp2y,39;
-set @warp2zeny,2100;
-
-set @special,1;
-
-callfunc "kaframain";
-break;
-}
-//**********************************************//
-//Kafra Main                                    //
-//**********************************************//
-//The main kafra script. This will call the     //
-//necessary functions from the rest of the      //
-//script.                                       //
-//**********************************************//
-function	script	kaframain	-1,{
-cutin @cutinpic$,2;
-mes "[Kafra Employee]";
-mes "Welcome to Kafra Corporation. The Kafra services are always by your side.";
-mes "How may I assist you?";
-next;
-if ((@warps > 0) && (@special > 0)) goto Lallmenu;
-if ((@warps > 0) && (@special == 0)) goto Lwarpmenu;
-if (@warps == 0) goto Lnowarpmenu;
-
-Lallmenu:
-menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Check Other Information",Lother,"Cancel",Lcancel;
-
-Lwarpmenu:
-menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Cancel",Lcancel;
-
-Lnowarpmenu:
-menu "Save",Lsave,"Use Storage",Lstorage,"Rent a Cart",Lcart,"Cancel",Lcancel;
-
-Lsave:
-callfunc "kafrasave";
-break;
-
-Lstorage:
-callfunc "kafrastorage";
-break;
-
-Lwarp:
-callfunc "kafrawarps";
-break;
-
-Lcart:
-callfunc "kafracart";
-break;
-
-Lother:
-callfunc "kafrainfo";
-break;
-
-Lcancel:
-callfunc "kafraend";
-break;
-}
-//**********************************************//
-//Kafra Save                                    //
-//**********************************************//
-//This will handle the save function for all the//
-//kafras.                                       //
-//**********************************************//
-function	script	kafrasave	-1,{
-if (@save == 1) goto Lsavein;
-mes "[Kafra]";
-mes "Where would you like to save?";
-next;
-menu "Save Outside City",Lsaveout,"Save Inside City",Lsavein;
-
-Lsavein:
- savepoint @save1map$,@save1x,@save1y;
- mes "[Kafra]";
- mes "Your respawn point has been saved. Thank you.";
- callfunc "kafraend";
- break;
-
-Lsaveout:
- savepoint @save2map$,@save2x,@save2y;
- mes "[Kafra]";
- mes "Your respawn point has been saved. Thank you.";
- callfunc "kafraend";
- break;
-}
-//**********************************************//
-//Kafra Storage                                 //
-//**********************************************//
-//This will handle the storage functions for    //
-//all the kafras.                               //
-//**********************************************//
-function	script	kafrastorage	-1,{
-if (getskilllv(1) < 6) goto NeedJobLevel;
-if (Zeny < 30) goto NeedZenys;
-set specialreserve,specialreserve + 30;
-set Zeny, Zeny - 30;
-mes "[Kafra]";
-mes "Ok let me just open your storage for you.";
-openstorage;
-callfunc "kafraend";
-break;
-
-NeedJobLevel:
- mes "[Kafra]";
- mes "I'm sorry but you must have Basic Skill 6 to use storage.";
- callfunc "kafraend";
- break;
-
-NeedZenys:
- mes "[Kafra]";
- mes "I'm sorry but you are short on Zeny.";
- callfunc "kafraend";
- break;
-}
-//**********************************************//
-//Kafra Warps                                   //
-//**********************************************//
-//This will handle all the actual warping and   //
-//the payment of Zeny                           //
-//**********************************************//
-function	script	kafrawarps	-1,{
-mes "[Kafra]";
-mes "Please choose your destination.";
-next;
-if (@warps == 7) goto L7;
-if (@warps == 6) goto L6;
-if (@warps == 5) goto L5;
-if (@warps == 4) goto L4;
-if (@warps == 3) goto L3;
-if (@warps == 2) goto L2;
-
-L2:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,"Cancel",Lcancel;
-
-L3:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,"Cancel",Lcancel;
-
-L4:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,"Cancel",Lcancel;
-
-L5:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,"Cancel",Lcancel;
-
-L6:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,"Cancel",Lcancel;
-
-L7:
- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,@warp7$ + " -> " + @warp7zeny,Lwarp7,"Cancel",Lcancel;
-
-Lwarp1:
- if (Zeny < @warp1zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp1zeny;
- set Zeny,Zeny - @warp1zeny;
- warp @warp1name$,@warp1x,@warp1y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp2:
- if (Zeny < @warp2zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp2zeny;
- set Zeny,Zeny - @warp2zeny;
- warp @warp2name$,@warp2x,@warp2y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp3:
- if (Zeny < @warp3zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp3zeny;
- set Zeny,Zeny - @warp3zeny;
- warp @warp3name$,@warp3x,@warp3y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp4:
- if (Zeny < @warp4zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp4zeny;
- set Zeny,Zeny - @warp4zeny;
- warp @warp4name$,@warp4x,@warp4y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp5:
- if (Zeny < @warp5zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp5zeny;
- set Zeny,Zeny - @warp5zeny;
- warp @warp5name$,@warp5x,@warp5y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp6:
- if (Zeny < @warp6zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp6zeny;
- set Zeny,Zeny - @warp6zeny;
- warp @warp6name$,@warp6x,@warp6y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lwarp7:
- if (Zeny < @warp7zeny) goto Lneedzeny;
- set specialreserve,specialreserve + @warp7zeny;
- set Zeny,Zeny - @warp7zeny;
- warp @warp7name$,@warp7x,@warp7y;
- set @end,1;
- callfunc "kafraend";
- break;
-
-Lneedzeny:
- mes "[Kafra]";
- mes "I'm sorry you don't have the necessary amount of zeny.";
- callfunc "kafraend";
- break;
-
-Lcancel:
- mes "[Kafra]";
- mes "Ok, Come again soon.";
- callfunc "kafraend";
- break;
-}
-//**********************************************//
-//Kafra Cart                                    //
-//**********************************************//
-//This will handle the cart rental function for //
-//all the Kafras.                               //
-//**********************************************//
-function	script	kafracart	-1,{
-if ((class == Job_Merchant) || (class == Job_Blacksmith) || (class == Job_Alchem) || (class == Job_Merchant_High) || (class == Job_Whitesmith) || (class == Job_Creator)) goto Lrentcart;
-mes "[Kafra]";
-mes "Sorry this service is only provided for Merchant classes.";
-callfunc "kafraend";
-break;
-
-Lrentcart:
- if (getskilllv(39) < 1) goto Lnopush;
- mes "[Kafra]";
- mes "The cart rental fee is 800 zeny. Do you want to rent a cart?";
- next;
- menu "Rent a Cart",Lrent,"Cancel",Lcancel;
-
-Lrent:
- if (Zeny < 800) goto Lneedzeny;
- set specialreserve,specialreserve + 800;
- set Zeny,Zeny - 800;
- setcart;
- mes "[Kafra]";
- mes "There ya go...";
- callfunc "kafraend";
- break;
-
-Lnopush:
- mes "[Kafra]";
- mes "Sorry but you must have at least ^ff0000Pushcart^000000 level 1.";
- callfunc "kafraend";
- break;
-
-Lneedzeny:
- mes "[Kafra]";
- mes "Sorry but you don't have the zeny.";
- callfunc "kafraend";
- break;
-
-Lcancel:
- mes "[Kafra]";
- mes "Ok. Goodbye then";
- callfunc "kafraend";
- break;
-}
-//**********************************************//
-//Kafra Information                             //
-//**********************************************//
-//This will handle the extra Kafra functions    //
-//such as your kafra points and the locations of//
-//other kafras.                                 //
-//**********************************************//
-function	script	kafrainfo	-1,{
-if (@kaflocations == 1) goto Lfullmenu;
-menu "Check Special Reserve Points",Lreserve,"Cancel",Lcancel;
-
-Lfullmenu:
- menu "Check Special Reserve Points",Lreserve,"Location Tip",Llocation,"Cancel",Lcancel;
-
-Lreserve:
- mes "[Kafra]";
- mes strcharinfo(0) + ", you have accumulated " + specialreserve + " Special Reserve Points.";
- next;
- mes "[Kafra]";
- mes "You can redeem your points at our Headquarters in Al De Baran.";
- callfunc "kafraend";
- break;
-
-Llocation:
- mes "[Kafra]";
- mes "Ok I'll mark them on your map.";
- if (@location1x == 0) goto Lfinished;
- viewpoint 0,@location1x,@location1y,1,0x0000FF;
- if (@location2x == 0) goto Lfinished;
- viewpoint 1,@location2x,@location2y,1,0x0000FF;
- if (@location3x == 0) goto Lfinished;
- viewpoint 2,@location3x,@location3y,1,0x0000FF;
- if (@location4x == 0) goto Lfinished;
- viewpoint 3,@location4x,@location4y,1,0x0000FF;
- callfunc "kafraend";
- break;
-
-Lfinished:
- callfunc "kafraend";
- break;
-
-Lcancel:
- mes "[Kafra]";
- mes "Ok. Bye then...";
- callfunc "kafraend";
- break;
-}
-//**********************************************//
-//End Kafra Function                            //
-//**********************************************//
-//This will empty all possible variables and end//
-//the kafra scripts.                            //
-//**********************************************//
-function	script	kafraend	-1,{
-set @warps,0;
-set @save,0;
-set @special,0;
-set @kaflocations,0;
-set @location1x,0;
-set @location2x,0;
-set @location3x,0;
-set @location4x,0;
-if (@end == 1) goto Lbreak;
-cutin @cutinpic$,255;
-close;
-
-Lbreak:
- set @end,0;
- cutin @cutinpic$,255;
- break;
-}
-//---Kafra Warehouse---
-aldeba_in.gat,24,245,4	script	 Kafra Service	115,{
-	cutin "kafra_03",2;
-	mes "[Kapra Jasmine]";
-	mes "Hi~ I am Kafra No. 1 Type Jasmine.";
-	mes "Thank you for comming all the way to Kafra Main Office here at Al De Baran!";
-	next;
-	mes "[Kapra Jasmine]";
-	mes "Our Kapra Service is always together with our customers!";
-	mes "Our Kapra Service has a history and legacy of 5 thousand 8 hundred years old...";
-	mes "Blah-blah-blah.....";
-	next;
-	menu "FIVE THOUSNAD AND EIGHT HUNDRED YEARS?!",L0,"Ahh~ Shut Up!",L1,"You go a boyfriend?",L3;
-	
-	L0:
-		mes "[Kapra Jasmine]";
-		mes "Shut UP! And listen! It to me a week to memorice this!";
-		mes "I've got poor memory unlike other Kafra agents!";
-		mes "..... Eh!... What did I just say...";
-		next;
-		mes "[Kapra Jasmine]";
-		mes "Hohohoho. S-sorry... I-it was a show, a standing comedy...";
-		mes "Right... Dream Show only for Ka-Kafra customers~!";
-		mes "(but a solo show)";
-		close;
-	L1:
-		mes "[Kapra Jasmine]";
-		mes ". . . . .";
-		mes "I was the member of Kafra Garrion before I joined Kafra Service Team...";
-		mes "The speciality was 'Bash'!!";
-		mes "I'm trying to be feminine and live a quiet life";
-		mes "So please don0t tempt me...";
-		close;
-	L2:
-		mes "[Kapra Jasmine]";
-		mes "My, my~. Kafra Service has a ridiculous rule that no Agent can have a boyfriend";
-		mes ". . . . .";
-		mes ". . . . . . . . . .";
-		next;
-		mes "[Kapra Jasmine]";
-		mes "Just kidding~~ Hehe";
-		close;
-}
-
-aldeba_in.gat,79,161,6	script	Kafra	115,{
-	mes "[Kafra]";
-	mes "Welcome, my dearest " + strcharinfo(0) + ".";
-	mes "Take goods as many as you've got speacial reserve from Kafra Service~";
-	next;
-	mes "[Kafra]";
-	mes "Please keep in mind that each window requires a different special reserve for your information.";
-	mes "Window I am at allows you to use special reserve form ^FF00FF100p to 3000p^000000.";
-	next;
-	mes "[Kafra]";
-	mes "Your special reserve is ^FF0000" + specialreserve + "^000000~";
-	mes "Please choose the items you want.";
-	next;
-	menu "100 = Carrot 7 ea",100,"200 = Carrot 15 ea",200,"300 = Carrot 25 ea",300,"400 = Carrot 35 ea",400,"500 = Carrot 50 ea",500,"600 = Carrot 60 ea",600,"700 = Carrot 75 ea",700,"800 = Carrot 85 ea",800,"900 = Carrot 100 ea",900,"1000 = 1st Lotery Chance!",1000,"Next Articles",L0,"Cancel",LEnd;
-
-	100:
-		if(specialreserve < 100) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,7;
-		set specialreserve,specialreserve - 100;
-		close;
-	200:
-		if(specialreserve < 200) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,15;
-		set specialreserve,specialreserve - 200;
-		close;
-	300:
-		if(specialreserve < 300) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,25;
-		set specialreserve,specialreserve - 300;
-		close;
-	400:
-		if(specialreserve < 400) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,35;
-		set specialreserve,specialreserve - 400;
-		close;
-	500:
-		if(specialreserve < 500) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,50;
-		set specialreserve,specialreserve - 500;
-		close;
-	600:
-		if(specialreserve < 600) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,60;
-		set specialreserve,specialreserve - 600;
-		close;
-	700:
-		if(specialreserve < 700) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,75;
-		set specialreserve,specialreserve - 700;
-		close;
-	800:
-		if(specialreserve < 800) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,85;
-		set specialreserve,specialreserve - 800;
-		close;
-	900:
-		if(specialreserve < 900) goto Lneedpoints;
-		mes "[Kafra]";
-		mes "Good choice... Here ya go.";
-		getitem 515,100;
-		set specialreserve,specialreserve - 900;
-		close;
-	1000:
-		mes "^FF0000Under Construction^000000";
-		close;
-	L0:
-		menu "1100 = Red Potion 7 ea",1100,"1300 = Red Potion 15 ea",1300,"1500 = Red Potion 25 ea",1500,"1700 = Red Potion 35 ea",1700,"1900 = Red Potion 50 ea",1900,"2100 = Red Potion 60 ea",2100,"2300 = Red Potion 75 ea",2300,"2500 = Red Potion 85 ea",2500,"2800 = Red Potion 100 ea",2800,"3000 = 2nd Lotery Chance!",3000,"Cancel",EndL0;
-		
-		1100:
-			if(specialreserve < 1100) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,7;
-			set specialreserve,specialreserve - 1100;
-			close;
-		1300:
-			if(specialreserve < 1300) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,15;
-			set specialreserve,specialreserve - 1300;
-			close;
-		1500:
-			if(specialreserve < 1500) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,25;
-			set specialreserve,specialreserve - 1500;
-			close;
-		1700:
-			if(specialreserve < 1700) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,35;
-			set specialreserve,specialreserve - 1700;
-			close;
-		1900:
-			if(specialreserve < 1900) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,50;
-			set specialreserve,specialreserve - 1900;
-			close;
-		2100:
-			if(specialreserve < 2100) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,60;
-			set specialreserve,specialreserve - 2100;
-			close;
-		2300:
-			if(specialreserve < 2300) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,75;
-			set specialreserve,specialreserve - 2300;
-			close;
-		2500:
-			if(specialreserve < 2500) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,85;
-			set specialreserve,specialreserve - 2500;
-			close;
-		2800:
-			if(specialreserve < 2800) goto Lneedpoints;
-			mes "[Kafra]";
-			mes "Good choice... Here ya go.";
-			getitem 501,100;
-			set specialreserve,specialreserve - 2800;
-			close;
-		3000:
-			mes "^FF0000Under Construction^000000";
-			close;
-Lend:
-	mes "[Kafra]";
-	mes "Ok then... Come again if you change your mind.";
-	close;
-}
-
-aldeba_in.gat,81,166,4	script	Kafra Service	117,{
-	cutin "kafra_01",2;
-	mes "[Kafra Pavianne]";
-	mes "Welcome! I'm Kafra service's the first Kapra Type 'Pavianne'";
-	next;
-	mes "[Kafra Pavianne]";
-	mes "Our Kapra Service is always trying to meet 100% customers satisfaction based on 3 principles, Trust, Devotion and Truest.";
-	mes "With complete Service training and supervision, we serve our customers to meet thier needs.";
-	next;
-	menu "Buy Kafra Pass",L0,"What is Kafra Pass",L1,"Good Bye",L3;
-	
-	L0:
-		getitem 1084,1;
-		set Zeny, Zeny-2000;
-		mes "[Kafra Pavianne]";
-		mes "Thank you for using our Kapra Service all the time!";
-		mes "Have a Nice Day!";
-		cutin "kafra_01",255;
-		close;
-	L1:
-		mes "[Kafra Pavianne]";
-		mes "The best gift you could get only at Kafra Main Office!";
-		mes "^4040FF'K A P R A's   P A S S'^000000!!";
-		mes "TaDa~!";
-		next;
-		mes "[Kafra Pavianne]";
-		mes "With Kafra Pass, you could experience the convenience of Kafra Service world-wide! No Hassle!";
-		mes "The price is 2000 zeny~~";
-		next;
-		mes "[Kafra Pavianne]";
-		mes "Visit any Kafra Service in Midgard, and you could enjoy Kafra Service any time any where for once.";
-		mes "Ending a a conversation with Kafra Service Agent will expire the pass.";
-		cutin "kafra_01",255;
-		close;
-	L3:
-		mes "[Kafra Pavianne]";
-		mes "Thank you for using Kafra Service!";
-		mes "It was Kafra Pavianne";
-		cutin "kafra_01",255;
-		close;
-}
-
-aldeba_in.gat,83,244,4	script	Kafra Service	116,{
-	cutin "kafra_02",2;
-	mes "[Kafra Blossom]";
-	mes "..... Pavianne is such an old-timer!";
-	mes "Too stubborn...";
-	mes "We should make customers to experience more unique, never-seen, aspects of Kafra here at Main Office.";
-	next;
-	mes "[Kafra Blossom]";
-	mes "Now! WELCOOOOOME~~ I am Kafra Tailing Type.";
-	mes "Please don't forget to continue using our Kafra Service, and ask for me, Tailing~~";
-	next;
-	menu "I'm an admirer of you~!",L0,"Ehhaha",L1;
-	
-	L0:
-		mes "[Kafra Blossom]";
-		mes "Really!";
-		mes "Thank you sooo much~";
-		mes "Here is... my... autograph...";
-		next;
-		mes "[Kafra Blossom]";
-		mes "Don't even bother to look in your Item Iventory. It won't be there... Hehe..";
-		mes "My autograph will remail win your heart.";
-		cutin "kafra_02",255;
-		close;
-	L1:
-		mes "[Kafra Blossom]";
-		mes "Huh?";
-		mes ". . . . .";
-		mes "That's all?";
-		mes "Phew~ such a dull customer...";
-		cutin "kafra_02",255;
-		close;
-}
-
-aldeba_in.gat,91,244,4	script	Kafra Service	112,{
-	cutin "kafra_06",2;
-	mes "[Kafra Curly Sue]";
-	mes "Hello, hello?!!";
-	mes "The youngest of all! Kafra cutty~~";
-	mes "I am Kafra Type 'Curly Sue'";
-	next;
-	mes "[Kafra Curly Sue]";
-	mes "It hasn't been long meeting customers since I am new, but I am always doing my best!!";
-	next;
-	menu "Where is your mom?",L0,"End conversation",LEnd;
-	
-	L0:
-		mes "[Kafra Curly Sue]";
-		mes ". . . . .";
-		mes "Sob sob ...";
-		mes "I am no a KID!!";
-		next;
-		cutin "kafra_06",255;
-		close;
-	LEnd:
-		mes "[Kafra Curly Sue]";
-		mes "Here at Kafra Service, We're all doing out B-E-S-T! to provide our customers the B-E-S-T! services.";
-		mes "We really appreciate your business with us.";
-		next;
-		cutin "kafra_06",255;
-		close;
-}
-
-aldeba_in.gat,96,181,4	script	Kafra Service	113,{
-	cutin "kafra_05",2;
-	mes "[Kafra Leilah]";
-	mes "Kafra Service.";
-	mes "What can I do for you?";
-	next;
-	menu "Save.",Lsave,"Use Storage Service",Lstorage,"Use Cart Service.",Lcart,"End conversation.",Lcancel;
-
-	Lsave:
-		mes "[Kafra Leilah]";
-		mes "Please. This is Kafra Service Command Center in charge of training Kafra Service Agent.";
-		next;
-		mes "[Kafra Leilah]";
-		mes "For Actual Services you must visit Kafra Service Center Agent at each city including Al De Baran.";
-		mes "... But I will do that for you...";
-		next;
-		savepoint "aldeba_in.gat",96,179;		
-		cutin "kafra_05",255;
-		close;
-	Lstorage:
-		if((class ==Job_Novice) && (JobLevel<6)) goto NeedJobLevel;
-		if(Zeny<30) goto NeedZenys;
-		set Zeny, Zeny-30;
-		openstorage;
-		cutin "kafra_02",255;
-		close;
-
-                NeedJobLevel:
-                	mes "[Kafra Leilah]";
-                	mes "I am sorry but you have to be at least novice with job level 6 if you want to use the storage";
-                	cutin "kafra_05",255;
-                	close;
-                NeedZenys:
-	                mes "[Kafra Leilah]";
-                	mes "Dear, you don't have enough zeny. The Storage fee is 30 Zeny.";
-                	cutin "kafra_05",255;
-                	close;
-	Lcart:
-		if((class ==Job_Merchant) || (class==Job_Blacksmith) || (class==Job_Alchem)) goto UseCart;
-		mes "[Kafra Leilah]";
-		mes "I'm sorry. The cart service is only provided for Merchants, Blacksmiths and Alchemists only.";
-		cutin "kafra_04",255;
-		close;
-
-		UseCart:
-			mes "[Kafra Leilah]";
-			mes "The Cart Fee is 800 Zeny. Do you want to Rent a Cart?";
-			next;
-			menu "Rent a Cart.",RentCart,"Cancel.",RCCancel;
-
-			RentCart:
-				if(Zeny<800) goto RCNeedZenys;
-				if(getskilllv(39) < 1) got Lneedskill;
-				if((CheckCart)==1) goto GetCart;
-			
-				GetCart:
-					set Zeny,Zeny-800;
-					set specialreserve,specialreserve + 800;
-					setcart;
-					mes "[Kafra]";
-					mes "There you go..";
-					cutin "kafra_08",255;
-					close;
-			RCNeedZenys:
-				mes "[Kafra Leilah]";
-				mes "Dear, you don't have enough zeny. You need 800 Zeny.";
-				cutin "kafra_04",255;
-				close;
-			Lneedskill:
-				mes "[Kafra Leilah]";
-				mes "Sorry dear but you need the Pushcart skill to rent a cart.";
-				cutin "kafra_04",255;
-				close;
-		RCCancel:
-			cutin "kafra_04",255;
-			close;
-	Lcancel:
-		cutin "kafra_05",2;
-		close;
-}	
-
-aldeba_in.gat,142,238,4	script	Kafra Service	114,{
-	cutin "kafra_04",2;
-	mes "[Kafra Roxie]";
-	mes "Welcome! I'm Kafra Type 'Roxie'";
-	mes "The Special Secret about Kapra only for you Kapra!";
-	next;
-	mes "[Kafra Roxie]";
-	mes "You know... Our Kapra Service wasn't actually called Kapra originally~~";
-	mes "Well what do you think it actually was?~";
-	next;
-	mes "[Kafra Roxie]";
-	mes "TaDa~ Surprisingly it was~~~!";
-	mes "Ka! P (Ring Ring Ring)";
-	mes "Oh... my phone... Sorry please wait...";
-	next;
-	mes "[Kafra Roxie]";
-	mes "Hi? Kapra Type Roxie";
-	mes "Huh! Director, sir! Yes! Yes! I understand! ..... Sure!";
-	mes "Ah... Huh?!";
-	next;
-	mes "[Kafra Roxie]";
-	mes "No-no sir!";
-	mes "Yes! I understand!!";
-	next;
-	mes "[Kafra Roxie]";
-	mes "*Click*";
-	mes "..... Hehehe...";
-	mes ". . . . .";
-	next;
-	mes "[Kafra Roxie]";
-	mes "Ah... Please ignore what you've just heard from me, haha.";
-	mes ". . . . .";
-	close;
-}

npc/other/old/pvp.txt

@@ -1,1455 +0,0 @@
-// Original Athena Japanese Dev PVP Script
-// *With added NPCs, missing Warps, and Warpers*
-// *Caution! This is an intended version/addition of the Izlude Arena!*
-//
-// Additions/Translation By DiaDz
-// Jan 24, 2004
-//
-//Addition 2v2 script by: Unknown - added
-
-
-
-// Begin PVP Room N
-pvp_y_room.gat,30,85,4	script	Usher 31~40	105,{
-	if ((BaseLevel < 31) || (BaseLevel > 40)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_1-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_1-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_1-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_1-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_1-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_1-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_1-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_1-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_1-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_1-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_1-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_1-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_1-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_1-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_1-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 31~40";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 41 ~ LV 50",0;
-	break;
-}
-pvp_y_room.gat,38,85,4	script	Usher 41~50	105,{
-	if ((BaseLevel < 41) || (BaseLevel > 50)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_2-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_2-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_2-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_2-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_2-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_2-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_2-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_2-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_2-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_2-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_2-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_2-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_2-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_2-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_2-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 41~50";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 40 ~ LV 50",0;
-	break;
-}
-pvp_y_room.gat,46,85,4	script	Usher 51~60	105,{
-	if ((BaseLevel < 51) || (BaseLevel > 60)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_3-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_3-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_3-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_3-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_3-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_3-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_3-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_3-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_3-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_3-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_3-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_3-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_3-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_3-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_3-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 51~60";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 51 ~ LV 60",0;
-	break;
-}
-pvp_y_room.gat,54,85,4	script	Usher 61~70	105,{
-	if ((BaseLevel < 61) || (BaseLevel > 70)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_4-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_4-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_4-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_4-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_4-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_4-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_4-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_4-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_4-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_4-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_4-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_4-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_4-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_4-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_4-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 61~70";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 61 ~ LV 70",0;
-	break;
-}
-pvp_y_room.gat,62,85,4	script	Usher 71~80	105,{
-	if ((BaseLevel < 71) || (BaseLevel > 80)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_5-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_5-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_5-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_5-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_5-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_5-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_5-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_5-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_5-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_5-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_5-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_5-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_5-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_5-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_5-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 71~80";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 71 ~ LV 80",0;
-	break;
-}
-pvp_y_room.gat,70,85,4	script	Usher 81~90	105,{
-	if ((BaseLevel < 81) || (BaseLevel > 90)) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_6-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_6-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_6-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_6-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_6-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_6-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_6-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_6-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_6-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_6-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_6-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_6-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_6-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_6-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_6-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 81~90";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 81 ~ LV 90",0;
-	break;
-}
-pvp_y_room.gat,78,85,4	script	Usher 91~Higher	105,{
-	if (BaseLevel < 91) goto LVNG;
-	menu "Prontera Arena [" + getmapusers("pvp_y_7-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_7-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_7-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_7-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_7-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_7-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_7-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_7-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_7-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_7-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_7-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_7-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_7-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_7-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_7-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 91~Higher";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 91 ~ Higher",0;
-	break;
-}
-pvp_y_room.gat,86,85,4	script	Usher All Levels	105,{
-	menu "Prontera Arena [" + getmapusers("pvp_y_8-1.gat") + " / 128]",Lpro,
-	"Izlude Arena [" + getmapusers("pvp_y_8-2.gat") + " / 128]",Lizu,
-	"Payon Arena [" + getmapusers("pvp_y_8-3.gat") + " / 128]",Lpay,
-	"Alberta Arena [" + getmapusers("pvp_y_8-4.gat") + " / 128]",Lalb,
-	"Morroc Arena [" + getmapusers("pvp_y_8-5.gat") + " / 128]",Lmoc,
-	"Quit",Lcancel;
-Lpro:
-	if(getmapusers("pvp_y_8-1.gat") >= 128 ) goto LError;
-	warp "pvp_y_8-1",0,0;
-	break;
-Lizu:
-	if(getmapusers("pvp_y_8-2.gat") >= 128 ) goto LError;
-	warp "pvp_y_8-2",0,0;
-	break;
-Lpay:
-	if(getmapusers("pvp_y_8-3.gat") >= 128 ) goto LError;
-	warp "pvp_y_8-3",0,0;
-	break;
-Lalb:
-	if(getmapusers("pvp_y_8-4.gat") >= 128 ) goto LError;
-	warp "pvp_y_8-4",0,0;
-	break;
-Lmoc:
-	if(getmapusers("pvp_y_8-5.gat") >= 128 ) goto LError;
-	warp "pvp_y_8-5",0,0;
-	break;
-Lcancel:
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "All Levels",0;
-	break;
-}
-
-// Begin PVP Room N
-pvp_n_room.gat,30,85,4	script	Usher 31~40	105,{
-	if ((BaseLevel < 31) || (BaseLevel > 40)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_1-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_1-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_1-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_1-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_1-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_1-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_1-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_1-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_1-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_1-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_1-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_1-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_1-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_1-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_1-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 31~40";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 31 ~ LV 40",0;
-	break;
-}
-pvp_n_room.gat,38,85,4	script	Usher 41~50	105,{
-	if ((BaseLevel < 41) || (BaseLevel > 50)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_2-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_2-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_2-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_2-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_2-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_2-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_2-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_2-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_2-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_2-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_2-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_2-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_2-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_2-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_2-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 41~50";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 41 ~ LV 50",0;
-	break;
-}
-pvp_n_room.gat,46,85,4	script	Usher 51~60	105,{
-	if ((BaseLevel < 51) || (BaseLevel > 60)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_3-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_3-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_3-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_3-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_3-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_3-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_3-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_3-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_3-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_3-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_3-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_3-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_3-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_3-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_3-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 51~60";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 51 ~ LV 60",0;
-	break;
-}
-pvp_n_room.gat,54,85,4	script	Usher 61~70	105,{
-	if ((BaseLevel < 61) || (BaseLevel > 70)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_4-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_4-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_4-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_4-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_4-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_4-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_4-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_4-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_4-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_4-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_4-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_4-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_4-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_4-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_4-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 61~70";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 61 ~ LV 70",0;
-	break;
-}
-pvp_n_room.gat,62,85,4	script	Usher 71~80	105,{
-	if ((BaseLevel < 71) || (BaseLevel > 80)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_5-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_5-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_5-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_5-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_5-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_5-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_5-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_5-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_5-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_5-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_5-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_5-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_5-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_5-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_5-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 71~80";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 71 ~ LV 80",0;
-	break;
-}
-pvp_n_room.gat,70,85,4	script	Usher 81~90	105,{
-	if ((BaseLevel < 81) || (BaseLevel > 90)) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_6-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_6-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_6-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_6-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_6-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_6-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_6-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_6-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_6-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_6-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_6-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_6-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_6-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_6-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_6-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 81~90";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 81 ~ LV 90",0;
-	break;
-}
-pvp_n_room.gat,78,85,4	script	Usher 91~Higher	105,{
-	if (BaseLevel < 91) goto LVNG;
-	menu "Sandwich Arena [" + getmapusers("pvp_n_7-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_7-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_7-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_7-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_7-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_7-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_7-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_7-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_7-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_7-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_7-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_7-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_7-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_7-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_7-5",0,0;
-	break;
-Lcancel:
-	close;
-LVNG:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is only for levels 91~Higher0";
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "LV 91 ~ Higher",0;
-	break;
-}
-pvp_n_room.gat,86,85,4	script	Usher All Levels	105,{
-	menu "Sandwich Arena [" + getmapusers("pvp_n_8-1.gat") + " / 64]",Lsand,
-	"Rock Arena [" + getmapusers("pvp_n_8-2.gat") + " / 32]",Llock,
-	"Four Arena [" + getmapusers("pvp_n_8-3.gat") + " / 32]",Lpolu,
-	"Undercross Arena [" + getmapusers("pvp_n_8-4.gat") + " / 32]",Lunder,
-	"Copass Arena [" + getmapusers("pvp_n_8-5.gat") + " / 32]",Lcom,
-	"Quit",Lcancel;
-Lsand:
-	if(getmapusers("pvp_n_8-1.gat") >= 64 ) goto LError;
-	warp "pvp_n_8-1",0,0;
-	break;
-Llock:
-	if(getmapusers("pvp_n_8-2.gat") >= 32 ) goto LError;
-	warp "pvp_n_8-2",0,0;
-	break;
-Lpolu:
-	if(getmapusers("pvp_n_8-3.gat") >= 32 ) goto LError;
-	warp "pvp_n_8-3",0,0;
-	break;
-Lunder:
-	if(getmapusers("pvp_n_8-4.gat") >= 32 ) goto LError;
-	warp "pvp_n_8-4",0,0;
-	break;
-Lcom:
-	if(getmapusers("pvp_n_8-5.gat") >= 32 ) goto LError;
-	warp "pvp_n_8-5",0,0;
-	break;
-Lcancel:
-	close;
-LError:
-	mes "[PVP Usher]";
-	mes "Sorry, this arena is currently full";
-	close;
-OnInit:
-	waitingroom "All Levels",0;
-	break;
-}
-
-// PvP Representative NPC prontera 164 175
-prontera.gat,164,175,5	script	PvP Representative	116,{
-	mes "[PvP Representative]";
-	mes "Hello there! I'm the PvP Representative!";
-	next;
-	mes "[PvP Representative]";
-	mes "I'm here to advertise our Arena in Izlude! It's specially designed for you players to beat each other up!";
-	next;
-	menu "Sounds interesting! I'll join!",entrance,"PvP? Whats that?",info,"Nah, maybe later.",quit;
-entrance:
-	mes "[PvP Representative]";
-	mes "Most excellent! I'll warp you to our Arena's Front Gate!";
-	next;
-	warp "izlude.gat",128,218;
-	close;
-info:
-	mes "[PvP Representative]";
-	mes "PvP Stands For 'Player versus Player', where you get to choose from a variety of arenas in which to fight in!";
-	next;
-	mes "[PvP Representative]";
-	mes "You don't have to worry about losing items, we have a NO PENALTY rule that states you cannot loose items or EXP!";
-	next;
-	mes "[PvP Representative]";
-	mes "So whadduya think?";
-	next;
-	menu "Sounds interesting! I'll join!",entrance,"Nah, maybe later.",quit;
-quit:
-	mes "[PvP Representative]";
-	mes "'Kay - I hope you change your mind in the near future.";
-	mes " ";
-	mes "Come Again! ^_^";
-	close;
-}
-
-// Arena Bulletin Board NPC izlude 125 219
-izlude.gat,125,219,5	script	Arena Bulletin Board	111,{
-	mes "[Arena Bulletin Board]";
-	mes "Welcome to the one and only...";
-	mes " ";
-	mes "Player Versus Player Arena!";
-	close;
-}
-
-// Arena Master NPC prt_are_in 100 84
-prt_are_in.gat,100,84,4	script	Arena Master	734,{
-	mes "[Arena Master]";
-	mes "Aaahh yes! Welcome to my humble and world renown PvP Arena!";
-	next;
-	mes "[Arena Master]";
-	mes "Tell me...do you wish to learn more of my Arena?";
-	next;
-	menu "Sure",sure,"Maybe later...",later;
-sure:
-	mes "[Arena Master]";
-	mes "After much boredom that I've went through all my life of killing simple monsters, I decided that it wasn't enough!";
-	next;
-	mes "[Arena Master]";
-	mes "I needed HUMAN FLESH! To satisfy my need to kill...";
-	next;
-	mes "[Arena Master]";
-	mes "And after years of construction and planning ~ it's finally complete for all of Midgard to see and cherish!";
-	next;
-	mes "[Arena Master]";
-	mes "I present you...";
-	mes " ";
-	mes "MY ARENA!!!";
-	close;
-later:
-	mes "[Arena Master]";
-	mes "Fine fine, please do enjoy your stay.";
-	close;
-}
-
-// PvP Attendant NPC prt_are_in 97 86
-prt_are_in.gat,97,86,4	script	PvP Attendant	98,{
-	mes "[PvP Attendant]";
-	mes "Welcome To The PVP ARENA!";
-	next;
-	mes "[PvP Attendant]";
-	mes "The Hall to the Left leads to City simulation Arenas";
-	next;
-	mes "[PvP Attendant]";
-	mes "The Hall to the Right leads to our Special map Arenas";
-	close;
-}
-
-// PvP Attendant NPC prt_are_in 102 86
-prt_are_in.gat,102,86,4	script	PvP Attendant	98,{
-	mes "[PvP Attendant]";
-	mes "Welcome To The PVP ARENA!";
-	next;
-	mes "[PvP Attendant]";
-	mes "The Hall to the Left leads to City simulation Arenas";
-	next;
-	mes "[PvP Attendant]";
-	mes "The Hall to the Right are our Special map Arenas";
-	close;
-}
-
-// Begin 2v2 pvp Script
-pvp_2vs2.gat,32,22,2	script	Bruno	87,{
-	mes "[Bruno]";
-	mes "You wimpin out already?";
-	menu "Yes",goback,"No",stay;
-		goback:
-		mes "Man!, you don't even got scratches, you wimp.";
-		next;
-		warp "prt_are_in.gat",167,90;
-		close;
-		stay:
-		mes "Impressive!, I respect your stamina!";
-		close;
-}
-
-prt_are_in.gat,167,92,4	script	Bruno	87,{
-        mes "[Bruno]";
-        mes "You sure you wanna goto our underground 2vs2 arena dork?";
-        menu "Yes",gopvp,"No",nopvp;
-                gopvp:
-                mes "Was nice knowin you chump.";
-                next;
-                warp "pvp_2vs2.gat",36,49;
-                close;
-                nopvp:
-                mes "Didn't think so, wuss!";
-                close;
-}
-
-prt_are_in.gat,92,86,4	script	Herman	125,{
-	mes "[Herman]";
-	mes "Welcome to Royal Rumble!";
-	mes "Ladies and Gents, my name is Herman from 'Cool Event Corp.'!";
-	next;
-	menu "What's Royal Rumble?",M0,"Boo~Go Home~",MEnd;
-
-	M0:
-		mes "[Herman]";
-		mes "We, Cool Event Corp., have opened a special event open to everyone visiting the Arena.";
-		mes "You can escape your monotonous life with this really great even we are providing you!";
-		next;
-		mes "[Herman]";
-		mes "This event is called ..Rooooooyal Rumbbbbbbble!!";
-		mes "*Cough*..*Cough*..*Cough* !!";
-		next;
-		mes "[Herman]";
-		mes ". . . . .";
-		mes "Arrggghhh Sooorry...";
-		next;
-		mes "[Herman]";
-		mes "When there are enough players in every 'Stand-By Room',";
-		mes "We will guide you to the beautiful Colosseum.";
-		next;
-		mes "[Herman]";
-		mes "In that Colosseum, you have to fight with hard and hostile Monsters within 5 minutes,";
-		mes "Using 8 warp zones located in 8 directions.";
-		next;
-		mes "[Herman]";
-		mes "When you strike into the deep inside of Monsters you will see Organ NPCs which control and generate Monsters.";
-		mes "You should have to speak them if you want to make an easy way to get a victory. They will release you from enemies.";
-		next;
-		mes "[Herman]";
-		mes "Whatever you eliminate all enemies by yourself or get helped by Organ NPCs, When you kill them all,";
-		mes "It is regarded as the Perfect Clear on Royal Rumble!";
-		next;
-		mes "[Herman]";
-		mes "Have some fun in Royal Rumble with your companions.";
-		mes "Once again, My name is Herman from Cool Event Corp. Thank you!";
-		close;
-
-	MEnd:
-		mes "[Herman]";
-		mes "You go Home, Baby";
-		close;
-}
-
-prt_are_in.gat,93,86,4	script	Lancelot	125,{
-	mes "[Lancelot]";
-	mes "Hi Hi! Come on ! Make yourself at Home!";
-	mes "My name is Lacelot from Cool Event Corp. I am here to tell you about Time Limit Fight. Do you want to Listen?";
-	next;
-	menu "Yeah, Cool.",M0,"Sorry, I don't want to.",MEnd;
-
-	M0:
-		mes "[Lancelot]";
-		mes "We, Cool Event Corp., open a Special event to give a fun to everybody visiting Arena.";
-		mes "You can slip your monotonous day life for the moment during the event we provide you!";
-		next;
-		mes "[Lancelot]";
-		mes "The Event Called ..Timeeeee-- Limmmmmitttt---Figgggghhtt !!";
-		mes "*Aaahchoo* !! *Achoo* !! *Cough**Cough* ..";
-		next;
-		mes "[Lancelot]";
-		mes ". . . . . Whack..";
-		mes "Oh Boy.. Really Sorry to make you uncomfortable with this.";
-		next;
-		mes "[Lancelot]";
-		mes "When players gather as many as we need in Each Standbyroom";
-		mes "We will guide you to the Labylinth.";
-		next;
-		mes "[Lancelot]";
-		mes "In that Labylinth,you have to terminate all monsters within 5 minutes,";
-		mes "Using this Warp zone and that warp zone...";
-		next;
-		mes "[Lancelot]";
-		mes "When you kill all Monsters in one room,another gate will be opened ..and you can go in there.";
-		mes "One thing you must know is when you enter the new room door is totally closed to block your exit ..";
-		next;
-		mes "[Lancelot]";
-		mes "You cannot go back to where you're from.";
-		next;
-		mes "[Lancelot]";
-		mes "In case of Level 1 Stage, the door of Boss Stage will be opened when you eliminate all monsters in every room ..";
-		mes "But in Level 2 and 3, even though there are many complexed corridors, if you follow the shortcut, you will enter the Boss Room at ease.";
-		next;
-		mes "[Lancelot]";
-		mes "Get some fun with your companions.";
-		mes "Thank you for your time, once again my name is Lancelot!";
-		close;
-	MEnd:
-		mes "[Lancelot]";
-		mes "Alright, Bye Bye";
-		close;
-}
-
-prt_are_in.gat,94,85,4	Zakkie	84,{
-	mes "[Zakkie]";
-	mes "Welcome to Royal Rumble,the World of Fighters!";
-	mes "My name is Zakkie from Cool Event Corp.!";
-	mes "If you don't mind let me give you some tips for more fun.";
-	next;
-	menu "No!i don't mind.Go ahead.",M0,"Errr....I know already.",MEnd;
-
-	M0:
-		mes "[Zakkie]";
-		mes "when get started, You will ecounter many monsters through 8 warp zones.";
-		mes "You can choose either way of the Battle. You can find Organ NPCs behind each Warp Zone or You can kill all Enemies by yourself.";
-		next;
-		mes "[Zakkie]";
-		mes "When you satisfy one of them, it is regarded as Clear on that Round.";
-		mes "We suggest you to discuss with party members to find out better way of the Battle.";
-		close;
-	MEnd:
-		mes "[Zakkie]";
-		mes "Whattt!! Did you say you know the tips?!";
-		mes "Wow~Excellent. Then you don't need my help. Well have fun~!";
-		close;
-}
-
-prt_are_in.gat,108,86,4	script	Boris	84,{
-	mes "[Boris]";
-	mes "Hmm.. I can easily imagine how frustrated you have been in your life, dear.. Because Common people cannot dare to visit me.";
-	mes "Let me introduce myself. My name is Boris and the director of Customer Support Team in Cool Event Corp.";
-	mes "I will give you the exceptional tips only for the Bloodthirsty.";
-	next;
-	menu "Will you please?",M0,"Thank you but I already know about it.",MEnd;
-
-	M0:
-		mes "[Boris]";
-		mes "Before get started, you must work out a strategy considering your members.";
-		mes "Then you can warp into the Battle.";
-		next;
-		mes "[Boris]";
-		mes "If 8 men jump into the Warp zone together, You will succeed.";
-		mes "Otherwise If a man or two, I don't think you can survive.";
-		next;
-		mes "[Boris]";
-		mes "And let's talk about the Running Time of Royal Rumble and of Time Limit Fight.";
-		mes "Although every Battle Time is limitted, but sometimes it is increased by a Bonus when you clear One Round.";
-		next;
-		mes "[Boris]";
-		mes "Bonus Time will be increased by Second.. When you get a Bonus Time";
-		mes "Definately you could extent the Limit of Battle. You can check the Time passage with the announcement of our employee.";
-		close;
-
-	MEnd:
-		mes "[Boris]";
-		mes ".. Ahh...I need my room in Dark ..";
-		mes "Hmm Hmm Nothing, Nothing.";
-		close;
-}
-
-// Add missing Warps Begins Here
-prt_are_in.gat,32,95,0	warp	areawarpfix1	1,1,pvp_y_room.gat,52,23
-prt_are_in.gat,170,95,0	warp	areawarpfix2	1,1,pvp_n_room.gat,52,23
-pvp_y_room.gat,52,18,0	warp	areawarpfix3	1,1,prt_are_in.gat,32,92
-pvp_n_room.gat,52,18,0	warp	areawarpfix4	1,1,prt_are_in.gat,170,92
-
-// PvP Mapflags
-pvp_y_1-1.gat	mapflag	nopenalty
-pvp_y_1-2.gat	mapflag	nopenalty
-pvp_y_1-3.gat	mapflag	nopenalty
-pvp_y_1-4.gat	mapflag	nopenalty
-pvp_y_1-5.gat	mapflag	nopenalty
-pvp_y_2-1.gat	mapflag	nopenalty
-pvp_y_2-2.gat	mapflag	nopenalty
-pvp_y_2-3.gat	mapflag	nopenalty
-pvp_y_2-4.gat	mapflag	nopenalty
-pvp_y_2-5.gat	mapflag	nopenalty
-pvp_y_3-1.gat	mapflag	nopenalty
-pvp_y_3-2.gat	mapflag	nopenalty
-pvp_y_3-3.gat	mapflag	nopenalty
-pvp_y_3-4.gat	mapflag	nopenalty
-pvp_y_3-5.gat	mapflag	nopenalty
-pvp_y_4-1.gat	mapflag	nopenalty
-pvp_y_4-2.gat	mapflag	nopenalty
-pvp_y_4-3.gat	mapflag	nopenalty
-pvp_y_4-4.gat	mapflag	nopenalty
-pvp_y_4-5.gat	mapflag	nopenalty
-pvp_y_5-1.gat	mapflag	nopenalty
-pvp_y_5-2.gat	mapflag	nopenalty
-pvp_y_5-3.gat	mapflag	nopenalty
-pvp_y_5-4.gat	mapflag	nopenalty
-pvp_y_5-5.gat	mapflag	nopenalty
-pvp_y_6-1.gat	mapflag	nopenalty
-pvp_y_6-2.gat	mapflag	nopenalty
-pvp_y_6-3.gat	mapflag	nopenalty
-pvp_y_6-4.gat	mapflag	nopenalty
-pvp_y_6-5.gat	mapflag	nopenalty
-pvp_y_7-1.gat	mapflag	nopenalty
-pvp_y_7-2.gat	mapflag	nopenalty
-pvp_y_7-3.gat	mapflag	nopenalty
-pvp_y_7-4.gat	mapflag	nopenalty
-pvp_y_7-5.gat	mapflag	nopenalty
-pvp_y_8-1.gat	mapflag	nopenalty
-pvp_y_8-2.gat	mapflag	nopenalty
-pvp_y_8-3.gat	mapflag	nopenalty
-pvp_y_8-4.gat	mapflag	nopenalty
-pvp_y_8-5.gat	mapflag	nopenalty
-pvp_n_1-1.gat	mapflag	nopenalty
-pvp_n_1-2.gat	mapflag	nopenalty
-pvp_n_1-3.gat	mapflag	nopenalty
-pvp_n_1-4.gat	mapflag	nopenalty
-pvp_n_1-5.gat	mapflag	nopenalty
-pvp_n_2-1.gat	mapflag	nopenalty
-pvp_n_2-2.gat	mapflag	nopenalty
-pvp_n_2-3.gat	mapflag	nopenalty
-pvp_n_2-4.gat	mapflag	nopenalty
-pvp_n_2-5.gat	mapflag	nopenalty
-pvp_n_3-1.gat	mapflag	nopenalty
-pvp_n_3-2.gat	mapflag	nopenalty
-pvp_n_3-3.gat	mapflag	nopenalty
-pvp_n_3-4.gat	mapflag	nopenalty
-pvp_n_3-5.gat	mapflag	nopenalty
-pvp_n_4-1.gat	mapflag	nopenalty
-pvp_n_4-2.gat	mapflag	nopenalty
-pvp_n_4-3.gat	mapflag	nopenalty
-pvp_n_4-4.gat	mapflag	nopenalty
-pvp_n_4-5.gat	mapflag	nopenalty
-pvp_n_5-1.gat	mapflag	nopenalty
-pvp_n_5-2.gat	mapflag	nopenalty
-pvp_n_5-3.gat	mapflag	nopenalty
-pvp_n_5-4.gat	mapflag	nopenalty
-pvp_n_5-5.gat	mapflag	nopenalty
-pvp_n_6-1.gat	mapflag	nopenalty
-pvp_n_6-2.gat	mapflag	nopenalty
-pvp_n_6-3.gat	mapflag	nopenalty
-pvp_n_6-4.gat	mapflag	nopenalty
-pvp_n_6-5.gat	mapflag	nopenalty
-pvp_n_7-1.gat	mapflag	nopenalty
-pvp_n_7-2.gat	mapflag	nopenalty
-pvp_n_7-3.gat	mapflag	nopenalty
-pvp_n_7-4.gat	mapflag	nopenalty
-pvp_n_7-5.gat	mapflag	nopenalty
-pvp_n_8-1.gat	mapflag	nopenalty
-pvp_n_8-2.gat	mapflag	nopenalty
-pvp_n_8-3.gat	mapflag	nopenalty
-pvp_n_8-4.gat	mapflag	nopenalty
-pvp_n_8-5.gat	mapflag	nopenalty
-pvp_2vs2.gat	mapflag	nopenalty
-
-pvp_y_1-1.gat	mapflag	pvp
-pvp_y_1-2.gat	mapflag	pvp
-pvp_y_1-3.gat	mapflag	pvp
-pvp_y_1-4.gat	mapflag	pvp
-pvp_y_1-5.gat	mapflag	pvp
-pvp_y_2-1.gat	mapflag	pvp
-pvp_y_2-2.gat	mapflag	pvp
-pvp_y_2-3.gat	mapflag	pvp
-pvp_y_2-4.gat	mapflag	pvp
-pvp_y_2-5.gat	mapflag	pvp
-pvp_y_3-1.gat	mapflag	pvp
-pvp_y_3-2.gat	mapflag	pvp
-pvp_y_3-3.gat	mapflag	pvp
-pvp_y_3-4.gat	mapflag	pvp
-pvp_y_3-5.gat	mapflag	pvp
-pvp_y_4-1.gat	mapflag	pvp
-pvp_y_4-2.gat	mapflag	pvp
-pvp_y_4-3.gat	mapflag	pvp
-pvp_y_4-4.gat	mapflag	pvp
-pvp_y_4-5.gat	mapflag	pvp
-pvp_y_5-1.gat	mapflag	pvp
-pvp_y_5-2.gat	mapflag	pvp
-pvp_y_5-3.gat	mapflag	pvp
-pvp_y_5-4.gat	mapflag	pvp
-pvp_y_5-5.gat	mapflag	pvp
-pvp_y_6-1.gat	mapflag	pvp
-pvp_y_6-2.gat	mapflag	pvp
-pvp_y_6-3.gat	mapflag	pvp
-pvp_y_6-4.gat	mapflag	pvp
-pvp_y_6-5.gat	mapflag	pvp
-pvp_y_7-1.gat	mapflag	pvp
-pvp_y_7-2.gat	mapflag	pvp
-pvp_y_7-3.gat	mapflag	pvp
-pvp_y_7-4.gat	mapflag	pvp
-pvp_y_7-5.gat	mapflag	pvp
-pvp_y_8-1.gat	mapflag	pvp
-pvp_y_8-2.gat	mapflag	pvp
-pvp_y_8-3.gat	mapflag	pvp
-pvp_y_8-4.gat	mapflag	pvp
-pvp_y_8-5.gat	mapflag	pvp
-pvp_n_1-1.gat	mapflag	pvp
-pvp_n_1-2.gat	mapflag	pvp
-pvp_n_1-3.gat	mapflag	pvp
-pvp_n_1-4.gat	mapflag	pvp
-pvp_n_1-5.gat	mapflag	pvp
-pvp_n_2-1.gat	mapflag	pvp
-pvp_n_2-2.gat	mapflag	pvp
-pvp_n_2-3.gat	mapflag	pvp
-pvp_n_2-4.gat	mapflag	pvp
-pvp_n_2-5.gat	mapflag	pvp
-pvp_n_3-1.gat	mapflag	pvp
-pvp_n_3-2.gat	mapflag	pvp
-pvp_n_3-3.gat	mapflag	pvp
-pvp_n_3-4.gat	mapflag	pvp
-pvp_n_3-5.gat	mapflag	pvp
-pvp_n_4-1.gat	mapflag	pvp
-pvp_n_4-2.gat	mapflag	pvp
-pvp_n_4-3.gat	mapflag	pvp
-pvp_n_4-4.gat	mapflag	pvp
-pvp_n_4-5.gat	mapflag	pvp
-pvp_n_5-1.gat	mapflag	pvp
-pvp_n_5-2.gat	mapflag	pvp
-pvp_n_5-3.gat	mapflag	pvp
-pvp_n_5-4.gat	mapflag	pvp
-pvp_n_5-5.gat	mapflag	pvp
-pvp_n_6-1.gat	mapflag	pvp
-pvp_n_6-2.gat	mapflag	pvp
-pvp_n_6-3.gat	mapflag	pvp
-pvp_n_6-4.gat	mapflag	pvp
-pvp_n_6-5.gat	mapflag	pvp
-pvp_n_7-1.gat	mapflag	pvp
-pvp_n_7-2.gat	mapflag	pvp
-pvp_n_7-3.gat	mapflag	pvp
-pvp_n_7-4.gat	mapflag	pvp
-pvp_n_7-5.gat	mapflag	pvp
-pvp_n_8-1.gat	mapflag	pvp
-pvp_n_8-2.gat	mapflag	pvp
-pvp_n_8-3.gat	mapflag	pvp
-pvp_n_8-4.gat	mapflag	pvp
-pvp_n_8-5.gat	mapflag	pvp
-pvp_2vs2.gat	mapflag	pvp
-
-pvp_y_1-1.gat	mapflag	pvp_noparty
-pvp_y_1-2.gat	mapflag	pvp_noparty
-pvp_y_1-3.gat	mapflag	pvp_noparty
-pvp_y_1-4.gat	mapflag	pvp_noparty
-pvp_y_1-5.gat	mapflag	pvp_noparty
-pvp_y_2-1.gat	mapflag	pvp_noparty
-pvp_y_2-2.gat	mapflag	pvp_noparty
-pvp_y_2-3.gat	mapflag	pvp_noparty
-pvp_y_2-4.gat	mapflag	pvp_noparty
-pvp_y_2-5.gat	mapflag	pvp_noparty
-pvp_y_3-1.gat	mapflag	pvp_noparty
-pvp_y_3-2.gat	mapflag	pvp_noparty
-pvp_y_3-3.gat	mapflag	pvp_noparty
-pvp_y_3-4.gat	mapflag	pvp_noparty
-pvp_y_3-5.gat	mapflag	pvp_noparty
-pvp_y_4-1.gat	mapflag	pvp_noparty
-pvp_y_4-2.gat	mapflag	pvp_noparty
-pvp_y_4-3.gat	mapflag	pvp_noparty
-pvp_y_4-4.gat	mapflag	pvp_noparty
-pvp_y_4-5.gat	mapflag	pvp_noparty
-pvp_y_5-1.gat	mapflag	pvp_noparty
-pvp_y_5-2.gat	mapflag	pvp_noparty
-pvp_y_5-3.gat	mapflag	pvp_noparty
-pvp_y_5-4.gat	mapflag	pvp_noparty
-pvp_y_5-5.gat	mapflag	pvp_noparty
-pvp_y_6-1.gat	mapflag	pvp_noparty
-pvp_y_6-2.gat	mapflag	pvp_noparty
-pvp_y_6-3.gat	mapflag	pvp_noparty
-pvp_y_6-4.gat	mapflag	pvp_noparty
-pvp_y_6-5.gat	mapflag	pvp_noparty
-pvp_y_7-1.gat	mapflag	pvp_noparty
-pvp_y_7-2.gat	mapflag	pvp_noparty
-pvp_y_7-3.gat	mapflag	pvp_noparty
-pvp_y_7-4.gat	mapflag	pvp_noparty
-pvp_y_7-5.gat	mapflag	pvp_noparty
-pvp_y_8-1.gat	mapflag	pvp_noparty
-pvp_y_8-2.gat	mapflag	pvp_noparty
-pvp_y_8-3.gat	mapflag	pvp_noparty
-pvp_y_8-4.gat	mapflag	pvp_noparty
-pvp_y_8-5.gat	mapflag	pvp_noparty
-pvp_n_1-1.gat	mapflag	pvp_noparty
-pvp_n_1-2.gat	mapflag	pvp_noparty
-pvp_n_1-3.gat	mapflag	pvp_noparty
-pvp_n_1-4.gat	mapflag	pvp_noparty
-pvp_n_1-5.gat	mapflag	pvp_noparty
-pvp_n_2-1.gat	mapflag	pvp_noparty
-pvp_n_2-2.gat	mapflag	pvp_noparty
-pvp_n_2-3.gat	mapflag	pvp_noparty
-pvp_n_2-4.gat	mapflag	pvp_noparty
-pvp_n_2-5.gat	mapflag	pvp_noparty
-pvp_n_3-1.gat	mapflag	pvp_noparty
-pvp_n_3-2.gat	mapflag	pvp_noparty
-pvp_n_3-3.gat	mapflag	pvp_noparty
-pvp_n_3-4.gat	mapflag	pvp_noparty
-pvp_n_3-5.gat	mapflag	pvp_noparty
-pvp_n_4-1.gat	mapflag	pvp_noparty
-pvp_n_4-2.gat	mapflag	pvp_noparty
-pvp_n_4-3.gat	mapflag	pvp_noparty
-pvp_n_4-4.gat	mapflag	pvp_noparty
-pvp_n_4-5.gat	mapflag	pvp_noparty
-pvp_n_5-1.gat	mapflag	pvp_noparty
-pvp_n_5-2.gat	mapflag	pvp_noparty
-pvp_n_5-3.gat	mapflag	pvp_noparty
-pvp_n_5-4.gat	mapflag	pvp_noparty
-pvp_n_5-5.gat	mapflag	pvp_noparty
-pvp_n_6-1.gat	mapflag	pvp_noparty
-pvp_n_6-2.gat	mapflag	pvp_noparty
-pvp_n_6-3.gat	mapflag	pvp_noparty
-pvp_n_6-4.gat	mapflag	pvp_noparty
-pvp_n_6-5.gat	mapflag	pvp_noparty
-pvp_n_7-1.gat	mapflag	pvp_noparty
-pvp_n_7-2.gat	mapflag	pvp_noparty
-pvp_n_7-3.gat	mapflag	pvp_noparty
-pvp_n_7-4.gat	mapflag	pvp_noparty
-pvp_n_7-5.gat	mapflag	pvp_noparty
-pvp_n_8-1.gat	mapflag	pvp_noparty
-pvp_n_8-2.gat	mapflag	pvp_noparty
-pvp_n_8-3.gat	mapflag	pvp_noparty
-pvp_n_8-4.gat	mapflag	pvp_noparty
-pvp_n_8-5.gat	mapflag	pvp_noparty
-
-pvp_y_1-1.gat	mapflag	nomemo
-pvp_y_1-2.gat	mapflag	nomemo
-pvp_y_1-3.gat	mapflag	nomemo
-pvp_y_1-4.gat	mapflag	nomemo
-pvp_y_1-5.gat	mapflag	nomemo
-pvp_y_2-1.gat	mapflag	nomemo
-pvp_y_2-2.gat	mapflag	nomemo
-pvp_y_2-3.gat	mapflag	nomemo
-pvp_y_2-4.gat	mapflag	nomemo
-pvp_y_2-5.gat	mapflag	nomemo
-pvp_y_3-1.gat	mapflag	nomemo
-pvp_y_3-2.gat	mapflag	nomemo
-pvp_y_3-3.gat	mapflag	nomemo
-pvp_y_3-4.gat	mapflag	nomemo
-pvp_y_3-5.gat	mapflag	nomemo
-pvp_y_4-1.gat	mapflag	nomemo
-pvp_y_4-2.gat	mapflag	nomemo
-pvp_y_4-3.gat	mapflag	nomemo
-pvp_y_4-4.gat	mapflag	nomemo
-pvp_y_4-5.gat	mapflag	nomemo
-pvp_y_5-1.gat	mapflag	nomemo
-pvp_y_5-2.gat	mapflag	nomemo
-pvp_y_5-3.gat	mapflag	nomemo
-pvp_y_5-4.gat	mapflag	nomemo
-pvp_y_5-5.gat	mapflag	nomemo
-pvp_y_6-1.gat	mapflag	nomemo
-pvp_y_6-2.gat	mapflag	nomemo
-pvp_y_6-3.gat	mapflag	nomemo
-pvp_y_6-4.gat	mapflag	nomemo
-pvp_y_6-5.gat	mapflag	nomemo
-pvp_y_7-1.gat	mapflag	nomemo
-pvp_y_7-2.gat	mapflag	nomemo
-pvp_y_7-3.gat	mapflag	nomemo
-pvp_y_7-4.gat	mapflag	nomemo
-pvp_y_7-5.gat	mapflag	nomemo
-pvp_y_8-1.gat	mapflag	nomemo
-pvp_y_8-2.gat	mapflag	nomemo
-pvp_y_8-3.gat	mapflag	nomemo
-pvp_y_8-4.gat	mapflag	nomemo
-pvp_y_8-5.gat	mapflag	nomemo
-pvp_n_1-1.gat	mapflag	nomemo
-pvp_n_1-2.gat	mapflag	nomemo
-pvp_n_1-3.gat	mapflag	nomemo
-pvp_n_1-4.gat	mapflag	nomemo
-pvp_n_1-5.gat	mapflag	nomemo
-pvp_n_2-1.gat	mapflag	nomemo
-pvp_n_2-2.gat	mapflag	nomemo
-pvp_n_2-3.gat	mapflag	nomemo
-pvp_n_2-4.gat	mapflag	nomemo
-pvp_n_2-5.gat	mapflag	nomemo
-pvp_n_3-1.gat	mapflag	nomemo
-pvp_n_3-2.gat	mapflag	nomemo
-pvp_n_3-3.gat	mapflag	nomemo
-pvp_n_3-4.gat	mapflag	nomemo
-pvp_n_3-5.gat	mapflag	nomemo
-pvp_n_4-1.gat	mapflag	nomemo
-pvp_n_4-2.gat	mapflag	nomemo
-pvp_n_4-3.gat	mapflag	nomemo
-pvp_n_4-4.gat	mapflag	nomemo
-pvp_n_4-5.gat	mapflag	nomemo
-pvp_n_5-1.gat	mapflag	nomemo
-pvp_n_5-2.gat	mapflag	nomemo
-pvp_n_5-3.gat	mapflag	nomemo
-pvp_n_5-4.gat	mapflag	nomemo
-pvp_n_5-5.gat	mapflag	nomemo
-pvp_n_6-1.gat	mapflag	nomemo
-pvp_n_6-2.gat	mapflag	nomemo
-pvp_n_6-3.gat	mapflag	nomemo
-pvp_n_6-4.gat	mapflag	nomemo
-pvp_n_6-5.gat	mapflag	nomemo
-pvp_n_7-1.gat	mapflag	nomemo
-pvp_n_7-2.gat	mapflag	nomemo
-pvp_n_7-3.gat	mapflag	nomemo
-pvp_n_7-4.gat	mapflag	nomemo
-pvp_n_7-5.gat	mapflag	nomemo
-pvp_n_8-1.gat	mapflag	nomemo
-pvp_n_8-2.gat	mapflag	nomemo
-pvp_n_8-3.gat	mapflag	nomemo
-pvp_n_8-4.gat	mapflag	nomemo
-pvp_n_8-5.gat	mapflag	nomemo
-pvp_2vs2.gat	mapflag	nomemo
-
-pvp_y_1-1.gat	mapflag	noteleport
-pvp_y_1-2.gat	mapflag	noteleport
-pvp_y_1-3.gat	mapflag	noteleport
-pvp_y_1-4.gat	mapflag	noteleport
-pvp_y_1-5.gat	mapflag	noteleport
-pvp_y_2-1.gat	mapflag	noteleport
-pvp_y_2-2.gat	mapflag	noteleport
-pvp_y_2-3.gat	mapflag	noteleport
-pvp_y_2-4.gat	mapflag	noteleport
-pvp_y_2-5.gat	mapflag	noteleport
-pvp_y_3-1.gat	mapflag	noteleport
-pvp_y_3-2.gat	mapflag	noteleport
-pvp_y_3-3.gat	mapflag	noteleport
-pvp_y_3-4.gat	mapflag	noteleport
-pvp_y_3-5.gat	mapflag	noteleport
-pvp_y_4-1.gat	mapflag	noteleport
-pvp_y_4-2.gat	mapflag	noteleport
-pvp_y_4-3.gat	mapflag	noteleport
-pvp_y_4-4.gat	mapflag	noteleport
-pvp_y_4-5.gat	mapflag	noteleport
-pvp_y_5-1.gat	mapflag	noteleport
-pvp_y_5-2.gat	mapflag	noteleport
-pvp_y_5-3.gat	mapflag	noteleport
-pvp_y_5-4.gat	mapflag	noteleport
-pvp_y_5-5.gat	mapflag	noteleport
-pvp_y_6-1.gat	mapflag	noteleport
-pvp_y_6-2.gat	mapflag	noteleport
-pvp_y_6-3.gat	mapflag	noteleport
-pvp_y_6-4.gat	mapflag	noteleport
-pvp_y_6-5.gat	mapflag	noteleport
-pvp_y_7-1.gat	mapflag	noteleport
-pvp_y_7-2.gat	mapflag	noteleport
-pvp_y_7-3.gat	mapflag	noteleport
-pvp_y_7-4.gat	mapflag	noteleport
-pvp_y_7-5.gat	mapflag	noteleport
-pvp_y_8-1.gat	mapflag	noteleport
-pvp_y_8-2.gat	mapflag	noteleport
-pvp_y_8-3.gat	mapflag	noteleport
-pvp_y_8-4.gat	mapflag	noteleport
-pvp_y_8-5.gat	mapflag	noteleport
-pvp_n_1-1.gat	mapflag	noteleport
-pvp_n_1-2.gat	mapflag	noteleport
-pvp_n_1-3.gat	mapflag	noteleport
-pvp_n_1-4.gat	mapflag	noteleport
-pvp_n_1-5.gat	mapflag	noteleport
-pvp_n_2-1.gat	mapflag	noteleport
-pvp_n_2-2.gat	mapflag	noteleport
-pvp_n_2-3.gat	mapflag	noteleport
-pvp_n_2-4.gat	mapflag	noteleport
-pvp_n_2-5.gat	mapflag	noteleport
-pvp_n_3-1.gat	mapflag	noteleport
-pvp_n_3-2.gat	mapflag	noteleport
-pvp_n_3-3.gat	mapflag	noteleport
-pvp_n_3-4.gat	mapflag	noteleport
-pvp_n_3-5.gat	mapflag	noteleport
-pvp_n_4-1.gat	mapflag	noteleport
-pvp_n_4-2.gat	mapflag	noteleport
-pvp_n_4-3.gat	mapflag	noteleport
-pvp_n_4-4.gat	mapflag	noteleport
-pvp_n_4-5.gat	mapflag	noteleport
-pvp_n_5-1.gat	mapflag	noteleport
-pvp_n_5-2.gat	mapflag	noteleport
-pvp_n_5-3.gat	mapflag	noteleport
-pvp_n_5-4.gat	mapflag	noteleport
-pvp_n_5-5.gat	mapflag	noteleport
-pvp_n_6-1.gat	mapflag	noteleport
-pvp_n_6-2.gat	mapflag	noteleport
-pvp_n_6-3.gat	mapflag	noteleport
-pvp_n_6-4.gat	mapflag	noteleport
-pvp_n_6-5.gat	mapflag	noteleport
-pvp_n_7-1.gat	mapflag	noteleport
-pvp_n_7-2.gat	mapflag	noteleport
-pvp_n_7-3.gat	mapflag	noteleport
-pvp_n_7-4.gat	mapflag	noteleport
-pvp_n_7-5.gat	mapflag	noteleport
-pvp_n_8-1.gat	mapflag	noteleport
-pvp_n_8-2.gat	mapflag	noteleport
-pvp_n_8-3.gat	mapflag	noteleport
-pvp_n_8-4.gat	mapflag	noteleport
-pvp_n_8-5.gat	mapflag	noteleport
-pvp_2vs2.gat	mapflag	noteleport
-
-pvp_y_1-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_1-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_1-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_1-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_1-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_2-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_2-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_2-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_2-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_2-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_3-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_3-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_3-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_3-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_3-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_4-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_4-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_4-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_4-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_4-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_5-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_5-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_5-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_5-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_5-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_6-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_6-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_6-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_6-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_6-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_7-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_7-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_7-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_7-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_7-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_8-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_8-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_8-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_8-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_y_8-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_1-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_1-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_1-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_1-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_1-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_2-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_2-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_2-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_2-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_2-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_3-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_3-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_3-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_3-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_3-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_4-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_4-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_4-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_4-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_4-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_5-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_5-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_5-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_5-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_5-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_6-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_6-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_6-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_6-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_6-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_7-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_7-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_7-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_7-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_7-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_8-1.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_8-2.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_8-3.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_8-4.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_n_8-5.gat	mapflag	nosave	prt_are_in.gat,100,80
-pvp_2vs2.gat	mapflag	nosave	prt_are_in.gat,100,80

npc/other/old/wedding.txt

@@ -1,715 +0,0 @@
-//////////////////////////////////////////////////////////
-//             Wedding Script Alpha (v1.4)              //
-//////////////////////////////////////////////////////////
-//
-//=====eAthena Script====================================
-// Wedding Script
-//=====By================================================
-// AppleGirl and Evera(version 1.0)
-//=====Current Version===================================
-// 1.45b
-//=====Compatible With:==================================
-// Any eAthena Version; RO Episode 6+
-//=====Description=======================================
-// Fully working wedding script for all kind of weddings
-//=====Additional Comments:==============================
-// Tested and debugged by whocares (maybe 1-2 bugs left)(version 1.1)
-//======= Version 1.2 By ShadowLady =====================
-// Same Sex Weddings.
-// Now the script(npcs) tell the players how they must perform exactly.
-//======= Version 1.3 By ShadowLady =====================
-// You might need to update the wedding rings in item_db
-// Same for the tux/dress, so all classes and lvs can use it ^^
-// And check if they are wearing the tux/dress and not only have it on the inventory.
-//======= Version 1.4 By ShadowLady =====================
-// Added some code ideas. Thanks to Jbain for help me debbuging
-// Added @outfit variable, to check if you already bought a tux/dress
-// Fixed "part" of the divorce npc. The code is bugged by itself -_- Need both chars to be online yet.
-////======= Version 1.45 By ShadowLady =====================
-// Fixed some minor bugs. Same-sex is disabled by default now.
-// Change $progress variable to $@progress, so it dont screw up the ceremony on a server crash.
-// Added a Special GM Menu to enable/disable same-sex weddings and reset most variables.
-////======= Version 1.45b By Aria =====================
-// Added the $progress to $@progress variable change that ShadowLady put in notes, but not in code.
-//=======================================================
-// Variable Notes:
-//
-// event_wedding - 1 signifies marriage
-// $groom$ - Groom's name storage
-// $bride$ - Bride's name storage
-// $@progress - Sets global restriction upon wedding
-// @register - Temporary registration check
-// @zleft - Temporary zeny needed check
-// $name$ - Insert name for bride
-// $name2$ - Insert name for groom
-// $get_ring - Check so you can't get ring twice
-// $reason$ - Objection to wedding
-// @outfit - Check if the char already got a dress or tuxedo from the npc
-// Tristan
-prt_church.gat,99,125,4	script	Tristan the Third	108,{
-	if($groom$ == strcharinfo(0) && $@progress != 3) goto L_GroomCeremony;
-	if(@register == 0) goto L_GroomNeedToRegister;
-	if($bride$ == strcharinfo(0)) goto L_BrideCeremony;
-	menu "Here To Attend",L_Wedding,"Here for another reason",L_OtherReason;
-L_GroomCeremony:
-	if(@register == 0) goto L_GroomNeedToRegister;
-	if($@progress == 1) goto L_BrideNeedToRegister;
-	if($@progress == 0) goto L_Wedding;
-	if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
-	if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
-	mes "[Tristan the Third]";
-	mes "Everything is ready, it's your call now...";
-	next;
-	menu "Perform Wedding.",-,"Cancel Wedding.",L_CancelWedding;
-	set $@progress,3;
-	mes "[Tristan the Third]";
-	mes "Well all you have to do now is the easy part input your bride's name, remember to spell it correctly.";
-	input $name2$;
-	next;
-	if($name2$ != $bride$) goto L_WrongBrideName;
-	deltimer "a13";
-	marriage $name2$;
-	mes "[Tristan the Third]";
-	mes "Please tell your wife to speak to me, and then we will start exchanging rings";
-	delitem 2613,1;//Items: Diamond_Ring,
-	if (sex == 0) getitem 2635,1;//Items: Wedding_Ring_F,
-	if (sex == 1) getitem 2634,1;//Items: Wedding_Ring_M,
-	set @get_ring,1;
-	next;
-	mes "[Tristan the Third]";
-	mes "Will you and your bride please move onto the stand. I will now preform the Wedding Ceremony!";
-	set event_wedding,1;
-	deltimer "weddinglimit1";
-	deltimer "weddinglimit2";
-	announce "The Wedding of "+$groom$+" and "+$bride$+", will now be held at Prontera Church.",5;
-	addtimer 50000,"a1";
-	addtimer 55000,"a2";
-	addtimer 60000,"a3";
-	addtimer 65000,"a4";
-	addtimer 70000,"a5";
-	addtimer 75000,"a6";
-	addtimer 80000,"a7";
-	addtimer 85000,"a8";
-	addtimer 90000,"a9";
-	addtimer 95000,"a10";
-	addtimer 100000,"a11";
-	addtimer 105000,"a12";
-	close;
-L_BrideCeremony:
-	if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
-	if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
-	mes "[Tristan the Third]";
-	mes "Well all you have to do now is the easy part input your groom's name, remember to spell it correctly.";
-	input $name$;
-	next;
-	if($name$ != $groom$) goto L_WrongGroomName;
-	deltimer "a13";
-	deltimer "weddinglimit1";
-	deltimer "weddinglimit2";
-	marriage $name$;
-	delitem 2613,1;//Items: Diamond_Ring,
-	if (sex == 0) getitem 2635,1;//Items: Wedding_Ring_F,
-	if (sex == 1) getitem 2634,1;//Items: Wedding_Ring_M,
-	set @get_ring,1;
-	close;
-L_CancelWedding:
-	mes "[Tristan the Third]";
-	mes "The wedding has been cancelled by "+strcharinfo(0)+".";
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set @register,0;
-	set event_wedding,0;
-	set @get_ring,0;
-	deltimer "a1";
-	deltimer "a2";
-	deltimer "a3";
-	deltimer "a4";
-	deltimer "a5";
-	deltimer "a6";
-	deltimer "a7";
-	deltimer "a8";
-	deltimer "a9";
-	deltimer "a10";
-	deltimer "a11";
-	deltimer "a12";
-	deltimer "a13";
-	close;	
-L_GroomNeedToRegister:
-	mes "[Tristan the Third]";
-	mes "Hello, please register with Marry if you want me to perform a marriage for you.";
-	close;
-L_Wedding:
-	if(event_wedding != 1) goto L_Guest;
-	mes "[Tristan the Third]";
-	mes "Hello again "+strcharinfo(0)+", I hope wish for the best of luck in your life.";
-	close;
-L_BrideNeedToRegister:
-	mes "[Tristan the Third]";
-	mes "I'm sorry, I cannot start the ceremony if the bride has not registered yet.";
-	close;
-L_OtherReason:
-	if(@get_ring == 1) goto L_Wedding;
-	mes "[Tristan the Third]";
-	mes "Do you have a reason why these two should not be bonded in holy matrimony?";
-	next;
-	menu "Yes I Do.",-,"No",L_NoReason;
-	areaannounce "prt_church.gat",0,0,350,350,"Ladies and Gentlemen,"+strcharinfo(0)+" has an objection to this marriage",0;
-	mes "[Tristan the Third]";
-	mes "Please enter your reason, for this action.";
-	input $reason$;
-	next;
-	areaannounce "prt_church.gat",0,0,350,350,""+$reason$+"",0;
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set $name$,"null";
-	set $name2$,"null";	
-	set @register,0;
-	set event_wedding,0;
-	set @get_ring,0;
-	deltimer "a1";
-	deltimer "a2";
-	deltimer "a3";
-	deltimer "a4";
-	deltimer "a5";
-	deltimer "a6";
-	deltimer "a7";
-	deltimer "a8";
-	deltimer "a9";
-	deltimer "a10";
-	deltimer "a11";
-	deltimer "a12";
-	mes "The wedding has been called off.";
-	close;
-L_NoReason:
-	if($groom$ == strcharinfo(0)) goto L_InProgress;
-	if($bride$ == strcharinfo(0)) goto L_InProgress;
-	mes "[Tristan the Third]";
-	mes "Please have a seat than and let me continue the wedding.";	
-	close;
-L_Guest:
-	mes "[Tristan the Third]";
-	mes "Enjoy the cerimony.";
-	mes "But I must continue the cerimony, so lets talk after.";
-	close;
-L_InProgress:
-	mes "[Tristan the Third]";
-	mes "Your wedding is in progress, please try talking with me later.";
-	close;
-L_WrongBrideName:
-	mes "[Marry Happy]";
-	mes "How come you forgot your wife's name!? Sorry come back later when you know who you want to marry.";
-	close;
-L_WrongGroomName:
-	mes "[Marry Happy]";
-	mes "How come you forgot your husband's name!? Sorry come back later when you know who you want to marry.";
-	close;
-L_NeedRing:
-	mes "[Tristan the Third]";
-	mes "You need a Diamond Ring in order to perform the wedding.";
-	close;
-L_Attire:
-	if(sex == 1) goto L_NeedTuxedo;
-	if(sex == 0) goto L_NeedDress;
-	close;
-L_NeedTuxedo:
-	mes "[Tristan the Third]";
-	mes "You need a Tuxedo before we can continue the ceremony.";
-	close;
-L_NeedDress:
-	mes "[Tristan the Third]";
-	mes "Oh my is it your wedding day?";
-	mes "Well sorry to break it to you, you need a wedding dress to get married.";
-	close;
-}
-
-// Marry
-prt_church.gat,95,100,4	script	Marry	71,{
-// Set the ceremony prices here. A for @outfit==0 and B for @outfit==1.
-// Real prices are 1,3m for males and 1,2m for females. Set at your own will.
-	set @costgroomA,120000;
-	set @costgroomB,60000;
-	set @costbrideA,100000;
-	set @costbrideB,50000;
-	mes "[Marry Happy]";
-	mes "Marriage refers to a hope of everybody to find the desired happiness.";
-	mes "So may i ask, is there someone special you wish to be with forever?";
-	next;
-	menu "Inquire about the wedding ceremony.",L_Principles,"Inquire about the procedure of wedding ceremony.",L_WeddingSystem,"Apply for a wedding ceremony.",L_Marry,"We are the invincible single army!",L_LiveSolo,"Special Menu",L_GmMenu;
-L_GmMenu:
-	set @gmlevel,getgmlevel(50);
-	if(@gmlevel < 50) goto L_NotGM;
-	mes "Hello " + strcharinfo(0) + " How i can serve you?";
-	menu "Enable Same-Sex Weddings",L_EnableSameSex,"Disable Same-Sex Weddings",L_DisableSameSex,"Reset the Variables",L_ResetVariables,"Just Checking...",L_Bye;
-L_NotGM:
-	mes "You cant have access to this special menu " + strcharinfo(0) + "";
-	mes "Only GMs can change the ceremony options.";
-	close;
-L_EnableSameSex:
-	set $samesex,1;
-	mes "Same-Sex Weddings are enabled now!";
-	close;
-L_DisableSameSex:
-	set $samesex,0;
-	mes "Same-Sex Weddings are disabled now!";
-	close;
-L_ResetVariables:
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set $name$,"null";
-	set $name2$,"null";
-	set @register,0;
-	set event_wedding,0;
-	set @get_ring,0;
-	set @outfit,0;
-	deltimer "weddinglimit1";
-	deltimer "weddinglimit2";
-	deltimer "a1";
-	deltimer "a2";
-	deltimer "a3";
-	deltimer "a4";
-	deltimer "a5";
-	deltimer "a6";
-	deltimer "a7";
-	deltimer "a8";
-	deltimer "a9";
-	deltimer "a10";
-	deltimer "a11";
-	deltimer "a12";
-	deltimer "a13";
-	mes "All variables are reseted and timers off!";
-	close;
-L_Principles:
-	mes "[Marry Happy]";
-	mes "His Majesty King Tristan III of the Rune Midgard Kingdom will be officiating this wedding, with the intent of blessing all the people through his noble message.";
-	next;
-	mes "[Marry Happy]";
-	mes "Although His Majesty has a rather busy agenda, for the sake of newly married couples, he has personally come here, to the Prontera Church.";   
-	mes "It is the favor of our King that everyone would live happily ever after.";
-	next;
-	mes "[Marry Happy]";
-	mes "The proposal must be done with prudence and courtesy.";
-	mes "Once the wedlocks have been made, they cannot be undone.";
-	mes "The two who are united in marriage must be with the other forever until the day they leave this world.";
-	next;
-	mes "[Marry Happy]";
-	mes "Also, males only with females, and females only with males can be wed.  Although there may be those who desire a homosexual or bestial marriage... it is approved.";
-	next;
-	mes "[Marry Happy]";
-	mes "If there is a significant other whom you want to spend the rest of your life with, then don't be shy to propose.";
-	mes "Wishing for many blessings upon couples who wish to live happily ever after..";
-	close;
-L_WeddingSystem:
-	mes "[Marry Happy]";
-	mes "First make sure both players a registered to get married.";
-	mes "Obviously, you must know each other to get married?";
-	mes "If both have registered, and you must be on the same party.";
-	mes "Then talk to Thristan the Third.";
-	next;
-	mes "[Marry Happy]";
-	mes "You must go to Thristan the Third,";
-	mes "and the Groom must talk to him first.";
-	mes "And you must tell him the Bride";
-	mes "you wish to get married with.";
-	mes "Be sure to tell him exactly who you want to marry.";
-	next;
-	mes "[Marry Happy]";
-	mes "After the Groom has spoken, next the Bride must talk.";
-	mes "Then when both of you have spoken each others names,";
-	mes "Thristan the third will read out both of your names.";
-	next;
-	mes "[Marry Happy]";
-	mes "After you have got married,";
-	mes "you will both recive a ring of marrige.";
-	mes "And as soon as both of you wear these rings,";
-	mes "you will be forever married with each other.";
-	mes "You can also be refused of a lasting marrige.";
-	mes "But, dont be sad.";
-	next;
-	mes "[Marry Happy]";
-	mes "If there are many people that wish to get married,";
-	mes "So please keep to the order you register.";
-	mes "Thristan does not do multiple marriges at once.";
-	mes "He will only see one couple at a time.";
-	next;
-	mes "[Marry Happy]";
-	mes "Lastly, you must put forth your name quickly";
-	mes "to Thristan the third.";
-	mes "After the male has said yes to marrage ";
-	mes "the female has 3 minutes to reply.";
-	mes "Or you shall forever never be able";
-	mes "to get married.";
-	next;
-	mes "[Marry Happy]";
-	mes "An easy way to write down the each others name,";
-	mes "Send a message to each other";
-	mes "then in the private message window press up";
-	next;
-	mes "[Marry Happy]";
-	mes "Then it will show the other persons name.";
-	mes "If you press ctrl + C that name will be saved.";
-	mes "Next time you need that name";
-	mes "you can press shift + insert.";
-	mes "Then you will get that name quickly and easily.";
-	next;
-	mes "[Marry Happy]";
-	mes "You should have a go at using this method.";
-	mes "Remeber, Press ctrl +  C to save that name.";
-	next;
-	input $nametest$;
-	mes "[Marry Happy]";
-	mes "Hopefully you will remember this method.";
-	mes "If you ever decide to get married.";
-	mes "Remember to register.";
-	close;
-L_Marry:
-	mes "[Marry Happy]";
-	mes "If you wish to get married you must first register.";
-	mes "Male is ^FF00FF" + @costgroomA + "^000000 zeny and female is ^FF00FF" + @costbrideA + "^000000 zeny";
-	if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) mes "But only ^FF00FF" + @costgroomB + "^000000 zeny for male and ^FF00FF" + @costbrideB + "^000000 zeny for female if you already have registered before";
-	mes "Both male and female must have registered,";
-	mes "and both must have paid fees, have Diamond Rings and be on same party!";
-	mes "The Bride will get a Wedding Dress, while the Groom will get a Chinese Tuxedo";
-	next;
-	mes "[Marry Happy]";
-	mes "If both people have paid and meet recquirements";
-	mes "you are able to get married strait away.";
-	mes "One must be the Groom and the other the Bride.";
-	mes "Do you wish to register to get married?";
-	if($SameSex == 1)	menu "I'm gonna be the Groom",-,"I'm gonna be the Bride",L_BrideRegister,"Never mind",L_Bye;
-	if(event_wedding == 1) goto L_Married;
-	if(@register >= 1) goto L_AlreadyRegistered;
-	if($@progress >= 2) goto L_InProgress;
-	if(($samesex == 0) && (sex == 0)) goto L_BrideRegister;
-	if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_GroomRegister2;
-	mes "[Marry Happy]";
-	if(sex == 1) mes "No problem sir, please fill out your name here.";
-	if(sex == 0) mes "No problem miss, please fill out your name here.";
-	mes "And I'll need to collect a " + @costgroomA + " zeny fee for your wedding fees and outfit.";
-	next;
-	mes "[Marry Happy]";
-	mes "Now You Must Insert The Your Bride's Name";
-	input $name$;
-	next;
-	if(zeny < @costgroomA) goto L_NeedZeny1;
-	set $groom$,strcharinfo(0);
-	set @register,1;
-	set zeny,zeny-@costgroomA;
-	set $@progress,1;
-	if(sex == 1) getitem 7170,1;
-	if(sex == 0) getitem 2338,1;
-	set @outfit,1;
-	mes "[Marry Happy]";
-	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your marriage.";
-	addtimer 300000,"weddinglimit1";
-	areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" has registered for the wedding.",0;
-	next;
-	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";	
-	deltimer "a13";
-	addtimer 300000,"a13";
-	close;
-L_BrideRegister:
-	if ($name$ != strcharinfo(0)) goto L_NotBride;
-	if($groom$ == strcharinfo(0)) goto L_CantMarryYourself;
-	if($@progress != 1) goto L_GroomNotRegistered;
-	if(@register >= 1) goto L_AlreadyRegistered;
-	if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_BrideRegister2;
-	mes "[Marry Happy]";
-	if(sex == 1) mes "No problem sir, please fill out your name here.";
-	if(sex == 0) mes "No problem miss, please fill out your name here.";
-	mes "And I'll need to collect a 100,000z fee for your wedding fees and outfit.";
-	next;
-	if(zeny < @costbrideA) goto L_NeedZeny2;
-	mes "[Marry Happy]";
-	mes "Now You Must Insert The Your Groom's Name";
-	input $name2$;
-	if($name2$ != $groom$) goto L_WrongName;
-	set $bride$,strcharinfo(0);
-	set @register,1;
-	set zeny,zeny-@costbrideA;
-	set $@progress,2;
-	set event_wedding,1;
-	if(sex == 1) getitem 7170,1;
-	if(sex == 0) getitem 2338,1;
-	set @outfit,1;
-	deltimer "weddinglimit1";
-	addtimer 300000,"weddinglimit2";
-	next;
-	mes "[Marry Happy]";
-	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your wedding.";
-	areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" has registered for the wedding.",0;
-	next;
-	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";
-	deltimer "a13";
-	addtimer 300000,"a13";
-	close;
-
-L_GroomRegister2:
-	mes "[Marry Happy]";
-	if(sex == 1) mes "No problem sir, please fill out your name here.";
-	if(sex == 0) mes "No problem mis, please fill out your name here.";
-	mes "And I'll need to collect a 60,000z fee for your wedding fees.";
-	next;
-	mes "[Marry Happy]";
-	mes "Now You Must Insert The Your Bride's Name";
-	input $name$;
-	next;
-	if(zeny < @costgroomB) goto L_NeedZeny3;
-	set $groom$,strcharinfo(0);
-	set @register,1;
-	set zeny,zeny-@costgroomB;
-	set $@progress,1;
-	mes "[Marry Happy]";
-	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your marriage.";
-	addtimer 300000,"weddinglimit1";
-	areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" has registered for the wedding.",0;
-	next;
-	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";	
-	deltimer "a13";
-	addtimer 300000,"a13";
-	close;
-L_BrideRegister2:
-	mes "[Marry Happy]";
-	if(sex == 1) mes "No problem sir, please fill out your name here.";
-	if(sex == 0) mes "No problem mis, please fill out your name here.";
-	mes "And I'll need to collect a 50,000z fee for your wedding fees.";
-	next;
-	if(zeny < @costbrideB) goto L_NeedZeny4;
-	mes "[Marry Happy]";
-	mes "Now You Must Insert The Your Groom's Name";
-	input $name2$;
-	if($name2$ != $groom$) goto L_WrongName;
-	set $bride$,strcharinfo(0);
-	set @register,1;
-	set zeny,zeny-@costbrideB;
-	set $@progress,2;
-	set event_wedding,1;
-	deltimer "weddinglimit1";
-	addtimer 300000,"weddinglimit2";
-	next;
-	mes "[Marry Happy]";
-	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your wedding.";
-	areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" has registered for the wedding.",0;
-	next;
-	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";
-	deltimer "a13";
-	addtimer 300000,"a13";
-	close;
-
-L_NeedZeny1:
-	set @zleft,@costgroomA-zeny;
-	mes "[Marry Happy]";
-	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";
-	set @zleft,0;
-	close;
-L_NeedZeny2:
-	set @zleft,@costbrideA-zeny;
-	mes "[Marry Happy]";
-	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";
-	set @zleft,0;
-	close;
-L_NeedZeny3:
-	set @zleft,@costgroomB-zeny;
-	mes "[Marry Happy]";
-	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";
-	set @zleft,0;
-	close;
-L_NeedZeny4:
-	set @zleft,@costbrideB-zeny;
-	mes "[Marry Happy]";
-	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";
-	set @zleft,0;
-	close;
-L_AlreadyRegistered:
-	mes "[Marry Happy]";
-	mes "You can't register a second time silly.";
-	close;
-
-L_Bye:
-	mes "[Marry Happy]";
-	mes "Alrighty then, come back soon!";
-	close;
-
-L_InProgress:
-	mes "[Marry Happy]";
-	mes "I cannot accept registrations while a wedding is in progress, try again later.";
-	close;
-L_WrongName:
-	mes "[Marry Happy]";
-	mes "No one have registered with that name. Sorry.";
-	close;
-L_GroomNotRegistered:
-	mes "[Marry Happy]";
-	mes "The groom must register first in order to initiate the wedding.";
-	close;
-	
-L_Married:
-	mes "[Marry Happy]";
-	mes "Hello again "+strcharinfo(0)+", I hope wish for the best of luck in your life.";
-	close;
-L_LiveSolo:
-	mes "[Marry Happy]";
-	mes "Well live a happy bachelors life";
-	close;
-L_NotBride:
-	mes "[Marry Happy]";
-	mes "You're not the bride";
-	close;
-L_YouCantMarryYourself:
-	mes "[Marry Happy]";
-	mes "What the hell you trying to do? Marry yourself?O_O";
-	close;
-}
-
-prt_church.gat,95,95,4	script	Marry	71,{
-	mes "[Marry Sad]";
-	mes "Getting divorce can bring a lot of sorrow.";
-	mes "By any chance, you you want to get divorced?";
-	next;
-	menu "I came to get a divorce",L_FirstDivorce,"What do I need for a divorce",L_DivorceSystem;
-L_FirstDivorce:
-	if(divorce > 0) goto L_AlreadyDivorced;
-	mes "[Marry Sad]";
-	mes "So you came for a divorce, i have been divorced 2 times myself.";
-	mes "Life will continue whoever said you need a partner was wrong.";
-	mes "Dont forget that you and your partner must be online!";
-	next;
-	menu "Are you sure",-,"No i'm not ready",L_No;
-	mes "[Marry Sad]";
-	mes "You have made your choice,";
-	mes "now you must live with it.";
-	next;
-	mes "You have been divorced!";
-	set event_wedding,0;
-	set divorce,1;
-	set @register,0;
-	divorce;
-	close;
-L_AlreadyDivorced:
-	mes "[Marry Sad]";
-	mes "So you came for another divorce,wow you must be trying to find true love.";
-	mes "Dont worry about it, it's not you, it's their fault.";
-	next;
-	menu "Are you sure",-,"No i'm not ready",L_No;
-	mes "[Marry Sad]";
-	mes "You have made your choice,";
-	mes "now you must live with it.";
-	next;
-	mes "You have been divorced again!";
-	set event_wedding,0;
-	set divorce,2;
-	set @register,0;
-	divorce;
-	close;
-L_No:
-	mes "[Marry Sad]";
-	mes "You should always be sure about what step you take in life.";
-	close;
-L_DivorceSystem:
-	mes "[Marry Sad]";
-	mes "You just need to wish to not be married again and i will perform the divorce.";
-	mes "Both you and your partner must be online.";
-	close;
-}
-prt_church.gat,99,124,0	script	weddinglimit1	-1,{
-	announce "The bride has not registered within the alotted time frame.",3;
-	announce "Your wedding has been cancelled.",3;
-	set $@progress,0;
-	set $groom$,"null";
-	set $name$,"null";
-	set $name2$,"null";
-	set @register,0;
-	deltimer "a1";
-	deltimer "a2";
-	deltimer "a3";
-	deltimer "a4";
-	deltimer "a5";
-	deltimer "a6";
-	deltimer "a7";
-	deltimer "a8";
-	deltimer "a9";
-	deltimer "a10";
-	deltimer "a11";
-	deltimer "a12";
-}
-
-prt_church.gat,99,124,0	script	weddinglimit2	-1,{
-	announce "The groom has not begun the wedding ceremony by speaking to Tristan the Third.",3;
-	announce "Your wedding has been cancelled.",3;
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set $name$,"null";
-	set $name2$,"null";
-	set @register,0;
-	set event_wedding,0;
-	deltimer "a1";
-	deltimer "a2";
-	deltimer "a3";
-	deltimer "a4";
-	deltimer "a5";
-	deltimer "a6";
-	deltimer "a7";
-	deltimer "a8";
-	deltimer "a9";
-	deltimer "a10";
-	deltimer "a11";
-	deltimer "a12";
-}
-
-prt_church.gat,99,124,0	script	a1	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"Ladies and Gentlemen, We will now join in holy matrimony these two lovers.",0;
-}
-prt_church.gat,99,124,0	script	a2	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"Now more than ever, will both of your lives be entwined together as so will be your souls.",0;
-}
-prt_church.gat,99,124,0	script	a3	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"You will both honor and cherish each other through the best and worst of times.",0;
-}
-prt_church.gat,99,124,0	script	a4	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"The safety and well being of your other will now also be your responsibility.",0;
-}
-prt_church.gat,99,124,0	script	a5	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"May in sickness or good health, your love will burn bright as no force can extinguish it.",0;
-}
-prt_church.gat,99,124,0	script	a6	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"Those here stand witness to these vows bestowed upon you, you must act accordingly to them.",0;
-}
-prt_church.gat,99,124,0	script	a7	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"Understanding that, we are nothing more but mortals on this earth, but this is our triumph.",0;
-}
-prt_church.gat,99,124,0	script	a8	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"We here will now join these two mortal entities, and create an immortal love.",0;
-}
-prt_church.gat,99,124,0	script	a9	-1,{
-areaannounce "prt_church.gat",0,0,350,350,$groom$+", do you you wish to take "+$bride$+" as your lawfully beloved wife?",0;
-}
-prt_church.gat,99,124,0	script	a10	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"And do you "+$bride$+", wish to take "+$groom$+" as your lawfully beloved husband?",0;
-}
-prt_church.gat,99,124,0	script	a11	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"And so be it, by the powers vested in me...",0;
-}
-prt_church.gat,99,124,0	script	a12	-1,{
-areaannounce "prt_church.gat",0,0,350,350,"I pronouce you Husband and Wife, you may kiss the bride.",0;
-	wedding;
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set $name$,"null";
-	set $name2$,"null";	
-}
-prt_church.gat,99,124,0	script	a13	-1,{
-
-areaannounce "prt_church.gat",0,0,350,350,"The wedding has been cancelled.",0;
-	set $@progress,0;
-	set $groom$,"null";
-	set $bride$,"null";
-	set $name$,"null";
-	set $name2$,"null";
-	set @register,0;
-	set event_wedding,0;
-	set @get_ring,0;
-}

npc/other/old/weddingtxt.txt

@@ -1,277 +0,0 @@
-//UNFINISHED! need to set names and give rings!
-//Made by AppleGirl and Evera/Lorri.
-//PROPERTY OF eATHENA! OTHER ATHENAS DON'T TOUCH THIS!
-//Note: permanent variables event_marriage. 0=nothing done yet 1=m registered 2=f registered 3=m before ring 4=f before ring 5=m married 6=f married
-
-prt_church.gat,99,125,8	script	Tristan the Third	108,{
-mes "[Thristan the Third]";
-if(event_marriage == 0) goto Lreg;
-if(event_marriage == 1) goto Lmale;
-if(event_marriage == 2) goto Lfemale;
-if(event_marriage == 3) && (countitem(2634)<1) || (event_marriage == 3) && (getequipname(136) == 2634) goto Lmcere;
-if(event_marriage == 4) && (countitem(2635)<1) || (event_marriage == 4) && (getequipname(136) == 2635) goto Lfcere;
-if(event_marriage >= 5) goto Lhappy;
-//else goto Lhappy;
-//if(even
-Lreg:
-mes "If you wish to get married you must first register";
-Lmale:
-if (getequipname(16) == 7170) goto Lmale2;
-if (getequipname(16) != 7170) goto Lmale3;
-mes "OmG1! H4X0Rz!1";
-close;
-Lmale2:
-if (zeny >= 30000) goto Lmale4;
-if (zeny <= 29999) goto Lmale3;
-mes "OmG1! H4X0Rz!1";
-close;
-//NOTE! Triggers to save/respond names aren't done!
-Lmale4:
-	mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
-	mes "Do you wish to marry?";
-menu
-"yes",Lmyes,"No",Lcancel;
-Lmyes:
-//enable for input; can't be done with current script.c
-//	mes"What is your bride's name?";
-//	input @namemale;
-	next;
-	mes "I will now collect your ^FF00FFmoney^000000.";
-	set Zeny, Zeny-30000;
-	next;
-//enable for input; can't be done with current script.c
-//	input @namemale;
-	mes "Here is the ring. Please put it on your bride's hand";
-	mes "By the holy power invested in me..";
-	mes "I now pronounce you husband and wife!";
-	mes "you may now kiss the bride.";
-	emotion 46;
-//enable for setvariable
-	set event_marriage,3;
-	getitem 2634,1;
-	close;
-Lmale3:
-	mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
-	mes "Have a good look for it.";
-	mes "Because you must bring it in order to get married.";
-	mes "If you have it right now, please show me";
-close;
-Lfemale:
-if (zeny >= 20000) goto Lfemale4;
-if (zeny <= 19999) goto Lfemale3;
-mes "OmG1! H4X0Rz!1";
-close;
-Lfemale4:
-	mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
-	mes "Do you wish to marry?";
-menu
-"yes",Lfyes,"No",Lcancel;
-Lfyes:
-//enable for input; can't be done with current script.c
-//	mes "What is your groom's name?";
-//	input @namefemale;
-	next;
-	mes "I will now collect your ^FF00FFmoney^000000.";
-	set Zeny, Zeny-20000;
-	next;
-//enable for input; can't be done with current script.c
-	input @namefemale;
-	mes "Here is the ring. Please put it on your groom's hand";
-	mes "By the holy power invested in me..";
-	mes "I now pronounce you husband and wife!";
-//enable for setvariable
-	set event_marriage,4;
-	getitem 2635,1;
-	close;
-Lfemale3:
-	mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
-	mes "Have a good look for it.";
-	mes "Because you must bring it in order to get married.";
-	mes "If you have it right now, please show me";
-close;
-Lmcere:
-	mes "By the holy power invested in me..";
-	mes "I now pronounce you husband and wife!";
-	mes "you may now kiss the bride.";
-	emotion 46;
-	set event_marriage,5;
-close;
-Lfcere:
-	
-	mes "By the holy power invested in me..";
-	mes "I now pronounce you husband and wife!";
-	emotion 46;
-	set event_marriage,6;
-close;
-Lhappy:
-mes "I hope your marriage is happy and successful!";
-close;
-Lcancel:
-mes "A true pity. I hope to see you another time.";
-close;
-}
-prt_church.gat,95,100,3	script	Mary	71,{
-mes "[Mary Happy]";
-if(event_marriage == 0) goto Lstart;
-if(event_marriage != 0) goto Lhappy;
-mes "OmG1! H4X0Rz!1";
-close;
-Lstart:
-mes "Getting married bring a lot of joy.";
-mes "By any chance, you you want to get engaged with someone?";
-next;
-menu "Explain the principles of Marrige",Lprinciples,"How does the marrige system work.",Lsystem,"I want to get married with someone.",Lmarried,"I live solo forever!",Lsolo;
-
-Lprinciples:
-	mes "[Mary Happy]";
-	mes "His Majesty King Tristan III of the Rune Midgard Kingdom will be officiating this wedding, with the intent of blessing all the people through his noble message.";
-	next;
-	mes "[Mary Happy]";
-	mes "Although His Majesty has a rather busy agenda, for the sake of newly married couples, he has personally come here, to the Prontera Church.";   
-	mes "It is the favor of our King that everyone would live happily ever after.";
-	next;
-	mes "[Mary Happy]";
-	mes "The proposal must be done with prudence and courtesy.";
-	mes "Once the wedlocks have been made, they cannot be undone.";
-	mes "The two who are united in marriage must be with the other forever until the day they leave this world.";
-	next;
-	mes "[Mary Happy]";
-	mes "Also, males only with females, and females only with males can be wed.  Although there may be those who desire a homosexual or bestial marriage... it is not approved.";
-	next;
-	mes "[Mary Happy]";
-	mes "If there is a significant other whom you want to spend the rest of your life with, then don't be shy to propose.";
-	mes "Wishing for many blessings upon couples who wish to live happily ever after..";
-	close;
-Lsystem:
-	mes "[Mary Happy]";
-	mes "First make sure both players a registered to get married.";
-	mes "Obviously, you must know each other to get married?";
-	mes "If both have registered, and you must be on the same party.";
-	mes "Then talk to Thristan the Third.";
-	next;
-	mes "[Mary Happy]";
-	mes "You must go to Thristan the Third,";
-	mes "and the male must talk to him first.";
-	mes "And you must tell him the girl";
-	mes "you wish to get married with.";
-	mes "Be sure to tell him exactly who you want to marry.";
-	next;
-	mes "[Mary Happy]";
-	mes "After the male has spoken, next the female must talk.";
-	mes "Then when both of you have spoken each others names,";
-	mes "Thristan the third will read out both of your names.";
-	next;
-	mes "[Mary Happy]";
-	mes "After you have got married,";
-	mes "you will both recive a ring of marrige.";
-	mes "And as soon as both of you wear these rings,";
-	mes "you will be forever married with each other.";
-	mes "You can also be refused of a lasting marrige.";
-	mes "But, dont be sad.";
-	next;
-	mes "[Mary Happy]";
-	mes "If there are many people that wish to get married,";
-	mes "So please keep to the order you register.";
-	mes "Thristan does not do multiple marriges at once.";
-	mes "He will only see one couple at a time.";
-	next;
-	mes "[Mary Happy]";
-	mes "Lastly, you must put forth your name quickly";
-	mes "to Thristan the third.";
-	mes "After the male has said yes to marrage ";
-	mes "the female has 3 minutes to reply.";
-	mes "Or you shall forever never be able";
-	mes "to get married.";
-	next;
-	mes "[Mary Happy]";
-	mes "An easy way to write down the each others name,";
-	mes "Send a message to each other";
-	mes "then in the private message window press up";
-	next;
-//o_O who removed this part? we use a diff system now
-//	mes "[Mary Happy]";
-//	mes "Then it will show the other persons name.";
-//	mes "If you press ctrl + C that name will be saved.";
-//	mes "Next time you need that name";
-//	mes "you can press shift + insert.";
-//	mes "Then you will get that name quickly and easily.";
-//	next;
-//	mes "[Mary Happy]";
-//	mes "You should have a go at using this method.";
-//	mes "Remeber, Press ctrl +  C to save that name.";
-//	next;
-//	input @nametest;
-	mes "[Mary Happy]";
-	mes "Hopefully you will remember this method.";
-	mes "If you ever decide to get married.";
-	mes "Remember to register.";
-Lmarried:
-	mes "[Mary Happy]";
-	mes "If you wish to get married you must first register.";
-	mes "Male is ^FF00FF30,000^000000 zeny and female is ^FF00FF20,000^000000 zeny";
-	mes "Both male and female must have registered,";
-	mes "and both must have paid fees,";
-	mes "and the female must have a wedding veil.";
-	next;
-	mes "[Mary Happy]";
-	mes "If both people have paid and meet recquirements";
-	mes "you are able to get married strait away.";
-	mes "Do you wish to register to get married?";
-	menu "Yes",LYes,"No",LNo;
-LYes:
-//add check for sex and if veil and tuxedo and wedding dress
-if (Sex == 1) goto Lmale;
-if (Sex == 0) goto Lfemale;
-Lmale:
-if (getequipname(16) == 7170) goto Lmale2;
-if (getequipname(16) != 7170) goto Lmale3;
-mes "[Mary Happy]";
-mes "OmG1! H4X0Rz!1";
-close;
-Lmale2:
-if (zeny >= 30000) goto Lmale4;
-if (zeny <= 29999) goto Lmale3;
-mes "[Mary Happy]";
-mes "OmG1! H4X0Rz!1";
-close;
-Lmale4:
-	set event_marriage,1;
-	mes "[Mary Happy]";
-	mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
-close;
-Lmale3:
-	mes "[Mary Happy]";
-	mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
-	mes "Have a good look for it.";
-	mes "Because you must bring it in order to get married.";
-	mes "If you have it right now, please show me";
-close;
-
-Lfemale:
-if (getequipname(16) == 2338) && (getequipname(256) == 2206) goto Lfemale2;
-if (getequipname(16) != 2338) || (getequipname(256) == 2206) goto Lfemale3;
-mes "[Mary Happy]";
-mes "OmG1! H4X0Rz!1";
-Lfemale2:
-if (zeny >= 20000) goto Lfemale4;
-if (zeny <= 19999) goto Lfemale3;
-mes "[Mary Happy]";
-mes "OmG1! H4X0Rz!1";
-Lfemale4:
-	set event_marriage,2;
-	mes "[Mary Happy]";
-	mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
-Lfemale3:
-	mes "[Mary Happy]";
-	mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
-	mes "Have a good look for it.";
-	mes "Because you must bring it in order to get married.";
-	mes "If you have it right now, please show me";
-close;
-LNo:	
-	mes "I hope you have a wonderful day!";
-close;
-Lhappy:
-	mes "I hope your marriage is happy and successful!";
-close;
-}

npc/quests/skills/alchemist_skills.txt

@@ -92,7 +92,7 @@ L_nojob:
 //=====================Requires Bug Testing=====================
 lhz_in01.gat,46,125,6	script	Rekenber Guard	867,{
 	mes "[Rekenber Guard]";
-	if(getequipid(9) == 2243){
+	if(isequipped(2241) && isequipped(2243)){
 		mes "......................";
 		next;
 		switch(select("Nice day, huh?","Cancel")){
@@ -255,7 +255,7 @@ lhz_in01.gat,224,140,8	script	Kellasus	57,{
 		input @kelques$;
 		next;
 		mes "[Kellasus]";
-		if(@kelques$ != "Rest"){
+		if(@kelques$ != "Vaporize"){
 			mes "Hmpf. I knew you had";
 			mes "no knowledge on";
 			mes "homunculus.";
@@ -269,7 +269,7 @@ lhz_in01.gat,224,140,8	script	Kellasus	57,{
 		input @kelques$;
 		next;
 		mes "[Kellasus]";
-		if(@kelques$ != "Germination Breed"){
+		if(@kelques$ != "Embryo"){
 			mes "Hmpf. I knew you had";
 			mes "no knowledge on";
 			mes "homunculus.";
@@ -283,7 +283,7 @@ lhz_in01.gat,224,140,8	script	Kellasus	57,{
 		input @kelques$;
 		next;
 		mes "[Kellasus]";
-		if(@kelques$ != "Resurrect Homunculus"){
+		if(@kelques$ != "Homunculus Ressurection"){
 			mes "Hmpf. I knew you had";
 			mes "no knowledge on";
 			mes "homunculus.";
@@ -323,8 +323,9 @@ lhz_in01.gat,224,140,8	script	Kellasus	57,{
 		mes "...";
 		next;
 		mes "[Kellasus]";
-		mes "I guess I could teach you a few skills..";
-		//Gives player bio ethics and sets bitshift for quest finished
+		mes "He wants me to get back? Okay, well...";
+		mes "I guess you've deserved it.";
+		mes "Here you are, secrets of homunculus are yours now~";
 		if(BaseJob == Job_Alchem) skill 238,1,0;
 		set MISC_QUEST,MISC_QUEST|64;
 		set bioeth,0;
@@ -405,24 +406,23 @@ lhz_in01.gat,225,122,4	script	Skrajiad	754,{
 	mes "be a master of all trades";
 	mes "to be proficient in Alchemy";
 	mes "But it's incredibly rewarding to";
-	mes "those of us who never stop askins";
+	mes "those of us who never stop asking";
 	mes "how and why our world works.";
 	if(bioeth == 1) set bioeth,2;
 	close;
 }
 lhz_in02.gat,269,273,4	script	Bringel	709,{
 //Unofficial Text
-	if(bioeth > 3 || MISC_QUEST&64){
-		if(getskilllv(247) == 0 && BaseJob == Job_Alchem) skill 247,1,0;
-	}
 	if(bioeth == 3){
 		mes "[Bringel]";
-		mes "I see you're here to";
-		mes "learn about homunculus...";
-		mes "I will teach you a";
-		mes "valuable skill to use.";
-		//Learn res homun
-		if(BaseJob == Job_Alchem) skill 247,1,0;
+		mes "Oh, you're here to learn about Homunculus?";
+		mes "Well, I can't really help you...";
+		next;
+		mes "[Bringel]";
+		mes "However, I've heard about a skill named";
+		mes "Homunculus Ressurection.";
+		mes "It seems it is a very important thing";
+		mes "for people working on them.";
 		set bioeth,4;
 		close;
 	}

npc/scripts_athena.conf

@@ -55,9 +55,6 @@ npc: npc/merchants/kunai_maker.txt
 npc: npc/merchants/socket_enchant.txt
 npc: npc/merchants/ammo_boxes.txt
 npc: npc/merchants/ammo_dealer.txt
-// Temp Shops
-// Removed in kRO (because Scrolls have been added into mobs drops)
-//npc: npc/merchants/scrolls_arrows.txt
 // --------------------------------------------------------------
 // -------------------------- Airport ---------------------------
 npc: npc/airports/airships.txt
@@ -177,7 +174,7 @@ npc: npc/other/msg_boards.txt
 npc: npc/other/bulletin_boards.txt
 npc: npc/other/monster_museum.txt
 npc: npc/other/marriage.txt
-npc: npc/other/divorce.txt
+//npc: npc/other/divorce.txt
 npc: npc/other/dts_warper.txt
 npc: npc/other/comodo_gambling.txt
 // --------------------------------------------------------------