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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください

;相思相愛になるまでは個々のリアクションがほとんど似たような感じ
;DAILYはコンパクトに

CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"
		IF TALENT:相思相愛
			PRINTFORMW 「おはよう、%CNAME("二人称")%」
			CALL PRINT_STRW, "「今はね……おちんちん欲しくてっ、うずうずしてたおまんこに、栓してた……のぉ_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「おはよう、%CNAME("二人称")%……ごめ……ふっ……」
			CALL PRINT_STRW, @"「%CNAME("一人称")%のおちんちん、我慢できなくてぇ……_H_あうっ_H_イっちゃ……ふあぁ_H_」"
		ELSE
			PRINTFORMW 「ん……はぁ……あっ、おはよう、んんっ」
			PRINTFORMW 「ごめんね、朝から、我慢できなくて……はうっ、出ちゃうぅ……」
		ENDIF
	CASE "朝舐陰"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「おはよう、%CNAME("二人称")%_H_」"
			CALL PRINT_STRW, @"「今は%CNAME("二人称")%のとろとろおまんこを舐めてるの_H_とってもおいしいよ_H_」"
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, @"「あっ、おはよう%CNAME("二人称")%」"
			CALL PRINT_STRW, @"「今は……%CNAME("二人称")%のおまんこを舐めてたの_H_勝手にごめんね……_H_」"
		ELSE
			PRINTFORMW 「……あっ、おはよう……」
			PRINTFORMW 「えっーっと……出来心で……ごめんね？」
		ENDIF
	CASE "朝足交"
		IF TALENT:相思相愛
			PRINTFORMW 「あっ、おはよう%CNAME("二人称")%」
			CALL PRINT_STRW, "「今はね、足でおちんちんを……あ、起きたらよりご心情变成了ね_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ、おはよう%CNAME("二人称")%。」
			PRINTFORMW 「今はね、おちんちんを足でいじってるの……いやだったかな？」
		ELSE
			PRINTFORMW 「……あっ、おはよう……」
			PRINTFORMW 「えっーっと……わわっ、もっと大きくなった……！？」
		ENDIF
	CASE "朝の新妻PLAY"
		IF TALENT:相思相愛
			PRINTFORMW 「おはよう%CNAME("二人称")%！」
			CALL PRINT_STRW, @"「朝ご飯は%CNAME("一人称")%だよ_H_さ……召し上がれ_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「えへへ……おはよう%CNAME("二人称")%」
			CALL PRINT_STRW, @"「朝は……%CNAME("一人称")%にする_H_」"
		ELSE
			PRINTFORMW 「あっ……おっ、おはよう！」
			PRINTFORMW 「えっーっと、ふ、夫婦みたいに、その、朝からしない……？」
		ENDIF
	CASE "朝乳交"
		IF TALENT:相思相愛
			PRINTFORMW 「～♪あっ、おはよう%CNAME("二人称")%！」
			CALL PRINT_STRW, @"「今はね、胸部がだ～い好き_H_な%CNAME("二人称")%のおちんちんをー」"
			CALL PRINT_STRW, "「いい子_H_いい子_H_って……あっ嬉しいんだ_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あっ、おはよう%CNAME("二人称")%！」
			CALL PRINT_STRW, "「今はね、おちんちんが寂しそうにしてたから胸部で……あっ、びくびくしてる_H_」"
		ELSE
			PRINTFORMW 「よいしょ……あっ、おはよう！」
			PRINTFORMW 「えっと、これは、あそこが大きくなってたから……つい……」
		ENDIF
	CASE "朝騎乗位"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「んっ……はっ……あ、おはようっ、%CNAME("二人称")%っ、んんっ_H_」"
			CALL PRINT_STRW, @"「今はぁ、%CNAME("二人称")%のおちんちんを、おまんこに借りてるっ、のっ_H_はぅ_H_」"
			CALL PRINT_STRW, "「ごめんね_H_すぐっ_H_イくからっ_H_はうっ_H_きもちいっ_H_うぅん_H_」"
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, @"「はあっ……んうっ、あっ、おはよっ、%CNAME("二人称")%っ……はうっ_H_」"
			CALL PRINT_STRW, @"「おちんちん、ちょっと、借りて……んうっ、%CNAME("一人称")%、イっちゃ……うぅ_H_」"
		ELSE
			PRINTFORMW 「はっ……ふぅ……あっ、おはっ、んはっ！」
			PRINTFORMW 「ごめ、すぐにぃ……はっ……あっうっ」
		ENDIF
	CASE "朝Ａ騎乗位"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「んっ……はっ……あ、おはようっ、%CNAME("二人称")%っ、んんっ_H_」"
			CALL PRINT_STRW, @"「今はぁ、%CNAME("二人称")%のおちんちんを、おしりに借りてるっ、のっ_H_はぅ_H_」"
			CALL PRINT_STRW, "「ごめんね_H_すぐっ_H_イくからっ_H_おしり_H_ダメなのに_H_きもちいっ_H_うぅん_H_」"
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, @"「はあっ……んうっ、あっ、おはよっ、%CNAME("二人称")%っ……はうっ_H_」"
			CALL PRINT_STRW, "「おちんちん、ちょっと、借りて……んうっ、おしりっ、違うのni↘、イっちゃ……うぅ_H_」"
		ELSE
			PRINTFORMW 「はっ……ふぅ……あっ、おはっ、んはっ」
			PRINTFORMW 「ごめ、すぐにぃ……はっ……おしりぃ……あっうっ」
		ENDIF
	CASE "朝接吻"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「んっ……ちゅ……はぁ_H_おはよう、%CNAME("二人称")%……ふっ……んちゅ_H_」"
			CALL PRINT_STRW, "「朝からどうしてもちゅーしたくて……んっ……好き_H_大好き_H_……ん……ふっ……_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「んっ……ちゅ……あ、おはよう%CNAME("二人称")%」
			CALL PRINT_STRW, "「ちゅーしてたんだけど……もっとしていいよね……んっ、ふっ……_H_」"
		ELSE
			PRINTFORMW 「んっ……ちゅっ……はっ……あっ、おはよう%CNAME("二人称")%」
			PRINTFORMW 「えっーっと……もうちょっと、ちゅーしてて、いい？」
		ENDIF
	CASE "朝添い寝"
		PRINTFORMW 「あっ、おはよう、%CNAME("二人称")%！」
		IF TALENT:相思相愛
			PRINTFORMW 「恋人の添い寝サービス！%CNAME("二人称")%なら無料でーす、えへへ」
		ELSE
			PRINTFORMW 「幼馴染の添い寝サービス！お代は一緒に登校でーす……なーんてね」
		ENDIF
	CASE "朝口交", "朝六九式"
		IF TALENT:相思相愛
			CALL PRINT_STRW, @"「んぶっ……ふぅ……んはぁ……おはよう、%CNAME("二人称")%……_H_」"
			CALL PRINT_STRW, "「今日も朝からおちんちんが元気だから……んん～_H_こうやっへ_H_んっ_H_おと无くさせてるの_H_んうっ_H_」"
		ELSEIF TALENT:恋慕
			PRINTFORMW 「んんっ……んぶっ……はぁ……おはよう、%CNAME("二人称")%」
			CALL PRINT_STRW, "「今、元気なおちんちんを落ち着かせるから……んっ……まっふぇふぇめ_H_」"
		ELSE
			PRINTFORMW 「んんっ……んっ……はっ……あっ、おはよう……」
			PRINTFORMW 「えっーっと……出来心で………ごめんね？」
		ENDIF
	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式", "朝乳交", "朝舐陰", "朝騎乗位", "朝Ａ騎乗位", "朝足交", "朝逆正常位", "朝接吻"
		IF TALENT:恋慕
			PRINTFORMW 「えへへ、ついつい……」
			PRINTFORMW 「今度は%CNAME("二人称")%が……なーんて……えへへ……」
		ELSE
			PRINTFORMW 「ごめんね……魔が差したって言うか……」
			PRINTFORMW %CALLNAME:TARGET%は背中を丸くして照れている……
		ENDIF
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
CASE "登校"
	IF DAYEV("試験当日")
		PRINTFORMW 「おはよう、テストだけど%CNAME("二人称")%は自信ある？%CNAME("一人称")%はあんまり……」
	ELSEIF DAYEV("試験返却日")
		PRINTFORMW 「おはよう～……返却怖いなぁ……はぁ……」
	ELSEIF COND("朝袭相手")
		IF TALENT:恋慕

		ENDIF
	ELSEIF COND("体育")
		PRINTFORMW 「おはよう、%CNAME("二人称")%。今日は体育だけど体操服忘れてたりしてない？」
	ELSEIF COND("水泳")

	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「おはよう、%CNAME("二人称")%。今日も元気？」
		CASE 1
			PRINTFORMW 「おっはよう！%CNAME("二人称")%！えへへ、目が覚めたでしょ」
		CASEELSE
			PRINTFORMW 「あっ、おはよう、%CNAME("二人称")%！」
		ENDSELECT
	ENDIF
CASE "一番乗り"
		PRINTFORMW 「こんにちはー、あ、%CNAME("二人称")%！」
		PRINTFORMW 「まだ他の皆は来てないよー」
CASE "ただいま"
		PRINTFORMW 「我回来了——」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「おかえりなさい、%CNAME("二人称")%。今日もお疲れ様」
			PRINTFORMW 「……なんだか、新婚桑みたいだね……えへへ……」
		CASE 1
			PRINTFORMW 「あ、%CNAME("二人称")%。おかえり、遅かったね？」
		CASEELSE
			PRINTFORMW 「おかえりなさい、%CNAME("二人称")%」
		ENDSELECT
	ELSE
		PRINTFORMW 「あ、%CNAME("二人称")%！遅かったね」
	ENDIF
CASE "入室打招呼"
	IF CFLAG:呼び出された
		IF COND("Ｈ的いちゃつき中", MASTER) && TALENT:恋慕
			PRINTFORMW 「……………………………ふぅん。要件は何？」
			PRINTFORMW 普段の%CALLNAME:TARGET%とはかけ出口た冷たい視線で%CALLNAME:MASTER%を見下ろしている……
		ELSE
			PRINTFORMW 「どうかしたの？%CNAME("二人称")%？」
		ENDIF
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF TALENT:恋慕
			PRINTFORMW 「……………………………」
			PRINTFORMW 普段の%CALLNAME:TARGET%とはかけ出口た冷たい視線で%CALLNAME:MASTER%を見下ろしている……
		ELSE
			PRINTFORMW 「……えっーと……お邪魔じゃない？%CNAME("一人称")%」
		ENDIF
	ELSE
		PRINTFORMW 「こんにちはー」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「わわっ、遅れちゃった！ごめんなさい！」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「来たよ、何か用事かな？」
	ELSE
		PRINTFORMW 「こんにちはー」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
			PRINTFORMW 『あ、%CNAME(CALLNAME_ACTOR)%、こんにちは』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
			PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%、遅かったね？』
	ELSE
		PRINTFORMW 『こんにちは、%CNAME(CALLNAME_ACTOR)%』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「なぁに？%CNAME("二人称")%」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	SELECTCASE RAND:4
	CASE 0
		PRINTFORMW 「%CNAME("二人称")%と便当食べてるとね」
		PRINTFORMW 「こう、小さい頃に戻ったみたいで……えへへ、なんだか嬉しいんだ」
	CASE 1
		PRINTFORMW 「本日の～おすすめおかず～♪」
		PRINTFORMW 「え～本日のおすすめは%TEXTR("迷你オムレツ/ミートボール/チキンナゲット/漢堡肉/玉子焼き")%です。よーく味わってね？」
	CASE 2
		PRINTFORMW 「一人で食べてるよりもなんだかおいしく感じるな……なんて」
	CASE 3
		PRINTFORMW 「%CNAME("二人称")%、おいしい？」
	ENDSELECT
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「%CALLNAME:TARGET%です。よろしくお願いします！」
CASE "浑身是汗"
	PRINTFORML 「うう……べとべとする……」
CASE "刚睡醒"
	IF RAND:4 == 0
		PRINTFORML 「むな……？」
	ELSEIF RAND:3
		PRINTFORML 「あふ……」
	ELSEIF RAND:2
		PRINTFORML 「ふわぁ……」
	ELSE
		PRINTFORML 「ううん……」
	ENDIF
CASE "Cosplay中"
	PRINTFORML 「えへへ、変じゃないかな？」
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML 「えへへ、喜んでくれると嬉しいな！」
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「わぁ……すっごいおいしい！食べ過ぎちゃいそう……」
			ELSE
				PRINTFORML 「～♪」
			ENDIF
		ELSE
			PRINTFORML 「～♪」
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML 「おいしい～♪」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K51
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「……あんまり、ほっとかないでね？」
CASE "约会的约定"
	PRINTFORML 「えへへ……楽しみだなぁ……」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML 「その页は……あったあった…………是！できたよ！」
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「えへへ、お邪魔しまーす……」
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「欢迎光临ー」
	PRINTFORML 「何時でも部屋はきれいにしてあるんだー」
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「あれ？どうかしたの二人とも？」
	ELSE
		PRINTFORML 「あれ？どうかしたの？」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"

CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「もうっ、いきなりはやめてよー！」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"
	IF TALENT:恋慕
		CALL PRINT_STRL, "「もう……しょうがないなぁ……_H_」"
	ELSE
		PRINTFORML 「……もう、特別だからね？」
	ENDIF
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「わわっ、%CNAME("二人称")%、撮るなら言ってよ……」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「……ふ、服、着たいんだけど……ダメ？」
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「%CNAME("二人称")%……！は、恥ずかしいよ……うう……」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「……%CNAME("二人称")%、恥ずかしいよ……」
	;個室で二人きり
	ELSE
		PRINTFORML 「……%CNAME("二人称")%、恥ずかしいよ……」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「ごめんね、色々準備してたら遅れちゃった……」
		PRINTFORML そう語る%CALLNAME:TARGET%からは、いい香りがした。
	;做爱房
	ELSE
		PRINTFORML 「ごめんね、色々準備してたら遅れちゃった……」
		PRINTFORML そう語る%CALLNAME:TARGET%からは、いい香りがした。
	ENDIF
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

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

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

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

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		PRINTFORML 「うーん……闲だなぁ……」
	ELSE
		PRINTFORML
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	IF RAND:4 == 0
		PRINTFORML 「あれっ、もう夜なんだ………なんだか時間が早く感じるなぁ……」
	ELSEIF RAND:3 == 0
		PRINTFORML 「%CNAME("二人称")%、明日の準備はもうした？」
	ELSEIF RAND:2 == 0
		PRINTFORML 「今日もお疲れ様、%CNAME("二人称")%」
	ELSE
		PRINTFORML 「どうかしたの？%CNAME("二人称")%」
	ENDIF
ELSE
	IF RAND:4 == 0
		PRINTFORML 「ふわぁぁぁ………み、見た……？」
	ELSEIF RAND:3 == 0
		PRINTFORML 「………むむむぅ」
		PRINTFORML %CALLNAME:TARGET%は首をかしげながら%TEXTR("国語/地歴公民")%の勉強をしているようだ……
	ELSEIF RAND:2 == 0
		PRINTFORML 「～♪ぬんぬんら～♪まぐろ～♪」
		PRINTFORML 謎の歌を歌いながら%CALLNAME:TARGET%は%TEXTR("レシピ本/魚図鑑/小説/辞書")%を読んでいるようだ……
	ELSE
		PRINTFORML 「どうかしたの？%CNAME("二人称")%」
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K51
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:8
	PRINTFORML 「むー……」
ELSEIF RAND:7
	PRINTFORML 「むむん……」
ELSEIF RAND:6
	PRINTFORML 「むあ……」
ELSEIF RAND:5
	PRINTFORML 「むぴー……」
ELSEIF RAND:4
	PRINTFORML 「んいー……むえ……」
ELSEIF RAND:3
	PRINTFORML 「おにょぬ……むい……」
ELSEIF RAND:2
	PRINTFORML 「わー……んふふ……」
ELSE
	PRINTFORML 「えへへ……だいすき……」
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF TALENT:恋慕
			PRINTFORMW 『はーい、すぐ行くね』
		ELSE
			PRINTFORMW 『あ、うん！すぐ行くから待ってて！』
		ENDIF
	;做爱房
	ELSEIF PLACE("做爱房")
		IF TALENT:恋慕
			PRINTFORMW 『はーい、すぐ行くね』
		ELSE
			PRINTFORMW 『あ、うん！すぐ行くから待ってて！』
		ENDIF
	ENDIF
CASE "学園での日常"

CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW 「こういうのって、いいね……」
	CASE "内衣選び"
	;どうでもいい知識。内衣売り場のおしゃれな胸罩は大体Ｃ～Ｄです。巨乳門前支付。
	;まぁエロゲなのでそんなことはないのでしょう。多分。
		IF RAND:2
			PRINTFORMW 「す、すけすけだコレ……！」
			IF TALENT:相思相愛
				CALL PRINT_STRW, @"「……着たら喜ぶ、よね_H_」"
			ELSEIF TALENT:恋慕
				PRINTFORMW 「よ、喜んでくれ……うう～でも……」
			ELSE
				PRINTFORMW 「あ、な、なんでもないよ！%CNAME("二人称")%！」
			ENDIF
		ELSE
			IF TALENT:PLAYER:男性
				PRINTFORMW 「な、なんか付き合わせてごめんね……」
			ELSE
				PRINTFORMW 「あ、この色、%CNAME("二人称")%に似合いそうじゃない？」
			ENDIF
		ENDIF
	CASE  "泳装選び"
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏"
		IF RAND:2
			PRINTFORMW 「%CNAME("二人称")%………えへへ、呼んだだけ」
		ELSE
			PRINTFORMW 「……手、つないでもいい？」
		ENDIF
	CASE "站着读书", "買食物", "物色游戏"

	CASE "检查新刊"
		PRINTFORMW 「%CNAME("二人称")%が好きなジャンルの本って何？」
		PRINTFORMW 「%CNAME("一人称")%？%CNAME("一人称")%は……図鑑、かな」
	CASE "繞道"
		PRINTFORMW 「ねね！繞道していかない？」
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW 「圣诞节……雪、振るかなぁ？」
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	IF PLACE("自宅")
		IF COND("夜")
			IF RAND:3 == 0
				PRINTFORMW 「あ、%CNAME("二人称")%寝るの？休息ー」
			ELSEIF RAND:2
				IF TALENT:PLAYER:男性
					PRINTFORMW 「%CNAME("一人称")%お浴室に……え？一緒に？」
					IF TALENT:相思相愛
						PRINTFORMW 「も～、しょうがないなぁ、でもえっちな事はダメだからね？」
					ELSE
						PRINTFORMW 「え、えっち！ダメ！も、も～……」
					ENDIF
				ELSE
					PRINTFORMW 「%CNAME("二人称")%、一緒にお浴室是らない？」
				ENDIF
			ELSE
				PRINTFORMW 「明日もいい日になりますよーに……」
			ENDIF
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、闲なら一緒に録画してた番組見ない？」
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		IF RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%、%TEXTR("チェス/オセロ/しりとり/神経衰弱/トランプ")%でもしない？」
		ELSEIF RAND:2
			PRINTFORMW 「返回前に掃除しておこうかな……」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、一緒に帰らない？」
		ENDIF
	;場所移動後
	ELSE
		PRINTFORMW 「……へっ！？」
		IF TALENT:相思相愛
			PRINTFORMW 「な、なんにもしないの？」
		ELSE
			PRINTFORMW 「あの、その……な、なんでもないよ！」
		ENDIF
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよう
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			;外国育ち
			PRINTFORMW 「%GREETING%ー%CNAME("二人称")%」
			PRINTFORMW 「……？どうかした？」
		ELSEIF COND("易出汗", MASTER)
			PRINTFORMW 「うわっ！も～汗拭いてよ！」
			IF COND("易出汗")
				PRINTFORMW 「%CNAME("一人称")%、これ以上汗にまみれるのはやだよ～」
			ELSE
				PRINTFORMW 「ほら、毛巾貸して给から、これで拭いて？」
			ENDIF
		ELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW 「あっ、%GREETING%、%CNAME("二人称")%！」
				PRINTFORMW 「えへへ、先手取られちゃったなー」
			ELSE
				PRINTFORMW 「%GREETING%！」
				PRINTFORMW %CALLNAME:TARGET%はニコニコと抱きしめ返してきた。
			ENDIF
		ENDIF
	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「%GREETING%……んんんっ？」
			PRINTFORMW 「頬じゃないの？ココ流？……うん、わかった！」
		ELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW 「んっ……%GREETING%、%CNAME("二人称")%」
				PRINTFORMW 「………ねぇこれ、さすがに恥ずかしいんだけど……」
			ELSE
				PRINTFORMW 「……%GREETING%」
				PRINTFORMW %CALLNAME:TARGET%はもじもじと恥ずかしそうだ
			ENDIF
		ENDIF
	CASE "打招呼口交", "打招呼舐陰"
		IF TALENT:恋慕
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				CALL PRINT_STRW, @"「%GREETING%……そんなに%CNAME("一人称")%のおまんこ早く舐めたかったの_H_」"
				CALL PRINT_STRW, @"「変態桑だね_H_%CNAME("二人称")%_H_」"
			ELSE
				CALL PRINT_STRW, @"「もう……%GREETING%、しょうがない変態桑だね%CNAME("二人称")%は_H_」"
			ENDIF
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「ひゃっ……ねぇ%CNAME("二人称")%……さすがにね、これは打招呼じゃないと思うの。」
			PRINTFORMW 「あんまり、してほしくないかな？いい？」
		ELSE
			PRINTFORMW 「………………」
			PRINTFORMW %CALLNAME:TARGET%は可愛そうなものを見る目で%CALLNAME:MASTER%を見下ろしている……
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「あ、%GREETING%！%CNAME("二人称")%！」
			PRINTFORMW 「えへへ、先手取られちゃったなー」
		ELSE
			PRINTFORMW 「%GREETING%！%CNAME("二人称")%！」
		ENDIF
	ENDSELECT
CASE "叫醒"
	IF RAND:2 == 0
		PRINTFORMW 「……ふぇ、あふ……わっー！？%CNAME("二人称")%！？え、えと……そのぉ……ｵ、ｵﾊﾖｰ……」
	ELSE
		PRINTFORMW 「んんん……んえ……おはようおかぁ……………%CNAME("二人称")%！？えっ、ね、寝ちゃってた！？」
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「あふ……ねむりゅのれぇ……もろりまひゅ……おあすみ……」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		PRINTFORMW 「おいしかった？えへへ、ならよかった」
	CASE "夸奖"
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「んもぅ……褒めても何もでないよ……えへへ……」
			CASE 1
				PRINTFORMW 「えへへ、有がとう」
			CASE 2
				PRINTFORMW 「有がとう、%CNAME("二人称")%も素敵だよ！」
		ENDSELECT
	CASE "甜言蜜语"
		IF CALCF("甜言蜜语成功")
			IF TALENT:相思相愛
				PRINTFORMW 「ふふっ、もう%CNAME("二人称")%たらっ……」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……えへへ、%CNAME("二人称")%は口が擅長いんだから……」
			ELSE
				PRINTFORMW 「も、もうっ、%CNAME("二人称")%は口が擅長いんだからっ！」
			ENDIF
		ELSE
			PRINTFORMW 「…………？」
		ENDIF
	CASEELSE
		IF RAND:9 == 0 && COND("夏")
			PRINTFORMW 「ふー……夏だけはずーっと室内にいたいなぁ」
			PRINTFORMW 「%CNAME("一人称")%、夏だけ向こうの方が好きかも……」
		ELSEIF RAND:8
			PRINTFORMW 「薬は常備してるんだー……自作のも」
			PRINTFORMW 「自作のは不给よ？危ないし……酱と自己治験してからじゃないとね」
		ELSEIF RAND:7
			PRINTFORMW 「右目がうずく……なーんてね、見つめるだけでどうこうとか私にはできないなー」
			PRINTFORMW 「……ちょっとー！その顔は何よー！」
		ELSEIF RAND:6
			PRINTFORMW 「もうちょっと色々小さくてよかったな……あんまり大きいと困るんだよね……身高とかさ」
		ELSEIF RAND:5
			PRINTFORMW 「私にできる事？こう……薬を作ったり、そこそこ当たる占いをしたり？」
			PRINTFORMW 「どっかーん！みたいなのはできないからね？」
		ELSEIF RAND:4
			PRINTFORMW 「私的家は代々雨ごいとか……白魔術って呼ばれるものに長けてるの」
			PRINTFORMW 「だから魔女狩りで生き延びたんだよ。ほら、自分らに有益なものは手放したくはないでしょ？」
			PRINTFORMW 「私もそういうのができるよ！効力は弱いけど……」
		ELSEIF RAND:3
			PRINTFORMW 「%CNAME("二人称")%は勉強は得意？」
			PRINTFORMW 「%CNAME("一人称")%？う～ん、社会が苦手かなぁ……人の名前が覚えられないんだよね……」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%、%CNAME("一人称")%にできる事があったら言ってね」
			PRINTFORMW 「%CNAME("一人称")%ができる事ならなんでもしてあげたいから……えへへ……」
		ELSE
			PRINTFORMW 「まぐろってさ大きくて速くておいしいから！こう！すごいよね！！！」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		IF RAND:2 == 0
			PRINTFORMW 「ご、ごめんね%CNAME("二人称")%」
			PRINTFORMW 「%CNAME("一人称")%として是いよーって、してあげたいのは山々だけど……」
			PRINTFORMW 「……今回は%CNAME("一人称")%がピンチなの！！！お願い！勉強教えて！！！」
		ELSE
			PRINTFORMW 「ごめんね……実は……」
			PRINTFORMW 「……%CNAME("一人称")%、赤点取っちゃったの！！！」
			PRINTFORMW 「助けて、%CNAME("二人称")%！！！お願い！！！」
		ENDIF
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「いいよー、でもハードルは高いからねー？」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「いいよー、%CNAME("二人称")%頑張ってね！」
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「わわっ、もー兒童じゃないよー？……でも有がとうね、%CNAME("二人称")%」
CASE "淋浴独り言"
	;PRINTFORMW 「%TEXTR("ぬんぬんらー♪/わきゃ！/ふー……")%」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		IF TALENT:恋慕
			PRINTFORMW 「……%CNAME("二人称")%、%CNAME("一人称")%の胖次、欲しかったの？」
			IF TALENT:相思相愛
				CALL PRINT_STRW, "「言ってくれたらいつでも……ね_H_」"
			ELSE
				CALL PRINT_STRW, "「もう、漁るのはダメだってば……えっち_H_」"
			ENDIF
		ELSE
			PRINTFORMW 「%CNAME("二人称")%～、何か言うこと有ませんか～？」
			PRINTFORMW 「内衣漁りは犯罪だよ！もうっ、外でやっちゃダメだよ？わかった？」
		ENDIF
	ELSE
		PRINTFORMW 「ふー……あれ？%CNAME("二人称")%、どうかしたの？」
	ENDIF
CASE "淋浴後换装"
	PRINTFORMW 「じゃーん、これ、%CNAME("二人称")%のリクエストでしょ？」
	IF TALENT:恋慕
		PRINTFORMW 「……えへへ、どう？」
	ELSE
		PRINTFORMW 「……似合ってる、かな？」
	ENDIF
CASE "淋浴後换装失敗"
	PRINTFORMW 「……ちょっと残念そうにしないの」

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K51
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF RAND:3 == 0
			PRINTFORMW 「勉強？うん！一緒にやろっか！」
			PRINTFORMW 「わからない所があったらいつでも聞いてね！%CNAME("二人称")%！」
		ELSEIF RAND:2
			PRINTFORMW 「ねぇ、%CNAME("二人称")%、ここってどう解くの？」
			PRINTFORMW 「…………なるほどぉ、教えてくれて有がとう！%CNAME("二人称")%！」
		ELSE
			PRINTFORMW 「……………………」
			IF RAND:2 == 0
				PRINTFORMW 真剣そうに%CALLNAME:TARGET%は問題……ではなく謎生物の絵を描いている。なにあれ。
				;Ａ　まぐろう
			ELSE
				PRINTFORMW 真剣そうに%CALLNAME:TARGET%は問題を解いている。
			ENDIF
		ENDIF
	CASE "托一托胸部"
		IF RAND:3 == 0
			PRINTFORMW 「わわっ………重くない？」
		ELSEIF RAND:2
			PRINTFORMW 「ひゃっ！……重くない？」
		ELSE
			PRINTFORMW 「えっと……楽しい？」
		ENDIF
			PRINTFORMW %CALLNAME:TARGET%の豊かな重みを楽しんだ……
	CASE "按摩"
		PRINTFORMW 「わ～有がとう%CNAME("二人称")%！マッサージって気持ちいいよね～」
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW 「あっ、有がとう%CNAME("二人称")%！」
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		PRINTFORMW 「わわっ……もー……兒童じゃないのに」
		PRINTFORMW そう言いながらも%CALLNAME:TARGET%は微笑んでいる。
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		IF TALENT:恋慕
			PRINTFORMW 「えへへ、そんなに嬉しかった？」
		ELSE
			PRINTFORMW 「わわ、そんなに嬉しかった？」
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "撫摸頭髮"
		PRINTFORMW 「あ、何かついてた？……触りたかっただけ？そっかぁ、えへへ。」
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
	PRINTFORMW 「%CNAME("二人称")%、どうかしたの？」
CASE "從後面抱住"
	PRINTFORMW 「えっ……%CNAME("二人称")%……ど、どうかしたの？」
CASE "把手放在大腿上"
	PRINTFORMW

;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"
	;恋慕以上じゃないともらえない。棗、厳しい。
	IF TALENT:相思相愛
		PRINTFORMW 「ええっ、%CNAME("二人称")%、胸部欲しくなっちゃったの？
		CALL PRINT_STRW, @"「しょうがないなぁ……ちょっとだけだよ_H_」"
	ELSEIF TALENT:恋慕
		PRINTFORMW 「ええっ！？だ、ダメだよっ、この子の為の胸部なんだからっ！」
		PRINTFORMW 「……ううっ……もうっ、一回だけだよ？」
	ELSE
		PRINTFORMW 「ええっ！？だ、ダメだよっ、この子のごはんなんだからっ！」
		PRINTFORMW 「…………そんな顔してもダメ！」
		TFLAG:取引拒否 = 1
	ENDIF
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K51
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸"
		PRINTFORMW 「えへへ……よしよし」
	CASE "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW 「是、%SAVESTR:茶%どうぞ！」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「あ、あれ？%CNAME("二人称")%も？」
		ELSE
			PRINTFORMW 「ふぅ、ただいまー」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「ごめん、ちょっと……」
	ENDIF
CASE "廁所詮索"
	IF RAND:3 == 0
		PRINTFORMW 「……%CNAME("二人称")%、ええっと……もうっ、さいてー！」
	ELSEIF RAND:2
		PRINTFORMW 「やっていい事と悪い事があると思うな、%CNAME("一人称")%」
	ELSE
		PRINTFORMW 「……%CNAME("二人称")%、ええっと……ト、廁所に……」
	ENDIF
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「……は、入ってまーす！」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K51
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「さすがにちょっと……恥ずかしい……」
	ELSE
		PRINTFORMW 「……こ、これでいい？」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K51
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K51
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「%CNAME("二人称")%の頼みでも……それはちょっと嫌かな……」
	ELSE
		PRINTFORMW 「……こ、これでいい？」
	ENDIF
CASE "撫摸股間"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「ひゃっ！？も、もう！%CNAME("二人称")%ってば！めっ！」
	ELSEIF CHECK_CLO("Ｖ露出")
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K59, %ARGS%
		[ENDIF]
	;连褲襪越し
	ELSEIF CHECK_CLO("连褲襪露出")
		PRINTFORMW
	;布鲁马越し
	ELSEIF CHECK_CLO("布鲁马露出")
		PRINTFORMW
	;泳装越し(比基尼や競泳泳装や死库水など)
	ELSEIF CHECK_CLO("泳装ボトム露出")
		PRINTFORMW
	;胖次越し
	ELSEIF CHECK_CLO("胖次露出")
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K59, %ARGS%：胖次越し
		[ENDIF]
	;其他休闲褲やなんか布越し
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K51
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF TALENT:恋慕
			CALL PRINT_STRW, "「……変態桑_H_」"
		ELSE
			PRINTFORMW 「そんなに確認しないでよー！！！」
		ENDIF
	ELSE
		IF TALENT:恋慕
			CALL PRINT_STRW, "「……変態桑_H_」"
		ELSE
			PRINTFORMW 「うう……まじまじ見られるのは恥ずかしいよ……」
		ENDIF
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「むっ、こらー！」
			PRINTFORMW %PANTIES(TARGET, "胖次")%を見た事を轻轻地怒ってきた……
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「そんなに確認したかったの……？」
		ELSE
			PRINTFORMW 「っ、こら！%CNAME("二人称")%！んもぅ……」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「むぬっ！？ぬぬぬぐ……なぬごと……」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K51
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「むっ、へんたい！」
			PRINTFORMW %PANTIES(TARGET, "胖次")%を見た事を轻轻地怒ってきた……
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「二度見したかったの……？」
		ELSE
			IF COND("打招呼前")
					PRINTFORMW 「こんにち、わぁ！？……惊嚇した……」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「ひぅ……！？」
				ELSE
					PRINTFORMW 「きゃっ、こら！%CNAME("二人称")%！んもぅ……」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT
CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "胖次見抜き"

	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
		PRINTFORMW 『一緒にお昼ご飯を食べませんか。お返事待ってます。』
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
		PRINTFORMW
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "坐在旁邊"
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K51, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り", "阴部自撮り", "阴茎自撮り", "胸部自撮り"
	;ドイツ語で"你のもの"
	MAIL_BODY = deine_H_
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
CALL PRINT_STRW, @"写真には「%MAIL_BODY%」というメッセージが添えられている……"

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K51, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF TALENT:相思相愛
		PRINTFORMW 「%CNAME("二人称")%、週末一緒に约会しない？」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「ねぇ%CNAME("二人称")%、週末一緒に出掛けない？」
	ELSE
		PRINTFORMW 「あ、あのさ%CNAME("二人称")%、週末一緒に出掛けない？」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")

		PRINTFORMW 「わかった！じゃあ做便当くるね！」
		CALL SET_CEVENT, "约会の便当"
	;你に保留されてしまった
	ELSE
		;他に相思相愛の角色がいる
		IF FIND_COND("相思相愛")
			IF TALENT:相思相愛
				;ﾔｰﾝﾔｰﾝﾔｰﾝﾔｰﾝ…はもう越えた
				PRINTFORMW 「そっか……他の子との先約があったとか？それならごめんね。」
			ELSE
				;こっちは越えてない
				PRINTFORMW 「そう……だよね。ごめんね、誘っちゃって……」
			ENDIF
		ELSE
			IF TALENT:相思相愛
				PRINTFORMW 「そっか……じゃあまた今度邀请ね。」
			ELSE
				PRINTFORMW 「そっか……じゃあ、また今度邀请ね……」
			ENDIF
		ENDIF
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
		PRINTFORMW 「えっ、う、うん！いいよ！じゃあ做便当くるね！………えへへ、楽しみだなぁ」
		CALL SET_CEVENT, "约会の便当"
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「えっ、今から！？ちょ、ちょっと用事済ませるから待っててね！！！便当も作るから！！！」
		CALL SET_CEVENT, "约会の便当"
	ELSE
		PRINTFORMW 「えっ、今から！？ちょ、ちょっと待ってて！！あ、便当も持っていくね！！」
		CALL SET_CEVENT, "约会の便当"
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		IF RAND:2 == 0
			PRINTFORMW 「夏と～い～えば～♪海！花火！まぐろ！……えっ違う？」
		ELSE
			PRINTFORMW 「泳装も、似合う似合わないがあるから困るよねぇ……だから、今日は%CNAME("二人称")%が審査してね？」
		ENDIF
	CASE "散歩"
		IF RAND:2 == 0
			PRINTFORMW 「ぶらぶらするのも、悪くないね」
		ELSE
			PRINTFORMW 「あっち行ってみよ！%CNAME("二人称")%！」
		ENDIF
	CASE "尋訪美食"
		IF RAND:2 == 0
			PRINTFORMW 「次はあっちの屋台に行こっ！」
		ELSE
			PRINTFORMW 「食べ過ぎないように……食べ過ぎ、ないよう、にぃ～……」
		ENDIF
	CASE "逛街"
		IF RAND:2 == 0
			PRINTFORMW 「えへへ、個人的な買い物につき合わせちゃってごめんねー」
		ELSE
		;男女で分岐
			IF TALENT:PLAYER:男性
				PRINTFORMW 「ねぇ、%CNAME("二人称")%、この連衣裙、どうかなぁ？太って見えない？」
			ELSE
				PRINTFORMW 「あっ、%CNAME("二人称")%、この連衣裙、%CNAME("二人称")%にぴったりじゃない？」
			ENDIF
		ENDIF
	CASE "去水族馆"
		IF RAND:2 == 0
			PRINTFORMW 「まぐろいないかな！！まぐろ！！！」
		ELSE
			PRINTFORMW 「イルカショーもいいけど、まぐろショーとか……無理かなぁ？無理だよねぇ……」
		ENDIF
	CASE "去游乐园"
		IF RAND:2 == 0
			PRINTFORMW 「えへへ、楽しみだねぇ」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、どのアトラクションから乗るか決めた？」
		ENDIF
	CASE "去电影院"
		IF RAND:2 == 0
			PRINTFORMW 「後ろの席だといいなぁ……」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、どれ見るの？」
		ENDIF
	CASE "去图书馆"
		IF RAND:2 == 0
			PRINTFORMW 「えへへ、高いところの本は任せて！」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%は、どんなジャンルを読むの？教えてほしいな！」
		ENDIF
	CASE "赏花"
		IF RAND:2 == 0
			PRINTFORMW 「わぁ……きれいだね……」
		ELSE
			PRINTFORMW 「あっ、ふふっ、%CNAME("二人称")%、頭に花びらついちゃってるよ、取って给！」
		ENDIF
	CASE "去游泳"
		IF RAND:2 == 0
			PRINTFORMW 「えへへ、%CNAME("一人称")%、実は平泳ぎのプロと呼ばれてるのです！」
		ELSE
			PRINTFORMW 「準備運動しよっか、%CNAME("二人称")%」
		ENDIF
	CASE "爬山"
		IF RAND:2 == 0
			PRINTFORMW 「きのこー♪薬草ー♪すっごい楽しみー！」
		ELSE
			PRINTFORMW 「自生してる草とかきのこには毒があるかもしれないから、気を付けてね？」
		ENDIF
	CASE "赏红叶"
		IF RAND:2 == 0
			PRINTFORMW 「風景を楽しむのもいいよねぇ」
		ELSE
			PRINTFORMW 「もうすっかり秋だねぇ」
		ENDIF
	CASE "滑雪"
		IF RAND:2 == 0
			PRINTFORMW 「こう、うまく滑るコツとかぱっと魔法で覚えられないかなぁ……」
		ELSE
			PRINTFORMW 「ふぬー！うぐー！……見てないで助けてよ！！%CNAME("二人称")%っ！！！」
		ENDIF
	CASEELSE
		PRINTFORMW 「えへへ……楽しみだなぁ……」
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "爆米花"
			PRINTFORMW
		CASE "吉事果"
			PRINTFORMW
		CASE "热狗"
			PRINTFORMW
		ENDSELECT
	ENDSELECT
CASE "手をつなぐ"
	PRINTFORMW 「………あっ、えへへ」
CASE "手をつながない"
	PRINTFORMW 「どうかしたの？%CNAME("二人称")%」
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「このまま、時が止まればいいのにね……」
	ELSE
		PRINTFORMW 「えっと、もう返回時間だね……」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			CALL PRINT_STRW, "「………来て_H_」"
		ELSE
			PRINTFORMW 「わっ………うん……」
		ENDIF
	ELSE
		IF COND("同居中")
			IF TALENT:相思相愛
				PRINTFORMW 「うん、帰ろっか、%CNAME("二人称")%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……そうだね、帰ろっか」
			ELSE
				PRINTFORMW 「うん、帰ろっか！」
			ENDIF
		ELSE
			IF TALENT:相思相愛
				PRINTFORMW 「うん、回頭见%CNAME("二人称")%」
			ELSEIF TALENT:恋慕
				PRINTFORMW 「………うん、回頭见」
			ELSE
				PRINTFORMW 「うん、また部室でね」
			ENDIF
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;時間経過などで表示される　机の上にメモが置いてある……　で表示されるテ接吻トに角色独自の物を追加できます
;特に無いなら書かなくて大丈夫です
;-------------------------------------------------
@TIPS_K51

;台詞を書いたら下のRETURN 0 を消してください
;RETURN 0

SELECTCASE RAND:1
CASE 4
	PRINTFORMW 『』
CASE 3
	PRINTFORMW 『』
CASE 2
	PRINTFORMW 『』
CASE 1
	PRINTFORMW 『』
CASEELSE
	PRINTFORMW 『女の子が望んでいる事はだいたいわかる……よね？』
ENDSELECT

path: ERB/EVENT_K/51 棗/EVENT_K51_DAILY.ERB


code:
;-------------------------------------------------
;棗の個別イベント
;诺伊老师を参考にしてます。
;-------------------------------------------------

@K51_LONG, ARGS, ARG

SIF ARG == 0
	ARG = TARGET

SELECTCASE ARGS
CASE "あめあめふれふれ"
	PRINTFORMW ある日の归途、%CALLNAME:MASTER%は、ゲリラ豪雨にやられ木陰で雨宿りしていた。
	PRINTFORMW あれだけ晴天ていたというのに………
	PRINTFORMW 最悪なのが充分湿的た上に、スマホの充電が切れていた。これでは迎えも呼べない。
	PRINTFORMW 早くやんでくれないだろうか。うらみをこめて空を見上げていた。
	PRINTL
	PRINTFORMW 「あれ？%CNAME("二人称")%？」
	PRINTL
	PRINTFORMW 聞き覚えのある。朗らかな声。
	PRINTFORMW そこには傘をさした%CALLNAME:TARGET%が立っていた。
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%こそ、どうして、ここにいるのだろうか？
	PRINTFORMW 家の方角は反対のはずだが……
	PRINTL
	PRINTFORMW 「こっちは%CNAME("一人称")%的家の方角……って%CNAME("二人称")%ずぶ湿的じゃない！」
	PRINTFORMW 「傘もってなかったの？迎えは？……えっ、充電切れちゃったの？」
	PRINTFORMW 「うーん……そうだ、とりあえず家に来なよ！」
	PRINTFORMW 「すぐ近くだし、そこで迎えを呼ぼう？お浴室も貸して给から！」
	PRINTFORMW さすがに悪い。遠慮………
	PRINTFORMW 「ほ～ら、遠慮しないの！幼馴染桑に任せなさい！」
	PRINTFORMW できなかった。仕方ないので好意に甘えるとしよう。
	PRINTL
	PRINTFORMW -森賀家　玄関-
	PRINTFORMW 「ただいまー！ちょっと待っててね%CNAME("二人称")%！」
	PRINTFORMW %CALLNAME:TARGET%はばたばたと廊下の奥へと駆けていった。
	PRINTFORMW ……ふわふわとした浴衣を抱えて回来了。
	PRINTFORMW 「おと无くしててね、%CNAME("二人称")%！」
	PRINTFORMW そして就这様浴衣で頭を拭かれてしまった！
	PRINTFORMW いい气味のふわふわに包まれて気持ちいい………
	PRINTL
	PRINTFORMW 『棗、帰ってきて早々………その子は？』
	PRINTFORMW 低く温柔声が玄関に響いてくる。
	PRINTFORMW 「友達！雨にやられちゃったから家に呼んだの！」
	PRINTFORMW 『おや、じゃあ紅茶入れておくから。』
	PRINTFORMW 「はーい」
	PRINTFORMW 「今の声？父亲だよ、拭くのもうちょっと待っててねー」
	;你の性別で分岐
	IF TALENT:PLAYER:男性
		PRINTFORMW 「あと、父亲の服を貸して给ね、風邪ひいたらよくないし」
	ELSE
		PRINTFORMW 「あと、%CNAME("一人称")%の服を貸して给ね、風邪ひいたらよくないし」
	ENDIF
	;你の体格で分岐
	IF TALENT:PLAYER:娇小
		PRINTFORMW 「%CNAME("二人称")%にはだいぶ大きいけど、服が乾くまで我慢してね？」
	ELSEIF TALENT:PLAYER:高大
		PRINTFORMW 「%CNAME("二人称")%にはちょうどいいと思うから、服が乾くまで待っててね？」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%にはちょっと大きいけど、服が乾くまで我慢してね？」
	ENDIF
	PRINTFORMW 更にわしわしと拭かれた。
	PRINTL
	PRINTFORMW -森賀家　居間-
	PRINTFORMW ひとしきり拭かれた後、居間へと通された。
	PRINTFORMW 『さ、どうぞ。召し上がれ。』
	PRINTFORMW 高大で穏やかな笑みを浮かべた男性から紅茶を受け取る。
	PRINTFORMW 眼の色や雰囲気など棗によく似ている。
	PRINTFORMW 『ん？……ああ、自己紹介がまだだったね。』
	PRINTFORMW 『僕は森賀渡（もりが　わたる）。棗の父親です。』
	PRINTFORMW %CALLNAME:MASTER%も自己紹介を返した。
	IF TALENT:PLAYER:男性
		PRINTFORMW 『棗の彼氏かな、ははは。』
		IF TALENT:相思相愛
			PRINTFORMW 「……えへへ。実はそうなんだー」
			PRINTFORMW 『え、あー、まぁ、うん、学生の本分を忘れないようにね。』
		ELSE
			PRINTFORMW 「も、もう！父亲！からかわないでよ！」
		ENDIF
	ELSE
		PRINTFORMW 『棗とは親しくしてくれてるのかな？』
		IF TALENT:相思相愛
			PRINTFORMW 「……えへへ、実は付き合ってるんだー」
			PRINTFORMW 『えっ、あ、あー……幸せにね？えーと、学生の本分を忘れないように。」
			IF TALENT:PLAYER:伪娘
				PRINTFORMW ……どうやら性別を勘違いしているようだが指摘しなくていいのだろうか？
				PRINTFORMW %CALLNAME:TARGET%の方を見るといたずらっ子のようなかわいらしい笑顔を向けてきた。
				PRINTFORMW まぁ%CALLNAME:TARGET%がいいならいいか……
			ELSE
				PRINTFORMW 「はーい、えへへ。」
				PRINTFORMW %CALLNAME:TARGET%は幸せそうに微笑んでいる
			ENDIF
		ELSE
			PRINTFORMW 「うん！仲良しだよ！ねー%CNAME("二人称")%」
		ENDIF
	ENDIF
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 『そうか、昔のお隣桑の子かぁ。』
	PRINTFORMW 「そうそう、父亲は会ってないっけ？」
	PRINTFORMW 『あの頃忙しかったからね、でも話はよく聞いたよ。』
	PRINTFORMW 「胸罩ンコで遊んだとか、一緒に冒険したとか、ファースト……」
	PRINTFORML どごん。
	PRINTFORMW %CALLNAME:TARGET%がテーブルを勢い良く殴ってさえぎった。
	PRINTFORMW 「お、父亲！茶もうないみたいだから入れてくるね！」
	PRINTFORMW 『はは、そうか、拜托了よ』
	PRINTFORMW 顔を赤くしつつ、%CALLNAME:TARGET%はおかわりを取りに行った。
	PRINTL
	PRINTFORMW 『ははは、青春だねぇ。』
	PRINTFORMW 『さて……と、君に聞きたい事があるんだ。』
	PRINTFORMW 『なに、部活での棗について聞きたいんだよ。』
	PRINTFORMW 『あの子は、母親に似て、少し……突拍子もない事を言い出す事があるものでね。』
	;水族館関連とか、初対面時とかなかなかはっちゃけている
	PRINTFORMW 部活での%CALLNAME:TARGET%は……
	PRINTL
	;PRINTFORMW 沢山取引をしてもらっている、とは言えないので部活に必要な人物だと言った。
	;PRINTFORMW 自分と楽しくしている、とは言えないので普通に楽しんでいると言った。
	PRINTFORMW いたって普通に活動していると言った。
	PRINTFORMW 『そうか、それならいいんだ。』
	PRINTFORMW 『……君のうわさはよく聞いているよ。』
	;ここは部員数で分岐（したい）
	;PRINTFORMW 『なんでも、とんでもない人員を集めた可疑部活があるとかないとか………』
	PRINTFORMW 『なんでも、とんでもない悪魔がいる可疑部活があるとかないとか………』
	PRINTFORMW 『親としては、色々と言いたいことはあるが………』
	PRINTFORMW 『まぁ、棗を悲しませないでくれ。それだけが僕からのお願いだ。』
	IF TALENT:相思相愛
		PRINTFORMW 『君はなんだかんだ、あの子を泣かせそうだからね。』
	ENDIF
	PRINTFORMW にこりと、微笑んでいるが、なぜだが背筋がぞくりとした。
	PRINTL
	PRINTFORMW ﾌﾞｵｵｵｵｫｫｫｫｫｫ……
	PRINTL
	PRINTFORMW 少し濁ったほら貝の音が居間に響いた。
	PRINTFORMW 『ああ、失礼、職場からだ。』
	;PRINTFORMW 戦国時代に領帯ムスリップでもしたのかと錯覚したが違ったようだ。
	PRINTFORMW 『もしもし。是、大丈夫です………………は？すみません、もう一度。』
	;男の子を伪娘にするって聞くとわかんないよね
	PRINTFORMW 『……男の子を男性ノコにする組織？………ああ、是、直ぐに向かいます。』
	PRINTL
	PRINTFORMW 「あれ？父亲、仕事？」
	PRINTFORMW 『ああ、急な仕事が入ったから出かけてくる、晩ご飯は食べてなさい』
	PRINTFORMW 「うん、気を付けてね、父亲。」
	PRINTL
	PRINTFORMW 「父亲、時々ああやって急な仕事に行君だよね。無茶してないといいけど……」
	PRINTFORMW 紅茶のおかわりを手渡し的同时、%CALLNAME:TARGET%は少し寂しそうに言った。
	PRINTFORMW 「あ、そうだ、%CNAME("二人称")%お迎えが来るまでチェスでもしてよっか！」
	PRINTFORMW 家から迎えが来るまで、%CALLNAME:TARGET%と楽しく遊んだ……
CASE "なつむかし"
	PRINTFORMW ある日のこと。
	PRINTFORMW 「ささ、%CNAME("二人称")%！一気に飲んでみて！」
	PRINTFORMW %CALLNAME:MASTER%はとんでもない色の液体を飲まなければならなくなった。
	PRINTFORMW 話はだいぶ前へとさかのぼる。
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW それは社会の小テストの返却日の事だった。
	PRINTFORMW 「うぬぐぐぐぅ……」
	PRINTFORMW 授業後、%CALLNAME:TARGET%が不服そうな顔でテストを睨みつけていた。
	PRINTFORMW 気变成了ので覗いてみた。わぁ、すごいひどい。
	PRINTL
	PRINTFORMW 「え、あ、%CNAME("二人称")%！？見ちゃダメ！見ないでー！！」
	PRINTFORMW じたばたと隠そうとする%CALLNAME:TARGET%にもう見た事を言うと、大人しくなった。
	PRINTFORMW 「うう、苦手なんだよね、社会。なんかこう……ダメなんだよねー……」
	PRINTFORMW もじもじと有点害臊并ている%CALLNAME:TARGET%
	PRINTFORMW ――だったら、次回の小テストでいい点とれたらなんでもしようか？
	PRINTFORMW 「……えっ？」
	;テストご褒美お願いしたことがあるか分岐
	IF CEVENT("調教開始：ご褒美Ｈ")
		PRINTFORMW ご褒美をお願いした事があるのだから、そう思って出た軽口だった。
	ELSE
		PRINTFORMW まぁ、これほどひどいのだから無理だろう、そう思って出た軽口だった。
	ENDIF
	PRINTFORMW 「……今、なんでもするって言ったよね？」
	PRINTFORMW あ、これはまずい。
	PRINTFORMW 「なんでもしてくれるんだよね！？」
	PRINTFORMW ああっ、捕獲された！
	PRINTL
	PRINTFORMW で、この有様である。
	PRINTFORMW 「えっへん、%CNAME("一人称")%、頑張っちゃったよ！」
	PRINTFORMW 「老师からは、普段からもこの点数をって言われちゃったけど……」
	PRINTFORMW とんでもない色の液体を眺めていた。
	;ドリンクバーで好きなのはコーラ＋甜瓜ソーダです。
	PRINTFORMW ドリンクバーで片っ端からジュースを混ぜたような……例えるならそんな色をしている。
	PRINTL
	PRINTFORMW 「それはね！記憶を呼び戻す薬でね、ちょっと苦くなりすぎちゃったけど、効き目はばっちり！……のはず」
	PRINTFORMW あいまいな部分が有ませんでしたか！？
	PRINTFORMW 「だいじょーぶ！もう%CNAME("一人称")%で実験済！さぁ、飲んで飲んで！……なんでもしてくれるんだよね？」
	PRINTFORMW ……約束をしてしまったのは事実だ。
	;テストご褒美お願いしたことがあるか分岐
	IF CEVENT("調教開始：ご褒美Ｈ")
		PRINTFORMW 今まで頼んできたのに自分だけNGとか言えるわけがない……！
	ELSE
		PRINTFORMW これから頼んでいくのにNGを出すわけに是かない……！
	ENDIF
	PRINTFORMW 意を決して一気に緑の液体を飲み干した。
	PRINTL
	PRINTFORMW その瞬間、押し寄せる苦みと共に意識を手放した。
	PRINTL
	PRINTFORMW ぐるぐると、春夏秋冬が回っている。
	PRINTFORMW ぐるぐると、過去が蘇ってくる。
	PRINTFORMW ぐるぐる、ぐるぐる、ぐるぐる……
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 『隣に引っ越して来ました、森賀と言います』
	PRINTFORMW おひるねをしていたら、見知らぬ人が家来了ので、見に行った。
	PRINTFORMW 打招呼していたきれいな女の人は、赤色の目で自分を見た。
	PRINTFORMW 『うちのナツメと同じくらいですね。ナツメ。打招呼を……こら、逃跑な』
	PRINTFORMW 小さい女の子が女性の从后面将逃げようとして捕まえられて、こちらへと向いた。
	PRINTFORMW ふわふわとした髪に、少し緊張した可爱顔の女の子だった。
	PRINTFORMW 「……もりが、なつめです」
	PRINTFORMW こちらもきちんと自己紹介をした。
	PRINTFORMW 「……」
	PRINTFORMW ……そっぽを向いてしまった……
	PRINTFORMW 『……ふぅ、すまん。この子は少し照れ屋でな。』
	PRINTFORMW 『もしよかったら……この子と仲良くしてくれると助かる』
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 公園に玩耍に行ったらなつめがいた。
	PRINTFORMW 「……あ……こん、にちは……」
	PRINTFORMW 「%CALLNAME:MASTER%はえほんすき？」

	PRINTL [0]すき
	PRINTL [1]ふつう

	$INPUT_LOOP_NATUINATUME1
	INPUT

	IF RESULT == 0
		PRINTFORMW 「なつめといっしょだね。えへへ、なつめもえほんだいすきなんだ」
	ELSEIF RESULT == 1
		PRINTFORMW 「そうなんだ……なつめはねぇ、えほんだいすきなんだ」
	ELSE
		GOTO INPUT_LOOP_NATUINATUME1
	ENDIF

	PRINTFORMW 「……あの……よかったら、いっしょに……よむ？」
	PRINTFORMW いっしょによむことにした。割と楽しかった。
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	;胸罩ンコから勢い良く降りて胸罩ンコを後頭部にぶつけた事が有ます。
	PRINTFORMW 別の日、二人胸罩ンコに乗って遊んでいた。
	PRINTFORMW 「……あの……」
	PRINTFORMW 下で胸罩ンコに座るなつめがもじもじしながら話始めた。
	PRINTFORMW 「こんどから、%CALLNAME:MASTER%のこと、%CNAME("二人称")%ってよんでいい？」
	PRINTFORMW 「%CNAME("二人称")%っておなまえかっこいいでしょ？」
	PRINTFORMW えへへ、と笑うなつめにまぁいっかと思った。
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 「%CNAME("二人称")%、おままごとしよ？」
	PRINTFORMW 「えっと、なつめがおく桑で、%CNAME("二人称")%はだんな大人ね！」
	PRINTFORMW 「あ……%CNAME("二人称")%はおく桑がよかった？」
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 「たっち！つぎのおには%CNAME("二人称")%ね！」
	PRINTFORMW 「えへへ、まけないよー！」
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW ある日、いつもの公園に玩耍にいくとなつめがベンチでしょんぼりしていた。
	PRINTFORMW 「あっ、%CNAME("二人称")%……」
	PRINTFORMW 「あの、ね……あの……」
	PRINTFORMW 「………………なつめね、おひっこしするの」
	PRINTFORMW 「がいこくの……ままのうまれたばしょに……」
	PRINTL
	PRINTFORMW 「……あのね、なつめね、しょうらいはすごいのになりたいの」
	PRINTFORMW 「ままね、とってもすごいの、すっっっごいの！」
	PRINTL
	PRINTFORMW 「でもね、なつめがね、ままとね、おなじぐらいになるには、ままのおうちにかえらなきゃいけなくて……」
	PRINTFORMW 「ままのおうちにかえるのはなつめがうまれる、ずっとまえからきまってたから、やだっていってもだめだって……」
	PRINTFORMW 「……なつめ、%CNAME("二人称")%とあえないのやだよ……でもすごいのになれないのもやだ……やだよう……」
	PRINTFORMW ぐずぐずとなつめが泣き始めた。
	PRINTL
	PRINTFORMW "すごいの"がなにかはわからないが、出口ててもずっとおぼえてる。約束する。
	PRINTFORMW 「ほんとう……？」
	PRINTL
	PRINTFORMW 柔らかな感触が唇に当たった。
	PRINTFORMW 「……なつめのこと、わすれないおまじないのちゅー……」
	PRINTFORMW 「なつめのこと、せったいにわすれないでね。ぜったい、ぜったいだよ……」
	PRINTFORMW そうして走り去っていった。
	PRINTL
	PRINTFORML ・
	PRINTFORML ・・
	PRINTFORMW ・・・
	PRINTL
	PRINTFORMW 「…………、…………！」
	PRINTFORMW 「%CNAME("二人称")%！起きた！？」
	PRINTFORMW 睁開眼睛と焦りに満ちた%CALLNAME:TARGET%がこちらをのぞきこんでいた。
	PRINTFORMW 「ほんっとうに！！！ごめんね！！！調合をちょっと間違えて意識をもってちゃってたみたいで……」
	PRINTFORMW 「うう、治験したのに……私のばかぁ……」
	PRINTFORMW %CNAME("二人称")%はしょんぼりとしている
	PRINTFORMW 「魂とか持っていかれてない！？大丈夫！？」
	PRINTL
	PRINTFORMW 昔、おまじないのちゅーしたよね。
	PRINTL
	PRINTFORMW 「……へっ？」
	PRINTFORMW わすれないおまじない。
	;相思相愛で分岐
	IF TALENT:相思相愛
		PRINTFORMW 「……え、えっとぉ……その……」
		PRINTFORMW 「あんまり意味なかったね……えへへ……」
		PRINTFORMW 赤面しながらちらちらとこちらを看了过来。
		PRINTFORMW 「ね、%CNAME("二人称")%……改めてちゅー、しない？」
		PRINTFORMW 「今度はずっといっしょにいれる……なんて」
		PRINTFORMW 「……本当はちゅーしたいだけ、なんだけど……いい？」
		PRINTL
		PRINTFORML ・
		PRINTFORML ・・
		PRINTFORMW ・・・
		PRINTL
		PRINTFORMW その後棗と唇が痛むまで接吻を交わし合った。
		;接吻経験爆盛丸
		EXP:MASTER:接吻経験 += 30
	ELSE
		PRINTFORMW 「………………は、はばっあばば！？」
		PRINTFORMW あっという間に顔が赤くなってしまった。
		PRINTFORMW 「ちゅ、ちゅ、ちゅちゅちゅー！？」
		PRINTFORMW 「え、とえっと……そのぉ……」
		PRINTFORMW 「ふ、腹痛！じゃ、じゃあね！」
		PRINTFORMW そういうと色々とつまづきながら部室を出て行ってしまった……
	ENDIF
	PRINTL
	;接吻経験1追加
	EXP:MASTER:接吻経験 += 1
	PRINTFORMW 你は%CALLNAME:TARGET%とおまじないのちゅーをしたことを思い出した……
ENDSELECT

path: ERB/EVENT_K/51 棗/EVENT_K51_LONG.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORML 「あうっ、い、今っ！？か、ばんとって、はうっんっ！」
		ELSE
			PRINTFORML 「えっ……今取引したいの……！？い、いいけど……ちょっと待ってね……」
		ENDIF
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「あ、取引したいの？」
		CASE 1
			PRINTFORML 「お願い？%CNAME("一人称")%にできる事なら聞くよ？」
		CASEELSE
			PRINTFORML 「………あっ、%CNAME("二人称")%。何か用？」
		ENDSELECT
	ENDIF
CASE "称呼変更"
	PRINTFORMW 「呼び方を変えるの？どんな名前で呼べばいい？」
CASE "称呼変更完了"
	PRINTFORMW 「『%CNAME("二人称")%』ね！わかった！」
CASE "称呼変更中止"
	PRINTFORMW 「あれ？違うの？」
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		;棗は幼馴染とは「你が拒絶してしまえば壊れる脆い関係性」と認識しています。
		;その関係性が壊れ、你が出口るのを恐惧ています。
		;別に恋人がいる場合難易度が上がるのは、恐惧が顕著に出ているのです。
		;が、「恋人」という、你から簡単に捨てない、出口ないという証明をされると、とてつもなく安心します。
		;別に不倫だろうと構いやしないのです、你が傍にいてくれるなら。
		;他に相思相愛の角色がいる
		IF FIND_COND("相思相愛")
			PRINTFORMW 「えっ……？」
			PRINTFORMW %CALLNAME:MASTER%からの告白を受けた%CALLNAME:TARGET%は悲しげに目を伏せた。
			PRINTFORMW 「%CNAME("二人称")%ってば……もう素敵な恋人桑がいるでしょう？」
			PRINTFORMW 「……だから、ね？冗談はよくないよ。」
			PRINTFORMW %CALLNAME:TARGET%は俯いて拒絶しようとしている。
			PRINTFORMW ……何か言わなければ。
			CALL PRINT_SELECT, @"%CALLNAME:TARGET%、愛してる。/%CALLNAME:TARGET%の事も、好きなんだ。/責任は酱ととるから、付き合ってください。"
			SELECTCASE RESULT
				;愛してる
			CASE 0
				PRINTFORMW 「あい……ふ、ふぇ！？」
				PRINTFORMW %CALLNAME:TARGET%はあっという間に赤くなった。
			;好きなんだ
			CASE 1
				PRINTFORMW 「す、好き！……ら、らいくじゃなくて！？」
				PRINTFORMW ＬＯＶＥのほう。一人の女性として愛してる。
			;責任は酱とするから
			CASE 2
				PRINTFORMW 「責任……じゃ、じゃあ結婚とかもしてくれるの？」
				PRINTFORMW もちろん。二番手になるけども。酱としよう。
			ENDSELECT

			PRINTFORMW 「ほ、本当に……！？」
			PRINTFORMW %CALLNAME:TARGET%がいい。%CALLNAME:TARGET%もいないとイヤだ。
			PRINTFORMW 「えっ、えっと、その……」
			PRINTFORMW 「%CNAME("一人称")%も、ずっと、ずっと、%CNAME("二人称")%の事が好きで……」
			PRINTFORMW 「でも、%CNAME("二人称")%には恋人桑がいるから我慢しなくちゃって……」
			PRINTFORMW 「だから、ぞの、えうっ、よろじぐ……うわあああん！！！」
			PRINTFORMW %CALLNAME:TARGET%は泣き出したしまった！
			PRINTFORMW %CALLNAME:TARGET%が泣き止むまで傍に寄り添った……
			PRINTFORMW ……返事としてはＯＫらしい。
		;他に相思相愛の角色がいない
		ELSE
			PRINTFORMW 「えっ……？」
			PRINTFORMW %CALLNAME:MASTER%からの告白を受けた%CALLNAME:TARGET%は目をきょとんとさせた後微笑んだ。
			PRINTFORMW 「もー、冗談はよしてよ%CNAME("二人称")%……！？」
			PRINTFORMW 冗談なんかじゃない。本気だ。
			PRINTFORMW 「だ、って、%CNAME("一人称")%は魔女だよ。それも三流の。」
			PRINTFORMW 「それに、幼馴染だし……普通の子より身高大きいし……」
			PRINTFORMW 「……本当に、%CNAME("一人称")%でいいの？」
			PRINTFORMW %CALLNAME:TARGET%がいい。%CALLNAME:TARGET%じゃないとダメだ。
			PRINTFORMW そう伝えると%CALLNAME:TARGET%は泣きそうになっている顔を上げた。
			PRINTFORMW 「……うん、それじゃあ、これからも、よろしくね、%CNAME("二人称")%！」
		ENDIF
	;失敗
	ELSE
		;他に相思相愛の角色がいる
		IF FIND_COND("相思相愛")
			PRINTFORMW 「……もー、%CNAME("二人称")%ってば、もう素敵な恋人桑がいるでしょ？」
		ELSE
			PRINTFORMW 「えっ！？、ええっと……」
			PRINTFORMW 「……もー、冗談はよしてよ%CNAME("二人称")%」
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「な、無いものはあげられない、かなー？」
	ELSE
		PRINTFORMW 「……や、やだ！%CNAME("二人称")%てばっ！」
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね……(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

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

		ELSE

		ENDIF
	ENDIF

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

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	PRINTFORMW 「髪？いいよ！どんなのがいい？」
CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW 「やっぱり、いつものが落ち着くなー」
	CASE "齐刘海"
		PRINTFORMW 「うーん……違和感、というか不思議な感じだなぁ……」
	CASE "直髪"
		PRINTFORMW 「わー……ねぇ、似合ってる？」
	CASE "卷髪"
		PRINTFORMW 「実は家にいる時はおろしてるんだよ、えへへ……」
	CASE "外八"
		PRINTFORMW 「じゃーん、くるっとハネさせました！えへへ、似合ってる？」
	CASE "双马尾"
		;毛量が多い子の双马尾すっごいもこもこ。可爱。
		PRINTFORMW 「うーん、やっぱりもこもこする……」
	CASE "马尾辫"
		PRINTFORMW 「马尾辫もいいよねぇ……ちょっと恥ずかしいけど……」
	CASE "三股辫"
		;これ普段の髪型のほうに分岐するのだろうか……
		;夜とかにはこっちになるんだろうか……
		PRINTFORMW 「じゃーん、えへへ、得意なんだー」
	CASE "编起来"
		PRINTFORMW 「じゃーん、どう？キレイに編めてるでしょー」
	CASE "団子頭"
		PRINTFORMW 「左右の平衡が難しいんだよねぇ……」
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「うーん、ちょっと大変だから嫌かなぁ……」
;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"

CASE "避妊解除拒否"

;一度解除した避妊の護符の再装着をお願いした場合
CASE "避妊の護符"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「えっと……無理かな……ごめんね。」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「うん、任せて！」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "询问有什么想要的东西"

CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/51 棗/EVENT_K51_SHOP.ERB