code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K10, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

;過去バージョンで既に勧誘していた場合に備えて、モードセレクト呼び出し
IF CEVENT("モードセレクト完了") == 0
	PRINTFORML - 系统信息 -
	PRINTFORML  因为%CALLNAME:TARGET%是已被劝诱的存档数据，
	PRINTFORMW  调用模式选择。
	PRINTL
	CALL KOJO_MODE_SELECT_K10
ENDIF
;システム側での合意禁止
SIF COND("合意：肛門性交") == 0 && CEVENT("合意禁止：肛門性交") == 0
	CALL SET_CEVENT, "合意禁止：肛門性交", TARGET

MEMO_LINECOUNT = LINECOUNT
SELECTCASE ARGS
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"
		;恋慕
		IF TALENT:恋慕
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			CALL PRINT_STRL, @"「%TEXTR("おはよう/起こしちゃったかしら")%_HH_　%CNAME("一人称")%にこういうのされるの嫌じゃないかしら」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%%TEXTR("が欲しくなっちゃったの/がなかなか起きないから悪戯しちゃったの")%　ごめんなさいね」"
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("おはよう/起こしちゃったかしら")%_HH_　%CNAME("一人称")%にこういうのされるの嫌じゃないかしら」"
		ENDIF
	CASE "朝接吻"
		;恋慕
		IF TALENT:恋慕
		;それ以外
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("おはよう/良い朝ね")%　%TEXTR("ちゅっ/ちゅぅ")%_HH_」"
			IF COND("合意：本番") || COND("合意：肛門性交")
				CALL PRINT_STRW, @"「%TEXTR("今夜、空いてたらしない？/帰って来たら続きをしましょうね")%_HH_」"
			ENDIF
		ENDIF
	ENDSELECT
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"
		;恋慕で派生
		IF TALENT:恋慕
			CALL PRINT_STR, "「嗯哼、嗯哼、嗯哼…啊噗… _H_多谢款待_H_」_W_"
			PRINTL
		ELSE
			PRINTFORMW %CALLNAME:TARGET%一边咳嗽，一边慌慌张张的站了起来…
		ENDIF
		PRINTFORMW 「呵呵，起来吃早饭了哦」
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
	;	RETURN 1

	IF COND("体育")
		IF RAND:2
			PRINTFORMW 「今天好像有体育课，带体操服和毛巾了吗？」
		ELSE
			PRINTFORMW 「今天好像有体育课，运动的时候一定要小心别受伤哦」
		ENDIF
	ELSE
		IF DAYEV("周六", "游戏内") == 0 && DAYEV("周日", "游戏内") == 0
			PRINTFORMW 「有没有忘记带的东西？再见哦，在学校等你」
		ELSE
			PRINTFORMW 「今天在家好好休息吧」
		ENDIF
	ENDIF
CASE "一番乗り"
	IF COND("同伴中")
		IF RAND:2
			PRINTFORMW 「看样子我们是最早的呢」
			PRINTFORMW 「真不容易啊，在其他孩子来之前做点什么吧？」
		ELSE
			PRINTFORMW 「好像除了我们以外，其他人都不在呢」
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「虽然很想对你说：上午辛苦了」
			PRINTFORMW 「……但是刚才上课的时候打瞌睡了吧」
			PRINTFORMW 「还是得说一句，都暴露了吧？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「上午辛苦了」
			IF RAND:3 == 0
				;母乳体質で分岐
				IF TALENT:母乳体質 == 1 || TALENT:母乳体質 == 2
					PRINTFORM 「喝杯茶怎么样？
					;恋慕で分岐
					IF TALENT:恋慕 > 0
						PRINTFORMW 　……诶嘿嘿，还是胸部比较好吧？」
						CALL PRINT_STR, "「哎呀，永远都是个爱撒娇的小孩子呢_H_」 _W_"
					ELSE
						PRINTFORMW 　……嗯、『胸部最棒了』？」
						IF MARK:屈服刻印 >= 2
							PRINTFORMW 「哈……这孩子，真是没办法」
						ELSE
							PRINTFORMW 「喂，别再说这种傻话了」
						ENDIF
					ENDIF
					;屈服刻印２以上で派生
					IF MARK:屈服刻印 >= 2
						PRINTFORMW 「……喂，要来吗？」
						PRINTFORM %CALLNAME:TARGET%只想让%CALLNAME:MASTER%看见。
						;巨乳で分岐
						IF TALENT:巨乳 == 1
							PRINTFORM %TEXTR("重量感十足的乳肉/快要断奶的丰乳")%
						;貧乳で分岐
						ELSEIF TALENT:貧乳 == 1
							PRINTFORM 刚開始变硬的乳頭
						ELSE
							PRINTFORM %TEXTR("形状姣好的乳房/仿佛年糕般柔软的乳房")%
						ENDIF
						PRINTFORMW 露了出来…
						;屈服刻印３で分岐
						IF MARK:屈服刻印 == 3
							PRINTFORMW （H的时候明明那么健壮）
							CALL PRINT_STR, "（中途拼命的样子…真是可爱_H_） _W_"
						;屈服刻印２で分岐
						ELSE
							PRINTFORMW （那个人看见我胸部的时候，也想要喝我的奶水来着）
							PRINTFORMW （関于下流这点，父子俩还是真是一模一样…）
						ENDIF
						PRINTFORML 哺乳经验＋１
						EXP:授乳経験 += 1
					ENDIF
				ELSE
					PRINTFORMW 「喝杯茶怎么样？如果可以的话我给你泡哦」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORMW 「不好好吃午饭是不行哦？」
			ELSE
				PRINTFORMW 「其他老师表扬你了，加油！」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「……已经是中午了啊。时间过得真快啊」
			ELSE
				PRINTFORMW 「嗯，在这里呆着真好啊♪」
			ENDIF
			PRINTFORMW 「……是不是和其他的孩子一起呢？」
		ENDIF
	ENDIF
CASE "ただいま"
	PRINTFORMW 「我回来了」
	IF RAND:6 == 0
		PRINTFORMW 「今天%CNAME("一人称")%做做晚饭，想马上吃吗？还是等一等？」
	ELSEIF RAND:5 == 0
		PRINTFORMW 「啊，今天也很疲惫呢……」
	ELSEIF RAND:4 == 0
		IF RAND:3 == 0
			PRINTFORM 「今天真早啊。
		ELSEIF RAND:2 == 0
			PRINTFORM 「早点回去。
		ELSE
			PRINTFORM 「早点回去吧？
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW 买东西来了，可以帮我收拾一下吗？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 晚饭已经吃过了吗？
		ELSE
			PRINTFORMW 还没吃晚饭吧？马上就做哦」
		ENDIF
	ELSEIF RAND:3 == 0
		IF RAND:3 == 0
			PRINTFORMW 「看，我买东西了，麻烦放到冰箱里哦」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「又弄得这么乱……有空玩游戏的话，也适当收拾一下」
		ELSE
			PRINTFORMW 「别老是玩，作业有好好做完吗？」
		ENDIF
		IF RAND:6 == 0
			PRINTFORMW 「别那么一脸嫌弃嘛，就一次！」
		ELSEIF RAND:3 == 0
			IF RAND:2 == 0
				PRINTFORMW 「……今天真是坦率啊」
			ELSE
				PRINTFORMW 「…很老实呢」
			ENDIF
		ENDIF
	ELSEIF RAND:2 == 0
		IF CHARA_NUM("集合予定") > 4
			PRINTFORMW 「今天买了好吃的蛋糕，大家一起吃吧」
		ELSEIF CHARA_NUM("集合予定") > 2
			PRINTFORMW 	「今天买了好吃的蛋糕，{CHARA_NUM("集合予定")}人一起吃吧」
		ELSE
			PRINTFORMW 「今天买了好吃的蛋糕，一会儿一起吃吧」
		ENDIF
	ELSE
		PRINTFORMW 「看你这邋邋遢遢，吊儿郎当的样子」
		PRINTFORMW 「这样子被女孩子看到，会被讨厌吧？」
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF RAND:4 == 0
			PRINTFORMW 「啊，刚吃完晚饭」
			PRINTFORMW 「我会准备好的，请换衣服吧」
		ELSE
			PRINTFORMW 「今天好晚啊」
			IF RAND:4 == 0
				PRINTFORMW 「啊，这个……禁止买零食！」
				IF RAND:4 == 0
					PRINTFORMW 「真没办法啊……这次放过你好了，下不为例哦」
				ELSE
					PRINTFORMW 「不行啊，这个没收♪」
					PRINTFORMW 点心被%CALLNAME:TARGET%吃掉了……
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「可以绕道，但是不要太晚哦」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「浴室的水烧開了，快进来吧」
			ELSE
				PRINTFORMW 「晚饭做好了哦。重新热一下，先换衣服吧。」
			ENDIF
		ENDIF
	ELSE
		IF COND("同伴中", MASTER) && RAND:2
			PRINTFORMW 「あら、%CNAME("partner")%と一緒だったの」
			PRINTFORMW 「哦呼呼…不，没什么♪」
		ELSEIF RAND:2
			PRINTFORMW 「难得来一次，所以要打扰了哦」
			PRINTFORMW 「……算了，我也算是这里的顾问，不好出面吧。」
		ENDIF
	ENDIF
CASE "入室打招呼"
	PRINTFORMW 「你好。有好好地相处吗？」

CASE "抜け出された"
	CALL PRINT_STR, @"「%TEXTR("哎呀……/好了好了……")%%TEXTR("＿/诶嘿嘿/呼呼")%」_W"

CASE "便当"
	PRINTFORMW
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K10, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF COND("夜")
		PRINTFORML 「学校里不可以叫妈妈，应该叫老师吧？」
		PRINTFORML 「今后我也会接受邀请成为社团活动的顾问，有什么困难的话请和我商量」
	ELSE
		PRINTFORML 「在学校不要叫妈妈，叫老师吧」
		PRINTFORML 「我叫麦莉爱娜，从今天開始在这里当顾问。有什么问题都可以和老师商量」
	ENDIF

CASE "浑身是汗"
	PRINTFORML 汗流浃背
CASE "刚睡醒"
	PRINTFORML 刚睡醒
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K10
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML
CASE "契約成立"
	IF RAND:5 == 0
		PRINTFORML 「在契约的范围内，我可以实现你的愿望」
		PRINTFORML 「…是不是有点太娇惯了呢」
	ELSEIF RAND:4 == 0
		PRINTFORML 「虽然有人类通过交易想要赶走恶魔的传说」
		PRINTFORML 「为什么那样的话，现在还在流传呢……这对教育小孩子可不好」
	ELSEIF RAND:3 == 0
		PRINTFORML 「……诶嘿嘿♪」
		PRINTFORML 「这么高兴吗，总觉得我也变得開心了呢」
	ELSEIF RAND:2 == 0
		PRINTFORML 「%CNAME("二人称")%已经是高中生了」
		PRINTFORML 「不能总是依赖%CNAME("一人称")%吧？」
	ELSE
		PRINTFORML 「……所以，好好承受灵魂的抽取吧」
		PRINTFORML 「这么狡猾，就算是母子関系也不能够原谅哦♪」
	ENDIF
CASE "摆脱"
	IF SAVESTR:現在位置 == "情人旅館"
		IF COND("合意：本番") || COND("合意：肛門性交")
			;更衣
			IF COND("Ｈ的サプライズ可能")
				IF RAND:6 == 0
					CALL SET_PANTIES, @"紐丁字褲/%TEXTR("黒/紫/白")%"
				ELSEIF RAND:5 == 0
					CALL SET_PANTIES, @"丁字褲/%TEXTR("黒/紫/白")%"
				ELSEIF RAND:4 == 0
					CALL SET_PANTIES, @"高開衩胖次/%TEXTR("黒/紫/白")%"
				ELSEIF RAND:3 == 0
					CALL SET_PANTIES, @"Ｃ胖次/%TEXTR("黒/紫/白")%"
				ELSEIF RAND:2 == 0
					CALL SET_PANTIES, @"Ｈ的内衣/%TEXTR("黒/紫/白")%"
				ENDIF
				CALL SET_BRA, @"半杯胸罩/%TEXTR("黒/紫/白")%"
			ENDIF
			IF RAND:3 == 0
				PRINTFORML 「啾……呵呵，快点进来吧」
				PRINTFORML 「我会尽力为你服务的,请期待吧♪」
			ELSEIF RAND:2 == 0
				PRINTFORML （其实呢、要和%CONDS("間柄", MASTER)%做那种事情呢）
				PRINTFORML （光是这么想着就已经湿了……）
			ELSE
				PRINTFORML 「现在不是母亲，是%CNAME("二人称")%的恋人哦」
				PRINTFORML 「忘掉其他的事情，好好相爱吧」
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「要是被谁看见了就麻烦了，快进来吧」
			ELSEIF RAND:3 == 0
				PRINTFORML 「因为被%CONDS("間柄", MASTER)%诱惑，所以来到了这种地方］
				PRINTFORML 「会不会在中途被熟人看到呢……」
			ELSEIF RAND:2 == 0
				PRINTFORML 「是啊，对这样的地方不太习惯……也许稍微有些紧张了」
			ELSE
				PRINTFORML 「把%CNAME("一人称")%带到这种地方来，想要做什么呢？」
			ENDIF
		ENDIF
	ELSE
		IF SAVESTR:現在位置 == "做爱房"
			IF COND("合意：本番") || COND("合意：肛門性交") && RAND:2 == 0
				PRINTFORML 「%CNAME("一人称")%说过了吧」
				PRINTFORML 「在家怎么都好，但在学校是师生関系，所以给我忍耐一下」
				CALL PRINT_STR, @"「%TEXTR("因为在工作，不能花太长时间哦/结束的时候要说出来哦/那，快点结束吧")%_」_L"
			ELSE
				PRINTFORML 「作为社团活动顾问，是不是应该为社团活动活跃而高兴呢？」
				PRINTFORML 「还是应该因为%CONDS("間柄", MASTER)%的毛手毛脚而感到悲伤呢」
				PRINTFORML %CALLNAME:TARGET%对于被带来这个房间好像心情很复杂…
			ENDIF
		ELSEIF SAVESTR:現在位置 == "体育倉庫" || SAVESTR:現在位置 == "更衣室" || SAVESTR:現在位置 == "保健室"
			IF COND("合意：本番") || COND("合意：肛門性交")
				PRINTFORML 「%CNAME("一人称")%说过了吧」
				PRINTFORML 「在家怎么都好，但在学校是师生関系，所以给我忍耐一下」
				CALL PRINT_STR, @"「%TEXTR("不能忍耐的坏孩子必须要受到惩罚/不能遵守约定的坏孩子不训斥不行呢")%_」_L"
			ELSE
				PRINTFORML 「哎呀，你带我来这种地方干什么？」
				PRINTFORML 「…只是问问而已啦」
			ENDIF
		ENDIF
	ENDIF
CASE "主人公的房間に連れ込まれた"
	IF TALENT:MASTER:男性 && RAND:3 == 0
		IF RAND:2 == 0 && TALENT:恋慕 == 0
			PRINTFORML 「如果被带来是可爱的女朋友比较好吧」
		ELSE
			PRINTFORML 「这房间%TEXTS("气味")%的味道很大呢，大概这些男孩子都比较健康吧……」
			PRINTFORML 「哎呀，不是这个意思。呵呵，嫉妒吗？」
		ENDIF
	ELSEIF RAND:2 == 0
		PRINTFORML 「那么……想要%CNAME("一人称")%做什么呢」
	ELSE
		PRINTFORML 「哎呀……有收拾了呢，真意外」
		PRINTFORML 「自己片付けたのかしら、それとも弗理希艾尔桑に片付けてもらったのかしら？」
	ENDIF
CASE "自室に招待"
	IF RAND:3 == 0
		PRINTFORML 「偶尔母子二人好好聊聊也不错呢」
	ELSEIF RAND:2 == 0
		PRINTFORML 「怎么了，坐立不安的」
		PRINTFORML 「……猜猜我现在在想什么吧？♪」
	ELSE
		PRINTFORML 「这样就只有两个人了」
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		IF COND("夜")
			PRINTFORML 「哎呀……晚上好」
			PRINTFORML 「有什么事吗？」
		ELSE
			PRINTFORML
		ENDIF
	ELSE
		IF COND("夜")
			IF RAND:2 == 0
				PRINTFORML 「都已经这个时间了吧？」
				PRINTFORML 「有什么事可以和%CNAME("一人称")%商量哦」
			ELSE
				PRINTFORML 「哎呀？怎么了？」
				PRINTFORML 「来看%CNAME("一人称")%了吗？」
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF RAND:2 == 0
			PRINTFORML 「……满足了吗？」
		ELSE
			PRINTFORML 「哎！」
			PRINTFORML 「戏弄妈妈可是不行的哦」
		ENDIF
	ELSE
		PRINTFORML 「……在我真正生气之前停手吧」
	ENDIF
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入")
		PRINTFORML 「相当漂亮的振动棒呢。要是被这么大的东西插进去，大概会坏掉吧」
		CALL SET_DEVENT, "巨大振動棒感想"
	ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「买了很多呢」
			IF TALENT:MASTER:男性
				PRINTFORML 「多亏了你才能带这么多的东西。能成为可靠的男孩子真是太好了」
			ELSE
				PRINTFORML 「一定会很有趣呢，回去我们一起试试吧♪」
			ENDIF
		CASEELSE
			PRINTFORML 「有没有中意的东西呢」
			PRINTFORML 「你打算把那个给谁用呢？？」
			PRINTFORML 「诶嘿嘿♪」
		ENDSELECT
	ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML
	CALL SET_DEVENT, "質問１"
ENDIF
IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML
	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
;	PRINTFORML
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF COND("夜")
	IF RAND:3 == 0
		PRINTFORM %CALLNAME:TARGET%
		PRINTFORM %TEXTR("摆出一副很为难的表情/一边思考着/思考着")%
		PRINTFORML %TEXTR("正在读一本书/在看电视/整理着带回家的文件")%
	ELSEIF RAND:2 == 0
		CALL PRINT_STR, @"「%TEXTR("好久没抱你了吧？快，到这边来/有空的话，过来吧，真是个好孩子/……现在，真想紧紧地抱住我可爱的孩子啊")%」_L"
		CALL PRINT_STR, @"(%CNAME("二人称")%%TEXTR("感受到了视线，/似乎注意到了，")%_"
		PRINTFORM %CALLNAME:TARGET%
		CALL PRINT_STR, @"%TEXTR("向这边微笑/向这边招了招手/向这边邀请着")%)_L"
	ELSE
		CALL PRINT_STR, @"「%TEXTR("女仆来了，真是帮了大忙了……但是，我也是个母亲呢/什么事都交给别人可不好，还是我来帮你吧")%」_L"
		PRINTFORM %CALLNAME:TARGET%
		PRINTFORML %TEXTR("在帮忙做扫除/在叠晾好的衣服/在洗衣服/在帮忙做饭")%
	ENDIF
ELSE
	IF TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF (COND("合意：本番") || COND("合意：肛門性交")) && COND("Ｈ的サプライズ可能") && RAND:3 == 0
			CALL PRINT_STRL, @"「%TEXTR("如果我可以的话，/妈妈我呢，")%今天很闲%TEXTR("想要说什么？/随时都可以")%_HH_」"
		ELSE
			CALL PRINT_STR, @"「毕竟是%TEXTR("难得的休息/休息日/周末")%」_L"
			IF RAND:2 == 0
				PRINTFORML 「别总待在在家里快出去走走吧」
			ELSE
				CALL PRINT_STR, @"「%TEXTR("和哪个可爱的孩子/和喜欢的孩子一起")%%TEXTR("约好了吗/去买东西吧")%」_L"
			ENDIF
			IF RAND:3 == 0
				CALL PRINT_STR, @"「是啊……%TEXTR("如果没有对象的话/如果没有喜欢的孩子的话")%，就和%CNAME("一人称")%%TEXTR("一起逛逛吧/一起去约会吧？")%」_L"
			ENDIF
		ENDIF
	ELSE
		;IF RAND:2 == 0
			PRINTFORML 「玩游戏也不是不行，但要前提是要好好学习哦」
			PRINTFORML 「如果有不明白的事就问“老师”吧」
		;ELSE
		;	CALL PRINT_STR, @"「%TEXTR("老师はこれから別のクラスの授業だから/部活には後で顔を出すから/あんまり他の人に迷惑かけないようにね")%」_L"
		;	PRINTFORML %CALLNAME:TARGET%は授業の為にクラスを移動している
		;ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K10
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:5
	IF RAND:5 == 0
		PRINTFORML 「すぅ……すぅ……」
	ELSEIF RAND:4 == 0
		PRINTFORML 「……zzz」
	ELSEIF RAND:3 == 0
		PRINTFORML 「咕……嘶……」
	ELSEIF RAND:2 == 0
		PRINTFORML 「噼……」
	ELSE
		PRINTFORML 「…………咕唔……」
	ENDIF
ELSEIF RAND:4
	IF RAND:8 == 0
		PRINTFORML 「…………%CNAME("二人称", "撒娇")%……嘻呀，嘻呀」
	ELSEIF RAND:7 == 0
		PRINTFORML 「爱你…………」
	ELSEIF RAND:6 == 0
		PRINTFORML 「……在打折啊，如果不快点的话………呣呀，呣呀」
	ELSEIF RAND:5 == 0
		PRINTFORML 「啊嚏！…………zzz」
	ELSEIF RAND:4 == 0
		PRINTFORML 「……哼哼……期末考试……要出来了么………………咕」
	ELSEIF RAND:3 == 0
		PRINTFORML 「真是……已经……zzz」
	ELSEIF RAND:2 == 0
		PRINTFORML 「评分……成绩提交…………只有………………唔」
	ELSE
		PRINTFORML 「嗯……乖孩子……zzz」
	ENDIF
ELSE
	IF RAND:4 == 0
		PRINTFORML 「……（听不清楚）…………zzzz」
	ELSEIF RAND:3 == 0
		PRINTFORML 「直到现在……爱你……（听不清楚）…………zzz」
	ELSEIF RAND:2 == 0
		PRINTFORML 「……那孩子啊……一定要、幸福啊…………zzzz」
	ELSE
		PRINTFORML 「魔界咖喱酱乌冬面套餐…………想要………再来一份…………………………zzz」
	ENDIF
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K10, ARGS
;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
CASE "性処理：前"
	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "教官室"
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORML
			PRINTFORMW 『学生指导室』
			PRINTFORMW 只有%CALLNAME:MASTER%和%CALLNAME:TARGET%两个人。
			PRINTFORMW 「因为是学生指导所以就把这里借过来了」
			CALL PRINT_STR, @"「%TEXTR("必须要通过性欲处理，彻彻底底地教育这个坏孩子/如果舒服地性欲处理之后冷静下来，应该会认真听课吧？")%」_W"
		ELSEIF COND("授業中")
			PRINTFORMW 「现在開始特别学生指导吧」
			PRINTFORMW 「不要让老师太为难喔？」
		ELSEIF COND("授業直前")
			PRINTFORMW 「上课前记得告诉我哦」
			PRINTFORMW 「花不了多少时间啊……」
		ENDIF
	CASE "男子廁所"
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORMW 「居然把老师叫到这种地方来……」
			PRINTFORMW 「真以为在这里我不会生气吗？」
		ENDIF
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
	;体育か水泳のある日限定
	CASE "更衣室"
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORML 「会用手好好处理的」
		IF TALENT:恋慕 && RAND:2 == 0
			PRINTFORM 「如果可以的话%CNAME("二人称")%%TEXTR("踏踏实实地/尽情地")%花些时间%TEXTR("想要做些什么/想要疼爱那地方")%……
			PRINTFORMW %TEXTR(@"时间不多了，等回去再说吧/如果被其他老师发现了会很麻烦吧？/%CNAME("一人称")%要回去了，毕竟妈妈还得去上课呢")%」
		ELSE
			PRINTFORMW 「%TEXTR("时间是不是快到了/时间不多了吧")%？　%TEXTR("如果还想要的话，回家再继续吧/叫老师干这种事,真是个坏孩子")%
		ENDIF
	CASE "口交"
		PRINTFORML 「%TEXTR("用嘴/在嘴里")%%TEXTR("性处理/处理/发泄")%%TEXTR("性欲吧？/出去吧/出来吧")%」
		PRINTFORMW 「真是个乖孩子呢，明明是亲生母亲，可是却变得更大更硬了呢」
		IF TALENT:恋慕 && RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("哦呣，嘟噜，嘟噜/布鲁，咕噜")%_H_……%TEXTR("得好好惩罚一下呢/你觉得这件事老师要怎么办呢？")%」_W"
		ENDIF
	CASE "乳交"
		PRINTFORML 「看来%CNAME("二人称")%真的很喜欢%CNAME("一人称")%的%TEXTR("胸部/胸")%呢……」
		PRINTFORM 「%TEXTR("喏，想要像往常一样脱掉吗？/想要脱掉吗？真是让人没办法的孩子呢")%。
		CALL PRINT_STR, @"「%TEXTR(@"和老师也这么顽皮，不怕我教训你吗？/比其他孩子更舒服吗？真是的，不要像那样捉弄%CNAME("一人称")%了/不要露出那么高兴的表情……喂")%_H_」_W"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

CASE "性処理：後"
	IF COND("予鈴")
		PRINTFORMW
	ELSEIF SAVESTR:現在位置 == "男子廁所"
		PRINTFORMW
	ELSEIF COND("授業直前") && NOWEX:Ｖ中出し + NOWEX:Ａ中出し + NOWEX:尿道内射精
		PRINTFORMW 「真是坏孩子，都流出来了，黏糊糊的」
		PRINTFORMW 「下次要注意点哦」
	ENDIF
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")

		ELSE

		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")

	;場所移動後
	ELSE

	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
;CASE "場所を変える"
;	IF PLACE("自室")
;		PRINTFORMW
;	ELSE
;		PRINTFORMW
;	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好
	ENDIF
	SELECTCASE STR:日常イベント名
		CASE "打招呼ハグ"
			IF COND("夜")
				CALL PRINT_STR, @"「%TEXTR("哎呀/呼呼")%_H_　%TEXTR("怎么了？/寂寞了吗？")%」_L"
				CALL PRINT_STR, @"「%TEXTR("没事的/放心吧")%，%CNAME("一人称")%%TEXTR(@"哪里都不会去/%CNAME("二人称")%从今以后也要一直在一起/爱%CNAME("二人称")%")%哦」_W"
			ELSE
				PRINTFORML 「%TEXTR("哎呀/不行啦")%……」
				PRINTFORMW 「%TEXTR("在学校里是老师和学生，不可以搂搂抱抱吧？/已经这样撒娇了。让我来好好抱抱你吧/哎，在学校也要自重啊")%」
			ENDIF
		CASE "打招呼接吻"
			IF TALENT:恋慕 && RAND:2 == 0
				CALL PRINT_STR, @"「%TEXTR("啾、啾汲……啾叭/啾、嗯哼……哈……")%_H_」_L"
				PRINTFORMW 「%GREETING%，%TEXTR("这么热情虽然我也不讨厌的/这么主动我也挺喜欢的")%……但是%TEXTR(@"我们是亲生母子哦，忘记了吗？/我们有血缘関系，所以要节制点哦。/不可以做这种%CNAME("一人称")%心跳不已的事哦/让%CNAME("一人称")%这么害羞，究竟想要做什么呢？")%」
			ELSE
				CALL PRINT_STR, @"「%TEXTR("啾/啾汲")%」_L"
				PRINTFORML 「%TEXTR("喂！/不行吧？")%　%TEXTR("突然接吻什么的/在打招呼之前就亲嘴")%」
				IF COND("夜")
					PRINTFORMW 「%TEXTR(@"好好打招呼之后再做吧，明白了吗？/大概，和%CNAME("一人称")%接吻也不開心吧？/不是说不行。但也要考虑一下ＴＰＯ（时间“time”、地点“place”、场合“Occasion”）啊")%」
				ELSE
					PRINTFORMW 「%TEXTR("太过分的玩笑，老师会生气的哦？/好好打招呼，身体接触以后再说吧/在活动室外绝对不行，明白吧？")%」
				ENDIF
			ENDIF
		CASE "打招呼舐陰"
			IF COND("夜")
				CALL PRINT_STR, @"「%TEXTR("不行啊/不要这样")%%TEXTR("＿/、喂！")%……嗯哼_H_」_L"
				CALL PRINT_STR, @"「%CNAME("一人称")%的%TEXTR("阴部/おまんこ")%吗……%TEXTR("用舔阴代替打招呼/你開心就好吧")%不行啊、%TEXTR("啊啊/啊嗯")%_H_」_W"
			ELSE
				CALL PRINT_STR, @"「%TEXTR("嗯哼/嗯唔")%_H_……」_L"
				CALL PRINT_STR, @"「%TEXTR("对老师做什么呢/不要对老师干这种奇怪的事了")%！？　%TEXTR("呀，不要再继续了/不要这样了，真的不行哟")%……%TEXTR("嗯哼/嗯唔")%_H_」_W"
			ENDIF
			PRINTFORMW （事实上因为%CONDS("間柄", MASTER)%的%TEXTR("奉仕/舐陰")%……%TEXTR("竟然有这种感觉，这种事情可不行啊……/明明知道不可以……小穴还是湿了……")%）
		CASE "打招呼口交"
		CASEELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「嗯……早上好，怎么了？」
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF RAND:2 == 0
			PRINTFORMW 「改正了吗？」
			PRINT 「
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				PRINTFORM %CNAME("一人称")%
			ELSE
				PRINT 老师
			ENDIF
			PRINTFORMW ，被那样夸奖的话我会很高兴的」
		ELSE
			PRINTFORMW 「呵呵，谢谢啦」
			PRINTFORMW 「可以再夸奖我几句吗？」
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				PRINTFORM 「%CNAME("一人称")%也喜欢%CNAME("二人称")%哦
				CALL PRINT_STR, @"「%TEXTR("我爱你/我总是在想你")%_HH_」_W"
			ELSE
				PRINTFORMW 「已经……
				CALL PRINT_STR, @"「%TEXTR("我……好喜欢……/好害羞啊")%」_W"
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				CALL PRINT_STR, @"「%TEXTR("呵呵/哦呵呵")%_HH_　%CNAME("一人称")%也喜欢%CNAME("二人称")%哦，%TEXTR("＿/最")%喜欢你了_HH_」_W"
			ELSE
				CALL PRINT_STR, @"「在学校%TEXTR("对老师说这种话/说这种话可不行哦")%」_W"
				PRINTFORMW %CALLNAME:TARGET%一边责备着%CALLNAME:MASTER%，一边開心地微笑着。
			ENDIF
		ELSE
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				CALL PRINT_STR, @"「%CNAME("一人称")%也喜欢%CNAME("二人称")%，%TEXTR("＿/最")%喜欢了_HH_　毕竟是重要的家人」_W"
			ELSE
				CALL PRINT_STR, @"「哎！在学校里%TEXTR("可以和老师说这些吗？/不要说奇怪的话")%」_W"
				PRINTFORMW %CALLNAME:TARGET%虽然看上去有点尴尬，但是脸上的笑意却止不住展露出来。
			ENDIF
		ENDIF
	CASEELSE
		IF RAND:8 == 0 && TALENT:恋慕 && CFLAG:内衣確認済 == 0 && EQUIP:裙 && CFLAG:掀起裙子 == 0
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				CALL PRINT_STR, @"「想知道%CNAME("一人称")%胖次的颜色？真是个%TEXTR("坏/让人困扰的")%孩子」_W"
				IF EQUIP:胖次 && RAND:2 == 0
					PRINTFORMW 「%TEXTR("今天……/今天，会特别告诉你的")%，穿着%CLOCOLOR(CSTR:胖次, "形容詞")%」
					PRINTFORMW %CALLNAME:TARGET%悄悄地在%CALLNAME:MASTER%耳边说着悄悄话。
					CALL SETFLAG_DAILY, "胖次色確認"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("喏，那你自己来看吧/想知道的话，自己确认一下嘛")%_HH_」_W"
				ENDIF
			ELSE
				PRINTFORMW 「为什么非得现在问呢？　……唉，我明白了」
				PRINTFORMW 「把耳朵凑过来吧」
				PRINTFORML
				PRINTFORMW 「……现在穿着%CLOCOLOR(CSTR:胖次, "形容詞")%」
				PRINTFORMW %CALLNAME:TARGET%脸颊通红地和%CALLNAME:MASTER%说着悄悄话。
				CALL SETFLAG_DAILY, "胖次色確認"
			ENDIF
		ELSEIF RAND:7 == 0
			PRINTFORMW 「喜欢的玩法？」
			IF COND("合意：本番")
				CALL PRINT_STR, @"「是呀……如果是%CNAME("二人称")%的话，%TEXTR("做什么都很喜欢/没有讨厌的玩法")%」_W"
				IF RAND:2 == 0
					CALL PRINT_STR, @"「和世界上大多数女孩子一样，最喜欢%TEXTR("爱爱/内射做爱/中出内射")%了」_W"
				ELSE
					CALL PRINT_STR, @"「因为很难用语言表达，接下来就在床上进行解答吧_HH_」_W"
				ENDIF
			ELSEIF COND("合意：肛門性交")
				CALL PRINT_STR, @"「%TEXTR("哎呀!/当然")%……因为%TEXTR("妈妈/我")%是%TEXTR("女人/恶魔")%的関系，%TEXTR("爱爱/内射做爱/中出内射")%什么的最喜欢了」_W"
				CALL PRINT_STR, @"「对%CNAME("二人称")%“”%TEXTR("做「那个」是不行的/任凭摆布什么的是不可能的/虽然有点抱歉")%，%TEXTR("请放弃吧/请用屁股忍耐一下吧")%」_W"
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「那么……就让你听一听%CNAME("二人称")%父亲和%CNAME("一人称")%的故事吧」
					PRINTFORMW 「虽然会很长但是没関系吧？」
				ELSE
					CALL PRINT_STR, @"「%TEXTR("那是因为/也就是说")%、想要%CNAME("一人称")%吗？」_W"
					CALL PRINT_STR, @"「%TEXTR("诶嘿嘿，開玩笑的♪/话虽这么说，但不行就是不行！")%」_W"
				ENDIF
			ENDIF
		ELSEIF RAND:6 == 0
			IF COND("夜") && RAND:2 == 0
				PRINTFORMW 「能帮我做家务吗？」
			ELSE
				PRINTFORMW 「正如所见,堆满了文件」
			ENDIF
			PRINT 「
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				PRINTFORM %CNAME("一人称")%
			ELSE
				PRINT 老师
			ENDIF
			PRINTFORMW 能别打扰我吗？」
		ELSEIF RAND:5 == 0
			PRINTFORMW %CALLNAME%正在整理……
			IF RAND:2 == 0
				PRINTFORMW 「基本都整理完了吧」
				IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
					PRINTFORMW 「何でも弗理希艾尔桑任せには出来ないのよ、我が家だものね」
				ELSE
					PRINTFORMW 「因为是顾问，不收拾好就静不下心来。」
				ENDIF
			ELSE
				CALL PRINT_STR, @"「%TEXTR("别光顾着看，帮帮忙啊/哎，不要在那光站着发呆啊")%」_W"
				PRINTFORMW 「因为有%CNAME("二人称")%帮忙只用了一半的时间就完成了」
			ENDIF
		ELSEIF RAND:4 == 0
			CALL PRINT_STR, @"「%TEXTR("嗯嗯/唔")%……今天的妆是不是有点%TEXTR("太浓了/太艳了")%？」_W"
			CALL PRINT_STR, @"「%TEXTR("合适吗？/太棒了")%　%TEXTR(@"%CONDS("間柄", MASTER)%无论是谁")%被表扬%TEXTR("都会觉得很開心吧")%」_W"
		ELSEIF RAND:3 == 0
			IF RAND:2 == 0
				PRINTFORMW 「到了这个年龄，皮肤的状况就不稳定了……」
				PRINTFORMW 「真羡慕年轻的孩子们啊」
			ELSE
				PRINTFORMW 「女性无论几岁都想保持美丽」
				PRINTFORMW 「是啊，无论多大都是少女啊」
			ENDIF
		ELSEIF RAND:2 == 0
			IF RAND:2 == 0 && COND("夜")
				IF RAND:2 == 0
					PRINTFORMW 「在社团活动里没找到哪个可爱的孩子吗？」
				ELSE
					PRINTFORMW 「不是有很多可爱的女孩子嘛，快点去和谁交往吧」
					IF RAND:3 == 0
						PRINTFORMW 「还是说，已经有了想要交往的对象呢？」
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%TEXTR("嗯，青春真好啊/有种青春的感觉，真棒呢")%」_W"
				ELSE
					CALL PRINT_STR, @"「%TEXTR("年轻真好啊……/年轻真是罪孽啊……")%」_W"
					CALL PRINT_STR, @"「%TEXTR("有种青春的感觉/我也有过那样的时候呢")%」_W"
				ENDIF
			ENDIF
		ELSE
			IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
				PRINTFORM 「%CNAME("一人称")%
			ELSE
				PRINTFORM 「老师
			ENDIF
			CALL PRINT_STR, @"に%TEXTR("有什么事吗？/有想拜托的事情吗？")%」_W"
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K10
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			CALL PRINT_STR, @"「%TEXTR("什么啊/怎么了")%？_"
			PRINTFORML 变得喜欢%CNAME("一人称")%的胸部了吗？」
			CALL PRINT_STR, @"「%TEXTR("看/过来")%_HH_……_"
			PRINTFORMW 来好好抚摸一下吧」
		ELSE
			PRINTFORMW 「%TEXTR("如果老是做些奇怪的事情，老师也会生气的/在学校里是老师和学生，所以要忍耐")%」
		ENDIF
	CASE "按摩"
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			CALL PRINT_STR, @"「%TEXTR("啊~/哈～")%_HH_　_"
			CALL PRINT_STR, @"%TEXTR("不行啊/那里")%_HH_……」_L"
			CALL PRINT_STR, @"「%TEXTR("更多的～/啊啊啊～")%_HH_　_"
			CALL PRINT_STR, @"%TEXTR("舒服得乱七八糟的/太舒服了")%_HH_」_W"
			PRINTFORMW %CALLNAME:TARGET%发出压抑的惊讶声。
		ELSE
			CALL PRINT_STR, @"「%TEXTR("嗯哼/嗯哼")%_HH_……」_L"
			;部室内or家に他の角色がいる
			IF CHARA_NUM("室内の邪魔者") >= 1
				IF RAND:2 == 0
					PRINTFORMW 「啊更多……咳咳，不要对老师做奇怪的事啊」
				ELSE
					PRINTFORMW 「哎呀……这样会被大家发现的吧，快、快住手」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「哎、哎……老师可没有叫你停下来哦」
				ELSE
					PRINTFORMW %CALLNAME:TARGET%不敢出声，拼命地忍耐着。
				ENDIF
			ENDIF
		ENDIF
	CASE "接吻"
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			;部室内or家に他の角色がいる
			IF CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORMW 「虽然是母子，但是在公共场合也要谨慎点啊」
			ELSE
				IF COND("合意：本番") || COND("合意：肛門性交")
					CALL PRINT_STR, @"「真是%TEXTR("让人頭疼的孩子/让人没办法的孩子")%呢_H_」_L"
					IF COND("夜")
						PRINTFORMW 「想做了吗？」
					ELSE
						PRINTFORMW 「夜里没法忍耐了么？」
					ENDIF
					PRINTFORM %CALLNAME:TARGET%和%CALLNAME:MASTER%
					CALL PRINT_STR, @"「%TEXTR("拥抱住/窥视着脸")%_"
					CALL PRINT_STR, @"「悄悄地抚摸着%TEXTR("頭/脸颊")%」_W"
					PRINTFORMW 悄悄地抚摸着頭。
				ELSE
					IF RAND:3 == 0
						PRINTFORML 「嗯哼…啾啾……噼啾噼啾…哈芙……」
						PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%的舌頭相互缠绕着。
					ELSEIF RAND:2 == 0
						PRINTFORML 「啾……啾叭……」
						PRINTFORMW 「想要对%CNAME("一人称")%撒娇吗？」
					ELSE
						PRINTFORML 「啾……啾库…啾库……」
						PRINTFORMW 「真是个坏孩子，就那么喜欢%CNAME("一人称")%的嘴吗？」
					ENDIF
				ENDIF
			ENDIF
		ELSE
			;部室内or家に他の角色がいる
			IF CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORML 「啾……」
				PRINTFORMW 「虽然因为是顾问所以可以不介意，但是这种事还是会引起活动室的骚乱吧？」
			ELSE
				IF ABL:MASTER:技巧 >= 3
					IF RAND:2 == 0
						PRINTFORML 「んっ……」
						IF TALENT:MASTER:男性 || TALENT:MASTER:伪娘 && RAND:3 == 0
							PRINTFORMW （这孩子真像他父亲啊……）
						ELSE
							PRINTFORMW 「变得擅长接吻了呢，是因为谁呢？」
						ENDIF
					ELSE
						PRINTFORML 「啾、啾……」
						PRINTFORMW 「呵呵……虽然现在是两个人」
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「好不容易，要练习接吻吗？」
						PRINTFORMW 「啾……」
					ELSE
						PRINTFORMW 「哎呀……」
						PRINTFORMW 「想让我在意还没那么简单喔？」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	CASE "膝枕"
		;部室内or家に他の角色がいる
		IF CHARA_NUM("室内の邪魔者") >= 1
			CALL PRINT_STR, @"「%TEXTR("你看……都露在外面了呦？/頭发已经乱了吧？")%」_L"
			CALL PRINT_STR, @"「%TEXTR("还是不要这样了吧/虽然很開心，但还是要在没有其他人的时候才能做")%」_W"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("怎么了？　/啊啦啊啦……")%」_"
			PRINTFORML 因为%CNAME("一人称")%是长辈，所以要好好孝顺吗？」
			PRINTFORMW 「呼呼……有点開心呢，那就撒娇咯」
		ENDIF
	CASE "泡茶"
		CALL PRINT_STR, @"「%TEXTR("啊啦……/啊啦啊啦……")%_"
		CALL PRINT_STR, @"%TEXTR("孝顺父母真是高兴啊/很机灵嘛，还知道要倒茶")%」_W"
	CASEELSE
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			IF RAND:2 == 0
				PRINTFORML 「真是机灵呢」
				PRINTFORMW 「难得来一趟,我就不客气了」
			ELSE
				PRINTFORML 「因为很関心呢」
				PRINTFORMW 「过来这边一起聊聊天吧？」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「哎呀，真是用心啊」
				PRINTFORMW 「谢谢」
			ELSE
				PRINTFORML 「我是这里的顾问，没必要这么客气」
				PRINTFORMW 「话虽然这么说，还是觉得很開心」
			ENDIF
		ENDIF
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K10
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		CALL PRINT_STR, @"「%TEXTR("啾/啾~")%_H_」_L"
		PRINTFORM 「%TEXTR("是不是有点不值得一提呢/反正和年轻的孩子接吻还是很棒的吧")%……看着%CNAME("二人称")%的脸
		IF RAND:2 == 0
			PRINT 我的孩子
			;本来の性別で判定
			IF TRUE_SEX(MASTER) == "男性"
				PRINT 帅哥
			ELSE
				PRINT 美少女
			ENDIF
			PRINTFORMW 所以，一不留神……是吧？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 喜欢上你了哟。我爱你。」
		ELSE
			PRINTFORMW 只是觉得很像那个人罢了，别会错意」
		ENDIF
	CASE "抱住", "把胸部压了上去", "摩擦股間"
		CALL PRINT_STR, @"「%TEXTR("啊啦啊啦/呵呵呵")%_H_」_L"
		CALL PRINT_STR, @"「因为是青春期的%TEXTR("小鬼/讨厌鬼")%，原以为他考虑过这个问题了，没想到，%TEXTR("被迫接受了/被袭击了")%，%TEXTR("真是害羞啊/好害羞啊")%_H_」_W"
		CALL PRINT_STR, @"「%TEXTR(@"哎呀，因为我%CNAME("一人称")%而感觉到害羞了吗？/只不过是和%CNAME("一人称")%関系有些亲密罢了，其他孩子的事不用介意哟/看你的表情是有了坏心眼吧")%_H_」_W"
	CASE "膝枕"
		IF RAND:2 == 0
			PRINTFORMW 「%TEXTR("偶尔/就像过去一样")%……%CONDS("間柄", MASTER)%%TEXTR("这样做也很好啊/也会有想要疼爱你的时候")%」
		ELSE
			PRINTFORML 「喂……%TEXTR("过来吧/快过来")%」
			PRINTFORMW 「现在不是老师哦、%TEXTR(@"%CNAME("一人称")%/身为母亲/作为妈妈")%%TEXTR("会让你好好撒娇的/会好好疼爱你的")%」
		ENDIF
	CASE "手淫"
		PRINT 「フフ……
		IF CHARA_NUM("室内の邪魔者") >= 1
			PRINTFORMW 忍住别出声，%TEXTR(@"准备好%CNAME("一人称")%要变得更加严厉了哦/因为是%CNAME("一人称")%的话，会很快让你结束的哦")%」
		ELSE
			PRINTFORMW 在其他孩子来之前、和%CNAME("一人称")%一起做些有趣的事情吧」
		ENDIF
	CASE "抚摸"
		;部室内or家に他の角色がいる
		IF CHARA_NUM("室内の邪魔者") >= 1
			PRINTFORML 「嘿嘿、有破绽～」
			CALL PRINT_STR, @"「%TEXTR("……被摸頭有那么害羞吗？/哎呀，居然跑掉了，好寂寞啊~")%」_W"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("呼呼呼……/真是不可思议啊……")%」_L"
			CALL PRINT_STR, @"「%TEXTR("还以为是个孩子呢/原来的小不点已经长大了呢")%」_W"
		ENDIF
	CASE "膝枕"
	;部室内or家に他の角色がいる
		IF CHARA_NUM("室内の邪魔者") >= 1
			PRINTFORML 「哎呀哎呀，不用害羞啊」
			PRINTFORMW 「明明一開始就这样坦率地撒娇就好了呀」
		ELSE
			PRINTFORML 「诶嘿嘿、好孩子～好孩子～～♪」
			PRINTFORMW 「不论长到多大，都是我可爱的孩子呢」
		ENDIF
	CASE "沏茶"
		CALL PRINT_STR, @"「%TEXTR(@"哎呀，因为我%CNAME("一人称")%而感觉到害羞了吗？/只不过是和%CNAME("一人称")%関系有些亲密罢了，其他孩子的事不用介意哟/看你的表情是有了坏心眼吧")%_H_」_W"
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORML 「最近怎么样？」
			PRINTFORMW 「遇见哪个好孩子的话，一定要介绍给%CNAME("一人称")%哦」
		ELSE
			PRINTFORML 「让女孩子哭的事情可不要做哦」
			PRINTFORMW 「%CNAME("二人称")%的父亲也会感到为难呢……」
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORML 「哎呀……%CNAME("二人称")%也在厕所里」
			PRINTFORMW 「如果可以的话，我们边聊边回去吧」
		ELSE
			PRINTFORMW 「没有变化吗？」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「稍微等一下，我先去洗个手」
	ENDIF
CASE "廁所詮索"
	PRINTFORML 「……难道我教育孩子的方法错了吗？」
	PRINTFORMW 「还是说，这就是%CNAME("二人称")%的性癖吗？」
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K10
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K10
		WAIT
	;連続実行
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORMW 「真是的，这已经算是恶作剧了」
			PRINTFORML 「想撒娇就坦率地说出来吧！」
		ELSE
			PRINTFORML 「我明白了」
			PRINTFORMW 「喜欢的话闻多久都没问题哦。老师会当做%CNAME("二人称")%不存在的」
		ENDIF
	ELSE
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORML 「真是的……」
			PRINTFORMW 「不要这样啊，闻着%CNAME("一人称")%的%TEXTS("气味")%感觉到很高兴吗？」
		ELSE
			PRINTFORML 「喂！」
			PRINTFORMW 「非得对你生气才能停下来吗？」
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K10
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;★
		;胖次チラ直後
		IF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("身嗜み：Ｖ拡張")
				PRINTFORML 「%TEXTR("按照命令/如您所说")%……」
				PRINTFORML 「会%TEXTR("扩张/插入振动棒")%%TEXTR("的啊！/的啦所以/的")%……」
				PRINTFORML 「虽然%CNAME("一人称")%%TEXTR("可以这样做，如果她来了就不能做这种事了/没有问题，但是就不要让其他人这样做了")%……」
			ELSE
				PRINTFORML 「%TEXTR("想看的话和我说就行了/说实话无论是多少次都会给你看的哟")%」
				PRINTFORML 「咯咯……竟然想看%CNAME("一人称")%的%TEXTR("内衣/胖次")%，真是个讨厌的孩子呢。」
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K10
			WAIT
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORML 「あらあら……」
				PRINTFORMW 「什么时候%CNAME("一人称")%的胖次变成%CNAME("二人称")%的了？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「你看，什么都没穿哦。%CNAME("二人称")%喜欢这样子吗…？」
				ELSE
					IF COND("身嗜み：Ｖ拡張")
						PRINTFORML 「%TEXTR("按照命令/如您所说")%……」
						PRINTFORML 「会%TEXTR("扩张/插入振动棒")%%TEXTR("的啊！/的啦所以/的")%……」
						PRINTFORML 「%CNAME("一人称")%%TEXTR("感觉还不错，如果她来了就不能做这种事了。/不要让别人做这种事")%……」
					ELSE
						IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
							PRINTFORML 「%TEXTR("喂！/真是的！/哎呀")%%TEXTR("＿/……")%」
							PRINTFORMW 「%TEXTR("看母亲的内衣不会觉得无聊吗？/没有做奇怪的事呢，真是吓了一跳/为什么想看母亲的内衣呢？")%」
						ELSE
							PRINTFORML 「…………」
							PRINTFORMW 「老师生气了，知道理由吧？」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K10, ARGS

SELECTCASE ARGS
CASE "取引開始"
	PRINTL
	PRINTFORML 「找%CNAME("一人称")%是%TEXTR("想要用灵魂做交易吗？/有什么事情呢？")%」
	IF TALENT:MASTER:甜言蜜语 == 0 && RAND:2 == 0
		SETCOLOR DEF_COLOR("黄色")
		PRINTFORML 「对了，如果想和女孩子做爱的话，气氛可是很重要的呢。」
		PRINTFORML 「所以呢，我推荐先学习怎么对女孩子甜言蜜语哟」
		RESETCOLOR
	ELSEIF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
		IF CSTR:PREV_DAILYCOM == "按摩"
			CALL PRINT_STR, @"「%TEXTR("想要/需要")%%TEXTR("什么呀/什么东西呢")%_HH_」_L"
			PRINTFORML 「呐，和我说吧%CNAME("一人称")%，不管是什么，都想要为你实现呢。」
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「虽然不是不可以，但是有些要求现在还没法实现呢」
			ELSEIF RAND:2 == 0
				PRINTFORML 「想要什么呢？请和%CNAME("一人称")%说吧」
			ELSE
				PRINTFORML 「浪费灵魂和金钱可不行哦。所以请仔细考虑然后再决定」
			ENDIF
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「%TEXTR("是不是忘记带便当了？/哎呀，你是不是忘记带手帕了？/不会吧，忘记带钱包了？")%还是……」
			PRINTFORML 「想进行灵魂的交易呀。我明白了」
		ELSEIF RAND:2 == 0
			PRINTFORML 「已经%TEXTR("立下/正式")%契约了什么的，%TEXTR("我也会听从你吩咐的/请尽管说吧")%」
			PRINTFORML 「%TEXTR("当然，有些愿望可以实现，而有些就没办法了。/不过，太庞大的愿望是无法实现的。")%」
		ELSE
			PRINTFORML 「现在稍微有点忙，晚上再说可以吗」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「……看来%CNAME("二人称")%是认真的呢」
		PRINTFORMW 「既然鼓起勇气向我告白，我也会正面回应你的决心的」
		PRINTFORMW %CALLNAME:TARGET%目不转睛盯着%CALLNAME:MASTER%。
		PRINTFORMW 在片刻之间组织好了想说的话。
		PRINTL
		PRINTFORMW 「……最初，只是因为你酷似你父亲的外表才如此沉湎」
		PRINTFORMW 「被酷似我所爱之人的%CNAME("二人称")%追求着，心里也十分纠结」
		PRINTFORMW 「心想总有一天，这孩子一定会找到一个很棒的恋人，从我身边远去吧」
		PRINTFORMW 「作为母亲还有女人的感情混杂在一起，有时候会变得莫名其妙」
		PRINTFORMW 「但是呢」
		PRINTFORMW 「%CNAME("二人称")%把我看做一个女人，认真地追求着」
		PRINTFORMW 「现在，我对这件事感到很開心……有些无可奈何，但是真的很高兴」
		PRINTL
		PRINTFORMW 「虽然无法改变我们是亲子的事实……」
		PRINTFORMW 「尽管如此，我还是想要接受这份心意，我就是这样想的」
		PRINTFORMW 「我也想用这些话，向你表达我的心意」
		PRINTL
		SETCOLOR DEF_COLOR("粉紅")
		PRINTFORMW 『我，%CALLNAME:TARGET%……也爱着%CNAME("二人称")%』
		RESETCOLOR
	;失敗
	ELSE
		CALL PRINT_STR, @"「%TEXTR("等等、你冷静一点/你、你、你在说什么呢？")%_HH_」_W"
		PRINTFORMW %CALLNAME:TARGET%把手放在%CALLNAME:MASTER%的额頭。
		PRINTFORMW 「好像没发烧呀……」
		PRINT 「哪里不舒服吗？还是怎么了
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINTFORM 老师
		ENDIF
		PRINTFORMW 你在開玩笑吗？」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	PRINTL
	IF COND("合意：胖次交易")
		IF RAND:2 == 0
			PRINTFORMW 「对不起，现在没有穿着呢……」
		ELSE
			PRINTFORMW 「真是抱歉，现在没有穿哦」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%尴尬%TEXTR("地挪開了视线/地回答道/得脸颊泛红")%
		IF COND("Ｈ的サプライズ可能") && RAND:2 == 0
			CALL PRINT_STR, @"「%TEXTR("表情看起来不太相信呢，/怀疑我说的话吗？")%　那就%TEXTR("现在在这里/直接")%确认一下？_HH_」_W"
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF

CASE "胖次交易"

CASE "胖次"
	IF COND("夜")
		PRINTFORMW 「%CNAME("一人称")%の胖次が欲しいの？　まったく誰に似たのかしら」
		PRINTFORMW 「好吧，但是，呀，别这么看啊」
	ELSE
		PRINTFORMW 「真是的，怎么拜托我这种事情呢」
		PRINTFORMW 「真是的，太丢人了，不要那样看啊……」
	ENDIF
CASE "胖次拒否"

CASE "全裸交易"

CASE "全裸"

CASE "全裸拒否"

CASE "同居拒否"

CASE "同居希望"
	PRINTL
	IF RAND:2 == 0
		PRINTFORMW 「哼……」
		PRINTFORMW 「%CNAME("一人称")%因为被%CNAME("二人称")%赶了出去，感觉很受伤哟」
	ELSE
		PRINTFORMW 「虽然%CNAME("二人称")%不在乎，但%CNAME("一人称")%还是很在意的」
	ENDIF
CASE "同居頻度的相談"
	PRINTL
	IF COND("同居：一直")
		IF RAND:3 == 0
			PRINTFORMW 「是叛逆期吗？不过，我还是会听你的」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「突然怎么了？要是对%CNAME("一人称")%有什么不满的话，可以说出来吗？」
		ELSE
			PRINTFORMW 「……之后再说可以吗？」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「哼……」
			PRINTFORMW 「%CNAME("一人称")%因为被%CNAME("二人称")%赶了出去，感觉很受伤哟」
		ELSE
			PRINTFORMW 「虽然%CNAME("二人称")%不在乎，但%CNAME("一人称")%还是很在意的」
		ENDIF
	ENDIF
CASE "便当拒否"
	PRINTL
	IF RAND:2 == 0
		PRINTFORMW 「对不起呢，%CNAME("一人称")%现在有点忙……」
	ELSE
		PRINTFORMW 「如果%CNAME("二人称")%变得不挑食，会考虑一下哦♪」
	ENDIF
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			PRINTFORMW
		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				PRINTL
				IF COND("合意：本番")
					IF TALENT:相思相愛
						CALL PRINT_STR, @"「对我来说再给你生个弟弟或者妹妹，也不是不行_HH_」_W"
						PRINTFORMW 「可如果%CNAME("一人称")%怀孕了，就不能每天做爱了，那样也可以吗？」
					ELSE
						PRINTFORMW 「是啊，如果父母和孩子生了孩子那就麻烦了」
						PRINTFORMW 「在服用避孕药的时候可以中出，但是要当一个听话的好孩子哦？」
					ENDIF
				ELSEIF COND("合意：肛門性交")
					PRINTFORMW 「你是不是搞错了，如果不是直接做爱的话，是不会怀孕的哟」
					PRINTFORMW 「我会用屁股小穴让你很舒服的，只是，那种事就忍耐一下吧」
				ELSE
					PRINTFORMW 「……？」
					PRINTFORMW 「%CNAME("一人称")%不会跟%CNAME("二人称")%意外的人契约，所以没必要吃避孕药吧？」
					PRINTFORMW 「如果你一定要我吃的话，那我就吃吧……」
					PRINTFORMW 「反正不管吃不吃避孕药，都是不可以做爱的呢」
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE
			PRINTL
			IF COND("合意：本番")
				PRINTFORMW 「停止使用避孕药了，放心吧」
				IF TALENT:相思相愛
					PRINTFORMW 「孩子是两个人爱情的见证，如果可以的话，我也觉得不想吃避孕药的」
				ELSE
					PRINTFORMW 「虽然知道不会怀孕了，但还是感觉有点别扭呢」
				ENDIF
			ELSEIF COND("合意：肛門性交")
				PRINTFORMW 	「可以不用了吧，太好了」
				PRINTFORMW 「因为会导致生理周期紊乱，所以不太喜欢吃避孕药」
				PRINTFORMW 「当然如果使用恶魔之力的话，这种小事也是无所谓的」
				PRINTFORMW 「只是与那个人相遇以后，才决定生下%CNAME("二人称")%」
				PRINTFORMW 「已经决定这辈子要作为人类活下去了」
			ELSE
				PRINTFORMW 	「可以不用了吧，太好了」
				PRINTFORMW 「做爱的时候只要不射进去就没问题吧」
			ENDIF
		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTL
	IF RAND:2 == 0
		PRINTFORMW 「%TEXTR("呐/喂")%，过度使用灵魂可是会死掉哦」
		PRINT 「有些过頭了
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINT 老师
		ENDIF
		PRINTFORMW %TEXTR("别让我担心啊/别让我为难啊")%」
	ELSE
		PRINTFORMW 「不要任性了」
		PRINT 「适可而止吧
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINT 老师
		ENDIF
		PRINTFORMW 你生气了吗？」
	ENDIF

CASE "想要钱"
	PRINTL
	IF RAND:2 == 0
		PRINTFORMW 「零花钱不够了吗？既然是交易我也会给你的，但是从教育的角度来讲，给孩子大量的现金可不是好事啊。」
		PRINTFORMW 「能告诉我是打算用在什么地方吗？」
	ELSE
		PRINTFORMW 「你到底想用来干什么？不能浪费哦」
		PRINTFORMW 「如果有什么困难的话，请直接说出来」
	ENDIF

CASE "甜言蜜语"
	SELECTCASE TALENT:MASTER:甜言蜜语
		CASE 0
			PRINTL
			PRINTFORMW 「是哦，真是聪明的选择」
			PRINTFORMW 「比方说，就算是炮友，但是彼此之间相互喜欢，这样也会很開心吧？」
			PRINTFORMW 「来自%CNAME("一人称")%的忠告，希望你好好选择使用的对象」
		CASE 1
			PRINTL
			PRINTFORMW 「总觉得很不可思议呢」
			PRINTFORMW 「让%CNAME("一人称")%想起了%CNAME("二人称")%的父亲说过这句话的那天」
			PRINTFORMW 「果然呢，%CNAME("二人称")%不愧是那个人的孩子」
			PRINTFORMW 「血统是不会说谎的呢……」
		CASE 2
			PRINTL
			PRINTFORMW 「可以稍微试着说些甜言蜜语吗？」
			PRINTFORMW 「是的，还有更多的话要说呢」
			PRINTL
			PRINTFORMW 「虽然还差得远呢」
		CASE 3
			PRINTL
			PRINTFORMW 「很有上进心呢」
			PRINTFORMW 「虽然有些直率，但是这就是年轻的感觉呢」
			PRINTFORMW 「%CNAME("一人称")%喜欢这种奉承的方式哦」
		CASE 4
			PRINTL
			PRINTFORMW 「哼」
			PRINTFORMW 「果然很像呢，不愧是亲生的」
			PRINTFORMW 「%CNAME("二人称")%说这些话的时候，让我想起了那个人……」
		CASEELSE
			PRINTL
			PRINTFORMW 「看来已经都学会了」
			PRINTFORMW 「以后就需要%CNAME("二人称")%自身的经验积累了」
			PRINTFORMW 「我只是帮忙而已」
	ENDSELECT
CASE "謎之魅力"
	PRINTL
	PRINTFORMW 「呵呵……」
	PRINTFORMW 「即使不做这种交易、%CNAME("二人称")%再过10年，也能和你父亲一样有魅力的。」
	PRINTFORMW 「因为是%CNAME("一人称")%生下了%CNAME("二人称")%，所以请相信我吧」
	PRINTFORMW 「即便如此，契约就是契约。」
	PRINTFORMW 「这次%CNAME("一人称")%就特意把%CNAME("二人称")%将来的魅力吸引出来吧」
CASE "禁断的知識"
	SELECTCASE TALENT:MASTER:禁断的知識
		CASE 0
			PRINTFORMW 「想要学『淫纹』？」
			PRINTFORMW %CALLNAME:TARGET%略微歪着脑袋皱起了眉頭。
			PRINTFORMW 「在别人的身体刻上刺青，支配其身体和心灵」
			PRINTFORMW 「好好理解它意味着什么，请和%CNAME("一人称")%做好约定，不可以用它做坏事哦」
			PRINTFORMW 「如果不答应我的话我可不会教你」
			PRINTFORML
			PRINTFORMW 「是啊……可以先试试用贴纸的形式来」
			PRINTFORMW 「恶魔的力量可是非常可怕的」
		CASE 1
			PRINTFORMW 「学会了『具现』」
			IF TALENT:MASTER:男性 || TALENT:MASTER:伪娘
				PRINTFORMW 「答应%CNAME("一人称")%不要用来做坏事可以吗？」
			ELSE
				PRINTFORMW 「是啊，女性之间想一起爱爱的话，这是必要的法术」
			ENDIF
			PRINTFORMW 「仪式有点难，以后好好练习吧」
	CASEELSE
		PRINTFORMW 「虽然追求更高的目标是件好事……」
		PRINTFORMW 「但不要忘记如果使用不当，就会变成无法挽回的力量哦」
	ENDSELECT

CASE "錬金術"
	PRINTL
	PRINTFORMW 「并没有急于求成，%CNAME("一人称")%感到很開心呢」
	PRINTFORMW 「来，让我们一起学习吧」
	PRINTFORMW %CALLNAME:TARGET%从书房里拿出一本古书。
	PRINTFORMW 「这个%CNAME("二人称")%的父亲也使用过哟」
	PRINTFORMW 「虽然有些地方很难，但不明白的地方我也会解答的，怎么样？」

CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"
		PRINTL
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM 「%CNAME("一人称")%
		ELSE
			PRINT 「老师
		ENDIF
		CALL PRINT_STR, @"我其实很担心如果是这个尺寸的话，会让和你做爱的孩子觉得很失礼呢」_L"
	CASE "普通"
		PRINTL
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM 「%CNAME("一人称")%
		ELSE
			PRINT 「老师
		ENDIF
		CALL PRINT_STR, @"我觉得男孩子还是大一点更好呢_HH_」_L"
	CASE "巨根"
		PRINTL
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM 「%CNAME("一人称")%
		ELSE
			PRINT 「老师
		ENDIF
		PRINTFORMW 不愧是这个尺寸的呢，和你做爱的孩子只会觉得其他的尺寸很可爱吧……」
	CASE "馬根"
		PRINTL
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM 「%CNAME("一人称")%
		ELSE
			PRINT 「老师
		ENDIF
		PRINTFORMW 虽然不是很赞成这种大小，但是没办法呢」
	;腕並以上
	CASEELSE
		PRINTL
		PRINTFORMW 「嗯，无论如何都要这样做？」
		PRINTFORMW 「等你讨厌了，记得来找我变回去哦」
		PRINTFORMW 「因为是契约，所以会帮助你的……真是让人为难的孩子啊」
	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"
		PRINTL
		CALL PRINT_STR, @"「哎呀，好可爱_HH_　简直成了小孩子那样的尺寸了」_L"
		PRINTFORMW 「还记得在浴室的时候，%CNAME("一人称")%我给你洗过澡吗？」
		CALL PRINT_STR, @"「今天有特别服务，需要%CNAME("一人称")%帮你弄干净吗？_HH_」_L"

	CASE "巨根"
		PRINTL
		PRINT 「ん～
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINT 老师
		ENDIF
		PRINTFORMW 我喜欢大一点的，不过还是因人而异呢」
	CASE "馬根"
		PRINTL
		PRINT 「そうね、
		IF COND("夜") || TEXTS("曜日") == "土" || TEXTS("曜日") == "日"
			PRINTFORM %CNAME("一人称")%
		ELSE
			PRINT 老师
		ENDIF
		PRINTFORMW 觉得真是太大了，和你做爱的孩子有些可怜呢」
	;腕並、規格外
	CASEELSE
		PRINTL
		PRINTFORMW 「说实话，太大了有些不方便吧？」
		PRINTFORMW 「什么事情都要适度哦」
	ENDSELECT

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K10, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		CALL PRINT_STR, @"「哎呀! %CNAME("一人称")%想要去买东西呢_HH_」_W"
		PRINTFORMW 「怎么了？有什么想要买的吗？」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「让我稍微换身衣服准备一下」
		PRINTFORMW 「我必须要好好化妆，也许会碰见熟人呢」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「%TEXTR("呵呵，一起牵着手就像恋人一样呢/那么，我们牵着手约个会吧/这样的约会，感觉很新鲜呢")%」
		PRINTFORMW 「%TEXTR("买完东西顺便去哪里逛逛吧/光买东西的话很寂寞吧，去其他的地方看看吧")%
	ELSE
		CALL PRINT_STR, @"「%TEXTR("没有和可爱的女朋友约好见面吗/没有要邀请的孩子吗？/这样会被其他孩子认为是恋母控哦")%」_W"
		PRINTFORMW 「如果非得说的话，那就和你约会吧……真是没办法呢」
	ENDIF
CASE "目送"
	PRINTFORMW 「路上请小心」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
		CALL PRINT_STR, @"「呵呵_HH_……这也是play的一环吧？」_W"
		PRINTFORMW %CALLNAME:TARGET%把穿着的%CLOCOLOR(CSTR:胖次)%%PANTIES(TARGET, "種類")%递给了%CALLNAME:MASTER%。
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		CALL PRINT_STR, @"「真遗憾……现在没有穿」_W"
		CALL PRINT_STR, @"「下次会穿%CNAME("二人称")%喜欢的胖次哦」"
	ELSE
		CALL PRINT_STR, @"「%TEXTR("如果是命令的话就没办法了/毕竟这是主人的命令呢/被命令的话就无法违抗了呢")%」_W"
		PRINTFORMW %CALLNAME:TARGET%把穿着的%CLOCOLOR(CSTR:胖次)%%PANTIES(TARGET, "種類")%递给了%CALLNAME:MASTER%。
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORMW 「要是被谁看见就麻烦了……」
		PRINTFORMW 「嘛，应该不会吧？」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「要是被谁看见就麻烦了……」
		PRINTFORMW 「嘛，应该不会吧？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF SEVENT("ＳＨＯＰ露出") == 0
			PRINTFORMW 「不愧是你呢……%CNAME("二人称")%的父亲大概没想过会发生这种事吧？」
			CALL PRINT_STR, "「呵呵_HH_……要是暴露了会怎么样呢……」_W"
			PRINTFORMW %CALLNAME:TARGET%穿着和服外套和高跟鞋跟着%CALLNAME:MASTER%。
			CALL SET_SEVENT, "ＳＨＯＰ露出"
		ELSE
			CALL PRINT_STR, @"「%CNAME("一人称")%真是太糟糕了……%TEXTR("上次被命令做这种事，心脏紧张地跳个不停，真是难忘的经历/明明是很羞耻的事却感觉很兴奋")%_HH_」_W"
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「怎么啦，觉得害羞吗？」
		PRINTFORMW 「让%CNAME("一人称")%替你去吧」
	ELSE
		CALL PRINT_STR, @"「%TEXTR("忘了带钱包吗？/钱不够吗？/零花钱不够吗？")%」_W"
		PRINTFORMW 「先让%CNAME("一人称")%来付款吧，之后记得还哦」
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		PRINTFORMW 「对不起，请把这个和这个给我。」
		CALL PRINT_STR, @"「%TEXTR("这个也是推荐的吗？/哎呀……这个也很划算呢")%」_W"
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「请给我避孕套谢谢」
			PRINTFORMW 「请给我一份优惠套装」
		ELSE
			PRINTFORMW 「呵呵……」
			PRINTFORMW 「最近的避孕套有各种类型和颜色呢，选哪个好呢？」
		ENDIF
	;えっちな商品
	CASEELSE
		PRINTFORMW 「果然这个卖得很好呢」
		PRINTFORMW 「那么，难得来一趟，就买这个吧」
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		CALL PRINT_STR, @"「%TEXTR("不要放開我的手呀/不要让我一个人……/总觉得会被谁看见……")%」_W"
		PRINTFORMW %CALLNAME:TARGET%用不安的视线环视着，一边牵着%CALLNAME:MASTER%的手买东西。
	ELSE
		PRINTFORML %TEXTR("「这个很便宜呢」/「好像是打折品一样」/「还有这样的东西呢」/（……像是二手的）/（好怀念啊……）")%
		PRINTFORMW %CALLNAME:TARGET%对店里的商品%TEXTR("逐个精心打量着/挺感兴趣，拿在手里看着/好像很中意")%
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		CALL PRINT_STR, @"「%CNAME("一人称")%，%TEXTR("要是暴露了怎么办呢……一直好担心啊_HH_/哈……心脏都快停止了")%」_W"
		PRINTFORMW 拿回胖次的%CALLNAME:TARGET%松了口气，然后一起离開了现场。
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		IF ITEM:避孕套 < 5
			IF COND("合意：本番") || COND("合意：肛門性交")
				PRINTFORML 「%TEXTR("不用是不行的，明白吗/乖乖地用可以吗？真是个好孩子/如果不戴的话，就不让你插进来了哦")%」
			ELSE
				PRINTFORML 「%TEXTR("喂，你忘了什么吧？/用避孕可套是礼仪哟/要记得买避孕套哦")%」
			ENDIF
			PRINTFORMW 母亲把避孕套递了过来。
			ITEM:避孕套 += 5
		ELSE
			PRINTFORMW 「今天什么都不需要买吗？」
		ENDIF

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORMW 「因为是那样的店、所以什么都不说吗？」
		PRINTFORMW 「没什么……没有觉得不够呢」
	ENDIF
ENDSELECT

license: unknown


code:
;-------------------------------------------------
;喘息生成
; 通用喘息：姆、嗯、唔、哈、哼、呜、呼~
; 亲吻专用：啾、啵、嘶噜、呸咯
; 正事专用：哦、咿~、喔喔
;-------------------------------------------------
@KOJO_K10_RAND_VOICE
#DIM VTIME
#DIM POI
LOCAL = 0
LOCALS =
IF FLAG:情緒>= 150
	LOCAL = 5
ELSEIF FLAG:情緒>= 120 || (FLAG:情緒>= 90 && FLAG:情緒>= RAND:180)
	LOCAL = 4
ELSEIF FLAG:情緒>= 90 || (FLAG:情緒>= 60 && FLAG:情緒>= RAND:180)
	LOCAL = 3
ELSEIF FLAG:情緒>= 60 || (FLAG:情緒>= 30 && FLAG:情緒>= RAND:180)
	LOCAL = 2
ELSE
	LOCAL = 1
ENDIF
IF INSERT("挿入")
	FOR VTIME,0,LOCAL
		IF RAND:11 < 8
			LOCALS = %LOCALS%%TEXTR("姆/嗯/呜/唔/哈/哼/哦/哼呜/嗯唔/唔嗯/哈唔/喔喔")%
			POI = 1
		ELSE
			LOCALS = %LOCALS%%TEXTR("咿/呼")%
			POI = 2
		ENDIF
		IF VTIME < LOCAL-1 && POI < 2
			LOCALS = %LOCALS%、
		ELSE
			LOCALS = %LOCALS%~
		ENDIF
	NEXT
ELSE
	FOR VTIME,0,LOCAL
		IF RAND:11 < 7
			LOCALS = %LOCALS%%TEXTR("姆/嗯/呜/唔/哈/哼/哼呜/嘶噜/嗯唔/呸咯/呼唔")%
			POI = 1
		ELSE
			LOCALS = %LOCALS%%TEXTR("啾/啵/呼")%
			POI = 2
		ENDIF
		IF VTIME < LOCAL-1 && POI < 2
			LOCALS = %LOCALS%、
		ELSE
			LOCALS = %LOCALS%~
		ENDIF
	NEXT
ENDIF
CALL PRINT_STR, @"「%LOCALS%_HH_」_W"
RETURN 1