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

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

@M_KOJO_NK_MESSAGE_COM_K38_301
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_301_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「哈欸？茶吗？」
	PRINTFORML 「奇怪，是从哪里拿出来的？」
	PRINTFORML 「明明刚才连茶叶和茶具的影子都没见到」
	PRINTFORML 「难道说，%CALLNAME:MASTER%会隔空取物？！」
	PRINTFORMDW   这样的能力才没有。
	PRINTFORML 「那是从哪里变出来的？魔术吗？」
	PRINTFORMDW   是秘密。好啦好啦，再不喝就凉啦。
	PRINTFORML 「唔呣呣，没想到%CALLNAME:MASTER%连这种事情都要瞒着我吗」
	PRINTFORML 「下次问问姐姐好了」
	PRINTFORMDW   这种事情无论怎么样还请手下留情——
	PRINTFORML 「嘛，不过是%CALLNAME:MASTER%的话，用上时间停止也能瞬间泡好一壶茶吧？」
	PRINTFORMDW   什么呀这不是明知故问吗。
ENDIF
RETURN 1
;==================================================
;302,スキンシップ
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_302
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_302
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_302_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「啊哇哇，突然怎么了吗？」
	PRINTFORML 「难道身上沾了什么东西吗？」
	PRINTFORML 「突然摸人家的身体做什么呢？」
	PRINTFORMDW   什么都没有，只是想摸摸可爱的恋。
	PRINTFORML 「可%CALLNAME:MASTER%的动作出卖了自己哦」
	PRINTFORML 「这样H的动作，是想肌肤相亲吧？」
	PRINTFORMW 「真是24小时发情的变态呢」
ENDIF
RETURN 1
;==================================================
;303,謝る
;TFLAG:SELECTCOM的分岐(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_303
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_303
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_303_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「啊诶？突然道歉做什么呢？」
	PRINTFORML 「啊啊，那件事早就没有印象了」
	PRINTFORMW 「也不是那么值得在意的事情，没筏子呢☆」
ENDIF
RETURN 1
;==================================================
;304,仕事を手伝う
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:手伝えない(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_304
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_304
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_304_1
RETURN RESULT

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

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

@M_KOJO_NK_MESSAGE_COM_K38_305
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_305_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「索求少女的膝枕什么的，是性骚扰吧？」
	PRINTFORML 「要不是人家的话，%CALLNAME:MASTER%就要承受弹幕的洗礼了」
	PRINTFORMW 「真没办法呀，那就过来躺下吧？」
	PRINTFORMDL   稍稍整理了一下裙子的褶皱，调整为便于受力的姿态。
	PRINTFORMDW   …%CALLNAME:MASTER%享受了久违的温暖。
	PRINTFORML 「呼呼，人家的膝枕就这么舒服吗」
	PRINTFORML 「要是困了的话，就这样睡下去也可以哟」
	PRINTFORMW 「好梦，%CALLNAME:MASTER%」
ENDIF
RETURN 1
;==================================================
;306,お腹を撫でる
;TFLAG:SELECTCOM的分岐(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_306
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_306_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL   少女的动作完全凝固了。
		PRINTFORMDL   做不好的事情也不会反抗，恋完全成为了任凭%CALLNAME:MASTER%玩弄的人偶。
		PRINTFORMDL   于是，%CALLNAME:MASTER%决定像平时那样摸摸恋的肚子。
		PRINTFORMDW   …软软的很有弹性。
	;通常
	ELSE
		PRINTFORML 「啊诶？怎么突然摸起人家肚子了？」
		PRINTFORML 「就算你这样摸，我也不会有什么特别的感觉哦」
		PRINTFORMDW   试探着隔着腹壁爱抚着少女的膣道。
		PRINTFORML 「呀昂…那种地方…不可以的哟…」
		PRINTFORML 「再这样下去…会受不了的…」
		PRINTFORMDW   少女的眼神开始迷离，吐息变得灼热。
		CFLAG:TARGET:积攒度+=100
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,頬をつまむ
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=おずおずとやり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_307
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_307
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_307_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL   看着少女凝固的表情，忍不住伸手捏了一下。
		PRINTFORMDL   保持着这种表情还真是有趣呢。
		PRINTFORMDW   %CALLNAME:MASTER%将恋捏出各种各样的表情，玩得很开心。
	;睡眠中
	ELSEIF CFLAG:睡眠
		PRINTFORML 「咕…嗦…」
		PRINTFORML 「别闹了…姐姐…」
		PRINTFORMDL   原来古明地小姐还有这样的癖好吗。
		PRINTFORMDW   …话说原来这姐妹俩偶尔还会同床共枕吗？！
	;通常
	ELSE
		PRINTFORML 「呀啊！可不能这样随随便便捏少女脸的！」
		PRINTFORML 「再做下去就要反击了，看招！」
		PRINTFORMDW   被触手缠住了手。
		PRINTFORML 「呼…别再这样玩弄人家了」
		PRINTFORMDW   恋将触手松开了。
	ENDIF
ENDIF
RETURN 1
;==================================================
;308,頬をつつく
;添い寝中or睡眠中限定
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_308
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_308
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_308_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		CALL SLEEP_514()
	;通常
	ELSE
		PRINTFORML 「这种时候还想戳人家脸吗？」
		PRINTFORML 「报复起来我可是不会手下留情的哟」
		PRINTFORMDW   被少女用好几根触手蹂躏着脸颊。
		PRINTFORMW 「啊哈哈，表情变得好奇怪～」
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_309
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_309
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_309_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMDL   抚摸着少女的头发。
		PRINTFORMDL   少女没有任何反应，一动不动地任凭摆布。
		PRINTFORMDW   …%CALLNAME:MASTER%感受到指尖传来的柔顺。
	;睡眠中
	ELSEIF CFLAG:睡眠
		CALL SLEEP_514()
	;通常
	ELSE
		PRINTFORML 「哇欸？！头发都被弄乱啦！」
		PRINTFORMDW   一边嘟囔着什么，一边用触手拟态成梳子整理着头发。
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,お茶を淹れる（薬入り）
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_331
;成否判定
;TFLAG:口上によるCOM成否判定(-2=強制失敗(注、非コマンド終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬アイスティーは眠気を感じていると飲まない)
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_331
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_331_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「呼呣呣，这次的茶味道有些奇怪呢」
	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_K38_332
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗、0=COM依存
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_332
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_332_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「咕呜…酒吗？」
	PRINTFORML 「平时只有宴会时才会拿出来喝呢」
	PRINTFORMW 「今天有什么特别的事情吗？」
ENDIF
RETURN 1
;==================================================
;333,愚痴を聞く
;TFLAG:SELECTCOM的分岐(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_333
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_333
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_333_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「…所以说就是这么回事」
	PRINTFORMDW   听恋讲了最近不开心的事情。
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE 6
		;大成功（酔い）
		CASE 5
		;成功（酔い）
		CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
		CASE 2
		;成功
		CASE 1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,杯を交わす
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=食事)
;TALENT:酒耐性(-2=食事)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_334
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_334
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_334_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_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_K38_335
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_335
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_335_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_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以下=恥ずかしげ それ以上=幸せそう
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_336
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_336
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_336_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「欸？要给我膝枕？」
	PRINTFORML 「真的可以吗？」
	PRINTFORML 「那就，恭敬不如从命啦～」
	PRINTFORMW 「呼呜——难得可以放松一下呢」
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_K38_350
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_350_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_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 关系_514()==0
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;351,連れ出す
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_NK_MESSAGE_COM_K38_351_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「哈欸？有什么事吗」
	PRINTFORML 「要带我去哪里呢？」
ENDIF
RETURN 1
;==================================================
;352,告白する
;FLAG:甲斐性無(1=失敗)
;TFLAG:SELECTCOM的分岐 (1=成功 0=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_352
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_352
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_352_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;353,イタズラする
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_353
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_353_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;354,添い寝する（相手は起きて布団に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:お招き(0以外=起きない
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_354
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_354_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_355
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_355_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;356,物陰に誘う
;ABL:露出癖 + TALENT:羞恥心で判定
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_356
;成否判定
;TFLAG:口上によるCOM成否判定(-1＝強制失敗、0=COM依存、1=強制成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_356
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_356_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;360,身を任せる
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_360
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_360_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;361,抵抗する
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_361
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_361_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;363,読み聞かせ（[幼稚]持ち専用）
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;CFLAG:添い寝中(1=布団orベッドの中で本を読む
;MASTERがTARGETより大柄の場合、膝の上にTARGETを乗せる
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_363
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_363
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_363_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_363_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:周回数
		PRINTFORML 「要给人家读书是吗？」
		PRINTFORML 「那，就读这本好啦～」
		PRINTFORMDW   恋找了一本心理学著作递给%CALLNAME:MASTER%。
		IF ABL:MASTER:教養 <= 3
			PRINTFORMDL   完全理解不能！
			PRINTFORMDW   %CALLNAME:MASTER%机械式念着不知所云的文字。
		ELSE
			PRINTFORMDL   相当深奥呢。
			PRINTFORMDW   虽然有些吃力，%CALLNAME:MASTER%还勉强能应付。
		ENDIF
		PRINTFORMDW   恋默默听着%CALLNAME:MASTER%读着那本书。
	ELSE
		PRINTFORML 「从前，森林里绽开着两朵花，一红一蓝」
		PRINTFORMW 「森林里的都很讨厌这两朵花」
		PRINTFORML 「于是，它们被拔出根来，逐出森林」
		PRINTFORML 「意识到自己被讨厌的蓝花决定不再绽放」
		PRINTFORMW 「只要不花枝招展，就不会被讨厌了」
		PRINTFORMW 「红花则建造了一个温室，将自己关在里面」
		PRINTFORML 「事到如今，红花依然在温室中娇艳欲滴」
		PRINTFORMW 「而蓝花从此也没有再露出花蕊」
		PRINTFORMW 「%CALLNAME:MASTER%知道为什么吗？」
	ENDIF
ENDIF
RETURN 1
;==================================================
;364,豆まき(萃香、勇儀、スカーレット姉妹用
;TFLAG:SELECTCOM的分岐(豆まきに参加してる人数
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_364
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_364_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;365,守矢神社へ移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_365
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_365_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;368,自由行動に付き合う
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_368
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_368_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_368_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE Activity_Type:TARGET
		CASE 0
			;▼考え事［なに考えてるの］
			;TFLAG:SELECTCOM的分岐,-1=はぐらかされる
			;PRINTFORML
		CASE 1
			;▼遊ぶ［一緒に遊ぶ］
			;※[幼稚]持ちのみ
			;TFLAG:SELECTCOM的分岐,1=大いに盛り上がる,-1=あまり盛り上がらない
			;PRINTFORML
		CASE 2
			;▼食事［一緒に食事する］
			;TFLAG:SELECTCOM的分岐,-1=MASTERはお腹が空いてなかった
			;PRINTFORML
		CASE 3
			;▼つまみ食い［一緒につまみ食い］
			;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
			;TFLAG:SELECTCOM的分岐,-1=MASTERはお腹が空いてなかった
			;PRINTFORML
		CASE 4
			;▼掃除［掃除を手伝う］
			;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			;PRINTFORML
		CASE 5
			;▼運動［一緒に運動する］
			;※[音楽知識]持ちは除く（演奏になる）
			;PRINTFORML
		CASE 6
			;▼読書［本の感想を聞く］
			;TFLAG:SELECTCOM的分岐,-1=集中していて返事してくれない
			;PRINTFORML
		CASE 7
			;▼料理［料理を手伝う］→［料理を分けてもらう］
			;TFLAG:SELECTCOM的分岐,2=料理を手伝う,0=作った料理を食べる,-1==MASTERはお腹が空いてなかった（食べる時）
			;PRINTFORML
		CASE 8
			;▼演奏［セッションする］or［伴奏する］
			;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
			;TALENT:音楽知識,1=演奏してる,2=歌ってる,3=踊ってる
			;TFLAG:SELECTCOM的分岐,1=ノリノリ,0=成功,-1=失敗,-2=楽器がなくて見てるだけ
			;PRINTFORML
		CASE 9
			;▼採集［採集を手伝う］
			;PRINTFORML
		CASE 10
			;▼釣り［一緒に釣りをする］
			;TFLAG:SELECTCOM的分岐,-1=釣り竿がなくて見てるだけ
			;PRINTFORML
		CASE 11
			;▼実験［実験を手伝う］
			;PRINTFORML
		CASE 12
			;▼のんびり［一緒にのんびりする］
			;PRINTFORML
		CASE 13
			;▼晩酌［晩酌に付き合う］
			;※酒耐性0以上のみ
			;PRINTFORML
		CASE 14
			;▼買い物［買い物を手伝う］
			;PRINTFORML
		CASE 15
			;▼説教［様子をうかがう］
			;※神霊・蓬莱人は除く
			;TFLAG:SELECTCOM的分岐,-1
			;PRINTFORML
		CASE 16
			;▼落とし穴［いたずらに付き合う］or［様子をうかがう］
			;※三月精・チルノ・クラウンピースのみ
			;それ以外は落ちる側
			;PRINTFORML
		CASE 17
			;▼雪だるま作り［一緒に雪作り］
			;※冬の月のみ
			;PRINTFORML
		CASE 18
			;▼炬燵でのんびり［炬燵でくつろぐ］
			;※冬の月のみ
			;PRINTFORML
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:SELECTCOM的分岐(0=通常 1=子供と一緒に川の字で寝る)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_NK_MESSAGE_COM_K38_402_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「已经坚持不下去了吗？」
	PRINTFORMW 「%CALLNAME:MASTER%要被梦之妖怪夺走了呢！」
	PRINTFORML 「啊哈哈，开玩笑的～」
	PRINTFORMW 「好啦好啦，好好休息吧，%CALLNAME:MASTER%」
ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_403
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_403_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「呼呜，稍微休息一下也好」
	PRINTFORML 「诶——呀————有些疲倦了呢」
	PRINTFORMDW   恋伸了个懒腰，靠在了%CALLNAME:MASTER%身上。
ENDIF
RETURN 1
;==================================================
;405,出掛ける(同行時デート
;条件が厄介なので、COMF405 出掛ける.ERBを参照のこと
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_405
;出掛けるにTRAIN_MESSAGEは無い
CALL M_KOJO_NK_MESSAGE_COM_K38_405_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;TARGETとデート
	IF CFLAG:同行
	;TARGET以外とデート
	ELSEIF CFLAG:MASTER:同行
	;お出かけお見送り
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:SELECTCOM的分岐(0=見てるだけ 1=一緒に掃除)
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は雪かき
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_410
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_410_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		PRINTFORMDW   %CALLNAME:MASTER%不顾身旁凝固的少女，聚精会神清扫着脏污。
	ELSE
		PRINTFORML 「啊，是在扫除呢」
		IF TFLAG:SELECTCOM的分岐==1
			PRINTFORML 「那我也要一起帮忙——」
			PRINTFORMDW   少女兴致勃勃跟着%CALLNAME:MASTER%有样学样。
			PRINTFORMW 「咕呜，没想到比看上去要难呢」
		ELSE
			PRINTFORMDW   少女只是在一旁看着，看上去丝毫没有打算动手帮忙的意思。
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_411
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_411_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「是想我一起陪练？」
	PRINTFORML 「可以呀，先做好准备吧」
	PRINTFORMW 「无意识中发出的弹幕，还能招架住吗？」
	SELECTCASE RAND:8
	CASE 0
		PRINTFORMW 「表象「列祖列宗入梦来」！」
	CASE 1
		PRINTFORMW 「表象「弹幕偏执症」！」
	CASE 2
		PRINTFORMW 「本能「本我的解放」！」
	CASE 3
		PRINTFORMW 「抑制「Super Ego」！」
	CASE 4
		PRINTFORMW 「反应「妖怪测谎仪」！」
	CASE 5
		PRINTFORMW 「无意识「弹幕的墨迹测验」！」
	CASE 6
		PRINTFORMW 「复燃「恋之埋火」！」
	CASE 7
		PRINTFORMW 「深层「无意识的基因」！」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;412,勉強
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_412
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_412_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「是在学习呢，%CALLNAME:MASTER%」
	PRINTFORML 「唔呣呣，我的话就还是算了！」
	PRINTFORMW 「可不想变成姐姐那样的书虫呢」
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(100以上=禁断のメニュー 3=デザート 2=主食 1=軽食
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_413
;TFLAG:不影响SOURCE等的SELECTCOM的分岐が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_413_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「嗯～？%CALLNAME:MASTER%打算做什么呢？」
	PRINTFORML 「是%DISHNAME%吗？闻到香味了呢」
	PRINTFORML 「做好了是会分给人家尝尝的吧？」
	PRINTFORML 「哇咿——好开心——」
	PRINTFORMDW   %CALLNAME:MASTER%决定不能辜负了少女的笑颜。
	PRINTFORMDW   拍了拍在一旁看着的恋，随后一心不乱投入烹饪中。
ENDIF
RETURN 1
;==================================================
;414,食事を取る
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(1=ノーパンしゃぶしゃぶ 2=禁断のメニュー 31=ドーピングコンソメスープ 30=モッツァレラチーズとトマトのサラダ 34=ギンギー料理
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_414
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_414
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_414_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「这料理是…%CALLNAME:MASTER%亲手做的吗？」
	PRINTFORMDW   没错哦。
	PRINTFORML 「那，稍微给人家尝尝吧，可以吗？」
	PRINTFORMDW   是恋的话当然可以啦。
	PRINTFORMW 「哇咿——我开动了！」
ENDIF
RETURN 1
;==================================================
;415,食事をふるまう
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_415
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_415
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_415_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「做好的料理给我享用？真的可以吗？」
	PRINTFORMDW   就是专门做给恋吃的。
	PRINTFORML 「啊，这样吗…欸？」
	PRINTFORML 「居然是专门为人家准备的吗？！」
	PRINTFORMW 「呼呣呼呣，看来要用心品尝了」
ENDIF
RETURN 1
;==================================================
;416,演奏する
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=キーボード 2=ピアノ 3=ギター 4=トランペット 5=ヴァイオリン)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_416
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_416
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_416_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「除了骚灵和付丧神，似乎只有%CALLNAME:MASTER%会使用乐器呢」
	PRINTFORMW 「地底的话，一向都是听不到音乐的」
	SELECTCASE ABL:MASTER:音楽技能
	CASE IS >= 5
		PRINTFORML 「这种程度的话，已经很出色了呢」
		PRINTFORMW 「去宴会助兴也没问题了吧？」
	CASE 3 TO 4
		PRINTFORML 「唔呣，水准还是有的」
		PRINTFORMW 「不过还有提升空间，继续努力吧」
	CASEELSE
		PRINTFORML 「只是有些呕哑嘲哳呢」
		PRINTFORMW 「嘛，再多加练习吧」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;417,昼寝をする
;TFLAG:SELECTCOM的分岐(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔にキスされた 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処orペニス揉み
;CFLAG:添い寝中(1=一緒に寝ている
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_417
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_417_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「这个时间也是容易犯困的时候呢」
	PRINTFORMW 「浅浅睡一会也不过分吧」
ENDIF
RETURN 1
;==================================================
;421,願掛けする
;条件が複雑なので、COMF421 願掛け.ERBおよび、EVENT_MESSAGE_COM400.ERBの願掛けするの項を参照のこと
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_421
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_421_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「%CALLNAME:MASTER%许了什么愿呢？」
	PRINTFORMDW   这种事情说出来就不应验了。
	PRINTFORMW 「嘿诶？还有这种事情吗？」
ENDIF
RETURN 1

;==================================================
;422～430は、特殊コマンドなのでテンプレでは対応しません
;==================================================

;==================================================
;431,お風呂でくつろぐ
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_431
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_431_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;432,お風呂でくつろぐ
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_432
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_432_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:SELECTCOM的分岐(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_436
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_436_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_436_1
IF LOCAL
	PRINTFORML 「在读什么呢，一副津津有味的样子」
	PRINTFORML 「难道说，又在看H的东西吗？」
	PRINTFORML 「我也要看！」
	PRINTFORMDW   书被恋夺走了。
	SELECTCASE TFLAG:SELECTCOM的分岐
	CASE 6 TO 8
		PRINTFORML 「果然没猜错呢」
		PRINTFORMW 「%CALLNAME:MASTER%还真是H呢」
	CASEELSE
		PRINTFORML 「居然不是吗」
		PRINTFORMW 「呼呣呣，偶尔也会换换口味吗」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;440,待つ
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_440
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_440_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「呼，是期待着什么吗」
ENDIF
RETURN 1
;==================================================
;441,授業を受ける(慧音専用
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_441
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_441_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;442,伐採する（未実装
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_442
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_442_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;445,採集する
;TFLAG:SELECTCOM的分岐(採集物のID, 0=『何も見つからなかった…』
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(今回採集した個数
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_445
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_445_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_445_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「发现什么好东西了吗？」
ENDIF
RETURN 1
;==================================================
;448,罠を仕掛ける／虫トラップ
;TFLAG:SELECTCOM的分岐,
;   -1=罠が壊れた
;    0=罠を仕掛けた
;    1=獲物が得られた
;   10=虫トラップを仕掛けた
;   11=虫トラップを破棄した
;   12=ムシを捕まえた
;FLAG:194,獲物の番号
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_448
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_448_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;449,虫捕り
;TFLAG:SELECTCOM的分岐,
;   -2=殺してでもうばいとる（取っ組み合いの末逃がす）
;   -1=ゆずってくれ！→拒否
;    0=捕獲失敗
;    1=MASTERが捕まえた
;    2=キャラが捕まえたのをMASTERが褒めた
;    3=ゆずってくれ！→渋々オッケー
;    4=ゆずってくれ！→オールオッケー
;TRAINMESSAGEを省略する場合は虫カゴに入れる処理を忘れないように
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_449
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_449_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;483,ムシバトル
;TFLAG:SELECTCOM的分岐,
;    1=１対１の対戦
;    2=３～４人戦
;    3=２対２のチーム戦
;TFLAG:不影响SOURCE等的SELECTCOM的分岐にMASTERの順位が入っています（MASTERが1ならキャラ負け）
;バトル中の口上はイベント口上ファイルに入っています
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_483
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_483_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;484,スイカ割り
;TFLAG:SELECTCOM的分岐,
;   -1=失敗
;    0=成功
;    1=大成功
;    2=木刀で大成功（ボーナス点）
;TFLAG:不影响SOURCE等的SELECTCOM的分岐
;    0=正直者
;    1=ウソつき
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_484
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_484_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;490,アイテム
;TFLAG:SELECTCOM的分岐(使用アイテムのID
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(対象 0=MASTER,1=TARGET
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_490
;アイテムにTRAIN_MESSAGEはない
CALL M_KOJO_NK_MESSAGE_COM_K38_490_1
RETURN RESULT

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

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;デート系コマンド
;デート系口上は文字通り外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,デート会話
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_600
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_600_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;601,デートスキンシップ
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_601
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_601_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;602,デートキス
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_602
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_602_1
RETURN RESULT

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

ENDIF
RETURN 1
[SKIPEND]

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


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

@M_KOJO_NK_MESSAGE_SCOM_K38_60
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K38_60_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K38_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「啊诶…意外地难欸…」
			PRINTFORMDW   %CALLNAME:MASTER%感到自己的鼓膜随时有破裂的风险。
		CASE 0
			PRINTFORMW 「呼——呼——再耐心等一下哦」
		CASE 1
			PRINTFORML 「这种事情之前给姐姐做过许多次呢」
			PRINTFORMDL   难怪这么熟练…
			PRINTFORMDW   …居然还有这种事吗！
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;61,抱きまくら
;(TARGET睡眠時間or衰弱)添い寝中、前ターン抱きつく後就寝コマンド
;分岐無し
;==================================================
@M_KOJO_NK_MESSAGE_SCOM_K38_61
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K38_61_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K38_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_K38_62
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_SCOM_K38_62
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K38_62_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K38_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF !CFLAG:TARGET:睡眠
		IF ABL:欲望 >= 5
			PRINTFORMW 「呣——做些更亲密的事情吧？」
		ELSEIF ABL:親密 >= 5
			PRINTFORML 「呜欸！那个…」
			PRINTFORMDW   少女稍微有些害羞。
		ELSE
			PRINTFORML 「啊哇哇——这么突然」
			PRINTFORMDW   少女显然没做好准备。
		ENDIF
	ELSE
		PRINTFORMDW   少女无意识地扭动着身子，似乎感受到了%CALLNAME:MASTER%在做什么。
	ENDIF
ENDIF
RETURN 1
;==================================================
;63,もっとキスする
;前ターンキスする後キスする
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K38_63
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_SCOM_K38_63
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K38_63_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K38_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70 == 1
		PRINTFORMDW   少女没有任何反应，就像是在摆弄人偶一样。
	ELSEIF CFLAG:TARGET:睡眠
		PRINTFORMDW   少女无意识间晃了晃脑袋。
	ELSE
		IF 关系_514()>=105 || (关系_514()>=4 && 关系_514()<=16)
			PRINTFORMW 「啾…呣…满足了吗？」
		ELSEIF ABL:親密 >= 5
			PRINTFORMW 「呜欸…真是的，太激烈啦！」
		ELSE
			PRINTFORMW 「啊啊…还要做吗…」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,手を引く
;デート出発後目的地に着くまでの間
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_SCOM_K38_80
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_SCOM_K38_80
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_SCOM_K38_80_1
RETURN RESULT
@M_KOJO_NK_MESSAGE_SCOM_K38_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「啊哇哇——走太快啦！」
			PRINTFORMDW   少女似乎有些跟不上%CALLNAME:MASTER%。
		CASE 0
			PRINTFORMW 「急匆匆是准备做什么呢？」
		CASE 1
			PRINTFORMW 「诶嘿嘿～是期待目的地吗？」
	ENDSELECT
ENDIF
RETURN 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/M_KOJO_K38_514_派生.ERB

license: unknown


code:
;==================================================
;603,手を繋ぐ
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_603
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_603
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_603_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「唔…更想自己单独走走呢」
			PRINTFORMDW   少女不太乐意的样子。
		CASE 0
			PRINTFORML 「准备去哪里呢？」
			PRINTFORMDW   少女兴致盎然地问道。
		CASE 1
			PRINTFORML 「呜呼呼～偶尔主动些也不错呢～」
			PRINTFORMDW   气氛微妙起来。
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;604,散策する
;约会中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_604
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_NK_MESSAGE_COM_K38_604_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「是要去那里看看吗？当然可以～」
ENDIF
RETURN 1
;==================================================
;605,寄り道する
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_605
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_605
;寄り道するにはTRAIN_MESSAGEが無い
CALL M_KOJO_NK_MESSAGE_COM_K38_605_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「这条路不对吧？」
			PRINTFORMDW   少女一脸诧异地看着%CALLNAME:MASTER%。
		CASE 0
			PRINTFORMW 「你也不走正道吗？」
		CASE 1
			PRINTFORMW 「会看到意料外的风景吗？」
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;610,食事に誘う
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_610
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_610
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_610_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「呣呣呣，现在不是吃饭的时候呢」
			PRINTFORMDW   少女明显不想去。
		CASE 0
			PRINTFORMW 「点些什么好呢？」
		CASE 1
			PRINTFORML 「哇咿——是%CALLNAME:MASTER%请客对吧？」
			PRINTFORMDW   少女看起来很开心。
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;613,お金稼ぎする（オミットされました
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_613
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_613
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_613_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;614,食材の買い出し
;TFLAG:SELECTCOM的分岐(1=購入＆デート経験アップ 0=購入 -1=非購入)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_614
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_614_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;615,お弁当を食べる
;実行可能場所　お地蔵通り,枝垂れ柳の下,霧の湖,玄武の沢,大蝦蟇の池,絶景の丘,山の湖,天界
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_615
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_615_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「差点忘了呢，这次可是带了便当来」
	PRINTFORMW 「人家亲手做的哦」
	SELECTCASE ABL:料理技能
		CASE IS <2
			PRINTFORML 「可是费了好一番功夫才做好的呢！」
			PRINTFORMDW   不够熟练吧。
		CASE 2 TO 3
			PRINTFORML 「稍微参考了一下食谱，效果应该会好些吧」
			PRINTFORMDW   这还真难说。
		CASE IS >=4
			PRINTFORML 「照着%CALLNAME:MASTER%口味做的」
			PRINTFORMDW   相当周到呢。
	ENDSELECT
	PRINTFORMW 「好啦好啦，快来尝尝吧」
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORMDL   有些说不上来的不对劲。
			PRINTFORMW 「欸？会吗？」
		CASE 0
			PRINTFORMDL   填饱肚子完全没问题的程度。
			PRINTFORMW 「能吃得下去的意味吗？」
		CASE 1
			PRINTFORMDL   意外地还不错呢。
			PRINTFORMW 「诶嘿嘿～不枉花这么多功夫呢」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_NK_SUCCESS_COM_K38_617
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:口上によるCOM成否判定 =0

@M_KOJO_NK_MESSAGE_COM_K38_617
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_617_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -1
			PRINTFORML 「甜品什么的现在还不太想吃呢」
			PRINTFORMDW   少女半推半就地跟%CALLNAME:MASTER%进了甜品店，只是看着%CALLNAME:MASTER%吃。
		CASE 0
			PRINTFORMW 「要来些什么甜品呢？」
		CASE 1
			PRINTFORML 「这家可是早有耳闻呢」
			PRINTFORML 「一直没机会去，现在算是如愿以偿了吧」
			PRINTFORMDW   少女一副期待的样子。
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_618
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_618_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;620,鈴奈庵
;TFLAG:SELECTCOM的分岐(1=貸し出しOK 0=貸し出し不可
;ITEM:10X (X=1戦術指南書 X=2調理指南書 X=3字引 X=4御伽草子
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_620
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_620_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;621,釣りをする
;TFLAG:SELECTCOM的分岐(0=釣れない 1～4=魚 11～15=うまい魚 610=木材 131=守矢の守札 21=ローター 609=氷の鱗 606=龍の爪)
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_621
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_621_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;626,土産屋
;TFLAG:不影响SOURCE等的SELECTCOM的分岐(行動結果(-2=ひやかし -1=ウィンドウショッピング 1=400点未満（BAD） 2=～699点（NOMAL） 3=700点以上（GOOD）
;CFLAG:性格傾向による地の文分岐あり
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_626
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_626_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_626_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:不影响SOURCE等的SELECTCOM的分岐
		;ひやかし
		CASE -2
			PRINTFORMW 「挑太久被赶出来是理所当然的吧」
		;やっぱりやめる（見送り）
		CASE -1
			PRINTFORMW 「嗯嗯嗯？只打算逛一圈吗」
		;400点未満（BAD）
		CASE 1
			PRINTFORML 「啊啊，这个嘛…」
			PRINTFORMDW   恋神情复杂地看着礼物，似乎不太愿意收下。
		;400点～699点（NOMAL）
		CASE 2
			PRINTFORML 「也算是%CALLNAME:MASTER%的一份心意呢」
			PRINTFORMDW   恋愉快地向%CALLNAME:MASTER%道谢。
		;700点以上（GOOD）
		CASE 3
			PRINTFORML 「哇咿——」
			PRINTFORML 「%CALLNAME:MASTER%果然记得人家喜欢什么呢！」
			PRINTFORMDW   恋兴高采烈地向%CALLNAME:MASTER%扑了过来。
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:SELECTCOM的分岐(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=薄い高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_660
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_660_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;698,部屋に入る
;TARGETの部屋に入る場合のみ表示
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_698
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_698_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「啊啊，可没有用心打理内务呢」
	PRINTFORML 「不要见怪哦？」
	PRINTFORMDW   少女的房间大概是在无意识中布置的。
ENDIF
RETURN 1
;==================================================
;699,外に出る
;==================================================
@M_KOJO_NK_MESSAGE_COM_K38_699
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_699_1
RETURN RESULT

@M_KOJO_NK_MESSAGE_COM_K38_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:TARGET:睡眠
		PRINTFORMDW   少女还沉浸在无意识中。
	;条件はMOVEMENT参照
	ELSEIF !睡眠時間(TARGET) && !CFLAG:TARGET:睡眠
		PRINTFORMW 「那就这样去约会吧～」
	ELSE
		PRINTFORML 「哈啊——已经很累了呢」
		PRINTFORMW 「就不送了」
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/M_KOJO_K38_514_约会系.ERB


path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/未动笔/M_KOJO_K38_514_事件_同居.ERB


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


path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/未动笔/M_KOJO_K38_514_事件_约后.ERB


code:
;==================================================
;自由行動中
;ARG:1      0=行動中,1=完了時
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_NK_EVENT_K38_32(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;▼考え事,（～は考えに耽っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 1
		;▼遊ぶ,（～は走り回っている。）
		;※[幼稚]持ちのみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 2
		;▼食事,（～は食事を摂っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 3
		;▼つまみ食い（～はこっそりつまみ食いをしている。）
		;※[妖精]持ちとルーミア、こいし、幽々子、紫苑のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 4
		;▼掃除,（～はテキパキと部屋の掃除をしている。）
		;※[掃除係]持ちまたは汚臭耐性-1以下のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 5
		;▼運動,（～は張り切って運動している。）
		;※[音楽知識]持ちは除く（演奏になる）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 6
		;▼読書,（～は黙々と本を読んでいる。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 7
		;▼料理,
		IF !ARG:1
			;行動中
			IF Activity_Duration:TARGET > 30
				;料理中（～は軽快に料理をしている。）
				PRINTFORML
			ELSE
				;食事中（～は作った料理を食べている。）
				PRINTFORML
			ENDIF
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 8
		;▼演奏
		;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
		;1,～は小気味よく演奏している。
		;2,～は気ままに歌っている。
		;3,～は華麗に踊っている。
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 9
		;▼採集,（～使える素材を探している。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 10
		;▼釣り,（～はのんびり釣りをしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 11
		;▼実験,（～は怪しい実験をしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 12
		;▼のんびり,（～はのんびりしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 13
		;▼晩酌,（～はまったりとお酒を飲んでいる。）
		;※酒耐性0以上のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 14
		;▼買い物,（～は気ままに買い物している。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 15
		;▼説教,（～はじっと聞いている…）
		;※神霊・蓬莱人は除く
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 16
		;▼落とし穴,（～は落とし穴を増やしている）
		;※三月精・チルノ・クラウンピースのみ
		;それ以外は落ちる側
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時,
			;（仕掛け人（失敗時）,誰も引っかからないので～は飽きてしまったようだ…）
			;（落ちた側（戦闘能力2～4）,～はすぐに穴から飛び出して周りをキョロキョロ見回している…）
			PRINTFORML
		ENDIF
	CASE 17
		;▼雪だるま作り（～は雪を集めている）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 18
		;▼炬燵でのんびり（～は炬燵に入って温まっている）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/未动笔/M_KOJO_K38_514_事件_随动.ERB


code:
@M_KOJO_NK_IRAIEXIST_K38(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_K38(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%_K38(ROLE, SCENE, CLIENT_ID)
ELSE
	TRYCALLFORM M_KOJO_NK_IRAI_{CHK_ID}_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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_K38(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 TALENT:恋慕
			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_依頼名_K38(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_K38(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/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/未动笔/M_KOJO_K38_514_依頼.ERB


code:
;日記口上

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RESETCOLOR

;=============================
@M_KOJO_NK_MESSAGE_COM_K38_406
;=============================
CALL TRAIN_MESSAGE
CALL M_KOJO_NK_MESSAGE_COM_K38_406_1
RETURN RESULT

;=============================
@M_KOJO_NK_MESSAGE_COM_K38_406_1
;コマンド口上
;TFLAG:不影响SOURCE等的SELECTCOM的分岐（誰の日記を読んでいるか）
;TFLAG:不影响SOURCE等的SELECTCOM的分岐が38でない場合は他人の日記なので注意。
;PAGEは書かれてあるページ数。
;SHIRAHU(38)はキャラ38の状態が正常かどうか。
;=============================
#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(38) && TFLAG:不影响SOURCE等的SELECTCOM的分岐 == 38
;日記を読み終わった後の反応
	IF PAGE > 2
		CALL SPTALK, 38,"通常",0,@"「日記を見せるって…なんだか恥ずかしいな…」//%CALLNAME:38%はまじまじとこちらを見つめている"
		;画像つきトークは最大６行まで。
	ELSE
		PRINTFORML
	ENDIF
ENDIF

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


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

;==========================================================
;常時チェックされる日記の状態情報
;簡易版ではCHARAに番号を入れれば自動で処理してくれます
;==========================================================
@DIARY_NK_BEFORE_CHECK_K38
#DIM CHARA
CHARA = 38
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_K38

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

;==========================================================
;日記の発生条件（@DIARY_NK_K38_YY_HAPPEN）
;RETURN    発生：1なら発生
;RESULT:1  形式：2ならデイリーイベントで読まれる
;                  複数の日記が同時に発生すると番号が小さいものだけが1つ読まれ、それ以外に発生した日記は一旦リセットされる
;                3ならデイリーイベントで読まれない
;                  プレイヤーが自主的に読まない限り読まれない
;                  発生した時点で書き込まれ、複数発生すると複数書き込まれる
;                0は読めない,1は既読なので設定しないように
;RESULT:2  リピート：1を入れると同じ日記が繰り返し書き込まれる
;                    その日だけ有効なフラグ（TCVARやTFLAGなど）を使って条件をつけないと大量に書き込まれるので注意
;
;特定のコマンドやイベント時に日記を発生させたい場合は直接その口上内で"DIARY:38:YY = 2"を加えてください
;"DIARY:38:YY = 3"にしたい場合は以下の命令も合わせてください
;"CALL CHARA_DIARY_PAGESETTING(38, YY)"
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;日記の内容（@DIARY_NK_K38_YY）
;PRINT命令だけでオッケー
;==========================================================
@DIARY_NK_K38_1_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_1
PRINTFORML
;==========================================================
@DIARY_NK_K38_2_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_2
PRINTFORML
;==========================================================
@DIARY_NK_K38_3_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_3
PRINTFORML
;==========================================================
@DIARY_NK_K38_4_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_4
PRINTFORML
;==========================================================
@DIARY_NK_K38_5_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_5
PRINTFORML
;==========================================================
@DIARY_NK_K38_6_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_6
PRINTFORML
;==========================================================
@DIARY_NK_K38_7_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_7
PRINTFORML
;==========================================================
@DIARY_NK_K38_8_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_8
PRINTFORML
;==========================================================
@DIARY_NK_K38_9_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_9
PRINTFORML
;==========================================================
@DIARY_NK_K38_10_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_NK_K38_10
PRINTFORML
;==========================================================

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

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

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

path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/一般/未动笔/M_KOJO_K38_514_日記（簡易版）.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/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/其它/コマンド口上でソースを追加する方法.txt


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

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


path: ERB/口上・メッセージ関連/個人口上/【38】古明地恋_试制口上v0.053/性/M_KOJO_K38_514_事件_情事.ERB


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


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


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


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


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