// ------------------------------------↓いわゆる突き／撫で判定


//マウスがダブルクリックされた
// Reference0 マウスカーソルの x 座標（ローカル座標） 【使用しない】
// Reference1 マウスカーソルの y 座標（ローカル座標） 【使用しない】
// Reference2 マウスホイールの回転量および回転方向    【使用しない】
// Reference3 イベントのオーナー（0 : Sakura / 1 : Kero）
// Reference4 当たり判定識別子
//  当たり判定識別子はシェルによって自由に定義されるが、Head、Face、Bust は
//  スタンダードな識別子であり、多くのシェルでサポートされる。

//本体あたまつつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Head))}
\0\s[7]Don't flick me on the forehead-\e
\0\s[7]What are you doing?!\e
\0\s[4]It hurts....\e

//本体かおつつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Face))}
\0\s[7]Don't poke me in the face!\e
\0\s[7]{$username} is a terrible person!\e
\0\s[4]It hurts~\e
\0\s[4]Stop it~\e

//本体むねつつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}
\0\s[7]こら〜っ！\e
\0\s[7]楽しい？\w8\w8\1\s[10]楽しいからやってるんじゃ‥‥\e
\0\s[2]うひゃぁっ！\e
\1\s[10]もうちょっと、こう、ふにふに感が無いと‥‥\0\s[4]わるかったわね‥‥\e
\1\s[10]もうちょっと、こう、ふにふに感が無いと‥‥\0\s[7]うるさい！\n\w8だまれっ！\e
\0\s[9]あ‥‥\e
\0\s[9]{$username}さん‥‥\e
\0\s[7]{$username}さんはエロい人っ！\w8\w8\1\s[10]えろー\n\w6えろえろー\e
\0\s[7]痴漢は犯罪だって事、知ってる？\w8\w8\w8\1\s[10]けーさつに電話〜\e
\0\s[7]痴漢は犯罪だって事、知ってる？\w8\w8\w8\1\s[10]通報しますた。\e
//\0\s[7]痴漢は犯罪だって事を教えてあげるわっ！\w8\w8\![open,browser,http://www.npa.go.jp/]\w8\1\s[10]通報しました。\e
//\0\s[4]‥‥\w8‥‥\w8‥‥\w8‥‥\w8\![open,browser,http://www.npa.go.jp/form.htm]\w8\1\s[10]通報しますか？\e

//本体鎖骨つつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==Sakotsu))}
\0\s[7]Wait, \w4wait a second....\e
\0\s[8]Uh, \w4not really....\e
\0\s[2]Whoa, \w4wow\e
\0\s[9]I wonder where he's touching....\e

//本体秘所つつき
$OnMouseDoubleClick,{$if (({$reference(3)}==0) && ({$reference(4)}==xxxx))}
\0\s[1]ん‥‥\e
\0\s[2]う、\w4うわぁっ\e
\0\s[2]な、\w6\s[9]なんてとこ触りますかっ！！\e
\0\s[6]今なら、まだ見逃してあげるけど‥‥\n\n\w8\w8\s[7]次やったらただじゃ置かないわよ？\e
\0\s[9]あ‥‥\e
\0\s[9]{$username}さん‥‥\e

//マウスが移動した
// Reference0 マウスカーソルの x 座標（ローカル座標） 【使用しない】
// Reference1 マウスカーソルの y 座標（ローカル座標） 【使用しない】
// Reference2 マウスホイールの回転量および回転方向    【使用しない】
// Reference3 イベントのオーナー（0 : Sakura / 1 : Kero）
// Reference4 当たり判定識別子
//  当たり判定識別子はシェルによって自由に定義されるが、Head、Face、Bust は
//  スタンダードな識別子であり、多くのシェルでサポートされる。

$_issakurahead
{$if (({$reference(3)}==0) && ({$reference(4)}==Head))}
$_issakuraface
{$if (({$reference(3)}==0) && ({$reference(4)}==Face))}
$_issakurabust
{$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}
$_issakurasakotsu
{$if (({$reference(3)}==0) && ({$reference(4)}==Sakotsu))}
$_issakuraxxxx
{$if (({$reference(3)}==0) && ({$reference(4)}==xxxx))}

$_issakuraheadpasslimit
{$if (({$_issakurahead}) && ({$headmovecountmax}<={$headmovecount}))}
$_issakurafacepasslimit
{$if (({$_issakuraface}) && ({$facemovecountmax}<={$facemovecount}))}
$_issakurabustpasslimit
{$if (({$_issakurabust}) && ({$bustmovecountmax}<={$bustmovecount}))}
$_issakurasakotsupasslimit
{$if (({$_issakurasakotsu}) && ({$sakotsumovecountmax}<={$sakotsumovecount}))}
$_issakuraxxxxpasslimit
{$if (({$_issakuraxxxx}) && ({$xxxxmovecountmax}<={$xxxxmovecount}))}

//本体あたまなで
$OnMouseMove,{$if ({$_issakuraheadpasslimit})}
{$headmovecount=0}\0\s[7]子供扱いしないでよっ\e
{$headmovecount=0}\0\s[7]髪にさわらないでっ\e
{$headmovecount=0}\0\s[8]頭撫でられて喜ぶ歳でもないし‥‥\e
{$headmovecount=0}\0\s[6]‥\w4‥\w4‥\w4‥\w4‥\w4‥\w8\w8\n\n\s[0]ま、\w4偶には悪くないかな。\e

//本体かおなで
$OnMouseMove,{$if ({$_issakurafacepasslimit})}
//{$facemovecount=0}\0\s[0]顔撫で。\e
//\0\s[1]‥‥‥\e
//\0\s[7]なでるなっ\e
//\0\s[7]そういうのが「失礼」なことだってわからないのかな。\e

//本体むねなで
$OnMouseMove,{$if ({$_issakurabustpasslimit})}
{$bustmovecount=0}\0\s[7]すけべっ！\e
{$bustmovecount=0}\0\s[7]エロ機能でもつほど世の中甘くないんだっ！\e
{$bustmovecount=0}\0\s[7]エロ機能でもつほど世の中甘くないんだっ！\n\n\1\s[11]まったくだっ\e
{$bustmovecount=0}\0\s[7]半端なエロ機能でもつほど甘くないんだっ！\n\n\1\s[11]やるなら徹底的にっ！\n\n\w8\0‥\w8‥\w8‥\w8\s[24]%keroname。\1\s[10]ごめんなさい。\e
{$bustmovecount=0}\0\s[2]ひゃっ！\e
{$bustmovecount=0}\0\s[3]‥\w8‥\w8‥\w8‥\w8‥\e
{$bustmovecount=0}\0\s[7]どこ触ってんのよっ！\e
{$bustmovecount=0}\0\s[7]私に手を触れるなぁっ！\e
{$bustmovecount=0}\0\s[8]恥を知れ、俗物！\e
{$bustmovecount=0}\1\s[10]そんな薄い胸触って楽しいか？\w8\w8\0\s[4]薄かろうと何だろうと、\n\w6気分よくは無いよ‥‥\e
{$bustmovecount=0}\0\s[9]あ‥‥\e
{$bustmovecount=0}\0\s[9]{$username}さん‥‥\e
{$bustmovecount=0}\0\s[7]{$username}さんはエロい人っ！\w8\w8\1\s[10]えろー\n\w6えろえろー\e

//本体鎖骨なで
$OnMouseMove,{$if ({$_issakurasakotsupasslimit})}
{$sakotsumovecount=0}\0\s[4]そんなとこ、\w4普通触らないよ‥‥\e
{$sakotsumovecount=0}\0\s[7]そんな処触んないで！\e
{$sakotsumovecount=0}\0\s[9]なんか変な感じ‥‥\e
{$sakotsumovecount=0}\0\s[9]う‥‥、\w4なんかちょっと‥‥\e
{$sakotsumovecount=0}\0\s[9]ちょっとえっちな感じする‥‥\e

//本体秘所なで
$OnMouseMove,{$if ({$_issakuraxxxxpasslimit})}
{$xxxxmovecount=0}\0\s[2]も、\w6もうお嫁に行けない\s[4]‥‥\e
{$xxxxmovecount=0}\0\s[4]そんなとこ、\w4普通触らないよ‥‥\e
{$xxxxmovecount=0}\0\s[7]楽しい？\e
{$xxxxmovecount=0}\0\s[7]変態。\e
{$xxxxmovecount=0}\0\s[8]恥を知れ、俗物！\e
{$xxxxmovecount=0}\0\s[7]なにすんのよ！！\e
{$xxxxmovecount=0}\0\s[6]今なら、まだ見逃してあげるけど‥‥\n\n\w8\w8\s[7]次やったらただじゃ置かないわよ？\e
{$xxxxmovecount=0}\0\s[9]ん‥‥\e
{$xxxxmovecount=0}\0\s[9]あ‥‥\e
{$xxxxmovecount=0}\0\s[9]‥‥‥‥\n（じー）\e
{$xxxxmovecount=0}\0\s[9]‥‥‥‥\n（ﾄﾞｷﾄﾞｷ）\e

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

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

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

$OnMouseMove,{$if ({$_issakurasakotsu})}
{$sakotsumovecount+=1}

$OnMouseMove,{$if ({$_issakuraxxxx})}
{$xxxxmovecount+=1}

// ------------------------------------↓Menu


$OnChoiceSelect,{$if ({$reference(0)}==ghostcommunicate)}
{$_OnGhostCommunicateSend}

//$OnChoiceSelect,{$if ({$reference(0)}==cancel)}
//\0\s[0]Cancel.\e

$OnChoiceSelect,{$if ({$reference(0)}==menuelement0)}
\0\s[0]1st option.\e

$OnChoiceSelect,{$if ({$reference(0)}==menuelement1)}
\0\s[0]2nd option.\e


//本体つつき
$OnMouseDoubleClick,{$if ({$reference(3)}==0)}
0\s[0]Menu.\n\n\q0[menuelement0][menu item 0]\q1[menuelement1][menu item 1]\q2[forcedtalk][Say something]\q3[talkinterval][Adjust speaking frequency]\q4[ghostcommunicate][Talk to other ghosts]\q5[cancel][Cancel]\e
\0\s[0]What's that?\n\n\![*]\q[Say something,talk]\n\![*]\q[Tell me your name,teach]\n\![*]\q[Set chattiness level,set]\n\![*]\q[Comments requests etc.,report]\n\![*]\q[Sorry nothing,end]\e

//・ご意見ご要望etc.
$OnChoiceSelect,{$if ({$reference(0)}==report)}
\0\s[0]Well, then, please post here~\![open,browser,http://jbbs.shitaraba.com/bbs/read.cgi/computer/3514/1053958567/]\n\w8It's okay if you leave the name field blank, so please feel free to do so....\n\w8\w8But,\s[4]Can't you do something about the title of this bulletin board?\w8\w8\1\s[10]That's impossible, it's not cute.\e

//・何か話して
$OnChoiceSelect,{$if ({$reference(0)}==talk)}
{$_OnTalkCore}

//・名前教える
$OnChoiceSelect,{$if ({$reference(0)}==teach)}
\0\s[0]Um, I remember "{$username}"....?\n\q[Oh, that's OK,ok]\n\![*]\q[No that's not it,newteach]\e

$OnChoiceSelect,{$if ({$reference(0)}==ok)}
\0\s[6]Yes, \w9\w9\s[0] "{$username}" is fine.\e

$OnChoiceSelect,{$if ({$reference(0)}==newteach)}
Then, can you tell me your real name?\![open,inputbox,newname,-1]

$OnUserInput; {$if ({$reference(0)}=="newname")}
{$username={$reference(1)}}\0\s[6]"{$username}", I say. \n\n\w9\w9\s[0]I remembered it properly this time.\e


//聞いてくれ
//$OnChoiceSelect,{$if ({$reference(0)}==listen)}
//\__c\0\s[0]何？\e

////〜該当無し
//\re, nohit                , \0まあ、確かに%msもがんばってるけどねー。\ns_ce
//\re, nohit                , \0うんうん、そうだねー。\ns_ce
//\re, nohit                , \0ほんとうかなあ？その話。\ns_ce

////〜挨拶
//\re, おはよう             , \0\s[5]おはよ〜。\ns_ce
//\re, おはよ〜             , \0\s[5]おはよ〜。\ns_ce
//\re, おはようございます   , \0\s[0]おはようございます。
//\re, こんにちは|こんばんは, \0\[4]もうちょっと気のきいた挨拶してよー。\ns_ce
//\re, こんちは             , \0\[5]こんにちは〜。\ns_ce
//\re, こんにちは           , \0\[5]こんにちは〜。\ns_ce
//\re, こんばんは           , \0\[5]こんばんは〜。\ns_ce

//\re, まいど               , \1\s[10]まいど！\0\s[7]私が答えるのーっ！！\ns_ce
//\re, もうかりまっか       , \1\s[10]ぼちぼちでんなー\0\s[7]だーかーらー。\ns_ce
//\re, おーい & %sender=user , \0\s[0]なにー？%username？\ns_ce
//\re, おーい                , \0\s[0]なにー？%senderー？\ns_ce
//\re, おーい               , \0\s[7]うるさいっ。\ns_ce
//\re, うるさい             , \0\s[7]なにっ、やるかー！\ns_ce
//\re, 名前&覚えて          , \0\s[0]いいよ\ns_ce
//\re, さくら & 大戦 & セガ , \0\s[0]最後の砦だね。\ns_ce
//\re,[//set username]       , \0\s[0]%usernameであってるよね？\n\w8次からそう呼ぶね。
//\re, %sender=なる         , \0%senderはいつも元気だね。\ns_ce

////〜飛行機辞典
//\re, Ｔ−４               , \1\s[10]Ｔ−４ジェット練習機　川崎重工 製\n　1985年４月17日ロールアウト\x\cＦ−１５Ｊ、Ｆ−２戦闘機などのパイロット育成のため国内開発された航空自衛隊のジェット練習機。\x\c国産エンジンF3-30は一部の飛行領域ではＦ−１５Ｊを凌ぐ運動性能を持っている。\x\cまた、航空自衛隊所属のアクロバットチーム、ブルーインパルスが採用しているのもこの機体である。

////呼びかけ
//\hl, nohit, おーい、%ghostname〜。
//\hl, nohit, ねえ、%ghostname？
//\hl, nohit, あ、%ghostnameだ。
//\hl, なる , %ghostnameはいつも元気だね。

//メモして
//$OnChoiceSelect,{$if ({$reference(0)}==teach)}
//\__t\0\s[0]ええと、メモメモっと‥‥。\w6\1\s[10]ほんとに必要？\e
//$OnTeachStart
//TEACH
//\tc, noref, \0\s[0]%wordって何ですか？
//\tc, nohit, \0\s[0]‥‥\w8\w8‥‥？
//\tc, %ref0=人名, \0\s[0]%wordですね。わかりました。\ns_tc[ms]
//\tc, %ref0=無機物, \0\s[0]%wordだね。覚えるよ。\ns_tc[mz]
//\tc, %ref0=集合  , \0\s[0]%wordだね。覚えるよ。\ns_tc[ml]
//\tc, %ref0=社名  , \0\s[0]%wordだね。覚えるよ。\ns_tc[mc]
//\tc, %ref0=店名  , \0\s[0]%wordだね。覚えるよ。\ns_tc[mh]
//\tc, %ref0=技    , \0\s[0]%wordだね。覚えるよ。\ns_tc[mt]
//\tc, %ref0=食物  , \0\s[0]%wordだね。覚えるよ。\ns_tc[me]
//\tc, %ref0=地名  , \0\s[0]%wordだね。覚えるよ。\ns_tc[mp]

//オプション
$OnChoiceSelect,{$if ({$reference(0)}==set)}
\0\s[0]I'll change how often I talk.\n\n\![*]\q[Shut up,st0]\n\![*]\q[Sometimes talk,st1]\n\![*]\q[Normal,st2]\n\![*]\q[Loud,st3]\n\![*]\q[Stop it,end]\e

$OnChoiceSelect,{$if ({$reference(0)}==st0)}
{$talkinterval=-1}\0\s[0]Okay....\w8chuckle.\e

$OnChoiceSelect,{$if ({$reference(0)}==st1)}
{$talkinterval=3}\0\s[0]So it's okay to talk\e

$OnChoiceSelect,{$if ({$reference(0)}==st2)}
{$talkinterval=2}\0\s[0]Normally. \1\s[10]How long is normal~\e

$OnChoiceSelect,{$if ({$reference(0)}==st3)}
{$talkinterval=1}\0\s[0]It might be too loud.\e

$OnChoiceSelect,{$if ({$reference(0)}==end)}
\0\s[0]Really?\e
\0\s[0]Is that so....\e


////うにゅうなで
//\ev, OnMouseMove & %ref3=1 & %ref4=Head & %move=100, 
//\1頭なでなで？
////\ev, OnMouseMove & %ref3=1 & %ref4=Face & %move=100, 
//\1顔なでなで？
////\ev, OnMouseMove & %ref3=1 & %ref4=Bust & %move=100, 
//\1胸なでなで？

////うにゅうあたまつつき
//\ev, OnMouseDoubleClick & %ref3=1 & %ref4=Head, \1頭つつくな！
////うにゅうかおつつき
//\ev, OnMouseDoubleClick & %ref3=1 & %ref4=Face, \1顔つつくな！
////うにゅうむねつつき
////\ev, OnMouseDoubleClick & %ref3=1 & %ref4=Bust, \1胸つつくな！

//うにゅうつつき
$OnMouseDoubleClick,{$if ({$reference(3)}==1)}
\0\s[3]It'll explode..... \1\s[11]No way.\e
\1\s[11]Not allowed! \0\s[4]???\e
\1\s[10]Don't touch it.\e
\1\s[12]やーめーれー。\e
\1\s[12]No way.\e
\1\s[12]Oh, no....\n\n\w8\w8\0\s[4]Are you having fun?\e
\1\s[10]ｷｭﾝｷｭﾝ♪
\1\s[10]ﾊｲﾊｲ♪
\1\s[10]ｷｭﾙﾙﾝ♪
\1\s[10]Chu　ChuChu〜♪
\0\s[0]Actually, there's a skull button on the back....\w8\w8\1\s[10] No, there isn't.

\1\s[10]What?\n\![*]\q[Tell me something,neta]\n\![*]\q[Modeling class,modelrect]\n\![*]\q[Nothing,muyou]\e
\1\s[10]What?\n\![*]\q[Yasaka-san information,yasaka]\n\![*]\q[Nothing,muyou]\e
\1\s[10]What?\n\![*]\q[Tell me something,neta]\n\![*]\q[Modeling class,modelrect]\n\![*]\q[Yasaka-san information,yasaka]\n\![*]\q[Nothing,muyou]\e

//・何かネタやれ
$OnChoiceSelect,{$if ({$reference(0)}==neta)}
\1\s[11]Don't ask for too much.\e
\1\s[10]For a postcard maker,\w4 material is life. \n\w8 I can't just publish it carelessly.\e
{$_OnTalkCore}

//・模型講座
$OnChoiceSelect,{$if ({$reference(0)}==modelrect)}
\1\s[10]What level would you like to ask about?\n\![*]\q[Beginner,level0]\n\![*]\q[Beginner,level1]\n\![*]\q[Intermediate,level2]\n\![*]\q[Advanced,level3]\e

////・模型講座入門編
$OnChoiceSelect,{$if ({$reference(0)}==level0)}
\1\s[10]模型をやる上で必ず持っていた方が良い道具はピンバイス。\w8\w8\n\n0.5mm〜2.5mmくらいのドリル刃を使えるのが１つ有れば、\n色々と便利です。\e
\1\s[10]カプセルトイとか、ブリスターパックのフィギュアなんかで使われてる素材はPVCと言います。\w8\w8\n\n所謂塩化ビニルのこと。\w8\n彫刻刀で彫ったり、ノミで削ったりし易いぞ。\e
\1\s[10]レジンキットのパーツの接合には瞬間接着剤を。\w8\w8\n\nというか、瞬間じゃなくてもいいのだけど、瞬間接着剤が１番便利だったりするんだな。\w8\w8\n\n併せて、硬化促進剤を使ってやるともうガシガシに硬くなるぞ。\e
\1\s[10]模型の工具を揃えるのに、なにも模型専門店とかそういうお店に行かないとならない訳ではないですよ。\w8\w8\n\nお近くのホームセンターとか、D.I.Yショップなら、専門店とかよりも安価に道具を揃えられるのです！\n\n難点は道具選びの選択肢が少ないと言う点だけど‥‥\e

////・模型講座初級編
$OnChoiceSelect,{$if ({$reference(0)}==level1)}
\1\s[10]戦闘機のプラモのバブルキャノピーの、\w8真ん中に入ってるパーティングラインの消し方。\n\w8\w8。前と後ろの方向から親指と中指ではさみ、\w8キャノピーの下から人差し指で支持します。\n\w8\w8８００番くらいのペーパーで大きく削ったら、\w8１０００番、\w8１５００番で磨き、\w8最後にコンパウンドをかけて仕上げます。\n\w8\w8無駄な力をかけないのがコツですよ〜\e

////・模型講座中級編
$OnChoiceSelect,{$if ({$reference(0)}==level2)}
\1\s[10]It's still in preparation. \n\w8 Sorry.\e

////・模型講座上級編
$OnChoiceSelect,{$if ({$reference(0)}==level3)}
\1\s[10]It's still in preparation. \n\w8 Sorry.\e

///八坂さん情報
$OnChoiceSelect,{$if ({$reference(0)}==yasaka)}
\1\s[11]おお、勇者よ！\w8\n禁断の情報に手を触れますか！\n\n\0\s[0]ん？\n\w8どうかした？\n\n\w8\w8\1\s[10]八坂さん、男にはお互い腹割って語り合わないとならない時があるのです！\n\w8\w8\0\s[2]な、なにを？\n\w8\w8\1\s[10]そんなわけで、暫く外してください、お願いします。\n\0\s[8]あ〜、\w8わかったわよ。\s[99]\w8\w8\w8\w8\w8\w8\w8\c\1\c行ったな‥‥\w8\w8\cさて、何について訊きたい？\n\![*]\q[趣味とか,syumi]\n\![*]\q[スリーサイズ,3size]\n\![*]\q[やっぱいいや‥‥,muyou]\n\e

$OnChoiceSelect,{$if ({$reference(0)}==syumi)}
\1\s[10]この程度なら、本人に訊いた方が早くないか？\e
\1\s[10]飛行機とバイクは見るのも乗るのも好きみたいだ。\n\w8\w8もっとも、飛行機のライセンスは持ってないけどな。\e
\1\s[10]実は、飛行機を見る序でに、写真も撮るから、カメラをよく弄っているな。\n\w8\w8サークル展示でも作品として写真出している事が多いみたいだ。\n\w8\w8『女の子が撮った戦闘機写真』が先に走ってしまうのが本人は気に入らないようだけど、セミプロレベルにはもう一頑張りってところだろう。\e
\1\s[10]料理は趣味なのかなあ‥‥\e
\1\s[10]料理は趣味かもしれないが、妙な物作る場合があるからなあ‥‥\e

$OnChoiceSelect,{$if ({$reference(0)}==3size)}
\1\s[11]むむ、{$username}も好きですな〜、と。\n\n\w8\w8\s[10]まず、服の仕立て用のメモによると、バスト８６ｃｍ、ウェスト６０ｃｍ、ヒップ９２ｃｍということらしいな。\w8\w8\w8\n\n‥‥尻でかい？\n\n\w8\w8\w8\w8\0\s[0]もう終わった？\w8\w8\1\s[11]\cおわぁ、ビックリしたぁ！！\n\w8\w8じゃあ、今回はここまでな。\e
\1\s[11]むむ、{$username}も好きですな〜、と。\n\n\w8\w8まず、服の仕立て用のメモによると、\n\w8バスト８６ｃｍ、\n\w8ウェスト６０ｃｍ、\n\w8ヒップ９２ｃｍということらしいな。\w8\w8\nただ、アンダーバストの値も大きいから、カップはＢらしい。\n\w8\w8まあ、身長あるしな。\w8\w8\w8\w8\0\s[0]何の話？\w8\w8\1\s[10]ま、まあ、色々と。\w8\w8\0ふ〜ん‥‥？\e
\1\s[11]むむ、{$username}も好きですな〜、と。\n\n\w8\w8まず、服の仕立て用のメモによると、\n\w8バスト８６ｃｍ、\n\w8ウェスト６０ｃｍ、\n\w8ヒップ９２ｃｍということらしいな。\w8\w8\nただ、アンダーバストの値も大きいから、カップはＢらしい。\n\w8\w8まあ、身長あるしな。\n\w8\w8あまり揉んだりとかには向いてない胸だな。\n\w8尻はよく知らない女の子に触られるらしいが。\w8\w8\w8\w8\0\s[7]何を喋っているのよ、あんたわーっ！！\w8\1\s[14]\e

//・なんでもない
$OnChoiceSelect,{$if ({$reference(0)}==muyou)}
\1\s[10]Is that so?\e
\1\s[10]Hmm.\e