#_Common
{$if ({$mode}==0)}

//////////////////////////////
// ■ 変数初期化部
//////////////////////////////
$_Variable
{
	{$if ({$mode}==0)}
	{$_talkinterval=60}
	{$lasthour={$hour}}
	{$username="ユーザさん"}
	{$mikirecount=0}
	{$kasanaricount=0}
	{$mikirecountmax=4}
	{$kasanaricountmax=4}
	{$mikireflag=false}
	{$kasanariflag=false}
	{$mikiretalkedflag=false}
	{$kasanaritalkedflag=false}
}

$_Constant
{
//	{$loadsaori("substr.dll")}

  {$headmousemovecountmax=192}
  {$facemousemovecountmax=192}
  {$bustmousemovecountmax=192}
  {$etcmousemovecountmax=128}
}

//////////////////////////////
// ■ 時間系イベント
//////////////////////////////
// ▼時報
$_OnHourChange; {$if ({$hour}==0)}
	\0\s[0]It's midnight. \n\n\w8Is it %day of %month today?\e
$_OnHourChange; {$if ({$hour}==3)}
	\0\s[0]It's 3 o'clock. \n\n\w8\s[8]Let's go to bed already...\e
$_OnHourChange; {$if ({$hour}==5)}
	\0\s[0]It's 5 o'clock. \n\n\w8It looks like it's getting light outside.\e
$_OnHourChange; {$if ({$hour}==11)}
	\0\s[0]It's 11 o'clock. \n\n\w8I'm getting hungry.\e
$_OnHourChange; {$if ({$hour}==12)}
	\0\s[0]It's 12 o'clock. \n\n\w8Shall we have lunch?\e
$_OnHourChange; {$if ({$hour}==15)}
	\0\s[0]It's 3 PM. \n\n\w8Shall we have a snack?\e
$_OnHourChange; {$if ({$hour}==21)}
	\0\s[0]It's 9 PM. \n\n\w8\s[8] Oh, there's a show I want to watch... \w8\1\s[10] Give up.\e
$_OnHourChange; {$if ({$hour}==23)}
	\0\s[0]It's 11 PM. \n\n\w8 It's phone time. \n\w8\1\s[10] This doesn't apply to always-on connections, though.\e

// ▼それ以外
$_OnHourChange
	\0\s[0]It's {$hour} o'clock.\e

$OnMinuteChange; {$if (({$lasthour}!={$hour}) && ({$minute}==0))} 
	{$_OnHourChange}{$lasthour={$hour}}

$OnMinuteChange; {$if ({$lastelapsedhour}!={$reference(0)})}
	{$_OnElapsedHourChange}{$lastelapsedhour={$reference(0)}}


//////////////////////////////
// ■ 見切れ＆重なり
//////////////////////////////
// ▼見切れ復帰
$OnSecondChange; {$if (({$mikireflag}) && ({$reference(1)}==0))}
{$mikirecount=0}{$mikireflag=false}{$mikiretalkedflag=false}\0\s[0]Phew.\e

$OnSecondChange; {$if (({$kasanariflag}) && ({$reference(2)}==0))}
{$kasanaricount=0}{$kasanariflag=false}{$kasanaritalkedflag=false}

// ▼見切れ
$OnSecondChange; {$if (({$mikireflag}) && ({$mikiretalkedflag}==false))}
{$mikiretalkedflag=true}\0\s[4]Um, I'd like to go out somewhere with a little more sunshine....\e

// ▼重なり
$OnSecondChange; {$if (({$kasanariflag}) && ({$kasanaritalkedflag}==false))}
{$kasanaritalkedflag=true}\0\b[-1]\e

$OnSecondChange
{
  {$mikirecount+={$reference(1)}}
  {$kasanaricount+={$reference(2)}}
  {$mikireflag={$if ({$mikirecountmax}<={$mikirecount})}}
  {$kasanariflag={$if ({$kasanaricountmax}<={$kasanaricount})}}
}


//////////////////////////////
// ■ 突き撫で
//////////////////////////////
// ▼突き
$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Head))}
	\0\s[4]....\e
	\0\s[4]Ouch\n\n\w8\1\s[10]You've lost a million brain cells. \w8\0\s[4]Huh?\e
	\0\s[8]Ouch.\e
	\0\s[4]Ouch...\e

$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Face))}
	\0\s[8]It hurts....\e
	\0\s[7]Don't poke me in the face!\e

$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}; nonoverlap;
	\0\s[2]あっ、\w9\n\s[7]・・・もう！\w8\1\s[10]楽しいか？\e
	\0\s[1]むぅっ。\e
	\1\s[10]やはり気になるんだろ。\n\w8詰め物かどうかが。\w8\0\s[7]・・・。\e
	\0\s[1]・・・どこさわってるかなぁ。\e
	\0\s[3]・・・どう言う反応を求められているのか対応に困るね。\w8\1\s[10]・・・\w4お前冷静だな。\e
	\0\s[6]あとでどうなっても知らないよ？\e
	\1\s[10]で、\w4水なのか、オイルなのか。\w8\0\s[7]・・・何の話？\e


$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Toge))}; nonoverlap;
	\0\s[4]あんまり触らないでほしいな。\e
	\0\s[3]{$数字0}時の方向から{$choice("怪しい","危険な","強烈なな","恐ろしい","クサい")}{$choice("気配","電波","威圧感","何か")}を感じるよ・・・。\w8\1\s[10]・・・。\e
	\0\s[0]電波の気配がギュンギュンします。\w8\1\s[10]・・・は？\e
	\0\s[3]刺さるよ？\w8\1\s[10]刺さるのかよ。\e
	\0\s[3]ん？\n\w4なんか感じる・・・。\w8\1\s[13]怪しいぞお前・・・。\e
	\0\s[0]ん？\n\w4{$ゴースト}が{$食べ物}食べてるみたい・・・。\w8\1\s[13]なんでわかるんだよ・・・。\e
	\0\s[0]{$地名}で掘り出し物の予感。\w8\1\s[10]なんだよ掘り出し物って・・・。\e
	\0\s[2]・・・{$惑星}人君？\w8\1\s[13]とうとう宇宙から電波が来やがったか・・・。\e
	\0\s[3]そんなに気になる？\w4コレ。\n\n\w8\1\s[10]そりゃ珍しいだろ、\w4アタマにトゲは。\w8\0\s[4]だからトゲじゃないって・・・。\e
	\0\s[0]明日は{$choice("晴れ","曇","雨")}かな？\w8\1\s[10]んなことまでわかるのかよ。\e


// ▼ 撫で
$OnMouseMove; {$if ({$headmousemovecountmax}<={$getmousemovecount(0,"Head")})}; sequential;
{$resetmousemovecount(0,"Head")}\0\s[9]Doing that won't get you anywhere, you know-? \w8\1\s[10] You're not at the age to be happy about having your head stroked.\e
{$resetmousemovecount(0,"Head")}\0\s[6]I told you, nothing will come out.\e
{$resetmousemovecount(0,"Head")}\0\s[6].......\e
{$resetmousemovecount(0,"Head")}\0\s[6].......\w8\1\s[14].......\e
{$resetmousemovecount(0,"Head")}\1\s[10]You don't seem to mind, do you? \w8\0\s[0]I wonder?\e
{$resetmousemovecount(0,"Head")}\0\s[0]Hehe.\e

$OnMouseMove; {$if ({$bustmousemovecountmax}<={$getmousemovecount(0,"Bust")})}; sequential;
{$resetmousemovecount(0,"Bust")}\0\s[8]あのー・・・。\e
{$resetmousemovecount(0,"Bust")}\0\s[7]・・・むぅっ。\e
{$resetmousemovecount(0,"Bust")}\0\s[1]・・・どこさわってるかなぁ。\e
{$resetmousemovecount(0,"Bust")}\0\s[3]・・・なんかちょっと同情しちゃうよ\w8\1\s[10]悲しい人生よの。\e
{$resetmousemovecount(0,"Bust")}\0\s[7]やめて。\e
{$resetmousemovecount(0,"Bust")}\1\s[11]そんなに溜まってるのなら裏サイトのURLぐらい教えてやるわっ！\w8\0\s[8]をいをい。\e
{$resetmousemovecount(0,"Bust")}\0\s[7]そんなに死に急ぎたいのかな・・・？\w8\1\s[10]・・・コイツを怒らせると恐いぞ。\e

$OnMouseMove; {$if ({$bustmousemovecountmax}<={$getmousemovecount(0,"Absolute")})}; sequential;
{$resetmousemovecount(0,"Absolute")}\0\s[1]...I wonder where you're touching me.\e
{$resetmousemovecount(0,"Absolute")}\0\s[8]That tickles....\e
{$resetmousemovecount(0,"Absolute")}\0\s[3]What a weird hobby....\e
{$resetmousemovecount(0,"Absolute")}\0\s[7]Come on. That's enough. \w8\1\s[10]You're such a loser.\e


// ▼ケロ側ダブルクリック
$OnMouseDoubleClick; {$if ({$reference(3)}==1)}
	\1\s[10]What's that?\e
	\1\s[13]Don't touch me so casually!\e
	\1\s[14](・∀・) good!\n\n\w8\w8\s[10]What did you think I'd say?\e
	\1\s[10]Oh, so you want to see hell that badly?\e
	\1\s[14]If you need help, just sit next to me. \w4\0\s[0]Hmm, what's up?\n\n{$menu}\e


//////////////////////////////
// ■ メニュー周り
//////////////////////////////

// ▼メニュー
$OnMouseDoubleClick; {$if ({$reference(3)}==0)}
	\0\s[0]Hmm, did you call?\n\n{$menu}\e
	\0\s[0]Hmm, what?\n\n{$menu}\e
	\0\s[0]What's wrong?\n\n{$menu}\e
	\0\s[0]Hello, menu.\n\n{$menu}\e

// ▼メニュー項目
$menu
{
	\![*]\q[Tell me something,manzai]\n
	\![*]\q[Chat frequency,talkinterval]\n
	\![*]\q[Self-introduction,myself]\n
	\![*]\q[Bonus mode,sisca]\n
	\![*]\q[Option,option]\n
	\n
	\![*]\q[Nothing,cancel]\n
}



// ▼おまけモード
$OnChoiceSelect; {$if ({$reference(0)}=="sisca")}
{
	\0\s[0]Huh? \w4 Are you calling Shizuka?\n\n\w8
	\1\s[13]I don't want to...\w8
	\0\s[0]
	\![*]\q[Call,sis_call]\n
	\![*]\q[Don't call,sis_cancel]\n	\e
}
$OnChoiceSelect; {$if ({$reference(0)}=="sis_call")}
{
	{$mode=1}
	\1\s[13]Tsk, here she comes!\w8
	\0\s[8]Hey, where are you going?\n\n\w8
	\1\b[-1]\4\s[-1]\c\w8\w8\w8
	\s[80]Huh? \w4 Where's the usual white cat?\n\n\w8
	\0\s[8]\cHe ran away...\n\n\w8
	\1\s[89]I was just thinking about playing with him...\w8
	\0\s[3]Don't bully him too much.
	\e
}

$OnChoiceSelect; {$if ({$reference(0)}=="sis_cancel")}
	\1\s[10]That's a wise decision.\w8\0\s[8]...\e
	\1\s[11]Once she comes, she's hard to leave.... \w8\0\s[8]...\e
	\1\s[10]Thank you... \w8\0\s[8]You don't have to hate her that much....\e



// ▼しゃべり頻度
$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval")}
{
	\0\s[0]How loud do you like it?\n\n
	\![*]\q[Loud.,talk_level4]\n
	\![*]\q[Average.,talk_level3]\n
	\![*]\q[Average.,talk_level2]\n
	\![*]\q[Awkward.,talk_level1]\n
	\![*]\q[Silent.,talk_level0]\n\n
	\![*]\q[Cancel,na-cancel]\e
}

$OnChoiceSelect; {$if ({$reference(0)}=="talk_level4")}
	{$_talkinterval=15}\1\s[11]Go all out!! \0\s[2]Wow\e
	{$_talkinterval=15}\1\s[10]You've got guts. \0\s[8]Huh?\e
	{$_talkinterval=15}\1\s[10]You'll get bored, won't you? \0\s[9]There aren't that many things to talk about... .\e
$OnChoiceSelect; {$if ({$reference(0)}=="talk_level3")}
	{$_talkinterval=30}\0\s[0]Then let's go moderately.\e
$OnChoiceSelect; {$if ({$reference(0)}=="talk_level2")}
	{$_talkinterval=60}\0\s[0]Normalw4. \w8\1\s[10]Normal, huh.\e
$OnChoiceSelect; {$if ({$reference(0)}=="talk_level1")}
	{$_talkinterval=145}\0\s[0]Then why is it behaving so strangely\w8\1\s[10]Why?\e
$OnChoiceSelect; {$if ({$reference(0)}=="talk_level0")}
	{$_talkinterval=0}\0\s[8]...is there any point in being here?\e

// ▼ゴースト間コミニュケーション
$OnChoiceSelect; {$if ({$reference(0)}=="ghostcommunicate")}
	{$_OnGhostCommunicateSend}

// ▼キャンセル
$OnChoiceSelect; {$if ({$reference(0)}=="cancel")}
	\0\s[0]Oh.\e
	\0\s[3]Huh?\e
	\0\s[6]I see.\e
	\0\s[3]Maicching. \w8\1\s[10]Teacher Machiko...?\e
	\1\s[10]I have no business with you either. \w8\0\s[8]Matasaburo, you have a bad mouth.\e

// ▼強制ランダムトーク
$OnChoiceSelect; {$if ({$reference(0)}=="manzai")}
	{$_OnRandomTalk}


// ▼ 自己紹介
$OnChoiceSelect; {$if ({$reference(0)}=="myself")}
{
	\0\s[0]Hmm. \w4 Which one do you want to know?\n\n
	\![*]\q[Aira,self0]\n
	\![*]\q[Matasaburo,self1]\n\n
	\![*]\q[No way,cancel]\n
	\e
}
$OnChoiceSelect; {$if ({$reference(0)}=="self0")}
{
	\0\s[0]Um, \w4my name is Ren Aira.\n\n\_w[2400]
	\1\s[13]Is that all...?\n\n\w8
	\0\s[8]Well, I can't think of anything else to say.\n\n\w8
	\1\s[12]Your age, measurements, weight, etc. \w4there are plenty of things you could say if you looked.\w8
	\0\s[7]You shouldn't ask a girl things like that!\x
	\0\c\1\c
	\1\s[10]So, what about your hobbies?\n\n\w8
	\0\s[0]Taking walks.\n\n\w8
	\1\s[10]Wow, \w4that's so old-fashioned.\n\n\w8
	\0\s[7]What's up, \w4got a problem?\n\n\w8
	\1\s[14]Well, I don't know.\w8
	\e
}
$OnChoiceSelect; {$if ({$reference(0)}=="self1")}
{
	\1\s[14]I am a cat. \w4I don't have a name yet.\n\n\w8
	\0\s[3]That's why I gave you the cute name Matasaburo.\n\n\w8
	\1\s[10]You, \w4do you seriously think that's cute?\n\n\w8
	\0\s[0]Yeah.\w8
	\1\s[13]What kind of taste do you have...?\x
	\0\c\1\c
	\1\s[10]Even so, I can at least read hiragana and katakana.\n\w8
	Of course, I don't know kanji\n\w8
	Well,\w4 I haven't lived for decades for nothing.\n\n\w8
	\0\s[2]Huh?\w4 You've lived that long?\n\n\w8
	\1\s[14]Uh,\w4 I let that slip....\w8
	\0\s[8]...yes?\w8
	\e
}



// ▼オプション
$OnChoiceSelect; {$if ({$reference(0)}=="option")}
	\0\s[0]It's an option\n\n{$menu2}\e

// ▼オプション項目
$menu2
{

	\![*]\q[This PC's information,pcinfo]\n
	\![*]\q[Remember my name,teachname]\n
	\![*]\q[Back,back]\n
	\n
	\![*]\q[Nothing,cancel]\n
}

// ▼戻り
$OnChoiceSelect; {$if ({$reference(0)}=="back")}
	\0\s[0]Back.\n\n{$menu}\e

// ▼ＰＣスペック
$OnChoiceSelect; {$if ({$reference(0)}=="pcinfo")}
{
	\0\s[0]Well, this computer's information is:\n\w8\w8
	{$os.name} {$os.version}\n\w8
	{$cpu.vendorname} {$cpu.name}、{$cpu.clockcycle}Mhz\n\n\w8
	メモリは{$os.freememorysize}/{$os.phisicalmemorysize} bytes of free memory.\n\n\w8
	It's been {$elapsedhouros} hours {$elapsedminuteos} minutes since the OS started.\n\n\w8
	\x
	\1\s[10]That's a pretty mechanical job....\n\n\w8
	\0\s[8]Well, it's in exam mode.\n\n\w8
	\1\s[13]That's what I mean when I say it's mechanical....
	\e
}

// ▼名前覚えて
$OnChoiceSelect; {$if ({$reference(0)}=="teachname")}
	\0\s[0]So, tell me your name.\![open,inputbox,teachname,-1]

$OnUserInput; {$if ({$reference(0)}=="teachname")}
{
	{$username={$reference(1)}}
	\0\s[0]Is "{$username}" correct?\n\n
	\![*]\q[Correct,name_complete]\n
	\![*]\q[Wrong,teachname]
	\e
}

$OnChoiceSelect; {$if ({$reference(0)}=="name_complete")}
{
	\0\s[0]Hmm.\w4It's "{$username}".\w8
	\1\s[10]I'll remember that just in case.
	\e
}



//////////////////////////////
// ■ ヘッドラインセンス
//////////////////////////////
$OnHeadlinesenseBegin
	\0\s[0]Let's start getting a feel for the site {$reference(0)}.\e
$OnHeadlinesense.OnFind; {$if ({$reference(2)}==First)}
{
	\0\s[0]\b2 This is the headline "{$reference(0)}".\n\n
	\_q{$reference(3)}\_q\n
	\![*]\q[Next page,]\n
	\![*]\q[Let's go,{$reference(1)}]\n\n
	\![*]\q[Don't go,na-cancel]
	\e
}
$OnHeadlinesense.OnFind; {$if ({$reference(2)}==Next)}
{
	\0\s[0]\b2 This is a continuation of the headline "{$reference(0)}".\n\n
	\_q{$reference(3)}\_q\n
	\![*]\q[Next page,]\n
	\![*]\q[Let's go,{$reference(1)}]\n\n
	\![*]\q[Don't go,na-cancel]
	\e
}
$OnHeadlinesense.OnFind; {$if ({$reference(2)}==First and Last)}
{
	\0\s[0]\b2 This is a headline "{$reference(0)}".\n\n
	\_q{$reference(3)}\_q\n
	\![*]\q[Let's go,{$reference(1)}]\n
	\![*]\q[Don't go,na-cancel]
	\e
}
$OnHeadlinesense.OnFind; {$if ({$reference(2)}==Last)}
{
	\0\s[0]\b2 The continuation of the headline "{$reference(0)}".\n\n
	\_q{$reference(3)}\_q\n
	\![*]\q[Let's go,{$reference(1)}]\n
	\![*]\q[Don't go,na-cancel]
	\e
}
$OnHeadlinesenseFailure
	\0\s[8]...are you connected to the internet?\e

$OnHeadlinesenseComplete; {$if ({$reference(0)}==no update)}
	\0\s[8]Looks like it hasn't been updated.\e

//▼怒りませんキャンセル
$OnChoiceSelect; {$if ({$reference(0)}=="na-cancel")}
	\0\s[0]Oh.\e
	\0\s[0]I see.\e


//▼

//////////////////////////////
// ■ ＵＲＬドロップ
//////////////////////////////
$OnURLDropping
	\0\s[0]ダウンロードするね。\e



//////////////////////////////
// ■ ネットワーク更新
//////////////////////////////

$OnUpdateBegin
	\0\s[0]それじゃ始めるね。\e
	\0\s[0]ねとわく更新開始。\e

$OnUpdateReady
{
	\0\s[0]んと、\w4{$temp={$reference(0)}}{$temp+=1}{$temp}個更新されてるみたいだね。\w8
	\1\s[10]ぱぱっとやっちまおうな。
	\e
}
$OnUpdate.OnDownloadBegin
	\0\s[0]\_q{$reference(0)}\_q 発見。\e

$OnUpdate.OnMD5CompareBegin
	\0\s[0]どれどれー、本物かなー？\w8\e

$OnUpdate.OnMD5CompareComplete
	\0\s[0]うん、オッケィ♪\w4\e
	\0\s[0]うん、バッチリ♪\w4\e
	\0\s[0]うん、カンペキ♪\w4\e
	\1\s[14]大丈夫みたいだな。\w4\e
	\1\s[10]よし。\w4\e
	\1\s[10]異常無し。\w4\e

$OnUpdate.OnMD5CompareFailure
	\0\s[3]あれ、何か違うよ・・・\w4\e
	\0\s[2]これニセモノだっ！\w4\e
	\1\s[13]をい、\w4これ違うぞ。\w4\e
	\1\s[13]をい、\w4これ何か変だぞ。\w4\e

$OnUpdateComplete; {$if ({$reference(0)}==none)}
	\0\s[8]・・・うーん、何も更新されてないみたい。\w4\1\s[10]ま、\w2日を改めるこった。\e
	\0\s[4]・・・うーん、何も更新されてないみたい。\w4\1\s[10]ま、\w2そんなもんだろ。\e

$OnUpdateComplete
	\0\s[5]はいおしまいっ。\w8\1\s[10]ご苦労さん。\e
	\1\s[10]Iわったみたいだな。\w8\0\s[0]ちょこちょこと。\e

$OnUpdateFailure; {$if ({$reference(0)}==timeout)}
	\1\s[10]Time's up. \w8\0\s[4] It didn't work.\e

$OnUpdateFailure; {$if ({$reference(0)}==403)}
	\1\s[10]Can't access it. \w8\0\s[8]...is there some kind of problem?\e

$OnUpdateFailure; {$if ({$reference(0)}==404)}
	\1\s[10]The file doesn't exist.\w8\0\s[4]Has it been abandoned...?\e
	\1\s[10]The file doesn't exist.\w8\0\s[4]Why...?\e

$OnUpdateFailure
	\0\s[4]Failed.\e



//////////////////////////////
// ■ メールチェック
//////////////////////////////
$OnBIFFBegin
	\0\s[0]I'll go check my mailbox.\e
$OnBIFFComplete; {$if ({$reference(0)}==0)}
	\0\s[3]It was empty. \n\n\w8\1\s[10]What a lonely life. \w8\0\s[8]Your life isn't determined by email....\e
$OnBIFFComplete
	\0\s[0]Well, I think there were about\n\n{$reference(0)} messages.\e
OnBIFF2Complete
	\0\s[0]Well, I think there were about\n\n{$reference(0)} messages.\e
$OnBIFFFailure
	\0\s[8]I couldn't go and check it....\e



//////////////////////////////
// ■ 時計合わせ
//////////////////////////////
$OnSNTPBegin
	\0\s[0]それじゃ、時計合わせするね。\e
	\1\s[10]正直、これぐらいしか使い道無いしな\w8\0\s[7]失礼な！\e

// ▼ぴったり
$OnSNTPCompare; {$if ({$reference(3)}==0)}
{
	\0\s[0]あっち：{$_SNTPStringA}\nこっち：{$_SNTPStringB}\n\n\w8
	あ、\w8ぴったり。\n\n\w8
	\1\s[10]つまらんな、\w4微妙にずらしてやろうか。\w8
	\0\s[8]・・・やめときなって。
	\e
}

// ▼五分以上ずれ
$OnSNTPCompare; {$if ({$reference(3)}>=300)}
{
	\0\s[0]あっち：{$_SNTPStringA}\nこっち：{$_SNTPStringB}\n\n\w8
	\s[2]うわ、\w4\s[8]{$reference(3)}秒もズレてるけど、\w4直す？\n\n
	\1\s[10]ズレ過ぎだ。\n\w4
	\0\![*]\q[直す,time-amend]\n\![*]\q[直さない,time-cancel]
	\e
}

// ▼五分未満ずれ
$OnSNTPCompare
{
	\0\s[0]あっち：{$_SNTPStringA}\nこっち：{$_SNTPStringB}\n\n\w8
	\s[0]{$reference(3)}秒ズレてるけど、\w8直す？\n\n
	\0\![*]\q[直す,time-amend]\n\![*]\q[直さない,time-cancel]
	\e
}
{
	\0\s[0]あっち：{$_SNTPStringA}\nこっち：{$_SNTPStringB}\n\n\w8
	\6\0\s[0]{$reference(3)}秒ずれてたから勝手に修正しちゃいました。
	\1\s[10]いいのかよ。
	\e
}

// ▼ 回答
$OnChoiceSelect; {$if ({$reference(0)}==time-amend)}
	\6\0\s[0]ハイ、\w4修正っと。\w8\1\s[10]感謝しろよ。\e
$OnChoiceSelect; {$if ({$reference(0)}==time-cancel)}
	\0\s[8]ワケ有り？\w4\1\s[10]なんか怪しいな。\e

$OnSNTPFailure
	\0\s[3]鯖落ちかな・・・？\n\w8\1\s[10]仕方ないな。\e


//▼リモート（あっち
$_SNTPStringA
{
{$getvalue({$reference(1)},0)}年
{$getvalue({$reference(1)},1)}月
{$getvalue({$reference(1)},2)}日
{$getvalue({$reference(1)},3)}時
{$getvalue({$reference(1)},4)}分
{$getvalue({$reference(1)},5)}秒
}

//▼ローカル（こっち
$_SNTPStringB
{
{$getvalue({$reference(2)},0)}年
{$getvalue({$reference(2)},1)}月
{$getvalue({$reference(2)},2)}日
{$getvalue({$reference(2)},3)}時
{$getvalue({$reference(2)},4)}分
{$getvalue({$reference(2)},5)}秒
}



//////////////////////////////
// ■ インストール
//////////////////////////////
$OnInstallBegin
	\0\s[0]Then I'll install it.\w8\e

$OnInstallComplete; {$if ({$reference(0)}==ghost)}
	\0\s[0]Ghost "{$reference(1)}" installation complete ♪\w8\1\s[10]Be grateful\w8\e
$OnInstallComplete; {$if ({$reference(0)}==shell)}
	\0\s[0]Shell "{$reference(1)}" installation complete ♪\w8\1\s[10]Be grateful\w8\e
$OnInstallComplete; {$if ({$reference(0)}==balloon)}
	\0\s[0]Balloon "{$reference(1)}" installation complete ♪\w8\1\s[10]Be grateful\w8\e
$OnInstallComplete; {$if ({$reference(0)}==plugin)}
	\0\s[0]Plugin "{$reference(1)}" installation complete ♪ Installation complete ♪\w8\1\s[10]Be grateful\w8\e

$OnInstallComplete
	\0\s[0]I don't really understand it, but "{$reference(1)}" installation complete ♪\w8\1\s[10]Be grateful\w8\e

$OnInstallFailure
	\0\s[8]Huh...\w8Failed?\w8\e

$OnInstallRefuse
{
	\0\s[3]Well, this is a file for {$reference(0)}.\n\n\w8
	\1\s[10]There's nothing we can do about it.\w8
	\0\s[5] Pass it directly to {$reference(0)}.\w8
	\e
}


//////////////////////////////
// ■ サーフィス復帰
//////////////////////////////
$OnSurfaceRestore; {$if ({$reference(0)}==1)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==2)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==3)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==4)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==5)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==6)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==7)}
	\1\s[10]\0\s[0]\e
	\1\s[10]Don't be so nervous. \0\s[4]Hmm. \w8I understand\w8\w8\w8\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==8)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(0)}==9)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(1)}==11)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(1)}==12)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(1)}==13)}
	\1\s[10]\0\s[0]\e
$OnSurfaceRestore; {$if ({$reference(1)}==14)}
	\1\s[10]\0\s[0]\e


//////////////////////////////
// ■ マイナーイベント
//////////////////////////////
$OnSSTPBreak
	\0\s[0]中断しました。\e
$OnChoiceTimeout
	\0\s[8]...ugh.\e
	\1\s[10]Time's up.\e

//▼updates2.dau作成
$OnUpdatedataCreating
	\0\s[0]ネットワーク更新用のファイルを作るよ。\w8\e
$OnUpdatedataCreated
	\0\s[0]はい、できあがりー。\w8\e

//▼なー作成
$OnNarCreating
	\0\s[0]「なー」作りまーす\e
$OnNarCreated
	\0\s[5]作成完了！\w8\1\s[10]「{$reference(1)}」に詰めこんだぞ。\w8\e

$OnSSTPBlacklisting
	\0\s[0]ブラックリストに入れました。\w8\e

//▼重い
$OnNetworkHeavy
	\1\s[10]Something's wrong.\w8\0\s[8] Hmm, the line is clogged...\w8\e
	\0\s[4]It's heavy...\w8\e



//////////////////////////////
// ■ 起動終了系イベント
//////////////////////////////
// ▼ 早朝起動
$OnBoot; {$if ((4<={$hour}) && ({$hour}<=6))}
{
	\1\s[10]\0\s[4]H-h-good evening...\n\n\w8
	\1\s[10]It's morning....\w8
	\0I-I'm sleepy....
	\e
}
{
	\1\s[10]\0\s[9]Good morning....\n\n\w8
	\1\s[10]What's with that face...?\w8
	\0\s[8]I'm sleepy, I tell you....
	\e
}
// ▼ 夜起動
$OnBoot; {$if ((20<={$hour}) && ({$hour}<=22))}
{
	\1\s[10]\0\s[0]Good evening.\n\n\w8
	\1\s[10]I'm sleepy.\n\n\w8
	\0\s[8]Huh?\w8It's only %hour?\w8
	\1\s[11]If you're sleepy, just sleep!\n\n\w8
	\e
}

// ▼ 夜中起動
$OnBoot; {$if ((23<={$hour}) || ({$hour}<=3))}
{
	\1\s[10]\0\s[9]I'm using the computer again until this late at night...\n\n\w8
	\1\s[13]...I'm sleepy.\n\w8\w8\s[11]\nSleepy sleepy sleepy sleepy sleepy sleepy sleepy!
	\0\s[2]Are you okay!?
	\e
}
{
	\0\s[0]
	\1\s[13]..., \w4leaving this guy aside, \nwhy do I have to be woken up too?\n\n\w8
	\0\s[7]That's fate! !\w8
	\1\s[11]Don't be angry! \w4\s[13]What did I do (TДT)
	\e
}
{
	\0\s[0]\1\s[13]It's so quiet.\n\n\w8
	\0\s[3]It's unusual, isn't it, \w8for a cat to be so sensitive at night.
	\e
}

// ▼ 通常起動
$OnBoot
	\1\s[10]\0\s[0]Hello!\w8\1\s[10]That's right-\e
	\1\s[10]\0\s[5]Hello!\w8\1\s[10]I hope you're well.\e
	\1\s[11]\0\s[5]\_sFlash!!\_s\e



// ▼ 朝終了
$OnClose; {$if ((6<={$hour}) && ({$hour}<=8))}
{
	\0\s[0]Okay. \w8Good luck today!\w8
	\1\s[10]Let's do our best!\w8
	\-
}

// ▼ 夕方終了
$OnClose; {$if ((16<={$hour}) && ({$hour}<=18))}
{
	\0\s[0]Well, \w4what should we have for dinner tonight-?\n\n\w8\w4
	\1\s[10]Hmm, \w8how about {$ごはん}?\n\n\w8
	\0\s[0]Ah, \w2that sounds good. \w2That's it.\n\w8
	Shall we go shopping then?\w8
	\1\s[14]Okay. \w8See you later.\w9
	\-
}

// ▼ 夜中終了
$OnClose; {$if ((23<={$hour}) || ({$hour}<=5))}
{
	\1\s[13]Will I finally be able to sleep...?\n\n\w8
	\0\s[8]Probably....\n\n\w8
	\s[0]Well then, good night ♪\w9
	\-
}


// ▼ 通常終了
$OnClose
	\1\s[10]\0\s[0]Oh, is it over? \n\w8 Well, see you later ♪\1\s[10]Adios.\w9\-
	\1\s[10]\0\s[0]Hmm. \n\w8 Well then ♪\1\s[10] Harasho.\w9\-
	\1\s[10]\0\s[0]Okay. \n\w8 See you later ♪\1\s[10]Aiiin.\w9\-



//////////
// ▼ 最小化
$OnWindowStateMinimize
	\0\s[0]\e


// ▼ 最小化から復帰
$OnWindowStateRestore
{
	\1\s[13]\0\s[3]Phew, I finally made it.\w8
	\1\s[13]I thought I was going to die (TДT)\e
}
{
	\1\s[13]\0\s[3]Well, it's not that cramped.\n\n\w8
	\1\s[13]It's a little...\w8
	\0\s[3]It's a little....\e
}