random fixing

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10808 54d463be-8e91-2dee-dedb-b68131a5f0ec

2 files changed, 967 insertions, 967 deletions

diff --git a/npc/other/mail.txt b/npc/other/mail.txt
index 09fcc38d4..e84ffb6b2 100644
--- a/npc/other/mail.txt
+++ b/npc/other/mail.txt
@@ -1,129 +1,129 @@
-//===== eAthena Script =======================================

-//= Mail Boxes

-//===== By: ==================================================

-//= L0ne_W0lf

-//===== Current Version: =====================================

-//= 1.0

-//===== Compatible With: =====================================

-//= eAthena SVN

-//===== Description: ========================================= 

-//= [Aegis Conversion]

-//= Pickup and write mail from/to players in game.

-//= Note: Mail System is NOT implemented. These NPCs are only 

-//= place-holders.

-//===== Additional Comments: =================================

-//= 1.0 First version, place holders only. [L0ne_W0lf]

-//============================================================

-

-// Prontera

-//============================================================

-prontera,146,86,0	script	Mailbox#prt::MailBox	888,{

-	mes "[Mailbox]";

-	mes "To use the mailbox service, you are required";

-	mes "to pay 130 zeny.";

-	mes "Would you like to use the service?";

-	next;

-	if (select("Yes.:No.") == 1) {

-		if (Zeny < 130) {

-			mes "[Mailbox]";

-			mes "I am sorry, but you do not have enough money.";

-			mes "To use the mailbox service, you are required";

-			mes "to pay 130 zeny.";

-			close;

-		}

-		mes "[Mailbox]";

-		//Custom messages.

-		mes "Oh, I'm sorry but the";

-		mes "^FF0000Mail System^000000 is still under";

-		mes "construction.";

-		mes " ";

-		mes "No charges have been applied.";

-		//mes "Thank you, please come again."

-		//set Zeny,Zeny-130;

-		//OpenMail

-		close;

-	}

-	mes "[Mailbox]";

-	mes "Thank you, please come again.";

-	close;

-}

-

-prontera,275,213,0	duplicate(MailBox)	Mailbox#2prt	888

-prontera,34,212,0	duplicate(MailBox)	Mailbox#3prt	888

-

-// Izlude

-//============================================================

-izlude,136,94,0	duplicate(MailBox)	Mailbox#iz	888

-

-// Morroc

-//============================================================

-morocc,166,110,0	duplicate(MailBox)	Mailbox#moc	888

-morocc,168,262,0	duplicate(MailBox)	Mailbox#2moc	888

-

-// Geffen

-//============================================================

-geffen,115,67,0	duplicate(MailBox)	Mailbox#gef	888

-geffen,199,125,0	duplicate(MailBox)	Mailbox#2gef	888

-

-// Payon

-//============================================================

-payon,191,104,0	duplicate(MailBox)	Mailbox#pay	888

-payon,171,226,0	duplicate(MailBox)	Mailbox#2pay	888

-pay_arche,55,127,0	duplicate(MailBox)	Mailbox#3pay	888

-

-// Alberta

-//============================================================

-alberta,90,60,0	duplicate(MailBox)	Mailbox#alb	888

-alberta,30,240,0	duplicate(MailBox)	Mailbox#2alb	888

-

-// Al De Baran

-//============================================================

-aldebaran,135,122,0	duplicate(MailBox)	Mailbox#alde	888

-

-// Juno

-//============================================================

-yuno,148,187,0	duplicate(MailBox)	Mailbox#yuno	888

-yuno,332,108,0	duplicate(MailBox)	Mailbox#2yuno	888

-

-// Lightalzen

-//============================================================

-lighthalzen,164,85,0	duplicate(MailBox)	Mailbox#lht	888

-lighthalzen,196,320,0	duplicate(MailBox)	Mailbox#2lht	888

-

-// Einbroch and Einbech

-//============================================================

-einbroch,231,215,0	duplicate(MailBox)	Mailbox#ein	888

-einbroch,77,202,0	duplicate(MailBox)	Mailbox#2ein	888

-einbech,182,124,0	duplicate(MailBox)	Mailbox#3ein	888

-

-// Comodo

-//============================================================

-comodo,200,150,0	duplicate(MailBox)	Mailbox#cmd	888

-

-// Umbala

-//============================================================

-umbala,104,155,0	duplicate(MailBox)	Mailbox#um	888

-

-// Amatsu

-//============================================================

-amatsu,102,146,0	duplicate(MailBox)	Mailbox#ama	888

-

-// Gonryun

-//============================================================

-gonryun,152,117,0	duplicate(MailBox)	Mailbox#gon	888

-

-// Ayothaya

-//============================================================

-ayothaya,205,169,0	duplicate(MailBox)	Mailbox#ayo	888

-

-// Louyang

-//============================================================

-louyang,204,100,0	duplicate(MailBox)	Mailbox#lou	888

-

-// Hugel

-//============================================================

-hugel,86,168,0	duplicate(MailBox)	Mailbox#hu	111

-

-// Rachel

-//============================================================

-rachel,122,146,0	duplicate(MailBox)	Post Box#ra	888

+//===== eAthena Script =======================================
+//= Mail Boxes
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: ========================================= 
+//= [Aegis Conversion]
+//= Pickup and write mail from/to players in game.
+//= Note: Mail System is NOT implemented. These NPCs are only 
+//= place-holders.
+//===== Additional Comments: =================================
+//= 1.0 First version, place holders only. [L0ne_W0lf]
+//============================================================
+
+// Prontera
+//============================================================
+prontera,146,86,0	script	Mailbox#prt::MailBox	888,{
+	mes "[Mailbox]";
+	mes "To use the mailbox service, you are required";
+	mes "to pay 130 zeny.";
+	mes "Would you like to use the service?";
+	next;
+	if (select("Yes.:No.") == 1) {
+		if (Zeny < 130) {
+			mes "[Mailbox]";
+			mes "I am sorry, but you do not have enough money.";
+			mes "To use the mailbox service, you are required";
+			mes "to pay 130 zeny.";
+			close;
+		}
+		mes "[Mailbox]";
+		//Custom messages.
+		mes "Oh, I'm sorry but the";
+		mes "^FF0000Mail System^000000 is still under";
+		mes "construction.";
+		mes " ";
+		mes "No charges have been applied.";
+		//mes "Thank you, please come again."
+		//set Zeny,Zeny-130;
+		//OpenMail
+		close;
+	}
+	mes "[Mailbox]";
+	mes "Thank you, please come again.";
+	close;
+}
+
+prontera,275,213,0	duplicate(MailBox)	Mailbox#2prt	888
+prontera,34,212,0	duplicate(MailBox)	Mailbox#3prt	888
+
+// Izlude
+//============================================================
+izlude,136,94,0	duplicate(MailBox)	Mailbox#iz	888
+
+// Morroc
+//============================================================
+morocc,166,110,0	duplicate(MailBox)	Mailbox#moc	888
+morocc,168,262,0	duplicate(MailBox)	Mailbox#2moc	888
+
+// Geffen
+//============================================================
+geffen,115,67,0	duplicate(MailBox)	Mailbox#gef	888
+geffen,199,125,0	duplicate(MailBox)	Mailbox#2gef	888
+
+// Payon
+//============================================================
+payon,191,104,0	duplicate(MailBox)	Mailbox#pay	888
+payon,171,226,0	duplicate(MailBox)	Mailbox#2pay	888
+pay_arche,55,127,0	duplicate(MailBox)	Mailbox#3pay	888
+
+// Alberta
+//============================================================
+alberta,90,60,0	duplicate(MailBox)	Mailbox#alb	888
+alberta,30,240,0	duplicate(MailBox)	Mailbox#2alb	888
+
+// Al De Baran
+//============================================================
+aldebaran,135,122,0	duplicate(MailBox)	Mailbox#alde	888
+
+// Juno
+//============================================================
+yuno,148,187,0	duplicate(MailBox)	Mailbox#yuno	888
+yuno,332,108,0	duplicate(MailBox)	Mailbox#2yuno	888
+
+// Lightalzen
+//============================================================
+lighthalzen,164,85,0	duplicate(MailBox)	Mailbox#lht	888
+lighthalzen,196,320,0	duplicate(MailBox)	Mailbox#2lht	888
+
+// Einbroch and Einbech
+//============================================================
+einbroch,231,215,0	duplicate(MailBox)	Mailbox#ein	888
+einbroch,77,202,0	duplicate(MailBox)	Mailbox#2ein	888
+einbech,182,124,0	duplicate(MailBox)	Mailbox#3ein	888
+
+// Comodo
+//============================================================
+comodo,200,150,0	duplicate(MailBox)	Mailbox#cmd	888
+
+// Umbala
+//============================================================
+umbala,104,155,0	duplicate(MailBox)	Mailbox#um	888
+
+// Amatsu
+//============================================================
+amatsu,102,146,0	duplicate(MailBox)	Mailbox#ama	888
+
+// Gonryun
+//============================================================
+gonryun,152,117,0	duplicate(MailBox)	Mailbox#gon	888
+
+// Ayothaya
+//============================================================
+ayothaya,205,169,0	duplicate(MailBox)	Mailbox#ayo	888
+
+// Louyang
+//============================================================
+louyang,204,100,0	duplicate(MailBox)	Mailbox#lou	888
+
+// Hugel
+//============================================================
+hugel,86,168,0	duplicate(MailBox)	Mailbox#hu	111
+
+// Rachel
+//============================================================
+rachel,122,146,0	duplicate(MailBox)	Post Box#ra	888
diff --git a/npc/other/marriage.txt b/npc/other/marriage.txt
index 7f85ec16d..f44684024 100644
--- a/npc/other/marriage.txt
+++ b/npc/other/marriage.txt
@@ -1,838 +1,838 @@
-//===== eAthena Script ======================================= 

-//= Player Marriage

-//===== By: ================================================== 

-//= L0ne_W0lf

-//===== Current Version: ===================================== 

-//= 1.1

-//===== Compatible With: ===================================== 

-//= eAthena SVN

-//===== Description: ========================================= 

-//= [Aegis Conversion]

-//= Official Marriage script.

-//= Added isloggedin() check, even though Aegis doesn't do it.

-//= Currently does not support same-sex marriages.

-//= Old script located in: npc/custom/marriage.txt

-//= - Variable in use: wedding_sign (max 1)

-//= - Variable in use: $Wedding (max 1) 

-//= - Variab;e in use: $wed_groom$ $wed_bride$

-//===== Additional Comments: ================================= 

-//= 1.0 First version. [L0ne_W0lf]

-//= 1.1 Fixed a missing ")" [L0ne_W0lf]

-//============================================================

-

-prt_church,97,100,4	script	Wedding Staff#w	71,{

-	cutin "wedding_marry01",2;

-	if (Upper == 2) {

-		mes "[Marry Happy]";

-		mes "Hello~";

-		mes "My name is Marry Happy";

-		mes "and I'm here to provide you";

-		mes "with information related to";

-		mes "marriage. Now, did you";

-		mes "have any questions?";

-		next;

-		if (select("I want to get married.:I don't need your help!") == 1) {

-			mes "[Marry Happy]";

-			mes "Oh, I'm sorry, but";

-			mes "adopted characters";

-			mes "aren't allowed to get";

-			mes "married. For now, why";

-			mes "don't you enjoy the simple";

-			mes "pleasures of childhood?";

-			goto L_End;

-		}

-		mes "[Marry Happy]";

-		mes "Oh, of course you";

-		mes "don't! Little children";

-		mes "can't get married-- there";

-		mes "are too many laws against";

-		mes "that~ Aren't you the most";

-		mes "adorable little thing?";

-		goto L_End;

-	}

-	mes "[Marry Happy]";

-	mes "Marriage is the beautiful";

-	mes "union of two souls that have";

-	mes "chosen to be together forever,";

-	mes "to share their joy and lives.";

-	mes "Is there a special someone";

-	mes "like that in your life?";

-	next;

-	switch(select("Ask about Wedding Ceremony:Ask about Procedure:Apply for Wedding:We are the Invincible Single Army!")) {

-	case 1:

-		mes "[Marry Happy]";

-		mes "Wise and benevolent";

-		mes "King Tristram III used to";

-		mes "conduct wedding ceremonies,";

-		mes "but he's no longer able to do";

-		mes "so because of his royal duties";

-		mes "and freneticly paced schedule.";

-		next;

-		mes "[Marry Happy]";

-		mes "Bishop Vomars, the bishop";

-		mes "of love, is now the officiator";

-		mes "of the marriage ceremony.";

-		mes "He is truly a treasure to the";

-		mes "Rune-Midgarts Kingdom.";

-		next;

-		mes "[Marry Happy]";

-		mes "When you marry someone,";

-		mes "it's for the rest of your life, so think carefully before making or";

-		mes "accepting a marriage proposal.";

-		mes "Keep in mind that a man can only";

-		mes "marry a woman and vice versa.";

-		next;

-		mes "[Marry Happy]";

-		mes "If you're lucky enough to";

-		mes "find someone that you really";

-		mes "want to spend the rest of your";

-		mes "life with, you might want to pop the question. I hope everyone";

-		mes "finds their perfect match~";

-		break;

-

-	case 2:

-		mes "[Marry Happy]";

-		mes "The first part of the";

-		mes "wedding procedure is to";

-		mes "complete the application.";

-		mes "Once the bride and bridegroom";

-		mes "have finished applying, they";

-		mes "must form a party of two.";

-		next;

-		mes "[Marry Happy]";

-		mes "After forming a party of two,";

-		mes "the couple must then speak to";

-		mes "Bishop Vomars. The bridegroom";

-		mes "speaks first and must tell his";

-		mes "bride's exact name to the Bishop. Otherwise, the ceremony will stop.";

-		next;

-		mes "[Marry Happy]";

-		mes "Afterwards, the bride will";

-		mes "speak to the Bishop and tell";

-		mes "him the name of her groom.";

-		mes "If these names are correctly";

-		mes "told to the Biship, they will";

-		mes "be able to exchange rings.";

-		next;

-		mes "[Marry Happy]";

-		mes "Once the wedding rings are";

-		mes "exchanged, the couple is forever bound in matrimony. Of course,";

-		mes "before this point, there are many chances to change your mind, so...";

-		next;

-		mes "[Marry Happy]";

-		mes "If there are too many";

-		mes "couples who want to get";

-		mes "married at one time, please";

-		mes "form a line and speak to Bishop";

-		mes "Vomars in order since only one couple can be married at a time.";

-		next;

-		mes "[Marry Happy]";

-		mes "Finally, be sure to tell";

-		mes "Bishop Vomars your partner's";

-		mes "exact name without wasting too much time. If you take too long,";

-		mes "the ceremony will automatically stop and you'll have to try again.";

-		next;

-		mes "[Marry Happy]";

-		mes "Brides need to remember";

-		mes "that they only have 3 minutes";

-		mes "to finish speaking to Bishop";

-		mes "Vomars after their grooms";

-		mes "have finished speaking to him.";

-		next;

-		if (select("Thanks, that helps a lot!:Easiest way to say my partner's name?") == 1) {

-			mes "[Marry Happy]";

-			mes "Well, I'm here to help";

-			mes "weddings proceed as";

-			mes "smoothly as possible.";

-			mes "If there was something";

-			mes "you didn't understand,";

-			mes "feel free to ask me again.";

-			goto L_End;

-		}

-		mes "[Marry Happy]";

-		mes "The easiest way to write";

-		mes "your partner's name for the";

-		mes "bishop is to send a private";

-		mes "message to your partner, and";

-		mes "then left-click the name section that is left of the chat prompt.";

-		next;

-		mes "[Marry Happy]";

-		mes "Press the ''Ctrl'' and ''C''";

-		mes "keys to copy the name. Then,";

-		mes "you can paste the name into";

-		mes "the input prompt by pressing";

-		mes "the ''Insert'' and ''Shift'' keys. That sounds easy, right?";

-		next;

-		mes "[Marry Happy]";

-		mes "Alright, now let's try";

-		mes "it. Practice giving me the";

-		mes "name of your partner using";

-		mes "the method I just described.";

-		next;

-		input .@partner$;

-		mes "[Marry Happy]";

-		mes "Alright, after you've";

-		mes "decided to get married,";

-		mes "come back to me and";

-		mes "submit your application.";

-		mes "I'll see you later, adventurer~";

-		break;

-

-	case 3:

-		cutin "wedding_marry02",2;

-		if (sex) {

-			mes "[Marry Happy]";

-			mes "So you'd like to get married?";

-			mes "As a groom, you need to prepare";

-			mes "^3377FF1 Tuxedo^000000 and pay ^3377FF1,300,000 zeny^000000.";

-			mes "Brides have to provide their own Wedding Dresses and pay a fee";

-			mes "of 1,200,000 zeny.";

-		}

-		else {

-			mes "[Marry Happy]";

-			mes "So you'd like to get married?";

-			mes "As a bride, you need to prepare";

-			mes "1 Wedding Dress and pay a fee";

-			mes "of 1,200,000 zeny. Grooms must";

-			mes "bring a Tuxedo and pay 1,300,000 zeny to get married.";

-		}

-		next;

-		mes "[Marry Happy]";

-		mes "Brides and grooms also need";

-		mes "to have ^3377FF1 Diamond Ring^000000 to be";

-		mes "exchanged with their partners.";

-		mes "You'll need all of these items";

-		mes "prepared when you submit your";

-		mes "wedding ceremony application.";

-		next;

-		mes "[Marry Happy]";

-		mes "The prospective bride and";

-		mes "groom must both complete";

-		mes "application process before";

-		mes "the wedding can take place.";

-		mes "Now, would you like to";

-		mes "apply for marriage?";

-		next;

-		if (select("Yes:No") == 1) {

-			if (getpartnerid()) {

-				cutin "wedding_marry02",2;

-				mes "[Marry Happy]";

-				mes "I'm sorry, but you can't";

-				mes "apply for another marriage!";

-				mes "I can't allow you to betray";

-				mes "your spouse like that, and";

-				mes "besides, polygamy isn't";

-				mes "legal here in Rune-Midgarts.";

-				break;

-			}

-			else if (wedding_sign == 1) {

-				mes "[Marry Happy]";

-				mes "Didn't you already";

-				mes "complete the application?";

-				mes "Hmm, make sure that your";

-				mes "partner also finished the";

-				mes "application process, and";

-				mes "then talk to Bishop Vomars.";

-				break;

-			}

-			else if (BaseLevel < 45) {

-				mes "[Marry Happy]";

-				mes "Hmm, you need to be";

-				mes "strong enough to protect";

-				mes "the one that you love before";

-				mes "you can consider marriage.";

-				mes "After you grow stronger,";

-				mes "come and talk to me again.";

-				goto L_End;

-			}

-			else if (countitem(2613) < 1) {

-				mes "[Marry Happy]";

-				mes "Mm? Did you forget to";

-				mes "bring the Diamond Ring";

-				mes "to exchange with your partner";

-				mes "during the wedding ceremony?";

-				mes "Look for it carefully and come";

-				mes "back after you find it, okay?";

-				goto L_End;

-			}

-			else if (sex) {

-				if (zeny < 1300000) {

-					mes "[Marry Happy]";

-					mes "I'm sorry, but you don't";

-					mes "have the 1,300,000 zeny";

-					mes "that all grooms must pay";

-					mes "for the wedding ceremony.";

-					mes "Did you misplace your money?";

-					goto L_End;

-				}

-				else if (countitem(7170) < 1) {

-					mes "[Marry Happy]";

-					mes "Where's your Tuxedo?";

-					mes "You absolutely have to";

-					mes "wear it during the wedding";

-					mes "ceremony! Find it, bring it";

-					mes "to me, and then we can finally";

-					mes "begin the wedding, okay?";

-					goto L_End;

-				}

-			}

-			else if (sex == 0) {

-				if (zeny < 1200000) {

-					mes "[Marry Happy]";

-					mes "I'm sorry, but all brides";

-					mes "must pay the 1,200,000";

-					mes "zeny fee to proceed with the";

-					mes "wedding ceremony. Perhaps";

-					mes "you could ask your partner";

-					mes "to help you with the funds?";

-					goto L_End;

-				}

-				else if (countitem(2338) < 1) {

-					mes "[Marry Happy]";

-					mes "Oh dear, did you forget";

-					mes "your Wedding Dress?";

-					mes "Hurry and find it, then";

-					mes "bring it to me-- you";

-					mes "absolutely need it";

-					mes "for the wedding!";

-					goto L_End;

-				}

-			}

-			mes "[Marry Happy]";

-			mes "Well, it looks like you";

-			mes "have everything ready.";

-			mes "Although I'm not sure who";

-			mes "your partner is, let me be";

-			mes "the first to congratulate you";

-			mes "on your upcoming wedding~";

-			next;

-			mes "[Marry Happy]";

-			mes "Now, let's begin the";

-			mes "application. Please write";

-			mes "down your exact name here.";

-			next;

-			while(1) {

-				input .@name$;

-				if (.@name$ != strcharinfo(0)) {

-					mes "[Marry Happy]";

-					mes "Hmmm, you have to write";

-					mes "down your name exactly as";

-					mes "it is displayed. Maybe you";

-					mes "need to copy and paste it?";

-					mes "Anyway, let's try it again.";

-					next;

-				}

-				else 

-					break;

-			}

-			mes "[Marry Happy]";

-			mes "Great, it looks like we";

-			mes "finished your application.";

-			mes "Remember that you'll need";

-			mes "to tell Bishop Vomars your";

-			mes "partner's exact name when";

-			mes "you talk to him later, okay?";

-			next;

-			mes "[Marry Happy]";

-			mes "When your partner is";

-			mes "finished with the application";

-			mes "process, both of you should";

-			mes "speak to the Bishop to begin";

-			mes "the wedding ceremony.";

-			Emotion e_lv;

-			next;

-			mes "[Marry Happy]";

-			if (sex) {

-				mes "Since you're the groom,";

-				mes "you need to speak to the";

-				mes "Bishop first. When you're";

-				mes "finished, it will be your";

-				mes "bride's turn to speak to";

-				mes "Bishop Vomars.";

-				set zeny,zeny-1300000;

-				delitem 7170,1; //Tuxedo

-			}

-			else {

-				mes "Since you're the bride,";

-				mes "you need to wait for the";

-				mes "groom to speak to Bishop";

-				mes "Vomars first. When he's";

-				mes "finished, it'll be your turn";

-				mes "to speak to Bishop Vomars.";

-				set zeny,zeny-1200000;

-				delitem 2338,1; //Wedding_Dress

-			}

-			delitem 2613,1; //Diamond_Ring

-			set wedding_sign,1;

-			goto L_End;

-		}

-		mes "[Marry Happy]";

-		mes "No...?";

-		mes "Well, when you're";

-		mes "ready for marriage,";

-		mes "feel free to come back to";

-		mes "me so that you can apply,";

-		mes "okay? Have a good day~";

-		break;

-

-	case 4:

-		cutin "wedding_marry02",2;

-		donpcevent "Single Army#Prontera::OnEnable";

-		donpcevent "Single Army#Geffen::OnEnable";

-		donpcevent "Single Army#Morocc::OnEnable";

-		donpcevent "Single Army#Payon::OnEnable";

-		donpcevent "Single Army#Amatsu::OnEnable";

-		donpcevent "Single Army#Gonryun::OnEnable";

-		Emotion e_omg;

-		mes "[Single Army]";

-		mes "^CC9933You have to refine";

-		mes "items on your own to";

-		mes "make great equipment!^000000";

-		donpcevent "Single Army#Prontera::OnEmote";

-		next;

-		mes "[Single Army]";

-		mes "^330099It's a waste to";

-		mes "form parties in";

-		mes "dungeons! I can";

-		mes "make it on my own!^000000";

-		donpcevent "Single Army#Geffen::OnEmote";

-		next;

-		mes "[Single Army]";

-		mes "^666666Hell, I've trained";

-		mes "all by myself since";

-		mes "birth, all the way";

-		mes "to my job change!^000000";

-		donpcevent "Single Army#Morocc::OnEmote";

-		next;

-		mes "[Single Army]";

-		mes "^666600I CHOOSE to spend";

-		mes "Christmas alone...";

-		mes "playing Solitaire and";

-		mes "doing crossword puzzles!^000000";

-		donpcevent "Single Army#Payon::OnEmote";

-		next;

-		mes "[Single Army]";

-		mes "^CC9966Women may break my";

-		mes "spirit, but they'll never";

-		mes "take... my FREEDOM!^000000";

-		donpcevent "Single Army#Amatsu::OnEmote";

-		next;

-		mes "[Single Army]";

-		mes "^669900...We're the free! We're";

-		mes "the Invincible Single Army!^000000";

-		donpcevent "Single Army#Gonryun::OnEmote";

-		close2;

-		cutin "wedding_marry01",255;

-		Emotion e_swt;

-		donpcevent "Single Army#Prontera::OnInit";

-		donpcevent "Single Army#Geffen::OnInit";

-		donpcevent "Single Army#Morocc::OnInit";

-		donpcevent "Single Army#Payon::OnInit";

-		donpcevent "Single Army#Amatsu::OnInit";

-		donpcevent "Single Army#Gonryun::OnInit";

-		end;

-	}

-	close2;

-	cutin "wedding_marry01",255;

-	end;

-

-L_End:

-	close2;

-	cutin "",255;

-	end;

-}

-

-prt_church,97,102,0	script	Single Army#Prontera	105,{

-	mes "[Single Army]";

-	mes "^CC9933You have to refine";

-	mes "items on your own to";

-	mes "make great equipment!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Prontera";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Prontera";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,98,102,0	script	Single Army#Geffen	705,{

-	mes "[Single Army]";

-	mes "^330099It's a waste to";

-	mes "form parties in";

-	mes "dungeons! I can";

-	mes "make it on my own!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Geffen";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Geffen";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,99,102,0	script	Single Army#Morocc	707,{

-	mes "[Single Army]";

-	mes "^666666Hell, I've trained";

-	mes "all by myself since";

-	mes "birth, all the way";

-	mes "to my job change!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Morocc";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Morocc";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,100,102,0	script	Single Army#Payon	708,{

-	mes "[Single Army]";

-	mes "^666600I CHOOSE to spend";

-	mes "Christmas alone...";

-	mes "playing Solitaire and";

-	mes "doing crossword puzzles!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Payon";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Payon";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,101,102,0	script	Single Army#Amatsu	767,{

-	mes "[Single Army]";

-	mes "^CC9966Women may break my";

-	mes " spirit, but they'll never";

-	mes "take... my FREEDOM!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Amatsu";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Amatsu";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,102,102,0	script	Single Army#Gonryun	780,{

-	mes "[Single Army]";

-	mes "^669900...We're the free! We're";

-	mes "the Invincible Single Army!^000000";

-	close;

-

-OnInit:

-	disablenpc "Single Army#Gonryun";

-	end;

-

-OnEnable:

-	enablenpc "Single Army#Gonryun";

-	Emotion e_go;

-	end;

-

-OnEmote:

-	emotion e_rock;

-	end;

-}

-

-prt_church,100,128,4	script	Bishop#w	60,{

-	cutin "wedding_bomars01",2;

-	if (Upper == 2) {

-		mes "[Vomars]";

-		mes "Greetings, child.";

-		mes "Are you lost? Hmmm.";

-		mes "Do you know where your";

-		mes "mommy and daddy are?";

-		close2;

-		cutin "wedding_bomars01",255;

-		end;

-	}

-

-	if (!getpartnerid()) {

-		if (!$wedding) {

-			if (wedding_sign == 1) {

-				getpartymember(getcharid(1));

-				set .@partymembercount,$@partymembercount;

-				if (.@partymembercount == 2) {

-					if (sex) {

-						set $wedding,1;

-						initnpctimer;

-						mes "[Vomars]";

-						mes "Young lovers, please";

-						mes "remember this moment for";

-						mes "the rest of your lives. May your future be blessed with peace";

-						mes "and joy. May the love you share";

-						mes "grow with each passing day.";

-						next;

-						mapannounce "prt_church","It's the marriage proposal from the groom, Mr. " + strcharinfo(0) + "...",bc_map;

-						mes "[Vomars]";

-						mes "Until the end of the";

-						mes "world, may you stand";

-						mes "by the side of the one";

-						mes "whom you love, to support";

-						mes "her and protect her. Now, may";

-						mes "I know the name of your bride?";

-						next;

-						input $wed_bride$;

-						mes "[Vomars]";

-						mes "Mr. " + strcharinfo(0) + "...";

-						mes "Do you swear on your life";

-						mes "that you will forever cherish";

-						mes "and care for your bride,";

-						mes "Miss " + $wed_bride$ + "?";

-						next;

-						select("I do.");

-						set $wed_groom$,strcharinfo(0);

-						mes "[Vomars]";

-						mes "Now, it is time for";

-						mes "your bride to make";

-						mes "her wedding vows.";

-						mes "If she will come forward...";

-						close2;

-						mapannounce "prt_church","The groom, Mr. " + strcharinfo(0) + ", has made his vows to Miss " + $wed_bride$ + "...",bc_map;

-						cutin "",255;

-						end;

-					}

-					mes "[Vomars]";

-					mes "I'm sorry, but the groom";

-					mes "must speak to me first in";

-					mes "order to begin the wedding.";

-					mes "It's old fashioned protocol,";

-					mes "but I'll admit that it does";

-					mes "keep things running smoothly.";

-					goto L_End;

-				}

-				mes "[Vomars]";

-				mes "Before you can be";

-				mes "married, you must";

-				mes "first form a party of";

-				mes "two with your partner.";

-				mes "Then, we can proceed";

-				mes "with the ceremony.";

-				goto L_End;

-			}

-			mes "[Vomars]";

-			mes "You must apply for";

-			mes "marriage with Happy Marry";

-			mes "before you can get married.";

-			mes "Happy Marry will let you know";

-			mes "what else you'll need to do";

-			mes "to prepare for marriage.";

-			goto L_End;

-		}

-		else if ($wedding == 1) {

-			if (wedding_sign == 1) {

-				getpartymember(getcharid(1));

-				set .@partymembercount,$@partymembercount;

-				if (.@partymembercount == 2) {

-					if (sex == 0) {

-						if (strcharinfo(0) == $wed_bride$) {

-							mes "[Vomars]";

-							mes "Young lovers, please";

-							mes "remember this moment for";

-							mes "the rest of your lives. May your future be blessed with peace";

-							mes "and joy. May the love you share";

-							mes "grow with each passing day.";

-							next;

-							mapannounce "prt_church","Let's hear what the bride, Miss "+$wed_bride$+", has to say...",bc_map;

-							mes "[Vomars]";

-							mes "Miss "+$wed_bride$+"...";

-							mes "Do you swear to stay";

-							mes "true to "+$wed_groom$+",";

-							mes "to be by his side, no matter";

-							mes "what the dangers may be?";

-							next;

-							if (select("^FF0000No.^000000:I do.") == 1) {

-								cutin "wedding_bomars03",2;

-								mapannounce "prt_church","Next couple, please proceed...",bc_map;

-								mes "[Vomars]";

-								mes "So "+$wed_groom$;

-								mes "isn't the one you";

-								mes "want to marry? Hmm.";

-								mes "I'm truly sorry for this";

-								mes "misunderstanding...";

-								set $wedding,0;

-								close2;

-								stopnpctimer;

-								cutin "",255;

-								end;

-							}

-							mes "[Vomars]";

-							mes "Do you truly swear";

-							mes "fidelity and patience?";

-							mes "Will you marry "+$wed_groom$+"?";

-							next;

-							if (select("Yes, I do.:^FF0000No.^000000") == 1) {

-								if (isloggedin(getcharid(3,$wed_groom$))) {

-									if (marriage($wed_groom$)) {

-										//Call Wedding effect

-										wedding;

-										//Give ring to Bride, and change to wedding sprite.

-										sc_start SC_Wedding,3600000000,1;

-										getitem 2635,1; //Bride_Ring

-										//Give ring to Groom, and change to wedding sprite.

-										attachrid(getcharid(3,$wed_groom$));

-										sc_start SC_Wedding,3600000000,1;

-										getitem 2634,1; //Bridegroom_Ring

-										detachrid;

-										//Switch Script progression back to Bride

-										attachrid(getcharid(3,$wed_bride$));

-										cutin "wedding_bomars02",2;

-										mapannounce "prt_church","I now pronounce you, "+$wed_groom$+" and "+$wed_bride$+", husband and wife.",bc_map;

-										mes "[Vomars]";

-										mes "By the power invested";

-										mes "in me as Royal Bishop of";

-										mes "the Rune-Midgarts Kingdom,";

-										mes "I now pronounce you husband";

-										mes "and wife. May your future be";

-										mes "blessed with many great joys.";

-										next;

-										mes "[Vomars]";

-										mes "And lastly...";

-										mes "Always be happy,";

-										mes "dear "+$wed_bride$+"...";

-										set $wed_groom$,"";

-										set $wed_bride$,"";

-										set $wedding,0;

-										close2;

-										stopnpctimer;

-										cutin "",255;

-										detachrid;

-										end;

-									}

-								}

-								cutin "wedding_bomars03",2;

-								mes "[Vomars]";

-								mes "Hm. It seems that";

-								mes "your groom left before";

-								mes "the ceremony has finished";

-								mes "Please try again once he's";

-								mes "returned.";

-								goto L_End;

-							}

-							else {

-								cutin "wedding_bomars03",2;

-								mapannounce "prt_church","Alas! "+$wed_bride$+" has rejected "+$wed_groom$+"'s marriage proposal!",bc_map;

-								mes "[Vomars]";

-								mes "Hm. It seems that";

-								mes "you've changed your";

-								mes "mind. Although I feel";

-								mes "sorry for the groom, you";

-								mes "must do what your heart";

-								mes "tells you is right. Now, run!";

-							}

-							set $wed_groom$,"";

-							set $wed_bride$,"";

-							set $wedding,0;

-							close2;

-							stopnpctimer;

-							cutin "",255;

-							end;

-						}

-						callsub S_Busy;

-					}

-					callsub S_Busy;

-				}

-				callsub S_Busy;

-			}

-			if (strcharinfo(0) == $wed_bride$) {

-				mes "[Vomars]";

-				mes "Hm? It appears that";

-				mes "Happy Marry still hasn't";

-				mes "received your marriage";

-				mes "application. Please speak";

-				mes "to her so that we can begin";

-				mes "the wedding ceremony.";

-				goto L_End;

-			}

-			callsub S_Busy;

-		}

-		callsub S_Busy;

-	}

-	mes "[Vomars]";

-	mes "I wish you eternal";

-	mes "happiness. No matter";

-	mes "how dark the present may";

-	mes "be, always stand by your";

-	mes "loved one's side and look";

-	mes "to the future with hope.";

-

-L_End:

-	close2;

-	cutin  "",255;

-	end;

-

-S_Busy:

-	if ($wed_groom$ != "" && $wed_bride$ != "") {

-		mes "[Vomars]";

-		mes "The wedding of";

-		mes "Miss "+ $wed_bride$ +" and";

-		mes "Mister "+ $wed_groom$;

-		mes "is currently in progress.";

-		mes "Please keep your voice down.";

-		goto L_End;

-	}

-	mes "[Vomars]";

-	mes "I'm conducting a wedding";

-	mes "for another couple now, so";

-	mes "please wait patiently for your";

-	mes "turn. Thanks for understanding... ^FFFFFF ^000000";

-	goto L_End;

-

-OnInit:

-	set $wedding,0;

-	end;

-

-OnStop:

-	stopnpctimer;

-	end;

-

-OnReset:

-	set $wed_groom$,"";

-	set $wed_bride$,"";

-	set $wedding,0;

-	end;

-

-OnTimer180000:

-	mapannounce "prt_church","You've responded too slowly... Next couple, please proceed.",bc_map;

-	set $wed_groom$,"";

-	set $wed_bride$,"";

-	set $wedding,0;

-	stopnpctimer;

-	end;

-}

+//===== eAthena Script ======================================= 
+//= Player Marriage
+//===== By: ================================================== 
+//= L0ne_W0lf
+//===== Current Version: ===================================== 
+//= 1.1
+//===== Compatible With: ===================================== 
+//= eAthena SVN
+//===== Description: ========================================= 
+//= [Aegis Conversion]
+//= Official Marriage script.
+//= Added isloggedin() check, even though Aegis doesn't do it.
+//= Currently does not support same-sex marriages.
+//= Old script located in: npc/custom/marriage.txt
+//= - Variable in use: wedding_sign (max 1)
+//= - Variable in use: $Wedding (max 1) 
+//= - Variab;e in use: $wed_groom$ $wed_bride$
+//===== Additional Comments: ================================= 
+//= 1.0 First version. [L0ne_W0lf]
+//= 1.1 Fixed a missing ")" [L0ne_W0lf]
+//============================================================
+
+prt_church,97,100,4	script	Wedding Staff#w	71,{
+	cutin "wedding_marry01",2;
+	if (Upper == 2) {
+		mes "[Marry Happy]";
+		mes "Hello~";
+		mes "My name is Marry Happy";
+		mes "and I'm here to provide you";
+		mes "with information related to";
+		mes "marriage. Now, did you";
+		mes "have any questions?";
+		next;
+		if (select("I want to get married.:I don't need your help!") == 1) {
+			mes "[Marry Happy]";
+			mes "Oh, I'm sorry, but";
+			mes "adopted characters";
+			mes "aren't allowed to get";
+			mes "married. For now, why";
+			mes "don't you enjoy the simple";
+			mes "pleasures of childhood?";
+			goto L_End;
+		}
+		mes "[Marry Happy]";
+		mes "Oh, of course you";
+		mes "don't! Little children";
+		mes "can't get married-- there";
+		mes "are too many laws against";
+		mes "that~ Aren't you the most";
+		mes "adorable little thing?";
+		goto L_End;
+	}
+	mes "[Marry Happy]";
+	mes "Marriage is the beautiful";
+	mes "union of two souls that have";
+	mes "chosen to be together forever,";
+	mes "to share their joy and lives.";
+	mes "Is there a special someone";
+	mes "like that in your life?";
+	next;
+	switch(select("Ask about Wedding Ceremony:Ask about Procedure:Apply for Wedding:We are the Invincible Single Army!")) {
+	case 1:
+		mes "[Marry Happy]";
+		mes "Wise and benevolent";
+		mes "King Tristram III used to";
+		mes "conduct wedding ceremonies,";
+		mes "but he's no longer able to do";
+		mes "so because of his royal duties";
+		mes "and freneticly paced schedule.";
+		next;
+		mes "[Marry Happy]";
+		mes "Bishop Vomars, the bishop";
+		mes "of love, is now the officiator";
+		mes "of the marriage ceremony.";
+		mes "He is truly a treasure to the";
+		mes "Rune-Midgarts Kingdom.";
+		next;
+		mes "[Marry Happy]";
+		mes "When you marry someone,";
+		mes "it's for the rest of your life, so think carefully before making or";
+		mes "accepting a marriage proposal.";
+		mes "Keep in mind that a man can only";
+		mes "marry a woman and vice versa.";
+		next;
+		mes "[Marry Happy]";
+		mes "If you're lucky enough to";
+		mes "find someone that you really";
+		mes "want to spend the rest of your";
+		mes "life with, you might want to pop the question. I hope everyone";
+		mes "finds their perfect match~";
+		break;
+
+	case 2:
+		mes "[Marry Happy]";
+		mes "The first part of the";
+		mes "wedding procedure is to";
+		mes "complete the application.";
+		mes "Once the bride and bridegroom";
+		mes "have finished applying, they";
+		mes "must form a party of two.";
+		next;
+		mes "[Marry Happy]";
+		mes "After forming a party of two,";
+		mes "the couple must then speak to";
+		mes "Bishop Vomars. The bridegroom";
+		mes "speaks first and must tell his";
+		mes "bride's exact name to the Bishop. Otherwise, the ceremony will stop.";
+		next;
+		mes "[Marry Happy]";
+		mes "Afterwards, the bride will";
+		mes "speak to the Bishop and tell";
+		mes "him the name of her groom.";
+		mes "If these names are correctly";
+		mes "told to the Biship, they will";
+		mes "be able to exchange rings.";
+		next;
+		mes "[Marry Happy]";
+		mes "Once the wedding rings are";
+		mes "exchanged, the couple is forever bound in matrimony. Of course,";
+		mes "before this point, there are many chances to change your mind, so...";
+		next;
+		mes "[Marry Happy]";
+		mes "If there are too many";
+		mes "couples who want to get";
+		mes "married at one time, please";
+		mes "form a line and speak to Bishop";
+		mes "Vomars in order since only one couple can be married at a time.";
+		next;
+		mes "[Marry Happy]";
+		mes "Finally, be sure to tell";
+		mes "Bishop Vomars your partner's";
+		mes "exact name without wasting too much time. If you take too long,";
+		mes "the ceremony will automatically stop and you'll have to try again.";
+		next;
+		mes "[Marry Happy]";
+		mes "Brides need to remember";
+		mes "that they only have 3 minutes";
+		mes "to finish speaking to Bishop";
+		mes "Vomars after their grooms";
+		mes "have finished speaking to him.";
+		next;
+		if (select("Thanks, that helps a lot!:Easiest way to say my partner's name?") == 1) {
+			mes "[Marry Happy]";
+			mes "Well, I'm here to help";
+			mes "weddings proceed as";
+			mes "smoothly as possible.";
+			mes "If there was something";
+			mes "you didn't understand,";
+			mes "feel free to ask me again.";
+			goto L_End;
+		}
+		mes "[Marry Happy]";
+		mes "The easiest way to write";
+		mes "your partner's name for the";
+		mes "bishop is to send a private";
+		mes "message to your partner, and";
+		mes "then left-click the name section that is left of the chat prompt.";
+		next;
+		mes "[Marry Happy]";
+		mes "Press the ''Ctrl'' and ''C''";
+		mes "keys to copy the name. Then,";
+		mes "you can paste the name into";
+		mes "the input prompt by pressing";
+		mes "the ''Insert'' and ''Shift'' keys. That sounds easy, right?";
+		next;
+		mes "[Marry Happy]";
+		mes "Alright, now let's try";
+		mes "it. Practice giving me the";
+		mes "name of your partner using";
+		mes "the method I just described.";
+		next;
+		input .@partner$;
+		mes "[Marry Happy]";
+		mes "Alright, after you've";
+		mes "decided to get married,";
+		mes "come back to me and";
+		mes "submit your application.";
+		mes "I'll see you later, adventurer~";
+		break;
+
+	case 3:
+		cutin "wedding_marry02",2;
+		if (sex) {
+			mes "[Marry Happy]";
+			mes "So you'd like to get married?";
+			mes "As a groom, you need to prepare";
+			mes "^3377FF1 Tuxedo^000000 and pay ^3377FF1,300,000 zeny^000000.";
+			mes "Brides have to provide their own Wedding Dresses and pay a fee";
+			mes "of 1,200,000 zeny.";
+		}
+		else {
+			mes "[Marry Happy]";
+			mes "So you'd like to get married?";
+			mes "As a bride, you need to prepare";
+			mes "1 Wedding Dress and pay a fee";
+			mes "of 1,200,000 zeny. Grooms must";
+			mes "bring a Tuxedo and pay 1,300,000 zeny to get married.";
+		}
+		next;
+		mes "[Marry Happy]";
+		mes "Brides and grooms also need";
+		mes "to have ^3377FF1 Diamond Ring^000000 to be";
+		mes "exchanged with their partners.";
+		mes "You'll need all of these items";
+		mes "prepared when you submit your";
+		mes "wedding ceremony application.";
+		next;
+		mes "[Marry Happy]";
+		mes "The prospective bride and";
+		mes "groom must both complete";
+		mes "application process before";
+		mes "the wedding can take place.";
+		mes "Now, would you like to";
+		mes "apply for marriage?";
+		next;
+		if (select("Yes:No") == 1) {
+			if (getpartnerid()) {
+				cutin "wedding_marry02",2;
+				mes "[Marry Happy]";
+				mes "I'm sorry, but you can't";
+				mes "apply for another marriage!";
+				mes "I can't allow you to betray";
+				mes "your spouse like that, and";
+				mes "besides, polygamy isn't";
+				mes "legal here in Rune-Midgarts.";
+				break;
+			}
+			else if (wedding_sign == 1) {
+				mes "[Marry Happy]";
+				mes "Didn't you already";
+				mes "complete the application?";
+				mes "Hmm, make sure that your";
+				mes "partner also finished the";
+				mes "application process, and";
+				mes "then talk to Bishop Vomars.";
+				break;
+			}
+			else if (BaseLevel < 45) {
+				mes "[Marry Happy]";
+				mes "Hmm, you need to be";
+				mes "strong enough to protect";
+				mes "the one that you love before";
+				mes "you can consider marriage.";
+				mes "After you grow stronger,";
+				mes "come and talk to me again.";
+				goto L_End;
+			}
+			else if (countitem(2613) < 1) {
+				mes "[Marry Happy]";
+				mes "Mm? Did you forget to";
+				mes "bring the Diamond Ring";
+				mes "to exchange with your partner";
+				mes "during the wedding ceremony?";
+				mes "Look for it carefully and come";
+				mes "back after you find it, okay?";
+				goto L_End;
+			}
+			else if (sex) {
+				if (zeny < 1300000) {
+					mes "[Marry Happy]";
+					mes "I'm sorry, but you don't";
+					mes "have the 1,300,000 zeny";
+					mes "that all grooms must pay";
+					mes "for the wedding ceremony.";
+					mes "Did you misplace your money?";
+					goto L_End;
+				}
+				else if (countitem(7170) < 1) {
+					mes "[Marry Happy]";
+					mes "Where's your Tuxedo?";
+					mes "You absolutely have to";
+					mes "wear it during the wedding";
+					mes "ceremony! Find it, bring it";
+					mes "to me, and then we can finally";
+					mes "begin the wedding, okay?";
+					goto L_End;
+				}
+			}
+			else if (sex == 0) {
+				if (zeny < 1200000) {
+					mes "[Marry Happy]";
+					mes "I'm sorry, but all brides";
+					mes "must pay the 1,200,000";
+					mes "zeny fee to proceed with the";
+					mes "wedding ceremony. Perhaps";
+					mes "you could ask your partner";
+					mes "to help you with the funds?";
+					goto L_End;
+				}
+				else if (countitem(2338) < 1) {
+					mes "[Marry Happy]";
+					mes "Oh dear, did you forget";
+					mes "your Wedding Dress?";
+					mes "Hurry and find it, then";
+					mes "bring it to me-- you";
+					mes "absolutely need it";
+					mes "for the wedding!";
+					goto L_End;
+				}
+			}
+			mes "[Marry Happy]";
+			mes "Well, it looks like you";
+			mes "have everything ready.";
+			mes "Although I'm not sure who";
+			mes "your partner is, let me be";
+			mes "the first to congratulate you";
+			mes "on your upcoming wedding~";
+			next;
+			mes "[Marry Happy]";
+			mes "Now, let's begin the";
+			mes "application. Please write";
+			mes "down your exact name here.";
+			next;
+			while(1) {
+				input .@name$;
+				if (.@name$ != strcharinfo(0)) {
+					mes "[Marry Happy]";
+					mes "Hmmm, you have to write";
+					mes "down your name exactly as";
+					mes "it is displayed. Maybe you";
+					mes "need to copy and paste it?";
+					mes "Anyway, let's try it again.";
+					next;
+				}
+				else 
+					break;
+			}
+			mes "[Marry Happy]";
+			mes "Great, it looks like we";
+			mes "finished your application.";
+			mes "Remember that you'll need";
+			mes "to tell Bishop Vomars your";
+			mes "partner's exact name when";
+			mes "you talk to him later, okay?";
+			next;
+			mes "[Marry Happy]";
+			mes "When your partner is";
+			mes "finished with the application";
+			mes "process, both of you should";
+			mes "speak to the Bishop to begin";
+			mes "the wedding ceremony.";
+			Emotion e_lv;
+			next;
+			mes "[Marry Happy]";
+			if (sex) {
+				mes "Since you're the groom,";
+				mes "you need to speak to the";
+				mes "Bishop first. When you're";
+				mes "finished, it will be your";
+				mes "bride's turn to speak to";
+				mes "Bishop Vomars.";
+				set zeny,zeny-1300000;
+				delitem 7170,1; //Tuxedo
+			}
+			else {
+				mes "Since you're the bride,";
+				mes "you need to wait for the";
+				mes "groom to speak to Bishop";
+				mes "Vomars first. When he's";
+				mes "finished, it'll be your turn";
+				mes "to speak to Bishop Vomars.";
+				set zeny,zeny-1200000;
+				delitem 2338,1; //Wedding_Dress
+			}
+			delitem 2613,1; //Diamond_Ring
+			set wedding_sign,1;
+			goto L_End;
+		}
+		mes "[Marry Happy]";
+		mes "No...?";
+		mes "Well, when you're";
+		mes "ready for marriage,";
+		mes "feel free to come back to";
+		mes "me so that you can apply,";
+		mes "okay? Have a good day~";
+		break;
+
+	case 4:
+		cutin "wedding_marry02",2;
+		donpcevent "Single Army#Prontera::OnEnable";
+		donpcevent "Single Army#Geffen::OnEnable";
+		donpcevent "Single Army#Morocc::OnEnable";
+		donpcevent "Single Army#Payon::OnEnable";
+		donpcevent "Single Army#Amatsu::OnEnable";
+		donpcevent "Single Army#Gonryun::OnEnable";
+		Emotion e_omg;
+		mes "[Single Army]";
+		mes "^CC9933You have to refine";
+		mes "items on your own to";
+		mes "make great equipment!^000000";
+		donpcevent "Single Army#Prontera::OnEmote";
+		next;
+		mes "[Single Army]";
+		mes "^330099It's a waste to";
+		mes "form parties in";
+		mes "dungeons! I can";
+		mes "make it on my own!^000000";
+		donpcevent "Single Army#Geffen::OnEmote";
+		next;
+		mes "[Single Army]";
+		mes "^666666Hell, I've trained";
+		mes "all by myself since";
+		mes "birth, all the way";
+		mes "to my job change!^000000";
+		donpcevent "Single Army#Morocc::OnEmote";
+		next;
+		mes "[Single Army]";
+		mes "^666600I CHOOSE to spend";
+		mes "Christmas alone...";
+		mes "playing Solitaire and";
+		mes "doing crossword puzzles!^000000";
+		donpcevent "Single Army#Payon::OnEmote";
+		next;
+		mes "[Single Army]";
+		mes "^CC9966Women may break my";
+		mes "spirit, but they'll never";
+		mes "take... my FREEDOM!^000000";
+		donpcevent "Single Army#Amatsu::OnEmote";
+		next;
+		mes "[Single Army]";
+		mes "^669900...We're the free! We're";
+		mes "the Invincible Single Army!^000000";
+		donpcevent "Single Army#Gonryun::OnEmote";
+		close2;
+		cutin "wedding_marry01",255;
+		Emotion e_swt;
+		donpcevent "Single Army#Prontera::OnInit";
+		donpcevent "Single Army#Geffen::OnInit";
+		donpcevent "Single Army#Morocc::OnInit";
+		donpcevent "Single Army#Payon::OnInit";
+		donpcevent "Single Army#Amatsu::OnInit";
+		donpcevent "Single Army#Gonryun::OnInit";
+		end;
+	}
+	close2;
+	cutin "wedding_marry01",255;
+	end;
+
+L_End:
+	close2;
+	cutin "",255;
+	end;
+}
+
+prt_church,97,102,0	script	Single Army#Prontera	105,{
+	mes "[Single Army]";
+	mes "^CC9933You have to refine";
+	mes "items on your own to";
+	mes "make great equipment!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Prontera";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Prontera";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,98,102,0	script	Single Army#Geffen	705,{
+	mes "[Single Army]";
+	mes "^330099It's a waste to";
+	mes "form parties in";
+	mes "dungeons! I can";
+	mes "make it on my own!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Geffen";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Geffen";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,99,102,0	script	Single Army#Morocc	707,{
+	mes "[Single Army]";
+	mes "^666666Hell, I've trained";
+	mes "all by myself since";
+	mes "birth, all the way";
+	mes "to my job change!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Morocc";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Morocc";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,100,102,0	script	Single Army#Payon	708,{
+	mes "[Single Army]";
+	mes "^666600I CHOOSE to spend";
+	mes "Christmas alone...";
+	mes "playing Solitaire and";
+	mes "doing crossword puzzles!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Payon";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Payon";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,101,102,0	script	Single Army#Amatsu	767,{
+	mes "[Single Army]";
+	mes "^CC9966Women may break my";
+	mes " spirit, but they'll never";
+	mes "take... my FREEDOM!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Amatsu";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Amatsu";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,102,102,0	script	Single Army#Gonryun	780,{
+	mes "[Single Army]";
+	mes "^669900...We're the free! We're";
+	mes "the Invincible Single Army!^000000";
+	close;
+
+OnInit:
+	disablenpc "Single Army#Gonryun";
+	end;
+
+OnEnable:
+	enablenpc "Single Army#Gonryun";
+	Emotion e_go;
+	end;
+
+OnEmote:
+	emotion e_rock;
+	end;
+}
+
+prt_church,100,128,4	script	Bishop#w	60,{
+	cutin "wedding_bomars01",2;
+	if (Upper == 2) {
+		mes "[Vomars]";
+		mes "Greetings, child.";
+		mes "Are you lost? Hmmm.";
+		mes "Do you know where your";
+		mes "mommy and daddy are?";
+		close2;
+		cutin "wedding_bomars01",255;
+		end;
+	}
+
+	if (!getpartnerid()) {
+		if (!$wedding) {
+			if (wedding_sign == 1) {
+				getpartymember(getcharid(1));
+				set .@partymembercount,$@partymembercount;
+				if (.@partymembercount == 2) {
+					if (sex) {
+						set $wedding,1;
+						initnpctimer;
+						mes "[Vomars]";
+						mes "Young lovers, please";
+						mes "remember this moment for";
+						mes "the rest of your lives. May your future be blessed with peace";
+						mes "and joy. May the love you share";
+						mes "grow with each passing day.";
+						next;
+						mapannounce "prt_church","It's the marriage proposal from the groom, Mr. " + strcharinfo(0) + "...",bc_map;
+						mes "[Vomars]";
+						mes "Until the end of the";
+						mes "world, may you stand";
+						mes "by the side of the one";
+						mes "whom you love, to support";
+						mes "her and protect her. Now, may";
+						mes "I know the name of your bride?";
+						next;
+						input $wed_bride$;
+						mes "[Vomars]";
+						mes "Mr. " + strcharinfo(0) + "...";
+						mes "Do you swear on your life";
+						mes "that you will forever cherish";
+						mes "and care for your bride,";
+						mes "Miss " + $wed_bride$ + "?";
+						next;
+						select("I do.");
+						set $wed_groom$,strcharinfo(0);
+						mes "[Vomars]";
+						mes "Now, it is time for";
+						mes "your bride to make";
+						mes "her wedding vows.";
+						mes "If she will come forward...";
+						close2;
+						mapannounce "prt_church","The groom, Mr. " + strcharinfo(0) + ", has made his vows to Miss " + $wed_bride$ + "...",bc_map;
+						cutin "",255;
+						end;
+					}
+					mes "[Vomars]";
+					mes "I'm sorry, but the groom";
+					mes "must speak to me first in";
+					mes "order to begin the wedding.";
+					mes "It's old fashioned protocol,";
+					mes "but I'll admit that it does";
+					mes "keep things running smoothly.";
+					goto L_End;
+				}
+				mes "[Vomars]";
+				mes "Before you can be";
+				mes "married, you must";
+				mes "first form a party of";
+				mes "two with your partner.";
+				mes "Then, we can proceed";
+				mes "with the ceremony.";
+				goto L_End;
+			}
+			mes "[Vomars]";
+			mes "You must apply for";
+			mes "marriage with Happy Marry";
+			mes "before you can get married.";
+			mes "Happy Marry will let you know";
+			mes "what else you'll need to do";
+			mes "to prepare for marriage.";
+			goto L_End;
+		}
+		else if ($wedding == 1) {
+			if (wedding_sign == 1) {
+				getpartymember(getcharid(1));
+				set .@partymembercount,$@partymembercount;
+				if (.@partymembercount == 2) {
+					if (sex == 0) {
+						if (strcharinfo(0) == $wed_bride$) {
+							mes "[Vomars]";
+							mes "Young lovers, please";
+							mes "remember this moment for";
+							mes "the rest of your lives. May your future be blessed with peace";
+							mes "and joy. May the love you share";
+							mes "grow with each passing day.";
+							next;
+							mapannounce "prt_church","Let's hear what the bride, Miss "+$wed_bride$+", has to say...",bc_map;
+							mes "[Vomars]";
+							mes "Miss "+$wed_bride$+"...";
+							mes "Do you swear to stay";
+							mes "true to "+$wed_groom$+",";
+							mes "to be by his side, no matter";
+							mes "what the dangers may be?";
+							next;
+							if (select("^FF0000No.^000000:I do.") == 1) {
+								cutin "wedding_bomars03",2;
+								mapannounce "prt_church","Next couple, please proceed...",bc_map;
+								mes "[Vomars]";
+								mes "So "+$wed_groom$;
+								mes "isn't the one you";
+								mes "want to marry? Hmm.";
+								mes "I'm truly sorry for this";
+								mes "misunderstanding...";
+								set $wedding,0;
+								close2;
+								stopnpctimer;
+								cutin "",255;
+								end;
+							}
+							mes "[Vomars]";
+							mes "Do you truly swear";
+							mes "fidelity and patience?";
+							mes "Will you marry "+$wed_groom$+"?";
+							next;
+							if (select("Yes, I do.:^FF0000No.^000000") == 1) {
+								if (isloggedin(getcharid(3,$wed_groom$))) {
+									if (marriage($wed_groom$)) {
+										//Call Wedding effect
+										wedding;
+										//Give ring to Bride, and change to wedding sprite.
+										sc_start SC_Wedding,3600000000,1;
+										getitem 2635,1; //Bride_Ring
+										//Give ring to Groom, and change to wedding sprite.
+										attachrid(getcharid(3,$wed_groom$));
+										sc_start SC_Wedding,3600000000,1;
+										getitem 2634,1; //Bridegroom_Ring
+										detachrid;
+										//Switch Script progression back to Bride
+										attachrid(getcharid(3,$wed_bride$));
+										cutin "wedding_bomars02",2;
+										mapannounce "prt_church","I now pronounce you, "+$wed_groom$+" and "+$wed_bride$+", husband and wife.",bc_map;
+										mes "[Vomars]";
+										mes "By the power invested";
+										mes "in me as Royal Bishop of";
+										mes "the Rune-Midgarts Kingdom,";
+										mes "I now pronounce you husband";
+										mes "and wife. May your future be";
+										mes "blessed with many great joys.";
+										next;
+										mes "[Vomars]";
+										mes "And lastly...";
+										mes "Always be happy,";
+										mes "dear "+$wed_bride$+"...";
+										set $wed_groom$,"";
+										set $wed_bride$,"";
+										set $wedding,0;
+										close2;
+										stopnpctimer;
+										cutin "",255;
+										detachrid;
+										end;
+									}
+								}
+								cutin "wedding_bomars03",2;
+								mes "[Vomars]";
+								mes "Hm. It seems that";
+								mes "your groom left before";
+								mes "the ceremony has finished";
+								mes "Please try again once he's";
+								mes "returned.";
+								goto L_End;
+							}
+							else {
+								cutin "wedding_bomars03",2;
+								mapannounce "prt_church","Alas! "+$wed_bride$+" has rejected "+$wed_groom$+"'s marriage proposal!",bc_map;
+								mes "[Vomars]";
+								mes "Hm. It seems that";
+								mes "you've changed your";
+								mes "mind. Although I feel";
+								mes "sorry for the groom, you";
+								mes "must do what your heart";
+								mes "tells you is right. Now, run!";
+							}
+							set $wed_groom$,"";
+							set $wed_bride$,"";
+							set $wedding,0;
+							close2;
+							stopnpctimer;
+							cutin "",255;
+							end;
+						}
+						callsub S_Busy;
+					}
+					callsub S_Busy;
+				}
+				callsub S_Busy;
+			}
+			if (strcharinfo(0) == $wed_bride$) {
+				mes "[Vomars]";
+				mes "Hm? It appears that";
+				mes "Happy Marry still hasn't";
+				mes "received your marriage";
+				mes "application. Please speak";
+				mes "to her so that we can begin";
+				mes "the wedding ceremony.";
+				goto L_End;
+			}
+			callsub S_Busy;
+		}
+		callsub S_Busy;
+	}
+	mes "[Vomars]";
+	mes "I wish you eternal";
+	mes "happiness. No matter";
+	mes "how dark the present may";
+	mes "be, always stand by your";
+	mes "loved one's side and look";
+	mes "to the future with hope.";
+
+L_End:
+	close2;
+	cutin  "",255;
+	end;
+
+S_Busy:
+	if ($wed_groom$ != "" && $wed_bride$ != "") {
+		mes "[Vomars]";
+		mes "The wedding of";
+		mes "Miss "+ $wed_bride$ +" and";
+		mes "Mister "+ $wed_groom$;
+		mes "is currently in progress.";
+		mes "Please keep your voice down.";
+		goto L_End;
+	}
+	mes "[Vomars]";
+	mes "I'm conducting a wedding";
+	mes "for another couple now, so";
+	mes "please wait patiently for your";
+	mes "turn. Thanks for understanding... ^FFFFFF ^000000";
+	goto L_End;
+
+OnInit:
+	set $wedding,0;
+	end;
+
+OnStop:
+	stopnpctimer;
+	end;
+
+OnReset:
+	set $wed_groom$,"";
+	set $wed_bride$,"";
+	set $wedding,0;
+	end;
+
+OnTimer180000:
+	mapannounce "prt_church","You've responded too slowly... Next couple, please proceed.",bc_map;
+	set $wed_groom$,"";
+	set $wed_bride$,"";
+	set $wedding,0;
+	stopnpctimer;
+	end;
+}