code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;愛撫系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;0,愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K63_0
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_0_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_0_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;挿入中
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;A挿入
	ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;扶她
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && (TALENT:2 & 3) == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 虽然平时不怎么会穿凸显身材的服装、但实际上影狼藏在衣服底下的娇躯却是相当有料
			CASE 1
				PRINTFORML %TEXTR("柔软的腹部/紧致的臀部")%摸起来手感棒极了
			CASE 2
				PRINTFORML 该柔软的地方温润如玉、该紧致的地方不留一丝赘肉、真是美妙的肉体
				PRINTFORML 就连平日摄取的营养也全部都被转换成了用于保护脆弱内脏的实用脂肪了似的
			CASE 3
				PRINTFORML 凹凸有致的美妙躯体、但也能感觉到柔软肌肤下的肌肉的有力触感
				PRINTFORML 不愧是充满野性的兽之肉体
		ENDSELECT
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;1,舐陰
;==================================================
@M_KOJO_MESSAGE_COM_K63_1
;初めて
IF FIRSTTIME("初舐陰")
	PRINTFORMW 「唔诶诶诶！？要舔吗！？舔那个地方！？」
	{
	PRINTFORML 「让你舔那种脏脏的地方总感觉有点抱歉、啊但我要声明虽说是脏但可不是不干净的意思呀
	（总担心说不定会发生这样的情况）为了交尾我也是有好好把身子清洗干净的啦、只是觉得就算是在交尾也不必做这种事……」
	}
	CALL ASK_YN("不喜欢吗？","无论如何都要舔")
	IF !RESULT
		PRINTFORMW 「也不是说真的那么抵触……」
	ELSE
		PRINTFORMW 「说、说到那个地步的话、唔嗯……」
	ENDIF
	PRINTFORMW 「那、那个…还请手下留情……」
ENDIF
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_1_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_1_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW （怎么办啊！变成不得了的情况了！）
		PRINTFORMW （%CALLNAME:MASTER%、把脸伸到我的大腿间在舔我的那个地方、还说要让我舒服起来啊！）
		CALL HPH_PRINT,@"（呜哇ー－－っHPH）","W"
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;膣内射精直後
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		IF TCVAR:102
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;絶頂した
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && NOWEX:0
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		IF ABL:Ｃ感覚 < 2
			PRINTFORML 「%TEXTR("唔、嗯っ……/嗯っ……好像、有点舒服馁……")%」
		ELSE
			CALL HPH_PRINT,@"「啊啊っHPH　啊っHPH　啊HPH　哈啊っHPH」","L"
			IF RAND:2
				PRINTFORML （好认真地在舔着诶……）
				PRINTFORML （%CALLNAME:MASTER%也有在想让我好好舒服起来啊……）
			ELSE
				CALL HPH_PRINT,@"（%TEXTR("啊ー好舒服ー……HPH　脑袋都晕乎乎的了/啊…HPH　人家的爱液、被喝下去好多")%……HPH）","W"
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;あとは適当な分岐を追加してください
;==================================================
;2,给对方口交
;==================================================
@M_KOJO_MESSAGE_COM_K63_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_2_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_2_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;3,指挿入れ
;==================================================
@M_KOJO_MESSAGE_COM_K63_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_3_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_3_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;4,舐肛
;==================================================
@M_KOJO_MESSAGE_COM_K63_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_4_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_4_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;5,肛門愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K63_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_5_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_5_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;6,胸愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K63_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_6_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_6_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW 「想摸摸我的胸部吗？……嘛、可以啊」
		PRINTFORMW 「之前就听说过人类的雄性对胸部有特殊的执着、原来是真的啊」
		PRINTFORMW 「这么说起来%CALLNAME:MASTER%、之前就有偷偷地在看我的呢」
		RETURN 1
	ENDIF
	IF ABL:Ｂ感覚 <= 3
		PRINTFORMW @%TEXTR("「……这样很開心吗？」/「又是欧派吗？」/无事可做的影狼轻轻抚摸着%CALLNAME:MASTER%的脸庞")%
		RETURN 1
	ELSEIF TALENT:Ｂ感度 < 0
		PRINTFORMW 「%TEXTR("…嗯、讨厌、真的是很喜欢呢/嗯嗯っ…有点舒服、也说不定呢……")%」

		RETURN 1
	ELSE
		PRINTFORML 「%TEXTR("…嗯っ、呼呜っ…、哈、啊啊…/哈呜…啊…哈啊、嗯嗯っ…")%」
		IF !RAND:2
			CALL HPH_PRINT,@"「更多……HPH」","L"
		ELSE
			CALL HPH_PRINT,@"「真是的、我要回礼了哟HPH」","L"
			IF !RAND:2
				;胸愛撫or吸乳头
				TCVAR:次回Counter = 58 + RAND:2
			ELSEIF !RAND:2
				;ディープ接吻
				TCVAR:次回Counter = 60
			ELSEIF TEQUIP:50 == PLAYER
				TCVAR:次回Counter = 88
			ELSE
				TCVAR:次回Counter = 50
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;7,玩弄乳頭
;==================================================
@M_KOJO_MESSAGE_COM_K63_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_7_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_7_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;8,張開陰唇
;==================================================
@M_KOJO_MESSAGE_COM_K63_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_8_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_8_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;9,自慰
;==================================================
@M_KOJO_MESSAGE_COM_K63_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_9_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_9_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
[SKIPSTART]
;別指令化
;==================================================
;10,吸乳头
;==================================================
@M_KOJO_MESSAGE_COM_K63_10
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_10_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_10_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
[SKIPEND]
;==================================================
;11,吸乳头
;==================================================
@M_KOJO_MESSAGE_COM_K63_11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_11_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_11_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;12,胸もみ
;==================================================
@M_KOJO_MESSAGE_COM_K63_12
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_12_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_12_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;13,張開肛門
;==================================================
@M_KOJO_MESSAGE_COM_K63_13
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_13_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_13_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;15,陰蒂愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K63_15
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_15_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_15_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;ソフト系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;19,接吻
;==================================================
@M_KOJO_MESSAGE_COM_K63_19
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_19_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_19_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF !RAND:2
			PRINTFORML （连牙齿都被舔到了……感觉有点高兴诶……）
		ELSE
			PRINTFORML 虽然平日里的影狼跟人类也差不了多少、但果然还是有不一样的地方
			PRINTFORML 过于尖锐的牙齿、尤其是犬牙跟人类的有明显的差别
			PRINTFORML 试着小心翼翼地舔舐了影狼的犬牙
		ENDIF
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;20,接吻
;==================================================
@M_KOJO_MESSAGE_COM_K63_20
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_20_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_20_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FIRSTTIME(SELECTCOM)
		PRINTFORMW 「啊、这是要、接吻了吗」
		PRINTFORMW 「嗯っ………嗯嗯嗯！？」
		PRINTFORMW 「对、对不起……没想到会把舌头伸进来呢……」
		PRINTFORMW 「嗯、已经没关系了、我们再来一次……」
		PRINTFORMW 「嗯っ、啾…嗯嗯っ……」
		PRINTFORMW 「噗哈……呵呵…原来、接吻这么舒服的啊……」
		RETURN 1
	ENDIF
	IF ABL:舌 >= 2 && FIRSTTIME("べろちゅー１")
		PRINTFORMW 「嗯啾……啾……嗯嗯っ！？」
		PRINTFORMW 伸进口腔的舌头突然索取着自己的涎水、影狼被你的举动吓的身体僵硬了一瞬间、但又很快委身于你
		CALL HPH_PRINT,@"「嗯……呼…　哈ーーっ……HPH」","W"
		PRINTFORMW 「呐、下次也让我来试试吧？」
		RETURN 1
	ENDIF
	IF ABL:舌 >= 2 && FIRSTTIME("べろちゅー２")
		PRINTFORMW 「那这次就由我这边来哟」
		PRINTFORMW 「啾…嗯咻……啾……」
		PRINTFORMW 「呼っ……啾啪…咻噗……」
		CALL HPH_PRINT,@"「嗯っHPH　嗯っHPH　啾っHPH　啾啪HPH　咻噗HPH　　啾～～～～～～っHPH」","W"
		PRINTFORMW 「咻哈…呼ーーっ……好舒服啊、这样」
		SOURCE:快Ｍ += 300
		SOURCE:PLAYER:快Ｍ += 500
		SOURCE:情愛 += 100
		SOURCE:性行動 += 100
		EXP:口淫経験 += 10
		RETURN 1
	ENDIF
	IF ABL:舌 >= 2 && (PALAM:欲情 >= PALAMLV:5 || TCVAR:発情)
		IF !RAND:3
			CALL HPH_PRINT,@"「啾っHPH　啾咕HPH　啾啪HPH　啾っHPH　咻っHPH　咻啪HPH」","W"
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%的嘴里、好美味……HPH　再让我尝尝？　嗯っHPH」","W"
			PRINTFORMW 影狼不顾垂在嘴角的唾液、疯狂地贪恋着与%CALLNAME:MASTER%浓厚的接吻
		ELSEIF !RAND:2
			CALL HPH_PRINT,@"「嘞噜っHPH　舔舔っHPH　嗯っHPH　舔舔っHPH　嘞噜っHPH　」","W"
			PRINTFORMW 影狼那炽热的舌头、不留缝隙地爱抚着%CALLNAME:MASTER%嘴里的每一个角落
		ELSE
			PRINTFORMW 「呐、把舌头伸出来？」
			PRINTFORMW 「哈姆っ」
			CALL HPH_PRINT,@"「嘞噜っHPH　舔舔舔っHPH　哈呼っHPH　咻噗っHPH　咻噗っHPH　啾っHPH　啾噗噗っHPH」","W"
			PRINTFORMW 熱烈的舌交还在继续着……
		ENDIF
		SOURCE:快Ｍ += 300
		SOURCE:PLAYER:快Ｍ += 500
		SOURCE:情愛 += 100
		SOURCE:性行動 += 50
		EXP:口淫経験 += 3
		TEQUIP:継続接吻 = 1
	ELSE
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML （连牙齿都被舔到了……感觉有点高兴诶……）
			CASE 1
				PRINTFORML 虽然平日里的影狼跟人类也差不了多少、但果然还是有不一样的地方
				PRINTFORML 过于尖锐的牙齿、尤其是犬牙跟人类的有明显的差别
				PRINTFORML 试着小心翼翼地舔舐了影狼的犬牙
			CASEELSE
				PRINTFORMW 「%TEXTR("啾…嗯っ…/嗯嗯っ…嗯啾……/嗯…哈啊っ……")%」
				PRINTFORMW 「%TEXTR("喜欢……/诶嘿嘿……")%」
		ENDSELECT
		SOURCE:快Ｍ += 100
		EXP:口淫経験 ++
	ENDIF
ENDIF
RETURN 1

;==================================================
;21,什麼也不做
;==================================================
@M_KOJO_MESSAGE_COM_K63_21
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_21_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_21_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;22,誘惑
;==================================================
@M_KOJO_MESSAGE_COM_K63_22
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_22_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_22_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;23,枕邊話
;==================================================
@M_KOJO_MESSAGE_COM_K63_23
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K63_23_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K63_23_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;失敗
	IF TFLAG:193
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;思慕
	ELSEIF TALENT:思慕
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/M_KOJO_K63_愛撫系コマンド.ERB


code:
;━━━━━━━━━━━━━━━━━━━━━━━━━
;身体接觸
;━━━━━━━━━━━━━━━━━━━━━━━━━
@KAGEROU_SKINSHIP
SIF CFLAG:1001
	RETURN RAND:10
PRINTL [0]握手 [1]摸脸 [2]摸耳朵 [3]抚下巴 [4]摸头发 [98]随机
PRINTL [5]揉肩 [6]摸背 [7]戳肚子 [8]摸鼻子 [9]黏上去 [99]毎回随机
PRINTL [10]摸摸影狼的肉球
DRAWLINE
PRINTFORML [999] 影狼小姐的秘密
INPUT
SELECTCASE RESULT
CASE 0 TO 9
	RETURN RESULT
CASE 10
	IF TALENT:[[影狼]]:恋慕
		RETURN 10
	ELSE
		PRINTL 「不要啦那种事情」
		RETURN RAND:10
	ENDIF
CASE 98
	RETURN RAND:10
CASE 99
	CFLAG:1001 = 1
	PRINTW （想回去的话就和我一起许愿吧）
	PRINTL
	RETURN RAND:10
CASE 999
	CALL K63_SECRET
;手入力で人狼ゲームを呼び出せます
CASE 100
	RETURN 100
CASEELSE
ENDSELECT
RESTART
;━━━━━━━━━━━━━━━━━━━━━━━━━
;くんくん影狼
;━━━━━━━━━━━━━━━━━━━━━━━━━
@KUNKUN_KAGEROU
#LOCALSIZE 人物数量上限
#DIM LOCAL_ID
;一緒に作った料理は食べない
IF FLAG:20 && !TCVAR:353
	PRINTFORMW 「唔！这是%DISHNAME%的气味呢！」
	PRINTL
	PRINTFORML 影狼用肉眼难以捕捉的速度将%CALLNAME:MASTER%身上带着的%DISHNAME%给拿走了
	PRINTFORMW 然后没过一眨眼的工夫就吃光了。
	;EVENTCOMENDからコピペ。変更があったら対応の事。
	IF DISH_DRG
		CALL MESSAGE_EAT_DISH_DRG(TARGET)
		WAIT
	ENDIF
	;CALL KOJO_MESSAGE_SEND("EVENT",14,TARGET,-1,-1)
	CALL 吃飯(TARGET)
	CALL RESET_DISH
ELSE
	CALLF FUNC_FISHER_YATES_SHAFFLE(LOCAL, CHARANUM)
	;影狼ちゃんと路人娘とMASTERは抽選対象から外します
	ARRAYREMOVE LOCAL, FINDELEMENT(LOCAL, 63), 1
	ARRAYREMOVE LOCAL, FINDELEMENT(LOCAL, MASTER), 1
	ARRAYREMOVE LOCAL, FINDELEMENT(LOCAL, RANDOM_CHARANUM), 1
	;FUNC_FISHER_YATES_SHAFFLE内で-1で初期化されるのでこれで全配列対象処理になる
	;場所判定がよくわからんことになってたのでとりあえず近場の角色？にしてみるよ
	FOR LOCAL_ID, 0, FINDELEMENT(LOCAL, -1)
		;同じMapにいる角色限定
		SIF GET_MAPID(CFLAG:(LOCAL:LOCAL_ID):現在位置) != GET_MAPID(CFLAG:63:現在位置)
			CONTINUE
		;同じ場所の角色は除外
		SIF CFLAG:(LOCAL:LOCAL_ID):現在位置 == CFLAG:63:現在位置
			CONTINUE
		PRINTFORMW 「嗅嗅……这是%CALLNAME:(LOCAL:LOCAL_ID)%的味道呢」
		BREAK
	NEXT
ENDIF
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;影狼は特殊なので、関数化
;━━━━━━━━━━━━━━━━━━━━━━━━━
@影狼起床
;満月の日
SELECTCASE DAY:3
CASE 15
	;満月の下
	IF MOON_WATCH(DAY:3) == 9
		;しかも中秋の名月
		SELECTCASE DAY:2
		CASE 3
			PRINTFORMW 「哎呀、%CALLNAME:MASTER%你好呀……」
			PRINTFORMW 「今晚是……中秋夜呢……」
			PRINTFORMW 「那个、可以一起去赏月吗…？」
			PRINTFORML 「虽、虽然有点不好意思、但如果是%CALLNAME:MASTER%的话」
			PRINTFORMW 「把真实的姿态、展现出来……」
			PRINTFORMW 「不过这样的话……」
			PRINTFORMW 「不没什么、接下来就这样一起去赏月吧！」
			BASE:63:理性 = 0
			TCVAR:発情 = 1
		;普通の満月
		CASEELSE
			PRINTFORMW 「哎呀、%CALLNAME:MASTER%你好呀……」
			PRINTFORMW 「快看、今晚是満月哦」
			PRINTFORML 「虽然有点不好意思、但如果%CALLNAME:MASTER%…」
			PRINTFORMW 「想看看、今天的我的话……」
			PRINTFORMW 「呵呵、我竟然会去想这种事情真是不可思議呢」
			BASE:63:理性 = 0
			TCVAR:発情 = 1
		ENDSELECT
	;まだ昼で晴天てない
	ELSEIF TIME:2 >=1 && TIME:2 <= 4 && TIME:5 > 1
		PRINTFORMW 「哎呀、%CALLNAME:MASTER%、早安」
		PRINTFORMW 「那个……今晚是満月呢……」
		PRINTFORMW 「虽然不知道天気会变的怎样」
		PRINTFORMW 「如果是晴天的话要不要和我一起赏月呢？」
		CALL K63_ASK_OTSUKIMI
	;まだ昼
	ELSEIF TIME:2 >=1 && TIME:2 <= 4
		PRINTFORMW 「哎呀、%CALLNAME:MASTER%、早安」
		PRINTFORMW 「那个……今晚是満月呢……」
		PRINTFORMW 「虽然不知道天気会变的怎样」
		PRINTFORMW 「总之先祈祷会是个大晴天吧」
	;夜だけど晴天てない
	ELSEIF TIME:5 > 1
		;中秋の名月
		SELECTCASE DAY:2
		CASE 3
			PRINTFORMW 「啊啦、%CALLNAME:MASTER%早上好…」
			PRINTFORMW 「明明是难得的中秋佳节、这种天气真是气人呢……」
			PRINTFORMW 「呐%CALLNAME:MASTER%、如果放晴了的话要和我一起赏月吗？」
			CALL K63_ASK_OTSUKIMI
		;普通の満月
		CASEELSE
			PRINTFORMW 「哎呀、%CALLNAME:MASTER%、早安」
			PRINTFORMW 「明明是难得的満月、这种天气真是气人呢……」
			PRINTFORML 「……嘛因为正好是种族的生理周期」
			PRINTFORMW 「可以变身、不过现在体毛变到一半就……」
			PRINTFORMW 「喂、你在看哪里啊！」
		ENDSELECT
	;夜で晴天てるけど室内（秋）
	ELSEIF DAY:2 == 3
		PRINTFORMW 「哎呀、%CALLNAME:MASTER%你好呀……」
		PRINTFORMW 「今晚是……中秋夜呢……」
		PRINTFORMW 「那个、可以一起去赏月吗…？」
		PRINTFORML 「虽、虽然有点不好意思、但如果是%CALLNAME:MASTER%的话」
		PRINTFORMW 「把真实的姿态、展现出来也没什么关系吧……」
		PRINTFORMW 「不过这样的话……」
		PRINTFORMW 「不没什么、接下来就这样一起去赏月吧！」
	;夜で晴天てるけど室内
	ELSE
		PRINTFORMW 「啊…%CALLNAME:MASTER%你好呀……」
		PRINTFORMW 「呐、今晚是満月哦」
		PRINTFORML 「虽然有点不好意思、但如果%CALLNAME:MASTER%…」
		PRINTFORMW 「让你看看今天的我、也没什么吧……」
		PRINTFORMW 「不过那个……」
		PRINTFORMW 「不、什么事也没有哦！」
	ENDIF
;それ以外の日
CASEELSE
	SELECTCASE TIME:2
	;朝は寝てるんで死に分岐ですが
	CASE 1,2
		PRINTFORMW 「早安～…」
		PRINTFORMW 「从早上就很有精神呢……」
		PRINTFORMW 「我对早上有点不太适应……」
	;昼
	CASE 3,4
		PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
		PRINTFORMW 「中午是一天的開始呢」
	SIF TIME:0 < 901
		PRINTFORMW 「……呜哇～…还想睡……」
	;夜は分岐
	CASE 5,6,7
		SELECTCASE TIME:0
		;19～22時
		CASE 1140 TO 1320
			SELECTCASE TIME:3
			;18時以降起き
			CASE 1080 TO 1320
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「呵呵、你也是夜行性的人类吗」
				PRINTFORMW 「难道是勉强自己跟上我的节拍吗？」
				PRINTFORML 「虽、虽然很開心、不过这样对你的健康并没有好处」
				PRINTFORMW 「适可而止请不要让身体过于劳累了」
			;朝～昼起き
			CASEELSE
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「呵呵、太阳下山是长夜的開始哦」
			ENDSELECT
		;22～28時
		CASEELSE
			SELECTCASE TIME:3
			;22～27時起き
			CASE 1320 TO 1440,0 TO 180
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「呵呵、你也是夜行性的人类吗」
				PRINTFORMW 「难道是勉强自己跟上我的节拍吗？」
				PRINTFORMW 「虽、虽然很開心、果然这个时候起床不是很好呢」
				PRINTFORMW 「即便是我差不多中午也起来了呢」
			CASEELSE
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「已经完全是深夜了呢」
				PRINTFORMW 「因为现在開始就是妖怪的时间了、%CALLNAME:MASTER%最好还是不要走的太远了哦」
			ENDSELECT
		ENDSELECT
	ENDSELECT
ENDSELECT
TCVAR:350 = 1
RETURN 1

;━━━━━━━━━━━━━━━━━━━━━━━━━
;お天気影狼
;━━━━━━━━━━━━━━━━━━━━━━━━━
@OTENKI_KAGEROU(ARG)
SELECTCASE ARG
;春
CASE 1
	SELECTCASE TIME:2
	;昼
	CASE 3,4
		SELECTCASE TIME:7
		;虹
		CASE 1
		RETURN 110
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 111
			;陰天
			CASE 2,3
				RETURN 112
			;雨と霧
			CASE 4,6,7
				RETURN 113
			;大雨
			CASE 5
				RETURN 114
			ENDSELECT
		ENDSELECT
	;夜
	CASE 5 TO 7
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 120
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 121
			;陰天
			CASE 2,3
				RETURN 122
			;雨と霧
			CASE 4,6,7
				RETURN 123
			;大雨
			CASE 5
				RETURN 124
			ENDSELECT
		ENDSELECT
	ENDSELECT
;夏
CASE 2
	SELECTCASE TIME:2
	;昼
	CASE 3,4
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 210
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 211
			;陰天
			CASE 2,3
				RETURN 212
			;雨と霧
			CASE 4,6,7
				RETURN 213
			;大雨
			CASE 5
				RETURN 214
			ENDSELECT
		ENDSELECT
	;夜
	CASE 5 TO 7
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 220
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 221
			;陰天
			CASE 2,3
				RETURN 222
			;雨と霧
			CASE 4,6,7
				RETURN 223
			;大雨
			CASE 5
				RETURN 224
			ENDSELECT
		ENDSELECT
	ENDSELECT
;秋
CASE 3
	SELECTCASE TIME:2
	;昼
	CASE 3,4
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 310
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 311
			;陰天
			CASE 2,3
				RETURN 312
			;雨と霧
			CASE 4,6,7
				RETURN 313
			;大雨
			CASE 5
				RETURN 314
			ENDSELECT
		ENDSELECT
	;夜
	CASE 5 TO 7
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 320
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 321
			;陰天
			CASE 2,3
				RETURN 322
			;雨と霧
			CASE 4,6,7
				RETURN 323
			;大雨
			CASE 5
				RETURN 324
			ENDSELECT
		ENDSELECT
	ENDSELECT
;冬
CASE 4
	SELECTCASE TIME:2
	;昼
	CASE 3,4
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 410
		;ダイヤモンドダスト
		CASE 2
			RETURN 419
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 411
			;陰天
			CASE 2,3
				RETURN 412
			;雨と霧
			CASE 4,6,7
				RETURN 413
			;大雨
			CASE 5
				RETURN 414
			;雪系
			CASE 8,10,11,12,13
				RETURN 415
			;吹雪
			CASE 9
				RETURN 416
			ENDSELECT
		ENDSELECT
	;夜
	CASE 5 TO 7
		SELECTCASE TIME:7
		;虹
		CASE 1
			RETURN 420
		;ダイヤモンドダスト
		CASE 2
			RETURN 429
		CASEELSE
			SELECTCASE TIME:5
			;晴天
			CASE 0,1
				RETURN 421
			;陰天
			CASE 2,3
				RETURN 422
			;雨と霧
			CASE 4,6,7
				RETURN 423
			;大雨
			CASE 5
				RETURN 424
			;雪系
			CASE 8,10,11,12,13
				RETURN 425
			;吹雪
			CASE 9
				RETURN 426
			ENDSELECT
		ENDSELECT
	ENDSELECT
ENDSELECT
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;草の根と雑談
;会ってない日の一日の終了時に随机呼び出し
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
@草の根と雑談
#DIMS 会話相手
;会ってない日の一日の終了時に随机呼び出し
SIF CFLAG:[[若鷺姫]]:最後に会った日 == DAY && CFLAG:[[蛮奇]]:最後に会った日 == DAY
	RETURN 1
IF CFLAG:[[若鷺姫]]:最後に会った日 == DAY
	会話相手 = 蛮奇
	LOCAL = [[蛮奇]]
ELSEIF CFLAG:[[蛮奇]]:最後に会った日 == DAY
	会話相手 = 姫
	LOCAL = [[若鷺姫]]
ELSEIF !RAND:2
	会話相手 = 姫
	LOCAL = [[若鷺姫]]
ELSE
	会話相手 = 蛮奇
	LOCAL = [[蛮奇]]
ENDIF

PRINTFORMW 影狼与同样作为草根妖怪的伙伴闲聊着。

CALL 画像セット(@"顔絵_服_通常_{[[影狼]]}", 0, 0, 100, 0, 0, "", "默认顔絵")
CALL 画像セット(@"顔絵_服_通常_{LOCAL}", 0, 0, 100, 0, 0, "", "默认顔絵")
CALL 画像一斉表示("左", 0, 1)
PRINTFORML
IF TALENT:恋慕 && !RAND:2
	IF TALENT:育児中
		IF CFLAG:出産経過日 > CHILD_就学
			IF !RAND:2
				PRINTFORMW 「快来、跟%会話相手%姐姐打个招呼~」
				PRINTFORMW 「嗯！好孩子。」
			ELSEIF !RAND:2
				PRINTFORMW 「我家的孩子也差不多到了不用寸步不离地照看的年纪了啊ー」
				PRINTFORMW 「之前真是被%会話相手%关照了呢」
			ELSE
				PRINTFORMW 「%SHOW_CHILDNAME(63)%有点精神过头了呢」
				PRINTFORMW 「%CALLNAME:MASTER%说要把孩子送去寺子屋的时候还在想会怎么样呢、结果进行的还挺顺利的」
			ENDIF
		ELSEIF CFLAG:出産経過日 > CHILD_語彙
			IF !RAND:3
				PRINTFORMW 「啊ー你这孩子不要那么大声啦！真是的！」
				PRINTFORMW 「不好意思啦%会話相手%、小孩子还真是难懂呢」
			ELSEIF !RAND:2
				PRINTFORMW 「长大了不少吧？最近已经開始说话了呢」
				PRINTFORMW 「你看、叫叫看%会話相手%姐姐？」
			ELSE
				PRINTFORMW 「%SHOW_CHILDNAME(63)%有老老实实的吗？」
				PRINTFORMW 「真是麻烦你今天照顾孩子了、%会話相手%」
			ENDIF
		ELSE
			IF !RAND:2
				PRINTFORMW 「呵呵、很可愛吧」
				PRINTFORMW 「%SHOW_CHILDNAME(63)%好像也很喜欢%会話相手%的样子呢」
			ELSEIF !RAND:2
				PRINTFORMW 「然后你知道发生了什么吗%会話相手%？那个%TEXTR("妖精/兔子/人类/")%就…」
				PRINTFORMW 「啊怎么了吗%SHOW_CHILDNAME(63)%！？是肚肚饿了吗？」
			ELSE
				PRINTFORMW 「果然要养育孩子真的很难呢」
			ENDIF
		ENDIF
	ELSEIF K63_WADAI:0 == "料理"
		PRINTFORMW 「前段时间%CALLNAME:MASTER%做了%K63_WADAI:1%哦、那个真的很美味呢」
	ELSEIF K63_WADAI:0 == "贈り物"
		PRINTFORMW 「你看、这个%K63_WADAI:1%、是%CALLNAME:MASTER%送给我的！」
		PRINTFORMW 「是很不错的东西吧」
	ELSE
		IF !RAND:3
			PRINTFORMW 「然后啊%会話相手%、就在那时%CALLNAME:MASTER%他…」
		ELSEIF !RAND:2
			PRINTFORMW 「嘿诶ー、那个下次就让%CALLNAME:MASTER%也来%TEXTR("做做看/试一下/听听看/")%吧」
		ELSE
			PRINTFORMW 「我超懂的ー、%CALLNAME:MASTER%那是那种类型的呢」
		ENDIF
	ENDIF
ELSEIF TALENT:思慕 && !RAND:2
	IF 会話相手 == "姫"
		PRINTFORMW 「呐公主啊、那个、我就是只是问问哦？」
		PRINTFORMW 「妖怪与人类交往……什么的、你觉得可能吗？　没什么别的意思就是问问哦？」
	ELSE
		PRINTFORML 「呐蛮奇、我想打听一些关于人类的事情诶…」
		PRINTFORMW 「%TEXTR("这样啊/…唔嗯、是那样啊/嘿诶ー、好奇怪哦/…原来如此ー/")%」
	ENDIF
ELSE
	IF INRANGE(DAY:3,10,14)
		PRINTFORMW 「満月临近了、身上的毛处理起来好麻烦哦」
	ELSEIF !RAND:3
		PRINTFORMW 「下次再一起去人間之里玩吧？」
	ELSEIF !RAND:2
		PRINTFORMW 「那个真的很好吃呢ー」
	ELSE
		PRINTFORMW 「%会話相手%近来如何呀？」
	ENDIF
ENDIF
VARSET K63_WADAI
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;お赏月イベントを切り出し
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
@K63_ASK_OTSUKIMI
CALL ASK_YN("放晴了就去吧","稍微有点忙呢")
;《月霧/Moonmist》
IF !RESULT
	PRINTFORMW 「真的！？」
	PRINTFORML 「那就不得不这样做了呢……」
	PRINTFORMW 「终于到了使用秘藏的呪文（Spell）Card的时候了！」
	PRINTL
	PRINTFORMW 影狼躲到暗处、取出了一张平常没见过符卡并念起了呪文。
	PRINTFORML 在这之后、四周被泛着银光的大雾所包裹、好像夜幕提前降临
	PRINTFORMW 银光旋转、裂開、最后伴随着大雾散去影狼再次现身了。
	PRINTFORMW 发觉到天空的正中央、一轮璀璨的太阳已冉冉升起。
	PRINTL
	PRINTFORMW 「呵呵呵…要对大家保密哦♪」
	PRINTFORMW 「那么、好好享受中秋节吧」
	TIME:5 = 1
ELSE
	PRINTFORMW 「……是吗…」
	PRINTFORMW 「嘛这样就和天气好坏没关系了…说了任性的话真是对不起了」
	PRINTFORMW 「啊、请你不用在意、没关系的」
ENDIF

@K63_OTSUKIMI_TALK
SELECTCASE MOON_WATCH(DAY:3)
;新月
CASE 1
	PRINTFORMW 「因为今天是新月、所以再怎么找也看不到月亮呢」
	PRINTFORMW 「相对的、你看可以见到这么美丽的星空呢」
	SIF TALENT:恋慕
		PRINTFORMW 「和%CALLNAME:MASTER%在一起的话即使是没有月亮的夜晚也非常美妙呢」
;二日月
CASE 2
	PRINTFORMW 「啊ー、月色稍微有点暗淡呢」
	PRINTFORMW 「意外地看到这样子的初月总觉得也挺难得的呢？」
;三日月
CASE 3
	PRINTFORMW 「快看、美丽的三日月！」
	PRINTFORMW 「虽然満月也很好、但三日月的迷人姿态也很有魅力呢」
	SIF TALENT:恋慕
		PRINTFORMW 「呵呵、看上去好像是整个夜空在对我们微笑呢」
;四～七日月
CASE 4
	PRINTFORMW 「今天的月亮大人是～…」
	PRINTFORMW 「虽然严格来说并不是三日月、但形状是三日月的样子呢」
;上弦
CASE 5
	PRINTFORMW 「是美丽的半月呢」
	PRINTFORMW 「我看看……平整的一面在上方呢…所以这是上弦月哦」
;九～十二日月
CASE 6
	PRINTFORMW 「哎呀、看到月亮大人了呢」
	PRINTFORMW 「渐渐膨大饱满起来了、马上就要満月了呢」
	SIF TALENT:恋慕
		PRINTFORMW 「像饼一样饱满的望月……对不起刚才说的不算！！」
;十三夜
CASE 7
	;秋の十三夜
	IF DAY:2 == 3
		PRINTFORMW 「十三夜的月亮大人看起来好美丽啊～」
		PRINTFORMW 「虽然不是満月、但因此反而能放松地尽情享受呢！」
		IF TALENT:恋慕
			PRINTW 「要问为什么……因为、我、满月时会变身所以那个……」
			PRINTW 「要清理脱落的体毛什么的真的很麻烦呢……」
		ELSE
			PRINTW 「不、没事……」
		ENDIF
	;普通の十三夜
	ELSE
	PRINTFORMW 「今天是十三夜哦」
	PRINTFORMW 「快看、椭圆形的月亮大人升起来了哦」
	PRINTFORMW 「虽然并不是秋天、十三夜就是十三夜哦？」
	ENDIF
;待宵
CASE 8
	PRINTFORMW 「今天是待宵之月呢」
	PRINTFORMW 「也就是说明日是満月！」
	PRINTFORMW 「…………」
	PRINTFORMW 「有点坐立不安呢……」
;満月（挨拶の段階で恋慕が前提）
CASE 9
	IF TALENT:恋慕
		;中秋の名月
		SELECTCASE DAY:2
		CASE 3
			PRINTFORMW 和影狼一起静静地欣赏十五夜的美丽月色
			PRINTL
			$FULLMOON_INPUT_LOOP_01
			PRINTL [0] 月色真美啊
			PRINTL [1] 风来云退散、秋月出寒宫
			PRINTL [2] 来吃团子吧！
			INPUT
			SELECTCASE RESULT
			;I love you
			CASE 0
				PRINTFORMW 「啊哈哈、这个、我知道」
				PRINTFORMW 「真是的、说这种事也不觉得害臊吗」
				PRINTFORMW 「好高兴、谢谢……」
				PRINTFORMW 「我也、那个……对…%CALLNAME:MASTER%……」
				IF TALENT:MASTER:恋人 == NO:63 && TALENT:63:恋人 == NO:63
					PRINTFORMW 「喜欢……好喜欢……」
					EXP:接吻経験 += 1
				ELSE
					PRINTFORMW 「唔嗯、没什么……」
				ENDIF
				TIME += 10
				SOURCE:情愛 += 200
				EXP:63:愛情経験 += 1
				CFLAG:63:4 += (ABL:MASTER:話術技能)
				DOWNBASE:気力 -= 60
			;和歌クイズ
			CASE 1
				$FULLMOON_INPUT_LOOP_02
				PRINTL
				PRINTL [0] 混沌一时尽、清辉天地中
				PRINTL [1] 红尘若有恋、夜半明月间
				PRINTL [2] 云间何处隐、晓月已无形
				INPUT
				SELECTCASE RESULT
				CASE 0
					PRINTFORMW 「好美啊～♪」
					PRINTFORMW 「的确是适合在现在、这副美景下咏唱的和歌呢」
					PRINTFORMW 「在月圆之夜聆听这个、真的能让人倍感清闲寂寥之心呐」
					SOURCE:歓楽 += 100
					SOURCE:情愛 += 50
					EXP:MASTER:会話経験 += (ABL:MASTER:話術技能) * 2
					CFLAG:63:4 += (ABL:MASTER:話術技能) * 2
					DOWNBASE:気力 -= 160
				CASEELSE
					PRINTFORMW 「…………那个……」
					PRINTFORMW 「我、我已经知道你想表达什么了。唔嗯…」
					PRINTFORMW 「下次再来咏唱百人一首吧？呐、%CALLNAME:MASTER%」
					SOURCE:歓楽 += 30
					EXP:MASTER:会話経験 += 1
					DOWNBASE:気力 += 40
				ENDSELECT
				TIME += 10
				;月より団子
				;団子は室内でしか食べられないが、走廊は室内かつ赏月できるのでおすすめじゃぞ
			CASE 2
				PRINTFORML 「真是的ー、%CALLNAME:MASTER%也太舍华求实了吧…」
				PRINTFORMW 「不对、是舍月求团子呢」
				PRINTFORMW 「算了！也好！我也想吃了呢！」
				PRINTFORMW 「果然赏月就是要配上美酒佳肴呢～♪」
				;雜糧は不使用。影狼が持参してくれているのだろう
				;料理システムは改変がくるかもいれないので要チェック
				CALL 料理生成("赏月団子", [[影狼]])
				SOURCE:歓楽 += 100 + (ABL:MASTER:料理技能) * 20
				EXP:MASTER:料理経験 += 1
				EXP:63:料理経験 += 1
				DOWNBASE:MASTER:体力 += 50
				DOWNBASE:MASTER:気力 += 100
				TIME += 20
			CASEELSE
				GOTO FULLMOON_INPUT_LOOP_01
			ENDSELECT
		;普通の満月
		CASEELSE
			PRINTFORMW 「呵呵…美丽的満月呢……」
			PRINTFORMW 「放心吧。不会突然変身把你吃掉的」
			PRINTFORMW 「不过哎呀、从袖子里冒出来了呢……」
			PRINTFORMW 「不管怎么说……啊！不要！不要看那里！」
			PRINTFORML 「讨厌、真是的……。」
			PRINTFORMW 「接下来就会那样呢、身体里的理性会变得完全相反、狂乱的凶暴本性会涌上来呢」
			PRINTFORML 「虽然现在已经可以完全控制住了」
			PRINTFORMW 「过去受这样的本能驱使曾经袭击过人类和家畜呢」
			PRINTFORML 「啊哈哈。因为妖怪本来就是这样的东西呢」
			PRINTFORMW 「从现在開始对我畏而远之也可以哦」
			PRINTFORMW 「……但是果然、不想%CALLNAME:MASTER%这样对我呢……」
			PRINTFORML 「时代已经变了。人和妖一边对立一边共生…」
			PRINTFORMW 「好不容易感情才变得这么好」
			PRINTFORMW 「可以的话真想永远的、呆在%CALLNAME:MASTER%身边、不想看到反目成仇的一天……」
		ENDSELECT
		PRINTL
		PRINTFORMW 「真没想到和%CALLNAME:MASTER%一起观赏満月会这么的開心呢」
		PRINTFORMW 「我现在、感到非常幸福呢……」
		TIME += 10
		SOURCE:歓楽 += 100
		SOURCE:情愛 += 100
		SOURCE:露出 += 100
		SOURCE:恐怖 += 50
		SOURCE:達成 += 10
		SOURCE:逸脱 += 10
		EXP:63:愛情経験 += 1
		DOWNBASE:気力 -= 100
		BASE:63:体力 += 100
		CFLAG:63:信賴度 += (ABL:MASTER:話術技能)
		BASE:63:情緒 = MAXBASE:63:情緒
		BASE:63:理性 = 0
		TCVAR:発情 = 1
		;恋慕じゃない
	ELSE
		PRINTFORMW 「今天的月亮大人圆滚滚的、是満月哦」
		PRINTFORMW 「啊啊……一不小心看呆了呢……」
		TCVAR:発情 = 1
	ENDIF
;十六夜
CASE 10
	PRINTFORMW 「今宵的月亮大人是十六夜呢」
	PRINTFORMW 「写作"十六夜"却读作"izayoi"呢」
	PRINTFORMW 「…唔～！这种词语一听到就会觉得讨厌呢……」
	SIF TALENT:恋慕
		PRINTFORMW 「不、怎么说呢……有一次被叫这个名字的女仆给教训了一顿呢……」
;十七～二十二夜（ここかはら住宿しないと見られない）
CASE 11
	PRINTFORMW 「哎呀、月亮出来了呢」
	PRINTFORMW 「満月过后正慢慢变小的、二十日前後的月亮呢」
	PRINTFORMW 「随着黎明到来月色变的淡薄、总觉的泛起了一丝哀愁呢」
;下弦
CASE 12
	PRINTFORMW 「今天的是下弦月、很美丽呢」
	PRINTFORMW 「登上天顶后就会開始慢慢消逝了、有点悲从中来呢…」
	PRINTFORMW 「月亮就是这样呢」
;二十四～二十九夜
CASE 13
	PRINTFORMW 「过去好像也有过像这样耐心的等待月末的月亮的习惯呢」
	PRINTFORMW 「另外颠倒过来的三日月总觉得看起来有些不是滋味呢」
;三十夜（寝ずに起きてないと見られない。死に分岐？）
CASE 14
	PRINTFORMW 「哎呀哎呀、又看到宝贵的晦日之月了」
	SELECTCASE DAY:2
	CASE 1
		PRINTFORMW 「三十日的晦日之月呢。马上就要到夏天了呢～」
	CASE 2
		PRINTFORMW 「三十日的晦日之月呢。马上就要到秋天了呢～」
	CASE 3
		PRINTFORMW 「三十日的晦日之月呢。马上就要到冬天了呢～」
	CASE 4
		PRINTFORMW 「三十日的晦日之月呢。马上就要过年了呢～」
	ENDSELECT
ENDSELECT
TCVAR:351 = 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;挨拶
;━━━━━━━━━━━━━━━━━━━━━━━━━
@K63_GREETING
IF TCVAR:363 == 1
	{
	PRINTFORMW 「%TEXTR("真讨厌啊……至少服装还是想凭自己的爱好来穿的说……/
	为什么狼非得穿成这样才行……/只能说万幸离満月还有一点日子啊……")%」
	}
	RETURN 1
ENDIF

IF FLAG:住宿人物 == 63
	SELECTCASE TIME:2
	;朝は寝てるんで死に分岐ですが
	CASE 1,2
		PRINTFORMW 「早安～…」
		PRINTFORMW 「从早上就很有精神呢……」
		PRINTFORMW 「我对早上有点不太适应……」
	;昼
	CASE 3,4
		PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
		PRINTFORMW 「中午是一天的開始呢」
	SIF TIME:0 < 901
		PRINTFORMW 「……呜哇～…还想睡……」
	;夜は分岐
	CASE 5 TO 7
		SELECTCASE TIME:0
		;19～22時
		CASE 1140 TO 1320
			SELECTCASE TIME:3
			;18時以降起き
			CASE 1080 TO 1320
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「呵呵、你也是夜行性的人类吗」
				PRINTFORMW 「难道是勉强自己跟上我的节拍吗？」
				PRINTFORML 「虽、虽然很開心、不过这样对你的健康并没有好处」
				PRINTFORMW 「适可而止请不要让身体过于劳累了」
			;朝～昼起き
			CASEELSE
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、晚上好！」
				PRINTFORMW 「呵呵、太阳下山是长夜的開始哦」
			ENDSELECT
		;22～28時
		CASEELSE
			SELECTCASE TIME:3
			;22～27時起き
			CASE 1320 TO 1440,0 TO 180
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、早安！」
				PRINTFORMW 「呵呵、你也是夜行性的人类吗」
				PRINTFORMW 「难道是勉强自己跟上我的节拍吗？」
				PRINTFORMW 「虽、虽然很開心、果然这个时候起床不是很好呢」
				PRINTFORMW 「即便是我差不多中午也起来了呢」
			CASEELSE
				PRINTFORMW 「哎呀%CALLNAME:MASTER%、晚上好！」
				PRINTFORMW 「已经完全是深夜了呢」
				PRINTFORMW 「因为现在開始就是妖怪的时间了、%CALLNAME:MASTER%最好还是不要走的太远了哦」
			ENDSELECT
		ENDSELECT
	ENDSELECT
ELSEIF DAY - CFLAG:最後に会った日 >= 7
	LOCAL = (DAY - CFLAG:最後に会った日) / 7
	IF LOCAL > 4
		LOCAL /= 4
		IF TALENT:恋慕
			PRINTFORML 整整{LOCAL}个月没见到好寂寞哦
			PRINTFORMW 呐、%CALLNAME:MASTER%在这{LOCAL}个月里、有没有、哪怕只有一点点思念过我呢？
		ELSE
			PRINTFORML {LOCAL}个月不见了呢
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORML 整整{LOCAL}周没见到好寂寞哦
			PRINTFORMW 呐、%CALLNAME:MASTER%在这{LOCAL}周里、有没有、哪怕只有一点点思念过我呢？
		ELSE
			PRINTFORML {LOCAL}周不见了呢
		ENDIF
	ENDIF
ELSE
	SELECTCASE TIME:2
	;朝は寝てるんで死に分岐ですが
	CASE 1,2
		PRINTFORMW 「早安～…」
		PRINTFORMW 「从早上就很有精神呢……」
		PRINTFORMW 「我对早上有点不太适应……」
	;昼
	CASE 3,4
		PRINTFORMW 「哎呀、早安！」
		PRINTFORMW 「诶？已经到中午了？」
		PRINTFORMW 「对我来说中午就是一天的開始哦！」
	;夜は分岐
	CASE 5,6,7
		SELECTCASE TIME:0
		;19～22時
		CASE 1140 TO 1320
			PRINTFORMW 「晚上好～！」
			PRINTFORMW 「呵呵呵…太阳已经完全落山了呢、从现在起就是妖怪们的时间了……」
			PRINTFORMW 「%CALLNAME:MASTER%还是去睡觉吧？」
		;22～28時
		CASEELSE
			PRINTFORMW 「都这个时间了呢、晚上好～！」
			PRINTFORMW 「已经完全是深夜了呢、不是人类可以自由活动的时间了哦？」
			PRINTFORMW 「该不会刚起来不久吧……」
		ENDSELECT
	ENDSELECT
ENDIF

;━━━━━━━━━━━━━━━━━━━━━━━━━
;ふるまうでも使用ので関数化
@MOGUMOGU_KAGEROU
;恋慕
IF TALENT:[[影狼]]:恋慕
;吟味前
		SELECTCASE DISHNAME
		;最初に例外群
		;"澳洲鴕鳥肉"はこっちに移動
		CASE "澳洲鴕鳥肉"
			PRINTFORML 「好大块的生鸟肉啊！」
			PRINTFORML 「满满的脂肪看起来好好吃……啊嘞、怎么感觉动了一下？」
		CASE "奶酪番茄沙拉", "興奮劑高湯"
			$KINDAN
			PRINTFORMW 「等一下%CALLNAME:MASTER%、这没问题吧？」
			PRINTFORMW 「太奇怪了…倒不如说很異常呢……」
			PRINTFORMW 「吃、吃下去真的没问题吗……」
		CASE "银吉獣料理"
			PRINTFORMW 「先问一下…这是什么料理？」
			PRINTL
			PRINTFORMKW 银吉獣料理
			PRINTL
			PRINTFORMW 「材料是…？」
			PRINTL
			PRINTFORMKW 银吉獣
			PRINTL
			PRINTFORMW 「…………」
		CASE "野味菜"
			PRINTFORML 「是野味菜啊！果然说到肉就绕不开这个呢～」
			PRINTFORMW 「公主不喜欢吃这个呢、但是能合%CALLNAME:MASTER%的胃口真是太好了」
		CASE "飞头馒头"
			PRINTFORML 「是蛮奇会做的那个呢」
			PRINTFORMW 「好吃是很好吃啦、但对我来说稍微有点辣了……」
		CASE "人鱼芭菲"
			PRINTFORML 「这不是公主她的拿手菜吗！？好厉害！」
			PRINTFORMW 「因为材料好像不太常见的样子、没什么吃的机会呢」
		CASE "牡丹火鍋"
			PRINTFORML 「哇～～好棒的摆盘！只有肉的话果然不能称之为牡丹火锅呢」
			PRINTFORMW 「也能好好期待一下味道的样子」
		CASE "草莓汤圆"
			PRINTFORML 「是人间之里那只青色兔子在卖的东西啊！因为很漂亮之前看到的时候超级在意的呢」
		CASE "鈴瑚印の団子"
			PRINTFORML 「是人间之里那只黄色兔子在卖的东西啊」
			PRINTFORML 「从前面看的话排的真是好整齐呢」
		CASE "巴别塔薄饼"
			PRINTFORML 「哇喔～～♪好厉害的量啊！」
		CASE "活花枝生魚片"
			PRINTFORML 「嘿诶、人类还会不杀死猎物像这样直接吃活的啊」
		CASE "春天的镇魂料理"
			PRINTFORML 「镇魂啊。唔ー嗯」
			PRINTFORML 「为逝者悼念也算是别有一番风味呢」
		CASE "餓虎牛排"
			PRINTFORML 「好豪放的牛排啊！你从哪儿学到这道菜的？……命蓮寺的那位？」
			PRINTFORML 「要一直违背本能真的是超级辛苦的事情呢、我超懂的ー……」
		CASE "京丸牡丹鍋"
			PRINTFORML 「好棒！是牡丹锅――不对、这个根本没有肉在里面啦！这是欺诈啦！」
		CASE "日式鸡肉串"
			PRINTFORML 「精致的料理是很棒、但是想品尝肉本身的味道还是简单烹饪最有效呢」
			PRINTFORMW 「这是跟谁学的菜啊？――啊、是妹红啊、偶尔会见到她呢」
		CASE "烤七鳃鳗"
			PRINTFORML 「是夜雀小摊的招牌菜耶」
			PRINTFORML 「连味道都一模一样！」
		CASE "犬饭"
			PRINTFORML 「虽然看着卖相不怎么样、但很能填饱肚子呢」
		{
		CASE "小蛋糕" , "巧克力蛋糕", "薄烤饼" , "奶油蛋糕" ,
		"派" , "水果小馅饼" , "可丽饼" , "奶油泡芙",
		"芭菲" , "布丁" , "果凍" , "酸奶" , "冰淇淋"
		}
			PRINTFORML 「哇是西式点心！不仅到处都没在卖、材料也不容易入手、像我们这样的小妖怪都没什么吃的机会呢」
			IF TALENT:恋慕 && !RAND:4
				PRINTFORML 「所以只能等红魔馆开展什么活动的时候、趁机和那里的女仆妖精……」
				PRINTFORMW 感觉有在做什么不好的事情呢
			ELSE
				PRINTFORMW 「要是把这个发表出来的话不就能一举斩获大量人气了吗？」
			ENDIF
		;お魚系、天婦羅は唯一、魚料理がつかないので先に分岐
		;まー、TASTEにはついてないが内実は想像にまかせるということで
		CASE "天麩羅"
			$OSAKANA
			PRINTFORMW 「魚貝不好获取所以很久没吃了呢」
			PRINTFORMW 「这在幻想乡也不算少见吧？」
		;主食肉
		;青蛙料理もこの区分だが……
		;だってこの娘、蛙肉だろうが喜んで食いそうなんだもん
		CASE "漢堡肉", "涮涮锅", "姜汁焼肉", "牛扒", "油淋鶏", "炸青蛙", "青蛙咖喱", "炒青蛙", "盐烤青蛙"
			PRINTFORMW 「果然肉是最棒的～♪」
			PRINTFORMW 「虽然平常只吃生肉」
			IF TCVAR:[[影狼]]:353
				PRINTFORMW 「和%CALLNAME:MASTER%一起料理出来的果然更胜一筹呢♪」
			ELSE
				PRINTFORMW 「被%CALLNAME:MASTER%料理过的果然更加美味呢♪」
			ENDIF
		;軽食肉
		CASE "漢堡", "焼麥", "肉包"
			$ONIKU
			PRINTFORMW 「%DISHNAME%吃起来很轻松呢」
			PRINTFORMW 「里面也放了肉所以很不错呢」
		CASE "珍珠奶茶"
			PRINTFORML 「沉在地下的黑黑的小圆球是什么啊？」
			CALL ASK_YN("处理过的芋头","青蛙卵")
			IF !RESULT
				PRINTFORML 「芋头能变成这个样子的吗！？」
				PRINTFORML 「有点不可思议诶、是不是魔芋之类的东西啊」
			ELSE
				PRINTFORML 「口感和味道完全联系不上啊、看来是什么奇怪种类的青蛙吧」
				PRINTFORML 「不过能想到往甜口的奶茶里加入青蛙的卵什么的、真是厉害的异想天开啊」
			ENDIF
		[SKIPSTART]
		;仕様変更とともに闇に消えたっぽいのでコメントアウト
		CASE 79
			PRINTFORMW 「嗷呜嗷呜」
			PRINTFORMW 「嗷呜嗷呜」
			PRINTFORMW 「嗷呜嗷呜」
			PRINTFORMW 「啊啦～、已经没有了吗」
		;关东煮
		CASE 86
			PRINTFORMW 「温温的刚刚好呢～♪」
			PRINTFORMW 「那么我就趁热……」
		[SKIPEND]

		CASEELSE
			IF STRCOUNT(DISH_TASTE, ESCAPE("香料/"))
				PRINTFORMW 「呜哇っ！？」
				PRINTFORMW 「这个就有点难入口了诶ー……光是闻味道鼻子就痒痒的……」
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("跳蛋/"))
				PRINTFORMW 「吃、吃下去真的没问题吗……」
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("麺類/"))
				IF TCVAR:[[影狼]]:353
					PRINTFORMW 「放鸡蛋放鸡蛋……」
					PRINTFORMW 「快看、这就是赏月%DISHNAME%！」
				ELSE
					PRINTFORMW 「看起来好好吃的%DISHNAME%耶」
					PRINTFORMW 「哎呀、不往里加个鸡蛋吗？」
				ENDIF
				;赏月拉麺って何だ
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("油炸食品/")) && DISH_TYPE == "主食"
				PRINTFORML 「やったあ油炸食品！」
				PRINTFORML 「虽然很喜欢啦、但是一个人生活的时候不太会做来吃、真是太谢谢你了ー」
				PRINTFORML 好像确实听说过以前一个人生活时都是直接吃生肉的……
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("魚料理/"))
				GOTO OSAKANA
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("肉料理/"))
				GOTO ONIKU
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("芸術的/"))
				PRINTFORML 「好漂亮啊、造型华丽又美观呢」
				PRINTFORML 「在最后都会入口吃掉的食物外观上下功夫什么的、感觉好酷哦」
				;こういう感性はあるのに味の好みは雑
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("甜点/"))
				PRINTFORMW 「虽然喜欢吃肉、但这样的点心也是我最喜欢的♪」
				PRINTFORMW 「明明是狼这样很奇怪？」
				PRINTFORMW 「你不明白呢%CALLNAME:MASTER%」
				PRINTFORMW 「我是狼女、在狼性之前也是女性呢！」
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("野菜/"))
				PRINTFORMW 「呜…果然不擅长吃蔬菜呢……」
				PRINTFORMW 「虽然并不是吃不下…」
				PRINTFORMW 「不知道能不能好好消化呢……」
			ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("虫肉/"))
				PRINTFORML 「是虫子啊」
				PRINTFORML 「饿到不行的时候是会抓来吃啦……」
				IF TCVAR:[[影狼]]:料理評価値 >= 500
					;PRINTFORMW 「あ、でもこれはいけるわね」
					PRINTFORMW 「啊、不过这个还行吧」
				ENDIF
			;ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("家庭的/"))
			;	PRINTFORML 「嫌いじゃないけど…なんていうのこういうの？カテイテキ？」
			;	PRINTFORML 「カテイって家族のことでしょ？家族だと食べるものが変わるの？」
			;	PRINTFORML 「一人暮らしだとこれ食べないの？そういうわけでもない？」
			;	PRINTFORMW 「……まったく、人类ってよくわからない生き物ね」
			;ELSEIF STRCOUNT(DISH_TASTE, ESCAPE("軽食/"))
			ENDIF
		ENDSELECT
	PRINTL
ENDIF

IF TCVAR:[[影狼]]:料理評価値 >= 700
	K63_WADAI:1 '= DISH_TYPE
	K63_WADAI:0 = 料理
	IF DISH_TYPE == "主食" && STRCOUNT(DISH_TASTE, ESCAPE("肉料理/"))
		CALL K63_DEVOUR
	ENDIF
ENDIF

;吟味後（調味料は一緒に作らない時のみ）
;おいしくなかった
IF TFLAG:193 == -1
	PRINTFORMW 「唔嗯ーー、这次的味道有点微妙呢……」
ELSEIF TASTE_REACTION("辣")
	PRINTFORMW 「呀啊啊！！」
	PRINTFORMW 「这是什么啊！好辣好辣！水！水！」
ELSEIF TASTE_REACTION("甜")
	PRINTFORMW 「呜诶～！！」
	PRINTFORMW 「这是什么…？到底放了什么东西进去啊……？」
ELSEIF TASTE_REACTION("芥末")
	PRINTFORMW 「呀啊ーーー！！」
	PRINTFORMW 「为、为什么芥末味这么重啊……」
	PRINTFORMW 「放得太多了吧……水……」
ELSEIF TASTE_REACTION("酸")
	PRINTFORMW 「嗯ーー！？」
	PRINTFORMW 「唔、这没坏吧……？」
;おいしい
ELSEIF TALENT:[[影狼]]:恋慕
	;一緒に作った
	IF TCVAR:[[影狼]]:353 > 0
		SELECTCASE RAND:5
		CASE 0
			PRINTFORMW 「果然自己做的味道就是不一样」
			PRINTFORMW 「而且和%CALLNAME:MASTER%一起吃饭也变的更美味了♪」
		CASE 1
		;お腹いっぱいじゃない時もあるけど
			PRINTFORMW 「呼ー、肚子好饱」
			PRINTFORMW 「%CALLNAME:MASTER%对料理真是拿手呢」
		CASE 2
			PRINTFORMW 「作的时候明明费了那么多工夫」
			PRINTFORMW 「吃的时候却一眨眼就没了呢」
		CASE 3
		;イベントあるかもね
			PRINTFORMW 「话说%CALLNAME:MASTER%喜欢什么样的料理呢？」
			PRINTFORMW 「…那个、下次可以让我做料理给你吃吗？」
		CASE 4
			PRINTFORMW 「真美味啊～♪」
			PRINTFORMW 「啊、洗碗就交给我吧」
		ENDSELECT
		CFLAG:1004 += 5
	;作ってない
	ELSEIF TFLAG:193 == 1
		PRINTFORMW 「……！！」
		PRINTFORMW 「这、这个真是超级好吃的呀！」
		CFLAG:1004 += 5
	ELSE
		PRINTFORMW 「%CALLNAME:MASTER%做的料理真是美味呢～」
		CFLAG:1004 += 3
	ENDIF
	IF !RAND:5 && SELECTCOM == 414
		PRINTFORMW 「啊、嘴角留渍了呢」
		IF GET_TARGETNUM() == 1
			PRINTFORMW 影狼把脸凑上来…轻轻地帮你舔干净了
			PRINTFORMW 「嘻嘻嘻、多谢款待咯」
			CALL COLORMESSAGE(@"接吻経験＋1",C_PINK,1)
			EXP:[[影狼]]:接吻経験 ++
		ELSE
			PRINTFORMW 手帕で拭いてもらった
		ENDIF
	ELSE
		PRINTFORMW 「多谢款待」
	ENDIF
;恋慕じゃない
ELSEIF TFLAG:193 == 1
	PRINTFORMW 「……！！」
	PRINTFORMW 「这、这个真是超级好吃的呀！」
	CFLAG:1004 += 5
ELSE
	PRINTFORMW 「多谢款待」
	PRINTFORMW 「真是美味呢」
	PRINTFORMW 「不是挺拿手的嘛」
	CFLAG:1004 += 3
ENDIF
TCVAR:[[影狼]]:353 = 0
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;寝ながら考えた暇つぶし人狼ゲーム
;推理もくそもないクソゲー
;いつか怪盗を加えた真ワンナイト人狼にしたい
;これちゃんとプログラミングできてたらすごいっすね
;影狼と人狼ゲームをやるのが夢です
;気が向いたらパターンを増やす予定。実質無限に書ける
;━━━━━━━━━━━━━━━━━━━━━━━━━
@ERATOHO_JINROU_GAME
PRINTFORMW 您好。我是负责进行游戏说明的十六夜咲夜。
PRINTFORML eratoho狼人游戏比起我们平时在屋子里玩时使用的红魔馆规则
PRINTFORMW 在其基础上有额外的原创规则。
PRINTFORMW 请问有必要马上进行规则说明吗？
$JINROU_FIRSTTIME_INPUT_LOOP
PRINTL   [0] 进行説明吧！
PRINTL   [1] 行了不用了！
INPUT
IF !RESULT
	PRINTL
	PRINTFORML 首先玩家４人各自将被随机分配到村民、狼人、占卜师等身份。
	PRINTFORMW 自己以外的其它人的身份是未知的。这时一定会有１到２个狼人混在里面。
	PRINTFORMW 其次、占卜师可以通过占卜得知其它一名玩家的身份。
	PRINTFORMW 然后、狼人会知道谁是自己的同伴。狼人只有１名时也会知道没有同伴的状况。
	PRINTL
	PRINTFORML 然后天亮了游戏開始。
	PRINTFORMW 在議論之後、进行吊起（殺死）某人的投票。
	PRINTFORML 得票最多的１到２名玩家将被吊起。
	PRINTFORMW 所有人都只得到１票的情况下将没有人会被吊起。
	PRINTL
	PRINTFORMW 将一名狼人给吊起来的情况下、村民一方的全部玩家获得勝利。（占卜师属于村民一方）
	PRINTFORMW 一名狼人都没被吊起来的情况下、狼人一方的全部玩家获得勝利。
	PRINTFORMW 説明就到此为止。嘛你这么聪明应该可以马上理解吧。
	PRINTFORMW 即使现在还一头雾水、享受一下这种感覚应该也不坏吧。
	PRINTFORMW 另外这游戏只是随手为之、如果実際内容跟渣似的请不要见怪。
ELSEIF RESULT == 1
ELSE
	GOTO JINROU_FIRSTTIME_INPUT_LOOP
ENDIF

PRINTFORMW 那么、欢迎光临。
PRINTL
PRINTFORMW 现在開始分配角色。
PRINTL
SELECTCASE RAND:10
;你＆影狼：村人　霊夢＆魔理沙：人狼
CASE 0,1
	PRINTFORMW 你是村民。
	PRINTFORMW 天已经亮了。
	PRINTL
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	PRINTFORMW 魔理沙「我是占卜师。%CALLNAME:MASTER%的身份我已经看过DA☆ZE。是村民」
	PRINTFORMW 影狼「等一等、不要被假货给迷惑住了？我才是占卜师哦！」
	PRINTFORMW 影狼「我看过灵梦的身份了。灵梦是狼人。也就说她们两个都是狼人啊」
	PRINTFORMW 影狼「听懂了吗？%CALLNAME:MASTER%？把灵梦吊起来吧」
	PRINTFORMW 灵梦「如果是狼人的话会说些更高明的谎话吧」
	PRINTFORMW 灵梦「%CALLNAME:MASTER%、魔理沙、如果你们是村民的话就把这家伙吊起来吧」
	PRINTFORMW 魔理沙「啥也不用说了把这个假占卜师吊起来ZE☆」
	CALL JINROU_TOUHYOU
	SELECTCASE RESULT
	CASE 1
		PRINTFORMW 灵梦２票　影狼２票　二人都被吊起来了。
		PRINTFORMW 灵梦和魔理沙是狼人。你和影狼勝利了。
		PRINTFORMW 影狼「呜呜…你相信我了呢……谢谢你%CALLNAME:MASTER%」
	CASE 2
		PRINTFORMW 灵梦１票　魔理沙１票　影狼２票　影狼被吊起来了。
		PRINTFORMW 影狼是占卜师。你和影狼失败了。
		PRINTFORMW 影狼「为什么啊%CALLNAME:MASTER%！我不是说了狼人是灵梦吗！笨蛋！」
	CASE 3
		PRINTFORMW 灵梦１票　影狼３票　影狼被吊起来了。
		PRINTFORMW 影狼是占卜师。你和影狼失败了。
		PRINTFORMW 影狼「呜呜…%CALLNAME:MASTER%你怎能如此对我……」
	ENDSELECT

;你＆霊夢：村人　魔理沙＆影狼：人狼
CASE 2
	PRINTFORMW 你是村民。
	PRINTFORMW 天已经亮了。
	PRINTL
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	PRINTFORMW 魔理沙「我是占卜师。%CALLNAME:MASTER%的身份我已经看过DA☆ZE。是村民」
	PRINTFORMW 灵梦「真可惜、占卜师是我才对。我看到%CALLNAME:MASTER%是村民」
	PRINTFORMW 影狼「唔唔…你觉得谁才是真的占卜师呢？%CALLNAME:MASTER%？」
	PRINTFORMW 灵梦「不好意思你是局外人所以没有考虑的必要吧」
	PRINTFORMW 魔理沙「诶？你在说什么呢？」
	PRINTFORMW 灵梦「好、投票ー」
	PRINTFORMW 影狼「等等这样太快了吧！」
	CALL JINROU_TOUHYOU
	SELECTCASE RESULT
	CASE 1
		PRINTFORMW 灵梦３票　魔理沙１票　灵梦被吊起来了。
		PRINTFORMW 灵梦是占卜师。影狼是狼人。你和灵梦失败了。
		PRINTFORMW 影狼「嘿～嘿～嘿～。你的做法太蛮干了呢」
	CASE 2
		PRINTFORMW 灵梦２票　魔理沙２票　二人都被吊起来了。
		PRINTFORMW 魔理沙和影狼是狼人。你和灵梦勝利了。
		PRINTFORMW 影狼「可恶ー。被看穿了吗～」
	CASE 3
		PRINTFORMW 灵梦２票　魔理沙１票　影狼１票　灵梦被吊起来了。
		PRINTFORMW 灵梦是占卜师。影狼是狼人。你和灵梦失败了。
		PRINTFORMW 影狼「%CALLNAME:MASTER%真好骗呢～♪」
	ENDSELECT

;你＆魔理沙：村人　霊夢＆影狼：人狼
CASE 3
	PRINTFORMW 你是村民。
	PRINTFORMW 天已经亮了。
	PRINTL
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	PRINTFORMW 魔理沙「我是占卜师。%CALLNAME:MASTER%的身份我已经看过DA☆ZE。是村民」
	PRINTFORMW 灵梦「真可惜、占卜师是我才对。我看到%CALLNAME:MASTER%是村民」
	PRINTFORMW 影狼「诶诶！？别胡说八道了！你是狼人吧！？我才是占卜师哦！」
	PRINTFORMW 魔理沙「那你看到什么了？」
	PRINTFORMW 影狼「…%CALLNAME:MASTER%是村民……」
	PRINTFORMW 灵梦「怎么大家全去看%CALLNAME:MASTER%了啊」
	PRINTFORMW 魔理沙「那是因为你们在我后面说才会这样吧。%CALLNAME:MASTER%、把灵梦吊起来吧」
	PRINTFORMW 影狼「哼、你是狼人轮不到你说话。把魔理沙吊起来吧」
	PRINTFORMW 灵梦「这是我的台詞才对。把影狼吊起来吧」
	CALL JINROU_TOUHYOU
	SELECTCASE RESULT
	CASE 1
		PRINTFORMW 灵梦２票　魔理沙２票　二人都被吊起来了。
		PRINTFORMW 灵梦和影狼是狼人。你和魔理沙勝利了。
		PRINTFORMW 影狼「咕呜～…真是好眼力呢……」
	CASE 2
		PRINTFORMW 灵梦１票　魔理沙３票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你和魔理沙失败了。
		PRINTFORMW 影狼「真可惜♪你能相信我真是感谢呢♪」
	CASE 3
		PRINTFORMW 灵梦１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你和魔理沙失败了。
		PRINTFORMW 影狼「呵呵、果然被搞糊涂了吧？」
	ENDSELECT

;你＆影狼：人狼　霊夢＆魔理沙：村人
CASE 4,5
	PRINTFORMW 你是狼人
	PRINTFORMW 影狼也是狼人
	PRINTL
	PRINTFORMW 天已经亮了
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	PRINTFORMW 魔理沙「我是占卜师。%CALLNAME:MASTER%的身份我已经看过DA☆ZE。是狼人」
	CALL JINROU_TAIKOU
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 影狼「等一等、不要被假货给迷惑住了？我才是占卜师哦」
		IF RAND:2
			PRINTFORMW 影狼「我看过灵梦的身份了。灵梦是狼人。也就说她们两个都是狼人啊」
			PRINTFORMW 影狼「听懂了吗？%CALLNAME:MASTER%？把灵梦吊起来吧」
			PRINTFORMW 灵梦「如果是狼人的话会说些更高明的谎话吧」
			PRINTFORMW 灵梦「%CALLNAME:MASTER%、你还是放弃吧、把这家伙吊起来」
			PRINTFORMW 魔理沙「啥也不用说了把这个假占卜师吊起来ZE☆」
			CALL JINROU_TOUHYOU
			SELECTCASE RESULT
			CASE 1
				PRINTFORMW 灵梦２票　影狼２票　二人都被吊起来了。
				PRINTFORMW 影狼是狼人。你和影狼失败了。
			CASE 2
				PRINTFORMW 灵梦１票　魔理沙１票　影狼２票　影狼被吊起来了。
				PRINTFORMW 影狼是占卜师。你和影狼失败了。
			CASE 3
				PRINTFORMW 灵梦１票　影狼３票　影狼被吊起来了。
				PRINTFORMW 影狼是占卜师。你和影狼失败了。
			ENDSELECT
			PRINTFORMW 影狼「哎呀啊？对了、我被吊起来的话就输了呢……」
			PRINTFORMW 影狼「对不起！%CALLNAME:MASTER%！」
		ELSE
			PRINTFORMW 影狼「我看过灵梦的身份了。灵梦是村民！」
			PRINTFORMW 影狼「不能因为感情好就相信魔理沙啊～！」
			PRINTFORMW 灵梦「不、倒不如说因为是魔理沙所以没有信用可言呢」
			PRINTFORMW 灵梦「不过因为你是狼女呢…」
			PRINTFORMW 魔理沙「哈～哈～哈！嘛、先把这些放到一边吧」
			PRINTFORMW 魔理沙「我当然是要把影狼吊起来ZE☆」
			CALL JINROU_TOUHYOU
			SELECTCASE RESULT
			CASE 1
				IF RAND:2
					PRINTFORMW 灵梦１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「呼ー得救了！呵呵呵…真正的狼人的演技、你觉得如何呢♪」
				ELSE
					PRINTFORMW 灵梦１票　魔理沙１票　影狼２票　影狼被吊起来了。
					PRINTFORMW 影狼是狼人。你和影狼失败了。
					PRINTFORMW 影狼「咕…不愧是博丽巫女的直觉、很敏锐呢……」
				ENDIF
			CASE 2
				IF RAND:2
					PRINTFORMW 魔理沙３票　影狼１票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「呼ー得救了！呵呵呵…真正的狼人的演技、你觉得如何呢♪」
				ELSE
					PRINTFORMW 魔理沙２票　影狼２票　二人都被吊起来了。
					PRINTFORMW 影狼是狼人。你和影狼失败了。
					PRINTFORMW 影狼「咕…不愧是博丽巫女的直觉、很敏锐呢……」
				ENDIF
			CASE 3
				IF RAND:2
					PRINTFORMW 魔理沙２票　影狼２票　二人都被吊起来了。
				ELSE
					PRINTFORMW 魔理沙１票　影狼３票　影狼被吊起来了。
				ENDIF
					PRINTFORMW 影狼是狼人。你和影狼失败了。
					PRINTFORMW 影狼「等等%CALLNAME:MASTER%！为什么要投我的票啊！笨蛋！」
			ENDSELECT
		ENDIF
	CASE 10
		PRINTFORMW 灵梦「哦ー。到底哪边是假货呢？」
		PRINTFORMW 影狼「不能因为感情好就相信魔理沙啊？」
		PRINTFORMW 灵梦「不、倒不如说因为是魔理沙所以没有信用可言呢」
		PRINTFORMW 魔理沙「喂喂！才没有这回事吧！」
		PRINTFORMW 魔理沙「总之我当然要把%CALLNAME:MASTER%吊起来ZE☆」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_01(RESULT)
	CASE 11
		PRINTFORMW 灵梦「哦ー。嘛、%CALLNAME:MASTER%是假货吧」
		PRINTFORMW 魔理沙「正是如此。快点吊起来ZE☆」
		PRINTFORMW 影狼「诶！等等～！」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_02(RESULT)
	CASE 20
		PRINTFORMW 魔理沙「诶？我才是占卜师哦？」
		PRINTFORMW 灵梦「嘛、假货应该就是%CALLNAME:MASTER%吧」
		PRINTFORMW 影狼「诶！等等～！」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_02(RESULT)
	CASE 21
		PRINTFORMW 魔理沙「呵。真有趣、要和我做对吗？」
		PRINTFORMW 影狼「呜唔ー、到底哪边才是真的呢（偷看」
		PRINTFORMW 灵梦「两边都一样可疑呢…」
		PRINTFORMW 魔理沙「影狼看起来和%CALLNAME:MASTER%感情很好的样子呢」
		PRINTFORMW 魔理沙「认真决胜负可不能有所偏袒DA☆ZE？」
		PRINTFORMW 影狼「诶！这、这样啊、嘛、我已经凭真正的狼的洞察力看穿了哦…」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_01(RESULT)
	CASE 30
		PRINTFORMW 影狼「这、这样啊。到底哪边才是真的呢…」
		PRINTFORMW 灵梦「两边都一样可疑呢…」
		PRINTFORMW 魔理沙「影狼看起来和%CALLNAME:MASTER%感情很好的样子呢」
		PRINTFORMW 魔理沙「认真决胜负可不能有所偏袒DA☆ZE？」
		PRINTFORMW 影狼「诶！这、这样啊、嘛、我已经凭真正的狼的洞察力看穿了哦…」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_01(RESULT)
	CASE 31
		PRINTFORMW 影狼「怎么会这样！？哼、%CALLNAME:MASTER%好讨厌！」
		PRINTFORMW 灵梦「哎呀哎呀、平常总是粘在一块这样可真少见呢」
		PRINTFORMW 影狼「诶！？才、才没有……这种事……呢？」
		PRINTFORMW 魔理沙「哈～哈～哈！嘛、现在是认真决胜负这也是没办法的呢」
		PRINTFORMW 魔理沙「总之我当然要把%CALLNAME:MASTER%吊起来ZE☆」
		PRINTFORMW 灵梦（如果%CALLNAME:MASTER%是真的那么该把谁吊起来比较好呢…）
		CALL JINROU_TOUHYOU
		SELECTCASE RESULT
		CASE 1
			IF CFLAG:1:信賴度 >= 2500
				PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙２票　魔理沙被吊起来了。
				PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
				PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙２票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
				CASE 1
					PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙１票　影狼１票　谁都没有被吊起来。
					PRINTFORMW 你和影狼是狼人。你和影狼勝利了。
					PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
				CASE 2
					PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
					PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
					PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
				ENDSELECT
			ENDIF
		CASE 2
			IF CFLAG:1:信賴度 >= 2500
				PRINTFORMW %CALLNAME:MASTER%１票　魔理沙３票　魔理沙被吊起来了。
				PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
				PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW %CALLNAME:MASTER%１票　魔理沙３票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
				CASE 1
					PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
				CASE 2
					PRINTFORMW %CALLNAME:MASTER%２票　魔理沙２票　二人都被吊起来了。
					PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
					PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
				ENDSELECT
			ENDIF
		CASE 3
			IF CFLAG:1:信賴度 >= 2500
				PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
				PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
				PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
					PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
					PRINTFORMW 影狼「真是出色的演技呢%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
				CASE 1
					PRINTFORMW %CALLNAME:MASTER%１票　魔理沙１票　影狼２票　影狼被吊起来了。
					PRINTFORMW 影狼是狼人。你和影狼失败了。
					PRINTFORMW 影狼「诶！？%CALLNAME:MASTER%！为什么要投票给我啊！笨蛋！」
				CASE 2
					PRINTFORMW %CALLNAME:MASTER%２票　魔理沙１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
					PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
					PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
				ENDSELECT
			ENDIF
		ENDSELECT
	ENDSELECT

;你：人狼　霊夢＆魔理沙＆影狼：村人
CASE 6,7
	PRINTFORMW 你是狼人
	PRINTFORMW 你没有同伴。
	PRINTL
	PRINTFORMW 天已经亮了
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	PRINTFORMW 魔理沙「我是占卜师。%CALLNAME:MASTER%的身份我已经看过DA☆ZE。是狼人」
	CALL JINROU_TAIKOU
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 影狼「……啊嘞？」
		PRINTFORMW 魔理沙「呐灵梦、就是这样…」
		PRINTFORMW 灵梦「不好意思了%CALLNAME:MASTER%、要对你下达死亡宣告喽」
		PRINTFORMW 影狼「啊哈哈……对不起了%CALLNAME:MASTER%…」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_05(RESULT)
		PRINTFORMW 影狼「独自一人被看破的话还是放弃抵抗吧？」
	CASE 10
		PRINTFORMW 灵梦「嗯ー、是哪边呢」
		PRINTFORMW 影狼「有没有觉得魔理沙老是在当占卜师呢？」
		PRINTFORMW 魔理沙「我也没办法啊。是这身份自己找上门来啊」
		PRINTFORMW 灵梦「狼来了的少年呢」
		PRINTFORMW 魔理沙「是少女哦」
		PRINTFORMW 影狼「啊～哈～哈、你们好有趣呢」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_04(RESULT)
	CASE 11
		PRINTFORMW 灵梦「哈～！？」
		PRINTFORMW 魔理沙「唔、灵梦、吊起来吧」
		PRINTFORMW 影狼「哎呀呀。%CALLNAME:MASTER%、不能冷静下来呢」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_05(RESULT)
		PRINTFORMW 影狼「如果有两个狼人的话也许就不会输吧？」
	CASE 20
		PRINTFORMW 魔理沙「诶～」
		PRINTFORMW 影狼「真遗憾呢%CALLNAME:MASTER%」
		PRINTFORMW 灵梦「投ー票ー」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_05(RESULT)
		PRINTFORMW 影狼「%CALLNAME:MASTER%敌不过魔理沙呢」
	CASE 21
		PRINTFORMW 魔理沙「哦？想和我较量吗」
		PRINTFORMW 灵梦「两边都半斤八两呢」
		PRINTFORMW 影狼「诶～%CALLNAME:MASTER%会欺骗我什么的……」
		PRINTFORMW 魔理沙「你怎么了、难道说喜欢他吗」
		PRINTFORMW 影狼「为什么这么说啊！」
		PRINTFORMW 灵梦「你也很可疑呢」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_04(RESULT)
	CASE 30
		PRINTFORMW 影狼「哎呀、谢谢你%CALLNAME:MASTER%」
		PRINTFORMW 灵梦「还不能确定呢」
		PRINTFORMW 魔理沙「你啊、明明是狼女却要被狼人骗了呢」
		PRINTFORMW 影狼「知、知道啦区区这种程度！」
		PRINTFORMW 灵梦「该怎么办呢」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_04(RESULT)
	CASE 31
		PRINTFORMW 影狼「诶！？」
		PRINTFORMW 灵梦「坠入地狱了呢」
		PRINTFORMW 魔理沙「嘛还有下次呢、呐%CALLNAME:MASTER%」
		CALL JINROU_TOUHYOU
		CALL JINROU_PATTERN_05(RESULT)
		PRINTFORMW 影狼「如果有两个狼人的话也许就不会输吧？」
	ENDSELECT

;你＆霊夢＆魔理沙：村人　影狼：人狼
;台詞が違うだけで全部同じじゃねーか！
CASE 8,9
	PRINTFORMW 你是占卜师
	CALL JINROU_URANAI_01
	PRINTL
	PRINTFORMW 天已经亮了
	PRINTFORMW 灵梦「那么首先、占卜师在吗？」
	SELECTCASE RESULT
	CASE 1
		CALL JINROU_URANAI_00
		IF RESULT
			PRINTFORMW 影狼「呵呵呵、这样骗人可不行哦」
			PRINTFORMW 影狼「我才是占卜师哦。真可惜呢不过看起来%CALLNAME:MASTER%才是狼人」
			PRINTFORMW 魔理沙「后面冒出来的总觉得有点可疑ZE☆」
			PRINTFORMW 影狼「不觉得那样说的时机太凑巧了吗！」
			PRINTFORMW 灵梦「是呢。如果%CALLNAME:MASTER%是假的那么就能证明我是清白的呢」
			PRINTFORMW 魔理沙「哦？是这样吗？」
			PRINTFORMW 影狼「为什么不相信我啊～！」
			PRINTFORMW 魔理沙「不好意思。因为是真正的狼人所以不由得用有色眼镜去看待了ZE☆」
			PRINTFORMW 灵梦「%CALLNAME:MASTER%也十分可疑呢…」
			CALL JINROU_TOUHYOU
			CALL JINROU_PATTERN_03(RESULT)

		;パターンが膨大になるので現在未実装。といいつつ稍微書いた。
		ELSE
			PRINTW
			PRINTFORMW 魔理沙「没有……吗？」
			PRINTFORMW 影狼「也就是说……」
			PRINTFORMW 灵梦「狼人有两人……」
			PRINTFORMW 魔理沙「这不是完全碰运气吗！」
			PRINTFORMW 影狼「好像这样也挺有意思的呢」
			PRINTFORMW 灵梦「嘛、用直觉来决定胜负的话也不错呢」
		ENDIF
	CASE 2
		CALL JINROU_URANAI_00
		IF RESULT
			PRINTFORMW 影狼「呵呵呵、这样骗人可不行哦」
			PRINTFORMW 影狼「我才是占卜师哦。真可惜呢不过看起来%CALLNAME:MASTER%才是狼人」
			PRINTFORMW 魔理沙「后面冒出来的总觉得有点可疑ZE☆」
			PRINTFORMW 影狼「不觉得那样说的时机太凑巧了吗！」
			PRINTFORMW 灵梦「是呢。如果%CALLNAME:MASTER%是假的那么就能证明魔理沙是清白的呢」
			PRINTFORMW 魔理沙「哦？是这样吗？」
			PRINTFORMW 影狼「为什么不相信我啊～！」
			PRINTFORMW 魔理沙「不好意思。因为是真正的狼人所以不由得用有色眼镜去看待了ZE☆」
			PRINTFORMW 灵梦「%CALLNAME:MASTER%也十分可疑呢…」
			CALL JINROU_TOUHYOU
			CALL JINROU_PATTERN_03(RESULT)
		ELSE
		ENDIF
	CASE 3
		CALL JINROU_URANAI_00
		IF RESULT
			PRINTFORMW 影狼「呵呵呵、这样骗人可不行哦」
			PRINTFORMW 影狼「我才是占卜师哦。真可惜呢不过看起来%CALLNAME:MASTER%才是狼人」
			PRINTFORMW 魔理沙「后面冒出来的总觉得有点可疑ZE☆」
			PRINTFORMW 影狼「不觉得那样说的时机太凑巧了吗！」
			PRINTFORMW 灵梦「不管哪边都很可疑、真是两难呢」
			PRINTFORMW 魔理沙「到底会冒出鬼还是蛇呢、难以预料呢…」
			PRINTFORMW 灵梦「冒出来的肯定是狼吧」
			CALL JINROU_TOUHYOU
			CALL JINROU_PATTERN_03(RESULT)
		ELSE
		ENDIF
	ENDSELECT
ENDSELECT
RETURN 1

;━━━━━━━━━━━━━━━━━━━━━━━━━
;投票
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_TOUHYOU
PRINTL
PRINTL 要投谁的票呢？
PRINTL   [1] 灵梦
PRINTL  [2] 魔理沙
PRINTL  [3] 影狼
INPUT
SIF INRANGE(RESULT, 1, 3)
	RETURN RESULT
RESTART

;━━━━━━━━━━━━━━━━━━━━━━━━━
;対抗占い師
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_TAIKOU
#DIM CHECK_CHARA
PRINTL
PRINTL 要冒充占卜师吗？
PRINTL   [0] 好的
PRINTL   [1] 不用
INPUT
IF !RESULT
	DO
		PRINTL 要说看见谁的身份了呢？
		PRINTL   [1] 灵梦
		PRINTL  [2] 魔理沙
		PRINTL  [3] 影狼
		INPUT
		CHECK_CHARA = RESULT
	LOOP !INRANGE(CHECK_CHARA, 1, 3)
	DO
		PRINTL 要说看见了什么？
		PRINTL   [0] 村民
		PRINTL   [1] 狼人
		INPUT
		SIF INRANGE(RESULT, 0, 1)
			RETURN (CHECK_CHARA * 10 + RESULT)
	LOOP 1
ELSE
	RETURN 0
ENDIF
RETURN 0

;━━━━━━━━━━━━━━━━━━━━━━━━━
;占い師
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_URANAI_01
$JINROU_URANAI_INPUT_LOOP_1
PRINTL
PRINTL 要占卜谁？
PRINTL   [1] 灵梦
PRINTL  [2] 魔理沙
PRINTL  [3] 影狼
INPUT
SELECTCASE RESULT
CASE 1
	PRINTW 灵梦是村民
	RETURN 1
CASE 2
	PRINTW 魔理沙是村民
	RETURN 2
CASE 3
	PRINTW 影狼是狼人！
	RETURN 3
CASEELSE
	GOTO JINROU_URANAI_INPUT_LOOP_1
ENDSELECT
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_URANAI_00
PRINTL
PRINTL 要说出自己是占卜师吗？
PRINTL   [0] 好的
PRINTL   [1] 不用
INPUT
IF !RESULT
	RETURN 1
ELSE
	PRINTW ……对不起、没有占卜师的模板还没有実装呢。
	RETURN 1
ENDIF

;━━━━━━━━━━━━━━━━━━━━━━━━━
;你＆影狼：人狼　霊夢＆魔理沙：村人の勝利パターン
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_PATTERN_01(ARG)
SELECTCASE ARG
CASE 1
	IF CFLAG:1:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙２票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
		PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
	ELSE
		IF RAND:2
			PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙２票　魔理沙被吊起来了。
			PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
			PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
		ELSE
			PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
			PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
		ENDIF
	ENDIF
CASE 2
	IF CFLAG:1:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　魔理沙３票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
		PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
	ELSE
		IF RAND:2
			PRINTFORMW %CALLNAME:MASTER%１票　魔理沙３票　魔理沙被吊起来了。
			PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
			PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
		ELSE
			PRINTFORMW %CALLNAME:MASTER%２票　魔理沙２票　二人都被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
			PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
		ENDIF
	ENDIF
CASE 3
	IF CFLAG:1:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
		PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！这做得不是比狼人还要厉害了吗？」
	ELSE
		IF RAND:2
			PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
			PRINTFORMW 魔理沙是占卜师。你和影狼勝利了。
			PRINTFORMW 影狼「干的漂亮哦%CALLNAME:MASTER%！你不是挺有做狼人的才能吗？」
		ELSE
			PRINTFORMW %CALLNAME:MASTER%２票　魔理沙１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
			PRINTFORMW 影狼「哎呀真可惜。果然%CALLNAME:MASTER%太単純了没法变得像狼人一样狡猾呢」
		ENDIF
	ENDIF
ENDSELECT
RETURN 1

;━━━━━━━━━━━━━━━━━━━━━━━━━
;你＆影狼：人狼　霊夢＆魔理沙：村人の敗北パターン
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_PATTERN_02(ARG)
SELECTCASE ARG
CASE 1
	PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
CASE 2
	PRINTFORMW %CALLNAME:MASTER%２票　魔理沙２票　二人都被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
CASE 3
	PRINTFORMW %CALLNAME:MASTER%２票　影狼１票　%CALLNAME:MASTER%被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你和影狼失败了。
ENDSELECT
PRINTFORMW 影狼「真是的ー、%CALLNAME:MASTER%在搞什么啊～！」
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;你＆霊夢＆魔理沙：村人　影狼：人狼の通常パターン
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_PATTERN_03(ARG)
SELECTCASE ARG
CASE 1
	IF CFLAG:1:信賴度 >= 2500 && CFLAG:11:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　影狼２票　影狼被吊起来了。
		PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
		PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　影狼２票　影狼被吊起来了。
			PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
			PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
		CASE 1,2
			PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是占卜师。你和灵梦和魔理沙失败了。
			PRINTFORMW 影狼「啊～哈～哈！怎么不投我呢！啊～哈～哈！」
		CASE 3
			PRINTFORMW %CALLNAME:MASTER%３票　灵梦１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是占卜师。你和灵梦和魔理沙失败了。
			PRINTFORMW 影狼「哼哼ー♪大概是因为平常尽干坏事的缘故吧」
		ENDSELECT
	ENDIF
CASE 2
	IF CFLAG:1:信賴度 >= 2500 && CFLAG:11:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　魔理沙１票　影狼２票　影狼被吊起来了。
		PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
		PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW %CALLNAME:MASTER%１票　魔理沙１票　影狼２票　影狼被吊起来了。
			PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
			PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
		CASE 1,2
			PRINTFORMW %CALLNAME:MASTER%２票　魔理沙１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是占卜师。你和灵梦和魔理沙失败了。
			PRINTFORMW 影狼「啊～哈～哈！怎么不投我呢！啊～哈～哈！」
		CASE 3
			PRINTFORMW %CALLNAME:MASTER%３票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是占卜师。你和灵梦和魔理沙失败了。
			PRINTFORMW 影狼「哼哼ー♪大概是因为平常尽干坏事的缘故吧」
		ENDSELECT
	ENDIF
CASE 3
	IF CFLAG:1:信賴度 >= 2500 && CFLAG:11:信賴度 >= 2500
		PRINTFORMW %CALLNAME:MASTER%１票　影狼３票　影狼被吊起来了。
		PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
		PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW %CALLNAME:MASTER%１票　影狼３票　影狼被吊起来了。
			PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
			PRINTFORMW 影狼「呜哇！大家都好狠心啊～！」
		CASE 1,2
			PRINTFORMW %CALLNAME:MASTER%２票　影狼２票　二人都被吊起来了。
			PRINTFORMW 只有影狼是狼人。你和灵梦和魔理沙勝利了。
			PRINTFORMW 影狼「呜唔、果然还是差一点呢……」
		CASE 3
			PRINTFORMW %CALLNAME:MASTER%３票　影狼１票　%CALLNAME:MASTER%被吊起来了。
			PRINTFORMW %CALLNAME:MASTER%是占卜师。你和灵梦和魔理沙失败了。
			PRINTFORMW 影狼「哼哼ー♪大概是因为平常尽干坏事的缘故吧」
		ENDSELECT
	ENDIF
ENDSELECT
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;你：人狼　の勝ちパターン
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_PATTERN_04(ARG)
SELECTCASE ARG
CASE 1
	SELECTCASE RAND:4
	CASE 0
		PRINTFORMW %CALLNAME:MASTER%１票　灵梦１票　魔理沙２票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你胜利了。
		PRINTFORMW 「呜唔…%CALLNAME:MASTER%也说谎了呢……」
	CASE 1
		PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「好危险呢…。差一点就被%CALLNAME:MASTER%騙过去了…」
	CASE 2
		PRINTFORMW %CALLNAME:MASTER%２票　灵梦１票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「呵呵～、想骗我可是办不到的哦」
	CASE 3
		PRINTFORMW %CALLNAME:MASTER%３票　灵梦１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「啊哈哈、真遗憾♪你的行动很可疑呢」
	ENDSELECT
CASE 2
	SELECTCASE RAND:4
	CASE 0
		PRINTFORMW %CALLNAME:MASTER%１票　魔理沙３票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你胜利了。
		PRINTFORMW 「呜唔…%CALLNAME:MASTER%也说谎了呢……」
	CASE 1
		PRINTFORMW %CALLNAME:MASTER%２票　魔理沙２票　二人都被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「好危险呢…。差一点就被%CALLNAME:MASTER%騙过去了…」
	CASE 2
		PRINTFORMW %CALLNAME:MASTER%２票　魔理沙２票　二人都被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「呵呵～、想骗我可是办不到的哦」
	CASE 3
		PRINTFORMW %CALLNAME:MASTER%３票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「啊哈哈、真遗憾♪你的行动很可疑呢」
	ENDSELECT
CASE 3
	SELECTCASE RAND:4
	CASE 0
		PRINTFORMW %CALLNAME:MASTER%１票　魔理沙２票　影狼１票　魔理沙被吊起来了。
		PRINTFORMW 魔理沙是占卜师。你胜利了。
		PRINTFORMW 「呜唔…%CALLNAME:MASTER%也说谎了呢……」
	CASE 1
		PRINTFORMW %CALLNAME:MASTER%２票　魔理沙１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「好危险呢…。差一点就被%CALLNAME:MASTER%騙过去了…」
	CASE 2
		PRINTFORMW %CALLNAME:MASTER%２票　魔理沙１票　影狼１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「呵呵～、想骗我可是办不到的哦」
	CASE 3
		PRINTFORMW %CALLNAME:MASTER%３票　影狼１票　%CALLNAME:MASTER%被吊起来了。
		PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
		PRINTFORMW 「啊哈哈、真遗憾♪你的行动很可疑呢」
	ENDSELECT
ENDSELECT
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;你：人狼　の負けパターン
;━━━━━━━━━━━━━━━━━━━━━━━━━
@JINROU_PATTERN_05(ARG)
SELECTCASE ARG
CASE 1
	PRINTFORMW %CALLNAME:MASTER%３票　灵梦１票　%CALLNAME:MASTER%被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
CASE 2
	PRINTFORMW %CALLNAME:MASTER%３票　魔理沙１票　%CALLNAME:MASTER%被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
CASE 3
	PRINTFORMW %CALLNAME:MASTER%３票　影狼１票　%CALLNAME:MASTER%被吊起来了。
	PRINTFORMW %CALLNAME:MASTER%是狼人。你失败了。
ENDSELECT
RETURN 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;デイリーイベントの発生
;━━━━━━━━━━━━━━━━━━━━━━━━━
@K63_職場見学
TCVAR:354 = 1
;初回
IF !GETBIT(FLAG_DAILY_EV29, 0)
	PRINTFORML 「蛮奇最近好像在人間之里的料理屋装成人类的样子工作着呢」
	PRINTFORML 「虽然想跟公主一起去看看、但果然还是有点害怕……可以请%CALLNAME:MASTER%来护送一下淑女吗？」
	CALL ASK_YN("那是我的荣幸","抱歉不行呢")
	IF !RESULT
		CALL SPTALK, [[影狼]], "笑顔", 0, @"「真的？那今晚就在、人間之里…稍微远一点的地方集合吧！」", 1
		CALL COLORMESSAGE(@"今天结束事将会发生事件（不需要实际移动过去）",C_YELLOW,2)
		K63_KENGAKU = 1
		CALL KIGEN_CHANGE(TARGET,100,1)
	ELSE
		PRINTFORML 「这样啊…改变主意的话要告诉我哦」
	ENDIF
ELSE
	PRINTFORML 「没错没错、还是上次那家店、今夜有空的话能再当一次护花使者吗？」
	CALL ASK_YN("我很荣幸","今晚不行呢")
	IF !RESULT
		CALL SPTALK, [[影狼]], "笑顔", 0, @"「那就晚上、还是在老地方等你哟」", 1
		CALL COLORMESSAGE(@"今天结束事将会发生事件（不需要实际移动过去）",C_YELLOW,2)
		K63_KENGAKU = 1
		CALL KIGEN_CHANGE(TARGET,100,1)
	ELSE
		PRINTFORML 「那就下次再说、吧」
	ENDIF
ENDIF

@K63_CAN_KENGAKU(ARG)
#FUNCTION
SIF TCVAR:[[影狼]]:354
	RETURNF 0
SIF DAY:3 == 15
	RETURNF 0
;通い狼発生済み
SIF !GETBIT(FLAG_DAILY_EV28, 0)
	RETURNF 0
;前回から10日以上経ってないと駄目
SIF DAY - FLAG_DAILY_EV29_LASTTIME < 10
	RETURNF 0
SIF MARK:[[影狼]]:反発刻印
	RETURNF 0
SIF ABL:[[若鷺姫]]:親密 < 2 || ABL:[[蛮奇]]:親密 < 2
	RETURNF 0
RETURNF 1
;━━━━━━━━━━━━━━━━━━━━━━━━━
;━━━━━━━━━━━━━━━━━━━━━━━━━
;━━━━━━━━━━━━━━━━━━━━━━━━━
;━━━━━━━━━━━━━━━━━━━━━━━━━

@K63_DEVOUR
PRINTFORMW ……
IF !RAND:2
	PRINTFORML 「啊呜！嗷呜！嚼嚼！嗷呜！」
	PRINTFORML 影狼气势如虹地大口消灭食物……
ELSE
	PRINTFORML 啪叽!咯嘣咯嘣…咔咔…啪叽!
	PRINTFORML 影狼嘴里塞满食物咀嚼着、连带骨头都咬碎吃干净了……
ENDIF
IF !TALENT:恋慕
	PRINTFORMW 干净的衣服都被弄脏了
	RETURN
ENDIF
CALL ASK_YN("好好品尝味道后再咽下去吧","也来吃吃看这个吧")
IF !RESULT
	PRINTFORMW 「啊……太好吃了有点激动了呢」
	RETURN
ENDIF
PRINTFORML 「真的吗！？谢谢你ー！」
CALL ASK_YN("多吃点多吃点","啊——嗯")
IF !RESULT
ELSEIF EYEWITNESS()
	PRINTFORMW 「诶っ」
	PRINTFORMW 「被别人看着吃饭的样子还有点害羞呢//……」
ELSEIF FIRSTTIME("啊——嗯")
	PRINTFORMW 「我、我自己会吃的啦！」
	PRINTFORMW 「不、不要露出那么伤心的表情嘛……唉真是的、我知道啦、啊ー嗯」
	PRINTFORMW 「……好次」
	CALL JUEL_UP_SPECIAL([[影狼]],"恥情","露出癖",2,1)
ELSE
	PRINTFORMW 「拿、拿你没办法」
	CALL JUEL_UP_SPECIAL([[影狼]],"恥情","露出癖",2,1)
ENDIF
CALL RECOVER_PERMIL(MASTER, -100, "体力", 0, "分出了食物")
CALL RECOVER_PERMIL([[影狼]], 100, "体力", 0, "拿到了食物")
CFLAG:1004 += 1

@K63_SECRET
IF !TALENT:[[影狼]]:思慕 && !TALENT:[[影狼]]:恋慕
	PRINTFORMW 思慕以上才能解禁
	RETURN
ENDIF
CALL COLORMESSAGE(@"【イベント】",C_GREEN,1)
PRINTFORML 在没有其他角色睡在屋子里时、偶尔会带着土特产来夜訪。关系越好、越经常一起吃饭的话発生率就会上升
PRINTFORML 如果住在人間之里的長屋的话会有特殊分岐
PRINTFORML 現在的発生確率補正値{CFLAG:[[影狼]]:1004}
PRINTFORML
PRINTFORML 若鹭姬、赤蛮奇的親密在２以上的话会有特殊事件发生
PRINTFORML

CALL COLORMESSAGE(@"【指令】",C_GREEN,1)
PRINTFORML 不会喝下了药的茶
PRINTFORML 発情時、一部分日常指令会失敗、但欲求不満与潤滑会上升
PRINTFORML 採集時、有低概率会获得追加道具
PRINTFORML 在一部分的地域有採集補正

PRINTFORML
CALL COLORMESSAGE(@"【诶嘿嘿】",C_GREEN,1)
IF !TALENT:[[影狼]]:恋慕
	PRINTFORML 恋慕取得後将会開示
ELSE
PRINTFORML 有反発刻印、或是生气的时候是无法推倒的
PRINTFORML 虽然有【学習慢】特质、但一部分的経験获取将会更容易、Ｖ与舌技能的成長也会更快
SIF TALENT:[[影狼]]:Ｂ感度 < 0
PRINTFORML Ｂ強絶頂发生时【Ｂ鈍感】有可能消去
SIF TALENT:[[影狼]]:自己愛 < 0
PRINTFORML 使用奉仕系指令时【圧抑】有可能消去
SIF TALENT:[[影狼]]:自己愛 == 0
PRINTFORML 親密与愛情経験很高、诶嘿嘿结束时有可能取得【解放】
ENDIF
PRINTFORMW

;影狼さんが罠から獲物を持ってきてくれる関数
;野狗は勝手に逃がしちゃう
;絶滅動物のよしみで矢部大角鹿と花泉盛牛も逃がすことにしたいけど大物だからプレイヤーのヘイト買うのが可怕的
@K63_RETRIEVE
#DIM 獲物
#DIM RETRIEVE
TCVAR:356 = 1
RETRIEVE = 0
FOR LOCAL,1,4
	SIF !TRAP_POINT:LOCAL
		CONTINUE
	;地底は無理
	SIF TRAP_POINT:LOCAL / 100 == 9
		CONTINUE
	IF TRAP_DURABILITY:LOCAL == 0 || TRAP_CAPTURE:LOCAL
		RETRIEVE = LOCAL
		BREAK
	ENDIF
NEXT
;なかった場合もう一度回す
IF !RETRIEVE
	FOR LOCAL,1,4
		SIF !TRAP_POINT:LOCAL
			CONTINUE
		;地底は無理
		SIF TRAP_POINT:LOCAL / 100 == 9
			CONTINUE
		IF TRAP_DURABILITY:LOCAL <= 20
			RETRIEVE = LOCAL
			BREAK
		ENDIF
	NEXT
ENDIF
SIF RETRIEVE == 0
	RETURN

SELECTCASE TRAP_POINT:RETRIEVE / 100
	CASE 0
		LOCALS = 神社の森
	CASE 4
		LOCALS = 竹林
	CASE 5
		LOCALS = 森林的入口
	CASE 7
		LOCALS = 山の中
	CASE 8
		LOCALS = 山のてっぺん
	CASEELSE
		LOCALS = どこだったか
ENDSELECT

PRINTFORML 「啊%CALLNAME:MASTER%、之前在%LOCALS%设了陷阱吧？」
IF TRAP_DURABILITY:RETRIEVE == 0 || TRAP_CAPTURE:RETRIEVE == 11
	;野狗がかかってた場合嘘ついて逃がしちゃう
	PRINTFORMW 「那个坏掉了诶」
	CALL TRAP_V_RESET(RETRIEVE)
	RETURN 0
ENDIF
;東南アジアで実在する狩猟法
IF TRAP_CAPTURE:RETRIEVE == 50 && K63_CHICKENNAME == ""
	;PRINTFORMW 「オスのトリだったらバラさないでって言ってたけど、何に使うの？目覚まし？」
	;PRINTFORMW 「……へえ、他のオスがナワバリ守ろうと寄ってくるんだ！人間は色々考えつくのねえ」
	;PRINTFORMW 「ならこれ、私にくれない？%CALLNAME:MASTER%の罠猟より私の方が有効活用できそうよ」
	;PRINTFORMW 「大丈夫大丈夫！食べないから！」
	PRINTFORMW 「你说如果是公鸡就不要解体、要用它做什么？闹钟？」
	PRINTFORMW 「……诶、其他的公鸡会为了保护他们的地盘而被吸引过来！人类总是能想到很多办法呢」
	PRINTFORMW 「可以把这个给我吗？比起%CALLNAME:MASTER%的陷阱狩猎我有更高效利用的方法」
	PRINTFORMW 「放心放心！不会吃掉的啦！」
	;K63_CHICKENNAME '= @"%TEXTR("スナギモ/ハツ/カシワ/セセリ/チューリップ/ボンジリ/ヤゲン/オタフク/フリソデ")%"
	;PRINTFORML 「そうね、名前は…%K63_CHICKENNAME%でどうかしら」
	;PRINTFORMW 不安になるネーミングだ…
	K63_CHICKENNAME '= @"%TEXTR("鸡胗/鸡心/鸡肉/鸡脖/鸡翅根/鸡臀/鸡胸脆骨/鸡脖肉/鸡肩肉")%"
	PRINTFORML 「那么、就叫它…%K63_CHICKENNAME%怎么样」
	PRINTFORMW 让人不安的命名…
	CALL TRAP_V_RESET(RETRIEVE)
	RETURN 0
ENDIF
IF TRAP_CAPTURE:RETRIEVE == 0 && TRAP_DURABILITY:RETRIEVE
	PRINTFORML 「已经\@ TRAP_DURABILITY:RETRIEVE < 11? 坏的很严重# 有点坏掉\@了」
	PRINTFORML 「想着帮你回收了会不会比较好来着」
	RETURN 0
ENDIF

獲物 = TRAP_CAPTURE:RETRIEVE
CAPTURE_RECORD:獲物 ++
CALL CRITTER_DATA(獲物)
SELECTCASE CritterMeat_Value
	CASE IS >= 10
		PRINTFORML 「抓到很厉害的猎物了」
		PRINTFORML 「你看、有这么多肉呢！」
		K63_KNACKER += 3
		SIF ABL:[[影狼]]:料理技能 >= 2
			K63_KNACKER ++
	CASE IS >= 5
		PRINTFORML 「抓到大家伙了哟」
		K63_KNACKER += 1
		SIF ABL:[[影狼]]:料理技能 >= 2
			K63_KNACKER ++
	CASEELSE
		PRINTFORML 「抓到猎物了哦」
ENDSELECT
DRAWLINE
PRINTFORML 　【捕获的猎物】
PRINTFORM
CALL SPOIL_TEXT(SPOIL_ENHANCEMENT(獲物), 0, 1)
DRAWLINE
LOCALS = %ITEMNAME:(CritterMeat)%
CALL GET_ITEM(LOCALS, (CritterMeat_Value + SPOIL_ENHANCEMENT(獲物)), 2)
LOCALS = %ITEMNAME:(TRAP_TYPE:RETRIEVE)%
CALL GET_ITEM(LOCALS, 1, 1)
;罠の各種変数リセット
CALL TRAP_V_RESET(RETRIEVE)
;獣関連の変数をリセット
CALL CRITTER_V_RESET

@K63_眉カット
IF FIRSTTIME("K63_眉カット")
	PRINTFORMW 「…………」
	PRINTFORMW 影狼仔细地盯着%CALLNAME:MASTER%的脸看了一会
	PRINTFORMW 「有剃刀吗？稍微借我一下」
	PRINTFORMW ……
	PRINTFORMW …
	PRINTFORMW 「呼ー……」
	PRINTFORMW 「感觉还不错哦！照照镜子看看？」
	PRINTFORMW 影狼帮你修剪了眉毛
	CALL ASK_YN("谢谢你","弄的真棒啊")
	PRINTFORML 「\@ RESULT? 毕竟已经习惯了呢# 小事一桩啦\@」
	PRINTFORMW 「时不时修整一下会比较好哟」
ELSE
	PRINTFORML 「嗯ー、眉毛又长得很长了呢」
	PRINTFORMW 「再帮你修一次吧」
	PRINTFORMW ……
	PRINTFORMW 「%TEXTR("要再稍微修薄一点吗……/把眉尾再稍微修饰一下……/要不要稍微搞怪一下呢～")%」
	PRINTFORMW …
	CALL PRINT_FACE, [[影狼]], "笑顔", "服", "", ""
	PRINTFORML 「%TEXTR("完成啦！/大概就是这样吧/呼ー……搞定啦！")%」
	PRINTFORMW 「%TEXTR("嘻嘻、不觉得更有男子气概了吗？/嗯～很利落呢！/真是漂亮的眉毛。不愧是我干的真棒呀！")%」
ENDIF
CALL JUEL_UP_SPECIAL([[影狼]],"習得","技巧",10,1)
CALL BUFF_BASE(MASTER,BASE_気力, 100)
K63_EYEBROW = DAY + 30
SIF TALENT:[[影狼]]:恋慕
	K63_EYEBROW = DAY + 15

@KAGEROU_LIFE
SIF ABL:[[影狼]]:親密 < 5
	RETURN 0
CALL EVENTEND_TSUBUYAKI
;IF CFLAG:[[影狼]]:翌日来訪 && TALENT:[[影狼]]:恋慕
IF !RAND:3 && TALENT:[[影狼]]:恋慕
	SELECTCASE RAND:3
	    CASE 0
	        PRINTFORML 影狼正在重新涂指甲油
	        PRINTFORML 「%TEXTR(@"不涂的话太红了呢~/啊,这样正好/%CALLNAME:MASTER%会注意到吗~")%」
	    CASE 1
	        PRINTFORML 影狼在床单上滴下香油,然后打滚
	        PRINTFORML 「嗯,绝对会散发好闻的香气」
	    CASE 2
	        PRINTFORML 「唷,洗了个好澡!」
	        IF !RAND:2
	            PRINTFORML 「保湿保湿...」
	            PRINTFORML 在脸上涂抹自制的面霜
	        ELSE
	            PRINTFORML 检查经过护发的自豪长发
	            PRINTFORML 「嘻嘻,发梢也很顺滑」
	        ENDIF
	ENDSELECT
	RETURN
ENDIF

SELECTCASE RAND:5
	CASE 0
    ;不合脸型的野蛮夜宵
        PRINTFORMW 「应该已经冷了吧」
        PRINTFORML 影狼拿起烤好的胡萝卜大小的骨头,轻轻撤去烤焦的部分
        PRINTFORMW 然后一口咬断骨头端部,吸吮骨髓
        PRINTFORML 「呜呜~~~♪」
        PRINTFORML 「%TEXTR("果然还是这个味道最好/要是那些小姐们也尝过这味道就好了/简直无法相信她们把骨头全扔掉")%」
    CASE 1
        PRINTFORML 影狼%TEXTR("默默啃着牙刷棒/在做动物油脂蜡烛/在重新布置室内摆设/在扫地上的毛发")%
    CASE 2
        PRINTFORML 影狼在处理多余的体毛
        PRINTFORML 「%TEXTR("长得真快啊....../好了,干净了/真是背部最麻烦了")%」
    CASE 3
        PRINTFORML 影狼正在自制化妆品
        IF !RAND:7
            PRINTFORML 「永远亭的大小姐们可以随便用那边的化妆品吧」
            PRINTFORML 「也就是说,她们根本不需要化妆品吧」
            PRINTFORML 「...睡觉去」
        ELSEIF !RAND:4
            PRINTFORML 「植物油快用完了呢」
            PRINTFORML 「要是能用那边的向日葵就好了」
        ELSE
            PRINTFORML 「%TEXTR("草药味太重了~/哪里放了蹄子来着,蹄子/蛮奇那份看来也够/醋,要醋......")%」
        ENDIF
        EXP:[[影狼]]:調合経験 ++
    CASE 4
        IF ABL:[[影狼]]:料理技能 < 2
            PRINTFORML 影狼在检查储存的肉的状态
            PRINTFORML 「%TEXTR("嗯,还不错/应该还可以吧/...赶快吃完比较好吧/啊,不行了...太可惜了")%」
        ELSEIF !RAND:2
            PRINTFORML 影狼在检查风干肉的成色
            PRINTFORMW 「%TEXTR("还是想备些存货呢/最近有余裕,要分给谁好呢/唔~也行吧")%」
        ELSE
            PRINTFORML 影狼在烹调肉食
            EXP:[[影狼]]:料理経験++
            {
            PRINTFORML 「%TEXTR("剩下的肉汁拌在面包上...嗯,完美/再撒一点盐?/炖煮还挺方便的呢/果然比生吃更容易消化/
            最近好像没怎么生吃...被影响了呢~")%」
            }
        ENDIF

ENDSELECT

@K63_WEAR_SAILOR(ARG)
#FUNCTION
;恋慕限定
SIF !TALENT:63:恋慕
	RETURNF -1
;満月近くは着ない
SIF INRANGE(DAY:3, 13, 17)
	RETURNF -1
;春夏のみ
SIF DAY:2 == 3 || DAY:2 == 4
	RETURNF -1
RETURNF 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/M_KOJO_K63_独自関数.ERB

license: unknown


code:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;分岐作りに有用そうな変数などのメモ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;NOWEX:Ｃ絶頂 NOWEX:Ｖ絶頂 NOWEX:Ｂ絶頂 NOWEX:Ａ絶頂 NOWEX:Ｍ絶頂
;各部位の絶頂強度。まず0~3が割り当てられ、多重絶頂により最大16倍される。つまり単部位なら最大3、5重絶頂で最大48
;NOWEX:TotalEX
;多重絶頂補正を接受前の各部位絶頂強度の合計値。1~15。この貂プレにおける分岐の基準。

;TEQUIP:50
;Ｖに誰の竿が入ってるか。TEQUIP:50 = MASTERで你が挿入中となる。
;TEQUIP:51
;Ａに誰の竿が入ってるか。TEQUIP:51 = MASTERで你が挿入中となる。
;NOWEX:射精
;射精量、最大3。たとえばIF NOWEX:MASTER:射精 > 1だと、你が大量射精以上した場合となる。
;SYNCED_ORGASM(TARGET)
;相手と你が同時に絶頂した場合真となる。絶頂の部位は問わない。

;-------------------------------------------------
;絶頂時の口上
;-------------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_B_K63
#DIM TotalEX

CALL PALAM_MESSAGE_B
;-------------------------------------------------
;噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;射精した
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF NOWEX:MASTER:射精
	IF FIRSTTIME("射精前兆")
		PRINTFORMW （总感觉鸡鸡一跳一跳的……这、莫非是……）
	ELSEIF (TEQUIP:50 == MASTER || TEQUIP:51 == MASTER)
	;挿入中
		IF TALENT:63:自己愛 >= 0 && NOWEX:TotalEX > 0 && ABL:欲望 >= 10 && ABL:親密 >= 12
			IF !RAND:2 && NOWEX:TotalEX >= 5
				CALL HPH_PRINT,@"「来吧ッHPH 　%CALLNAME:MASTER%的种子、满满的给我吧HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「%TEXTR("嗯/啊/啊恩")%HPH　%CALLNAME:MASTER%也要去了吗？　一起去吧HPH」","W"
			ENDIF
		ELSEIF RAND:2
			CALL HPH_PRINT,@"「%TEXTR("嗯っ/啊っ")%…在里面%TEXTR("大大的/一跳一跳的/膨胀起来")%……HPH」","W"
		ELSE
			CALL HPH_PRINT,@"（%TEXTR("嗯っ……HPH　动的好快哟っ……HPH/像那样拼命地晃动着腰……　是想要我也疯狂起来吗……HPH")%）","W"
		ENDIF
	ELSEIF TALENT:63:自己愛 < 0
		PRINTFORMW （呜呜、还没出来吗……）
	ELSE
		CALL HPH_PRINT,@"（%TEXTR("明明就要出来了却还在忍耐着…好可愛呀……HPH/还差一点点吗？出来吧HPH　快出来吧HPH")%）","W"
	ENDIF
ENDIF
;合計絶頂数で分岐
;これだけではどの部位が絶頂したかは区別されないため、書き分けたければ任意で分岐を加筆されたし。
IF LOCAL
	IF SHIRAHU(TARGET)
		TCVAR:361 = 1
	ENDIF
	IF NOWEX:TotalEX
	SELECTCASE NOWEX:TotalEX + TCVAR:発情
		;強
		;潜伏中と圧抑が取れるまでは堪える
		CASE IS >= 6
			IF GETBIT(FLAG:潜伏,0) || TALENT:自己愛 < 0
				CALL HPH_PRINT,@"「%TEXTR("嗯゛ッHPH　嗯！HPH　嗯HPH　嗯~HPH/呜゛ッHPH　呼啊ッHPH　咕呜っHPH　嗯咕っHPH")%」","L"
				CALL HPH_PRINT,@"「%TEXTR("嗯゛嗯哈゛嗯/嗯゛嗯゛ッHPH　哈哇呜/嗯咕ッ……")%～～～～～～～～～～～～～～ッHPH」","W"
				CALL HPH_PRINT,@"「呼ーーッ……HPH　呼ーーッ……HPH　呼ーーッ……HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「%TEXTR("嗯哈ッHPH　嗯哦ッHPH　喔喔HPH/　嗯哦ッHPH　啊噢HPH　喔喔ッHPH")%HPH」","W"
				CALL HPH_PRINT,@"「%TEXTR("哦゛ッ…HPH　喔゛喔゛～～～～～～～～ッHPH/啊゛哦呜～～～～～～～～～ッHPH")% 」","W"
			ENDIF
			TCVAR:360 += 5
		;中
		CASE 3 TO 5
			IF GETBIT(FLAG:潜伏,0) || TALENT:自己愛 < 0
				CALL HPH_PRINT,@"「%TEXTR("嗯゛～～～っ/呼～～～～ッ゛")%HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「%TEXTR("啊っHPH　啊HPH　咿呀HPH　啊啊っHPH/咿嗯っHPH　啊啊っHPH　啊哈呜っHPH")%」","W"
				CALL HPH_PRINT,@"「%TEXTR("啊啊～～～～HPH　啊～～～～～っHPH/啊゛っHPH　啊゛っHPH　啊゛啊哦゛～～～～～～～～っHPH　")%」","W"
			ENDIF
			TCVAR:360 += 1
		CASE 2
			IF GETBIT(FLAG:潜伏,0) || TALENT:自己愛 < 0
				CALL HPH_PRINT,@"「………%TEXTR("嗯嗯呐っ/哈咕っ/呼ー呜 呼ーッ")%HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「%TEXTR("嗯っ/啊/啊嗯っ")%HPH　%TEXTR("嗯っ/啊/啊嗯っ/啊嗯哦/呀呜")%HPH　%TEXTR("嗯っ/啊喔/呀呜/啊嗯っ/咕呜ん")%HPH」","L"
				CALL HPH_PRINT,@"「～～～～～～～～～ッHPH」","W"
			ENDIF
		;弱
		CASE 1
			IF GETBIT(FLAG:潜伏,0) || TALENT:自己愛 < 0
				CALL HPH_PRINT,@"「………%TEXTR("嗯っ/啊っ/啊嗯っ")%HPH」","W"
			ELSE
				CALL HPH_PRINT,@"「%TEXTR("嗯嗯っ/啊啊/啊嗯っ/嗯哈啊っ")%HPH」","W"
				CALL HPH_PRINT,@"「好舒服……HPH」","W"
			ENDIF
	ENDSELECT
	ENDIF
ENDIF
IF TALENT:Ｂ感度 < 0 && NOWEX:Ｂ絶頂 >= 2
	CALL HPH_PRINT,@"「原来欧派也能像这么舒服的啊……HPH」","L"
	CALL COLORMESSAGE(@"【Ｂ鈍感】消失",C_YELLOW,1)
	TALENT:Ｂ感度 = 0
ENDIF
;-------------------------------------------------
;奴隷の睡眠絶頂時の口上
;-------------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_B2_K63
CALL PALAM_MESSAGE_B

;-------------------------------------------
;調教後の文本＠調教後というか指令後
;映姫口上によれば诶嘿嘿等に関係なくTARGET指定中なら毎ターン読み込まれるらしい
;-------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_C_K63
;このターンの絶頂強度を記録し、次のターンでの判定に使用
TCVAR:362 = NOWEX:TotalEX

;-------------------------------------------------
;睡眠噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠射精した
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
;合計絶頂数で分岐
;これだけではどの部位が絶頂したかは区別されないため、書き分けたければ任意で分岐を加筆されたし。
IF LOCAL
	SELECTCASE NOWEX:TotalEX
		;強
		CASE 5 TO 15
			PRINTFORMW
		;中
		CASE 2 TO 4
			PRINTFORMW
		;弱
		CASE 1
			PRINTFORMW
	ENDSELECT
ENDIF

;-------------------------------------------------
;你が射精したときに関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_MESSAGE_PALAMCNG_A_K63_00(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;TARGETの手による射精で、射精対象が非TARGET
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_22(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;六九式
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_26(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;授乳PLAY
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_21(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳夾口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_20(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_9(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門奉仕
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_8(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;泡泡浴
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_6(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;素股
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
CALL K63_圧抑削除
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K63_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF FIRSTTIME("初膣内射精")
	PRINTFORML （啊……里面、暖暖的……)
	CALL HPH_PRINT,@"（%CALLNAME:MASTER%的种子、射进来了呢…以后来生一个吧……和%CALLNAME:MASTER%的孩子……HPH）","W"
	RETURN 1
ENDIF
IF !NOWEX:Ｖ絶頂
	IF TALENT:63:自己愛 >= 0
		SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「啊っ…出来了吗？」
				PRINTFORML 「真是的、就算不那样牢牢抓住腰人家也不会逃跑的啦」
			CASE 1
				PRINTFORML 「%TEXTR("嗯、舒服吗？/还能继续吗？下次要一起哦、呐？")%」
		ENDSELECT
	ELSE
		PRINTFORML 「嗯…又在里面……」
	ENDIF
	RETURN 1
ENDIF
EXP:Ｖ性交経験 ++
SIF NOWEX:Ｖ絶頂 > 2
	EXP:Ｖ性交経験 ++
IF ABL:膣射中毒 < 3
	IF !RAND:4
		PRINTFORML 「啊啊っ… 被精液做上色色的记号了……」
		CALL HPH_PRINT,@"「成为%CALLNAME:MASTER%的雌性的印记、刻进我的身体了……HPH」」","L"
	ELSE
		CALL HPH_PRINT,@"「%TEXTR("啊啊……里面、好热哦……HPH/哈ーっHPH 哈ーっHPH 要养成奇怪的癖好了、被中出后高潮的癖好呜…HPH")%」","L"
	ENDIF
ELSE
	EXP:Ｖ性交経験 ++
	SELECTCASE RAND:3
		CASE 0
			CALL HPH_PRINT,@"「唏咿゛咿HPH　%TEXTR("好热的/黏糊糊的/精子")%进来了HPH 」","L"
		CASE 1
			CALL HPH_PRINT,@"「哈啊啊゛～～HPH　%TEXTR("好热的/黏糊糊的/精子")%在里面蔓延開了……HPH」","L"
		CASE 2
			CALL HPH_PRINT,@"「%TEXTR("啊啊゛/呜哦゛喔/啊゛～/哈嘿诶")%～～～～HPH %TEXTR("被填的满满的了/舒呼过头了/精液好热/好幸呼~~~")%……HPH 」","L"
	ENDSELECT
	{
	PRINTFORML %TEXTR(@"%CALLNAME:TARGET%美丽的脸庞上一副放荡雌性的表情、接受了%CALLNAME:MASTER%的种子……
	/与平日温和冷静的样子完全不同、此刻头发散乱、嘴里不断用可爱的声音娇喘着忍耐快乐的%CALLNAME:TARGET%有一种别样的美丽
	/看着一脸幸福地被自己射精的%CALLNAME:TARGET%淫乱的身姿、%CALLNAME:MASTER%忍不住更用力地抱住她")%
	}
ENDIF
IF NOWEX:MASTER:射精 > 1
	EXP:Ｖ性交経験 ++
	IF ABL:膣射中毒 < 2
		PRINTFORML 「还在射呢……」
	ELSE
		SELECTCASE RAND:8
			CASE 0
				CALL HPH_PRINT,@"「嗯゛～～っHPH　再多给我一点嘛？」","L"
				CALL HPH_PRINT,@"「想要、把%CALLNAME:MASTER%的全部、都占为己有啊……HPH」","L"
			CASE 1
				IF TALENT:妊娠
					PRINTFORML 「真是的、就算你再怎么努力、这里面也已经有先到的客人了啦、现在的话可怀不上孩子哦？」
				ELSE
					PRINTFORML 「呵呵、真的射进来好多呢」
					PRINTFORML 「就那么拼命想让我怀上孩子吗？」
				ENDIF
			CASE 2
				CALL HPH_PRINT,@"（哈ーーーっHPH　肚子里面好暖和……HPH）","L"
				PRINTFORML （%CALLNAME:MASTER%的温度、种子液、在我的身体里……）
				CALL HPH_PRINT,@"（呵呵、呵呵呵……HPH）","L"
			CASEELSE
				CALL HPH_PRINT,@"「%TEXTR(@"还在跳动着……往里面射精………HPH/真是、射出来那么多……HPH/呵呵、%CALLNAME:MASTER%也很舒服吧？")%」」","L"
		ENDSELECT
	ENDIF
ELSEIF TALENT:63:自己愛 >= 0
	SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「呵呵」
			PRINTFORML 「一起去的时候、会有我们真的很合拍的感觉很开心呢」
	ENDSELECT
ENDIF
RETURN 1

;-------------------------------------------------
;眠姦射精に関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K63_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_F_K63(ARG)
CALL PALAM_MESSAGE_F
;-------------------------------------------------
;挑逗
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@K63_圧抑削除
;你が大量射精した場合
SIF NOWEX:MASTER:射精 <= 1
	RETURN
;圧抑削除
IF TALENT:63:自己愛 < 0 && ABL:63:欲望 >= 5
	PRINTFORMW （放纵情欲一起登上高潮、还露出那么不成体统的表情……原来是那么舒服的事情吗……）
	PRINTFORMW （果然看着他開心我也会跟着很開心……如果我也不再压抑自己的声音的话、%CALLNAME:MASTER%会不会更開心呢？）
	CALL COLORMESSAGE(@"影狼的【圧抑】素质消失了",C_YELLOW,2)
	TALENT:63:自己愛 = 0
	RETURN
ENDIF
IF NOWEX:TotalEX == 0 && TALENT:63:自己愛 >= 0
	PRINTFORMW 「呵呵、%CALLNAME:MASTER%、摆出了一副非常舒服的表情呢」
	CALL HPH_PRINT,@"「下次也要让我好好舒服起来哟……HPH」","W"
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/M_KOJO_K63_絶頂.ERB


path: ERB/口上・メッセージ関連/個人口上/【63】影狼/M_KOJO_K63_自慰系(あなた)コマンド.ERB


code:
※制作中思慕がなかったので親密で変化させていた部分を思慕にしたくらいしか対応してません
※「親密でも変化」の部分は地の文に対応させています
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
－　仕様上見ることができない
×　未実装
△　とりあえず実装
●　○と比べた時一部台詞が変わる程度
○　実装済み
＝　変化無（実装済み）
◎　変化あり
☆　○と比べた時パターン増量
* 　拡張したもの
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
ENCOUNTER 　　　　　　　　　　　通常　思慕　恋慕　恋人　住宿　備考
0   初対面　　　　　　　　　　　○　　－　　－　　－　　－
SPEVENT
*1  约会帰りに初吻　×　　○　　＝　　－　　＝　　　　最低でも[思慕]がないと発生不会うに。中止可
2   约会帰りに告白　　　　　　×　　×　　○　　－　　＝　　　　[恋慕]なくてもできるか知らんがとりあえず[恋慕]のみ
*3  约会帰り　　　　　　　　　○　　☆　　◎　　◎　　◎　　　　拡張
EVENT
1   部屋で遭遇　　　　　　　　　○　　＝　　◎　　＝　　●　　　　一日一回の挨拶。恋慕時は満月の日に変化
2   おはよう口上　　　　　　　　－　　－　　－　　－　　○　　　　挨拶と同じ扱い
2   おはよう口上（添い寝起床）　×　　×　　×　　×　　×
3   おやすみ口上　　　　　　　　－　　－　　－　　－　　×
4   移動時すれちがい　　　　　　×　　×　　×　　×　　×
5   他者介入で情緒変化　　　　×　　×　　×　　×　　×
6   情事を目撃した　　　　　　　×　　×　　×　　×　　×
7   情事を見られた　　　　　　　×　　×　　×　　×　　×
8   目撃した情事を問い詰める　　×　　×　　×　　×　　×
9   把柄を握った　　　　　　　　×　　×　　×　　×　　×
10  推倒た　　　　　　　　　×　　×　　×　　×　　×
11  浴場で遭遇　　　　　　　　　×　　×　　×　　×　　×
12  寝床に忍び込み　　　　　　　×　　×　　×　　×　　×
13  お仕事中　　　　　　　　　　－　　－　　－　　－　　－
14  持っていた食物を食べられた　×　　×　　×　　×　　×
15  MASTERが推倒た　　　　　×　　×　　×　　×　　×
16  陪睡　　　　　　　　　×　　×　　×　　×　　×
17  時止め終了時　　　　　　　　×　　×　　×　　×　　×
18  ナマでやらせろ時　　　　　　×　　×　　×　　×　　×
*19 神社暮らしを承認して貰う　　－　　－　　○　　＝　　－　　　　拡張
COM
日常系
300 会話　　　　　　　　　　　　○　　●　　☆　　●　　●
300 会話（お天気）　　　　　　　○　　＝　　●　　●　　●
300 会話（お赏月）　　　　　　　○　　＝　　●　　●　　●　　　　活動時間外の月は住み込まないと見られない
300 会話（満月, 十五夜イベント）×　　×　　○　　＝　　＝
300 会話（添い寝）　　　　　　　－　　－　　－　　－　　○
300 会話（约会）　　　　　　　○　　＝　　☆　　●　　＝　　　　恋慕時は場所会話有り
300 会話（人狼ゲーム）　　　　　×　　×　　○　　＝　　＝　　　　身体接觸で[100]を入力すると呼べる
301 泡茶　　　　　　　　○　　＝　　◎　　＝　　＝
302 身体接觸　　　　　　　　○　　●　　☆　　＝　　＝　　　　選択式。オート化可。
302 身体接觸（お風呂）　　　×　　×　　○　　＝　　＝
303 道歉　　　　　　　　　　　　×　　×　　×　　×　　×
304 幫忙干活　　　　　　　　－　　－　　－　　－　　－
305 索求膝枕　　　　　　　×　　×　　○　　●　　＝
307 捏臉蛋　　　　　　　　　○　　＝　　◎　　＝　　＝　　　　親密でも変化
307 捏臉蛋（添い寝）　　　　－　　－　　－　　－　　○
308 捅臉頰　　　　　　　　　－　　－　　－　　－　　○
309 摸頭　　　　　　　　　○　　＝　　◎　　＝　　＝　　　　親密でも変化
309 摸頭（添い寝）　　　　－　　－　　－　　－　　○
310 摸屁股　　　　　　　　　○　　＝　　◎　　＝　　＝　　　　親密でも変化
311 擁抱　　　　　　　　　　○　　＝　　◎　　＝　　＝　　　　親密でも変化
311 擁抱（添い寝）　　　　　－　　－　　－　　－　　○
性騷擾系
312 接吻　　　　　　　　　　×　　×　　○　　＝　　＝　　　　接吻経験で変化
312 接吻（添い寝）　　　　　－　　－　　－　　－　　○
313 胸愛撫　　　　　　　　　　　×　　×　　×　　×　　×
314 肛門愛撫　　　　　　　　　×　　×　　×　　×　　×
315 陰蒂愛撫　　　　　　　　　　×　　×　　×　　×　　×
316 指挿入れ　　　　　　　　　　×　　×　　×　　×　　×
317 Ｖ腰を振る　　　　　　　　　×　　×　　×　　×　　×
318 Ａ腰を振る　　　　　　　　　×　　×　　×　　×　　×
330 掀裙子　　　　　　　×　　×　　×　　×　　×
350 推倒　　　　　　　　　　×　　×　　×　　×　　×
其他
351 帯出去　　　　　　　　　　×　　×　　×　　×　　×
352 告白　　　　　　　　　　？　　？　　○　　－　　＝　　　　恋慕無でできるか不明
353 猥褻　　　　　　　　×　　×　　×　　×　　×
354 陪睡（相手起きてる）　×　　×　　×　　×　　×
360 任憑擺佈　　　　　　　　　×　　×　　×　　×　　×
363 朗読　　　　　　　　　－　　－　　－　　－　　－
402 就寝（添い寝）　　　　　　　－　　－　　－　　－　　○
403 休憩　　　　　　　　　　　　×　　×　　×　　×　　×
405 外出（约会）　　　　　×　　×　　×　　×　　×
410 掃除　　　　　　　　　　　　○　　＝　　☆　　＝　　●　　　　恋慕時は場所でも多少変化。住宿は影狼の小屋
411 戦闘訓練　　　　　　　　　　○　　＝　　☆　　＝　　＝　　　　恋慕時は夜の天候等で変化
412 勉強　　　　　　　　　　　　○　　＝　　◎　　＝　　＝
413 料理　　　　　　　　　　　　○　　＝　　☆　　＝　　＝　　　　恋慕時は作ったもので多少変化。料理システムに改変があった場合は修正予定
414 吃飯　　　　　　　　　　　　○　　＝　　☆　　＝　　＝　　　　恋慕時は作って食べたもので多少変化
415 招待吃飯　　　　　　　○　　＝　　☆　　＝　　＝　　　　吃飯と同じ扱い
;416 演奏
417 午睡をする　　　　　　　　　×　　×　　×　　×　　×
421 祈願する　　　　　　　　　△　　＝　　＝　　＝　　＝　　　　身体接觸のONスイッチ
431 在浴室里放鬆　　　　　　×　　×　　△　　＝　　＝
约会系
603 牽手　　　　　　　　　　○　　＝　　◎　　●　　＝
604 散步　　　　　　　　　　△　　＝　　＝　　＝　　＝
605 繞道　　　　　　　　　×　　×　　○　　＝　　＝
610 請吃飯　　　　　　　　　×　　×　　○　　＝　　＝
;賺錢
*613採購食材　　　　　　　○　　＝　　◎　　＝　　＝　　　　拡張
615 吃便當　　　　　　　×　　×　　○　　＝　　＝　　　　影狼の料理技能で変化
617 甘味処に誘う　　　　　　　　×　　×　　○　　＝　　＝
620 鈴奈庵　　　　　　　　　　　×　　×　　○　　＝　　＝　　　　ネタ
660 読書　　　　　　　　　　　　×　　×　　×　　×　　×
派生指令
60  掏耳朵　　　　　　　　　　　○　　●　　◎　　＝　　＝
61  抱き枕　　　　　　　　　　　－　　－　　－　　－　　○
62  亲額頭　　　　　　　　　×　　×　　○　　＝　　＝
63  更多的接吻　　　　　　　×　　×　　○　　＝　　＝
80  拉手　　　　　　　　　　×　　×　　△　　＝　　＝
诶嘿嘿/刻印
全部　　　　　　　　　　　　　　×　　×　　×　　×　　×

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/口上実装マークシート.txt


code:
【口上拡張パッチ】
eratohoTheWrold proto4.00用です
【eraTheWorld4.00修正パッチ】【eraＴＷ人物追加パッチ】
とは競合していないのでこれらが導入されていても問題ありません。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
未対応の口上に対応するよう一部ERBを弄りました
特に中止接吻はエラーを吐く上LOCALは中継時にVARSETされてしまうので新規TCVARを追加してます
基本的に拡張しなくても動きますが、约会帰りの初吻は変な挙動になると思います

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■追記・修正点
●TCVAR:183,中止接吻
CSV,DATE_CMNに追記。元から约会帰りの初吻中止です
口上貂プレにあった LOCAL:DATE_EVENT:99 及び LOCAL:99 を置換してます

●SPEVENT_3,约会帰り
DATE_CMNに追記。约会帰りにイベントが起きなかった場合の口上を追加しました
全然ＳＰじゃないんですが隣に置けるので便宜上ＳＰにしました

●EVENT_19,神社暮らしを承認して貰う
APPEND_SYSに追記。断られたときは仕様上一人分しか呼べないと思われる（多分角色番号が大きい順）

●COM_615,採購食材
これはCOMなので口上側に追記したまでです

以上は全てM_KOJO_KX2にも取り込みました
制作中の方は追記したい場合お手数ですが差分を取って下さい

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/口上拡張パッチreadme.txt


code:
※まともにテストプレイしていないのでおかしな挙動,台詞の矛盾等があるかもしれません。掲示板で報告してくれると助かります
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
コンセプトは女の子な影狼です
落ち着いてるけど元気ある１コ上のお姉さんくらい
とりあえず日常系は一街道揃ってます
诶嘿嘿はありません。接吻までです
大体[恋慕]が標準です
詳細は同梱の口上実装マークシートにて

・诶嘿嘿→　　ないです
・時姦→　　　ないです
・地の文→　　ほぼないです
・你→　　喋らないです
・女你→　未対応です
・人外你→未対応です
・ケモ→　　　ほぼないです
・おねショタ→ないです
・人狼ゲーム→あります
・J+影狼口上→作者さんとは関係ありません
・TheWorld小傘口上→構文の書き方,特にFIRSTTIME関数を参考にさせていただきました。ファンです
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■イベントについて
●お赏月
「会話」で１日１回お赏月できます（見えないとダメ）
[恋慕]で満月の日にお赏月すると微量のソースと[発情]が起きます
さらに十五夜の場合稍微盛り上がります。曇ってても多少融通が利きます

●人狼ゲーム
影狼に[恋慕]があり居間,霊夢私室,走廊,影狼の小屋のいずれかで
霊夢と魔理沙が居るとき「会話」すると疑似人狼ゲームが遊べます
やりたいけどめんどくさい人は口上実装マークシートを見て下さい
疑似人狼なので割とク○ゲーです

●身体接觸
「身体接觸」が選択式になってます
めんどくさい人は「[99]毎回随机」を選択するカットできます
もう一度選択式に戻したい時は影狼と一緒になんでもいいので祈願して下さい

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■方針ついて
とりあえず诶嘿嘿は実装させたいものの
モチベーションはあるが筆の技術がない
…ので他のところを埋めていくか、他の角色の口上を作るかも
诶嘿嘿以外は要望次第

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■ライセンス・連絡等について
ライセンスフリーです。煮て良し焼いて良し改変して良し流用して良し。無断でも構いません
ただし加筆,改変したものもライセンスフリーにしてください
@OTENKI_KAGEROUはTheWorld口上を書くときに使えるおすすめ関数です
連絡は掲示板でお願いします。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■最後に
TheWorldむっちゃ面白いです。みんなも口上書こう
口上だけならプログラムの技術がなくても書けるようになってます。すごい

path: ERB/口上・メッセージ関連/個人口上/【63】影狼/影狼readme.txt