Plot 0
	name <PLOT: Postal Service>

	% V1 = Time Limit

	element1 <Character Citizen Young Cheerful Sociable>
	element2 <Character Young Easygoing !Far 1>


	% Time limit - this plot will fade after a short time.
	Init_Start <ifPersona E1 else GoDelete ifPersona E2 else GoDelete if= V1 0 else GotoCheckTime V= 1 ComTime V+ 1 10000>
	START <ifPersona E1 else GoDelete ifPersona E2 else GoDelete if= V1 0 else GotoCheckTime V= 1 ComTime V+ 1 10000>
	GotoCheckTime <ifG ComTime V1 if= V2 0 AdvancePlot 0>
	GoDelete <AdvancePlot 0>

sub
	Persona 1
	% V1 = Reputation points earned
	greeting <NewChat if= V1 0 else GoBeenBefore V= 1 1 ifG React 75 else GoMedReact>
	GoBeenBefore <SayAnything AdvancePlot 0>
	GoMedReact <ifG React 55 else GoLowReact Say >
	GoLowReact <ifG React 10 else GoNoReact Say 2 AddChat 1 AddChat 2 AddChat 3>
	GoNoReact <AdvancePlot 0 Say 1>

	Result1 <NewChat AddReact d10  Say 3  AddChat 4  AddChat 5  Reputation 5 1>
	Result2 <NewChat Say 4  AddChat 6  AddChat 7  Reputation 3 1>
	Result3 <NewChat AddReact -2  Say 5  AddChat 8  AddChat 9  Reputation 3 -1>
	Result4 <NewChat AddReact d10  Reputation 3 1  Say 6  AddChat 8>
	Result5 <NewChat Say 7 AddChat 6 AddChat 7>
	Result6 <NewChat Say 8  AddChat 10 AddChat 11 AddChat 12>
	Result7 <NewChat Say 9  AdvancePlot 0>
	result8 <NewChat Say 10  AddChat 10 AddChat 11 AddChat 12>
	result9 <NewChat Say 11  AdvancePlot 0  Reputation 5 -1>
	result10 <NewChat Say 12  AddChat 11  AddChat 13>
	result11 <NewChat  AdvancePlot 1  Say 13  AddReact d5>
	result12 <NewChat  Say 14  Reputation 5 -1  AddChat 11 AddChat 13>
	result13 <NewChat  Say 15  AdvancePlot 0>

	% Msg1 <Email is so convenient. I can keep up with my friends in \SCENE EScene 2 without needing to wait for postal delivery.>
	Msg1 <メールはとても便利だね。郵便配達の到着を待つ必要なしに \SCENE EScene 2 の友達と交際を続けられるから。>
	% Msg2 <Do you use email? I just love writing letters to my friends all over the world.>
	Msg2 <%JSはメールを使ってる？%JFは世界中の友人へメールを書くのが大好きなんだ。>
	% Msg3 <Yes I do! My favorite is the little winking smilie face... You know! One of my chat buddies emailed me a big list of hypercons once. It was so cute. I could foreword it to you, if you'd like.>
	Msg3 <もちろん！%JFのお気に入りはウインクしているかわいらしい笑顔の顔文字なんだ…。そうだ！以前%JFのチャット仲間が顔文字の一覧をメールで送ってきた%JG。とってもかわいかった%JG。もしよければ、%JSに転送してあげるよ。>
	% Msg4 <I guess you get to do a lot of traveling, but most of us aren't so lucky. Say, do you know where \SCENE EScene 2 is?>
	Msg4 <%JSは旅をたくさんできるみたいだけど、大半の人はそんなにうまくいかない%JG。ところで、%JSは \SCENE EScene 2 がどこか知ってる？>
	% Msg5 <Ah. Well, for those of us who like to use it, it's a wonderful tool. Most of the time, that is...>
	Msg5 <そう…。メール好きの%JFたちにとっては、メールは素晴らしい道具だよ。大抵はね…。>
	% Msg6 <That's so great! I check and reply to my email every day. I wish everyone were so thoughtful...>
	Msg6 <それはよかった！%JFは毎日メールをチェックして返信している%JG。皆が%JFくらい気を遣ってくれたらいいんだけれど…。>
	% Msg7 <Sort of. Tell me, do you know where \SCENE EScene 2 is?>
	Msg7 <そんなとこ。 \SCENE EScene 2 がどこにあるか知ってる？>
	% Msg8 <My friend \PERSONA E2 who lives in \SCENE EScene 2 is always late replying to email. I could really use for someone to go remind \PERSONA E2 to check my letter.>
	Msg8 <\SCENE EScene 2 に住んでいる \PERSONA E2 はメールの返信がいつも遅い%JG。 \PERSONA E2 に%JFのメールをチェックするように言ってくれる人が要る%JG。>
	% Msg9 <That's too bad... My friend \PERSONA E2 lives there. I hear that it's very nice.>
	Msg9 <残念…。そこに友だちの \PERSONA E2 が住んでいる%JG。そこはいい町らしいよ。>
	% Msg10 <Kind of. My friend \PERSONA E2 who lives in \SCENE EScene 2 is really bad at replying to email. I need someone to go remind \PERSONA E2 to check their mail.>
	Msg10 <そんなとこ。 \SCENE EScene 2 に住んでいる友だちの \PERSONA E2 はメールを全然返してくれない%JG。 \PERSONA E2 に溜まったメールをチェックするように言ってくれる人が要る%JG。>
	% Msg11 <Then don't blame me when kids start calling you "Gramps".>
	Msg11 <子供が%JSを「ジジイ」と呼び始めても、%JFのせいにしないでね。>
	% Msg12 <I don't know... I just thought that maybe, if you were in \SCENE EScene 2 some time, you could just do this on your way through. Can you do this for me?>
	Msg12 <さあ…。もし%JSがいつか \SCENE EScene 2 に行くことがあったら、ついでだと思ってちょっとそうしてくれないかな？やってくれる？>
	% Msg13 <Thank you very much! Remember, tell \PERSONA E2 in \SCENE EScene 2 to check email. I appreciate this very much!>
	Msg13 <本当にありがとう！いい？ \SCENE EScene 2 の \PERSONA E2 にメールをチェックするように伝えるんだよ。手を貸してくれて感謝している%JG！>
	% Msg14 <I honestly don't think so... \PERSONA E2 is just really really bad at replying to email. Will you deliver the message for me?>
	Msg14 <%JFにはまったくそうは思えない%JG…。 \PERSONA E2 は本当に全然メールを返さない%JG。%JFの伝言を伝えてくれないか？>
	% Msg15 <Oh, that's too bad.>
	Msg15 <あれ、残念だな。>

	% Prompt1 <Me too! Do you like emoticons?>
	Prompt1 <%JFも！顔文字は好きかい？>
	% Prompt2 <I prefer meeting friends in person.>
	Prompt2 <%JFは直接顔をあわせるほうがいい%JG。>
	% Prompt3 <No, I don't.>
	Prompt3 <いや、使っていない%JG。>
	% Prompt4 <I'd like that!>
	Prompt4 <ぜひ送ってくれ！>
	% Prompt5 <Does this conversation have a point?>
	Prompt5 <この会話に何か問題でも？>
	% Prompt6 <Yes... Why?>
	Prompt6 <はい…でもどうして？>
	% Prompt7 <No I don't.>
	Prompt7 <いや、知らない。>
	% Prompt8 <Do you have a problem with your email?>
	Prompt8 <%JSのメールに何か問題でも？>
	% Prompt9 <I don't really care about it.>
	Prompt9 <まったく要らない%JG。>
	% Prompt10 <What's it worth to you?>
	Prompt10 <そんなことをして何になる？>
	% Prompt11 <I can do that.>
	Prompt11 <%JFに任せろ。>
	% Prompt12 <Maybe \PERSONA E2 doesn't want to talk to you.>
	Prompt12 <\PERSONA E2 は%JSと話したくないのでは？>
	% Prompt13 <I don't want to.>
	Prompt13 <%JFはやりたくない%JG。>


	Plot 1
		name <PLOT: Postal Service[1]>

		% Mortality Check - If either of the elements have
		% been removed, delete this plot.
		Init_Start <ifPersona E1 else GoDelete ifPersona E2 else GoDelete>
		START <ifPersona E1 else GoDelete ifPersona E2 else GoDelete>
		GoDelete <AdvancePlot 0>
	sub
		Persona 1
		greeting <NewChat Say 1>
		% Msg1 <\PERSONA E2 still hasn't answered my email. I wonder what's happening in \SCENE EScene 2 lately?>
		Msg1 <\PERSONA E2 はまだ%JFのメールに返信していない%JG。最近 \SCENE EScene 2 で何かあったのかな？>

		Persona 2
		greeting <NewChat Say 1 AddChat 1 AddChat 2>

		result1 <NewChat  AdvancePlot 2  Say 2  AddChat 3>
		result2 <NewChat  AdvancePlot 2  Say 3  AddChat 3  Reputation 4 -1>
		result3 <NewChat  Say 4  AddChat 4  AddChat 5  AddChat 6  AddChat 7>
		result4 <NewChat  Say 5  AddReact d3>
		result5 <NewChat  Say 6  Reputation 5 1>
		result6 <NewChat  Say 7  Reputation 5 -1>
		result7 <NewChat  Say 8  Reputation 4 1>

		% Msg1 <I get the feeling there's something I ought to do... Oh well. I guess it couldn't be all that important.>
		Msg1 <何かすべきことがあるような気がする…けどまあいいか。大事な用じゃないだろうし。>
		% Msg2 <Argh! I forgot that I had to reply to my email! \PERSONA E1 is probably really upset by now...>
		Msg2 <あーっと！メールに返信しなきゃならないのを忘れてた！たぶん今ごろ \PERSONA E1 はひどく怒っているだろうな…。>
		% Msg3 <Oh, that's right! I probably have some mail from \SCENE EScene 1 that's at least a month old!>
		Msg3 <あ、それだ！たぶん \SCENE EScene 1 からのメールは少なくとも一ヶ月分は溜まっているだろう！>
		% Msg4 <I know, I know, but I'm very busy during the day, keeping up with my job and my various hobbies... Is \PERSONA E1 mad at me?>
		Msg4 <分かってる、分かってるよ。だけど%JFは仕事と色々な趣味をこなすのに一日中忙しくて…。 \PERSONA E1 は%JFに腹を立てていたかい？>
		% Msg5 <That's a relief. Well, I better write a reply, before I forget again.>
		Msg5 <それなら安心だ。まあ、返事を書くとしようかな、また忘れてしまう前に。>
		% Msg6 <You know, I get asked that a lot. Maybe if I replied to email more often it wouldn't happen.>
		Msg6 <うわ、%JFの安否をたずねるメールがたくさん届いてる。もっと頻繁に返信していたなら、こうなることはなかったかも。>
		% Msg7 <Eek... Well, it's my own fault for not bothering to reply in such a long time...>
		Msg7 <う…。まあ、こんなに長い間返信を怠った%JFが悪い%JG…。>
		% Msg8 <That's how I feel, but \PERSONA E1 takes email so seriously...>
		Msg8 <%JFもそう思うけど、 \PERSONA E1 はメールのことになると本気なんだよ…。>

		% Prompt1 <\PERSONA E1 sent me to %t!>
		Prompt1 <\PERSONA E1 が「%tしてやる」って！>
		% Prompt2 <\PERSONA E1 says to check your mail.>
		Prompt2 <\PERSONA E1 がメールをチェックしろってさ。>
		% Prompt3 <You should reply to email promptly.>
		Prompt3 <早くメールに返信したほうがいい。>
		% Prompt4 <No, just annoyed.>
		Prompt4 <いや、困っているだけだ。>
		% Prompt5 <No, just wondering if you're dead.>
		Prompt5 <いや、%JSが死んだかもと思っているだけだ。>
		% Prompt6 <Yes. You better apologize.>
		Prompt6 <うん。謝ったほうがいい。>
		% Prompt7 <It's no big deal.>
		Prompt7 <大したことはない%JG。>

		Plot 2
			% Time Limit
			Init_Start <ifPersona E1 else GoDelete if= V1 0 else GotoCheckTime V= 1 ComTime V+ 1 72000>
			START <ifPersona E1 else GoDelete if= V1 0 else GotoCheckTime V= 1 ComTime V+ 1 72000>
			GotoCheckTime <ifG ComTime V1 if= V2 0 AdvancePlot 0>
			GoDelete <AdvancePlot 0>
		sub
			Persona 1
			greeting <NewChat  Say 1  AdvancePlot 0  AddReact d10  XPV 100>
			% Msg1 <Thank you very much for delivering my message!>
			Msg1 <%JFの伝言を届けてくれてありがとう！>
		end

	end

end
