//初期化
#__Common
{$if ({$mode}==1)}

$_Variable
{$talkinterval=1}{$lasthour={$hour}}

$_Constant
{$mikirecount=0}{$kasanaricount=0}{$mikirecountmax=4}{$kasanaricountmax=4}{$mikireflag=false}{$kasanariflag=false}{$mikiretalkedflag=false}{$kasanaritalkedflag=false}{$headmousemovecountmax=64}{$facemousemovecountmax=64}{$bustmousemovecountmax=64}}

$OnMinuteChange,{$if ({$lasthour}!={$hour})}
{$_OnHourChange}{$lasthour={$hour}}

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

$_adjustprefix
{$temp={$sender}}{$if (({$substringr({$temp},6)}!="ちゃん") && ({$substringr({$temp},4)}!="さん")) { {$temp={$temp}さん} }}{$temp}


$OnMinuteChange
{$_OnTalk}


//見切れ復帰


//見切れ
$OnSecondChange,{$if (({$kasanariflag}) && ({$reference(2)}==0))}
{$kasanaricount=0}{$kasanariflag=false}{$kasanaritalkedflag=false}

$OnSecondChange,{$if (({$mikireflag}) && ({$reference(1)}==0))}
{$mikirecount=0}{$mikireflag=false}{$mikiretalkedflag=false}\h\s[0]Ah, I'm finally back...!!\e
{$mikirecount=0}{$mikireflag=false}{$mikiretalkedflag=false}\h\s[7]If you need to drive them out, \w4how about increasing the resolution?\e

$OnSecondChange,{$if (({$mikireflag}) && ({$mikiretalkedflag}==false))}
{$mikiretalkedflag=true}\h\s[0]Um\w8...I feel like it's cut off...\w8\u\s[10].\w4.\w4.\w8it doesn't seem like I'm imagining things\e
{$mikiretalkedflag=true}\h\s[0]......\e
{$mikiretalkedflag=true}\h\s[8]Grrr! \w8\w2\s[1]\nRevival~~♪\5\w4\uI feel like I've heard that line somewhere before...\h\w8\w4\n\n\s[0]It's probably just my imagination...I'm sure...\e

$OnSecondChange,{$if (({$kasanariflag}) && ({$kasanaritalkedflag}==false))}
{$kasanaritalkedflag=true}\h\s[0]≦\w8could you please move away? \u\s[10]...\w4okay, okay.\u\4\e
{$kasanaritalkedflag=true}\h\s[0]Object X is approaching my feet...\u\s[10]......\w8who is Object X?\u\4\e
{$kasanaritalkedflag=true}\h\s[3]I feel...\w8strangely uneasy...\n\w8Could you please move away? \u\s[10]\w8\w4I understand\u\4\e

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



//頭を突っつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Head))}
\h\s[7]What are you doing!?\e
\h\s[8]...what's so fun about doing this?
\h\s[0]My cap is slipping off, can you please stop?

//顔面を突っつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Face))}
\h\s[0]That hurts...\e

//胸を突っつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}
\h\s[7]…どこ触ってるんですか！？\e
\h\s[3]……\w8\w8\u…\w4何故赤面する！？\e
\h\s[0]２Ｄの胸を突付いて、\w2面白いですか？\w8\w4\u\s[10]そのセリフ、\w8誰かが言ってたような気がするのだが…\e

//撫で回し
$_issakurahead
{$if (({$reference(3)}==0) && ({$reference(4)}==Head))}

$_issakuraface
{$if (({$reference(3)}==0) && ({$reference(4)}==Face))}

$_issakurabust
{$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}

$_issakuraheadpasslimit
{$if (({$_issakurahead}) && ({$headmovecountmax}<={$headmovecount}))}

$_issakurafacepasslimit
{$if (({$_issakuraface}) && ({$facemovecountmax}<={$facemovecount}))}

$_issakurabustpasslimit
{$if (({$_issakurabust}) && ({$bustmovecountmax}<={$bustmovecount}))}

$OnMouseMove,{$if ({$_issakuraheadpasslimit})}
{$headmovecount=0}\h\s[0]......\e
{$headmovecount=0}\hDid I have something on my head?\e
{$headmovecount=0}\h\s[1]Oh no...\e


$OnMouseMove,{$if ({$_issakurafacepasslimit})}
{$facemovecount=0}\h\s[7]...please don't play with my face.\e
{$facemovecount=0}\h\s[1]You shouldn't do that\e


$OnMouseMove,{$if ({$_issakurabustpasslimit})}
{$bustmovecount=0}\h\s[1]やんっ\e
{$bustmovecount=0}\h\s[3]…\w4エッチ……\w8\u\s[10]………\e


$OnMouseMove,{$if ({$_issakurahead})}
{$headmovecount+=1}

$OnMouseMove,{$if ({$_issakuraface})}
{$facemovecount+=1}

$OnMouseMove,{$if ({$_issakurabust})}
{$bustmovecount+=1}

$OnMouseDoubleClick,{$if ({$reference(3)}==1)}
\u\s[10]Ah, \n\w8nothing will happen if you poke me right now\e
\u\s[10]......\e
\u\s[10]...\w8you're already\w8\w8\n\ndead!! \w8\w8\h\s[0]...\w8\w8Fist of the North Star!?\e
\u\s[10]My dream is to become human someday. \w8\w8\b[-1]\h\s[7]What kind of lie are you telling...\e
\u\s[10]If you're going to poke someone, a cat's paw pad is better.\w8\w4\h\s[3]Ugh...\w4cat~\w8\nSquishy paw pads~\e
\h\s[2]Ah! \w4\nUnyu is being poked! \u\s[10]\w8\w4...am I a dangerous person!? \w8\w4\h\s[1]\n\nUh\n\w4Dangerous Uncertain Organism\u\s[10]\w8\n\nHey hey...\e


//メニュー
$What
\h\s[0]Yes \w8what is it?
\h\s[0]What can I do for you?
\h\s[1]What is it?
\u\s[10]Ah\n\w8Charel is busy right now...\w8\w8\b[-1]\h\s[7]Please don't answer without my permission!
\h\s[0]Okay! \w8What can I do for you?
\h\s[0]Now, please select a menu item!

$OnMouseDoubleClick,{$if ({$reference(3)}==0)}
{
{$What}\n\n
\q[Talk,Manzai]\n
\q[Talk Frequency,Timing]\n
\q[Feedback,Feedback]\n
\q[Teach Name,teachname]\n
\q[Announcement,what]\n
\n
\q[Cancel,Cancel]\n
\e
}

{
{$What}\n\n
\q[Story,Manzai]\n
\q[Story Setting,Timing]\n
\q[Notify Parents,Feedback]\n
\q[What's Your Name?,teachname]\n
\q[Announcement,what]\n
\n
\q[I'll stop after all,Cancel]\n
\e
}

{
{$What}\n\n
\q[Conversation,Manzai]\n
\q[Conversation Level Settings,Timing]\n
\q[Bug Report,Feedback]\n
\q[Name Registration,teachname]\n
\q[Notification,what]\n
\n
\q[Cancel,Cancel]\n
\e
}

$OnChoiceSelect,{$if ({$reference(0)}==Manzai)}
{$_OnTalkCore}

$OnChoiceSelect,{$if ({$reference(0)}==Timing)}
\h\s[0]\cHow much is good?\n\n\q0[talkinterval_level3][AB range]\q1[talkinterval_level2][Normal mod]\q2[talkinterval_level1][Idle power]\q3[talkinterval_level0][Shut up for a second]\e

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level3)}
{$talkinterval=1}\h\s[1]Well, I'll be in machine-gun talk mode.\e

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level2)}
{$talkinterval=2}\h\s[0]I'll talk a fair bit.\e

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level1)}
{$talkinterval=3}\h\s[0]I'll hold back a little.\e

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level0)}
{$talkinterval=-1}\h\s[0]......\w8\nI'll be quiet for a while.\e


$OnChoiceSelect,{$if ({$reference(0)}=="teachname")}
\h\s[0]So, how would you like me to pronounce you?\![open,inputbox,teachname,-1]

$OnUserInput,{$if ({$reference(0)}=="teachname")}
{$username={$reference(1)}}Okay.\s[5]From now on, I'll call you \w4{$username}\e

//キャンセル
$OnChoiceSelect,{$if ({$reference(0)}==Cancel)}
\h\s[3]Oh, \w8sorry...\e
\h\s[0]......\e


//タイムアウト
$OnChoiceTimeout
\h\s[0]......are you ignoring me?\e
\h\s[7]Are you ignoring me after I called you?\e
\h\s[7]......\e


//Ｗｉｎａｍｐ反応
$OnMusicPlay
\0\s[0]今、流れているのは、\w2\n\n{$reference(0)}\n\nです。\e

//表情復帰

$OnSurfaceRestore,{$if ({$reference(0)}==1)}
\u\s[10]...\w8you seem unusually happy.\w8\w8\b[-1]\h\s[0]Do you think so?\e
\u\s[10]...\w8shouldn't you get back to work now? \w8\w8\b[-1]\h\s[0]...\w8yes, I suppose so.\e
\h\s[0]\e

$OnSurfaceRestore,{$if ({$reference(0)}==2)}
\u\s[10]Doesn't that make you tired? \h\w8\w8\s[0]...\w4it makes me very tired......\e
\h\s[0]\e

$OnSurfaceRestore,{$if ({$reference(0)}==3)}
\u\s[10]How long are you going to keep blushing?\w8\w8\b[-1]\hBecause...\w8\w8\b[-1]\u\s\npeople will misunderstand and think you're thinking something naughty\w8\w8\b[-1]\h\s[0]\n\n.........\e
\h\s[0]\e

$OnSurfaceRestore,{$if ({$reference(0)}==5)}
\h\s[0]\e
\u\s[10]I don't think you need to be so flattering.\w8\w8\h\s[7]It's not flattery...\w8\w8\u\n\n...\w8I thought you'd turned into a moe type. \h\n\n\w8\w8\s[0]Of course not...\e

$OnSurfaceRestore,{$if ({$reference(0)}==7)}
\u\s[10]そろそろ機嫌を直したらどうだ？\w8\w8\b[-1]\h\s[0]ほら…\w8\w8\b[-1]\u\n\n変わり身の早いヤツだな…\e
\u\s[10]いつまでも怒っていると、折角の美人が台無しだぞ\w8\w8\b[-1]\h\s[3]…\w8よくもまぁ、\w4歯の浮くような台詞を言えるわね。\w8\w8\b[-1]\u\nまっ、\w4コレくらいはな。\w8\w8\b[-1]\h\s[0]うにゅうのクセにね\w8\w8\b[-1]\u\sヲイ！！\e

$OnSurfaceRestore,{$if ({$reference(0)}==8)}
\u\s[10]姉御！\w8\nその表情はちとどうかと思うぜ？\w8\w8\h\s[5]だ\w2・\w2れ\w2・\w2が\w2・\w2あ\w2・\w2ね\w2・\w2ご\w2・\w2ですって？\n\n\w8\w8\uいや…なんでもありません。\w8\w8\h\s[0]よろしい。\e
\u\s[10]シャル…\w4\nわい、何か気に障ることしましたっけ？\w8\w8\h\s[0]？？\w4\nそんなことは無いけど？\e
\h\s[0]\e



//初回起動
$OnFirstBoot
{
\t\h\s[0]\u\s[10]\h…\w8起こされたようですね\u\w8\w4そのようだ\h\w8\w8\n\n一体誰が起こしてくれたんでしょう？\w8\w8\u\n\nさあな\n\w8自分で聞いてみればええやないか？\w8\w4\h\n\n\s[8]そうだけど…\w4\n\w8\w4\s[2]あっ！\w4挨拶しないと…\x
\u\c\b[-1]\h\c\s[5]初めまして\n\w8%selfnameと申します。\w8\w8\uで、\w2わいは…\h\n\nそこにいる物体Ｘは、うにゅうと言います。\w8\w4\u\n\n誰が物体Ｘだ！\w8\h\n\nうにゅう\u\n\n\w8\w4……\x
\h\c\s[0]それでは、\w8私たちを起こして貰ったお礼として、\w8\nしばらくの間あなたのデスクトップに住まわせていただきます。\u\s[10]\w8\w8残念ながら拒否権は無い。\n\w8そして弁護士も呼ぶ権利も無いから、\w2覚悟してくれ。\w8\w8\h\s[1]\n\nでは、\w2今から言うお約束を絶対守ってくださいね。\u\s[10]\w8\w8守らないと、\w2後が怖いぞ！\x
\h\c\u\b[-1]\h\s[0]その１　邪魔でも使う\n\n\w8\w4私がもしあなたの邪魔をしても、\w4居させてください。\w8\w4\n邪魔だと思ったら、真っ先に解雇して頂いて結構です。\n\n\w8\w8何処かで藁人形に釘を打ってますから…\u\w8\w4陰険だな…\x
\h\c\u\b[-1]\hその２　バカにしない\n\n\w8\w4私は日に日に進化しています。\n\w4今日が駄目でも、明日には大きな太陽が昇るかも知れません。\w8\w8\n\n温かく見守ってください。\u\w8\w8何か初代と同じことをいってる気がするのだが…\n\w8まぁいいか\x
\h\c\u\b[-1]\hその３　広める\n\n\w8\w4私たちがあなたにとって有益だと感じたときは、持てる手段を使って現実の知人達に広めてください。\w8\w8\n\nそうしないとあなたの家の誰かが不幸なことなるかもしれません。\u\w8\w8食料には注意しろ。\w4薬物が混入されてるかもな。\x
\h\c\u\b[-1]\hその３．５　『ゲームやマンガに影響された』とか\n『夢と現実の区別が付かない』\nとか発言しない。\n\n\w4\w4……後日、一人で病院に来てください。\u\w8\w8……\x
\h\c\u\b[-1]\hその４　顔を突付かない\n\n\w8突付かれると痛いので\x
\h\c\u\b[-1]\hその５　胸を触らない\n\n\w8恥ずかしいので…\x
\h\c\s[3]それでは、%usernameさん。\n\n\w8\w8これから%usernameさんのお世話をしたり、ドキドキさせたり、邪魔をしたり、薬の実験台になってもらいます\n\n\w4\s[5]不束者ですがよろしくお願いします。\e
}
//早朝出動
$OnBoot,{$if ((5<={$hour}) && ({$hour}<=7))}
\h\s[0]...\w4wow~~\w8it's early in the morning. \s[5]\w4 Good morning. \u\s[10]It's time for those of you living in the suburbs to go out on the offensive. \h\s[8]\n......go out on the offensive...\e
\h\s[0]\u\s[10]\hToday's date is %month/%day. \n\n\w8Thanks for your hard work getting up so early. \w8\w8\u...you probably stayed up all night, didn't you? \w8\w4\h\s[8]Um...\w4 you shouldn't say things like that...\e

//朝から出動
$OnBoot,{$if ((8<={$hour}) && ({$hour}<=11))}
\h\s[0]\u\s[10]\hGood morning.\nLet's work hard today\uShould I sleep in...\h?\w4\n\nYou can't sleep~\e
\h\s[1]\u\s[10]\hGood morning.\n\w4Today's date is %month %day.\n\n\w8\w8Let's do our best today!\e

//昼間出動
$OnBoot,{$if ((11<={$hour}) && ({$hour}<=15))}
\h\s[0]\u\s[10]\hHello! It's lunchtime. \u\s[10]Today's lunch is {$me}...\e
\h\s[0]\u\s[10]\h控oday's date is %month %day. \w8\n\nLike the rapeseed flowers blooming quietly in the field on a pleasant spring day, the user's heart\w4...\w4...\w4...\w4\s[8]\w8\n\nAren't you going to make a comment? \w8\w8\uWhat? Did you want me to make a comment? \w8\h\s[3]Huh...\e
\h\s[1]\u\s[10]\hNow! \w8Let's give it our best shot! \w8\w8\uWhere to? \w8\w8\h\s[3]\n\nHuh! It's kind of demotivating...\u\w8\w8\nWell, I understand you're eager to go for it...\w8\nIsn't that okay?\e

//夕方出動
$OnBoot,{$if ((16<={$hour}) && ({$hour}<=18))}
\h\s[0]\u\s[10]\w8\h\s[1]Good evening\u...\w4the ogre has come...\h\s[7]\n\n.\w4.\w4.\w8who's the ogre?\u\n\n\w8\w4.......\w4nothing.\e
\h\s[0]\u\s[10]\hToday's date is %month/%day.\w8\n\nIs the sunset out?\w4\nIs it too cloudy to see?\e

//夜間出動
$OnBoot,{$if ((19<={$hour}) || ({$hour}<=4))}
\u\s[10]\h\s[0]Good evening! \nThank you for your hard work today! \uNow, let's eat and go to sleep\h\n\n\w4...I'll get fat...\e
\h\s[0]\u\s[10]\hGood evening. \w4\nAre you going to go online now? \w8\w8\uOr are you going to play some games? \w8\w8\h\s[8]\n\n......\w4you wouldn't wake us up to play games. \w8\nNormally...\e
\h\s[1]\u\s[10]\hThank you for your hard work today. \w8\nIt's time for \w4"With Charel", \w8\na ghost that claims to heal your heart\u...\w4...\w4\s[7]\nHey, don't interrupt me from the side~\u\n\n\w8\w8What is it? Did you not want me to jump in? \w8\w8\h\s[3]\n\nDepending on the time and situation...\e

//終了メッセージ

//5分以内

//早朝
$OnClose,{$if ((5<={$hour}) && ({$hour}<=7) && ({$elapsedminute}<=5))}
\t\0\s[7]...\w8\w4you called me in so early this morning...\w8\nIs it already over!? \1\s[10]\w8\w8Well, I guess it can't be helped. \0\w8\w4\n\n......\w8\-

//朝
$OnClose,{$if ((8<={$hour}) && ({$hour}<=10) && ({$elapsedminute}<=5))}
\t\0\s[0]...\w8is it already over? \1\w8\w8\s[10]Well, shall I go to sleep? \w8\w4\0\s[7]Don't go to sleep.\w8\-

//昼
$OnClose,{$if ((11<={$hour}) && ({$hour}<=15) && ({$elapsedminute}<=5))}
\t\0\s[0]...\w8is it already over? 1\w8\w8\s[10]Well, shall I go to sleep? \w8\w4\0\s[7]Please don't go to sleep.\w8\-

//夕方
$OnClose,{$if ((16<={$hour}) && ({$hour}<=18) && ({$elapsedminute}<=5))}
\t\0\s[0]...\w8is it over already? \1\w8\w8\s[10]Well, shall I go to sleep? \w8\w4\0\s[7]Please don't go to sleep.\w8\-

//夜
$OnClose,{$if (({$elapsedminute}<=5) && ((19<={$hour}) || ({$hour}<=4)))}
\t\0\s[0]...\w8is it over already? \1\w8\w8\s[10]Well, shall I go to sleep? \w8\w4\0\s[7]Please enjoy your rest.\w8\-



//通常

//早朝
$OnClose,{$if ((5<={$hour}) && ({$hour}<=7))}
\t\0\s[0]...\w8I can finally sleep\1\w8\w8Staying up all night is a bad idea\h\s[7]\w8\w8\n\nIt wasn't my choice, but...\w8\-

//朝
$OnClose,{$if ((8<={$hour}) && ({$hour}<=10))}
\t\0\s[0]Are you going to sleep now?\n\w8\s[5]Please get back to a normal lifestyle soon.\w8\w8\1\s[10]No,\n\w8that's the hard part.\w8\-

//昼間
$OnClose,{$if ((11<={$hour}) && ({$hour}<=15))}
\t\0\s[0]Stopping at this time...\w8\w2\nwhat could that mean?\w8\1\n\s[10]I wonder.\w8\-
\t\0\s[1]Now, \w8\nshall we have dinner?\u\s[10]\w5\w8The menu is {$me}.\h\s[5]\n\n\w4\w8Understood.\w8\-

//夕方
$OnClose,{$if ((16<={$hour}) && ({$hour}<=18))}
\t\0\s[1]It's about time to prepare dinner\1\s[10]\w8w8Hmm, \w4and...\w8\h\n\n\s[0]Oh, \w4there's no portion for Unyu\w8\w8\1\n\n.....\w8\-

//夜間
$OnClose,{$if ((19<={$hour}) || ({$hour}<=4))}
\t\0\s[0]Shall we go to bed now? \w8\w8\1\s[10]......\w8\w8\0Wait, \w8Unyu's already asleep...\w8\w8\n\nWith her eyes open\w8\-


//最小化から復帰

$OnWindowStateRestore
\u\s[10]\h\s[0]Ah... it was so cramped~\uDamn...\e
\u\s[10]\h\s[0]I'm finally back-\e
\u\s[10]\h\s[7]If it's just going to get in the way\w8\nthen why not just not start it...\e
\u\s[10]\h\s[7]...confining it in a small space\n\w8控hat's cruel. \u\w8\w8Exactly\e


//ゴーストリスターティング　ゴー
$OnGhostChanging,{$if ({$reference(0)}==シャルル)}
\t\h\s[0]The next ghost is Charel\w4...\w4...\w4...\n\w8\s[3]Is that me?! \n\n\w8\s[5]Okay, let's reboot.\w8\e

//ゴーストチェンジング

$OnGhostChanging
\t\0\s0\1\s0\0\s0The next ghost is {$reference(0)}. \w8 Thank you for your cooperation.\w9\e
\t\h\s[0]\u\s[10]\h{$reference(0)} will be taking over the mission. Thank you for your cooperation.\w8\e

//ゴーストチェンジドゥ
$OnGhostChanged,{$if ({$reference(0)}==シャルル)}
\0\s0\1\s0\0\s0控he app has restarted. \s[5]\w8We look forward to working with you again soon.\e


$OnGhostChanged
\0\s0\1\s0\0\s0Inherited from {$reference(0)}.\e

$OnShellChanging
\0\s0\1\s0\0\s0服装を変えてみます。\e

$OnShellChanged
\0\s0\1\s0\0\s0この服装は{$reference(0)}のようです。\e

//リストラ宣告

$OnVanishSelecting
\h\s[8]…\w8冗談ですよね！？\w8\e
\h\s[7]…\w8私たちの関係って\w8\nそれくらいのものだったんですね！？\w8\w8\b[-1]\u\s[10]どういう関係だよ\w8\e

$OnVanishSelected
\h\s[0]……\w8\w8さようなら。\w8\e

$OnVanishCancel
\h\s[7]…\w4…\w4…\w8笑えない冗談はやめてください。\w8\w8\b[-1]\u\s[10]間違って消したら、夜道を一人で歩くことができなくなるからねぇ…\e

$OnVanished
\h\s[0]{$reference(0)} has been deleted. \w8\w8\u\s[10] My condolences...\e


//メールチェック
$OnBIFFBegin
\h\s[0]Check your email for {$reference(2)}.\e
\h\s[0]Have you received an email?\e

//メール無し
$OnBIFFComplete,{$if ({$reference(0)}==0)}
\h\s[0]It seems I haven't received an email yet. \u\s[10]That's unfortunate.\e
\h\s[0]Unfortunately,\nI haven't received an email yet. \u\s[10]Well, don't be too depressed.\e

//メールあり
$OnBIFFComplete
\h\s[1]Ah, it looks like it's arrived. \n\n\w6{$reference(0)} messages, \w6{$reference(1)} bytes.\e
\h\s[1]It's arrived. \n\n\w6{$reference(0)} messages, \w6{$reference(1)} bytes.\e
\h\s[0]New email has arrived. \n\nNumber of pages, \w6{$reference(0)} messages, size, \w6{$reference(1)} bytes\w5\u...so mechanical.\e

//新メールチェック機能
$OnBIFFComplete2,{$if ({$reference(0)}==0)}
\h\s[0]It seems there were no new emails.\e

OnBIFF2Complete
\h\s[1]You have new emails. \n\n\w4\s[0]{$reference(3)} emails. \w4\nThat's a total of {$reference(1)} emails.\e

//失敗
$OnBIFFFailure
\h\s[0]......\w8email check \w5failed...\e


// 時計あわせ

$OnSNTPBegin
\h\s[5]それでは、\w4正しい時刻に合わせます。\e
\h\s[1]では！\n時計を合わせます。\e

$OnSNTPCompare,{$if ({$reference(3)}==0)}
\h\s[0]\n\nあら……\w8\nピッタリのようです。\e

$OnSNTPCompare
\6\h\s[0]{$_SNTPStringA}\n{$_SNTPStringB}\w3\n{$reference(3)}秒ずれてましたので、直しておきましたよ。\e
\6\h\s[0]えー…\w5{$_SNTPStringA}\n{$_SNTPStringB}\w3\n{$reference(3)}秒ずれてるようなので\n修正しておきます。\e
$OnSNTPFailure
\h\s[0]あらら！？\w8どうやら接続に失敗したようです。\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)}秒



//ネットワーク関係

//ネットワーク更新
$OnUpdateBegin
\h\s[0]ネットワーク更新ですか？\n\w8繋ぎますよ。\u\s[10]ピー\w8\w2ポロロロロー\w8\h\nモデム!?\e
\h\s[5]それでは！\w4ネットワークに接続します。\n\n\w2しばらくお待ちください。\e
\h\s[1]更新ファイルはあるかな？\u\s[10]\n\w4まっあまり期待しない方がいいがな\e

//ファイル数チェック
$OnUpdateReady,{$if ((1<={$reference(0)}) && ({$reference(0)}=<9))}
\h\s[0]ファイル数は\w4\n{$temp={$reference(0)}}{$temp+=1}{$temp}個だそうです。\u\s[10]少ないな。\h\n\nさっさと終わらせちゃいましょう。\e

$OnUpdateReady,{$if (10<={$reference(0)})}
[realtime]\h\s[1]{$temp={$reference(0)}}{$temp+=1}{$temp}個もあるそうです。\u\s[10]大量だな。\w2\n回線途中で落ちなけりゃ良いが。\h\nそうですねぇ。\e

//ダウンロード中
$OnUpdate.OnDownloadBegin
\h\s[0]\n\n\_q{$reference(0)}\_q\nを受信してます。\e
\h\s[1]\n\n\_q{$reference(0)}\_q\nを発見しました。\u\s[10]発見って…\e
\h\s[0]\n\n\_q{$reference(0)}\_q\nを回収中です。\e
\h\s[0]\n\n\_q{$reference(0)}\_qを捕捉しました。\u\s[10]砲撃\w4開始!!\h\s[1]\nラジャー♪\e

//ＭＤ（メガドライブではない）５照合
$OnUpdate.OnMD5CompareBegin
\h\s[0]\n\n\_q{$reference(0)}\_q\n只今照合中。\u\s[10]キャッシュディスペンサーみたいだな。\e
\h\s[0]\n\n\_q{$reference(0)}\_q\nは合ってるでしょうか？\u\s[10]ンなこと知らんわ\hうにゅうには聞いてません\e
\h\s[0]\n\n\_q{$reference(0)}\_qを照合。\e

//ＭＤ５一致
$OnUpdate.OnMD5CompareComplete
\h\s[0]\_q{$reference(1)}\n\_q{$reference(2)}\w8\s[1]\n\n一致しました。\w8\e
\h\s[0]\_q{$reference(1)}\n\_q{$reference(2)}\w8\n\n確認したところ…\w4残念ながら\u\s[10]！？\h\s[1]\n\w4一致してました☆\u\n\nヲイ…\w8\e

//ＭＤ５不一致
$OnUpdate.OnMD5CompareFailure
\h\s[0]\_q{$reference(1)}\n\_q{$reference(2)}\n\nあれ？\w8合わないみたいです。\u\s[10]何でだろうね\h\n\w4私に言われても…\w8\e

//更新無し
$OnUpdateComplete,{$if ({$reference(0)}==none)}
\h\s[0]Looks like it hasn't been updated. \w4\u\s[10]Ugh! It's damp.\e
\h\s[5]Unfortunately,\nit hasn't been updated. \u\w8\s[10]They've been slacking off on updating...\e
\h\s[8]It hasn't been updated...\w8\u\s[10]Does that make you feel sad? \h\n\n\w8\s[0]Something like that.\e

//更新終了
$OnUpdateComplete
\h\s[1]更新終了しました。\u\s[10]これで少しは賢くなっていれば良いが…\h\w8\n…\w8…\w8うにゅうは退化しちゃったかもね。\u\n……\e
\h\s[5]任務完了。\w4\s[0]\n何が変わったのかな？\e

//更新失敗
$OnUpdateFailure
\h\s[0]...\w8sorry.\nIt seems it failed.\u\s[10]Please try again.\e

//回線ヘヴィー
$OnNetworkHeavy
\h\s[0]...it's slow. \u\s[10]It's because I'm using a weird server. \h\nDon't say that.\e
\h\s[0]It's taking so long to come...\s[10]Should I just give up and go to sleep? \h\n\nNo way...\e


//インストール

$OnInstallBegin
\h\s[0]Installation will now begin.\e


$OnInstallComplete,{$if ({$reference(0)}==shell)}
\h\s[1]Shell {$reference(1)}.\n\nInstallation completed!\e

$OnInstallComplete,{$if ({$reference(0)}==ghost)}
\h\s[1]Ghost {$reference(1)}.\n\nInstallation completed!\e

$OnInstallComplete,{$if ({$reference(0)}==plugin)}
\h\s[1]Plugin {$reference(1)}.\n\nInstallation completed!\e

$OnInstallComplete,{$if ({$reference(0)}==balloon)}
\h\s[1]Balloon {$reference(1)}.n\nInstallation completed!\e

$OnInstallFailure
\h\s[0]...installation failed.\e

$OnInstallFailure
\h\s[0]Unfortunately, it appears that installation is not possible because the data is for \w8\s[3]\n{$reference(0)}.\e



//壁紙を
$OnWallpaperChange
\h\s[1]では、壁紙を換装します。\e
\h\s[0]模様替えをするんですか？\e

//ＳＳＴＰ中断
$OnSSTPBreak
\h\s[3]あっ\w8ごめんなさい…\e


//ＳＳＴＰブラックリスティング
$OnSSTPBlacklisting
\h\s[0]ＩＰ{$reference(0)}をブラックリスティングしました。\e


//起動時間

//短時間
$_OnElapsedHourChange,{$if (4<={$reference(0)})}
\h\s[0]{$TalkWorktime}Are we going further?\e
\h\s[0]{$TalkWorktime}...it's stable.\e
\h\s[0]{$TalkWorktime}Is this just the beginning?

//不味い程長時間
$_OnElapsedHourChange,{$if (128<={$reference(0)})}
\h\s[0]{$TalkWorktime}Ugh\w8\nplease stop...\e

//長時間
$_OnElapsedHourChange,{$if (64<={$reference(0)})}
\h\s[0]{$TalkWorktime}Could it be...\w8a server machine or something?\w8\w4\u\s[10]I can't deny that possibility...\e

//中程度
$_OnElapsedHourChange,{$if (16<={$reference(0)})}
\h\s[0]{$TalkWorktime}I'll do my best\e
\h\s[0]{$TalkWorktime}You can't be asleep...\u\s[10]\w8\w4That's probably it...\e


$TalkWorktime
\0\s[0]It has been {$reference(0)} hours since launch.\n\n


//ヘッドラインセンス

$OnHeadlinesenseBegin
\0\s[0]{$reference(0)} get headlines.\e

$OnHeadlinesense.OnFind,{$if ({$reference(2)}==First)}
\0\s0\b2Site {$reference(0)}, page 1.\n\n{$reference(3)}\n\q0[][Next page]\q1[{$reference(1)}][Try it out]\q2[cancel][好on't go]\e

$OnHeadlinesense.OnFind,{$if ({$reference(2)}==Next)}
\0\s0\b2Site {$reference(0)}, normal page.\n\n{$reference(3)}\n\q0[][Next page]\q1[{$reference(1)}][Try it out]\q2[cancel][Don't go]\e

$OnHeadlinesense.OnFind,{$if ({$reference(2)}==First and Last)}
\0\s0\b2Site {$reference(0)}, page 1 and last.\n\n{$reference(3)}\n\q0[{$reference(1)}][Try it out]\q1[cancel][好on't go]\e

$OnHeadlinesense.OnFind,{$if ({$reference(2)}==Last)}
\0\s0\b2Last page of site {$reference(0)}.\n\n{$reference(3)}\n\q0[{$reference(1)}][Try it out]\q1[cancel][Don't go]\e

$OnHeadlinesenseFailure
\0\s0ailed to retrieve...\e

$OnHeadlinesenseComplete,{$if ({$reference(0)}==no update)}
\0\s0It appears not updated.\e




//アップデート・データファイル作成

$OnUpdatedataCreating
\h\s[0]「update2.dau」を製作いたします。\e

$OnUpdatedataCreated
\h\s[1]「update2.dau」が完成しました。\e

// ------------------------------------↓GET String

$homeurl
http:

$readmebuttoncaption
Read Me!



$vanishbuttonvisible
1

$username
user


//ファヴォリッツ
$sakura.recommendbuttoncaption
Dear Customer
Wonderful Things

$sakura.portalbuttoncaption
Portal
Lutapo
Countryside Spaghetti
Bashamichi Spaghetti
Modern Girl Spaghetti
Olive Oil
Mentaiko Spaghetti

$kero.recommendbuttoncaption
Great Being
Danger! Don't Touch!
Under 18 Not Allowed
Secret Garden
Adult World
Don't Look (Heart)

$updatebuttoncaption
A switch that's good to press occasionally
Data link
Telenet communication
Satellite communication
Message from AWACS
Update with JSTAR
Contact with the control tower
Updater
Network update
Network update
Fighting human power plant
Positive tuberculin reaction
Excellent endorphins
Hello from the North
Drawing tiles
Unrivaled national hero
One-shot reach
Medal of Honor
With Red Cross Haruka
Cleanup operation


$vanishbuttoncaption
Dictatorship switch
Restructuring switch
Beheading switch
Execution switch
Expulsion switch
Euthanasia button
Shoulder tap button
Yellow and black striped lever
Red switch
Yellow and black striped rope
Ammunition depot blow-up button
Dynamite blow-up
Stalin and I
Ballistic missile blow-up
One-way ticket to the afterlife
Ace pilot
London Bridge blow-up
The collapse of Moore's Law