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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

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

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝面部騎乗"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	CASE "朝騎乗位"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ENDIF
CASE "登校"
	IF DAYEV("試験当日")

	ELSEIF DAYEV("試験返却日")

	ELSEIF COND("朝袭相手")

	ELSEIF COND("体育")

	ELSEIF COND("水泳")

	ELSE

	ENDIF
;この角色と一緒に部室に入った際に誰も他にいない場合
CASE "一番乗り"
	CALL CALL_LIB("一番乗り")
	IF COND("Ｈ的サプライズ可能")
		PRINTFORMW 「Аь……」
		PRINTFORMW %CALLNAME:TARGET%は二人っきりであることに気が付き顔を赤らめた。
	ENDIF
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K15, %ARGS%
	[ENDIF]
CASE "ただいま"
	CALL CALL_LIB("ただいま")
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K15, %ARGS%
	[ENDIF]
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		CALL CALL_LIB("既に入室：夜")
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%(夜)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%(昼)
		[ENDIF]
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%(既に部員の大半集合済み)
		[ENDIF]
	ELSEIF CFLAG:呼び出された
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

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

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%(部室に老师がいる)
		[ENDIF]
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%(相手が現れるのが遅かった)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K15, %ARGS%
		[ENDIF]
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	CALL CALL_LIB("便当：包囲下")
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K15, %ARGS%
	[ENDIF]
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	CALL CALL_LIB("初回台詞")
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %ARGS%
	[ENDIF]
CASE "浑身是汗"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %ARGS%
	[ENDIF]
CASE "刚睡醒"
	IF RAND:2
		CALL CALL_LIB("刚睡醒：１")
	ELSE
		CALL CALL_LIB("刚睡醒：２")
	ENDIF
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %ARGS%
	[ENDIF]
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K15
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "约会的约定"
	PRINTFORML
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	IF RAND:2
		CALL CALL_LIB("契約成立：魂の使い道")
	ELSE
		CALL CALL_LIB("契約成立：１")
	ENDIF
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "撫摸股間"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

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

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		[IF_DEBUG]
			PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
		[ENDIF]
	;做爱房
	ELSE
		[IF_DEBUG]
			PRINTFORML KOJO_DAILY_K15, %CSTR:PREV_DAILYCOM%後
		[ENDIF]
	ENDIF
ENDSELECT

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

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

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

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

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

		ENDSELECT
	ENDIF
ENDIF

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

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

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

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

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

IF CEVENT("槞彁：就労ビザ取得命令", MASTER) && !CEVENT("槞彁：Demsolaviya20XX呼び出し可", MASTER)
	CALL CALL_LIB("アルバイト探しイベント：ビザ発行约会のお願い")

	SIF CEVENT("槞彁：ビザ取得约会のお誘い", MASTER) == 0
		CALL SET_CEVENT, "槞彁：ビザ取得约会のお誘い", MASTER
ENDIF
;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1
;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		[IF_DEBUG]
			PRINTFORML KOJO_DAILY_K15, 汎用台詞(二人きり)
		[ENDIF]
	ELSE
		PRINTFORML
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, 汎用台詞(夜)
	[ENDIF]
ELSE
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K15, 汎用台詞(昼)
	[ENDIF]
ENDIF
	SELECTCASE CFLAG:MASTER:母国報道
	CASE 4
		PRINTFORML %CALLNAME:TARGET%は%TEXTR("絶望したように/必死に/目もくれずに/叹气を付きながら/涙目で")%%TEXTR("ラジオの周波数を変えている/外国語で放送されているラジオを聴いている")%
		PRINTFORML %CALLNAME:MASTER%に気が付くと%CALLNAME:TARGET%は、%CALLNAME:MASTER%に何事も無かったかのように微笑み、作業を続けた。
		SIF CEVENT("母国について告白") == 1
			PRINTFORML どうやら母国のラジオ放送が止まっているようだ・・・　状況は芳しく無さそうだ。

	CASE 5
		CALL CALL_LIB("ラジオ放送：包囲下")
		PRINTFORML %CALLNAME:TARGET%は真剣な顔つきでラジオを聴いている。
		SIF CEVENT("母国について告白") == 1
			CALL CALL_LIB("ラジオ放送：包囲下：解説")
;	CASE 6
;		CALL CALL_LIB("ラジオ放送：激戦")
;		PRINTFORML %CALLNAME:TARGET%は真剣な顔つきでラジオを聴いている。
;		SIF CEVENT("母国について告白") == 1
;			CALL CALL_LIB("ラジオ放送：包囲下：解説")
	CASEELSE
		PRINTFORML %CALLNAME:TARGET%は%TEXTR("絶望したように/必死に/目もくれずに/叹气を付きながら/涙目で")%%TEXTR("ラジオの周波数を変えている/外国語で放送されているラジオを聴いている")%
		PRINTFORML %CALLNAME:MASTER%に気が付くと%CALLNAME:TARGET%は、%CALLNAME:MASTER%に何事も無かったかのように微笑み、作業を続けた。
ENDSELECT
;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K15
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	CALL CALL_LIB("梦话：母")
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K15, 汎用台詞(梦话３)
	[ENDIF]
ELSEIF RAND:2
	CALL CALL_LIB("梦话：人形")
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K15, 汎用台詞(梦话２)
	[ENDIF]
ELSE
	CALL CALL_LIB("梦话：父")
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K15, 汎用台詞(梦话１)
	[ENDIF]
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

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

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

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

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

CASE "清洁口交よりＶ性処理"

CASE "清洁口交よりＡ性処理"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
	;体育か水泳のある日限定
	CASE "更衣室"
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

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

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

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

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

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%(%CALLNAME:MASTER%に先に打招呼された)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
		[ENDIF]
	ENDIF
CASE "叫醒"
	IF RAND:3
		CALL CALL_LIB("叫醒：１")
	ELSEIF RAND:2
		CALL CALL_LIB("叫醒：２")
	ELSE
		CALL CALL_LIB("叫醒：３")
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
	[ENDIF]
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "夸奖"
		CALL CALL_LIB("夸奖:戦時")
		PRINTFORMW %CALLNAME:TARGET%は喜んでくれたようだ
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "甜言蜜语"
		IF TALENT:恋慕
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%：恋慕
			[ENDIF]
		ELSEIF CALCF("甜言蜜语成功")
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%：成功
			[ENDIF]
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%：失敗
			[ENDIF]
		ENDIF
	CASEELSE
		IF (CEVENT("母国について告白") == 0 && TALENT:恋慕)
			CALL SET_CEVENT("母国について告白")
			;CALL CALL_LIB("母国について告白")
		;ELSEIF RAND:2
		;	CALL CALL_LIB("日常Talk：明後日の方向")
		ELSE
			;そんなぽこじゃか呼ばれても困るよね
			IF RAND:3
				CALL CtoC_Comm_K15
				;何か発言してたらここまで
				SIF LINECOUNT > MEMO_LINECOUNT
					RETURN 1
			ENDIF
			SELECTCASE RAND:6
				CASE 0
					PRINTFORMW %CALLNAME:MASTER%は%NAME:TARGET%の母国について尋ねた
					PRINTFORML
					CALL CALL_LIB("日常Talk：母国について")
				CASE 1
					CALL CALL_LIB("日常Talk：蒼外線")
				CASE 2
					CALL CALL_LIB("日常Talk：物価")
				CASE 3
					CALL CALL_LIB("日常Talk：魔界と虚偽世界")
				CASE 4
					PRINTFORML %CALLNAME:MASTER%はなぜこちらの世界来了のか尋ねた
					CALL CALL_LIB("日常Talk：亡命理由")
				CASE 5
					PRINTFORML %CALLNAME:MASTER%は家族について尋ねた
					PRINTFORML
					CALL CALL_LIB("日常Talk：家族について(父)")
				CASEELSE

			ENDSELECT
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
	[ENDIF]
CASE "淋浴独り言"
	CALL CALL_LIB("淋浴独り言")
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		CALL CALL_LIB("淋浴：バレ")
	ELSE
		CALL CALL_LIB("淋浴：通常")
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K15
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%
		[ENDIF]
 	CASE "给对方剃毛"
		PRINTFORMW
	CASE "托一托胸部"
		CALL CALL_LIB("托一托胸部")
	CASE "按摩"
		IF EQUIP:COND("欲求不満")
			CALL CALL_LIB("按摩：欲求不満")
		ELSE
			CALL CALL_LIB("按摩")
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL PRINT_STR, "「…っ！_H_」_W"
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%
			[ENDIF]
		ENDIF
	CASE "膝枕"
		IF RAND:2
			CALL CALL_LIB("膝枕：１")
		ELSE
			CALL CALL_LIB("膝枕：２")
		ENDIF
	CASE "泡茶"
		IF RAND:3
			CALL CALL_LIB("泡茶：１")
		ELSEIF RAND:2
			CALL CALL_LIB("泡茶：２")
		ELSE
			CALL CALL_LIB("泡茶：３")
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		IF RAND:3
			CALL CALL_LIB("尾巴をなでる：１")
		ELSEIF RAND:2
			CALL CALL_LIB("尾巴をなでる：２")
		ELSE
			CALL CALL_LIB("尾巴をなでる：３")
		ENDIF
	CASE "摸頭"
		PRINTFORMW
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW
	CASE "送一份普通的礼物"
		PRINTFORMW
	CASE "送一份高价的礼物"
		PRINTFORMW
	CASEELSE
		CALL CALL_LIB("互动")
	ENDSELECT

CASE "撫摸頭髮"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
	[ENDIF]
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
	[ENDIF]
CASE "從後面抱住"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
	[ENDIF]
CASE "把手放在大腿上"
	PRINTFORMW

;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"

CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K15
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

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

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%：初回
			[ENDIF]
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%, %STR:日常イベント名%
			[ENDIF]
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%：刚睡醒
			[ENDIF]
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K15
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%：初回
			[ENDIF]
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				[IF_DEBUG]
					PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%：打招呼前
				[ENDIF]
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					[IF_DEBUG]
						PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%：没穿内褲
					[ENDIF]
				ELSE
					[IF_DEBUG]
						PRINTFORMW KOJO_DAILYCOM_K15, %ARGS%
					[ENDIF]
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "ちん接吻を頼んだ際の反応"

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

	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PARTNER()の使用例
	;PRINTFORMW 「……%CNAME(CALLNAME:PARTNER() )%にそういう目で見られると、ちょっと恥ずかしいですね」

;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET

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

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()

		ELSE

		ENDIF
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
CASE "性処理後飲尿PLAY"

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

	CASE "舐陰莖"

	CASE "口交"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

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

	CASE "舐陰莖"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
		IF COND("飲尿フラグ", PLAYER)

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

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

;检查阴部後の派生イベントセリフです
;覗き込んでいる相手はPARTNER()で参照できます
CASE "阴部見せつけ"
	;相手の学年や性別で態度を変えるのも良いでしょう
	SELECTCASE CONDS("学年", PARTNER() )
	CASE "初等部", "中等部"

	CASE "１年生", "２年生"

	CASE "３年生"

	CASE "教員", "研究生"

	CASEELSE

	ENDSELECT

;他の人の检查阴部後に、股間を覗き込んでいる派生イベントセリフです
;检查阴部されている相手はPARTNER()で参照できます
CASE "大人の阴部に興味津々"
CASE "阴部に興味津々"
CASE "阴茎に興味津々"
CASE "性器の違いに興味津々"

ENDSELECT

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

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

;地の文
PRINTFORMW 照片边上还加上「%MAIL_BODY%」这样的信息…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K15, %ARGS%
	[ENDIF]
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K15, %ARGS%
	[ENDIF]
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K15, %ARGS%(同居していない)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K15, %ARGS%(同居中)
		[ENDIF]
	ENDIF

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

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

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW
	CASE "散歩"
		PRINTFORMW
	CASE "尋訪美食"
		PRINTFORMW
	CASE "逛街"
		PRINTFORMW
	CASE "去水族馆"
		PRINTFORMW
	CASE "去游乐园"
		PRINTFORMW
	CASE "去电影院"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

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

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

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

CASE "接吻"

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

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はPARTNER()に角色番号が入ってます。呼びかける場合にはCNAME("partner")を使ってください
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K15, %ARGS%(恋慕)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K15, %ARGS%
		[ENDIF]
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

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

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

SELECTCASE RAND:5
CASE 4
	PRINTFORMW 『』
CASE 3
	PRINTFORMW 『』
CASE 2
	PRINTFORMW 『』
CASE 1
	PRINTFORMW 『』
CASEELSE
	PRINTFORMW 『』
ENDSELECT

path: ERB/EVENT_K/15 槞彁/EVENT_K15_DAILY.ERB


path: ERB/EVENT_K/15 槞彁/EVENT_K15_LIBRARY.ERB

license: unknown


code:
@CALL_LIBFW(ARGS)
	#DIM LCOUNT
	#DIM DYNAMIC BASE_RESULT
	#DIM DYNAMIC BEFORE_RESULT
	#DIM DYNAMIC AFTER_RESULT
	;角色の登録番号を必要とする台詞のために定義
	#DIM REG_NUM
	REG_NUM = FINDCHARA(NO, 15)
		RESULT = 0
		FOR LCOUNT, 1, 100
			VARSET STR, "", 0, 20
			K15_FACE =
			;地の文とか、其他のテ接吻ト
			;CLEARLINE 2
			CALL LIBRALY_F(0, LCOUNT, ARGS)
				SIF RESULT == 1
					BASE_RESULT = 1
			CALL LIBRALY_F(1, LCOUNT, ARGS)
				IF RESULT == 1
					BEFORE_RESULT = 1
				ELSEIF STR:2 != ""
					STR:1 = - _黄色_%CALLNAME:FINDCHARA(NO, 15) %_ -
					STR:2 = #TEXTC=ffdbff:HTML:「%STR:2%」
					IF STR:3 != ""
						STR:3 = #TEXTC=ffdbff:HTML:「%STR:3%」
					ELSE
						STR:3 =
					ENDIF
					SIF STR:4 != ""
						STR:4 = #TEXTC=ffdbff:HTML:「%STR:4%」
				ENDIF
			IF CEVENT("槞彁：機械翻訳OFF", MASTER) == 0
				CALL LIBRALY_F(100, LCOUNT, ARGS)
					IF RESULT == 1
						AFTER_RESULT = 1
					ELSEIF STR:6 != ""
						STR:5 = - _黄色_翻訳機_ -
						STR:6 = #TEXTC=ccffe5:HTML:『%STR:6%』
						SIF STR:7 != ""
							STR:7 = #TEXTC=ccffe5:HTML:『%STR:7%』
						SIF STR:8 != ""
							STR:8 = #TEXTC=ccffe5:HTML:『%STR:8%』
					ENDIF
			ENDIF
			CALL LIBRALY_F(1000, LCOUNT, ARGS)
			SIF (BEFORE_RESULT == 1)&&(AFTER_RESULT == 1)&&(BASE_RESULT == 1)
				BREAK
			IF STR:2 != ""
				;PRINTFORMW %K15_FACE%
				STR:0 =
				CALL DIALOGUE_FRAME(FINDCHARA(NO, 15), K15_FACE)

			ENDIF
			WAIT
		NEXT
		RESETCOLOR
		RETURN 0

;----------------------------------------------------------------
;セリフ参照
;ARGS = 検索するセリフ
;----------------------------------------------------------------
@CALL_LIBF(ARGS)
	#DIM LCOUNT
	#DIM DYNAMIC BASE_RESULT
	#DIM DYNAMIC BEFORE_RESULT
	#DIM DYNAMIC AFTER_RESULT
	;角色の登録番号を必要とする台詞のために定義
	#DIM REG_NUM
	REG_NUM = FINDCHARA(NO, 15)
		RESULT = 0
		PRINTFORML 2
		PRINTFORMW 1
		FOR LCOUNT, 0, 100
			VARSET STR, "", 0, 20
			;CLEARLINE 2
			K15_FACE =
			;地の文とか、其他のテ接吻ト
			CALL LIBRALY_F(0, LCOUNT, ARGS)
				SIF RESULT == 1
					BASE_RESULT = 1
			CALL LIBRALY_F(1, LCOUNT, ARGS)
				IF RESULT == 1
					BEFORE_RESULT = 1
				ELSEIF STR:2 != ""
					STR:1 = - _黄色_%CALLNAME:FINDCHARA(NO, 15) %_ -
					STR:2 = #TEXTC=ffdbff:HTML:「%STR:2%」
					IF STR:3 != ""
						STR:3 = #TEXTC=ffdbff:HTML:「%STR:3%」
					ELSE
						STR:3 =
					ENDIF
					SIF STR:4 != ""
						STR:4 = #TEXTC=ffdbff:HTML:「%STR:4%」
				ENDIF
			IF CEVENT("槞彁：機械翻訳OFF", MASTER) == 0
				CALL LIBRALY_F(100, LCOUNT, ARGS)
					IF RESULT == 1
						AFTER_RESULT = 1
					ELSEIF STR:6 != ""
						STR:5 = - _黄色_翻訳機_ -
						STR:6 = #TEXTC=ccffe5:『%STR:6%』
						SIF STR:7 != ""
							STR:7 = #TEXTC=ccffe5:『%STR:7%』
					ENDIF
			ENDIF

			CALL LIBRALY_F(1000, LCOUNT, ARGS)
			SIF (BEFORE_RESULT == 1)&&(AFTER_RESULT == 1)&&(BASE_RESULT == 1)
				BREAK
			IF STR:2 != ""
				;PRINTFORMW %K15_FACE%
				CALL DIALOGUE_FRAME(FINDCHARA(NO, 15), K15_FACE)
			ENDIF
		NEXT
		RETURN 0

@LIBRALY_F(ARG, ARG:1, ARGS)
;角色の登録番号を必要とする台詞のために定義
#DIM REG_NUM
REG_NUM = FINDCHARA(NO, 15)
SELECTCASE ARGS
CASE "テストメッセージ"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 样本メッセージ
					PRINTFORML 样本メッセージ
				CASE 2
					PRINTFORML 样本メッセージ
					PRINTFORML 样本メッセージ
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Тест мэссаге дещ ёр 1
					STR:3 = Тест мэссаге дещ ёр 2
				CASE 2
					STR:2 = Тест мэссаге дещ ёр 3
					STR:3 = Тест мэссаге дещ ёр 4
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Test me'ssage deshch yor 1
					STR:3 = Test me'ssage deshch yor 2
				CASE 2
					STR:2 = Test me'ssage deshch yor 3
					STR:3 = Test me'ssage deshch yor 4
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = テストメッセージですよ 1
					STR:3 = テストメッセージですよ 2
				CASE 2
					STR:2 = テストメッセージですよ 3
					STR:3 = テストメッセージですよ 4
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = これは試験文言 1
					STR:7 = これは試験文言 2
				CASE 2
					STR:6 = これは試験文言 3
					STR:7 = これは試験文言 4
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += K15_桜井老师
				CASE 2
					K15_FACE += K15_桜井老师
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
;
CASE "刺身"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Коннор Рёхрий <nonbutton title='【名詞】魚'>сакана</nonbutton> гар наммар дещ кедор...
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = この料理、魚が生ですけどぉ...
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = この料理は無垢な
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "对话框汗/△"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
;
CASE "魔界語講座：母音"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASE 2
				CASE 3
				CASE 4
				CASE 5
				CASE 6
					;CLEARLINE LINECOUNT
				CASE 7
					AWAIT ;500
					;TWAIT 500,0
					CLEARLINE 11
				CASE 8
					AWAIT ;500
					;TWAIT 500,0
					CLEARLINE 11
				CASE 9
					AWAIT ;500
					;TWAIT 500,0
					CLEARLINE 11
				CASE 10
					AWAIT ;500
					;TWAIT 500,0
					CLEARLINE 11
				CASE 11
					TWAIT 3000,0
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Харр-ый!, Макай го ковза дещ ёр!
				CASE 2
					STR:2 = Кёв вар боыйн нйе цуитйе дещ!
				CASE 3
					STR:2 = Макай го...Демславия го мор боыйн гар атьтйе
				CASE 4
					STR:2 = Кийхонг тецк нар [а и у е о] тор,
					STR:3 = тоцкшу нар [я й ю э ё] гар
					STR:4 = аллй масс！
				CASE 5
					STR:2 = Мазз вар, Кийхонг тецк нар [а и у е о] вор
					STR:3 = Обоелл тоцкорллор калар хаьзйме машов！
				CASE 6
					STR:2 = ко
				CASE 7
					STR:2 = ко н
				CASE 8
					STR:2 = ко н ни
				CASE 9
					STR:2 = ко н ни чи
				CASE 10
					STR:2 = ко н ни чи ва!
				CASE 11
					STR:2 = Вакаррй машй тар кар？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Harr-yi!, SynjitsSekay go kovza deshch yor!
				CASE 2
					STR:2 = Kyov var boyin nye tsuitye deshch!
				CASE 3
					STR:2 = SynjitsSekay go...Demslaviya go mor boyin gar at'tye
				CASE 4
					STR:2 = Kiyhong teck nar [a i u e o] tor,
					STR:3 = tockshu nar [ya i^ yu e' yo] gar
					STR:4 = ally mass！
				CASE 5
					STR:2 = Mazz var, Kiyhong teck nar [a i u e o] vor
					STR:3 = Oboell tockorllor kalar ha'zyme mashov！
				CASE 6
					STR:2 = ko
				CASE 7
					STR:2 = ko n
				CASE 8
					STR:2 = ko n ni
				CASE 9
					STR:2 = ko n ni chi
				CASE 10
					STR:2 = ko n ni chi va!
				CASE 11
					STR:2 = Vakarry mashy tar kar？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = はーい、真実世界語講座ですよ～
				CASE 2
					STR:2 = 今日は母音についてです！
				CASE 3
					STR:2 = 真実世界...ダエモスラビヤ語も母音があって
				CASE 4
					STR:2 = 基本的なa i u e o
					STR:3 = と、特殊な ya i^ yu e' yo
					STR:4 = が有些ます！
				CASE 5
					STR:2 = まずは、基本的なa i u e o
					STR:3 = を覚える所から始めましょう！
				CASE 6
					STR:2 = ko
				CASE 7
					STR:2 = ko n
				CASE 8
					STR:2 = ko n ni
				CASE 9
					STR:2 = ko n ni chi
				CASE 10
					STR:2 = ko n ni chi va!
				CASE 11
					STR:2 = 分かりましたか？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 是、これは真実世界の言語を教示。
				CASE 2
					STR:6 = 母音についての今日。
				CASE 3
					STR:6 = 真実世界の言語...[エラーID18559812、変邸結果、地名。変換先辞書に登録のない単語です。]
					STR:7 = は母音を持つ。同じ
				CASE 4
					STR:6 = 基本的、[あ　い　う　え　お]
					STR:7 = 同じ、特殊的[あ　い　う　え　お]を持つ
				CASE 5
					STR:6 = 先んじた、基本的あ　い　う　え　お
					STR:7 = を始めましょう。記憶する
				CASE 6
					STR:6 = 兒童
				CASE 7
					STR:6 = 今
				CASE 8
					STR:6 = 紺色への変化
				CASE 9
					STR:6 = 今日
				CASE 10
					STR:6 = 今日は
				CASE 11
					STR:6 = 理解を得るしたか？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/斜眉/ワ/楕円/对话框開心"
				CASE 2
					K15_FACE += "重置/斜眉/微笑２/楕円/对话框汗３"
				CASE 3
					K15_FACE += "重置/斜眉/ヮ/楕円/对话框汗３"
				CASE 4
					K15_FACE += "重置/斜眼２/斜眉/ﾜ/红晕/对话框兴奋"
				CASE 5
					K15_FACE += "重置/斜眉/ヮ/对话框兴奋"
				CASE 6
					K15_FACE += "重置/笑颜/斜眉/ﾜ/对话框兴奋"
				CASE 7
					K15_FACE += "重置/笑颜/斜眉/一文字/对话框兴奋"
				CASE 8
					K15_FACE += "重置/笑颜/斜眉/いー/对话框兴奋"
				CASE 9
					K15_FACE += "重置/笑颜/斜眉/いー/对话框兴奋"
				CASE 10
					K15_FACE += "重置/斜眉/ヮ/对话框開心"
				CASE 11
					K15_FACE += "重置/笑颜/斜眉/ヮ/红晕/对话框爱心"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "魔界語講座：な"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASE 2
				CASE 3
				CASE 4
				CASE 5
				CASE 6
				CASE 7
				CASE 8
				CASE 9
					SIF CEVENT("槞彁：機械翻訳OFF", MASTER) == 0
						CALL PRINT_STRL(@"_黄色_%NAME:TARGET%は、翻訳機の電源を切った_")
					PRINTFORMW
				CASE 10
					AWAIT
					CLEARLINE 10
				CASE 11
					AWAIT
					CLEARLINE 10
				CASE 12
					AWAIT
					CLEARLINE 10
				CASE 13
					SIF CEVENT("槞彁：機械翻訳OFF", MASTER) == 0
						CALL PRINT_STRL(@"_黄色_%NAME:TARGET%は、再度翻訳機の電源を付けた_")
					PRINTFORMW
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Харр-ый!, Макай го ковза дещ ёр!
				CASE 2
					STR:2 = Кёв вар Н(н) ные цюытые дещ！
				CASE 3
					STR:2 = [На　Ни　Ню　Не　Но] нор тоцк ные цюкав отор дещ！
				CASE 4
					STR:2 = Етьчи？？Довшитые дещ кар？？
				CASE 5
					STR:2 = Ннъ？？？Гомыеннасаы, чоьт вакарллар наы дещ...
				CASE 6
					STR:2 = Н вор цюкабв баррый де ютор, Татор ыебар...
				CASE 7
					STR:2 = Союрдар！
				CASE 8
					STR:2 = Мондаы дещ！
				CASE 9
					STR:2 = Окарыеллы насаы！
				CASE 10
					STR:2 = Окарыеллы насаы！
					STR:3 = А
				CASE 11
					STR:2 = Окарыеллы насаы！
					STR:3 = А　На
				CASE 12
					STR:2 = Окарыеллы насаы！
					STR:3 = А　На　Та！
				CASE 13
					STR:2 = Ффь, %CNAME("一人称")% вар нан тые иьтар дешор кар？_HH_
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Харр-ый!, Макай го ковза дещ ёр!
				CASE 2
					STR:2 = Kyov var N(n) nye tsuytye deshch！
				CASE 3
					STR:2 = [Na　Ni　Nu　Ne　No] nor tock nye tsukav otor deshch！
				CASE 4
					STR:2 = Et'chi？？Dovshitye deshch kar？？
				CASE 5
					STR:2 = Nn''？？？Gomyennasay, cho't vakarllar nay deshch...
				CASE 6
					STR:2 = N vor tsukabv barryi de iutor, Tator yebar...
				CASE 7
					STR:2 = Sourdar！
				CASE 8
					STR:2 = Monday deshch！
				CASE 9
					STR:2 = Okaryelly nasay！
				CASE 10
					STR:2 = Okaryelly nasay！
					STR:3 = A
				CASE 11
					STR:2 = Okaryelly nasay！
					STR:3 = A　Na
				CASE 12
					STR:2 = Okaryelly nasay！
					STR:3 = A　Na　Ta！
				CASE 13
					STR:2 = Ff', %CNAME("一人称")% var nan tye i'tar deshor kar？_HH_
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = はーい、魔界語講座ですよ～
				CASE 2
					STR:2 = 今日はN(n)についてです！
				CASE 3
					STR:2 = [な　に　ぬ　ね　の]の時に使う音です！
				CASE 4
					STR:2 = えっち？？どうしてですか？？
				CASE 5
					STR:2 = ん～？？？ごめんなさい、ちょっと分からないです...
				CASE 6
					STR:2 = Nを使う場合で言うと、例えば～...
				CASE 7
					STR:2 = そうだ！
				CASE 8
					STR:2 = 問題です！
				CASE 9
					STR:2 = おかえりなさい！
				CASE 10
					STR:2 = おかえりなさい！
					STR:3 = あ
				CASE 11
					STR:2 = おかえりなさい！
					STR:3 = あ　な
				CASE 12
					STR:2 = おかえりなさい！
					STR:3 = あ　な　た！
				CASE 13
					STR:2 = ふふっ、私は何て言ったでしょうか？_BHH_
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 是、これは真実世界の言語を教示。
				CASE 2
					STR:6 = 今日の主題はN(n)について。
				CASE 3
					STR:6 = 使うべき音は[な　に　ぬ　ね　の]の時
				CASE 4
					STR:6 = 性的な、それはどういった意味を示す。
				CASE 5
					STR:6 = ん、謝罪、少しの理解の及ばない
				CASE 6
					STR:6 = もしも例えばNの音を使うならば
				CASE 7
					STR:6 = その街道です。
				CASE 8
					STR:6 = これは課題！
				CASE 9
				CASE 10
				CASE 11
				CASE 12
				CASE 13
					STR:6 = %CNAME("一人称翻訳後")%は何を言うか？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/＞＜/ﾜ/楕円/对话框兴奋"
				CASE 2
					K15_FACE += "重置"
				CASE 3
					K15_FACE += "重置/ω２/对话框兴奋"
				CASE 4
					K15_FACE += "重置/困扰眉/へ字/对话框？"
				CASE 5
					K15_FACE += "重置/斜眼２/困扰眉/へ字/对话框？２"
				CASE 6
					K15_FACE += "重置/眯眯眼/微笑２/对话框・・・"
				CASE 7
					K15_FACE += "重置/ワ/红晕/对话框！"
				CASE 8
					K15_FACE += "重置/笑颜/いー/红晕"
				CASE 9
					K15_FACE += "重置/红晕"
				CASE 10
					K15_FACE += "重置/红晕"
				CASE 11
					K15_FACE += "重置/红晕"
				CASE 12
					K15_FACE += "重置/笑颜/红晕/对话框開心"
				CASE 13
					K15_FACE += "重置/微笑３/红晕/对话框汗３"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "他の人がH"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Ець, Въварр...ь
					STR:3 = Иьц...Итьтйераь....шай... ... дещ канйе?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Ec', V''varr...'
					STR:3 = I'c...It'tyera'....shay... ... deshch kanye?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = えっ、わっわ～っ...
					STR:3 = いっ...いってらっ...しゃい... ...ですかね?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = Ераа АыДеэ18559811 Зисёни Товрокю нонаи тангодесс
					STR:7 = エラーID18559811、辞書に登録のない単語です。
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/〇〇/斜眉/ﾜ/赤面/对话框汗３"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "どちらへ？"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Дочрар йхе икарелл ндещ кар?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Dochrar yhe ikarell ndeshch kar?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = どちらへ行かれるんですか？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 你はどっちの向かうする？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/斜眉/ヮ/红晕/对话框？２"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "行ってらっしゃい"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Иьттйе расшай!
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = I'ttye rasshay!
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = 行ってらっしゃい！
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 行くしなさい。
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/笑颜/斜眉/微笑２/对话框！"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "太陽怖い"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Кёг...Ныйнген вар Макай гар ковай секай дат оммотйел
					STR:3 = Хйт гар орьой ьтйе кий тандещ кедор хонтв дещ кар？
				CASE 2
					STR:2 = Мйтарллар шиц мей шичав монор гар дужонй алл
					STR:3 = Котчиллар норо хов гар СйнжицСекай ёрллй мор зутьцо
					STR:4 = Ковай тор оммов ндещ кедор ... довнанг дессёр？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Kyog...Nyingen var Makay gar kovay sekay dat ommotyel
					STR:3 = hyt gar or'oy 'tye kiy tandeshch kedor hontv deshch kar？
				CASE 3
					STR:2 = Mytarllar shits mey shichav monor gar duzhony all
					STR:3 = Kotchillar noro hov gar SynjitsSekay yorlly mor zut'tso
					STR:4 = kovay tor ommov ndesch kedor ... dovnang dessyor？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = 虚g...人类は魔界が怖い世界だと思ってる人が多いって聞いたんですけど、本当ですか？
				CASE 2
					STR:2 = 見たら失明しちゃう物が頭上にあるこちらの世界の方が
					STR:3 = 真実界よりもずっと怖いと思うんですけど...どうなんでしょう？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 虚偽、人类の受け取り思うが魔界の恐怖さに由来聞いた多数の。それが本当？
				CASE 2
					STR:6 = 観測の結果失う視界、与える物質が頭上に住んでいる。
					STR:7 = その事実は、真実世界よりも恐ろしい事実を%CNAME("一人称翻訳後")%は思う。同意ですか
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/斜眉/小口/红晕/对话框？"
				CASE 2
					K15_FACE += "目陰/垂眼２/困扰眉/～/对话框汗２"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "成長期"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = нг？моне дещ кар？ Дайтай нижуе ыуе сай голор каллер
					STR:3 = оькицк нарллй хазймем ассйтар
				CASE 2
					STR:2 = %CNAME("一人称")%дацкйе гайцен гар ьчигацат каллер
					STR:3 = чорьт хазкарш кат дещ...
				CASE 3
					STR:2 = Муннйе нор хов гар хосш кать нар...
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = ng？mone deshch kar？ Daytay nijue que say golor kaller
					STR:3 = o'kick narlly hazymem assytar
				CASE 2
					STR:2 = %CNAME("一人称")%dackye gaycen gar 'chigacat kaller
					STR:3 = chor't hazkarsh kat deshch...
				CASE 3
					STR:2 = Munnye nor hov gar hossh kat' nar...
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = ん？胸ですか？大体29歳ごろからおっきくなり始めました...
				CASE 2
					STR:2 = %CNAME("一人称")%だけ外見違うからちょっと恥ずかしかったです...
				CASE 3
					STR:2 = 胸より身高の方が欲しかったな...
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 胸部とは、殆どの拡大を29歳のはじまり。
				CASE 2
					STR:6 = %CNAME("一人称翻訳後")%の個別性的な違い。羞恥心を得る　僅かな
				CASE 3
					STR:6 = より、胸部比較した際の高さを求める。
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/笑颜/微笑２"
				CASE 2
					K15_FACE += "重置/笑颜/ヮ/紅潮/对话框・・・"
				CASE 3
					K15_FACE += "目陰/微笑２/紅潮/垂眼２/高光无/对话框汗"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "モテなかった"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = %CNAME("一人称")%…гацкох девар моьтенай хов датьтя норнй…
				CASE 2
					STR:2 = Конна нйе сукый ьтйе итьтйе црелл
					STR:3 = хйт гар иллндар нар…ьтйе！
				CASE 3
					STR:2 = Нецех-чанг мор Иллх-чанг мор каллеш итар норнй нар…
					;STR:3 = Test
				CASE 4
					STR:2 = %CNAME("一人称")% дещ кар? %CNAME("一人称")% вар… соннор…
					STR:3 = мунйе гар охькицк тйе… каллар кавар летйе тар каллар…
				CASE 5
					STR:2 = соннор...%CNAME("二人称")% вар... %CNAME("一人称")%нор мунйе сукый?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = %CNAME("一人称")%…gackoh devar mo'tenay hov dat'tya norny…
				CASE 2
					STR:2 = Konna nye sukyi 'tye it'tye crell
					STR:3 = hyt gar illndar nar..'tye！
				CASE 3
					STR:2 = Neceh-chang mor Illh-chang mor kallesh itar norny nar…
				CASE 4
					STR:2 = %CNAME("一人称")% deshch kar? %CNAME("一人称")% var… sonnor…
					STR:3 = munye gar oh'kick tye… kallar kavar letye tar kallar
				CASE 5
					STR:2 = sonnor...%CNAME("二人称")% var... %CNAME("一人称")%nor munye sukyi?
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = 私…学校ではモテない方だったのに…
				CASE 2
					STR:2 = こんなに好きって言ってくれる人が
					STR:3 = 居るんだな…って！
				CASE 3
					STR:2 = ネケヘ酱も、イルゥ酱も彼氏いたのにな…
				CASE 4
					STR:2 = %CNAME("一人称")%ですか？私は…その…
					STR:3 = 胸がおっきくて…からかわれてたから…
				CASE 5
					STR:2 = その...%CNAME("二人称")%は...%CNAME("一人称")%の胸好き？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = %CNAME("一人称翻訳後")%の獲得した、異性人気の少ない側。学校の
				CASE 2
					STR:6 = 私のこれほどの得た人物、好意を言う。存在を既知になる。
				CASE 3
					STR:6 = [エラーID18569000、辞書に登録のない単語です。]、[エラーID18569000、辞書に登録のない単語です。]。
					STR:7 = 所有する交際者。
				CASE 4
					STR:6 = %CNAME("一人称翻訳後")%の話か？%CNAME("一人称翻訳後")%は、私事の際、揶揄を受け取るされた。胸の由来する。大きいさ
				CASE 5
					STR:6 = %CNAME("二人称翻訳後")%の好意を持つ、%CNAME("一人称翻訳後")%の胸　とは？
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/斜眉/微笑３/红晕"
				CASE 2
					K15_FACE += "重置/笑颜/斜眉/ヮ/红晕/对话框開心"
				CASE 3
					K15_FACE += "重置/～/高光有/对话框・・・"
				CASE 4
					K15_FACE += "重置/微笑３/高光无/紅潮/对话框汗２"
				CASE 5
					K15_FACE += "重置/笑颜/ヮ/紅潮/对话框？"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT

CASE "豆腐チョップ"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Конор аыйдар %CNAME("一人称")%, Феллй-сан нор рёрллй вор
					STR:3 = тец дать тандесс кедор, митчатьандесс!
				CASE 2
					STR:2 = Сензиц нор сууп нйе хаиь тйетар шилой чийз？
					STR:3 = Атьт жа най дещ кар！
				CASE 3
					STR:2 = Алле вор, Феллй-сан…
					STR:3 = Те нор хила вор манарыйта нйе шитйе
					STR:4 = ховчо вор цукаттанг дещ ёр！
				CASE 4
					STR:2 = Феллй-сан вар зетьтай фуцув нор хитор янай дещ…
					STR:3 = %CNAME("二人称")% мор кондор Феллй-сан нор рёрллй шитйелл токцкй,
					STR:4 = митйе митйе кудасай…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Konor ayidar %CNAME("一人称")%, Felly-san nor ryorlly vor tets dat' tandess kedor, mitchat'andess!
				CASE 2
					STR:2 = Senzits nor suup nye hai' tyetar shiloy chiiz？ At't zha nay deshch kar！
				CASE 3
					STR:2 = Alle vor, Felly-san…Te nor hila vor manaryita nye shitye hovcho vor tsukattang deshch yor！
				CASE 4
					STR:2 = Felly-san var zet'tay futsuv nor hitor janay deshch…%CNAME("二人称")% mor kondor Felly-san nor ryorlly shityell tokcky, mitye mitye kudasay…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = この間%CNAME("一人称")%、フェリ桑の料理を手伝ったんですけど、見ちゃったんです！
				CASE 2
					STR:2 = 先日のスープに入ってた白色乳酪？有ったじゃないですか！
				CASE 3
					STR:2 = アレを、フェリ桑…手のひらをまな板にして菜刀を使ってたんですよ！
				CASE 4
					STR:2 = フェリ桑は絶対普通の人じゃないです。%CNAME("二人称")%も今度フェリ桑の料理してる時、見てみてください…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = このスペースに居た%CNAME("一人称翻訳後")%、フェリ氏の私は手伝った料理。にて観察するした。
				CASE 2
					STR:6 = 先の日にちの中で、汁の中の白色乳酪の含有する。記憶を持つか？
				CASE 3
					STR:6 = それが、フェリ氏の行うは手の平が菜刀台に変化した。切断
				CASE 4
					STR:6 = 彼女は確実な通常人。ではない。%CNAME("二人称翻訳後")%も追従するを薦める。彼女の料理する瞬間の観察。
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/闭眼/左垂眼２/憤怒眉/へ字/红晕/对话框！"
				CASE 2
					K15_FACE += "重置/憤怒眉/ω２/红晕/对话框！"
				CASE 3
					K15_FACE += "重置/憤怒眉/ﾜ/红晕/对话框惊讶"
				CASE 4
					K15_FACE += "重置/闭眼/憤怒眉/ﾜ/红晕"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "自己紹介"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 地の文はこのように書きます
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = はぢめまして！私の名前ヴぁ、⊥лыъвьыкцлрですっ！気軽に槞彁()と呼んでくださいっ！
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = Ераа АыДеэ18559811 Зисёни Товрокю нонаи тангодесс
					STR:7 = エラーID18559811、辞書に登録のない単語です。
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += K15_桜井老师
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "样本"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 地の文はこのように書きます
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Тест мэссаге дещ ёр
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Test me'ssage deshch yor
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = テストメッセージですよ
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:5 = これは試験文言
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += K15_桜井老师
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "遠慮"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Мури шитые тацкаы монор вор каов ьтые оммоща дамме нан дещ каллар ные..!
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Muri shitye tackay monor vor kaov 'tye ommoshcha damme nan deshch kallar nye..!
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = 無理して高い物を買おうって思っちゃダメなんですからねっ…!
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 不要な考える、高地の物質購入
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += K15_约会
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT

CASE "後で消す"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 進入房間と、なにやら慌てた様子で槞彁は自らを被窝で包み隠した
					PRINTFORML 槞彁は今、翻訳機を付けていないようだが、槞彁は気が付いていない…
					PRINTFORML というよりも、そんなことに意識が向いていない様子である。
				CASE 2
					PRINTFORMW [100] 前に進む
					INPUT
				CASE 3
					PRINTFORMW [100] 前に進む
					INPUT
				CASE 4
					PRINTFORMW [100] 前に進む
					INPUT
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Ямйетйе..! Солле ыйжор коннай дйе!
				CASE 2
					STR:2 = ваташ вар генкей дещ карллар… не?
					STR:3 = сймпй шинай де цкдасай!
				CASE 3
					STR:2 = Довшитйе… Довшитйе каетьтэ кулле найнг дещ кар…
				CASE 4
					STR:2 = Аната гар илл сей дйе…
					STR:3 = онна кар гар гхууууууц… тйе итамм нг дещ…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 3
					STR:1 = Довшитйе… Довшитйе каетьтэ кулле найнг дещ кар…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = やめて…！来ないでください！
				CASE 2
					STR:2 = 私は元気ですから…ね…?心配しないでください
				CASE 3
					STR:2 = どうして帰ってくれないんですか…
				CASE 4
					STR:2 = 貴方が目の前にいるせいで…お腹の奥がぎゅーっって痛むんです…もうやめて…
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					;K15_FACE += "重置/呀哒/高光无/爱心眼/赤面/对话框！"
					K15_FACE += "重置/呀哒/高光无/赤面/对话框！"
				CASE 2
					K15_FACE += "重置/笑颜/高光无/爱心眼/赤面/对话框汗２"
				CASE 3
					K15_FACE += "目陰/憤怒眉短/いー/赤面/对话框・・・"
				CASE 4
					K15_FACE += "目陰/闭眼/いー/高光无/爱心眼/赤面/对话框憤怒"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT
CASE "样本2"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 地の文はこのように書きます
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = STR:2だけ
				CASE 2
					STR:2 = STR:2とSTR:3
					STR:3 = STR:3
				CASE 3
					STR:2 = STR:2~4全部入ってる
					STR:3 = STR:3
					STR:4 = STR:4
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Test me'ssage deshch yor
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = テストメッセージですよ
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = STR:6 翻訳样本
				CASE 2
					STR:6 = STR:6 翻訳样本
				CASE 3
					STR:6 = STR:6 翻訳样本
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += K15_桜井老师
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT

CASE "样本3"
	SELECTCASE ARG
		CASE 0;地の文とか、翻訳有無や言語能力に影響の受けないメッセージ
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					PRINTFORML 地の文はこのように書きます
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1;言語能力Lv1
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = テスト
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 3;言語能力Lv3
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = Test me'ssage deshch yor
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 10;原文
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:2 = テストメッセージですよ
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 100;機械翻訳
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					STR:6 = 翻訳样本
				CASEELSE
					RETURN 1
			ENDSELECT
		CASE 1000;表情指定
			SELECTCASE ARG:1
				CASE 0
				CASE 1
					K15_FACE += "重置/水手服/贝雷帽"
				CASEELSE
					RETURN 1
			ENDSELECT

		CASEELSE
			RETURN 1
	ENDSELECT

ENDSELECT


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K15_ADDSELECT
SIF CEVENT("槞彁：Demsolaviya20XX呼び出し可", MASTER)
	STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ(@"%NAME:TARGET%の母国へ行く", 16)% … ：Демославия20XXを開始します/
[IF_DEBUG]
;	STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ(@"DEBUG用", 16)% /
[ENDIF]
	;IF TALENT:恋慕
;	STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("資金援助を行う", 16)% … %NAME:TARGET%にお金を渡します/
;	STR:選択肢 = %STR:選択肢% [63] %TEXT_LJ("魂を提供する", 16)% … %NAME:TARGET%に魂を１渡します/
;ENDIF

;STR:選択肢 = %STR:選択肢% [64] %TEXT_LJ("カツアゲする", 16)% … %NAME:TARGET%からカツアゲしてお金を貰います/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K15_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "機械翻訳ＯＮ"
	CALL DEL_CEVENT, "槞彁：機械翻訳OFF", MASTER
	CALL PRINT_STRW, "機械翻訳变成_黄色_ＯＮ_了。"
CASE "機械翻訳ＯＦＦ"
	CALL SET_CEVENT, "槞彁：機械翻訳OFF", MASTER
	CALL PRINT_STRW, "機械翻訳变成_青_ＯＦＦ_了。"
;CASE @"%NAME:TARGET%の母国へ行く"
;	IF CEVENT("迷你游戏：初回イベ済")
;		CALL CALL_LIB("迷你游戏開始：通常")
;	ELSE
;		CALL CALL_LIB("迷你游戏開始：初")
;		CALL SET_CEVENT("迷你游戏：初回イベ済")
;	ENDIF
;	CALL D20XX_Start

;CASE "DEBUG用"
;	CALL CALL_LIBFW("魔界語講座：な")
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K15_ADDSELECT
SIF CEVENT("槞彁：Demsolaviya20XX呼び出し可", MASTER)
	STR:選択肢 += "電話/"
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K15_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "電話"

	CALL D20XX_Generate_UniqueFcsv, "イェニェル"
	CALL D20XX_FACE_FcsvToSprite(RESULTS)
	CALL D20XX_FACE_Packaging(RESULTS)
	RESULTS = %CONVERTSTR(RESULTS)%
	CALL D20XX_NO_NOBR(RESULTS)
	CALL D20XX_OS_SpriteYposReverse(RESULTS)
	CALL D20XX_OS_WindowInput_Constructor

	RESULTS:1 = %RESULTS:0%

	;#region
		D20XX_OS_WindowInput:0 += @"<nonbutton pos='1100'>- イェニェル -</nonbutton>"
		D20XX_OS_WindowInput:1 += @"<nonbutton pos='1100'>%PRINT_NamariF("おう、你かどうした？")%</nonbutton>"
		D20XX_OS_WindowInput:2 += @"<nonbutton pos='1100'></nonbutton>"
		D20XX_OS_WindowInput:3 += @"<nonbutton pos='1100'></nonbutton>"
		D20XX_OS_WindowInput:4 += @"<nonbutton pos='1100'></nonbutton>"
		D20XX_OS_WindowInput:5 += @"<nonbutton pos='1100'></nonbutton>"
		D20XX_OS_WindowInput:6 += @"<button pos='1100' value = '100'>[魔界に行きたい]</button>"
		D20XX_OS_WindowInput:7 += @"<nonbutton pos='1100'></nonbutton>"
		D20XX_OS_WindowInput:8 += @"%RESULTS:1%<button pos='1100' value = '200'>[何でもない]</button>"
	;#endregion

	CALL D20XX_OS_Window(500,12,4000,10)
	$PhoneLoop
		INPUT
		SELECTCASE RESULT
			CASE 100
				CALL D20XX_Generate_UniqueFcsv, "イェニェル"
				CALL D20XX_FACE_FcsvToSprite(RESULTS)
				CALL D20XX_FACE_Packaging(RESULTS)
				RESULTS = %CONVERTSTR(RESULTS)%
				CALL D20XX_NO_NOBR(RESULTS)
				CALL D20XX_OS_SpriteYposReverse(RESULTS)
				CALL D20XX_OS_WindowInput_Constructor
					RESULTS:1 = %RESULTS:0%
				;#region
					D20XX_OS_WindowInput:0 += @"<nonbutton pos='1100'>- イェニェル -</nonbutton>"
					D20XX_OS_WindowInput:1 += @"<nonbutton pos='1100'>%PRINT_NamariF("分かった、今転送する")%</nonbutton>"
					D20XX_OS_WindowInput:2 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:3 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:4 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:5 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:6 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:7 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:8 += @"%RESULTS:1%<nonbutton pos='1100'></nonbutton>"
				;#endregion
				CALL D20XX_OS_Window(500,12,4000,10)
				WAIT
				CALL D20XX_Start
				RETURN
			CASE 200
				CALL D20XX_Generate_UniqueFcsv, "イェニェル"
				CALL D20XX_FACE_FcsvToSprite(RESULTS,"憤怒/本")
				CALL D20XX_FACE_Packaging(RESULTS)
				RESULTS = %CONVERTSTR(RESULTS)%
				CALL D20XX_NO_NOBR(RESULTS)
				CALL D20XX_OS_SpriteYposReverse(RESULTS)
				CALL D20XX_OS_WindowInput_Constructor
					RESULTS:1 = %RESULTS:0%
				;#region
					D20XX_OS_WindowInput:0 += @"<nonbutton pos='1100'>- イェニェル -</nonbutton>"
					D20XX_OS_WindowInput:1 += @"<nonbutton pos='1100'>%PRINT_NamariF("用もないのに電話してくるな ボケ")%</nonbutton>"
					D20XX_OS_WindowInput:2 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:3 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:4 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:5 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:6 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:7 += @"<nonbutton pos='1100'></nonbutton>"
					D20XX_OS_WindowInput:8 += @"%RESULTS:1%<nonbutton pos='1000'></nonbutton>"
				;#endregion
				CALL D20XX_OS_Window(500,12,4000,10)
				WAIT
				RETURN
		ENDSELECT
		CLEARLINE 1
		GOTO PhoneLoop

CASE "表示テスト"
	CALL CALL_LIBFW("刺身")
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
;直接Ｈしたい場合
CASE "追加選択肢からＨ：Talk"
	;前編
	IF CEVENTS("追加選択肢からＨ") == ""
		PRINTFORMW テ接吻ト
		PRINTL [0]選択肢１(これを選ぶとＨします)
		PRINTL [1]選択肢２(これを選ぶとＨしません)
		CALL SET_CEVENT, @"追加選択肢からＨ：%ARGS%"
		FLAG:SELECT_USERSHOP = 100
	ELSE
		IF TFLAG:床イン
			PRINTFORMW Ｈする場合の展開です
		ELSE
			PRINTFORMW こっちはＨしない場合の展開です
		ENDIF
	ENDIF
ENDSELECT

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

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

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K15_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 "追加選択肢からＨ：もて无"
	;前編
	IF CEVENTS("追加選択肢からＨ") == ""
		PRINTFORMW テ接吻ト
		PRINTL [0]選択肢１(これを選ぶとＨします)
		PRINTL [1]選択肢２(これを選ぶとＨしません)
		CALL SET_CEVENT, @"追加選択肢からＨ：%ARGS%"
		FLAG:SELECT_USERSHOP = 100
	ELSE
		IF TFLAG:床イン
			PRINTFORMW Ｈする場合の展開です
		ELSE
			PRINTFORMW こっちはＨしない場合の展開です
		ENDIF
	ENDIF

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_K15_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K15_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_K15_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

path: ERB/EVENT_K/15 槞彁/EVENT_K15_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K15, %ARGS%
		[ENDIF]
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K15, %ARGS%
		[ENDIF]
	;失敗
	ELSE
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K15, %ARGS%
		[ENDIF]
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

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

	ELSE

	ENDIF

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

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

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

	ELSE

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

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

	ELSE

	ENDIF

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

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

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

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

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

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

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

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

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

			ELSE

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

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

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

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

	ELSE

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

	CASE 3

	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

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

CASE "避妊解除拒否"

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

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

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "業物"

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

		ELSE

		ENDIF
	ELSE

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K15, 汎用拒否
	[ENDIF]
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K15, 汎用ＯＫ
	[ENDIF]
ENDIF

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

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

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

	ELSE

	ENDIF
CASE "目送"

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

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

	ELSE

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

	ELSEIF CHECK_CLO("体操服姿")

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

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

	ELSE

	ENDIF
;ここはwaitを使わないようにしてください(PRINTFORMW の代わりに PRINTFORML を使う)
CASE "询问有什么想要的东西"
	;PRINTFORML
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

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

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE

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

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/15 槞彁/EVENT_K15_SHOP.ERB


code:
@NEWDAY_K15_EX
	CALL K15_LowQualityFace(TARGET,"重置/笑颜/斜眉/ヮ/红晕/对话框爱心",30)
	CALL CALL_LIB("朝袭テスト")

	CALL K15_LowQualityFace(TARGET,"重置/ワ/红晕/对话框！",50)
	CALL CALL_LIB("朝袭テスト")

	CALL K15_LowQualityFace(TARGET,"重置/红晕",100)
	CALL CALL_LIB("朝袭テスト")

	CALL K15_LowQualityFace(TARGET,"重置/笑颜/红晕/对话框開心",150)
	CALL CALL_LIB("朝袭テスト")

	CALL K15_LowQualityFace(TARGET,"重置/微笑３/红晕/对话框汗３",300)
	CALL CALL_LIB("朝袭テスト")

;----------------------------------------
;低解像度の画像をわざと表示する関数
;顔描画関係の処理のリバースエンジニアリングの副産物
;第一引数:角色ID
;第二引数：颜绘変化 例："重置/笑颜/斜眉/ヮ/红晕/对话框爱心"
;第三引数：解像度
;----------------------------------------
@K15_LowQualityFace(ARG:0,ARGS,ARG:1)
	#DIMS MEMO_MAIDFACE

	CSTR:ARG:颜绘変化 = %ARGS%

	;MAIDFACEを通せば颜绘変化を反映してくれるっぽい
	MEMO_MAIDFACE = %MAIDFACE(TARGET, 1)%

	CALL OVERLAY_GCREATE(MAIDEFACEID, @"%EXTSTR(MEMO_MAIDFACE, "", ",")%", ARG:1, ARG:1)

	SPRITECREATE @"颜绘{MAIDEFACEID}", MAIDEFACEID
	LOCALS += @"颜绘{MAIDEFACEID},%EXTSTR(MEMO_MAIDFACE, ",")%"

	HTML_PRINT CONVERTSTR(LOCALS)
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	MAIDEFACEID += 1

path: ERB/EVENT_K/15 槞彁/EVENT_K15_ピンぼけ顔グラ.ERB