//Valentine Script 2004-02-12
alberta.gat,26,243,4	script	`R[gl	58,{
//jw\
	mes "[}R=oWjI]";
	mes "[~bhKbcł͖ő";
	mes "킦ȂYiI";
	mes "HׂΒNłKɃg`";
	mes "Ƃ낯邨َqI";
	mes "ŐHׂĂA蕨ɂ";
	mes "sb^I";
	next;
	mes "[}R=oWjI]";
	mes "ȃ`R[g ^ff0000";
	mes "5000zeny^000000I";
	next;
	menu "`R[gI",L1,"܂I",Lend;
Lend:
		mes "[}R=oWjI]";
		mes "EzH`ȃXyVȃ`R[";
		mes "g~ȂƁcccOłˁI";
		mes "ȂXyVœʂ";
		mes "َqłIlāA`R[";
		mes "g~Ȃ琥񐥔񐥔܂";
		mes "ĂI҂Ă܂I";
		close;
L1:
		mes "[}R=oWjI]";
		mes "EzI肪Ƃ܂AqlI";
		mes "̃`R[g͐El̍l܂";
		mes "ƌĂߌł͂Ȃ̂łI";
		mes "Ȃ̂ŁÂグɂ";
		mes "^ff00005܂^000000ƂȂĂ܂I";
		next;
		mes "[}R=oWjI]";
		mes "Ɨ~̂łA܂ōčw";
		mes "˂܂Ił́A~";
		mes "̂ł傤I";
		next;
Linput:
		input @choconum;
		if (@choconum > 5) goto LError;
		if (@choconum <= 0) goto Lend;
		set @chocoprice,@choconum*5000;
		if (Zeny < @chocoprice) goto LError2;
			set Zeny,Zeny-@chocoprice;
			getitem 558,@choconum;
			mes "[}R=oWjI]";
			mes "肪Ƃ܂I";
			mes "́A΂炭ɂ܂";
			mes "`R[g~ȂA܂";
			mes "ǂI҂Ă܂I";
			close;
LError:
	mes "[}R=oWjI]";
	mes "EzzzzzzAʖځAʖڑʖځI";
	mes "̂グ5܂łƐ";
	mes "ˁI͂[̐lɁA";
	mes "`R[g𖡂ė~̂łI";
	mes "ɁAHׂƑ܂I";
	next;
	goto Linput;
LError2:
	mes "[}R=oWjI]";
	mes "EzHꂠAccqI";
	mes "܂Bł̓`R";
	mes "[g𔄂邱Ƃ͏o܂I";
	mes "́A΂炭ɂ܂";
	mes "o܂ǂI";
	close;
}

alberta.gat,29,243,4	script	`R[gl̗l	53,{
	if ((Sex == 0) && (countitem(7182) >= 5) && (countitem(7134) >= 1) && (countitem(519) >= 1) && (countitem(612) >= 1)) goto Lmake;
	mes "[GXe=[Y]";
	mes "ɂ́B́A̔ނĂ";
	mes "`R[g͎ĂłB";
	mes "OŁA@wł̂łB";
	next;
	mes "[GXe=[Y]";
	mes "Oł́A̎ɍDȐlɃ`R";
	mes "[gv[g镗K";
	mes "BÂCAÂ`R[g";
	mes "cc΂炵Ǝv܂񂩁H";
	next;
	mes "[GXe=[Y]";
	mes "̃`R[głɗ";
	mes "΂ƁA񂽂A`R[";
	mes "głB";
	next;
	mes "[GXe=[Y]";
	mes "ނ́AȎĢɏo";
	mes "Ƃ񂾣Ċ撣ă`R";
	mes "[g𔄂ĂĂłB";
	mes "̋CǁA`R[";
	mes "g𔃂ĂꂽX̏Ί炪A";
	mes "KɂĂłB";
	next;
	if (Sex == 1) goto LMan;
LWoman:
	mes "[GXe=[Y]";
	mes "قǂ܂AOł͂̎";
	mes "DȐlɃ`R[gv[g";
	mes "łBADȕȂ";
	mes "`R[gƈꏏɋC`";
	mes "݂܂񂩁H";
	next;
	mes "[GXe=[Y]";
	mes "ޗėĂ΁A`R[";
	mes "g܂B̔ނĂ`";
	mes "R[gł̂łcc";
	mes "ŔAŏW߂ޗ";
	mes "`R[ĝقÁcc";
	next;
	mes "[GXe=[Y]";
	mes "̋Cɓ`悤ȋC";
	mes "܂񂩁H";
	next;
	mes "[GXe=[Y]";
	mes "ޗłȀ͂łH";
	mes "^3355ffJJI 5";
	mes "~N 1";
	mes " 1";
	mes "gїpnzF 1^000000";
	next;
	mes "[GXe=[Y]";
	mes "łAĂB";
	mes "`R[g点";
	mes "܂B";
	close;
LMan:
	mes "[GXe=[Y]";
	mes "A厖ɑ厖ɍ";
	mes "łBłł";
	mes "Ǝv܂AxオĂ݂";
	mes "ˁBӂA撣Ă";
	mes "ȂI";
	close;
Lmake:
	mes "[GXe=[Y]";
	mes "ołˁIł́Ar";
	mes "킹Ă܂I";
	mes "Aׂɂނɂ͓łB";
	next;
	delitem 7182,5;
	delitem 7134,1;
	delitem 519,1;
	delitem 612,1;
	getitem 558,1;
	mes "[GXe=[Y]";
	mes "͂Aoオ܂I";
	mes "v[gȂ̂łH";
	mes "C`ƂłˁB";
	mes "KɂȂĂ`B";
	close;
}

prt_castle.gat,42,35,3	script	{fU[gEl	47,{
	if (Sex == 1) goto LStartMan;
LStartWomen:
	mes "[V=IA]";
	mes "IDA}hA[I";
	mes "Mɂ邾ŁÂނ";
	mes "ꂵꏊVɓȂB";
	next;
	mes "[V=IA]";
	mes "Vĝ悤Ɉ邵M";
	mes "płɂ炵̂ȁH";
	mes "^NV߂ł悯΁Ał肢";
	mes "܂傤B";
	next;
	menu "`R[gĂ܂H",L1,"lłB",-;
		mes "[V=IA]";
		mes "IDÄꌾcc^NV݂̑";
		mes "ɋA悤ȁcc̕X̐n̂悤";
		mes "ꌾA̐gA";
		mes "Ă܂cc";
		next;
		mes "[V=IA]";
		mes "IDA}hA[I";
		mes "ǂ΂ǂ΁ccM̐S";
		mes "Ăу^NV̗Əô!?";
		close;
L1:
		if (countitem(558) >= 3) goto L2;
		mes "[V=IA]";
		mes "IDA}hA[I";
		mes "^NV͐_łBptłȂ̂";
		mes "Bςȍޗ|pino";
		mes "ȂǏo܂IāA}ȃACe";
		mes "畽}ȍiȂǁȂȌ|";
		mes "pƂ̃^NVɂ͕s\!!";
		next;
		mes "[V=IA]";
		mes "^NVn镨́AE̒N";
		mes "Q̂ߑfANɂ^";
		mes "oȂ|piȂ̂łB";
		next;
		mes "[V=IA]";
		mes "^NVM̋Jɕ񂢂ׂɂ";
		mes "^3355ff`R[g3^000000ΕKvȂ̂łB";
		mes "ȉłAȏłȂB";
		mes "sb^3ccB";
		next;
		mes "[V=IA]";
		mes "}hA[̌PeƉؚȐg";
		mes "BꂽxȈӎuȂAƎ";
		mes "Ă邱Ƃ\ł傤B";
		next;
		mes "[V=IA]";
		mes "łB^3355ff`R[g3^000000";
		mes "ĂBo邱ƂȂ΂̒";
		mes "̒An̒ւłAMׂ̈";
		mes "^NVڎɓčグ";
		mes "Ã^NV͉{̋ƖɏIn";
		mes "IgccIDcc";
		next;
		mes "[V=IA]";
		mes "I H[ }hA[cc";
		mes "M̋AS炨҂";
		mes "܂cc";
		close;
L2:
		mes "[V=IA]";
		mes "IDA}hA[I";
		mes "^NV̎ĂSĂ̊";
		mes "M̃`R[g΂炵";
		mes "т₩Ȍ|pւƏ؂Ă";
		mes "܂傤I";
		next;
		mes "[V=IA]";
		mes "M̓Ƃ΂AE̒N";
		mes "AŐ_IȈ̌";
		mes "悤Ɂcc";
		next;
		mes "[V=IA]";
		mes "A hD g N@gcc";
		mes "݂ɂAq̎qɕϐg";
		mes "悤Ɂcc}ȃ`R[g";
		mes "|pɕϐĝcc!!";
		next;
		mes "[V=IA]";
		mes "gݍ݁ccĂӂ";
		mes "ω邪I";
		mes "xɂāȂȂ鎞̖ccI";
		next;
		delitem 558,3;
		getitem 559,1;
		mes "[V=IA]";
		mes "IDAtFV^VIIID`";
		mes "ȑfGȍioƂ́cc";
		mes "^NV͂Ȃƍߐ[̂ccI";
		mes "}hA[A̋M̎ɂ̔΂";
		mes "Ƃ|piACɓĂ";
		mes "ȁB";
		next;
		mes "[V=IA]";
		mes "ł́AI H`B";
		close;
LStartMan:
	mes "[V=IA]";
	mes "{W`_bV[B^NV";
	mes "yꏊ|p𐶂ݏo߁A";
	mes "̃AgGɕ~肽ƂȂ";
	mes "łB";
	next;
	mes "[V=IA]";
	mes "IDAmmI̐炩ȓ";
	mes "炵݂̂fȂ̂łB";
	next;
	mes "[V=IA]";
	mes "ID`AłȂĂẐ";
	mes "̃V=IAς킹";
	mes "ȂāBID`AmmmB";
	close;
}
