code:
;Configの呼出と素質の自動調整
;ARGSに"角色定制関連"or "系统＆事件相関"が入っているとそれだけを呼び出す
@SET_CONFIGURE, ARGS
#DIM LCOUNT
#DIM MEMO_FLAG, 10
#DIM MEMO_GOUI
#DIMS PRINT_CONFIGTEXT

REDRAW 0
MEMO_FLAG:0 = FLAG:陰毛
MEMO_FLAG:1 = FLAG:巨乳補正
MEMO_FLAG:2 = CONFIG("ＶＡ拡張の手動ＬＶＵＰ")
MEMO_FLAG:3 = CONFIG("危険日生性交の合意")
MEMO_FLAG:4 = CONFIG("胎内精子で妊娠")

SELECTCASE ARGS
CASE "角色定制関連"
	CALL SETCONFIG, "角色定制関連"
CASE "系统＆事件相関"
	CALL SETCONFIG, "系统＆事件相関"
CASEELSE
	CALL SET_CONFIGURE_MAIN
ENDSELECT

;陰毛の状態を変更した時
IF FLAG:陰毛 && FLAG:陰毛 != MEMO_FLAG:0
	FOR LCOUNT, 1, CHARANUM
		CALL SETFLAG, "陰毛と腋毛", LCOUNT
	NEXT
ENDIF
;巨乳の罩杯の定義を変化した時
IF FLAG:巨乳補正 != MEMO_FLAG:1
	CALL SETFLAG, "胸圍測りなおし"
	FOR LCOUNT, 1, CHARANUM
		CALL SET_3SIZE, LCOUNT
	NEXT
ENDIF
;ＶＡ拡張の自動ＬＶＵＰに戻したなら早速ＬＶＵＰ
IF CONFIG("ＶＡ拡張の手動ＬＶＵＰ") == 0 && MEMO_FLAG:2
	FOR LCOUNT, 1, CHARANUM
		ABL:LCOUNT:Ｖ拡張 = CALCF("Ｖ拡張の上限", LCOUNT)
		ABL:LCOUNT:Ａ拡張 = CALCF("Ａ拡張の上限", LCOUNT)
	NEXT
ENDIF
;危険日生性交の合意条件を変更した場合
IF CONFIG("危険日生性交の合意") != MEMO_FLAG:3
	;これがONだと合意の文が出てしまうので一時的にOFF
	FLAG:VERUP格子 = 0
	PRINT_CONFIGTEXT =
	FOR LCOUNT, 2, CHARANUM
		MEMO_GOUI = COND("合意：危険日生性交", LCOUNT)
		CALL DEL_GOUI, "危険日生性交", LCOUNT
		CALL SETFLAG, "合意", LCOUNT
		SIF COND("合意：危険日生性交", LCOUNT) != MEMO_GOUI
			PRINT_CONFIGTEXT += @"%CALLNAME:LCOUNT%と"
	NEXT
	IF PRINT_CONFIGTEXT != ""
		PRINT_CONFIGTEXT = %SUBSTRING(PRINT_CONFIGTEXT, 0, STRLENS(PRINT_CONFIGTEXT) - 2)%
		IF CONFIG("危険日生性交の合意")
			CALL PRINT_STRW, @"%CALLNAME:MASTER%从%PRINT_CONFIGTEXT%獲得了_イエロー_[危険日生性交]_的合意。"
		ELSE
			CALL PRINT_STRW, @"%CALLNAME:MASTER%从%PRINT_CONFIGTEXT%失去了_イエロー_[危険日生性交]_的合意。"
		ENDIF
	ENDIF
	FLAG:VERUP格子 = 1
ENDIF
;胎内精子で妊娠が無効变成了ら胎内精子をゼロに
IF CONFIG("胎内精子で妊娠") == 0 && MEMO_FLAG:4
	FOR LCOUNT, 1, CHARANUM
		BASE:LCOUNT:胎内精液量 += BASE:LCOUNT:胎内精子量
		BASE:LCOUNT:胎内精子量 = 0
		SIF BASE:LCOUNT:胎児 == 0 && BASE:LCOUNT:受精 == 0
			BASE:LCOUNT:精液の優勢 = 0
	NEXT
;胎内精子で妊娠が有効变成了際に危険日生性交合意没有かつ避妊中でなく創口貼を装備していた場合に胎内精子をゼロに
ELSEIF CONFIG("胎内精子で妊娠") && MEMO_FLAG:4 == 0
	FOR LCOUNT, 1, CHARANUM
		IF CFLAG:LCOUNT:創口貼装着 && COND("合意：危険日生性交", LCOUNT) == 0 && COND("避妊不要", LCOUNT) == 0 && BASE:LCOUNT:胎児 == 0 && BASE:LCOUNT:受精 == 0
			BASE:LCOUNT:胎内精液量 += BASE:LCOUNT:胎内精子量
			BASE:LCOUNT:胎内精子量 = 0
			BASE:LCOUNT:精液の優勢 = 0
		ENDIF
	NEXT
ENDIF

REDRAW 1

@SET_CONFIGURE_MAIN
#DIM MEMO_LINECOUNT
#DIM CHOICE

MEMO_LINECOUNT = LINECOUNT

PRINTL
PRINTFORML 現在有以下相関設定。请選択想要変更的内容
PRINTL
PRINTFORML  [ 0] 角色定制相関的設定
PRINTFORML  [ 1] 系统与活动相関的設定
PRINTFORML  [ 2] 着装的設定
CALL PRINT_STRL, @" [ 3] 颜绘动画的ON/OFF　現在：_黄色_\@ CONFIG("颜绘动画ＯＦＦ") ? OFF # ON \@"
CALL PRINT_STRL, @" [ 4] 在房间中最左边展示%CALLNAME:MASTER%的颜绘　現在：_黄色_\@ CONFIG("MASTER颜绘") ? 〇 # × \@"

PRINTFORML  [10] 保存Config
;グローバル変数の読み込み
LOADGLOBAL
SIF GLOBAL:Config保存の日時 > 0
	PRINTFORML  [20] 读取Config（記録日:{GLOBAL:Config保存の日時/10000}年{(GLOBAL:Config保存の日時%10000)/100}月{GLOBAL:Config保存の日時%100}日）

;ここ以下はオープニング終わるまでは封印
IF FLAG:オープニング == 0
	SIF CHARANUM <= 3
		SETCOLOR DEF_COLOR("灰色")
	PRINTFORML  [40] 重新排列
	RESETCOLOR
	PRINTL
	PRINTFORML  [50] 顔绘测试
	PRINTFORML  [51] 淫紋画像测试
	PRINTL
	IF TARGET > MASTER
		IF CFLAG:颜绘 == 0
			PRINTFORML  [60] 設定[%CSTR:称号%]%NAME:TARGET%的顔绘并显示
		ELSE
			PRINTFORML  [60] 変更[%CSTR:称号%]%NAME:TARGET%的顔绘
		ENDIF
		SIF MARK:淫紋 && CEVENTS("淫紋") == ""
			PRINTFORML  [61] [%CSTR:称号%]%NAME:TARGET%的淫紋类型設定(注意！只能设定一次！！)
		PRINTL
	ENDIF

	IF CFLAG:MASTER:颜绘
		PRINTFORML  [70] %NAME:MASTER%颜绘変更(想要设定衣服的话也请按这里)
		PRINTFORML  [71] 停止表示%NAME:MASTER%颜绘
	ELSE
		PRINTFORML  [70] %NAME:MASTER%颜绘設定
	ENDIF
	PRINTL
ENDIF

PRINTFORML [100] 返回

$INPUT_LOOP
INPUT
CHOICE = RESULT

SELECTCASE CHOICE
CASE 40 TO 99
	SIF FLAG:オープニング
		GOTO INPUT_LOOP
ENDSELECT

SELECTCASE CHOICE
CASE 100
	RETURN 0
CASE 0
	CALL SETCONFIG, "角色定制関連"
CASE 1
	CALL SETCONFIG, "系统＆事件相関"
CASE 2
	CALL SETCONFIG, "着装設定"
CASE 3
	INVERTBIT FLAG:颜绘动画, 0
CASE 4
	INVERTBIT FLAG:MASTER颜绘, 0
CASE 10
	CALL SAVE_CONFIGURE
CASE 20
	SIF GLOBAL:Config保存の日時 > 0
		CALL LOAD_CONFIGURE
CASE 40
	IF CHARANUM <= 3
		PRINTFORMW 没有可以排列的角色
	ELSE
		CALL CHARA_SORT
	ENDIF
CASE 50
	CALL SIMULATE_MAIDFACE
CASE 51
	CALL SIMULATE_INMON
CASE 60
	SIF TARGET > MASTER
		CALL SIMULATE_MAIDFACE, TARGET
CASE 61
	IF TARGET > MASTER && MARK:淫紋 && CEVENTS("淫紋") == ""
		PRINTFORML ※現段階是LV{MARK:淫紋}、可以通过其他选择来确认淫纹画数增加时的形状※
		CALL SIMULATE_INMON, TARGET
		PRINTFORMW %CALLNAME:TARGET%的淫紋变成了%CONDS("淫紋の種類")%类型
	ENDIF
CASE 70
	CALL SIMULATE_MAIDFACE, MASTER
CASE 71
	CFLAG:MASTER:颜绘 = 0
CASEELSE
	GOTO INPUT_LOOP
ENDSELECT

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

@CONFIG(ARGS)
#FUNCTION
SELECTCASE ARGS
CASE "主画面颜绘ＯＦＦ"
	RETURNF GETBIT(FLAG:画像ONOFF, 0)
CASE "メイン画面CIPＯＦＦ"
	RETURNF GETBIT(FLAG:画像ONOFF, 1)

CASE "永久過濾", "颜绘勧誘"
	RETURNF FLAG:ARGS
CASE "颜绘动画ＯＮ"
	SIF FLAG:颜绘动画
		RETURNF 1
CASE "颜绘动画ＯＦＦ"
	SIF FLAG:颜绘动画 == 0
		RETURNF 1
CASE "颜绘动画動作中"
	SIF FLAG:自動進行停止
		RETURNF 0
	SIF ANIME_CHARA:0 == 0
		RETURNF 0
	SIF FLAG:颜绘动画
		RETURNF 1
CASE "颜绘サイズ"
	RETURNF FLAG:颜绘サイズ
CASE "MASTER颜绘"
	RETURNF FLAG:MASTER颜绘
CASE "自动调戏"
	RETURNF FLAG:自动调戏
CASE "自动调戏ＯＮ"
	SIF FLAG:自动调戏 != 999
		RETURNF 1
CASE "自动调戏ＯＦＦ"
	SIF FLAG:自动调戏 == 999
		RETURNF 1
CASE "自动调戏動作中"
	SIF FLAG:自動進行停止
		RETURNF 0
	SIF TARGET <= 1
		RETURNF 0
	SIF CFLAG:睡眠 || CFLAG:刚睡醒
		RETURNF 0
	SIF FLAG:自动调戏 != 999
		RETURNF 1
CASE "partnerの自動変更"
	RETURNF FLAG:partnerの自動変更
CASE "能力表示で３围閲覧"
	RETURNF GETBIT(FLAG:能力画面, 0)
CASE "能力表示でABLUP"
	RETURNF GETBIT(FLAG:能力画面, 1)
CASE "partner変更で分析"
	RETURNF GETBIT(FLAG:対象変更画面, 0)
CASE "助手への指示"
	RETURNF GETBIT(FLAG:助手画面, 0)

CASE "着装設定"
	RETURNF FLAG:換装
CASE "服はお気に入りから選択"
	RETURNF GETBIT(FLAG:換装, 0)
CASE "禁止自動脱衣"
	RETURNF GETBIT(FLAG:換装, 1)
CASE "在家里脱鞋"
	RETURNF GETBIT(FLAG:換装, 2)
CASE "胸罩を合わせる"
	RETURNF GETBIT(FLAG:換装, 3)
CASE "女仆帽"
	RETURNF GETBIT(FLAG:換装, 4)

CASE "装扮：一覧"
	SIF FLAG:換装画面 == 0
		RETURNF 1
CASE "装扮：角色衣装"
	RETURNF GETBIT(FLAG:換装画面, 0)
CASE "装扮：Cosplay"
	RETURNF GETBIT(FLAG:換装画面, 1)
CASE "装扮：制服"
	RETURNF GETBIT(FLAG:換装画面, 2)
CASE "装扮：体操服"
	RETURNF GETBIT(FLAG:換装画面, 3)
CASE "装扮：泳装"
	RETURNF GETBIT(FLAG:換装画面, 4)

CASE "陰毛と腋毛", "陰毛"
	RETURNF FLAG:陰毛
CASE "腋毛"
	RETURNF GETBIT(FLAG:陰毛, 10)
CASE "素質的固定与除外"
	RETURNF FLAG:素質的固定与除外
;默认はOFF
CASE "性器年齢"
	RETURNF FLAG:性器年齢
CASE "使い込まれ素質の自動獲得"
	RETURNF FLAG:使い込まれ素質の自動獲得

;調教过滤器関連
CASE "Ｖ調教过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 0)
CASE "Ａ調教过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 1)
CASE "尿道調教过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 2)
CASE "逆挿入过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 3)
CASE "準備不足过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 4)
CASE "道具調教过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 5)
CASE "ハード調教过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 6)
CASE "消耗品过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 7)
CASE "実行判定过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 8)
CASE "極厚避孕套"
	RETURNF GETBIT(FLAG:調教过滤器, 9)
CASE "立位"
	SIF TEQUIP:推倒
		RETURNF 0
	RETURNF GETBIT(FLAG:調教过滤器, 10)

CASE "脱掉鞋子过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 15)
CASE "脱掉胖次过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 16)
;これは默认でON状態
CASE "豊穣过滤器"
	SIF GETBIT(FLAG:調教过滤器, 17) == 0
		RETURNF 1

CASE "指令过滤器"
	RETURNF GETBIT(FLAG:調教过滤器, 20)

CASE "指令过滤器：全指令表示"
	SIF CONFIG("指令过滤器") == 0
		RETURNF 0
	RETURNF GETBIT(FLAG:調教过滤器, 30)

CASE "妊娠設定：受精確率表示ＯＦＦ"
	RETURNF GETBIT(FLAG:妊娠設定, 0)

CASE "恍惚状態"
	RETURNF FLAG:恍惚状態
CASE "恍惚耐性"
	RETURNF FLAG:恍惚耐性

CASE "自動挿入解除"
	RETURNF FLAG:自動挿入解除
CASE "自動挿入解除OFF"
	SIF FLAG:自動挿入解除 == 1
		RETURNF 1
CASE "自動挿入解除選択肢"
	SIF FLAG:自動挿入解除 == 2
		RETURNF 1
CASE "委身于對方的警告"
	RETURNF FLAG:委身于對方的警告
CASE "委身于對方的警告表示"
	IF FLAG:委身于對方的警告 == 0
		RETURNF 1
	ELSEIF FLAG:委身于對方的警告 == 1
		IF TARGET:1
			SIF CHOSECOM(286, TARGET) == 0 && CHOSECOM(286, TARGET:1) == 0
				RETURNF 1
		ELSE
			SIF CHOSECOM(286, TARGET) == 0
				RETURNF 1
		ENDIF
	ENDIF
CASE "對男性PLAYER的胸奉仕"
	RETURNF FLAG:對男性PLAYER的胸奉仕

CASE "夏天的運動汗流浃背"
	RETURNF FLAG:夏天的運動汗流浃背
CASE "包茎阴茎的称呼"
	RETURNF FLAG:包茎阴茎的称呼
CASE "９９９インデント"
	RETURNF FLAG:９９９インデント
CASE "９９９インデント：左寄せ"
	SIF FLAG:９９９インデント == 0
		RETURNF 1
CASE "９９９インデント：中央"
	SIF FLAG:９９９インデント == 1
		RETURNF 1
CASE "９９９インデント：右寄せ"
	SIF FLAG:９９９インデント == 2
		RETURNF 1
CASE "９９９インデント補正"
	SELECTCASE FLAG:９９９インデント
	CASE 0
		RETURNF 0
	CASE 1
		RETURNF NUM("折り返し文字数") - 60
	CASE 2
		RETURNF NUM("折り返し文字数") - 30
	ENDSELECT

CASE "乱性"
	RETURNF FLAG:乱性
CASE "部員間Ｈ"
	SIF FLAG:乱性 >= 1
		RETURNF 1
CASE "路人Ｈ"
	SIF FLAG:乱性 >= 2
		RETURNF 1

CASE "危険日生性交の合意"
	RETURNF FLAG:危険日生性交の合意

CASE "胎内精子で妊娠"
	RETURNF FLAG:胎内精子で妊娠

CASE "巨乳補正"
	SELECTCASE FLAG:巨乳補正
	CASE 2
		RETURNF 5
	CASE 1
		RETURNF 3
	CASEELSE
		RETURNF 0
	ENDSELECT
CASE "巨乳補正：罩杯"
	RETURNF FLAG:巨乳補正
CASE "巨乳補正：Ｆ"
	SIF FLAG:巨乳補正 == 0
		RETURNF 1
CASE "巨乳補正：Ｇ"
	SIF FLAG:巨乳補正 == 1
		RETURNF 1
CASE "巨乳補正：Ｈ"
	SIF FLAG:巨乳補正 == 2
		RETURNF 1

CASE "恋慕と淫乱の任意獲得"
	RETURNF GETBIT(FLAG:手動取得, 0)
CASE "ＶＡ拡張の手動ＬＶＵＰ"
	RETURNF GETBIT(FLAG:手動取得, 1)

CASE "乳頭奸"
	RETURNF FLAG:乳頭奸
CASE "精液浣腸"
	RETURNF FLAG:精液浣腸

CASE "气味の表記変更"
	RETURNF FLAG:气味
CASE "性騷擾禁止"
	RETURNF FLAG:性騷擾禁止
CASE "性騷擾許可"
	SIF FLAG:性騷擾禁止 == 0
		RETURNF 1
CASE "制限時間"
	RETURNF FLAG:制限時間
CASE "射精部位の自動選択"
	RETURNF FLAG:射精部位の自動選択
CASE "髪型詳細"
	RETURNF FLAG:髪型詳細
CASE "Ｖ射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 3)
CASE "Ａ射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 4)
CASE "尿道射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 19)
CASE "Ｂ射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 18)
CASE "口射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 1)
CASE "手射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 2)
CASE "胸射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 5)
CASE "脚射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 6)
CASE "自慰射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 20)
CASE "其他射精の自動選択"
	RETURNF GETBIT(FLAG:射精部位の自動選択, 0)
CASE "全射精部位の自動選択"
	SIF FLAG:射精部位の自動選択 == 1p0 + 1p1 + 1p2 + 1p3 + 1p4 + 1p5 + 1p6 + 1p18 + 1p19 + 1p20
		RETURNF 1

CASE "乳頭の詳細設定"
	RETURNF FLAG:乳頭
CASE "乳頭肥大"
	RETURNF GETBIT(FLAG:乳頭, 0)
CASE "陥没乳頭"
	RETURNF GETBIT(FLAG:乳頭, 1)
CASE "巨乳輪"
	RETURNF GETBIT(FLAG:乳頭, 2)

CASE "陰核の詳細設定"
	RETURNF FLAG:陰核
CASE "陰核肥大"
	RETURNF GETBIT(FLAG:陰核, 0)
CASE "陰核包茎"
	RETURNF GETBIT(FLAG:陰核, 1)

CASE "常時挿入自動解除"
	RETURNF FLAG:常時挿入自動解除
CASE "嘔吐発生"
	RETURNF FLAG:嘔吐発生
CASE "Ｈ前廁所"
	RETURNF FLAG:Ｈ前廁所
CASE "助手同行"
	RETURNF FLAG:助手同行
CASE "裆部颜色"
	RETURNF FLAG:裆部颜色
CASE "裆部颜色：胖次の色と同じ"
	SIF FLAG:裆部颜色 == 0
		RETURNF 1
CASE "裆部颜色：白"
	SIF FLAG:裆部颜色 == 1
		RETURNF 1
CASE "裆部颜色：稍微带些变化"
	SIF FLAG:裆部颜色 == 2
		RETURNF 1

;以下は項目ONOFFボタン。角色メイク中は例外的に全部表示させる
CASE "項目：搾精排行"
	RETURNF GETBIT(FLAG:項目OFF, 0)
CASE "項目：助手的任务指示"
	RETURNF GETBIT(FLAG:項目OFF, 1)
CASE "項目：角色介绍"
	RETURNF GETBIT(FLAG:項目OFF, 2)
CASE "項目：身嗜み"
	RETURNF GETBIT(FLAG:項目OFF, 3)
CASE "項目：服装詳細"
	RETURNF GETBIT(FLAG:項目OFF, 4)
CASE "項目：合意"
	RETURNF GETBIT(FLAG:項目OFF, 5)
CASE "項目：性癖・弱点"
	RETURNF GETBIT(FLAG:項目OFF, 6)
CASE "項目：自室の状態"
	RETURNF GETBIT(FLAG:項目OFF, 7)
CASE "項目：属性与外表"
	RETURNF GETBIT(FLAG:項目OFF, 8)
CASE "項目：宝珠"
	RETURNF GETBIT(FLAG:項目OFF, 9)
CASE "項目：経験"
	RETURNF GETBIT(FLAG:項目OFF, 10)
CASE "項目：胖次收藏"
	RETURNF GETBIT(FLAG:項目OFF, 11)
CASE "項目：能力"
	RETURNF GETBIT(FLAG:項目OFF, 12)
CASE "項目：刻印"
	RETURNF GETBIT(FLAG:項目OFF, 13)
CASE "項目：素質"
	RETURNF GETBIT(FLAG:項目OFF, 14)
CASE "項目：家族構成"
	RETURNF GETBIT(FLAG:項目OFF, 15)
CASE "項目：相性"
	RETURNF GETBIT(FLAG:項目OFF, 16)
CASE "項目：性処理"
	RETURNF GETBIT(FLAG:項目OFF, 17)
CASE "項目：射精排行"
	RETURNF GETBIT(FLAG:項目OFF, 18)
CASE "項目：所持道具一覧"
	RETURNF GETBIT(FLAG:項目OFF, 19)
CASE "項目：特記事項"
	RETURNF GETBIT(FLAG:項目OFF, 20)
CASE "項目：特別経験詳細"
	RETURNF GETBIT(FLAG:項目OFF, 21)
CASE "項目：特別経験"
	RETURNF GETBIT(FLAG:項目OFF, 22)
CASE "項目：平常的装扮"
	RETURNF GETBIT(FLAG:項目OFF, 23)
CASE "項目：出産の記録"
	RETURNF GETBIT(FLAG:項目OFF, 24)

ENDSELECT
RETURNF 0

@SETCONFIG, ARGS
#DIM LCOUNT
;MEMO_LINECOUNT:1は"角色定制関連"、"系统＆事件相関"、"主人の好み"、"着装設定"でのみ使用
#DIM MEMO_LINECOUNT, 2
#DIM NEXT_LINE
#DIM CHOICE
#DIM MEMO, 10
#DIMS MEMOS, 10
;ここは基本的里一直REDRAW 0
REDRAW 0

MEMO_LINECOUNT = LINECOUNT
PRINTL
SELECTCASE ARGS
CASE "角色定制関連"
	MEMO_LINECOUNT:1 = LINECOUNT - 1

	PRINTFORM  [ 0] \@ CONFIG("巨乳補正") ? ○ # －\@ 巨乳の上限の設定：
	SETCOLOR DEF_COLOR("暗黄色")
	IF CONFIG("巨乳補正：Ｈ")
		PRINTL Ｈ
	ELSEIF CONFIG("巨乳補正：Ｇ")
		PRINTL Ｇ
	ELSE
		PRINTL Ｆ
	ENDIF
	RESETCOLOR
	PRINTFORM  [ 1] \@ CONFIG("乳頭の詳細設定") ? ○ # －\@ 乳頭の詳細設定
	IF CONFIG("乳頭の詳細設定")
		PRINTFORM ：
		SETCOLOR DEF_COLOR("暗黄色")
		PRINTFORM \@ CONFIG("乳頭肥大") ? ○ # ×\@ 乳頭肥大
		PRINTFORM \@ CONFIG("陥没乳頭") ? ○ # ×\@ 陥没乳頭
		PRINTFORM \@ CONFIG("巨乳輪") ? ○ # ×\@ 巨乳輪
		RESETCOLOR
	ENDIF
	PRINTL
	PRINTFORM  [ 2] \@ CONFIG("陰核の詳細設定") ? ○ # －\@ 陰核の詳細設定
	IF CONFIG("陰核の詳細設定")
		PRINTFORM ：
		SETCOLOR DEF_COLOR("暗黄色")
		PRINTFORM \@ CONFIG("陰核肥大") ? ○ # ×\@ 陰核肥大
		PRINTFORM \@ CONFIG("陰核包茎") ? ○ # ×\@ 陰核包茎
		RESETCOLOR
	ENDIF
	PRINTL
	PRINTFORM  [ 3] \@ CONFIG("陰毛と腋毛") ? ○ # －\@ 陰毛与%TEXTS("腋")%毛の設定：
	SETCOLOR DEF_COLOR("暗黄色")
	IF CONFIG("陰毛と腋毛")
		IF GETBIT(FLAG:陰毛, 4)
			PRINT 誰も生えない
		ELSEIF GETBIT(FLAG:陰毛, 3)
			PRINT 只有男性才会长
		ELSEIF GETBIT(FLAG:陰毛, 2)
			PRINT 只有姐姐和男性才会长
		ELSEIF GETBIT(FLAG:陰毛, 1)
			PRINT 小孩以外都会长
		ELSEIF GETBIT(FLAG:陰毛, 0)
			PRINT 大家都长
		ENDIF
		PRINTFORML ＆%TEXTS("腋")%毛\@ CONFIG("腋毛") ? 有些 # 没有 \@
	ELSE
		PRINTL 不显示
	ENDIF
	RESETCOLOR

	PRINTFORM  [ 4] \@ CONFIG("性器年齢") ? ○ # －\@ 性器年齢の設定：
	SETCOLOR DEF_COLOR("暗黄色")
	IF CONFIG("性器年齢")
		PRINTL 有
	ELSE
		PRINTL 无
	ENDIF
	RESETCOLOR

	PRINTFORM  [ 5] \@ CONFIG("素質的固定与除外") ? ○ # －\@ 素質的固定与除外の設定：
	SETCOLOR DEF_COLOR("暗黄色")
	IF CONFIG("素質的固定与除外")
		PRINTL 毎次都初期化
	ELSE
		PRINTL 保存完毕
	ENDIF
	RESETCOLOR
  	PRINTFORML  [ 6] \@ CONFIG("永久過濾") ? 〇 #  － \@ 未完成度较高的角色将不会在勧誘画面之类的界面上表示

	;グローバル変数の読み込み
	LOADGLOBAL
	IF GLOBAL > 0 && FLAG:VER_Config != GLOBAL
		PRINTFORML  [ 7] Config設定（記録日:{GLOBAL/10000}年{(GLOBAL%10000)/100}月{GLOBAL%100}日）的读取
		PRINTFORML [100] 这様就好
		CALL INPUT_SELECT, 8, 100
	ELSE
		PRINTFORML [100] 这様就好
		CALL INPUT_SELECT, 8, 100
	ENDIF
	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0
		CALL SETCONFIG, "巨乳補正"
	CASE 1
		CALL SETCONFIG, "乳頭の詳細設定"
	CASE 2
		CALL SETCONFIG, "陰核の詳細設定"
	CASE 3
		CALL SETCONFIG, "陰毛と腋毛"
	CASE 4
		CALL SETCONFIG, "性器年齢"
	CASE 5
		CALL SETCONFIG, "素質的固定与除外"
	CASE 6
		CALL SETCONFIG, "永久過濾"
	CASE 7
		CALL LOAD_CONFIGURE
	ENDSELECT
	ARGS = 角色定制関連
	CLEARLINE LINECOUNT - MEMO_LINECOUNT:1
	RESTART
CASE "系统＆事件相関"
	MEMO_LINECOUNT:1 = LINECOUNT - 1

	PRINTFORML  [ 0] \@ CONFIG("恋慕と淫乱の任意獲得") ? ○ # －\@ 恋慕・淫乱の任意獲得
	PRINTFORML  [ 1] \@ CONFIG("ＶＡ拡張の手動ＬＶＵＰ") ? ○ # －\@ 手動进行ＶＡ拡張ＬＶの変化
	PRINTFORML  [ 2] \@ CONFIG("性騷擾禁止") ? ○ # －\@ 禁止主人的无選択肢的性骚扰
	PRINTFORML  [ 3] \@ CONFIG("妊娠設定：受精確率表示ＯＦＦ") ? ○ # －\@ 中出時的受精確率表示のＯＦＦ
	PRINTFORML  [ 4] \@ CONFIG("恍惚状態") ? ○ # －\@ 恍惚状態時随对方摆弄
	PRINTFORML  [ 5] \@ CONFIG("制限時間") ? ○ # －\@ 被推倒時的可选项设置時间限制
	PRINTFORM  [ 6] \@ CONFIG("气味の表記変更") ? ○ # －\@ 「气味」的单词的表示変更。現在是：
	CALL PRINTL_COLORTEXT, TEXTS("气味"), DEF_COLOR("黄色")
	PRINTFORML  [ 7] \@ CONFIG("乳頭奸") ? ○ # －\@ 可以乳頭奸
	PRINTFORML  [ 8] \@ CONFIG("精液浣腸") ? ○ # －\@ 在菊花里大量中出的话可以起到浣腸的効果
	PRINTFORM  [ 9] \@ CONFIG("射精部位の自動選択") ? ○ # －\@ 射精時、自動选择就这様射精
	IF CONFIG("射精部位の自動選択")
		PRINT :
		SETCOLOR DEF_COLOR("黄色")
		IF CONFIG("全射精部位の自動選択")
			PRINT ＡＬＬ
		ELSE
			SIF CONFIG("Ｖ射精の自動選択")
				PRINT Ｖ
			SIF CONFIG("Ａ射精の自動選択")
				PRINT Ａ
			SIF CONFIG("尿道射精の自動選択")
				PRINT 尿道
			SIF CONFIG("Ｂ射精の自動選択")
				PRINT 乳内
			SIF CONFIG("口射精の自動選択")
				PRINT 口
			SIF CONFIG("手射精の自動選択")
				PRINT 手
			SIF CONFIG("胸射精の自動選択")
				PRINT 胸
			SIF CONFIG("脚射精の自動選択")
				PRINT 脚
			SIF CONFIG("自慰射精の自動選択")
				PRINT 自慰
			SIF CONFIG("其他射精の自動選択")
				PRINT 其他
		ENDIF
		RESETCOLOR
	ENDIF
	PRINTL
	PRINTFORM  [10] \@ CONFIG("恍惚耐性") ? ○ # －\@ 恍惚時
	SELECTCASE CONFIG("恍惚耐性")
	CASE 2
		PRINTFORML 自動忍耐
	CASE 1
		PRINTFORML 出现選択肢
	CASEELSE
		PRINTFORML 有時忍耐有時出现選択肢
	ENDSELECT
	PRINTFORML  [11] \@ CONFIG("自動挿入解除") ? ○ # －\@ 射精後是否会以概率解除自動挿入：\@ CONFIG("自動挿入解除選択肢") ? 以選択肢方式 # 不拔出 \@
	PRINTFORML  [12] \@ CONFIG("夏天的運動汗流浃背") ? ○ # －\@ 夏天時、在身体运動后的情况下、性器会有恥垢
	PRINTFORML  [13] \@ CONFIG("包茎阴茎的称呼") ? ○ # －\@ 在地文中改变包茎阴茎的称呼
	PRINTFORM  [14] \@ CONFIG("自动调戏") ? ○ # －\@ 時間経過時会有人自行动作的是否执行or间隔時間変更：
	SELECTCASE CONFIG("自动调戏")
	CASE 0
		CALL PRINT_STRL, "黄色_20秒一次"
	CASE 1 TO 59
		CALL PRINT_STRL, @"黄色_{CONFIG("自动调戏")}秒一次"
	CASE 60, 120, 180, 240, 300, 360, 420, 480, 540, 600
		CALL PRINT_STR, @"黄色_{CONFIG("自动调戏")/60}分一次"
	CASE 60 TO 600
		CALL PRINT_STRL, @"黄色_{CONFIG("自动调戏")/60}分{CONFIG("自动调戏")%60}秒一回"
	CASE 999
		CALL PRINT_STRL, "黄色_停止中"
	ENDSELECT
	PRINTFORM  [15] \@ CONFIG("９９９インデント") ? ○ # －\@ 在选择了"打发時间"等推进時間的指令後変更選択肢的場所：
	IF CONFIG("９９９インデント：右寄せ")
		CALL PRINT_STRL, "黄色_右侧"
	ELSEIF CONFIG("９９９インデント：中央")
		CALL PRINT_STRL, "黄色_中央"
	ELSE
		CALL PRINT_STRL, "黄色_左侧"
	ENDIF
	PRINTFORM  [16] \@ CONFIG("乱性") ? ○ # －\@ 没有[贞操重视]＆有[淫乱]＆欲求不満的时候、和%CALLNAME:MASTER%以外的人做Ｈ的事情：
	IF CONFIG("乱性") == 0
		CALL PRINT_STRL, "不允許"
	ELSEIF CONFIG("路人Ｈ")
		CALL PRINT_STRL, "黄色_和誰都可以"
	ELSEIF CONFIG("部員間Ｈ")
		CALL PRINT_STRL, "黄色_如果是和部員的话可以"
	ENDIF
	PRINTFORML  [17] \@ CONFIG("危険日生性交の合意") ? ○ # －\@ 如果獲得恋慕＆淫乱就可以得到[危険日生性交]的合意
	PRINTFORML  [18] \@ CONFIG("胎内精子で妊娠") ? ○ # －\@ 膣内射精之后如果在体内残留精子的话有可能会妊娠
	PRINTFORML  [19] \@ CONFIG("使い込まれ素質の自動獲得") ? ○ # －\@ 自動獲得[縦深菊穴]之类的使用熟练系的素質
	PRINTFORML  [20] \@ CONFIG("partnerの自動変更") ? ○ # －\@ 随时间经过偶尔会发生一些小事件、当选择露出破绽时会自动变更%TEXTS("対象の名称")%
	PRINTFORM  [21] \@ CONFIG("委身于對方的警告") ? ○ # －\@ 指令"委身于對方"選択時の注意書き：
	SELECTCASE CONFIG("委身于對方的警告")
	CASE 0
		CALL PRINT_STRL, "黄色_一直顯示"
	CASE 1
		CALL PRINT_STRL, "黄色_Ｈ時只顯示一次る"
	CASEELSE
		CALL PRINT_STRL, "黄色_不顯示"
	ENDSELECT

	PRINTFORM  [22] \@ CONFIG("對男性PLAYER的胸奉仕") ? ○ # －\@ "胸爱抚奉侍"等对PLAYER执行的胸奉仕指令即使是在PLAYER是男性的情况下也可以実行：
	SELECTCASE CONFIG("對男性PLAYER的胸奉仕")
	CASE 0
		CALL PRINT_STRL, "黄色_しない"
	CASE 1
		CALL PRINT_STRL, "黄色_伪娘の時のみ"
	CASEELSE
		CALL PRINT_STRL, "黄色_常にする"
	ENDSELECT
	PRINTFORML  [23] \@ CONFIG("常時挿入自動解除") ? ○ # －\@ 身嗜管理時拜託的時常插入玩具將在Ｈ開始時自動解除
	PRINTFORML  [24] \@ CONFIG("嘔吐発生") ? ○ # －\@ 強制口交將有可能發生嘔吐事件
	PRINTFORML  [25] \@ CONFIG("Ｈ前廁所") ? ○ # －\@ Ｈ前%CALLNAME:MASTER%会自己去一下厕所
	PRINTFORML  [26] \@ CONFIG("助手同行") ? ○ # －\@ 場所移動的时候%TEXTS("助手の名称")%同伴将会自动跟随

	PRINTFORML  [27] \@ CONFIG("主画面颜绘ＯＦＦ") ? ○ # －\@ 将在主界面的颜绘表示变成ＯＦＦ
	PRINTFORML  [28] \@ CONFIG("メイン画面CIPＯＦＦ") ? ○ # －\@ 将在主界面的下半身画像表示变成ＯＦＦ

	PRINTFORML [100] 这様就好
	CALL INPUT_SELECT, 29, 100
	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0
		CALL SETCONFIG, "恋慕と淫乱の任意獲得"
	CASE 1
		CALL SETCONFIG, "ＶＡ拡張の手動ＬＶＵＰ"
	CASE 2
		CALL SETCONFIG, "性騷擾禁止"
	CASE 3
		CALL SETCONFIG, "妊娠設定：受精確率表示ＯＦＦ"
	CASE 4
		CALL SETCONFIG, "恍惚状態"
	CASE 5
		CALL SETCONFIG, "制限時間"
	CASE 6
		CALL SETCONFIG, "气味の表記変更"
	CASE 7
		CALL SETCONFIG, "乳頭奸"
	CASE 8
		CALL SETCONFIG, "精液浣腸"
	CASE 9
		CALL SETCONFIG, "射精部位の自動選択"
	CASE 10
		CALL SETCONFIG, "恍惚耐性"
	CASE 11
		CALL SETCONFIG, "自動挿入解除"
	CASE 12
		CALL SETCONFIG, "夏天的運動汗流浃背"
	CASE 13
		CALL SETCONFIG, "包茎阴茎的称呼"
	CASE 14
		CALL SETCONFIG, "自动调戏"
	CASE 15
		CALL SETCONFIG, "９９９インデント"
	CASE 16
		CALL SETCONFIG, "乱性"
	CASE 17
		CALL SETCONFIG, "危険日生性交の合意"
	CASE 18
		CALL SETCONFIG, "胎内精子で妊娠"
	CASE 19
		CALL SETCONFIG, "使い込まれ素質の自動獲得"
	CASE 20
		CALL SETCONFIG, "partnerの自動変更"
	CASE 21
		CALL SETCONFIG, "委身于對方的警告"
	CASE 22
		CALL SETCONFIG, "對男性PLAYER的胸奉仕"
	CASE 23
		CALL SETCONFIG, "常時挿入自動解除"
	CASE 24
		CALL SETCONFIG, "嘔吐発生"
	CASE 25
		CALL SETCONFIG, "Ｈ前廁所"
	CASE 26
		CALL SETCONFIG, "助手同行"
	CASE 27
		CALL SETCONFIG, "主画面颜绘ＯＦＦ"
	CASE 28
		CALL SETCONFIG, "メイン画面CIPＯＦＦ"
	;CASE
	;	CALL SETCONFIG, "髪型詳細"
	ENDSELECT
	ARGS = 系统＆事件相関
	CLEARLINE LINECOUNT - MEMO_LINECOUNT:1
	RESTART

CASE "着装設定"
	MEMO_LINECOUNT:1 = LINECOUNT - 1

	PRINTFORML 请選択想要変更的内容
	PRINTL
	PRINTFORML  [ 0] \@ CONFIG("禁止自動脱衣") ? ○ # － \@ 禁止自動脱衣
	PRINTFORML  [ 1] \@ CONFIG("在家里脱鞋") ? ○ # － \@ 在自己家里会脱掉靴子
	PRINTFORML  [ 2] \@ CONFIG("胸罩を合わせる") ? ○ # － \@ 選択内裤時会自动同時选择胸罩
	PRINTFORML  [ 3] \@ CONFIG("女仆帽") ? ○ # － \@ 女仆頭饰换成女仆帽
	PRINTFORM  [ 4] \@ CONFIG("裆部颜色") ? ○ # － \@ 胖次的裆部颜色选择　現在是：%TEXTS("裆部颜色")%
	PRINTL

	PRINTFORML [100] 返回

	CALL INPUT_SELECT, 5, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 4
		CALL SETCONFIG, "裆部颜色"
	CASEELSE
		INVERTBIT FLAG:換装, RESULT+1
	ENDSELECT

	FOR LCOUNT, 1, CHARANUM
		SIF CHECK_SHIRT("女仆装", LCOUNT) == 0
			CONTINUE
		IF CONFIG("女仆帽")
			SIF CHECK_OTHER("礼服頭花", LCOUNT)
				CALL SET_OTHER, "女仆帽", LCOUNT
		ELSE
			SIF CHECK_OTHER("女仆帽", LCOUNT)
				CALL SET_OTHER, "礼服頭花", LCOUNT
		ENDIF
	NEXT

	ARGS = 着装設定
	CLEARLINE LINECOUNT - MEMO_LINECOUNT:1
	RESTART
CASE "裆部颜色"
	PRINTFORML  [ 0] 和胖次同颜色(默认)
	PRINTFORML  [ 1] 白！
	PRINTFORML  [ 2] 稍微带些变化

	CALL INPUT_SELECT, 3

	FLAG:裆部颜色 = RESULT

CASE "主人の好み"
	MEMO_LINECOUNT:1 = LINECOUNT - 1

	PRINTFORML 请选择想要変更的东西
	PRINTFORM  [ 0] 身嗜 …
	CALL PRINT_MIDASHINAMI_SHORT, MASTER
	PRINTL

	PRINTFORM  [ 1] 　弱点 …
	IF CSTR:MASTER:弱点 == ""
		PRINTFORM 没有
	ELSEIF COND("全部弱点", MASTER)
		PRINT [全部弱点]
	ELSE
		VARSET LOCALS
		SPLIT CSTR:MASTER:弱点, "/", LOCALS
		FOR LCOUNT, 0, NUM("弱点")
			SIF LOCALS:LCOUNT == ""
				CONTINUE
			PRINTFORM [%SUBSTRING(LOCALS:LCOUNT, 0, STRLENS(LOCALS:LCOUNT) - 6)%]
		NEXT
	ENDIF
	PRINTL

	PRINTFORM  [ 2] 　性癖 …
	IF CSTR:MASTER:性癖 == ""
		PRINTFORM 没有
	ELSEIF STRCOUNTS(CSTR:MASTER:性癖, "/") >= 10
		PRINTFORM 有的是
	ELSE
		VARSET LOCALS
		SPLIT CSTR:MASTER:性癖, "/", LOCALS
		FOR LCOUNT, 0, NUM("属性")
			SIF LOCALS:LCOUNT == ""
				CONTINUE
			PRINTFORM [%LOCALS:LCOUNT%]
		NEXT
	ENDIF
	PRINTL
	PRINTFORML  [ 3] 　名前 … %NAME:MASTER%(%CSTR:MASTER:ふりがな%) を変更する
	PRINTFORM  [ 4] 穿環 …
	IF TALENT:MASTER:陰蒂環
		IF CEVENT("陰蒂環", MASTER)
			CALL PRINT_STR, @"[\@ PENIS(MASTER) ? 阴茎 # 陰核 \@_黄色_(%CEVENTS("陰蒂環", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[\@ PENIS(MASTER) ? 阴茎 # 陰核 \@]"
		ENDIF
	ENDIF
	IF TALENT:MASTER:陰唇環
		IF CEVENT("陰唇環", MASTER)
			CALL PRINT_STR, @"[陰唇_黄色_(%CEVENTS("陰唇環", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[陰唇]"
		ENDIF
	ENDIF
	IF TALENT:MASTER:恥丘穿環
		IF CEVENT("恥丘穿環", MASTER)
			CALL PRINT_STR, @"[恥丘_黄色_(%CEVENTS("恥丘穿環", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[恥丘]"
		ENDIF
	ENDIF
	IF TALENT:MASTER:尿道穿環
		IF CEVENT("尿道穿環", MASTER)
			CALL PRINT_STR, @"[尿道_黄色_(%CEVENTS("尿道穿環", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[尿道]"
		ENDIF
	ENDIF
	IF TALENT:MASTER:乳环
		IF CEVENT("乳环", MASTER)
			CALL PRINT_STR, @"[乳頭_黄色_(%CEVENTS("乳环", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[乳頭]"
		ENDIF
	ENDIF
	IF TALENT:MASTER:肚脐环
		IF CEVENT("肚脐环", MASTER)
			CALL PRINT_STR, @"[肚臍_黄色_(%CEVENTS("肚脐环", MASTER)%)_]"
		ELSE
			CALL PRINT_STR, @"[肚臍]"
		ENDIF
	ENDIF
	SIF COND("穿環数", MASTER) == 0
		PRINTFORM 没有
	PRINTL
	IF CONFIG("陰毛")

	ENDIF

	PRINTFORML  [90] 颜绘 … \@ COND("颜绘表示中", MASTER) ? 表示中 # 没有 \@
	IF COND("颜绘表示中", MASTER)
		PRINTFORML  [99] 颜绘表示停止
		PRINTFORML [100] 这様就好
		CALL INPUT_SELECT, 5, 100, 90, 99
	ELSE
		PRINTFORML
		PRINTFORML [100] 这様就好
		CALL INPUT_SELECT, 5, 100
	ENDIF

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0
		CALL SET_MIDASHINAMI, MASTER
	CASE 1
		CALL SETCONFIG, "弱点"
	CASE 2
		CALL SETCONFIG, "性癖"
	CASE 3
		CALL NAME_CONVERT, MASTER
	CASE 4
		CALL SETFLAG, "衣装の記録", MASTER
		CALL SET_PIERCE, MASTER
		CALL SETFLAG, "衣装記録からの復元", MASTER
	CASE 90
		CALL SIMULATE_MAIDFACE, MASTER
		RETURN 1
	CASE 99
		CFLAG:MASTER:颜绘 = 0
	ENDSELECT
	ARGS = 主人の好み
	CLEARLINE LINECOUNT - MEMO_LINECOUNT:1
	RESTART
CASE "性癖"
	PRINTL 请設定性癖。从以下选项里选你喜欢的就好
	SIF FLAG:オープニング
		PRINTL 之后还可以再変更、所以决定不了的话这个也是可以回頭再说的
	CALL PRINT_STR, "其他角色的□ 属性 □欄已选择的性癖会以_イエロー_这个颜色_显示出来_L_"
	VARSET LOCALS
	FOR LCOUNT, 0, NUM("属性")
		MEMOS = %NAMES("属性", LCOUNT)%\/
		PRINTFORMLC 　[{LCOUNT, 2}] \@ STRCOUNT(CSTR:MASTER:性癖, MEMOS) ? ○ # － \@ [%NAMES("属性", LCOUNT)%]

		SIF LCOUNT%3 == 2
			PRINTL
	NEXT
	PRINTL
	PRINTL  [ 99] 全部解除
	PRINTL  [100] 这様就好
	CALL INPUT_SELECT, NUM("属性"), 99, 100

	CHOICE = RESULT

	SELECTCASE CHOICE
	CASE 100
		REDRAW 1
		RETURN 0
	CASE 99
		CSTR:MASTER:性癖 =
	CASEELSE
		MEMOS = %NAMES("属性", CHOICE)%\/
		IF STRCOUNT(CSTR:MASTER:性癖, MEMOS)
			VARSET LOCALS
			SPLIT CSTR:MASTER:性癖, "/", LOCALS
			CSTR:MASTER:性癖 =
			FOR LCOUNT, 0, NUM("属性")
				SELECTCASE LOCALS:LCOUNT
				CASE "", NAMES("属性", CHOICE)
					CONTINUE
				ENDSELECT
				CSTR:MASTER:性癖 = %CSTR:MASTER:性癖%%LOCALS:LCOUNT%\/
			NEXT
		ELSE
			CSTR:MASTER:性癖 = %CSTR:MASTER:性癖%%NAMES("属性", CHOICE)%\/
		ENDIF

	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
CASE "弱点"
	PRINTL 请設定弱点。从以下选项里选你喜欢的就好
	SIF FLAG:オープニング
		PRINTL 之后还可以再変更、所以决定不了的话回頭再说也是可以的
	VARSET LOCALS
	FOR LCOUNT, 0, NUM("弱点")
		PRINTFORMLC 　[{LCOUNT, 2}] \@ COND(NAMES("弱点", LCOUNT), MASTER) ? ○ # － \@ [%NAMES("弱点", LCOUNT)%]
		SIF LCOUNT%3 == 2
			PRINTL
	NEXT
	PRINTL
	IF COND("全部弱点", MASTER)
		PRINTL   [99] 全部解除
	ELSE
		PRINTL   [99] 全部選択
	ENDIF
	PRINTL  [100] 这様就好
	CALL INPUT_SELECT, NUM("弱点"), 99, 100

	CHOICE = RESULT

	SELECTCASE CHOICE
	CASE 100
		REDRAW 1
		RETURN 0
	CASE 99
		IF COND("全部弱点", MASTER)
			CSTR:MASTER:弱点 =
		ELSE
			CSTR:MASTER:弱点 =
			FOR LCOUNT, 0, NUM("弱点")
				CSTR:MASTER:弱点 = %CSTR:MASTER:弱点%%NAMES("弱点", LCOUNT)%\/
			NEXT
		ENDIF
	CASEELSE
		IF COND(NAMES("弱点", CHOICE), MASTER)
			VARSET LOCALS
			SPLIT CSTR:MASTER:弱点, "/", LOCALS
			CSTR:MASTER:弱点 =
			FOR LCOUNT, 0, NUM("弱点")
				SELECTCASE LOCALS:LCOUNT
				CASE "", NAMES("弱点", CHOICE)
					CONTINUE
				ENDSELECT
				CSTR:MASTER:弱点 = %CSTR:MASTER:弱点%%LOCALS:LCOUNT%\/
			NEXT
		ELSE
			CSTR:MASTER:弱点 = %CSTR:MASTER:弱点%%NAMES("弱点", CHOICE)%\/
		ENDIF
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "陰毛と腋毛"
	PRINTFORML 陰毛和%TEXTS("腋")%毛的設定。从外表年齢来指定是否会长
	PRINTFORML 不过、会长%TEXTS("腋")%毛只能限定在会长陰毛的角色之中
	PRINTFORML （注：OFF的话、全部的陰毛＆%TEXTS("腋")%毛flag都会初期化！）
	PRINTL
	PRINTFORML  [ 0] \@ GETBIT(FLAG:陰毛, 0) ? ○ # － \@ 大家都长
	PRINTFORML  [ 1] \@ GETBIT(FLAG:陰毛, 1) ? ○ # － \@ 兒童：×　少女：○　大姐姐：○　大人：○
	PRINTFORML  [ 2] \@ GETBIT(FLAG:陰毛, 2) ? ○ # － \@ 兒童：×　少女：×　大姐姐：○　大人：○
	PRINTFORML  [ 3] \@ GETBIT(FLAG:陰毛, 3) ? ○ # － \@ 兒童：×　少女：×　大姐姐：×　大人：○
	PRINTFORML  [ 4] \@ GETBIT(FLAG:陰毛, 4) ? ○ # － \@ 誰都不长
	PRINTFORML  [ 5] \@ FLAG:陰毛 == 0 ? ○ # － \@ 陰毛的設定本身调为OFF(不会再提到陰毛了)
	SIF FLAG:陰毛 == 0
		SETCOLOR DEF_COLOR("灰色")
	PRINTFORML  [10] \@ CONFIG("腋毛") ? ○ # － \@ %TEXTS("腋")%毛ＯＮ
	RESETCOLOR
	PRINTFORML [100] 返回

	CALL INPUT_SELECT, 6, 10, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 5
		LOCAL = 0
		FOR LCOUNT, 1, CHARANUM
			SIF BASE:LCOUNT:陰毛 == 0
				CONTINUE
			LOCAL = 1
			BREAK
		NEXT
		IF LOCAL
			PRINTFORML 真的要把陰毛与%TEXTS("腋")%毛的状態初始化吗？
			PRINTFORML [ 0] 是
			PRINTFORML [ 1] 果然還是放棄
			CALL INPUT_SELECT, 2
			SIF RESULT == 1
				RESTART
		ENDIF
		PRINTFORMW 陰毛与%TEXTS("腋")%毛的設定调为OFF了
		FLAG:陰毛 = 0
		CALL SETFLAG, "陰毛と腋毛の設定初期化"
		RETURN 0
	CASE 0 TO 4
		CLEARBIT FLAG:陰毛, 0
		CLEARBIT FLAG:陰毛, 1
		CLEARBIT FLAG:陰毛, 2
		CLEARBIT FLAG:陰毛, 3
		CLEARBIT FLAG:陰毛, 4
		SETBIT FLAG:陰毛, RESULT
	CASE 10
		SIF FLAG:陰毛
			INVERTBIT FLAG:陰毛, 10
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "使い込まれ素質の自動獲得"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORMW [縦深菊穴]之类的会根据経験而自動獲得
	ELSE
		PRINTFORMW 手動獲得的地点在LVUP画面の[90] 使用経験値獲得素質 请去那里吧
	ENDIF

CASE "性器年齢"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORMW 外見年齢和性器年齢的値例如[黑木耳],[美穴],[色素沉淀]等等設定现已启用
	ELSE
		PRINTFORMW 决定不提及性器外表的详細
	ENDIF

CASE "乱性"
	CALL PRINT_SELECT, @"只会诱惑%CALLNAME:MASTER%一个人来作为Ｈ的对象(默认)\/如果是関系好的部員的话也会做Ｈ的事情\/也会和%CALLNAME:MASTER%不认识的人一起悄悄地做Ｈ的事情"
	FLAG:乱性 = RESULT

	SELECTCASE FLAG:乱性
	CASE 0
		PRINTFORMW 不会和%CALLNAME:MASTER%以外之外的人Ｈ。[有男朋友]与[人妻]属性的除外。
	CASE 1
		PRINTFORML 仅限部員同士之间、可能会出现一起做Ｈ的事情的情况。
		PRINTFORMW [有男朋友]与[人妻]属性的除外。
	CASE 2
		PRINTFORML 也会和%CALLNAME:MASTER%不认识的人一起悄悄地做Ｈ的事情。
		PRINTFORMW 不过游戏本体里、目前还没有写相関的事件。
	ENDSELECT
CASE "自動挿入解除"
	PRINTFORML 中出後自動选择拔出阴茎
	CALL PRINT_SELECT, "自動拔出(默认)/不拔出/在要拔出的時候出现選択肢"
	FLAG:自動挿入解除 = RESULT

	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 根据射精量自動解除挿入。
	CASE 1
		PRINTFORMW 不会自動解除挿入。但戴套時例外。
	CASE 2
		PRINTFORMW 将要挿入解除時会出现選択肢。但戴套時例外。
	ENDSELECT

CASE "危険日生性交の合意"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORMW 尽管本来必須要[相思相愛]才行、但是在[恋慕]或[淫乱]的情况下也会獲得该合意。
	ELSE
		PRINTFORMW 獲得危険日生性交的合意必須要相思相愛了。
	ENDIF
CASE "包茎阴茎的称呼"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORMW 包茎的对象的话会有包茎酱之类的表述。
	ELSE
		PRINTFORMW 不会过分指摘包茎了。
	ENDIF

CASE "夏天的運動汗流浃背"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORML 夏天時、在身体运動后的情况下、会出现有恥垢
		PRINTFORMW 请注意那些呈现流汗状態的人。
	ELSE
		PRINTFORMW 一直都是干净漂亮的状態。
	ENDIF
CASE "partnerの自動変更"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTFORMW %CALLNAME:MASTER%进入放置状态的话%TEXTS("対象の名称")%偶尔会发生变化。
	ELSE
		PRINTFORMW 停止%TEXTS("対象の名称")%自動変更。
	ENDIF
CASE "自动调戏"
	PRINTFORM 現在
	SELECTCASE CONFIG("自动调戏")
	CASE 0
		CALL PRINT_STR, "的自动调戏頻度为_黄色_20秒一次"
	CASE 1 TO 59
		CALL PRINT_STR, @"的自动调戏頻度为_黄色_{CONFIG("自动调戏")}秒一次"
	CASE 60, 120, 180, 240, 300, 360, 420, 480, 540, 600
		CALL PRINT_STR, @"的自动调戏頻度为_黄色_{CONFIG("自动调戏")/60}分一次"
	CASE 60 TO 600
		CALL PRINT_STR, @"的自动调戏頻度为_黄色_{CONFIG("自动调戏")/60}分{CONFIG("自动调戏")%60}秒一次"
	CASE 999
		CALL PRINT_STR, "自动调戏_黄色_停止中"
	ENDSELECT
	PRINTFORML 。
	PRINTFORML 要怎么设定？直接输入[5]～[600]、就可以設定为相应的秒数
	PRINTFORML [  0] 返回默认(20秒)
	PRINTFORML [ 10] 变更为10秒
	PRINTFORML [ 30] 变更为30秒
	PRINTFORML [ 60] 变更为１分
	PRINTFORML [180] 变更为３分
	PRINTFORML [999] 停止

	INPUT

	SELECTCASE RESULT
	CASE 0, 5 TO 600, 999
	CASEELSE
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		RESTART
	ENDSELECT

	FLAG:自动调戏 = RESULT

	SELECTCASE FLAG:自动调戏
	CASE 0
		CALL PRINT_STRW, "变回默认設定为(_黄色_20秒左右_)了。"
	CASE 1 TO 59
		CALL PRINT_STRW, @"自动调戏頻度为_黄色_{CONFIG("自动调戏")}秒_了。"
	CASE 60, 120, 180, 240, 300, 360, 420, 480, 540, 600
		CALL PRINT_STRW, @"自动调戏頻度为_黄色_{CONFIG("自动调戏")/60}分_了。"
	CASE 1 TO 600
		CALL PRINT_STRW, @"自动调戏頻度为_黄色_{CONFIG("自动调戏")/60}分{CONFIG("自动调戏")%60}秒_了。"
	CASE 999
		CALL PRINT_STRW, @"自动调戏_停止_了。"
	ENDSELECT
	SIF FLAG:自动调戏 != 999
		PRINTFORMW 选择画面右下的[111]pause 时会暂时停止自动调戏。
CASE "９９９インデント"
	PRINTFORML 选择"打发時间"之类的什么都不做单纯的推進時間的指令後的選択肢的場所要在哪里？
	PRINTFORML [0]左侧(默认)%BL(NUM("折り返し文字数") - 60 - 17)%[1]中央%BL(60 - 30 - 7)%[2]右侧
	CALL INPUT_SELECT, 3

	FLAG:９９９インデント = RESULT

	SELECTCASE FLAG:９９９インデント
	CASE 0
		PRINTFORMW 变为左侧(默认)了
	CASE 1
		PRINTFORMW %BL(CONFIG("９９９インデント補正") )%中央表示了
	CASE 2
		PRINTFORMW %BL(CONFIG("９９９インデント補正") )%右侧表示了
	ENDSELECT

CASE "恍惚状態"
	PRINTL 　恍惚状態時会随对方摆弄吗？
	PRINTL 　（具体的说、变得恍惚了的话、会由对方随性选择指令）
	PRINTL [0] 是
	PRINTL [1] 否
	CALL INPUT_SELECT, 2
	IF RESULT == 0
		PRINTW 请注意不要被榨干了
		FLAG:恍惚状態 = 1
	ELSEIF RESULT == 1
		FLAG:恍惚状態 = 0
	ENDIF
CASE "恍惚耐性"
	PRINTFORML  [ 0] 委身于恍惚感(默认)
	PRINTFORML  [ 1] 出现支付精力来维持意識的選択肢
	PRINTFORML  [ 2] 不出现選択肢直接默认支付精力来维持意识

	CALL INPUT_SELECT, 3

	FLAG:恍惚耐性 = RESULT
CASE "巨乳補正"
	PRINTFORML 请設定巨乳的上限。詳細地設定一下。
	PRINTFORML  [ 0] \@ CONFIG("巨乳補正：Ｆ") ? ○ # － \@ Ｅ～Ｆ罩杯为巨乳
	PRINTFORML  [ 1] \@ CONFIG("巨乳補正：Ｇ") ? ○ # － \@ Ｅ～Ｇ罩杯为巨乳
	PRINTFORML  [ 2] \@ CONFIG("巨乳補正：Ｈ") ? ○ # － \@ Ｅ～Ｈ罩杯为巨乳
	RESETCOLOR
	PRINTFORML [100] 返回

	CALL INPUT_SELECT, 3, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0 TO 2
		FLAG:巨乳補正 = RESULT
	ENDSELECT

	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "妊娠設定：受精確率表示ＯＦＦ"
	INVERTBIT FLAG:妊娠設定, 0
	IF CONFIG(ARGS)
		PRINTFORMW 现在不知道受精確率了
	ELSE
		PRINTFORMW 现在显示受精確率了
	ENDIF
CASE "恋慕と淫乱の任意獲得"
	INVERTBIT FLAG:手動取得, 0
	IF CONFIG(ARGS)
		PRINTFORMW 满足条件的時候可以在能力値UP的画面里獲得
	ELSE
		PRINTFORMW 爱情就像龙卷风！
	ENDIF
CASE "ＶＡ拡張の手動ＬＶＵＰ"
	INVERTBIT FLAG:手動取得, 1
	IF CONFIG(ARGS)
		PRINTFORMW 满足条件的時候可以在能力値UP的画面里上昇
	ELSE
		PRINTFORMW 可以擅自扩张了
	ENDIF

CASE "乳頭奸"
	INVERTBIT FLAG:乳頭奸, 0
	IF CONFIG(ARGS)
		PRINTW 胸部在巨乳以上的人如果变成淫乳了的话、就可以乳頭奸了
	ELSE
		PRINTW 乳頭不会出现可以挿入的穴了。这才普通嘛
	ENDIF
CASE "精液浣腸"
	INVERTBIT FLAG:精液浣腸, 0
	IF CONFIG(ARGS)
		PRINTL 虽然不至于到浣腸的地步、但是对积攒了排泄物的人来说如果被中出的刺激太大了的话…
		PRINTW 果然还是应该在肛交前把肚子里清理干净比较好吧
	ELSE
		PRINTW 精液在中出時是没有排泄促進作用的
	ENDIF
CASE "制限時間"
	INVERTBIT FLAG:制限時間, 0
	IF CONFIG(ARGS)
		PRINTW 刺激一点也不错
	ELSE
		PRINTW 这様的话容易被推倒的日子也不用担心了
	ENDIF
CASE "射精部位の自動選択"
	PRINTFORML 请选择不出现選択肢、直接就在对应部位射精的PLAY
	PRINTL
	PRINTFORML  [ 0] \@ CONFIG("Ｖ射精の自動選択") ? ○ # － \@ Ｖ插入
	PRINTFORML  [ 1] \@ CONFIG("Ａ射精の自動選択") ? ○ # － \@ Ａ插入
	PRINTFORML  [ 2] \@ CONFIG("尿道射精の自動選択") ? ○ # － \@ 尿道插入
	PRINTFORML  [ 3] \@ CONFIG("Ｂ射精の自動選択") ? ○ # － \@ 乳頭奸
	PRINTFORML  [ 4] \@ CONFIG("口射精の自動選択") ? ○ # － \@ 口交之类的使用对方的嘴的PLAY
	PRINTFORML  [ 5] \@ CONFIG("手射精の自動選択") ? ○ # － \@ 手交之类的使用对方的手的PLAY
	PRINTFORML  [ 6] \@ CONFIG("胸射精の自動選択") ? ○ # － \@ 乳交之类的使用对方的胸的PLAY
	PRINTFORML  [ 7] \@ CONFIG("脚射精の自動選択") ? ○ # － \@ 足交之类的使用对方的足的PLAY
	PRINTFORML  [ 8] \@ CONFIG("自慰射精の自動選択") ? ○ # － \@ 自己自慰時
	PRINTFORML  [ 9] \@ CONFIG("其他射精の自動選択") ? ○ # － \@ 其他
	PRINTFORML  [90] 全部ＯＮ
	PRINTFORML  [91] 全部ＯＦＦ
	PRINTFORML [100] 返回

	CALL INPUT_SELECT, 10, 90, 91, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 90
		FLAG:射精部位の自動選択 = SETBITS(FLAG:射精部位の自動選択, 0, 6)
		FLAG:射精部位の自動選択 = SETBITS(FLAG:射精部位の自動選択, 18, 20)
	CASE 91
		FLAG:射精部位の自動選択 = 0
	;TCVAR:PLAY区分メインに対応させる
	CASE 0
		INVERTBIT FLAG:射精部位の自動選択, 3
	CASE 1
		INVERTBIT FLAG:射精部位の自動選択, 4
	CASE 2
		INVERTBIT FLAG:射精部位の自動選択, 19
	CASE 3
		INVERTBIT FLAG:射精部位の自動選択, 18
	CASE 4
		INVERTBIT FLAG:射精部位の自動選択, 1
	CASE 5
		INVERTBIT FLAG:射精部位の自動選択, 2
	CASE 6
		INVERTBIT FLAG:射精部位の自動選択, 5
	CASE 7
		INVERTBIT FLAG:射精部位の自動選択, 6
	CASE 8
		INVERTBIT FLAG:射精部位の自動選択, 20
	CASE 9
		INVERTBIT FLAG:射精部位の自動選択, 0
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "气味の表記変更"
	IF FLAG:气味 < 100
		PRINTFORML 这里可以修改文本中出现的「气味」这个单词、改变成玩家喜欢的那个（中文里没有这种语法区别、所以该功能请无视）
		PRINTFORM 具体的には、
		CALL PRINTL_COLORTEXT, "一般には良いとも不快とも断定しづらいがクセになるようなにおい", DEF_COLOR("黄色")
		CALL PRINT_COLORTEXT, "……例えば、好きな相手の性臭や体臭です、", DEF_COLOR("黄色")
		PRINTFORML の表記を選んでいただきます
		PRINTFORML （ただし、髪の气味、料理の气味などの一般に良い香りのものは「气味」で固定、
		PRINTFORMW 　頭皮の臭い、排泄物の臭いなどの一般に良くない香りの物は「臭い」で固定します）
		PRINTFORML
	ENDIF
	PRINTFORML それでは以下から選択してください
	PRINTL
	PRINTFORML [ 0] 气味
	PRINTFORML [ 1] 臭い
	PRINTFORML [ 2] におい
	PRINTFORML [ 3] ニオイ

	CALL INPUT_SELECT, 4

	FLAG:气味 = RESULT

	PRINTFORMW %TEXTS("气味")%を選択しました。以下が例文です
	PRINTL
	PRINTFORMW 胖次越しの阴部の%TEXTS("气味")%……
	PRINTFORMW じっとりと滲んだ汗の%TEXTS("气味")%……
	PRINTFORMW 火照った身体から漂うエッチな%TEXTS("气味")%……
	PRINTFORMW 膣口をきゅっと締めたり、ぽかぁと開いたりさせて胎内の%TEXTS("气味")%を漂わせる……
	PRINTFORMW 鼻先に突き付けられた阴茎の%TEXTS("气味")%……
	PRINTFORMW 汗混じりの淫靡な%TEXTS("气味")%……
	PRINTFORMW 着古した你の恤の%TEXTS("气味")%……
	PRINTL
	PRINTFORML ……%TEXTS("气味")%でいいですか？
	PRINTFORML [ 0] 是
	PRINTFORML [ 1] 考え直す

	CALL INPUT_SELECT, 2

	IF RESULT == 0
		PRINTFORMW それではお楽しみください
	ELSE
		FLAG:气味 = 100
		RESTART
	ENDIF
CASE "性騷擾禁止"
	INVERTBIT FLAG:性騷擾禁止, 0
	IF CONFIG(ARGS)
		PRINTFORML 尽可能避免无選択肢的性骚扰…不过若有遗漏也请原谅
		PRINTFORMW （基本的来说就是単純減少了会触发的事件）
	ELSE
		PRINTFORMW %CALLNAME:MASTER%会在無選択肢的情况下手滑了
	ENDIF

CASE "乳頭の詳細設定"
	CALL PRINT_STR, "乳頭的詳細情况…具体的来说、可以调整_黄色_乳頭肥大_和_黄色_陥没乳頭_和_黄色_巨乳輪_的存在与否_L"
	PRINTFORML ON就是〇、OFF的话就是×
	PRINTL
	PRINTFORML  [ 0] \@ CONFIG("乳頭肥大") ? ○ # ×\@ 乳頭肥大
	PRINTFORML  [ 1] \@ CONFIG("陥没乳頭") ? ○ # ×\@ 陥没乳頭
	PRINTFORML  [ 2] \@ CONFIG("巨乳輪") ? ○ # ×\@ 巨乳輪
	PRINTFORML [100] 这様就好

	CALL INPUT_SELECT, 3, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0 TO 3
		INVERTBIT FLAG:乳頭, RESULT
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "陰核の詳細設定"
	CALL PRINT_STR, "陰核的詳細情况…具体的来说、可以调整_黄色_陰核肥大_与_黄色_陰核包茎_的存在与否_L"
	PRINTFORML ON就是〇、OFF的话就是×
	PRINTL
	PRINTFORML  [ 0] \@ CONFIG("陰核肥大") ? ○ # ×\@ 陰核肥大
	PRINTFORML  [ 1] \@ CONFIG("陰核包茎") ? ○ # ×\@ 陰核包茎
	PRINTFORML [100] 这様就好

	CALL INPUT_SELECT, 2, 100

	SELECTCASE RESULT
	CASE 100
		RETURN 0
	CASE 0 TO 2
		INVERTBIT FLAG:陰核, RESULT
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

CASE "素質的固定与除外"
	INVERTBIT FLAG:ARGS, 0

CASE "胎内精子で妊娠"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTL 胎内残留精子的话可以妊娠了。
		PRINTW 请注意不要不小心意外怀孕。
	ELSE
		PRINTW 胎内就算残留精子也不会妊娠了。
	ENDIF
CASE "委身于對方的警告"
	PRINTFORM  是否顯示選擇委身于對方時出現的警告？（現在：
	SELECTCASE CONFIG("委身于對方的警告")
	CASE 0
		CALL PRINT_STR, "黄色_一直顯示"
	CASE 1
		CALL PRINT_STR, "黄色_Ｈ時只顯示一次"
	CASEELSE
		CALL PRINT_STR, "黄色_不顯示"
	ENDSELECT
	PRINTFORML ）
	PRINTFORML  [ 0] 一直顯示(默認)
	PRINTFORML  [ 1] Ｈ時只顯示一次る
	PRINTFORML  [ 2] 不顯示

	CALL INPUT_SELECT, 3

	FLAG:委身于對方的警告 = RESULT

CASE "對男性PLAYER的胸奉仕"
	PRINTL 打算如何變更呢？
	PRINTFORML  [ 0] 禁止(默認)
	PRINTFORML  [ 1] 僅在男娘時ＯＫ
	PRINTFORML  [ 2] 許可

	CALL INPUT_SELECT, 3

	FLAG:對男性PLAYER的胸奉仕 = RESULT
CASE "常時挿入自動解除"
	INVERTBIT FLAG:ARGS, 0
CASE "嘔吐発生"
	INVERTBIT FLAG:ARGS, 0
	IF CONFIG(ARGS)
		PRINTL 連續実行強制口交、開口口枷、深喉口交時実行強制口交等容易發生嘔吐。
		PRINTW 對於沒有[嘔吐反射耐性]的角色請不要頻繁使用強制口交指令。
		PRINTW 但是如果插入的陰莖比較短小就不用擔心這樣的問題。
	ELSE
		PRINTW 不會發生嘔吐事件。
	ENDIF
CASE "主画面颜绘ＯＦＦ"
	INVERTBIT FLAG:画像ONOFF, 0
CASE "メイン画面CIPＯＦＦ"
	INVERTBIT FLAG:画像ONOFF, 1

CASE "Ｈ前廁所", "助手同行", "永久過濾"
	INVERTBIT FLAG:ARGS, 0
ENDSELECT

;ARGの名前自体を変更する。基本的には角色メイクの時のみ選択可能
@NAME_CONVERT, ARG

PRINTFORML 変更%CALLNAME:ARG%的名字
PRINTFORML 请输入在全角８文字(半角的话就是16文字)以内的名字
PRINTFORML 什么都不输入的话就不会変更。
CALL INPUTS_SELECT, 16

PRINTL
SELECTCASE RESULTS
CASE "", NAME:ARG
	PRINTFORMW 没有変更
CASEELSE
	NAME:ARG = %RESULTS%
	SIF ARG != MASTER
		CALLNAME:ARG = %NAME:ARG%
	PRINTFORMW 名字変更为%RESULTS%

	PRINTL
	PRINTFORML 接着、请确定这个第二人称的假名。
	PRINTFORML （何も入力しない場合は%RESULTS%がふりがなとなります）
	PRINTL
	PRINTFORML 请输入在全角20文字(半角的话就是40文字)以内的名字

	CALL INPUTS_SELECT, 40

	PRINTL
	IF RESULTS != ""
		CSTR:ARG:ふりがな = %RESULTS%
	ELSE
		CSTR:ARG:ふりがな = %NAME:ARG%
	ENDIF
	PRINTFORMW 名前を%NAME:ARG%にそのふりがなを%CSTR:ARG:ふりがな%に変更しました
ENDSELECT

;ARGからの呼ばれ方を変更する
@NAME_CONVERT_SP, ARG
#DIMS MEMO_CNAME
#DIMS MEMO_CNAME_KANA

PRINTFORML %CALLNAME:ARG%、会在和%CALLNAME:MASTER%说话時変更第二人称的称呼
PRINTFORML 请输入在全角10文字(半角的话就是20文字)以内的名字
PRINTFORML 以及、如果想在自己的名字后面被以 様 来称呼的话就请以"NAME_MASTER様"的様子进行输入
PRINTFORML 什么都不输入的话就不会変更。
CALL INPUTS_SELECT, 20

PRINTL
SELECTCASE RESULTS
CASE "", CEVENTS("二人称主人", ARG)
	PRINTFORMW 没有変更
CASEELSE

	MEMO_CNAME = 二人称主人：%RESULTS%
	MEMO_CNAME_KANA = 二人称主人かな：%RESULTS%

	;呼び名フラグ重置
	CALL DEL_CEVENT_GROUP_EX, "二人称主人", ARG
	CALL SET_CEVENT, MEMO_CNAME, ARG
	PRINTFORMW 和%CALLNAME:MASTER%说话時的第二人称変更为%CNAMET(ARG, "二人称")%了
	PRINTL
	PRINTFORML 接着、请确定这个第二人称的假名。
	PRINTFORML （什么都不输入的话%CNAMET(ARG, "二人称")%就会变成假名）
	PRINTL
	PRINTFORML 请输入在全角20文字(半角的话就是40文字)以内的名字

	CALL INPUTS_SELECT, 40

	PRINTL
	SIF RESULTS != ""
		MEMO_CNAME_KANA = 二人称主人かな：%RESULTS%

	CALL SET_CEVENT, MEMO_CNAME_KANA, ARG

	PRINTFORML 和%CALLNAME:MASTER%说话時的第二人称変更为%CNAMET(ARG, "二人称")%、
	PRINTFORMW 以及其假名変更为%CNAMET(ARG, "二人称", "かな")%了
ENDSELECT

;ARGのあだ名を変更する
@NICKNAME_CONVERT, ARG
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
PRINTL
;すでにあだ名がある？
IF NICKNAME:ARG != ""
	PRINTFORML 変更%CALLNAME:ARG%的爱称（現在为%NICKNAME:ARG%）
ELSE
	PRINTFORML 为%CALLNAME:ARG%取爱称
ENDIF
PRINTFORML 请输入在全角10文字(半角的话就是20文字)以内的名字

IF NICKNAME:ARG != ""
	PRINTFORML 什么都不输入的话就不会変更
	CALL PRINT_STRL, "以及、不想要爱称的话就请输入_黄色_あだ名を無くす_"
ELSE
	PRINTFORML 什么都不输入的话、就会取消取爱称
ENDIF
CALL INPUTS_SELECT, 20

PRINTL
SELECTCASE RESULTS
CASE ""
	IF NICKNAME:ARG != ""
		PRINTFORMW 没有変更
	ELSE
		PRINTFORMW 取消取爱称了
	ENDIF
CASE "あだ名を無くす"
	IF NICKNAME:ARG != ""
		NICKNAME:ARG =
		PRINTFORMW %CALLNAME:ARG%的爱称被取消了
	ELSE
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		RESTART
	ENDIF
CASEELSE
	NICKNAME:ARG = %RESULTS%
	PRINTFORMW %CALLNAME:ARG%的爱称、变成了%NICKNAME:ARG%
ENDSELECT


code:
;-------------------------------------------------
;角色クターの並び替えを行う
;合わせて@SORT_CHARA, ARGSも参照すること
;-------------------------------------------------
@CHARA_SORT
#DIM LCOUNT
#DIM MEMO_LINECOUNT
#DIM CHOICE, 3
#DIMS CHOICES, 2

MEMO_LINECOUNT = LINECOUNT

REDRAW 0
PRINTL
PRINTFORML 进行角色的重新排列。
PRINTFORML 如果想切换某２人的顺序的话就直接选择该二人就行了
PRINTFORML 以及、想根据好感度或者角色番号之类的一口气完成排列的话就选择[200]就行了

FOR LCOUNT, 2, CHARANUM
	CALL PRINT_NUM_NAME, "能力表示", LCOUNT
NEXT
PRINTL  [100]返回　[200]整体排序

$INPUT_LOOP
CALL INPUT_SELECT, CHARANUM, 100, 200

SELECTCASE RESULT
CASE 0, 1
	GOTO INPUT_LOOP
CASE 100
	REDRAW 1
	RETURN 0
CASE 200
	PRINTL
	PRINTFORML 以哪个为要素进行排列？関于[ 6]～[10]、可以选择任意的元素进行排序
	PRINTFORML  [ 0] 加入時的顺序　　　　（这个会以昇序来从初期開始排列）
	PRINTFORML  [ 1] 角色番号　　　　　（勧誘時表示的番号順序）
	PRINTFORML  [ 2] 好感度
	PRINTFORML  [ 3] 最後一起H的日子远近　（時间距离越近的角色该值越大）
	PRINTFORML  [ 4] 身高
	PRINTFORML  [ 5] 胸部大小
	PRINTFORML  [ 6] CFLAG
	PRINTFORML  [ 7] ABL
	PRINTFORML  [ 8] EXP
	PRINTFORML  [ 9] TALENT
	PRINTFORML  [10] BASE
	PRINTFORML [100] 返回

	CALL INPUT_SELECT, 11, 100

	CHOICE = RESULT

	SELECTCASE CHOICE
	CASE 100
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
	CASEELSE
		SELECTCASE CHOICE
		CASE 0
			CHOICES = 加入順,BASE,識別番号
		CASE 1
			CHOICES = 角色番号,NO,
		CASE 2
			CHOICES = 好感度,CFLAG,好感度
		CASE 3
			CHOICES = 最後に相手した日期,CFLAG,前回Ｈ日
		CASE 4
			CHOICES = 身高,BASE,身高
		CASE 5
			CHOICES = 胸の尺寸,BASE,胸圍
		CASE 6
			CALL CHARA_SORT_SELECT_OTHER("CFLAG")
			CHOICES = %RESULTS%
		CASE 7
			CALL CHARA_SORT_SELECT_OTHER("ABL")
			CHOICES = %RESULTS%
		CASE 8
			CALL CHARA_SORT_SELECT_OTHER("EXP")
			CHOICES = %RESULTS%
		CASE 9
			CALL CHARA_SORT_SELECT_OTHER("TALENT")
			CHOICES = %RESULTS%
		CASE 10
			CALL CHARA_SORT_SELECT_OTHER("BASE")
			CHOICES = %RESULTS%
		ENDSELECT

		IF CHOICES == ""
			CLEARLINE LINECOUNT - MEMO_LINECOUNT
			RESTART
		ENDIF

		PRINTL 根据選択的要素、从小的来还是从大的来？
		PRINTL [ 0] 从小的来（昇順）
		PRINTL [ 1] 从大的来（降順）

		CALL INPUT_SELECT, 2

		SELECTCASE RESULT
		CASE 0
			CHOICES:1 = 昇順
		CASE 1
			CHOICES:1 = 降順
		ENDSELECT

		CALL SORT_CHARA, CHOICES, CHOICES:1
		IF RESULTS == ""
			CLEARLINE LINECOUNT - MEMO_LINECOUNT
			RESTART
		ENDIF

		PRINTFORMW 角色全員以[%CHOICES%]の[%CHOICES:1%]进行重新排列了
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		;履歴を残してみる
		PRINTFORML 角色全員以[%CHOICES%]の[%CHOICES:1%]进行重新排列了
	ENDSELECT

	RESTART
ENDSELECT

CHOICE:1 = RESULT
CLEARLINE LINECOUNT - MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

PRINTL
PRINTFORML 替换顺序的第一人选择为[{CHOICE:1, 2}]%CALLNAME:(CHOICE:1)%
PRINTL
PRINTFORML 请再选择一个

FOR LCOUNT, 2, CHARANUM
	SIF LCOUNT == CHOICE:1
		SETCOLOR DEF_COLOR("黄色")

	CALL PRINT_NUM_NAME, "能力表示", LCOUNT

	RESETCOLOR
NEXT
PRINTL  [100]返回

$INPUT_LOOP_2
CALL INPUT_SELECT, CHARANUM, 100

SELECTCASE RESULT
CASE 0, 1, CHOICE:1
	GOTO INPUT_LOOP_2
CASE 100
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ENDSELECT

CHOICE:2 = RESULT

PRINTFORMW [{CHOICE:1, 2}]%CALLNAME:(CHOICE:1)%和[{CHOICE:2, 2}]%CALLNAME:(CHOICE:2)%的顺序交换了

CLEARLINE LINECOUNT - MEMO_LINECOUNT
;履歴を残してみる
PRINTFORML [{CHOICE:1, 2}]%CALLNAME:(CHOICE:1)%和[{CHOICE:2, 2}]%CALLNAME:(CHOICE:2)%的顺序交换了

CALL SWAP_CHARA, CHOICE:1, CHOICE:2

RESTART

;-------------------------------------------------
;ユーザーに項目を選んでもらって、@SORT_CHARAに渡すための文字列を作る
;作った文字列はRESULTSに入れて返す 中止の場合はRESULTSを空文字列にして返す
;-------------------------------------------------
@CHARA_SORT_SELECT_OTHER, 大項目
#DIMS 大項目
#DIM LCOUNT
#DIM LOOPSIZE
#DIMS 小項目
#DIM MAXLEN
#DIM 桁数
#DIM NEXTLINE
#DIM 並べる数
#DIM MAXLOOP

LOOPSIZE = VARSIZE(大項目)
SIF 大項目 == "CFLAG"
	LOOPSIZE = MIN(LOOPSIZE, 1100) ; 角色ごとの項目はソートに不要じゃろ

MAXLEN = 0
MAXLOOP = 0
FOR LCOUNT, 0, LOOPSIZE
	SELECTCASE 大項目
	CASE "CFLAG"
		小項目 = %CFLAGNAME:LCOUNT%
	CASE "ABL"
		小項目 = %ABLNAME:LCOUNT%
	CASE "EXP"
		小項目 = %EXPNAME:LCOUNT%
	CASE "TALENT"
		小項目 = %TALENTNAME:LCOUNT%
	CASE "BASE"
		小項目 = %BASENAME:LCOUNT%
	CASEELSE
		; THROW %大項目%で並び替えできません
		PRINTFORMW 不能以%大項目%进行排列
		RESULTS =
		RETURN
	ENDSELECT
	SIF 小項目 == ""
		CONTINUE
	SIF MAXLEN < STRLENS(小項目)
		MAXLEN = STRLENS(小項目)
	MAXLOOP = LCOUNT
NEXT

桁数 = LOG10(MAX(MAXLOOP,1)) + 1
; 一行に表示できる文字数 https://jbbs.shitaraba.net/bbs/read.cgi/otaku/16783/1538925902/75 の参考値から2ぐらい引いておけば大丈夫かな？
並べる数 = (STRLENSU(GETLINESTR("あ"))*2 - 2) / (桁数+MAXLEN+1+3)
NEXTLINE = 0
FOR LCOUNT, 0, MAXLOOP + 1
	SELECTCASE 大項目
	CASE "CFLAG"
		小項目 = %CFLAGNAME:LCOUNT%
	CASE "ABL"
		小項目 = %ABLNAME:LCOUNT%
	CASE "EXP"
		小項目 = %EXPNAME:LCOUNT%
	CASE "TALENT"
		小項目 = %TALENTNAME:LCOUNT%
	CASE "BASE"
		小項目 = %BASENAME:LCOUNT%
	CASEELSE
	ENDSELECT
	SIF 小項目 == ""
		CONTINUE
	PRINTFORM  [{LCOUNT, 桁数}] %小項目, MAXLEN, LEFT%
	NEXTLINE ++
	IF NEXTLINE % 並べる数 == 0
		PRINTL
	ELSE
		PRINTFORM %" "%
	ENDIF
NEXT
SIF NEXTLINE % 並べる数
	PRINTL
PRINTFORML [999] 返回

$INPUTLOOP1
INPUT

IF RESULT == 999
	RESULTS =
	RETURN
ELSEIF (0 <= RESULT) && (RESULT <= MAXLOOP)
	SELECTCASE 大項目
	CASE "CFLAG"
		小項目 = %CFLAGNAME:RESULT%
	CASE "ABL"
		小項目 = %ABLNAME:RESULT%
	CASE "EXP"
		小項目 = %EXPNAME:RESULT%
	CASE "TALENT"
		小項目 = %TALENTNAME:RESULT%
	CASE "BASE"
		小項目 = %BASENAME:RESULT%
	CASEELSE
	ENDSELECT
	IF 小項目 != ""
		RESULTS = %大項目%:%小項目%,%大項目%,%小項目%
		RETURN
	ENDIF
ENDIF

GOTO INPUTLOOP1

;-------------------------------------------------
;Emueraの命令SORTCHARAのＳＱＮ対応版の改変
;ARGSにはソート条件の表記と内容（例 "加入順,BASE,識別番号"）、ARGS:1には昇順か降順のどちらかが入る
;ソート条件が正常の場合は、ソート条件の表記をRESULTSに入れて返す 正常ではない場合はRESULTSを空文字列にして返す
;Emueraの命令SORTCHARAはTARGETとASSIは保つがASSI:1についてはノータッチなので、ASSI:1についても保つようにする
;-------------------------------------------------
@SORT_CHARA, ARGS, ARGS:1
#DIM LCOUNT
#DIMS ソート条件, 3
#DIMS 大項目
#DIMS 小項目
#DIM 小番号
;並び変えで齟齬が生じるものを記録しておく
#DIM MEMO_ASSI, 2

VARSET MEMO_ASSI
SIF ASSI:1 > 0
	MEMO_ASSI:1 = BASE:(ASSI:1):識別番号

;ドッペル你を一時的に消す
CALL DELETE_CHARA, 0
;MASTERを主人に設定
MASTER = 0

VARSET ソート条件
SPLIT ARGS, ",", ソート条件
大項目 = %ソート条件:1%
小項目 = %ソート条件:2%

小番号 = 0

SELECTCASE ARGS:1
CASE "昇順"
	SELECTCASE 大項目
	CASE "CFLAG"
		小番号 = GETNUM(CFLAG, 小項目)
		SIF 小番号 >= 0
			SORTCHARA CFLAG:小番号
	CASE "ABL"
		小番号 = GETNUM(ABL, 小項目)
		SIF 小番号 >= 0
			SORTCHARA ABL:小番号
	CASE "EXP"
		小番号 = GETNUM(EXP, 小項目)
		SIF 小番号 >= 0
			SORTCHARA EXP:小番号
	CASE "TALENT"
		小番号 = GETNUM(TALENT, 小項目)
		SIF 小番号 >= 0
			SORTCHARA TALENT:小番号
	CASE "BASE"
		小番号 = GETNUM(BASE, 小項目)
		SIF 小番号 >= 0
			SORTCHARA BASE:小番号
	CASE "NO"
		SORTCHARA
	CASEELSE
		; THROW %大項目%で並び替えできません
		PRINTFORMW 不能以%大項目%进行排列
		ソート条件:0 =
	ENDSELECT
CASEELSE
	SELECTCASE 大項目
	CASE "CFLAG"
		小番号 = GETNUM(CFLAG, 小項目)
		SIF 小番号 >= 0
			SORTCHARA CFLAG:小番号, BACK
	CASE "ABL"
		小番号 = GETNUM(ABL, 小項目)
		SIF 小番号 >= 0
			SORTCHARA ABL:小番号, BACK
	CASE "EXP"
		小番号 = GETNUM(EXP, 小項目)
		SIF 小番号 >= 0
			SORTCHARA EXP:小番号, BACK
	CASE "TALENT"
		小番号 = GETNUM(TALENT, 小項目)
		SIF 小番号 >= 0
			SORTCHARA TALENT:小番号, BACK
	CASE "BASE"
		小番号 = GETNUM(BASE, 小項目)
		SIF 小番号 >= 0
			SORTCHARA BASE:小番号, BACK
	CASE "NO"
		SORTCHARA BACK
	CASEELSE
		; THROW %大項目%で並び替えできません
		PRINTFORMW 不能以%大項目%进行排列
		ソート条件:0 =
	ENDSELECT
ENDSELECT

IF 小番号 < 0
	; THROW %大項目%の中に%小項目%が見つかりません
	PRINTFORMW 没有在%大項目%中找到%小項目%
	ソート条件:0 =
ENDIF

;ドッペル你を復帰
ADDCHARA 99
;番号をドッペル你が[0]番になるように揃える
FOR LCOUNT, 1, CHARANUM
	LOCAL = CHARANUM - LCOUNT
	LOCAL:1 = LOCAL - 1
	CALL SWAP_CHARA, LOCAL, LOCAL:1
NEXT

;MASTERを主人に設定
MASTER = 1
;ASSI:1を再設定
SIF MEMO_ASSI:1 > 0
	ASSI:1 = TO_NUMBER(MEMO_ASSI:1)

RESULTS = %ソート条件:0%

license: unknown


code:
;質問ごとに全質問中の何問目かを横に出す
;TFLAG:页数 で何問目かを記録
@CREATE_CSV, ARG
REDRAW 0
TFLAG:页数 = 0
TFLAG:指令中止 = 0
CALL CREATE_CSV_MAIN, ARG

@CREATE_CSV_MAIN, ARG
#DIM LCOUNT
#DIM MEMO_LINECOUNT
#DIM QNUM
#DIMS DYNAMIC MEMO_BASE, 100
#DIMS DYNAMIC MEMO_TALENT, 100
#DIMS DYNAMIC MEMO_ABL, 100
#DIMS DYNAMIC MEMO_EXP, 100
#DIMS DYNAMIC MEMO_CSTR, 100
#DIMS MEMO_CSV

MEMO_LINECOUNT = LINECOUNT

;現在的結果表示
VARSET LOCALS
MEMO_CSV =
SELECTCASE TFLAG:页数
CASE 0
	VARSET MEMO_BASE
	VARSET MEMO_TALENT
	VARSET MEMO_ABL
	VARSET MEMO_EXP
	VARSET MEMO_CSTR
CASEELSE
	FOR LCOUNT, 1, 100
		SELECTCASE LCOUNT
		CASE IS <= TFLAG:页数
			MEMO_CSV += @"%MEMO_BASE:LCOUNT%"
		CASEELSE
			MEMO_BASE:LCOUNT =
		ENDSELECT
	NEXT
	FOR LCOUNT, 1, 100
		SELECTCASE LCOUNT
		CASE IS <= TFLAG:页数
			MEMO_CSV += @"%MEMO_TALENT:LCOUNT%"
		CASEELSE
			MEMO_TALENT:LCOUNT =
		ENDSELECT
	NEXT
	FOR LCOUNT, 1, 100
		SELECTCASE LCOUNT
		CASE IS <= TFLAG:页数
			MEMO_CSV += @"%MEMO_ABL:LCOUNT%"
		CASEELSE
			MEMO_ABL:LCOUNT =
		ENDSELECT
	NEXT
	FOR LCOUNT, 1, 100
		SELECTCASE LCOUNT
		CASE IS <= TFLAG:页数
			MEMO_CSV += @"%MEMO_EXP:LCOUNT%"
		CASEELSE
			MEMO_EXP:LCOUNT =
		ENDSELECT
	NEXT
	FOR LCOUNT, 1, 100
		SELECTCASE LCOUNT
		CASE IS <= TFLAG:页数
			MEMO_CSV += @"%MEMO_CSTR:LCOUNT%"
		CASEELSE
			MEMO_CSTR:LCOUNT =
		ENDSELECT
	NEXT
	IF MEMO_CSV != ""
		PRINTFORML 現在設定済みのパラメータ：
		SPLIT MEMO_CSV, "+", LOCALS
		FOR LCOUNT, 0, 100
			SELECTCASE LOCALS:LCOUNT
			CASE ""
				BREAK
			CASEELSE
				PRINTFORML %LOCALS:LCOUNT%
			ENDSELECT
		NEXT
	ENDIF
ENDSELECT
PRINTL

QNUM = TFLAG:页数 + 1
SELECTCASE TFLAG:页数
CASE 0
	TFLAG:指令中止 = 0
	TALENT:ARG:男性 = 0
	TALENT:ARG:女性 = 0
	TALENT:ARG:伪娘 = 0
	TALENT:ARG:萝莉老太婆 = 0
	TALENT:ARG:扶她 = 0
	PRINTFORML 性別は何ですか？
	CALL PRINT_SELECT, "男/女/伪娘/萝莉老太婆/扶她"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:男性 = 1
		MEMO_TALENT:QNUM += "素質,男性,1,+"
	CASE 1
		TALENT:ARG:女性 = 1
		MEMO_TALENT:QNUM += "素質,女性,1,+"
	CASE 2
		TALENT:ARG:男性 = 1
		TALENT:ARG:伪娘 = 1
		MEMO_TALENT:QNUM += "素質,男性,1,+素質,伪娘,1,+"
	CASE 3
		TALENT:ARG:女性 = 1
		TALENT:ARG:萝莉老太婆 = 1
		TALENT:ARG:外見年齢 = 1
		MEMO_TALENT:QNUM += "素質,女性,1,+素質,萝莉老太婆,1,+素質,外見年齢,1,+"
	CASE 4
		TALENT:ARG:扶她 = 1
		MEMO_TALENT:QNUM += "素質,扶她,1,+"
	ENDSELECT
CASE 1
	TFLAG:指令中止 = 0
	PRINTFORML 体力はどんなもんですか？
	CALL PRINT_SELECT, "よわよわ/普通/自信有/疲れ知らず/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0 TO 3
		MAXBASE:ARG:体力 = 1500 + RESULT*500
		MEMO_BASE:QNUM += @"基礎,体力,{1500 + RESULT*500},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 2
	TFLAG:指令中止 = 0
	TALENT:ARG:肤色 = 0
	PRINTFORML 肌の焼け具合はどんなもんですか？
	CALL PRINT_SELECT, "普通/褐色/色白/青肌/色黒/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 1 TO 4
		TALENT:ARG:肤色 = RESULT
		MEMO_TALENT:QNUM += @"素質,肤色,{RESULT},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 3
	TFLAG:指令中止 = 0
	TALENT:ARG:娇小 = 0
	TALENT:ARG:高大 = 0
	PRINTFORML 身高はどんなもんですか？
	IF TALENT:ARG:萝莉老太婆
		CALL PRINT_SELECT, "凄い娇小/娇小/一つ前の質問に返回"
		SIF RESULT >= 2
			RESULT = 99
	ELSEIF TALENT:ARG:伪娘
		CALL PRINT_SELECT, "凄い娇小/娇小/普通/一つ前の質問に返回"
		SIF RESULT >= 3
			RESULT = 99
	ELSE
		CALL PRINT_SELECT, "凄い娇小/娇小/普通/高大/凄い高大/一つ前の質問に返回"
	ENDIF
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:娇小 = 2
		MEMO_TALENT:QNUM += @"素質,娇小,2,+"
	CASE 1
		TALENT:ARG:娇小 = 1
		MEMO_TALENT:QNUM += @"素質,娇小,1,+"
	CASE 2
	CASE 3
		TALENT:ARG:高大 = 1
		MEMO_TALENT:QNUM += @"素質,高大,1,+"
	CASE 4
		TALENT:ARG:高大 = 2
		MEMO_TALENT:QNUM += @"素質,高大,2,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 4
	IF TALENT:ARG:萝莉老太婆 == 0
		TFLAG:指令中止 = 0
		TALENT:ARG:外見年齢 = 0
		IF TALENT:ARG:伪娘
			PRINTFORML 外見年齢はどんなもんですか？
			CALL PRINT_SELECT, "兒童/高校生ぐらい/一つ前の質問に返回"
			SIF RESULT >= 2
				RESULT = 99
		ELSE
			PRINTFORML 外見年齢はどんなもんですか？
			CALL PRINT_SELECT, "兒童/高校生ぐらい/大学生ぐらい/大人/一つ前の質問に返回"
		ENDIF
		SELECTCASE RESULT
		CASE 0 TO 3
			TALENT:ARG:外見年齢 = RESULT + 1
			MEMO_TALENT:QNUM += @"素質,外見年齢,{RESULT + 1},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 5
	TFLAG:指令中止 = 0
	TALENT:ARG:性器年齢 = 0
	PRINTFORML 性器の見た目はどんなもんでしょうか？
	CALL PRINT_SELECT, "美しい/普通/やや黑色/黒め/真っ黒/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0 TO 4
		TALENT:ARG:性器年齢 = RESULT + 1
		MEMO_TALENT:QNUM += @"素質,性器年齢,{RESULT + 1},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 6
	;女性でも具現があるので値が入力されている
	TALENT:ARG:阴茎 = 1
	IF PENIS(ARG)
		TFLAG:指令中止 = 0
		PRINTFORML 阴茎尺寸はどんなもんですか？
		CALL PRINT_SELECT, "短小/普通/巨根/馬根/腕粗/規格外/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0 TO 5
			TALENT:ARG:阴茎 = RESULT
			MEMO_TALENT:QNUM += @"素質,阴茎,{RESULT},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 7
	;女性でも具現があるので値が入力されている
	TALENT:ARG:包茎 = 0
	IF PENIS(ARG)
		TFLAG:指令中止 = 0
		PRINTFORML 包茎具合はどんなもんですか？
		CALL PRINT_SELECT, "露茎/假性/真性/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
		CASE 1 TO 2
			TALENT:ARG:包茎 = RESULT
			MEMO_TALENT:QNUM += @"素質,包茎,{RESULT},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 8
	TALENT:ARG:巨乳 = 0
	TALENT:ARG:貧乳 = 0
	TALENT:ARG:乳房 = 0
	IF TALENT:ARG:男性 == 0
		TFLAG:指令中止 = 0
		TALENT:ARG:乳房 = 1
		PRINTFORML 胸のサイズはどんなもんですか？
		CALL PRINT_SELECT, "貧乳/普通/巨乳/爆乳/超乳/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
			TALENT:ARG:貧乳 = 1
			MEMO_TALENT:QNUM += @"素質,貧乳,1,+"
		CASE 1
		CASE 2 TO 4
			TALENT:ARG:巨乳 = RESULT - 1
			MEMO_TALENT:QNUM += @"素質,巨乳,{RESULT - 1},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 9
	TFLAG:指令中止 = 0
	TALENT:ARG:乳頭肥大 = 0
	PRINTFORML 乳頭の尺寸はどんなもんですか？
	CALL PRINT_SELECT, "普通/ＬＶ１/ＬＶ２/ＬＶ３/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
	CASE 1 TO 3
		TALENT:ARG:乳頭肥大 = RESULT
		MEMO_TALENT:QNUM += @"素質,乳頭肥大,{RESULT},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 10
	TFLAG:指令中止 = 0
	TALENT:ARG:陥没乳頭 = 0
	PRINTFORML 陥没乳頭ですか？
	CALL PRINT_SELECT, "否/假性陥没/真性陥没/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
	CASE 1 TO 2
		TALENT:ARG:陥没乳頭 = RESULT
		MEMO_TALENT:QNUM += @"素質,陥没乳頭,{RESULT},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 11
	TFLAG:指令中止 = 0
	TALENT:ARG:巨乳輪 = 0
	PRINTFORML 乳輪の尺寸はどんなもんですか？
	CALL PRINT_SELECT, "普通/ＬＶ１/ＬＶ２/ＬＶ３/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
	CASE 1 TO 3
		TALENT:ARG:巨乳輪 = RESULT
		MEMO_TALENT:QNUM += @"素質,巨乳輪,{RESULT},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 12
	TALENT:ARG:陰核肥大 = 0
	IF PENIS(ARG) == 0
		TFLAG:指令中止 = 0
		PRINTFORML 陰核の尺寸はどんなもんですか？
		CALL PRINT_SELECT, "普通/ＬＶ１/ＬＶ２/ＬＶ３/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
		CASE 1 TO 3
			TALENT:ARG:陰核肥大 = RESULT
			MEMO_TALENT:QNUM += @"素質,陰核肥大,{RESULT},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 13
	TALENT:ARG:陰核包茎 = 0
	IF PENIS(ARG) == 0
		TFLAG:指令中止 = 0
		PRINTFORML 陰核の包茎具合はどんなもんですか？（通常は假性です）
		CALL PRINT_SELECT, "露茎/假性/真性/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
		CASE 1 TO 2
			TALENT:ARG:陰核包茎 = RESULT
			MEMO_TALENT:QNUM += @"素質,陰核包茎,{RESULT},+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 14
	TALENT:ARG:苗条 = 0
	TALENT:ARG:豐腴 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 身体の太さはどんなもんでしょう？
	CALL PRINT_SELECT, "苗条/普通/ぽっちゃり/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:苗条 = 1
		MEMO_TALENT:QNUM += @"素質,苗条,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:豐腴 = 1
		MEMO_TALENT:QNUM += @"素質,豐腴,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 15
	TALENT:ARG:小尻 = 0
	TALENT:ARG:巨尻 = 0
	TFLAG:指令中止 = 0
	PRINTFORML お尻の尺寸はどんなもんでしょう？
	CALL PRINT_SELECT, "小さい/普通/巨尻/爆尻/超尻/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:小尻 = 1
		MEMO_TALENT:QNUM += @"素質,小尻,1,+"
	CASE 1
	CASE 2 TO 4
		TALENT:ARG:巨尻 = RESULT - 1
		MEMO_TALENT:QNUM += @"素質,巨尻,{RESULT - 1},+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 16
	TALENT:ARG:容易濕 = 0
	TALENT:ARG:不易濕 = 0
	IF TALENT:ARG:男性 == 0
		TFLAG:指令中止 = 0
		PRINTFORML 湿的やすさはどんなもんでしょう？
		CALL PRINT_SELECT, "容易濕/普通/不易濕/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
			TALENT:ARG:容易濕 = 1
			MEMO_TALENT:QNUM += @"素質,容易濕,1,+"
		CASE 1
		CASE 2
			TALENT:ARG:不易濕 = 1
			MEMO_TALENT:QNUM += @"素質,不易濕,1,+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 17
	TALENT:ARG:早漏 = 0
	TALENT:ARG:遅漏 = 0
	IF PENIS(ARG)
		TFLAG:指令中止 = 0
		PRINTFORML 早漏ですか？遅漏ですか？
		CALL PRINT_SELECT, "早漏/どちらでもない/遅漏/一つ前の質問に返回"
		SELECTCASE RESULT
		CASE 0
			TALENT:ARG:早漏 = 1
			MEMO_TALENT:QNUM += @"素質,早漏,1,+"
		CASE 1
		CASE 2
			TALENT:ARG:遅漏 = 1
			MEMO_TALENT:QNUM += @"素質,遅漏,1,+"
		CASEELSE
			TFLAG:指令中止 = 1
		ENDSELECT
	ENDIF
CASE 18
	TALENT:ARG:内気 = 0
	TALENT:ARG:強気 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 内気ですか？強気ですか？
	CALL PRINT_SELECT, "内気/どちらでもない/強気/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:内気 = 1
		MEMO_TALENT:QNUM += @"素質,内気,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:強気 = 1
		MEMO_TALENT:QNUM += @"素質,強気,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 19
	TALENT:ARG:坦率 = 0
	TALENT:ARG:傲慢 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 坦率ですか？傲慢ですか？
	CALL PRINT_SELECT, "坦率/どちらでもない/傲慢/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:坦率 = 1
		MEMO_TALENT:QNUM += @"素質,坦率,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:傲慢 = 1
		MEMO_TALENT:QNUM += @"素質,傲慢,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 20
	TALENT:ARG:高慢 = 0
	TALENT:ARG:謙虚 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 高慢ですか？謙虚ですか？
	CALL PRINT_SELECT, "高慢/どちらでもない/謙虚/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:高慢 = 1
		MEMO_TALENT:QNUM += @"素質,高慢,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:謙虚 = 1
		MEMO_TALENT:QNUM += @"素質,謙虚,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 21
	TALENT:ARG:開朗 = 0
	TALENT:ARG:冷静 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 開朗ですか？冷静ですか？
	CALL PRINT_SELECT, "開朗/どちらでもない/冷静/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:開朗 = 1
		MEMO_TALENT:QNUM += @"素質,開朗,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:冷静 = 1
		MEMO_TALENT:QNUM += @"素質,冷静,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 22
	TALENT:ARG:温柔 = 0
	TALENT:ARG:坏心眼 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 温柔ですか？坏心眼ですか？
	CALL PRINT_SELECT, "温柔/どちらでもない/坏心眼/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:温柔 = 1
		MEMO_TALENT:QNUM += @"素質,温柔,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:坏心眼 = 1
		MEMO_TALENT:QNUM += @"素質,坏心眼,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 23
	TALENT:ARG:好奇心 = 0
	TALENT:ARG:保守的 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 好奇心旺盛ですか？保守的ですか？
	CALL PRINT_SELECT, "好奇心旺盛/どちらでもない/保守的/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:好奇心 = 1
		MEMO_TALENT:QNUM += @"素質,好奇心,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:保守的 = 1
		MEMO_TALENT:QNUM += @"素質,保守的,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 24
	TALENT:ARG:贞操重视 = 0
	TALENT:ARG:不在乎貞操 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 贞操重视はどうですか？
	CALL PRINT_SELECT, "很强/普通/無い/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:贞操重视 = 1
		MEMO_TALENT:QNUM += @"素質,贞操重视,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:不在乎貞操 = 1
		MEMO_TALENT:QNUM += @"素質,不在乎貞操,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 25
	TALENT:ARG:害羞 = 0
	TALENT:ARG:不知羞恥 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 害羞が有些ますか？不知羞恥ですか？
	CALL PRINT_SELECT, "害羞が有る/どちらでもない/不知羞恥/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:害羞 = 1
		MEMO_TALENT:QNUM += @"素質,害羞,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:不知羞恥 = 1
		MEMO_TALENT:QNUM += @"素質,不知羞恥,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 26
	TALENT:ARG:容易迷恋 = 0
	TALENT:ARG:難以越過的底線 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 容易迷恋ですか？惚れにくいですか？
	CALL PRINT_SELECT, "容易迷恋/どちらでもない/惚れにくい/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:容易迷恋 = 1
		MEMO_TALENT:QNUM += @"素質,容易迷恋,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:難以越過的底線 = 1
		MEMO_TALENT:QNUM += @"素質,難以越過的底線,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 27
	TALENT:ARG:高贵 = 0
	TALENT:ARG:粗野 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 高贵が有ますか？それとも粗野ですか？
	CALL PRINT_SELECT, "高贵がある/どちらでもない/粗野/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:高贵 = 1
		MEMO_TALENT:QNUM += @"素質,高贵,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:粗野 = 1
		MEMO_TALENT:QNUM += @"素質,粗野,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 28
	TALENT:ARG:聰慧 = 0
	TALENT:ARG:笨蛋 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 聰慧ですか？笨蛋ですか？
	CALL PRINT_SELECT, "聰慧/どちらでもない/笨蛋/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:聰慧 = 1
		MEMO_TALENT:QNUM += @"素質,聰慧,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:笨蛋 = 1
		MEMO_TALENT:QNUM += @"素質,笨蛋,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASE 29
	TALENT:ARG:接受快感 = 0
	TALENT:ARG:否定快感 = 0
	TFLAG:指令中止 = 0
	PRINTFORML 接受快感ですか？それとも否定的ですか？
	CALL PRINT_SELECT, "接受快感/どちらでもない/快感に否定的/一つ前の質問に返回"
	SELECTCASE RESULT
	CASE 0
		TALENT:ARG:接受快感 = 1
		MEMO_TALENT:QNUM += @"素質,接受快感,1,+"
	CASE 1
	CASE 2
		TALENT:ARG:否定快感 = 1
		MEMO_TALENT:QNUM += @"素質,否定快感,1,+"
	CASEELSE
		TFLAG:指令中止 = 1
	ENDSELECT
CASEELSE
	PRINTW とりあえずここまで
	RETURN 1
ENDSELECT

IF TFLAG:指令中止
	TFLAG:页数 -= 1
ELSE
	TFLAG:页数 += 1
ENDIF
CLEARLINE LINECOUNT - MEMO_LINECOUNT

RESTART


code:
;-------------------------------------------------
;Talk。とりあえず選んで様子を見る
;打招呼して無いならまず打招呼。そのあとはわりとてきとー
;-------------------------------------------------
@MESSAGE_DAILY_SELECT1
STR:日常イベント名 = %STR:選択肢%

SELECTCASE DAILYCOMNAME(1)
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "果然还是算了"
		STR:日常イベント名 =
		RETURN 0
	CASE "雑談"
		STR:日常イベント名 = Talk
	CASE "和大家雑談"
		STR:日常イベント名 = Talk
		FLAG:対複数 = 1
	CASE "性処理相談"
		CALL CHECK_COM_ABLE, TARGET
		CALL SETFLAG, "性処理でのPLAY内容", TARGET
		STR:日常イベント名 =
		RETURN 0
	ENDSELECT
CASE "打招呼"
	SELECTCASE STR:日常イベント名
	CASE "拥抱打招呼"
		STR:日常イベント名 = 打招呼ハグ
	CASE "用接吻打招呼"
		STR:日常イベント名 = 打招呼接吻
	CASE "对着股间打招呼"
		IF PENIS(TARGET)
			STR:日常イベント名 = 打招呼口交
		ELSE
			STR:日常イベント名 = 打招呼舐陰
		ENDIF
	CASE "向大家打招呼する"
		STR:日常イベント名 = 打招呼
		FLAG:対複数 = 1
	CASEELSE
		STR:日常イベント名 = 打招呼
	ENDSELECT
CASEELSE
	STR:日常イベント名 = %DAILYCOMNAME(1)%
ENDSELECT

@TEXT_SELECT_DAILY1
STR:選択肢 =
STR:禁止選択肢 =

SELECTCASE DAILYCOMNAME(1)
CASE "Talk"
	;口上側で選択肢を自由に作ることができる
	TRYCALLFORM DAILY1_K{NO:TARGET}_ADDSELECT
	STR:追加選択肢 = /%STR:選択肢%

	STR:選択肢 += "雑談/"
	SIF CHARA_NUM("室内の邪魔者")
		STR:選択肢 += "和大家雑談/"

	SIF COND("性処理中")
		STR:選択肢 += "性処理相談/"

	;IF COND("性騷擾雑談可能")
	;	SIF TALENT:乳房
	;		STR:選択肢 += "胸を揉みながら雑談/"
	;	STR:選択肢 += "股間を弄りながら雑談/"
	;ENDIF
	;SIF TALENT:好色 || TALENT:淫乱 || ABL:欲望 >= 5
	;	STR:選択肢 += "Ｈ的話をする/"
	SIF COND("甜言蜜语可能")
		STR:選択肢 += "甜言蜜语/"
	SIF COND("夸奖可能")
		STR:選択肢 += "夸奖/"
	SIF CFLAG:夸奖 == 0 && COND("点心を亲手自制した")
		STR:選択肢 += "夸奖点心/"
CASE "打招呼"
	STR:選択肢 = 打招呼/
	SIF CHARA_NUM("打招呼していない") >= 2
		STR:選択肢 += "向大家打招呼する/"
	STR:選択肢 += "拥抱打招呼/"
	SIF COND("合意：接吻") && FIRSTCOM(TNUM("接吻") )
		STR:選択肢 += "用接吻打招呼/"
	SIF COND("性別嫌悪") == 0 && CHECK_OUTER("休闲褲") == 0
		STR:選択肢 += "对着股间打招呼/"
ENDSELECT

CALL SELECT_BAN

;-------------------------------------------------
;ここにはセリフのみを置く
;-------------------------------------------------
@MESSAGE_DAILY1
SIF TFLAG:地の文スキップ
	RETURN 0
SELECTCASE STR:日常イベント名
CASE "叫醒"
	;汚した？
	IF COND("着衣の乱れ")
		PRINTFORMW 把乱掉的衣服整理好隠滅証拠的%CALLNAME:MASTER%、温柔地摇了摇%CALLNAME:TARGET%的肩、让她醒了过来。
	ELSEIF EXP_GAIN("睡眠悪戯経験") + EXP_GAIN("睡眠姦経験")
		PRINTFORMW 已经充分享受完了的%CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ENDIF
CASE "打招呼ハグ"
	PRINTFORMW %CALLNAME:MASTER%用以拥抱的方式向%CLO("現在的格好＆の")%%CALLNAME:TARGET%\@ CFLAG:打招呼した ? 回应了问候 # 打了招呼 \@。
CASE "打招呼接吻"
	PRINTFORMW %CALLNAME:MASTER%用亲吻的方式向%CALLNAME:TARGET%\@ CFLAG:打招呼した ? 回应了问候 # 打了招呼 \@。
CASE "打招呼口交"
	PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%前跪下、用亲吻阴茎的方式\@ CFLAG:打招呼した ? 回应了问候 # 打了招呼 \@。
CASE "打招呼舐陰"
	PRINTFORM %CALLNAME:MASTER%把脸埋进%CALLNAME:TARGET%的股間、
	IF CHECK_CLO("Ｖ露出")
		PRINTFORM 全部剥開的
	ELSEIF CHECK_OUTER("布鲁马")
		PRINTFORM 隔着布鲁马
	ELSEIF CHECK_CLO("连褲襪露出")
		PRINTFORM 连褲襪越しの
	ELSEIF CHECK_CLO("贴身制服露出") || CHECK_CLO("外套露出")
		PRINTFORM 隔着股布
	ELSEIF EQUIP:胖次
		PRINTFORM 隔着%PANTIES(TARGET, "胖次")%
	ENDIF
	PRINTFORMW 用亲吻阴部的方式\@ CFLAG:打招呼した ? 回应了问候 # 打了招呼 \@。
CASE "打招呼"
	IF FLAG:対複数
		PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%她们\@ CFLAG:打招呼した ? 回应了 # 打了 \@招呼。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%\@ CFLAG:打招呼した ? 回应了 # 打了 \@招呼。
	ENDIF
CASE "甜言蜜语"
	SELECTCASE CONDS("直前行動")
	CASE "從後面抱住"
		PRINTFORM %CALLNAME:MASTER%將身體貼了過去、自然地
	CASE "撫摸頭髮"
		PRINTFORM %CALLNAME:MASTER%撫摸著頭髮的同時、自然地
	CASE "把手放在大腿上"
		PRINTFORM %CALLNAME:MASTER%一邊撫摸著大腿、一邊自然地
	CASEELSE
		PRINTFORM %CALLNAME:MASTER%雑談し的同时、%TEXTR("自然な流れで/隙を突いて/折を見て")%
	ENDSELECT
	IF TALENT:单相思 || TALENT:相思相愛
		PRINTFORMW 向%CALLNAME:TARGET%%TEXTR("坦诚地表达了自己的心意/诉说爱意/表达了好意")%。
	ELSE
		PRINTFORMW 向%CALLNAME:TARGET%%TEXTR("诉说甜言蜜语/诉说爱意/表达了好意")%。
	ENDIF
CASE "夸奖点心"
	PRINTFORMW %CALLNAME:MASTER%夸奖了%CALLNAME:TARGET%亲手做的%TEXTS("点心")%。
CASE "夸奖"
	SELECTCASE CONDS("直前行動")
	CASE "给对方剃毛"
		PRINTFORM %CALLNAME:MASTER%一边%TEXTR("用手掌抚摸着刚刚剃干净的下腹部/用手抚平刚刚剃好毛发的股间/用手指划过刚刚处理干净的滑溜溜的阴唇")%、
		PRINTFORMW 一边夸奖起%CALLNAME:TARGET%那里%TEXTR("舒服的触感/漂亮的样子/健康的样子")%。
		RETURN 1
	CASE "從後面抱住"
		PRINTFORM %CALLNAME:MASTER%將身體貼了過去、自然地對%CALLNAME:TARGET%
	CASE "撫摸頭髮"
		PRINTFORM %CALLNAME:MASTER%撫摸著頭髮的同時、自然地對%CALLNAME:TARGET%
	CASE "把手放在大腿上"
		PRINTFORM %CALLNAME:MASTER%一邊撫摸著大腿、一邊自然地對%CALLNAME:TARGET%
	CASEELSE
		PRINTFORM %CALLNAME:MASTER%一边雑談着、%TEXTR("自然地把话题引了过去/突入了破绽/看准了机会")%将%CALLNAME:TARGET%
	ENDSELECT
	IF CFLAG:Cosplay中
		PRINTFORMW 的%CLO("現在的格好")%夸奖了一番。
	ELSE
		PRINTFORMW 夸奖了一番。
	ENDIF
CASE "Ｈ的話をする"
	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%とＨ的说着话。
;CASE "胖次の話"
;	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に胖次の色を訊ねてみた。
CASE "胸を揉みながら雑談"
	PRINTFORMW %CALLNAME:MASTER%一边揉着%CALLNAME:TARGET%的胸部一边開始了雑談。
CASE "股間を弄りながら雑談"
	PRINTFORMW %CALLNAME:MASTER%一边轻撫%CALLNAME:TARGET%的股間一边開始了雑談。
CASE "Talk"
	IF FLAG:対複数
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%们快乐地雑談着。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%雑談着。
	ENDIF
ENDSELECT

;-------------------------------------------------
;主に胖次の描写などをする。STR:日常イベント名 は決定後。
;-------------------------------------------------
@AFTERMESSAGE_DAILY1
SELECTCASE STR:日常イベント名
CASE "打招呼舐陰", "打招呼口交"
	CALL SETFLAG_DAILY, STR:日常イベント名
	SIF COND("胖次形状確認") || CHECK_CLO("胖次露出") == 0
		RETURN 0

	IF EQUIP:胖次 == 0
		SIF EQUIP:裙
			CALL TEXT_PANTU_CHECK, SKIRT(TARGET)
	ELSEIF CHECK_OUTER("布鲁马") == 0 && CHECK_CLO("贴身制服露出") == 0
		CALL TEXT_PANTU_CHECK_SHORT
	ENDIF
ENDSELECT


code:
;-------------------------------------------------
;もて无。茶を入れたり汗を拭いてあげたり、相手のために行う行動です
;だが寝てたら悪戯する
;-------------------------------------------------
@MESSAGE_DAILY_SELECT2
;相手が寝ている
IF CFLAG:睡眠
	;起きうるイベントの判定に使う
	STR:選択肢 =
	STR:禁止選択肢 =

	IF COND("熟睡")
		PRINTFORMW 对着看上去好像睡的很舒服的%CALLNAME:TARGET%进行恶作剧。
		PRINTFORM %CALLNAME:TARGET%深沉地呼吸着……看来不会轻易就醒过来的样子
	ELSEIF COND("打瞌睡")
		PRINTFORMW 对着看上去好像睡的很舒服的%CALLNAME:TARGET%进行恶作剧。
		PRINTFORM %CALLNAME:TARGET%平穏地沉浸在梦乡里……
	ELSE
		PRINTFORMW 对%CALLNAME:TARGET%恶作剧也不是不行……不过看上去好像睡的很浅。
		PRINTFORM ……看上去好像马上就要醒过来的样子
	ENDIF
	PRINTFORMW (睡眠深度{CFLAG:睡眠 - 1}LV)

	;口上側で選択肢を自由に作ることができる
	TRYCALLFORM DAILY2_SLEEP_K{NO:TARGET}_ADDSELECT

	;２回目以降
	IF CHOSE_DEVENT("睡眠姦接吻")
		STR:選択肢 += "再び接吻/"
	ELSE
		STR:選択肢 += "接吻/"
	ENDIF
	IF PENIS(MASTER) && BASE:MASTER:精力 >= 30 && BASE:MASTER:魂 >= 100
		IF EXP_GAIN("睡眠姦経験") && CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ", "Ａ", "精液")
			STR:選択肢 += "把汚臭的阴茎插进睡着的嘴里/"
		ELSE
			STR:選択肢 += "插进睡着的嘴里/"
		ENDIF
		IF TALENT:処女 == 0 && TALENT:男性 == 0 && FIRSTCOMS("Ｖ挿入")
			IF INSERT("正常位")
				STR:選択肢 += "继续用正常位侵犯/这次用睡眠后背位侵犯/"
			ELSEIF INSERT("後背位")
				STR:選択肢 += "这次用正常位侵犯/继续用睡眠后背位侵犯/"
			ELSE
				STR:選択肢 += "用正常位侵犯/用睡眠后背位侵犯/"
			ENDIF
		ENDIF
		SIF PENIS(TARGET) && FIRSTCOM(TNUM("舐陰莖") )
			STR:選択肢 += "口交/"
	ENDIF
	STR:選択肢 += "果然还是算了/"

	CALL SELECT_BAN

	VARSET LOCALS
	SPLIT STR:選択肢, "/", LOCALS
	CALL PRINT_SELECT, STR:選択肢

	IF STRCOUNT(LOCALS:RESULT, "接吻")
		STR:日常イベント名 = 睡眠姦接吻
	ELSEIF STRCOUNT(LOCALS:RESULT, "插进睡着的嘴里")
		STR:日常イベント名 = 睡眠姦口交
	ELSEIF STRCOUNT(LOCALS:RESULT, "舐陰莖")
		STR:日常イベント名 = 睡眠姦逆口交
	ELSEIF STRCOUNT(LOCALS:RESULT, "正常位侵犯")
		STR:日常イベント名 = 睡眠姦正常位
	ELSEIF STRCOUNT(LOCALS:RESULT, "后背位睡姦侵犯")
		STR:日常イベント名 = 睡眠姦寝后背位
	ELSEIF STRCOUNT(LOCALS:RESULT, "果然还是算了")
		STR:日常イベント名 =
		RETURN 0
	ELSE
		STR:日常イベント名 = %LOCALS:RESULT%
	ENDIF
	RETURN 1
ENDIF

STR:日常イベント名 = %STR:選択肢%

SELECTCASE STR:日常イベント名
CASE "果然还是算了"
	STR:日常イベント名 =
	RETURN 0
CASE "泡茶"
	SIF CHARA_NUM("室内の邪魔者")
		FLAG:対複数 = 1
CASE "勸酒"
	SIF CHARA_NUM("室内の邪魔者")
		FLAG:対複数 = 1
CASE "送一份礼物"
	PRINTFORML 你现在有%MONEY_C(MONEY)%……打算送什么样的礼物？
	PRINTFORML (１$相当于现代货币里的10日元)
	STR:選択肢 =
	SIF MONEY >= 10
		STR:選択肢 += @"小礼物　　　（%MONEY_C(10)%）/"
	SIF MONEY >= 200
		STR:選択肢 += @"普通的礼物（%MONEY_C(200)%）/"
	SIF MONEY >= 10000
		STR:選択肢 += @"高价的礼物　　　（%MONEY_C(10000)%）/"
	STR:選択肢 += "果然还是算了/"
	VARSET LOCALS
	SPLIT STR:選択肢, "/", LOCALS
	CALL PRINT_SELECT, STR:選択肢
	SELECTCASE LOCALS:RESULT
	CASE "果然还是算了"
		STR:日常イベント名 =
		RETURN 0
	CASE @"小礼物　　　（%MONEY_C(10)%）"
		STR:日常イベント名 = 送一份小礼物
	CASE @"普通的礼物（%MONEY_C(200)%）"
		STR:日常イベント名 = 送一份普通的礼物
	CASE @"高价的礼物　　　（%MONEY_C(10000)%）"
		STR:日常イベント名 = 送一份高价的礼物
	ENDSELECT
	CFLAG:送禮渡し済 = 1
CASE "做爱部"
	CALL EVENT_LOVEORG
CASE "忏悔室"
	CALL EVENT_CONFESS
CASE "泡温泉"
	CALL EVENT_ONSEN
CASE "测试路人授精"
	CALL TEST_NTR
;CASE "便利店店员"
;	CALL TEST_NINSHIN_1
;CASE "公园厕所中不认识的男人"
;	CALL TEST_NINSHIN_2
CASE "测试"
	CALL NTR_TRAIN_TEST
;CASE "ADD"
;	CALL TEST_ADD
;CASE "SUB"
;	CALL TEST_SUB
;CASE "NUM"
;	CALL TEST_COUNT
ENDSELECT

@TEXT_SELECT_DAILY2
STR:選択肢 =
STR:禁止選択肢 =

;口上側で選択肢を自由に作ることができる
TRYCALLFORM DAILY2_K{NO:TARGET}_ADDSELECT
STR:追加選択肢 = /%STR:選択肢%

SIF COND("给对方剃毛出現")
	STR:選択肢 += "给对方剃毛/"

SIF COND("哺乳可能")
	STR:選択肢 += "哺乳/"

IF COND("湿透")
	STR:選択肢 += "擦身体/"
ELSEIF COND("浑身是汗") || COND("易出汗")
	STR:選択肢 += "拭汗/"
ENDIF
SIF CHECK_CLO("谷間露出") && CHECK_BODYS("兔") && CHOSE_DEVENT("给小费") == 0 && MONEY >= 300
	STR:選択肢 += "给小费/"
SIF CFLAG:茶 == 0
	STR:選択肢 += "泡茶/"
SIF PLACE("自宅") && STATE("酔酒", TARGET) == 0 && MONEY >= (CHARA_NUM("現在存在") + 1)*500
	STR:選択肢 += "勸酒/"

SIF COND("你の胖次に興味有") && COND("自発展示内褲可能", MASTER)
	STR:選択肢 += "露出胖次/"

SIF PLACE("勉強可能") && COND("勉強可能")
	STR:選択肢 += "一起学习/"
;恋慕優遇の試み
IF TALENT:恋慕
	SIF CFLAG:坐在旁邊 == 0
		STR:選択肢 += "坐在旁邊/"
	SIF CFLAG:坐在旁邊 && COND("脚が無い") == 0
		STR:選択肢 += "把手放在大腿上/"
	STR:選択肢 += "從後面抱住/"
ENDIF

STR:選択肢 += "按摩/膝枕/"
SIF COND("撫摸頭髮可能")
	STR:選択肢 += "撫摸頭髮/"
SIF TALENT:叛逆 == 0 && (COND("教師") == 0 || TALENT:恋慕)
	STR:選択肢 += "摸頭/"
SIF COND("合意：接吻") && FIRSTCOM(TNUM("接吻") )
	STR:選択肢 += "接吻/"
SIF TALENT:男性 == 0
	STR:選択肢 += "托一托胸部/"
SIF TALENT:尾巴
	STR:選択肢 += "抚摸尾巴/"
SIF MONEY >= 10 && TALENT:叛逆 == 0 && CFLAG:送禮渡し済 == 0
	STR:選択肢 += "送一份礼物/"
SIF CONFIG("路人Ｈ")&&SAVESTR:現在位置 == "部室" && TALENT:女性
	STR:選択肢 += "做爱部/"
SIF CONFIG("路人Ｈ")&&SAVESTR:現在位置 == "部室" && TALENT:女性 && CEVENT("特别忏悔室_建造许可",MASTER)
	STR:選択肢 += "忏悔室/"
SIF CONFIG("路人Ｈ")&&SAVESTR:現在位置 == "温泉街" && TALENT:女性
	STR:選択肢 += "泡温泉/"
;STR:選択肢 += "测试路人授精/"
;STR:選択肢 += "公园厕所中不认识的男人/"\
SIF CEVENT("做爱部成员", TARGET)
	; STR:選択肢 += "测试/"
;STR:選択肢 += "ADD/"
;STR:選択肢 += "SUB/"
;STR:選択肢 += "NUM/"
CALL SELECT_BAN

;-------------------------------------------------
;ここにはセリフのみを置く
;-------------------------------------------------
@MESSAGE_DAILY2
#DIMS TEXT_HAIR
SIF TFLAG:地の文スキップ
	RETURN 0

SELECTCASE STR:日常イベント名
CASE "给对方剃毛"
	IF FLAG:二人きり
		PRINTFORM %CALLNAME:MASTER%紧紧地盯着%CALLNAME:TARGET%的股间、趁着现在正好只有两个人
	ELSEIF TALENT:不知羞恥
		PRINTFORM 紧紧地盯着股间的%CALLNAME:MASTER%、虽然有其他人的但是%CALLNAME:TARGET%好像也太在意的样子
	;それ以外は露出PLAYの合意持ち
	ELSEIF COND("合意：露出PLAY")
		PRINTFORM %CALLNAME:MASTER%紧紧地盯着%CALLNAME:TARGET%的股间、虽然有其他人在但是已经得到了[露出PLAY]的合意
	;ここには来ないはず
	ELSE
		PRINTFORM %CALLNAME:MASTER%紧紧地盯着%CALLNAME:TARGET%的股间、因为还有其他人在所以还是算了好了
	ENDIF
	PRINTFORM 因此
	SELECTCASE CONDS("陰毛")
	CASE "剃过留痕"
		PRINTFORM 将股间显眼的[剃过留痕]
	CASE "刺啦刺啦"
		PRINTFORM 将[刺啦刺啦]的股間毛
	CASE "無髭"
		PRINTFORM 将[無髭]状態的下面的毛
	CASE "还没長出来"
		PRINTFORM 将[还没長出来]的陰毛
	CASE "保养完毕"
		IF CEVENT("陰毛の名称")
			PRINTFORM 将周围留下了显眼的剃过的痕迹的[%CEVENTS("陰毛の名称")%]的阴毛
		ELSE
			PRINTFORM 将周围留下了显眼的剃过的痕迹的[保养完毕]的阴毛
		ENDIF
		PRINTFORMW 给整理好了。
		RETURN 1
	CASEELSE
		PRINTFORM 将下面的毛
	ENDSELECT
	PRINTFORMW 漂亮地处理干净了。
CASE "露出胖次"
	CALL SETFLAG_DAILY, "掀起裙子", MASTER
	IF CONDS("直前行動") == STR:日常イベント名
		CALL PRINT_CUTIN, "胖次正面", MASTER
		PRINTFORM %CALLNAME:MASTER%
		PRINTFORM %TEXTR("抬起一边的大腿打開股间/张開大腿/向左右两边张開双腿")%让%CALLNAME:TARGET%
		IF EQUIP:MASTER:胖次 == 0 || CHECK_PANTIES("Ｖ露出", MASTER)
			PRINTFORMW 持续地欣赏自己的股間。
		ELSE
			PRINTFORMW 持续地欣赏自己的%PANTIES(MASTER, "胖次")%。
		ENDIF
	ELSE
		CALL PRINT_CUTIN, "見たまま正面", MASTER
		PRINTFORM %CALLNAME:MASTER%
		SELECTCASE CONDS("直前行動")
		CASE "甜言蜜语"
			PRINTFORM 一边嗫嚅着甜蜜的话语、
		CASE "夸奖"
			PRINTFORM 一边进行着称赞、
		ENDSELECT
		PRINTFORM 一边%TEXTR("用自然的动作/毫无防备地/故意诱导着视线")%%TEXTR("打開双腿/张開股间/向左右两边张開双腿")%让%CALLNAME:TARGET%
		IF EQUIP:MASTER:胖次 == 0 || CHECK_PANTIES("Ｖ露出", MASTER)
			PRINTFORMW 欣赏自己的股間。
		ELSE
			PRINTFORMW 欣赏自己的%PANTIES(MASTER, "胖次")%。
		ENDIF
	ENDIF

CASE "哺乳"
	PRINTFORM %CALLNAME:TARGET%將
	SELECTCASE CHOSE_DEVENT("哺乳")
	CASE IS >= 3
		PRINTFORM %TEXTR("再一次/完全沒有收斂的意思/再次再次再次")%
	CASE 2
		PRINTFORM %TEXTR("再一次/再度/再次再次")%
	CASE 1
		PRINTFORM %TEXTR("再一次/再度/再次")%
	CASEELSE
		SIF CHOSE_DEVENT("兒童に胸部")
			PRINTFORM 自己也
	ENDSELECT
	PRINTFORMW 表達了想要母乳的慾望。
CASE "送一份小礼物"
	PRINTFORMW %CALLNAME:MASTER%送了%TEXTS("行動継続中の")%%CALLNAME:TARGET%一件小礼物。
CASE "送一份普通的礼物"
	PRINTFORMW %CALLNAME:MASTER%送了%TEXTS("行動継続中の")%%CALLNAME:TARGET%一件礼物。
CASE "送一份高价的礼物"
	PRINTFORMW %CALLNAME:MASTER%送了%TEXTS("行動継続中の")%%CALLNAME:TARGET%一件相当贵的礼物。
CASE "把手放在大腿上"
	SELECTCASE CONDS("直前行動")
	CASE "甜言蜜语"
		PRINTFORM %CALLNAME:MASTER%一邊悄悄說著搭訕的話語、一邊
	CASE "夸奖"
		PRINTFORM %CALLNAME:MASTER%一邊說著讚美的話語、一邊享受著
	CASEELSE
		PRINTFORM %CALLNAME:MASTER%
	ENDSELECT
	PRINTFORM 坐在旁邊的%CALLNAME:TARGET%
	IF CONDS("直前行動") == STR:日常イベント名
		PRINTFORMW 的大腿的柔軟。
	ELSEIF CHECK_SKIRT("迷你")
		PRINTFORMW 短裙下的大腿。
	ELSE
		PRINTFORMW 的大腿觸感。
	ENDIF
CASE "坐在旁邊"
	PRINTFORMW %CALLNAME:MASTER%在%TEXTR("肩膀能夠相互觸碰/腳都能並在一起/感覺到對方的體溫")%的距離緊鄰著%CALLNAME:TARGET%坐了下來。
CASE "從後面抱住"
	PRINTFORMW %CALLNAME:MASTER%%TEXTR("從背後輕輕的抱住/從背後緊緊地抱住/從後面環抱住")%%CALLNAME:TARGET%。
CASE "撫摸頭髮"
	SELECTCASE CONDS("直前行動")
	CASE "甜言蜜语"
		PRINTFORM %CALLNAME:MASTER%一邊悄悄說著搭訕的話語、一邊
		SIF CFLAG:甜言蜜语
			PRINTFORM %TEXTR("用自然的動作/撫摸著装出一副不在意的表情的/撫摸著害羞的")%
		PRINTFORM %CALLNAME:TARGET%的
	CASE "夸奖"
		PRINTFORM %CALLNAME:MASTER%一邊說著讚美的話語、一邊享受著
		SIF CFLAG:夸奖
			PRINTFORM %TEXTR("用自然的動作/撫摸著装出一副不在意的表情的/撫摸著放鬆了臉頰的")%
		PRINTFORM %CALLNAME:TARGET%的
	CASE "坐在旁邊"
		PRINTFORM 坐在%CALLNAME:MASTER%旁邊的%CALLNAME:TARGET%的
	CASE "從後面抱住"
		PRINTFORM %CALLNAME:MASTER%保持著從後面抱住的狀態、撫摸起%CALLNAME:TARGET%
	CASE "膝枕"
		PRINTFORM %CALLNAME:MASTER%一邊進行著膝枕一邊撫摸%CALLNAME:TARGET%的
	CASEELSE
		PRINTFORM %CALLNAME:MASTER%撫摸著%TEXTS("行動継続中の")%%CALLNAME:TARGET%的
	ENDSELECT

	TEXT_HAIR =
	SELECTCASE CONDS("髪長")
	CASE "長", "超長"
		SELECTCASE CONDS("髪色の種類")
		CASE "黒", "金", "銀", "白"
			TEXT_HAIR += @"長い%CONDS("髪色の種類")%髪/"
		CASEELSE
			TEXT_HAIR += "長い髪/"
		ENDSELECT
	ENDSELECT

	SELECTCASE CONDS("後髪")
	CASE "直髪"
		TEXT_HAIR += "サラサラの髪/"
	CASE "卷髪"
		TEXT_HAIR += "卷髪のかかった髪/"
	ENDSELECT

	SELECTCASE NONUM(CONDS("前髪") )
	CASE "散发", "乱髪"
		TEXT_HAIR += @"%NONUM(CONDS("前髪") )%髪\/"
	ENDSELECT

	IF STRCOUNT(CONDS("改髪"), "马尾辫")
		TEXT_HAIR += "马尾辫/"
	ELSEIF STRCOUNT(CONDS("改髪"), "ツイン")
		TEXT_HAIR += "双马尾/"
	ELSEIF STRCOUNT(CONDS("改髪"), "麻花辫")
		TEXT_HAIR += "麻花辫/"
	ENDIF
	SIF TEXT_HAIR == ""
		TEXT_HAIR = 髪
	PRINTFORMW %TEXTR(TEXT_HAIR)%%TEXTR("に手櫛を通し/を撫で/を温柔的弄っ")%た。

CASE "一起学习"
	IF TEXTS("行動継続中の") != ""
		IF COND("教員")
			PRINTFORMW %CALLNAME:MASTER%决定这次让%TEXTS("行動継続中の")%%CALLNAME:TARGET%教导自己学习。
		ELSEIF COND("学生") == 0
			PRINTFORMW %CALLNAME:MASTER%决定这次让%TEXTS("行動継続中の")%%CALLNAME:TARGET%看着自己学习。
		ELSE
			PRINTFORMW %CALLNAME:MASTER%邀请%TEXTS("行動継続中の")%%CALLNAME:TARGET%一起学习。
		ENDIF
	ELSEIF COND("教員")
		PRINTFORMW %CALLNAME:MASTER%被%CSTR:学年%的%CALLNAME:TARGET%指导着监督学习。
	ELSEIF COND("学生") == 0
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%一起学习。
	ELSEIF TALENT:MASTER:聰慧 && TALENT:聰慧
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%一边互相教对方一边一起学习。
	ELSEIF TALENT:MASTER:聰慧 || (TALENT:MASTER:笨蛋 == 0 && TALENT:笨蛋)
		PRINTFORMW %CALLNAME:MASTER%一边教%CALLNAME:TARGET%不会的地方一边一起学习。
	ELSEIF TALENT:聰慧
		PRINTFORMW %CALLNAME:MASTER%一边被%CALLNAME:TARGET%指导、一边一起学习。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%一起学习。
	ENDIF
CASE "给小费"
	CALL PRINT_CUTIN, "兔チップ", TARGET
	PRINTFORM %CALLNAME:MASTER%撫摸著%TEXTS("行動継続中の")%%CALLNAME:TARGET%的
	IF TALENT:貧乳 || TALENT:男性
		PRINTFORMW 兔女郎装和胸之間的空隙塞入了小费。
	ELSE
		PRINTFORMW 胸的谷間中塞入了小费。
	ENDIF

CASE "邀请"
	PRINTFORMW %CALLNAME:MASTER%答应了%CALLNAME:TARGET%的邀请。
CASE "泡茶"
	SAVESTR:茶 = 茶
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORMW %CALLNAME:MASTER%给房间里的全員泡了茶。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%给%CALLNAME:TARGET%泡了茶。
	ENDIF
CASE "勸酒"
	IF STATE("酔酒", TARGET)
		PRINTFORMW %CALLNAME:MASTER%继续向微醺状態的%CALLNAME:TARGET%\@ CHARA_NUM("現在存在") >= 2 ? 们 # \@进行劝酒。
	ELSEIF CEVENT("飲酒拒否")
		PRINTFORMW %CALLNAME:MASTER%试着向拒绝飲酒的%CALLNAME:TARGET%继续劝酒。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%让%CALLNAME:TARGET%\@ CHARA_NUM("現在存在") >= 2 ? 们 # \@把酒一饮而尽。
	ENDIF
CASE "擦身体"
	IF COND("出浴")
		PRINTFORMW %CALLNAME:MASTER%用毛巾擦拭了刚出浴的%CALLNAME:TARGET%的身体。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%用毛巾擦拭了%CALLNAME:TARGET%的身体。
	ENDIF
CASE "拭汗"
	PRINTFORM %CALLNAME:MASTER%%TEXTS("行動継続中の")%
	IF COND("浑身是汗")
		PRINTFORMW 细心擦拭了%CALLNAME:TARGET%全身的每一处的汗。
	ELSE
		PRINTFORMW 用毛巾擦拭了%CALLNAME:TARGET%的身体。
	ENDIF
CASE "舐陰奉仕する", "口交奉仕する"
	PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%提出要用口来奉仕。
CASE "按摩"
	SELECTCASE CONDS("直前行動")
	CASE "进行性処理", "拜托処理性欲", "帮忙消除性欲"
		PRINTFORMW %CALLNAME:MASTER%帮%TEXTS("行動継続中の")%%CALLNAME:TARGET%%TEXTR("的身体做了按摩/揉解了身体的僵硬")%
	CASEELSE
		PRINTFORMW %CALLNAME:MASTER%给%CLO("現在的格好＆の")%%CALLNAME:TARGET%%TEXTR("做了身体按摩/揉解了身体的劳累")%
	ENDSELECT
CASE "接吻"
	SELECTCASE CONDS("直前行動")
	CASE "接吻"
		PRINTFORMW %CALLNAME:MASTER%%TEXTR(@"搂住%CALLNAME:TARGET%并/拥抱着%CALLNAME:TARGET%/抓住了%CALLNAME:TARGET%的空隙")%吻了回去。
	CASE "托一托胸部"
		PRINTFORMW %CALLNAME:MASTER%一边%TEXTR("享受着手中的触感/下流地抚摸着胸部/继续着悪戯")%一边和%CALLNAME:TARGET%接吻了。
	CASE "從後面抱住"
		PRINTFORMW %CALLNAME:MASTER%%TEXTR("從背後緊緊地抱住/緊貼著對方的身體/一邊在對方的身體上磨蹭一邊")%和%CALLNAME:TARGET%進行了接吻。
	CASE "撫摸頭髮"
		PRINTFORMW %CALLNAME:MASTER%一邊撫摸著%CALLNAME:TARGET%的頭髮一邊進行了接吻。
	CASE "把手放在大腿上"
		PRINTFORMW %CALLNAME:MASTER%%TEXTR("享受著手中柔軟的觸感/下流地撫摸著大腿/繼續進行著惡作劇")%的同時和%CALLNAME:TARGET%進行了接吻。
	CASEELSE
		PRINTFORM %CALLNAME:MASTER%%TEXTS("行動継続中の")%
		PRINTFORMW 和%CALLNAME:TARGET%接吻了。
	ENDSELECT
CASE "膝枕"
	PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%提出了膝枕的要求。
CASE "摸頭"
	PRINTFORM %CALLNAME:MASTER%
	SELECTCASE CONDS("直前行動")
	CASE "夸奖"
		PRINTFORM 一邊說著讚美的話語、一邊
		SIF CFLAG:夸奖
			PRINTFORM %TEXTR("用自然的動作/撫摸著装出一副不在意的表情的/撫摸著放鬆了臉頰的")%
	CASE "膝枕"
		PRINTFORM 一邊進行著膝枕、一邊
	CASEELSE
		PRINTFORM %TEXTS("行動継続中の")%
	ENDSELECT
	IF CONDS("直前行動") == STR:日常イベント名
		PRINTFORMW 持續地撫摸%CALLNAME:TARGET%的頭。
	ELSE
		PRINTFORMW 摸了摸%CALLNAME:TARGET%的頭。
	ENDIF
CASE "托一托胸部"
	STR:PLAY内容 = 胸部
	IF CONDS("直前行動") == STR:日常イベント名
		IF CHECK_CLO("乳頭露出") && RAND:3
			IF TALENT:乳环 && RAND:2
				PRINTFORMW %CALLNAME:MASTER%玩弄着%CALLNAME:TARGET%乳頭上的乳环……
				STR:PLAY内容 = 乳环
			ELSEIF COND("巨乳輪") && RAND:2
				PRINTFORMW %CALLNAME:MASTER%持续地玩弄着%CALLNAME:TARGET%肥大的乳晕……
				STR:PLAY内容 = 巨乳輪
			ELSEIF COND("陥没乳頭")
				PRINTFORMW %CALLNAME:MASTER%持续地玩弄着%CALLNAME:TARGET%的陥没乳頭……
				STR:PLAY内容 = 陥没乳頭
			ELSE
				PRINTFORMW %CALLNAME:MASTER%持续地玩弄着%CALLNAME:TARGET%的乳頭……
				STR:PLAY内容 = 乳頭
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:MASTER%不停玩弄着%CALLNAME:TARGET%的胸……
		ENDIF
	;乳頭が露出している状況
	ELSEIF CHECK_CLO("乳頭露出") && (CHOSE_DEVENT(STR:日常イベント名) == 0 || RAND:2)
		PRINTFORM %CALLNAME:MASTER%把%CALLNAME:TARGET%的
		IF TALENT:貧乳 || TALENT:男性
			PRINTFORM 胸从下向上用手整个包住、
		ELSE
			PRINTFORM 胸部从下向上支撑着、
		ENDIF
		IF TALENT:乳环 && (CHOSE_DEVENT(STR:日常イベント名) == 0 || RAND:2)
			PRINTFORM %TEXTR("胸中央显眼的/贯穿乳頭的/装飾乳頭的")%
			IF CEVENT("乳环") && RAND:3
				PRINTFORM %CEVENTS("乳环")%の穿環
			ELSE
				PRINTFORM %TEXTR("乳环/闪着金属的光泽的乳环")%
			ENDIF
			PRINTFORMW を%TEXTR("用手指弹了一下/玩弄/轻轻地向外拉")%。
			STR:PLAY内容 = 乳环
		ELSEIF COND("巨乳輪") && RAND:2
			PRINTFORM 将%TEXTR("巨大的乳晕/圆圆的巨乳輪/强烈地强调着自己的存在的乳輪")%
			PRINTFORMW %TEXTR("来回抚摸着/用手指的肚子磨蹭着/用指尖温柔地搓弄着")%。
			STR:PLAY内容 = 巨乳輪
		ELSEIF COND("陥没乳頭")
			PRINTFORM 对着%TEXTR("陥没的乳頭/藏起来了脸的乳頭/在乳輪中央埋没的乳頭")%
			PRINTFORMW %TEXTR("来回抚摸着/玩弄着/用指尖温柔地搓弄着")%。
			STR:PLAY内容 = 陥没乳頭
		ELSE
			IF COND("乳頭肥大")
				PRINTFORM 将肥大的乳頭
			ELSE
				PRINTFORM 将圆圆的乳頭
			ENDIF
			IF RAND:3 == 0
				PRINTFORMW 用手指尖玩弄着。
			ELSE
				SIF TALENT:乳环
					PRINTFORM 連帶著金屬穿環
				IF RAND:2 == 0
					PRINTFORMW 用手指温柔地对待着。
				ELSE
					PRINTFORMW 用手指捏住了。
				ENDIF
			ENDIF
			STR:PLAY内容 = 乳頭
		ENDIF
	ELSE
		IF CHECK_SHIRT("水手服")
			PRINTFORM %CALLNAME:MASTER%从%CALLNAME:TARGET%的水手服的下摆把手伸进衣服、
		ELSE
			PRINTFORM %CALLNAME:MASTER%向%CALLNAME:TARGET%悄悄靠近、
		ENDIF
		IF TALENT:巨乳
			IF RAND:2 && CHOSE_DEVENT(STR:日常イベント名) == 0
				PRINTFORM %TOFULL(CONDS("罩杯") )%杯的%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%
			ELSE
				PRINTFORM 对着看上去很有分量的胸部
			ENDIF
			PRINTFORMW 用手从下向上平托了一下。
		ELSEIF TALENT:貧乳 || TALENT:男性
			PRINTFORMW 用手掌包着小小的胸部。
		ELSE
			PRINTFORMW 从下向上抚摸着胸部。
		ENDIF
	ENDIF
CASE "抚摸尾巴"
	PRINTFORM %CALLNAME:MASTER%把%CALLNAME:TARGET%的
	SELECTCASE CONDS("尾巴")
	CASE "猫"
		PRINTFORM %TEXTR("尾巴/卷来卷去的尾巴/柔软的尾巴")%
	CASE "狼"
		PRINTFORM %TEXTR("尾巴/啪嗒啪嗒動着的尾巴/蓬松的尾巴")%
	CASE "狐"
		PRINTFORM %TEXTR("尾巴/毛茸茸的尾巴/粗大的尾巴")%
	CASE "兎"
		PRINTFORM %TEXTR("尾巴/蓬松的尾巴")%
	CASE "馬"
		PRINTFORM %TEXTR("尾巴/蓬松的尾巴/啪嗒啪嗒動着的尾巴")%
	CASE "悪魔"
		PRINTFORM %TEXTR("尾巴/卷来卷去的尾巴/尾巴の先端の心型部分")%
	CASE "竜"
		;火精灵
		IF COND("種族：火精灵")
			PRINTFORM %TEXTR("尾巴/前端燃着火的尾巴/摇晃着的尾巴")%
		ELSE
			PRINTFORM %TEXTR("尾巴/覆盖着鱗片的尾巴/摇晃着的尾巴")%
		ENDIF
	CASE "鼠"
		PRINTFORM %TEXTR("尾巴/卷来卷去的尾巴/柔软的尾巴")%
	CASEELSE
		PRINTFORM %TEXTR("尾巴/尾巴")%
	ENDSELECT
	PRINTFORMW 伸出了手。
;CASE "互动"
;	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%をもて无た。

;以下は睡眠姦
CASE "睡眠姦接吻"
	PRINTFORM %CALLNAME:MASTER%
	;２回目以降
	IF CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW 又一次奪走了发出着鼾声的%CALLNAME:TARGET%的嘴唇。
	ELSE
		PRINTFORMW 奪走了睡的很香的%CALLNAME:TARGET%的嘴唇。
	ENDIF
CASE "睡眠姦口交"
	PRINTFORM %CALLNAME:MASTER%
	;２回目以降
	IF CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW 把阴茎又一次塞进沉睡着的%CALLNAME:TARGET%的嘴中、把前端滲出的前列腺液塗抹在嘴唇上。
	;中出し直後
	ELSEIF INSERT("挿入")
		PRINTFORMW 把刚刚中出完的阴茎凑近%CALLNAME:TARGET%的嘴边、用手把尿道里残留的精液全部挤出来蹭在%CALLNAME:TARGET%的唇上。
	;使用後
	ELSEIF EXP_GAIN("睡眠姦経験")
		PRINTFORM 对着%CALLNAME:TARGET%的嘴唇
		IF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ａ")
			PRINTFORM 把沾满了汚液的阴茎
		ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ")
			PRINTFORM 把沾满了愛液的阴茎
		ELSE
			PRINTFORM 把汚臭的阴茎
		ENDIF
		PRINTFORMW 塞进去、在因为嘴巴被迫张開而条件反射伸出的舌頭上擦蹭着。
	ELSE
		PRINTFORMW 把%CALLNAME:TARGET%的嘴唇用亀頭挤開、在因为嘴巴被迫张開而条件反射伸出的舌頭上擦蹭着。
	ENDIF
CASE "睡眠姦逆口交"
	PRINTFORM %CALLNAME:MASTER%
	;２回目以降
	IF CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW 再度将舌頭伸向%CALLNAME:TARGET%%TEXTR("刚刚结束射精还垂着白色的口水/刚刚结束射精还很敏感/刚刚结束射精")%的阴茎。
	ELSE
		PRINTFORM 寝入る%CALLNAME:TARGET%の
		IF CHECK_CLO("外套露出")
			IF CHECK_OUTER("社会の窓")
 				PRINTFORM 打開%OUTER(TARGET, "略")%的拉链、
			ELSE
				PRINTFORM 脱下%OUTER(TARGET, "略")%、
			ENDIF
		ENDIF
		IF CHECK_STAIN(STAIN:Ｐ, "汗")
			PRINTFORM %TEXTR("有些许汗臭/稍微有点酸臭/热气腾腾的有汗臭的")%
		ELSE
			PRINTFORM %TEXTR("还没勃起柔软的/有些许尿臭的/热乎乎的带有性臭的")%
		ENDIF
		PRINTFORMW 阴茎用嘴叼住%TEXTR("開始了口交/開始榨取精液/開始用舌頭刺激")%。
	ENDIF

CASE "睡眠姦正常位", "睡眠姦寝后背位"
	PRINTFORM %CALLNAME:MASTER%
	;胖次穿いてるなら一時的に没収
	IF EQUIP:胖次 && CHECK_CLO("外套露出") == 0
		PRINTFORMW 把睡眠中的%CALLNAME:TARGET%的内衣脱下放到一边、\@ EXP_GAIN("睡眠姦経験") ? 任凭性欲再次 # 用猛烈的肉棒深深地 \@貫穿膣穴。
		SIF COND("胖次形状確認") == 0
			CALL TEXT_PANTU_CHECK_SHORT
		CALL SETFLAG, "胖次没収", TARGET
	;二度目？
	ELSEIF EXP_GAIN("睡眠姦経験")
		IF INSERT("挿入")
			PRINTFORMW 在被自己的精液充分润滑的%CALLNAME:TARGET%的膣内再次開始了享受。
		ELSE
			PRINTFORMW 任凭自己的性欲、再次貫穿了适度松開的%CALLNAME:TARGET%的膣穴。
		ENDIF
	ELSEIF STR:日常イベント名 == "睡眠姦正常位"
		PRINTFORMW 用猛烈的肉棒深深地贯穿了睡眠中的%CALLNAME:TARGET%的膣穴。
	ELSE
		PRINTFORMW 将趴着睡觉的%CALLNAME:TARGET%翻了过来、用猛烈的肉棒深深地贯穿了膣穴。
	ENDIF
	IF COND("快要醒了")
		PRINTFORMW %CALLNAME:TARGET%因为粘膜被摩擦的事表情稍微有些不自然……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%由于\@ EXP_GAIN("睡眠姦経験") ? 反复的挿入 # 挿入的衝撃 \@呼吸稍微紊乱了、%TEXTR("但仍然没有醒来的迹象/但依然沉浸在梦乡里")%……
	ENDIF
ENDSELECT

;-------------------------------------------------
;STR:日常イベント名 は決定後。
;-------------------------------------------------
@AFTERMESSAGE_DAILY2

SELECTCASE STR:日常イベント名
CASE "给对方剃毛"
	PRINTFORM %TEXTR("坐在了大腿之间的/在双腿间放下腰的/将对方的双腿轻轻地打開坐进了中间的")%%CALLNAME:MASTER%
	IF PENIS(TARGET)
		PRINTFORM 将%TEXTR("阴茎的根部/面前的")%
	ELSE
		PRINTFORM 眼前的
	ENDIF
	SELECTCASE CONDS("陰毛")
	CASE "剃过留痕", "刺啦刺啦", "保养完毕"
		PRINTFORM 將刺啦刺啦的部分用剃毛膏濡湿、用装上了保护装置的剃刀抹干净
	CASE "無髭"
		PRINTFORM 將生長著微小毛茬的部分用剃毛膏濡湿、用装上了保护装置的剃刀仔细地剃干净
	CASE "还没長出来"
		PRINTFORM 將稍微有些茂盛的部分用剃毛膏濡湿、用女性护理用的剃刀漂亮地剃干净了
	CASEELSE
		PRINTFORM 將茂盛的部分用剃毛膏濡湿、用女性护理用的剃刀漂亮地剃掉了
	ENDSELECT
	PRINTFORMW 之后用散发着热气的湿毛巾仔细地敷上去用手指涂抹上保湿乳液
	PRINTL
	SELECTCASE CONDS("陰毛")
	CASE "保养完毕"
		IF CEVENT("陰毛の名称")
			CALL PRINT_STRW, @"※%CALLNAME:TARGET%的阴毛漂亮地剃成了[%CEVENTS("陰毛の名称")%]的状态※"
		ELSE
			CALL PRINT_STRW, @"※%CALLNAME:TARGET%的阴毛被漂亮地剃好了※"
		ENDIF
	CASEELSE
		CALL PRINT_STRW, @"※%CALLNAME:TARGET%的陰毛的状態、从[%CONDS("陰毛")%]变成了_黄色_[光滑无毛]_※"
	ENDSELECT

CASE "哺乳"
	IF TFLAG:取引拒否 == 0
		PRINTFORM %CALLNAME:MASTER%
		IF CHECK_CLO("半脱可")
			IF CHECK_SHIRT("半脱可")
				PRINTFORM 將%SHIRT(TARGET, "略")%捲起的%CALLNAME:TARGET%的
			ELSE
				PRINTFORM 將胸部完全裸露出來的%CALLNAME:TARGET%的
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:TARGET%的
		ENDIF
		IF RAND:2 || TALENT:男性
			IF TALENT:乳环 && RAND:2
				PRINTFORM %TEXTS("乳环")%%TEXTR("装飾著的/所連在一起的")%乳頭
			ELSE
				PRINTFORM %TEXTS("乳頭：描写")%乳頭
			ENDIF
		ELSE
			PRINTFORM %TEXTS("胸部")%
		ENDIF
		PRINTFORM %TEXTR("像孩子一樣/專心地/安寧地/充滿感激之情地")%吮吸著
		SIF CHOSE_DEVENT("哺乳")
			PRINTFORM 、%TEXTR("もう一度/再び/また")%
		PRINTFORMW 品嘗母乳……
	ELSE
		IF CFLAG:憤怒
			PRINTFORMW %CALLNAME:TARGET%%TEXTR(@"以太孩子氣了為理由拒絕了\/以%CALLNAME:MASTER%不再是小孩子了訓斥了%CALLNAME:MASTER%")%。
		ELSE
			PRINTFORMW 雖然%CALLNAME:TARGET%感到有些困惑但還是拒絕了請求。
		ENDIF
	ENDIF
CASE "睡眠姦接吻"
	;２回目以降
	IF CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW %CALLNAME:TARGET%好像因为嘴被塞住了好几次为呼吸紊乱、脸上带着稍微郁闷的反応睡着……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%的接吻没有表现出任何反応、依然处于深度睡眠的状态……
	ENDIF
CASE "睡眠姦口交"
	;２回目以降
	IF CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW %CALLNAME:TARGET%的舌頭偶尔条件反射一般舔着%CALLNAME:MASTER%的阴茎、睡眠稍有不安稳的样子……
	;使用後
	ELSEIF EXP_GAIN("睡眠姦経験")
		IF ABL:精液中毒 && ABL:奉仕精神 >= 5
			PRINTFORMW 被阴茎押着睡得不太舒服的%CALLNAME:TARGET%、对精液的气味起了反应、明明是睡眠状態却张開嘴像舔糖果一样动着舌頭取悦着%CALLNAME:MASTER%……
		ELSE
		PRINTFORMW %CALLNAME:TARGET%因为%CALLNAME:MASTER%的悪戯皱着眉頭、好像马上就要从夢的世界回来的様子……
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%因为%CALLNAME:MASTER%的悪戯皱着眉頭、好像马上就要从夢的世界回来的様子……
	ENDIF
CASE "睡眠姦逆口交"
	IF COND("快要醒了") || CHOSE_DEVENT(STR:日常イベント名)
		PRINTFORMW %CALLNAME:TARGET%的被%CALLNAME:MASTER%刺激着的阴茎慢慢地%TEXTR("勃起/膨胀起来/提高了硬度")%、睡颜也稍稍有些不舒服的样子……
	ELSE
		PRINTFORMW 虽然%CALLNAME:TARGET%因为被爱抚着敏感的地方%TEXTR("阴茎一抖一抖地挺了起来/呼吸稍微变得有些紊乱/阴茎慢慢地变得粗大起来")%、%TEXTR("但是还没有要起来的样子/依然睡得很深的样子")%……
	ENDIF
CASE "托一托胸部"
	SIF COND("胸罩形状確認") || CHECK_CLO("乳頭露出") || EQUIP:贴身制服
		RETURN 0
	;无胸罩が当たり前の場合にはここで終わり
	SIF EQUIP:胸罩 == 0 && TALENT:男性
		RETURN 0
	IF EQUIP:胸罩
		PRINTFORM 今天的%CALLNAME:TARGET%戴着的是……
		IF CHECK_BRA("乳頭露出")
			PRINTFORMW 会露出乳頭的%BRA(TARGET, "大体の形状")%的様子！
		ELSE
			PRINTFORMW 依照手的触感是%BRA(TARGET, "大体の形状")%的様子。
		ENDIF
	ELSE
		PRINTFORMW 今天的%CALLNAME:TARGET%……好像没有戴胸罩的様子！
	ENDIF
CASE "一起学习"
	CALL SETFLAG_DAILY, "勉強"
CASE "摸頭"
	SELECTCASE CONDS("直前行動")
	CASE "口淫", "清洁口交", "拜托処理性欲"
		PRINTFORMW %CALLNAME:TARGET%……好像很高兴的样子。
	ENDSELECT

CASE "舐陰奉仕する", "口交奉仕する"
	PRINTFORMW %CALLNAME:MASTER%把頭埋进%CALLNAME:TARGET%股間、用心地奉仕着……
ENDSELECT


code:
;-------------------------------------------------
;卖个破绽。相手に行動してもらいます。
;寝てる相手に被窝かけてあげたり着衣の乱れを直してあげたりもこれ
;-------------------------------------------------
@MESSAGE_DAILY_SELECT3
#DIM LCOUNT

IF STR:選択肢 != ""
	STR:日常イベント名 = %STR:選択肢%
	RETURN 1
ENDIF

;相手が寝ている
IF CFLAG:睡眠
	STR:日常イベント名 = 整理睡姿
	RETURN 1
ENDIF

;起きうるイベントの判定に使う
STR:選択肢 =
STR:禁止選択肢 =

;出来る事の判定。何をやって貰えるかな？
CALL CHECK_COM_ABLE, TARGET
CALL SETFLAG, "性処理でのPLAY内容：計算のみ", TARGET

IF TALENT:叛逆 + COND("性別嫌悪") == 0 && EXP:Ｈ回数 && ABL:信頼 >= 3
	IF COND("Ｈ的调戏禁止") == 0
		SIF COND("邀请一起入浴可能")
			STR:選択肢 += "邀请一起入浴/"

		IF COND("Ｈ的邀请可能")
			STR:選択肢 += "Ｈ的邀请/"
			;欲求不満度に応じてエロ展開
			IF COND("欲求不満") >= 2
				STR:選択肢 += "Ｈ的邀请/"
				SIF COND("推倒騎乗位実行可能")
					STR:選択肢 += "推倒/"
			ENDIF
		ENDIF

		IF COND("自発展示内褲可能")
			STR:選択肢 += "展示内褲/"
			SIF TALENT:小悪魔 || TALENT:好色 || ABL:露出癖 >= 5
				STR:選択肢 += "展示内褲/展示内褲/展示内褲/"
			;複数展示内褲可能な人が居るなら確率ＵＰ
			SIF FIND_COND("自発展示内褲可能", "現在存在")
				STR:選択肢 += "展示内褲/展示内褲/展示内褲/展示内褲/"
		ENDIF
		IF BASE:欲求不満 >= 50
			STR:選択肢 += "摩擦股間/"
			SIF EXP:接吻経験 >= 20
				STR:選択肢 += "接吻/"
			SIF CHARA_NUM("室内の邪魔者") == 0 && EXP:手淫経験 >= 20
				STR:選択肢 += "手淫/"
			SIF CHARA_NUM("室内の邪魔者") == 0 && EXP:口交経験 >= 20
				STR:選択肢 += "口淫/"
		ENDIF

		SIF BASE:欲求不満 >= 25 && TALENT:巨乳
			STR:選択肢 += "把胸部压了上去/"

		IF BASE:欲求不満 >= 25 && BASE:欲求不満 < 75
			STR:選択肢 += "抱住/膝枕/"
			SIF ABL:信頼 >= 5 || TALENT:恋慕 || COND("合意：接吻")
				STR:選択肢 += "亲脸頬/"
		ENDIF
	ENDIF

	SIF BASE:欲求不満 < 25
		STR:選択肢 += "抚摸/膝枕/"
ENDIF

IF BASE:欲求不満 < 25
	STR:選択肢 += "卖个破绽/"
	;SIF STATE("酔酒", MASTER) && STATE("酔酒", TARGET)
	;	STR:選択肢 += "对酌/"
ENDIF

SIF CFLAG:MASTER:茶 == 0 && TALENT:叛逆  == 0 && ABL:信頼
	STR:選択肢 += "沏茶/"

;試験が近いと邀请学习
SIF PLACE("勉強可能") && DAYEV("周考") && STATE("酔酒") == 0 && COND("勉強可能") && CHOSE_DEVENT("邀请学习") == 0
	STR:選択肢 += "邀请学习/"

VARSET LOCALS
SPLIT STR:選択肢, "/", LOCALS
STR:選択肢 =

;やってくることの調整
FOR LCOUNT, 0, 100
	SELECTCASE LOCALS:LCOUNT
	CASE ""
		BREAK
	;基本同じ行為の連打はしない
	CASE CONDS("直前行動")
		CONTINUE
	;これらは各時間帯で一回だけ
	CASE "膝枕", "膝枕"
		SIF CHOSE_DEVENT(LOCALS:LCOUNT)
			CONTINUE
	;エロい行為のお誘いは空気を読む
	CASE "Ｈ的邀请", "推倒"
		SIF STATE("酔酒") == 0 && FIND_COND("直前行動")
			CONTINUE
	ENDSELECT
	;実行済みのものは確率を下げる
	SIF CHOSE_DEVENT(LOCALS:LCOUNT) && RAND:2
		CONTINUE
	STR:選択肢 += @"%LOCALS:LCOUNT%\/"
NEXT

;これ以下は選択肢を確定させる分岐
IF COND("Ｈ的调戏禁止") == 0 && COND("自动调戏中") && COND("接吻魔") && STRCOUNT(STR:選択肢, "接吻") && STRCOUNT(CSTR:DAILYCOM履歴, "接吻") == 0
	IF BASE:欲求不満 >= 50
		STR:選択肢 = 接吻
	ELSE
		STR:選択肢 = 亲脸頬
	ENDIF
ENDIF
;試験が近いと学力が低い人は教えて欲しがる
SIF PLACE("勉強可能") && DAYEV("試験間近") && STATE("酔酒") == 0 && COND("勉強可能") && CALCF("試験の予想点数") < 30 && CHOSE_DEVENT("邀请学习") == 0
	STR:選択肢 = 邀请学习

SELECTCASE STR:日常イベント選択名
CASE "观察股间"
	STR:選択肢 = Ｈ的邀请
CASE "沉浸在余韻里"
	STR:選択肢 = Ｈ的邀请
CASE "拜托扫除"
	STR:選択肢 = 清洁口交
ENDSELECT

CALL SELECT_BAN

SIF STR:選択肢 == ""
	STR:選択肢 = 卖个破绽

STR:日常イベント名 = %TEXTR(STR:選択肢)%

;-------------------------------------------------
;ここにはセリフのみを置く
;-------------------------------------------------
@MESSAGE_DAILY3
#DIM MEMO_LINECOUNT

SIF TFLAG:地の文スキップ
	RETURN 0

;寝ている場合
SELECTCASE STR:日常イベント名
CASE "整理睡姿"
	PRINTFORM %CALLNAME:MASTER%
	IF COND("着衣の乱れ")
		PRINTFORMW 中断了恶作剧、清洁擦拭着%CALLNAME:TARGET%的身体、\@ CFLAG:胖次没収 ? 把内裤给她穿上之后 # \@又重新盖上了被子。
	ELSEIF CFLAG:汗 >= 2
		PRINTFORMW 擦拭着%CALLNAME:TARGET%身上的汗、重新盖上了被子。
	ELSE
		PRINTFORMW 给%CALLNAME:TARGET%重新盖上了被子
	ENDIF
	RETURN 1
ENDSELECT

CALL TEXT, "隙を見せていると"

SELECTCASE STR:日常イベント名
CASE "邀请学习"
	IF COND("学生")
		PRINTFORMW %CALLNAME:TARGET%邀请你一起学习。
	ELSE
		PRINTFORMW %CALLNAME:TARGET%督促你为了考试而好好学习。
	ENDIF
	PRINTFORML ……要怎么办？

	STR:選択肢 = 答应了/还是算了/
	SIF COND("胖次形状確認") == 0 && COND("合意：检查内褲") && ( (EQUIP:外套 && CHECK_OUTER("连褲襪") == 0) || EQUIP:裙)
		STR:選択肢 += "给我看一眼内褲的话倒也不是不可以/"
	VARSET LOCALS
	SPLIT STR:選択肢, "/", LOCALS
	CALL PRINT_SELECT, STR:選択肢

	SELECTCASE LOCALS:RESULT
	CASE "答应了"
	CASE "还是算了"
		CALL KOJO_DAILYCOM, "被拒绝了学习的邀请"
		CSTR:DAILYCOM履歴 = %CSTR:DAILYCOM履歴%＠%STR:日常イベント名%\/＠被拒绝了学习的邀请\/
		STR:日常イベント名 =
	CASE "给我看一眼内褲的话倒也不是不可以"
		IF TALENT:不知羞恥
			CALL EMOTION_PLUS, "甜言蜜语", TARGET
		ELSE
			CALL EMOTION_PLUS, "害羞", TARGET
		ENDIF
		CSTR:DAILYCOM履歴 = %CSTR:DAILYCOM履歴%＠勉強前に胖次要求\/
		MEMO_LINECOUNT = LINECOUNT
		CALL KOJO_DAILYCOM, "勉強前に胖次要求", "改行没有"
		SIF LINECOUNT == MEMO_LINECOUNT
			PRINTFORMW 「………」

		PRINTFORM %TEXTR(@"接受了%CALLNAME:MASTER%的请求的\/听到%CALLNAME:MASTER%的要求的\/收到%CALLNAME:MASTER%的无理要求的")%た%CALLNAME:TARGET%将
		;IF CHECK_SKIRT("裙") && COND("自発展示内褲可能") && CHECK_CLO("開洞見せ可能") && RAND:3 == 0
		;	PRINTFORM その場で裙の下に手を入れて、脱掉的胖次をあやとりのような手つきで広げて
		;	PRINTFORM %TEXTR("汚れが蓄積された開洞/開洞部分の愛液带污迹的/うっすらと带污迹的が出来ている開洞")%を
		;ELSE
			IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
				PRINTFORM %OUTER(TARGET, "略")%を
			ELSE
				PRINTFORM %CLO("掀起裙子")%を
			ENDIF
			IF TALENT:強気 + TALENT:傲慢 && RANDIF(1, TALENT:粗野, TALENT:高贵, TALENT:開朗, TALENT:内気)
				PRINTFORM %TEXTR("用挑衅的动作/用自信满满的様子")%
			ELSEIF TALENT:内気 && RANDIF(1, TALENT:粗野, TALENT:高贵, TALENT:開朗)
				PRINTFORM %TEXTR("犹豫着/畏畏缩缩地")%
			ELSEIF TALENT:開朗 && RANDIF(1, TALENT:粗野, TALENT:高贵)
				IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
					PRINTFORM %TEXTR("到大腿中间程度地/開心地")%
				ELSE
					PRINTFORM %TEXTR("露出肚脐程度地/開心地")%
				ENDIF
			ELSEIF TALENT:高贵 && RANDIF(1, TALENT:粗野)
				PRINTFORM %TEXTR("優雅地/充满气氛地")%
			ELSEIF TALENT:粗野
				IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
					PRINTFORM %TEXTR("心不在焉地/一口气/到膝辺程度地")%
				ELSE
					PRINTFORM %TEXTR("啪地一口气地/一口气地/能看到肚脐程度地")%
				ENDIF
			ELSE
				PRINTFORM %TEXTR("自发的/慢慢地")%
			ENDIF
			IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
				PRINTFORM 脱下、将其下的秘密之处
			ELSE
				PRINTFORM 用手慢慢向上卷起、将裙下的秘密之处
			ENDIF
		;ENDIF
		IF ABL:奉仕精神 > ABL:露出癖
			PRINTFORMW 展示了出来。
		ELSE
			PRINTFORMW 展示了出来。
		ENDIF
		IF EQUIP:外套 && CHECK_OUTER("连褲襪") == 0
			CALL TEXT_PANTU_CHECK, "外套"
			SIF EQUIP:裙
				CALL SETFLAG_DAILY, "掀起裙子"
		ELSE
			CALL TEXT_PANTU_CHECK_SKIRT
		ENDIF
		CALL SETFLAG_DAILY, "胖次形状確認"

		PRINTL
		IF COND("学生")
			PRINTFORMW 看到了好东西的%CALLNAME:MASTER%、按照约好的一样開始和%CALLNAME:TARGET%一起学习了。
		ELSE
			PRINTFORMW 看到了好东西的%CALLNAME:MASTER%、像说好的一样開始学习了。
		ENDIF
	ENDSELECT
CASE "邀请一起入浴"
	PRINTFORMW %CALLNAME:TARGET%邀请你一起入浴。
CASE "Ｈ的邀请"
	SELECTCASE STR:日常イベント選択名
	CASE "观察股间"
		SELECTCASE CONDS("直前行動")
		CASE "阴部の見せつけ撮影"
			PRINTFORM %CALLNAME:TARGET%把那里撑開、
			IF TALENT:陰蒂環 && COND("陰核肥大") + TALENT:淫核 && RAND:3 == 0
				PRINTFORM 一边%TEXTR("用手指玩弄陰蒂環一边/玩弄着被穿環的陰核、以膣口的愛液快要溢出的様子")%
			ELSE
				PRINTFORM %TEXTR("手指伸进膣口/用手指玩弄着陰核/腰部更加突出地")%
			ENDIF
			PRINTFORMW 邀请来Ｈ。

		CASE "检查阴部", "阴部のチラ見せ撮影", "给对方剃毛"
			IF CONDS("直前行動") == "给对方剃毛"
				PRINTFORM %TEXTR("刚刚完成剃毛/刚刚完成剃毛还保持着张開着双腿的姿势的")%%CALLNAME:TARGET%、
			ELSE
				PRINTFORM %CALLNAME:TARGET%が
			ENDIF
			PRINTFORM %TEXTR("将外侧的肉襞向两边压開/将富有弹性的阴唇打開/将阴部滋噜…地向两边打開")%
			IF TALENT:陰蒂環 && RAND:3 == 0
				IF RAND:2
					SIF COND("陰核肥大")
						PRINTFORM %TEXTR("肥大的/大号的")%
					PRINTFORM %TEXTR("陰核上貫穿的/陰核上作為装飾的")%%TEXTS("陰蒂環")%
				ELSE
					PRINTFORM %TEXTS("陰蒂環")%%TEXTR("装飾著的/在反光的")%\@ COND("陰核肥大") ? 大栗子 # 陰核 \@
				ENDIF
			ELSEIF CFLAG:躁动难忍 || COND("発情中")
				IF COND("陰核肥大") && RAND:2
					PRINTFORM %TEXTR("用手指紧紧捏住的肥大陰核/完全勃起的陰核")%
				ELSEIF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し")
					PRINTFORM %TEXTR("刚刚使用完充满発情気味的膣穴/精液和爱液混合着流下的膣口")%
				ELSE
					PRINTFORM %TEXTR("淫靡张開的膣穴/流着液体的膣口")%
				ENDIF
			ELSEIF STRCOUNT(CSTR:DAILYCOM履歴, "Ｖ中出し")
				PRINTFORM %TEXTR("仍不满足的膣穴/可以看到精液残滓的膣口")%
			ELSE
				PRINTFORM %TEXTR("内部的粘膜/膣口")%
			ENDIF
			PRINTFORMW 一边展示着一边邀请来Ｈ。

		CASE "检查菊穴", "肛門のチラ見せ撮影", "肛門の見せつけ撮影"
			IF TALENT:常時Ａ肛塞
				PRINTFORM 将%NAMES("肛塞")%%TEXTR("滋啵……地/突然地/大胆地/湿滑地")%拔出来的%CALLNAME:TARGET%
				TFLAG:Ａ塞子引き抜き = 1
			ELSE
				PRINTFORM 张開屁股、将羞耻的部分露出来的%CALLNAME:TARGET%将
			ENDIF
			IF CFLAG:躁动难忍 || COND("発情中")
				IF STRCOUNT(CSTR:DAILYCOM履歴, "Ａ中出し")
					PRINTFORM 、%TEXTR("刚刚使用完充满発情気味的肛門/精液混合着其他液体滴下的肛門")%
				ELSE
					PRINTFORM 、%TEXTR("想要什么东西来填满而淫靡张開的肛門/迫不及待的肛門")%
				ENDIF
			ELSEIF STRCOUNT(CSTR:DAILYCOM履歴, "Ａ中出し")
				PRINTFORM 、%TEXTR("仍不满足的肛門/可以看到精液残滓的肛門")%
			ELSE
				PRINTFORM 更加饥渴地将腰弯下、伸出屁股将%TEXTS("肛門：視覚")%
			ENDIF
			PRINTFORMW 一边展示着一边邀请来Ｈ。

		CASE "检查内褲", "检查布鲁马", "股間観察", "展示内褲"
			IF CHECK_CLO("Ｔ字褲臀圍") + CHECK_CLO("後開型臀圍")
				IF COND("身嗜み：Ａ拡張") && COND("身嗜み：腸洗浄") && RAND:3 == 0
					PRINTFORM %CALLNAME:TARGET%が
					SIF CHECK_CLO("Ｔ字褲臀圍")
						PRINTFORM 布料挪開
					SELECTCASE COND("身嗜み：Ａ拡張")
					CASE 1, 2
						PRINTFORM 肛門塞子拔出后张開着的肛門
					CASE 3
						PRINTFORM 极粗的肛塞拔出后大口张開的肛門
					CASE IS >= 4
						PRINTFORM 特大肛塞拔出后拳頭也可轻松进入的開着大洞的肛門
					ENDSELECT
					PRINTFORMW 一边展示着一边邀请来Ｈ。
				ELSEIF CHECK_CLO("後開型臀圍")
					PRINTFORM %CALLNAME:TARGET%%TEXTR("用両手把屁股上的肉扒開/伸出屁股")%、
					IF COND("身嗜み：Ａ拡張")
						PRINTFORMW 一边展示着%TEXTS("肛門周辺")%一边邀请来Ｈ。
					ELSEIF RAND:2
						PRINTFORMW 一边展示着%TEXTS("肛門：視覚")%一边邀请来Ｈ。
					ELSE
						PRINTFORMW 一边展示着%TEXTS("肛門周辺")%一边邀请来Ｈ。
					ENDIF
				;以下はＴ字褲
				ELSEIF RAND:2 && COND("身嗜み：Ａ拡張") == 0
					PRINTFORMW %CALLNAME:TARGET%挪開布料、一边展示着%TEXTS("肛門：視覚")%一边邀请来Ｈ。
				ELSE
					PRINTFORMW %CALLNAME:TARGET%%TEXTR("用両手把屁股上的肉扒開/单手把臀肉扒開")%、展示着%TEXTS("肛門周辺")%邀请来Ｈ。
				ENDIF
			ELSEIF CHECK_CLO("Ｖ露出")
				PRINTFORMW %CALLNAME:TARGET%伸出腰双腿打開、\@ EQUIP:胖次 + EQUIP:外套 ? 透过内衣上的洞 # \@展示着%TEXTS("割れ目：陰毛描写没有")%邀请来Ｈ。
			ELSEIF RAND:3 && CHECK_CLO("勒紧的") && (AGE(TARGET) >= 3 || TALENT:陰唇環)
				PRINTFORM %CALLNAME:TARGET%把%TEXTR("股間柔软的肉推開/陰唇轻轻地展開/阴部を一下子打開")%、将从勒进股间的%CLO("股間")%侧边%TEXTR("吐出来的/暴露出的/露出来的")%
				IF TALENT:陰唇環 && (AGE(TARGET) < 3 || RAND:2)
					PRINTFORM %TEXTS("陰唇環")%%TEXTR("装饰着的/在反光的")%
				ELSE
					SELECTCASE AGE(TARGET)
					CASE IS >= 4
						PRINTFORM %TEXTR("肉厚的/成熟大人样的/发黑的")%
					CASEELSE
						PRINTFORM %TEXTR("大人样的/色彩鲜明的")%
					ENDSELECT
				ENDIF
				PRINTFORMW %TEXTR("小陰唇/ビラビラ")%展示着邀请来Ｈ。
			ELSEIF RAND:2 && COND("合意：检查阴部") && CHECK_CLO("胖次露出")
				PRINTFORMW %CALLNAME:TARGET%把%CLO("股間")%移開、展示着%TEXTS("割れ目：陰毛描写没有")%邀请来Ｈ。
			ELSE
				PRINTFORM %CALLNAME:TARGET%伸出腰双腿打開、将
				PRINTFORM %TEXTR("紧贴布料的恥丘的盛况/透过開洞抚摸陰唇的様子/透过内衣洞口的阴部")%
				PRINTFORMW 一边展示着一边邀请来Ｈ。
			ENDIF
		ENDSELECT
	CASE "沉浸在余韻里"
		IF COND("干劲性処理直後")
			PRINTFORMW 刚刚作为对手的%CALLNAME:TARGET%邀请来Ｈ。
		ELSE
			PRINTFORMW 做完掃除工作的%CALLNAME:TARGET%邀请来Ｈ。
		ENDIF
	CASEELSE
		SELECTCASE CONDS("直前行動")
		CASE "抱住", "亲脸頬"
			PRINTFORMW %CALLNAME:TARGET%用身体摩擦着邀请来Ｈ。
		CASE "把胸部压了上去"
			PRINTFORMW %CALLNAME:TARGET%把胸部压了过来邀请来Ｈ。
		CASE "摩擦股間"
			PRINTFORMW %CALLNAME:TARGET%摩擦着股間邀请来Ｈ。
		CASE "接吻"
			PRINTFORMW %CALLNAME:TARGET%沉浸在接吻的余韻中邀请来Ｈ。
		CASE "口淫"
			PRINTFORMW %CALLNAME:TARGET%一边用舌頭舔着阴茎一边視線偷偷上飄邀请来Ｈ。
		CASE "手淫"
			PRINTFORMW %CALLNAME:TARGET%一边抚摸着阴茎一边視線偷偷上飄邀请来Ｈ。
		CASE "膝枕"
			PRINTFORMW 正在膝枕的%CLO("現在的格好＆の")%%CALLNAME:TARGET%撫摸着頭髪邀请来Ｈ。
		CASEELSE
			PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%が邀请来Ｈ。
		ENDSELECT
	ENDSELECT
CASE "推倒"
	PRINTFORMW 被%CLO("現在的格好＆の")%%CALLNAME:TARGET%推倒在了%NAMES("床")%上！
CASE "展示内褲"
	IF FIND_COND("自発展示内褲可能", "現在存在") && (COND("自动调戏中") || RAND:3)
		IF TALENT:開朗 && RAND:4
			PRINTFORM %CALLNAME:TARGET%她们「Se-no」地将裙子同时掀起、各自
		ELSEIF TALENT:好奇心 && RAND:4
			PRINTFORM 用手势对好了时机的%CALLNAME:TARGET%她们将裙子同时掀起、各自
		ELSE
			PRINTFORM %CALLNAME:TARGET%她们在对上眼神后同时将裙子掀起、各自
		ENDIF
		IF EQUIP:胖次
			PRINTFORMW 露出了内裤。
		ELSE
			PRINTFORMW 露出了股間。
		ENDIF
		FLAG:対複数 = 1
	ELSE
	 	IF TALENT:不知羞恥 + TALENT:小悪魔 + TALENT:好色 + TALENT:傲慢 && CHECK_SKIRT("長") == 0
			IF CHECK_SKIRT("迷你") && TALENT:小悪魔 + TALENT:傲慢
				PRINTFORM %TEXTR(@"坐着的%CALLNAME:TARGET%把眼神投了过来/%CALLNAME:TARGET%四目相对从容地微笑着/坐在椅子上的%CALLNAME:TARGET%感受到像是看着穿迷你裙游泳一样的視線")%、
				PRINTFORM %TEXTR("更浅地坐下同时伸出腰部/慢慢的把脚张開/若无其事地翘起二郎腿")%
			ELSE
				PRINTFORM 坐着的%CALLNAME:TARGET%
				IF (TALENT:笨蛋 && TALENT:不知羞恥) || EQUIP:胖次 == 0
					PRINTFORM 不管礼数地立起单膝
				ELSE
					PRINTFORM 张開大腿立起单膝
				ENDIF
			ENDIF
		ELSEIF CHECK_SKIRT("迷你")
			PRINTFORM %CALLNAME:TARGET%轻轻掀開短裙
		ELSE
			PRINTFORM %CALLNAME:TARGET%拉起了裙子
		ENDIF
		IF EQUIP:胖次
			PRINTFORMW 露出了内裤。
		ELSE
			PRINTFORMW 让你看到了股間。
		ENDIF
	ENDIF
CASE "清洁口交"
	IF COND("性処理：生挿入直後")
		PRINTFORMW %CALLNAME:TARGET%把脸凑近两腿之间、舌頭伸向了刚刚因为性処理的时候刚刚使用过的阴茎。
	ELSEIF COND("Ｐ汚れの相手", MASTER)
		IF COND("Ｐ汚れの相手", MASTER) == TARGET
			PRINTFORMW %CALLNAME:TARGET%把脸凑近两腿之间、舌頭伸向了Ｈ之后变得脏兮兮的阴茎。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%把脸凑近两腿之间、舌頭伸向了和%CONDS("Ｐ汚れの相手", MASTER)%Ｈ之后变得脏兮兮的阴茎。
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%把脸凑近两腿之间、舌頭伸向了刚刚因为性処理而沾上汚液的阴茎。
	ENDIF
CASE "口淫"
	PRINTFORMW %CALLNAME:TARGET%蹲在你的股間、用嘴拉開了拉链。
CASE "手淫"
	PRINTFORMW %CALLNAME:TARGET%把手伸向了股間。
CASE "把胸部压了上去"
	IF RAND:2
		PRINTFORMW 从背後悄悄接近的%CALLNAME:TARGET%把你的頭压在了胸部上。
	ELSE
		PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%从后面将你抱住、把你的脸压在了胸部上。
	ENDIF
CASE "摩擦股間"
	IF RAND:2 && PENIS(TARGET) == 0
		PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%把你的手夹在了股间、腰前後移动摩擦着阴部。
	ELSE
		PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%的大腿跨了上来。
	ENDIF
CASE "接吻"
	;今度は
	PRINTFORMW %CALLNAME:TARGET%\@ CHOSE_DEVENT(STR:日常イベント名) ? 再一次 # \@夺走了嘴唇。
CASE "亲脸頬"
	PRINTFORMW %CALLNAME:TARGET%\@ CHOSE_DEVENT(STR:日常イベント名) ? 再一次 # \@亲吻了脸颊。
CASE "抱住"
	PRINTFORM %CLO("現在的格好＆の")%
	IF RAND:4 == 0
		PRINTFORMW %CALLNAME:TARGET%抱住了你的腰。
	ELSEIF RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%抱在了你的肩上。
	ELSEIF RAND:2
		PRINTFORMW %CALLNAME:TARGET%抱住了你的手腕。
	ELSE
		PRINTFORMW %CALLNAME:TARGET%抱了上来。
	ENDIF
CASE "膝枕"
	PRINTFORMW %CALLNAME:TARGET%让你枕在了膝盖上。
CASE "抚摸"
	IF RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%摸了摸你的脸颊。
	ELSEIF RAND:2
		PRINTFORMW %CALLNAME:TARGET%摸了摸你的頭。
	ELSE
		PRINTFORMW %CALLNAME:TARGET%用手梳了梳頭发。
	ENDIF
CASE "膝枕"
	PRINTFORMW %CLO("現在的格好＆の")%%CALLNAME:TARGET%用膝枕侍奉着。
CASE "沏茶"
	SAVESTR:茶 = %TEXTR(CSTR:茶)%
	SIF SAVESTR:茶 == ""
		SAVESTR:茶 = 茶

	IF STRCOUNT(SAVESTR:茶, "茶")
		PRINTFORMW %CALLNAME:TARGET%泡了%SAVESTR:茶%。
	ELSE
		PRINTFORMW %CALLNAME:TARGET%准备了%SAVESTR:茶%。
	ENDIF
CASE "对酌"
	PRINTFORMW %CALLNAME:TARGET%带着酒敬了你一杯。
CASE "卖个破绽"
	PRINTFORMW %CALLNAME:TARGET%打了个招呼。
ENDSELECT

@AFTERMESSAGE_DAILY3
SELECTCASE STR:日常イベント名
CASE "邀请学习"
	CALL SETFLAG_DAILY, "勉強"
CASE "邀请一起入浴"
	PRINTFORML 要怎么办？
	PRINTFORML [0]进入浴室
	PRINTFORML [1]委婉拒绝
	REDRAW 0
	FLAG:SELECT_USERSHOP = 202
	CSTR:お誘い = %STR:日常イベント名%
CASE "Ｈ的邀请"
	PRINTFORML ……要怎么办？
	IF FLAG:叫出来Ｈ中
		PRINTFORML [0]襲击
		PRINTFORML [1]再亲热一会
	ELSE
		PRINTFORML [0]接受
		PRINTFORML [1]委婉拒绝
	ENDIF
	REDRAW 0
	FLAG:SELECT_USERSHOP = 202
	CSTR:お誘い = %STR:日常イベント名%
CASE "推倒"
	PRINTFORML ……要怎么办？
	IF FLAG:叫出来Ｈ中
		PRINTFORML [0]接受
		PRINTFORML [1]再亲热一会
	ELSE
		PRINTFORML [0]接受
		PRINTFORML [1]摆脱
		;PRINTFORML [2]逆に推倒返す！
	ENDIF
	REDRAW 0
	FLAG:SELECT_USERSHOP = 202
	CSTR:お誘い = %STR:日常イベント名%
CASE "展示内褲"
	SIF FLAG:対複数
		RETURN 0
	CFLAG:掀起裙子 = 1
	;胖次の上に何かを履いている場合
	IF CHECK_CLO("连褲襪露出")
		CALL TEXT_PANTU_CHECK, SKIRT(TARGET), "连褲襪露出"
	ELSEIF CHECK_CLO("外套露出")
		CALL TEXT_PANTU_CHECK, SKIRT(TARGET), "外套露出"
	ELSEIF EQUIP:胖次 == 0 || RAND:2
		CALL TEXT_PANTU_CHECK, SKIRT(TARGET)
	ELSE
		CALL TEXT_PANTU_CHECK_SHORT
	ENDIF
	CALL SETFLAG_DAILY, "掀起裙子"

CASE "口淫"
	PRINTFORMW %CALLNAME:TARGET%咕噜噜地動着舌頭、给予%CALLNAME:MASTER%算不上是享受的刺激……
CASE "手淫"
	PRINTFORMW %CALLNAME:TARGET%用很弱的力量做着手淫、轻柔地玩弄着%CALLNAME:MASTER%的股間……
CASE "摩擦股間"
	IF COND("胖次形状確認")

	ELSE

	ENDIF
CASE "清洁口交"
	PRINTFORM %CALLNAME:TARGET%
	IF COND("性処理：生挿入直後") || COND("Ｐ汚れの相手", MASTER)
		IF COND("Ｐ汚れの相手", MASTER) == TARGET
			PRINTFORM 将与自己Ｈ时附上的汚浊
		ELSE
			PRINTFORM 将与%CONDS("Ｐ汚れの相手", MASTER)%的Ｈ时附上的汚浊
		ENDIF
	ELSE
		PRINTFORM 将缠绕在阴茎上的精液汚垢
	ENDIF
	IF CHECK_STAIN(STAIN:MASTER:Ｐ, "Ｐ恥垢") && COND("真性包茎", MASTER) == 0
		PRINTFORM 直到包皮内的恥垢
	ELSE
		PRINTFORM を
	ENDIF
	PRINTFORM %TEXTR("舌尖刮净之後將整個陰莖用舌頭仔細地舔舐乾淨了/以毫不在意淫臭的平穩神情徹底的清潔了/用利落而嫻熟的舌頭完全地掃除了")%、
	IF TALENT:高贵 && RAND:4
		PRINTFORM %TEXTR("以优雅地姿势/用手遮住嘴角")%咕噜一声咽下之后
	ELSEIF TALENT:冷静 && RAND:4
		PRINTFORM %TEXTR("帶著就像是進行平常一樣冷靜的表情/表情不变地")%咕噜一声咽下之后
	ELSE
		PRINTFORM 喉咙咕噜一声咽了下去之后
	ENDIF
	IF TALENT:開朗 && RAND:4
		PRINTFORMW %TEXTR("満足地笑了/放松嘴角視線偷偷向上飄、窺視著情況/笑着看了过来")%。
	ELSEIF TALENT:強気 + TALENT:高慢 && RAND:4
		PRINTFORMW %TEXTR("露出了強気的笑容/舔了舔嘴唇/露出了从容的微笑")%。
	ELSEIF TALENT:冷静 && RAND:4
		PRINTFORMW %TEXTR("一边舔舐着亀頭的粘膜一边询问有没有不周到的地方/将痕迹擦拭干净/含着阴茎发表了对味道的感想")%。
	ELSE
		PRINTFORMW %TEXTR("把脸頬贴在了半勃起的阴茎上/吻住了阴茎的前端/张開了什么都没留下的嘴")%。
	ENDIF
ENDSELECT