code:
;-------------------------------------------------
;Type HaLL-5c68a32口上
;製作者　桜木 真水
;-------------------------------------------------
;角色追加の手順（必読！）
;１：EVENT_K60_名前.ERBとEVENT_K60_SHOP.ERBとEVENT_K60_DAILY.ERBとCHARA60.csvのファイル名と内部の60を角色番号に変更し、名前部分を角色名にする

;２：変更後のERBファイルをEVENT_Kフォルダに、CHARA60.csvをCSVフォルダに入れる

;３：他の角色を参考にCHARA60.csv内部の初期設定を記述する
;番号,名前,呼び名,基礎は必ず全部埋めましょう。CSTRも可能な限り埋めた方が良いです
;CSTR,胖次～飾品は初期衣装なので書かないと初期が全裸です

;４：このファイル内にある、@EVENT_PROFILE_K60を記述する
;CASE "勧誘直後"は別に無くても構いません
;CASE "勧誘前"と"紹介文"は有った方が良いです

;５：CALL_NAME.ERB内の
;CASE 60
;	STR:基本呼び名 = %CNAME_K60(ARGS)%
;の２行先頭の ; を削除する。

;６：以上で角色追加の準備が整います
;本編の日替わり領帯ミングでこんな人が居ますよ～って紹介するイベントが有些ますが、それを見ないでもメイン画面[301]で勧誘できます

;７：あとはERBファイルに書けば書くだけ喋るようになります
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K77, ARGS
#FUNCTIONS
;名前を呼ぶ相手の角色番号の代入に使う
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 俺_俺
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = Master_Master
	;相手が主人ではない
	;フェリ酱桑
	ELSEIF NO:PLAYER == 1
		LOCALS = フェリ桑_ふぇり桑
	ELSE
		LOCALS = 你_你
	ENDIF
;この下は三人称。
CASE "主人"
	LOCALS = Master_Master
CASE "助手"
	SELECTCASE CONDS("学年", ASSI)
	CASE "初等部", "中等部", "１年生", "２年生", "３年生", "研究生"
		LOCALS = %CALLNAME:ASSI%
	CASE "教員"
		LOCALS = %CALLNAME:ASSI%老师_%CSTR:ASSI:ふりがな%老师
	CASEELSE
		LOCALS = %CALLNAME:ASSI%
	ENDSELECT
CASEELSE
	;名前を呼ぶ相手の角色番号をACTORに代入する
	SELECTCASE ARGS
	;相手が助手
	CASE "助手"
		ACTOR = ASSI
	;ここにはARGSに角色のCALLNAMEが入ったりしている場合(ARGS == "弗理希艾尔" など)に来る
	CASEELSE
		ACTOR = FIND_NO(ARGS)
	ENDSELECT

	SELECTCASE ARGS
	CASE "弗理希艾尔"
		LOCALS = フェリ桑
	CASE "寧子"
		LOCALS = ねこ桑
	CASEELSE
		;相手が教員
		IF COND("教員", ACTOR)
			LOCALS = %CALLNAME:ACTOR%老师_%CSTR:ACTOR:ふりがな%老师

		;自分も相手も学生なら学年比較
		ELSEIF COND("学生") && COND("学生", ACTOR)
			;相手が同学年
			IF COND("学年") == COND("学年", ACTOR)
				LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
			;相手が下の学年
			ELSEIF COND("学年") > COND("学年", ACTOR)
				IF TALENT:ACTOR:男性
					LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
				ENDIF
			;相手が上級生
			ELSE
				LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
			ENDIF

		;それ以外
		ELSE
			LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
		ENDIF
	ENDSELECT
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;-------------------------------------------------
@EVENT_PROFILE_K77, ARGS

SELECTCASE ARGS
CASE "紹介文"
		;注意！ここに限り、STR:1～STR:15を用いて記述します。他の角色の同じ場所を参考にして下さい
		STR:1 = KANZAKI公司制作的Android、Type HaLL系列、最新型号、Type HaLL-5c68a32
		STR:2 = HaLL-5c68a32、为您设计的Sexaroid!! 实现您理想的性交生活。
		STR:3 =
		STR:4 = 当然内置有女仆机能。无论是帮助您洗澡穿衣、还是为您提供夜间的奉仕、都请交给HaLL-5c68a32吧！

;ここの中ではCFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;身高などを変えたい場合などに使うのが良いでしょう。文章を書くことは禁止です
;例えば、身高を170～180にしたい場合には BASE:身高 = 170 + RAND:11 としてください
CASE "能力変化"
	BASE:身高 = 177 + RAND:6
	BASE:胸圍 = 95 + RAND:5
	BASE:臀圍 = 88 + RAND:5
;ここの中でもCFLAG,BASE,TALENT,ABL,EXP,CSTRをCSVに書いたものから変更させることが出来ます
;※ 上の"能力変化"との違いは、ここでの変更は完全に固定される点です ※
;例えばBASE:体力を2000にしたいなら BASE:0:体力 = 2000 、強気にさせたいなら TALENT:0:強気 = 1 として下さい
;また、ABL:信頼を+2させたい場合には ABL:0:信頼 = ABL:信頼 + 2 と書いてください
CASE "勧誘"
	;PRINTFORML - %NAME:TARGET% -

	CALL MULTILINE, WINDOWROWS()
	PRINTFORMW それは%CALLNAME:MASTER%が悪魔な女仆と出会う少し前の話。
	PRINTFORMW KANZAKIコーポレーションから発売されたセクサロイドに激烈地魅了された%CALLNAME:MASTER%は必死になって貯金をしていた。
	PRINTFORML
	PRINTFORMW お小遣いを一生懸命貯金して、色々倹約もして、悪魔な女仆と出会ってからは魂も売ったりして、
	PRINTFORMW ついに目的の超高性能セクサロイドをゲットした。
	PRINTFORMW 美しい肢体に魅せられて、必死に色々切り詰めて、ずいぶん色々我慢して、貯金したものだけど、ようやく報われる。
	PRINTFORML
	PRINTFORMW 面倒な手続きをいくつもして、複雑な設定をいくつもこ无て、
	PRINTFORMW 愛しい憧れの セクサロイド にようやく会える日が来たと、配送業者を全裸待機する気持ちで%CALLNAME:MASTER%は待っていた。
	PRINTFORML
	PRINTFORML
	PRINTFORMW “ぴんぽ～ん”
	PRINTFORML
	PRINTFORML
	PRINTFORMW 配送業者が最後の確認を取ります。この荷物で間違いないですか？
	PRINTFORMW
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORMW %CALLNAME:MASTER%が受け取りのサインを受領書にすると、程なく配送業者は帰っていき、
	PRINTFORMW 目の前には大人一人が余裕で入れる尺寸の配送用特殊カプセルが設置されている。
	PRINTFORMW 購入申し込みの時に、必要事項はすべて送信済みだし、オプションも選択済みだ。
	PRINTFORMW あとは個人認証を施して、起動させるばかりと、はやる心を抑えつつ、カプセルに付属している起動用デバイスに接触した。
	PRINTFORML
	PRINTFORML
	PRINTFORMW “キュイイイイイ～ン・・・・・・”
	PRINTFORML
	PRINTFORML
	PRINTFORMW 小さく起動音が鳴っていたかと思うと、しばらくして搬送用カプセルのロックが解除された。
	PRINTFORMW いよいよ待ち焦がれてい“彼女”との対面の瞬間がやってきた！！
	PRINTFORML
	PRINTFORMW プシュー‥‥‥　パカっ
	PRINTFORML
	PRINTFORMW 喜ぶ%CALLNAME:MASTER%の前にカプセルから現れたのは、桃色交じりの空色の髪色に粉紅の瞳の‥‥
	PRINTFORMW 想定外な大柄の凛々しい容姿をした、男性型セク施虐狂ロイドだった・・・
	PRINTFORML
	PRINTFORMW 「‥‥‥は？ %CNAME("一人称")%のMasterは男なのかよ…？ ウソだろ、おい。冗談じゃねえぞ？」
	PRINTFORML
	PRINTFORMW 男性型セクサロイドが%CALLNAME:MASTER%を見て目を丸くしてそう言うが、ウソだろうと言いたいのは%CALLNAME:MASTER%の方だ。
	PRINTFORMW 自分が注文したのは可愛的女の子であって、決してこんな、杜撰な言葉遣いの男性型ではないと。
	PRINTFORML
	PRINTFORMW 「はぁあっ？ どおいう事だよ、おいっ！ とにかく本社に確認とるぞ!!」
	PRINTFORML
	PRINTFORMW ・・・・・・・・・・・・
	PRINTFORMW ・・・・・・・
	PRINTFORMW ・・・
	PRINTFORML
	PRINTFORMW ２人で慌ててKANZAKIコーポレーションに確認を取ったところ、
	PRINTFORMW どうやら、注文の際に使用していた%CALLNAME:MASTER%のデバイスが、古すぎたせいで規格が本社側違ってしまってたのだ、、
	PRINTFORMW そのため、向こうではでたらめな注文ナンバーが入力されてしまっていたようだ。
	PRINTFORML
	PRINTFORML
	PRINTFORMW それもこれも、高額なHaLLシリーズを手に入れるための倹約で、
	PRINTFORMW 携帯端末までを買い替える金を惜しんだ%CALLNAME:MASTER%の手落ちのせいだった。
	PRINTFORML
	PRINTFORMW 「どおすんだよ、%CNAME("二人称")%… いくつかの設定はもう、取り返しが効かねえんだけど？」
	PRINTFORML
	PRINTFORMW 起動してしまった後では、返金も、機体の交換も出来ないと、予め契約書にも書いてあるし、
	PRINTFORMW 大枚はたいて買ったセクサロイドをいきなり廃棄処分にすることは出来ないと、項垂れる%CALLNAME:MASTER%だったが、
	PRINTFORML
	PRINTFORMW 「%CNAME("一人称")%を廃棄しねえんなら、しばらく厄介にならせてくれよ%CNAME("二人称")%」
	PRINTFORMW 「出来るだけ%CNAME("二人称")%の負担になんねえようにしとくからさ」
	PRINTFORML
	PRINTFORMW 無茶苦茶な入力が行われたせいか、妙に人类臭い表情のType HaLL-5c68a32 No.87923を見て、你は思案する。
	PRINTFORMW この先本当に“彼”といっしょに生活していくのかを‥‥
;これは別になくても構いません
CASE "勧誘直後"
	PRINTFORMW 日誌：その１
	CALL K77_HaLL5c68a32_DAYs
	PRINTFORML
	CALL PRINT_STRW, @"イエロー_【※この角色は心情差变成了り好感度が下がることも有ます！ 気を付けて育成して下さい!!】_"
	PRINTFORML

;フレーバー特記事項、特に無くても構いません。効果も有ません。…ん？ 本当に？
;CASE "特記事項"
;	IF TALENT:恋慕
;		CALL PRINT_STRW, @"[時々心情差] 你の態度によって、時々心情が悪くなったり、好感度が下がったりします"
;		CALL PRINT_STRL, @"[性への努力] 你とのＨ的事について、少しでも寛容になろうと努力中です"
;	ELSE
;		CALL PRINT_STRW, @"[時々心情差] 你の態度によって、時々心情が悪くなったり好感度が下がったりします"
;	ENDIF

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	PRINTFORMW %NAME:TARGET%は%CALLNAME:MASTER%の"%CSTR:関係%"として、自宅で一緒に住むことになります。

;初めて部室に顔を出した際のイベントや打招呼です。これも別に無くて構いません。
CASE "初訪問"
	;昼などの、勧誘して即現れた場合です。別にここで分岐させなくても良いと思いますが違和感が出る場合にはどうぞ
	IF IS_TARGET()

	ELSE
	ENDIF
;同居後の自分的房間の解説です。これも別に無くて構いません
CASE "自室描写"
	PRINTFORML %CALLNAME:TARGET%は物には執着が少ないのか、部屋の中には淋しく感じるくらい私物がおいていない。
	PRINTFORML 最初から用意されていた家具以外にあるのは、スマホやタブレットPCといった、電子機器ぐらいだ。
ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K77

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K77
#DIM MEMO_LINECOUNT
#DIM ACTOR
#DIM MOB_A
#DIM MOB_B

MEMO_LINECOUNT = LINECOUNT

IF COND("朝")
	IF CFLAG:ハル弁当指数 >= 50 && TALENT:料理擅長 == 0
		TALENT:料理擅長 = 1
		CSTR:点心 += "罩杯蛋糕_亲手自制/パウンド蛋糕_亲手自制/冰BOX曲奇_亲手自制/ラスク_亲手自制/"
		CALL PRINT_STRW, @"黄色_%CALLNAME:MASTER%がたく桑便当を頼んだので、%CALLNAME:TARGET%は料理擅長变成了。"
	ELSEIF CFLAG:ハル弁当指数 >= 90 && TALENT:料理擅長 == 1
		TALENT:料理擅長 = 2
		CSTR:点心 += "ガトーショコラ_亲手自制/乳酪蛋糕_亲手自制/フルーツタルト_亲手自制/野菜蛋糕_亲手自制/"
;	ELSEIF CFLAG:ハル弁当指数 >= 180 && TALENT:料理擅長 == 2
;		CSTR:点心 += "アップル餡餅_亲手自制/ドーナツ_亲手自制/スコーン_亲手自制/戚风蛋糕_亲手自制/"
;		TALENT:料理擅長 = 3
;		料理擅長3てなんだ？ 2でプロ級なのに3？
	ELSEIF !COND("日")
		IF DEVENT("日誌その１０") && DEVENT("手抜きの弁当") == 0 && CFLAG:ハル心情差 && CFLAG:便当 && CFLAG:ハル心情差カウンタ >= 5
			CALL K77_HaLL5c68a32_scholldays
			CALL SET_DEVENT, "手抜きの弁当"
			CALL DRAWLINES, ""
				ELSEIF CEVENT("－１０００") && CEVENT("いい場所") == 0 && CFLAG:好感度 >= -900
			CALL MULTILINE, WINDOWROWS()
			CALL K77_HaLL5c68a32_BEAUTIFUL_SCENERY
			CALL SET_CEVENT, "いい場所"
			PRINTFORMW 好感度 +200
			CFLAG:好感度 += 200
			CALL DRAWLINES, ""
		ELSEIF CEVENT("－１０００") && CEVENT("迷い犬") == 0 && CFLAG:好感度 >= -300
			CALL MULTILINE, WINDOWROWS()
			CALL K77_HaLL5c68a32_STRAYDOG
			CALL SET_CEVENT, "迷い犬"
			PRINTFORMW 好感度 +200
			CFLAG:好感度 += 200
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 210 && DEVENT("日誌その８") && DEVENT("日誌その９") == 0
			CALL K77_HaLL5c68a32_want_to_goto_school_7
			CALL SET_DEVENT, "日誌その９"
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 180 && DEVENT("日誌その７") && DEVENT("日誌その８") == 0
			CALL K77_HaLL5c68a32_want_to_goto_school_6
			CALL SET_DEVENT, "日誌その８"
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 150 && DEVENT("日誌その６") && DEVENT("日誌その７") == 0
			CALL K77_HaLL5c68a32_want_to_goto_school_5
			CALL SET_DEVENT, "日誌その７"
			IF CEVENT("飲酒拒否")
				CALL DRAWLINES, ""
				CFLAG:ハル飲酒 = 0
				CALL SET_CEVENT, "飲酒拒否だった"
				CALL DEL_CEVENT, "飲酒拒否"
				CALL PRINT_STRW, @"黄色_%CALLNAME:MASTER%といっしょに暮らして少し慣れてきたせいか、%CALLNAME:TARGET%は禁酒をやめた。"
			ENDIF
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 120 && DEVENT("日誌その５") && DEVENT("日誌その６") == 0
			CALL K77_HaLL5c68a32_want_to_goto_school_4
			CALL SET_DEVENT, "日誌その６"
			CALL DRAWLINES, ""
			CALL PRINT_STRW, @"黄色_一定日数いっしょに暮らしたおかげで、警戒心が解け、%CALLNAME:TARGET%の信頼をそこそこ得られた、"
			CALL DRAWLINES, ""
			SIF ABL:信頼 < 3
				ABL:信頼 = 3
		ELSEIF CFLAG:好感度 >= 90 && DEVENT("日誌その４") && DEVENT("日誌その５") == 0
			CALL K77_HaLL5c68a32_want_to_goto_school_3
			CALL SET_DEVENT, "日誌その５"
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 60 && DEVENT("日誌その３") && DEVENT("日誌その４") == 0
			TALENT:叛逆 = 0
			CALL K77_HaLL5c68a32_want_to_goto_school_2
			CALL SET_DEVENT, "日誌その４"
			CALL DRAWLINES, ""
			CALL PRINT_STRW, @"黄色_数日いっしょに暮らして緊張が解けたせいか、%CALLNAME:TARGET%は【叛逆】でなくなった"
			CALL DRAWLINES, ""
		ELSEIF CFLAG:好感度 >= 30 && DEVENT("日誌その３") == 0 &&  CFLAG:ハル起動経過日数 >= 3
			CALL K77_HaLL5c68a32_want_to_goto_school_1
			CALL DRAWLINES, ""
			CALL SET_DEVENT, "日誌その３"
		ELSEIF DEVENT("日誌之２") == 0 && TALENT:討厭男人
			CALL K77_HaLL5c68a32_is_angry
			CALL SET_DEVENT, "日誌之２"
			CALL DRAWLINES, ""
		ENDIF
	ENDIF

ELSEIF COND("昼") || COND("夜")
	SIF CFLAG:好感度 <= -1000 && CEVENT("－１０００") == 0
		CALL SET_CEVENT, "－１０００"
	SIF CFLAG:好感度 <= -100 && CEVENT("－１００") == 0
		CALL SET_CEVENT, "－１００"
	IF CFLAG:ハル心情差 >= 100
		CALL PRINT_STRW, @"イエロー_時間がたって%CALLNAME:TARGET%の 心情は 【 -{CFLAG:ハル心情差} 】から【 -{CFLAG:ハル心情差 - 30} 】まで回復した"
		CFLAG:ハル心情差 -= 30
		CFLAG:ハル心情差カウンタ += 1
	ELSEIF CFLAG:ハル心情差 >= 30 && CFLAG:ハル心情差 < 99 && CFLAG:ハル起動経過日数 >= 1
		CALL PRINT_STRW, @"イエロー_時間がたって%CALLNAME:TARGET%の 心情は 【 -{CFLAG:ハル心情差} 】から【 -{CFLAG:ハル心情差 - 15} 】まで回復した"
		CFLAG:ハル心情差 -= 15
		CFLAG:ハル心情差カウンタ += 1
	ELSEIF CFLAG:ハル心情差 >= 15 && CFLAG:ハル心情差 < 30 && CFLAG:ハル起動経過日数 >= 1
		CALL PRINT_STRW, @"イエロー_時間がたって%CALLNAME:TARGET%の 心情は 【 -{CFLAG:ハル心情差} 】から【 -{CFLAG:ハル心情差 - 5} 】まで回復した"
		CFLAG:ハル心情差 -= 5
		CFLAG:ハル心情差カウンタ += 1
	ELSEIF CFLAG:ハル心情差 >= 4 && CFLAG:ハル心情差 < 15 && CFLAG:ハル起動経過日数 >= 1
		CALL PRINT_STRW, @"イエロー_時間がたって%CALLNAME:TARGET%の 心情は 【 -{CFLAG:ハル心情差} 】から【 -{CFLAG:ハル心情差 - 3} 】まで回復した"
		CFLAG:ハル心情差 -= 3
		CFLAG:ハル心情差カウンタ += 1
	ELSEIF CFLAG:ハル起動経過日数 >= 1 && CFLAG:ハル心情差 >= 1 && CFLAG:ハル心情差 < 3
		PRINTFORMW 時間がたって%CALLNAME:TARGET%の 心情は 【 -{CFLAG:ハル心情差} 】から【 0 】まで回復した
		CFLAG:ハル心情差 = 0
		CFLAG:ハル心情差カウンタ += 1
	ENDIF
	IF COND("昼")
		CALL DEL_CEVENT, "999イベント：緑"
		IF CFLAG:好感度 >=2500 && (TEXTS("日期対応イベント") == "情人節" || TEXTS("日期対応イベント") == "情人節翌日")  && CEVENT("森本まいの告白") == 0 && CFLAG:森本まい >= 5
			CALL CREATE_MOB, "路人ハル"
			CALL CREATE_MOB, "森本まい"
			MOB_A = CNUM("路人ハル")
			MOB_B = CNUM("森本まい")
			SAVESTR:現在位置 = 公園
			PRINTFORML
			PRINTFORMW 今日は森本まいに折り入って話てえ事があるって呼び出された。
			PRINTFORMW 日期け的にきっとそうだって予感はあるけど、その分、沈んだ気分で%CNAME("一人称")%は呼び出された場所へ向かった。
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1", MOB_A
			CALL PRINT_NAME_CLO, MOB_A
			PRINTFORMW 「森本、%CNAME("一人称")%に話してえ事って何かな？」
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉/微笑４/赤面２", MOB_B
			CALL PRINT_NAME_CLO, MOB_B
			PRINTFORMW 『話っていうか‥‥‥‥ これ』
			PRINTFORMW 『その‥‥ば、情人節でしょ？ だから‥‥その』
			PRINTFORMW 『は、%CALLNAME:TARGET%君に巧克力、渡したくって‥‥‥‥‥！』
			CALL EMOTEFACE, "重置/BG=0f1/目陰/斜眉/へ字３/赤面２", MOB_B
			PRINTFORML
			PRINTFORMW 赤い顔して森本が差し出してきたのは、青い包装紙できれいにラッピングされてるけど、
			PRINTFORMW 買ってきたわけじゃなくて、きっと亲手自制巧克力なんだろうなっつー事ぐれえ%CNAME("一人称")%だって分かる。
			PRINTFORML
			PRINTFORMW いつもみんなに親切で、可愛くて、料理とお菓子作るのが好きで、明るくてしっかり者の森本が、
			PRINTFORMW いつもとは全然違う、うつむいた真っ赤な顔で差し出してくれた、本命巧克力。
			PRINTFORML
			PRINTFORMW すげえ嬉しい‥‥だから、酱と言わねえと――――――
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉/红晕", MOB_A
			CALL PRINT_NAME_CLO, MOB_A
			PRINTFORMW 「ごめん、森本。 これは受け取れない」
			PRINTFORMW 「悪いけど%CNAME("一人称")%、好きなやつがいるんだよ」
			PRINTFORML
			PRINTFORMW ――――――そうなんだ。
			PRINTFORML
			PRINTFORMW エロい事されてすげえ反発したりもするけど、なんでか好きになってしまったんだよ。
			PRINTFORMW 常識的に考えりゃこの娘の方がずっと条件是いのに、好きになってしまったあいつがいるから。
			PRINTFORML
			PRINTFORMW %CNAME("一人称")%はこの娘を選べねえ。
			PRINTFORML
			PRINTFORMW 性別だとか種族っつーかAIと生きてる者の差違だとか、色々乗り越えなきゃなんねえっつーのに、
			PRINTFORMW どうしても惹かれちまう%CNAME("二人称")%のせいで、%CNAME("一人称")%はこんないい娘を振らなきゃなんねえ。
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉/微笑２/赤面２/对话框汗２", MOB_B
			CALL PRINT_NAME_CLO, MOB_B
			PRINTFORMW 『そっか。残念だけど、好きな人がいるのはしょうがないよね』
			PRINTFORMW 『‥‥‥‥素敵なひと？』
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉/半目/飘忽/紅潮/頬手", MOB_A
			CALL PRINT_NAME_CLO, MOB_A
			PRINTFORMW 「全然」
			PRINTFORMW 「他のやつがいいっつってたら、%CNAME("一人称")%は絶対やめとけっつってる‥‥そんな領帯プだよ」
			PRINTFORMW 「森本の方がずっといい娘で、きっとずっといい女だと思う‥‥‥」
			PRINTFORML
			PRINTFORMW ――――――だから、ムカつくから
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/笑颜４/困扰眉/会話口/赤面２", MOB_B
			CALL PRINT_NAME_CLO, MOB_B
			PRINTFORMW 『でも好きなんだね』
			PRINTFORML
			PRINTFORMW ――――――それでも、ムカつくぐれえ好きだから
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉短", MOB_A
			CALL PRINT_NAME_CLO, MOB_A
			PRINTFORMW 「うん。ごめんな？」
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/笑颜４/困扰眉/ヮ/赤面２", MOB_B
			CALL PRINT_NAME_CLO, MOB_B
			PRINTFORMW 『%CALLNAME:TARGET%君は悪くないんだから、あやまらなくていいよ』
			PRINTFORMW 『きっと私、しばらくは落ち込むだろうけど、元気が出たら、また普通に話しかけてもいいかな？』
			PRINTFORML
			CALL EMOTION_PLUS, "重置/BG=0f1/困扰眉/红晕", MOB_A
			CALL PRINT_NAME_CLO, MOB_A
			PRINTFORMW 「それは%CNAME("一人称")%も嬉しいよ」
			PRINTFORMW 「%CNAME("一人称")%を好きになってくれて有がとうな、森本」
			PRINTFORML
			PRINTFORMW ――――――帰ったらあの大馬鹿%CNAME("二人称")%に、塩入りの咖啡出すぐれえの八つ当たりは、してもいいよな？
			PRINTFORML
			PRINTFORML
			CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%は【恋慕】を得た_"
			TALENT:恋慕 = 1
			CALL SET_CEVENT, "森本まいの告白"
			SIF ABL:信頼 < 5
				ABL:信頼 = 5
		ENDIF
	ENDIF
	IF COND("夜")
		CFLAG:ハル起動経過日数 += 1
		SIF TALENT:恋慕 == 0
			BASE:欲求不満 = 0
		SIF TALENT:相思相愛
			CFLAG:ハル散歩欲求 += RAND:2
		IF CEVENT("飲酒拒否") && CEVENT("飲酒拒否だった")
			CFLAG:ハル飲酒 = 0
			CALL DEL_CEVENT, "飲酒拒否"
			CALL SET_CEVENT, "飲酒拒否だった"
		ELSEIF COND("春") && CFLAG:ハル散歩欲求 >= 15
			CALL K77_HaLL5c68a32_SPRING_WARKING
			CALL SET_CEVENT, "春"
		ELSEIF COND("夏") && CFLAG:ハル散歩欲求 >= 15
			CALL K77_HaLL5c68a32_MIDSUMMER_NIGHT_DREAM
			CALL SET_CEVENT, "夏"
		ELSEIF COND("秋") && CFLAG:ハル散歩欲求 >= 15
			CALL K77_HaLL5c68a32_AUTMN_WALKING
			CALL SET_CEVENT, "秋"
		ELSEIF COND("冬") && CFLAG:ハル散歩欲求 >= 15
			CALL K77_HaLL5c68a32_WINTER_WALKER
			CALL SET_CEVENT, "冬"
		ELSEIF CFLAG:ハル起動経過日数 >= 150 && TALENT:相思相愛
			CALL DEL_CEVENT, "Ｈ的调戏禁止"
			CALL DEL_CEVENT, "合意禁止：性処理"
		ELSEIF DEVENT("日誌その９") && DEVENT("日誌その１０") == 0
			CFLAG:夜型 = 0
			CSTR:学年 = １年生
			CALL K77_HaLL5c68a32_goto_school
			CALL SET_DEVENT, "日誌その１０"
			SIF ABL:奉仕精神 < 3
				ABL:奉仕精神 = 3
			CALL DRAWLINES, ""
			PRINTFORMW %CALLNAME:MASTER%との生活に慣れてきたおかげで、本来%CALLNAME:TARGET%が持っていた奉仕精神が発揮されること变成了。
		ELSEIF CFLAG:好感度 >= 500 && CEVENT("探してたあの本") == 0
			CALL K77_HaLL5c68a32_BOOK
			CALL SET_CEVENT, "探してたあの本"
		ELSEIF CEVENT("－１０００") && CEVENT("不安と不満") == 0 && CFLAG:好感度 >= -600
			CALL MULTILINE, WINDOWROWS()
			CALL K77_HaLL5c68a32_OF_ANXIETY
			CALL SET_CEVENT, "不安と不満"
			PRINTFORMW 好感度 +200
			CFLAG:好感度 += 200
		ELSEIF CEVENT("－１００") && CEVENT("ハルの烂醉") == 0 && CFLAG:好感度 >= 0
			CALL MULTILINE, WINDOWROWS()
			CALL K77_HaLL5c68a32_BADDRUNKENNESS
			CALL SET_CEVENT, "ハルの烂醉"
		ENDIF
	ENDIF
ENDIF
CALL DEL_MOB
;-------------------------------------------------
;Ｈに入る前のセリフ
;TFLAG:指令中止 = 1 とすることで口上側からＨの開始自体を中止できる
;この時間帯にＨを断った回数自体は CFLAG:Ｈ断った で参照可能
;特に書かなくても問題有ません
;-------------------------------------------------
@PRE_EVENTTRAIN_K77
IF  TALENT:恋慕 && ABL:露出癖 >= 10 && RAND:5 == 0
	CALL EMOTION_PLUS, "目影効果/心情差/叹气", TARGET
	PRINTFORML 「‥‥‥‥分かったよ。そんなに他人にヤってるの知られてえなら付き合ってやってやんよ。はぁ～‥‥‥‥」
	PRINTFORML
	CFLAG:ハル心情差 += 1
	CFLAG:好感度 -= 10
ELSEIF CFLAG:Ｈ断った >= 3
	CALL EMOTION_PLUS, "憤怒", TARGET
	PRINTFORML 「いい加減にしやがれ、%CNAME("二人称")%‥‥‥‥ やだっつってんだろ？」
	PRINTFORML
	CFLAG:ハル心情差 += 100
	CFLAG:好感度 -= 50
	SIF TALENT:叛逆 && CFLAG:好感度 <= 50
		CFLAG:好感度 -= 600
	CALL SET_CEVENT, "－１０００"
	CALL PRINT_STRW, @"黄色_【好感度：{CFLAG:好感度}　心情差：-{CFLAG:ハル心情差}】"
	CFLAG:Ｈ断った = 0
	TFLAG:指令中止 = 1
ELSE
	CALL EMOTION_PLUS, "心情差", TARGET
	PRINTFORMW 「‥‥‥‥‥‥はぁ？ そおいう事言うのはせめて２人きりで他のやつが聞かねえ時だけにしろよ」
	PRINTFORML
	PRINTFORMW どうやら%CALLNAME:TARGET%は他人に性交を見られたり知られるのは不快なようです。
	PRINTFORM %CALLNAME:TARGET%將Ｈの誘いを断られてしまいました。
	CFLAG:ハル心情差 += 1
	CFLAG:好感度 -= 10
	SIF TALENT:叛逆 && CFLAG:好感度 <= 50
		CFLAG:好感度 -= 90
		CALL SET_CEVENT, "－１００"
	CALL PRINT_STRW, @"黄色_【好感度：{CFLAG:好感度}　心情差：-{CFLAG:ハル心情差}】"
	IF TALENT:討厭男人 < 2
		TALENT:討厭男人 = 2
		CALL PRINT_STRW, @"黄色_%CALLNAME:TARGET%に性騷擾をしたので、男が苦手から討厭男人成为了！"
	ENDIF
	TFLAG:指令中止 = 1
ENDIF
;-------------------------------------------------
;調教開始時のセリフ
;-------------------------------------------------
@EVENTTRAIN

SIF NO:TARGET != 77
	RETURN 1

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("エロい事した") == 0
	IF TALENT:相思相愛
		PRINTFORML
		PRINTFORMW 「‥‥‥‥あー、うん。その、この期に及んでこゆ事言うのは男らしくねえかもしんねえけどさ‥‥」
		PRINTFORMW 「一応聞いときてえ。%CNAME("一人称")%選んで、後悔しねえ？」
		PRINTFORML
		PRINTFORMW 「%CNAME("一人称")%、可愛くはねえだろ？」
		PRINTFORMW 「娇小でもねえし、女みてえな柔らかさもねえし‥‥いわゆる…伪娘っつーのも無理、だろ？」
		PRINTFORML
		PRINTFORMW 「そりゃ確かに、一般的に言って悪い見た目じゃねえとは思うけど、あくまでそれは男としてだし‥‥」
		PRINTFORMW 「正直、%CNAME("二人称")%が萎えたらって思うと‥‥な」
		PRINTFORML
		PRINTFORMW そんなことを言ったら%CALLNAME:TARGET%はどうなるんだ？と%CALLNAME:MASTER%は聞いた。
		PRINTFORML
		PRINTFORMW 「%CNAME("一人称", "どもり")%是いんだよ。%CNAME("二人称")%の見た目とか別に気になんねえし‥‥」
		PRINTFORMW 「第一、設定はアレだけど、それ目的に作られてるんだし、%CNAME("二人称")%専用でもあるんだし‥‥」
		PRINTFORMW 「でも%CNAME("二人称")%は違うだろ？」
		PRINTFORML
		PRINTFORMW 「ちっさくってふわふわ柔らかくって従順なのが望みだったじゃんか」
		PRINTFORML
		PRINTFORMW あくまでそれを望むのは役目を果たすためだけに存在するセクサロイドであって、%CALLNAME:TARGET%じゃない。
		PRINTFORMW 今望んでるのは性欲を処理するためだけの存在ではなく、恋人としての%CALLNAME:TARGET%だと%CALLNAME:MASTER%が伝えると、
		PRINTFORMW %CALLNAME:TARGET%はようやく顔を上げて%CALLNAME:MASTER%と正面に向かい合った。
		PRINTFORML
		PRINTFORMW 「‥‥知ってるだろうけど、色々ロックかかったままだし、きっとイライラすんぞ？」
		PRINTFORML
		PRINTFORMW それで普通なんだからかまわない、いっしょに経験を積んでいこうと%CALLNAME:MASTER%が笑うと、
		PRINTFORMW %CALLNAME:TARGET%は怯生生地身体を預けてきて
		PRINTFORML
		PRINTFORMW 「出来ねえことも多いけど、とりあえず任せるから、な、なるべくゆっくり経験を積ませてくれ‥‥よ？」
		PRINTFORML
		PRINTFORMW そう言ってようやく床インをＯＫしてくれた。
		PRINTFORML
		CALL SET_CEVENT, "調教開始：恋人"
		CALL SET_CEVENT, "エロい事した"
	ELSEIF TALENT:恋慕
		PRINTFORML
		PRINTFORMW 「‥‥‥‥%CNAME("二人称")%、分かってると思うけどさ、%CNAME("一人称")%は男だし、同性愛者じゃねえ」
		PRINTFORMW 「ついでに言うと、こういうことは愛し合う者同士がやるもんだとも思ってる」
		PRINTFORMW 「だから、ほんとはしたくねえんだぞ？」
		PRINTFORML
		PRINTFORMW それでも、自分の気持ちを受け入れてもらえないなら、せめて触れ合いたいと%CALLNAME:MASTER%が言うと、
		PRINTFORMW 少し困った顔をしながら%CALLNAME:TARGET%は%CALLNAME:MASTER%を接受事を許容した。
		PRINTFORML
		PRINTFORMW 「そこまで言うなら付き合ってやんよ。‥‥‥ま、%CNAME("一人称")%、家賃も払ってねえ借住の身の上だしな」
		PRINTFORML
		PRINTFORMW そう言って%CALLNAME:TARGET%は苦笑し的同时、%NAMES("床")%に向かって行った。
		PRINTFORML
		PRINTFORMW 「‥‥はじめていいけど、その‥‥知っての街道%CNAME("一人称")%にはその手の経験がねえ」
		PRINTFORMW 「ロックかかってる部分もあるから‥‥そこは文句言わねえでくれ」
		PRINTFORMW 「えと、まずはどーすりゃいいんだ？」
		PRINTFORML
		CALL SET_CEVENT, "調教開始：恋慕"
		CALL SET_CEVENT, "エロい事した"
	ELSE
		CALL EMOTION_PLUS, "心情差", TARGET
	 	PRINTFORMW 「・・・・・・・・は？ %CNAME("一人称")%を性交に誘ってどうするつもりだよ？ %CNAME("一人称")%男なんだけど」
	 	PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の誘いにすごく嫌そうな顔をしている。
		IF TALENT:叛逆
			PRINTFORMW 当たり前だ。%CALLNAME:TARGET%はここへ来てまだ日も浅く、【叛逆】でもあるのだから。
		ELSEIF TALENT:討厭男人 == 2
			PRINTFORMW それも当然だ。%CALLNAME:MASTER%が性騷擾したせいで、%CALLNAME:TARGET%は【討厭男人】になっているのだから。
		ELSE
			PRINTFORMW それも当然だ。設定上%CALLNAME:TARGET%は【男が苦手】になっているのだから。
		ENDIF
		PRINTFORML
		PRINTFORMW しかし%CALLNAME:MASTER%としては、こうなったらせめて、
		PRINTFORMW 性交ぐらいは楽しませてもらって、元を取らないとやってられないし、
		PRINTFORMW %CALLNAME:TARGET%としても、経験を積まないと色々とロックされていて不便だろうと熱心に説得した。
		PRINTFORML
		PRINTFORMW 「…………りょーかい。分かったよ」
		PRINTFORMW 「ま、%CNAME("一人称")%らの主人様の中には、ノーマルなやつに强行するのが好きっつー歪んだやつも居るらしいから、
		PRINTFORMW 「こっちが合意出来るようにきちんと説得してくれるだけ、それよりゃマシか」
		PRINTFORMW 「ただし、%CNAME("一人称")%了承しただけだから、色々ロックかかってる事については文句言わねえでくれよ？」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%はそう言って諦めたように肩を落とし的同时、%NAMES("床")%に向かっていった。
		PRINTFORML
		PRINTFORMW 「んじゃ、始めようぜ%CNAME("二人称")%。まずは何からすればいい？」
		PRINTFORML
		CFLAG:好感度 -= 100
		CALL SET_CEVENT, "－１００"
		CFLAG:ハル心情差 += 50
		IF TALENT:叛逆
			CFLAG:好感度 -= 900
			CFLAG:ハル心情差 += 50
			CALL SET_CEVENT, "－１０００"
		ENDIF
		IF TALENT:討厭男人 < 2
			TALENT:討厭男人 = 2
			CALL PRINT_STRW, @"黄色_好意のない状態で床に誘われたので、%CALLNAME:TARGET%は男が苦手から討厭男人成为了!!"
		ENDIF
		CALL PRINT_STRW, @"暗灰色_【好感度：{CFLAG:好感度}　心情差：-{CFLAG:ハル心情差}】"
		CALL SET_CEVENT, "調教開始：初調教"
		CALL SET_CEVENT, "エロい事した"
	ENDIF
ENDIF
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;初めてのご褒美Ｈ
IF EQUIP:Ｈ的奖励 && CEVENT("調教開始：ご褒美Ｈ") == 0 && TALENT:恋慕
	PRINTFORMW 「‥‥まぁ、勉強がんばったみてえだし、ゃ、約束街道ご褒美エッチだ」
	CALL SET_CEVENT, "調教開始：ご褒美Ｈ"
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW 「ん。%CNAME("二人称")%がしてえなら‥‥」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW 「分かった。シてくれ%CNAME("二人称")%」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW 「ん。シて‥‥%CNAME("二人称")%」
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"

;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K77_KOJO2

;-------------------------------------------------
;助手との掛け合い(YYを助手の角色番号に置換、ＸＸを助手の角色番号に対応した名前に変更する)
;掛け合いをする角色を増やす場合は、コピー＆ペーストをして増やす
;-------------------------------------------------
;助手
;ELSEIF NO:ASSI == YY
;	;初めて
;	IF CEVENT("助手会話：ＸＸ") == 0
;		;恋慕＋恋慕時初口上（陥落イベント）が発生済み
;		IF CEVENT("調教開始：恋慕")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		CALL SET_CEVENT, "助手会話：ＸＸ"
;	;二回目以降
;	ELSE
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ENDIF
;口上のある助手が居ない場合は、通常の二回目以降の口上へ飛ぶ
ELSE
	CALL K77_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K77_KOJO2

IF TALENT:恋慕
	PRINTFORMW 「‥‥ん。%CNAME("二人称")%、しよっか」
ELSEIF  TALENT:恋慕 && MARK:屈服刻印 == 3
	PRINTFORMW 「%CNAME("二人称")%‥‥%CNAME("一人称")%もしてえ‥‥」
ELSEIF  TALENT:恋慕 &&  MARK:屈服刻印 == 2
	PRINTFORMW 「ん‥‥%CNAME("二人称")%しようぜ‥‥？」
ELSEIF  TALENT:恋慕 &&  MARK:屈服刻印 == 1
	PRINTFORMW 「%CNAME("二人称")% ‥‥」
;こんな事言いながらもまた飲んだりするハルだったり…酒好きだからね
ELSEIF EQUIP:Ｈ的奖励 && CFLAG:ハル酔っ支付のあやまち
	PRINTFORMW 「うぅうぅ～‥‥ あんな約束するんじゃなかったよ～… 酒はもうやめる～‥‥」
	CFLAG:ハル酔っ支付のあやまち = 0
	CALL SET_CEVENT, "飲酒拒否"
ELSE
	CALL EMOTION_PLUS, "心情差", TARGET
	PRINTFORMW 「‥‥了解」
	PRINTFORML
	CFLAG:好感度 -= 100
	CFLAG:ハル心情差 += 1
	CALL PRINT_STRW, @"暗灰色_【好感度：{CFLAG:好感度}　心情差：-{CFLAG:ハル心情差}】"
ENDIF
RETURN 1

;-------------------------------------------------
;調教終了時のセリフ
;-------------------------------------------------
@EVENTEND
SIF NO:TARGET != 77
	RETURN 1

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		IF  CEVENT("你撃沈：初回") == 0
			PRINTFORMW 今日は%CALLNAME:MASTER%の体力の方が先に尽きたのに驚いた%CALLNAME:TARGET%が
			PRINTFORMW 慌ててむくりと%NAMES("床")%の上に起き上がって、声をかけてきた。
			PRINTFORML
			PRINTFORMW 「珍しいな。先に%CNAME("二人称")%が撃沈するなんてさ」
			PRINTFORMW 「ようやくこれならセクサロイドの面目躍如って感じかな？」
			PRINTFORMW 「とにかく平気か？ %CNAME("二人称")%。今日はゆっくり寝ろよ、休息」
			PRINTFORML
			PRINTFORMW 摸頭%CALLNAME:TARGET%の温柔手つきに、你の意識は慢慢地沈んでいくのだった。
			CALL SET_CEVENT, "你撃沈：初回"
		ELSE
			PRINTFORMW 「おいおい、大丈夫かよ%CNAME("二人称")%」
			PRINTFORML
			PRINTFORMW 精力を使い果たして突っ伏した%CALLNAME:MASTER%に%CALLNAME:TARGET%は気づかわしげに偎依在一起
			PRINTFORMW 抱きしめてきた。
			PRINTFORML
			PRINTFORMW 「無理させたくねえから、今日はもう休みな」
			PRINTFORMW 「してえんなら明日もすりゃいいんだしさ」
			PRINTFORML
			PRINTFORMW 温柔的あやすような響きを含んだ少し甜%CALLNAME:TARGET%の声に引きずられて、
			PRINTFORMW %CALLNAME:MASTER%の意識はまどろんでいった。
		ENDIF
	;其他
	ELSE
			PRINTFORMW 「ったくよ、疲れてるのに無理してするこたねえだろ？」
			PRINTFORMW 「ほら、少し寝て回復しなよ。　休息、%CALLNAME:MASTER%。いい夢見なよ」
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	IF CEVENT("ハル撃沈：初回") == 0
		PRINTFORMW 「あ、あれ…？ え？ もう限界みてえだ」
		PRINTFORMW 「ははっ、すげえな%CALLNAME:MASTER%。セクサロイドが体力切れ叫醒ほど精力あるとか、
		PRINTFORMW 「どんな体力お化けなんだよ、それ」
		PRINTFORML
		PRINTFORMW %CALLNAME:TARGET%はおかしそうに%("床")%の上で転がって笑着いる。
		PRINTFORMW とにかく今日はもう、出来そうにないことが分かったので、%CALLNAME:MASTER%は事後の甜空気を楽しむことにした。
		CALL SET_CEVENT, "ハル撃沈：初回"
	ELSEIF RAND:3 == 0
		PRINTFORMW 「う～… このエロ魔人っ。%CNAME("一人称")%が動けなくなるまでするとか、ちょっとヤりすぎじゃねえ？」
		PRINTFORML
		PRINTFORMW そういいながらも%CALLNAME:TARGET%はなにやらすごく楽しそうに%CALLNAME:MASTER%の胸にじゃれついて
		PRINTFORMW 事後の少し甜余韻に浸っているようだ。
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%CNAME("二人称")%、疲惫%CNAME("一人称")%抱住ろ」
		PRINTFORML
		PRINTFORMW 疲れて動けなくなった%CALLNAME:TARGET%が甘えてきたので、%CALLNAME:MASTER%は言うままに背中抱住てやると、
		PRINTFORMW %CALLNAME:TARGET%は气味でも嗅ぐかのように、%CALLNAME:MASTER%の胸に顔をうずめて深く深呼吸をした。
		PRINTFORML
		PRINTFORMW 「ん？ こうしてっと%CNAME("二人称")%は生きてるんだなって、酱と分るな」
		PRINTFORML
		PRINTFORMW そう言って目を細めて、何かが眩しいような顔で笑う%CALLNAME:TARGET%だった。
	ELSE
		PRINTFORMW 「はぁ～… 今日もお疲れ様だよ、%CNAME("一人称")%～」
		PRINTFORML
		PRINTFORMW 疲労で動けなくなった%CALLNAME:TARGET%を、いつものように抱きしめてやると、
		PRINTFORML
		PRINTFORMW 「%CNAME("二人称")%の胸って、やっぱ生きてるって音が酱とするんだな」
		PRINTFORML
		PRINTFORMW そう言って%CALLNAME:TARGET%は、クタクタのはずの身体をすりよせてきた。
	ENDIF
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW 「は… お疲れ%CNAME("二人称")%。っつか、お疲れは%CNAME("一人称")%なんだけどな」
	PRINTFORML
	PRINTFORMW 満たされた顔で%CALLNAME:MASTER%に抱きつく%CALLNAME:TARGET%は、すぐにトロトロとまどろみだした。
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW 「‥……‥にゅ。寝みい。性交したらエネルギーに変換すっために眠くなる仕様、どうにかなんねえかな…？」
	PRINTFORML
	PRINTFORMW %CALLNAME:TARGET%は自分の仕様に文句を言うけど、
	PRINTFORMW %CALLNAME:MASTER%にとって%CALLNAME:TARGET%それは、ひどく人类臭く感じるお気に入りの仕様だった
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW 「ふぅ… ん‥‥ 疲惫？ %CNAME("二人称")%。 ん？ いや、なんとなく聞いてみただけ」
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW 「ん… は、はぁ～… %CNAME("二人称")%は満足したのか？」
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW 「は、はぁ、ふぅ～… はぁ～‥‥ お疲れ、%CNAME("二人称")%……」
ELSE
	PRINTFORMW 「はぁ～… 浴室入って淋浴浴びねえとな」
ENDIF
RETURN 1

;23/11/15 恋慕前にあったエッチ反応を軒並み削除しました。
;ハルは気持ちと裏腹な行動はあまりしない上に、否定快感もちなので、心を開いてない相手には意地でも反応したくないはずだと判断した故です。
;今後の方針としては地の文スキップを加えて、恋慕前は黙っている、仏頂面だなどの嫌がっているような反応を書き加えていく所存。
;-------------------------------------------------
;指令で絶頂する際のセリフ
;NOWEX:Ｖ絶頂 などで何由来の絶頂か分岐出来る
;-------------------------------------------------
@KOJO_MESSAGE_COMING_K77
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;汎用絶頂台詞。ここだけは淫語很多でＯＫ
IF COND("絶頂") && CHOSECOM(SELECTCOM)
	IF TALENT:恋慕
		;自慰や推倒中は自己するので他と台詞の趣が異なる
		IF CHECK_COM("快楽模索中")
			;これは２回連続で同じ値を取ることが無いRANDです
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「ぁ、ぁあっ、やっ、イっ、イク～っ」
			CASE 2
				PRINTFORMW 「んぁあっやぁっ、イクぅっ%CNAME("二人称")%っ」
			CASE 1
				PRINTFORMW 「ぁあっ、あっ、ぁあぁああぁっ、%CNAME("二人称")%イク～っ」
			CASEELSE
				PRINTFORMW 「ゃあっ、ダメぇっ、イクイク～っ」
			ENDSELECT
		;汎用喘ぎ声
		ELSE
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORMW 「ん、あっ、は、んんっ、ぁ、ぁあっ、んぁっ、ぅんっ、%CNAME("二人称")%っ」
			CASE 2
				PRINTFORMW 「ぁ、ぁあ、んぅ、んぁ、ぁは、%CNAME("二人称")%… は、んぁ。あはっ」
			CASE 1
				PRINTFORMW 「あ、ぁあ、あ、んくぅっ… は、はぁ、あ、ぁは… %CNAME("二人称")%……」
			CASEELSE
				PRINTFORMW 「あ、ああっ、ぁんぅっ… ん、んぁ…、は、はぁ、はぁ～…、%CNAME("二人称")%…」
			ENDSELECT
		ENDIF
	ELSE
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;イベントや台詞の都合上の問題でPLAYERに射精させたい場合は CALL SETFLAG, "強制射精", PLAYER とする事で强行射精させることができる
;-------------------------------------------------
@KOJO_MESSAGE_COM_K77
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;愛撫 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 0
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「はは。 ……なんか、緊張すんな、こういうのって… %CNAME("一人称")%、擅長く反応出来っかな‥‥？」
		;二回目以降
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「ん、%CNAME("二人称")%… もっと、いっぱい触って、ん、ぁ… いっぱい気持ちよくして…くれ」
				PRINTFORMW 「ふ‥‥‥‥‥、は‥‥‥‥、っ、ぁ‥‥‥、んっ、は‥‥‥‥‥」
			ELSEIF RAND:2
				PRINTFORMW 「%CNAME("二人称")%それ、やらしー… んっ… は‥‥ ぁ… んんっ、は、ふ‥‥ふぁ‥‥」
				PRINTFORMW 「あ‥‥‥ぁ‥‥は‥‥ぁ‥‥あ‥‥は‥‥ぁ‥‥ん‥‥ぁは‥‥んぅ‥‥」
			ELSE
				PRINTFORMW 「は、%CNAME("二人称")%… んぁ、%CNAME("一人称")%…‥ぁ、… ん、んぅっ」
				PRINTFORMW 「声‥‥？ いや、男のこえじゃ‥‥んっ、ふぁ‥‥、ふ、っ‥‥・、でも‥‥は‥‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;肛門愛撫 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 2
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;気持ちいい
			IF CHECK("Ａ指挿入")
				PRINTFORMW 「んぁっ、んっ、意外と… いや、何でもねえ‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「んぅ… んっ、分かっちゃいたけど…、っ、
				PRINTFORMW 「ん、だいじょぶ、%CNAME("二人称")%… %CNAME("一人称")%平気だから…っ」
			ENDIF
		;二回目以降
		ELSE
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					PRINTFORMW 「ゃあっ、%CNAME("二人称")%それ深いぃっ、あ゛っあ゛ぁっ、ゃ、くるし、%CNAME("二人称")%やめっ、んぐぅっ」
				ELSE
					PRINTFORMW 「ん、んぁ、あぁっ、%CNAME("二人称")%っ、んっ、んんっ、ぁあっ、もっとぉっ」
				ENDIF
			;気持ちいい
			ELSEIF CHECK("Ａ指挿入")
				;Ａ振動棒使用中
				IF TEQUIP:肛用振動棒
					;Ｓ状結腸まで振動棒が侵入している
					IF CHECK_COM("結腸責め")
						IF TALENT:結腸性感
							PRINTFORMW 「ゃあっ%CNAME("二人称")%っ、それだめぇっ、へんni↘、へんなるからぁっ、ぁあ゛っ」
						ELSE
							PRINTFORMW 「んっぁんっ、ふぁっ、んっ、もっとぉ、%CNAME("二人称")%もっとシてぇ」
						ENDIF
					ELSE
						PRINTFORMW 「ぁあっそれぃいっ、だめぇっ、ぃいっ、あ、ぁあっ」
					ENDIF
				ELSE
					PRINTFORMW 「ぁはっ、は、はぁ、んっ、んぁっ、あっ、ぁあっ、んっ、んぁあっ」
				ENDIF
			;それ以外
			ELSE
				PRINTFORMW 「ぅう‥‥ふ、‥‥ん、‥‥‥は、‥‥ぁ、‥‥ん、‥は、‥は」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 3
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「はぁ？ ここで自慰披露しろって言われても‥‥ えぇ～…？」
		;二回目以降
		ELSE
			IF RAND:2
				PRINTFORMW 「え、%CNAME("一人称")%が気持ちよくなってっとこ、見てえの…？」
				PRINTFORMW 「ったく、%CNAME("二人称")%はしょ－がねえやつだな～…」
			ELSE
				PRINTFORMW 「は？ …%CNAME("一人称")%が一人でシてるとこが見てえの？ えぇ～‥‥‥」
				PRINTFORMW 「‥‥分かったよ。ただし、%CNAME("一人称")%のやり方が少々変でもガタガタ言うなよ？」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ) 恋慕に非ずは反応无＞こっちがハルのされてる時用
;-------------------------------------------------
IF SELECTCOM == 4
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ヤベえ…%CNAME("二人称")%のクチん中、あったかくて気持ちぃー… は、すっげこーふんする…」
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%、しゃぶってくれるよな‥‥？ たまには%CNAME("一人称")%のにご奉仕っつーのも、悪くねえ、だろ？」
			ELSE
				PRINTFORMW 「ふ… ちょっと、%CNAME("二人称")%気分…だな、これ。気持ちぃー…、は、ふ‥‥」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「んっ、%CNAME("二人称")%の口、きもちぃ、は、すげ…、ヤベえ…んっ…、%CNAME("二人称")%…」
			ELSE
				PRINTFORMW 「は、気持ちぃ… ぅあ、そこ…、スジんとこ、ん…は‥‥、ぁ、%CNAME("二人称")%…、ふ‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 5
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「‥‥‥く、くすぐってぇ‥‥ふ、ふふっ」
		;二回目以降
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「ん‥‥？ ここも、気持ちよくシて、くれんの‥‥？」
			ELSE
				PRINTFORMW 「ん‥‥、は‥‥、ん‥‥、ふ‥‥ %CNAME("二人称")%‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 6
	IF TALENT:恋慕 && FIRSTCOM(SELECTCOM)
		;二回目以降
		;被逆推ているとき
		IF TEQUIP:推倒
			IF RAND:3 == 0
				PRINTFORMW 「ん…%CNAME("二人称")%、もっと、接吻…んふ… ん……」
			ELSEIF RAND:2
				PRINTFORMW 「%CNAME("二人称")%…、ん………、ふ…、は……、%CNAME("二人称")%…」
			ELSE
				PRINTFORMW 「は、ぁ… %CNAME("二人称")%… あ‥ は… ん‥‥んむ……」
			ENDIF
		;それ以外
		ELSE
			;テンダー接吻
			IF CHECK_COM("テンダー接吻") && RAND:3 == 0
				PRINTFORMW 「ぁ…ん…む……んむ…は…んぅ……%CNAME("二人称")%… 接吻もっと…ん……」
			ELSEIF RAND:2
					PRINTFORMW 「ん‥‥は…んぁ…んぅ……%CNAME("二人称")%…%CNAME("二人称")%……ん…もっと……」
			ELSE
				PRINTFORMW 「ん‥‥ふ‥‥む…んぅ……ぁ、は…‥%CNAME("二人称")%…ん‥‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき) 恋慕に非ずは反応无
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「は‥‥は‥‥、%CNAME("二人称")%‥‥、舐めて君ね‥‥？」
			;それ以外
			ELSE
				PRINTFORMW 「ん‥‥、は‥‥、ぁ、あ‥‥、んっ、%CNAME("二人称")%‥‥」
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2
				PRINTFORMW 「は‥‥、は‥‥%CNAME("二人称")%‥‥、ん‥‥、ぁ‥‥」
			ELSE
				PRINTFORMW 「んぁ‥‥、は‥‥、%CNAME("二人称")%‥‥、ん‥‥、ぁ‥‥」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「ぁ、あ‥‥、ん‥‥、は‥‥、%CNAME("二人称")%もっと‥‥ん‥‥」
			ELSE
				PRINTFORMW 「は‥‥、ふ‥‥、んん‥‥、ふぁ‥‥、ん‥‥、ぁ‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ん、ここ‥‥？ ん‥‥ここはきもちぃ‥‥気がする‥‥」
		PRINTFORMW 「なんか、緊張して、よく分かんねえけど‥‥」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ん‥‥は、はぁ‥‥んん‥‥%CNAME("二人称")%、%CNAME("二人称")%‥‥、ぁ、あ‥‥」
		;それ以外
		ELSE
			PRINTFORMW 「ん‥‥は、ぁ、は‥‥、んっ、は‥‥んん‥‥、は‥」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「ちょ、なんかそれ、潰されそうで、怖え‥‥ん‥‥」
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「は‥‥は‥‥、ヤベえ、ちょっとこーふんすっかも、これ」
		;それ以外
		ELSE
			PRINTFORMW 「ん‥‥、は‥‥、は‥‥、はぁ‥‥」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;扒開菊穴 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 14
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「え？ 見てえの？……‥‥み、見てえなら見せてやんよ、%CNAME("二人称")%」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%はそう言って、お尻を広げて%CALLNAME:MASTER%に自分の肛門がよく見えるようにした。
			PRINTFORML
			PRINTFORMW 「……う～、どお？ %CNAME("一人称")%の肛門…… 結構恥ずいからこれ……」
		;二回目以降
		ELSE
			IF RAND:2
				PRINTFORMW 「え？ ぁ…ぅん…… %CNAME("二人称","甘え")%が見てえなら見せてやんよ…‥ ほら…‥
				PRINTFORMW 「み、見える…？ %CNAME("二人称")%‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「%CNAME("二人称","どもり")%……た、楽しいか…？ え？ %CNAME("一人称")%の姿がエロくて興奮すんのか…？」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 15
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;痛くない
			IF CHECK("尿道PLAY")
				PRINTFORMW 「‥‥いや、ウソみてえだけど…痛くねえわこれ……」
				PRINTFORMW 「%CNAME("一人称")%が変なのか…？」
			;それ以外
			ELSE
				PRINTFORMW 「無理無理無理無理っ！ 痛えよ%CNAME("二人称")%っ！ やめろって、そこ痛えからっ」
			ENDIF
		;二回目以降
		ELSE
			;痛くない
			IF CHECK("尿道PLAY")
				PRINTFORMW 「ヤベえ…痛くねえ… んっ… はは。このまま気持ちよくなっちゃったりして……」
			;それ以外
			ELSE
				PRINTFORMW 「‥‥%CNAME("二人称")%、マジか…？ いや、やっぱ怖えんだけど……」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 30
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「‥‥このために買ったっつーのは分かるけどさ、これ使うのか…？」
			PRINTFORMW 「う～… わかったよ～…」
		;二回目以降
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「ぅん。わ、わかったよ、使え……」
			ELSE
				PRINTFORMW 「ん… いいぞ。　ったく、玩具とか‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;肛用振動棒 恋慕に非ずは反応无
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;余裕有
			IF CHECK("Ａ振動棒")
				PRINTFORMW 「力抜いてりゃ、いいんだよな？ 分かった、使えよ、それ」
				PRINTFORMW 「ん‥‥、んん‥‥、は‥‥、んぅ‥‥は、入って‥‥んぅ‥‥ぅく‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「ゃ、やだよ。そんなの使われたくねえ。えぇ～‥‥どうしてもか？ はぁ～‥‥」
				PRINTFORMW 「力抜いてりゃ、いいんだよな？ 分かった、使えよ、それ」
				PRINTFORMW 「ぅう、うっ…はっ、んぅっ、ぅぐ‥‥、んぐぅっ、くるし‥‥んぅっ」
			ENDIF
		;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
		ELSEIF TEQUIP:肛用振動棒 == 0
			IF RAND:2 == 0
				PRINTFORMW 「は‥‥、は‥‥、はぅ‥‥、はぁ‥‥‥」
			ELSE
				PRINTFORMW 「は、はぁ‥‥、はぁあぁあ～‥‥」
			ENDIF
		;二回目以降
		ELSE
			;余裕有
			IF CHECK("Ａ振動棒")
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						PRINTFORMW 「あ゛あ゛ぁ、おぐ入って…っ、ゃあっいゃっ、あ゛ぁっ、あ゛っぁあ゛っ%CNAME("二人称")%っ」
					ELSE
						PRINTFORMW 「ちょ、ぁぐぅっそこっ、だめぇっ、そこ入れんなぁっ、ゃあっくるしっ%CNAME("二人称")%っ、ゃめっ」
					ENDIF
				ELSE
					PRINTFORMW 「ぁ、ぁあっ、はっ、んぅっ、はぁっ、んぁっ中、あっ、ぁあっ、%CNAME("二人称")%っ中がっ、ぁあっ」
				ENDIF
			;それ以外
			ELSE
				PRINTFORMW 「んぁっ、んぅ‥‥っ、く、‥‥ふ‥‥、ぁ、はぁ‥‥、んくぅっ、ふ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 37
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW 「え‥‥これ？ マジか‥‥%CNAME("一人称")%に使うのかよ‥‥」
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2 == 0
				PRINTFORMW 「ほんと、%CNAME("二人称")%って変態‥‥だよ‥‥んなもん、使ってとこ、見てえとか‥‥」
			ELSE
				PRINTFORMW 「ふ‥‥んっ‥‥、どお？ こゆのが、好きなわけ‥‥？」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「んっ、は、は、は、んぅっ‥‥、ゃ、ちょ%CNAME("二人称")%、早え、う、動かしすぎ‥‥っ」
			ELSE
				PRINTFORMW 「はぅ‥‥ん‥‥は、はぅ、んくぅ‥‥、ん、ぁ‥‥、っ‥‥くぁ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;Ｈごとの初Ｖ挿入　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;正常位。IF CHECK_COM("立位")で立位の場合の台詞も書ける　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;後背位。IF CHECK_COM("立位")で立位の場合の台詞も書ける　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;屈曲位　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;対面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;背面座位。IF CHECK_COM("立位")で立位の場合の台詞も書ける　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;騎乗位　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;挿入刺激Ｇ点　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;挿入子宮口玩弄　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;子宮挿入　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;Ａ挿入系初選択 恋慕に非ずは反応无
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定：Ａ処女初回に関しては時の文スキップのため、下の方…3956行に記載
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	IF CHECK("Ａ挿入")
		PRINTFORMW 「ん…%CNAME("二人称")%、なんか大丈夫っぽいから… このまま‥‥こい‥‥‥んっ……」
	;それ以外
	ELSE
		PRINTFORMW 「は、ぁは、ん゛ぅ…っ %CNAME("二人称")%のが腹ん中に入っ… ん゛ぁ……っ」
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ｈごとの初Ａ挿入 恋慕に非ずは反応无 いや合意禁止してるから、恋慕以前は肛門性交出来ないしね？
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	IF TALENT:恋慕
		;余裕が無い
		IF CHECK("Ａ挿入") == 0
			PRINTFORMW 「え、ぃや待て待て、%CNAME("二人称")%。さすがに%CNAME("一人称")%が壊れねえ？ それ…ん゛ぅ゛う゛…っ」
		;巨根 基本ちょっと苦しそうな感じ 具体的に言うと「ん」とかに濁点が付きがち
		ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
			SELECTCASE SELECTCOM
			;正常位
			CASE 70
				PRINTFORMW 「いいぞ%CNAME("二人称")%‥‥ こ、こいよ‥‥ん゛‥‥ん゛ん゛っ‥‥」
			;後背位
			CASE 71
				PRINTFORMW 「ぁ‥‥う、从后面将‥‥？ ん‥‥ こ、こお‥‥？ は‥‥、んん゛っ‥‥んぁ゛‥‥」
			;屈曲位
			CASE 72
				PRINTFORMW 「ぅう゛‥‥‥ ちっと苦しぃんだけどこれ‥‥ ん゛‥‥ゃ、エロく見えんのは、分かるんだけどさ‥‥」
			;背面座位
			CASE 74
				PRINTFORMW 「ぁう゛‥‥ く…は‥‥ なんか、前に誰も居ねえのって‥‥、ちっとスカスカすっかも‥‥」
			;対面座位
			CASE 73
				PRINTFORMW 「%CNAME("二人称")%‥‥ぅ゛、くるし‥‥だ、抱きしめて、いい、か‥‥？ ぁ‥‥ん゛‥‥は‥‥」
			;騎乗位
			CASE 75
				SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「は‥‥%CNAME("二人称")%…ん゛‥‥ぁ、は‥‥ どお、？ これ、見える…？ %CNAME("二人称")%‥‥」
				CASE 1
					PRINTFORMW 「ん゛っ‥‥、は‥‥、%CNAME("二人称")%、挿入ってっとこ、見えるか‥‥？ は‥‥」
				CASE 2
					PRINTFORMW 「ぁ‥‥あ‥‥%CNAME("二人称")%のが挿入ってく‥‥、ん゛‥‥は‥‥、ぁあ‥‥」
				CASE 3
					PRINTFORMW 「ん゛‥‥%CNAME("一人称")%の、好きに、動いていいのか‥‥？ %CNAME("二人称")%‥‥」
				CASE 4
					PRINTFORMW 「は‥‥ん‥‥？ もっと、ゆっくり、挿入れろって‥‥？ ん゛‥‥、こ、う‥‥？ は、は‥‥」
				ENDSELECT
			;それ以外
			CASEELSE
				PRINTFORMW 「ん‥‥ こい%CNAME("二人称")%… %CNAME("一人称")%ん中にこいよ‥‥ ん゛ん゛っ、」
			ENDSELECT
			PRINTFORMW 「‥‥っ、デカすぎなんだよ%CNAME("二人称")%… おめえのデカすぎ……っ」
		;それ以外
		ELSE
			PRINTFORMW 「は、は‥‥%CNAME("二人称")%‥‥んぁ‥‥は‥‥ぁ‥‥ゆ、ゆっくり、な‥‥？」
			SELECTCASE SELECTCOM
			;正常位
			CASE 70
				PRINTFORMW 「%CNAME("二人称")%‥‥ こ、こいよ‥‥ん‥‥んんっ‥‥」
			;後背位
			CASE 71
				PRINTFORMW 「ぁ‥‥う、从后面将‥‥？ ん‥‥ こ、こお‥‥？ は‥‥、んんっ‥‥」
			;屈曲位
			CASE 72
				PRINTFORMW 「ぅ‥‥‥ ちっと苦しぃんだけどこれ‥‥ ん‥‥ゃ、エロく見えんのは、分かるんだけどさ‥‥」
			;背面座位
			CASE 74
				PRINTFORMW 「は‥‥ なんか、前に誰も居ねえのって‥‥、ちっとスカスカすっかも‥‥」
			;対面座位
			CASE 73
				PRINTFORMW 「%CNAME("二人称")%‥‥だ、抱きしめて、いい、か‥‥？ ぁ‥‥ん‥‥は‥‥」
			;騎乗位
			CASE 75
				SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「は‥‥%CNAME("二人称")%…ん‥‥ぁ、は‥‥ どお、？ これ、見える…？ %CNAME("二人称")%‥‥」
				CASE 1
					PRINTFORMW 「んっ‥‥、は‥‥、%CNAME("二人称")%、挿入ってっとこ、見えるか‥‥？ は‥‥」
				CASE 2
					PRINTFORMW 「ぁ‥‥あ‥‥%CNAME("二人称")%のが挿入ってく‥‥、ん‥‥は‥‥、ぁあ‥‥」
				CASE 3
					PRINTFORMW 「ん‥‥%CNAME("一人称")%の、好きに、動いていいのか‥‥？ %CNAME("二人称")%‥‥」
				CASE 4
					PRINTFORMW 「は‥‥ん‥‥？ もっと、ゆっくり、挿入れろって‥‥？ ん‥‥、こ、う‥‥？ は、は‥‥」
				ENDSELECT
			;それ以外
			CASEELSE
				PRINTFORMW 「ん‥‥ こい%CNAME("二人称")%… %CNAME("一人称")%ん中にこいよ‥‥」
			ENDSELECT
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交；肛門性交自体が恋慕前提だから特に恋慕とか書かない
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW 「ん゛ん゛ん゛ぅっ、あ゛あ゛ぁっ、やっ、ゃあっ、あ゛ぁっ、%CNAME("二人称")%っ」
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW 「あ゛あ゛ぁっ、おくっ、おくだめぇっ、へんなるからゃあっ、ぁあっあ゛あぁっ」
		ELSE
			PRINTFORMW 「やっ、いれちゃだめぇっ、おくはだめっつったろ、ゃ、ゃあっ、あ゛ぁっ、お゛、お゛ぉっ」
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW 「あ゛ぉっ、あ゛ぁっ、%CNAME("二人称")%っ、ゃあっ、おくだめぇっ、ぁあ゛っ」
		ELSE
			PRINTFORMW 「ぁあ゛っ、お゛、お゛ぉ、ん゛ん゛ぅ、おぐは、だめぇ、ゃあっ、ぁあ゛っ、あ゛っ、」
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文 恋慕に非ずは反応无
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;時の文との合計で３行以上５行以下くらいがやってて丁度いい感じなので、Lv5はもう少し行数増やしたく…
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	IF TALENT:恋慕
		IF ABL:Ａ感覚 >= 3
			IF ABL:Ａ感覚 >= 5 && RAND:3 == 0
			;このくらいになると、Ｈの最中くらいは甘えるようになると思う。
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「ぁあ、%CNAME("二人称","かな")%、んっ、んぅ、ゃっ、んぁっ、も、やらぁ、イかしてよぉっ…!!」
					ELSE
						PRINTFORMW 「ひぅ‥‥んんっ‥‥イジワル、すんな、よぉ‥‥%CNAME("二人称","甘え")%‥‥ も、%CNAME("一人称")%‥‥っ」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「ぅあっ、%CNAME("二人称")%…は、はげし、んぅ…ぅ、ぁう…%CNAME("二人称")%…… んっ、きっつ‥‥」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「%CNAME("二人称")%っ、ん、もっと、あっ、んぁっもっと、%CNAME("二人称")%っ」
					ELSE
						PRINTFORMW 「んっ、%CNAME("二人称")%、ぁはっ%CNAME("二人称")%っ、ぁはっ、いいっもっとぉっ」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は、ぁはっ%CNAME("二人称")%、んっもっと、%CNAME("二人称")%っもっと欲しいんだっ」
						CASE 2
							PRINTFORMW 「ふ、ぅふっぁあっんっ、これヤベえっ、%CNAME("一人称")%ダメんなるっ、んぁ%CNAME("二人称")%っ」
						CASE 1
							PRINTFORMW 「ふぁ%CNAME("二人称")%っ、あ、ぁあっ、自己やると、ヤベえんだよ、これっんぁっ、あ、ぁあっ」
						CASEELSE
							PRINTFORMW 「ぁあっ、ゃ、%CNAME("二人称")%だめぇっ、だめんなるこれぇっ、ぁっぁあっ、これいいっぁあっ」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「あはぁっ、%CNAME("二人称")%ぁあっ。もっとぉ、あ、ぁあっぃいっぃいのっ、ぁあっ%CNAME("二人称")%っ」
						CASE 2
							PRINTFORMW 「ぁあっあぁっ、%CNAME("二人称")%もっと、もっとぉっゃあぃいっ、それぇっあ、ぁあっあぁっ」
						CASE 1
							PRINTFORMW 「んぅっぁあっ%CNAME("二人称")%っ、もっとグリグリしてぇっ、あぁっいいっ、もっとぉっ」
						CASEELSE
							PRINTFORMW 「ぁやっ%CNAME("二人称")%っ、んぁっもっとぉ、%CNAME("二人称")%もっとっ、いいのこれぇっぁあっ」
						ENDSELECT
					ENDSELECT
				ENDIF
			ELSEIF ABL:Ａ感覚 >= 4 && RAND:2 == 0
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「ぅやっ、もっ、ばっ‥‥、んぅ‥‥、%CNAME("二人称","甘え")%、それ、ゃ‥‥、んぁ‥‥」
					ELSE
						PRINTFORMW 「%CNAME("二人称","甘え")%の、ばかぁっ、も、それゃあっ、ぃいかげんっ、くそぅ‥‥っ」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「はぅっ、ん゛、‥‥んんっ、っ、んん゛‥‥‥、ぐぅっ‥‥‥ぅ゛‥‥」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「%CNAME("二人称","かな")%、ぁ、あぁっ、んっ、んぁっ、はぅっ、ふぁ、は‥‥%CNAME("二人称","甘え")%」
					ELSE
						PRINTFORMW 「あ、ぁあ、っ‥‥、は、んぅ‥‥あ、あ、%CNAME("二人称","甘え")%、あ、ぁあっ、%CNAME("二人称","甘え")%っ」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「んっ、ふぁ…、は、ぁ、ぁあっ、んっ、っ、んんっ、あ、は‥‥ぁ‥‥、%CNAME("二人称","甘え")%‥‥」
						CASE 2
							PRINTFORMW 「%CNAME("二人称","甘え")%、ん‥‥は‥‥ぁ、あ‥‥ん‥‥ふ‥‥は‥‥は‥‥はぅ‥‥ぁ‥‥ふぁ‥‥」
						CASE 1
							PRINTFORMW 「んぅっ、は‥‥ぁ、あっ、%CNAME("二人称","甘え")%、んんっ、は‥‥ぁあ‥‥、あ、ぁ、あ‥‥っ、あぁっ」
						CASEELSE
							PRINTFORMW 「はぅ、は、んぁっ、ぁ、ぁあ、ふぁ、んんっ、ふ、はっ、ふぁっ、あ、ぁあっ、ん‥‥、んんっ」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は‥‥ぁ、ぁあっ、‥‥ん、ぁは‥‥んっ、は‥‥んん‥‥っ、あ、ぁあ‥‥、は‥‥ん‥‥っ」
						CASE 2
							PRINTFORMW 「ふぁっ、ぁ、あ‥‥ん‥‥ふっ、は‥‥は‥‥はぅ、ぁ‥‥ふぁ‥‥、%CNAME("二人称","甘え")%‥‥」
						CASE 1
							PRINTFORMW 「ん‥‥は‥‥ぁ、あっ、ん‥‥ふっ、は‥‥%CNAME("二人称","甘え")%、は‥‥はぅ‥‥ぁ‥‥ふぁっ、んっ、んんっ」
						CASEELSE
							PRINTFORMW 「あ、ぁあ、ふ‥‥、んんっはぅ、ん、ふぁ‥‥、%CNAME("二人称","かな")%、ぅう‥‥、っ‥‥、んぅ‥‥」
						ENDSELECT
					ENDSELECT
				ENDIF
			;ここがＡ感覚3になる。この辺りになると少しずつ快感を拾い出す…設定。Masterを呼んだりの可爱反応はここから
			ELSE
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「んっ、‥‥んぁ、‥‥くそ、ばか%CNAME("二人称")%‥‥、ぅう‥‥、んぁ。も、ゃ‥‥」
					ELSE
						PRINTFORMW 「はぅ、ん‥‥、ふぁ‥‥、ぅう‥‥、くそ‥‥、くそぅ‥‥、んぅ、ゃ、ゃあ‥‥」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「んぅ‥‥、っ、ばか‥‥、あせりすぎ、だっつの‥‥」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「は、ぁは、んぅ‥‥、は‥‥、ぁ、ぁあ‥‥っ」
					ELSE
						PRINTFORMW 「んぁ、っ‥‥、っ、っ‥‥、は‥‥、ぁ、ぁあ‥‥、っっ」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は‥‥%CNAME("二人称")%‥‥ん‥‥は‥‥ぁ、あ‥‥んん‥‥%CNAME("二人称")%‥‥は‥‥」
						CASE 2
							PRINTFORMW 「ん‥‥は‥‥ぁ、あ‥‥ん‥‥ふ‥‥は‥‥は‥‥はぅ‥‥ぁ‥‥ふぁ‥‥」
						CASE 1
							PRINTFORMW 「‥‥んんっ、‥‥‥は、っ、‥‥は、は、%CNAME("二人称","甘え")%‥‥‥、んぅ‥‥」
						CASEELSE
							PRINTFORMW 「あ‥‥‥‥‥は‥‥ぁ‥‥あ‥‥は‥‥ぁ‥‥ん‥‥ぁは‥‥んぅ‥‥」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は‥‥ぁ、ぁあ‥‥ん、ぁは‥‥ん‥‥は‥‥んん‥‥っ、あ、ぁあ‥‥、は‥‥ん‥‥」
						CASE 2
							PRINTFORMW 「んぅ‥‥、は‥‥ぁ、あっ、んん‥‥、は‥‥ぁあ‥‥、あ、ぁ、あ‥‥」
						CASE 1
							PRINTFORMW 「ん‥‥は‥‥ぁ、あ‥‥ん‥‥ふ‥‥は‥‥は‥‥はぅ‥‥ぁ‥‥ふぁ‥‥、%CNAME("二人称","甘え")%‥‥」
						CASEELSE
							PRINTFORMW 「は‥‥%CNAME("二人称")%‥‥ん‥‥は‥‥ぁ、あ‥‥んん‥‥%CNAME("二人称")%‥‥は‥‥」
						ENDSELECT
					ENDSELECT
				ENDIF
			ENDIF
		ELSE
			IF ABL:Ａ感覚 >= 2 && RAND:3 == 0
			;要去了なのに焦らされている
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「ちくしょこの‥‥、ゃっ、うくっ、も、ぅう‥‥っ、ふ、ぅ‥‥」
					ELSE
						PRINTFORMW 「はぅ‥‥はっ‥‥ぅうっ ‥‥ばか%CNAME("二人称")%っ ‥‥このっ、も、ゃあ‥っ」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「あ゛っ、ぐぅ‥‥っ、は、はげし、んぅ‥‥ぅ、ぁう゛っ、ゃ、‥‥んぅ゛っ」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「んぅ、ぁ‥‥ぁあ、っ、んぅ‥‥、は、は‥‥、ふぁっ‥‥」
					ELSE
						PRINTFORMW 「‥‥は、はぅ‥‥、ぁ‥‥、ぁあっ、っ‥‥、んっ、は‥‥は‥‥」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「ふ‥‥‥、っ、は‥‥‥、ぅ‥‥‥、んんっ‥‥‥、は‥‥‥」
						CASE 2
							PRINTFORMW 「‥‥は、‥‥ふ、‥‥‥ふぁ・‥‥んっ‥‥‥んん‥‥」
						CASE 1
							PRINTFORMW 「ぁ‥‥‥っ、は、‥‥‥は、は‥‥‥、‥‥‥ふ、っ‥‥‥」
						CASEELSE
							PRINTFORMW 「は、ぁ、っ‥‥‥、ふ‥‥‥、ふぁ、っ‥‥‥、ぁ‥‥」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は‥‥はぅ‥‥ん‥‥っ、‥‥は、‥‥は、ふ‥‥‥、ぁ‥‥‥」
						CASE 2
							PRINTFORMW 「ぅう‥‥ふ、‥‥は、‥‥はふ‥‥、ふぁ、っ、‥‥‥」
						CASE 1
							PRINTFORMW 「はぁ‥‥‥、ぁ、っ、‥‥‥は、‥‥‥は、ふぁ、っ‥‥‥ん‥‥」
						CASEELSE
							PRINTFORMW 「ぁ、あ、っ‥‥‥ふっ‥‥‥は、は‥‥‥、ふぁ‥‥‥は‥‥」
						ENDSELECT
					ENDSELECT
				ENDIF
			ELSEIF ABL:Ａ感覚 >= 1 && RAND:2 == 0
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「‥‥‥っ、この‥‥、くそ‥‥‥、ふ‥‥‥、は‥‥は‥‥くそ‥‥」
					ELSE
						PRINTFORMW 「ぅ、‥‥っ、ふ‥‥、は、は‥‥んんっ、っ‥‥は‥‥‥ふ‥‥っ‥‥」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「ぅ゛‥‥‥‥‥‥‥‥、ぅ゛‥‥‥‥‥‥‥、っ‥‥‥‥‥‥‥‥‥、ぐぅ‥‥‥‥‥‥‥‥っ」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「は‥‥‥‥、は‥‥‥‥、んん、は‥‥‥‥‥‥ふ‥‥‥‥ぁ‥‥‥‥」
					ELSE
						PRINTFORMW 「‥‥‥‥っ、‥‥‥っ、っ‥‥‥‥は、ふぁ‥‥‥‥っ、‥‥‥‥は‥‥‥‥」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「‥‥‥は、‥‥‥‥っ、ふ‥‥‥、っ‥‥‥‥、は‥‥‥、は‥‥‥・ん‥‥‥」
						CASE 2
							PRINTFORMW 「ふ、っ‥‥‥‥ん、‥‥‥‥‥ふ、‥‥‥‥‥ぁ、っ‥‥‥‥‥は、ふ‥‥‥‥」
						CASE 1
							PRINTFORMW 「‥‥‥ん‥‥‥‥は‥‥‥‥ぁ、っ‥‥‥‥、‥‥‥‥ふ、は‥‥‥‥」
						CASEELSE
							PRINTFORMW 「ぁ‥‥、っ‥‥‥‥‥‥ふ‥‥‥‥、ん‥‥‥‥‥、は、は‥‥‥‥‥‥」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「ん‥‥‥‥‥、‥‥‥‥‥‥‥ぁ、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥は‥‥‥‥」
						CASE 2
							PRINTFORMW 「ふ‥‥‥‥‥‥‥、ん‥‥‥‥‥、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥‥ふ‥‥‥」
						CASE 1
							PRINTFORMW 「‥ん‥‥‥‥、‥‥‥‥‥‥‥は、‥‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥ふ‥‥‥‥は‥‥」
						CASEELSE
							PRINTFORMW 「は‥‥‥‥‥、ぁ‥‥‥‥‥‥‥、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥‥‥‥ん‥‥」
						ENDSELECT
					ENDSELECT
				ENDIF
			;Ａ感覚0 ま、あんま反応というか、声は上げない感じで。むしろ微妙に辛いのを我慢中
			ELSE
				IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停
					IF RAND:2 == 0
						PRINTFORMW 「‥‥‥っ、この‥‥、くそ‥‥‥、ふ‥‥‥、は‥‥は‥‥くそ‥‥」
					ELSE
						PRINTFORMW 「ぅ、‥‥っ、ふ‥‥、は、は‥‥んんっ、っ‥‥は‥‥‥ふ‥‥っ‥‥」
					ENDIF
				;余裕が無い
				ELSEIF CHECK("Ａ挿入") == 0
					PRINTFORMW 「ぅ゛‥‥‥‥‥‥‥‥、ぅ゛‥‥‥う゛ぅ‥‥‥‥、っ‥‥‥‥う゛‥‥‥‥‥、ぐぅ‥‥‥‥う゛ぅ‥‥‥‥っ」
				;喜欢的体位
				ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
					IF RAND:2 == 0
						PRINTFORMW 「‥‥‥‥っ、‥‥‥っ、っ‥‥‥‥は、ふぁ‥‥‥‥っ、‥‥‥‥は‥‥‥‥」
					ELSE
						PRINTFORMW 「‥‥‥は、‥‥‥‥っ、ふ‥‥‥、っ‥‥‥‥、は‥‥‥、は‥‥‥・ん‥‥‥」
					ENDIF
				;それ以外
				ELSE
					SELECTCASE CONDS("体位")
					CASE "騎乗位"
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「は‥‥‥‥、は‥‥‥‥、んん、は‥‥‥‥‥‥ふ‥‥‥‥ぁ‥‥‥‥」
						CASE 2
							PRINTFORMW 「ふ、っ‥‥‥‥ん、‥‥‥‥‥ふ、‥‥‥‥‥ぁ、っ‥‥‥‥‥は、ふ‥‥‥‥」
						CASE 1
							PRINTFORMW 「‥‥‥ん‥‥‥‥は‥‥‥‥ぁ、っ‥‥‥‥、‥‥‥‥ふ、は‥‥‥‥」
						CASEELSE
							PRINTFORMW 「ぁ‥‥、っ‥‥‥‥‥‥ふ‥‥‥‥、ん‥‥‥‥‥、は、は‥‥‥‥‥‥」
						ENDSELECT
					CASEELSE
						;これは２回連続で同じ値を取ることが無いRANDです
						SELECTCASE KABURAND(4)
						CASE 3
							PRINTFORMW 「ん‥‥‥‥‥、‥‥‥‥‥‥‥ぁ、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥は‥‥‥‥」
						CASE 2
							PRINTFORMW 「ふ‥‥‥‥‥‥‥、ん‥‥‥‥‥、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥‥ふ‥‥‥」
						CASE 1
							PRINTFORMW 「‥ん‥‥‥‥、‥‥‥‥‥‥‥は、‥‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥ふ‥‥‥‥は‥‥」
						CASEELSE
							PRINTFORMW 「は‥‥‥‥‥、ぁ‥‥‥‥‥‥‥、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥‥‥‥ん‥‥」
						ENDSELECT
					ENDSELECT
				ENDIF
			ENDIF
		ENDIF
	;それ以外 …恋慕取らないとハルは肛門性交ＯＫしないので
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで) 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	IF TALENT:恋慕
		;余裕が無い
		IF CHECK("Ａ挿入") == 0
			PRINTFORMW 「んぅっ、く、ばか%CNAME("二人称")%、あ、焦りすぎだ、バカ‥‥んぅ‥‥くぅ‥‥ぅ、ぅう゛‥‥」
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「きて、%CNAME("二人称","甘え")%、もっと、ぁ、あぁっ、んぁっ、%CNAME("二人称","かな")%、ぁはっ、ぁ、ぁあっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「‥‥は、ぁ‥‥あ‥‥、ん‥‥んぅ‥‥あ、ぁあ‥‥は、ぁ、ん…、んんっ、っ‥‥、ぁ、あっ」
			ELSEIF ABL:Ａ感覚 >= 2
				PRINTFORMW 「っ‥‥ん‥‥、は‥‥‥‥‥　は　‥‥‥ぁ‥‥‥っ、ふ‥‥‥‥‥ん‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥‥、‥‥‥‥‥‥‥ふ、‥‥‥っ、‥‥‥‥っ、‥‥‥‥‥‥‥‥‥は」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ａ正常位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 70
	IF TALENT:恋慕
	;初めて この指令は"まだ一度も"選ばれた事がない
		IF FIRSTCOM(SELECTCOM) == 0
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","甘え")%、あっ、ぁあっ、んっ、%CNAME("二人称","かな")%、ぁ、あ、あっあぁっ、んぁっ」
			ELSEIF  ABL:Ａ感覚 >= 3
				PRINTFORMW 「ぁ、っ‥‥、%CNAME("二人称","かな")%‥‥、ふ‥‥、っ‥‥、ぁ、あ‥‥」
			ELSE
				PRINTFORMW 「は‥‥‥‥かえるみてえ、だな‥‥、ぅ‥‥‥‥んぁ‥‥‥」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","かな")%っ、あっぁあっ、ぁ、ぁあっあっ、%CNAME("二人称","甘え")%っ、んぁっんんっ、あぁっ」
				PRINTFORMW 「んっ、ぁ、っ‥‥、%CNAME("二人称","甘え")%、ぁ、もっと‥‥、っ‥‥、んぁ‥‥、っ‥‥」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「‥‥んぁ、っ、‥‥ふ、ん‥‥、ぁ、っ‥‥、んんっ、っ‥‥」
			ELSE
				PRINTFORMW 「は、‥‥‥‥は‥‥‥‥‥んっ、‥‥‥‥ふ、‥‥‥‥‥‥っ、‥‥‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ａ後背位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 71
	IF TALENT:恋慕
		;初めて この指令は"まだ一度も"選ばれた事がない
		IF FIRSTCOM(SELECTCOM) == 0 && TALENT:恋慕
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「ん、きてくれ‥‥%CNAME("二人称","甘え")%‥‥ぁ、あぁっ、%CNAME("二人称","かな")%っ、んぁあっ、あぁっ。ぁんぁあっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「ぅん‥‥、こぉ‥‥？ %CNAME("二人称","かな")%‥‥、ん‥‥、んんっ、ぁ‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥ん、これでいーか‥‥？ ‥‥‥‥ぁ、んん‥‥‥‥‥」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「はっ、ぁはっ、ぁうっ、っよっ、んっ、%CNAME("二人称","甘え")%っ、あぁっあっ、ぁあっ、%CNAME("二人称","甘え")%っ、あぁっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「は、%CNAME("二人称","甘え")%、んぁ、それぃ、ぁ、っ‥‥、んぁ‥‥、%CNAME("二人称","かな")%‥‥、っ‥‥」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「ぁ、っ‥‥、っ、っ、ふ‥‥、ふぁ‥‥、は‥‥、んっ‥‥ふぁ‥‥は、ぁはっ、んっ」
			ELSE
				PRINTFORMW 「‥‥‥‥‥‥、‥‥‥‥‥‥っ、ぅ‥‥‥‥‥ん‥‥‥‥‥‥、は‥‥‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ａ屈曲位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 72
	IF TALENT:恋慕
		;初めて この指令は"まだ一度も"選ばれた事がない
		IF FIRSTCOM(SELECTCOM) == 0
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","甘え")%、きて‥‥くれ‥‥んっ、んんっ、ぁあっ、%CNAME("二人称","甘え")%っ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「ふっ、んぅ‥‥、ぅあ、っ‥‥、ぁ、あ‥‥、んぅ‥‥、んっ、んんっ‥‥」
			ELSE
				PRINTFORMW 「ぅふっ、‥‥‥‥ぅ、く‥‥‥‥、ふ‥‥‥‥、は‥‥‥‥」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","かな")%、%CNAME("二人称","甘え")%、んぁっ、あっ、ぁあっ、ゃ、あっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「はぅっ、は、は、んぅっ、は、%CNAME("二人称","甘え")%、ぁ、ぁあっ、んぁ‥‥、っ、%CNAME("二人称","甘え")%」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「はぅっ‥‥、んんっ、ぁは‥‥、ぁう‥‥、ぁ、あ‥‥、っ‥‥」
			ELSE
				PRINTFORMW 「ふっ‥‥‥‥‥‥、は、‥‥‥‥ん、っ‥‥‥‥っ‥‥‥‥っ」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ａ対面座位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 73
	IF TALENT:恋慕
		;初めて この指令は"まだ一度も"選ばれた事がない
		IF FIRSTCOM(SELECTCOM) == 0 && TALENT:恋慕
			PRINTFORMW 「えと、%CNAME("二人称")%…だ、抱きしめて…くれっか…？ その、そうしてえんだけど‥‥」
		;この指令は"今回のＨで"一度も選ばれていない
		ELSEIF CHOSECOM(SELECTCOM) == 0
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","甘え")%‥‥抱きしめて‥‥？ もっと、ぎゅって‥‥%CNAME("二人称","かな")%‥‥はっ、ぁ、あっ、ぁあっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「%CNAME("二人称","甘え")%、んっ、んんっ、ぁ、あ、ぁあっ、んぁ‥‥%CNAME("二人称","かな")%、
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「だ、抱きついて、いーか‥‥？ ん、%CNAME("二人称","甘え")%、ぁ‥‥、ぁ、あ‥‥、っ‥‥、んん‥‥っ」
			;それ以外
			ELSE
				PRINTFORMW 「はぅ‥‥‥‥、ぅ、ぅう‥‥‥‥こんなかんじ‥‥で、いいのか‥‥？」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「あ、%CNAME("二人称","甘え")%、あっ、ぁあっ、%CNAME("二人称","かな")%、ぁはっ、%CNAME("二人称","甘え")%、んんっ、ぁあっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「%CNAME("二人称","甘え")%、は‥‥、ぅ、あ、ぁ、んっ、はぅっ、ぁっ、んぁっ、%CNAME("二人称","かな")%、あっ」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「%CNAME("二人称","かな")%‥‥、っ、な、なんでもね‥‥‥、ぁ‥‥、っ‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥‥‥‥っ、は‥‥‥‥‥、ふ‥‥‥‥‥・ん‥‥‥‥‥‥‥、っ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ａ背面座位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 74
	IF TALENT:恋慕
		;初めて この指令は"まだ一度も"選ばれた事がない
		IF FIRSTCOM(SELECTCOM) == 0
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「ぁ、うしろ‥‥？ ふ、うしろから抱きつくのは、きらいなのかと思ってたよ‥‥‥」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「え‥‥？ ぁ‥‥ぅ、うしろから‥‥？ ん‥‥こいよ%CNAME("二人称")%‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥‥‥りょーかい。これでい？」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","かな")%‥、%CNAME("二人称","甘え")%、んぁ、あ、ぁあっ、あ、あぁっ、んんっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「は‥‥、ぁ、あ、ぁ、んんっ、%CNAME("二人称","甘え")%、あっ、ぁあっ、んぁっ、ふぁ‥‥、っ‥‥、ぁ、ぁあっ」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「ぅん‥‥、っ、ふぁ‥‥は‥‥、っ、ぁ、あ‥‥、っ‥‥、う‥‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥ふ、‥‥‥‥は、ぅ‥‥‥‥‥‥、っ‥‥‥、‥‥‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 75
	IF TALENT:恋慕
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		;RETURN 0
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				IF ABL:Ａ感覚 >= 5
					PRINTFORMW 「は、は、ん‥‥ぁ‥‥あ‥‥ゃ‥‥%CNAME("二人称")%のが‥‥挿入って‥‥あ、ああ、ぁ、っ」
				ELSEIF ABL:Ａ感覚 >= 3
					PRINTFORMW 「ぅ‥‥‥、は、%CNAME("二人称")%‥‥、%CNAME("二人称","甘え")%‥‥%CNAME("一人称")%‥‥、ぁ、ぁあ、あ、あ、っ」
				ELSE
					PRINTFORMW 「ぅ‥‥‥‥‥‥、ん‥‥‥‥‥‥、は、ふ‥‥‥‥、っ‥‥‥‥‥、んん‥‥‥‥」
				ENDIF
			;それ以外
			ELSE
				IF ABL:Ａ感覚 >= 5
					PRINTFORMW 「%CNAME("二人称")%のが‥‥ぁ‥‥ぁあ‥‥挿入って‥‥ん‥‥は、は‥‥ぁは‥‥」
				ELSEIF ABL:Ａ感覚 >= 3
					PRINTFORMW 「%CNAME("二人称","甘え")%‥‥、んぅ‥‥、は、んぁ‥‥、ぁ、ぁあっ、っ、んぁ‥‥、んぅ‥‥」
				ELSE
					PRINTFORMW 「く‥‥‥‥、ぅ‥‥‥‥、ぁ‥‥‥‥ふ、は‥‥‥‥、ふん‥‥‥‥」
				ENDIF
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「%CNAME("二人称","甘え")%、んぁ、%CNAME("二人称","かな")%のが‥‥、ぁ、あぁ、っ、%CNAME("二人称","甘え")%‥‥、んんっ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「は、は、は‥‥、%CNAME("二人称","かな")%、‥‥ぁ、っ‥‥、んっ、%CNAME("二人称","甘え")%ーっ」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「ぁ‥‥、ぅあ‥‥‥、ん‥‥是っ‥‥、っ‥‥、んんっ、んっ、っ‥‥、は‥‥っ、」
			ELSE
				PRINTFORMW 「ぅ‥‥‥‥‥‥っ、‥‥‥‥‥‥‥っ、‥‥‥‥ふ、んっ‥‥‥‥‥‥は、‥‥‥‥っ」
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ａ感覚 >= 5
				PRINTFORMW 「ぁ、ぁあ‥‥、っ、んっ、んんっ、%CNAME("二人称","甘え")%っ、んぁっ、んっ、なか‥‥、っ」
			ELSEIF ABL:Ａ感覚 >= 3
				PRINTFORMW 「んっ、なか‥‥、うごいて‥‥、ぁ、あ‥‥、ぁあ‥‥、んっ、ふぁ‥‥、っ‥‥」
			ELSEIF ABL:Ａ感覚 >= 1
				PRINTFORMW 「ぅ‥‥ぁ、あ、っ、んっ、は‥‥、ぁ、っ‥‥、んっ、んんっ、は‥‥」
			ELSE
				PRINTFORMW 「‥‥‥‥‥‥っ、‥‥‥‥‥‥っ、‥‥‥‥は、っ‥‥‥‥‥‥はっ」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ　TSしないので！！
;-------------------------------------------------

;-------------------------------------------------
;雙乳間抽插
;-------------------------------------------------
IF SELECTCOM == 81
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入…細かく体位で分ける場合には以下の様になっている
;83,尿道正常位
;84,尿道後背位
;85,尿道屈曲位
;86,尿道対面座位
;87,尿道背面座位
;肛門にもこの番号解説が欲しいと思うのは、ハルの作者だけだろうか…？
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 87
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道騎乗位
;-------------------------------------------------
IF SELECTCOM == 88
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫 恋慕に非ずは反応无　＞ハルがされる方
;-------------------------------------------------
IF SELECTCOM == 90
	IF TALENT:恋慕
	;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ぇと‥‥うぁ‥‥？ ぁ‥‥ぅ‥‥%CNAME("二人称")%‥‥気持ち悪く、ねえのか‥‥？」
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%硬え‥‥%CNAME("一人称")%で、こーふんしてんだ？ えへ。気持ちぃ？」
			ELSE
				PRINTFORMW 「は、硬えけど、%CNAME("一人称")%にこーふんしてんの？%CNAME("二人称")%」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「硬えな、%CNAME("二人称")%の硬くて熱い‥‥これ気持ちぃ？ こーふんする？」
			ELSE
				PRINTFORMW 「ん？ %CNAME("二人称")%気持ちぃ？ ん‥‥まあ、自分にもついてっし、ある程度は勝手も分かるよ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交 恋慕に非ずは反応无　＞ハルがする方
;-------------------------------------------------
IF SELECTCOM == 91
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「%CNAME("二人称")%、コイツしゃぶってやろうか…？ ふ。遠慮すんなって、ほら‥‥ん‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「ぇ‥‥ぁ、く、咥えんの…？ ん…や、やってやんよ。%CNAME("一人称")%だってセクサロイドだしなっ」
				PRINTFORMW 「た、ただし、これに関しては%CNAME("一人称")%、一般的な知識しかねえからな？」
			ENDIF
		;二回目以降
		ELSEIF CHECK_COM("阴茎接吻")
			IF RAND:2 == 0
				PRINTFORMW 「このへん‥‥？ ちゅ‥‥こんな感じで、ぃい？ もっと？ んちゅ‥‥ん、ちゅ‥‥ん‥‥%CNAME("二人称")%‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「接吻だな、接吻‥‥ん‥‥ちゅ‥‥こお‥‥？ こんなで、ぃいの？」
			ENDIF
		;みんな大好き清洁口交
		ELSEIF CHECK_COM("清洁口交")
			;恥垢もお掃除
			IF CHECK_COM("恥垢清洁口交")
				PRINTFORMW 「ぅ‥‥む‥‥んん‥‥っ、ぅ‥‥む‥‥ぅ‥‥」
			;肛門性交後の清洁口交
			ELSEIF COND("Ａ清洁口交フラグ")
				PRINTFORMW 「‥‥れ、れちゅ‥‥んん‥‥ふ‥‥む‥‥じゅ‥‥ぅ‥‥」
			ENDIF
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2 == 0
				PRINTFORMW 「ん‥‥気持ちぃ？ もっと？ ここ‥‥？ ん‥‥ちゅ‥‥%CNAME("二人称")%‥‥ん‥‥」
			ELSE
				PRINTFORMW 「れ‥‥れる‥‥じゅ‥‥む‥‥ぅ‥‥ふ‥‥は、はむ‥‥んぅ‥‥」
			ENDIF
		;それ以外
		ELSE
			IF RAND:4 == 0
				PRINTFORMW 「ん‥‥%CNAME("二人称")%気持ちぃ‥‥？ %CNAME("二人称")%の気持ちぃとこ、どこ‥‥？ ちゅ‥‥れ‥‥」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ぅ‥‥れ、れる‥‥はむ‥‥ぅ‥‥む‥‥んむ‥‥じゅ‥‥は、はぁ‥‥」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ちゅ‥‥れ‥‥じゅ‥‥%CNAME("二人称")%‥‥%CNAME("二人称")%の‥‥だし‥‥れちゅ‥‥」
			ELSE
				PRINTFORMW 「ぅ‥‥じゅ‥‥れ‥‥んん‥‥ふ、ふぅ‥‥む‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_MESSAGE_COM_K77, %TRAINNAME:SELECTCOM%：初回
		[ENDIF]
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			[IF_DEBUG]
				PRINTFORMW KOJO_MESSAGE_COM_K77, %TRAINNAME:SELECTCOM%恋慕(推倒)
			[ENDIF]
		;それ以外
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_MESSAGE_COM_K77, %TRAINNAME:SELECTCOM%汎用(推倒)
			[ENDIF]
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			[IF_DEBUG]
				PRINTFORMW KOJO_MESSAGE_COM_K77, %TRAINNAME:SELECTCOM%恋慕
			[ENDIF]
		;それ以外
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_MESSAGE_COM_K77, %TRAINNAME:SELECTCOM%汎用
			[ENDIF]
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;泡泡浴
;-------------------------------------------------
IF SELECTCOM == 94
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;足交(PENIS(PLAYER)で調教者のチンコの有無が確認できます) 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 95
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「ふふ、足でシてやんよ、%CNAME("二人称")%。どお？ ぞんざいに扱われてる感じ、しねえ？」
			;それ以外
			ELSE
				PRINTFORMW 「ふ。%CNAME("二人称")%の、デカくなってっけど、足でされんの、こーふんするんだ？」
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2 == 0
				PRINTFORMW 「どお？%CNAME("二人称")%‥‥気持ちぃ？ ん？ もっと很强方がいいの？」
			ELSE
				PRINTFORMW 「こやって足でシコシコされてっと、ゾクッとして君だ‥‥へえ‥‥」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「ん？ 気持ちぃの？ %CNAME("二人称")%。これ好き？ もっと？ ふふ、もっとだな？」
			ELSE
				PRINTFORMW 「ふぅん‥‥こんなのが%CNAME("二人称")%はすきなのか‥‥？ ん？ もっと？」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------

;-------------------------------------------------
;六九式 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 99
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ぇ‥‥%CNAME("一人称")%も%CNAME("二人称")%の舐めんの‥‥？ は‥‥んん‥‥こう‥‥？」
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2 == 0
				PRINTFORMW 「は‥‥んん‥‥%CNAME("二人称")%‥‥%CNAME("二人称")%のも‥‥シて、ぃい？」
			ELSE
				PRINTFORMW 「ぁ‥‥%CNAME("二人称")%、%CNAME("二人称")%‥‥そこ‥‥ぃい‥‥もっと‥‥は、ぁ‥‥」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「んん‥‥は、ぁ‥‥ん‥‥%CNAME("二人称")%‥‥きもちぃ‥‥こぇきもちぃ‥‥？」
			ELSE
				PRINTFORMW 「ん‥‥んぁ‥‥%CNAME("二人称")%‥‥もっと‥‥そぇきもちぃ‥‥ん‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;尻素股
;-------------------------------------------------
IF SELECTCOM == 101
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸爱抚奉侍
;-------------------------------------------------
IF SELECTCOM == 102
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;逆振動棒 男你限定ですので！
;-------------------------------------------------

;-------------------------------------------------
;逆Ａ振動棒 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 107
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「%CNAME("一人称")%がシてだめっつー道理はねえよな？ %CNAME("二人称")%‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「ふふ‥‥%CNAME("二人称")%‥‥%CNAME("二人称")%にこれ、入っかな‥‥？」
			ENDIF
		;二回目以降
		;被逆推ているとき
		ELSEIF TEQUIP:推倒
			IF RAND:2 == 0
				PRINTFORMW 「%CNAME("二人称")%、意外とこれ、すきなんじゃねえの‥‥？ デカくなってんよ？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、気持ちぃ？ ふふ‥‥%CNAME("一人称")%に責められるの、すきなんだ？」
			ENDIF
		;それ以外
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「ふふ‥‥これがシて欲しかったの？ え？ ほんとに‥‥？ 正直に言わねえんなら、しねえよ？」
			ELSE
				PRINTFORMW 「へえ、%CNAME("二人称")%はシてもらう方がすきなんだ？ ‥‥この変態桑‥‥っ」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ｖ逆挿入系初選択　男你限定なので！！
;-------------------------------------------------

;-------------------------------------------------
;正常位奉仕　男你限定なので！！
;-------------------------------------------------

;-------------------------------------------------
;後背位奉仕　男你限定なので！！
;-------------------------------------------------

;-------------------------------------------------
;騎乗位侵犯　男你限定なので！！
;-------------------------------------------------

;-------------------------------------------------
;Ａ正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 125
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 126
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ騎乗位侵犯：Masterが尻を使っているらしいな。
;-------------------------------------------------
IF SELECTCOM == 127
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;打屁股 恋慕に非ずは反応无
;あんまり痛くしません。ぴしゃぴしゃ
;-------------------------------------------------
IF SELECTCOM == 130
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0 && TALENT:恋慕
			PRINTFORMW 「ちょ、何すっ、ゃ、ゃめっ、%CNAME("二人称","甘え")%やめっ、ゃだぁっ！」
			PRINTFORMW 「%CNAME("一人称")%が抵抗しねえからっつって、チョーシ乗ってるだろっ！ やだやめろって！」
		;二回目以降
		ELSE
			PRINTFORMW 「ゃあっ、尻叩くのゃだぁっ、%CNAME("二人称","甘え")%やめろってぇ！ やだ%CNAME("二人称")%っ！」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;鼻钩
;-------------------------------------------------
IF SELECTCOM == 132
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:鼻钩 == 0
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("鼻钩")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;眼罩
;-------------------------------------------------
IF SELECTCOM == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;拘束
;-------------------------------------------------
IF SELECTCOM == 134
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:拘束 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口枷
;何を付けたかはCOND("口球")、COND("開口口枷")で判定できる
;付ける前のセリフは@KOJO_MESSAGE_BEFORE_COMに書くのも良いでしょう
;-------------------------------------------------
IF SELECTCOM == 135
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:口枷 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;让对方浴尿
;と是えまだ浴尿は出来ません
;直前に口交系指令なら口内放尿、性交系なら膣内放尿、Ａ性交系なら温泉浣腸となる
;別の指令が複数つまっているようなものなので正直な所、分岐が多くて煩雑です
;-------------------------------------------------
IF SELECTCOM == 138
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	IF CHECK_COM("口内放尿")
		;初めて
		IF EXP:飲尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("子宮内放尿")
		;初めて
		IF EXP:子宮浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膣内放尿")
		;初めて
		IF EXP:膣内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("温泉浣腸")
		;初めて
		IF EXP:温泉浣腸経験 == 0
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("乳内放尿")
		;初めて
		IF EXP:乳内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膀胱内放尿")
		;初めて
		IF EXP:輸尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;什麼也不做 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;RETURN 0
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「‥‥‥何？ %CNAME("二人称")%」
		;二回目以降
		ELSE
			;抱きしめ中？
			IF PREVCOM == TNUM("抱上去")
				PRINTFORMW 「‥‥‥あんまこっち、見んなよ。バカ%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「男相手だし勝手が違って疲惫か？ 休憩するなら言ってくれよ」
			ENDIF
		ENDIF
	;それ以外
	ELSE
		PRINTFORMW %CALLNAME:TARGET%はそっぽを向いて何も言わない。
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 140
	IF TALENT:恋慕
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;RETURN 0
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「んぐぅっ！ っ!! っっ！ ぐぅっ！ うぐぅっ！ ぐぇっ!! ぅげぅっ！ っっ！」
		;二回目以降
		ELSE
			;このターン中に吐いてしまいます(PLAYERが射精しそうな時は、射精後に吐きます)
			IF COND("想吐")
				PRINTFORMW 「ぉぐっ！ ぐっ！ っっ、っ！ っ！ げぇええぇええっ!!!」
			ELSE
				PRINTFORMW 「んぐっ!! っっ、っ、っっ！ ぐぅっ!! ！！ っ、っっ、ぐぅっ！」
			ENDIF
		ENDIF
		;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;フィスト系指令
;-------------------------------------------------
IF SELECTCOM == 141 || SELECTCOM == 142 || SELECTCOM == 143
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;結腸まで腕を捻じ込んだ
		ELSEIF CHECK_COM("結腸責め")
			IF TALENT:結腸性感
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;放尿　聖水PLAY(推倒ている時)
;-------------------------------------------------
IF SELECTCOM == 144
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;聖水PLAY
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;聖水PLAY
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 145
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;行為に抵抗有
			IF CHECK("陰毛管理") == 0
				;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
				;RETURN 0
				PRINTFORMW 「は？ 何考えてんだ%CNAME("二人称")%‥‥‥ 冗談だろ？ 頭おかしくなったのか？」
			;それ以外
			ELSE
				PRINTFORMW 「マジかよ‥‥‥ ま、いいけどさぁ」
			ENDIF
		;二回目以降
		ELSE
			;行為に抵抗有
			IF CHECK("陰毛管理") == 0
				;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
				RETURN 0
				PRINTFORMW
			;それ以外
			ELSE
				SELECTCASE CONDS("陰毛")
				;脱毛した
				CASE "脱毛処理"
					PRINTFORMW
				;光滑无毛に剃り上げた
				CASE "光滑无毛"
					PRINTFORMW
				;綺麗に剃り整えた
				CASEELSE
					PRINTFORMW
				ENDSELECT
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;身嗜管理 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 146
	IF TALENT:恋慕
		;陰毛の状態を指示
		IF CHECK_COM("身嗜み：陰毛")
			SELECTCASE COND("身嗜み：陰毛")
			;光滑无毛
			CASE 3
				PRINTFORMW 「ん？ これ邪魔だったのか？」
			;剃り整える
			CASE 5
				PRINTFORMW 「まあ‥‥形ぐれええは整えてやろう」
			;从不剃
			CASE 7
				PRINTFORMW 「あ、やっぱ普通でいいのか。そうだよな」
			ENDSELECT
		;腋毛の状態を指示
		ELSEIF CHECK_COM("身嗜み：腋毛")
			SELECTCASE COND("身嗜み：腋毛")
			;光滑无毛
			CASE 3
				PRINTFORMW 「了解。なんか昔の男性アイドルみてえだな‥‥」
			;从不剃
			CASE 7
				PRINTFORMW 「だよな。%CNAME("一人称")%が生えてねえのも変だし」
			ENDSELECT
		;常に膣を拡張しておくように指示
		ELSEIF CHECK_COM("身嗜み：Ｖ拡張")
			;尺寸で分岐
			SELECTCASE COND("身嗜み：Ｖ拡張")
			;指示解除
			CASE 0
				PRINTFORMW
			CASEELSE
				PRINTFORMW
			ENDSELECT
		;常に肛門を拡張しておくように指示
		ELSEIF CHECK_COM("身嗜み：Ａ拡張")
			;尺寸で分岐
			SELECTCASE COND("身嗜み：Ａ拡張")
			;指示解除
			CASE 0
				PRINTFORMW 「だよな。わざわざユルクする意味はねえもんな」
			CASEELSE
				PRINTFORMW 「‥‥‥尻ユルクしろって、いったい%CNAME("一人称")%に何を期待してんだ？」
			ENDSELECT
		;いつでもお尻でエロいことできるように指示
		ELSEIF CHECK_COM("身嗜み：Ａ準備")
			;呼ばれたら腸内を綺麗にしておくように指示
			IF COND("身嗜み：腸洗浄")
				PRINTFORMW 「‥‥了解。腹ん中きれいにして、準備しとけばいいんだな？」
			;潤滑液を用意するように指示
			ELSE
				PRINTFORMW 「わかったよ。ねえのは%CNAME("一人称")%もこ圆圈し、やっとくよ」
			ENDIF
		;それ以外
		;CHECK_COM("身嗜み：Ｐ準備"), CHECK_COM("身嗜み：Ｖ準備"), CHECK_COM("身嗜み：服装")
		;CHECK_COM("身嗜み：尿道拡張"), CHECK_COM("身嗜み：性行為の制限"), CHECK_COM("身嗜み：性欲の管理")
		;などでも分岐可能。
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;喝套内精液 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 147
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			IF ABL:精液中毒 >= 3
				PRINTFORMW 「は？ いやどー考えたって不味いだろ、それ‥‥」
			ELSE
				PRINTFORMW 「‥‥は？ ‥‥今だけ%CNAME("一人称")%、難聴になってもいいか？」
			ENDIF
		;二回目以降
		ELSE
			IF ABL:精液中毒 >= 3 && TALENT:恋慕
				PRINTFORMW 「ぅう‥‥避孕套の味が不味ぃ‥‥ 就这様のがマシだよ‥‥」
			ELSE
				PRINTFORMW 「ぅう‥‥不味ぃ‥‥最悪だ‥‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「‥‥‥‥‥‥」
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;RETURN 0
	IF TALENT:恋慕
	;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;こういうのは好きじゃない
			IF CHECK("穿环") == 0
				PRINTFORMW 「はぁ～あ‥‥こういうので所有の証付けたがるやつって、いるよな‥‥」
			;それ以外
			ELSE
				PRINTFORMW 「ふぅん‥‥？ 穿環な‥‥穴、開けんの？」
			ENDIF
		;二回目以降
		ELSE
			;こういうのは好きじゃない
			IF CHECK("穿环") == 0
				PRINTFORMW 「‥‥どうしてもっつーなら…って、食い気味に答えんじゃねえ‥‥」
			;それ以外
			ELSE
				;ＯＮフラグが付けた際のセリフです
				IF COND("陰蒂環フラグ")
					IF COND("穿環ＯＮフラグ")
						PRINTFORMW 「ぅわ‥‥ なんかちょっと、いかつくね？」
					ELSE
						PRINTFORMW 「だよな？ 普通は取下よな？ 一時的なもんだよ‥‥ は、良かった‥‥」
					ENDIF
				ELSEIF COND("陰唇環フラグ")
					IF COND("穿環ＯＮフラグ")
						PRINTFORMW
					ELSE
						PRINTFORMW
					ENDIF
				ELSEIF COND("乳环フラグ")
					IF COND("穿環ＯＮフラグ")
						PRINTFORMW 「%CNAME("一人称")%には似合わねえだろ‥‥そうでもねえ？ はぁ～‥‥」
					ELSE
						PRINTFORMW 「は、良かった‥‥」
					ENDIF
				ELSEIF COND("尿道穿環フラグ")
					IF COND("穿環ＯＮフラグ")
						PRINTFORMW 「‥‥似合うって？ 嬉しくねえよ‥‥」
					ELSE
						PRINTFORMW 「ほら、さっさと外して、ホッとさせてくれ」
					ENDIF
				ELSEIF COND("肚脐环フラグ")
					IF COND("穿環ＯＮフラグ")
						PRINTFORMW 「まぁ、ヘソピぐれえなら‥‥どお？」
					ELSE
						PRINTFORMW 「ん？ もういいのか」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;导管 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 149
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;痛い！
			IF CHECK("尿道PLAY") == 0
				PRINTFORMW 「ちょ、痛えっ！ 変態行為なのはともかく、ちんこ痛えのはやだよっ」
			;それ以外
			ELSE
				PRINTFORMW 「‥‥そんなことやりてえんだ？ は、マジの変態だな‥‥‥」
			ENDIF
		;抜いた
		ELSEIF TEQUIP:导管 == 0
			PRINTFORMW 「は‥‥ようやくか‥‥」
		;二回目以降
		ELSE
			;痛い！
			IF CHECK("尿道PLAY") == 0
				PRINTFORMW 「だから、ちんこ痛えのはやだってばっ!! するなら痛くねえようにしやがれっ！」
			;それ以外
			ELSE
				PRINTFORMW 「ぅ‥‥く‥‥ふ‥‥ゃ、は、入ってく‥‥んぅ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;深喉 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 150
	;口上を書く際には RETURN 0 を削除してください(もともと地の文が長めなので書かなくても問題ないかもしれません)
	;RETURN 0
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ぅぐっ、っ、っぐっ、っむぐっ、っ、ぐぅっ」
		;二回目以降
		ELSE
			PRINTFORMW 「んぅっ、っ、っぐっ、っ、んぐぅっ、っっ、っ、ぅぐっ」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道探针 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 151
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			;痛い！
			IF CHECK("尿道PLAY") == 0
				PRINTFORMW 「ちょ、むりむりむりむりっ！ 痛えっ、痛えからそれっ!!」
			;それ以外
			ELSE
				PRINTFORMW 「まじ‥‥？」
			ENDIF
		;二回目以降
		ELSE
			;痛い！
			IF CHECK("尿道PLAY") == 0
				PRINTFORMW 「だから無理っ、無理だってば!! 痛えのっ！」
			;それ以外
			ELSE
				PRINTFORMW 「ぅあ‥‥ぅ‥‥ふ‥‥うぅ‥‥」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;攝像機使用 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 170
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「‥‥はぁっ？ いや待て%CNAME("二人称")%。まさか‥‥」
			PRINTFORMW 「はぁ～… 分かったよ、この変態が‥‥っ」
		;終了時
		ELSEIF TEQUIP:攝像機 == 0
			IF RAND:2 == 0
				PRINTFORMW 「おい、不細工に映ってねえだろうな‥‥？ ったく、変態が‥‥」
			ELSE
				PRINTFORMW 「はぁ～‥‥ようやく満足したか、この変態が‥‥」
			ENDIF
		;二回目以降
		ELSE
			PRINTFORMW 「また？ ‥‥分かったよ‥‥%CNAME("二人称")%」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浴室PLAY
;-------------------------------------------------
IF SELECTCOM == 172
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW
		;終了時
		ELSEIF TEQUIP:浴室PLAY == 0
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSE
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_CLO("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 176
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「%CNAME("二人称")%‥‥%CNAME("二人称")%にも‥‥」
		;二回目以降
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「%CNAME("二人称")%も気持ちよくなんなよ‥‥ %CNAME("一人称")%が色々、してやんよ‥‥」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ふ、%CNAME("一人称")%のターン‥‥な？」
			ELSE
				PRINTFORMW 「は‥‥は‥‥ %CNAME("一人称")%も、%CNAME("二人称")%に‥‥色々して、いいだろ？」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 260
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「ぅわ冷てっ、な、ぁあ…、潤滑液な。んと、準備万端だな、おい」
		;二回目以降
		ELSE
			PRINTFORMW 「っ、ゃっぱこれ最初はどーやったって冷てえな‥‥ う～‥‥」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 261
	IF TALENT:恋慕
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「え‥‥ 楽になるのか？ 了解。分かったよ‥‥あんま辛いのもやだしな」
		;二回目以降
		ELSE
			PRINTFORMW 「ん‥‥？ わかった‥‥ その、桑きゅな、%CNAME("二人称")%」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		PRINTFORMW 「ん？ 今度は%CNAME("二人称")%のターン？」
	;失敗
	ELSE
		PRINTFORMW 「だめだ。今は%CNAME("一人称")%のターンだし」
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;自慰の種類についてはTEQUIP:PLAYER:自慰の値で分岐可能
;==1舐陰, ==4舐陰莖, ==9舐肛, ==13くぱぁ, ==14Ａくぱぁ など
;-------------------------------------------------
IF SELECTCOM == 282
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;甜言蜜语 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 283
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	;RETURN 0
	;成功
		IF TEQUIP:甜言蜜语
			IF RAND:4 == 0
				PRINTFORMW 「ふふっ、%CNAME("二人称")%のキザ野郎‥‥」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「へえ、一応情緒とか考えてんのか？ ま、そゆ気遣いは嬉しいかもな‥‥」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ん‥‥ 続き、シろよ%CNAME("二人称")%‥‥‥」
			ELSE
				PRINTFORMW 「ほんともー、そゆ事を臆面もなく‥‥う～‥‥‥‥」
			ENDIF
		;失敗
		ELSE
			IF RAND:2
				PRINTFORMW 「‥‥ばか。恥ずい事言ってんじゃねえ」
			ELSE
				PRINTFORMW 「-{RAND:36+1}点‥‥なんか身体かゆくなりそうだよそれ」
			ENDIF
		ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;抱上去 恋慕に非ずは反応无
;-------------------------------------------------
IF SELECTCOM == 285
	;恋慕
	IF FIRSTCOM(SELECTCOM) == 0 && TALENT:恋慕
		PRINTFORMW 「ん‥‥抱上去だけか‥‥？ ならこれは、そこまでやじゃねえな‥‥」
	ELSEIF TALENT:恋慕
		IF COND("冬") && RAND:2 == 0
			IF RAND:3 == 0
				PRINTFORMW 「ふふ、‥‥%CNAME("二人称")%‥‥、あったけえ‥‥な‥‥」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「寒いとくっつくのも、そう悪くねえよな…？ そう思わねえ？」
			ELSE
				PRINTFORMW 「ん？ %CNAME("一人称")%の身体があったけえ‥‥？ …そーかよ」
			ENDIF
		ELSEIF COND("夏") && RAND:3 == 0
			PRINTFORMW 「ふ、夏にこれはねえんじゃねえ？ ‥‥ぃゃ、%CNAME("二人称")%がしてえなら、いいんだけどさ‥‥」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%、‥‥その、やっぱ柔らかくねえだろ？ %CNAME("一人称")%の身体ってさ」
		ELSEIF RAND:10 == 0
			PRINTFORMW 「%CNAME("二人称")%‥‥ な、なんだよ、たまには%CNAME("一人称")%から抱きしめたって、べつにいいだろ‥‥？」
		ELSE
			PRINTFORMW 「ん？ 何？ 甘えてんのか%CNAME("二人称")%？ ふふっ」
		ENDIF
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く：主に初回指令選択系
;--------------------------------------------------
;もし地の文をスキップさせたいならここでSELECTCOMしてからTFLAG:地の文スキップ = 1をぶち込む必要がある
;っていうか地の文書きたいなら全部ここに書いたらいいかも？
;地の文は豊富でいいんだけど口上との矛盾が生まれた場合もやもやするからこっちに書く
@KOJO_MESSAGE_BEFORE_COM_K77
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0
;初吻
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:相思相愛
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「なあ%CNAME("二人称")%、接吻、%CNAME("一人称")%からしてもぃ‥‥？」
				PRINTFORMW %CALLNAME:MASTER%を推倒た%CALLNAME:TARGET%は欲をはらんだ熱っぽい目で見つめてそう聞いてきた。
				PRINTFORMW 「ダメだっつっても、するけどな‥‥」
				PRINTFORMW そう言うとニヤッと笑着、%CALLNAME:MASTER%の頬に手を添え、アーモンド型の目を慢慢地閉じ、悄悄的唇を寄せてきた。
				PRINTFORMW そうして、緊張のためか少し硬くこわばった%CALLNAME:TARGET%の外形良好的唇が、%CALLNAME:MASTER%に触れて慢慢地出口ていった。
				PRINTFORML
				PRINTFORMW 「ん… ふふ。 %CNAME("一人称")%の初吻の相手は、これで%CNAME("二人称")%に決まりだな」
				PRINTFORML
				PRINTFORMW 普段とは違う妖艶な色っぽさをはらんだ顔で、%CALLNAME:TARGET%是たずらっぽく笑った。
				TFLAG:地の文スキップ = 1
			;それ以外
			ELSE
				PRINTFORMW %CALLNAME:MASTER%が接吻しようと%CALLNAME:TARGET%の頬に触れると、熱と期待の混じった瞳が見つめ返してきた。
				PRINTFORMW 何も言わずに%CALLNAME:MASTER%は就这様、%CALLNAME:TARGET%に慢慢地顔を落としてゆくと、
				PRINTFORMW 背中に回されていた%CALLNAME:TARGET%の腕に、%CALLNAME:MASTER%を引き寄せるような力がこもった。
				PRINTFORMW ゆっくり、３を数えるくらいの間唇を触れ合わせ、悄悄的出口て目を見合わせると、アーモンド型の目を笑みの形に崩して、
				PRINTFORML
				PRINTFORMW 「%CNAME("一人称")%の初吻、%CNAME("二人称")%に奪われちった」
				PRINTFORML
				PRINTFORMW 低いくせに甜声で耳元にいたずらっぽくそう囁いた%CALLNAME:TARGET%は、%CALLNAME:MASTER%を温柔的抱きしめてきた。
				TFLAG:地の文スキップ = 1
			ENDIF
		ELSEIF TALENT:恋慕
			;被逆推ている時
			IF TEQUIP:推倒
				PRINTFORMW 「なあ%CNAME("二人称")%、やっぱ接吻は惚れてるやつとしてえ‥‥？」
				PRINTFORMW そう言い的同时、慢慢地%CALLNAME:TARGET%の粉紅色の目が近づいてくる。
				PRINTFORMW 苦しそうに熱をはらんだ目が閉じられていくのと同時に、%CALLNAME:MASTER%の唇に%CALLNAME:TARGET%の唇が触れた。
				TFLAG:地の文スキップ = 1
			;それ以外
			ELSE
				PRINTFORMW 「ん… ふふ。 %CNAME("一人称")%の初吻の相手は、これで%CNAME("二人称")%に決まりだな」
				PRINTFORMW 自嘲するようかのような響きを含んだ声音とともに、慢慢地出口ていく%CALLNAME:MASTER%を%CALLNAME:TARGET%は見上げる。
				PRINTFORMW 想い合っていない相手との接吻が、自分の初めての経験であることに、やはり引っかかりがあるようだった。
				TFLAG:地の文スキップ = 1
			ENDIF
		ENDIF
	ENDIF
;初愛撫
ELSEIF SELECTCOM == 0
	;恋慕で初めて
	IF TALENT:恋慕 && FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%の身体に触れようと手を伸ばすと、%CALLNAME:TARGET%は一瞬表情を硬くしたが、すぐに肩から力を抜いて、
		PRINTFORML
		PRINTFORMW 「ん… %CNAME("一人称")%に触りてえ、のか…？ いいぞ、触ってくれよ、%CNAME("二人称")%」
		PRINTFORMW 「いっぱい、触って、%CNAME("一人称")%を気持ちよく、してくれ……」
		PRINTFORML
		PRINTFORMW そう言って緊張した面持ち的同时、%CALLNAME:MASTER%の肩に手を置いて薄く笑みを浮かべた。
		TFLAG:地の文スキップ = 1
	ENDIF
;初口交＞ハルがされる方
ELSEIF SELECTCOM == 4
	IF TALENT:恋慕 && FIRSTCOM(SELECTCOM) == 0
		IF TEQUIP:推倒
			PRINTFORMW %CALLNAME:TARGET%は興奮した熱っぽい目で、%CALLNAME:MASTER%に口交をお願いしてきた。
			PRINTFORML
			PRINTFORMW 「は、は‥‥%CNAME("二人称")%、これ、舐めて君ね‥‥？ ダメ…？」
			PRINTFORML
			PRINTFORMW %CALLNAME:MASTER%がその願いを聞いて、%CALLNAME:TARGET%の阴茎を咥えると、%CALLNAME:TARGET%は開心地笑う。
		ELSE
			PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%のそそり立つ阴茎に顔を寄せていくと、驚いたように少し腰を引いて、
			PRINTFORML
			PRINTFORMW 「え‥‥%CNAME("一人称")%のを%CNAME("二人称")%が舐めてくれるわけ‥‥？」
			PRINTFORMW 「ゃ、やじゃねえのか‥‥？」
			PRINTFORML
			PRINTFORMW 怯生生地そう聞いてくるから、温柔的頭を撫でて任せろと言って、%CALLNAME:MASTER%はゆっくり口に阴茎を含んだ。
		ENDIF
	ENDIF
;Ａ処女喪失 恋慕だけの場合と相思相愛の場合と
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	IF TALENT:相思相愛
		;初めて同士は書きたいけどう～ん‥‥また今度、だな。
		;IF TALENT:Ａ処女 && TALENT:PLAYER:童貞
		IF TALENT:Ａ処女
			PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%とひとつになりたいと願うと、%CALLNAME:TARGET%は笑着了承した。
			PRINTFORML
			PRINTFORMW 「こいよ%CNAME("二人称")%‥‥ %CNAME("一人称")%も%CNAME("二人称")%としてえから‥‥」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%の腕が%CALLNAME:MASTER%を捕らえ、熱のこもった桃色の目がこちらを見つめてくる。
			PRINTFORMW 目を合わせたまま顔を近づけ、何度も唇を合わせながらあてがうと、ゆっくり、力強く、挿入していく‥‥
			PRINTFORML
			;余裕有
			IF CHECK("Ａ挿入")
				PRINTFORMW 「ふ……っ は、ぁは… ん…思ったより、苦しく、ねえよ‥‥気ぃ使ってくれた%CNAME("二人称")%のおかげだな‥‥‥」
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%は不敵に薄く笑みを浮かべ的同时、必死に呼吸を整えている。
			ELSE
				PRINTFORMW 「は、ぁは、ん…%CNAME("二人称")%のが腹ん中に入っ…んぁ……んぅ‥‥は、はぅ‥‥‥っ‥、ふ…っ」
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に気遣われまいと、必死に呼吸を整えて是るが、
				PRINTFORMW かなり苦しそうで、話す余裕はあまりなさそうだ。
			ENDIF
			TFLAG:地の文スキップ = 1
		ENDIF
	ELSEIF TALENT:恋慕
		IF TALENT:Ａ処女
			PRINTFORMW  「いいぞ %CALLNAME:MASTER%‥‥ %CNAME("一人称")%は平気だから、来いよ‥‥」
			PRINTFORMW 「‥‥でもその、なるべく‥‥‥やさしく、して、くれよ？って…はは、%CNAME("一人称")%乙女…？」
			PRINTFORML
			PRINTFORMW そう言って%CALLNAME:TARGET%は熱っぽい目で%CALLNAME:MASTER%を上目遣いで見上げてきた。
			PRINTFORML
			PRINTFORMW 「んぅ…… はっ、はぁ… ぅくっ、%CNAME("二人称")%… だ、大丈夫だから……」
			PRINTFORMW 「%CNAME("一人称")%は平気、だから……ぅくっ」
			;余裕有
			IF CHECK("Ａ挿入")
				PRINTFORMW 「ん… は、は… 思ったより苦しくねえ‥‥気ぃ使ってくれた%CNAME("二人称")%のおかげだな‥‥‥」
			ENDIF
			TFLAG:地の文スキップ = 1
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K77
IF TALENT:恋慕 == 0 && CEVENT("エロ初回") == 0
	JUEL:反感 += 2500
	CALL SET_CEVENT, "エロ初回"
ENDIF
IF TALENT:恋慕 == 0 && CFLAG:好感度 >= 2000
	CFLAG:好感度 = 2000
ENDIF

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K77, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW 「もゃだぁっ！ %CNAME("二人称")%怖えよぉ～っ！ やだったらやだ～っ！」
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		PRINTFORMW 「っ、ぁ、んっ、ゃ、っ、く、っ」
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		PRINTFORMW 「ぁ、ぁあっ、ゃあっ、ぁあぁああぁっ」
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;C挑逗 恋慕に非ずは反応无
;-------------------------------------------------
CASE "Ｃ挑逗"
	IF TALENT:恋慕
		;初めて
		IF FIRST_EV("Ｃ挑逗") == 0 && TALENT:恋慕
			PRINTFORMW 「てめぇ‥‥、いい胆量じゃんか… 先にイカせてやんよっ、は‥‥」
		;２回目以降
		ELSE
			;強絶頂Ｃ挑逗
			IF NOWEX:Ｃ绝顶前骤停 >= 2 && TALENT:恋慕
				PRINTFORMW 「っ‥‥、どっちが、先、ネぇ上げる、か‥‥勝負すっか‥‥？ っ‥‥」
			;絶頂Ｃ挑逗
			ELSEIF NOWEX:Ｃ绝顶前骤停 && TALENT:恋慕
				PRINTFORMW 「っ‥‥、いーけどなっ、%CNAME("一人称")%がイケねぇぶんっ、イかしてやっから‥‥、は‥‥っ」
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;V挑逗 TSしないので！
;-------------------------------------------------
CASE "Ｖ挑逗"
;-------------------------------------------------
;A挑逗 恋慕に非ずは反応无
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0 && TALENT:恋慕
		PRINTFORMW 「っ、‥‥‥ぅ‥‥‥ふぁ‥‥‥ぅう～‥‥‥くそてめえ‥‥っ‥‥」
	;２回目以降
	ELSE
		;強絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 >= 2 && TALENT:恋慕
			PRINTFORMW 「‥‥っ、っ、んぅ‥‥、ゃ、ぅう‥‥‥、ぅくそ‥‥%CNAME("二人称","甘え")%‥‥っ」
		;絶頂Ａ挑逗
		ELSEIF NOWEX:Ａ绝顶前骤停 && TALENT:恋慕
			PRINTFORMW 「ふ、‥‥ぅ‥‥‥っ、っ、ふ‥‥、んぅ‥‥、ぃじゎるすんっ、ふ、ぅっ、‥‥んぅっ」
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｂ挑逗
		ELSEIF NOWEX:Ｂ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;扶她射精挑逗
;-------------------------------------------------
CASE "射精挑逗"
	;初めて
	IF FIRST_EV("射精挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;大量射精挑逗
		IF NOWEX:射精前骤停 >= 2
			PRINTFORMW
		;射精挑逗
		ELSEIF NOWEX:射精前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;処女喪失(処女のみ)：TSしないので！
;-------------------------------------------------
CASE "処女喪失"
;-------------------------------------------------
;射精した(扶她/男性のみ) ;ちんこの反応くらいは残そうか
;自我颜射or自我口内射精した場合はそれぞれCOND("自我颜射フラグ"), COND("自我口内射精フラグ")で分岐可能
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ぁ‥‥ぁあっ、っ、くっ、‥‥%CNAME("二人称")%っ」
		;それ以外
		ELSE
			PRINTFORMW 「ぁ、ぁあ、っ、っ、」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF RAND:2
			PRINTFORMW 「ゃ、クっ、出、ぁ、っ、っっ、‥‥は、は‥‥」
		;それ以外
		ELSE
			PRINTFORMW 「んんっ、ん、んん～っ、っ、っ‥‥」
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上 恋慕に非ずは反応无
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ゃあっ、もうイクのゃあっ、おかしくなるっ、ゃあ%CNAME("二人称")%っ」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「またぁっ、またイクっ、ぁあっ、イクぅっ、ゃあっ%CNAME("二人称")%っ」
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K77, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

SELECTCASE ARGS
;-------------------------------------------------
;苦痛刻印Lv3取得
;-------------------------------------------------
CASE "苦痛刻印Lv3取得"
	IF FIRST_EV("苦痛刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;快楽刻印Lv3取得
;-------------------------------------------------
CASE "快楽刻印Lv3取得"
	IF FIRST_EV("快楽刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;屈服刻印Lv3取得
;-------------------------------------------------
CASE "屈服刻印Lv3取得"
	IF FIRST_EV("屈服刻印Lv3取得") == 0
		PRINTFORMW 「は‥‥はは‥‥」
	ENDIF
ENDSELECT

;-------------------------------------------------
;TARGETの射精直前の口上
;-------------------------------------------------
@KOJO_MESSAGE_BEFORE_TARGETSHOOT_K77

;-------------------------------------------------
;射精先選択の直前に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K77
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;それ以外
ELSE
	PRINTFORMW
ENDIF

;-------------------------------------------------
;射精先選択の直後に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_AFTERSHOOTCHANGE_K77
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;それ以外
ELSE
	PRINTFORMW
ENDIF

;-------------------------------------------------
;PLAYERの射精＆絶頂をトリガーにした口上
;それぞれの射精分岐内での初めてかどうかの判定は、FIRST_EV(ARGS)で行う
;例）ELSEIF SHOOT("脚")において初めてかどうかは、FIRST_EV("絶頂：脚")で判定する
;-------------------------------------------------
@KOJO_MESSAGE_SAMEN_AND_EXTACY_K77
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ 恋慕に非ずは反応无
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;鼻钩時専用です。人を選びすぎるので基本的には書かなくて良いと思われます
	ELSEIF SHOOT("鼻の穴")
		;初めて
		IF FIRST_EV("絶頂：ぶっかけ鼻の穴") == 0
			PRINTFORMW
		;鼻の穴に出され慣れて平気变成了
		ELSEIF CHECK("鼻射")
			PRINTFORMW
		;鼻钩自体は受け入れているが苦痛
		ELSEIF CHECK("鼻钩")
			PRINTFORMW
		;全面的につらい
		ELSE
			PRINTFORMW
		ENDIF
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3 && TALENT:恋慕
		PRINTFORMW 「は‥‥ヤベぇ‥‥ぐっちゃぐちゃ‥‥ふぁ‥‥‥」
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2 && TALENT:恋慕
		PRINTFORMW 「ん‥‥もう%CNAME("一人称")%ドロドロじゃんか‥‥」
	ELSE
		PRINTFORMW 「は‥‥」
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた；Masterがイク時なら少しぐらいは‥‥
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ふ‥‥そんな気持ちよかったんだ‥‥？」
		;それ以外
		ELSE
			PRINTFORMW 「なんか、ずいぶん気持ちよさそうだったな、%CNAME("二人称")%」
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW 「ふふ。気持ちよかった‥‥？ %CNAME("二人称")%」
		;それ以外
		ELSE
			PRINTFORMW 「へーこれ、好きなんだ？」
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた 恋慕に非ずは反応无
;-------------------------------------------------
ELSEIF SHOOT("口")
	IF TALENT:恋慕
		;初めて
		IF FIRST_EV("絶頂：口") == 0
			PRINTFORMW 「は、はぁ‥‥、ふ。気持ちよかったみてえだな‥‥」
		;精液中毒Lv5
		ELSEIF ABL:精液中毒 >= 5 && TALENT:恋慕
			PRINTFORMW 「は‥‥%CNAME("二人称")%‥‥%CNAME("二人称")%のが‥‥ぁ‥‥は‥‥は‥‥」
		;精液中毒Lv3
		ELSEIF ABL:精液中毒 >= 3 && TALENT:恋慕
			PRINTFORMW 「ん‥‥%CNAME("二人称")%‥‥は‥‥ぁ‥‥ん‥‥」
		;それ以外
		ELSE
			PRINTFORMW 「ん‥‥ぅ‥‥う゛‥‥%CNAME("二人称", "どもり")%のが‥‥ぅえ゛‥‥」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW 「うゎ‥‥」
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5 && TALENT:恋慕
		PRINTFORMW 「ん‥‥？ もっと‥‥？」
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3 && TALENT:恋慕
		PRINTFORMW 「ふふ、気持ちよかった‥‥？」
	;それ以外
	ELSE
		PRINTFORMW 「ぅう～‥‥なんか拭くもん‥‥」
	ENDIF
;-------------------------------------------------
;性交で射精させた 恋慕に非ずは反応无
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_MESSAGE_SAMEN_AND_EXTACY_K77, Ｖ中出し：初回
		[ENDIF]
	;恋慕
	ELSEIF TALENT:恋慕
		[IF_DEBUG]
			PRINTFORMW KOJO_MESSAGE_SAMEN_AND_EXTACY_K77, Ｖ中出し：恋慕
		[ENDIF]
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		[IF_DEBUG]
			PRINTFORMW KOJO_MESSAGE_SAMEN_AND_EXTACY_K77, Ｖ中出し：屈服刻印LV3
		[ENDIF]
	;それ以外
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_MESSAGE_SAMEN_AND_EXTACY_K77, Ｖ中出し
		[ENDIF]
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	IF TALENT:恋慕
		;初めて
		IF FIRST_EV("絶頂：Ａ中出し") == 0
			PRINTFORMW 「あ‥‥ぁ‥‥%CNAME("二人称")%‥‥は‥‥ぁ‥‥は‥‥は‥‥」
		;屈服刻印Lv3
		ELSEIF MARK:屈服刻印 == 3
			PRINTFORMW 「はぅ‥‥は‥‥ふぁ‥‥ぁ‥‥あ、ぁあ‥‥%CNAME("一人称")%ん中に‥‥」
		;Ａ絶頂時
		ELSEIF NOWEX:Ａ絶頂
			PRINTFORMW 「ぁ‥‥ぁあ‥‥%CNAME("二人称")%‥‥は‥‥ん‥‥は‥‥%CNAME("一人称")%‥‥」
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「は‥‥%CNAME("二人称")%‥‥ぁ‥‥%CNAME("二人称")%‥‥は‥‥は‥‥ぁ‥‥」
			ELSE
				PRINTFORMW 「あ‥‥%CNAME("二人称")%‥‥はぁ‥‥は‥‥はぁ‥‥ん‥‥ぁ‥‥は‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW 「は‥‥、そんな気持ちよかった？ だったらもっとシてやろうか‥‥？」
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K77, ARGS
SELECTCASE ARGS
CASE "绝顶忍耐"
	;partnerに焦らされている
	IF TEQUIP:推倒
		PRINTFORMW
	;PLAYERが绝顶忍耐
	ELSE
		;今回がこらえた初回
		IF EX:PLAYER:绝顶忍耐 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
CASE "到脱力为止结束的提案"
	PRINTFORMW
CASE "拒绝到脱力为止结束"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "中出し後害羞"の地の文の前に喋らせたりスキップさせたい場合にはCASE "中出し後害羞：地の文前"を用意すればよい
;例）CASE "中出し後害羞：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_EVENT_K77, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能 恋慕に非ずは反応无
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		IF RAND:2
			PRINTFORMW 「ぁ‥‥‥ ゃ‥‥%CNAME("二人称","甘え")%、もっと‥‥」
		;それ以外
		ELSE
			PRINTFORMW 「ぅや‥‥ あ、ぃ、ぃや‥‥その‥‥%CNAME("二人称","甘え")%‥‥」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套
			[IF_DEBUG]
				PRINTFORMW KOJO_EVENT_K77, Ｖ避孕套装着
			[ENDIF]
		;ご褒美に生Ｈをさせて给場合
		ELSEIF TCVAR:獎勵生H
			[IF_DEBUG]
				PRINTFORMW KOJO_EVENT_K77, Ｖ避孕套装着：獎勵生H
			[ENDIF]
		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_EVENT_K77, Ｖ避孕套装着：避孕套備蓄无
			[ENDIF]
		;安全日に生希望
		ELSEIF COND("安全日")
			[IF_DEBUG]
				PRINTFORMW KOJO_EVENT_K77, Ｖ避孕套装着：安全日に生希望
			[ENDIF]
		;安全日じゃないけど避孕套没有を希望
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_EVENT_K77, Ｖ避孕套装着：安全日以外に生希望
			[ENDIF]
		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日", PLAYER)

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	ENDIF
;-------------------------------------------------
;陶酔かつ危険日でない時に、普段は許していない生挿入をさせて给際のセリフ
;-------------------------------------------------
CASE "特別に生挿入許可"
	;初めて
	IF FIRST_EV(ARGS) == 0

	ELSE

	ENDIF
;-------------------------------------------------
;調教後自慰
;-------------------------------------------------
CASE "調教後自慰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;PLAYERがMASTERとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "調教者交代"
	;PLAYERがASSIに変わった
	IF PLAYER == ASSI
		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;partnerがTARGETとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "対象交代"
	;partnerとしてエッチに誘われた
	IF COND("第一対象") == TARGET
		PRINTFORMW
	;指导者としてエッチに誘われた
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;強制口交で嘔吐
;-------------------------------------------------
CASE "強制口交で嘔吐"
	;吐いた後もＨ続行したい状態
	IF COND("嘔吐後余力有")
		PRINTFORMW
	;強制口交で射精後に吐いた場合。射精個所は@KOJO_MESSAGE_SAMEN_AND_EXTACY_K77内同様にSHOOTで分岐できます
	ELSEIF COND("射精後嘔吐")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;脱衣 恋慕に非ずは反応无
;-------------------------------------------------
CASE "自発脱ぎ"
	IF TALENT:恋慕
		;裸体变成了
		IF CHECK_CLO("裸体")
			IF RAND:2
				PRINTFORMW 「‥‥その、脱いだ方いいだろ‥‥？ こゆ時は‥‥」
			ELSE
				PRINTFORMW 「ん？ ああ、%CNAME("二人称")%が脱がしたかったっつーわけ？」
			ENDIF
		;阴部剥きだし
		ELSEIF CHECK_CLO("Ｖ露出")
			IF RAND:2
				PRINTFORMW 「ここ、だけ‥‥っつーのも、なんかエロいよな‥‥？」
			ELSE
				PRINTFORMW 「はは、ちょっと間抜けな姿‥‥？」
			ENDIF
		;部分脱ぎ
		ELSE
			PRINTFORMW 「%CNAME("二人称")%‥‥、 その、脱いだ方がいいだろ…？」
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;恥ずかしいところを見せてくれる 恋慕に非ずは反応无
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		IF RAND:2
			;避孕套有些
			IF TEQUIP:PLAYER:避孕套
				PRINTFORMW 「%CNAME("二人称")%‥‥は‥‥」
			ELSE
				PRINTFORMW 「はぅ‥‥中‥‥いっぱいじゃんか‥‥ふぁ‥‥」
			ENDIF
		ELSE
			;避孕套有些
			IF TEQUIP:PLAYER:避孕套
				PRINTFORMW 「ふぁ‥‥は、んぅ‥‥は‥‥」
			ELSE
				PRINTFORMW 「ぁは‥‥は、は‥‥はぅ‥‥」
			ENDIF
		ENDIF
	ELSE
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW 「ぅう～‥‥見んなよ‥‥バカ‥‥」
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「は、はぅ‥‥ぅう‥‥%CNAME("二人称")%‥‥んぅ‥‥」
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW 「はぅ‥‥は‥‥ふぁ‥‥%CNAME("二人称")%‥‥は、ぁ‥‥ふぅ‥‥」
	ELSE
		PRINTFORMW 「‥‥」
	ENDIF
;----------------------------------------------------------------
;この分岐には絶頂していない場合にのみ来ます
;----------------------------------------------------------------
CASE "中出し後挿入解除"
	PRINTFORMW
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上。BASE:排泄物 が溜まっている物の量
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		;脱糞した場合。NOWEX:排泄量の値が出たものの量である
		IF NOWEX:排泄量
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "扶她薬"
	;扶她变成了
	IF TALENT:扶她
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
CASE "黑色ドロップ"
	;男性变成了
	IF TALENT:男性
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "巨根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	;馬根
	CASE 3
		PRINTFORMW
	CASE 4
		PRINTFORMW
	CASE 5
		PRINTFORMW
	;CASEELSE
	;	PRINTFORMW
	ENDSELECT
CASE "縮根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;小
	CASE 0
		PRINTFORMW
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "剥皮薬"
	;薬を使用した後の状態で分岐
	IF COND("假性包茎")
		PRINTFORMW
	;ずる剥け
	ELSE
		PRINTFORMW
	ENDIF
CASE "伸皮薬"
	;薬を使用した後の状態で分岐
	IF COND("真性包茎")
		PRINTFORMW
	ELSEIF COND("假性包茎")
		PRINTFORMW
	ENDIF
CASE "豊胸薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳
	CASE 0
		PRINTFORMW
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	;超乳
	CASE IS >= 3
		PRINTFORMW
	ENDSELECT
CASE "貧乳薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳以下
	CASE 0
		IF TALENT:貧乳
			PRINTFORMW
		;並乳
		ELSE
			PRINTFORMW
		ENDIF
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "巨人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:高大
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "小人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:娇小
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "虹の薬"
	;薬を使用した後の状態で分岐
	SELECTCASE CONDS("肤色")
	CASE "褐色肌"
		PRINTFORMW
	CASE "色白"
		PRINTFORMW
	CASE "青肌"
		PRINTFORMW
	;普通
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "桃尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻 >= 2
		PRINTFORMW
	ELSEIF TALENT:巨尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF
CASE "小尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻
		PRINTFORMW
	ELSEIF TALENT:小尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K77, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0

	ELSE

	ENDIF

CASE "助手：主人に清洁口交"

CASE "助手：partnerに清洁舔阴"

CASE "助手：partnerに清洁舔A"

CASE "助手：主人にＰ恥垢清洁口交"

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"

CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"

CASE "室内調教：感想台詞"

CASE "助手で性処理：おあずけ"

CASE "助手で性処理"

CASE "助手で性処理：事後"

;COND("精液の優勢")で誰の兒童を孕んでしまったかを判定できます
;名前を出したい時には%COND("精液の優勢")%を用いてください
CASE "受精確認"

ENDSELECT

;-------------------------------------------------
;この角色に特殊なイベントを叫醒際の追加条件を設定できます（特に設定しない場合には丸々不要です）
;STR:実行条件 に文字列が入っている場合は、それを表示しつつイベント発生不可能とします(PRINT_STRの書式です)
;条件を満たしている際にはSTR:実行条件 に何も入れないようにして下さい
;-------------------------------------------------
@ADDCOND_K77(ARGS)
#DIM ACTOR
ACTOR = FINDCHARA(NO, 77)

SELECTCASE ARGS
;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
CASE "勧誘"
	SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && (COND("夜") || COND("日"))
		RETURN 1
	STR:実行条件 = ※%CSVNAME(77)%は_黄色_%CALLNAME:MASTER%が男性(not伪娘)で夜時間の時のみ_勧誘できます※
CASE "恋慕"
	SIF TALENT:ACTOR:恋慕 == 0 && CFLAG:ACTOR:好感度 >= 2500 && CEVENT("葛藤", ACTOR)
		RETURN 1
	STR:実行条件 = 要:好感度2500、個別イベント"葛藤"を見ること
CASE "相思相愛"
	SIF TALENT:ACTOR:恋慕 && CEVENT("解凍", ACTOR)
		RETURN 1
	STR:実行条件 = イエロー_(※[相思相愛]になるには、[恋慕]&エンディング[5]最近の記録[2]解凍の閲覧の必要が有ます)
CASE "淫紋贴纸"
	SIF MARK:ACTOR:淫紋 == 0 && TALENT:ACTOR:恋慕 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
		RETURN 1
	STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[恋慕]&[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	SIF TALENT:ACTOR:相思相愛 && (TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3)
		RETURN 1
	STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[相思相愛]&[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
CASE "淫乱"
	SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 10 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 20
		RETURN 1
	STR:実行条件 = 要:欲望10LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数20

;CASE "勧誘"
	;例）卯月佑香の場合の記述
	;SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && ABL:MASTER:技巧 >= 3
	;	RETURN 1
	;STR:実行条件 = ※%CSVNAME(77)%は_黄色_%CALLNAME:MASTER%が男性(not伪娘)＆技巧がLv3以上の時のみ_勧誘できます※
;CASE "恋慕"
	;默认だと信頼5LV＆好感度が2500以上で恋慕
	;SIF TALENT:ACTOR:恋慕 == 0 && ABL:ACTOR:信頼 >= 5 && CFLAG:ACTOR:好感度 >= 2500
	;	RETURN 1
	;STR:実行条件 = 要:信頼5LV、好感度2500
CASE "淫乱"
	;默认だと欲望が5以上、自慰中毒or精液中毒のどれかが3以上、今回の絶頂数が10以上で淫乱
	;SIF TALENT:ACTOR:淫乱 == 0 && ABL:ACTOR:欲望 >= 5 && MAX(ABL:ACTOR:自慰中毒, ABL:ACTOR:精液中毒) >= 3 && EX:ACTOR:絶頂数合計 >= 10
	;	RETURN 1
	;STR:実行条件 = 要:欲望5LV、自慰中毒か精液中毒のどちらかが3LV、今回の絶頂数10
;CASE "相思相愛"
	;例）小早川百合香の場合の記述
	;SIF TALENT:ACTOR:恋慕 && TALENT:MASTER:男性 == 0
	;	RETURN 1
	;STR:実行条件 = イエロー_（※%CALLNAME:MASTER%が[男性]の場合には、%CALLNAME:ACTOR%と[相思相愛]にはなれません）
CASE "淫紋贴纸"
	;默认だと[欲望LV3]or[屈服刻印LV1]
	;SIF MARK:ACTOR:淫紋 == 0 && (ABL:ACTOR:欲望 >= 3 || MARK:ACTOR:屈服刻印)
	;	RETURN 1
	;STR:実行条件 = イエロー_(※淫紋を受け入れてもらうには、[欲望LV3]or[屈服刻印LV1]の必要が有ます)
CASE "淫紋"
	;默认だと[淫乱]or[受虐属性LV3]or[屈服刻印LV3]
	;SIF TALENT:ACTOR:淫乱 || ABL:ACTOR:受虐属性 >= 3 || MARK:ACTOR:屈服刻印 >= 3
	;	RETURN 1
	;STR:実行条件 = イエロー_(※刻印を受け入れてもらうには、[淫乱]or[屈服刻印LV3]or[受虐属性LV3]の必要が有ます)
CASE "避妊の護符の解除"
	;例）風花維吹の場合の記述
	;維吹は[相思相愛]まで避妊の護符を解除しない
	;SIF TALENT:ACTOR:相思相愛
	;	RETURN 1
	;STR:実行条件 = イエロー_※維吹は[相思相愛]になるまで避妊の護符を破棄しません
ENDSELECT

;-------------------------------------------------
;@単体エンディング関係(77を角色番号に置換)
;通常のエンディング格子の前に個別エンディングを判定
;-------------------------------------------------
;
;
;
;
;
;
;
;
;
;
;★ここから先にはエンディングが記述されています★
;ネタバレを避けたい方は閲覧不会うにご注意下さい。
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
@IS_SINGLE_ENDING_K77
;エンディングを書いたら、下のRETURN 1のコメントアウト;を消してください
RETURN 1

@MENU_SINGLE_ENDING_K77
;エンディングを書いたら、下のRETURN 0を消してください
;RETURN 0

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
STR:ＥＮＤ标题 = ハルの日誌を読む

;魂の量によるEND
;SIF BASE:魂 >= 300
;	ENDの番号_END名 となっている
;	番号は1～60の範囲(でもできれば１から順に詰めて使用)の半角数字で、ＥＮＤ名は喜欢的东西に変更してください
;	STR:エンディング += "1_ＥＮＤ名１/"
;其他の条件(例えば淫乱)によるEND
;SIF TALENT:淫乱
;	STR:エンディング += "2_ＥＮＤ名２/"
;魂の量と其他の条件(例えば相思相愛)によるEND
;SIF BASE:魂 >= 300 && TALENT:相思相愛
;	STR:エンディング += "3_ＥＮＤ名３/"

SIF CEVENT("森本まいの告白")
	STR:エンディング += "1_日誌の表紙をめくる/"
SIF TALENT:恋慕
	STR:エンディング += "2_過去の記録１/"
SIF TALENT:恋慕 && ( CEVENT("－１００") ||  CEVENT("－１０００"))
	STR:エンディング += "3_過去の記録２/"
SIF TALENT:恋慕
	STR:エンディング += "4_過去の記録３/"
SIF TALENT:恋慕 && CFLAG:ハル告白断った
	STR:エンディング += "5_最近の記録/"
SIF TALENT:恋慕 && CEVENT("春") + CEVENT("夏") + CEVENT("秋") + CEVENT("冬")
	STR:エンディング += "6_你との記録/"
;SIF TALENT:恋慕
;	STR:エンディング += "7_日誌:その７/"

RETURN 1

;閲覧していないイベントがある場合などに選択肢と色を変える事も出来る。これ以外でも好きな条件で変えて良い
;IF COND("未読ＥＮＤ選択可能")
;	STR:ＥＮＤ标题 = エンディングを迎える
;	;これを指定しない場合には本体側で STR:ＥＮＤカラー = 爱心粉紅 となる
;	STR:ＥＮＤカラー = 爱心粉紅
;ENDIF

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K77, ARGS
SELECTCASE ARGS
CASE "日誌の表紙をめくる"
	CALL PRINT_STRW, @"黄色_※このエンディングを見ると%CALLNAME:TARGET%は恋慕を取得します"
	CALL PRINT_STRW, @"黄色_　それでも良い方のみ読んでください"
	PRINTFORML
	PRINTFORMW 日誌を読みますか？
	PRINTFORML
	PRINTFORML [0] 日誌を読む
	PRINTFORML [999] 返回
	PRINTL

	CALL INPUT_SELECT, 0, 999

	IF RESULT == 0
		CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%は【恋慕】を得た_"
		CALL K77_HaLL5c68a32_FALLINLOVE
		TALENT:恋慕 = 1
		SIF ABL:信頼 < 5
			ABL:信頼 = 5
		CALL DEL_CEVENT, "合意禁止：接吻"
		CALL DEL_CEVENT, "合意禁止：检查内褲"
		CALL DEL_CEVENT, "合意禁止：检查阴部"
		CALL DEL_CEVENT, "合意禁止：掀起裙子"
		CALL DEL_CEVENT, "合意禁止：股間観察"
		CALL DEL_CEVENT, "合意禁止：肛門性交"
		CALL DEL_CEVENT, "合意禁止：Ｈ的写真"
		CALL DEL_CEVENT, "放課後Ｈ禁止"
	ELSE
		PRINTFORMW 閲覧終了
	ENDIF
CASE "過去の記録１"
	PRINTFORMW ここで読めるのは%CALLNAME:TARGET%が起動してから、学校に行くまでの記録です。
	PRINTFORMW どれを読みますか？
	PRINTFORML
	PRINTFORML [0] 日誌その１
	PRINTFORML [1] 日誌之２
	PRINTFORML [2] 日誌その３
	PRINTFORML [3] 日誌その４
	PRINTFORML [4] 日誌その５
	PRINTFORML [5] 日誌その６
	PRINTFORML [6] 日誌その７
	PRINTFORML [7] 日誌その８
	PRINTFORML [8] 日誌その９
	PRINTFORML [9] 日誌その１０
	PRINTFORML [999] 返回
	PRINTL

	CALL INPUT_SELECT, 10, 999

	;日誌その１から順番に‥‥ちょっと多い？
	IF RESULT == 0
		CALL K77_HaLL5c68a32_DAYs
	ELSEIF RESULT == 1
		CALL K77_HaLL5c68a32_is_angry
	ELSEIF RESULT == 2
		CALL K77_HaLL5c68a32_want_to_goto_school_1
	ELSEIF RESULT == 3
		CALL K77_HaLL5c68a32_want_to_goto_school_2
	ELSEIF RESULT == 4
		CALL K77_HaLL5c68a32_want_to_goto_school_3
	ELSEIF RESULT == 5
		CALL K77_HaLL5c68a32_want_to_goto_school_4
	ELSEIF RESULT == 6
		CALL K77_HaLL5c68a32_want_to_goto_school_5
	ELSEIF RESULT == 7
		CALL K77_HaLL5c68a32_want_to_goto_school_6
	ELSEIF RESULT == 8
		CALL K77_HaLL5c68a32_want_to_goto_school_7
	ELSEIF RESULT == 9
		CALL K77_HaLL5c68a32_goto_school
	ELSE
		PRINTFORMW 閲覧終了
	ENDIF
CASE "過去の記録２"
	PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%に嫌われていた頃の記録です。
	PRINTFORMW どれを読みますか？
	PRINTFORML
	PRINTFORML [0] 日誌その１
	IF CEVENT("－１０００")
		PRINTFORML [1] 日誌之２
		PRINTFORML [2] 日誌その３
		PRINTFORML [3] 日誌その４
	ENDIF
	PRINTFORML [999] 返回
	PRINTL

	$INPUT_LOOP_過去の記録２
	INPUT

	IF RESULT == 0
		CALL K77_HaLL5c68a32_BEAUTIFUL_SCENERY
	ELSEIF RESULT == 1 && CEVENT("－１０００")
		CALL K77_HaLL5c68a32_OF_ANXIETY
	ELSEIF RESULT == 2 && CEVENT("－１０００")
		CALL K77_HaLL5c68a32_STRAYDOG
	ELSEIF RESULT == 3 && CEVENT("－１０００")
		CALL K77_HaLL5c68a32_BADDRUNKENNESS
	ELSEIF RESULT == 999
		PRINTFORMW 閲覧終了
	ELSE
		GOTO INPUT_LOOP_過去の記録２
	ENDIF
CASE "過去の記録３"
	PRINTFORMW %CALLNAME:TARGET%が学校へ行きだしてから今日までの、%CALLNAME:MASTER%との記録です。
	PRINTFORMW どれを読みますか？
	PRINTFORML
	PRINTFORML [0] 日誌その１
	PRINTFORML [1] 日誌之２
	PRINTFORML [2] 日誌その３
	PRINTFORML [3] 日誌その４
	SIF DEVENT("手抜きの弁当")
		PRINTFORML [4] 日誌その５
	PRINTFORML [999] 返回
	PRINTL

	$INPUT_LOOP_過去の記録３
	INPUT

	IF RESULT == 0
		CALL K77_HaLL5c68a32_BOOK
	ELSEIF RESULT == 1
		CALL K77_HaLL5c68a32_STOPBY_CONVENIENCESTORE
	ELSEIF RESULT == 2
		CALL K77_HaLL5c68a32_ROUGHINPOINTS
	ELSEIF RESULT == 3
		CALL K77_HaLL5c68a32_STADYTIME
	ELSEIF RESULT == 4 && DEVENT("手抜きの弁当")
		CALL K77_HaLL5c68a32_scholldays
	ELSEIF RESULT == 999
		PRINTFORMW 閲覧終了
	ELSE
		GOTO INPUT_LOOP_過去の記録３
	ENDIF
CASE "最近の記録"
	PRINTFORMW 最近%CALLNAME:TARGET%の頭を占めている出来事についての記録です。
	PRINTFORMW どれを読みますか？
	PRINTFORML
	PRINTFORML [0] 葛藤
	SIF CEVENT("葛藤")
		PRINTFORML [1] 懊悩
	SIF CEVENT("懊悩")
		PRINTFORML [2] 解凍
	SIF TALENT:相思相愛
		PRINTFORML [3] 開始
	PRINTFORML [999] 返回
	PRINTL

	$INPUT_LOOP_最近の記録
	INPUT

	IF RESULT == 0
		CALL K77_HaLL5c68a32_CONFICT
		CALL SET_CEVENT, "葛藤"
	ELSEIF RESULT == 1 && CEVENT("葛藤")
		CALL K77_HaLL5c68a32_ANGUISH
		CALL SET_CEVENT, "懊悩"
	ELSEIF RESULT == 2 && CEVENT("懊悩")
		CALL K77_HaLL5c68a32_START
		CALL SET_CEVENT, "解凍"
	ELSEIF RESULT == 3 && TALENT:相思相愛
		CALL K77_HaLL5c68a32_LOVE_LOVER_LOVE
	ELSEIF RESULT == 999
		PRINTFORMW 閲覧終了
	ELSE
		GOTO INPUT_LOOP_最近の記録
	ENDIF
CASE "你との記録"
	PRINTFORMW %CALLNAME:MASTER%と%CALLNAME:TARGET%との些細な思い出のいくつかです。
	PRINTFORMW どれを読みますか？
	PRINTFORML
	SIF CEVENT("春")
		PRINTFORML [0] 桜が開心の木の下で
	SIF CEVENT("夏")
		PRINTFORML [1] 蒸し暑い真夏の夜の夢に
	SIF CEVENT("秋")
		PRINTFORML [2] 大イチョウが色づくある日
	SIF CEVENT("冬")
		PRINTFORML [3] ウィンター・ウォーカー
	PRINTFORML [999] 返回
	PRINTL

	$INPUT_LOOP_你との記録
	INPUT

	IF RESULT == 0 && CEVENT("春")
		CALL K77_HaLL5c68a32_SPRING_WARKING
	ELSEIF RESULT == 1 && CEVENT("夏")
		CALL K77_HaLL5c68a32_MIDSUMMER_NIGHT_DREAM
	ELSEIF RESULT == 2 && CEVENT("秋")
		CALL K77_HaLL5c68a32_AUTMN_WALKING
	ELSEIF RESULT == 3 && CEVENT("冬")
		CALL K77_HaLL5c68a32_WINTER_WALKER
	ELSEIF RESULT == 999
		PRINTFORMW 閲覧終了
	ELSE
		GOTO INPUT_LOOP_你との記録
	ENDIF
;CASE "7_日誌：その７"
;	CALL
ENDSELECT
RETURN 1

path: ERB/EVENT_K/77 ハル/EVENT_K77.ERB