// ------------------------------------↓common

// #_Common
// {$if ({$mode}==1)}

// ------------------------------------↓初期化部

$_Variable
{
	{$_talkinterval=180}
  {$lasthour={$hour}}
	{$username="ユーザさん"}
}

$_Constant
{
//	{$loadsaori("substr.dll")}

  {$mikirecount=0}
  {$kasanaricount=0}
  {$mikirecountmax=4}
  {$kasanaricountmax=4}
  {$mikireflag=false}
  {$kasanariflag=false}
  {$mikiretalkedflag=false}
  {$kasanaritalkedflag=false}
  {$headmousemovecountmax=64}
  {$facemousemovecountmax=64}
  {$bustmousemovecountmax=64}
  {$test0=0}
  {$test1=1}
  {$test2=2}
  {$test3=3}
}

// ------------------------------------↑初期化部
// ------------------------------------↓単発

$sp1
\0\s0I don't like {$cala} because it has a lot of small bones. No... Let's not mention specific individuals...
If you skin a rabbit and eat it, it becomes {$cala}. Remember that. No... Not mentioning specific individuals is a bit...
Hey, hey Komatsu. Today we've had insects and birds, and next is a beast. What are you trying to say? I wonder if it'll be {$cala} next. No... Not mentioning specific individuals is a bit...
Wait a minute. The small bones... Are you sure...?
No, no, Youmu. It's not a "no, no" situation.
So far, countless people have been defeated by {$numn}{$nump}{$nump}{$nump}{$nump}{$nump} problems. \n\w8How many can you solve? \w8\1\s0That's quite a lot.
\0\s0A wonderful and exciting night of sightseeing. \w8\1\s0{$re}
\0\s0Apparently, a lucky {$cala} hand was found in Asaba's shoe locker. \w8\nI wonder if it was Iriino's doing after all. \w8\w8\1\s0How horrifying.

$sp2
\0\s0Well, it's time for our annual debriefing session. \w8\w8\1\s0 What's going on?\e
\0\s0May everyone in the world be {$cala}.\w8\w8\1\s0{$re1}\e
\0\s0It seems {$cala}'s dying words were, "The Kingdom of God is far away". \w8\w8 The bereaved families' meeting was chaotic. \w8\w8\1\s0{$re1}\w8\0\s0 He came back to life immediately afterwards. \w8\w8\1\s0 Make sure you finish him off properly.\e
\0\s0Eat or shoot! \n\w8 I made a mistake. \n\w8 Shoot or eat. \w8 I'll eat.\w8\1\s0...\w8{$re1}\e
\0\s0Silica gel can't be eaten unless the mission is completed. \n\w8\w8\1\s0 No, either way, it can't be eaten.\e
\0\s0If you skin a {$usagi} and eat it, you'll turn into a bird. \n\w8 Remember that. \w8\1\s0 No...\w8 a specific individual is a bit...


// ------------------------------------↑単発
// ------------------------------------↓ランダムトークテンプレート


$_OnRandomTalk; nonoverlap;
{$sp1}\e
{$sp2}\e
\0\s0{$ctalk}\w8\1\s0{$re1}\e
\0\s0I don't like {$food} because it has lots of small bones.\w8\1\s0{$re1}\e
\0\s0{$ctalk}\w8\w8...that's what Keine said.\w8\1\s0{$re1}\e
\0\s0A wonderful and filling {$act} night.\w8\1\s0{$re1}\e
\0\s0A wonderful and {$cond} {$act} night.\w8\1\s0{$re1}\e
\0\s0Hey, hey Komatsu. \w8\nToday we had insects, birds, and next is a beast. \n\n\w8\1\s0What are you trying to say? \n\n\w8\0\s0I wonder if {$food} is next.\w8\1\s0{$re1}\e
{$temp={$act}}\0\s0{$temp} Then I'll shoot!\n\w8I made a mistake. \n\w8 Shooting will do {$temp}. \w8 I will do {$temp}. \w8\1\s0{$re1}\e
\0\s0Hmph. If there are two of you, then we'll {$act}!\w8\1\s0{$re1}\e
\0\s0When you skin a rabbit and eat it, it becomes {$food}. Remember that.\w8\1\s0{$re}\e
\0\s0You are a criminal. \n\s8Those who run away from something are criminals. \n\s8Those who try to hide themselves are those who admit their guilt. \n\s8And criminals who admit their guilt \n\s8start {$act}.\w8\1\s0{$re1}\e
\0\s0I, who know no death, transcend darkness. \n\s8Behold the beautiful {$item} freed from the dark cycle of reincarnation!\w8\1\s0{$re1}\e
\0\s0Okay? I'll say it again. \n\s8We are in a hurry and have a reason for {$cond}.\w8\1\s0{$re1}\e
Tonight we're having a Manchu-Han Imperial Feast with {$food}!\w8\1\s0{$re1}\e
\0\s0This year's buzzword of the year is "{$ctalk}". \w8\w8That's awesome.\w8\1\s0{$re2}\e
\0\s0控his year's Good Design Award went to "{$cala}'s {$buhin}". \w8\w8 That's amazing.\w8\1\s0{$re2}\e
\0\s0Apparently, {$cala}'s dying words were "{$ctalk}"\w8. \w8\w8\nThe family meeting was chaotic.\w8\1\s0{$re}\e
\0\s0Just now, {$cala} ran towards {$point} shouting "{$ctalk}"\w8\w8. I wonder what happened.\w8\1\s0{$re4}\e
\0\s0Apparently, {$cala}'s hobby is {$act}.\w8\w8\w8\1\s0{$re}\e
\0\s0Speaking of which, \w8\w8\nWhat was {$old} again? Forget about it.\e
\0\s0It seems that {$item} was found in Asaba's shoe locker. \w8\nI wonder if it was Irino's doing after all.\w8\w8\1\s0{$re2}\e
\0\s0It seems that {$cala} was found in Asaba's shoe locker. \w8\nI wonder if it was Irino's doing after all. \w8\w8\1\s0Report it.\e
\0\s0A murder occurred in the neighborhood, and it seems that a dying message of \w8"{$ctalk}"\w8 was left behind. \w8\nThe investigation is {$aimai}difficult.\w8\w8\1\s0{$re2}\e
\0\s0{$cala}, \w8?{$ctalk}?\w8 left a note and has been missing ever since.\w8\w8\1\s0{$re4}\e
\0\s0N'Doul is {$damage} incapacitated. \w8\w8\1\s0 Well, he only has enough stamina for one weak punch...\e
\0\s0{$cala} is {$damage} beyond repair. \w8\w8\1\s0 How weak...\e
\0\s0{$cala} is {$shock} beyond repair. \w8\w8\1\s0 How weak...\e
\0\s0{$cala} has been pried open with something like {$item} and is beyond repair. \w8\w8\1\s0 That's right, \w8 it's become a dangerous world.\e
\0\s0A burglar broke into {$cala}'s house, pried open the safe with something like {$item}, and \w8 stole a large amount of {$item} that was stored there. \w8\w8\1\s0 That's right, \w8 it's become a dangerous world.\e
\0\s0$cala was doing {act} on the train platform when \w8 accidentally fell onto the tracks and was hit by a {$ufo} that entered the platform, leaving him in critical condition and unconscious.\w8\1\s0{$re2}\e
\0\s0$cala was crossing the pedestrian crossing when \w8 ran a red light and was hit by a {$ufo}, leaving him in critical condition and unconscious.\w8\1\s0{$re2}\e
\0\s0{$cala} was arrested red-handed for causing a disturbance at {$point}, wielding something like {$item}. \n\w8During police questioning, he was apparently saying incomprehensible things like \w8"{$ctalk}".\w8\w8\1\s0{$re2}\e
\0\s0The next episode of Project X will feature the men who risked their lives for \w8"{$old}". Stay tuned.\w8\w8\1\s0{$re}\e
\0\s0According to the Board of Education, the increase in {$act} children is apparently due to playing too many video games.\w8\w8\1\s0{$re}\e
\0\s0Apparently, there was an experiment at {$point} with a new weapon called the "{$item} bomb". \w8\w8...the Doomsday Clock has advanced by 3 minutes.\w8\w8\1\s0{$re}\e
\0\s0Apparently, there was an experiment with a new weapon called the "{$cala} bomb" at \0\s0{$point}. \w8\w8...the Doomsday Clock has advanced by 3 minutes.\w8\w8\1\s0{$re1}\e
\0\s0Apparently, the motto of \0\s0{$cala} is "{$ctalk}".\w8\w8\1\s0{$re}\e
\0\s0I was watching TV and the announcer said "{$ctalk}" \w8and then the screen immediately switched to "Please wait a moment," and that was it...\w8\w8\1\s0{$re2}\e
\0\s0May everyone in the world be {$cond}.\w8\w8\1\s0{$re1}\e
\0\s0May the world be {$cond} today as well.\w8\w8\1\s0{$re1}\e
\0\s0Humanity has adopted {$act}.\w8\w8\1\s0{$re1}\e
\0\s0Cala has adopted {$act}.\w8\w8\1\s0{$re1}\e
{$temp={$food}}\0\s0You can't eat {$temp} unless you complete your mission.\n\w8\w8\1\s0What mission?\n\0\s0Your stomach won't be full if you can't eat {$temp}\w8\w8\1\s0{$re1}\e
\0\s0The incident isn't happening in the conference room, it's happening at {$point}!\w8\w8\1\s0{$re1}\e
\0\s0Lupin stole something incredible.\w8\w8\1\s0Huh.\0\s0It's your {$syu}{$item}.\w8\w8\1\s0{$re1}\e

$_OnHourChange
\0\s0{$hour} o'clock\e

$_OnElapsedHourChange; {$if (128<={$reference(0)})}
\0\s0{$reference(0)} hours have passed. Continuous operation for over 128 hours.\e

$_OnElapsedHourChange; {$if (64<={$reference(0)})}
\0\s0{$reference(0)} hours have passed. 64~127 hours of continuous operation.\e

$_OnElapsedHourChange; {$if (16<={$reference(0)})}
\0\s0{$reference(0)} hours have passed. 4~16 hours of continuous operation.\e

$_OnElapsedHourChange; {$if (4<={$reference(0)})}
\0\s0{$reference(0)} hours have passed. 0~4 hours of continuous operation.\e

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

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

$OnSecondChange; {$if (({$mikireflag}) && ({$reference(1)}==0))}
{$mikirecount=0}{$mikireflag=false}{$mikiretalkedflag=false}\0\s0Return.\e

$OnSecondChange; {$if (({$kasanariflag}) && ({$reference(2)}==0))}
{$kasanaricount=0}{$kasanariflag=false}{$kasanaritalkedflag=false}

$OnSecondChange; {$if (({$mikireflag}) && ({$mikiretalkedflag}==false))}
{$mikiretalkedflag=true}\0\s0Cut off.\e

$OnSecondChange; {$if (({$kasanariflag}) && ({$kasanaritalkedflag}==false))}
{$kasanaritalkedflag=true}\0\s0Overlap.\e

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


// ------------------------------------↑ランダムトークテンプレート
// ------------------------------------↓生イベントハンドラ


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


$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Head))}
{$_OnRandomTalk}\e

$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Face))}
{
\0\s0Menu.\n\n
\q[Say something,forcedtalk]\n
\q[Adjust speaking frequency,talkinterval]\n
\q[Cancel,cancel]\n
\e
}

$OnMouseDoubleClick; {$if (({$reference(3)}==0) && ({$reference(4)}==Bust))}
\0\s0あたり判定。\e

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


$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval")}
\0\s0Adjusts speaking frequency.\n\n\q0[talkinterval_level2][Pretty]\q1[talkinterval_level1][Normal]\q2[talkinterval_level0][Silence]\q3[cancel][Cancel]\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level2")}
{$_talkinterval=60}\0\s0Select "Pretty"\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level1")}
{$_talkinterval=180}\0\s0Select "Very"\e

$OnChoiceSelect; {$if ({$reference(0)}=="talkinterval_level0")}
{$_talkinterval=0}\0\s0Select "Silent"\e

$OnChoiceSelect; {$if ({$reference(0)}=="cancel")}
\0\s0Hit by bomb.\e

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

$OnMouseDoubleClick; {$if ({$reference(3)}==0)}
{$_OnRandomTalk}\e

$OnMouseDoubleClick; {$if ({$reference(3)}==1)}
\1\s0kero side.\e


// ------------------------------------↓ヘッドラインセンス


$OnHeadlinesenseBegin
\0\s0Site {$reference(0)} sense started.\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][Don'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)} First and last page.\n\n{$reference(3)}\n\q0[{$reference(1)}][Try it out]\q1[cancel][Don't go]\e

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

$OnHeadlinesenseFailure
\0\s0Sense failed.\e

$OnHeadlinesenseComplete; {$if ({$reference(0)}==no update)}
\0\s0No change from the previous sense.\e


// ------------------------------------↓Ghost/ShellChanged


$OnGhostChanging
\0\s0\1\s0\0\s0See you next time. \1\s0 See you.\e

$OnGhostChanged
\0\s0\1\s0\0\s0Hello.\e

$OnShellChanging
\0\s0\1\s0\0\s0{$reference(0)}, right?\e

$OnShellChanged
\0\s0\1\s0\0\s0{$reference(0)}, right?\e


// ------------------------------------↓Vanish


$OnVanishSelecting
\0\s0Are you sure you want to delete it?\e

$OnVanishSelected
\0\s0Okay.\e

$OnVanished
\0\s0{$reference(0)} has been deleted.\e


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


$OnURLDropping
\0\s0ダウンロード中。\e


// ------------------------------------↓ネットワーク更新


$OnUpdateBegin
\0\s0サーバに接続。\e

$OnUpdateReady
\0\s0更新ファイル数{$temp={$reference(0)}}{$temp+=1}{$temp}。\e

$OnUpdate.OnDownloadBegin
\0\s0\_q{$reference(0)}\_q 受信中。\e

$OnUpdate.OnMD5CompareBegin
\0\s0\_q{$reference(0)}\_q MD5照合。\e

$OnUpdate.OnMD5CompareComplete
\0\s0一致。\e

$OnUpdate.OnMD5CompareFailure
\0\s0不一致。\e

$OnUpdateComplete; {$if ({$reference(0)}==none)}
\0\s0更新なし。\e

$OnUpdateComplete
\0\s0更新終了。\e

$OnUpdateFailure
\0\s0更新失敗。\e


// ------------------------------------↓メール


$OnBIFFBegin
\0\s0Checking for email has begun.\e

$OnBIFFComplete; {$if ({$reference(0)}==0)}
\0\s0No emails found.\e

$OnBIFFComplete
\0\s0Email check completed. \n\nNumber of messages {$reference(0)} / Size {$reference(1)}\e

OnBIFF2Complete
\0\s0Email check completed. \n\nNumber of messages {$reference(0)} / Size {$reference(1)}\nNew arrivals {$reference(3)}\e

$OnBIFFFailure
\0\s0Email check failed.\e


// ------------------------------------↓時計


$OnSNTPBegin
\0\s0\_q{$reference(0)}\_q\n\nに接続。\e

$OnSNTPCompare; {$if ({$reference(3)}==0)}
\6\0\s0ずれてなーい。\e

$OnSNTPCompare
\6\0\s0{$_SNTPStringA}\n\n{$reference(3)}秒ずれていたので修正。\e

$OnSNTPFailure
\0\s0失敗。\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)}秒
}

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


$OnInstallBegin
\0\s0Installation has begun.\e

$OnInstallComplete; {$if ({$reference(0)}==ghost)}
\0\s0Ghost {$reference(1)} Installation completed.\e

$OnInstallComplete; {$if ({$reference(0)}==shell)}
\0\s0Shell {$reference(1)} Installation completed.\e

$OnInstallComplete; {$if ({$reference(0)}==balloon)}
\0\s0Balloon {$reference(1)} Installation completed.\e

$OnInstallComplete; {$if ({$reference(0)}==plugin)}
\0\s0Plugin {$reference(1)} Installation completed.\e

$OnInstallFailure
\0\s0Failed.\e

$OnInstallRefuse
\0\s0This file seems to be for {$reference(0)}.\e


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


$OnSurfaceRestore; {$if ({$reference(0)}==4)}
\1\s0....\0\s0....\e


// ------------------------------------↓ファイルドロップ

// $filename はフルパスのファイル名であり、バックスラッシュが入っているため、そのままスクリプトに流すと死ぬ


$OnFileDrop2
{
{$filename={$getvalueex({$reference(0)},0)}}
\0\s0ファイル {$extractfilename({$filename})} 処理中ー\w8\![raise,OnFileDropHandle]
}

$OnFileDropHandle
// ここで SAORI か何か呼ぶ
\![raise,OnFileDropEnd]

$OnFileDropEnd
\0\s0処理終了。\e


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


$OnSSTPBreak
\0\s0SSTPブレイク。\e

$OnChoiceTimeout
\0\s0Selection timeout.\e

$OnUpdatedataCreating
\0\s0updates2.dau 作成開始。\e

$OnUpdatedataCreated
\0\s0終了。\e

$OnSSTPBlacklisting
\0\s0ブラックリストに入れました。\e

$OnNetworkHeavy
\0\s0Heavy...\e


// ------------------------------------↓boot/close/windowstate


$OnBoot
\0\s0\1\s0\0\s0Starting up.\e
\0\s0\1\s0\0\s0How are you?\e
\0\s0\1\s0\0\s0It's starting up. \w8Don't pretend \1\s0and pretend.\e
\0\s0\1\s0\0\s0Hello, this is {$cala}. \1\s0{$re}\e

$OnClose
\0\s0\1\s0\0\s0Finished.\-

$OnFirstBoot
\0\s0\1\s0\0\s0This is Matsumoto. First boot. \1\s0Komatsu.\e

$OnWindowStateMinimize
\0\s0\e

$OnWindowStateRestore
\0\s0\1\s0\0Restored.\e


// ------------------------------------↑生イベントハンドラ
// ------------------------------------↓GET String

$homeurl
http://www4.plala.or.jp/hituji/junk/updata/

$readmebuttoncaption
Read Me!

$sakura.recommendbuttoncaption
Recommendations (&R)

$sakura.portalbuttoncaption
Portal (&P)

$kero.recommendbuttoncaption
Recommendations (&R)

$sakura.recommendsites
google
http://www.google.com/
infoseek
http://www.infoseek.co.jp/


$sakura.portalsites
超google
http://www.google.com/
超infoseek
http://www.infoseek.co.jp/


$kero.recommendsites
偽google
http://www.google.com/
偽infoseek
http://www.infoseek.co.jp/


$vanishbuttonvisible
1

$updatebuttoncaption
Network Update

$vanishbuttoncaption
Goodbye button

// ------------------------------------↑GET String
// ------------------------------------↓コミュニケート

$_OnGhostCommunicateSend
\0\s0知ってる人は誰もいない。\e

$_OnGhostCommunicateReceive
\0\s0意味分かりません。\e

// ------------------------------------↑コミュニケート