code:
;-------------------------------------------------
;白狐真妃(しろこまき)口上_1.1.0_2022_02_19
;製作者 coela
;-------------------------------------------------
;無表情マイペース狐娘
;興味のないものには無関心、自分の邪魔にならなければどうでもいい、めんどくさい
;闲つぶしに教科書読んでたりするので勉強はできる。運動神経は×、つい考え事をして身体が動かない。
;ぼーっとしているときは大抵関係ないことを考えている。
;好きな科目は理科、音楽。算数は得意だが特別好きではない。
;音楽は好きだがリズム感はない。一人でやる分に是いが合奏は悲惨。
;興味のないものを覚えられないので暗記物の社会は苦手。
;朴訥で、単語で会話しがち。自分の中で出した結論だけ述べるので致命的に言葉が足りない。
;聴覚過敏の節がある、泣き声や怒鳴り声を嫌う、自分が音を立てるのも嫌なので足音を立てずに歩く。
;温度変化に鈍く、めんどくさがりでファッションにも気を配らない。
;ちょっと我慢すれば通年で着れるので年中長袖、寒くなったら外衣が増える程度。
;夏は暑そうで冬は寒そうな格好をしている。
;複数のことを同時にするのが苦手、歩きながらペットボトル飲料を飲めない。話を聞きながらメモを取れない。
;进行性処理とか無理、明らかに手が止圆圈
;音読みと訓読みを入れ替えるなど、わざと変な読み方をするときがある。
;乳糖耐性有、牛乳是いぞ。
;明確な他人には丁寧語(店員とか)、ある程度気心の知れた相手には雑
;自己評価が低く、頼られたり褒められたりするとすぐ心情好になる。ちょろい。
;問題を解決するために頼りにされて感謝されることを好む、ただし单方面地こき使われるのは気に食わない、一緒に手伝ってほしいと頼めばほいほいついてくる
;複数の作業を並行して行うこと、計画を立てることが苦手なのは自覚している
;成長すればそのうち改善されるかなと思っているがそんなことはない
;自分をどう評価していいかわからない、自己評価を下すことは客観性に欠けるのでする意味がないしたくないと思っている
;自分の行動が相手にどういう印象を与えるかがわからない、そのうえで嫌われたくはないので対人行動は基本消極的
;身体接觸に飢えているが前述のとおり主动は動けない、どこまでが許容されるのかわからない。
;性への関心は低めだが拒否感はない、わりとどうでもいい。
;性騷擾に対して揶揄するような発言をするが、自分に興味を持たれていることの照れ隠し、なので基本めんどくさい以外の理由で拒否しない。ちょろい。
;冗談を真に受けやすい。信用するしないが極端、話半分に聞くことができない。
;突発的に思いついたことを口に出す。話の流れで連想したものだとか、ふと食べたくなったものだとか、ふと食べたくなったものから連想したことだとか
;廁所を我慢しがち、めんどくさいので。いっぱいでるときもちいい。おもらしと膀胱炎には注意。
;変なもの好きなのは未知への好奇心かもしれない。
;性臭をくさいとかへんなにおいと表現するが、なんと形容していいかわからないだけで好き。ただし汚臭が好きなわけではない。
;空気は読めない、人の発言を字句街道にとらえてしまい、その発言がどういった意図で行われたのかまで考えが及ばない。ぶぶづけをくれるなら食べる。
;人の悪意に鈍感、でも他人の苦しみ、悲しみや恥ずかしみ(?)には敏感で、できるなら解消しようとし、無理そうならその場から逃げようとする。
;誰かが横で怒られてたら廁所に逃跑。
;非可逆的変化を嫌う、再利用できるものが劣化していくのを見ると悲しくなる。e.g. 消し避孕套、ろうそく
;線香が燃えるのを見るのは好き、一回使い切りのものならいいんだろうか

;ひらがな很多に話す、読みづらい場合は主文ではない動詞、名詞あたりから漢字にしてみる。e.g. 「……まいたけに漬けるとやわらかくなる」, 「から油炸と竜田油炸ってなにがちがうの？」

;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K61, ARGS
#FUNCTIONS
;名前を呼ぶ相手の角色番号の代入に使う
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
	CASE "一人称"
		LOCALS = 我_我
	CASE "二人称"
		IF PLAYER == MASTER
			;相手が主人
			;TODO 名前が不定だとしても「你」と是わなそう、再考の余地有
			LOCALS = 你_你
		ELSE
			;基本呼び捨て
			LOCALS = %CALLNAME:PLAYER%_%CSTR:PLAYER:ふりがな%
		ENDIF
	CASE "主人"
		LOCALS = あいつ_あいつ
	CASE "性行為"
		;NOTE 語彙辞典は別関数の方がいいだろうか
		LOCALS = えっち_えっち/えっちなこと_えっちなこと/えっちなやつ_えっちなやつ/えっちなの_えっちなの
		IF ABL:欲望 >= 3
			LOCALS += "/きもちいこと_きもちいこと/きもちいやつ_きもちいやつ/きもちいの_きもちいの"
		ENDIF
		IF ABL:精液中毒 >= 3
			LOCALS += "/ちんちん_ちんちん"
		ENDIF
		IF TALENT:淫乱
			LOCALS += "/いつもの_いつもの/いつものやつ_いつものやつ"
		ENDIF
		RETURNF TEXTR(LOCALS)
	CASEELSE
		;この下は三人称。
		;名前を呼ぶ相手の角色番号をACTORに代入する
		SELECTCASE ARGS
			CASE "助手"
				;相手が助手
				ACTOR = ASSI
			CASEELSE
				;ここにはARGSに角色のCALLNAMEが入ったりしている場合(ARGS == "弗理希艾尔" など)に来る
				ACTOR = FIND_NO(ARGS)
		ENDSELECT

		;相手が教員
		IF COND("教員", ACTOR)
			;識別子として老师まで含めてるイメージ、特に敬意はない
			LOCALS = %CALLNAME:ACTOR%老师_%CSTR:ACTOR:ふりがな%老师
		ELSEIF COND("学生") && COND("学生", ACTOR)
			;自分も相手も学生なら学年比較
			IF COND("学年") < COND("学年", ACTOR)
				;相手が上級生
				;識別子として前輩まで含めてるイメージ、特に敬意はない
				LOCALS = %CALLNAME:ACTOR%前輩_%CSTR:ACTOR:ふりがな%前輩
			ENDIF
		ELSE
			;それ以外
			;基本呼び捨て
			LOCALS = %CALLNAME:ACTOR%_%CSTR:ACTOR:ふりがな%
		ENDIF
ENDSELECT
RETURNF LOCALS

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

SELECTCASE ARGS
	CASE "紹介文"
		STR:1 = 初等部的学生。总是按照自己的想法做事的無表情狐娘。
		STR:2 = 对于自己没有兴趣的东西不会产生任何想法、只要不会阻碍到自己怎么样都好、因为处理起来很麻烦。
		; STR:3 = 紹介文３行目
		; STR:4 = 紹介文４行目
	CASE "勧誘"
		PRINTFORMW 部室の前で立ち止まっている初等部の学生と目が合った。
		PRINTFORMW 白髪に狐耳を生やし、眠そうな赤い目がこちらを……いや、机に盛られた粗点心やら茶菓子やらの山を看了过来。
		PRINTFORML
		PRINTFORMW 你は粗点心の山から棒状のスナック菓子を一本抜きとり、白髪の少女の前にぶら下げた。
		PRINTFORMW 挑発するようにふらふらと揺らし、獲物が食いつくのを等待。
		PRINTFORML
		PRINTFORMW 釣りとは忍耐である。挑逗、焦らされ、先に動いたほうが敗者となる。
		PRINTFORMW 互いにフェイントを繰り出しあい、相手の一挙手一投足を――
		PRINTFORML
		PRINTFORML 『はぁ……初等部の子を相手になに大人げないことしているんですか、主人様』
		PRINTFORMW 弗理希艾尔に呆れられた。
	CASE "勧誘直後"
		PRINTFORMW 勝者の報酬として、もっさもっさと粗点心をむさぼっていた真妃が、我に返ってぽつりと言った。
		PRINTFORMW 「……ここ、何の部活？」
	CASE "自室描写"
		PRINTL 本棚が一つと机が一つ、被窝が敷きっぱ无になっている。
		PRINTL 段ボール箱がいくつか転がっており、学校で配布されたらしい印花などが雑多に詰め込まれている。
		PRINTL 物こそ少ないが雑然としている。
	CASE "出現条件"
	CASE "初訪問"
		;nothing
	CASEELSE
		DEBUGPRINTFORML EVENT_PROFILE_K61 ARGS %ARGS%
ENDSELECT
RETURN

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K61
;TODO A系やハードなSM系は趣味じゃない
RETURN

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K61
RETURN

;-------------------------------------------------
;Ｈに入る前のセリフ
;TFLAG:指令中止 = 1 とすることで口上側からＨの開始自体を中止できる
;この時間帯にＨを断った回数自体は CFLAG:Ｈ断った で参照可能
;特に書かなくても問題有ません
;-------------------------------------------------
@PRE_EVENTTRAIN_K61
RETURN

;-------------------------------------------------
;調教開始時のセリフ
;-------------------------------------------------
@EVENTTRAIN
SIF NO:TARGET != 61
	RETURN 1

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORML 「%CNAME("性行為")%するの？」
	PRINTFORMW %CALLNAME:TARGET%はきょとんとした顔で%CALLNAME:PLAYER%を看了过来。
	PRINTFORML
	PRINTFORML 「ん、いいよ」
	PRINTFORML なぜか得意げに、にまにまと露出笑容いる。
	PRINTFORMW 尾巴がぱたぱたと左右に揺れている。
	CALL SET_CEVENT, "調教開始：初調教"
ELSEIF ASSI <= 0
	;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
	CALL K61_KOJO2

ELSE
	CALL K61_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K61_KOJO2
;全肯定マンだと分岐が思いつかん
PRINTDATAL
	DATAFORM 「%CNAME("性行為")%？　いいよ」
	DATAFORM 「へんたい、へんたーい」
	DATAFORM 「ん」
	DATAFORM 「んー」
	DATAFORM 「ん！」
ENDDATA
PRINTFORMW 無表情的だが、尾巴がぱたぱたと揺れている。
RETURN 1

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

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 調教強制終了
ELSEIF STATE("撃沈")
	;partnerが体力or精力尽きた場合
	PRINTDATAW
		DATAFORM 「ん……つかれた」
		DATAFORM 「ん……もうむり」
	ENDDATA
	RETURN 1
ELSEIF COND("満足")
	IF ITEM:未飲的避孕套 >= 3
		PRINTFORMW %CALLNAME:TARGET%は中身の入った避孕套を並べ、満足げに眺めている。
		RETURN 1
	ELSEIF ITEM:未飲的避孕套
		PRINTDATAW
			DATAFORM %CALLNAME:TARGET%は中身の入った避孕套を興味深そうに眺めている。
			DATALIST
				DATAFORM 「%TEXTR("ん、あったかい/ぶよぶよー")%」
				DATAFORM 中身の入った避孕套を%CALLNAME:TARGET%は面白そうに触っている。
			ENDLIST
		ENDDATA
		RETURN 1
	ENDIF

	;恋慕＋満足
	CALL PRINT_STRW, @"「%TEXTR("んっ_HH_、すっきりした/きもちよかった_HH_/またしてね？/またしようね？/……きもちいのすき_HH_")%」"
	RETURN 1
ENDIF

;TODO 用过的避孕套を並べて満足顔、3つ以上でソート基準を考え出す。

PRINTDATAW
	DATA 「ん、すっきりした？」
	DATA 「ん、きもちよかった？」
ENDDATA

RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;イベントや台詞の都合上の問題でPLAYERに射精させたい場合は CALL SETFLAG, "強制射精", PLAYER とする事で强行射精させることができる
;-------------------------------------------------
@KOJO_MESSAGE_COM_K61
;感情系ソースの最大値、発言の方向性
#DIM MAX_EMOTION
;快楽系ソースの最大値、喘ぎ具合
;NOTE 合計のがいいかも
#DIM MAX_PLEASURE

MAX_EMOTION = MAXARRAY(TCVAR, 660, 670)
MAX_PLEASURE = MAXARRAY(TCVAR, 670, 676)

SELECTCASE SELECTCOM
	CASE 139
		;什麼也不做
		;TODO 前回指令とか現在PALAMでなんか言わせたい

		IF COND("ながら自慰フラグ")
			CALL PRINT_STRW, @"「%TEXTR("んっ_HH_、んっ_HH_/んー_HH_")%」"
			RETURN 1
		ENDIF

		PRINTDATAW
			DATA 「ん」
			DATA 「んー……」
		ENDDATA
		RETURN 1
	CASE 172
		;浴室PLAY
		IF MAX_PLEASURE > 0
			;NOTE 道具使ってるときはスルー
		ELSEIF TEQUIP:浴室PLAY
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「おふろー」
				DATA 「おふろー、おっふろー」
				DATA 「おふろ？」
				DATA 「おふろ是るの？」
			ENDDATA
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「ん」
				DATA 「ん、すっきりした」
				DATA 「すっきりした？」
				DATA 「のどかわいた」
			ENDDATA
			RETURN 1
		ENDIF
	CASE 283
		;甜言蜜语
		;NOTE 口上書くと汎用口上は省略される
		IF TEQUIP:甜言蜜语
			CALL PRINT_STRL, @"「%TEXTR("んっ_HH_/んー/んふ/んふー")%」"
			PRINTFORMW %CALLNAME:TARGET%は開心地はにかんでいる。
			RETURN 0
		ELSE
			PRINTDATAL
				DATA 「ん？」
				DATA 「んー？」
				DATA 「……へんなの」
			ENDDATA
			PRINTFORMW %CALLNAME:TARGET%はよくわかっていないようだ。
			RETURN 0
		ENDIF
	CASEELSE
		SIF SELECTCOM >= 0
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%
ENDSELECT

;NOTE 行動じゃなくSOURCE依存で口上を出せば少ない労力でそれっぽくしゃべるのではという思いつき

;HACK TCVAR:660 でCOM結果での情愛ソースの表示値が取れる？
;HACK 地の文前だとTCVARは計算されていない
;HACK 被逆推中 に移開るのを確認

;NOTE 情愛～恐惧までの感情系SOURCEと、C快楽～尿道快楽の快楽系SOURCEの二軸評価とする。
;感情系SOURCEでおおまかな方向性を決めて、快楽系SOURCEでそれどころじゃない具合を増やしてく
;いちゃらぶ信者なので疼痛、屈従、逸脱、恐惧あたりはとくに手抜きになると思われる。

;NOTE 快楽SOURCE数値の参考
; 情緒MAX挿入G☆ 37000
; 情緒MAX後背☆ 25000
; 挿入G 22000
; 騎乗 8800
; 情緒MAX自慰 5800
; 情緒MAX接吻 5300
; 情緒MAX愛撫 3500
; 未調教情緒MAX愛撫 3400
; 情緒MAX素股 3000
; 情緒MAX乳交 2800
; 情緒0自慰 1900
; 情緒0接吻 1700
; 情緒0愛撫 500
; 未調教情緒0愛撫 27

;NOTE 大雑把に快楽系SOURCEが
;0 平常心
;1000 きもちいい
;5000 余裕がない
;15000 喘ぐしかできない
;25000 お゛ほ゛ー゛っ゛

;NOTE 快楽SOURCE 5000 超えたら分岐してもしゃーない気がしてきた
;TODO バリエーションが足りねえ！

IF MAX_EMOTION == 0
	;nothing
ELSEIF MAX_EMOTION == TCVAR:660
	;情愛
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
			;共通へ
		CASE IS > 5000
			CALL PRINT_STRL, @"「%TEXTR("んっ_HH_/んーっ_HH_/すきっ_HH_")%、%TEXTR("んっ_HH_/んーっ_HH_/すきっ_HH_")%」"
			CALL PRINT_STRW, @"%CALLNAME:TARGET%は%TEXTR(@"快楽と幸福感におぼれているようだ/%CALLNAME:PLAYER%に身体を預け、快楽をかみしめている")%。"
			RETURN 1
		CASE IS > 1000
			CALL PRINT_STRL, @"「%TEXTR("んっ/んーっ/んふー")%_HH_」"
			CALL PRINT_STRW, @"%CALLNAME:TARGET%は%TEXTR(@"感じながらも%CALLNAME:PLAYER%にすり寄ってくる/%CALLNAME:PLAYER%に身をゆだねている")%。"
			RETURN 1
		CASEELSE
			PRINTDATAW
				DATALIST
					DATAFORM 「%TEXTR("んーっ/んふー")%」
					DATAFORM %CALLNAME:TARGET%は%TEXTR("せがむようにすり寄ってくる/くすぐったそうにしている")%。
				ENDLIST
			ENDDATA
			RETURN 1
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:661
	;性行動、奉仕系行動で高くなる
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
			;共通へ
		CASE IS > 5000
			CALL PRINT_STRW, @"「%TEXTR("んっ_HH_/んーっ_HH_")%、%TEXTR("んっ_HH_/んーっ_HH_")%」"
			RETURN 1
		CASE IS > 1000
			CALL PRINT_STRW, @"「%TEXTR("んっ/んーっ/んふー")%_HH_、%TEXTR("きもちい？/これすき？/もっとする？")%」"
			RETURN 1
		CASEELSE
			PRINTDATAW
				DATA 「きもちい？」
				DATA 「どう、きもちい？」
				DATA 「これ、すき？」
				DATA 「もっとする？」
			ENDDATA
			RETURN 1
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:662
	;達成感
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
		CASE IS > 5000
			;共通へ
		CASE IS > 1000
			CALL PRINT_STRL, @"「%TEXTR("んっ/んーっ/んふー")%_HH_」"
			PRINTFORMW %CALLNAME:TARGET%の尾巴が開心地揺れている。
			RETURN 1
		CASEELSE
			PRINTDATAW
				DATALIST
					DATAFORM 「んふー」
					DATAFORM %CALLNAME:TARGET%は優越感を感じているようだ。
				ENDLIST
			ENDDATA
			RETURN 1
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:663
	;疼痛
ELSEIF MAX_EMOTION == TCVAR:664
	;充足
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
			;共通へ
		CASE IS > 5000
			CALL PRINT_STRL, @"「%TEXTR("んっ_HH_/んーっ_HH_/すきっ_HH_")%、%TEXTR("んっ_HH_/んーっ_HH_/んふー_HH_/これすきっ_HH_/もっと_HH_")%」"
			RETURN 1
		CASE IS > 1000
			CALL PRINT_STRL, @"「%TEXTR("んっ_HH_/んーっ_HH_/んふー_HH_/これすき_HH_/もっとしよ？")%」"
			PRINTFORMW %CALLNAME:TARGET%の尾巴が満足そうに揺れている。
			RETURN 1
		CASEELSE
			CALL PRINT_STRL, @"「%TEXTR("んっ_HH_/んーっ_HH_/んふー_HH_/これすき_HH_/もっとしよ？")%」"
			RETURN 1
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:665
	;不潔
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
		CASE IS > 5000
			;共通へ
		CASE IS > 1000
			CALL PRINT_STRW, @"「んっ_HH_、%TEXTR("ぺとぺとしてる_HH_/くさい……_HH_/ばっちい_HH_/きれいにしなきゃだめだよ？")%」"
		CASEELSE
			PRINTDATAW
				DATA 「ねばねばー」
				DATA 「ぺとぺとしてる……」
				DATA 「ぺとぺとする……」
			ENDDATA
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:666
	;露出
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
		CASE IS > 5000
			;共通へ
		CASE IS > 1000
			CALL PRINT_STRW, @"「んっ_HH_、%TEXTR("どう？/みえる？/みえてる？/よくみえる？/……はずかしい")%」"
		CASEELSE
			PRINTDATAW
				DATA 「どう？」
				DATA 「へんじゃない？」
				DATA 「みえる？」
				DATA 「よくみえる？」
				DATA 「……ちょっとはずかしい」
			ENDDATA
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:667
	;屈従
	;TODO 反応が思いつかなくてぶれてる気がする。性行為において悔しさを感じることがあるのか……？
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
		CASE IS > 5000
			;共通へ
		CASE IS > 1000
			;TODO 見直し、屈従の台詞が思いつかん
			CALL PRINT_STRW, @"「んっ_HH_、%TEXTR("これつづけなきゃだめ？/いつまでやればいい？")%」"
		CASEELSE
			PRINTDATAW
				DATA 「んぅ……」
				DATA 「むー……」
				DATA 「……やんなきゃだめ？」
			ENDDATA
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:668
	;逸脱、普段やらないことで困惑する
	SELECTCASE MAX_PLEASURE
		CASE IS > 15000
		CASE IS > 5000
			;共通へ
		CASE IS > 1000
			CALL PRINT_STRW, @"「んっ_HH_、%TEXTR("んぅっ？/なにこれっ_HH_")%」"
		CASEELSE
			PRINTDATAW
				DATALIST
					DATA 「んぅ？」
					DATAFORM %CALLNAME:TARGET%は少し怪訝そうな顔をしている。
				ENDLIST
				DATALIST
					DATA 「なにしてるの？」
					DATAFORM %CALLNAME:TARGET%は少し怪訝そうな顔をしている。
				ENDLIST
			ENDDATA
	ENDSELECT
ELSEIF MAX_EMOTION == TCVAR:669
	;恐惧
ENDIF

;快楽系高すぎると分岐が思いつかないね？
;共通処理
SELECTCASE MAX_PLEASURE
	CASE IS > 25000
		;誰得
		CALL PRINT_STRW, @"「%TEXTR("あ゛っ_UH_/ん゛っ_UH_/お゛っ_UH_")%、%TEXTR("ん゛っ_UH_/お゛っ_UH_/ん゛お゛っ_UH_")%」"
		RETURN 1
	CASE IS > 15000
		CALL PRINT_STRW, @"「%TEXTR("あっ_UH_/んっ_UH_")%、%TEXTR("んっ_UH_/んーっ_UH_/しゅきっ_UH_/もっと_UH_")%」"
		RETURN 1
	CASE IS > 5000
		CALL PRINT_STRW, @"「%TEXTR("んっ_HH_/んーっ_HH_")%、%TEXTR("んっ_HH_/んーっ_HH_")%」"
		;くどそうなのでカット
		;PRINTFORMW %CALLNAME:TARGET%は余裕がなさそうだ。
		RETURN 1
	CASEELSE
ENDSELECT

; DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%
RETURN 0

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K61

;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

SELECTCASE SELECTCOM
	CASEELSE
		RETURN 0
ENDSELECT

DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%
RETURN 0

;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K61
;DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%
RETURN

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

SELECTCASE ARGS
	CASE "Ｃ絶頂"
		IF FIRST_EV("Ｃ絶頂") == 0
			CALL PRINT_STRW, "「はーっ_HH_、はーっ_HH_、なんかびくびくがきた」"
			RETURN 1
		ENDIF
	CASE "絶頂放尿"
		CALL PRINT_STRW, @"「%TEXTR("んっ_HH_/んっ……_HH_/")%、%TEXTR("いっぱいでた_HH_/すっきりした_HH_/きもちよかった_HH_/おしっこでちゃった_HH_")%」"
		RETURN 1
	CASEELSE
ENDSELECT

DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%

RETURN 0

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

SELECTCASE ARGS
	CASEELSE
ENDSELECT

DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
RETURN 0

;-------------------------------------------------
;TARGETの射精直前の口上
;-------------------------------------------------
@KOJO_MESSAGE_BEFORE_TARGETSHOOT_K61
DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%
RETURN

;-------------------------------------------------
;射精先選択の直前に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K61
;NOTE 直前は特に何も言わなそう
;DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%

RETURN 0

;-------------------------------------------------
;射精先選択の直後に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_AFTERSHOOTCHANGE_K61
;DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} SELECTCOM {SELECTCOM} %TRAINNAME:SELECTCOM%

RETURN 0

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

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF COND("絶頂", PLAYER) >= 3
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ぶっかけ超大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		;大量射精
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ぶっかけ大量射精
	ELSE
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ぶっかけ
	ENDIF
ELSEIF SHOOT("自慰")
	;自慰で射精された(ぶっかけではなく床などに射精した)
	PRINTDATAW
		DATA 「んふー……いっぱいでた？」
		DATA 「ん、すっきりした？」
		DATA 「きもちよかった？」
	ENDDATA
	RETURN 1
ELSEIF SHOOT("脚")
	;素股、足交や身体で射精させた
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 脚
ELSEIF SHOOT("素股")
	CALL PRINT_STRW, "「んふー、いっぱいでたね_HH_」"
	RETURN 1
ELSEIF SHOOT("口")
	;口で射精させた
	IF ABL:精液中毒 >= 5
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 口中毒5
	ELSEIF ABL:精液中毒 >= 3
		;精液中毒Lv3
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 口中毒3
	ELSEIF ABL:奉仕精神 >= 3
		;奉仕精神Lv3以上
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 口奉仕3
	ELSE
		;それ以外
		PRINTDATAW
			DATA 「んー、にがじょっぱくさい」
		ENDDATA
	ENDIF
ELSEIF SHOOT("胸")
	;胸で射精させた
	IF ABL:奉仕精神 >= 5
		;奉仕精神Lv5
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 胸奉仕5
	ELSEIF ABL:奉仕精神 >= 3
		;奉仕精神Lv3以上
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 胸奉仕3
	ELSE
		;それ以外
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 胸
	ENDIF
ELSEIF SHOOT("手")
	;手で射精させた
	IF ABL:奉仕精神 >= 5
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 手奉仕5
	ELSEIF ABL:奉仕精神 >= 3
		;奉仕精神Lv3
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 手奉仕3
	ELSE
		;それ以外
		PRINTDATAW
			DATA 「ん、すっきりした？」
			DATA 「きもちよかった？」
			DATA 「どうだった？」
			DATA 「ちっちゃくなっちゃった……」
			DATA 「ちんちんよかった？」
		ENDDATA
	ENDIF
ELSEIF SHOOT("Ｖ中出し")
	;性交で射精させた
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「%TEXTR("ん_HH_、/ん、/んー_HH_、/んーっ_HH_、/")%%TEXTR("いっぱいでてる_HH_/きもちかった？_HH_/まだでそう？_HH_/ちんちんきもちい？_HH_/もっとだしていいよ？_HH_")%」"
		RETURN 1
	ELSEIF MARK:屈服刻印 == 3
		;屈服刻印Lv3
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 中出し屈服3
	ELSE
		;それ以外
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 中出し
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} A中出し
ELSEIF SHOOT("接吻")
	;接吻で射精
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 接吻
ELSEIF SHOOT("面部騎乗")
	;面部騎乗で射精
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 面部騎乗
ELSEIF SHOOT("洗面奶")
	;洗面奶で射精
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} 洗面奶
ELSEIF SHOOT("逆舐陰")
	;逆舐陰で射精
	PRINTFORMW
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	;逆肛交、逆強姦で射精
	PRINTFORMW
ELSEIF SHOOT("調教者が女性")
	;PLAYERが女で、イってしまった…
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	ELSEIF COND("絶頂", PLAYER) == 1
		;絶頂
		PRINTFORMW
	ENDIF
ENDIF

;TODO 用过的避孕套を欲しがる

RETURN

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K61, ARGS
SELECTCASE ARGS
	CASE "恍惚"
		PRINTDATAW
			DATAFORM 恍惚としている%CALLNAME:PLAYER%に、%CALLNAME:TARGET%は嬉しそうだ。
		ENDDATA
	CASEELSE
ENDSELECT
DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%

RETURN 0

;-------------------------------------------------
;イベント口上集
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "中出し後害羞"の地の文の前に喋らせたりスキップさせたい場合にはCASE "中出し後害羞：地の文前"を用意すればよい
;例）CASE "中出し後害羞：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_EVENT_K61, ARGS
SELECTCASE ARGS
	CASE "自発脱ぎ"
		IF CHECK_CLO("裸体")
			;裸体变成了
			PRINTDATAW
				DATA 「ん、あつ」
				DATA 「あったかくなってきた」
				DATA 「ぽかぽかしてきた」
				DATA 「あつ、ぬぐ」
			ENDDATA
			RETURN 1
		ELSEIF CHECK_CLO("Ｖ露出")
			;阴部剥きだし
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSE
			;部分脱ぎ
			PRINTDATAW
				DATA 「ん」
				DATA 「んしょ」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "Ｖ避孕套装着"
		;挿入指令
		IF TRAIN_GENRE("挿入", SELECTCOM)
			;PLAYヤーは着ける気満々
			IF TEQUIP:PLAYER:避孕套
				PRINTDATAW
					DATA 「ちんちんもくつしたはくの？」
					DATAFORM %CALLNAME:TARGET%は避孕套を興味深そうに眺めている。
					DATAFORM %CALLNAME:TARGET%は避孕套をつける%CALLNAME:PLAYER%を不思議そうに看了过来。
				ENDDATA
				RETURN 1
				;ご褒美に生Ｈをさせて给場合
			ELSEIF TCVAR:獎勵生H

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

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

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

			ENDIF
			;PLAYヤーへの挿入指令
		ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		ENDIF
	CASE "中出し後恍惚"
		CALL PRINT_STRW, @"「%TEXTR("ふーっ_HH_、ふーっ_UH_/はーっ_HH_、はーっ_UH_")%」"
		RETURN 1
	CASEELSE
ENDSELECT
DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
RETURN 0

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K61, ARGS
SELECTCASE ARGS
	CASEELSE
ENDSELECT
DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
RETURN

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

SELECTCASE ARGS
	CASE "勧誘"
		;CASE "勧誘"のみ、角色としてはまだ存在していないのに注意
		;例）卯月佑香の場合の記述
		;SIF TALENT:MASTER:男性 && TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 && ABL:MASTER:技巧 >= 3
		;	RETURN 1
		;STR:実行条件 = ※%CSVNAME(36)%_黄色_在%CALLNAME:MASTER%是男性＆部員除%CALLNAME:MASTER%以外还有3人以上時_才可以勧誘※
	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

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

@MENU_SINGLE_ENDING_K61
;エンディングを書いたら、下の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_ＥＮＤ名３/"

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

RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K61, ARGS
SELECTCASE ARGS
	CASE "ＥＮＤ名１"
		PRINTFORMW ＥＮＤ名１の本文です
	CASE "ＥＮＤ名２"
		PRINTFORMW ＥＮＤ名２の本文です
	CASE "ＥＮＤ名３"
		PRINTFORMW ＥＮＤ名３の本文です
ENDSELECT
RETURN 1

path: ERB/EVENT_K/61 白狐マキ/EVENT_K61.ERB

license: unknown


code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K61, ARGS

;ファッションには無頓着、暗めの色から随意
SELECTCASE ARGS
	CASE "内衣"
		;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します
		;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます
		;CFLAG:随机内衣OFF = 1とした場合には、ここで設定した内衣のみを身に着けるようになります
		CSTR:胖次 = 內褲/淡色/简约/
		CSTR:胸罩 = 吊帯衫/淡色/

	CASE "飾品"
		;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
		CALL SET_OTHER, ""

	CASE "制服"
		;学園での便装です。設定必須です。
		;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 背心,美式校服、V领毛衣など
		;黑色水手服を着せたい場合には CALL SET_COSTUME, "水手服/黒" のように書き込むことで色を変えることが出来ます
		;また、V领毛衣に限りCALL SET_COSTUME, "V领毛衣/濃紫/萌え袖"のようにして色の他に"萌え袖"をオプション指定できます
		;(RESOURCES→MAIDFACE→13服 フォルダ内にある MAIDFACE13.csv の該当衣装を見て色を選ばないとならないため上級者向きです)
		;また、女式衬衫等の上に裤吊带を着けたい場合には CALL SET_OTHER, "裤吊带" として下さい
		IF COND("冬")
			CALL SET_COSTUME, "水手服"
			CALL SET_OUTER, "运动衫休闲褲"
			CALL SET_OTHER, "运动衫/围巾"
		ELSE
			CALL SET_COSTUME, "水手服"
		ENDIF
	CASE "体操服"
		;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
		;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
		IF COND("冬")
			CALL SET_COSTUME, "体操服运动衫"
		ELSE
			CALL SET_COSTUME, "体操服布鲁马"
		ENDIF
	CASE "泳装"
		;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
		;死库水, 競泳泳装, 白比基尼, 黒比基尼など
		CALL SET_COSTUME, "死库水"

	CASE "便装", "居家服"
		;自宅など学園外で着ます。設定必須です
		;NOTE 便装と居家服の違いはなんだ……公共の場に出る可能性があるなら分離する必要がある。
		IF COND("冬")
			CALL SET_SHIRT, "宽大的Ｔ恤/黒"
			CALL SET_OUTER, "运动衫休闲褲"
			CALL SET_OTHER, "連帽風衣"
		ELSEIF COND("夏")
			CALL SET_SHIRT, "宽大的Ｔ恤/黒"
		ELSE
			CALL SET_SHIRT, "宽大的Ｔ恤/黒"
			CALL SET_OUTER, "运动衫休闲褲"
		ENDIF

	CASE "外出装"
		;约会以外で家から外出際に着ます。情人旅館呼出とかね
		CALL SET_SHIRT, "長袖Ｔ恤/黒"
		CALL SET_SKIRT, "裙"
		CALL SET_SHOES, "運動鞋"
		CALL SET_SOCKS, "膝下襪"

		IF COND("冬")
			CALL SET_SOCKS, "長筒襪"
			CALL SET_OTHER, "鸭舌帽/連帽風衣/围巾"
		ELSEIF COND("夏")
		ELSE
			CALL SET_OTHER, "連帽風衣"
		ENDIF
	CASE "约会衣装"
		;外出装に发卡だけ追加でつける。どうしたらおしゃれなのかわかっていない。
		CALL SET_SHIRT, "長袖Ｔ恤/黒"
		CALL SET_SKIRT, "裙"
		CALL SET_SHOES, "運動鞋"
		CALL SET_SOCKS, "膝下襪"
		CALL SET_OTHER, "橘子の发卡"

		IF COND("冬")
			CALL SET_SOCKS, "長筒襪"
			CALL SET_OTHER, "鸭舌帽/連帽風衣/围巾/橘子の发卡"
		ELSEIF COND("夏")
		ELSE
			CALL SET_OTHER, "連帽風衣/橘子の发卡"
		ENDIF

	CASE "朝袭衣装"
		;朝Ｈの際に着ます
		IF COND("同居中")

		ELSE

		ENDIF
	CASE "夜袭衣装"
		;夜袭Ｈの際に着ます

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K61
IF COND("约会中")
ELSEIF PLACE("自宅")
ELSE

ENDIF


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K61, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
	CASE "お誘いする"
		;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
		;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
		;例１）弗理希艾尔or濡烏の君or杏珠から一人選ぶ場合
		;EVENT_TABLE = 弗理希艾尔/濡烏の君/杏珠
		;例２）部員全てから一人選ぶ場合
		;EVENT_TABLE = 全員

		IF FIND_TaiTa(EVENT_TABLE)
			;話し相手をpartnerにする
			CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)
			CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
		ENDIF

	CASE "誘われた"
		;話しかけられる側のセリフ。括弧は『』を使うのが望ましい

ENDSELECT

path: ERB/EVENT_K/61 白狐マキ/EVENT_K61_COMM.ERB


code:
;-------------------------------------------------
;各種打招呼
;注意！ここのセリフは基本的に颜绘が付きます！！
;颜绘に変化を付けたい場合にはセリフの前でEMOTION_PLUSを用いる事で変えられます。
;例）恥じらった顔にさせたい場合には CALL EMOTION_PLUS, "害羞", TARGET
;-------------------------------------------------
@KOJO_GREETING_K61, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
	CASE "朝袭"
		SELECTCASE CSTR:朝袭
			CASE "朝口交"
				CALL PRINT_STRW, @"「%TEXTR("ん、おはおー/んんんー/んっ、んっ_HH_")%」"
				RETURN 1
			CASE "朝騎乗位"
				CALL PRINT_STRW, @"「%TEXTR("ん、おはよ_HH_/んー/んっ、んっ_HH_/あ_HH_、おきた？")%」"
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
				RETURN 1
			CASE "朝足交"
				CALL PRINT_STRW, @"「%TEXTR("ん、おはよ/ん、おきた？")%」"
				RETURN 1
			CASE "朝の新妻PLAY"
				CALL PRINT_STRW, @"「%TEXTR("ん……/んっ")%」"
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 朝袭 %CSTR:朝袭%
		ENDSELECT
	CASE "打招呼"
		;朝のＨイベント終了後にする打招呼
		SELECTCASE CSTR:朝袭
			CASE "朝足交"
				CALL PRINT_STRW, @"「%TEXTR("ちんちんよかった？/きもちかった_HH_？/もいっかいする？")%」"
				RETURN 1
			CASE "朝口交"
				CALL PRINT_STRW, @"「%TEXTR("ちんちんよかった？/きもちかった_HH_？/もいっかいする？/もちょっとでそう？/ん_HH_、ちんちんくさい_HH_/ん、しょっぱい_HH_")%」"
				RETURN 1
			CASE "朝の新妻PLAY"
				CALL PRINT_STRW, @"「%TEXTR("んふーっ_HH_……/だいどころ、あぶないよ？")%」"
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 朝袭 %CSTR:朝袭%
		ENDSELECT

		PRINTDATAW
			DATA 「ん」
			DATA 「んー」
			DATA 「おはー」
			DATA 「おはよ」
			DATA 「おはおは」
			DATA 「おはござます」
			DATA 「ん、おはよ」
		ENDDATA
		RETURN 1
	CASE "登校"
		IF DAYEV("試験当日")
			PRINTDATAW
				DATA 「てすとやだ……」
				DATA 「てすとめんどくさい……」
				DATA 「……ん」
				DATA 「ん……」
			ENDDATA
			RETURN 1

		ELSEIF DAYEV("試験返却日")

		ELSEIF COND("朝袭相手")
			CALL PRINT_STRW, @"「%TEXTR("またおひるにね/おひるにまたする_UH_？")%」"
			RETURN 1

		ELSEIF COND("体育")

		ELSEIF COND("水泳")

		ELSE
			PRINTDATAW
				DATA 「がっこー」
				DATA 「がっこがっこー」
			ENDDATA
			RETURN 1

		ENDIF
	CASE "一番乗り"
		;この角色と一緒に部室に入った際に誰も他にいない場合
		PRINTDATAW
			DATA 「ん」
			DATA 「んー」
			DATA 「んっんー」
			DATA 「へいらっしぇー」
			DATA 「たのもー」
			DATA 「かんねー、いちばんのり」
		ENDDATA
		RETURN 1
	CASE "ただいま"
		PRINTDATAW
			DATA 「ん」
			DATA 「んー」
			DATA 「おうち」
			DATA 「おうちー」
			DATA 「ただま」
			DATA 「ただまー」
			DATA 「たでまー」
			DATA 「あいむほーむ」
			DATA 「あいむほむほーむ」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "既に入室"
		;家で出迎えてくれる時
		IF COND("夜")
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「ん、おかえり」
				DATA 「おかえりー」
				DATA 「おかえぃー」
				DATA 「へいらっしぇー」
				DATA 「らっしゃっせー」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「こんちー」
				DATA 「こんちーわ」
				DATA 「んちわー」
				DATA 「ちわー」
				DATA 「わー」
				DATA 「ちわ」
				DATA 「ちわわ」
				DATA 「へいらっしゃい」
				DATA 「へいらっしぇー」
				DATA 「らっしゃっせー」

				;便利店の入店音
				DATA 「てれてれ てれーん てれれれ れーん」
			ENDDATA
			RETURN 1
		ENDIF

	CASE "入室打招呼"
		IF CFLAG:呼び出された
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「なにごとだー」
				DATA 「よばれてとびでてー」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSEIF COND("Ｈ的いちゃつき中", MASTER)
			;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
			IF (TALENT:淫乱 && !RAND:2)
				PRINTDATAW
					DATALIST
						DATA 「ん……」
						DATAFORM %CALLNAME:PLAYER%たちに気が付いた%CALLNAME:TARGET%は物欲しそうな目をしている。
					ENDLIST
				ENDDATA
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
				RETURN 1
			ENDIF

			PRINTDATAW
				DATALIST
					DATA 「ん……ふーん」
					DATAFORM %CALLNAME:PLAYER%たちを不躾に眺めている……。
				ENDLIST
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「たのもー」
				DATA 「んー」
				DATA 「んっんー」
				DATA 「まだやってる？」

				;入ってきたのは你だ
				DATA 「へいらっしぇー」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "簡易入室打招呼"
		;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
		IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
			;遅れた時のセリフ（既に部員の４分の３が集合済）
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「まだやってる？」
				DATA 「おくれちった」
				DATA 「おそくなった」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSEIF CFLAG:呼び出された
			PRINTDATAW
				DATA 「ん」
				DATA 「んー」
				DATA 「なにごとだー」
				DATA 「よばれてとびでてー」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「たのもー」
				DATA 「んー」
				DATA 「んっんー」

				;入ってきたのは你だ
				DATA 「へいらっしぇー」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
			RETURN 1
		ENDIF
	CASE "打招呼返し"
		;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
		;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
		;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる

		;打招呼してきた人の中から一人選ぶ
		ACTOR = FIND_COND("入室打招呼中")
		;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
		CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

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

		;相手が現れるのが遅かった（既に部員の４分の３が集合済）
		IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
			PRINTDATAW
				DATA 『ん』
				DATA 『んー』
				DATA 『らっしゃー』
				DATA 『いらっしゃー』
				DATA 『いらっしゃいまー』
				DATA 『らっしゃいまー』
				DATA 『おつとめごくろー大人ま』
			ENDDATA
			RETURN 1
		ELSE
			IF CHARA_NUM("入室打招呼中") > 1
				PRINTDATAW
					DATA 『ん』
					DATA 『んー』
					DATA 『らっしゃー』
					DATA 『らっしゃいまー』
					DATA 『だんたい大人のおなーりー』
				ENDDATA
				RETURN 1
			ELSE
				PRINTDATAW
					DATA 『ん』
					DATA 『んー』
					DATA 『ちわー』
					DATA 『ちわわー』
					DATA 『ちくわー』
					DATA 『らっしゃー』
					DATA 『いらっしゃー』
					DATA 『いらっしゃいまー』
					DATA 『らっしゃいまー』
				ENDDATA
				RETURN 1
			ENDIF
		ENDIF
	CASE "便当"
		PRINTDATAW
			DATA 「んまんま」
			DATA 「んふー」
			DATA 「ん、おいしい？」
			DATA 「どう？」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "場所を変える"
		PRINTDATAL
			DATA 「どしたの？」
			DATA 「どしたー？」
			DATA 「ん？」
			DATA 「んー？」
			DATA 「どこいくの？」
		ENDDATA
		RETURN 1
	CASEELSE
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
ENDSELECT
RETURN 0

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;动画ーションの関係上、１ターンに何度も呼ばれたりするのでフラグ操作をする場合には
;IF CFLAG:KOJO_DAILY済 == 0
;で分岐させるのが良いでしょう
;-------------------------------------------------
@KOJO_DAILY_K61, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
	CASE "初回台詞"
		;初回のセリフ
		PRINTFORML 「んふー」
		PRINTFORML %CALLNAME:TARGET%は、すでに我が物顔でくつろいでいる。
		RETURN 1
	CASE "浑身是汗"
		PRINTDATAL
			DATA 「……ん」
			DATA 「……べとべとん」
			DATA 「……へっくし」
			DATA 「……あつ」
		ENDDATA
		RETURN 1
	CASE "刚睡醒"
		PRINTDATAL
			DATALIST
				DATAFORM 「……%TEXTR("んぅ/あさ/ひる/よる")%？」
				DATAFORM %CALLNAME:TARGET%は困倦ているようだ。
			ENDLIST
			DATALIST
				DATAFORM 「……%TEXTR("ぁふ/んわ/ねむ")%」
				DATAFORM %CALLNAME:TARGET%は哈欠をしている。
			ENDLIST
		ENDDATA
		RETURN 1
	CASE "点心の感想"
		;表記ゆれ対応
		IF K61_INCLUDES(SAVESTR:点心, CSTR:讨厌的东西+"/巧克力") != ""
			;ものをもらっておいてなんて野郎だ
			PRINTFORML 「むぅ……これにがて」
			PRINTFORML %CALLNAME:TARGET%は%K61_INCLUDES(SAVESTR:点心, CSTR:讨厌的东西 + "/巧克力")%があまり好きではないらしい。
		ELSEIF COND("点心当番")
			;今日の点心を用意したのは自分
			PRINTFORML 「んまんま」
			PRINTFORML %CALLNAME:TARGET%は%TEXTS("点心")%をもりもり食べている。
		ELSE
			;点心が亲手自制でない
			PRINTFORML 「んふー」
			PRINTFORML %CALLNAME:TARGET%は%TEXTS("点心")%をもりもり食べている。
		ENDIF
	CASE "睡眠"
		;沉眠著
		;梦话
		CALL KOJO_SLEEP_K61
		;梦话用の汎用地の文呼出
		CALL DAILY_MESSAGE, "梦话"
	CASE ""
		;nothing
	CASEELSE
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
	CASE "愛の告白"
		CALL PRINT_STRL, "「……ん_H_」"
		PRINTFORML %CALLNAME:TARGET%は頬を染めて有点害臊的うつむいている。
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "主人公的房間に連れ込まれた"
		;你と一緒に、主人公的房間に移動した
		PRINTDATAL
			;他人的房間を物色するデリカシーのなさ
			DATAFORM %CALLNAME:TARGET%は所在なさげに、きょろきょろとあたりを見回している。
			DATAFORM %CALLNAME:TARGET%はすんすんと鼻を鳴らしている。
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "自室に招待"
		;你と一緒に、partner的房間に移動した
		PRINTDATAL
			;でもかたづけない
			DATA 「ちらかってるけど」

			DATA 「ん、いらっしゃ」
			DATA 「ん、どしたの？」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "露脐装超短裙胖次チラ"
		PRINTDATAL
			DATA 「ん？」
			DATA 「ん、どしたの？」
			DATA 「なにかみつけた？」
			DATA 「なにかあった？」
			DATA 「……みえた？」
		ENDDATA
		RETURN 1
	CASE "掀起裙子"
		PRINTDATAL
			DATA 「へんたい……」
			DATA 「すかーとめくりまん……」
		ENDDATA
		RETURN 1
	CASE "撫摸股間"
		CALL PRINT_STRL, @"「%TEXTR("ん、へんたい……_HH_/もちょっとする？/もちょっといいよ？")%」"
		RETURN 1
	CASE "拜托処理性欲"
		PRINTDATAL
			DATA 「きもちかった？」
			DATA 「きもちよかった？」
			DATA 「……もっかいする？」
			DATA 「……もちょっとする？」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "检查内褲"
		IF COND("合意：检查内褲")
			PRINTDATAL
				DATA 「ん、へんたい……」
				DATA 「もうちょっとみる？」
				DATA 「もうちょっとさわる？」
			ENDDATA
			RETURN 1
		ELSE
			PRINTDATAL
				DATA 「へんたいちゅういほうはつれーちゅう」
				DATA 「へんたい……」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "检查阴部"
		IF COND("合意：检查阴部")
			PRINTDATAL
				DATA 「ん、へんたい……」
				DATA 「もうちょっとみる？」
			ENDDATA
			RETURN 1
		ELSE
			PRINTDATAL
				DATA 「へんたいちゅういほうはつれーちゅう」
				DATA 「へんたい……」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "打招呼舐陰"
		PRINTDATAL
			DATA 「へんたい……」
			DATA 「すきなの？」
		ENDDATA
		RETURN 1
	CASE "股間撮影", "阴部摄影", "裙下撮影", "内褲摄影"
		PRINTDATAL
			DATA 「へんたい……」
			DATA 「すきなの？」
			DATA 「きれいにとれた？」
			DATA 「それどうするの？」
		ENDDATA
		RETURN 1
	CASE "沏茶"
		PRINTDATAL
			DATALIST
				DATAFORM ｽﾞｽﾞ……
				DATAFORM 「ほふぅ」
				DATAFORM %CALLNAME:TARGET%は満足そうに%SAVESTR:茶%をすすっている、好きなのだろうか。
			ENDLIST
		ENDDATA
		RETURN 1
	CASE "泡茶"
		IF K61_INCLUDES(SAVESTR:点心, CSTR:讨厌的东西) != ""
			PRINTFORML %CALLNAME:TARGET%は%TEXTS("点心")%を睨みながら%SAVESTR:茶%をすすっている。
		ELSE
			PRINTFORML %CALLNAME:TARGET%は茶菓子をつまんでいる。
		ENDIF
		RETURN 1
	CASE "膝枕"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%はうとうととしている。
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%の膝の上でごろごろしている。
		ENDDATA
		RETURN 1
	CASE "抚摸尾巴"
		;嫌ではないが気になるので他のことはできない。
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%はうとうととしている。
			DATAFORM %CALLNAME:TARGET%はぼーっとしている。
			DATAFORM %CALLNAME:TARGET%は抚摸尾巴%CALLNAME:PLAYER%の手の動きが気になるようだ。
		ENDDATA
		RETURN 1
	CASE "胖次交易"
		PRINTDATAL
			DATA 「まいど有ー」
			DATA 「そんなにほしかったの？」
			DATA 「それどうするの？」
			;本人は返してもらうつもり
			DATA 「酱とかえしてね？」
		ENDDATA
		RETURN 1
	CASE "隐秘摄影失敗"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%は照相机に向かってダブル剪刀手を決めている。
			DATAFORM %CALLNAME:TARGET%のドヤ顔が照相机にドアップになっている。
		ENDDATA
		RETURN 1
	CASE "一起学习"
		;REF 教材の参考 https://happylilac.net/mu1605121851.html
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%は定規をペンで弾き飛ばしている。
			DATAFORM %CALLNAME:TARGET%はくるくるとペンを回して……あっ、落とした。
			DATAFORM %CALLNAME:TARGET%はノートの隅に落書きをしている。
			DATAFORM %CALLNAME:TARGET%は分度器をじっと看了过来……。
			DATAFORM %CALLNAME:TARGET%はコンパスをくるくると回している。
			;摩擦で抜けなくなるやつ
			DATAFORM %CALLNAME:TARGET%は二冊の教科書の页を互い違いに挟み込んでいる。
			DATA 「にとーへん僕桑かっけい」
			DATA 「えいかく、どんかく、ちょっかーく」
			DATA 「3と、4と、5で、ちょっかく」
			;正三角形を二等分した30°, 60°, 90°の三角定規の各辺の長さの比は3:4:5じゃないので裏切られた気がしている。
			DATA 「3と4と5じゃなかった……」
			DATA 「球のてんかいずって、どんなの？」
			;地図記号
			DATA 「こうじょうに手がはえると、はつでんしょ」
		ENDDATA
		RETURN 1
	CASE "甜言蜜语"
		IF CFLAG:甜言蜜语
			;成功
			PRINTDATAL
				DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%の腕に尾巴を絡ませている。
				DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%に抱き着いている。
			ENDDATA
			RETURN 1
		ELSE
			;nothing
		ENDIF
	CASE "膝枕"
		IF !RAND:3
			PRINTDATAL
				DATAFORM %CALLNAME:TARGET%は構ってほしそうに%CALLNAME:PLAYER%を看了过来。
			ENDDATA
			RETURN 1
		ENDIF
	CASE "亲脸頬"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%の隣に座り、もじもじとしている。
			DATAFORM %CALLNAME:TARGET%は構ってほしそうに%CALLNAME:PLAYER%を看了过来。
			DATAFORM %CALLNAME:TARGET%は構ってほしそうにすり寄ってきている。
		ENDDATA
		RETURN 1
	CASE "抱住"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%に抱き着いたまま、尾巴をぱたぱたと振っている。
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%に抱き着いたまま、もじもじと身じろぎをしている。
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%に抱き着いたまま、もじもじと身体を擦り付けている。
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%の隣に座り、もじもじとしている。
		ENDDATA
		RETURN 1
	CASE "", "Talk", "摸頭", "按摩", "卖个破绽", "夸奖", "托一托胸部", "摆脱", "撮影失敗", "打招呼", "打招呼ハグ", "買東西", "股間観察", "膝枕", "抚摸", "Ｈ的邀请", "展示内褲", "检查布鲁马", "撩起裙子"
		;nothing
	CASEELSE
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 前回指令 %CONDS("直前行動")%後
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	SELECTCASE SAVESTR:標語
		CASE "注意口渴"
			IF !RAND:5
				PRINTDATAL
					DATA 「すいとう、よし」
				ENDDATA
				RETURN 1
			ENDIF
		CASEELSE
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 標語実践 %SAVESTR:標語%
	ENDSELECT
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTL 「喜欢的东西？」
	PRINTL 「にく」
	CALL SET_DEVENT, "質問１"
	RETURN 1
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTL 「せっくす？」
	PRINTL 「なにそれ」
	PRINTL よくわかっていないらしい。
	CALL SET_DEVENT, "質問２"
	RETURN 1
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, いちゃいちゃ中partner変更
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	PRINTDATAL
		DATAFORM %CALLNAME:TARGET%は哈欠をしている。
		DATALIST
			DATA 「ん？」
			DATAFORM %CALLNAME:TARGET%は小首をかしげている。
		ENDLIST
		DATALIST
			DATA 「なにするの？」
			DATAFORM %CALLNAME:TARGET%は%CALLNAME:PLAYER%を看了过来。
		ENDLIST
	ENDDATA
	RETURN 1
ELSEIF STATE("酔酒")
	PRINTDATAL
		DATALIST
			DATAFORM 「んふーっ」
			DATAFORM %CALLNAME:TARGET%は、にへーっと露出笑容いる。
		ENDLIST
		DATAFORM %CALLNAME:TARGET%はぼーっとしている。
		DATAFORM %CALLNAME:TARGET%は哈欠をしている。
	ENDDATA
	RETURN 1
ELSEIF COND("夜")
	PRINTDATAL
		DATAFORM %CALLNAME:TARGET%は漫画を読みふけっている。
		DATAFORM %CALLNAME:TARGET%はぼーっとしている。
		DATAFORM %CALLNAME:TARGET%は哈欠をしている。
		DATALIST
			DATAFORM %CALLNAME:TARGET%はスマホの画面をじっと看了过来。
			DATAFORM ……%TEXTR("ライフ游戏を眺めているようだ。/数独パズルの解法を考えているようだ。/小説投稿サイトを見ているようだ。")%
		ENDLIST
	ENDDATA
	RETURN 1
ELSE
	;TODO 漏れそう分岐
	;TODO 夏に入り込んできた虫を目で追う分岐

	IF K61_INCLUDES(SAVESTR:点心, "シガレット/粗点心") != "" && !RAND:3
		CALL EMOTEFACE, "pocky"
	ENDIF

	IF TEXTS("点心") == "橘子" && !RAND:6
		CALL EMOTEFACE, "橘子"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%はピラミッド状に橘子を積み上げている。
			DATAFORM %CALLNAME:TARGET%は橘子を机の端に並べている。
			DATAFORM %CALLNAME:TARGET%は橘子の白色すじをちまちまとむしっている。
		ENDDATA
		RETURN 1
	ENDIF

	IF TEXTS("点心") == "橘子" && !RAND:6
		CALL EMOTEFACE, "頭上橘子"
		PRINTDATAL
			DATAFORM %CALLNAME:TARGET%は橘子を頭に乗せて平衡をとっている。
		ENDDATA
		RETURN 1
	ENDIF

	PRINTDATAL
		DATAFORM %CALLNAME:TARGET%は手の爪をじっと看了过来。
		DATAFORM %CALLNAME:TARGET%は立体視の本とにらめっこしている。
		DATAFORM %CALLNAME:TARGET%は異様に分厚い文庫本を読んでいる。
		DATAFORM %CALLNAME:TARGET%はぼーっとしている。
		DATAFORM %CALLNAME:TARGET%は目をつむっている。……が、寝ているわけではないようだ。
	ENDDATA
	RETURN 1
ENDIF
DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
RETURN 0

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K61

IF COND("発情期") || COND("発情中") || (TALENT:淫乱 && !RAND:2)
	CALL PRINT_STR, @"「んっ_BHH_……すぅ……」_L"
	RETURN 1
ENDIF
PRINTDATAL
	DATA 「わらびもち……」
	DATA 「なめこ……」
	DATA 「えりんぎ……」
	DATA 「まいたけ……」
	DATA 「ぶ无めじ……」
	DATA 「たらばがに……」
	DATA 「……ぅみみゃぁ」
	DATA 「……んみゅ」
	DATA 「さっそくそうびしていくかい……」
	DATA 「おかー桑……」
	DATA 「んふー……」
	DATA 「んぁ……」
	DATA 「んぅ……」
	DATA 「んっ……んぅ……」
ENDDATA
RETURN 1

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K61, ARGS
;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

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

		;地の文の前の台詞がある場合はここに書く
		SELECTCASE SAVESTR:現在位置
			CASE "阵雨"
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 現在位置 %SAVESTR:現在位置%
		ENDSELECT

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

		SELECTCASE SAVESTR:归途の行動
			CASE "内衣選び", "泳装選び"
				PRINTDATAW
					DATA 「……えらぶのめんどくさい」
					DATA 「……いつものじゃだめ？」
					DATA 「……どれがいい？」
				ENDDATA
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 归途の行動 %SAVESTR:归途の行動%
		ENDSELECT
	CASE "打招呼"
		SELECTCASE STR:日常イベント名
			CASE "打招呼ハグ"
				;TODO 発情分岐
				;TODO playerが浑身是汗の場合、よく嗅ぐ
				IF COND("易出汗")
					PRINTDATAW
						DATALIST
							DATA 「ん……くさくない？」
							DATAFORM %CALLNAME:TARGET%は%TEXTS("气味")%を気にしているようだ……。
						ENDLIST
					ENDDATA
					RETURN 1
				ELSE
					PRINTDATAW
						DATALIST
							DATAFORM 「%TEXTR("ん/んー/んふー")%」
							DATAFORM %CALLNAME:TARGET%はぎゅっと抱き返してきた。
						ENDLIST
					ENDDATA
					RETURN 1
				ENDIF
			CASE "打招呼舐陰"
				;TODO 選択肢の重複見直し
				;TODO 没穿内褲分岐
				;TODO 発情分岐
				;TODO C感度分岐
				IF COND("汗")
					PRINTDATAW
						DATALIST
							DATA 「ん……くさくない？」
							DATAFORM %CALLNAME:TARGET%は%TEXTS("气味")%を気にしているようだ……。
						ENDLIST
						DATALIST
							DATA 「ん……へんたい」
							DATAFORM 罵倒しつつも%CALLNAME:TARGET%は抵抗不会うだ……。
						ENDLIST
					ENDDATA
					RETURN 1
				ELSE
					PRINTDATAW
						DATALIST
							DATA 「ん……へんたい」
							DATAFORM 罵倒しつつも%CALLNAME:TARGET%は抵抗不会うだ……。
						ENDLIST
						DATALIST
							DATAFORM 「そっちに%CNAME("一人称")%是ないよ？」
						ENDLIST
					ENDDATA
					RETURN 1
				ENDIF
			CASEELSE
				PRINTDATAW
					DATA 「ん」
					DATA 「んー」
				ENDDATA
				RETURN 1
		ENDSELECT
	CASE "眠い"
		;酔った際に眠くなって自分的房間に返回際のセリフ
		PRINTDATAW
			DATA 「……ぁふ」
			DATA 「……ねむ」
			DATA 「……ねる」
			DATA 「……もうねる」
			DATA 「……ぉやすみ」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
		RETURN 1
	CASE "股間に扇風機"
		;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
		;TODO 素質合わないけどやりたい、角色個別の方に同名で追加すればいいか
	CASE "Talk"
		SELECTCASE STR:日常イベント名
			CASE "夸奖", "夸奖点心"
				PRINTDATAW
					DATALIST
						DATA 「んふー」
						DATAFORM %CALLNAME:TARGET%は得意げににやにやとしている。
					ENDLIST
				ENDDATA
				RETURN 1
			CASE "甜言蜜语"
				IF TALENT:恋慕
					CALL PRINT_STRL, @"「……ん_H_」"
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%にすり寄ってきた。
					RETURN 1
				ELSEIF CALCF("甜言蜜语成功")
					CALL PRINT_STRL, @"「んふー_H_」"
					PRINTFORMW %CALLNAME:TARGET%はまんざらでもなさそうだ。
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
					RETURN 1
				ELSE
					PRINTDATAL
						DATA 「んぅ？」
						DATA 「ん？」
						DATA 「んー？」
						DATA 「どしたの？」
					ENDDATA
					PRINTFORMW %CALLNAME:TARGET%はよくわかっていないようだ。
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
					RETURN 1
				ENDIF
			CASE "Talk"
				;雑談
				IF COND("水泳") && !RAND:5
					PRINTDATAW
						DATALIST
							DATA 「しょうどくそう？　なにそれ」
							DATA そんなものはないらしい。
						ENDLIST
						DATALIST
							DATA 「びーとばんのびーとって、なに？」
							DATA なんだろう。
						ENDLIST
						DATALIST
							DATA 「しゃわー、つめたいから、や」
							DATA 嫌がってもしょうがないのだ。
						ENDLIST
						;TODO 眠い顔を表示したいがPRINTDATAではできないので書き直しが必要
						; DATALIST
						; 	DATA 「……ふぁ、ねむ」
						; 	DATAFORM %CALLNAME:TARGET%はこっくりこっくりと舟をこいでいる。
						; ENDLIST
					ENDDATA
					RETURN 1
				ENDIF
				PRINTDATAW
					DATALIST
						DATA 「……やっぱり、ぶりは照り焼きにかぎる」
						DATA そういう結論变成了。
					ENDLIST
					DATALIST
						;唐油炸だと思って食べていたものが世間一般には竜田油炸だった時の驚愕
						DATA 「から油炸と竜田油炸ってなにがちがうの？」
						DATA 衣に使う粉が違うのだ。
					ENDLIST
					DATALIST
						;カリフラワー + ブロッコリー
						DATA 「……かりっこりー」
						DATA 歯ごたえがよさそうだ。
					ENDLIST
					DATALIST
						DATA 「……ぶりはじつは赤身魚」
						DATA どうやらそうらしい。
					ENDLIST
					DATALIST
						DATA 「……うちゅうやばい」
						DATA どうやらそうらしい。
					ENDLIST
					DATALIST
						DATA 「……たらばがにはかにじゃない」
						DATA どうやらそうらしい。
					ENDLIST
					DATALIST
						DATA 「はまち　は　ぶり　に　しんかした」
						DATA 進化ではない。
					ENDLIST
					DATALIST
						DATA 「……しゃけはじつは白身魚」
						DATA どうやらそうらしい。
					ENDLIST
					DATALIST
						DATA 「……まいたけに漬けるとやわらかくなる」
						DATA 何の話だろう。
						;肉の話
					ENDLIST
					DATALIST
						DATA 「……まいこぷらずまー」
						DATA 何の話だろう。
					ENDLIST
					DATALIST
						DATA 「りんかーん　わ　あめりかんこーひー　を……」
						DATA 何の話だろう。
						;漢字の「鬱」の覚え方
					ENDLIST
					DATALIST
						DATA 「……すくろーすって、にく？」
						DATA それは砂糖だ。
					ENDLIST
					DATALIST
						DATA 「……せるろーすって、にく？」
						DATA 虽然很可惜植物の主成分だ。
					ENDLIST
					DATALIST
						DATA 「……ざわーくらうとおにおん」
						DATA なんか違う気がする。
					ENDLIST
					DATALIST
						DATA 「……みのたんろーす」
						DATA おいしそうだ。
					ENDLIST
					DATALIST
						DATA 「……どみのはたおしたことしかない」
						DATA 他にも玩耍方があるそうだ。
					ENDLIST
					DATALIST
						DATA 「……ウスバカゲロウってかわいそうななまえ」
						DATA 薄馬鹿下郎ではないと思う。
					ENDLIST
					DATALIST
						DATA 「……なまむぎなまごめなまえっぐ」
						DATA むしろ言いづらくなってないだろうか。
					ENDLIST
					DATALIST
						;番茄祭り
						DATA 「……番茄マ釣り」
						DATA なんか違う気がする。
					ENDLIST
					DATALIST
						;ポークピッツが食べたくなった
						DATA 「……ﾎﾟｰｯ、ﾋﾟｯ！」
						DATA どうした急に。
					ENDLIST
					DATALIST
						;じゅげむ
						DATA 「……すいぎょうまつうんらいまつふうらい……」
						DATA 念仏でも唱えているのだろうか。
					ENDLIST
					DATALIST
						DATA 「ちんすこう　ちんちんすこう　ちんすこう」
						DATA どうした急に。
					ENDLIST
					DATALIST
						;桑クコスト効果、コンコルド効果とも
						DATA 「……桑くすこすとこ効果」
						DATA なんか違う気がする。
					ENDLIST
					DATALIST
						DATA 「……なめくじのしおづけ」
						DATA とけてなくなっちゃうよ。
					ENDLIST
					DATALIST
						DATA 「……ぶぶづけでもいかがどす？」
						DATA もう帰れということだろうか。
						;言いたいだけ
					ENDLIST
					DATALIST
						DATA 「……ぶぶづけって、なに？」
						DATA 茶漬けのことらしい。
					ENDLIST
					DATALIST
						DATA 「……となりのきゃくはよくきゃきゅきゅうきゃきゅだ」
						DATA 言えてないぞ。
					ENDLIST
					DATALIST
						DATA 「……めろんぱんにめろんは是ってない」
						DATA どうやらそうらしい。
					ENDLIST
					DATALIST
						DATA 「……えびってむし？」
						DATA 難しい話だ。
					ENDLIST
					DATALIST
						DATA 「……すかんじなびあ半島って、ちんちんだよね」
						DATA 北欧の皆桑にごめんなさいしなさい。
					ENDLIST
				ENDDATA
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML KOJO_DAILYCOM_K61 ARGS %ARGS%, 日常イベント名 %STR:日常イベント名%
		ENDSELECT
	CASE "Ｈ的約定"
		;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
		;台詞を書いたら下のRETURN 0を消してください
		RETURN 0
		;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
		IF COND("成績：赤点")
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 赤点
			TFLAG:取引拒否 = 1
		ELSE
			;以下はご褒美を给事にＯＫして给
			;前回既に你が良い点を取っている場合には”学年上位”を要求します
			IF COND("成績：優秀", MASTER)
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 優秀
			ELSE
				;そうでない場合には平均点を結構上回る程度でＯＫです
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
			ENDIF
		ENDIF
	CASE "拭汗"
		PRINTDATAW
			DATA 「んふー」
			DATA 「ん、有がと」
			DATA 「んー、まふまふ」
		ENDDATA
		RETURN 1
	CASE "趁睡袭击"
		;睡眠中の悪戯
		;梦话
		CALL KOJO_SLEEP_K61
		WAIT
		RETURN 1
	CASE "互动"
		SELECTCASE STR:日常イベント名
			CASE "托一托胸部"
				;TODO 胸感度一定以上分岐
				;TODO 発情分岐
				IF CONDS("直前行動") == STR:日常イベント名
					PRINTFORML 「んー」
					PRINTFORMW %CALLNAME:TARGET%は特に抵抗様子もなく%CALLNAME:PLAYER%を受け入れている。
					RETURN 1
				ELSE
					PRINTFORML 「ん？」
					PRINTFORMW %CALLNAME:TARGET%はよくわかっていないのか、首をかしげて%CALLNAME:PLAYER%を見上げている。
					RETURN 1
				ENDIF
			CASE "按摩"
				IF COND("発情期") || COND("発情中") || (TALENT:淫乱 && !RAND:2)
					;TODO なんか違和感あるので見直しが必要
					CALL PRINT_STRL, @"「んっ_BHH_、ふー_BHH_」"
					PRINTFORMW %CALLNAME:TARGET%はマッサージをうけながらも、ちらちらと%CALLNAME:PLAYER%の様子をうかがっている。
					RETURN 1
				ENDIF

				IF COND("緊張緩和")
					PRINTDATAW
						DATALIST
							DATA 「んふー」
							DATAFORM %CALLNAME:TARGET%は気持ちよさそうに目を細めている。
						ENDLIST
					ENDDATA
					RETURN 1
				ENDIF

				PRINTDATAW
					DATALIST
						DATA 「んふっ」
						DATAFORM %CALLNAME:TARGET%はくすぐったそうに身をよじっている。
					ENDLIST
				ENDDATA
				RETURN 1
			CASE "膝枕"
				IF CONDS("直前行動") == STR:日常イベント名 && PENIS(MASTER) && (COND("発情期") || COND("発情中") || (TALENT:淫乱 && !RAND:2))
					SELECTCASE RAND:2
						CASE 1
							CALL PRINT_STR, @"「すぅー_BHH_、ふぅー_BHH_」_L"
							PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%の股間に顔をうずめている。
							RETURN 1
						CASE 0
							CALL PRINT_STR, @"「んっ_BHH_、んっ_BHH_」_L"
							PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%の股間に顔をうずめて、自分の股間をまさぐっている。
							RETURN 1
						CASEELSE
					ENDSELECT
				ENDIF

				IF CONDS("直前行動") == STR:日常イベント名
					IF COND("緊張緩和")
						PRINTDATAW
							DATAFORM %CALLNAME:TARGET%はうとうととしている。
							DATAFORM %CALLNAME:TARGET%はぼーっとしている。
						ENDDATA
						RETURN 1
					ENDIF

					PRINTDATAW
						;ちょっと警戒してるので寝ない
						DATAFORM %CALLNAME:TARGET%はぼーっとしている。
					ENDDATA
					RETURN 1
				ENDIF

				PRINTDATAW
					DATA 「ん」
					DATA 「ん、よきにはからえー」
				ENDDATA
				RETURN 1
			CASE "泡茶"
				PRINTDATAW
					DATA 「ん、有がと」
					DATALIST
						DATA 「んー」
						DATAFORM %CALLNAME:TARGET%は知恵の輪に夢中なようだ。
					ENDLIST
					DATALIST
						DATA 「んー」
						DATAFORM %CALLNAME:TARGET%は読書に夢中なようだ。
					ENDLIST
				ENDDATA
				RETURN 1
			CASE "抚摸尾巴"
				;初めて
				IF DEVENT(STR:日常イベント名) == 0
					PRINTFORMW 「ん、ぎゅってしないでね」
					RETURN 1
				ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
					;連続実行
					PRINTDATAW
						;嫌いじゃないけど気になるので他のことができない
						DATAFORM %CALLNAME:TARGET%は尾巴に触る%CALLNAME:PLAYER%をじっと看了过来。
						DATAFORM %CALLNAME:TARGET%は尾巴を触られながらぼーっとしている。
					ENDDATA
					RETURN 1
				ELSE
					PRINTDATAW
						DATAFORM 手を伸ばす%CALLNAME:PLAYER%に気が付いた%CALLNAME:TARGET%は、逗猫棒ように尾巴をくるくると回している。
						DATAFORM 尾巴を掴まれた%CALLNAME:TARGET%は、一瞬ぴくりとしたが特に抵抗は不会うだ。
					ENDDATA
					RETURN 1
				ENDIF
			CASE "摸頭"
				PRINTDATAW
					DATALIST
						DATA 「ん」
						DATAFORM %CALLNAME:TARGET%は、黙って撫でられている。
					ENDLIST
					DATALIST
						DATA 「んふー」
						DATAFORM %CALLNAME:TARGET%は、気持ちよさそうに目を細めている。
					ENDLIST
					DATALIST
						DATA 「んー」
						DATAFORM %CALLNAME:TARGET%は、もっと撫でろと言わんばかりに頭を寄せてきた。
					ENDLIST
				ENDDATA
				RETURN 1
			CASE "送一份小礼物"
				;送禮貰った感想です。何を貰ったか含め、好きに書いてください
				PRINTFORMW 「ん、有がと」
				RETURN 1
			CASE "拭汗"
				PRINTDATAW
					DATA 「んふー」
					DATA 「ん、有がと」
					DATA 「まふまふ」
				ENDDATA
				RETURN 1
			CASE "一起学习"
				PRINTDATAW
					DATA 「ん」
					DATA 「ん……」
					DATALIST
						DATA 「やだ……」
						DATA 嫌でもやらねばならぬのだ。
					ENDLIST
					DATALIST
						DATA 「めんどくさい……」
						DATA 面倒でもやらねばならぬのだ。
					ENDLIST
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "整理睡姿"
		;梦话
		CALL KOJO_SLEEP_K61
		WAIT
		RETURN 1
	CASE "卖个破绽"
		SELECTCASE STR:日常イベント名
			CASE "亲脸頬"
				CALL PRINT_STRW, @"「%TEXTR("んふー_HH_/んっ……_HH_")%」"
				RETURN 1
			CASE "展示内褲"
				PRINTDATAW
					DATA 「ん、きょうのやつ」
					DATA 「ん、どう？」
				ENDDATA
				RETURN 1
			CASE "邀请一起入浴"
				PRINTDATAL
					DATA 「いっしょに是ろ？」
					DATA 「ん、おふろ」
					DATA 「おふろ、是る？」
					DATA 「おふろ、いこ？」
				ENDDATA
				RETURN 1
			CASE "Ｈ的邀请"
				PRINTDATAL
					DATAFORM 「……%CNAME("性行為")%、%TEXTR("する/しない/しよ/して")%？」
					DATA 「ん……」
				ENDDATA
				RETURN 1
			CASE "抚摸"
				PRINTDATAW
					DATA 「んー」
					DATA 「んふー」
				ENDDATA
				RETURN 1
			CASE "膝枕"
				PRINTDATAW
					DATA 「ねむい？」
					DATA 「ねる？」
					DATA 「ん」
					DATA 「んー」
					DATA 「いちめい大人、ごあんなーい」
				ENDDATA
				RETURN 1
			CASE "膝枕"
				PRINTDATAW
					DATA 「んー」
					DATA 「おじゃましまー」
				ENDDATA
				RETURN 1
			CASE "抱住"
				PRINTDATAW
					DATALIST
						DATA 「んー」
						DATAFORM %CALLNAME:TARGET%は開心地頬ずりをしている。
					ENDLIST
					DATAFORM %CALLNAME:TARGET%はすんすんと%CALLNAME:PLAYER%のにおいを嗅いでいる。
				ENDDATA
				RETURN 1
			CASE "沏茶"
				;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
				;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
				PRINTDATAW
					DATA 「のむ？」
					DATA 「いる？」
					DATA 「ん」
				ENDDATA
				RETURN 1
			CASE "摩擦股間"
				CALL PRINT_STRL, @"「%TEXTR("んっ……_HH_/んっ_HH_んっ_UH_")%」"
				;TODO V露出具合で差分いれたい
				PRINTDATAW
					DATA 体重をかけて陰部を強く圧迫するようにぐりぐりと腰を動かしている。
					DATA 円を描くように腰をくねらせて法悦にひたっている。
					DATA すりすりと陰部を撫でつけるように腰を前後に揺すっている。
					DATA 腰をへこへこと動かし快楽をむさぼることに夢中になっている。
					DATA 気持ちの良いところを探るように腰を左右にふりふりしている。
				ENDDATA
				RETURN 1
			CASE "卖个破绽"
				;调戏をかけてきた
				PRINTDATAW
					DATA いや、さすがに猫じゃらしにはじゃれつかないが。
					DATA 目の前で指をくるくると回している、催眠術かなにかのつもりだろうか。
					DATA 脇腹をつんつんとつついてくる。

					;膝蓋腱反射
					DATA 執拗に膝のあたりをチョップしてくる。なんのつもりだろうか。
					;ファニーボーン
					DATA やたらとひじにデコピンをしてくる。なんのつもりだろうか。
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "廁所"
		;廁所で用を済ませた後の台詞
		IF BASE:尿意 == 0
			;主人も廁所で済ませてきた
			IF BASE:MASTER:尿意 == 0
				PRINTDATAW
					DATALIST
						DATA 「すっきりした？」
						DATA わざわざ聞かなくてもよろしい。
					ENDLIST
					DATALIST
						DATA 「いっぱいでた？」
						DATA わざわざ聞かなくてもよろしい。
					ENDLIST
				ENDDATA
				RETURN 1
			ELSE
				PRINTDATAW
					DATA 「ただいま」
					DATA 「ん」
					DATA 「もどった」
					DATA 「いってきた」

					;帰ってきたのは你だ
					DATA 「おかえりー」

					DATALIST
						DATA 「すっきりした」
						DATA 別に聞いていないが。
					ENDLIST
					DATALIST
						DATA 「いっぱいでた」
						DATA 別に聞いていないが。
					ENDLIST
				ENDDATA
				RETURN 1
			ENDIF
		ELSE
			;廁所に行く際の台詞
			PRINTDATAW
				DATA 「老师ー、といれ」
				DATA 「といれにいっといれ」
				DATA 「れいとうといれ」
				DATA 「しっこしてくる」
				DATA 「しっこ」
				DATA 「といれ」
				DATA 「ん」
				DATA 「いってきまー」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "廁所詮索"
		PRINTDATAW
			DATA 「ん？　しっこ」
			DATA 「しっこ」
			DATALIST
				;自分に興味を持たれるとうれしい
				DATAFORM 「%TEXTR("きになる/しりたい")%？」
				DATAFORM %CALLNAME:TARGET%はにまにまと笑着いる。
			ENDLIST
			DATALIST
				DATA 「すっきりした」
				DATA それはよかった。
			ENDLIST
			DATALIST
				DATA 「いっぱいでた」
				DATA それはよかった。
			ENDLIST
		ENDDATA
		RETURN 1
	CASE "检查阴部"
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K61
			WAIT
			RETURN 1
		ELSEIF COND("合意：检查阴部") == 0
			CALL K61_DENY_SUKEBE
			WAIT
			RETURN 1
		ELSE
			;NOTE 检查阴部は接触がない
			PRINTDATAL
				DATA 「みたい？」
				DATA 「みる？」
				DATA 「みえる？」
				DATA 「いいよ？」
				DATA 「是」
				DATA 「どーぞ」
				DATA 「きたなくない？」
				DATA 「ばっちくない？」
				DATA 「へんじゃない？」
				DATA 「ん」
				DATA 「んー」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "检查内褲：地の文前"
		IF CFLAG:睡眠
			RETURN 0
		ELSEIF COND("合意：检查内褲") == 0
			RETURN 0
		ELSE
			PRINTDATAL
				DATA 「みたい？　いいよ」
				DATA 「みる？　ん」
				DATA 「ん」
				DATA 「んー」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "检查内褲"
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K61
			WAIT
			RETURN 1
		ELSEIF COND("合意：检查内褲") == 0
			CALL K61_DENY_SUKEBE
			WAIT
			RETURN 1
		ELSE
			;NOTE 检查内褲は接触がある
			CALL PRINT_STRL, @"「%TEXTR("んー……、んっ_HH_/ばっちくない？/へんじゃない？/くさくない？")%」"
			RETURN 1
		ENDIF
	CASE "撫摸股間"
		CALL PRINT_STRL, @"「%TEXTR("んー……、んっ_HH_/んっ_HH_、んっ_HH_")%」"
		RETURN 1
	CASE "检查布鲁马", "股間観察"
		;TODO 汗分岐
		;TODO 湿的分岐
		;TODO 泳装分岐
		;TODO 発情分岐
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K61
			WAIT
			RETURN 1
		ELSEIF CFLAG:股間確認済
			;じっくり観察
			PRINTDATAW
				DATA 「……そんなにみたいの？」
				DATA 「……すきなの？」
				DATA 「なにしてるの？」
				DATA 「みたい？」
				DATA 「たのしい？」
			ENDDATA
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「……へんたい」
				DATA 「……ふーん」
				DATA 「どしたの？」
				DATA 「ん？」
				DATAFORM %CALLNAME:TARGET%は気が付いていないようだ。
			ENDDATA
			RETURN 1
		ENDIF

	CASE "掀起裙子"
		SELECTCASE STR:日常イベント名
			CASE "撩起裙子"
				IF COND("胖次チラ直後")
					;胖次チラ直後
					PRINTDATAL
						DATA 「きになる？」
						DATA 「みる？」
						DATA 「みたい？」
						DATA 「ん」
						DATA 「是」
						DATA 「ん、きょうのやつ」
						DATA 「きょうのはこれ」
						DATA 「どう？」
					ENDDATA
					RETURN 1
				ELSE
					PRINTDATAL
						DATA 「みる？」
						DATA 「みたい？」
						DATA 「ん」
						DATA 「是」
						DATA 「ん、きょうのやつ」
						DATA 「きょうのはこれ」
						DATA 「どう？」
					ENDDATA
					RETURN 1
				ENDIF
			CASEELSE
				;掀起裙子
				;刚睡醒の胡乱な状態を襲う
				IF CFLAG:刚睡醒
					PRINTDATAW
						DATA 「んぅ？」
						DATA 「……おはおー」
						DATA 「……おはよ」
						DATA 「……ん」
						DATA 「……ん、へんたい」
						DATA 「……おはぱんつ……」
						DATA 「……すーすーする」
					ENDDATA
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
					RETURN 1
				ELSEIF CFLAG:睡眠
					;睡眠中の悪戯
					;梦话
					CALL KOJO_SLEEP_K61
					WAIT
					RETURN 1
				ELSEIF DEVENT(STR:日常イベント名) == 0
					;初めて
					PRINTFORMW 「へんたいだー」
					RETURN 1
				ELSEIF COND("胖次チラ直後")
					;胖次チラ直後
					PRINTDATAW
						DATA 「みる？」
						DATA 「みたい？」
						DATA 「……きになる？」
						DATA 「ん」
					ENDDATA
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
					RETURN 1
				ELSE
					IF COND("打招呼前")
						PRINTDATAW
							DATAFORM 「そっちに%CNAME("一人称")%是ないよ？」
							DATA 「へんたいだー」
						ENDDATA
						DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
						RETURN 1
					ELSE
						;胖次沒穿
						IF EQUIP:胖次 == 0
							PRINTDATAW
								DATA 「ただい圆圈すにしております」
								DATA 「へんたいだー」
								DATA 「すーすーする」
							ENDDATA
							DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
							RETURN 1
						ELSE
							PRINTDATAW
								DATA 「へんたいだー」
								DATA 「なにをするー」
								DATA 「みたいの？」
							ENDDATA
							DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%,
							RETURN 1
						ENDIF
					ENDIF
				ENDIF
		ENDSELECT
	CASE "用手机拍照"
		SELECTCASE STR:日常イベント名
			CASE "隐秘摄影失敗"
				PRINTDATAW
					DATA 「ん？」
					DATA 「どしたの？」
					DATA 「どしたー？」
					DATA 「なにしてるの？」
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "場所を変える"
		SELECTCASE STR:日常イベント名
			CASE "摆脱"
				PRINTDATAW
					DATA 「しゅっぱっぱー」
					DATA 「いってきまー」
					DATA 「れっごーごー」
					DATA 「んー」
					DATA 「ん」
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "裙下撮影"
		SELECTCASE STR:日常イベント名
			CASE "撮影失敗"
				CALL K61_DENY_SUKEBE
				WAIT
				RETURN 1
			CASE "裙下撮影"
				PRINTDATAL
					DATA 「ん」
					DATA 「んー」
					DATA 「ぴーす」
					DATA 「……いぇーい」
					DATA 「そんなのとってどうするの？」
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "股間撮影：地の文前", "内褲摄影：地の文前"
		SELECTCASE STR:日常イベント名
			CASE "股間撮影", "内褲摄影"
				;TODO 成功/失敗の判定は取れるだろうか要確認
				; PRINTDATAL
				; 	DATA 「とるの？　いいよ」
				; 	DATA 「しゃしん？　いいよ」
				; 	DATA 「ん」
				; ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "股間撮影", "内褲摄影"
		SELECTCASE STR:日常イベント名
			CASE "撮影失敗"
				CALL K61_DENY_SUKEBE
				WAIT
				RETURN 1
			CASE "股間撮影", "内褲摄影"
				PRINTDATAL
					DATA 「ぴーす」
					DATA 「いぇーい」
					DATA 「きたなくない？」
					DATA 「ばっちくない？」
					DATA 「そんなのとってどうするの？」
				ENDDATA
				RETURN 1
			CASEELSE
		ENDSELECT
	CASE "胖次ドーピング"
		IF COND("胖次ドーピング")
			PRINTDATAW
				;自分のだと気にする
				DATA 「くさくない？」
				DATA 「きたなくない？」
			ENDDATA
			RETURN 1
		ELSE
			;TODO 合意有+心情好とかのバフ+他人の吸ってるとくれる
			PRINTDATAW
				DATA 「へんたいだー」
				DATA 「……なにしてるの？」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "学園での日常"
		;NOTE 長尺のイベント、保留
		SELECTCASE STR:日常イベント名
			CASEELSE
		ENDSELECT
		RETURN 0
	CASE "休憩"
		IF PLACE("自宅")
			IF COND("夜")
				IF BASE:欲求不満 >= 100
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 自宅夜欲求不満
				ELSE
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 自宅夜
				ENDIF
			ELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 自宅昼
			ENDIF
		ELSEIF PLACE("部室")
			;ここは実質昼のみ
			IF (COND("体育")||COND("水泳"))&&!RAND:5
				;TODO 困倦回りの共通システム調べてない
				PRINTFORML 「……ん、ねむ……」
				PRINTFORMW %CALLNAME:TARGET%はお午睡を決め込むようだ。
				RETURN 1
			ENDIF

			IF (SAVESTR:茶 != "")&&!RAND:5
				;TODO 困倦回りの共通システム調べてない
				PRINTFORMW %CALLNAME:TARGET%は%SAVESTR:茶%を飲みながらのんびりとしている。
				RETURN 1
			ENDIF

			PRINTDATAW
				DATALIST
					DATA 「ひま？」
					DATAFORM %CALLNAME:TARGET%が取り出した%TEXTR("トランプ/UNO/花札/オセロ/リバーシ/麻雀/……なんだかよくわからないカード游戏")%で一緒に遊んだ。
				ENDLIST
				DATALIST
					DATA 「ひま」
					DATAFORM %CALLNAME:TARGET%が、さあかまえと%CALLNAME:PLAYER%に手を差し出している。
				ENDLIST
			ENDDATA
			RETURN 1
		ELSE
			;場所移動後
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, 場所移動後
		ENDIF
	CASE "お昼ご飯のお誘い"
		PRINTDATAL
			DATA 『ごはん』
			DATA 『いっしょにたべよ』
			DATALIST
				DATA 『ん』
				;DATA ん、じゃないが
			ENDLIST
			DATALIST
				DATA 『ん！』
				;DATA ん！、じゃないが
			ENDLIST
		ENDDATA
		RETURN 1
	CASE "一緒にお昼ご飯：地の文前"
		; PRINTDATAL
		; 	DATA 「んー」
		; 	DATA 「ごはん」
		; ENDDATA
		RETURN 0
	CASE "一緒にお昼ご飯"
		PRINTDATAL
			DATA 「いただきまー」
			DATA 「んー」
			DATA 「んー、んまんま」
		ENDDATA
		RETURN 1
	CASE "一緒にお浴室"
		PRINTDATAL
			DATA 「ん」
			DATA 「んー」
			DATA 「あたまあらって」
			DATA 「おふろー」
			DATA 「おふろー、おっふろー」
		ENDDATA
		RETURN 1
	CASE "二人きり：坐在旁邊"
		PRINTDATAL
			DATA 「……」
			DATA 「……ん」
			DATA 「……ん！」
		ENDDATA
		RETURN 1
	CASE "性欲解消を申し出た際の反応"
		SELECTCASE STR:PLAY要望
			CASE "舐陰"
				CALL PRINT_STRL, @"「%TEXTR("……ぺろぺろして_HH_？/……ん_HH_")%」"
				RETURN 1
			CASE "口交"
				CALL PRINT_STRL, @"「%TEXTR("……ちんちんちょうだい_UH_？/……ん_HH_")%」"
				RETURN 1
			CASE "Ｖ性交"
				CALL PRINT_STRL, @"「%TEXTR(@"……%CNAME("性行為")%%TEXTR("しよ/して")%_UH_？/……ん_HH_")%」"
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY要望%
				RETURN 0
		ENDSELECT
	CASE "性欲解消の内容変更を頼んだ際の反応"
		;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
		;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
		SELECTCASE STR:PLAY内容
			CASE "Ｖ性交"
				IF COND("女性主導生性交")
					;今日は避孕套没有の生性交がＯＫな日
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY要望% 女性主導生性交
				ELSE
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY要望%
				ENDIF
		ENDSELECT
	CASE "帮忙消除性欲"
		SELECTCASE NAMES("性処理")
			CASE "舐陰"
				;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
				IF COND("飲尿フラグ", PLAYER)
					DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %NAMES("性処理")%
					RETURN 0
				ELSE
					CALL PRINT_STRL, @"「%TEXTR("……んっ_HH_、きもちかった_HH_/……んっ_HH_、有がと_HH_/……んーっ_HH_、きもちいのすき_HH_")%」"
					RETURN 1
				ENDIF
			CASE "口交"
				CALL PRINT_STRL, @"「%TEXTR("……んっ_HH_、ちんちんくさくてすき_UH_/……けふっ_HH_、佳肴大人でした_UH_")%」"
				RETURN 1
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %NAMES("性処理")%
				RETURN 0
		ENDSELECT
	CASE "点心を用意した"
		SELECTCASE TEXTS("点心")
			CASE "橘子"
				PRINTDATAW
					DATALIST
						DATA 「橘子がみっかったので」
						DATA それはよかった。
					ENDLIST
				ENDDATA
			CASEELSE
				DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%

		ENDSELECT
	CASE "互动：地の文前", "掀起裙子：地の文前", "检查阴部：地の文前", "Talk：地の文前", "卖个破绽：地の文前", "用手机拍照：地の文前", "特殊事件", "裙下撮影：地の文前", "胖次ドーピング：地の文前", "打招呼：地の文前", "股間観察：地の文前", "撫摸股間：地の文前", "检查布鲁马：地の文前", "お昼ご飯のお誘い：地の文前"
		;nothing
		RETURN 0
	CASEELSE
ENDSELECT

DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%

RETURN 0

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

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
	CASEELSE
		DEBUGPRINTFORML SELFY_MAIL_K61 ARGS %ARGS%
		RETURN 0
		MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 消息中附有「%MAIL_BODY%」的照片…

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

SELECTCASE ARGS
	CASE "约会のお誘い"
		;你を週末约会に誘った
		PRINTDATAW
			DATA 「こんど、ひま？」
			DATA 「こんしゅう、ひま？」
			DATA 「じかんある？」

			;ん、じゃわからんが
			DATA 「ん」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%
		RETURN 1
	CASE "约会に誘われた","邀请去约会"
		;你から週末约会に誘われた
		;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
		PRINTDATAW
			DATA 「わかった」
			DATA 「ん」
			DATA 「んー」
			DATA 「いくー」
			DATA 「なにするの？」
			DATA 「どこいく？」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%
		RETURN 1
	CASE "约会本番"
		;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
		SELECTCASE SAVESTR:约会
			CASEELSE
				DEBUGPRINTFORML KOJO_DATE_K61 约会本番, %SAVESTR:约会%
		ENDSELECT

	CASE "约会中の買食物"
		;地の文を自己書きたい場合にはコメントアウトを外してください
		;TFLAG:地の文スキップ = 1
		SELECTCASE SAVESTR:约会
			CASEELSE
				DEBUGPRINTFORML KOJO_DATE_K61 约会本番, %SAVESTR:约会%, %STR:選択したもの%
		ENDSELECT
	CASE "泳装決定"
		;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
		;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
		SELECTCASE SWIM(STR:選んだ泳装, "種類")
			CASEELSE
				DEBUGPRINTFORML KOJO_DATE_K61 泳装決定, %SWIM(STR:選んだ泳装, "種類")%
		ENDSELECT

	CASE "泳装に着替えた"
		;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
		;どの泳装に着替えたか？
		SELECTCASE SWIM(CSTR:今年の泳装, "種類")
			CASEELSE
				DEBUGPRINTFORML KOJO_DATE_K61 泳装に着替えた, %SWIM(CSTR:今年の泳装, "種類")%
		ENDSELECT
	CASE "帰り際"
		PRINTDATAW
			DATA 「んふー」
			;こなみ
			DATA 「たのしかった」
		ENDDATA
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%
		RETURN 1

	CASE "约会終了"
		;エッチをする場合
		IF TFLAG:床イン
			CALL PRINT_STRW, @"「%CNAME("性行為")%する？　ん_HH_」"
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%
			RETURN 1
		ELSE
			PRINTDATAW
				DATA 「またあそぼうね」
				DATA 「またこようね」
			ENDDATA
			DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%, %STR:日常イベント名%, %STR:PLAY内容%
			RETURN 1
		ENDIF
	CASEELSE
		DEBUGPRINTFORML %__FILE__% %__FUNCTION__% line:{__LINE__} ARGS %ARGS%
ENDSELECT
RETURN 0

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

PRINTDATAW
	;NOTE どのくらいまでふざけても許されるのか加減がわからない
	DATA 『狐があぶらあげ好きとは限らない』
	DATA 『寄生虫なんてなかった』
	DATA 『ぷりんをかってにたべないこと』
	DATA 『ケモ耳萝莉いいよね』
	DATA 『いたちごっこ』
ENDDATA

RETURN 0

path: ERB/EVENT_K/61 白狐マキ/EVENT_K61_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;61は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K61_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K61_ADDSELECT, ARGS
SELECTCASE ARGS
	CASE "追加選択肢その１"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
		;フラグを弄る場合はそれもここで行う
	CASE "追加選択肢之２"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
		;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K61_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K61_ADDSELECT, ARGS
SELECTCASE ARGS
	CASE "追加選択肢その１"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	CASE "追加選択肢之２"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K61_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;睡眠時の互动指令の選択肢を追加
@DAILY2_SLEEP_K61_ADDSELECT
;STR:選択肢 += "睡眠時追加選択肢その１/"
;STR:選択肢 += "睡眠時追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K61_ADDSELECT, ARGS
SELECTCASE ARGS
	CASE "追加選択肢その１"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	CASE "追加選択肢之２"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	CASE "睡眠時追加選択肢その１"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	CASE "睡眠時追加選択肢之２"
		PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
		PRINTL
		PRINTFORMW 「台詞」
		PRINTL
		PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K61_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K61_ADDSELECT
SELECTCASE SAVESTR:约会
	CASE "追加選択肢その１"
		PRINTFORMW 「台詞」
		;地の文
		PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
		;地の文を用意していない場合には汎用のものを使う
		;CALL DAILY_MESSAGE, "约会本番"
		PRINTL
		;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
		FLAG:情緒 += 30
		;それぞれ可能なもののコメントアウトを取下
		;TFLAG:约会中H可能 = 1
		;TFLAG:约会中牵手可能 = 1
		;TFLAG:偷瞄内衣可能 = 1
		;TFLAG:泳装约会 = 1
	CASE "追加選択肢之２"
		PRINTFORMW 「台詞」
		;地の文
		PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
		;地の文を用意していない場合には汎用のものを使う
		;CALL DAILY_MESSAGE, "约会本番"
		PRINTL
		;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
		FLAG:情緒 += 30
		;それぞれ可能なもののコメントアウトを取下
		;TFLAG:约会中H可能 = 1
		;TFLAG:约会中牵手可能 = 1
		;TFLAG:偷瞄内衣可能 = 1
		;TFLAG:泳装约会 = 1
ENDSELECT

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K61_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
	CASE "取引開始"
		;自分を相手にＨしてる最中にお願いされた
		IF COND("Ｈ最中の取引")
			;しかも挿入中！
			IF INSERT("挿入相手") == MASTER

			ELSE

			ENDIF
		ELSE
			PRINTDATAW
				DATA 「んー？」
				DATA 「ん？」
				DATA 「なに？」
				DATA 「どしたの？」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "愛の告白"
		;告白成功！
		IF TALENT:相思相愛
			PRINTFORMW 「ん、%CNAME("一人称")%も」
			PRINTFORMW 「……すき」
			PRINTFORML %CALLNAME:TARGET%は%CALLNAME:PLAYER%に抱き着いて、顔をうずめた。
			PRINTFORMW %CALLNAME:TARGET%の頬が真っ赤に染まっている。
			RETURN 1
		ELSE
			;失敗
			PRINTDATAW
				DATA 「なんで？」
				DATA 「めんどい」
				DATA 「えー」
				DATA 「ん？」
			ENDDATA
			RETURN 1
		ENDIF
	CASE "胖次交易"
		;胖次を要前の会話。
		;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
		;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
		;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
		;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
		;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
		;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
		;ＯＫ！
		IF TFLAG:取引承諾
			;心情がよければタダ
			IF COND("合意：胖次交易") && (CFLAG:夸奖|| !RANDC(4))
				PRINTDATAW
					DATA 「ん」
					DATA 「わかった」
					DATA 「いーよ」
				ENDDATA
				TFLAG:取引価格 = 0
				RETURN 1
			ELSE
				PRINTDATAW
					DATA 「……じゃあ、おかしかって」
					DATA 「……じゃあ、おかしちょーだい」
				ENDDATA
				TFLAG:取引価格 = 10
				RETURN 1
			ENDIF
		ELSE
			;断られる
			;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
			TFLAG:取引価格 = 10
			TFLAG:値上げ交渉 = 10
			RETURN 1
		ENDIF
	CASE "胖次"
		;角色的には、お願い→拒否→それでもお願い、の流れの時点でもうあげちゃうくらいには押しに弱い
		;値上げ交渉した
		IF TFLAG:取引価格
			PRINTDATAW
				;餌につられると元気
				DATA 「ん！」
			ENDDATA
		ELSEIF TFLAG:取引価格 > 500
			;相場より高い額を要求されるままに払った
			DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%, 相場より高額
			PRINTFORMW
		ELSEIF TFLAG:値切った
			;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
			DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%, 値切り
			PRINTFORMW
			;基本ちょろいけど値切られると多分心情が悪くなる
			TFLAG:取引承諾 = 0
		ELSE
			PRINTDATAW
				DATA 「ん」
				DATA 「是」
				DATA 「どーぞ」
			ENDDATA
		ENDIF
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		RETURN 1
	CASE "全裸交易"
		;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
		;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
		;ＯＫ！
		IF TFLAG:取引承諾

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

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

		ELSE

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

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

		ELSE

		ENDIF
	CASE "髪型変更の感想"
		;どの髪型变成了かで分岐可能
		SELECTCASE CONDS("髪型の種類")
			CASE CONDS("普段の髪型")
				DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%, 髪型の種類 %CONDS("髪型の種類")%
			CASEELSE
				DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%, 髪型の種類 %CONDS("髪型の種類")%
		ENDSELECT
	CASE "胖次拒否"
		;TODO なんか地の文のつながりと違和感ある
		IF TFLAG:値上げ交渉
			PRINTDATAW
				DATA 「……じゃあ、おかしいっぱいかって」
				DATA 「……じゃあ、おかしいっぱいちょーだい」
			ENDDATA
			RETURN 1
		ELSE
			;おかしがもらえない
			PRINTDATAW
				DATA 「ん」
				DATA 「……そう」
				DATA 「なんだ」
				DATA 「じゃ、だめ」
				DATA 「またこんどね」
				DATA 「ちぇ」
				DATA 「おかし……」
				DATA 「んー……」
			ENDDATA
		ENDIF
	CASE "爱称変更"
		PRINTDATAW
			DATA 「なんにするの？」
			DATA 「なんていう？」
			DATA 「ん」
		ENDDATA
	CASE "爱称変更中止"
		PRINTDATAW
			DATA 「ん」
			DATA 「そう」
			DATA 「なんだ」
			DATA 「んー……」
		ENDDATA
	CASE "淫紋贴纸直前"
		PRINTDATAW
			DATA 「どんなの？」
			DATA 「どんなやつ？」
			DATA 「どういうの？」
			DATA 「どういうやつ？」
		ENDDATA
	CASE "淫紋贴纸"
		PRINTDATAW
			DATA 「可爱？」
			DATA 「かっこいい？」
		ENDDATA
	CASE "爱称変更完了", "淫紋拒否", "连褲襪着替え拒否"
		;汎用
	CASEELSE
		DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTDATAW
		DATA 「……やだ」
		DATA 「めんどくさい」
		DATA 「えー、やだ」
		DATA 「えー」
		DATA 「や」
		DATA 「なんで？」
	ENDDATA
	RETURN 1
ELSEIF STRCOUNT(ARGS, "取引")
	;汎用取引（特に記述することがないならスキップ）
	;nothing
	RETURN 0
ELSE
	;汎用ＯＫ
	PRINTDATAW
		DATA 「ん」
		DATA 「んー」
		DATA 「いーよ」
		DATA 「わかった」
	ENDDATA
	RETURN 1
ENDIF

DEBUGPRINTFORML KOJO_WISH_K61 ARGS %ARGS%
RETURN 0

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K61, ARGS
;TODO なんかテンション高い

SELECTCASE ARGS
	CASE "一緒に出発"
		;TODO なんか違和感ある
		PRINTDATAL
			DATA 「ん！」
			DATA 「いく」
			DATA 「いってきまー」
			DATA 「おっかいもーのー」
		ENDDATA
		PRINTFORMW %CALLNAME:TARGET%は開心地目を輝かせている。
		RETURN 1
	CASE "目送"
		;NOTE テンポ悪くなりそうだけどどうしようか
		PRINTDATAL
			DATA 「ん、いってら」
			DATA 「いってらっしゃー」
			DATA 「てらっしゃー」
		ENDDATA
		PRINTDATAW
			DATAFORM %CALLNAME:TARGET%はてきとうに手を振っている。
			DATAFORM %CALLNAME:TARGET%は手の代わりに尾巴をふっている。
		ENDDATA

		RETURN 1
	CASE "会計交代"
		;保護者の代わりに何かするってなんかわくわくしたよね
		PRINTDATAL
			DATA 「いいの？」
			DATA 「ど、れ、に、し、よ、う、か、なー」
			DATA 「ん！」
			DATA 「おかねかして！」
		ENDDATA
		PRINTFORMW %CALLNAME:TARGET%は楽しそうに目を輝かせている。
		RETURN 1
	CASE "商品購入"
		;今買った物
		SELECTCASE STR:購入道具
				;NOTE 買ったものに対する反応が思いつかん
			CASE "創口貼"
				PRINTDATAL
					DATA 「だれかけがしたの？」
					DATA 「どこかけがしたの？」
					DATA 「どこかいたいの？」
				ENDDATA
				PRINTW そういうわけではないが。
				RETURN 1
			CASEELSE
				PRINTDATAL
					DATA 「これください！」
					DATA 「これ！」
					DATA 「ん！」
					;よくわからないまま買う
					DATA 「これなんですか！」
				ENDDATA
				PRINTW 何を買わされているか理解しているのだろうか……。
				RETURN 1
		ENDSELECT
	CASE "询问有什么想要的东西"
		PRINTDATAL
			;基本便利店のノリ
			DATA 「つなまよ！」
			DATA 「橘子のぎゅうにゅうかんてん！」
			DATA 「んー、ぴざぽて！」
			DATA 「さきいか！」
			DATA 「じゃーきー！」
			DATA 「ようかん！」
			DATA 「ふえらむね！」
			DATA 「ねるね！」
			;DATA 「んー……なんでもいい」
		ENDDATA
		PRINTL 虽然很可惜ここでは扱っていなさそうだ。
		RETURN 1
	CASE "店内待機"
		;とりあえず何か一個買った時or33％で喋る
		SIF COND("買上品数") != 1 && RAND:3
			RETURN 0

		;TODO 薄着だとさむい分岐
		PRINTDATAW
			;買ってなくてもまいど有ー
			DATA 「まいど有ー」
			DATA 「なにかうの？」
			DATA 「んー」
		ENDDATA
		PRINTFORMW %CALLNAME:TARGET%はどことなく楽しそうだ。
		RETURN 1
	CASE "购物終了"
		;なにも買わなかった
		IF COND("買上品数") == 0
			PRINTDATAL
				DATA 「もうかえっちゃうの？」
				DATA 「なにもかわないの？」
				DATA 「なにかかわないの？」
				DATA 「んー？」
			ENDDATA
			PRINTFORMW %CALLNAME:TARGET%はどこかか无そうだ。
			RETURN 1
		ENDIF

		PRINTDATAL
			DATA 「まいど有ー」
			DATA 「有ゃりゃとーござーしたー」
			DATA 「んふー」
		ENDDATA
		PRINTFORML %CALLNAME:TARGET%はどことなく心情好だ。
		PRINTFORMW 一緒に買い物をするのが楽しかったようだ。
		RETURN 1
	CASEELSE
		DEBUGPRINTFORML KOJO_SHOP_K61 ARGS %ARGS%
ENDSELECT

path: ERB/EVENT_K/61 白狐マキ/EVENT_K61_SHOP.ERB