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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝舐陰", "朝六九式"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「呜（吞咽声）、早上好……」
		CASE 1
			PRINTFORML 「嗯，已经起来了」
			IF TEXTS("曜日") == "日"
				PRINTFORMW 「继续？在那之前先吃早饭吧…？」
			ELSE
				PRINTFORMW 「差不多该到了上学的时间了、接下来就是在学校里……可以吗？」
			ENDIF
		CASEELSE
			PRINTFORML 「啊、早上好、%CNAME("二人称")%。」
		ENDSELECT
	CASE "朝騎乗位"
		PRINTFORML 「%CNAME("二人称")%、该起床了～？」
		PRINTFORMW 「下面倒是先起床了呢……。」
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今天有体育课、要是把体操服忘在家里可就没劲咯」
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「……今天、有什么计划吗？」
			CASE 1
				PRINTFORMW 「等一下，我去泡绿茶……。」
			CASEELSE
				PRINTFORMW 「早上好、睡得还好吗？」
		ENDSELECT
	ENDIF
CASE "一番乗り"
	SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「%CNAME("二人称")%怎么这么早就来了？」
		CASE 1
			PRINTFORMW 「第一名~。」
		CASEELSE
			PRINTFORMW 「哦、还以为是谁来了呢……」
	ENDSELECT
CASE "ただいま"
		PRINTFORML 「我回来了~」
		PRINTFORMW 「哦、%CNAME("二人称")%也在啊」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「欢迎回来。已经等了半天了～……」
	ELSE
		PRINTFORMW 「欢、欢迎回来……」
	ENDIF

CASE "入室打招呼"
	SELECTCASE CSTR:PREV_DAILYCOM
		CASE "甜言蜜语"
			PRINTFORMW （打、打扰了…………）
		CASE "打招呼舐陰", "打招呼口交"
			PRINTFORMW 「呜、哇。你在干什么……」
			CALL EMOTION_PLUS, "重置/〇〇/困扰眉/ω"
		CASEELSE
			PRINTFORMW 「%TEXTR("失礼了/打扰了")%。」
	ENDSELECT
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「打扰了。大家差不多都到齐了吧」
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「你好…今天要做些什么呢？」
			CASE 1
				PRINTFORMW %CALLNAME:TARGET%轻轻地点了点頭。
			CASEELSE
				PRINTFORMW 「你好」
		ENDSELECT
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

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

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『您好、%CNAME(CALLNAME_ACTOR)%。』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 『大半已经到齐了。』
			CASE 1
				PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%、你好。』
			CASEELSE
				PRINTFORMW 『你好~。』
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 『你好~。』
			CASE 1
				PRINTFORMW %CALLNAME:TARGET%轻轻地点了点頭。
			CASEELSE
				PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%、你好。』
		ENDSELECT
	ENDIF

CASE "居間に現れた"
	;一度居間から別の場所に行って、居間に帰って来た時
	IF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	PRINTFORM 「%CNAME("二人称")%、今天用
	IF !RAND:4
		;時々、地元特産品弁当
		PRINTFORMW %TEXTR("明太子便当/高菜便当/梅果羊栖菜便当/迷你饺子便当/干菜便当")%来招待，%TEXTR("来尝尝吧/请慢用")%。」
		;※かしわめし…鶏肉の炊き込みご飯
	ELSE
		PRINTFORMW %TEXTR("海苔便当/鸡蛋烧便当/生姜烧便当/饭团便当/盐烤鲑鱼便当")%来招待，%TEXTR("来尝尝吧/请慢用")%。」
	ENDIF
	SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 「甜点的%TEXTR("梨子/猕猴桃/橘子/草莓/羊羹")%也请收下」
		CASE 1
			PRINTFORMW 「这可是%CNAME("一人称")%的自信作品哦。味道怎么样？」
		CASE 2
			PRINTFORMW %CALLNAME:TARGET%把便当的一部分递到了%CALLNAME:MASTER%嘴边。
			PRINTFORMW 「来%CNAME("二人称")%、啊～唔★」
		CASEELSE
			PRINTFORMW 「量好像有点少呢、能够吃饱吗？」
			PRINTFORMW 虽然这么说、但其实只是以%CALLNAME:TARGET%的标准来说很少、对%CALLNAME:MASTER%是正好的分量。
	ENDSELECT
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「这里是活动室……很宽敞呢」
CASE "浑身是汗"
	SELECTCASE TEXTS("季節詳細")
	CASE "夏"
		IF !RAND:3
			PRINTFORML 「真热呢……」
		ELSEIF !RAND:2
			PRINTFORML 「好热……」
		ELSE
			PRINTFORML 「呜、呜哇……」
			PRINTFORML 「该不会比%CNAME("一人称")%的老家还要热吧……」
		ENDIF
	CASEELSE
		PRINTFORML 「呜、不擦汗的话……」
	ENDSELECT
CASE "刚睡醒"
	IF !RAND:23
		PRINTFORML 「……哦」（迷迷糊糊）
	ELSEIF !RAND:2
		PRINTFORML 「哦、已经是早上了啊。」
	ELSE
		PRINTFORML 「嗯、早上好。」（迷迷糊糊）
	ENDIF
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K29
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML
CASE "约会的约定"
	PRINTFORML
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	CALL PRINT_STR, @"「%TEXTR(@"这里是充分放松的地方…/%CNAME("二人称")%、想做什么呢?")%」_L"
CASE "自室に招待"
	CALL PRINT_STR, @"「%TEXTR(@"呵呵、收拾得不错吧？/欢迎来到%CNAME("一人称")%的房间")%」_L"
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「……什么事、你们两个怎么了？」
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「有什么事情吗。」
			CASE 1
				PRINTFORML 「哦、现在要收拾、等一会呢……」
			CASEELSE
				PRINTFORML 「……怎么了、%CNAME("二人称")%？」
		ENDSELECT
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「%TEXTR("啊/哇")%……」
	PRINTFORML 「真是的、%TEXTR("太短了感觉有点别扭呢/视线还真是毫不掩饰啊")%……」
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 RAND:3 == 0 && TALENT:恋慕
			PRINTFORML
		ELSEIF RAND:2
			PRINTFORML 「比我想像的要漂亮呢。」
		ELSE
			PRINTFORML 「话说、这里学生来没有问题吗……」
		ENDIF
	;做爱房
	ELSEIF TALENT:恋慕
		PRINTFORML
	ELSE
		PRINTFORML
	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:日常事件回数 >= 15 && DEVENT("事件について１") == 0
	PRINTFORML 「你知道那件事跟魔术有関吗？」
	PRINTFORML 「%CNAME("一人称")%的母亲很了解魔术、独自进行调查后知道的。」
	PRINTFORML 「在被认为是失踪的地方有使用魔术的痕迹……」
	PRINTFORML 「……据说可能是"使用魔术的绑架事件"。」
	CALL SET_DEVENT, "事件について１"
ELSEIF CFLAG:日常事件回数 >= 30 && DEVENT("事件について２") == 0
	IF FINDCHARA(NO, 11) > 0
		PRINTFORML 「前几天听图书管理员说的。前几天听图书管理员说的。」
	ELSE
		PRINTFORML 「最近刚从班上的同学那里听说过、」
	ENDIF
	PRINTFORML 「那个事件、好像在这所学校附近也会发生。」
	PRINTFORML 「生物学的安藤老师对那个事件最生气。」
	PRINTFORML 「和其他部员也可以说一下、%CNAME("二人称")%也……请小心。。」
	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 STATE("酔酒")
	PRINTFORML
ELSE
	SELECTCASE RAND:4
		CASE 0
			PRINTFORML %CALLNAME:TARGET%正在学习%TEXTR("数学/物理/化学/工程/医学/解剖学/生物学/语言学/地理/法律")%。
		CASE 1
			PRINTFORML 「……………。」
			PRINTFORM %CALLNAME:TARGET%将
			PRINTFORM 『%TEXTR("事到如今听不到的战时国际法/发现东西的方法、隐藏的方法/危急时刻的防身术/诡雷图集/基础战时应急处理/肌肉的锻炼方法与使用方法/达尔马维亚语词典")%』的书
			PRINTFORML ……
			;基本的に全部架空の題名。偶然一致してたらごめんね
		CASE 2
			PRINTFORML 「%TEXTR("……唔/………。/…………/嗯嗯…/唔、哈…/1、2…")%」
			PRINTFORM %CALLNAME:TARGET%正在进行%TEXTR("柔软体操/俯卧撑/平板支撑/深蹲/难以形容的种类的肌肉力量训练")%的锻炼
			PRINTFORML ……
		CASEELSE
			PRINTFORML 「%TEXTR("………。/…………/・ω・")%」
			IF COND("夜")
				PRINTFORML %CALLNAME:TARGET%正在%TEXTR("组装某些机器/分解某些机器/转动笔，有时像把刀子一样摆好/放松身体/读报纸")%……
			ELSE
				PRINTFORML %CALLNAME:TARGET%正在%TEXTR("阅读报纸/绘制地图/用双筒望远镜观察外面")%……
			ENDIF
	ENDSELECT
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K29
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF !RAND:255
	PRINTFORML 「ﾋﾟｯﾋﾟﾘﾋﾟｰ ﾊｲｼﾞｮｰ ﾎﾝﾊｰ ﾊｲﾎｰﾍﾝﾍｰ」
ELSEIF RAND:3
	IF !RAND:23
		PRINTFORML %CALLNAME:TARGET%很放松的样子。
	ELSEIF !RAND:3
		PRINTFORML 「……すー……すー………（鼾声）」
	ELSEIF !RAND:2
		PRINTFORML 「…………ｚｚｚ」
	ELSE
		PRINTFORML 「…………ほゎ……（鼾声）」
	ENDIF
ELSEIF RAND:2
	IF !RAND:23
		PRINTFORML 「…有趣吗………ｚｚｚ」
	ELSEIF !RAND:3
		PRINTFORML 「………？…………。」
	ELSEIF !RAND:2
		PRINTFORML 「……呜喵、%CNAME("二人称")%…？………ｚｚｚ」
	ELSE
		PRINTFORML 「……niu……………」
	ENDIF
ELSE
	IF !RAND:23
		PRINTFORML 「……需要扫描数据吗………ｚｚｚ」
	ELSEIF !RAND:3
		PRINTFORML 「ｚｚｚ……这里、是哪里啊…………」
		PRINTFORML 「不是在%TEXTR("玩飞镖/骑上奇怪的生物/卷入枪战/脚上穿着什么飞行器/水上滑行/成为女仆")%吗……ｚｚｚ」
	ELSEIF !RAND:2
		PRINTFORML PRINTFORML 「…%TEXTR("不、不要/不要啦/不知道")%……%TEXTR("格子裙/比基尼铠甲/高跟鞋铠甲/爱知世博会服装/UNIQLO制服装/色情的忍者服装/刀剑乱舞cosplay服 /男性版麒麟套装/男性版迅龙套装")%什么的不想穿……zzz」
	ELSE
		PRINTFORML 「……欸、%CNAME("一人称")%…？ｚｚｚ………」
	ENDIF
ENDIF

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

SELECTCASE ARGS
CASE "学園での日常"
	IF CEVENT("小団扇桑：邂逅") == 0
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%在教室里被两个男生缠住了。
		PRINTL
		PRINTFORML - Ａ太 -
		PRINTFORM 『你、
		IF CEVENT("百合の波動に目覚めた碧") == 1
			PRINTFORMW 听说你参加了那个社团？』
			PRINTL
			PRINTFORML - %CALLNAME:TARGET% -
			PRINTFORMW 「那个社团活动……是指那个？」
			PRINTL
			PRINTFORML - Ｂ男 -
			PRINTFORMW 『辞掉那种社团活动，、【保守主義同好会】怎么样？』
			PRINTL
			PRINTFORML - %CALLNAME:TARGET% -
			PRINTFORMW 「【保守主義同好会】？为什么啊。」
			PRINTL
			PRINTFORML - Ａ太 -
			PRINTFORML 『像你这样的美女，竟然成为那可恶的部长的东西……
			PRINTFORMW 　毫无意义地度过污秽不堪的学校生活，实在是太浪费了
			PRINTFORMW 　在【保守主義同好会】学习正确的伦理观和常识会更有意义』
			PRINTL
			PRINTFORML - %CALLNAME:TARGET% -
			PRINTFORMW 「说什么呢，直接跟部长说不就好了。」
			;PRINTFORMW 「（しかも、%CNAME("一人称")%の視線の先に丁度おるやん…）」
			PRINTL
			PRINTFORML - Ｂ男 -
			PRINTFORMW 『嘛，不是强制，所以不会勉强。』
			PRINTL
			PRINTFORML - %CALLNAME:TARGET% -
			PRINTFORMW 「哈啊…」
			PRINTL
			PRINTFORML - Ａ太 -
			PRINTFORM 『对了，我还有一件事想问你……
		ENDIF
		PRINTFORMW 你知道有个叫【片峰 珪】的女人吗』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「嗯，那又怎么样?」
		PRINTL
		PRINTFORML - Ｂ男 -
		PRINTFORML 之前那个女人在追求【保守主義同好会】的女生。
		PRINTFORMW 　差点给那个女生留下一生中最大的污点。
		PRINTFORMW 　因为是同一个姓，所以可能是亲戚，我觉得可能知道些什么。』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「不、我不知道。
		PRINTFORMW 　话说回来、你是从哪里听说的。（实际上不是亲戚，而是亲姐姐。）」
		PRINTL
		PRINTFORML 就在这时。
		PRINTFORMW 在男生和%CALLNAME:TARGET%之间，一个戴眼镜的女生挤了进来。
		PRINTFORMW 那个女生的黑发从两肩垂下，从袖标来看，应该是风纪委员。
		PRINTL
		PRINTFORML - 風紀委員 -
		PRINTFORMW 『喂，那边的两个人!又在搭讪吗！？』
		PRINTL
		PRINTFORML - Ａ太 -
		PRINTFORMW 『才不是搭讪』
		PRINTL
		PRINTFORML - Ｂ男 -
		PRINTFORMW 『不不、只是普通聊天啊。』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「『又』て。也就是说之前也发生过同样的事情？」
		PRINTL
		PRINTFORML - 風紀委員 -
		PRINTFORMW 『是的。这两个人所属的【保守主義同好会】是从政治部分裂出来的同好会。
		PRINTFORML 　但不知为何，对社会教师恶言恶语，并在SNS上传播可疑的阴谋论。
		PRINTFORMW 　男性社员搭讪女性同性恋者等，令人费解的行为最近增加了。』
		PRINTL
		PRINTFORML - Ｂ男 -
		PRINTFORMW 『说法太恶劣了。我们【保守主義同好会】为了这个国家的未来做了很多事。』
		PRINTL
		PRINTFORMW B男(暂称)不知何时将自动手枪举到风纪委员眼前。
		PRINTL
		PRINTFORML - 風紀委員 -
		PRINTFORMW 『……っ！？』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「……！（哇啊、上膛的方法看上去像是真货啊……）」
		PRINTL
		PRINTFORML - Ａ太 -
		PRINTFORMW 『住手，在这里使用它实在太危险了!』
		PRINTL
		PRINTFORML - Ｂ男 -
		PRINTFORMW 『我知道了。………唔？谁打来的。』
		PRINTL
		PRINTFORMW B男收起手枪，接起了打来的电话。
		PRINTL
		PRINTFORMW …
		PRINTL
		PRINTFORML - 安藤老师（電話） -
		PRINTFORMW 『我是安藤。有件事想口頭告诉【保守主義同好会】的所有人。
		PRINTFORMW 　午休时间或放学后都可以，希望到第二实验室来。』
		PRINTL
		PRINTFORMW 安藤老师只说了这么一句，就立刻関掉了电话线。
		PRINTL
		PRINTFORML - Ｂ男 -
		PRINTFORMW 『……好，好，遵命。安藤老师叫我们到第二实验室来。走吧。』
		PRINTL
		PRINTFORML - Ａ太 -
		PRINTFORMW 『哦、是吗……彼此都捡了条命呢』
		PRINTL
		PRINTFORMW 两名男生离開了那里…
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「他们是什么人啊……」
		PRINTL
		PRINTFORML - 小団扇 倖帆 -
		PRINTFORMW 『啊、重新介绍…我叫【小団扇 倖帆】。
		PRINTFORML 　好像什么都没做，我就放心了。
		PRINTFORMW 　最近胡同里出现了好几个离奇死亡的人，集体诱拐事件等奇怪的事件也很多…』
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「谢谢，有什么困难就说出来吧。
		PRINTFORMW 　……越是可怕的时候，越要在真正困难的时候互相帮助」

		CALL SET_CEVENT, "小団扇桑：邂逅"
	ELSEIF CEVENT("組織の正体") == 0 && CEVENT("小団扇桑：完治")
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为家族と電話しているようだ…
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「是、这里是%CALLNAME:TARGET%。爸爸吗？」
		PRINTL
		PRINTFORML - 片峰 灰簾 -
		PRINTFORMW 「现在接电话的就是那个父亲。」
		PRINTFORMW 「听说%CALLNAME:TARGET%卷入了什么事件，没有受伤吧？」
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「是的、%CNAME("一人称")%没有受伤。」
		PRINTFORMW 「话说回来有什么事情、父亲？」
		PRINTL
		PRINTFORML - 片峰 灰簾 -
		PRINTFORMW 「我要说的不是别的，是関于集体绑架事件的事情。
		PRINTFORML 　简单地说，这个做出集体绑架事件的组织
		PRINTFORMW 　是我的公司【片峰保全】不共戴天的敌人。」
		PRINTFORMW 「那个组织的名字叫做【卡基拉斯】。
		PRINTFORMW 　是要毁灭世界上所有女同性恋的组织。」
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「也就是说…姐姐很危险啊。」
		PRINTL
		PRINTFORML - 片峰 灰簾 -
		PRINTFORMW 「啊，那就不用担心了。刚回来。」
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「哦，那就太好了。」
		PRINTFORMW 「爸爸、那个【カーキラス】的情报是从哪里入手的啊？」
		PRINTL
		PRINTFORML - 片峰 灰簾 -
		PRINTFORMW 「那个啊、不知道为什么从【法皇庁】那里得到了情报。」
		PRINTFORMW 「是和我们公司颇有渊源的【小団扇 徳】助祭提供的。」
		PRINTL
		PRINTFORML - %CALLNAME:TARGET% -
		PRINTFORMW 「」

		CALL SET_CEVENT, "組織の正体"
	ELSEIF CFLAG:好感度 >= 300 && CEVENT("エピソード１：どこが怖い？") == 0
		CALL K29_LONG_EPISODE1
	ENDIF

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

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

	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		IF !RAND:10
			PRINTFORMW 「到底有没有预防的方法呢…」
			SIF !RAND:10
				PRINTFORMW 「啊、找到了。这也太贵了！？」
		ELSEIF !RAND:9
			PRINTFORMW 「这是…机能美……！」
		ELSEIF !RAND:2
			PRINTFORMW 「……嗯，都是尺寸不合适的。」
		ELSE
			PRINTFORMW 「……你想要再结实一点的吗？。」
		ENDIF
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "買食物", "物色游戏"
		PRINTFORMW
	CASE "站着读书"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「%GREETING%。」
	ELSE
		PRINTFORMW 「%GREETING%。」
	ENDIF
CASE "叫醒"
	IF !RAND:3 && TRUE_SEX(MASTER) == "男性"
		PRINTFORML 「……！」
		PRINTFORM %CALLNAME:TARGET%的动作非常快，简直不像是刚睡醒。
		SELECTCASE RAND:3
			CASE 0
				IF TALENT:MASTER:大力士 > TALENT:大力士 || !RAND:4
					PRINTFORMW 直接撞上了%CALLNAME:MASTER%
				ELSEIF TALENT:恋慕
					PRINTFORMW 抱住了%CALLNAME:MASTER%。
				ELSE
					PRINTFORMW 把%CALLNAME:MASTER%从背后的肋下锁住了双臂和脖子。
				ENDIF
			CASE 1
				PRINTFORMW %TEXTR("直拳/反手拳/踢击/肘击")%对%CALLNAME:MASTER%的%TEXTR("胸口/脸/下腹部")%に%TEXTR("挥出/直接击中了/想要击中却被避開了/想要击中却犹豫了/浅尝辄止了")%。
			CASEELSE
				IF TALENT:恋慕
					PRINTFORMW 抱住了%CALLNAME:MASTER%。
				ELSEIF TALENT:MASTER:大力士 > TALENT:大力士 || !RAND:6
					PRINTFORMW 钻进床底下了。
				ELSE
					PRINTFORMW 紧紧地握住%CALLNAME:MASTER%的手臂。
				ENDIF
		ENDSELECT
		IF TALENT:恋慕
			PRINTFORMW 「啊…%CNAME("二人称")%、对不起。」
		ELSE
			PRINTFORMW 「什么啊、%CNAME("二人称")%呀……」
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、早上好。」
		PRINTFORMW %CALLNAME:TARGET%有点困地開始进行%TEXTR("準備体操/早上的准备")%…
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「呜、早点睡吧……」（摇摇晃晃）
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		PRINTFORMW 「%TEXTR("哦，谢谢。/FUFU……高兴吗?/嗯，这样啊……如果不是讽刺，那是高兴吗?")%」
	CASE "甜言蜜语"
		IF TALENT:恋慕 && CALCF("甜言蜜语成功")
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「唔、挺会说话的嘛……」
				CASE 1
					PRINTFORMW 「%CNAME("一人称", "どもり")%也喜欢%CNAME("二人称")%啊……。」
				CASE 2
					CALL PRINT_STR, @"「………_H_」（发呆…）_L"
					PRINTFORMW 「…好、好了、都让我有点走神了」（擦口水）
				CASEELSE
					CALL PRINT_STR, @"「诶嘿…_／／／_」（笑嘻嘻）_L"
					PRINTFORMW 「…啊、不行不行」
			ENDSELECT
		ELSEIF CALCF("甜言蜜语成功")
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「う、やるやん……。」
				CASE 1
					PRINTFORMW 「诶嘿……」（笑嘻嘻）
					PRINTFORMW 「…啊、不小心脸颊松弛了……」
				CASE 2
					PRINTFORMW 「………。」（发呆…）
				CASEELSE
					PRINTFORMW 「嗯、谢谢……。」
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「呜？（不太懂什么意思…。）」
				CASE 1
					PRINTFORMW 「呜嗯…」
				CASE 2
					PRINTFORML 「……？」
					PRINTFORMW 好像不太明白意思。
					CALL EMOTION_PLUS, "重置/〇〇/困扰眉/ω"
				CASEELSE
					PRINTFORMW 「……啊，对不起，我没听懂…。」
			ENDSELECT
		ENDIF
	CASEELSE
		IF !RAND:4
			PRINTFORMW 「関于%CNAME("一人称")%的姐姐的事情？」
			PRINTFORML 「嗯、不包庇坏人、在%CNAME("一人称")%看来……」
			PRINTFORM 「%TEXTR("一到早晨就好像随时都会消失似的/很珍惜相遇的偶然/只说些不是对话的话/很害怕明天/好像只要能为谁而活就什么都不怕的/好像不会依赖温柔的/即使是一个人好像要找回受伤的梦/在冰冷的夜空下悲哀地開玩笑/拥有一个人无法消除的心痛/不想拥有自由/在逃跑之前不幸就会降临/被无数的爱包围着的心独自一人/有时会变得沉默。")%
			PRINTFORMW %TEXTR("大概是这种的/有这种的/也许有这种的")%。印象深刻」
			;注釈：碧の地元出身である某漫画家における有名な代表作の动画版主題歌ネタ。
		ELSEIF !RAND:3
			SELECTCASE RAND:4
				CASE 0
					IF TALENT:MASTER:大力士 >= 1
						IF TALENT:MASTER:大力士 >= 4
							PRINTFORMW 「已经超越了%CNAME("一人称")%足足10年努力的程度了…。」
							PRINTFORMW 「灵魂的力量　竟然这么厉害…。」
							CALL EMOTION_PLUS, "重置/〇〇/困扰眉/ω"
						ELSE
							PRINTFORMW 「说起来%CNAME("二人称")%、锻炼身体的话……？」
							PRINTFORMW 「………灵魂的交易? !光是这样就够了吗?平常锻炼一下维持下去吧…。」
							CALL EMOTION_PLUS, "重置/闭眼/困扰眉"
						ENDIF
					ELSE
						PRINTFORMW 「有空的话教%CNAME("二人称")%几个护身术吧？」
						IF TRUE_SEX(MASTER) == "男性"
							PRINTFORML %CALLNAME:TARGET%脸上浮现出笑容、已经做好了准备。看起来是认真的…！
							PRINTFORMW %CALLNAME:MASTER%带着各种各样的理由拒绝了…
							CALL EMOTION_PLUS, "重置/笑颜"
						ELSE
							PRINTFORMW 「没関系、因为是实战形式、所以可能会很辛苦、但绝对会掌握的。」
							PRINTFORMW 先拒绝了%CALLNAME:MASTER%…
						ENDIF
					ENDIF
				CASE 1
					PRINTFORMW 「别看%CNAME("一人称")%这样、对视力还是很有自信的」
					IF (FIND_COND("現在存在", "卡莉斯塔") || FIND_COND("現在存在", "乃々")) && RAND:4 == 0
						PRINTFORMW 「天使的%TEXTR("翅膀/光环")%也能看到……」
						PRINTFORMW 「话说、现在都不隐藏起来了吗…有点儿没劲呐」
						CALL EMOTION_PLUS, "重置/斜眼/困扰眉"
					ELSEIF FIND_COND("現在存在", "西西莉亚") && RAND:3 == 0
						PRINTFORMW 「噢、有人在骑着扫帚飞」
						PRINTFORMW 「一个是初等部5年级的女生、另一个是……%CNAME("西西莉亚")%吗？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「话说回来，果然要真正识破阻碍认识的事实是很难的。」
					ELSE
						PRINTFORMW 「……就像肩上沾了垃圾。」
					ENDIF
				CASE 2
					PRINTFORM 「之前
					IF !RAND:2
						PRINTFORML 我读过一本叫《世界上隐藏的名画莉娜-沃格尔》的书。
						PRINTFORMW 　如果藏起来，那还是名画吗?……内容本身非常有趣。」
					ELSE
						;动画の标题の一部は実在の作品を大幅にもじってます
						;                   このアンダーバーは長音記号を表しています→_
						;English title→AssaultWizards/GlitchGirl SlashStar/AikokuSeihu ZaiGenGar/RuneKleid SigelDrei
						PRINTFORMW 『%TEXTR("突击Wizers/魔法少女SplashStar/愛国清風再现/呪紋鋼人西泽尔Ⅲ")%』看了动画之后，觉得相当有趣。。」
						PRINTFORMW 「里面的%TEXTR("段子很入迷/政治讽刺特别好/战斗场面很好地再现了实际的武器/场面播放的曲子特别好")%是优点……」
					ENDIF
					CALL EMOTION_PLUS, "重置/笑颜"
				CASEELSE
					PRINTFORML 「%TEXTR("……！/ふっ……、はっ…！")%」
					PRINTFORMW %CALLNAME:TARGET%正在进行%TEXTR("拼命的/努力的")%肌肉锻炼。
					IF !RAND:3
						CALL PRINT_STR, @"「……%TEXTR("身体即使锻炼也不会吃亏的/即使这样习惯化了也会很開心的吧？/肌肉一天也是练不成的。")%」_L"
					ELSEIF !RAND:2
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMW 「……这个？%CNAME("一人称")%的……每天的功课。」
							CASE 1
								PRINTFORMW 「不能像%CNAME("二人称")%那样有很多灵魂，训练很重要……」
							CASEELSE
								PRINTFORMW 「哦、%CNAME("二人称")%也一起做……？」
						ENDSELECT
					ELSE
						PRINTFORML 「……那么、%CNAME("二人称")%喜欢很多肌肉吗？」
						PRINTFORMW 「嗯……只是稍微问问而已。」
					ENDIF
			ENDSELECT
		ELSEIF !RAND:2
			SELECTCASE TEXTS("季節詳細")
				CASE "冬"
					IF !RAND:3
						PRINTFORML 「」（哆哆嗦嗦）
						PRINTFORMW 冷得根本谈不上话。
					ELSEIF !RAND:2
						PRINTFORML 「……哦、下雪了。」
						PRINTFORMW 「%CNAME("一人称")%的老家也总是下雪、到这里会不会也下很多雪呢……。」
					ELSE
						PRINTFORMW 「嗯……冷得浑身无力了快。」
						SIF FIND_COND("現在存在", "哈娜")
							PRINTFORMW 「%CNAME("哈娜")%是……到外面了吧。」
						CALL EMOTION_PLUS, "重置/斜眼/困扰眉"
					ENDIF
				CASE "晩秋"
					IF !RAND:2
						PRINTFORMW 「冬天……就这么靠近了。%CNAME("一人称")%挺怕冷的……」
					ELSE
						PRINTFORMW 「啊……今后会更冷了呢……」（哆哆嗦嗦）
					ENDIF
				CASE "秋"
					IF !RAND:2
						PRINTFORML 「换季的时候，要为穿什么衣服而烦恼」
						PRINTFORMW 「早晚的气温和湿度完全不同，天气也很多变……」
					ELSE
						PRINTFORML 「话说回来、『○○之秋』真是太多了吧。」
						PRINTFORMW 「艺术，食欲，体育……。大概有几种呢？」
					ENDIF
				;CASE "夏"

				CASE "春"
					IF !RAND:2
						PRINTFORMW 「樱花漂亮吗……。」
						PRINTFORMW 「%CNAME("一人称")%的老家、叶子已经长出来了吗？」
					ELSE
						PRINTFORMW 「天气渐渐暖和起来了呢……。」
						PRINTFORMW 「一直这样就好了。」
					ENDIF
				CASEELSE
					PRINTFORMW 「怎么了、%CNAME("二人称")%？　……只是试着叫了一下？」
			ENDSELECT
		ELSE
			PRINTFORMW 「関于%CNAME("一人称")%的老家……？」
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「一直听说美女很多……实际上又怎么样呢？」
					PRINTFORMW 「%CNAME("一人称")%也是美女吗？……嘻嘻嘻。」
				CASE 1
					PRINTFORMW 「作为茶叶的产地……其他地方比较有名呢。」
				CASEELSE
					PRINTFORMW 「都市和乡下适度混合的适合居住的地方吧……？」
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "拭汗"
	IF TALENT:恋慕 && RAND:2
		PRINTFORMW 「%CNAME("二人称")%、%TEXTR("谢谢了/舒服多了")%」
	ELSE
		PRINTFORMW %TEXTR("「啊、多管闲事。」/（哇，我闻到汗味了……。）/（真的只是擦汗吗……）")%
	ENDIF

CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K29
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		PRINTFORMW
	CASE "按摩"
		PRINTFORMW
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW
	CASE "勸酒"
		PRINTFORMW
	CASE "一起学习"
		SELECTCASE BASE:学力
		CASE IS >= 70
			IF BASE:MASTER:学力 >= BASE:学力
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「物体在空气中移动的速度可以直接计算出来，行星的公转速度」
					PRINTFORMW 「在这种情况下，很少有这样的要求。」
				CASEELSE
					PRINTFORMW 「这种思想中、○○这个部分可能是错误频频发生的地方吧。」
					PRINTFORMW 「一步之差、意思就完全相反了……」
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「假设秒速840m的物体的水平速度为2000米每秒340米、中间速度约为秒速590m。」
					PRINTFORML 「（中略）3.39秒内物体落下的距离（无视空气阻力））
					PRINTFORMW 　是"0.5×9.8×（3.39）＾2＝56.31〔m〕"……。」
					;PRINTFORMW 弾道学だこれー！？
				CASEELSE
					PRINTFORMW 「这道历史题，这个才是正确答案吗……？」
					PRINTFORMW 「啊、这个年级的话就要学习到那种程度……」
				ENDSELECT
			ENDIF
		CASE IS >= 50
			IF RAND:2 || BASE:MASTER:学力 >= BASE:学力 + 10
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「……物理、化学都很擅长、地理学却学的特别难啊。」
					PRINTFORMW 岩石的名字和性质、我都记不住了……」
				CASE 1
					PRINTFORM 「%CNAME("二人称")%、这本书里写的内容
					PRINTFORM 『%TEXTR("brb/coz/Дыьжгъ/E E I S A E D F A E/Naughtzis/sup/ppl/ОппаиЧуукураидакараСуки")%』
					PRINTFORMW 是什么意思？」
				CASEELSE
					PRINTFORMW 「用那个公式就好了之类的。完全不同的解法呢……」
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「物理学习比较勉强？%CNAME("一人称")%出一个例题吧。」
					PRINTFORMW 气压为1013hPa、外部气温为华氏14度时、请以马赫数表示秒速850m》
				CASEELSE
					PRINTFORMW 「%CNAME("二人称")%、稍微好点吗？这一点还不能理解呢……」
					PRINTFORMW 「什么、%CNAME("二人称")%都不知道啊……？　那怎么能行……」
				ENDSELECT
			ENDIF
		CASE IS <= 20
			PRINTFORMW 「哇、%CNAME("一人称")%变得连这么简单的事情都不知道了……」
		CASEELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「好一点吗？完全搞不懂这里……」
			CASE 1
				PRINTFORMW 「……哎呀、连语法都弄错了。这个没注意到啊……」
			CASEELSE
				PRINTFORMW 「出现在这段历史上的这家伙、我个人很讨厌呢……」
			ENDSELECT
		ENDSELECT

	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K29
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "抱住", "把胸部压了上去"
		CALL PRINT_STR, @"「%TEXTR("唔啾/啾/偶尔也要撒下娇吧？")%」_L"
		SIF !RAND:5
			PRINTFORMW %CALLNAME:TARGET%微散发出烟花般的香味…。
	CASE "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "膝枕"
		PRINTFORMW 「%TEXTR("你看……偶尔撒撒娇也没関系。/好了好了，好孩子好孩子……")%」
	CASE "手淫"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		IF RAND:5 == 0
			PRINTFORMW 「%SAVESTR:茶%ﾄﾞｿﾞｰ」
		ELSE
			PRINTFORMW 「よければ%SAVESTR:茶%どうぞ。」
		ENDIF
	;それ以外
	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 "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K29
		WAIT
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			;連続実行
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%、适、适可而止吧……」
			CASE 1
				PRINTFORMW 「」（咔库咔库布噜布噜）
			CASEELSE
				PRINTFORMW 「真是的、没完没了一直……」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「为、为什么要碰那里……」
			CASE 1
				PRINTFORMW 「你、你想干什么? !」
			CASEELSE
				PRINTFORMW 「果、果然还是觉得好丢人啊……」
			ENDSELECT
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K29
		WAIT
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			;連続実行
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「呜呜……刚才被你看到了吗？」
			CASE 1
				PRINTFORMW 「还想继续吗？」
			CASEELSE
				PRINTFORMW 「唔……已经好了吗？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%真的喜欢这样呢……」
			CASE 1
				PRINTFORMW 「呜、看上去很開心的样子……」
			CASEELSE
				PRINTFORMW 「就、就那么想看吗……？」
			ENDSELECT
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K29
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW 「贴、贴太近了…。」
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW %CNAME("二人称", "どもり")%、鼻子都和那里贴在一起了……！？
		CASE 1
			PRINTFORMW 「嗯，这也不错啊……」
		CASEELSE
			PRINTFORMW 「呜呜、还是觉得害羞……」
		ENDSELECT
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「你来掀開和我自己卷起来、比较想要哪一种呢……」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「…刚才看见了吧？」
		;胖次沒穿
		ELSEIF EQUIP:胖次 == 0
			PRINTFORMW 「不管怎么想都觉得好害羞……」
		ELSE
			PRINTFORMW 「欸、那个…、这样可以吗？」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「ぅ…、%CNAME("二人称")%总是做这种荒唐事……」
			CASE 1
				IF TRUE_SEX(MASTER) == "男性"
					PRINTFORML 「……嗯」（警觉）
					PRINTFORMW %CALLNAME:TARGET%的%TEXTR("秀腿/拳頭")%直接命中了%CALLNAME:MASTER%的%TEXTR("胸口/面部/小腹")%…。
				ELSE
					PRINTFORMW 「……ん？」
				ENDIF
			CASEELSE
				PRINTFORMW 「什、什么、是%CNAME("二人称")%啊……。」
			ENDSELECT
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K29
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「啊、什么呀……？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「哇、能不能再确认一下……」
		ELSE
			IF COND("打招呼前")
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「喂、喂！不要擅自这种恶作剧…。」
				CASE 1
					PRINTFORMW 「……哈！？」
				CASEELSE
					PRINTFORMW 「哎呀、突然说不行……」
				ENDSELECT
			ELSEIF EQUIP:胖次 == 0
				PRINTFORMW 「不、不要啊、再怎么说还是停下吧……！」
			ELSE
				PRINTFORMW 「欸、又来……？」
			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
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「%CNAME("二人称")%、星期天的安排%TEXTR("空出来了吧/空出来了吧")%……？」
	IF CEVENT("约会：救出作戦／碧")
		PRINTFORMW 「就像之前说的那样、救出作戦你会来吧？」
	ELSEIF CEVENT("組織の正体") && CEVENT("救出作戦：成功") == 0
		PRINTFORMW 「也就是说、前几天说了"搜索工厂地带附近"的话……不是吗？」
		PRINTFORM 「不过、
		IF FINDCHARA(NO, 20) > 0
			PRINTFORM %NAME:FINDCHARA(NO, 20)%酱
		ELSEIF FINDCHARA(NO, 1) > 0
			PRINTFORM %NAME:FINDCHARA(NO, 1)%酱
		ELSE
			;現状では実質有些得ない分岐
			PRINTFORM %CNAME("二人称")%的母亲
		ENDIF
		PRINTFORMW 听说发现了绑架组织的据点。」
		PRINTFORMW 「%CNAME("一人称")%和父亲经营的警卫公司的职员们一起去救出人质」
		PRINTFORMW 「这个星期天，如果可以的话……能和我一起来吗?」
		CALL SET_CEVENT, "约会：救出作戦／碧"
	ELSE
		PRINTFORMW 「%TEXTR("如果可以的话/有空的话")%一起出門吧。」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW 「……谢谢你、%CNAME("二人称")%。」
		IF CEVENT("约会：救出作戦／碧")
			PRINTFORMW 「从学校步行到尽頭的距离、在正門前等着吧。」
		ELSE
			PRINTFORMW 「如果可以的话也要决定去哪里。」
		ENDIF
	;你に保留されてしまった
	ELSEIF CEVENT("约会：救出作戦／碧")
		PRINTFORMW 「嗯……我明白了。」
		PRINTFORMW 并不是现在马上、只是有预定%TEXTR("确定/无吗？")%时间告诉我吧……」
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	PRINTFORMW
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 『……哎、现在開始啰!?』
		SIF EXP:约会経験 == 0
			PRINTFORMW 『这种事情至少应该前一天说吧……』
		PRINTFORMW 『知道了、准备好了就去，等着我。』
	ELSE
		PRINTFORMW 「现、现在去？」
		PRINTFORMW 那就等着我准备吧。」
	ENDIF

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF CEVENT("约会：救出作戦／碧")
		PRINTFORMW 「哦……比规定的时间来得早。」
		PRINTFORMW 「那么、我带你去吧。」
	ELSEIF 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
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
		PRINTFORMW
CASE "手をつながない"

;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
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 "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/29 碧/EVENT_K29_DAILY.ERB


code:
;-------------------------------------------------
;基本部分が異常に長くなりかねないので、
;用語解説をここに放り込みます。
;あとネタバレ防止等も兼ねてます。
;-------------------------------------------------

@K29_LONG_INDEX
#DIM L_INPUT

$K29_INPUT_LOOP
PRINTFORML 閲覧したい項目を選択して下さい。
DRAWLINE
PRINTL
PRINTLC [0] 人物
PRINTLC [1] 組織
;PRINTLC [2] 国名・地名等
;PRINTLC [3] 用語（其他）
PRINTL
PRINTFORML [999] やめる
INPUT
L_INPUT = RESULT

CLEARLINE LINECOUNT
SELECTCASE L_INPUT
CASE 0
	$K29_INPUT_LOOP_CHARACTER
	CLEARLINE LINECOUNT
	PRINTL ＊人物＊
	PRINTFORM [0] 片峰 %CALLNAME:TARGET%
	PRINTFORM [1] 片峰 珪
	PRINTFORM [2] 片峰 灰簾
	PRINTFORML [3] 片峰 瑪瑙
	SIF CEVENT("小団扇桑：邂逅")
		PRINTFORM [4] 小団扇 倖帆
	SIF CEVENT("組織の正体")
		PRINTFORM [5] 小団扇 徳
	PRINTFORML
	IF CEVENT("実行犯現る？")
		PRINTFORM [6] 霜越 明日太
		PRINTFORM [7] 天摩 希男
	ENDIF
	PRINTFORML
	PRINTFORML [999] 返回
	INPUT
	L_INPUT = RESULT
	CLEARLINE LINECOUNT
	SELECTCASE L_INPUT
	CASE 0
		PRINTFORML 片峰家の次女。
		PRINTFORML 父母の双方から「家を守れるくらい強くなって欲しい」とのことで、
		PRINTFORML 幼少期から筋力训练を始めとして、
		PRINTFORML 護身術の鍛錬や対抗魔術の学習、
		PRINTFORML 果ては銃器含む武器の扱い等、様々な鍛錬を受けている。
	CASE 1
		PRINTFORML 片峰 珪（かたみね けい）
		PRINTFORML %CALLNAME:TARGET%の姉。
		PRINTFORML 黙っていればクールな美人といえる風貌だが、
		PRINTFORML その魅力をぶち壊しにしかねないほどの女好きで、
		PRINTFORML 街道すがりの美女を口説いたりナンパしたりすることが時々ある。
		PRINTFORML それ故か超人的な観察眼や直感を有しており、
		PRINTFORML どれ程美しくても性転換した者や女装した男性には微塵も反応しない。
	CASE 2
		PRINTFORML 片峰 灰簾（かたみね かいれん）
		PRINTFORML %CALLNAME:TARGET%と珪の父。
		PRINTFORML 地元では警備会社『片峰セキュリティ』を経営している。
		PRINTFORML 家族や社員を含む他者をより良い方向へ育てることや
		PRINTFORML より良いパフォーマンスを発揮させること等に対して天才的なセンスを誇る。
	CASE 3
		PRINTFORML 片峰 瑪瑙（かたみね めのう）
		PRINTFORML %CALLNAME:TARGET%と珪の母。
		PRINTFORML 由緒正しき魔術師的家系で育っており、錬金術系の魔術を一街道修めている。
		PRINTFORML それらを警備会社の業務に応用し、魔術的な変装を見破ったり、
		PRINTFORML 魔術的な危険物を取締まったりしている。
	CASE 4
		PRINTFORML 小団扇 倖帆（こうちわ さちほ）
		PRINTFORML %CALLNAME:TARGET%が偶然知り合った風紀委員。種族は人类。
		CALL PRINT_STR, "二つお下げの黒髪に眼鏡という_-_コテコテな_姿をしている。_L"
	CASE 5
		PRINTFORML 小団扇 徳（こうちわ ただし）
		PRINTFORML 小団扇 倖帆の父で、法皇庁に所属する情報収集のスペシャリスト。
		PRINTFORML その実力故、終身助祭で有ながら事務局神秘情報管理部の長官を務める。
		PRINTFORML 片峰セキュリティとは情報機器等の取引にてお得意様となっている。
		PRINTFORML 何故なら片峰セキュリティ製の情報機器は認識阻害さえ無効化出来るのだから。
	CASE 6
		PRINTFORML 霜越 明日太（しもえつ あすた）
		PRINTFORML 『保守主義同好会』に加入している男子生徒。
		SIF CEVENT("組織の正体")
			PRINTFORML 家族そろって魔術犯罪組織『カーキラス』の一員で有、
		PRINTFORML 父親から初歩的な魔術を学んでいる。
		;PRINTFORML ※但し、西西莉亚桑が言うところの
		;PRINTFORML 　『実用的な「使い方」しか知らないような』奴。
	CASE 7
		PRINTFORML 天摩 希男（てんま まれお）
		PRINTFORML 『保守主義同好会』に加入している生徒。
		PRINTFORML 同性愛、特にレズビアンを執拗に嫌悪しており、
		PRINTFORML それらを必要とあれば『駆除』出来るよう常に銃器を持ち歩いている。
		PRINTFORML なお、銃器そのものに認識阻害がかかっており、
		PRINTFORML 誰かに突きつけたり発砲したりしない限り所有が発覚することはない。
	CASE 999
		GOTO K29_INPUT_LOOP
	CASEELSE
	ENDSELECT
	PRINTFORMW
	GOTO K29_INPUT_LOOP_CHARACTER
CASE 1
	$K29_INPUT_LOOP_SOCIETY
	CLEARLINE LINECOUNT
	PRINTL ＊組織＊
	PRINTFORM [0] 片峰セキュリティ
	SIF CEVENT("救出作戦：成功")
		PRINTFORML [1] 特殊実働隊
	SIF CEVENT("小団扇桑：邂逅")
		PRINTFORML [2] 保守主義同好会
	SIF CEVENT("実行犯現る？")
		PRINTFORML [3] 警視庁神秘事件対処部隊
	SIF CEVENT("小団扇桑：治療可能")
		PRINTFORML [4] 法皇庁
	SIF CEVENT("組織の正体")
		PRINTFORML [5] カーキラス
	PRINTFORML
	PRINTFORML [999] 返回
	INPUT
	L_INPUT = RESULT
	CLEARLINE LINECOUNT
	SELECTCASE L_INPUT
	CASE 0
		PRINTFORML %CALLNAME:TARGET%の父である片峰 灰簾が代表取締役社長を務める警備会社。
		PRINTFORML この世界においてはそれなりの規模を誇っており、
		CALL PRINT_STR, "_-_本社（一戸建て）のしょぼさと_業務の信頼性に定評がある。_L"
		PRINTFORML 「社員の労働効率を向上させる」名目で労働基準の厳守等に力を入れており、
		PRINTFORML 賃金の多さも相まって警備会社とは思えない程のホワイト企業と化している。
		PRINTFORML 社風としては社会的企業という傾向が很强が、良い意味で任侠的だったり、
		PRINTFORML 時に違法な手段も問わないことから危ない企業だと勘違いする人も居る。
	CASE 1
		PRINTFORML 片峰セキュリティが保有する対神秘武装組織。広義の私兵である。
		PRINTFORML 特に室内戦闘を重視した装備を保有しているが、
		PRINTFORML 主にワイヤー式スタンガンや冷凍銃などの低殺傷武器を使うことが多い。
	CASE 2
		PRINTFORML 方向性の違いが原因で政治部から分裂した同好会。
		PRINTFORML ……だったのだが、認識阻害を悪用することで武装勢力と化していた。
		PRINTFORML 『保守主義同好会』という名称ではあるものの、
		PRINTFORML 傾向としては単なる保守主義というより復古主義である。
		PRINTFORML 主に「男権主義」「国粋主義」「反同性愛主義」の三つを軸として
		PRINTFORML 積極的な政治活動を行っており、犯罪組織との関与も深い。
	CASE 3
		PRINTFORML この世界において魔術や悪魔、天使などの神秘は秘匿されているため、
		PRINTFORML それらに関する事件を秘密裏に解決するための警察組織。
		PRINTFORML ここに配属されている職員は全て、
		PRINTFORML 様々な神秘に対抗しうる何かしらの技術や能力を身に付けている。
	CASE 4
		PRINTFORML パスタ共和国首都内の独立領にある組織で、
		PRINTFORML 全ての天主公教会を統率している。
		PRINTFORML 十字軍や法皇庁対魔特務執行部などの各種実力部隊を有する。
	CASE 5
		;訳注：『カーキラス』の綴りは『Kerkylas』
		PRINTFORML この世の全てのレズビアンを滅ぼすことが目的の魔術犯罪組織。
		PRINTFORML その母体となった組織は紀元前6世紀前後から存在が確認されており、
		PRINTFORML オリーブ帝国を中心として紀元後4世紀前半から徐々に勢力を拡大させた。
		PRINTFORML しかし15世紀中頃に魔術結社『薔薇十字団』との抗争により大幅に勢力が減少。
		PRINTFORML 一時は解体寸前にまで追い込まれたが、
		PRINTFORML 19世紀における医学や生物学の発展により勢力をほぼ完全に取り戻した。
		PRINTFORML 那之后、20世紀初頭に酢漬け捲心菜帝国の精神科医たちや
		PRINTFORML 米帝国の「同性愛者を異性愛者化する研究」を行う医学者たちと合流。
		PRINTFORML 結果、「女が居る限りレズビアンが存在するなら、人類全てが男になれば良い」
		PRINTFORML という理論で全人類の男体化を試みる派閥と、
		PRINTFORML それに反対し、他の方法でレズビアンの根絶を試みる派閥が存在する。
	CASE 999
		GOTO K29_INPUT_LOOP
	CASEELSE
	ENDSELECT
	PRINTFORMW
	GOTO K29_INPUT_LOOP_SOCIETY
CASE 2
	$K29_INPUT_LOOP_PLACE
	CLEARLINE LINECOUNT
	PRINTL ＊国名・地名等＊
	PRINTFORM [0]
	PRINTFORM [1]
	PRINTFORM [2]
	PRINTFORML [3]
	PRINTFORML
	PRINTFORML [999] 返回
	INPUT
	L_INPUT = RESULT
	CLEARLINE LINECOUNT
	SELECTCASE L_INPUT
	CASE 0
		PRINTFORML
	CASE 1
		PRINTFORML
	CASE 2
		PRINTFORML
	CASE 3
		PRINTFORML
	CASE 999
		GOTO K29_INPUT_LOOP
	CASEELSE
	ENDSELECT
	PRINTFORMW
	GOTO K29_INPUT_LOOP_PLACE
CASE 3
	$K29_INPUT_LOOP_ETC
	CLEARLINE LINECOUNT
	PRINTL ＊用語（其他）＊
	PRINTFORM [0]
	PRINTFORM [1]
	PRINTFORM [2]
	PRINTFORML [3]
	PRINTFORML
	PRINTFORML [999] 返回
	INPUT
	L_INPUT = RESULT
	CLEARLINE LINECOUNT
	SELECTCASE L_INPUT
	CASE 0
		PRINTFORML
	CASE 1
		PRINTFORML
	CASE 2
		PRINTFORML
	CASE 3
		PRINTFORML
	CASE 999
		GOTO K29_INPUT_LOOP
	CASEELSE
	ENDSELECT
	PRINTFORMW
	GOTO K29_INPUT_LOOP_ETC

CASE 999
	RETURN 1
CASEELSE
ENDSELECT

GOTO K29_INPUT_LOOP

path: ERB/EVENT_K/29 碧/EVENT_K29_INDEX.ERB

license: unknown


code:
;-------------------------------------------------
;基本部分が異常に長くなりかねないので、
;シナリオイベント等の長い文章やらをここに放り込みます。
;あとネタバレ防止等も兼ねてます。
;-------------------------------------------------

@K29_LONG_ED1
PRINTFORMW 一天早上，在%CALLNAME:MASTER%和%CALLNAME:TARGET%一起上学的时候。
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「前几天，体育老师赶走绑匪的时候、」
PRINTFORMW 「那个绑匪拿着一根前端呈三叶型的拐杖。」
PRINTFORML ………
PRINTFORMW 「你看，就是那种感觉……就是那样的！」
PRINTL
PRINTFORMW %CALLNAME:TARGET%手指的前方确实有一个拿着前端三叶型拐杖的男人。
PRINTFORML 那个男人直勾勾地盯着这边，正在靠近。
PRINTFORMW 是以前在教室里和%CALLNAME:TARGET%纠缠的男生之一…!
PRINTL
PRINTFORML - Ａ太 -
PRINTFORMW 「你是、【片峰保全】的社长的女儿吗。
PRINTFORMW 　只有那家公司是绝对不能原谅的。你们两个人都去死吧！」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「哇、变成了了不得的事情了呢。我想到了太多的事情。……」（翻译存疑）
PRINTL
PRINTFORMW Ａ太（暂定名）嘟哝着咒语，举起魔杖，白色的烟雾笼罩在周围。
PRINTL
PRINTL
PRINTFORMW 但是，没有任何效果。
PRINTFORMW 仔细一看，好像是%CALLNAME:TARGET%用对抗魔术挡住了A太的魔术!
;- 西西莉亚 -
;「例えば敵が魔法を戦いに使うのならば、その魔法の構造を解析し無力化することが考えられる」
;「仮に相手が実用的な魔法の「使い方」しか知らないようならそれで終わりだよ」
;「你にわかりやすく言うならば、アプリの使い方しか知らない相手に機械語レベルの処理まで理解したハッカーが戦うようなものさ」
;「もちろん、実際にはそんな程度の低い魔法使、あるいは魔法を使う戦士などいないだろうがね」
PRINTL
PRINTFORML 在烟雾散去之前，%CALLNAME:TARGET%从书包里拿出手电筒，
PRINTFORMW 打開电源，把光照在A太的脸上。
PRINTL
PRINTFORML - Ａ太 -
PRINTFORMW 「！！」
PRINTL
PRINTFORML A太很害怕，但从他身后出现了另一个男生(B男)。
PRINTFORMW 瞄准%CALLNAME:MASTER%和%CALLNAME:TARGET%使用自动步枪连续射击!
PRINTL
PRINTFORMW ……但子弹不知为何被%CALLNAME:TARGET%的学生包挡住了。
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「真没想到是实弹啊」
PRINTL
PRINTFORMW %CALLNAME:TARGET%就那么用学生包格開了自动步枪、
PRINTFORMW 用右肩将B男和背后的A太一起撞飞。
PRINTL
PRINTFORML - Ｂ男 -
PRINTFORMW 「这、这家伙到底是怎么回事……好强！」
PRINTL
PRINTFORMW %CALLNAME:TARGET%趁机踢飞了自动步枪、
PRINTFORMW 拉着%CALLNAME:MASTER%的手開始逃跑！
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「趁现在逃走吧、%CNAME("二人称")%！」
PRINTL
PRINTFORMW 在身后，B男站了起来，举起手枪瞄准了%CALLNAME:TARGET%。
PRINTFORMW 但是就在这时，用魔术做成的线把B男绑了起来。
PRINTFORML 偶然巡逻的警视厅神秘事件应对部队
PRINTFORMW 2名成员察觉到魔力和枪声而赶来了!
PRINTFORMW A太也想用手枪应战，但很快就被制服了。
PRINTL
PRINTFORML - 警視庁神秘事件対処部隊的一人 -
PRINTFORMW 「那两个人由我们来处理。稍后再谈谈吧……」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「我知道了，把这个也当作证据收走了。」
PRINTL
PRINTFORML - 警視庁神秘事件対処部隊的一人 -
PRINTFORMW 「诶」
PRINTL
PRINTFORML 是%CALLNAME:TARGET%被步枪弹贯穿的铁板。
PRINTFORMW 从书包里取出来，交给警视厅神秘事件应对部队的成员。
PRINTFORMW 刚才的自动步枪子弹被学生包里的铁板挡住了。
PRINTL
PRINTFORMW %CALLNAME:MASTER%一边道谢一边和%CALLNAME:TARGET%一起急忙赶往学园…
PRINTL
PRINTFORML 那天第一堂课，
PRINTFORMW (虽说非常勉强)赶上是另一件万幸。
PRINTL
GETFONT
CHKFONT "ＭＳ Ｐ哥特"
SIF RESULT
	SETFONT "ＭＳ Ｐ哥特"
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORMW 　°
SETFONT RESULTS
PRINTL
PRINTFORML 那天午休的时候，%CALLNAME:MASTER%和%CALLNAME:TARGET%
PRINTFORMW 被小团扇以外的另一位风纪委员叫去了。
PRINTL
PRINTFORML - 風紀委員 -
PRINTFORMW 「……哎（非常轻蔑的语气）、霜越 明日太和天摩希男？
PRINTFORMW 　虽然觉得他们早就会犯下什么事情了、没想到涉及真枪了呢。」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW %CNAME("二人称")%和%CNAME("一人称")%没有受伤，这也许就是奇迹了。
PRINTFORMW 　那两个人拿的可是SIG MCX和GLOCK 17？」
PRINTL
PRINTFORML - 風紀委員 -
PRINTFORMW 「不、就算你说我也听不懂啊！？」
PRINTFORML 「……对了对了，你知道风纪委员的小团扇吗？
PRINTFORMW 　虽然是我的后辈，但是从昨天開始就完全没有见过她。」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「我也没有见过。」
PRINTL
PRINTFORML - 風紀委員 -
PRINTFORMW 「是吗?要是没被卷入什么奇怪的事件就好了……」
PRINTL
PRINTFORMW …
PRINTL
PRINTFORML - 新闻 -
PRINTFORMW 『传达今天的新闻。
PRINTFORMW 　今早凌晨，在〇〇市的上学路上向〇〇学园的两名学生实枪射击。
PRINTFORML 　警方调查了该学园的嫌疑人男学生霜越明日太和
PRINTFORMW 　嫌疑人天摩希男因违反枪法和杀人未遂作为现行犯逮捕了。』
PRINTFORMW 『被開枪的两名学生没有受伤。』
PRINTFORML 『据警察说，两名作为嫌疑人的男学生对犯罪事实供认不讳。』
PRINTFORMW 『搜查人员正在加紧查明枪支的獲取途径。』
PRINTFORMW 『如果有详细消息，我们会随时报道。』

RETURN 1

@K29_LONG_ED2
#DIMS ジャンプ判定1
#DIMS ジャンプ判定2
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR
IF FINDCHARA(NO, 20) > 0
	CALLNAME_ACTOR = 卡莉斯塔
	ACTOR = FIND_COND(CALLNAME_ACTOR)
ELSEIF FINDCHARA(NO, 1) > 0
	CALLNAME_ACTOR = 弗理希艾尔
	ACTOR = FIND_COND(CALLNAME_ACTOR)
ENDIF
;上記は名称表示用

IF CEVENT("小団扇桑：治療可能") && CEVENT("小団扇桑：完治") == 0
	PRINTFORML 要跳转到选项部分吗？
	PRINTFORML [0] 是
	PRINTFORML [1] 否
	CALL INPUT_SELECT, 2
	IF RESULT == 0
		ジャンプ判定1 = ジャンプする
	ELSE
		ジャンプ判定1 = ジャンプしない
	ENDIF
ENDIF
IF (ジャンプ判定1 == "ジャンプしない" || CEVENT("小団扇桑：治療可能") == 0) && CEVENT("小団扇桑：完治") == 0
	IF COND("夜")
		PRINTFORMW 昼の出来事……
	ENDIF
	PRINTFORML 午休时，我去活动室附近一间本不应该被使用的单间看了看。
	PRINTFORMW 小团扇和%CALLNAME:TARGET%隔着桌子面对面坐着。
	PRINTFORML - %CALLNAME:TARGET% -
	PRINTFORMW 「啊、%CNAME("二人称")%来得正好。」
	PRINTFORMW 「上次说的小团扇找到了。」
	PRINTFORMW 「虽说从诱拐犯那里逃了出来，但也不是完全没事…。」
	PRINTL
	PRINTFORML 小团扇垂着两缕及腰的黑发。
	PRINTFORMW 看起来就像戴眼镜的成熟美少年。
	PRINTFORML - 小団扇 倖帆 -
	PRINTFORMW 「・・・上次说了、我本来就是女性啊！？」
	PRINTL
	PRINTFORML 小团扇的声音和她的容貌一样，像女高音。
	PRINTFORMW 一边吐槽着发言，一边把学生证给%CALLNAME:MASTER%看。
	PRINTFORML 学生证上的照片虽然只是面孔，但整张脸都有女性的圆润和扁平感。
	PRINTFORMW 简直像换了个人……
	PRINTFORMW 应该说，是和曾经帮助%CALLNAME:TARGET%时一样的脸。
	PRINTFORML …
	PRINTFORML 据小团扇说，当时在学校周边開展巡视活动，
	PRINTFORMW 据说在那里看到可疑人物的瞬间就晕过去被带走了。
	PRINTFORML 被掳走的地方被强行进行了类似人体实验的行为，
	PRINTFORMW 包括小团扇在内的几个人，无论男女都被改造成了美少年的模样。
	PRINTFORMW 那个时候，有个人拒绝做人体实验，很厉害地发飙，于是我就混入了那片混乱之中。
	PRINTFORMW 很多人開始逃跑，但被改造的人中只有小团扇逃了出来。
	PRINTFORML 大部分还没有被改造的人都逃了出来，
	PRINTFORMW 可能是因为害怕发生事件吧，听说其中很多人都不去上学了……。
	PRINTFORML …
	PRINTFORML - 小団扇 -
	PRINTFORMW 「出了建筑物，前面好像是工业区、」
	PRINTFORMW 「沿着小路往前走，马上就能看到学校的校舍。」
	PRINTL
	PRINTFORML - %CALLNAME:TARGET% -
	PRINTFORMW 「这个学园附近，工业地带的学园方向的话…是这一带吗？」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%在学园周边的一部分地图上画了圈。
	PRINTFORMW 看来这次要把那个范围都找遍了……。

	IF FINDCHARA(NO, 1) > 0 || FINDCHARA(NO, 20) > 0
		PRINTFORMW 这时，%CALLNAME:ACTOR%跑了过来，在%CALLNAME:MASTER%的耳边低语。
		PRINTFORML %CALLNAME:ACTOR%告知虽然对小团扇进行了人体改造
		PRINTFORMW 但如果进行灵魂的交易的话好像可以恢复原状。
		PRINTFORML 然后,小团扇的父亲是教皇厅的重要人员，
		PRINTFORMW 只要把小团扇变回女性，他们就会协助破案。
		CALL SET_CEVENT, "小団扇桑：治療可能"
	ENDIF
ENDIF

IF CEVENT("小団扇桑：完治")
	PRINTFORML - 小団扇 -
	PRINTFORMW 「这、这件事情就麻烦你了。」
	PRINTFORMW 「父亲那边、听说会对『集団誘拐事件的解決提供全面协力』。」
ELSEIF CEVENT("小団扇桑：治療可能")
	ジャンプ判定2 = ジャンプしない
	IF BASE:MASTER:魂 <= 100
		PRINTFORMW 但是现在，似乎缺少了为此而使用的%CALLNAME:MASTER%的灵魂…。
		ジャンプ判定2 = ジャンプする
	ENDIF
	IF ジャンプ判定2 == "ジャンプしない"
		PRINTFORML 把小团扇变回女性吗?
		PRINTFORML [0] 是（魂－１。※之后的活动内容会有所变化）
		PRINTFORML [1] 否（保留となります）
		CALL INPUT_SELECT, 2
		IF RESULT == 0
			PRINTFORML - 小団扇 -
			PRINTFORMW 「真、真的能治好吗！？」
			PRINTFORMW 小团扇高兴得快要喜极而泣了。
			PRINTL
			PRINTFORML - %CALLNAME:ACTOR% -
			PRINTFORMW 「那么，请稍等一下。几分钟就结束了…。」
			BASE:MASTER:魂 -= 100
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
    			SETFONT "ＭＳ Ｐ哥特"
    			PRINTFORML ・
    			PRINTFORML ・
    			PRINTFORML ・
			    PRINTFORMW 　°
			SETFONT RESULTS
			CALL PRINT_STRW, @"黄色_小団扇が完治しました"
			CALL SET_CEVENT, "小団扇桑：完治"
			IF ABL:信頼 < 5
				CALL PRINT_STRW, @"黄色_%CALLNAME:TARGET%の信頼Lvが上がりました"
				ABL:信頼 += 1
			ENDIF
		ELSE
			PRINTFORML - 小団扇 -
			PRINTFORMW 「（´・ω・｀）」
		ENDIF
	ENDIF
ENDIF

RETURN 1

@K29_LONG_ED3
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「……哦，大家不要聚集在一起，这个地下。」
PRINTL
PRINTFORML 到达了学园附近的一个废弃工厂。
PRINTFORMW 地下好像有绑架组织的据点。
PRINTFORMW 在废弃的工厂前，聚集了很多在工作服外面穿上厚背心的人……
PRINTFORMW 其中一人搭话道。
PRINTL
PRINTFORML - ？ -
PRINTFORMW 「好久不见、%CALLNAME:TARGET%。旁边的就是你父亲所说的那位『Resurrection（复活）』能力者吗？」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「姐、姐姐……完全联络不上，之前到底去哪了？」
PRINTFORMW 来搭话的竟然是%CALLNAME:TARGET%的姐姐啊。
PRINTL
PRINTFORML - %CALLNAME:TARGET%的姐姐 -
PRINTFORMW 「对不起，我最近一直躲着，要说理由的话，那可说来话长了。」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「欸、要多长时间？」
PRINTL
PRINTFORML - %CALLNAME:TARGET%的姐姐 -
PRINTFORMW 「大约1个小时左右吧」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「」
PRINTL
PRINTFORML - %CALLNAME:TARGET%的姐姐 -
PRINTFORMW 「说起来，我自我介绍晚了、我是片峰 珪。」
PRINTFORMW 「而且聚集在这里的是保安公司『片峰保全』的特殊突击队。」
PRINTL
PRINTFORML - %CALLNAME:TARGET% -
PRINTFORMW 「实际上是私兵……太好了、魔術犯罪組織这下子不会是对手了」
PRINTL
PRINTFORMW 这时，特殊突击队的一名队员发出了手势信号。
PRINTFORMW 看来突入的准备已经完成了…
PRINTL
PRINTFORML - 珪（%CALLNAME:TARGET%的姐姐） -
PRINTFORMW 「很好、『卡其拉斯』的家伙看来还没有发现我们。现在開始突入吧。」
PRINTL
PRINTFORMW 珪下达了突入的指示。
PRINTFORMW 马上，特殊行动队開始撬開通往地下的門…
PRINTL
GETFONT
CHKFONT "ＭＳ Ｐ哥特"
SIF RESULT
	SETFONT "ＭＳ Ｐ哥特"
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORMW 　°
SETFONT RESULTS
PRINTL
PRINTFORMW 另一方面，在地下……
PRINTL
PRINTL
PRINTFORML - 頭发乱糟糟的神秘大叔 -
PRINTFORMW 「这样的计划和实验能被认可吗？停止！」
PRINTL
PRINTFORML - 卡其拉斯研究員 -
PRINTFORMW 「为什么要反对这个计划呢，支部长！」
PRINTL
PRINTFORML - 頭发乱糟糟的神秘大叔 -
PRINTFORML 「就算你说『男性体化的个体之间可以生殖』、
PRINTFORMW 　一般来说，将全人类男人化的计划是不可能被认可的吧！？」
PRINTFORMW 「而且还擅自进行实验，你们都疯了！」
PRINTL
PRINTFORML - 卡其拉斯研究員 -
PRINTFORML 「这个『全地球小鸡鸡乐园化计划』、
PRINTFORMW 　这是毁灭女同性恋的最有力的方法！？」
PRINTL
PRINTFORML - 頭发乱糟糟的神秘大叔 -
PRINTFORML 「总之・・我不同意这个计划・・
PRINTFORMW 　因为这有损我们『卡其拉斯』的业绩与名誉・・」
PRINTL
PRINTFORML - 卡其拉斯隊員Ａ -
PRINTFORMW 「这是奥利弗民会国支部的报告！
PRINTFORMW 　帕斯塔共和国支部被法皇厅的攻击毁灭了！」
PRINTL
PRINTFORML - 頭发乱糟糟的神秘大叔 -
PRINTFORMW 「你说什么・・」
PRINTL
PRINTFORML - 卡其拉斯隊員Ｂ -
PRINTFORMW 「支部長、紧急事态！
PRINTFORMW 　有什么人闯入了这个地下基地！」
PRINTL
PRINTFORML - 卡其拉斯研究員 -
PRINTFORMW 「你说什么啊・・」
PRINTL
GETFONT
CHKFONT "ＭＳ Ｐ哥特"
SIF RESULT
	SETFONT "ＭＳ Ｐ哥特"
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORML ・
	PRINTFORMW 　°
SETFONT RESULTS
PRINTL
PRINTFORMW 先说结果，营救作战非常轻松地取得了成功。
PRINTFORML 不久「警視庁神秘事件应对部隊」也赶来了
PRINTFORMW 到达的时候已经全部救出了。
PRINTL
PRINTFORML - 頭发乱糟糟的神秘大叔 -
PRINTFORMW 「お喂!你们在干什么!好痛!住手!我要上法庭告发你们!我可是有政府的関系」
PRINTL
PRINTFORML - 警視庁神秘事件対処部隊的一人 -
PRINTFORMW 「怎么回事，这个大叔‥‥」
PRINTL
PRINTFORML - 珪（%CALLNAME:TARGET%的姐姐） -
PRINTFORMW 「『卡其拉斯』的干部级别，表面上看是个不错的资产家。」
PRINTL
PRINTFORMW 不管怎么样、『卡其拉斯』的干部与成员全部都被警察逮捕了。
PRINTFORMW 之后，好像并没有对调查产生特别的压力…
PRINTFORML 这些被解救的人都是由护国机构秘密进行治疗后，
PRINTFORMW 被送到了原本的住址。
PRINTL
PRINTFORML - 珪（%CALLNAME:TARGET%的姐姐） -
PRINTFORMW 「…而且，関于片峰保全的事，警察应该会保密吧。」
PRINTL
PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%差不多该回去了。
PRINTFORMW 珪直到看不到%CALLNAME:TARGET%的身影为止，一直挥手目送着……
PRINTL
PRINTL
PRINTFORMW つ　づ　く　……　？
PRINTL

SIF !CEVENT("救出作戦：成功")
	CALL SET_CEVENT, "救出作戦：成功"

RETURN 1

;@K29_LONG_ED4

@K29_LONG_EPISODE1
#DIM CHOICE

PRINTFORML 「说起来%CNAME("二人称")%、
PRINTFORMW 　不知道为什么，同班的同学对%CNAME("一人称")%感到害怕。
PRINTFORMW 　不知道。%CNAME("一人称")%的哪里让人害怕啊？」
PRINTL
PRINTFORML [0] 相貌。
PRINTFORML [1] 声音。
PRINTFORML [2] 態度。

CALL INPUT_SELECT, 3
CHOICE = RESULT

SELECTCASE CHOICE
	CASE 0
		PRINTFORMW 「相貌？」
		PRINTFORML 「长相与身材……
		PRINTFORMW 　自己怎么想都觉得里面的东西太多了。」
		PRINTFORMW 「表情的话，如果有意识的话，说不定会变得更夸张呢。」
	CASE 1
		PRINTFORML 「啊，是吗，是这样的声音吗？
		PRINTFORMW 　ku喵、我自己也不太清楚……」（恶意卖萌的腔调）
		PRINTL
		PRINTFORMW 那谄媚的声音是怎么回事？住手。
	CASEELSE
		PRINTFORML 「态度……？
		PRINTFORMW 　%CNAME("一人称")%什么时候对%CNAME("二人称")%那种态度了？」
		PRINTFORMW 「我觉得这不是什么威胁和恫吓……」
		CALL EMOTION_PLUS, "重置/〇〇/困扰眉/ω"
ENDSELECT

SIF CEVENT("エピソード１：どこが怖い？") == 0
	CALL SET_CEVENT, "エピソード１：どこが怖い？"

RETURN 1

path: ERB/EVENT_K/29 碧/EVENT_K29_LONG.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K29_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
SIF CEVENT("约会：救出作戦／碧")
	STR:選択肢 += "救出作戦に行く/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K29_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "救出作戦に行く"
	CALL DEL_CEVENT, "约会：救出作戦／碧"

	;イベント
	CALL K29_LONG_ED3

	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1

CASEELSE
;	PRINTFORML えらーです！えらーいこっちゃ
;	PRINTFORMW （スレッドにて報告をお願いします）
ENDSELECT

path: ERB/EVENT_K/29 碧/EVENT_K29_SELECT.ERB


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

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

		ELSE

		ENDIF
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「%TEXTR("恩/哦/哎呀/哎呀")%、%TEXTR("什么/想让我怎么做/怎样的请求/怎样的请求")%…%TEXTR("かいな/やろか")%？」
		CASE 1
			PRINTFORML 「%CNAME("二人称")%、怎么了？」
		CASEELSE
			PRINTFORML 「在%CNAME("一人称")%力所能及的范围内的话听一听也无妨」
		ENDSELECT
	ENDIF
CASE "称呼変更"
	PRINTFORMW 「称呼？……你希望我怎么称呼你？」
CASE "称呼変更完了"
	PRINTFORMW 「『%CNAME("二人称")%』…想这样被称呼吗。那么以后就这么称呼你吧。」
CASE "称呼変更中止"
	PRINTFORMW 「%TEXTR("喔/喔呀/啊啦/啊")%、不对吗？」
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛

	;失敗
	ELSEIF RAND:2
		IF MARK:屈服刻印 == 0
			PRINTFORML 「唔—、虽然并不是很讨厌、但是関于%CNAME("二人称")%的事情
			PRINTFORMW %CNAME("一人称")%至今为止还不是很了解。」
		ELSE
			PRINTFORML 「……嗯、虽然很開心、
			PRINTFORMW 但是%CNAME("一人称")%也有着%TEXTR("自己的想法/自己的立场呢")%……」
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR("这是真的么…/或许还有更好的人…/那个、我可能还没有做好心理准备……")%」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「对、对不起。%CNAME("一人称")%、%CNAME("一人称")%现在不方便……」
		CASE 1
			PRINTFORMW 「呜、没有的东西就是不可能的……。」
		CASEELSE
			PRINTFORMW 「我现在穿着的这个…、就算你这么说……。」
		ENDSELECT
	ELSE
		PRINTFORMW 「说、说什么呢……！？」
	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
		IF PLACE("野外")
			;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
			TFLAG:値上げ交渉 = 1500
		ELSE
			;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
			TFLAG:値上げ交渉 = 500
		ENDIF
	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 "同居拒否"
	PRINTFORML 「嗯…、就算你这么说…」
	IF !RAND:4
		PRINTFORMW 「能不能等我做好心理准备？」
	ELSEIF !RAND:3
		PRINTFORMW 「如果没有防范对策的话、%CNAME("一人称")%会很困扰的…。」
	ELSEIF !RAND:2
		PRINTFORMW 「%CNAME("一人称")%还没有对%CNAME("二人称")%完全信任，所以…」
	ELSE
		PRINTFORMW 「搬家也要做很多准备呢……。」
	ENDIF

CASE "同居希望"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「和%CNAME("二人称")%一起同居…？」
		PRINTFORMW 「那倒也不错，家具可以自己拿来吗？」
		;PRINTFORMW なんだと
	ELSE
		;PRINTFORMW
	ENDIF

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「便当么、没有做那种东西的自信啊」
	PRINTFORMW 「不知道%CNAME("二人称")%喜欢的味道是……。」

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「听说你喜欢%CNAME("一人称")%的便当呢」
		PRINTFORMW 「那下次再为%CNAME("二人称")%做吧」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「嘛、一起住的话、试试看也行啊」
		ELSE
			PRINTFORMW 「嗯、会努力的」
		ENDIF
		PRINTFORMW 「不知道合不合%CNAME("二人称")%的胃口……」
		PRINTFORML 「……为什么一副不可思议的表情啊？」
		PRINTFORMW 「是%CNAME("一人称", "どもり")%做的便当很奇怪吗？」
	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 "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	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

CASE "髪型変更の感想"

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

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「对不起、我做不到……」
		CASE 1
			PRINTFORMW 「诶…那样的话稍微有些困扰」
		CASEELSE
			PRINTFORMW 「对不起、%CNAME("一人称")%拒绝」
		ENDSELECT
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	;汎用ＯＫ
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「真是的、真拿%CNAME("二人称")%没有办法」
		CASE 1
			PRINTFORMW 「哦、知道了」
		CASEELSE
			PRINTFORMW 「如果是这样的话好吗？」
		ENDSELECT
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「买东西……%CNAME("一人称")%也一起去？知道了。」

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

	ELSE

	ENDIF
CASE "目送"

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

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

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	PRINTFORMW 「欸、就这么去？」
	IF CHECK_CLO("泳装姿")
		PRINTFORMW 「就这样穿着泳衣出来了」
		PRINTFORMW 「啊、等一下、%CNAME("二人称")%、不要丢下%CNAME("一人称")%一个人啊……」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「嘛、总比泳装要好得多……」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「至少让外面穿点什么吧……」
		PRINTFORMW 　%CALLNAME:MASTER%抓着%CALLNAME:TARGET%的手强行出門了。
		IF TEXTS("季節詳細") == "冬" || TEXTS("季節詳細") == "晩秋"
			PRINTFORMW 「讨厌啊。%CNAME("一人称")%这感觉要冻死了啊……」
			PRINTL
			CFLAG:好感度 -= 100
			PRINTFORMW 　好感度 -100
		ELSE
			PRINTL
			CFLAG:好感度 -= 40
			PRINTFORMW 　好感度 -40
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
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/29 碧/EVENT_K29_SHOP.ERB