Wedding script 1.45 (i forgot to commit before sorry <.<)

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

1 files changed, 291 insertions, 122 deletions

diff --git a/npc/other/wedding.txt b/npc/other/wedding.txt
index f7cab533b..1d7cd5cd5 100644
--- a/npc/other/wedding.txt
+++ b/npc/other/wedding.txt
@@ -1,15 +1,37 @@
 //////////////////////////////////////////////////////////

-//             Wedding Script Alpha (v1.0)              //

-//                    Feat - DiaDz (Basic Updates By AG)//

-//////////////////////////////////////////////////////////

-//

-// Progress: Finished? (Ehm... can anything more be done to it?)

-// Original Concepts by AppleGirl and Evera/Lorri.

-// 

-//////////////////////////////////////////////////////////

-// PROPERTY OF eATHENA! OTHER ATHENAS DON'T TOUCH THIS! //

+//             Wedding Script Alpha (v1.4)              //

 //////////////////////////////////////////////////////////

 //

+//=====eAthena Script====================================

+// Wedding Script

+//=====By================================================

+// AppleGirl and Evera(version 1.0)

+//=====Current Version===================================

+// 1.4

+//=====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

+// No need to buy a tuxedo/dress everytime you register anymore, unless you divorce

+// Fixed some of that bugged timers (*stares whocares*) Now it is exactly 5 minutes and not 2

+// 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.

+//=======================================================

 // Variable Notes:

 //

 // event_wedding - 1 signifies marriage

@@ -22,37 +44,41 @@
 // $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(sex == 1 && $groom$ == strcharinfo(0) && $progress != 3) goto ceremony;

-	if(@register == 0) goto reg;

-	if(sex == 0 && $bride$ == strcharinfo(0)) goto ceremony2;

-	menu "Here To Attend",wed,"Here for another reason",other;

-ceremony:

-	if($progress == 1) goto needbride;

+	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 "Preform Wedding.",-,"Cancel Wedding.",weddie;

+	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 groom's name, remember to spell it correctly.";

-	input $name$;

+	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 inprog;

+	if($name2$ != $bride$) goto L_WrongBrideName;

+	deltimer "a13";

 	marriage $name2$;

-	next;

 	mes "[Tristan the Third]";

 	mes "Please tell your wife to speak to me, and then we will start exchanging rings";

-	if(countitem(2613) < 1) goto needring;

-	delitem 2613,1;

-	getitem 2635,1;

+	delitem 2613,1;//Items: Diamond_Ring,

+	getitem 2635,1;//Items: Wedding_Ring_F,

 	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";

@@ -68,21 +94,25 @@ ceremony:
 	addtimer 100000,"a11";

 	addtimer 105000,"a12";

 	close;

-ceremony2:

+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 inprog;

+	if($name$ != $groom$) goto L_WrongGroomName;

+	deltimer "a13";

+	deltimer "weddinglimit1";

+	deltimer "weddinglimit2";

 	marriage $name$;

-	if(countitem(2613) < 1) goto needring;

-	delitem 2613,1;

-	getitem 2634,1;

+	delitem 2613,1;//Items: Diamond_Ring,

+	getitem 2634,1;//Items: Wedding_Ring_M,

 	set @get_ring,1;

 	close;

-weddie:

+L_CancelWedding:

 	mes "[Tristan the Third]";

-	mes "The wedding has been cancelled.";

+	mes "The wedding has been cancelled by "+strcharinfo(0)+".";

 	set $progress,0;

 	set $groom$,"null";

 	set $bride$,"null";

@@ -101,26 +131,27 @@ weddie:
 	deltimer "a10";

 	deltimer "a11";

 	deltimer "a12";

+	deltimer "a13";

 	close;	

-reg:

+L_GroomNeedToRegister:

 	mes "[Tristan the Third]";

 	mes "Hello, please register with Mary if you want me to perform a marriage for you.";

 	close;

-wed:	

-	if(event_wedding != 1) goto guest;

+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;

-needbride:

+L_BrideNeedToRegister:

 	mes "[Tristan the Third]";

 	mes "I'm sorry, I cannot start the ceremony if the bride has not registered yet.";

 	close;

-other:

-	if(@get_ring == 1) goto wed;

+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",no;

+	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.";

@@ -149,33 +180,45 @@ other:
 	deltimer "a12";

 	mes "The wedding has been called off.";

 	close;

-no:

-	if($groom$ == strcharinfo(0)) goto inprog;

+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;

-guest:

+L_Guest:

 	mes "[Tristan the Third]";

 	mes "Enjoy the cerimony.";

 	mes "But I must continue the cerimony, so lets talk after.";

 	close;

-inprog:

+L_InProgress:

 	mes "[Tristan the Third]";

 	mes "Your wedding is in progress, please try talking with me later.";

 	close;

-needring:

-	mes "[Tristan the Third]";

-	mes "You need a diamond ring";

+L_WrongBrideName:

+	mes "[Mary Happy]";

+	mes "How come you forgot your wife name!? Sorry come back later when you know who you want to marry.";

 	close;

-tux:

+L_WrongGroomName:

 	mes "[Mary Happy]";

+	mes "How come you forgot your husband 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;

-dress:

-	mes "[Mary Happy]";

+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";

-	mes "and Wedding Veil to get married.";

+	mes "Well sorry to break it to you, you need a wedding dress to get married.";

 	close;

 }

 

@@ -185,8 +228,52 @@ prt_church.gat,95,100,4	script	Mary	71,{
 	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:

+	menu "Explain the principles of Marrige",L_Principles,"How does the marrige system work.",L_WeddingSystem,"I want to get married with someone.",L_Marry,"I live solo forever!",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_EnableSameSex:

+	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 "[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;

@@ -200,13 +287,13 @@ Lprinciples:
 	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.";

+	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 "[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:

+L_WeddingSystem:

 	mes "[Mary Happy]";

 	mes "First make sure both players a registered to get married.";

 	mes "Obviously, you must know each other to get married?";

@@ -215,13 +302,13 @@ Lsystem:
 	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 "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 "[Mary Happy]";

-	mes "After the male has spoken, next the female must talk.";

+	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;

@@ -252,7 +339,6 @@ Lsystem:
 	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 (re-enabled)

 	mes "[Mary Happy]";

 	mes "Then it will show the other persons name.";

 	mes "If you press ctrl + C that name will be saved.";

@@ -270,119 +356,202 @@ Lsystem:
 	mes "If you ever decide to get married.";

 	mes "Remember to register.";

 	close;

-Lmarried:

+L_Marry:

 	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 "Male is ^FF00FF120,000^000000 zeny and female is ^FF00FF100,000^000000 zeny";

+	if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) mes "But only ^FF00FF60,000^000000 zeny for male and ^FF00FF50,000^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,";

-	mes "and the female must have a wedding veil.";

+	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 "[Mary 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?";

-	menu "I Want To Register To Be Married.",-,"I'm Fine, Thanks Anyways.",bye;

-	if(baselevel < 45) goto lvl;

-	if(event_wedding == 1) goto wed;

-	if(@register >= 1) goto regd;

-	if($progress >= 2) goto inprog;

-	if(sex == 0) goto female;

+	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 "[Mary Happy]";

-	mes "No problem sir, please fill out your name here.";

-	mes "And I'll need to collect a 1,300,000z fee for your wedding and suit rental.";

+	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 120,000z fee for your wedding fees and outfit.";

 	next;

 	mes "[Mary Happy]";

 	mes "Now You Must Insert The Your Bride's Name";

 	input $name$;

 	next;

-	if(zeny < 1300000) goto needz;

+	if(zeny < 120000) goto L_NeedZeny1;

 	set $groom$,strcharinfo(0);

 	set @register,1;

-	set zeny,zeny-1300000;

+	set zeny,zeny-120000;

 	set $progress,1;

+	if(sex == 1) getitem 7170,1;

+	if(sex == 0) getitem 2338,1;

+	set @outfit,1;

 	mes "[Mary Happy]";

 	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your marriage.";

-	addtimer 60000,"weddinglimit1";

+	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.";	

+	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";	

 	deltimer "a13";

 	addtimer 300000,"a13";

 	close;

-female:

-	if ($name$ != strcharinfo(0)) goto notbride;

-	if($progress != 1) goto needgroom;

+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 "[Mary Happy]";

-	mes "No problem miss, please fill out your name here.";

-	mes "And I'll need to collect a 1,200,000z fee for your wedding and dress rental.";

+	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 100,000z fee for your wedding fees and outfit.";

 	next;

-	if(zeny < 1200000) goto needz2;

-	if($name2$ != $groom$) goto inprog;

+	if(zeny < 100000) goto L_NeedZeny2;

+	mes "[Mary 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-1200000;

+	set zeny,zeny-100000;

 	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 "[Mary 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 "[Mary 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 "[Mary Happy]";

+	mes "Now You Must Insert The Your Bride's Name";

+	input $name$;

+	next;

+	if(zeny < 60000) goto L_NeedZeny3;

+	set $groom$,strcharinfo(0);

+	set @register,1;

+	set zeny,zeny-60000;

+	set $progress,1;

+	mes "[Mary 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 "[Mary 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 < 50000) goto L_NeedZeny4;

 	mes "[Mary 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-50000;

+	set $progress,2;

+	set event_wedding,1;

+	deltimer "weddinglimit1";

+	addtimer 300000,"weddinglimit2";

 	next;

 	mes "[Mary Happy]";

 	mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your wedding.";

-	deltimer "weddinglimit1";

-	addtimer 120000,"weddinglimit2";

+	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.";

+	mes "Please hurry to the altar. We have to be ready for another wedding in 5 minutes.";

 	deltimer "a13";

 	addtimer 300000,"a13";

 	close;

-needz:

-	set @zleft,1300000-zeny;

+

+L_NeedZeny1:

+	set @zleft,120000-zeny;

+	mes "[Mary 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,100000-zeny;

+	mes "[Mary 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,60000-zeny;

 	mes "[Mary Happy]";

 	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";

 	set @zleft,0;

 	close;

-needz2:

-	set @zleft,1200000-zeny;

+L_NeedZeny4:

+	set @zleft,50000-zeny;

 	mes "[Mary Happy]";

 	mes "I'm terribly sorry, I am unable to register you. You seem to be "+@zleft+"z short.";

 	set @zleft,0;

 	close;

-regd:

+L_AlreadyRegistered:

 	mes "[Mary Happy]";

 	mes "You can't register a second time silly.";

 	close;

-	

-bye:

+

+L_Bye:

 	mes "[Mary Happy]";

 	mes "Alrighty then, come back soon!";

 	close;

 

-inprog:

+L_InProgress:

 	mes "[Mary Happy]";

 	mes "I cannot accept registrations while a wedding is in progress, try again later.";

 	close;

-	

-needgroom:

+L_WrongName:

+	mes "[Mary Happy]";

+	mes "No one have registered with that name. Sorry.";

+	close;

+L_GroomNotRegistered:

 	mes "[Mary Happy]";

 	mes "The groom must register first in order to initiate the wedding.";

 	close;

 	

-wed:

+L_Married:

 	mes "[Mary Happy]";

 	mes "Hello again "+strcharinfo(0)+", I hope wish for the best of luck in your life.";

 	close;

-Lsolo:

+L_LiveSolo:

 	mes "[Mary Happy]";

 	mes "Well live a happy bachelors life";

 	close;

-notbride:

+L_NotBride:

 	mes "[Mary Happy]";

 	mes "You're not the bride";

 	close;

-lvl:

+L_YouCantMarryYourself:

 	mes "[Mary Happy]";

-	mes "Im sorry rules and regulations state that you must be base level 45 or higher.";

+	mes "What the hell you trying to do? Marry yourself?O_O";

 	close;

 }

 

@@ -391,45 +560,49 @@ prt_church.gat,95,95,4	script	Mary	71,{
 	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",divorce_,"What do I need for a divorce",system;

-divorce_:

-	if(divorcee > 0) goto divorce__;

-	

+	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 "[Mary 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",No;

-

+	menu "Are you sure",-,"No i'm not ready",L_No;

 	mes "[Mary 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 divorcee,1;

+	set divorce,1;

+	set @register,0;

 	divorce;

 	close;

-divorce__:

+L_AlreadyDivorced:

 	mes "[Mary 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",No;

+	menu "Are you sure",-,"No i'm not ready",L_No;

 	mes "[Mary 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 divorcee,2;

+	set divorce,2;

+	set @register,0;

 	divorce;

 	close;

-No:

+L_No:

 	mes "[Mary Sad]";

-	mes "You should always be sure about what step you take in life";

+	mes "You should always be sure about what step you take in life.";

 	close;

-system:

+L_DivorceSystem:

 	mes "[Mary Sad]";

-	mes "Underconstruction";

+	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,{

@@ -503,10 +676,10 @@ 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 wedded wife?",0;

+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 wedded husband?",0;

+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;

@@ -520,7 +693,7 @@ areaannounce "prt_church.gat",0,0,350,350,"I pronouce you Husband and Wife, you
 	set $name$,"null";

 	set $name2$,"null";	

 }

-prt_church.gat,99,124,0 script	a13	-1,{

+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;

@@ -531,8 +704,4 @@ areaannounce "prt_church.gat",0,0,350,350,"The wedding has been cancelled.",0;
 	set @register,0;

 	set event_wedding,0;

 	set @get_ring,0;

-}

-

-//////////////////////////////////////////////////////////

-// PROPERTY OF eATHENA! OTHER ATHENAS DON'T TOUCH THIS! //

-//////////////////////////////////////////////////////////
\ No newline at end of file
+}
\ No newline at end of file