summaryrefslogtreecommitdiff
path: root/npc/other/old
diff options
context:
space:
mode:
authorValaris <Valaris@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-01-29 16:10:48 +0000
committerValaris <Valaris@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-01-29 16:10:48 +0000
commit620e60eebce2c1f35c5c9a82f6ca365b316587f5 (patch)
tree38a39e0415f419d9a49ae456ed0e26654c23d559 /npc/other/old
parenta2675f07d7da22a7c6ae11f545bf8f671e785a82 (diff)
downloadhercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.gz
hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.bz2
hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.tar.xz
hercules-620e60eebce2c1f35c5c9a82f6ca365b316587f5.zip
AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.
IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK. EVERYTHING ELSE GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/other/old')
-rw-r--r--npc/other/old/guide.txt1153
-rw-r--r--npc/other/old/kafra.txt1866
-rw-r--r--npc/other/old/pvp.txt1455
-rw-r--r--npc/other/old/wedding.txt715
-rw-r--r--npc/other/old/weddingtxt.txt277
5 files changed, 5466 insertions, 0 deletions
diff --git a/npc/other/old/guide.txt b/npc/other/old/guide.txt
new file mode 100644
index 000000000..40f49d2bb
--- /dev/null
+++ b/npc/other/old/guide.txt
@@ -0,0 +1,1153 @@
+//===== 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;
+}
diff --git a/npc/other/old/kafra.txt b/npc/other/old/kafra.txt
new file mode 100644
index 000000000..dcf05a1ce
--- /dev/null
+++ b/npc/other/old/kafra.txt
@@ -0,0 +1,1866 @@
+//===== 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;
+} \ No newline at end of file
diff --git a/npc/other/old/pvp.txt b/npc/other/old/pvp.txt
new file mode 100644
index 000000000..6dcbdfec3
--- /dev/null
+++ b/npc/other/old/pvp.txt
@@ -0,0 +1,1455 @@
+// 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
diff --git a/npc/other/old/wedding.txt b/npc/other/old/wedding.txt
new file mode 100644
index 000000000..38ed55c2f
--- /dev/null
+++ b/npc/other/old/wedding.txt
@@ -0,0 +1,715 @@
+//////////////////////////////////////////////////////////
+// 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;
+}
diff --git a/npc/other/old/weddingtxt.txt b/npc/other/old/weddingtxt.txt
new file mode 100644
index 000000000..2caea19d6
--- /dev/null
+++ b/npc/other/old/weddingtxt.txt
@@ -0,0 +1,277 @@
+//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;
+} \ No newline at end of file
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-12-26 19:53:32 +0000