$TalkHourChange
{
\0\s[0]现在 {$hour} 时 {$minute} 分了。
}
$TalkElapsedHourChange
{
\0\s[0]电脑已经开机{$elapsedhouros}时{$elapsedminuteos}分了\w8\1\s[12]小心眼球破裂XD\s[10]。
}
$TalkMikireFukki
$TalkMikire
$TalkKasanari
}
// -------摸=W=-------

$TalkHeadPick0; nonoverlap;
{
\0\s[77]你乱摸啥？\n\n\w8\w8\e
}
{
\0\s[1515]再摸\w8\s[1515]咬杀。\e
}
{
\0\s[1515]你当我是小猫么。\w8\w8\e
}
$TalkFaceStroke0; nonoverlap;
{
\0\s[3]……\w4把你手砍掉\w8\w8\n\n
\n\n\w8\w8\1\s[112]随便摸会遭拐击的哟。\w8\w8
\0\s[0]……\e
}
{
\0\s[3]别乱摸\w8\w8
\w4\n\1\s[111]呼呵呵呵呵\w4\n…主人乃好勇敢呀\e
}
// -------------功能-----------------

$TalkDoubleClick0
{
\![change,balloon,s2]
\![*]\q[聊些话题,forcedtalk]\n
\![*]\q[问问题,question]\n
\![*]\q[对话教学{$sakura.name},teach]\n
\![*]\q[聊天,speaking]\n
\![*]\q[对话频率调整,talkinterval]\_l[205,-]\n
\![*]\q[听云豆唱歌,hibadosing]\n
\![*]\q[现在时间,time]\n
\![*]\q[更改主人名字,teachname]\n
\![*]\q[其他功能,execute]\n\n
\![*]\q[取消,cancel_main]\n
\e
}

$OnChoiceSelect,{$if ({$reference(0)}==self-introduction)}
{
\0\s[0]{$username}自己看着办吧。\n\n
\![*]\q[18,self-introduction_airi]\n
\![*]\q[69,self-introduction_thoma]\n\n
\![*]\q[取消,cancel]
\e
}

$OnChoiceSelect,{$if ({$reference(0)}=="time")}
{
\0现在时间\n\n
\0\s[50] {$hour} 点 {$minute} 分了。 \n\w8\s[68]
}

$OnChoiceSelect,{$if ({$reference(0)}=="question")}
{
\0\s[53]问吧。\n
\n
\![*]\q[此人格介绍,question_1]\n
\![*]\q[KURENAI,question_3]\n
\![*]\q[自我介绍,self-introduction]\n
\![*]\q[制做者,question_2]\n
\n[half]
\![*]\q[取消,cancel]\_l[205,-]
}

$OnChoiceSelect,{$if ({$reference(0)}==question_1)}
{
\0\w4\s[0]此人格是1869向的。
\n\n\w8\w8\1\w8不，是6918。
\n\n\w8\w8\n小麻雀再狡辩也没有用的。\n\n
\n\n\w8\0\s[1515]我才不需要狡辩我是攻这种事实。
}
$OnChoiceSelect,{$if ({$reference(0)}=="question_1web")}
{
\![open,browser,"http://kyosuke.billyjr.com/cuc/index.php"]
\0\s0哼.\w9
\w9\w3\1呼呵呵呵呵呵……\n\w6………\e
}

$OnChoiceSelect,{$if ({$reference(0)}==question_2)}
{
\0\w8制做我们的是个笨蛋。
\n\n\w8\w8\1\w\s[11]是渣咩,
\n\n\w8\w8一个图渣文渣废柴渣王。\w2
}

$OnChoiceSelect,{$if ({$reference(0)}==question_3)}
{
\0\w8……KURENAI，\w4\s[701]渣神宅而已…\w4话说乃知道渣协这地方？
\n\n\w8\w8\1\w\s[12]嗯。\w2
}

$OnChoiceSelect,{$if ({$reference(0)}==self-introduction_airi)}
{
\0\w8没什么好介绍的。
\n\n\w8\w8\1\w\s[111]真冷淡。
\n\n\w8\w8\0\w8\s[3]如果要问我的话，差不多就和你一样了。
\n\n\w8\w8\1\w\s[111]和谁?和谁一样?
\n\n\w8\w8\0\随便谁好了。
\n\n\w8\w8\1\真是不负责任的回答...
\n\n\w8\w8\1\其实这只小麻雀是个傲娇受,只是他一直不承认而已...
\n\n\w8\w8\0\本身就不是受的话根本没有不承认的必要,反而是受的人会拼命说别人是受.软弱的食草动物.
}

$OnChoiceSelect,{$if ({$reference(0)}==self-introduction_thoma)}
{
\n\n\w8\w8\1…我是骸，\w8\n六道骸\w8\w8\n
\n\n\w8\w8\0一个很贱很阴的死菠萝头。\w8\w8
\n\n\w8\w8\1\n\s[112]不是菠萝是凤梨.\w4
\n\n\w8\w8\0\至于这家伙的来历根本没有介绍的必要了吧.
\n\n\w8\w8\1\小麻雀真绝情
\n\n\w8\w8\0\快点收拾收拾给大爷[?]滚出电脑屏幕吧.
\n\n\w8\w8\1\=凹=
{$self-introduction_thoma_sub}
\e
}

$OnChoiceSelect,{$if ({$reference(0)}=="exit")}
{$OnClose}

$OnChoiceSelect,{$if ({$reference(0)}=="execute")}
{
\0\s[0]要麻烦我做事的话先给我咬杀一下\n
\n
\![*]\q[帮我记事,callreminder]\_l[205,-]\![*]\q[读取记事,callreminderread]\n
\![*]\q[目前系统咨询,sysinfo]\n
\![*]\q[连续啓动时间,elaspedtime]\n
\![*]\q[取消,cancel]\_l[205,-]
}


$OnChoiceSelect,{$if ({$reference(0)}=="ChangeShell")}
\b[-1]\![open,shellexplorer]

$OnChoiceSelect,{$if ({$reference(0)}=="ChangeBallon")}
\b[-1]\![open,balloonexplorer]

$OnChoiceSelect,{$if ({$reference(0)}=="teachname")}
\0\s[0]嗯。\w9\n要改成什么？\![open,inputbox,teachname,-1]

$OnUserInput,{$if ({$reference(0)}=="teachname")}
{$username={$reference(1)}}\w叫你\w4「{$username}」\w4好了\e

$OnChoiceSelect,{$if ({$reference(0)}=="callreminder")} 
{$Reminder_Write} 


$OnChoiceSelect,{$if ({$reference(0)}=="callreminderread")} 
{$Reminder_Read} 

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval)}
{
\0\s[0]我还不想多说话呢。\n\n
\![*]\q[多话,talkinterval_level2]\n
\![*]\q[普通,talkinterval_level1]\n
\![*]\q[沉默,talkinterval_level0]\n\n
\![*]\q[保持原状,talkinterval_cancel]
\e
}
$OnChoiceSelect,{$if ({$reference(0)}=="hibadosing")}
{
\_v[hibado.mp3]
\n\n\w8\0\亏我亲自教你,唱的还是那.么.走.音.
\n\n\w8\1\云豆酱果然是最可爱的存在=3=
}

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

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level2)}
{
{$_talkinterval=60}
\0\s[53]真是的，有什么话好说的。\e
}

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level1)}
{
{$_talkinterval=180}
\0\s[40]一般？\w8\w8\1诶呀\e
}

$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_level0)}
{
{$_talkinterval=0}
\0\s[73]正合我意。\w4去睡觉了…\e
}
$OnChoiceSelect,{$if ({$reference(0)}==talkinterval_cancel)}
{$CancelMessage}
\0\s[42]就这样了。

$OnChoiceSelect; {$if ({$reference(0)}==cancel_main)}; nonoverlap
\0\s[40]？\w8想到啥了？
\0\s[52]没有事就别乱弄。\w8\w8\1呼呵呵\e
{$CancelMessage}

$OnChoiceSelect,{$if ({$reference(0)}==cancel)}
{$CancelMessage}

$CancelMessage
{
\0\s[0]知道了\e
}
{
\0\s[50]睡去了。\w8\w8\1今天好轻松…\e
}

$OnChoiceSelect,{$if ({$reference(0)}=="sysinfo")}
{
\0\s[0]这是这台电脑的系统咨询。\n
\n
\_q处理器　　　：{$cpu.vendorname} {$cpu.name} {$cpu.clockcycle}MHz\n
作业系统　　：{$os.name} ({$os.version})\n
记忆体容量　：{$temp={$os.phisicalmemorysize}/1024}{$temp}KB\n
含虚拟记忆体：{$temp={$os.totalmemorysize}/1024}{$temp}KB\n
剩馀空记忆体：{$temp={$os.freememorysize}/1024}{$temp}KB\n
}

$OnChoiceSelect,{$if ({$reference(0)}=="elaspedtime")}
\0\s[52]嗯。\n\w7\n电脑已经啓动{$elapsedhouros}时{$elapsedminuteos}分{$elapsedsecondos}秒了。\n\1\s[12]CPU和电源不会出火花吧……？\e

$OnChoiceSelect,{$if ({$reference(0)}=="song")}
{
\![open,file,"E:\工具\伪春菜\cssp\ghost\TB\ghost\master\fai.wma"]
}

$OnChoiceSelect,{$if ({$reference(0)}=="koe")}
{
\![open,file,"E:\工具\伪春菜\cssp\ghost\TB\ghost\master\koe.wma"]
}


// ---------69场景---------

$TalkDoubleClick1; nonoverlap;
\1\s[10]怎么，被我迷上了？\e
\1\s[10]点我我也不会有什么动作的。\e
\1\s[111]呼呵呵呵…\e
\1\s[10]怎么了？\e
\1\s[112]会痒呢。\e
\1\s[111]不如去摸一摸旁边的小麻雀呢?\e
\1\s[10]不要这样~\e
// ---------切换-------------

$TalkGhostChanging
\1回去睡觉？\w8\0\s[0]再见。\w8
\0\s[900]被换走了啊。\w8\1啊咧。\w8
\0\s[53]换人。\w8\w8\1来了。\w8\0\s[53]去睡觉了。\e

$TalkGhostChanged
\1\s[10]\0\s[0]走了呢…\w4\s[53]看来{$username}对我们比较有兴趣？\e

// ---------开啓&关闭&....------------

$TalkBootEarlyMorning
\1\s[10]\0\s[53]呵欠。\w8{$username}早安。\w8\w8\1哦呀。\e

\1\s[10]\0\s[71]今天不要再逃课了。\w8\w8\1否则会被杀掉的。\w8\w8\0\n\n\s[1515]知道就好。\e

$TalkBootMorning
\1\s[10]\0\s[53]哟，来了啊。\e

$TalkBootDaytime
\1\s[10]\0\s[0]来玩点什么好玩儿的吧？\e

$TalkBootEvening
\1\s[10]\0\s[53]整天看到同样的面孔我都快腻了。\w8\w8\1要不要打打架之类的？\w8\n呼呵呵呵呵。\e

$TalkBootNight
\1\s[10]\0\s[0]出来活动活动。\e

$TalkBootMidnight
\1\s[10]\0\s[40]这么晚都还不睡，是不是想做什么违反风纪的事？\e

$TalkCloseMorning
\0\s[53]再见。\w8

$TalkCloseDaytime
\0\s[53]永远别见好了。\w8

$TalkCloseEvening
\0\s[55]走了。\w8

$TalkCloseNight
\0\s[53]呵欠\w8

\0\s[50]JYA。\w8

$TalkCloseMidNight
\0\s[0]这么晚了，我也去睡了。\w8

// ------------连接&更新用？-------------

$TalkURLDropping
\0\s0连接中\e

$TalkHeadlinesenseBegin
\0\s0连接到{$reference(0)}伺服器中…\e

$TalkHeadlinesenseHasNext
{
\0\s0\b2这个 {$reference(0)} 的新闻 \n\n
{$reference(3)}\n
\q0[][下一页]
\q1[{$reference(1)}][连接到网站]
\q2[cancel][不看了]
\e
}

$TalkHeadlinesenseLast
{
\0\s[0]\b2 {$reference(0)}最后一页了。\n\n
{$reference(3)}\n
\q0[{$reference(1)}][连接到网站]
\q1[cancel][不看了]
\e
}

$TalkHeadlinesenseFailure
\0\s[900]无法观看。\e

$TalkHeadlinesenseNoUpdate
\0\s[0]没有新闻。\e

$TalkVanishSelecting
\0\s[40]???\w4？\e

$TalkVanishSelected
{
\0\s[61]要走了。\n\n\w8\w8
\1{$username}看不惯我们？\n\n\w8\w8
}

$TalkVanishCanceled
{
\0\s[60]没被抛弃有点意外。\w8\w8\n\n
}

$TalkVanished
\0\s[43]……\w8\w8\1被消除掉了。\e

$TalkUpdatedBegin
\0\s[0]开始更新。\n{$choice("正在","现在")}连接到伺服器中....\e

$TalkUpdateReady
\0\s[53]{$temp={$reference(0)}}{$temp+=1}{$temp}个档案要更新\w8\n\n正在更新中....\e

$TalkUpdateDownloadBegin
\0\s[53]\_q{$reference(0)}\_q 这个档案要更新喔。\e
\0\s[53]发现\_q{$reference(0)}\_q 未更新\w4\n\n 嗯～\n\w8\s[41]更新\_q{$reference(0)}\_q\e
\0\s[41]这个\_q{$reference(0)}\_q 要更新吗？\e

$TalkUpdateMD5CompareBegin
\0\s[0]正在检查\_q{$reference(0)}编码中??\_q\e
\0\s[0]正在检查\_q{$reference(0)}编码中??\_q\e

$TalkUpdateMD5CompareComplete
\0\s[53]编码一致，\w4很好。\e
\0\s[50]资料正确。\e
\0\s[53]很好～\w8\w8\1完毕。\e

$TalkUpdateMD5CompareFailure
\0\s[74]下载不能。\w8\w8\1重试？\e

$TalkUpdateNoupdate
\0\s[40]０件??\w8\w8\n\n等下次吧。\e

$TalkUpdateComplete
\0\s[50]更新完毕。\e

$TalkUpdateFailure
\0\s[74]失败了。都是你RP太差。\e

$TalkBIFFBegin
\0\s0正在检查信箱\e

$TalkBIFFNoMail
\0\s0没有新邮件要接收。\e

$TalkBIFFComplete
{
\0\s0检查完毕\n\n
总共有{$reference(0)}封邮件。/ 总容量{$reference(1)}bytes。
\e
}

$TalkBIFF2Complete
{
\0\s0检查完了。\n\n
有{$reference(0)}封邮件。 / 总容量{$reference(1)}bytes。\n
有{$reference(3)}几封新邮件。
\e
}

$TalkBIFFFailure
\0\s0无法检查邮件\e

$TalkSNTPBegin	
\0\s0\_q{$reference(0)}\_q\n\n伺服器连綫中。\e

$TalkSNTPExact
\6\0\s[53]时间很准。\e

$TalkSNTPAdjust
\6\0\s[0]完成。\n\w8现在时间\n{$_SNTPStringA}\n\n修正了{$reference(3)}秒。\e

$TalkSNTPFailure
\0\s[900]失败。所以说是你对并盛的爱不够。\e

// ----------安装附属的东西时候--------

$TalkInstallBegin
\0\s[0]安装开始。\e

$TalkInstallGhost
\0\s[0]人格 {$reference(1)} 安装完成。\e

$TalkInstallShell
\0\s[0]Shell {$reference(1)} 安装完成。\e

$TalkInstallBalloon
\0\s[0]Balloon {$reference(1)} 安装完成。\e

$TalkInstallPlugin
\0\s[0]外挂程式 {$reference(1)} 安装完成。\e

$TalkInstallFailure
\0\s[900]安装失败 \e

$TalkInstallRefuse
\0\s[0]给 {$reference(0)} 用的。\e

$TalkSurfaceRestore,{$if ({$reference(0)}>0)}
\0\s[0]\1..........\s[10].........\e

$TalkWallpaperChange
\0\s[0]换了桌布。\e

$TalkSSTPBreak
\0\s[0]SSTP中断了\e

$TalkChoiceTimeout
\0\s[52]有人在？\e

$TalkUpdatedataCreating
\0\s[41]开始製做 updates2.dau\e

$TalkUpdatedataCreated
\0\s[0]製作完成了。\e

$TalkSSTPBlacklisting
\0\s0已经加入SSTP Blacklist了。\e

$TalkNetworkHeavy
\0\s[74]好慢。\e


$TalkFirstBoot
{
\t\1\s[10]\0\s[0]哪来的食草动物。\w4可别把我们看作在群聚。\w8\w8
\1口嫌体正直。\w8\w8
}

$TalkWindowStateMinimize
\0\s0去睡了。\e

$TalkWindowStateRestore
\1\s[10]\0\s[41]出来了。\e


//--------------------------------谈话系统---------------------------------------
$OnChoiceSelect,{$if ({$reference(0)}=="speaking")}
{
\0\s[5]{$username}要和{$sakura.name}说什么?\n\n
\![open,inputbox,talking,-1]
}

$OnUserInput, {$if ({$reference(0)}=="talking")}
{
{$inputTemp={$reference(1)}}
\w8\w8
{$sentence check}
}

$sentence check
{
{$if ({$insentence({$save sentence {$check number Temp}},{$inputTemp})}) { {$sentence right} } else { {$check again} } }
\e
}

$sentence right
{
\0\s[0]{$sentence answer {$check number Temp}}
{$check number Temp=0}
}

$check again
{
{$check number Temp++}
{$if ({$check number Temp}>={$save number Temp}) { {$unknow sentence} } else { {$sentence check} } }
\e
}

$unknow sentence
{
\0\s[52]？\n
{$sakura.name}…乃说啥…\w8…
{$check number Temp=0}
\e
}

//-----------------------------------------------------------------------------------

$OnUserInput, {$if ({$reference(0)}=="talking")}
{
\0\s[0]？\n\n
\1\s[52]{$username}…
\e
}

$OnChoiceSelect,{$if ({$reference(0)}=="teach")}
{
\0\s[0]嗯…\w8要教乃什么？
\0\s[0]\![open,inputbox,teach sen,-1]
}

$OnUserInput,{$if ({$reference(0)}=="teach sen")}
{
{$LanguageTeachInputTemp={$reference(1)}}
{$save sentence {$save number Temp}={$LanguageTeachInputTemp}}
\0\s[59]…\w7\w7\n当{$username}说这句话的时候{$sakura.name}要怎么说？\0\s[3]
\![open,inputbox,teach over,-1]
\e
}

$OnUserInput,{$if ({$reference(0)}=="teach over")}
{
{$LanguageTeachInputTemp1={$reference(1)}}
{$sentence answer {$save number Temp}={$LanguageTeachInputTemp1}}
\0\s[50]当{$username}说“{$save sentence {$save number Temp}}”的时候，{$sakura.name}应该说“{$sentence answer {$save number Temp}}”是吧？哼……被束缚的感觉真讨厌。
{$save number Temp++}
{$LanguageTeachInputTemp=0}
{$LanguageTeachInputTemp1=0}
\e
}

$OnChoiceSelect,{$if ({$reference(0)}=="form")}
{
\0\s[900]此功能尚未开放。\e
}


// ------------不明-------------

$DataCount 
{ 
//先期准备 
    {$temp1=0}{$temp2=0} 
    {$DataTemp[0]={$calc({$Data2[0]}-{$Data1[0]})}} 
    {$DataTemp[1]={$calc({$Data2[1]}-{$Data1[1]})}} 
    {$DataTemp[2]={$calc({$Data2[2]}-{$Data1[2]})}} 
    {$DataTemp[3]={$calc({$Data2[3]}-{$Data1[3]})}} 
    {$DataTemp[4]={$calc({$Data2[4]}-{$Data1[4]})}} 
//年处理 
    {$if ({$DataTemp[0]}>0) { {$DataTemp[2]+={$calc({$DataTemp[0]}*365)}} } } 
//闰年处理 
    {$if ({$DataTemp[0]}>=4) { {$DataTemp[2]+={$calc({$DataTemp[0]}/4)}}{$DataTemp[0]-={$calc({$DataTemp[0]}/4)}}{$temp1=1} } } 
    {$temp3={$Data1[0]}}{$if (({$LeapYear}) && ({$Data1[1]}<=2)) { {$temp1=1} } } 
    {$temp3={$Data1[0]}+{$DataTemp[0]}}{$if (({$LeapYear}) && ({$Data1[1]}>=3)) { {$temp1=1} } } 
    {$temp3={$Data1[0]}+2}{$if (({$LeapYear}) && ({$DataTemp[0]}>2)) { {$temp1=1} } } 
    {$temp3={$Data1[0]}+1}{$if (({$LeapYear}) && ({$DataTemp[0]}>1)) { {$temp1=1} } } 
    {$temp3={$Data1[0]}+{$DataTemp[0]}}{$if ({$LeapYear}) { {$temp2=1} } } 
    {$DataTemp[2]+={$temp1}} 
//月份处理 
    {$if (({$Data2[1]}>1) && ({$Data1[1]}<=1)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>2) && ({$Data1[1]}<=2)) { {$DataTemp[2]+=28}{$DataTemp[2]+={$temp2}} }} 
    {$if (({$Data2[1]}>3) && ({$Data1[1]}<=3)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>4) && ({$Data1[1]}<=4)) { {$DataTemp[2]+=30} }} 
    {$if (({$Data2[1]}>5) && ({$Data1[1]}<=5)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>6) && ({$Data1[1]}<=6)) { {$DataTemp[2]+=30} }} 
    {$if (({$Data2[1]}>7) && ({$Data1[1]}<=7)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>8) && ({$Data1[1]}<=8)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>9) && ({$Data1[1]}<=9)) { {$DataTemp[2]+=30} }} 
    {$if (({$Data2[1]}>10) && ({$Data1[1]}<=10)) { {$DataTemp[2]+=31} }} 
    {$if (({$Data2[1]}>11) && ({$Data1[1]}<=11)) { {$DataTemp[2]+=30} }} 
    {$if (({$Data2[1]}<=1) && ({$Data1[1]}>1)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=2) && ({$Data1[1]}>2)) { {$DataTemp[2]-=28}{$DataTemp[2]-={$temp2}} }} 
    {$if (({$Data2[1]}<=3) && ({$Data1[1]}>3)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=4) && ({$Data1[1]}>4)) { {$DataTemp[2]-=30} }} 
    {$if (({$Data2[1]}<=5) && ({$Data1[1]}>5)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=6) && ({$Data1[1]}>6)) { {$DataTemp[2]-=30} }} 
    {$if (({$Data2[1]}<=7) && ({$Data1[1]}>7)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=8) && ({$Data1[1]}>8)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=9) && ({$Data1[1]}>9)) { {$DataTemp[2]-=30} }} 
    {$if (({$Data2[1]}<=10) && ({$Data1[1]}>10)) { {$DataTemp[2]-=31} }} 
    {$if (({$Data2[1]}<=11) && ({$Data1[1]}>11)) { {$DataTemp[2]-=30} }} 
//最终计算 
    {$calc(60*(24*{$DataTemp[2]}+{$DataTemp[3]})+{$DataTemp[4]})}\n{$DataTemp[2]} 
} 

$LeapYear 
{$if ({$calc({$calc(({$temp3})/4)}*4)}=={$temp3})}