﻿//————————————————————————————————
//*****药库********************
//\_l[62,-]【\f[bold,1]信物箱\f[bold,0]】
Choice.uehetsis
{
    if san > 0 {
        "\0\s[%(sus)]\f[name,%(zitai)]\*\b[0]\![set,autoscroll,disable]\1\b[0]\_q"
        --
        monoYao
        --
        "     ·:*¨༺ ♱✮♱ ༻¨*:·\n/
        \![*]\q[返回,pamamu]\_q"
    }else{
        if lesflag ; lesphpon ; else ; "\f[name,%(zitai)]已经不想再吃药了……"
    }
}
Choice.uemono
{
    "\0\s[%(sus)]\f[name,%(zitai)]\*\b[0]\![set,autoscroll,disable]\1\b[0]\_q"
    --
    monoKobako
    --
    "     °•.•╔✿═๏⊙๏═✿╗•.•°\n"
    --
    "\![*]\q[返回,pamamu]\_q"
}
monoKobako
{"/
    \*\![set,autoscroll,disable]\f[name,%(zitai)]/
    \_l[62,-]【\f[bold,1]信物箱\f[bold,0]】\n/
    \_b[img/lit17.png,inline,--option=use_self_alpha]\_l[40,40]\q[名词解释,uewiskk]\n/
    \_b[img/lit19.png,inline,--option=use_self_alpha]\_l[40,80]\q[主线剧情,sueiakk]\n"
    --
    "     \f[bold,1]♡ ～('▽^人) ～ ♡\f[bold,0]\n"
    --
    if !sumMono ; "\![*]没有任何信物\n"
    --
    if qitoMono ; "\_b[img/lit15.png,inline,--option=use_self_alpha]\q[雨安地图「%(qitoMono)」,mono1,位于云泉郊野中央的雨安镇地图]\n"
    --
    if kanjiMono ; "\_b[img/lit24.png,inline,--option=use_self_alpha]\q[漢字辞典「%(kanjiMono)」,mono2,哪有人把这个当信物的……]\n"
    --
    if kaduMono ; "\_b[img/lit02.png,inline,--option=use_self_alpha]\q[《kadu molu》「%(kaduMono)」,mono3,《窄门》，安德烈·纪德的小说]\n"
    --
    if magaMono ; "\_b[img/lit25.png,inline,--option=use_self_alpha]\q[魔法硬币「%(magaMono)」,mono4,不知道有什么用的硬币]\n"
    --
    if solaMono ; "\_b[img/lit26.png,inline,--option=use_self_alpha]\q[天空徽章「%(solaMono)」,mono5,某种成就的象征]\n"
    --
    if hasaMono ; "\_b[img/lit06.png,inline,--option=use_self_alpha]\q[纸折的小花「%(hasaMono)」,mono6,她用折纸折出来的小花，随身放在口袋里]\n"
    --
    if kohiMono ; "\_b[img/lit04.png,inline,--option=use_self_alpha]\q[咖啡卷「%(kohiMono)」,mono7,凭此优惠券，全场饮品全部1折]\n"
    --
    if kobakoMono ; "\_b[img/lit09.png,inline,--option=use_self_alpha]\q[盲盒「%(kobakoMono)」,mono8,好想拆开看看里面放的是什么]\n"
}
sumMono
{ qitoMono+kanjiMono+kaduMono+magaMono+solaMono+hasaMono+kohiMono+kobakoMono }
//————————————————————————————————
//*****信物箱功能********************
Choice.uewiskk
{
_txt="\*\![set,autoscroll,disable]\f[name,%(zitai)]\1\b[0]\_q\_l[55,-]【\f[bold,1]名词解释\f[bold,0]】\n"
for _i=0; _i<ARRAYSIZE(名词解释); _i++{
    _tmp = SPLIT(名词解释[_i],'：')
    _txt = _txt + "\q[" + _tmp[0] + ",Onuewiskk," + _tmp[1] + "," + _tmp[0] +"]\n"
}
_txt+"\n\![*]\q[返回,uemono]"
}
Onuewiskk
{
Choice.uewiskk
--
if reference1 == "四照花" && happyend ; "\_b[img\四照花.png,0,0,--option=use_self_alpha]"
elseif reference1 == "铇" && happyend ; "\_b[img\铇.png,0,0,--option=use_self_alpha]"
elseif reference1 == "秀一" && happyend ; "\_b[img\秀一.png,0,0,--option=use_self_alpha]"
--
"\0\s[%(sus+1)]\f[name,%(zitai)]%(reference0)"
}
Choice.sueiakk
{
"\![set,choicetimeout,0]\0\s[%(sus)]\f[name,%(zitai)]\1\b[0]\_q\_l[55,-]【\f[bold,1]主线剧情\f[bold,0]】\n"
--
if sueiaend || sueialu > 5 ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[第一章·她的名字,sueiakk1]\n"
--
if sueiaend || sueialu > 10 ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[第二章·迷茫的她,sueiakk2]\n"
--
if sueiaend || sueialu > 16 ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[第三章·溶解的雨,sueiakk3]\n"
--
if sueiaend || sueialu > 22 ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[第四章·浅葱的雨,sueiakk4]\n"
--
if sueiaend || sueialu > 23 ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[第五章·海底遗迹,sueiakk5]\n"
--
if happyend ; "\_b[img/lit10.png,inline,--option=use_self_alpha]\q[after story,afterstory]\n"
--
"\n\![*]\q[返回,uemono]"
}
sueiaend
{ normalend+trueend+happyend }
Choice.sueiakk1
{
Choice.sueiakk
--
"\0\s[%(sus+1)]\f[name,%(zitai)]来到了图书室，与这里的主人四照花相遇了，但是我不仅把自己名字忘了，还毫无去处，最后只好跟着四照花回她的住所。"
}
Choice.sueiakk2
{
Choice.sueiakk
--
"\0\s[%(sus+1)]\f[name,%(zitai)]在住所遇到了秀一，她预告后天会下一场持续4-16年的大雨，在此之前，四照花有想去的地方，为了鼓励她，我和她进行了意识对调。"
}
Choice.sueiakk3
{
Choice.sueiakk
--
"\0\s[%(sus+1)]\f[name,%(zitai)]四照花的好友铇去世了，雨鹤来转告消息，秀一告知明天会有救援的空母艇停靠在公寓楼顶，她们都想让我独自上去，我的选择是……"
}
Choice.sueiakk4
{
Choice.sueiakk
--
"\0\s[%(sus+1)]\f[name,%(zitai)]我在公寓吃过秀一带来的火锅，登上了空母艇，在空母艇，我遇到了住在隔壁的钗，她好像热衷于海底遗迹的寻宝。"
}
Choice.sueiakk5
{
Choice.sueiakk
--
"\0\s[%(sus+1)]\f[name,%(zitai)]我和钗来到海渚号，在鐚的魔法保护圈的保护之下，开始了海底探险。"
}
//————————————————————————————————
//*****信物********************
Choice.mono1
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]\_b[img\雨安地图2.png,0,0,--option=use_self_alpha]"
}
Choice.mono2
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]\![open,browser,https://kanji.jitenon.jp/]"
}
Choice.mono3
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]当时我看的时候就觉得主角杰罗姆跟我父亲很像，\w9此生一直很想得到自己心爱之人，\w9但是不得向现实妥协，\w9最后只能目送心爱之人的离去。"
}
Choice.mono4
{
Choice.uemono
--
"\0\s[%(sus+2)]\f[name,%(zitai)]这硬币拥有一股强大的力量，\w9但是不知道该如何使用？"
}
Choice.mono5
{
Choice.uemono
--
"\0\s[%(sus+1)]\f[name,%(zitai)]针送的徽章，\w9似乎是一种荣誉的象征。"
}
Choice.mono6
{
Choice.uemono
--
"\0\s[%(sus+1)]\f[name,%(zitai)]用折纸折成的精美小花，\w9躺病床无聊的时候折的，"
}
Choice.mono7
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]上面写着\w9“凭此优惠券，全场饮品全部1折”，\w9仔细看了看日期：\w9“有效期至：2019年10月31日”\w9……"
}
Choice.mono8
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]"
--
_txt = ''
    for _i = 0 ; _i < ARRAYSIZE(kobakolist) ; _i ++ {
        if _i == 0 ; _txt += "拆开来，\w9有：\n"
        _txt += '【%(kobakolist[_i])】获得    '+EVAL("%(kobakolist[_i])")+'\n'
    }
if !_txt ; "里面是空的（或还没收到礼物？）" ; else ; _txt
}
开盲盒 : array
{
"一个小巧的恐龙玩具"
"一个价格不菲的索尼耳机"
"一瓶怡宝矿泉水"
"一箱孜然调味粉"
"一条十分好看的连衣裙"
"一个闪闪发亮的戒指"
"一辆安装好的玩具小车"
"敖东牌安神补脑液"
"EVE白兔止痛药"
"sedative wutt 睡眠鎮静藥"
"drewell白兔睡眠改善藥"
}
//————————————————————————————————
//*****药库********************
monoYao
{
_head = "%(year)%(wisjikan(month))%(wisjikan(day))%(wisjikan(hour))"
void SRAND(TOINT(_head))
if 喵喵喵？ ; "\f[color,237,28,36]"
--
"\f[name,%(zitai)]\_l[68,-]【\f[bold,1]药库\f[bold,0]】\n/
\_b[img/lit22.png,inline,--option=use_self_alpha]\_l[40,40]\q[喵喵喵？,nyanyanya]\n"
--
"     ✦•┈๑⋅⋯ ⋯⋅๑┈•✦\n"
--
"\_b[img/lit00.png,inline,--option=use_self_alpha]\f[color,237,28,36]【san值：%(TOINT(san))】\n"
--
if !喵喵喵？ ; "\f[color,default]"
--
"%(tabimg[RAND(5)])%(抗抑郁[RAND(8)])\n/
%(tabimg[RAND(5)])%(抗焦虑[RAND(3)])\n/
%(tabimg[RAND(5)])%(精二[RAND(6)])\n/
%(tabimg[RAND(5)])%(其他[RAND(5)])\n"
void SRAND()
}
tabimg : array
{
"\_b[img/lit22.png,inline,--option=use_self_alpha]"
"\_b[img/tab06.png,inline,--option=use_self_alpha]"
"\_b[img/tab05.png,inline,--option=use_self_alpha]"
"\_b[img/tab02.png,inline,--option=use_self_alpha]"
"\_b[img/tab01.png,inline,--option=use_self_alpha]"
}
Choice.nyanyanya
{
if 喵喵喵？ ; 喵喵喵？ = 0
else ; 喵喵喵？ = 1
Choice.uehetsis
}
//————————————————————————————————
抗抑郁 : array
{
"\q[舍曲林,Onmono2,可用于治疗抑郁症，也可用于治疗强迫症。]%(吃药(tableflag1,1))\q[[od\],Onkeyao,overdose,1]"
"\q[阿戈美拉汀,Onmono2,本品主要用于治疗成人抑郁症。]%(吃药(tableflag1,2))\q[[od\],Onkeyao,overdose,2]"
"\q[米安色林,Onmono2,适用于药物治疗的各型抑郁症患者，能解除其抑郁症状。]%(吃药(tableflag1,7))\q[[od\],Onkeyao,overdose,7]"
"\q[艾司西酞普兰,Onmono2,适应症为治疗抑郁障碍，治疗伴有或不伴有广场恐怖症的惊恐障碍。]%(吃药(tableflag1,11))\q[[od\],Onkeyao,overdose,11]"
"\q[文拉法辛,Onmono2,本品用于治疗抑郁症和广泛性焦虑障碍。]%(吃药(tableflag1,14))\q[[od\],Onkeyao,overdose,14]"
"\q[喹硫平缓释片,Onmono2,用于治疗精神分裂症。]%(吃药(tableflag1,17))\q[[od\],Onkeyao,overdose,17]"
"\q[氟伏沙明,Onmono2,用于抑郁症及相关症状的治疗，强迫症症状治疗。]%(吃药(tableflag1,15))\q[[od\],Onkeyao,overdose,15]"
"\q[若欣林,Onmono2,用于治疗抑郁症]%(吃药(tableflag1,19))\q[[od\],Onkeyao,overdose,19]"
}
抗焦虑 : array
{
"\q[曲唑酮缓释片,Onmono2,用于伴有或不伴有焦虑症状的抑郁症。]%(吃药(tableflag2,10))\q[[od\],Onkeyao,overdose,10]"
"\q[坦度螺酮,Onmono2,各种神经症所致的焦虑状态，如广泛性焦虑症。]%(吃药(tableflag2,8))\q[[od\],Onkeyao,overdose,8]"
"\q[丁螺环酮,Onmono2,适用于广泛性焦虑障碍，尤其是慢性焦虑症、伴恐惧或抑郁症状]%(吃药(tableflag2,16))\q[[od\],Onkeyao,overdose,16]"
}
精二 : array
{
"\q[阿普唑仑,Onmono2,具有抗焦虑、抗抑郁、镇静、催眠、抗惊厥及肌肉松弛等作用]%(吃药(tableflag3,4))\q[[od\],Onkeyao,overdose,4]"
"\q[奥沙西泮,Onmono2,缓解短期焦虑、紧张、激动情绪、焦虑伴抑郁；催眠；]%(吃药(tableflag3,5))\q[[od\],Onkeyao,overdose,5]"
"\q[佐匹克隆,Onmono2,适用于失眠症的短期治疗]%(吃药(tableflag3,9))\q[[od\],Onkeyao,overdose,9]"
"\q[劳拉西泮,Onmono2,口服用于治疗焦虑障碍或缓解焦虑症状]%(吃药(tableflag3,12))\q[[od\],Onkeyao,overdose,12]"
"\q[思诺思,Onmono2,偶发性失眠症、暂时性失眠症。适用于慢性失眠的短期治疗。]%(吃药(tableflag3,18))\q[[od\],Onkeyao,overdose,18]"
"\q[扎来普隆,Onmono2,适用于入睡困难的失眠症的短期治疗]%(吃药(tableflag3,21))\q[[od\],Onkeyao,overdose,21]"
}
其他 : array
{
_head = "%(year)%(wisjikan(month))%(wisjikan(day))%(wisjikan(hour))"
void SRAND(TOINT(_head))
"\q[奥氮平,Onmono2,主要用于精神分裂症患者的治疗。可用于治疗中、重度躁狂发作]%(吃药(tableflag4,3))\q[[od\],Onkeyao,overdose,3]"
"\q[德巴金,Onmono2,可用于偏头痛及双相情感障碍。]%(吃药(tableflag4,6))\q[[od\],Onkeyao,overdose,6]"
"\q[喹硫平,Onmono2,治疗精神分裂症及双相情感障碍的狂躁发作。]%(吃药(tableflag4,13))\q[[od\],Onkeyao,overdose,13]"
"\q[鲁拉西酮,Onmono2,用于治疗精神分裂症]%(吃药(tableflag4,20))\q[[od\],Onkeyao,overdose,20]"
邮票[RAND(4)]
}
邮票 : array
{
"\q[亚硝酸钠,Onmono,亚硝酸钠,亚硝酸钠]\q[[od\],Onkeyao,overdose,22]"
"\q[右美沙芬,Onmono,右美沙芬,右美沙芬]\q[[od\],Onkeyao,overdose,23]"
"\q[金刚烷胺,Onmono,金刚烷胺,金刚烷胺]\q[[od\],Onkeyao,overdose,24]"
"\q[氯化钡,Onmono,氯化钡,氯化钡]\q[[od\],Onkeyao,overdose,25]"
}
吃药
{
if _argv[0] ; "\_?[已服用]\_?"
else; "\q[[吃药\],Onkeyao,吃药,%(_argv[1])]"
}
//————————————————————————————————
Onmono
{
Choice.uemono
--
"\_b[img\%(reference1).png,0,0,--option=use_self_alpha]\0\s[%(sus)]\f[name,%(zitai)]%(reference0)"
}
Onmono2
{
Choice.uemono
--
"\0\s[%(sus)]\f[name,%(zitai)]%(reference0)"
}
//————————————————————————————————
//*****药物计算********************
Onkeyao
{
if reference0 == "overdose" ; "\f[name,%(zitai)]已经不想再吃药了……"//san-=TOREAL(药物计算2(reference1))
elseif reference0 == "吃药" ; san+=TOREAL(药物计算(reference1))
if san > 100 ; san = 100
if san < 0 {
 lesflag = 1
 aoiles = 0 }

if ASEARCHEX(reference1,(1,2,7,11,14,17,15,19)) ; tableflag1 = 1
if ASEARCHEX(reference1,(10,8,16)) ; tableflag2 = 1
if ASEARCHEX(reference1,(4,5,9,12,18,21)) ; tableflag3 = 1
if ASEARCHEX(reference1,(3,6,13,20,22,23,24,25)) ; tableflag4 = 1
--
Choice.uehetsis
}
药物计算2
{
case _argv[0]{
when 1 ; 15*(1.5*(RAND(2)+1))
when 2 ; 13*(1.25*(RAND(2)+1))
when 3 ; 14*(1.05*(RAND(2)+1))
when 4 ; 13*(1.004*(RAND(2)+1))
when 5 ; 13*(1.15*(RAND(2)+1))
when 6 ; 15*(6*(RAND(2)+1))
when 7 ; 14*(1.3*(RAND(2)+1))
when 8 ; 14*(1.05*(RAND(2)+1))
when 9 ; 15*(1.075*(RAND(2)+1))
when 10 ; 14*(1.75*(RAND(2)+1))
when 11 ; 13*(1.1*(RAND(2)+1))
when 12 ; 15*(1.02*(RAND(2)+1))
when 13 ; 15*(2*(RAND(2)+1))
when 14 ; 13*(1.75*(RAND(2)+1))
when 15 ; 14*(1.5*(RAND(2)+1))
when 16 ; 13*(1.05*(RAND(2)+1))
when 17 ; 14*(3*(RAND(2)+1))
when 18 ; 14*(3*(RAND(2)+1))
when 19 ; 14*(1.4*(RAND(2)+1))
when 20 ; 14*(1.4*(RAND(2)+1))
when 21 ; 14*(1.05*(RAND(2)+1))
when 22 ; 15*(1000*(RAND(2)+1))
when 23 ; 15*(24.15*(RAND(2)+1))
when 24 ; 15*(100.1*(RAND(2)+1))
when 25 ; 15*(500.1*(RAND(2)+1))
}}
药物计算
{
case _argv[0]{
when 1 ; 5*(1.5*(RAND(2)+1))
when 2 ; 3*(1.25*(RAND(2)+1))
when 3 ; 4*(1.05*(RAND(2)+1))
when 4 ; 3*(1.004*(RAND(2)+1))
when 5 ; 3*(1.15*(RAND(2)+1))
when 6 ; 5*(6*(RAND(2)+1))
when 7 ; 4*(1.3*(RAND(2)+1))
when 8 ; 4*(1.05*(RAND(2)+1))
when 9 ; 5*(1.075*(RAND(2)+1))
when 10 ; 4*(1.75*(RAND(2)+1))
when 11 ; 3*(1.1*(RAND(2)+1))
when 12 ; 5*(1.02*(RAND(2)+1))
when 13 ; 5*(2*(RAND(2)+1))
when 14 ; 3*(1.75*(RAND(2)+1))
when 15 ; 4*(1.5*(RAND(2)+1))
when 16 ; 3*(1.05*(RAND(2)+1))
when 17 ; 4*(3*(RAND(2)+1))
when 18 ; 4*(3*(RAND(2)+1))
when 19 ; 4*(1.4*(RAND(2)+1))
when 20 ; 4*(1.4*(RAND(2)+1))
when 21 ; 4*(1.05*(RAND(2)+1))
others ; 0
}}