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
