Plot 0
	name <High School Diary>
	% Edited to v0.901 standard

	% The PC will spot a ruined building which looks very familiar. Exploring it, the PC will
	% find an old diary which mentions him.

	% E1 is the scene for this episode; E2 is the scene for the next.
	element1 <Grab 3>
	element2 <Scene Town Target !Far 1>

	% E3 is the character who might recover the diary if the PC can't.
	element3 <Character !Near 1 Knowledge>

	% E4 is the diary, E5 is the bookshelf.
	element4 <Prefab>
	element5 <Prefab>

	% V1 = Initialization counter

	Init_Start <ifItemOK E4 else GoDelete if= V1 0 else GoCheckMessage V= 1 1 Compose EWM E1 .entry Compose GET E4 .getit ItemVar= E4 1 E2 ItemVar= E5 1 E4>
	start <ifItemOK E4 else GoDelete if= V1 0 else GoCheckMessage V= 1 1 Compose EWM E1 .entry Compose GET E4 .getit ItemVar= E4 1 E2 ItemVar= E5 1 E4>
	.entry <ifYesNo 1 2 3 BLOCK goto GoStartCombat>
	.getit <S= 101 1 S+ 102 1 N= 3 E2 XRBadThing NAV_XRBLostLove XPV 100 S= 105 -1 History 4 AdvancePlot 0>
	GoDelete <S= 101 1 N= 3 E2 AdvancePlot 0>
	GoCheckMessage <if= V1 2 Print 5 V= 1 3>

	GoStartCombat <SavePos LoadD .scene PassVar 1 E5 PassVar 2 S103 PassVar 3 1 PassVar 4 5 Seekgate -1>
	.scene <SCENE_ItemTower.txt>

	% Msg1 <As you draw near to \ELEMENT 1 , you notice an abandoned building which seems very familiar. Do you want to get out of your mecha and explore this place?>
	Msg1 <\ELEMENT 1 に近づくと、見覚えのある廃屋に気がついた。メックから降りて、この場所を探索しますか？>
	% Msg2 <Explore the building.>
	Msg2 <廃屋を探索する。>
	% Msg3 <Don't bother.>
	Msg3 <やめておく。>
	% Msg4 <You recovered the diary of someone who once knew you.>
	Msg4 <自分の過去を知る人物の日記を拾った。>
	% Msg5 <This apartment building has been very badly damaged. Something awful must have happened here years ago.>
	Msg5 <このアパートはひどく損傷している。昔ここで恐ろしい事があったにちがいない。>

sub
	Persona 3
	% rumor <!3 often finds valuable things when searching through old buildings.>
	rumor <!3 は古い建物を探索して、しばしば金目の物を見つけ出す>
	greeting <NewChat Say 1 AddChat 1 AddChat 2>

	result1 <NewChat V= 1 Threat S103 30 Say 4 Memo 5 AddChat 3 AddChat 4>
	result2 <NewChat Say 2 Memo 3>
	result3 <NewChat Say 6 Cash+ -V1 GiveKeyItem E4 Trigger GET E4>
	result4 <NewChat Say 7>

	% Msg1 <I enjoy searching through abandoned places... Sometimes I find things which are very interesting.>
	Msg1 <私は廃屋を探索するのが好きです…。時々とても興味深いものが見つかることがあります。>
	% Msg1_1 <I love searching through abandoned buildings. Time causes all things to rust and decay... It's interesting to see how a once-new home can fall to bits over the years. Sometimes I even find valuable things.>
	Msg1_1 <私は廃屋の探索が大好きです。時間はあらゆる物を錆び腐させます…。かつて新築だった建物が年月を経て崩れていくさまを見るのは興味深く思えます。時々金目の物が見つかることもあります。>
	CMsg1_1 <ifG 0 NPCRep E3 5 Accept>
	% Msg1_11 <I hope someday to discover something valuable while exploring the ruins... Usually, though, all I turn up is junk. Lately I've been searching through some abandoned buildings near town. It's a bit dangerous, but will prepare me for later.>
	Msg1_11 <いつかは遺跡を探索して価値のあるものを見つけたいものです…。普段はガラクタしか見つけられませんが。最近は町の近くの廃屋を探検しています。少々危険ですが、心構えはできています。>
	CMsg1_11 <ifChatNPCSociable Accept>
	% Msg1_12 <Yes, I've been exploring abandoned buildings. No, I haven't found anything valuable... yet.>
	Msg1_12 <はい、私は廃屋を探検しています。まあ、今はまだ何も見つかってはいませんが…。>
	CMsg1_12 <ifChatNPCShy Accept>
	% Msg1_13 <I'd like to mount an expedition to the PreZero ruins of the Trans-Siberian Megafortress... but as that's far away and dangerous, I content myself with exploring abandoned buildings around town.>
	Msg1_13 <私は旧紀のシベリア横断巨大要塞跡への探検を行ってみたいのですが…そこは遠すぎるし危険すぎるので、今は町の近くの廃屋探検に甘んじています。>
	CMsg1_13 <ifChatNPCEasygoing Accept>
	% Msg1_14 <I'm never content to just read about things in books... I want to be the first to make exciting discoveries! That's why I've been exploring abandoned buildings near town. It's preparation for an expedition to the ruins.>
	Msg1_14 <私は本に書かれたことを読むだけでは満足できません…。わくわくするような物事を第一に発見したいのです！ だから私は町の近くの廃屋を探検しています。遺跡探索の前準備になりますし。>
	CMsg1_14 <ifChatNPCPassionate Accept>
	% Msg1_15 <You can find all kinds of interesting things if you search hard enough. I enjoy going into abandoned places to see what's been left behind.>
	Msg1_15 <よく探索してみれば様々な興味深いものが見つかりますよ。私は廃屋へ入って放置されているものを探すのが楽しみです。>
	CMsg1_15 <ifChatNPCCheerful Accept>
	% Msg1_16 <Archaeology is a fascinating subject. I hope someday to research an actual prezero habitation... For right now, I'll have to be content with whatever ruins I can find near town.>
	Msg1_16 <考古学は面白い学問です。いつかは実物の旧紀の住居を調べてみたいものです…。しかし、今のところは、町の近くで見つけた廃屋に甘んじるしかありません。>
	CMsg1_16 <ifChatNPCPragmatic Accept>
	% Msg1_17 <There are ancient mystical secrets to be found in the forgotten places... lost technology, crystal skulls, and other miraculous things. I often enjoy meditating in the ruins near town.>
	Msg1_17 <忘れられた場所では古代の謎めいた秘密が見つかります。失われた技術や、水晶のドクロ、他の不思議なものなどが。私はしばしば町の近くの廃屋で黙想するのを楽しんでいます。>
	CMsg1_17 <ifChatNPCSpiritual Accept>

	% Msg2 <Then you should know that outside of town is an old apartment complex. You can find it as you enter the city. I found a couple of good things there but I'm certain there's even more left to be discovered.>
	Msg2 <それなら、町の外に古いアパートがあります。町に入るときに見つかるでしょう。私はそこでいくつかいいものを見つけましたが、見つかるものはまだ残っていると思います。>
	% Msg2_1 <You too? We should swap stories later. Well, the place I've been exploring lately is an old apartment complex. It's easy to find on the way into town. I'm sure there are interesting things on the upper floors.>
	Msg2_1 <あなたも？あとで話を交わしましょう。そうそう、私が最近探検しているのは古いアパートです。町に入る途中で簡単に見つかるでしょう。そこの上のほうの階には興味深いものがあると思います。>
	CMsg2_1 <ifG NPCRep E3 3 0 Accept>
	% Msg2_12 <Is that so? Well, if you look around, I'm certain you'll find something interesting.>
	Msg2_12 <本当ですか？それなら、この辺りを探せば、興味深いものが見つかると思います。>
	CMsg2_12 <ifChatNPCShy Accept>
	% Msg2_13 <There's an abandoned apartment complex on the way into town. I started searching it, but I doubt there's anything of intellectual value there. If you're just interested in loot you might be able to find something on the upper floor, though.>
	Msg2_13 <町へ入る途中に廃屋のアパートがあります。私はそこを探検し始めましたが、学術的価値のあるものはないと思います。でも、金目のものが欲しいだけなら、上の方の階に行けば何か見つかるでしょう。>
	CMsg2_13 <ifChatNPCEasygoing Accept>
	% Msg2_14 <There's an old apartment complex on the road to town. Something bad happened there many years ago... I'm hoping my studies can shed light on the tragedy.>
	Msg2_14 <町へ入る途中に古いアパートがあります。そこでは昔ひどいことがあったようです…。私の研究がその悲劇を解明することになればと思っています。>
	CMsg2_14 <ifChatNPCPassionate Accept>
	% Msg2_15 <There's a great abandoned building near here. As you're coming into town from the highway you go right past it. It's not very old so there won't be anything valuable there, but it is a fun place to look around.>
	Msg2_15 <この近くに大きな廃屋があります。幹線道路を通ってこの町に入る時にその横を通るはずです。あまり古くはないので、金になるものはないでしょうが、探検するだけなら楽しい場所ですよ。>
	CMsg2_15 <ifChatNPCCheerful Accept>
	% Msg2_16 <Here, let me show you the data I've acquired. There's an old apartment building on the outskirts of town. It looks like something bad happened there, but so far I haven't been able to determine what.>
	Msg2_16 <どうぞ、私が手に入れた資料を見せましょう。町外れに古いアパートがあります。そこで何か悪いことが起こったようですが、私はこれまでのところ何が起こったかをつかめていません。>
	CMsg2_16 <ifChatNPCPragmatic Accept>
	% Msg2_17 <There is a derelict building on the way into town. It contains nothing that I desire, but maybe it is here you can find the answers you seek?>
	Msg2_17 <町へ入る途中に遺棄されたビルがあります。そこには私が欲しいものはありませんが、もしかするとそこへ行けばあなたの探している答が見つかるかもしれませんよ？>
	CMsg2_17 <ifChatNPCSpiritual Accept>


	% Msg3 <\ELEMENT 3 said there's an abandoned building outside of \ELEMENT 1 .>
	Msg3 <\ELEMENT 3 によると \ELEMENT 1 の外に廃屋があるらしい。>
	% Msg4 <As a matter of fact I have. Just recently I came across an old book... I can let you have it for the low price of $ \VAL V1 , if you're into that sort of thing.>
	Msg4 <実は見つけました。つい最近、古い本を…。その類のものが欲しいなら、たった $ \VAL V1 であなたに譲りましょう。>
	% Msg4_11 <Well, I found this old diary in the abandoned building I'm exploring. It's interesting reading but nothing of intellectual note. If you want, I can let you have it for $ \VAL V1 .>
	Msg4_11 <はい、探検中の廃屋でこの古い日記を見つけました。学術的なことは書いてありませんが読む分には興味深いものです。欲しいなら、 $ \VAL V1 で譲りましょう。>
	CMsg4_11 <ifChatNPCSociable Accept>
	% Msg4_12 <I found some old books. If you want one, I can sell it for $ \VAL V1 .>
	Msg4_12 <古い本を見つけました。欲しいなら、 $ \VAL V1 で売ります。>
	CMsg4_12 <ifChatNPCShy Accept>
	% Msg4_13 <I've found plenty of stuff... most of it worthless, unfortunately. I have a book that was acquired from my latest expedition. If you're interested, I can give it to you for $ \VAL V1 .>
	Msg4_13 <たくさんのものが見つかっていますが…残念ながら、その大部分はがらくたです。前回の探検で拾った本があります。もし欲しいなら、$ \VAL V1 で譲りましょう。>
	CMsg4_13 <ifChatNPCEasygoing Accept>
	% Msg4_14 <Have I ever! Yes, I have so many artifacts I don't know what to do with them. My latest find is an old handwritten manuscript. If you were interested in owning it, I could give it to you for a mere $ \VAL V1 .>
	Msg4_14 <はい！ 何に使うのか分からないような人工遺物をたくさん拾いました。最近見つけたのは古い手書きの原稿です。もし欲しいなら、たった $ \VAL V1 で譲りましょう。>
	CMsg4_14 <ifChatNPCPassionate Accept>
	% Msg4_15 <Why, are you interested in artifacts? That's great! I have an old handwritten manuscript that can be yours for the low price of $ \VAL V1 . How about it?>
	Msg4_15 <おや、人工遺物を欲しいのですか？ いいでしょう！ 私は古い手書きの原稿を持っていますが、たった $ \VAL V1 であなたにお譲りしましょう。どうですか？>
	CMsg4_15 <ifChatNPCCheerful Accept>
	% Msg4_16 <Just an old book... I've OCR'd the data already. If you want to look at the original, I can let you have it for $ \VAL V1 .>
	Msg4_16 <一冊の古い本だけです…。そのデータはすでにＯＣＲで取り込みました。原本が見たいというなら、$ \VAL V1 で譲りましょう。>
	CMsg4_16 <ifChatNPCPragmatic Accept>
	% Msg4_17 <I've discovered an old book. I haven't read it yet... I feel it was private. If you'd like to fund my expeditions, I can sell it to you for $ \VAL V1 .>
	Msg4_17 <古い本を見つけました。私はそれをまだ読んでいません…というのも、私的なもののように思えるからです。もしも私の探検に出資してくれる気があるなら、これを $ \VAL V1 で売りましょう。>
	CMsg4_17 <ifChatNPCSpiritual Accept>

	%Msg5 <\ELEMENT 3 in \ELEMENT 1 offered to sell you a book for $ \VAL V1 .>
	Msg5 <\ELEMENT 1 の \ELEMENT 3 から $ \VAL V1 で本を買わないかと言われた。>
	% Msg6 <Here you go. It seems to be a diary or something. If you're interested in the past, I'm certain that this can help your studies.>
	Msg6 <どうぞ。それは日記か何かのようです。昔のことに興味があるなら、その本はあなたの研究に役立つかもしれません。>
	% Msg6_11 <The juicy parts come near the end. I'm certain that if you investigate this book thoroughly you'll find something of interest.>
	Msg6_11 <おいしい話はもうありませんよ。その本をくまなく読めば興味深いことが分かるでしょう。>
	CMsg6_11 <ifChatNPCSociable Accept>
	% Msg6_12 <Here's the book.>
	Msg6_12 <どうぞ。>
	CMsg6_12 <ifChatNPCShy Accept>
	% Msg6_13 <Thanks. I hope that book is worth the price.>
	Msg6_13 <ありがとう。その本が値段に見合ったものでありますように。>
	CMsg6_13 <ifChatNPCEasygoing Accept>
	% Msg6_14 <Thanks. I'm certain you'll find that the book was well worth the price.>
	Msg6_14 <ありがとう。その本は値段に見合うと思います。>
	CMsg6_14 <ifChatNPCPassionate Accept>
	% Msg6_15 <It's been a pleasure doing business with you.>
	Msg6_15 <あなたと取引きできて楽しうございました。>
	CMsg6_15 <ifChatNPCCheerful Accept>
	% Msg6_16 <Here it is. If you thoroughly investigate the text I'm sure you can learn something that I've missed.>
	Msg6_16 <どうぞ。その中身をよく調べれば私の見逃した事柄も分かるでしょう。>
	CMsg6_16 <ifChatNPCPragmatic Accept>
	% Msg6_17 <May this book bring you the enlightenment you seek.>
	Msg6_17 <この本があなたの求める答になりますように。>
	CMsg6_17 <ifChatNPCSpiritual Accept>

	% Msg7 <Any money I receive will go into funding my next expedition.>
	Msg7 <私が貰ったお金は全て次の探検のための資金になります。>

	% Prompt1 <Find anything lately?>
	Prompt1 <最近見つけたものはある？>
	% Prompt2 <I often do that too.>
	Prompt2 <%JFもしばしば探検に行く%JG。>
	% Prompt3 <I'll take it.>
	Prompt3 <頂こう。>
	CPrompt3 <ifG PC$ V1 Accept>
	% Prompt4 <That's more than I can afford.>
	Prompt4 <高すぎて買えない%JG。>

end
inv
	Treasure 5
	name <Diary>
	name_I18N <日記>
	place <3>
	% V1 = The location for the next episode.
	% V2 = Got XP for reading the diary
	use <ifG 15 SkRoll 37 else Clue37 Print 1 if= V2 0 XPV 150 V= 2 1>
	Clue37 <Print 1 Print 2 if= V2 0 XPV 150 V= 2 1>
	% Msg1 <The handwriting in this diary isn't yours, but it seems very familiar. Leafing through you notice that your name is mentioned several times. Could it be that this person was once in love with you..?>
	Msg1 <この日記の筆跡は自分のものではないが、確かに見覚えがある。ページをめくるにつれ、自分の名前が何度も記されているのに気づいた。これは、この人物が当時 \PC に恋をしていた、ということだろうか…？>
	% Msg2 <The last entry in the diary indicates that the writer was moving to \SCENE V1 .>
	Msg2 <日記に書かれた最後の記述によれば、筆者は \SCENE V1 へ引っ越したようだ。>

	STC Bookshelf-1
	% V1 = The item number for the diary.
	use <if# V1 0 else GoEmpty Print 2 GiveKeyItem V1 Trigger GET V1 V= 1 0>
	GoEmpty <Print 1>
	% Msg1 <There's nothing else of interest in this bookcase.>
	Msg1 <この本棚からは他に興味深いものは見つからなかった。>
	% Msg2 <Searching through this bookshelf, you find an old diary.>
	Msg2 <本棚を探して、古い日記を見つけた。>

end
