//ジーンダイバー　ユーティリティー


// ------------------------------------↓Menu
$OnMouseDoubleClick; {$if ({$reference(3)}==0)}
{
\0\s1Menu.\n\n
\q[Talk something,forcedtalk]\n
\q[You have something to talk about - right?,dvdtalk]\n
\q[Adjust speaking frequency,talkinterval]\n
\q[Change username,teachname]\n
\q[Cancel,cancel]\n
\e
}


$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval")}
\0\s0Adjust the frequency of speaking.\n\n\q0[talkinterval_level3][Much]\q1[talkinterval_level2][Pretty]\q2[talkinterval_level1][Normal]\q3[talkinterval_level4][Quietly]\q4[talkinterval_level0][Silent]\q5[cancel][Cancel]\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level3")}
{$_talkinterval=30}\0\s0I talk a lot!\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level2")}
{$_talkinterval=60}\0\s I talk a lot - right?\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level1")}
{$_talkinterval=180}\0\s0I talk at what's considered a standard level\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level4")}
{$_talkinterval=300}\0\s0I talk sometimes\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level0")}
{$_talkinterval=0}\0\s0I'm quiet\e

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

$OnChoiceSelect; {$if ({$reference(0)}=="cancel")}
\0\s0Really?\e

$OnMouseDoubleClick; {$if ({$reference(3)}==1)}
{
\1Menu.\n
\q[My name is!,teachname]
　\q[Talk,forcedtalk]\n
\q[Talk frequency,talkinterval]
　\q[Cancel,cancel]
\e
}

$OnChoiceSelect; {$if ({$reference(0)}=="td")}
{$if ({$elapsedminutetotal}<30) { {$elamin=(30-{$elapsedminutetotal})}\1\s0\0\s0ティル達はまだかなぁ？\w8\w8\w8\1\s0ドライの話しだと、あと{$elamin}分くらいのはずだ } else { {$mode=1}\0\s[25]あっ、ティルとドライ６の飛行艇！！\w8\w8\w8\1\s0やっと着いたみたいだな\w8\w8\w8\x\1\s[30]お待たせしました\w8\w8\w8\0\s[25]そんな事無いよ？\w8\w8\w8\1\s[30]\nタイムホール発生装置が不安定だったもので\w8\w8\w8\0\s5\n大変だったでしょ？\w8\w8\w8\1\s[30]\nいえいえ\x\1\s[50]唯は相変わらずのようだな\w8\w8\w8\0\s4なによぅ！\w8\w8\w8\1\s[55]\nふふっ、そういう所がだよ\w8\w8\w8\nもちろん良い意味だ\w8\w8\w8\0\s1\nもー\w8\w8\w8\x\0\s[25]これでみんな揃ったね♪\1\s0騒がしい奴らが増えて昼寝し辛くなったけどな\w8\w8\w8\0\s3\nそういう事言わないの }}\e

$OnChoiceSelect; {$if ({$reference(0)}=="forcedtalk")}
{$_OnRandomTalk}

$OnChoiceSelect; {$if ({$reference(0)}=="teachname")}
\0\s0Did you change your username?\![open,inputbox,te,-1]

$OnUserInput; {$if ({$reference(0)}=="te")}
{$username={$reference(1)}}Your new username is \w4「{$username}」\w4- right?\e