Fixed some file types

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

1 files changed, 706 insertions, 706 deletions

diff --git a/npc/other/wedding.txt b/npc/other/wedding.txt
index a2271350f..87a994765 100644
--- a/npc/other/wedding.txt
+++ b/npc/other/wedding.txt
@@ -1,707 +1,707 @@
-//////////////////////////////////////////////////////////

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

-// $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,

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

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

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

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

-	close;

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

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

-}

-

-// Mary

-prt_church.gat,95,100,4	script	Mary	71,{

-	mes "[Mary Happy]";

-	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",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_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 "[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 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;

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

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

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

-	close;

-L_Marry:

-	mes "[Mary Happy]";

-	mes "If you wish to get married you must first register.";

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

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

-	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 < 120000) goto L_NeedZeny1;

-	set $groom$,strcharinfo(0);

-	set @register,1;

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

-	next;

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

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

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

-L_AlreadyRegistered:

-	mes "[Mary Happy]";

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

-	close;

-

-L_Bye:

-	mes "[Mary Happy]";

-	mes "Alrighty then, come back soon!";

-	close;

-

-L_InProgress:

-	mes "[Mary Happy]";

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

-	close;

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

-	

-L_Married:

-	mes "[Mary Happy]";

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

-	close;

-L_LiveSolo:

-	mes "[Mary Happy]";

-	mes "Well live a happy bachelors life";

-	close;

-L_NotBride:

-	mes "[Mary Happy]";

-	mes "You're not the bride";

-	close;

-L_YouCantMarryYourself:

-	mes "[Mary Happy]";

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

-	close;

-}

-

-prt_church.gat,95,95,4	script	Mary	71,{

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

-	set @register,0;

-	divorce;

-	close;

-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",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 divorce,2;

-	set @register,0;

-	divorce;

-	close;

-L_No:

-	mes "[Mary Sad]";

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

-	close;

-L_DivorceSystem:

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

+//////////////////////////////////////////////////////////
+//             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
+// $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,
+	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";
+	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,
+	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 Mary 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 "[Mary Happy]";
+	mes "How come you forgot your wife name!? Sorry come back later when you know who you want to marry.";
+	close;
+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;
+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;
+}
+
+// Mary
+prt_church.gat,95,100,4	script	Mary	71,{
+	mes "[Mary Happy]";
+	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",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_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 "[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 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;
+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?";
+	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 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 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 "[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;
+	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.";
+	close;
+L_Marry:
+	mes "[Mary Happy]";
+	mes "If you wish to get married you must first register.";
+	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, 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?";
+	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]";
+	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 < 120000) goto L_NeedZeny1;
+	set $groom$,strcharinfo(0);
+	set @register,1;
+	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 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 "[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 100,000z fee for your wedding fees and outfit.";
+	next;
+	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-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.";
+	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,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;
+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;
+L_AlreadyRegistered:
+	mes "[Mary Happy]";
+	mes "You can't register a second time silly.";
+	close;
+
+L_Bye:
+	mes "[Mary Happy]";
+	mes "Alrighty then, come back soon!";
+	close;
+
+L_InProgress:
+	mes "[Mary Happy]";
+	mes "I cannot accept registrations while a wedding is in progress, try again later.";
+	close;
+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;
+	
+L_Married:
+	mes "[Mary Happy]";
+	mes "Hello again "+strcharinfo(0)+", I hope wish for the best of luck in your life.";
+	close;
+L_LiveSolo:
+	mes "[Mary Happy]";
+	mes "Well live a happy bachelors life";
+	close;
+L_NotBride:
+	mes "[Mary Happy]";
+	mes "You're not the bride";
+	close;
+L_YouCantMarryYourself:
+	mes "[Mary Happy]";
+	mes "What the hell you trying to do? Marry yourself?O_O";
+	close;
+}
+
+prt_church.gat,95,95,4	script	Mary	71,{
+	mes "[Mary 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 "[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",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 divorce,1;
+	set @register,0;
+	divorce;
+	close;
+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",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 divorce,2;
+	set @register,0;
+	divorce;
+	close;
+L_No:
+	mes "[Mary Sad]";
+	mes "You should always be sure about what step you take in life.";
+	close;
+L_DivorceSystem:
+	mes "[Mary 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;
 }
\ No newline at end of file