﻿@DAIRY_49_EXIST
;存在判定
RETURN 1

@DAIRY_AFTER_CHECK_49
#DIM MODE
#DIM NOPAGE
    ;条件フラグのリセットや判定追加もここに 
    ;たとえば：今日構ったフラグ
    ;今日構った日記が表示した後，構ったフラグをリセット。
    ; cflag:xx:今日構ったフラグ = 0
    ;あるいは何かの状態が続くことがフラグの場合
    ;例：好感度がほぼ変わらない日が続くと
    ;「你」の態度が冷な～みたいな日記を書く
    ; SIF CFLAG:XX:好感度 <= LAST_LP+3
    ;   NOTOUCH_DAY ++

  SATORI_TSFLAG = 0
  SATORI_PANTSFLAG = 0
  SIF CFLAG:49:好感度 <= LAST_LOVEPOINT+5
    NOTOUCH_DAY ++
  LAST_LOVEPOINT = CFLAG:49:好感度

@DAIRY_BEFORE_CHECK_49
#DIM IN_TARGET
#DIM DFLAG
#DIM 自慰発生閾値
;MAXPAGEはここで記入する
MAX_DAIRY_PAGE:49 = 15

;ここで汎用発生条件を記入する
;指令別の発生条件はKOJOファイルの中で追加してください。

; SIF XXX == XXX && FIRSTDAY
    ;DAIRY:XXX:0 = 2
    ; 2 =　発生，未読　1 = 発生，既読 0=未発生

;M_KOJO_KXXX　存在判定する関数で
;CALL DAIRY_BEFORE_CHECK_XXX
;を追加してください。

IN_TARGET = 0
FOR LOCAL,0,GET_TARGETNUM()
	IF TARGET:LOCAL == 49
		IN_TARGET = 1
		BREAK
	ENDIF
NEXT

SIF IN_TARGET && FLAG:70 && !SATORI_TSFLAG
	SATORI_TSFLAG = 1

SIF TARGET == 49 && CFLAG:TARGET:没穿内裤 == 1
	SATORI_PANTSFLAG = 1

SIF SATORI_FIRSTDAY && !DAIRY:49:0
	DAIRY:49:0 = 2

SIF SELECTCOM == 331 && CFLAG:49:面識 && DAY >= 3 && !DAIRY:49:1 && DAIRY:49:0 == 1 && CFLAG:49:好感度 > 300
	DAIRY:49:1 = 2

SIF EXP:36:時姦経験 + EXP:37:時姦経験 + EXP:38:時姦経験 + EXP:49:時姦経験 == 0 && CFLAG:49:信賴度 >= 100 && ABL:38:親密 >= 3 && !DAIRY:49:2 && DAIRY:49:1 == 1
	DAIRY:49:2 = 2

SIF ABL:49:親密 >= 5 && CFLAG:49:好感度 > 1000 && !DAIRY:49:3 && DAIRY:49:2 == 1 && SELECTCOM == 302
	DAIRY:49:3 = 2

SIF SATORI_PANTSFLAG && DAY >= 7 && DAIRY:49:3 == 1 && CFLAG:49:好感度 > 800
	DAIRY:49:4 = 2

DFLAG = 0
FOR LOCAL,0,CHARANUM
    IF EXP:LOCAL:時姦経験 && !GROUPMATCH(LOCAL,36,37,38,49) > 10
        DFLAG = 1
        BREAK
    ENDIF
NEXT

SIF DFLAG && EXP:36:時姦経験 + EXP:37:時姦経験 + EXP:38:時姦経験 + EXP:49:時姦経験 == 0 && CFLAG:49:信賴度 >= 500 && !DAIRY:49:5 && DAIRY:49:4 == 1
    DAIRY:49:5 = 2

SIF CFLAG:49:约会中 && !DAIRY:49:6 && DAIRY:49:5 == 1
    DAIRY:49:6 = 2

SIF TALENT:36:恋慕 && TALENT:37:恋慕 && TALENT:49:恋慕 && TALENT:38:恋慕 && !DAIRY:49:7
    DAIRY:49:7 = 1

	自慰発生閾値 = LIMIT(750 - 200 * TALENT:49:容易自慰 - 100 * TALENT:49:快感応答 - 100 * TALENT:49:自己愛 + 200 * TALENT:49:自制心,500,999)
	自慰発生閾値 -= 300 * TALENT:49:自慰狂

    SIF CFLAG:49:积攒度 > 自慰発生閾値 && !DAIRY:49:8 && 已攻陷(49)
        DAIRY:49:8 = 2

SIF CFLAG:49:约会中 && !DAIRY:49:9 && DAIRY:49:6 == 1
    DAIRY:49:9 = 2

SIF !CFLAG:49:502 && !DAIRY:49:10
    DAIRY:49:10 = 2 ;放在口上推到事后里 K49_EVENT,15 ;这好像是狐佬的批注/挠头？ 反正我看看感觉没问题就给加回去了

DFLAG = 0
FOR LOCAL,0,CHARANUM
    IF EXP:LOCAL:愛情経験 && !GROUPMATCH(LOCAL,36,37,38,49) > 10
        DFLAG = 1
        BREAK
    ENDIF
NEXT

SIF GROUPMATCH(關係性質(49),3,4) && DFLAG && NOTOUCH_DAY >= 5 && !DAIRY:49:11
    DAIRY:49:11 = 2

SIF 關係性質(49) == 4 && !DAIRY:49:12
	DAIRY:49:12 = 2

SIF CFLAG:49:502 && !DAIRY:49:13 && 關係性質(49)>= 3 && GETBIT(CFLAG:49:既成事實,1)
	DAIRY:49:13 = 2

SIF TALENT:49:恋人 && !DAIRY:49:14
	DAIRY:49:14 = 2


@DAIRY_TEXT_49,ARG,MODE=0
#DIM MODE

IF MODE == 0
	IF GROUPMATCH(ARG,3,4,5,8,9,10,12)
	CALL PRINT_FACE,49,"照れ"
	ELSEIF GROUPMATCH(ARG,6,13,14)
	CALL PRINT_FACE,49,"笑顔"
	ELSE
	CALL PRINT_FACE,49
	ENDIF
ENDIF

PRINTFORMDL - %CALLNAME:49%的日记　PAGE.{ARG+1} --------------------------------------------------------------------------------------
PRINTL
SELECTCASE ARG
    CASE 0
        PRINTFORML ○月×日
        PRINTFORML 今天起，决定開始写日记。
        PRINTFORML 那个孩子将眼睛闭上后，
		PRINTFORML 平淡无奇便是我的日常，，
        PRINTFORML 本应该完全没有记日记的必要，
		PRINTFORML 但是却发生了不得了的事情。
        PRINTFORML ......明明只是个人类，却决定将%GET_PLACENAME(CFLAG:MASTER:初期位置)%当作自宅的那个人
        PRINTFORML 明明是初次见面却在心里放肆地对我进行着性骚扰...
		PRINTFORML 尽管被识破了停止时间的能力，却还保持着平静的那个人。
        PRINTFORML 为了恋和宠物们，不会被他做些什么过分的事，必须要对他进行监视呢
        PRINTL
        PRINTL
        PRINTFORML 对，仅此而已。
            SIF DAIRY:49:0 == 2 ;既読フラグをつける
                DAIRY:49:0 = 1
    CASE 1
        PRINTFORML ○月■日
        PRINTFORML 今天那个人也来到我家了。
        PRINTFORML 打了个响指，
		PRINTFORML 从什么都没有的地方取出了茶具什么的...
        PRINTFORML 是在模仿那个女仆吗？
        PRINTFORML 因为拿出来的东西基本都很美味所以总觉得很火大。
        PRINTFORML 但是，为在场的全员都准备了什么的，
		PRINTFORML 这种机灵的地方看着很有趣。
        PRINTL
        PRINTFORML .........虽然将媚药混入茶里面的时候，怎么说也不能无视。
        PRINTL
        PRINTFORML 而且，还觉得『和预想的一样』的模样实在是无法理解。
            SIF DAIRY:49:1 == 2
                DAIRY:49:1 = 1
    CASE 2
        PRINTFORML ○月△日
        PRINTFORML 最近，恋经常開心地笑着。
        PRINTFORML 看来和那个人在一起似乎很開心。
        PRINTFORML 那个人也，把最初见面时对我的担心当作没发生一般，
        PRINTFORML 对恋也是燐也是空也是，并没有停止时间进行恶作剧
        PRINTFORML 对于其他人，尤其是对那个女仆......
        PRINTFORML 明明忙着用时停对别人进行恶作剧，
        PRINTFORML 为什么偏偏不对我们这么做呢......
            SIF DAIRY:49:2 == 2
                DAIRY:49:2 = 1
    CASE 3
        PRINTFORML ○月●日
        PRINTFORML ......以身体接触的名义，我的身体被触摸了。
        PRINTFORML 如果仅是不快的话，那就好了。
        PRINTFORML 最近，被这样做了的话，心里会稍稍有些兴奋。
        PRINTFORML 明明，是不可以的事。
        PRINTFORML 那种，不可以相信的人，明明是不能够原谅的。
        PRINTL
        PRINTFORML ......但是，无法拒绝。
            SIF DAIRY:49:3 == 2
                DAIRY:49:3 = 1
    CASE 4
        PRINTFORML ■月×日
        PRINTFORML 再次，在时间停止的时候我的内裤被偷走了。
        PRINTFORML 真是的，即使是变态也要有个限度啊。。
        PRINTFORML ......但是，为什么持有的内裤的数量没有减少呢？
        PRINTFORML 是有谁在擅自地补充着吗？
            SIF DAIRY:49:4 == 2
                DAIRY:49:4 = 1
    CASE 5
        PRINTFORML ■月○日
        PRINTFORML ..................不得，不承认。
        PRINTL
        PRINTFORML 对停止时间玩弄少女的那个人，我并没有任何憎恶的感情。
        PRINTFORML 他既没有，将时间停止玩弄我重要的家人，
        PRINTFORML 而且也没有对我自身出手。
        PRINTFORML 他明明怀有这邪恶的欲望，
        PRINTFORML 但是并没有抑制欲望，反而是维持着欲望的平衡的稀有的人。。
            SIF DAIRY:49:5 == 2
                DAIRY:49:5 = 1
    CASE 6
        PRINTFORML ■月△日
        PRINTFORML 今天，被那个人邀请一起去约会。
        PRINTFORML 为什么，要把我这样的觉妖怪带出去呢。
        PRINTFORML 在到达人間之里的时候，周围传来了各种各样的心声。
        PRINTL
        PRINTFORML ──『那个就是觉妖怪啊』
		PRINTFORML ──『还是赶紧逃走比较好啊』
		PRINTFORML ──『是可以读心的怪物啊』
        PRINTL
        PRINTFORML 嘛、会这么想是理所当然的，也没什么办法
        PRINTL
        PRINTFORML ──『意外的很可爱呢』『那两个人看起来很般配呢』──
        PRINTL
        PRINTFORML 所以，听到那微弱的声音的时候，感觉到了害羞。
        PRINTL
        PRINTFORML 在人間之里的广场。那个人突然拿出了小提琴開始了演奏。
        PRINTFORML 被乐声所吸引，骚灵们和付丧神，甚至没见过的女性都出现了，
        PRINTFORML 配合着他所演奏的曲子，一起歌唱了起来。。
        PRINTFORML ......非常温柔且平稳的曲子，甜蜜的歌词充斥着热情。
        PRINTL
        PRINTFORML 『（你是）我的太阳』......
        PRINTL
        PRINTFORML 这样的歌词没有意义。
		PRINTFORML 这么想着的我，对着那个人微笑了起来。
            SIF DAIRY:49:6 == 2
                DAIRY:49:6 = 1
    CASE 7
        PRINTFORML ■月●日
        PRINTFORML ......恋还有燐与空，都開始惦记那个人了。
        PRINTFORML 第一次见面的时候，
		PRINTFORML 我说的要是停止时间玩弄我的家人就绝对不会原谅的话──有好好的遵守着，
        PRINTFORML 普通地和那三人接触着。
        PRINTFORML 不像那个女仆一样，
		PRINTFORML 不是因为玩弄着身体所以渴求着肉体的恋慕，仅仅是纯粹的思慕之情。
        PRINTFORML 这是很自然的事情，所以没有抱怨的理由。
        PRINTFORML 明明是这样。
        PRINTFORML 为什么，我会如此的不快呢。
        PRINTL
        PRINTFORML .........我想要你只注视着我。
        PRINTL
        PRINTFORML 这句话，在脑海的角落诞生了。
        PRINTFORML 也许，是这样、的吧。
             SIF DAIRY:49:7 == 2
                DAIRY:49:7 = 1
    CASE 8
        PRINTFORML △月■日
        PRINTFORML ......以前，仅仅是读着书，就只是这样的而已。
        PRINTFORML 明明是这样，但是我却妄想着那个人将我的肢体打開，自己自慰着。
        PRINTFORML ......到底在干什么啊，我。
        PRINTFORML 那个人，我并不憎恨着他。
        PRINTFORML 但是，他也不是能打心底完全信赖的人。
        PRINTFORML 明明是这样，然而我却妄想着被那个人给抱住，一个人自慰着。
        PRINTL
        PRINTFORML ......说真的，我到底在做什么呢。
            SIF DAIRY:49:8 == 2
                DAIRY:49:8 = 1
    CASE 9
        PRINTFORML △月●日
        PRINTFORML ......今天也被邀请去约会了。
        PRINTFORML 这到底是第几次了呢。
        PRINTFORML 没有出门的必要，有书在的话就足够了，
        PRINTFORML 因为被读心了因为恐惧而開始迫害的存在消失就好了，
        PRINTFORML 我明明是这么想的。
        PRINTL
        PRINTFORML 和那个人一起出门，仅仅是这样就非常舒服，
        PRINTFORML 我完全没想到会是这么棒的事情。
        PRINTFORML 所以，这是没有办法的事情。
        PRINTL
        PRINTFORML 在回去的路上，我叫住了那个人，
		PRINTFORML 夺走了他的唇，将我的第一次（初吻）献上了。
        PRINTL
        PRINTFORML 被用时间停止能力进行玩弄。
		PRINTFORML 那确实是最初我所担心的事情，
		PRINTFORML 说实话，我以为总有一天会被这么做。
        PRINTL
        PRINTFORML 但是，并没有对我和我的家人出手。
        PRINTFORML 所以我非常的開心，然后再也压抑不住自己的心情了............
        PRINTFORML 啊呜，这──样──子的才不是我，
		PRINTFORML 明明是恋才对，为什么会变成这样呢。
            SIF DAIRY:49:9 == 2
                DAIRY:49:9 = 1
    CASE 10
        PRINTFORML △月×日
        PRINTFORML .........呜呜，我的意志竟然会如此脆弱什么的，
		PRINTFORML 估计谁都想不到吧.........
        PRINTFORML 那个人来到我的房间里，一起扫除，一起说话，一起喝茶，一起进行着身体接触.........
		PRINTL
		PRINTFORML 一起，亲吻了。
		PRINTL
        PRINTFORML 然后，就好像打開了奇怪的開关一样。
		PRINTFORML 对，仅此而已，仅此而已的事情。
        PRINTFORML 将我推倒了，将衣服脱下，完全脱掉，
		PRINTFORML 抚弄着那个人的身体，为了感受相同的快乐而爱抚着......
        PRINTFORML 好害羞......
        PRINTFORML 但是，想要献出第一次的时候，
		PRINTFORML 因为恋突然跑进来的原因，所以变成了暂时保留的状态了
        PRINTL
        PRINTFORML .........我可能，我可能会忍耐不住的。
            SIF DAIRY:49:10 == 2
                DAIRY:49:10 = 1
    CASE 11
        PRINTFORML □月×日
        PRINTFORML ......从那一天開始，那个人变得微妙地冷淡起来了。
        PRINTFORML 与其说是冷淡，总是带着我到有其他人在的地方，
		PRINTFORML 选择那些即使只有我们两个人也没法做羞羞的事情的地方去。
        PRINTFORML ......难道是讨厌那种会主动推倒的女性吗。
        PRINTFORML 但是啊但是啊，
		PRINTFORML 明明和往常一样触摸着我，亲吻我，
        PRINTFORML 来回的抚摸着我的屁股，抚摸着胸部什么的，
		PRINTFORML 为什么我主动就不行呢。
		PRINTFORML 姆——，真是欺负人。
            SIF DAIRY:49:11 == 2
                DAIRY:49:11 = 1
    CASE 12
        PRINTFORML □月■日
        PRINTFORML 我，已经坏掉了。变成坏掉的状态了。
        PRINTFORML 那个人仅仅是在我身边就会很高兴，很開心，很舒服。
        PRINTFORML 喜欢上一个人，没想到会是这么開心的事情。
        PRINTFORML 我把手放在胸口这么想，
		PRINTFORML 我总算明白了————恋慕————这个美妙的词的意思。
        PRINTFORML 明明不需要谁来陪伴的。
		PRINTFORML 恋将眼睛闭上之后，我明明就不期待其它事物了。
        PRINTFORML ......是从什么时候，变成这样的呢。
        PRINTFORML .........从什么时候開始，我不想这样继续下去的呢。
        PRINTFORML 真正的我是谁都看不见的。
        PRINTFORML 真正的我消失了也无所谓。
        PRINTFORML 这样想着，只有恋才是重要的存在，
        PRINTFORML 
        PRINTFORML ————明明恋闭上了眼睛之后，
        PRINTFORML 已经没有地方可以将我的内心暴露出来了。
            SIF DAIRY:49:12 == 2
                DAIRY:49:12 = 1
    CASE 13
        PRINTFORML □月●日
        PRINTFORML 今日是纪念日。
        PRINTFORML 今日是纪念日。
        PRINTFORML 最棒的纪念日，因为，终于我将我的第一次献给了那个人。
        PRINTL
        PRINTFORML 虽然很疼很痛苦，
		PRINTFORML 即使如此，这是被心爱的人爱到身体深处的证明，
        PRINTFORML 所以非常高兴，心情舒畅。
        PRINTL
		PRINTFORML 我真的喜欢上了那个人，喜欢上他真的是太好了。
        PRINTFORML ......但是，但是啊但是啊，那个人并不是只属于我一个人的。
        PRINTL
        PRINTL
        PRINTFORML 呜嗯，
        PRINTFORML 我，并不是只属于他的......
        PRINTL
        PRINTFORML 我已经没有那个人就已经不行了。
		PRINTFORML 但是，对于那个人来说并不是这样的。
        PRINTFORML 这有点令我难过。
            SIF DAIRY:49:13 == 2
                DAIRY:49:13 = 1
    CASE 14
        PRINTFORML □月△日
        PRINTL
        PRINTFORML 好高兴，好高兴，好高兴！
        PRINTL
        PRINTFORML 我真的以为会被拒绝的。
        PRINTFORML 因为，平时总是心血来潮地突然说
        PRINTFORML 要做这样，那样的，害得我高兴的心情也减半了。
        PRINTL
		PRINTFORML 但是，即使如此，下定决心真的是太好了。
        PRINTFORML 约会后回来（人間之里的人们的羡慕的感情，让我感觉很舒服），
        PRINTFORML 脚步停下来，让它停下来。
        PRINTFORML 好不容易编织出来的话语。
        PRINTL
        PRINTFORML 然后那个人，不，主様接受了我的告白。
        PRINTFORML 已经，不需要再隐藏了。
        PRINTFORML 一直，在压抑着感情的我。
        PRINTFORML 只是记载在日记里，即使如此也只是偶尔暴露出来的我。
        PRINTFORML 重要的家人们也......，不，正因为是重要的家人所以才不能让她们知道，
        PRINTFORML 其实很喜欢撒娇很容易感到寂寞会害怕而且很脆弱的......真正的我
        PRINTFORML 但是，仅有在主様的面前，只有在主様的面前，
        PRINTFORML 我才能作为真正的自己活着。或者说，能被允许释放真正的自己。
        PRINTFORML 好高兴，好高兴，真的好高兴！！
        PRINTFORML 主様，主様，主様！
        PRINTFORML 我爱你，我好爱你，我真的爱你！
            SIF DAIRY:49:14 == 2
                DAIRY:49:14 = 1
ENDSELECT
RESETCOLOR
PRINTL
RETURN 1

@M_KOJO_MESSAGE_COM_K49_404
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K49_404_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K49_404_1
#DIM PAGE
PAGE = 0
FOR LOCAL,0,MAX_DAIRY_PAGE:TARGET
    IF DAIRY:TARGET:LOCAL == 1
        PAGE ++
    ENDIF
NEXT
IF !FLAG:70 && SHIRAHU(TARGET) && PAGE >= 2
    PRINTFORML ......%CALLNAME:MASTER%这么读着，
    PRINTFORML %CALLNAME:MASTER%从头開始读着思想感情表达地过于直白的日记本，
	PRINTFORML %CALLNAME:MASTER%将视线转向了耳朵都变得通红的觉。
    PRINTFORML 不容忽视的水平，或者说已经能够在那之上了，
    PRINTFORML 这在打扫被垃圾山堆满的觉的房间时看到的日记。
    PRINTFORML 只是打算稍微欺负一下觉而開始朗读的%CALLNAME:MASTER%
    PRINTFORMW 却被日记里记载的思念所完全压倒了。
	PRINTL
	CALL SPTALK,49,"照れ",0,@"「......主様这个笨蛋」//觉带着甜美的声音凝视着%CALLNAME:MASTER%。"
	PRINTL
	CALL SPTALK,49,"照れ",0,@"「是主様，不好哟。这也好那也好全部都是主様不好」//话音刚落觉的第三只眼的触手就缠绕了上来，%CALLNAME:MASTER%被扔到床上了。"
	PRINTL
	CALL SPTALK,49,"照れ",0,@"「『和日记里的语气不同』？ 当这是理所当然的说ー。」/「语言和文章虽然很相似但是他们也是不同的哟ー」/呟くが早いか覚のサードアイの触手が全身に絡みつき，ベッドに投げ出された。/看着向这里靠过来的觉，%CALLNAME:MASTER%能从她已经湿润的眼眸中看出情欲。。"
	PRINTL
	CALL SPTALK,49,"照れ",0,"「『要推倒了吗』？」/「是的，就是这样。主様，来Ｈ吧。」"
	PRINTL
	CALL SPTALK,49,"照れ",0,"「......『扫除还没做完』」/「.........ぬ，し，さ，ま？（这里是将主様拆開读的）」/对着这边怒目而视的觉，已经没有抵抗的余地了。"
	PRINTL
    PRINTFORMW 觉脱下了这边的衣服，接着把自己的衣服也脱了下来
    CFLAG:MASTER:诶嘿嘿 = 2
    CFLAG:TARGET:诶嘿嘿 = 2
ENDIF

;日记翻译：星屑闪光