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

// ------------------------------------↓Ghost/ShellChanged
/////////////////////////////////////////////////
////// 切り替えイベント /////////////////////////
/////////////////////////////////////////////////

//〜自分以外のゴーストへの切り替えが指示された
//〜 Reference0 次のゴーストの名前
//〜 Reference1 切り替えメソッド
//〜            manual    手動で切り替えられた
//〜            automatic (システム等により)自動で切り替えられた

//交代時日時イベント
//この場合は$OnGhostChangedですよー
//元旦
$OnGhostChanged; {$if (({$month}==1) && ({$day}==1) && ({$elapsedhourtotal}>=30) && ({$newyear}==0))};
{$newyear=1}\0\s[0]明けましておめでとうございます。\n\w8\w8旧年中はお世話になりました。\n\w8\w8本年も宜しくお願いします。\n\n\w8\w8{$username}さんと少しでも一緒に居れたら嬉しいかもです。\n\n\w8\w8\w8\1\s[10]‥‥もう出てきてもいいのか？\n\n\w8\w8\0\あ、もういいわよ。\w8\w8\1そうか？\n\w8\w8それじゃ、今年もよろしくな、{$username}。\e

$OnGhostChanged; {$if (({$month}==1) && ({$day}==1) && ({$newyear}==0))};
{$newyear=1}\0\s[0]\1\s[10]\_s明けましておめでとうございます。\_s\n\w8\w8\0旧年中はお世話になりました。\n\w8\w8本年も宜しくお願いします。\w8\w8\1よろしくな、{$username}。\e

//バレンタイン
$OnGhostChanged; {$if (({$month}==2) && ({$day}==14) && ({$elapsedhourtotal}>=30) && ({$valentine}==0))};
{$valentine=2}\0\s[1]えっと‥‥\n\w8\w8今日はヴァレンタイン・ディなんで、一応チョコレートを用意してみようかと思ったわけですが‥‥\n\w8\w8\s[4]手作りしようとしたら焦がしました。\n\w8\w8がっくし‥‥\n\n\w8\w8\1\s[10]ただいまですよ〜。\n\w8\w8お、{$username}、来てたのか。\n\w8\w8ちょうどいいや、八坂さんに頼まれて{$username}に渡すチョコ買ってきたんで、今渡すな。\n\n\w8\w8\0\s[7]ちょっ、\w4こらっ、\w4待てっ、\w8なんであんたが渡しちゃうのよ！\n\w8私が渡さないと意味ないじゃないのよ〜っ！！\n\n\w8\1\s[13]\w8\s[14]ぱげらぶっ！\w8\w8\w8\0まったく‥‥\n\w8こほん。\n\w8\w8えと、\w4そんなわけで、\w4まあ、\w2その、\w2なんといいますか、\w4義理というかお世話になってるからというか、\w4なんと言いますか‥‥\n\n\w8\w8とにかく黙って受け取っといて！\e

$OnGhostChanged; {$if (({$month}==2) && ({$day}==15) && ({$valentine}==0))};
{$valentine=1}\1\s[10]\0\s[5]なんか、コンビニ行ったらチョコレートが大安売りしてた。\n\n\w8\w8\1それって、ヴァレンタイン・ディの売れ残りなんじゃ‥‥\n\n\w8\w8\0\s[8]そうとも言う。\n\n\w8\w8\w8{$username}さんも一つ如何ですか？\w8\w8\1チョコレートは身体にいいんだよ。\e

////8/23Ｃ３2003初日
$OnGhostChanged;{$if (({$month}==8) && ({$day}==23))}
\0\s[0]\1\s[11]本日はＣ３の１日目。\w4\nＣ３はガンダムとか、ダンバインといった、富野アニメの立体物を入手できる、数少ないイベントです。\w4\n今日は企業ブースが熱いぞ。\w8\w8\0\s[0]ライブとかの企画もあるから、立体が趣味じゃない人も楽しめますよー\e

////8/24Ｃ３2003最終日
$OnGhostChanged;{$if (({$month}==8) && ({$day}==24))}
\0\s[0]\1\s[11]本日はＣ３の２日目。\w4\nＣ３はガンダムとか、ダンバインといった、富野アニメの立体物を入手できる、数少ないイベントです。\w4\n本日はＣ３マーケットが開催。\w4\nアマチュアディーラーの熱い魂を感じ取れ！\w8\w8\0\s[0]ステージイベントのスーパーロボット大戦プレミアムライブというのは熱すぎると思うけど‥‥\e

//12/7ドルパ１０
$OnGhostChanged;{$if (({$month}==12) && ({$day}==7))}
\0\s[0]\1\s[10]今日は１２月７日、\w8東京ビックサイトで\_a[dolpa]【ドールズ・パーティー１０】\_a開催です。\n\w8\w8\_a[dolpa]【ドルパ】\_aは大分ドールメインのイベントになってきたからなあ‥‥\n\n\w8\w8ドール者ではないので、今回はお休みです。\w8\w8\0s[0]あら、そうなの？\n\n\w8\w8それじゃ、\w8いつも通りに行ってみよう〜\e

//12/14ＷＨＦ有明
$OnGhostChanged;{$if (({$month}==12) && ({$day}==14))}
\0\s[0]\1\s[11]ワールドホビーフェスティバル有明の開催日〜\n\w8\w8サークルのチェックＯＫ！\n\w8テーブルの場所確認ＯＫ！\n\n\w8\w8\1よって、これより出撃致します！\n\w8\w8それじゃぁ、あばよっ！\s[99]\w8\w8\0アレ、野放しにしておくと拙いんで、\n\w8ちょっと私も出かけてきますね？\n\w8\w8それじゃ。\w8\w8\w8\_+\e

//12/24クリスマスイブ
$OnGhostChanging; {$if (({$month}==12) && ({$day}==24) && ({$xmas}==1))};
{$xmas=2}\0\s[0]あれ、今日はもうお別れですか？\n\w8\w8\s[6]せっかくクリスマスイブなのに‥‥\n\n\w8\w8\w8しょうがない、私はサークルのクリスマス会にでも顔出してこよっと。\n\n\w8\w8それじゃ、またねー\w8\-

//12/25クリスマス
$OnGhostChanging; {$if (({$month}==12) && ({$day}==25) && ({$xmas}==1))};
{$xmas=2}\0\s[0]あれ、今日はもうお別れですか？\n\w8\w8\s[6]せっかくクリスマスなのに‥‥\n\n\w8\w8\w8しょうがない、私はサークルのクリスマス会にでも顔出してこよっと。\n\n\w8\w8それじゃ、またねー\w8\-

//12/24クリスマスイブ
$OnGhostChanged; {$if (({$month}==12) && ({$day}==24) && ({$elapsedhourtotal}>=20) && ({$xmas}==0))};
{$xmas=1}\0\s[0]\1\s[10]めり〜\n\w8\w8\0\s[4]誰の真似よ‥‥\n\n\w8\w8\w8\s[0]気を取り直して、\w6今日はケーキ喰ってシャンパン飲む日初日です。\n\n\w8\w8\1\s[12]ヲイ‥‥\w8\w8\0\s[7]酒だ！\n\w8\w8酒を持てい！\n\n\w8\w8\1\s[12]あぁ、こんなネタばっか‥‥\w8\w8\0\s[8]冗談よ、冗談。\w8\w8\w8\1\c\0\c\s[0]‥‥クリスマスイブですね‥‥\n\w8\w8{$username}さんは、何か良い事ありました？\n\w8\w8ん？\n\w8え、\w4あ、\w4私ですか？\w8\w8\n\nそうですね‥‥\n\w8\s[6]いまこうしていられるのは良い事なんじゃないかな‥‥\w6\nとか。\n\w6\w6\s[5]えへへ‥‥\n\n\w8\w8\1\s[10]うわ、らしくねえ\0\s[9]う、うるさいわね！\n\w8\w8\s[1]いいじゃない、偶には‥‥\w8\w8\c\s[0]と、とにかく‥‥\w8\w8せーの、\1\s[10]\c\0\c\s[5]\_sメリークリスマス！\_s\e

//12/25クリスマスＡ
$OnGhostChanged; {$if (({$month}==12) && ({$day}==25) && ({$xmas}==2))};
{$xmas=3}\0\s[4]昨日のみ過ぎた‥‥\n\w8\w8\1\s[11]だから程ほどにしようと言ったのに‥‥\w8\w8\0\s[8]大丈夫‥‥\n\w8\w8\s[5]{$username}さんもいるのに、二日酔いだなんて言ってられますか。\e

//12/25クリスマスＢ
$OnGhostChanged; {$if (({$month}==12) && ({$day}==25) && ({$elapsedhourtotal}>=20) && ({$xmas}==0))};
{$xmas=3}\0\s[5]\1\s[10]\_sメリークリスマス！\_s\w8\w8\0\c\1\c\0クリスマスですよ、{$username}さん。\n\n\w8\w8\1それくらいわかってるだろ、{$username}も。\w8\w8\0\s[9]だって、イブは呼んでくれなかったしね‥‥\n\w8\w8\s[5]私だって、{$username}さんだったら、デートくらいしてあげるのにねー\e


//特定ゴースト交代時
////自分に交代（再読み込み）
$OnGhostChanging;{$if ({$reference(0)}==八坂さん)}
\0\s[0]\1\s[10]\0Um...\w6\w6\Wait a moment....\w8\w8\e

////黒海
$OnGhostChanging;{$if ({$reference(0)}==黒海)}
\0\s[0]\1\s[10]\0飲み仲間です。\w8\w8\1お酒強そうだよね‥‥\w8\w8\w8\e
\0\s[0]\1\s[11]\1黒海さんとイベントとか一緒に行きたいです‥‥\w8\w8\0‥\w6‥\w6‥\w6‥\w6‥\w6‥\w8\w8\w8\e

////海ゅうたん８歳
$OnGhostChanging;{$if ({$reference(0)}==海ゅうたん)}
\0\s[5]黒海さんの妹だよ〜\w8\w8\1\s[10]目を付けとくなら今の内だそ、{$username}\w8\w8\w8\e
\0\s[5]黒海さんの妹だよ〜\w8\w8\1\s[10](*´Д`*)ﾊｧﾊｧ\w8\w8\1\s[8]あー、そういうことをしてると右の拳が‥‥\w8\w8\w8\e

////うにゅうの王国（博子）
$OnGhostChanging;{$if ({$reference(0)}==博子)}
\0\s[0]\1\s[10]\0あの制服、可愛いよね。\n\n\w8\w8\1\s[11]タイツ‥‥\n\w8\w8いいなあ‥‥\0\s[4]そう来るか‥‥\w8\w8\w8\e
\0\s[0]\1\s[10]\1%selfnameはタイツとかニーソ穿かないのか？\w8\w8\0\s[6]スカートは似合わないからね‥‥\w8\w8\w8\e

////余裕綽々
$OnGhostChanging;{$if ({$reference(0)}==余裕綽々)}
\0\s[0]\1\s[10]\0\s[9]あのキャミソールって‥‥\n\w8恥ずかしくないのかな‥‥\n\n\w8\w8\w8\1\s[11]%selfnameもあーゆーの着ろっ！\w8\0\s[4]‥\w8‥\w8‥\w8‥\w8却下\w8\w8\w8\e

////清音
$OnGhostChanging;{$if ({$reference(0)}==清音)}
\0\s[0]\1\s[10]\0\s[0]あの神社の霊験ってどうなんだろうね？\n\n\w8\w8\w8\1\s[10]さあ‥‥\n\w8でも、清音さん目当てのお客さんは多そうだな。\w8\w8\0そうだよね‥‥\w8\w8\w8\e
\0\s[0]\1\s[10]\0\s[0]ん？\n\w8お参りでも行って来るの？\w8\w8\w8\e

////響
$OnGhostChanging;{$if ({$reference(0)}==響)}
\0\s[0]\1\s[12]衛星軌道上に所属不明艦\n\n\w8\w8\0ＳＦ小説でも読んでるの？\n\n\w8\w8\1汎銀河連合のポケット戦艦の模様です。\n\n\w8\w8\0なんだ、響さんのことか。\n\n\w8\w8\1\s[10]なんで知ってるの？\w8\w8\0まあ、ちょっと然る筋からね\w8\w8\w8\e
\0\s[0]\1\s[10]\0\s[0]一度でいいから、星の海を渡ってみたいよね‥‥\w8\w8\1漢の浪漫だよな。\w8\w8\0\s[4]あのー、一応「女子大生」なんですけど‥‥\w8\w8\w8\e

////その他
$OnGhostChanging
\0\s[0]\1\s[10]\0Well then, {$reference(0)}, please.\w8\w8\e
\0\s[0]\1\s[10]\0The rest is up to you, {$reference(0)}.\w8\w8\e


//〜自分がゴーストになった
//他のゴーストからの切り替え
//〜 Reference0 直前のゴーストの名前

////読み込み直し完了
$OnGhostChanged;{$if ({$reference(0)}==八坂さん)}
\0\s[0]\1\s[10]\0Sorry to keep you waiting\e

////さくら
$OnGhostChanged;{$if ({$reference(0)}==さくら)}
\0\s[0]\1\s[10]大丈夫、八坂さんに惚れる奴なんかいないから。\n\n\w8\w8\0\s[7]おー\w8のー\w8れー\w8はー\n\w8\w8（ドカ、バキ、ガスガスガス！！）\w8\1\s[13]ぎゃー！！\w8\w8\s[14]\e

////黒海
$OnGhostChanged;{$if ({$reference(0)}==黒海)}
\0\s[0]\1\s[10]\1黒海さんていいよな‥‥\n\n\w8\w8\0私じゃ不満かっ！\n\n\w8\w8\1うん。\0\s[4]‥‥\e
\0\s[0]\1\s[10]\0彼女と飲みに行くとトンデモナイ話聞かされて‥‥\n\n\w8\w8\1面白そう。\n\n\w8\w8\0私がいなくなったら、\w8黒い服着た人達に連れて行かれたと思ってください。\w8\w8\1\w8\w8‥‥\w8\w8‥‥\w8\w8‥‥\w8\w8\s[12]え？\e

////海ゅうたん８歳
$OnGhostChanged;{$if ({$reference(0)}==海ゅうたん)}
\0\s[0]\1\s[10]\0「きれーな人」だって‥‥\1\s[11]騙されてるぞ海ゅうたん！\w8\w8\0\s[4]‥‥後で体育館裏に来い。\e
\0\s[0]\1\s[10]\0「きれーな人」って、なんか照れちゃうね‥‥\e
\0\s[0]\1\s[10]\0「きれーな人」って、なんか照れちゃうね‥‥\w8\w8\1\s[11]‥‥海ゅうさん、好きだー！！\w8\w8\0\s[8]はいはい、恥ずかしいからやめようね。\e
\0\s[8]\1\s[10]\0黒海さんところに遊びに行くと、よく抱きかれてもうたいへん。\w8\w8\1どんな感じ？\w8\w8\0\s[5]まあ、まだ子供だから軽いけどね。\n\w8ふにふにしてて可愛いんだよ。\e

////うにゅうの王国（博子）
$OnGhostChanged;{$if ({$reference(0)}==博子)}
\0\s[0]\1\s[10]\1王様からこんなもの送ってきたー\n\n\w8\w8\0\s[4]オーバーニーソックス‥‥？\n\w8\w8どうしろってのよ‥‥\n\n\w8\w8\1穿け。\n当然の様に穿け！\e
\0\s[0]\1\s[10]\1博子さんって、\w8もう大学まで卒業してるんだ。\n\n\w8\w8\0\s[9]どうせ、こっちはようやっと進級したばかりですよ〜だ\n\n\w8\w8\1いや‥‥\w8そういうつもりじゃ‥‥\e

////余裕綽々
$OnGhostChanged;{$if ({$reference(0)}==余裕綽々)}
\0\s[0]\1\s[10]\1綽たんより、%selfnameでいいのか？{$username}。\w8\w8\w8\0\s[7]%keroname、後でちょっと来い\e
\0\s[0]\1\s[10]\0綽々さん、ポチさんお借りしますよ〜\n\n\w8\w8\1{$username}の箪笥の中にキャミソール発見！\n\w8\w8‥\w8‥\w8‥\w8‥\w8残念、透けてません。\w8\w8\w8\0\s[7]何やってんのよ、あんたは！\e

////清音
$OnGhostChanged;{$if ({$reference(0)}==清音)}
\0\s[0]\1\s[10]宮司さんから巫女装束借りてきたー\n\n\w8\w8\w8\0ありがとう‥‥\n\w8\w8まったく、あの部長ときたら、\n\w8\w8「今度の企画では巫女服着用せよ」\n\w8なんて訳のわかんないことを‥‥\n\n\w8\w8\1宮司さん秘蔵の「すけすけ千早」\w8\w8\w8\0‥\w8‥\w8‥\w8‥\w8‥\w8‥\w8\s[7]今すぐ突き返して来いっ！\e
\0\s[0]\1\s[10]\0あら、{$username}お帰りなさい。\n\w8\w8‥\w8‥\w8‥\w8‥\w8うにゅう神社に行ってたんですか？\n\n\w8\w8\1清音さんの御神籤は、\n\w8よく当たるんぞ。\e
\0\s[0]\1\s[10]\0何かさぁ、あの神社行くと、いつも神主ゅうさんにお尻眺められてるような気がしてならないんだけど‥‥\n\n\w8\w8\1いや、きっと気のせいじゃ無いぞ\0\w8\w8‥\w8‥\w8‥\w8‥\w8え？\e

////響
$OnGhostChanged;{$if ({$reference(0)}==響)}
\0\s[0]\1\s[10]\0試験を除けば、大学生は楽しいですよ〜\n\n\w8\w8\1%selfnameの周りを見る限りはね。\0う‥‥\n\w8まあ、ちょっと変わったのが多いけどね‥‥\e
\0\s[0]\1\s[10]\1大学生の大方はモラトリアムのような‥‥\n\n\w8\w8\0それを言っちゃあ、お仕舞いだよぅ‥‥\e

////紅葉$OnGhostChanged;{$if ({$reference(0)}==紅葉)}
\0\s[0]\1\s[10]\0ねえ‥‥\n\n\w8\w8\1ん？\n\n\w8\w8\0あんた、病気治したりできないの？\n\n\w8\w8\1無理。\n\w8それに、『運命への干渉は禁止、禁止だよっ！』と通達が出てるし‥‥\w8\w8\0\s[4]使えねー\w8\w8\w8\e
\0\s[0]\1\s[10]なんて言うか‥‥\w8ラブラブ光線全開の時あるよな‥‥\n\n\w8\w8\0微笑ましくていいじゃない。\n\n\w8\w8\1ま、ね‥‥\e


//$OnGhostChanged;{$if ({$reference(0)}==花ちゃん)}
//\0\s[0]\1\s[10]\0花ちゃん、ごくろうさまでした。\e

$OnGhostChanged
\0\s[0]\1\s[10]\0\s[0]Thank you for your hard work, {$reference(0)}.\e
\0\s[0]\1\s[10]\0Hmm? \n\w8\w8Someone called us.\e


$OnGhostChanged;{$if ({$hour}<2)}
\0\s[4]\1\s[10]\0Ahh...., good evening.....\e
\0\s[4]\1\s[10]\0Good night\1\s[12]Don't sleep!\e

$OnGhostChanged;{$if (({$hour}>=2) && ({$hour}<6))}\e
\1\s[10]\0\s[4]I'm sorry for calling, but..... please don't wake me up.\n\n\q0[no][No]\q1[yes][Go to sleep]\e
\0\s[4]\1\s[10]\0Are you going to....?\n\n\q0[no][Go to work]\q1[yes][Sorry]\e
\0\s[4]\1\s[10]\0....please don't ask for too much. \n\n\q0[no][Please]\q1[yes][触o to sleep]\e

//////////////////////
//シェル切り替え反応//
//////////////////////

//〜シェルの切り替えが指示された
//〜 Reference0 選択された（次の）シェルの名前　← 要するにこれから使うシェルな。
$OnShellChanging;{$if ({$reference(0)}==master)}
\0\s[0]\1\s[10]\0う〜ん‥‥\n\w8\w8\s[8]やっぱりジーンズの方が落ち着くと思う‥‥\n\n\w8\w8\s[1]{$username}さんの前だし‥‥\n\n\w8\w8\s[5]ちょっと着替えてきますね？\w8\w8\w8\e
\0\s[0]\1\s[10]\0う‥‥\n\w8\w8ずっとお腹出してると‥‥\n\w8\w8\s[3]あ、\w4えぇと、\w6なんでもないっっ\n\n\w8\w8\s[8]{$username}さん、\w4ごめん、\w4ちょっと着替えてきます\w8\w8\w8\e

$OnShellChanging;{$if ({$reference(0)}==きむちなべ)}
\0\s[0]\1\s[10]\0部屋の中でずっとジーンズなのもなんだし、\n\w8\s[1]ちょっとラフな格好でもいいかな‥‥？\w8\w8\w8\e
\0\s[0]\1\s[10]\0\s[1]おへそとか見えてて\w8\w8\s[1]{$username}さんの前だとちょっと恥ずかしいんだけど‥‥\w8\w8\w8\e
\0\s[0]\1\s[10]\0\s[2]{$username}さん‥‥\n\w8\w8その、\w8あまり\w3ジロジロ見ないでくださいよ？\n\n\w8\w8\s[1]その‥‥\w8\w8む、\w4胸元とかおへその辺とか‥‥\n\n\w8\w8あうぅ‥‥\w8\w8\w8\e

//〜シェルが切り替わった
//〜 Reference0 変更完了したシェルの名前
$OnShellChanged;{$if ({$reference(0)}==master)}
\0\s[0]\1\s[10]\0\s[5]やっぱりこの格好が落ち着くねー\e
\0\s[0]\1\s[10]\0\s[1]あまり人前でラフな格好してるのも、\w6ね？\n\n\w8\w8\s[6]んー、\w4やっぱりジーンズがいいなぁ‥‥\e

$OnShellChanged;{$if ({$reference(0)}==きむちなべ)}
\0\s[0]\1\s[10]\0\s[1]ちょっと、\w4あちこち見えてる気がするけど‥‥\n\n\w8\w8\s[5]ちょっと寛ぐにはいいかな‥‥\e
\0\s[0]\1\s[10]\0\s[1]ん‥‥\w8\w8\n\s[6]‥\w6‥\w6‥\w6‥\n\n\w8\w8\s[5]ちょっとせくしぃ？\w8\w8\1\s[11]全然！\n\w8\w8‥‥\0\s[7]\1うぁっ？？\s[13]\e
\0\s[0]\1\s[10]\0\s[1]{$username}さん‥‥\n\n\w8\w8\s[5]もう、\w6目がえっちだぞっ！\e