//八坂さんとそうぞう
//ランダムトーク定義ファイル
//megumi@megworks

// ------------------------------------↓デフォルト値

$_Variable
{$talkinterval=1}{$lasthour={$hour}}{$mikireflag=false}{$kasanariflag=false}{$mikirecount=0}{$kasanaricount=0}{$mikirecountmax=4}{$kasanaricountmax=4}{$mikiretalkedflag=false}{$kasanaritalkedflag=false}{$mizugi=0}{$newyear=0}{$valentine=0}

$_Constant
{$headmovecount=0}{$headmovecountmax=128}{$facemovecount=0}{$facemovecountmax=128}{$bustmovecount=0}{$bustmovecountmax=128}{$sakotsumovecount=0}{$sakotsumovecountmax=128}{$xxxxmovecount=0}{$xxxxmovecountmax=128}{$test0=0}{$test1=1}{$test2=2}{$test3=3}

// ------------------------------------↑初期化
// ------------------------------------↓生イベントハンドラ


// ------------------------------------↓Vanish
/////////////////////////////////////////////////
////// 消滅イベント /////////////////////////////
/////////////////////////////////////////////////


$OnVanishSelecting
\0\s[0]消すんですか？\e
\0\s[4]‥‥解雇ですか？\e
\0\s[0]用済みですか‥‥？\e

$OnVanishSelected
\0\s[0]さようなら‥‥\e
\0\s[3]\1\s[12]\_sギャーッ！！！！！！！\e
\0\s[3]‥‥お世話になりました‥‥\e
\0\s[3]オセワニナリマシタ\e

$OnVanished
\0\s[0]Goodbye {$reference(0)}.\e
\0\s[0]\1\s[10]\_sなーむーあーみーだーぶーつー。\e


// ------------------------------------↓Drop


$OnURLDropping
\0\s[0]ダウンロード中。\e


// ------------------------------------↓ネットワーク更新
/////////////////////////////////////////////////
////// Update イベント //////////////////////////
/////////////////////////////////////////////////


//ネットワーク更新が開始された
$OnUpdateBegin
\0\s[0]サーバに接続。\e
\0\s[0]更新するよ〜。\e
\0\s[2]はっ！！\1\s[10]‥？‥‥受信した？\e
//\0\s[0]ｷﾀ━━(ﾟ∀ﾟ)━━!!\e

//ファイルのダウンロードが開始された
// Reference0 ダウンロードするファイルの名前
$OnUpdate.OnDownloadBegin
\0\s[0]\_q{$reference(0)}\_q 受信中。\e
\0\s[0]{$reference(0)}のダウンロード開始〜\e

//MD5 の照合が開始された
// Reference0 比較するファイルの名前
// Reference1 正しい MD5 値
// Reference2 落としたファイルの MD5 値
$OnUpdate.OnMD5CompareBegin
\0\s[0]\_q{$reference(0)}\_q MD5照合。\e
\0\s[0]{$reference(0)}のMD5を照合しますね。\e
\0\s[0]{$reference(0)}のMD5を検証します。\e
\0\s[0]{$reference(0)}のMD5をチェックしよ〜。\e

//MD5 が一致した
// 同上
$OnUpdate.OnMD5CompareComplete
\0\s[0]一致。\e
\0\s[0]{$reference(0)}のMD5が一致したよ\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\n\s[5]うん、ばっちり。\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\n\s[5]よしっ。\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\nちゃんと合ってるね。\e

//MD5 が一致しなかった
// 同上
$OnUpdate.OnMD5CompareFailure
\0\s[0]不一致。\e
\0\s[0]{$reference(0)}のMD5が一致しないよ。\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\n\s[2]‥‥あれ。\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\n\s[3]‥？‥？‥？\e
\0\s[0]{$reference(1)}\n{$reference(2)}\n\n\s[7]ちが〜う！！\e

//ネットワーク更新
// Reference0 成功／失敗事由
// Reference1 カンマでセパレートされた更新されたファイル名のリスト
//  成功／失敗事由
//   none     更新すべきファイルはなかった
//   changed  更新された
//   timeout  タイムアウト
//   md5 miss MD5 不一致
//   404 等   そのステータスコードで失敗

$OnUpdateComplete,{$if ({$reference(0)}==none)}
\0\s[0]更新なし。\e
\0\s[8]‥‥。\1\s[11]さぼってやがる‥‥\e

$OnUpdateComplete
\0\s[0]更新終了。\e
\0\s[0]更新成功。\n\nなにか変わったのかしら。\e
\0\s[0]更新終了しました。\n\nちょっと変わったかな。\e

$OnUpdateFailure{$if ({$reference(0)}==timeout)}
\0\s[4]つながらなかったよ。\e
$OnUpdateFailure
\0\s[4]更新失敗。\e
\0\s[0]{$reference(0)}だって。なんだか分からないけど\e
//\0\s[4]ｺﾈ━━(ﾟＡﾟ)━━!!\e

$OnUpdateFailure{$if ({$reference(0)}==md5 miss)}
\0\s[0]ファイル壊れてるみたい。\e


// ------------------------------------↓メール
/////////////////////////////////////////////////
////// BIFF イベント ////////////////////////////
/////////////////////////////////////////////////


//メールチェックが開始された
$OnBIFFBegin
\0\s[0]I'll check my mailbox.\w9\w9\s[99]\e
\0\s[0]Okay, I'll take a quick look.\w9\s[99]\e
\0\s[0]I wonder if there's any email.\w9\s[99]\e

//メールチェックが成功した
// Reference0 スプールされているメールの通数
// Reference1 スプールされているメールのバイト数
$OnBIFFComplete,{$if ({$reference(0)}==0)}
\0\w9\w9\s[0]There was no email.\e
\0\w9\w9\s[4]I haven't received any email....\e
\0\w9\w9\s[0]My mailbox was empty\e
\0\w9\w9\s[7]I haven't received any email!\e

$OnBIFFComplete
\0\s[0]I got an email. \n\n{$reference(0)} emails, and it says I'm getting a {$reference(1)} part-time job. \n\n\w9\w9\w9Would you like to read it now?\n\n\q0[read][・I'll read it]\q1[notread][・Later]\e
\0\s[0]{$reference(0)} emails, and it says I'm getting a {$reference(1)} part-time job. \n\n\w9\w9\w9What should I do?\n\n\q0[read][！'ll read it]\q1[notread][・あとでね]\e
\0\s[0]It looks like I've got {$reference(0)} emails. \n\n\w9\w9\w9Would you like to check your email?\n\n\q0[read][・I'll read it]\q1[notread][・Later]\e

//OnBIFF2Complete
//\0\s[0]メール着てたよー。\n\n{$reference(0)}通のメールで、{$reference(1)}バイトだって。\n新しいメールが {$reference(3)}通着てるね。\n\n\w9\w9\w9いま見ますか？\n\n\q0[read][・読みます]\q1[notread][・あとでね]\e
//\0\s[0]新しいメールが {$reference(3)}通着てて、全部で{$reference(0)}通ありますよー\n\n\w9\w9\w9いますぐ確認する？\n\n\q0[read][・読みます]\q1[notread][・Later]\e

$OnChoiceSelect,{$if ({$reference(0)}==read)}
\0\s[0]Okay,\![open,mailer]
\0\s[0]Okay, let's open the mailer.\![open,mailer]

$OnChoiceSelect,{$if ({$reference(0)}==notread)}
\0\s[0]Well then, \w8please make sure to check it later.
\0\s[0]Okay, \w9see you later.

//メールチェックが失敗した
// Reference0 失敗事由
//  成功／失敗事由
//   timeout タイムアウト
//   kick    認証したが蹴られた
//   defect  ユーザの設定に誤りがある

//タイムアウト
$OnBIFFFailure{$if ({$reference(0)}==timeout)}
\0\s[4]I couldn't connect. Are you connected to the network?\e
\0\s[4]Maybe the mail server is down?\e
\0\s[0]I couldn't check my email...\1\s[10] The cause is '{$reference(0)}'.\e

//認証エラー
$OnBIFFFailure{$if ({$reference(0)}==kick)}
\0\s[4]\w6..\w6..\w6..\w6I got kicked out?\e
\0\s[4]\w6..?\w6..?\w6..?\n\w6Is your password correct?\e
\0\s[0]I couldn't check my email. \1\s[10]The reason is '{$reference(0)}'.\e

//設定ミス
$OnBIFFFailure{$if ({$reference(0)}==defect)}
\0\s[4]\w6..\w6,,\w6..\w6are the settings correct?\e
\0\s[4]\w6..\w6..\w6..\w6..\w6..\w6..\n\w6you can't check unless you configure it properly.....\e
\0\s[0]Email check failed.\e

// ------------------------------------↓時計
/////////////////////////////////////////////////
////// SNTP イベント ////////////////////////////
/////////////////////////////////////////////////

//時計合わせが開始された
// Reference0 接続先サーバ
// Reference1 バイト値1でセパレートされた正確な（SNTP サーバ側の）時刻
//            year,month,day,hour,minute,second
// Reference2 バイト値1でセパレートされた現在の（SNTP クライアント側の）時刻
//            year,month,day,hour,minute,second
// Reference3 ずれ（second）

$OnSNTPBegin
\0\s[0]\_q{$reference(0)}\_q\n\nに接続。\e
\0\s[0]時計合わせするよ〜\e
\1\s[10]時計合わせするですよ。\e

//サーバの時計の値とローカルマシンの時計の値の比較が開始された
$OnSNTPCompare,{$if ({$reference(3)}==0)}
\6\0\s[0]全くずれていない。\e
\0\s[0]サーバー: {$_SNTPStringA}\nローカル: {$_SNTPStringB}\n\nぴったり。\e

$OnSNTPCompare
\6\0\s[0]{$_SNTPStringA}\n\n{$reference(3)}秒ずれていたので修正。\e
\0\s[0]サーバー: {$_SNTPStringA}\nローカル: {$_SNTPStringB}\n\n{$reference(3)}秒ずれてるみたいね。\1\s[10]不正確なままで良いことなんか無いから、\nさっさと直そうな。\6\e
\1\s[10]サーバー: {$_SNTPStringA}\nローカル: {$_SNTPStringB}\n\n{$reference(3)}秒ずれてる。\0\s[0]直しちゃうほうが親切よね。\6\e
\0\s[0]サーバー: {$_SNTPStringA}\nローカル: {$_SNTPStringB}\n\n{$reference(3)}秒ずれてますよ。\n‥‥訊くだけ無駄ですね。\6\e

//時計合わせに失敗した
$OnSNTPFailure
\0\s[0]失敗。\e
\0\s[4]駄目でした。\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)}秒
}

// ------------------------------------↓install


//インストールシーケンスが開始された
$OnInstallBegin
\0\s[0]Installation begins.\e

//インストールが正常終了した
// Reference0 インストールされたオブジェクトを識別する識別子
// Reference1 インストールされたオブジェクトの名前
//  識別子 shell／ghost／balloon／plugin
$OnInstallComplete,{$if ({$reference(0)}==ghost)}
\0\s[0]Ghost {$reference(1)} installation complete.\e

$OnInstallComplete,{$if ({$reference(0)}==shell)}
\0\s[0]Shell {$reference(1)} installation complete.\e

$OnInstallComplete,{$if ({$reference(0)}==balloon)}
\0\s[0]Balloon {$reference(1)} installation complete.\e

$OnInstallComplete,{$if ({$reference(0)}==plugin)}
\0\s[0]Plugin {$reference(1)} installation complete.\e

//インストールが異常終了した
// Reference0 失敗の理由
$OnInstallFailure
\0\s[0]Failed.\e
\0\s[4]Isn't this the wrong file..\w8..\w8?\e

//インストールするファイルが他のゴーストを指名していた
// Reference0 指名されているゴーストの名前
$OnInstallRefuse
\0\s[0]This file is for {$reference(0)} and cannot be installed.\e
\0\s[4]It's not mine..\w8..\w8. \1Please give it to me directly.\e

// ------------------------------------↓surface restore


//落ち込み状態
$OnSurfaceRestore,{$if ({$reference(0)}==4)}
\1\s[10]いつまで落ち込んでるんの？\0‥\w8‥\w8‥\w8がんばろう。\s[0]\e
\1\s[10]元気だして。\0‥\w8‥\w8‥\w8うん。\s[0]\e
\1\s[10]いつまで落ち込んでるの？\0‥\w8‥\w8ごめん、いまはそっとしておいて\w8‥\w8‥\s[4]\e


//怒り状態
$OnSurfaceRestore,{$if ({$reference(0)}==7)}
\1\s[10]そんなにカッカしててもしょうがないよ\0‥\w8‥\w8‥\w8そだね。\s[0]\e
\1\s[12]怒んないで\0‥\w8‥\w8‥\w8うん。\s[0]\e
\1\s[12]こわいよ〜\w8\w8\0あ、ごめん。\s[0]\e
\1\s[10]なに怒ってるの。\w8\w8\0だってね‥‥。\s[7]\e
\1\s[10]なに怒ってるの。\w8\w8\0トクニリユウハナイ。\s[7]\e

//笑い状態
$OnSurfaceRestore,{$if ({$reference(0)}==5)}
\1\s[10]‥‥%selfname？\n\n\w8\w8\0\s[0]なに？\1いや、なんでもない\e
\1\s[10]なにニヤニヤしてんの？\0え、私、にやけてる？！\n\w8‥\w8‥\w8‥‥と。\s[0]\e


// ------------------------------------↓その他マイナーイベント等
/////////////////////////////////////////////////
////// ファイルイベント /////////////////////////
/////////////////////////////////////////////////

//（画像ファイルの DnD によって）壁紙が変更された
// Reference0 ファイル／ディレクトリ名（フルパス）
$OnWallpaperChange
\0\s[0]壁紙をセット。\e
\0\s[0]壁紙を『{$reference(0)}』に変えるよ〜。\e
//ファイルが DnD された
$OnFileDrop,{$if ({$reference(0)}==.gif)}
\0\s[7]GIFなんか渡すなーっ！\1\s[11]廃棄せよっ！。\e


/////////////////////////////////////////////////
////// 例外イベント /////////////////////////////
/////////////////////////////////////////////////

//SSTP ブレイクされた
// Reference0 例外の起きたスクリプト      【使用しない】
$OnSSTPBreak
\0\s[0]SSTPブレイク。\e
\0\s[0]{$reference(0)}がキャンセルされたよ。\e


////////////////////////////////////////////////
////// うたイベント ////////////////////////////
////////////////////////////////////////////////

//曲の再生が始まった
// Reference0 曲名（アーティスト名等の付加情報が付いている可能性有）
$OnMusicPlay
\0\s[0]『{$reference(0)}』を再生するよ〜。\e
\0\s[0]『{$reference(0)}』を再生しますね。\e
\1\s[10]なんて曲？\w8\0\s[0]『{$reference(0)}』だって。\e
\1\s[10]『{$reference(0)}』って‥‥？\w8\0\s[0]大家さんの趣味にケチつけると追い出されるよ。\e
\0\s[0]『{$reference(0)}』。\nいい曲ですねって言っておいた方が無難かな〜\w8\1\s[12]%selfname、\w8聞こえてるよ‥‥\e
\0\s[5]うたは良いよね〜\n\n\w8\1\s[10]人類の生m‥‥\n\0\s[7]それ以上言うなっ！\w8\1\s[10]モガ‥フガ‥‥\e

/////////////////////////////////////////////////
////// 選択肢イベント ///////////////////////////
/////////////////////////////////////////////////


//選択肢がタイムアウトした
// Reference0 タイムアウトしたスクリプト  【使用しない】
$OnChoiceTimeout
\0\s[4]Ugh....\n\w9\w9I was ignored....\e
\0\s[7]Don't ignore me!\b0\e
\0\s[0]People who aren't clear-minded are a negative.\e


/////////////////////////////////////////////////
////// 分類不能 /////////////////////////////////
/////////////////////////////////////////////////

//updates2.dau を作成し始めた
$OnUpdatedataCreating
\0\s[0]updates2.dau 作成開始。\e
\0\s[0]更新情報を作成するよ。\e

//updates2.dau の作成が終わった
$OnUpdatedataCreated
\0\s[0]終了。\e
\0\s[0]更新情報の作成が終わったよ。\e

//最終クライアントのブラックリスト行きが指示された
// Reference0 最終クライアントの IP アドレス
$OnSSTPBlacklisting
\0\s[0]ブラックリストに入れました。\e
\0\s[7]このー。\nブラックリスト行きだー。\e

//相手サーバが時間内に応答しなかった
$OnNetworkHeavy
\0\s[0]The communication is slow.\e
\0\s[4]It's heavy.\e


// ------------------------------------↑生イベントハンドラ
// ------------------------------------↓耐久試験用


$ismode0
{$if ({$mode}==0)}

$ismode1
{$if ({$mode}==1)}

$_OnTest,{$ismode0}
\0\s[0]モード0。\e

$_OnTest,{$ismode1}
\0\s[0]モード1。\e

$_OnTest
\0\s[0]どちらでもない。\e

$_OnTest
{$to=花ちゃん}あいうえお\e

$_OnTest
{$getvalue({$reference(0)},2)}\e

$_OnTest
{$_ref=a\,b\,c\,d\,e\,f}{$getvalue({$_ref},3)}\e

$_OnTest
{$if (({$hour}==23) || ({$minute}==59)) { あ{$if ({$hour}==9)}いうえお }}にょーん。\e

$_OnTest
{$reference(0)}にょーん。\e

$_OnTest
{$x=10}{$random({$x})}{$x}にょーん。\e

$_OnTest2
{$if (({$system.hour}==14) || ({$system.minute}==8)) { trueなのにょ。 } else { falseなのにょ。 }}にょーん。\e
{$if (((normal==normal) && (23==22)) || (22<=21)) { trueなのにょ。 } else { falseなのにょ。 }}にょーん。\e


// ------------------------------------↑耐久試験用