//====================================================================
//Ragnarok Online EP4.0(J) Marriage System      V1.0
//====================================================================
prt_church.gat,94,100,4	script	RpjI	71,{
	mes "[nbs[}[]";
	mes "Ƃ́AK𖲌";
	mes "SĂ̐lX̊]łB";
	mes "₨Aācc";
	mes "ȂA";
	mes "̂łH";
	next;
	menu "ɂĕ",-,"Ăǂł",L2,"\݂",L3,"͖G̃\RcI",L4;
		mes "[nbs[}[]";
		mes "̓[~bhKbc";
		mes "łgX^3É";
		mes "ׂĂ̐VYVwɏj^";
		mes "SĎsĂ܂B";
		next;
		mes "[nbs[}[]";
		mes "ɂZłAVo";
		mes "}X̂߁Ãve";
		mes "吹ɁA킴킴oł";
		mes "̂łB";
		next;
		mes "[nbs[}[]";
		mes "܂AɂĂłccTd";
		mes "sĂB";
		mes "xƁAxƕʂ邱Ƃ";
		mes "oȂłBl";
		mes "Ⴆl̐ƂĂ";
		mes "iɈꏏȂ̂łB";
		next;
		mes "[nbs[}[]";
		mes "j͏ƁA͒jƌ";
		mes "Ƃł܂B⃂X^[";
		mes "Ǝ咣邩";
		mes "܂񂪁ccÉF߂";
		mes "ȂȂ̂ŁA܂B";
		next;
		mes "[nbs[}[]";
		mes "񑩂肪Ⴂ";
		mes "܂Av|[YĂ݂";
		mes "łH";
		mes "KȍKȖ𖲌";
		mes "ׂĂ̗lɏj!!";
		close;
	L2:
		mes "[nbs[}[]";
		mes "܂AVYVw͎Ɍ̐\݂";
		mes "ĂB\܂܂";
		mes "l̃p[eB[g݁A";
		mes "ÉɉɍsĂB";
		next;
		mes "[nbs[}[]";
		mes "Éւ́Aŏ^0000FFj^000000b";
		mes "BČ̖O";
		mes "𐳊mɂ`B";
		next;
		mes "[nbs[}[]";
		mes "VY񍐂I܂A͐Vw";
		mes "ԂłBÉɐVY̖O𐳊m";
		mes "`B";
		next;
		mes "[nbs[}[]";
		mes "݂̖O񍐂I";
		mes "w֌sȀuԁAl";
		mes "ï̏؂𓾂ƂƂȂ܂B";
		next;
		mes "[nbs[}[]";
		mes "\ޕ񂢂ꍇA";
		mes "Ԃ҂ƂɂȂ܂B";
		mes "É̂̂1ł̂ŁA";
		mes "̎sƂ͏oȂ̂łB";
		next;
		mes "[nbs[}[]";
		mes "āAÉւ񍐂sۂ́A";
		mes "^ff0000ŏɐVY|Ă3ȓ";
		mes "ׂẲߒI点ĂB^000000";
		mes "3ȓɎIȂꍇ";
		mes "xƌ邱Ƃ͏o܂B";
		next;
		mes "[nbs[}[]";
		mes "܂AÉɌ̖O";
		mes "鎞́AKmɂ肢܂B";
		mes "ł񍐊ԈႢ܂";
		mes "͂莮ɎxĂ܂܂B";
		next;
		mes "[nbs[}[]";
		mes "̎OɁAK̖O";
		mes "mȒԂmFB";
		next;
		mes "[nbs[}[]";
		mes "@Ƃ܂ẮA";
		mes "̕ɎłsĂ݂";
		mes "낵Ǝv܂Bɒʂ";
		mes "̖OԂłAʂ";
		mes "Ȃ΁AOԈĂ\";
		mes "܂B";
		next;
		mes "[nbs[}[]";
		mes "܂AɈxłāA";
		mes "`bgEBhẼ{^";
		mes "܂BƁA";
		mes "łXgɑ̖O";
		mes "\܂̂őI܂傤B";
		next;
		mes "[nbs[}[]";
		mes "̖O{^̍";
		mes "\܂̂ŁA̖O";
		mes "Ctrl+CŃRs[Ă܂B";
		mes "΁A񍐂̍ۂ";
		mes "Shift{Insertő̖O";
		mes "ĂяoƂł܂B";
		next;
		mes "[nbs[}[]";
		mes "1)Ǝłb";
		mes "2)łXgɕ\ꂽ";
		mes "̖OI";
		mes "3)`bgEBhE̍";
		mes "\ꂽ̖O";
		mes "Ctrl+CŃRs[B";
		next;
		mes "[nbs[}[]";
		mes "̕@ŁA̖O";
		mes "mɊo邱Ƃł܂A";
		mes "Éɕ񍐂鎞ɂ";
		mes "gĂƎv܂B";
		next;
		mes "[nbs[}[]";
		mes "łƂȂł̂ŁA1";
		mes "Ă݂܂傤B";
		next;
		mes "[nbs[}[]";
		mes "Ctrl{CŃRs[̂";
		mes "Shift{InsertL[ŌĂяoĂ݂";
		mes "B낵łH";
		next;
		input @test$;
		mes "[nbs[}[]";
		mes "ǂłAo܂H";
		next;
		mes "[nbs[}[]";
		mes "ł́AƎv肪";
		mes "܂A\݂𐥔ǂB";
		close;
	L3:
		mes "[nbs[}[]";
		mes "邽߂ɂ́A";
		mes "܂B";
		next;
		mes "[nbs[}[]";
		mes "܂Aɂ^3377FFx[Xx";
		mes "45ȏ^000000łȂ΂Ȃ܂B";
		mes "āAVYVwlƂA\݂";
		mes "ĂKv܂B";
		next;
		mes "[nbs[}[]";
		mes "\݂̍ہAj^3377FF1,300,000zeny^000000";
		mes "^3377FF^LV[h1^000000A^3377FF1,200,000zeny^000000";
		mes "^3377FFEFfBOhX1^000000KvłB";
		next;
		mes "[nbs[}[]";
		mes "ƁAwւȂ΂Ȃ";
		mes "̂ŁAVYVw1A^3377FF_C";
		mes "̎w^000000ĂB";
		mes "VY1AVw1łB";
		mes "낵łˁB";
		next;
		mes "[nbs[}[]";
		mes "ȏ̕iSĂĂ̂mF";
		mes "܂A\ݏɌ䎩̖O";
		mes "LĂ܂B";
		next;
		mes "[nbs[}[]";
		mes "lƂ\݂ς݂܂";
		mes "邱Ƃł܂B";
		mes "\݂Ȃ܂H";
		next;
		menu "͂",L3_1,"",-;
			mes "[nbs[}[]";
			mes "KȈɂȁ`I";
			close;
		L3_1:
			if (PartnerID > 0) goto Lmarried;
			if (@event_marry==1) goto LError;
			if (BaseLevel<45) goto Llowlevel;
			if (countitem(2613)<1) goto LitemError1;
			if ((Sex==0) && (countitem(2338)<1)) goto LitemError2W;
			if ((Sex==0) && (Zeny<1200000)) goto LZenyError;
			if ((Sex==1) && (countitem(7170)<1)) goto LitemError2M;
			if ((Sex==1) && (Zeny<1300000)) goto LZenyError;
			mes "[nbs[}[]";
			mes "䌋j\グ܂I";
			next;
			mes "[nbs[}[]";
			mes "ł́Aꂪ\ݏłB";
			mes "Ɏ̖OLĂB";
			next;
		LEnterName:
			input @name$;
			if (@name$!=strcharinfo(0)) goto LNameError;
			delitem 2613,1;
			if (Sex==0) delitem 2338,1;
			if (Sex==0) set Zeny,Zeny-1200000;
			if (Sex==1) delitem 7170,1;
			if (Sex==1) set Zeny,Zeny-1300000;
			set @event_marry,1;
			mes "[nbs[}[]";
			mes "͂A\ݏ܂B";
			mes "AÉɂ̖͌O";
			mes "邱ƂɂȂ܂B̑Oɑ";
			mes "O𐳊mɌ悤A";
			mes "Ƃ߂܂B";
			next;
			mes "[nbs[}[]";
			mes "ł́A̕\݂ς܂";
			mes "܂AlŃp[eB[g";
			mes "̉ɂ܂É̌ւǂB";
			next;
			mes "[nbs[}[]";
			mes "āccKɁ`";
			emotion 3;
			close;
	L4:
		emotion 23;
		hideoffnpc "\Rc#ve";
		hideoffnpc "\Rc#QtF";
		hideoffnpc "\Rc#N";
		hideoffnpc "\Rc#tFC";
		hideoffnpc "\Rc#A}c";
		hideoffnpc "\Rc#R";
		donpcevent "::OnSolos";
		mes "[\Rc]";
		mes "B1lŏoႤI";
		mes "_WŃp[eB[ґ򂾁I";
		mes "ɂ͐SɌ߂NPCI";
		mes "܂ē]E܂œƂłI";
		mes "NX}Xɂ̓VOx`I";
		mes "͖G̃\RcI";
		next;
		hideonnpc "\Rc#ve";
		hideonnpc "\Rc#QtF";
		hideonnpc "\Rc#N";
		hideonnpc "\Rc#tFC";
		hideonnpc "\Rc#A}c";
		hideonnpc "\Rc#R";
		emotion 4;
		close;
Llowlevel:
	mes "[nbs[}[]";
	mes "v|[YȂɁA";
	mes "bKvȂ悤łBɂ͋`";
	mes "ӔC܂B̕邭";
	mes "ȂĂA炵ĉB";
	close;
LitemError1:
	mes "[nbs[}[]";
	mes "wւɎg_C̎wւ";
	mes "YĂ悤łˁB";
	mes "_C̎wւɂȂĂ";
	mes "܂\݂B";
	close;
LitemError2M:
	mes "[nbs[}[]";
	mes "A^LV[h͂ǂȂ܂H";
	mes "̂ɁAԖ̂悤ȏo";
	mes "ł́ccꐶɈx̎łA";
	mes "YꂸɏĂĂ܂B";
	close;
LitemError2W:
	mes "[nbs[}[]";
	mes "AEFfBOhX͂ǂȂ";
	mes "܂ĤɁAԉłh";
	mes "Xł́ccꐶɈx̎łA";
	mes "YꂸɏĂĂ܂B";
	close;
LZenyError:
	mes "[nbs[}[]";
	mes "\󂲂܂񂪁A̔p";
	if (Sex==0) mes "1,200,000zenyKvłB";
	if (Sex==1) mes "1,300,000zenyKvłB";
	close;
LNameError:
	mes "[nbs[}[]";
	mes "܂܂I";
	mes "̖O𐳂ƂoȂ";
	mes "̂łBȂA";
	mes "O炢悤ɂȂ";
	mes "ccxAɎ̖";
	mes "OƐmɋLĂB";
	next;
	goto LEnterName;
LError:
	mes "[nbs[}[]";
	mes "Ałɐ\݂Ă悤";
	mes "łˁB̉ɕÉႢ";
	mes "܂̂ŁAÉւƕȀԂ";
	mes "҂B";
	close;
Lmarried:
	mes "[nbs[}[]";
	mes "Ă悤łˁB";
	mes "d͕ÉF߂Ă܂B";
	next;
	mes "[nbs[}[]";
	mes "ȑOɁAꐶɂƂ";
	mes "񑩂jƂƂAǂ̂悤";
	mes "Ӗł邩cĉC";
	mes "lƂ܂āH";
	next;
	mes "[nbs[}[]";
	mes "͈xłBႦ肪";
	mes "񂾂ƂĂA͉iȂ̂łB";
	close;
OnInterIfInit:
	hideonnpc "\Rc#ve";
	hideonnpc "\Rc#QtF";
	hideonnpc "\Rc#N";
	hideonnpc "\Rc#tFC";
	hideonnpc "\Rc#A}c";
	hideonnpc "\Rc#R";
	end;
}
//========================================================================================
prt_church.gat,99,125,4	script	É	108,{
	if ($@marry==1) goto LErrorWOS;
	if (PartnerID > 0) goto Lmarried;
	if (@event_marry==1) goto Lmarrychk;
	mes "[gX^3]";
	mes "]ނȂA܂͐\݂";
	mes "ς܂ĂȂB";
	close;
Lmarrychk:
	if (Sex==0) goto LmarryWoman;
//PT̐l2lH
	getpartymember getcharid(1);
	if ($@partymembercount != 2) goto LError;
//PTɑ_(ِ)邩
	if (readparam(21,$@partymembername$[0]) == 1) goto LChechSexW;
	if (readparam(21,$@partymembername$[0]) == 0) goto LChechSexM;
LChechSexW:
	if (readparam(21,$@partymembername$[1]) == 1) goto LError;
	goto LChechEnd;
LChechSexM:
	if (readparam(21,$@partymembername$[1]) == 0) goto LError;
	goto LChechEnd;
LChechEnd:
	if (getcharid(0,$@partymembername$[0]) < 0) goto LError;
	if (getcharid(0,$@partymembername$[1]) < 0) goto LError;
//j(LmarryMan)
	if (Sex == 1) goto LmarryMan;
LError:
	mes "[gX^3]";
	mes "]ނȂAl";
	mes "p[eB[ȂB";
	close;
LmarryMan:
	set $@marry,1;
	initnpctimer;/*3ȓɏI点ȂƃZbg*/
	set $@NameMan$,strcharinfo(0);
	mes "[gX^3]";
	mes "KȖ𖲌҂B";
	mes "ꂩlŕސlKł";
	mes "悤Aɉ߂ƂȂ悤";
	mes "l̎iƂȂ悤cc";
	next;
	mapannounce "prt_church.gat","É: VY" + $@NameMan$ + "Aɖ₤cc",8;
	mes "[gX^3]";
	mes "" + $@NameMan$ + "B";
	mes "̏𖾂邭Ƃ炵AU";
	mes "ɕ܂Ƃ鏗̖O";
	mes "ɍB";
	next;
	input $@NameWoman$;
//ł݂邩
	if (getcharid(0,$@NameWoman$) < 0) goto LError2;
//ł
	if (readparam(21,$@NameWoman$) != 0) goto LError3;
	mapannounce "prt_church.gat","É: A̕x߂鎞AnAa߂ƂA₩Ȃ鎞",8;
	mes "[gX^3]";
	mes "VY" + $@NameMan$ + "B";
	mes "A̕x߂鎞AnA";
	mes "a߂ƂA₩Ȃ鎞A";
	mes "" + $@NameWoman$ + "";
	mes "hAԂ߁AǍ̖";
	mes "ߑ邱Ƃ𐾂B";
	next;
	mapannounce "prt_church.gat","É: " + $@NameWoman$ + "AhAԂ߁AǍ̖茘ߑ邱Ƃ𐾂",8;
	menu "܂",-;
	mapannounce "prt_church.gat","É: VY" + $@NameMan$ + "Vw" + $@NameWoman$ + "Ɉ𐾂cc",8;
	mes "[gX^3]";
	mes "ށBł́AVwɖ₤Ă݂悤B";
	set $@marry,2;
	close;
LmarryWoman:
	if ($@marry!=2) goto LErrorWWF;
	mes "[gX^3]";
	mes "KȖ𖲌҂B";
	mes "ꂩlŕސlKł";
	mes "悤Aɉ߂ƂȂ悤";
	mes "l̎iƂȂ悤cc";
	next;
	mapannounce "prt_church.gat","É: Vw" + $@NameWoman$ + "Aɖ₤cc",8;
	mes "[gX^3]";
	mes "" + $@NameWoman$ + "B";
	mes "ɎAU";
	mes "܂Ƃj̖O";
	mes "" + $@NameMan$ + "B";
	next;
	menu "͂",-,"",LWrong;
	mapannounce "prt_church.gat","É: A̕x߂鎞AnAa߂ƂA₩Ȃ鎞",8;
	mes "[gX^3]";
	mes "Vw" + $@NameWoman$ + "B";
	mes "A̕x߂鎞AnA";
	mes "a߂ƂA₩Ȃ鎞A";
	mes "" + $@NameMan$ + "";
	mes "hAԂ߁AǍ̖";
	mes "ߑ邱Ƃ𐾂B";
	next;
	mapannounce "prt_church.gat","É: " + $@NameMan$ + "AhAԂ߁AǍ̖茘ߑ邱Ƃ𐾂",8;
	menu "܂",-,"ccς߂܂",LWrong;
//ݏ
	set $res,marriage($@NameMan$);
	getitem 2635,1,0;
	getitem 2634,1,0,getcharid(3,$@NameMan$);
	set $@marry,0;
	sc_start SC_WEDDING,3600,0;
	sc_start SC_WEDDING,3600,0,getcharid(3,$@NameMan$);
	wedding;
	stopnpctimer;
	mapannounce "prt_church.gat","É: VY" + $@NameMan$ + "ƐVw" + $@NameWoman$ + "AVȂvw̒aɏj悤I",8;
	mes "[gX^O]";
	mes "[=~bhKbc";
	mes "gX^O̖ɂāA";
	mes "l̖j悤B";
	next;
	mes "[gX^O]";
	mes "lƂccKɂȁcc";
	close;
LErrorWWF:
	mes "[gX^3]";
	mes "悸AVY玄ɕ񍐂ȂB";
	close;
LErrorWOS:
	mes "[gX^3]";
	mes "̎isB";
	mes "Ԃ҂ȂB";
	close;
LWrong:/*]*/
	mes "[gX^3]";
	mes "";
	mapannounce "prt_church.gat","É: Vw݂cc̎sƂ悤B",8;
	stopnpctimer;
	set $@marry,0;
	close;
Lmarried:
	mes "[gX^3]";
	mes "܂łAKɁB";
	close;
LError2:
	mes "[gX^3]";
	mes "Error!";
	mes "ł݂܂";
	mapannounce "prt_church.gat","É: ŝ悤cc̎sƂ悤B",8;
	stopnpctimer;
	set $@marry,0;
	close;
LError3:
	mes "[gX^3]";
	mes "Error!";
	mes "ʔŕso܂";
	mes "{lReadparam:"+readparam(21,strcharinfo(0));
	mes "Readparam:"+readparam(21,$@NameWoman$);
	mapannounce "prt_church.gat","É: ŝ悤cc̎sƂ悤B",8;
	stopnpctimer;
	set $@marry,0;
	close;
//VYb3ȓɌȂƂB(̏ԂɂȂĂ܂bΌ\)
OnTimer180000:
	mapannounce "prt_church.gat","É: Ԏxcc̎sƂ悤B",8;
	set $@marry,0;
	end;
}
//=======================SoloRc==============================
prt_church.gat,97,102,0	script	\Rc#ve	105,{
	mes "[\Rc]";
	mes "B1lŏoႤI";
	close;
OnSolos:
	emotion 27;
	end;
}
prt_church.gat,98,102,0	script	\Rc#QtF	705,{
	mes "[\Rc]";
	mes "_WŃp[eB[ґ򂾁I";
	close;
OnSolos:
	emotion 27;
	end;
}
prt_church.gat,99,102,0	script	\Rc#N	707,{
	mes "[\Rc]";
	mes "ɂ͐SɌ߂NPCI";
	close;
OnSolos:
	emotion 27;
	end;
}
prt_church.gat,100,102,0	script	\Rc#tFC	708,{
	mes "[\Rc]";
	mes "܂ē]E܂œƂłI";
	close;
OnSolos:
	emotion 27;
	end;
}
prt_church.gat,101,102,0	script	\Rc#A}c	767,{
	mes "[\Rc]";
	mes "NX}Xɂ̓VOx`I";
	close;
OnSolos:
	emotion 27;
	end;
}
prt_church.gat,102,102,0	script	\Rc#R	780,{
	mes "[\Rc]";
	mes "͖G̃\RcI";
	close;
OnSolos:
	emotion 27;
	end;
}
