code:
;-------------------------------------------
;刻印取得
;-------------------------------------------
@M_KOJO_NK_MESSAGE_MARKCNG_K49
#DIM 窒息
;このままだと地の文が表示されません
;地の文を表示したい方は、下記のコメントアウトを削除して下さい
;CALL MARK_MESSAGE
;苦痛刻印
IF !CFLAG:MASTER:恶作剧 && !FLAG:時間停止
	SELECTCASE TFLAG:苦痛刻印取得
		CASE 1
			PRINTFORML 「呜…」
			PRINTFORMDW   觉默默忍受着。
		CASE 2
			PRINTFORML 「咕…住手…」
			PRINTFORMDW   觉似乎有些受不了了。
		CASE 3
			PRINTFORML 「呜呀！快停下来啊！」
			PRINTFORMDW   觉哭叫着，让%CALLNAME:MASTER%停止暴行。
	ENDSELECT
ENDIF

;時姦刻印
IF TFLAG:時姦刻印取得 == 1
	PRINTFORML
ELSEIF TFLAG:時姦刻印取得 == 2
	PRINTFORML
ELSEIF TFLAG:時姦刻印取得 == 3
	PRINTFORML
ENDIF

;快楽刻印
IF !CFLAG:MASTER:恶作剧 && !FLAG:時間停止
	SELECTCASE TFLAG:快楽刻印取得
		CASE 1
			PRINTFORML 「哈啊…哈啊…」
			PRINTFORMDW   觉大口吐息着，灼热而甜蜜的气息让%CALLNAME:MASTER%沉溺其中。
		CASE 2
			PRINTFORML 「呜…！」
			PRINTFORMDW   觉的表情透露着极度的悦乐。
		CASE 3
			PRINTFORML 「%CALLNAME:MASTER%，%CALLNAME:MASTER%！」
			PRINTFORMDW   觉一遍遍叫着%CALLNAME:MASTER%的名字，被快感冲刷的脑海一片空白。
	ENDSELECT
ENDIF

;不埒刻印
IF !CFLAG:MASTER:恶作剧 && !FLAG:時間停止
	SELECTCASE TFLAG:屈服刻印取得
	;快楽による刻印
;		CASE 11
;			PRINTFORML 「
;		CASE 12
;			PRINTFORML 「
;		CASE 13
;			PRINTFORML 「
	;屈服、恭順による刻印
		CASE 31
			PRINTFORML 「啊啊，只是对你有些在意」
			PRINTFORMDW   觉的眼神和平时明显不一样，是幻觉吗？
		CASE 32
			PRINTFORML 「做一些亲密些的事情吧～」
			PRINTFORMDW   觉亲热地凑了过来。
		CASE 33
			PRINTFORML 「是你的话…不管做什么，我也是，没关系的哦？」
			PRINTFORMDW   觉的目光中溢出几分妩媚。
	ENDSELECT
ENDIF

;反発刻印
IF !CFLAG:MASTER:恶作剧 && !FLAG:時間停止
	SELECTCASE TFLAG:反発刻印取得
		CASE 1
			PRINTFORML 「啧」
			PRINTFORMDW   觉露出明显不愉快的表情，有些生气。
		CASE 2
			PRINTFORML 「就在这里把你处决，如何？」
			PRINTFORMDW   杀意满盈而露骨的威胁，看来是被惹恼了。
		CASE 3
			PRINTFORMDW   眼前飞来好几条触手，死死缠住了%CALLNAME:MASTER%。
			PRINTFORMDL   尝试时间停止也丝毫不能脱身，
			PRINTFORMDL   要被绞杀了，不能呼吸了；
			PRINTFORMDW   胸腔被触手挤出最后一丝空气，完全没有扩张的空间。
			PRINTFORMW 「…这可是你咎由自取」
			PRINTFORMDL   话音未落，身上的触手加了几分力道；
			PRINTFORMDW   气息被强行掐断，意识逐渐模糊，%CALLNAME:MASTER%最终晕厥了。
			BASE:MASTER:TSP -= 50
			BASE:MASTER:体力=0
			BASE:MASTER:気力=0
			窒息 = MAX((MAXBASE:MASTER:気力 + MAXBASE:MASTER:体力)/ 5, 2000)
			CALL BUFF_BASE(MASTER,BASE_体力,-窒息)
			CALL BUFF_BASE(MASTER,BASE_気力,-窒息)
	ENDSELECT
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_刻印取得.ERB


repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_反应_一般.ERB

license: unknown


code:
;==================================================
;弾幕勝負
;==================================================
;
@M_KOJO_NK_MESSAGE_COM_K49_DANMAKU(ARGS, 相手残機)
#DIM 相手残機
;全体の流れ
;①【戦闘前】→②ダイスロールとプレイヤー選択肢、ハンデをつけた場合は【ハンデ口上】→③対応スキルが発動した場合【スキル口上】→④被弾判定、キャラが被弾したなら【被弾口上】→
;どちらかの残機が0になっていなければ②に戻る→⑤【戦闘後口上】

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SIF FLAG:口上色
		TRYCALLFORM M_KOJO_NK_COLOR_K{NO:TARGET}
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;戦闘前
	HANDICAP_FIXED = 0
	HANDICAP_RAND = 0
	;ハンデをつけることができ、数値が大きいほどあなたが不利になる　数値が負ならあなたが有利に
	;キャラの能力に関わらずクッソ強くしたり弱くしたりできる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "戦闘前"
		PRINTFORMW 「好好武装起来，和自己的心象交战吧」
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;ハンデ
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "ハンデ"
		;ハンデつけなかったら表示されないので無記入でよい
		PRINTFORML
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;戦闘中TARGET被弾時口上
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "被弾"
		;別に一律で「やられたー」だけでもいいよ
		SELECTCASE 相手残機
			;残り残機3が表示されるのは【洽覧深識】持ちのみ
			;CASE 3
			;	PRINTFORML
			CASE 2
				PRINTFORMW 「哎呀哎呀，轻敌了呢」
				PRINTFORML 「但接下来可没这么简单了」
				PRINTFORMW 「脑符「Brain Fingerprint」（脑指纹测谎法）！」
			CASE 1
				PRINTFORML 「看来不出些狠招是不行了」
				PRINTFORMW 「回忆「朦胧记忆中的金阁寺」！」
			CASE 0
				PRINTFORMW 「嘛，这样的事情也不少见就是了」
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;戦闘中
	;TARGETの【残忍酷薄】発動時
	;ARGはTARGETの残機
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "残忍酷薄"

	ENDIF
	;-------------------------------------------------
	;戦闘中
	;TARGETの【乾坤一擲】発動時
	;ARGはTARGETの残機
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "乾坤一擲"

	ENDIF
	;-------------------------------------------------
	;戦闘中
	;TARGETの【怪力乱神】発動時
	;ARGはTARGETの残機
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "怪力乱神"

	ENDIF

	;-------------------------------------------------
	;戦闘後
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARGS == "戦闘後"
		PRINTFORML
		;残り残機4が表示されうるのは【洽覧深識】持ちのみ
		;残機が1以上ならあなたの負け、0の場合はあなたの勝利
		SELECTCASE 相手残機
			;CASE 4
			;	PRINTFORML
			CASE 3
				PRINTFORML 「完全没做好战斗准备呀」
				PRINTFORMW 「再接再厉吧」
			CASE 2
				PRINTFORML 「有些实力了呢」
				PRINTFORMW 「不过，还不够」
			CASE 1
				PRINTFORML 「差点就胜负逆转了」
				PRINTFORMW 「想必你也不甘心吧」
			CASE 0
				PRINTFORML 「弹幕游戏一直都不是什么强项」
				PRINTFORMW 「可不要因此得意扬扬」
		ENDSELECT
	ENDIF
RESETCOLOR
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_弾幕勝負.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;日常系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※

;==================================================
;301,お茶を淹れる
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_301
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_301
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_301_1
;TCVAR:49:300=0
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
SELECTCASE TFLAG:SELECTCOM的分岐
CASE 1
	SELECTCASE 关系_310()
	;CASE 15 TO 16
	;	SELECTCASE RAND:5
	;	CASE 0
	;	CASEELSE
	;	ENDSELECT
	CASE 4 TO 16
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「已经成为习惯了呢」
				PRINTFORML 「少了%CALLNAME:MASTER%的茶，总感觉少了点什么」
				PRINTFORMDW   不枉做这么久泡茶工具人呢。
				TFLAG:好感度管理 +=5
				TFLAG:信賴度管理 +=5
			CASEELSE
				PRINTFORML 「呼呼，指望端茶送水能加快攻略进度什么的，一开始就看穿了」
				PRINTFORML 「嘛，不过现在的话，也完全不需要了呢」
				PRINTFORML 「已经，成了这样的关系，什么的…」
				PRINTFORMDW   突然脸红起来，没再说下去。
				TFLAG:好感度管理 +=2
				TFLAG:信賴度管理 +=2
		ENDSELECT
	CASE 3
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「还真是刮目相看呢」
				PRINTFORML 「当初可还是笨手笨脚」
				PRINTFORML 「现在都成长到这种程度了吗」
				PRINTFORMDW   相当难得的认可呢。
				TFLAG:好感度管理 +=2
				TFLAG:信賴度管理 +=2
			CASEELSE
				PRINTFORML 「是%CALLNAME:MASTER%的味道～」
				PRINTFORMDW   奇怪的发言出现了！
				TFLAG:好感度管理 ++
				TFLAG:信賴度管理 ++
		ENDSELECT
	CASE 2
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「总感觉，有股温暖的味道」
				TFLAG:好感度管理 ++
				TFLAG:信賴度管理 ++
			CASEELSE
				PRINTFORML 「哈啊，再来一杯吧」
		ENDSELECT
	CASE 1
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「意外地还不错呢」
				PRINTFORMDW   难得地得到了夸赞。
				TFLAG:好感度管理 ++
				TFLAG:信賴度管理 ++
			CASEELSE
				PRINTFORML 「慢慢也熟练起来了吗」
		ENDSELECT
	ENDSELECT
CASE 0
	SELECTCASE 关系_310()
	CASE 0
		CALL 厌弃_49
	;CASE 15 TO 16
	;	PRINTFORML 「
	CASE 4 TO 16
		SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「呜呼呼，又是药茶TIME了吗？」
				PRINTFORMDW   又是奇怪的说法。
				PRINTFORML 「什么呀，这不是根本没放药吗…」
				PRINTFORMDW   给古明地小姐可是从来不敢下药的。
				PRINTFORML 「难道说，放药不是惯例吗？」
				PRINTFORMDW   哪来这么奇怪的惯例啊喂！
				TFLAG:好感度管理 ++
				TFLAG:信賴度管理 ++
			CASE 0
				PRINTFORML 「那边另一个会时停的扫除工具人，泡茶也是家常便饭」
				PRINTFORMDW   那个洋馆里的原来是工具人吗？！
				PRINTFORML 「只不过，似乎泡的都是些莫名其妙的加料茶」
				PRINTFORMDW   强忍笑意继续若无其事说着。
				PRINTFORML 「给吸血鬼泡毒茶和大蒜茶什么的，想想都可怕」
				PRINTFORMDW   …是不是也想在茶里加些料呢？
				PRINTFORML 「不是这个意思啦！」
		ENDSELECT
	CASE 3
		SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「泡出来的茶，还是这样熟悉的温暖呢～」
				PRINTFORML 「喝下去全身都热起来了——」
				PRINTFORML 「明明没放药？」
				PRINTFORMDW   是茶的温度带动体温升高吧。
				TFLAG:好感度管理 ++
				TFLAG:信賴度管理 ++
			CASE 0
				PRINTFORML 「泡茶的技术有所提升呢」
				PRINTFORML 「不过泡过这么多，没提升也怪了」
				PRINTFORML 「除了我，你还泡过不少吧？」
				PRINTFORMDW   嫉妒心意外地强呢。
		ENDSELECT
	CASE 2
		SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「是不知哪里变出来的茶呢」
				PRINTFORML 「时间停止用在泡茶上真的好吗？」
				PRINTFORMDW   说是这么说，还是欣然接受了。
			CASE 0
				PRINTFORML 「正好有些渴了呢」
				PRINTFORML 「帮大忙了」
				PRINTFORMDW   将递来的茶一饮而尽。
				IF !GETBIT (CFLAG:1301,1) && !RAND:5
					PRINTFORMDW   …原来一直都不怕烫的吗？！
					PRINTFORML 「哎呀，灼热地狱姑且也是走过几遍的」
					PRINTFORML 「这种程度小意思啦～」
					PRINTFORMDW   什么呀，总感觉之前被耍了…
					TFLAG:好感度管理 += 5
					TFLAG:信賴度管理 += 5
					SETBIT CFLAG:49:1301,1
				ELSE
					PRINTFORMDW   全然不顾新沸腾热水那灼人热力。
				ENDIF
		ENDSELECT
	CASE 1
		SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「茶吗？」
				PRINTFORML 「不会又像之前那样加料吧」
				PRINTFORMDW   狐疑地打量一番。
				PRINTFORML 「看得出来没有呢」
				PRINTFORML 「姑且还算是好好泡了的」
				PRINTFORMDW   难得被认可了。
				IF !GETBIT (CFLAG:1301,0) && !RAND:5
					PRINTFORMDW   喝了一小口，但马上喷了出来。
					PRINTFORML 「噗欸！咳咳咳…」
					PRINTFORMDW   这不是又出洋相了吗，地底的大妖怪古明地小姐？
					PRINTFORML 「太烫了！」
					PRINTFORMDW   虽然这么说，但看得出来还是挺开心的样子…
					PRINTFORMDW   难道说，眼前的是抖M吗？
					PRINTFORML 「才不是！」
					TFLAG:好感度管理 ++
					TFLAG:信賴度管理 ++
					SETBIT CFLAG:49:1301,0
				ELSEIF GETBIT (CFLAG:1301,0)
					PRINTFORMDW   浅抿了一口，就放下了。
					PRINTFORML 「正烫着呢，先凉下吧」
					PRINTFORMDW   看来吃一堑长一智了呢。
				ENDIF
			CASE 0
				PRINTFORML 「茶更多是消遣娱乐性饮品呢」
				PRINTFORML 「现在对茶道的敬意早就不知去哪了」
				PRINTFORML 「大抵是被抛诸九霄云外了吧」
				PRINTFORMDW   一边不知所云，一边姑且还是小口小口啜饮着茶。
		ENDSELECT
	ENDSELECT
CASE -1
	PRINTFORML 「糟蹋茶叶呢，这样的泡法」
	PRINTFORML 「茶可不是这样给你浪费的」
	PRINTFORMDW   被如此训斥了一番，送上来的茶自然是碰都没碰。
ENDSELECT
ENDIF
RETURN 1

;==================================================
;303,謝る
;TFLAG:SELECTCOM的分岐(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_303
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_303
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_303_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
	CASE 2
		PRINTFORML 「是你的话，还真难得呢」
		PRINTFORML 「嘛，我也不是这么不好说话的那种」
		PRINTFORML 「看在你表现出这种诚意的份上，我也不计较了」
		PRINTFORMDW   %CALLNAME:MASTER%松了一口气。
	CASE 1
		PRINTFORML 「…这样啊」
		PRINTFORML 「算了算了，姑且也并非全是你的责任」
		PRINTFORML 「这种事情，过去了就随它去吧」
		PRINTFORMDW   带着几分无奈的口吻得到了原谅。
	CASE 0
		PRINTFORML 「哈啊…拿你没办法呢」
		PRINTFORML 「做到这种地步，也不至于吧」
		PRINTFORML 「好啦好啦，没事啦」
		PRINTFORML 「也不会因此再去对你怎么样的」
		PRINTFORMDW   似乎动过想报复的念头呢。
		PRINTFORML 「真是如此的话，你也没机会这样做了」
		PRINTFORML 「折磨报复的手段数不胜数，只是没有必要」
		PRINTFORML 「所以说也没这么在意」
		PRINTFORMDW   得到了像这样的解释，%CALLNAME:MASTER%感受到一分安心的同时，
		PRINTFORMDW   也感受到了一丝寒意…
	CASE -1
		PRINTFORML 「不行」
		PRINTFORMDW   得到了干脆利落的拒绝
	CASE -2
		PRINTFORML 「…什么啊这玩意是」
		PRINTFORML 「容我拒绝」
		PRINTFORMDW   被以一种看垃圾似的眼神瞥了一眼，退了回来。
	ENDSELECT
ENDIF
RETURN 1
[SKIPSTART]
;==================================================
;304,仕事を手伝う
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:手伝えない(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_304
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
;没有工作，不用看了。
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_304
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_304_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;305,膝枕してもらう
;TFLAG:SELECTCOM的分岐(-5=MASTERがTARGETよりも巨体の場合(TALENT:MASTER:体型 > TALENT:体型 + 2) 1=大成功 0=成功 -1=失敗)(-5以外は地の文分岐無し)
;ABL:親密(6以上=顔をのぞき込みながら頭を撫でてくれる 3以上=ただ頭を撫でてくれる 2以下=縮こまっている)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_305
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSEIF 关系_310()>=3
	TFLAG:口上によるCOM成否判定=1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_305
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_305_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
SELECTCASE TFLAG:SELECTCOM的分岐
	CASE -1
		PRINTFORML 「嘶…做什么呢你」
		PRINTFORML 「赶紧从我眼前消失，不然让你从世界消失」
		PRINTFORMDW   不知为什么突然生气了。
;	CASE 0
;		SELECTCASE 关系_310()
;		CASE 15 TO 16
;			PRINTFORML 「
;		CASE 4 TO 6
;			PRINTFORML 「
;		CASE 2 TO 3
;			PRINTFORML 「
;		CASEELSE
;			PRINTFORML 「
;		ENDSELECT
;	CASE 1
;		SELECTCASE 关系_310()
;		CASE 15 TO 16
;			PRINTFORML 「
;		CASE 4 TO 6
;
;
;
;		CASE 2 TO 3
;			PRINTFORML 「
;		CASEELSE
;			PRINTFORML 「
;		ENDSELECT
	CASEELSE
			PRINTFORML 「很享受的表情呢，%CALLNAME:MASTER%」
			PRINTFORMDW   难得地被叫了名字。
			PRINTFORML 「在意的居然是那个吗」
			PRINTFORML 「嘛，其实做更亲密的事情，我也是，没关系的哦？」
			PRINTFORMDW   是在诱惑吗，只是现在没那种心情；
			PRINTFORMDW   毕竟古明地小姐的膝枕实在太舒服了——
			PRINTFORML 「呼呼，好好享用吧」
ENDSELECT
ENDIF
RETURN 1

;==================================================
;306,お腹を撫でる
;TFLAG:SELECTCOM的分岐(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_306
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_306_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL   时间停止中抚摸着觉的肚子，
		PRINTFORMDL   紧实而没有半分赘肉。
		PRINTFORMDW   …这真的是不动的地底安乐椅侦探吗？！
	;通常
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE -1
				PRINTFORML 「喂，少女的腹部可不容你随意乱摸」
				PRINTFORMDW   被触手缠住了手，动弹不得。
			CASE 0
				PRINTFORML 「妄想就这样爱抚膣内是不可能的」
				PRINTFORMDW   被看穿了。
			CASE 1
				PRINTFORML 「啊啊，妖怪可不需要保持身材」
				PRINTFORML 「所以也不会有小肚腩」
				PRINTFORMDW   随意变化身体是犯规哦。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,頬をつまむ
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;关系_310()>3(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=おずおずとやり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_307
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_307
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_307_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDW   趁着觉毫无反抗之力，%CALLNAME:MASTER%对觉的脸发起猛攻。
	;睡眠中
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	;通常
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE -1
				PRINTFORML 「…你在做什么？」
				PRINTFORMDW   言语间没有一丝温度。
				PRINTFORMDW   %CALLNAME:MASTER%寒毛直竖，赶忙停下动作。
			CASE 0
				PRINTFORML 「咕…呜…」
				PRINTFORML 「这样蹂躏少女的脸，很有趣吗？」
				PRINTFORMDW   是古明地小姐就很有趣。
				PRINTFORMDW   心里这样回答着，手也没停。
			CASE 1
				PRINTFORML 「呜…」
				PRINTFORMDW   觉任凭%CALLNAME:MASTER%摆布。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;308,頬をつつく
;添い寝中or睡眠中限定
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_308
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_308
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_308_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		CALL 睡眠_310
	;通常
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE -1
				PRINTFORML 「噫啊！突然做什么呢你！」
				PRINTFORMDW   觉吓到了，表情很是不快。
			CASE 0
				PRINTFORML 「	呜…已经很困了呢…」
				PRINTFORMDW   觉抱怨着，不过并没有制止%CALLNAME:MASTER%。
			CASE 1
				PRINTFORML 「别再乱搞啦！要反击了！」
				PRINTFORMDW   觉在被窝里和%CALLNAME:MASTER%玩着互戳脸颊的游戏。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_309
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_309
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_309_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDW   抚摸着地底大小姐的发丝，
		PRINTFORMDW   …总感觉是在摸触手。
	;睡眠中
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	;通常
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE -1
				PRINTFORML 「随便摸头很失礼不是吗？」
				PRINTFORMDW   避开了%CALLNAME:MASTER%伸来的手。
			CASE 0
				PRINTFORML 「哈啊…随便你吧」
				PRINTFORMDW   觉一副无所谓的样子。
			CASE 1
				PRINTFORML 「玩够了吗？那么该我了」
				PRINTFORMW 「来，低下你高贵的头颅吧」
				PRINTFORMD   总感觉下一秒就会说出
				PRINTFORMD 「就由我亲手斩下」
				PRINTFORMDW 这样的话语…
				PRINTFORML 「我可不想脏了自己的手」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,お茶を淹れる（薬入り）
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_331
;成否判定
;TFLAG:口上によるCOM成否判定(-2=強制失敗(注、非コマンド終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬アイスティーは眠気を感じていると飲まない)
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_331
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_331_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「这样啊…」
	PRINTFORMW 「真不愧是你%NAME:MASTER%呢」
	PRINTFORMDW   带着一丝玩味的笑，送来的茶水一口没动。
	PRINTFORML 「不直接泼掉算给你面子了」
	PRINTFORMW 「瞒得过谁呢，早就看穿你了」
ENDIF
RETURN 1
;==================================================
;332,お酒をふるまう
;TFLAG:SELECTCOM的分岐(0=下戸飲み成功 -1=下戸飲み失敗 -2=下戸飲み大失敗 -5=下戸飲みあきらめ)
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(51=どぶろく 52=清酒 53=鬼殺し)
;ALCOHOL_TASTE(TFLAG:不影响SOURCE等的SELECTCOM的分岐)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_332
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗、0=COM依存
TFLAG:口上によるCOM成否判定 =-1

@M_KOJO_NK_MESSAGE_COM_K49_332
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_332_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「想要看我酒后出洋相的样子吗？」
	PRINTFORMW 「现在就给你明确的答复：我拒绝」
	PRINTFORMDL   一点酒都不想碰的样子。
	PRINTFORMDW   …不过别的谁送上来的酒，接受可没有丝毫犹豫…怎么回事？
	PRINTFORMW 「是你%NAME:MASTER%就不行」
ENDIF
RETURN 1
;==================================================
;333,愚痴を聞く
;TFLAG:SELECTCOM的分岐(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_333
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_333
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_333_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		;CASE 6
		;大成功（酔い）
		;CASE 5
		;成功（酔い）
		;CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
			PRINTFORML 「哈啊，心情舒畅了许多呢」
			PRINTFORMDW   排解出那些怨气，觉如释重负。
		CASE 2
		;成功
			PRINTFORML 「…这样的事情，也算是心头上的一根刺吧」
			PRINTFORMDW   听着觉对那件事的看法，%CALLNAME:MASTER%不好做出什么评判。
		CASE 1
		;失敗
			PRINTFORML 「不开心的原因？当然是你%NAME:MASTER%」
			PRINTFORMDW   被觉死死盯着瞳孔，仿佛下一秒就会被撕碎，%CALLNAME:MASTER%毛骨悚然。
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,杯を交わす
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=食事)
;TALENT:酒耐性(-2=食事)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_334
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定=-1
@M_KOJO_NK_MESSAGE_COM_K49_334
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_334_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,介抱する
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_335
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_335
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_335_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_335_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336,膝枕する
;ABL:親密(4以下=居心地悪げ 9以下=恥ずかしげ それ以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_336
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-2
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_336
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_336_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:SELECTCOM的分岐 > 0
	;寝ちゃった
		PRINTFORML 「呼…呜…」
		PRINTFORMDL   看着觉枕在膝上，发出绵长的呼吸声；
		PRINTFORMDW   明明一开始就只是想给觉一个膝枕。
	ELSE
	;それ以外
		PRINTFORML 「除了恋以外，主动给我膝枕的，目前你是唯一一个」
		PRINTFORMDW   不胜荣幸。
		PRINTFORMDW   …恋也会给姐姐膝枕的吗？
		PRINTFORMDW   难以想象的画面。
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,押し倒す（時姦時イタズラする
;TFLAG:不影响SOURCE等的SELECTCOM的分岐 (0=成功 1=人目がある　2=野外は嫌でござりまする　3=多人数プレイは勘弁　4=合意があってもムードが足りぬ　100=合意はあるが口上内特殊判定によって失敗）
;TCVAR:抱き寄せ初回　1=普通に合意ゲット　2=先にキスぐらいしろよ　3=媚薬or発情には勝てなかったよお…　4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
;5=強引に迫られると断れぬ(素質臆病持ち専用) 6=まんざらでもない　7=駄目　8=論外 98=口上内特殊判定による失敗 99=口上内特殊判定による成功
;口上内特殊判定は該当するCFLAGが0だと無効
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_350
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_350_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		IF !GETBIT (CFLAG:1350,0)
			PRINTFORMDW   想把觉推倒之时，注意到觉下体似乎有什么东西…
			PRINTFORMDW   禁不住好奇，脱去下着一看…
			PRINTFORMDW   …是一根粗大的触手，密密麻麻长满棘刺，
			PRINTFORMDW   张牙舞爪护卫着少女的秘所。
			PRINTFORMDW   什么呀！
			PRINTFORMDW   %CALLNAME:MASTER%打消了侵犯觉的念头。
			SETBIT CFLAG:1350,0
		ELSE
			PRINTFORMDW   %CALLNAME:MASTER%想到那条触手还是不寒而栗…
			PRINTFORMDW   %CALLNAME:MASTER%失去了侵犯觉的欲望。
		ENDIF
		TFLAG:不影响SOURCE等的SELECTCOM的分岐=100
		RETURN 0
	ELSE
		IF 关系_310()==0
			PRINTFORML 「喂！你想干什么！」
			PRINTFORMDW   %CALLNAME:MASTER%被毫不留情地训斥了。
		ELSEIF 关系_310()>=4
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「
				CASE 1
					PRINTFORML 「
				CASE 2
					PRINTFORML 「
				CASE 3
					PRINTFORML 「
			ENDSELECT
		ELSEIF 关系_310()==3
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「
				CASE 1
					PRINTFORML 「
				CASEELSE
					PRINTFORML 「
			ENDSELECT
		ELSEIF 关系_310()==2
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「
				CASE 1
					PRINTFORML 「
				CASEELSE
					PRINTFORML 「
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「
				CASE 1
					PRINTFORML 「
				CASEELSE
					PRINTFORML 「
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_日常系_301～350.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_日常系_402～490.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_日常系_外出.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,耳かき
;前ターン膝枕後スキンシップコマンド
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K49_60
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_SCOM_K49_60
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K49_60_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K49_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「难办呢…干脆用触手吧」
			PRINTFORMDW   要被触手耳姦了！
		CASE 0
			PRINTFORMW 「不要乱动哦」
		CASE 1
			PRINTFORML 「向来都是恋给我做的…」
			PRINTFORMDL   这就是不会的理由吗…
			PRINTFORMDW   …为什么要让恋做这种事！
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;61,抱きまくら
;(TARGET睡眠時間or衰弱)添い寝中、前ターン抱きつく後就寝コマンド
;分岐無し
;==================================================
@M_KOJO_NK_MESSAGE_SCOM_K49_61
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K49_61_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K49_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:105 > 0
		PRINTFORMW 「所以说为什么要枕在这种地方啊」
	ELSE
		PRINTFORMW 「被当成抱枕了呢」
	ENDIF
ENDIF
RETURN 1
;==================================================
;62,デコちゅー
;前ターン頭撫で後キスする
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K49_62
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_SCOM_K49_62
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K49_62_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K49_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF !CFLAG:TARGET:睡眠
		IF ABL:欲望 >= 5
			PRINTFORMW 「还不够哦」
		ELSEIF ABL:親密 >= 5
			PRINTFORML 「哎呀！这种事情…」
			PRINTFORMDW   觉有些不好意思的样子。
		ELSE
			PRINTFORML 「诶诶诶？突然做什么呢」
			PRINTFORMDW   觉被%CALLNAME:MASTER%吓到了。
		ENDIF
	ELSE
		PRINTFORMDW   觉似乎没什么反应。
	ENDIF
ENDIF
RETURN 1
;==================================================
;63,もっとキスする
;前ターンキスする後キスする
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K49_63
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_SCOM_K49_63
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K49_63_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K49_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70 == 1
		PRINTFORMDW   地底大小姐的口感意外也不差呢…
	ELSEIF CFLAG:TARGET:睡眠
		PRINTFORMDW   觉转过脸去。
	ELSE
		IF 关系_310()>=105 || (关系_310()>=4 && 关系_310()<=16)
			PRINTFORMW 「咕…嗦…还想要吗？」
		ELSEIF ABL:親密 >= 5
			PRINTFORMW 「这种程度已经太过啦！」
		ELSE
			PRINTFORMW 「哈啊…嘴唇也咬下来你才甘心吗」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,手を引く
;デート出発後目的地に着くまでの間
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K49_80
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_SCOM_K49_80
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K49_80_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K49_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「诶诶——不用这么着急吧？」
			PRINTFORMDW   觉还是闲庭漫步的样子。
		CASE 0
			PRINTFORMW 「时间不够了吗」
		CASE 1
			PRINTFORMW 「啊啊，要是你的话，时间停止瞬间就能到吧」
	ENDSELECT
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_日常系_派生.ERB


code:
;==================================================
;302,身体接触
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_302
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_302
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_302_1
;TCVAR:303=0
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;浴场
[SKIPSTART]
;IF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
;	SELECTCASE TFLAG:SELECTCOM的分岐
;		CASE 1
;		CASE 0
;		CASE -1
;	ENDSELECT
;ELSE
;	SELECTCASE TFLAG:SELECTCOM的分岐
;	CASE 1
;	CASE 0
;		SELECTCASE  关系_310()
;		CASE 0
;			CALL 厌弃_49
;		CASE 16
;		CASE 4 TO 6
;			SELECTCASE RAND:4
;				CASE 0
;					PRINTFORML 「
;				CASE 1
;					PRINTFORML 「
;				CASE 2
;					PRINTFORML 「
;				CASE 3
;					PRINTFORML 「
;			ENDSELECT
;		CASE 3
;			SELECTCASE RAND:4
;				CASE 0
;					PRINTFORML 「
;				CASE 1
;					PRINTFORML 「
;				CASEELSE
;					PRINTFORML 「
;			ENDSELECT
;		CASE 2
[SKIPEND]
		IF TFLAG:SELECTCOM的分岐 !=-1
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「嗯…随便你吧」
					PRINTFORML 「毕竟已经是这样的关系了呢」
					PRINTFORML 「被做这种事情，也无所谓了」
					PRINTFORMDW   有些不情愿，但还是任凭摆布。
				CASE 1
					PRINTFORML 「…这样很痒的」
					PRINTFORML 「我说，要摸到什么时候呢」
					PRINTFORMDW   摸到古明地小姐舒服为止哦。
					PRINTFORML 「再这样下去，可要发火了」
					PRINTFORMDW   完全看不出要发火的样子。
					PRINTFORML 「真是，拿你没办法呢」
				CASEELSE
					PRINTFORML 「像这样抚摸有什么意思吗，理解不能」
					PRINTFORMDW   假如是古明地小姐的话就很好玩了。
					PRINTFORML 「…我可不是你的玩具」
					PRINTFORMDW   绝对没有这个意思！
			ENDSELECT
[SKIPSTART]
;		CASEELSE
;			SELECTCASE RAND:4
;				CASE 0
;					PRINTFORML 「
;					PRINTFORML 「
;					PRINTFORML 「
;				CASE 1
;					PRINTFORML 「
;					PRINTFORML 「
;					PRINTFORML 「
;				CASEELSE
;					PRINTFORML 「
;					PRINTFORML 「
;					PRINTFORML 「
;			ENDSELECT
;		ENDSELECT
;
;ENDIF
[SKIPEND]
		ELSE
			SELECTCASE RAND:4
				CASE 0
					PRINTFORML 「不要随便动手动脚」
					PRINTFORMDW   难掩脸上嫌恶的表情。
				CASE 1
					PRINTFORML 「喂喂，我的身体可不是由你随意使用的」
					PRINTFORMDW   毫无回旋余地，被讨厌了。
				CASEELSE
					PRINTFORML 「噫噫噫——别碰我！」
					PRINTFORMDW   发出厌恶的声音闪开了。
			ENDSELECT
		ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_身体接触.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_一般事件_日终.ERB


code:
@M_KOJO_NK_IRAIEXIST_K49(IRAI_NO)
#DIM  IRAI_NO   ;抑制させる一般依頼ナンバー
;動きを抑制させたい場合は、”RETURN 0”に変更すること
SELECTCASE IRAI_NO
	;掃除を手伝って（発生条件：TARGETがメインマップ在住）
	CASE 1
		RETURN 1
	;お花に水をあげて（発生条件：TARGETがMASTER侵入可能の自宅住まいかつ、メインマップ在住かつ、親密２以上）
	CASE 2
		RETURN 1
	;いっしょにあそぼ（発生条件：TARGETがTALENT:幼稚持ち）
	CASE 3
		RETURN 1
	;料理上手になりたい（発生条件：TARGETの料理技能がMASTER未満かつ、MASTERの料理技能が２以上かつ、親密が３以上）
	CASE 4
		RETURN 1
	;特訓につきあって（発生条件：TARGETの戦闘能力がMASTER以下かつ、親密が２以上かつ人里以外）
	CASE 5
		RETURN 1
	;誰か教えて！（発生条件：TARGETの教養がMASTER以下）
	CASE 6
		RETURN 1
	;大掃除が終わらない（発生条件：TARGETがメインマップ在住かつ、冬の15日から31日までかつ、親密が３以上）
	CASE 7
		RETURN 1
	;手紙を届けて（発生条件：TARGETの信頼度が30以上かつ、TARGETに文通相手が設定されている（FUNC_IRAI.ERBの965目以降に存在）
	CASE 8
		RETURN 1
	;誰かの落とし物（発生条件：TARGETの信頼度が30以上）
	CASE 9
		RETURN 1
	;どうしてもみつからない(そのまま落ちてる)（発生条件：TARGETの信頼度が30以上）
	CASE 10
		RETURN 1
	;どうしてもみつからない(誰かが拾ってる)（発生条件：TARGETの信頼度が30以上）
	CASE 11
		RETURN 1
	;懲らしめて！（発生条件：TARGETのCSVに戦闘能力が１以上ある場合）
	CASE 12
		RETURN 1
	;うまい魚が食べたいなぁ（発生条件：わかさぎ姫以外）
	CASE 13
		RETURN 1
	;薪を切らしてる（未実装）
	CASE 14
		RETURN 1
	;あなたに抱かれたい（発生条件：セフレor愛欲かつ溜まってる度700以上 or ヤリマン）
	CASE 15
		RETURN 1
	;お悩み相談（発生条件：MASTERの話術技能が1以上）
	CASE 16
		RETURN 1
	[SKIPSTART]
	;現状無し
	CASEELSE
		RETURN 1
	[SKIPEND]
ENDSELECT

;==================================================
;依頼口上・各依頼で共通の口上
;==================================================
@M_KOJO_NK_IRAI_K49(ROLE, SCENE, IRAI_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  IRAI_ID  ;依頼自体のID
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
#DIM  CHK_ID   ;依頼IDだけ抜き出したもの
#DIMS IRAI_NAME;依頼名
CHK_ID    = IRAI_ID % 1000
CLIENT_ID = IRAI_ID_TO_CLIENT(IRAI_ID)
IRAI_NAME = STR_DATA_IRAI(IRAI_ID, "依頼名", CLIENT_ID)
RESULT = 0
IF CHK_ID > 100
	TRYCALLFORM M_KOJO_NK_IRAI_%IRAI_NAME%_K49(ROLE, SCENE, CLIENT_ID)
ELSE
	TRYCALLFORM M_KOJO_NK_IRAI_{CHK_ID}_K49(ROLE, SCENE, CLIENT_ID)
ENDIF
SIF RESULT
	RETURN 1
;--------------------------------------------------
;ここにあるのは各依頼で共通の口上です
;依頼ごとの口上を表示した場合は共通の口上は表示されません
;【】で囲ってあるのは口上前後の地の文や発生する処理です
;WAITをするか等の目安にしてください（L,WはそれぞれPRINTFORML,PRINTFORMLの略）
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"
;●依頼を持ちかけられる時
;【W どうやら［彼女］は［あなた］に頼み事があるようだ】
;【◆口上】
;【依頼データ表示】
;【INPUT（受託するかY/N）】

CASE "依頼非受託時"
;●内容だけ見て受託しなかった時
;【L ［あなた］は丁重にお断りした】
;【◆口上】
;【W ［彼女］は残念そうな顔をしている】

CASE "依頼受託時"
;●依頼を受託した時
;【W ［あなた］は［彼女］の依頼を受けた】
;【◆口上】

CASE "依頼確認時"
;●[366]で依頼内容を依頼人に確認した時
;【◆口上】
;【依頼データ表示】
;【INPUT（破棄するかY/N）】

CASE "依頼破棄時"
;●受託した依頼を破棄する時
;【◆口上】
;【W 依頼を破棄しました。】

CASE "依頼実行直前"
;●[367]で依頼を実行する時、実行処理の前に呼び出される
;※依頼によって状況が大きく異なるので共通口上は非推奨
;【◆口上】
;【実行時の地の文・ソース等】
;【▼下の口上に続く】
	IF ROLE == "CLIENT"
	;（共通）CLIENT：依頼実行の対象と依頼主（口上主）が同一の場合（主に特訓系ですが一緒に捜索等をした場合も含まれます）

	ELSEIF ROLE == "TARGET"
	;（共通）TARGET：口上主が依頼実行の対象である場合（主に配達系ですが捜索等をした際、TARGETにしていた場合も含まれます）

	ENDIF
CASE "依頼実行直後"
;●[367]で依頼を実行する時、実行処理の後に呼び出される
;※依頼によって状況が大きく異なるので共通口上は非推奨
;【▲上の口上から続き】
;【◆口上】
;【達成時・CLIENT：▼下の口上に続く】
;【達成時・TARGET：忘れずに［依頼主］に報告しよう】
	IF ROLE == "CLIENT"
	;（共通）CLIENT：依頼実行の対象と依頼主（口上主）が同一の場合（主に特訓系ですが一緒に捜索等をした場合も含まれます）
		SELECTCASE CFLAG:CLIENT_ID:依頼状況
		CASE 2
		;実行後未解決

		CASE 3
		;実行後達成

		CASE 6
		;実行後失敗（現在「06_誰か教えて！」のみ）

		ENDSELECT
	ELSEIF ROLE == "TARGET"
	;（共通）TARGET：口上主が依頼実行の対象である場合（主に配達系ですが捜索等をした際、TARGETにしていた場合も含まれます）
		SELECTCASE CFLAG:CLIENT_ID:依頼状況
		CASE 2
		;実行後未解決

		CASE 3
		;実行後達成

		CASE 6
		;実行後失敗（現在「06_誰か教えて！」のみ）

		ENDSELECT
	ENDIF
CASE "成功報告時"
;●報告時（成功）
;【依頼実行と報告が同時の時：▲上の口上から続き】
;【◆口上】
;【ソースの入手・アイテム等の報酬獲得】

CASE "失敗報告時"
;○直接失敗報告は現在「06_誰か教えて！」のみ
;●報告忘れ・期限切れになった際、遭遇時の最後に呼び出される
;（遭遇時）【挨拶等】→【機嫌の良し悪し】→【劣情察知】→【祭日イベント】→【◆ココ！】（尚、依頼失敗判定があるとデートのお誘いは発生しません）
;【◆口上】
;○機嫌の変化や追加のペナルティ等は口上側で処理してください

CASE "依頼報告不要"
;○一般依頼では現在「02_お花に水をあげて」「09_誰かの落とし物」のみ
;●起床時、報告不要依頼を達成していた場合に呼ばれる口上
;（起床時）【起床メッセージ】→【X時間寝た等】→【◆ココ！】→【おみくじ・補充等】→【一日開始】
;○地の文はありません
;○口上主がその場にいなくても表示されます（MASTERが寝る時のイベント口上と同じタイプ）

ENDSELECT
RETURN 1

;==================================================
;依頼口上・一般依頼01：掃除を手伝って
;==================================================
@M_KOJO_NK_IRAI_1_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
	;先に掃除してしまっていた場合
	;【◆口上】
	;【W ［彼女］の部屋は十分にきれいだ】
	;【▼そのまま下の口上へ】

		RETURN 0
	ELSE
	;一緒に掃除する場合
	;【◆口上】
	;【W ［あなた］は［彼女］と協力して部屋の掃除を行なった】
	;【▼そのまま下の口上へ】

		RETURN 0
	ENDIF
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：低級素材
;【▲上の口上から続き】
;【◆口上】
;【報酬獲得】

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼02：お花に水をあげて
;==================================================
@M_KOJO_NK_IRAI_2_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;【◆口上】
;【W ［あなた］は［依頼主］の家の鉢植えや植木に水をあげた】
;【▼そのまま下の口上へ】
	IF ROLE == "CLIENT"
	;水やりした時、依頼主である口上主がTARGETの場合

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;水やりした時、依頼主ではない口上主がTARGETの場合

		RETURN 0
	ENDIF
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
	IF ROLE == "CLIENT"
	;水やりした時、依頼主である口上主がTARGETの場合
	;この場合はそのまま下の口上へ続きます

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;水やりした時、依頼主ではない口上主がTARGETの場合

		RETURN 0
	ENDIF
CASE "成功報告時"
;報酬：\500

	RETURN 0
CASE "失敗報告時"

	RETURN 0
CASE "依頼報告不要"

	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼03：いっしょにあそぼ
;※この依頼は[幼稚]を持っているキャラのみ発生します
;==================================================
@M_KOJO_NK_IRAI_3_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
;【◆口上】
;【W ［あなた］は［彼女］と遊んだ】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：好感度と信頼度のみ（機嫌が良くなる）
;【▲上の口上から続き】
;【◆口上】

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼04：料理上手になりたい
;==================================================
@M_KOJO_NK_IRAI_4_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
;【◆口上】
;【L ［あなた］は［彼女］と一緒に料理をした】
;【W ［料理名］を作ります】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：\500
;【▲上の口上から続き】
;【◆口上】
;【報酬獲得】
;【L できた料理は二人でいっしょに頂いた】
;【食事効果（料理採点）】

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼05：特訓につきあって
;==================================================
@M_KOJO_NK_IRAI_5_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
;【◆口上】
;【W ［あなた］は［彼女］と弾幕ごっこの特訓をした】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：\500
;【▲上の口上から続き】
;【◆口上】
;【報酬獲得】

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼06：誰か教えて！
;==================================================
@M_KOJO_NK_IRAI_6_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
	IF IS_LIBRARY(CFLAG:MASTER:現在位置) && TARGET == CLIENT_ID
	;［しらべもの］と［教えてあげる］が重なっている場合
	;【◆口上】
	;【L ［あなた］は［彼女］の疑問に答えるために［現在地］を訪れた】
	;【L ここなら役に立つ資料が見つかりそうだ】
	;【INPUT（しらべもの/教えてあげる）】
	;【しらべもの＞［あなた］と［彼女］は［現在地］で調べ物をした】
	;【▼そのまま下の口上へ】
	;【教えてあげる＞［教えてあげる］へジャンプ】

		RETURN 0
	ELSEIF IS_LIBRARY(CFLAG:MASTER:現在位置)
	;［しらべもの］をした時、依頼主ではない口上主がTARGETの場合
	;【◆口上】
	;【［あなた］は［現在地］で調べ物をした】
	;【▼そのまま下の口上へ】

		RETURN 0
	ELSE
	;［教えてあげる］時（依頼主がTARGET）
	;【◆口上】
	;【L ［あなた］は［彼女］の疑問に答えた】
	;【成功：［彼女］の疑問は氷解した！】
	;【失敗：［彼女］は納得できなかったようだ……】
	;【▼そのまま下の口上へ】

		RETURN 0
	ENDIF
CASE "依頼実行直後"
	;【▲上の口上から続き】
	;【◆口上】
	SELECTCASE CFLAG:CLIENT_ID:依頼状況
	CASE 2
	;［しらべもの］をした時
		IF ROLE == "CLIENT"
		;一緒に［しらべもの］をした時

			RETURN 0
		ELSEIF ROLE == "TARGET"
		;依頼主ではない口上主の前で［しらべもの］をした時

			RETURN 0
		ENDIF
	CASE 3
	;成功した時
	;【▼そのまま下の口上へ】

		RETURN 0
	CASE 6
	;失敗した時
	;【▼そのまま失敗報告時の口上へ】

		RETURN 0
	ENDSELECT
CASE "成功報告時"
;報酬：\500

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼07：大掃除が終わらない
;==================================================
@M_KOJO_NK_IRAI_7_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
	IF YOGORE:(GET_CHARAHOME(TARGET)) < 1000
	;先に掃除してしまっていた場合
	;【◆口上】
	;【W ［彼女］の部屋は十分にきれいだ】
	;【▼そのまま下の口上へ】

		RETURN 0
	ELSE
	;一緒に掃除する場合
	;【◆口上】
	;【W ［あなた］は［彼女］と協力して徹底的に部屋を掃除した】
	;【▼そのまま下の口上へ】

		RETURN 0
	ENDIF
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：\1500
;【▲上の口上から続き】
;【◆口上】
;【報酬獲得】

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼08：手紙を届けて
;※この依頼はキャラによっては発生しません
;==================================================
@M_KOJO_NK_IRAI_8_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼では手紙を渡される側の口上です
;【◆口上】
;【W ［あなた］は［彼女］に預かっていた手紙を渡した】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】

	RETURN 0
CASE "成功報告時"
;報酬：素材4つ

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼09：誰かの落とし物
;==================================================
@M_KOJO_NK_IRAI_9_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼では落とし物を渡される側の口上です
;【◆口上】
;【W ［あなた］は［彼女］に預かっていた落とし物を返した】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】

	RETURN 0
CASE "成功報告時"
;報酬：上級素材

	RETURN 0
CASE "失敗報告時"

	RETURN 0
CASE "依頼報告不要"

	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼10：どうしてもみつからない（場所探しパターン）
;==================================================
@M_KOJO_NK_IRAI_10_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;【◆口上】
;【W あたりを探していた［あなた］はついに探していた落とし物を発見した】
;【▼そのまま下の口上へ】
	IF ROLE == "CLIENT"
	;依頼主である口上主と一緒に発見した場合

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;発見した時、依頼主ではない口上主がTARGETの場合

		RETURN 0
	ENDIF
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
	IF ROLE == "CLIENT"
	;依頼主である口上主と一緒に発見した場合

		RETURN 0
	ELSEIF ROLE == "TARGET"
	;発見した時、依頼主ではない口上主がTARGETの場合

		RETURN 0
	ENDIF
CASE "成功報告時"
;報酬：上級素材2つ

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼11：どうしてもみつからない（人物探しパターン）
;==================================================
@M_KOJO_NK_IRAI_11_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼では失くしもの持っていた側の口上です
;【◆口上】
;【W 聞き込みを続けていた［あなた］はついに探していた落とし物を発見した】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】

	RETURN 0
CASE "成功報告時"
;報酬：\3200

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼12：懲らしめて！
;==================================================
@M_KOJO_NK_IRAI_12_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼では討伐される側の口上です
	IF CANNOT_DANMAKU() == 1
	;屋内のとき（勝負できない）
	;【◆口上】
	;【W 屋外で挑もう…】

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 2
	;仕事中（勝負できない）
	;【◆口上】
	;【W お取り込み中だ…】

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 3
	;あなたが疲労中（勝負できない）
	;【◆口上】
	;【W 今は疲れている…】

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 4
	;口上主が疲労竜（勝負できない）
	;【◆口上】
	;【W 今挑むのはフェアじゃない…】

		RETURN 0
	ELSEIF CANNOT_DANMAKU() == 5
	;既に今日一度弾幕勝負をしている（勝負できない）
	;【◆口上】
	;【W 今日はもう挑めない…】

		RETURN 0
	ELSE
	;【◆口上】
	;【W 勝負開始！！】
	;【以降はそのまま弾幕口上が呼ばれます】

		RETURN 0
	ENDIF
	;【▼そのまま下の口上へ】
CASE "依頼実行直後"
;○この依頼では討伐される側の口上です
	IF CFLAG:CLIENT_ID:依頼状況 == 2
		IF CANNOT_DANMAKU() == 0
			;負け犬
			;【▲上の口上から続き】
			;【L ［彼女］の討伐に失敗した……】
			;【W ……こうなったら後日出直すしかない】
			;【◆口上】
			RETURN 0
		ELSE
			;挑めなかった場合
			;【▲上の口上から続き】
			;【◆口上】
			RETURN 0
		ENDIF
	ELSEIF CFLAG:CLIENT_ID:依頼状況 == 3
	;勝利
	;【▲上の口上から続き】
	;【W ［彼女］を懲らしめた！】
	;【◆口上】

		RETURN 0
	ENDIF
CASE "成功報告時"
;報酬：賞金（時価）

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼13：うまい魚が食べたいなぁ
;==================================================
@M_KOJO_NK_IRAI_13_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"
;○この依頼は依頼主がTARGETです
;【◆口上】
;【L ［あなた］は［彼女］にうまい魚を渡した】
;【L 何だか生きる希望がわいてきたよ。】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "依頼実行直後"
;○この依頼は必ず実行後達成します
;【▲上の口上から続き】
;【◆口上】
;【▼そのまま下の口上へ】

	RETURN 0
CASE "成功報告時"
;報酬：白米３個

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT

;==================================================
;依頼口上・一般依頼16：お悩み相談
;==================================================
@M_KOJO_NK_IRAI_16_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"

	RETURN 0
CASE "依頼実行直後"
	IF TFLAG:SELECTCOM的分岐 == 1
		;正解の選択肢
	ELSEIF TFLAG:SELECTCOM的分岐 == 2
		;ハズレの選択肢だったが逆に正解
	ELSEIF TFLAG:SELECTCOM的分岐 == -1
		;ハズレの選択肢
	ELSEIF TFLAG:SELECTCOM的分岐 == -2
		;正解の選択肢だったが逆にハズレ
	ENDIF
	RETURN 0
CASE "成功報告時"
;報酬：野菜か果物

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
CASE "口上委託率"
;＜この依頼特有の分岐です。(RESULT:100の値)％の確率で"口上専用"が発生します＞
	RESULT:100 = 0

;＜RESULT:YYに0以外の数値を入れると、該当のお悩みを発生させなくできます（詳しくは一般依頼16_お悩み相談参照）＞
;1,2:弾幕ごっこの悩み 3,4:晩酌の悩み 5,6:本の悩み 7,8:香料の悩み
;9,10:音楽の悩み 11,12:服の悩み 13:髪型の悩み 14:参拝の悩み 15:ダイエットの悩み
;16,17:菜園の悩み 18:休日の悩み 19:人気の悩み 20:集中力の悩み 21:御三家の悩み 22:進化の悩み
	RESULT:1 = 0
	RESULT:2 = 0
	RETURN 1
CASE "口上専用"
;＜この依頼特有の分岐です。(口上委託率)％の確率で発生します＞
;16,お悩み相談 の場合
;RESULT        発生判定,0だと発生しません
;RESULT:1      正解の選択肢（ただしRESULT:2が0だと、一定確率で逆にハズレる）
;RESULT:2      逆張り正解／ハズレ判定の消去,1だと逆張りが無くなります
;RESULTS:0     お悩み文章（自動で『』で囲まれます）
;RESULTS:1～3  選択肢１～３
;何も発生しない状態になると無限ループになるので注意してください
;●追記メモ
;RESULT:1を4～6にするとそれぞれ1～3がハズレ（残り2つが正解）になります
;RESULT:1を7にするとどれも正解になります
;RESULT:1を8にするとどれもハズレになります
;1～3以外の場合は逆張り判定が自動で無くなります
	RESULT = 0

;▼サンプル
[SKIPSTART]
	SELECTCASE RAND:5
	CASE 0
		;このお悩みは、恋慕で発生し、親密によって正解が変わります
		SIF 关系_310()>3
			RESULT = 1
		RESULTS:0 = 赤ちゃん作るなら何人がいいかな？
		RESULTS:1 = ５人でバスケチームを作ろう
		RESULTS:2 = ９人で野球チームを作ろう
		RESULTS:3 = １１人でサッカーチームを作ろう
		IF ABL:親密 >= 100
			RESULT:1 = 3
		ELSEIF ABL:親密 >= 20
			RESULT:1 = 2
		ELSE
			RESULT:1 = 1
		ENDIF
	CASE 1
		;このお悩みは、無条件で発生し、正解は絶対に2番で固定化されます
		SIF 1
			RESULT = 1
		RESULTS:0 = どのジョブがいいかな？
		RESULTS:1 = かっこいしナイト
		RESULTS:2 = シーフが便利だよ
		RESULTS:3 = 青魔道士最強！
		RESULT:1 = 2
		RESULT:2 = 1
	CASE 2
		;このお悩みは、夏の月に発生し、正解がランダムで変わります
		SIF DAY:2 == 2
			RESULT = 1
		RESULTS:0 = どの水着を買おうかな？
		RESULTS:1 = かわいいワンピース
		RESULTS:2 = クールなセパレート
		RESULTS:3 = 色っぽいビキニ
		RESULT:1 = RAND:3 + 1
	CASE 3
		;このお悩みは、無条件で発生し、1番と3番が正解になります（5 - 3 = 2番がハズレになります）
		SIF 1
			RESULT = 1
		RESULTS:0 = ワンちゃんの名前は何にしよう？
		RESULTS:1 = ボロンゴ
		RESULTS:2 = ゲレゲレ
		RESULTS:3 = プックル
		RESULT:1 = 5
	CASE 4
		;このお悩みは、無条件で発生し、どれを選んでも正解になります
		SIF 1
			RESULT = 1
		RESULTS:0 = 夕飯は何がいい？
		RESULTS:1 = 肉じゃが
		RESULTS:2 = コロッケ
		RESULTS:3 = 焼き魚
		RESULT:1 = 7
	ENDSELECT
[SKIPEND]

	SIF !RESULT
		RESTART
	RETURN 1
ENDSELECT

;==================================================
;依頼口上・固有依頼101：
;固有依頼の仕様はキャラによって異なりますが依頼番号は101～で共通です
;"依頼名"部分に依頼名を入れて下さい
;==================================================
@M_KOJO_NK_IRAI_依頼名_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"

	RETURN 0
CASE "依頼実行直後"

	RETURN 0
CASE "成功報告時"
;報酬：

	RETURN 0
CASE "失敗報告時"

	RETURN 0
CASE "依頼報告不要"

	RETURN 0
ENDSELECT

[SKIPSTART]
;＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
;依頼口上テンプレのテンプレ
;==================================================
;依頼口上・一般依頼Y：
;==================================================
@M_KOJO_NK_IRAI_Y_K49(ROLE, SCENE, CLIENT_ID)
#DIMS ROLE     ;キャラの立場、依頼者かそうでないか
#DIMS SCENE    ;セリフの表示されるタイミング
#DIM  CLIENT_ID;依頼者IDだけ抜き出したもの
;--------------------------------------------------
;RETURN 0 の部分は共通の口上が表示されます
;依頼ごとの口上を表示する部分は RETURN 0 を RETURN 1 にしてください
;--------------------------------------------------
SELECTCASE SCENE
CASE "依頼提示時"

	RETURN 0
CASE "依頼非受託時"

	RETURN 0
CASE "依頼受託時"

	RETURN 0
CASE "依頼確認時"

	RETURN 0
CASE "依頼破棄時"

	RETURN 0
CASE "依頼実行直前"

	RETURN 0
CASE "依頼実行直後"

	RETURN 0
CASE "成功報告時"
;報酬：

	RETURN 0
CASE "失敗報告時"

	RETURN 0
;CASE "依頼報告不要"
;＜この依頼にはありません＞
;	RETURN 0
ENDSELECT
[SKIPEND]

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_依頼.ERB


code:
[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART～SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K49

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART～SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_ONABARE_2(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K49

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART～SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K49

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1するとコマンドをキャンセルします
;RETURN 0なら通します
;CFLAG:破瓜キャンセル口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（デート帰りキスなど）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由で诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_NK_EVENT_K49_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K49_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------

;==================================================
;贈り物イベント
;==================================================
@M_KOJO_NK_EVENT_K49_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(DISH_TASTE, "ほげほげ/")を使うと特定の属性を判定できます。
;GIFT_ID      これ単体では使いません。以下の式内関数を使うとデータを抽出できます（こだわりたい人用）
;　GET_GIFTDATA(GIFT_ID, "回数")    貰った（あげた）回数
;　GET_GIFTDATA(GIFT_ID, "得点")    得点（1～999）,口上テンプレ内では用意されてます。
;　GET_GIFTDATA(GIFT_ID, "日付")    貰った（あげた）日付（1～9999）
;　GET_GIFTDATA(GIFT_ID, "場所")    買った場所（デートの行き先）
;　GET_GIFTDATA(GIFT_ID, "形容詞")  形容詞番号（贈り物_形容詞.erb参照）
;　GET_GIFTDATA(GIFT_ID, "本体")    本体番号（贈り物_本体.erb参照）
;--------------------------------------------------------------------------------------------------
;デート帰りに口上主があなたに贈り物を渡す（陥落や好感度に関わらず親密5以上から発生）
;評価点は701～999（渡すキャラ本人の評価）
;--------------------------------------------------------------------------------------------------
IF ARG == 1
	;PRINTFORML 「%GIFT_NAME%をあげるから大事に使って」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	;IF STRCOUNT(SENSE, "かわいい/")
	;	PRINTFORML 「かわいいプレゼントを貰っちゃった」
	;ELSEIF 評価点 >= 800
	;	PRINTFORML 「とっても素敵なプレゼントを貰っちゃった」
	;ELSE
	;	PRINTFORML 「素敵なプレゼントを貰っちゃった」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	;IF STRCOUNT(SENSE, "身につける/")
	;	PRINTFORML 「明日からこれを付けて行こうっと」
	;ELSE
	;	PRINTFORML 「明日からこれを持って行こうっと」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	;PRINTFORML 「とりあえず飾っておこう」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	;PRINTFORML 「私これ嫌いなのよね～」
	RETURN 1
ENDIF
RETURN 1

;==================================================
;ムシバトル
;ムシバトルの口上は少し特殊で、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長はアレキサンドラトリバネアゲハの全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
CASE "試合前"
	;-------------------------------------------------
	;キャラセレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ぶっとばしてさしあげますわ！」
	ENDIF
CASE "戦場に出した"
	;-------------------------------------------------
	;"【（キャラ）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%MUSHI_NAME%！キミにきめた！」
	ENDIF
CASE "攻撃時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ぶっとばせ！%MUSHI_NAME%！」
	ENDIF
CASE "倒れた時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「ああっ！私の%MUSHI_NAME%がっ！」
	ENDIF
CASE "敗退時"
	;-------------------------------------------------
	;"【（キャラ）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「私のムシが全滅めつめつ……」
	ENDIF
CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%よわーい！」
	ENDIF
CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「%CALLNAME:MASTER%つよーい！」
	ENDIF
CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「やったー！」
	ENDIF
CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「くやし～！」
	ENDIF
CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「私のおかげね！」
	ENDIF
CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「味方が弱い！！」
	ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1

;==================================================
;引力操作
;TCVAR:引力点に場所IDを入れるとその地点に引っ張られていきます
;場所IDと同じ拠点マップでしか効果はありません（博麗神社の境内なら拠点が博麗神社のときだけ）
;条件を付けないと永久に引っ張られ続けるので注意
;RANDは基本的に使えません。CFLAG:今日の運勢にその日のランダム数値（0～999）が入っているのでこれを使うと良いです
;==================================================
@M_KOJO_NK_VENT_K49_GRAVITY(ARG)

SIF 0
	TCVAR:引力点 = 0

;▼共通設定で使われているサンプル
[SKIPSTART]
	;平日の昼間はランダムで遊びに行く
	IF YOUBI_MATCH(DAY, "月火水木金") && INRANGE(TIME, 600, 960)
		SELECTCASE CFLAG:今日の運勢 % 5
		CASE 1
			TCVAR:引力点 = P2境内
		CASE 2
			TCVAR:引力点 = P10縁側
		CASE 3
			TCVAR:引力点 = P11庭
		CASE 4
			TCVAR:引力点 = P25鎮守の森
		CASEELSE
			TCVAR:引力点 = 0
		ENDSELECT
	ENDIF
	;水木曜日に2分の1の確率で遊びに行く
	SIF YOUBI_MATCH(DAY, "水木") && INRANGE(TIME, 720, 1020) && CFLAG:今日の運勢 % 2 == 0
		TCVAR:引力点 = P213鈴奈庵
	;特定の人物が特定の場所にいるとそこへ引っ張られる
		SIF CFLAG:[[白蓮]]:現在位置 == P103本堂 && !CFLAG:[[白蓮]]:诶嘿嘿 && SHIRAHU([[白蓮]])
			TCVAR:引力点 = P103本堂
	;土日に10分の1の確率で特定の人物にくっついてまわる
	SIF YOUBI_MATCH(DAY, "土日") && CFLAG:今日の運勢 % 10 == 0 && !CFLAG:[[さとり]]:诶嘿嘿 && SHIRAHU([[さとり]])
		TCVAR:引力点 = CFLAG:[[さとり]]:現在位置
[SKIPEND]

;==================================================
;スイカ割り
;スイカ割りの口上はムシバトル同様、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;カギ括弧は自動で付きます
;"衝突"時のみ、口上色が自動で付きます
;"衝突"時以外は半角26文字（全角13文字）までの文字数制限があります。はみ出ないように気をつけてください
;数パターンあると雰囲気が出ます（%TEXTR( / )%を使うと良い）
;==================================================
@M_KOJO_MESSAGE_NK_COM_K49_SUIKA(ARGS)
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1
	SELECTCASE ARGS
	CASE "衝突"
		;-------------------------------------------------
		;場外に出てあなたがキャラと衝突した際の台詞
		;文字数制限はありません,汎用台詞もありません
		;-------------------------------------------------
		RESULTS = いたっ！ ちょっと、危ないじゃないのよ！
	CASE "そこだ！"
		RESULTS = %TEXTR("そこ！/今！")%
	CASE "近い"
		RESULTS = %TEXTR("近い！近いよ！/近づいてるよ！/あとちょっと！")%
	CASE "遠い"
		RESULTS = %TEXTR("まだ遠いよ/まだまだ～")%
	CASE "かなり遠い"
		RESULTS = %TEXTR("全然遠いよー/まだまだずっと遠いー")%
	CASE "前"
		RESULTS = %TEXTR("前にあるよ/そのまま、そのまま/そっちそっち")%
	CASE "少し前"
		RESULTS = %TEXTR("ちょっとだけ前！/すこーし前/あと一歩！")%
	CASE "後ろ"
		RESULTS = %TEXTR("後ろ向いてる！/逆、逆！/そっちじゃないよー")%
	CASE "少し後ろ"
		RESULTS = %TEXTR("すぐ後ろだよ！/すこーし後ろ/一歩後ろ！")%
	CASE "右"
		RESULTS = %TEXTR("右だよ/右、右/もっと右")%
	CASE "少し右"
		RESULTS = %TEXTR("ちょっとだけ右/まだ右かな")%
	CASE "左"
		RESULTS = %TEXTR("左だよ/左、左/もっと左")%
	CASE "少し左"
		RESULTS = %TEXTR("ちょっとだけ左/まだ左かな")%
	ENDSELECT
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_其它事件.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_日常系_351～368.ERB


code:
;日記口上

;一日の終了時の流れ
;@DIARY_TEXT_K49（日記本文）→@DIARY_AFTER_CHECK_K49（フラグの処理）

;◆日記の仕様◆
;※１@DIARY_BEFORE_CHECK_K49で日記のフラグが立つ。
;→未読フラグ(2)が立っていると一日の終わりにデイリーイベントとして日記が読まれる（既読になる）。
;→※２未読フラグ(3)が立っていると[日記を読む]で読む事ができる。読むと既読(1)になる。
;※１各所イベント口上やコマンド口上でフラグを立たせても良いです。
;※２基本的には未読(2)推奨です。既読(1)、未読(3)はワンステップ必要。

;[日記を読む]には、持ち主が[恋慕]なら自由に読むことができ、
;そうでない場合は恋慕でない人物がその場に居ない時、もしくは時間停止することで盗み読みできる。
;拠点住民でないキャラは恋慕であれば自宅（お招き部屋）で読むことができる。

;MAX_DIARY_PAGE:49:0　キャラ番号49の日記の最大ページ数　限度は101（1～100）
;DIARY:49:YY　　　　　キャラ番号49の日記番号YYの情報
;　　 3=未読　　　　　デイリーイベントで読まれない。[日記を読む]で読むと既読になる。
;　　 2=未読　　　　　デイリーイベントで読まれる。読まれるまでは[日記を読む]では読めない。読まれると既読になる。
;　　 1=既読　　　　　デイリーイベントで読まれない。[日記を読む]で読める。
;　　 0=読めない　　　未解禁。
;PAGESET:49:YY　　　　キャラ番号49の実際に書かれたYYページ目の日記番号。
;=============================
@DIARY_NK_K49_EXIST
;存在判定
;0だと日記は書かれません。
;=============================
RETURN 1

;=============================
@DIARY_NK_AFTER_CHECK_K49
;デイリーイベントで日記が読まれた際の後処理。
;フラグの管理等自由に扱って良い。

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

;=============================
@DIARY_NK_BEFORE_CHECK_K49
;常時チェックされる日記の状態情報。
;ここでDIARY:49:YYの更新を行う。
;※DIARY:49:0番は使えません。

;ここで汎用発生条件を記入する
;コマンド別の発生条件はM_KOJOの各ファイル中で追加してください。

;基本的に発生条件には"DIARY:49:YY == 0"を入れること。
;そうしないと同じ日記が書かれたりしてしまう。

;DIARY:49:YY　　　　キャラ番号49の日記番号YYの情報
;　　 3=未読　　　　デイリーイベントで読まれない。[日記を読む]で読むと既読になる。
;　　 2=未読　　　　デイリーイベントで読まれる。読まれるまでは[日記を読む]では読めない。読まれると既読になる。
;　　 1=既読　　　　デイリーイベントで読まれない。[日記を読む]で読める。
;　　 0=読めない　　未解禁。

;○未読(2)にする場合（基本）
;未読(2)にするとデイリーイベントとして発生し、一日の終わりに１つだけ読まれる。
;複数のページが未読(2)になっている場合は番号が小さいものが読まれ、それ以外はリセット(0)される。
;その為、複数同時に発生すると、発生したのに読まれずリセットされる場合もある。
;未読(2)にするには単純にフラグに2を入れるだけで良い。

;例１)初対面
;SIF DIARY:49:YY == 0 && CFLAG:49:面識
;	DIARY:49:YY = 2

;○未読(3)にする場合（応用）
;未読(3)にするとデイリーイベントとして読まれず、書かれた時点で[日記を読む]によって読めるようになる。
;プレイヤーが自主的に読まない限り読まれず、一日に複数ページ加筆される場合もある。
;未読(3)にするにはフラグに3を入れた上で、CALL CHARA_DIARY_PAGESETTING(49, YY)をする必要がある。

;例２）好感度100以上
;IF DIARY:49:YY == 0 && CFLAG:49:好感度 >= 100
;	DIARY:49:YY = 3
;	CALL CHARA_DIARY_PAGESETTING(49, YY)
;ENDIF

;例３）例２の日記が読まれた上で好感度1000以上
;これをするとYYを読んだ直後にZZが書き込まれることも起こる。
;IF DIARY:49:ZZ == 0 && DIARY:49:YY == 1 && CFLAG:49:好感度 >= 1000
;	DIARY:49:ZZ = 3
;	CALL CHARA_DIARY_PAGESETTING(49, ZZ)
;ENDIF

;▽おせっかいな注釈
;ファーストキスは基本的に全員[キス未経験]を所持しているので、"!TALENT:49:キス未経験"で判定できます。
;デート帰りのキスで分岐したいならデート帰りのキス口上でフラグを立てます。
;その場合、通常のファーストキス喪失と重複しないように気をつけましょう。
;処女喪失は初期設定で処女喪失している場合もあるので、処女喪失口上の方でフラグを立てた方が良いです。
;その他告白・陥落等のイベントは各種イベント口上でフラグを立てます。初対面はそっちでも大丈夫です。
;日付を正確に測るには別途フラグが必要です。例えば初めて会った日とか。
;=============================
;MAXPAGEはここで記入する
MAX_DIARY_PAGE:49:0 = 1

;=============================
@DIARY_NK_TEXT_K49, PAGENUM, MODE, PAGECOUNT
;日記の内容
;PAGENUM   = 日記番号（日記のパターン）
;MODE      = "デイリー":一日終了時のデイリーイベントでの読み上げ
;          = "コマンド":[日記を読む]コマンドでの読み上げ
;PAGECOUNT = 何ページ目に書かれているか
;=============================
#DIM PAGENUM
#DIMS MODE
#DIM PAGECOUNT

;口上色指定あるならコメントアウトを外す
;CALL M_KOJO_COLOR_K49

;グループマッチに日記のIDを入れて、表示させたい顔絵を表示する
;表情・服装・特殊画像をオプション指定で表示（省略可）
;書式は\resources\顔.CSVと下の例を参照

;以下はサンプル
IF MODE == "デイリー"
	IF GROUPMATCH(PAGENUM, 1)
		CALL PRINT_FACE, 49, "発情", "裸", "_1"
	ELSEIF GROUPMATCH(PAGENUM, 2)
		CALL PRINT_FACE, 49, "笑顔", "服1"
	ELSEIF GROUPMATCH(PAGENUM, 3)
		CALL PRINT_FACE, 49, "怒り"
	ELSE
		CALL PRINT_FACE, 49
	ENDIF
ENDIF

PRINTFORMDL - %CALLNAME:49%の日記　PAGE.{PAGECOUNT} --------------------------------------------------------------------------------------
PRINTL

;※PAGENUM:0は使えません
SELECTCASE PAGENUM
	CASE 1
		PRINTFORML ○月×日
		PRINTFORML 今日から、日記をつける事にした。
ENDSELECT

RESETCOLOR

;=============================
@M_KOJO_NK_MESSAGE_COM_K49_406
;=============================
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_406_1
RETURN RESULT

;=============================
@M_KOJO_NK_MESSAGE_COM_K49_406_1
;コマンド口上
;TFLAG:不影响SOURCE等的SELECTCOM的分岐（誰の日記を読んでいるか）
;TFLAG:不影响SOURCE等的SELECTCOM的分岐が49でない場合は他人の日記なので注意。
;PAGEは書かれてあるページ数。
;SHIRAHU(49)はキャラ49の状態が正常かどうか。
;=============================
#DIM PAGE

;以下はサンプル
PAGE = 0
FOR LOCAL, 0, MAX_DIARY_PAGE:(TFLAG:不影响SOURCE等的SELECTCOM的分岐):0
	IF GROUPMATCH(DIARY:(TFLAG:不影响SOURCE等的SELECTCOM的分岐):LOCAL, 1, 3)
		PAGE ++
	ENDIF
NEXT

IF SHIRAHU(49) && TFLAG:不影响SOURCE等的SELECTCOM的分岐 == 49
;日記を読み終わった後の反応
	IF PAGE > 2
		CALL SPTALK, 49,"通常",0,@"「日記を見せるって…なんだか恥ずかしいな…」//%CALLNAME:49%はまじまじとこちらを見つめている"
		;画像つきトークは最大６行まで。
	ELSE
		PRINTFORML
	ENDIF
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_日記.ERB


code:
;==========================================================
;存在判定
;0だと日記は書かれません。
;==========================================================
@DIARY_NK_K49_EXIST
RETURN 1

;==========================================================
;常時チェックされる日記の状態情報
;簡易版ではCHARAに番号を入れれば自動で処理してくれます
;==========================================================
@DIARY_NK_BEFORE_CHECK_K49
#DIM CHARA
CHARA = 49
MAX_DIARY_PAGE:CHARA:0 = 100
FOR LOCAL, 1, MAX_DIARY_PAGE:CHARA:0 + 1
	RESULT = 0
	TRYCALLFORM DIARY_K{CHARA}_{LOCAL}_HAPPEN
	IF RESULT
		IF !DIARY:CHARA:LOCAL || RESULT:2
			DIARY:CHARA:LOCAL = RESULT:1
			SIF RESULT:1 == 3
				CALL CHARA_DIARY_PAGESETTING(CHARA, LOCAL)
		ENDIF
	ENDIF
NEXT

;==========================================================
;デイリーイベントで日記が読まれた際の後処理。
;フラグの管理等自由に扱って良い。
;==========================================================
@DIARY_NK_AFTER_CHECK_K49

;==========================================================
;日記の内容
;PAGENUM   = 日記番号（日記のパターン）
;MODE      = "デイリー":一日終了時のデイリーイベントでの読み上げ
;          = "コマンド":[日記を読む]コマンドでの読み上げ
;PAGECOUNT = 何ページ目に書かれているか
;==========================================================
@DIARY_NK_TEXT_K49(PAGENUM, MODE, PAGECOUNT)
#DIM PAGENUM
#DIMS MODE
#DIM PAGECOUNT
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;グループマッチに日記のIDを入れて、表示させたい顔絵を表示する
;表情・服装・特殊画像をオプション指定で表示（省略可）
;書式は\resources\顔.CSVと下の例を参照
;以下はサンプル
IF MODE == "デイリー"
	IF GROUPMATCH(PAGENUM, 1)
		CALL PRINT_FACE, 49, "発情", "裸", "_1"
	ELSEIF GROUPMATCH(PAGENUM, 2)
		CALL PRINT_FACE, 49, "笑顔", "服1"
	ELSEIF GROUPMATCH(PAGENUM, 3)
		CALL PRINT_FACE, 49, "怒り"
	ELSE
		CALL PRINT_FACE, 49
	ENDIF
ENDIF
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
PRINTFORMDL - %CALLNAME:49%の日記　PAGE.{PAGECOUNT} --------------------------------------------------------------------------------------
PRINTL
;▼簡易版ではここから自動で表示されます
CALLFORM DIARY_K49_{PAGENUM}

;==========================================================
;日記の発生条件（@DIARY_NK_K49_YY_HAPPEN）
;RETURN    発生：1なら発生
;RESULT:1  形式：2ならデイリーイベントで読まれる
;                  複数の日記が同時に発生すると番号が小さいものだけが1つ読まれ、それ以外に発生した日記は一旦リセットされる
;                3ならデイリーイベントで読まれない
;                  プレイヤーが自主的に読まない限り読まれない
;                  発生した時点で書き込まれ、複数発生すると複数書き込まれる
;                0は読めない,1は既読なので設定しないように
;RESULT:2  リピート：1を入れると同じ日記が繰り返し書き込まれる
;                    その日だけ有効なフラグ（TCVARやTFLAGなど）を使って条件をつけないと大量に書き込まれるので注意
;
;特定のコマンドやイベント時に日記を発生させたい場合は直接その口上内で"DIARY:49:YY = 2"を加えてください
;"DIARY:49:YY = 3"にしたい場合は以下の命令も合わせてください
;"CALL CHARA_DIARY_PAGESETTING(49, YY)"
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;日記の内容（@DIARY_NK_K49_YY）
;PRINT命令だけでオッケー
;==========================================================
@DIARY_NK_K49_1_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_1
PRINTFORML
;==========================================================
@DIARY_NK_K49_2_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_2
PRINTFORML
;==========================================================
@DIARY_NK_K49_3_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_3
PRINTFORML
;==========================================================
@DIARY_NK_K49_4_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_4
PRINTFORML
;==========================================================
@DIARY_NK_K49_5_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_5
PRINTFORML
;==========================================================
@DIARY_NK_K49_6_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_6
PRINTFORML
;==========================================================
@DIARY_NK_K49_7_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_7
PRINTFORML
;==========================================================
@DIARY_NK_K49_8_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_8
PRINTFORML
;==========================================================
@DIARY_NK_K49_9_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_9
PRINTFORML
;==========================================================
@DIARY_NK_K49_10_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_10
PRINTFORML
;==========================================================

;==========================================================
;▼ページを増やすなら以下のテンプレをコピペしてXとYYを代入してください
[SKIPSTART]
;==========================================================
@DIARY_NK_K49_YY_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 =
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K49_YY
PRINTFORML
;==========================================================
[SKIPEND]

;=============================
;406,日記を読む
;コマンド口上
;TFLAG:不影响SOURCE等的SELECTCOM的分岐（誰の日記を読んでいるか）
;TFLAG:不影响SOURCE等的SELECTCOM的分岐が49でない場合は他人の日記なので注意。
;PAGEは書かれてあるページ数。
;SHIRAHU(49)はキャラ49の状態が正常かどうか。
;=============================
@M_KOJO_NK_MESSAGE_COM_K49_406
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_406_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_406_1
IF SHIRAHU(49) && TFLAG:不影响SOURCE等的SELECTCOM的分岐 == 49
	PRINTFORML 「」
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_日記（簡易版）.ERB


code:
;==================================================
;デイリーイベント2,夢精
;親密5以上で発生（来訪キャラのみ）
;▼地の文--------------------------------------------------
;【MASTER】が夢精で汚した下着を洗っていると【TARGET】が飛んできた！
;【TARGET】はそんなもの他の洗濯物と一緒に洗わないでと抗議すると、【MASTER】の手に収まった下着をふんだくり戻っていった…
;【TARGET】　欲情の珠＋1000
;==================================================
@M_KOJO_NK_DAILY_EVENT_K49_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;※コメントアウトすると欲情の珠＋1000（JUEL:11 += 1000）もカットされるので注意
CALL DAILY_MESSAGE_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;デイリーイベント4,物思い
;濃厚精液状態で発生
;▼地の文--------------------------------------------------
;とりとめもない思考に耽っていた【TARGET】は、いつの間にか【MASTER】のことを考えていたことに気づいた
;【TARGET】は明日【MASTER】に会いに行くことにしたようだ
;==================================================
@M_KOJO_NK_DAILY_EVENT_K49_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
CALL DAILY_MESSAGE_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;デイリーイベント12,特訓
;信頼100以上で発生（拠点キャラのみ）
;==================================================
@M_KOJO_NK_DAILY_EVENT_K49_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;コメントアウトできるのはARG:1=1,2のみです
CALL DAILY_MESSAGE_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG:1
	CASE 1
		;特訓を頼まれる
		;～から新技の訓練に付き合って欲しいと言われた
		PRINTFORML
	CASE 2
		;断る
		;～は残念そうだ
		PRINTFORML
	CASE 3
		;～の攻撃！
		;※ここはWAITしないでください
		PRINTFORML
	CASE 4
		IF ARG:2
			;時間停止して回避
			PRINTFORML
		ELSE
			;回避成功
			PRINTFORML
		ENDIF
	CASE 5
		;回避失敗
		PRINTFORML
	ENDSELECT
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_每日事件.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/未动笔/M_KOJO_K49_310_特殊事件.ERB


code:
�P�Ɍ������SOURCE:���b += 100�ȂǂƉ��M���Ă��A�����̊֌W��Ⓒ��������ł��܂���B
�\�[�X�̒ǉ���K�؂ɍs�������ꍇ�A�ȉ��̊֐������M���Ă��������B

�R�}���h���s��ɒǉ��\�[�X������邽�߂̊֐��A�얲�̉�b�Ȃ�@M_KOJO_EXTRASOURCE_COM_K1_300
�֐������݂��Ă��ăR�}���h�����s���ꂽ�ꍇ�A�R�}���h���s���悤���K���ǂݍ��܂��̂ŁA
TFLAG�Ȃǂŕ�������A����̏ꍇ�̂ݒǉ��\�[�X������悤�ɂ��Ă������Ƃ𐄏��B

;
@M_KOJO_EXTRASOURCE_COM_KX_�R�}���h�ԍ�
IF TFLAG:192 == 1 && TALENT:����
	SOURCE:���b += 100
ENDIF

�h���R�}���h�Ŏg���ꍇ��@M_KOJO_EXTRASOURCE_SCOM_KX_SCOMF�ԍ��ɂȂ�܂�
SCOMF�ԍ���\ERB\�R�}���h�֘A\SCOMF�t�H���_���̃t�@�C�������Q�Ƃ��Ă�������

��)�얲�̃V�b�N�X�i�C���ɒǉ��\�[�X������֐�
@M_KOJO_EXTRASOURCE_SCOM_K1_1
IF TALENT:���� || TALENT:�Z�t��
	SOURCE:���b += 100
	SOURCE:PLAYER:���b += 100
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/其它/コマンド口上でソースを追加する方法.txt


code:
; TW4.842古明地觉试制口上
;  作者：name-killed(NK)
;  ＜改変した場合はここに改変者の名前・連絡先を追加する＞
;
;  ＜この口上について語ったりするスペース＞
;
;  ライセンス：
;  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
;    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
;
;  +----+-----------------------------------+
;  | 口上の再配布                           |
;  +----+-----------------------------------+
;  | ○ | 単体での再アップロード            |
;  | ○ | 本体への同梱・口上まとめへの収録  |
;  +----+-----------------------------------+
;  | 再配布を許可する場合の改変             |
;  +----+-----------------------------------+
;  | ○ | 口上の加筆                        |
;  | ○ | 口上の改変・その他改変            |
;  +----+-----------------------------------+
;  | その他                                 |
;  +----+-----------------------------------+
;  | ○ | 他の口上での利用                  |
;  | ○ | 他のeraバリアントでの利用         |
;  | ○ | era以外への流用                   |
;  | ○ | 翻訳・他言語版バリアントへの流用  |
;  | × | 商用利用・金銭のやり取りを伴う利用|
;  | ○ | 二次創作                          |
;  +----+-----------------------------------+
;  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
;    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変
;  ・以下の行為に関しては上記と関係なく、作者であっても禁止とします。
;    １：以下の例外を除き、この口上からライセンス文・添付文章（ファイル名を除く）の内容を変更・削除すること
;        ・次期バージョンから、ライセンスの○・△を×に変更すること
;        ・次期バージョンから、上記の作者と改変者全員の許可があれば、それ以外の変更も
;    ２：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
;  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
;  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/其它/ライセンステンプレ.txt


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_一般事件_情事.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_加虐系.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_反应_性交系.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_反应_性骚扰.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_奉仕系.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_性交系.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;セクハラ系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;310,尻を撫でる
;TFLAG:SELECTCOM的分岐(1=不快(TALENT:臆病なら涙目) 2&&3=恥ずかしがる(TALENT:男嫌い兼MASTERが男なら、身をすくめる) 4=されるがまま)
;CFLAG:诶嘿嘿==2&&TCVAR:20(パンツ無し顔面騎乗(70=クンニ強制 71=フェラチオ強制 72=アナル奉仕) 35=スカート内見せつけ 52=素股)
;CFLAG:诶嘿嘿==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_310
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_310
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_310_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE 1
				PRINTFORML 「…把手拿开」
				PRINTFORMDW   %CALLNAME:MASTER%被甩开了。
			CASE 2 TO 3
				PRINTFORML 「喂喂，少女的那种地方可不能随便乱摸」
				PRINTFORMDW   话语间却没有感觉到特别抵触。
			CASE 4
				PRINTFORML 「呜嗯…这就是你和少女的相处方式吗？」
				PRINTFORMDW   才不是。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;311,抱き付く
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 60=ディープキス 73=ぱふぱふ 74=乳合わせ 77=乳を吸わせる ＶＡ性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_311
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_311
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_311_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	;ELSEIF CHK_DATENOW(CFLAG:LOCAL:约会中)
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE -1
				PRINTFORML 「	噫！去去去！」
				PRINTFORMDW   %CALLNAME:MASTER%被像赶狗一样喝走了。
			CASE 0
				PRINTFORML 「哈嗯…像这样的事情，到底做过多少次呢？」
				PRINTFORMDW   %CALLNAME:MASTER%的脑海开始放起拥抱其它女孩子时的幻灯片。
			CASE 1
				PRINTFORML 「呜…再抱紧些…」
				PRINTFORMDW   觉回抱过来，用触手缠住了%CALLNAME:MASTER%。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;312,キスする
;TFLAG:SELECTCOM的分岐(99=拒絶(キス不可) 1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 50=手淫 60=キス 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_312
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

IF !EXP:49:接吻経験
	IF !CFLAG:睡眠
		PRINTFORML 「初吻可不会就这样随随便便给你」
		PRINTFORMDW   %CALLNAME:MASTER%被果断拒绝了。
	ELSE
		PRINTFORMDL   擅自做这样的事情，可就没有献上初吻的对白了。
		PRINTFORMDW   %CALLNAME:MASTER%更想要丰富些的反应。
	ENDIF
	TFLAG:SELECTCOM的分岐=99
	TFLAG:口上によるCOM成否判定 =-2
	RETURN -2
ELSE
	TFLAG:口上によるCOM成否判定 =0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_312
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_312_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSE
		IF !TALENT:接吻魔
			SELECTCASE TFLAG:SELECTCOM的分岐
				CASE -1
					PRINTFORML 「	走开啦！真恶心啊你」
					PRINTFORMDW   %CALLNAME:MASTER%被嫌弃了。
				CASE 0
					PRINTFORML 「呼呜…有其它女孩子的味道…」
					PRINTFORMDW   这很正常的好吧。
				CASE 1
					PRINTFORML 「啾…咕…」
					PRINTFORMDL   和已经不满足于接吻的觉交织着舌头；
					PRINTFORMDW   双唇分开之时，唇间架起一座银桥。
			ENDSELECT
		ELSE
			PRINTFORML 「啾噜…卟…%UNICODE(0x2764)%哈啊…%CALLNAME:MASTER%的味道真可口呢%UNICODE(0x2764)%」
			PRINTFORMDW   要被吃掉了！
			CFLAG:积攒度=MIN(CFLAG:积攒度+500,1000)
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(27=谷間を見せる 33=胸を揉ませる 53=パイズリ(小分岐は地の文EVENT_MESSAGE_COM_セクハラ.ERB参照) 73=ぱふぱふ 77=乳を吸わせる 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;ABL:Ｂ感覚(2未満=性的には感じてない 5未満=多少感じてる 5以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;乳のサイズでも変わる場合があるので、地の文EVENT_MESSAGE_COM_セクハラ.ERB参照
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_313
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_313
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_313_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSEIF TALENT:淫乳
		CALL 爱抚_310
	ELSE
		SELECTCASE ABL:Ｂ感覚
			CASE IS <=2
				PRINTFORML 「	真是个无时无刻不在发情的变态啊」
				PRINTFORMDW   觉不满地咕哝着。
			CASE 3 TO 5
				PRINTFORML 「	在做什么呀，就这么喜欢做这种事吗？」
				PRINTFORMDW   %CALLNAME:MASTER%的手法对觉而言，快感并不明显。
			CASE IS >5
				CALL 高敏_310
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;314,アナル愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(72=アナル奉仕
;CFLAG:诶嘿嘿==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;ABL:Ａ感覚(2未満=受け入れられない 4未満=異物感に翻弄 4以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_314
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_314
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_314_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_314_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:尻穴狂
		CALL 爱抚_310
	ELSE
		SELECTCASE ABL:Ａ感覚
			CASE IS >4
				CALL 高敏_310
			CASE 3 TO 4
				PRINTFORML 「肠子都要给你捣鼓穿了」
				PRINTFORMDW   别说那么恐怖的事情。
			CASE IS <=2
				PRINTFORML 「呜哇…！不可以啊！」
				PRINTFORMDW   根本没有进门的可能。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;315,クリ愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振り
;ABL:Ｃ感覚(4未満=くすぐったい 6未満=ちょっといいかも 6以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_315
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K49_315
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_315_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSE
		IF TALENT:自慰狂
			CALL 爱抚_310
		ELSE
			SELECTCASE ABL:Ｃ感覚
				CASE IS >6
					CALL 高敏_310
				CASE 4 TO 6
					PRINTFORML 「酥酥麻麻的呢」
					PRINTFORMDW   觉稍微能从%CALLNAME:MASTER%取得些快感。
				CASE IS <4
					PRINTFORML 「突然摸那里可是会痛的哦」
					PRINTFORMDW   是自慰已久的经验之谈吗？
					PRINTFORMW 「才不是！」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 87=Ａ挿入する 89=腰振りＡ
;TALENT:処女(指挿入れ連続時喪失注意、基本拒否ぎみ)
;ABL:Ｖ感覚(1未満=違和感に戸惑う 5未満=ちょっと気持ちいい 5以上＝カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_316
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗
IF TALENT:処女
	IF !CFLAG:睡眠
		PRINTFORML 「这样夺走处女也太轻率了吧」
		PRINTFORMDW   觉用触手架开了%CALLNAME:MASTER%。
	ELSE
		PRINTFORMDL   被发现的话，会被毫不留情杀掉的吧。
		PRINTFORMDW   %CALLNAME:MASTER%寒毛直竖。
	ENDIF
	TFLAG:口上によるCOM成否判定 =-1
	RETURN -1
ELSE
	TFLAG:口上によるCOM成否判定 =0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_316
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_316_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_316_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		CALL STOP_310
	ELSEIF CFLAG:睡眠
		CALL 睡眠_310
	ELSE
		IF TALENT:淫壺
			CALL 爱抚_310
		ELSE
			SELECTCASE ABL:Ｖ感覚
				CASE IS >5
					CALL 高敏_310
				CASE 2 TO 5
					PRINTFORML 「呜呣…有些不一样的感觉呢」
					PRINTFORMDW   到底是和什么不一样呢。
				CASE IS <2
					PRINTFORML 「洗手了吗？」
					PRINTFORMDW   觉似乎有些嫌弃%CALLNAME:MASTER%。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;317,腰を動かす
;ABL:Ｖ感覚(2未満=まだ気持ち良くない 5未満=ちょっと気持ちいい 5以上=カイカン
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_317
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_317_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_317_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;318,腰を動かす（Ａ）
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_318
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_318_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_318_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;====================================================================================================
;320,相手主導正常位
;====================================================================================================
@M_KOJO_NK_MESSAGE_COM_K49_320
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_320_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_320_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;====================================================================================================
;322,相手主導後背位
;====================================================================================================
@M_KOJO_NK_MESSAGE_COM_K49_322
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_322_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_322_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;330,スカートめくり
;TFLAG:SELECTCOM的分岐(-5=拒絶（ビンタ） -3=拒絶（つねり） -1=いやがる 0=いやがる（嬉しげ） 1=受け入れ)
;TFLAG:SELECTCOM的分岐=1&&ABL:露出癖(5以上=人目のある場所で、自らスカートをまくり上げる 4以下=人目のある場所でめくられるさいに弱い抵抗 3以上=人目のない場所で自らスカートをまくり上げる 3未満=弱い抵抗)
;TFLAG:400(1=デート先or地底のモブが反応する)
;後ろからピラリ、ではなく、前からペラって感じ（そうじゃなかったら、めくり上げようとするのを止めて即座にビンタとか無理、めくり上げられた後にしかならないしその状況ならビンタ食らうより普通に弾幕で一発ＫＯにならないほうがおかしい
;==================================================
@M_KOJO_NK_MESSAGE_COM_K49_330
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K49_330_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K49_330_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		IF !GETBIT(CFLAG:49:既成事實 , 1)
			CALL STOP_310
		ELSE
			IF EQUIP:TARGET:下半身内衣２
				PRINTFORMDW   %CALLNAME:MASTER%趁机品鉴了觉的%PANTSNAME(EQUIP:下半身内衣２, TARGET)%。
			ELSE
				PRINTFORMDW   %CALLNAME:MASTER%看到了觉的耻部，没有任何布料遮盖。
			ENDIF
		ENDIF
	ELSE
		SELECTCASE TFLAG:SELECTCOM的分岐
			CASE 1
				IF ABL:露出癖>5
					PRINTFORML 「	想要胖次吗，%CALLNAME:MASTER%～」
					PRINTFORMD   觉主动用触手勾起裙子，
						IF EQUIP:TARGET:下半身内衣２
							PRINTFORMDW   展示着%PANTSNAME(EQUIP:下半身内衣２, TARGET)%。
							PRINTFORML 「到床上来的话，就给你哦～」
							PRINTFORMDW   相当诱人呢。
						ELSE
							PRINTFORMDW   %CALLNAME:MASTER%看到了觉的耻部。
							PRINTFORML 「很可惜并没有穿哦」
							PRINTFORMDW   %CALLNAME:MASTER%感到自己被戏弄了。
						ENDIF
				ELSE
					PRINTFORML 「呜欸！被看光了！」
					PRINTFORMDW   觉羞红了脸。
				ENDIF
			CASE 0
				PRINTFORML 「呀啊！做什么呢你！」
				PRINTFORMDW   感受不到觉有什么反感。
			CASE -1
				PRINTFORML 「住手啊你！」
				PRINTFORMDW   觉有些不快。
			CASE -3
				PRINTFORML 「看来要长长记性了」
				PRINTFORMDW   觉狠狠地捏了%CALLNAME:MASTER%一把。
			CASE -5
				PRINTFORML 「不想活了是吧！」
				PRINTFORMDW   觉给了%CALLNAME:MASTER%一耳光。
				DOWNBASE:MASTER:体力 += 50
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

@STOP_310
IF FLAG:70 && (TARGET==49 && !GETBIT(CFLAG:49:既成事實 , 1))
	PRINTFORMDL   要是被发现的话，会被触手扔出去的吧；
	PRINTFORMDW   %CALLNAME:MASTER%打消了做坏事的想法。
	RETURN -1
ELSE
	PRINTFORMDL   既然都坦诚相见了，做了也会被原谅的吧；
	PRINTFORMDW   %CALLNAME:MASTER%肆无忌惮地玩弄着觉的身体。
ENDIF
@爱抚_310
IF TARGET==49
	PRINTFORML 「	呜呜…%UNICODE(0x2764)%%CALLNAME:MASTER%这么想做的话，就到床上去吧%UNICODE(0x2764)%」
	PRINTFORMDW   觉对%CALLNAME:MASTER%的爱抚毫无抵抗力。
	CFLAG:积攒度=MIN(CFLAG:49:积攒度+500,1000)
ENDIF
@高敏_310
IF TARGET==49
	PRINTFORML 「	哈啊…%UNICODE(0x2764)%真是，拿你没办法呢%UNICODE(0x2764)%」
	PRINTFORMDW   觉神情迷离，任凭%CALLNAME:MASTER%摆布。
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_性骚扰.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_愛撫系.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_派生.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_特殊PLAY.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/性/M_KOJO_K49_310_絶頂 （詳細版）.ERB