%% See RANCON_PartyGames.txt for documentation.

Content
	%% Bishounen-A-Go-Go
	%% The PC must either dance with E1 or convince E2 to dance instead. Or vice versa.
	%% L%id%01 = Indicator whether E1 or E2 were approached first
	requires <*PartyGame Static L5Pat ~Yacht>

	Element1 <Prefab>
	Team1 <Citizens>
	TeamData1 <Pass Ally>

	Element2 <Prefab>
	Team2 <Citizens>
	TeamData2 <Pass Ally>

	sub
		Persona 1
		% V1 = Flirtation/Conversation Counter
		*greeting <*NiceToMeetYou GoCheckOver>
		GoCheckOver <if= L%id%01 -1 else GoCheckDance Goto GoChat>
		*GoChat <*MISC_CHATTER>
		GoCheckDance <if= L%id%01 1 else GoCheckOther NewChat Say 3 AddChat 6 AddChat 7>
		GoCheckOther <if= L%id%01 2 else GoFirstTime NewChat Say 2 AddChat 4 AddChat 5>
		GoFirstTime <L= %id%01 1   NewChat Say 1  AddChat 1  AddChat 2  AddChat 3>
		Result1 <EndChat Say 13 AddChat 10>
		Result2 <NewChat Say 4>
		Result3 <NewChat Say 5 AddReact -d5 AddChat 8 AddCHat 9>
		result4 <ifConversation skilltar %param% else GoR4Fail  NewChat Say 12 L= %id%01 -1 AddPartyPoint>
		GoR4Fail <NewChat Say 10>
		result5 <NewChat Say 6>
		Result6 <Goto Result1>
		result7 <NewChat Say 7>
		result8 <Goto result1>
		result9 <EndChat Say 8 AddReact -d5>
		result10 <Time 300  ifDancing hardskilltar %param% else GoR10Fail  L= %id%01 -1 AddPartyPoint PCFriend %1% Goto GoDanceWell>
		*GoDanceWell <*YouDanceWell>
		*GoR10Fail <*YouDanceTerribly>
		% Msg1 <This party needs something. I know, how would you like to dance with me?>
		% Msg1_1 <Are you having a good time here? It's fun, but what I'd really like to do is dance... Could you be my partner?>
		% CMsg1_1 <ifNPCCheerful Accept>
		% Msg1_2 <This party is so painfully boring... Perhaps my spirits could be lifted if I had someone worthy to dance with. How about you?>
		% CMsg1_2 <ifNPCMelancholy Accept>
		% Msg1_3 <I have been waiting here a long time for someone to dance with... perhaps you would do. Shall we dance?>
		% CMsg1_3 <ifNPCEasygoing Accept>
		% Msg1_4 <The music moves me. I must dance... Would you be my partner?>
		% CMsg1_4 <ifNPCPassionate Accept>
		% Msg2 <This party is so awfully boring...>
		% Msg2_1 <The music and the food are both good, but I wish there were something for me to do.>
		% CMsg2_1 <ifNPCCheerful Accept>
		% Msg2_2 <What a cruel world this is, in which the beautiful must be made to suffer so much. This party is so excrutiatingly boring...>
		% CMsg2_2 <ifNPCMelancholy Accept>
		% Msg2_3 <Nothing is happening. Oh, how I wish I had something to do...>
		% CMsg2_3 <ifNPCEasygoing Accept>
		% Msg2_4 <There is too much talking at this party, and not nearly enough living.>
		% CMsg2_4 <ifNPCPassionate Accept>
		% Msg3 <I'm still waiting for a dance...>
		% Msg3_1 <I'll find a dance partner who is worthy of my beauty. I'm sure of it.>
		% CMsg3_1 <ifNPCCheerful Accept>
		% Msg3_2 <The curse of beauty is to be forever alone. Though all of these people may want to dance with me, they are too awestruck to ask.>
		% CMsg3_2 <ifNPCMelancholy Accept>
		% Msg3_3 <All this time, and I still have not been able to dance.>
		% CMsg3_3 <ifNPCEasygoing Accept>
		% Msg3_4 <>
		% CMsg3_4 <ifNPCPassionate Accept>
		% Msg4 <Well then, hurry back when you're ready.>
		% Msg5 <Don't be so terrestrial. Are you embarassed to dance with a man? That's up to you, of course.>
		% Msg6 <I don't think so. You're not my type.>
		% Msg7 <It's possible... If you meet anyone looking for a partner, send them my way.>
		% Msg8 <Just so you know, I prefer women as well... but to dance alone is such an injustice.>
		% Msg10 <Really? I'm not convinced...>
		% Msg12 <Really? I believe you may be right... I will go ask her, then.>
		% Msg13 <Let's begin...>
		% Msg13_1 <>
		% CMsg13_1 <ifNPCCheerful Accept>
		% Msg13_2 <>
		% CMsg13_2 <ifNPCMelancholy Accept>
		% Msg13_3 <>
		% CMsg13_3 <ifNPCEasygoing Accept>
		% Msg13_4 <>
		% CMsg13_4 <ifNPCPassionate Accept>
		% Prompt1 <Okay, let's do it. [Dance]>
		% Prompt1_1 <Sounds like fun. [Dance]>
		% Prompt1_2 <Alright, let's dance. [Dance]>
		% Prompt2 <Maybe later.>
		% Prompt2_1 <Not right now; I'm busy.>
		% Prompt2_2 <I'll get back to you on that.>
		% Prompt3 <Er... You're not exactly my type.>
		% CPrompt3 <ifChatNPCSexy else GoAccept>
		% GoAccept <Accept>
		% Prompt3_1 <Dance? With you? I don't think so.>
		% Prompt3_2 <Er, I'm not interested in men...>
		% Prompt4 <Maybe \PERSONA %2% would like to dance with you.>
		% CPrompt4 <ifNPCOK %2% Accept>
		% Prompt5 <How would you like to dance with me?>
		% CPrompt5 <ifChatNPCSexy Accept>
		% Prompt6 <Let's try that dance now. [Dance]>
		% Prompt7 <Maybe someone else here would like to dance.>
		% CPrompt7 <ifNPCOK %2% Accept>
		% Prompt8 <Alright. Just one dance. [Dance]>
		% Prompt9 <No way. I'm out of here.>
		% Prompt10 <[Dance]>
		Msg1 <このパーティーには華が足りない……どうかな、%JF2と踊ってくれないか？>
		Msg1_1 <楽しんでるかな？ こっちはまあまあだけど、本当はダンスがしたいな……良かったらパートナーになってもらえない？>
		CMsg1_1 <ifNPCCheerful Accept>
		Msg1_2 <ひどく退屈なパーティー……誰か華のある相手とダンスでもできたらマシになるのに。%JS2、どうだい……？>
		CMsg1_2 <ifNPCMelancholy Accept>
		Msg1_3 <ここでダンスの相手をずっと探してるんだけど……良かったらどう？ 一緒に踊らない？>
		CMsg1_3 <ifNPCEasygoing Accept>
		Msg1_4 <いい曲だ……ノッてきたぞ、これは踊らないと。%JS2、相手になってくれないか？>
		CMsg1_4 <ifNPCPassionate Accept>
		Msg2 <ものすごく退屈なパーティーだ……。>
		Msg2_1 <音楽も料理も悪くないけど、他にも何かできることがあったらなあ。>
		CMsg2_1 <ifNPCCheerful Accept>
		Msg2_2 <世界は残酷すぎる……美しい人間がこんなに苦しまなければならないとは。これは想像を絶する退屈さだ……。>
		CMsg2_2 <ifNPCMelancholy Accept>
		Msg2_3 <パッとしないなあ。何か他にやることないのかな……。>
		CMsg2_3 <ifNPCEasygoing Accept>
		Msg2_4 <どっちを向いてもお喋りばかりだ。もっと盛り上がれるモノはないのか？>
		CMsg2_4 <ifNPCPassionate Accept>
		Msg3 <まだダンスの相手を探してる……。>
		Msg3_1 <きっと%JF2の美しさに適う相手を見つけてみせるよ。絶対に見つける。>
		CMsg3_1 <ifNPCCheerful Accept>
		Msg3_2 <美しさの代償は、永遠の孤独だ。ここにいる全員が%JF2の相手を望んでるが、あまりの美しさを前に萎縮してるんだ……。>
		CMsg3_2 <ifNPCMelancholy Accept>
		Msg3_3 <未だにしてダンスが始められない。相手がいない。>
		CMsg3_3 <ifNPCEasygoing Accept>
		Msg3_4 <>
		CMsg3_4 <ifNPCPassionate Accept>
		Msg4 <じゃあ、準備が終わったら急いで戻って%JG_R。>
		Msg5 <男と踊るのは恥ずかしいって？ 地球人みたいなこと言うんだ%JV_NA……まあ、その人の勝手だ%JG_GA。>
		Msg6 <遠慮しておく%JG_YO。好みのタイプじゃない。>
		Msg7 <それでもいい%JG_GA……じゃあ他にパートナーを探してる人がいたら、こっちに寄越して%JG_R。>
		Msg8 <念のため言っとく%JG_GA、%JF2も相手は女性が希望だから%JV_NA。一人で踊るくらいなら男相手のほうがマシというだけで。>
		Msg10 <本当に？ あれ相手は気乗りしないな……。>
		Msg12 <本当に？ それが良さそうかな……じゃあ、彼女を誘ってみる。>
		Msg13 <では始め%JV_YOU……。>
		Msg13_1 <>
		CMsg13_1 <ifNPCCheerful Accept>
		Msg13_2 <>
		CMsg13_2 <ifNPCMelancholy Accept>
		Msg13_3 <>
		CMsg13_3 <ifNPCEasygoing Accept>
		Msg13_4 <>
		CMsg13_4 <ifNPCPassionate Accept>
		Prompt1 <分かった、や%JV_ROU。[ダンスを始める]>
		Prompt1_1 <面白そう。[ダンスを始める]>
		Prompt1_2 <分かった、踊%JV_ROU。[ダンスを始める]>
		Prompt2 <また後で。>
		Prompt2_1 <今は無理、忙しい。>
		Prompt2_2 <また後で来るよ。>
		Prompt3 <えぇ……好みのタイプじゃない%JV_NA。>
		CPrompt3 <ifChatNPCSexy else GoAccept>
		GoAccept <Accept>
		Prompt3_1 <ダンス？ %JS2と？ 無理。>
		Prompt3_2 <いや、男の相手に来たわけじゃないから……。>
		Prompt4 <\PERSONA %2% が相手になってくれるかも。>
		CPrompt4 <ifNPCOK %2% Accept>
		Prompt5 <%JF2が相手になってもいい%JG_GA。>
		CPrompt5 <ifChatNPCSexy Accept>
		Prompt6 <じゃあ、やってみ%JV_YOU。[ダンスを始める]>
		Prompt7 <他の人が相手をしてくれるかも。>
		CPrompt7 <ifNPCOK %2% Accept>
		Prompt8 <分かった%JV_F_WA。一曲だけなら。[ダンスを始める]>
		Prompt9 <無理。もう帰る。>
		Prompt10 <[ダンスを始める]>

		Persona 2
		% V1 = Flirtation/Conversation Counter
		*greeting <*NiceToMeetYou GoCheckOver>
		GoCheckOver <if= L%id%01 -1 else GoCheckDance Goto GoChat>
		*GoChat <*MISC_CHATTER>
		GoCheckDance <if= L%id%01 2 else GoCheckOther NewChat Say 3 AddChat 6 AddChat 7>
		GoCheckOther <if= L%id%01 1 else GoFirstTime NewChat Say 2 AddChat 4 AddChat 5>
		GoFirstTime <L= %id%01 2   NewChat Say 1  AddChat 1  AddChat 2  AddChat 3>
		Result1 <EndChat Say 13 AddChat 10>
		Result2 <NewChat Say 4>
		Result3 <NewChat Say 5 AddReact -d5 AddChat 8 AddCHat 9>
		result4 <ifConversation skilltar %param% else GoR4Fail  NewChat Say 12 L= %id%01 -1 AddPartyPoint>
		GoR4Fail <NewChat Say 10>
		result5 <NewChat Say 6>
		Result6 <Goto Result1>
		result7 <NewChat Say 7>
		result8 <Goto result1>
		result9 <EndChat Say 8 AddReact -d5>
		Result10 <Time 300  ifDancing hardskilltar %param% else GoR10Fail  L= %id%01 -1 AddPartyPoint PCFriend %2% Goto GoDanceWell>
		*GoDanceWell <*YouDanceWell>
		*GoR10Fail <*YouDanceTerribly>
		% Msg1 <There's not a lot going on right now. How would you like to dance with me?>
		% Msg1_1 <You know what would be fun? A bit of dancing. What do you say? Let's do it.>
		% CMsg1_1 <ifNPCCheerful Accept>
		% Msg1_2 <Boring! This entire party... what it needs is some movement, some action. I know! Let's dance.>
		% CMsg1_2 <ifNPCMelancholy Accept>
		% Msg1_3 <This may seem a bit forward... How would you like to dance with me? There's nothing else happening at this party, after all.>
		% CMsg1_3 <ifNPCEasygoing Accept>
		% Msg1_4 <The music is playing and I need to dance... You! How would you like to dance with me? Let's do it right now!>
		% CMsg1_4 <ifNPCPassionate Accept>
		% Msg2 <This party is so awfully boring...>
		% Msg2_1 <>
		% CMsg2_1 <ifNPCCheerful Accept>
		% Msg2_2 <Tedious... dreadful... pointless... unending... monotonous... I'm listing words that remind me of this party. I wish something interesting would happen.>
		% CMsg2_2 <ifNPCMelancholy Accept>
		% Msg2_3 <>
		% CMsg2_3 <ifNPCEasygoing Accept>
		% Msg2_4 <>
		% CMsg2_4 <ifNPCPassionate Accept>
		% Msg3 <I'm still waiting for a dance...>
		% Msg3_1 <>
		% CMsg3_1 <ifNPCCheerful Accept>
		% Msg3_2 <>
		% CMsg3_2 <ifNPCMelancholy Accept>
		% Msg3_3 <>
		% CMsg3_3 <ifNPCEasygoing Accept>
		% Msg3_4 <>
		% CMsg3_4 <ifNPCPassionate Accept>
		% Msg4 <Well then, hurry back when you're ready.>
		% Msg5 <Is it odd for two women to dance with one another? You must be from Earth...>
		% Msg6 <I don't think so. You're not my type.>
		% Msg7 <It's possible... If you meet anyone looking for a partner, send them my way.>
		% Msg8 <It's not fair that I should dance alone... I'm the prettiest one here...>
		% Msg10 <Do you really think so? I wouldn't have the nerve to ask such a beautiful man...>
		% Msg12 <You really think \PERSONA %1% could be interested in me? Well, out of everyone in the room, he is the only one nearly so beautiful as I... I will go ask him, then.>
		% Msg13 <Let's start to it...>
		% Msg13_1 <>
		% CMsg13_1 <ifNPCCheerful Accept>
		% Msg13_2 <>
		% CMsg13_2 <ifNPCMelancholy Accept>
		% Msg13_3 <>
		% CMsg13_3 <ifNPCEasygoing Accept>
		% Msg13_4 <>
		% CMsg13_4 <ifNPCPassionate Accept>
		% Prompt1 <Okay, let's do it. [Dance]>
		% Prompt1_1 <Sounds like fun. [Dance]>
		% Prompt1_2 <Alright, let's dance. [Dance]>
		% Prompt2 <Maybe later.>
		% Prompt2_1 <Not right now; I'm busy.>
		% Prompt2_2 <I'll get back to you on that.>
		% Prompt3 <Er... You're not exactly my type.>
		% CPrompt3 <ifChatNPCSexy else GoAccept>
		% GoAccept <Accept>
		% Prompt3_1 <I'm a girl, you're a girl, this doesn't work...>
		% Prompt3_2 <No thanks, I'm not interested in women...>
		% Prompt4 <Maybe \PERSONA %1% would like to dance with you.>
		% CPrompt4 <ifNPCOK %1% Accept>
		% Prompt5 <How would you like to dance with me?>
		% CPrompt5 <ifChatNPCSexy Accept>
		% Prompt6 <Let's try that dance now. [Dance]>
		% Prompt7 <Maybe someone else here would like to dance.>
		% CPrompt7 <ifNPCOK %2% Accept>
		% Prompt8 <Alright. Just one dance. [Dance]>
		% Prompt9 <No way. I'm out of here.>
		% Prompt10 <[Dance]>
		Msg1 <あんまりやることがないの。%JF2と一緒にダンスでもいかが？>
		Msg1_1 <どうすれば楽しくなれるか、知ってる？ ちょっとばかりのダンスよ。%JF2と一緒に、どう？>
		CMsg1_1 <ifNPCCheerful Accept>
		Msg1_2 <このパーティー、退屈……！ もっとこう、動いて、はしゃいで……そうよ、踊るのよ！>
		CMsg1_2 <ifNPCMelancholy Accept>
		Msg1_3 <ちょっと先走りすぎかしら……でも、御一緒にダンスなんかどう？ 他になーんにもやってないしね、このパーティー。>
		CMsg1_3 <ifNPCEasygoing Accept>
		Msg1_4 <曲はイイんだから、ダンスがしたい……%JS2！ 一緒に踊らない%JV_KA_Q？ 今すぐ！>
		CMsg1_4 <ifNPCPassionate Accept>
		Msg2 <なんて退屈なパーティーなの……。>
		Msg2_1 <>
		CMsg2_1 <ifNPCCheerful Accept>
		Msg2_2 <疲れる……最悪……無意味……終わらない……つまらない……。このパーティーの存在意義を考えてるの。何かマシなこと、起こらないのかしら……。>
		CMsg2_2 <ifNPCMelancholy Accept>
		Msg2_3 <>
		CMsg2_3 <ifNPCEasygoing Accept>
		Msg2_4 <>
		CMsg2_4 <ifNPCPassionate Accept>
		Msg3 <ダンスの相手が欲しい%JG_YO%JV_SIL_R。>
		Msg3_1 <>
		CMsg3_1 <ifNPCCheerful Accept>
		Msg3_2 <>
		CMsg3_2 <ifNPCMelancholy Accept>
		Msg3_3 <>
		CMsg3_3 <ifNPCEasygoing Accept>
		Msg3_4 <>
		CMsg3_4 <ifNPCPassionate Accept>
		Msg4 <そう%JV_KA_Q、じゃあ準備が出来たら早く戻ってきて%JG_R。>
		Msg5 <女同士で踊るなんてヘン%JV_DESUって？ 地球から来た%JV_N%JV_M_DA%JV_NA……。>
		Msg6 <イヤ%JG_DA。タイプじゃない%JG_YO。>
		Msg7 <それでもいい%JG_YO%JV_SIL_R誰かパートナーを探してたら、こっちに寄越して%JG_R。>
		Msg8 <%JF2が一人でダンスなんて、ありえない%JG_YO%JV_SIL_R%JF2が一番キレイなのに。>
		Msg10 <本当にそう思うの%JV_KA_Q？ あんな美形に話しかけるなんて、無理%JG_DAYO%JV_SIL_R。>
		Msg12 <\PERSONA %1% が%JF2に興味を持ってくれるって、本当にそう思うの%JV_KA_Q？ むむ……この中で%JF2に見合う顔なのは彼だけだし……じゃあ、言ってみる%JG_YO。>
		Msg13 <じゃあ、始め%JV_YOU……。>
		Msg13_1 <>
		CMsg13_1 <ifNPCCheerful Accept>
		Msg13_2 <>
		CMsg13_2 <ifNPCMelancholy Accept>
		Msg13_3 <>
		CMsg13_3 <ifNPCEasygoing Accept>
		Msg13_4 <>
		CMsg13_4 <ifNPCPassionate Accept>
		Prompt1 <分かった、や%JV_ROU。[ダンスを始める]>
		Prompt1_1 <面白そう。[ダンスを始める]>
		Prompt1_2 <分かった、踊%JV_ROU。[ダンスを始める]>
		Prompt2 <また後で。>
		Prompt2_1 <今は無理、忙しい。>
		Prompt2_2 <また後で来るよ。>
		Prompt3 <えぇ……好みのタイプじゃない%JV_NA。>
		CPrompt3 <ifChatNPCSexy else GoAccept>
		GoAccept <Accept>
		Prompt3_1 <両方とも女じゃ意味なくない？>
		Prompt3_2 <いえ結構、女と絡みに来たわけじゃないし……。>
		Prompt4 <\PERSONA %1% が相手になってくれるかも。>
		CPrompt4 <ifNPCOK %1% Accept>
		Prompt5 <%JF2が相手になってもいい%JG_GA。>
		CPrompt5 <ifChatNPCSexy Accept>
		Prompt6 <じゃあ、やってみ%JV_YOU。[ダンスを始める]>
		Prompt7 <他の人が相手をしてくれるかも。>
		CPrompt7 <ifNPCOK %2% Accept>
		Prompt8 <分かった%JV_F_WA。一曲だけなら。[ダンスを始める]>
		Prompt9 <無理。もう帰る。>
		Prompt10 <[ダンスを始める]>

	end
	inv
		NPC Celebrity
		job <Bishounen>
		chardesc Male Sociable

		NPC Celebrity
		job <Model>
		chardesc Female Sociable
	end

