//UNFINISHED! need to set names and give rings!
//Made by AppleGirl and Evera/Lorri.
//PROPERTY OF eATHENA! OTHER ATHENAS DON'T TOUCH THIS!
//Note: permanent variables event_marriage. 0=nothing done yet 1=m registered 2=f registered 3=m before ring 4=f before ring 5=m married 6=f married

prt_church.gat,99,125,8	script	Tristan the Third	108,{
mes "[Thristan the Third]";
if(event_marriage == 0) goto Lreg;
if(event_marriage == 1) goto Lmale;
if(event_marriage == 2) goto Lfemale;
if(event_marriage == 3) && (countitem(2634)<1) || (event_marriage == 3) && (getequipname(136) == 2634) goto Lmcere;
if(event_marriage == 4) && (countitem(2635)<1) || (event_marriage == 4) && (getequipname(136) == 2635) goto Lfcere;
if(event_marriage >= 5) goto Lhappy;
//else goto Lhappy;
//if(even
Lreg:
mes "If you wish to get married you must first register";
Lmale:
if (getequipname(16) == 7170) goto Lmale2;
if (getequipname(16) != 7170) goto Lmale3;
mes "OmG1! H4X0Rz!1";
close;
Lmale2:
if (zeny >= 30000) goto Lmale4;
if (zeny <= 29999) goto Lmale3;
mes "OmG1! H4X0Rz!1";
close;
//NOTE! Triggers to save/respond names aren't done!
Lmale4:
	mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
	mes "Do you wish to marry?";
menu
"yes",Lmyes,"No",Lcancel;
Lmyes:
//enable for input; can't be done with current script.c
//	mes"What is your bride's name?";
//	input @namemale;
	next;
	mes "I will now collect your ^FF00FFmoney^000000.";
	set Zeny, Zeny-30000;
	next;
//enable for input; can't be done with current script.c
//	input @namemale;
	mes "Here is the ring. Please put it on your bride's hand";
	mes "By the holy power invested in me..";
	mes "I now pronounce you husband and wife!";
	mes "you may now kiss the bride.";
	emotion 46;
//enable for setvariable
	set event_marriage,3;
	getitem 2634,1;
	close;
Lmale3:
	mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
	mes "Have a good look for it.";
	mes "Because you must bring it in order to get married.";
	mes "If you have it right now, please show me";
close;
Lfemale:
if (zeny >= 20000) goto Lfemale4;
if (zeny <= 19999) goto Lfemale3;
mes "OmG1! H4X0Rz!1";
close;
Lfemale4:
	mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
	mes "Do you wish to marry?";
menu
"yes",Lfyes,"No",Lcancel;
Lfyes:
//enable for input; can't be done with current script.c
//	mes "What is your groom's name?";
//	input @namefemale;
	next;
	mes "I will now collect your ^FF00FFmoney^000000.";
	set Zeny, Zeny-20000;
	next;
//enable for input; can't be done with current script.c
	input @namefemale;
	mes "Here is the ring. Please put it on your groom's hand";
	mes "By the holy power invested in me..";
	mes "I now pronounce you husband and wife!";
//enable for setvariable
	set event_marriage,4;
	getitem 2635,1;
	close;
Lfemale3:
	mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
	mes "Have a good look for it.";
	mes "Because you must bring it in order to get married.";
	mes "If you have it right now, please show me";
close;
Lmcere:
	mes "By the holy power invested in me..";
	mes "I now pronounce you husband and wife!";
	mes "you may now kiss the bride.";
	emotion 46;
	set event_marriage,5;
close;
Lfcere:
	
	mes "By the holy power invested in me..";
	mes "I now pronounce you husband and wife!";
	emotion 46;
	set event_marriage,6;
close;
Lhappy:
mes "I hope your marriage is happy and successful!";
close;
Lcancel:
mes "A true pity. I hope to see you another time.";
close;
}
prt_church.gat,95,100,3	script	Mary	71,{
mes "[Mary Happy]";
if(event_marriage == 0) goto Lstart;
if(event_marriage != 0) goto Lhappy;
mes "OmG1! H4X0Rz!1";
close;
Lstart:
mes "Getting married bring a lot of joy.";
mes "By any chance, you you want to get engaged with someone?";
next;
menu "Explain the principles of Marrige",Lprinciples,"How does the marrige system work.",Lsystem,"I want to get married with someone.",Lmarried,"I live solo forever!",Lsolo;

Lprinciples:
	mes "[Mary Happy]";
	mes "His Majesty King Tristan III of the Rune Midgard Kingdom will be officiating this wedding, with the intent of blessing all the people through his noble message.";
	next;
	mes "[Mary Happy]";
	mes "Although His Majesty has a rather busy agenda, for the sake of newly married couples, he has personally come here, to the Prontera Church.";   
	mes "It is the favor of our King that everyone would live happily ever after.";
	next;
	mes "[Mary Happy]";
	mes "The proposal must be done with prudence and courtesy.";
	mes "Once the wedlocks have been made, they cannot be undone.";
	mes "The two who are united in marriage must be with the other forever until the day they leave this world.";
	next;
	mes "[Mary Happy]";
	mes "Also, males only with females, and females only with males can be wed.  Although there may be those who desire a homosexual or bestial marriage... it is not approved.";
	next;
	mes "[Mary Happy]";
	mes "If there is a significant other whom you want to spend the rest of your life with, then don't be shy to propose.";
	mes "Wishing for many blessings upon couples who wish to live happily ever after..";
	close;
Lsystem:
	mes "[Mary Happy]";
	mes "First make sure both players a registered to get married.";
	mes "Obviously, you must know each other to get married?";
	mes "If both have registered, and you must be on the same party.";
	mes "Then talk to Thristan the Third.";
	next;
	mes "[Mary Happy]";
	mes "You must go to Thristan the Third,";
	mes "and the male must talk to him first.";
	mes "And you must tell him the girl";
	mes "you wish to get married with.";
	mes "Be sure to tell him exactly who you want to marry.";
	next;
	mes "[Mary Happy]";
	mes "After the male has spoken, next the female must talk.";
	mes "Then when both of you have spoken each others names,";
	mes "Thristan the third will read out both of your names.";
	next;
	mes "[Mary Happy]";
	mes "After you have got married,";
	mes "you will both recive a ring of marrige.";
	mes "And as soon as both of you wear these rings,";
	mes "you will be forever married with each other.";
	mes "You can also be refused of a lasting marrige.";
	mes "But, dont be sad.";
	next;
	mes "[Mary Happy]";
	mes "If there are many people that wish to get married,";
	mes "So please keep to the order you register.";
	mes "Thristan does not do multiple marriges at once.";
	mes "He will only see one couple at a time.";
	next;
	mes "[Mary Happy]";
	mes "Lastly, you must put forth your name quickly";
	mes "to Thristan the third.";
	mes "After the male has said yes to marrage ";
	mes "the female has 3 minutes to reply.";
	mes "Or you shall forever never be able";
	mes "to get married.";
	next;
	mes "[Mary Happy]";
	mes "An easy way to write down the each others name,";
	mes "Send a message to each other";
	mes "then in the private message window press up";
	next;
//o_O who removed this part? we use a diff system now
//	mes "[Mary Happy]";
//	mes "Then it will show the other persons name.";
//	mes "If you press ctrl + C that name will be saved.";
//	mes "Next time you need that name";
//	mes "you can press shift + insert.";
//	mes "Then you will get that name quickly and easily.";
//	next;
//	mes "[Mary Happy]";
//	mes "You should have a go at using this method.";
//	mes "Remeber, Press ctrl +  C to save that name.";
//	next;
//	input @nametest;
	mes "[Mary Happy]";
	mes "Hopefully you will remember this method.";
	mes "If you ever decide to get married.";
	mes "Remember to register.";
Lmarried:
	mes "[Mary Happy]";
	mes "If you wish to get married you must first register.";
	mes "Male is ^FF00FF30,000^000000 zeny and female is ^FF00FF20,000^000000 zeny";
	mes "Both male and female must have registered,";
	mes "and both must have paid fees,";
	mes "and the female must have a wedding veil.";
	next;
	mes "[Mary Happy]";
	mes "If both people have paid and meet recquirements";
	mes "you are able to get married strait away.";
	mes "Do you wish to register to get married?";
	menu "Yes",LYes,"No",LNo;
LYes:
//add check for sex and if veil and tuxedo and wedding dress
if (Sex == 1) goto Lmale;
if (Sex == 0) goto Lfemale;
Lmale:
if (getequipname(16) == 7170) goto Lmale2;
if (getequipname(16) != 7170) goto Lmale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
close;
Lmale2:
if (zeny >= 30000) goto Lmale4;
if (zeny <= 29999) goto Lmale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
close;
Lmale4:
	set event_marriage,1;
	mes "[Mary Happy]";
	mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
close;
Lmale3:
	mes "[Mary Happy]";
	mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
	mes "Have a good look for it.";
	mes "Because you must bring it in order to get married.";
	mes "If you have it right now, please show me";
close;

Lfemale:
if (getequipname(16) == 2338) && (getequipname(256) == 2206) goto Lfemale2;
if (getequipname(16) != 2338) || (getequipname(256) == 2206) goto Lfemale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
Lfemale2:
if (zeny >= 20000) goto Lfemale4;
if (zeny <= 19999) goto Lfemale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
Lfemale4:
	set event_marriage,2;
	mes "[Mary Happy]";
	mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
Lfemale3:
	mes "[Mary Happy]";
	mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
	mes "Have a good look for it.";
	mes "Because you must bring it in order to get married.";
	mes "If you have it right now, please show me";
close;
LNo:	
	mes "I hope you have a wonderful day!";
close;
Lhappy:
	mes "I hope your marriage is happy and successful!";
close;
}