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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝添い寝"
		CALL SETFLAG, "地の文スキップ"
		IF RAND:4
			PRINTFORML 朝、目が覚めると被窝が妙に柔らかくて気持ち良い……
			PRINTFORMW 目を開けてみると
			PRINTL
			CALL DIALOGUE_FRAME_ITEM, "22簡単卡莉斯塔"
			PRINTFORMW 「（%TEXTR("もちもち/もちもち/もちもち/むにゅーん/もっちもっち/うﾓｿﾓｿﾓｿﾓｿﾓｿﾓｿ")%）」
			PRINTL
			IF !CEVENT("かんたん卡莉斯塔：添い寝編")
				SIF !CEVENT("かんたん卡莉斯塔：初見")
					PRINTW ！？
				PRINTFORMW 玩偶のような謎生物が%CALLNAME:MASTER%に抱きついていたようだ
				PRINTFORMW %CALLNAME:MASTER%回来看到这个时、
				PRINTL
				PRINTW ぽむっ
				CALL EMOTION_PLUS, "重置", TARGET
				PRINTFORMW 伴随着轻快的声音、%CALLNAME:TARGET%的身影出现了。
				PRINTFORMW 床に潜り込んだ%CALLNAME:TARGET%が、%CALLNAME:MASTER%を抱き枕にしていたようだ……
				CALL PRINT_STR, "_-_っていうか、あの姿だと寧ろ抱き枕にされる側でしょ__L"
				CALL SET_CEVENT, "かんたん卡莉斯塔：添い寝編"
				IF !CEVENT("かんたん卡莉斯塔：初見")
					PRINTL
					PRINTW アレは一体、何だったのだろう？
					CALL SET_CEVENT, "かんたん卡莉斯塔：初見"
				ENDIF
			ELSE
				PRINTFORMW 玩偶のような謎生物が%CALLNAME:MASTER%に抱きついていたようだ
				PRINTFORMW %CALLNAME:MASTER%がソレを押し退けて身体を叫醒と、
				PRINTL
				PRINTW ぽむっ
				CALL EMOTION_PLUS, "重置", TARGET
				PRINTFORMW 伴随着轻快的声音、%CALLNAME:TARGET%的身影出现了。
			ENDIF
		ELSE
			PRINTFORMW 朝、目が覚めると身体全体に柔らかい感触と重みを感じた……
			PRINTFORMW 床に潜り込んだ%CALLNAME:TARGET%が、翼で%CALLNAME:MASTER%を包み込んでいるようだ
		ENDIF
		PRINTFORMW 「是%CNAME("二人称")%啊、早上好啊、。」
	ENDSELECT
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝騎乗位"
		IF EXP_GAIN("射精経験", PLAYER)
			CALL PRINT_STR, @"「ぉはょぅござぃます、%CNAME("二人称","かな")%……_H_」_W"
		ELSE
			PRINTFORMW 「ぉはょぅござぃます、%CNAME("二人称","かな")%……。」
		ENDIF
	CASE "朝口交", "朝六九式"
		SIF EXP_GAIN("射精経験", PLAYER)
			CALL PRINT_STR, @"「……_H_―――噗。」_W"
		PRINTFORMW 「ぉはょぅござぃます、%CNAME("二人称","かな")%。」
	CASEELSE
		PRINTFORMW 「是%CNAME("二人称")%啊、早上好啊、。」

	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今天有体育课。」
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「%CNAME("一人称")%としては比較的苦手なのですが。」
		CASE 1
			PRINTFORMW 「不可以偷懒不做准备运动哦？」
			;ぶっちゃけ事故につながるので割と大事。（マジレス）
		CASEELSE
			PRINTFORMW 「体操服和毛巾、水壶都准备好了吗？」
		ENDSELECT

	ELSE

	ENDIF

CASE "一番乗り"
	IF COND("同伴中")
		IF RAND:2
			PRINTFORMW 「おっと、誰もいませんね。」
		ELSE
			PRINTFORMW 「%CNAME("一人称Ｂ")%たちが一番乗りのようですね。」
		ENDIF
		PRINTFORMW 「所以也没什么特别的。」
	ELSE
		PRINTFORMW 「啊、原来是%CNAME("二人称")%啊。」
	ENDIF

CASE "ただいま"
	PRINTFORMW 「%CNAME("二人称")%、我回来了。」

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		SELECTCASE RAND:8
		CASE 0
			CALL DIALOGUE_FRAME_ITEM, "22簡単卡莉斯塔"
			IF !CEVENT("かんたん卡莉斯塔：玄関編")
				PRINTW 「（%TEXTR("もちもち/もちもち/もちもち/むにゅーん/もっちもっち/うﾓｿﾓｿﾓｿﾓｿﾓｿﾓｿ")%）」
				PRINTL
				SIF !CEVENT("かんたん卡莉斯塔：初見")
					PRINTW ！？
				PRINTW 玄関に、玩偶のような謎生物が鎮座している……！
				PRINTFORMW %CALLNAME:MASTER%回来看到这个时、
				PRINTL
				PRINTW ぽむっ
				CALL EMOTION_PLUS, "重置", TARGET
			 	PRINTFORMW 伴随着轻快的声音、%CALLNAME:TARGET%的身影出现了。
			 	PRINTFORMW 「おかえりなさいませ、%CNAME("二人称")%」
				CALL SET_CEVENT, "かんたん卡莉斯塔：玄関編"

				IF !CEVENT("かんたん卡莉斯塔：初見")
					PRINTW アレは一体、何だったのだろう？
					CALL SET_CEVENT, "かんたん卡莉斯塔：初見"
				ENDIF
			ELSE
				SELECTCASE RAND:8
				CASE 0
					PRINTL 「ﾏﾊﾘｰｸ ﾏﾊｰﾘﾀ ﾔﾝﾊﾞﾗﾔﾝﾔﾝﾔﾝ
					PRINTW 　ﾏﾊﾘｰｸ ﾏﾊｰﾘﾀ ﾔﾝﾊﾞﾗﾔﾝﾔﾝﾔﾝ
					PRINTW 　ﾏﾎｰﾉ ｸﾆｰｶﾗ ﾔｯﾃｷﾀ　ﾁｮｯﾄ ﾁｬｰﾑﾅ ｵﾝｰﾅﾉｺ」
					PRINTW 玄関で、玩偶のような謎生物が不思議な踊りをしながら歌っている……！
					PRINTFORMW すかさず謎生物の頭にチョップを入れると、ぽむっという音とともに%CALLNAME:TARGET%の姿变成了
					CALL EMOTION_PLUS, "重置/＞＜/困扰眉/ω", TARGET
					PRINTFORML 「み゜
					PRINTFORML
					PRINTFORMW 　……おかえりなさいませ、%CNAME("二人称")%」
 					PRINTW ……不要做那些会成为家庭怪谈的事。
				CASEELSE
					PRINTL
					PRINTW 玄関に、玩偶のような謎生物が鎮座している……！
					PRINTFORMW しばらく待っていると、
					PRINTL ぽむっ
			 		CALL EMOTION_PLUS, "重置", TARGET
			 		PRINTFORMW 伴随着轻快的声音、%CALLNAME:TARGET%的身影出现了。
			 		PRINTFORMW 「おかえりなさいませ、%CNAME("二人称")%」
				ENDSELECT
			ENDIF
		CASEELSE
			PRINTFORMW 「%TEXTR("おかえりなさい/おかえりなさいませ/おつかれ大人です/今日も一日ごくろう大人です")%、%CNAME("二人称")%。」
		ENDSELECT
	ELSE
		PRINTFORMW 「你回来了、%CNAME("二人称")%。」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「お待たせしましたー」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		SELECTCASE RAND:4
		CASE 0
			CALL EMOTION_PLUS, "重置/困扰眉/△/对话框惊讶", TARGET
		CASE 1
			CALL EMOTION_PLUS, "重置/無口系/躁动难忍/对话框惊讶", TARGET
		CASE 2
			CALL EMOTION_PLUS, "重置/半開/紅潮", TARGET
		CASEELSE
			CALL EMOTION_PLUS, "重置/憤怒眉/無口系/红晕/对话框汗", TARGET
		ENDSELECT

		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 「しつｒ……」
		CASE 1
			PRINTFORMW 「しつれいしま……ってちょっと、なにやってるんですか…？」
		CASE 2
			PRINTFORMW 「嗯、失礼了……咦？」
			PRINTFORMW 「いえ、どうぞ、%CNAME("一人称")%のことなぞ気にせずに……」
		CASEELSE
			PRINTFORMW 「すみません、遅れました……っと、お取込み中ですね。」
			PRINTFORMW 「这个暂时重新来一次比较好吧……？」
		ENDSELECT
		SIF RAND:4 == 0
			PRINTFORMW %CALLNAME:TARGET%は驚いたのか、輪っかが一度だけ飛び跳ねた。
	ELSEIF CSTR:PREV_DAILYCOM == "Talk"
		PRINTFORML 「%TEXTR("こんにちは/こんにち/こんにｔ/こんｎ/こｎ")%……」
		PRINTFORMW 「おや、何やら楽しそうな雰囲気でしたね？」
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 「%TEXTR("こんちには/こni↘ちゃ/こんにちな")%ー」
		CASE 1
			PRINTFORMW 「こんにちはー」
		CASE 2
			PRINTFORMW 「お邪魔します」
		CASEELSE
			PRINTFORMW 「しつれいしますー」
		ENDSELECT
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「打扰了、大家都到齐了啊」
	ELSE
		PRINTFORMW 「你好。今天也努力参加社团活动吧！」
	ENDIF
CASE "居間に現れた"
	IF COND("欲求不満") >= 2
		CALL PRINT_STR, @"『%CNAME("二人称")%、现在有空吗……？』_L"
		;PRINTFORMW 只在起居室里。
		PRINTFORMW 听说%CALLNAME:TARGET%被%CALLNAME:MASTER%照顾了……。
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		IF RAND:2 == 0
			PRINTFORMW %CNAME("二人称")%、您有什么吩咐吗？
		ELSE
			PRINTFORMW 「这个节目%CNAME("二人称")%不试试看吗？」
		ENDIF
	ELSE
		IF COND("夜")
			PRINTFORMW 晚上好、%CNAME("二人称")%
		ELSE
			PRINTFORMW 「你好、%CNAME("二人称")%。」
		ENDIF
		PRINTFORMW 「你看起来很有精神、这比什么都好……」
	ENDIF
CASE "抜け出された"

CASE "便当"
	IF RAND:2 == 0
		PRINTFORMW 「%CNAME("二人称")%、我为您准备了手工三明治。」
		;低確率で変わったメニューが出てきます
		SELECTCASE RAND:23
		CASE 0
			;何なんだよ・・・コレは・・・
			PRINTW 今日の便当は
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTFORML 　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿
				PRINTFORML 　｜＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ｜
				PRINTFORML 　　　（　　　　　　　　・　ω・　　　　　）
				PRINTFORML 　｜～～～～～～～～～～～～～～ ｜
				PRINTFORMW 　　――――――――――――――
			SETFONT RESULTS
			PRINTFORMW 仔细一看、从三明治的面包之间、神秘的生物正在看着这边……。
			PRINTFORMW 我下定决心吃了、没想到很好吃。
		CASE 1
			PRINTFORM 今天的便当
			IF RAND:2 == 0
				;しまった…　ラップを突き破ってソースをしみ出させてしまったぞ……
				PRINTFORMW %TEXTR("カツ三明治/コーンサラダ三明治")%のようだ……
				PRINTFORMW 加了很多蛋黄酱酱。
			ELSE
				;あいつ　毎日こんなの食べてんのか！！
				PRINTFORMW 烤牛肉三明治
				PRINTFORMW 好厉害啊！里面有洋葱和鸡蛋
			ENDIF
		CASEELSE
			;通常欄にも時々変なの混ざってます（カツ三明治が3種類ある時点で既におかしいが）
			PRINTFORM 今天的便当
			PRINTFORM %TEXTR("チキンカツ三明治/ハムカツ三明治/きゅうり三明治/ツナサラダ三明治/たまご三明治/ポテトサラダ三明治/きたのさば三明治/メンチカツ三明治/コロッケ三明治/オムレツ三明治/ベーコン三明治/ちくわ天ぷら三明治/野菜炒め三明治")%
			PRINTFORMW のようだ……
		ENDSELECT
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、今天的便当拿来了。」
		PRINTFORM 今天的便当
		PRINTFORM %TEXTR("味噌汤付き日の丸弁当/ポテトサラダ付き唐油炸弁当/飯団＆卵焼き弁当/エビフライ弁当/アジフライ弁当/メンチカツ＆だし巻き玉子弁当/海苔弁当/そぼろ弁当/烏賊の唐油炸弁当/涼拌菜付き漢堡肉弁当/虹弁もどき/さつき弁当もどき/定食風弁当/唐油炸＆卵焼き弁当")%
		PRINTFORMW のようだ……
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「请多関照、%CNAME("二人称")%。」
CASE "浑身是汗"
	IF RAND:2
		PRINTFORML 「あ゛っつ゛ーぃですね……。汗拭きたい……」
	ELSE
		PRINTFORML 「うぅ…じとじとするぅ……」
	ENDIF
CASE "刚睡醒"
	IF RAND:2
		PRINTFORML 「嗯……」
	ELSE
		PRINTFORML 「啊…頭晕……」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K20
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML
CASE "契約成立"
	SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「做得很好。哪怕神也受不了吧、大概。
			;この部分はEVENT_K9_DAILY.ERBのコンパチ
		CASE 1
			PRINTFORML 「世上有多少灵魂存在呢、真是不可思议啊。」
			;よのなかどうなっとるんかのう。
		CASEELSE
			PRINTFORML "(ふんふょう)"
			PRINTFORML 「不、%CNAME("一人称","かな")%的灵魂并没有被拔出、请放心。」
	ENDSELECT
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「お、結構綺麗に使っているんですね」
		CASE 1
			;「どういう方向に偏っているか」は言わないことでイメージ乖離を少なくする作戦である。
			PRINTFORML 「（%CNAME("二人称")%の読む漫画、内容が割と偏っていますね…）」
		CASEELSE
			PRINTFORML 「……どうなされますか？」
	ENDSELECT
CASE "露脐装超短裙胖次チラ"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "变成裸体"
	IF (COND("秋") || COND("冬")) && RAND:2
		PRINTFORML %CNAME("二人称")%、%TEXTR("在这样的季节裸体/也不知道得感冒/真冷啊")%……！(筛选)
		PRINTFORML %CALLNAME:TARGET%似乎还在%TEXTR("冷得发抖/目瞪口呆")%………
	ELSEIF RAND:3 == 0
		PRINTFORML 「（果然很丢脸……）」
	ELSE
		PRINTFORML 《%CNAME("二人称", "どもり")%。你打算干什么……？」
	ENDIF
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		PRINTFORML 「%TEXTR("购物お疲れ様です/购物お疲れ様でした/無事に帰ってこれましたね/お疲れ様です/お疲れ様でした")%、%CNAME("二人称")%。」
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「%TEXTR("おぉ/それにしても/こう整理してみると")%、%TEXTR("結構/色々/たく桑")%買ってきましたね……」
		CASEELSE

		ENDSELECT
	;ENDIF
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	SELECTCASE SAVESTR:標語
	CASE "注意口渴"
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	CASE "体操服はやっぱり布鲁马"
		;IF DEVENT("標語布鲁马") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語布鲁马"
		;ENDIF
	CASE "学生服は露脐装超短裙に限る"
		;IF DEVENT("標語露脐装超短裙") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語露脐装超短裙"
		;ENDIF
	ENDSELECT
ENDIF

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

;イベント台詞。書いたらコメントアウトを外してください
;CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
;IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
;	PRINTFORML
;	CALL SET_DEVENT, "質問１"
;ENDIF
;IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
;	PRINTFORML
;	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 COND("夜")
	;SIF RAND:3 == 0 && TEXTS("曜日") == "土" && CEVENT("かんたん卡莉斯塔：初見")
	;	CALL DIALOGUE_FRAME_ITEM, "簡単卡莉斯塔"
	PRINTFORML 「%TEXTR("………。/………♪/………★")%」
	PRINTFORM %CALLNAME:TARGET%是
	IF TEXTS("曜日") == "土"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 文字街道羽を伸ばしてくつろいでいる
		CASE 1
			PRINTFORML 頭戴式耳机を付け、%TEXTR("スマートフォン/GameBaby/GameBabyAugment/X StationPersonal")%で遊んでいるようだ。
		CASEELSE
			PRINTFORML ソファに寝っ転がって%TEXTR("ライトノベル/小説/漫画/雑誌/新聞/学術書/教科書/辞典/辞書/游戏の攻略本/RPGのルールブック/何かよく分からない資料集")%を読んでいる
		ENDSELECT
	ELSE
		PRINTFORM %TEXTR("黙々と/要領よく/微笑みつつ/没頭した様子で/慣れた様子で/精心")%
		PRINTFORML %TEXTR("本の整理をして/掃除をして/掃除機をかけて/食器を洗って/制服を胸罩シ掛けして/消耗品の残量を確認して/洗濯をして/明日の様々な準備をして")%いる
	ENDIF
ELSE
	IF CHARA_NUM("現在存在") == 0 && RAND:3 == 0
		;レア台詞有。
		SELECTCASE RAND:8
		CASE 0
			PRINTFORML 「…………」zzz」（迷迷糊糊）
		CASE 1
			PRINTFORML 「（孤零零的……」
		CASEELSE
			PRINTFORML 「おや、二人きりみたいですね」
		ENDSELECT
	ELSEIF FIND_COND("現在存在", "弗理希艾尔") && RAND:5 == 0
		;実はここ千穂口上のコンパチ。
		PRINTFORML %CALLNAME:TARGET%与%CALLNAME:FINDCHARA(NO, 1)%
		CALL PRINT_STR, @"%TEXTR(@"%CNAME("二人称")%のこと/女仆と執事のこと/悪魔と天使のこと/天界や魔界での出来事")%について話している。_L"
	ELSEIF FIND_COND("現在存在", "祥子") && RAND:4 == 0
		PRINTFORML 「啊、谢谢你的帮助。」
		PRINTFORML %CALLNAME:TARGET%は%CALLNAME:FINDCHARA(NO, 21)%に部室幫忙做掃除もらっている……
	ELSE
		SELECTCASE RAND:4
		CASE 0
			;ここは祥子口上のコンパチ。
			IF PLACE("部室")
				PRINTFORM %CALLNAME:TARGET%在部室里
				PRINTFORM %TEXTR("摆桌子和椅子/换垃圾袋/擦桌子/擦窗户/扫地板/换黑板粉笔/换花瓶水")%
				PRINTFORML 在做这些事。
			ELSE
				CALL TaiTaChara_K20
			ENDIF
		CASE 1
			PRINTFORML 「%TEXTR("………。/………♪/………★/………？/………！")%」
			PRINTFORM %CALLNAME:TARGET%是
			PRINTFORM 『%TEXTR("女仆と執事のイメージ変遷史/マチルダは小小的大天才/ビリティスの歌/バグは人生/アダムの呪い/今更聞けない茶の出し方/空想科学読本/―パッショーネ24時―/錬金術師アンジュと闇の授乳組織/銀河戦士バルロイ（小説版）/ロマンシングサガ２（漫画版）/呪紋鋼人サイゼルⅢ（小説版）/吸血鬼カーミラ/私鉄純愛列車")%』
			PRINTFORML と題された本を読んでいる……
			;書名は実在するものからそうでないものまで色々。
			SIF RAND:4 == 0
				PRINTFORML 内容が面白色のか、時折%CALLNAME:TARGET%の翼がぱたぱた動いている。
		CASE 2
			PRINTFORML 「%TEXTR("………。/（原来如此）/………★/………？")%」
			PRINTFORML %CALLNAME:TARGET%在看报纸。
			PRINTFORM 介意地窥视一下的话、
			PRINTFORML %TEXTR("天気予報/小欄/川柳/iPS細胞について/4コマ漫画/法律制定について/経済について/テレビ番組/スポーツ/怪事件/社会情勢について")%の項目だった……
		CASEELSE
			CALL TaiTaChara_K20
			;PRINTFORML
		ENDSELECT
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K20
;極稀にレア梦话が聞けます
SELECTCASE RAND:23
CASE 0
	IF RAND:4 == 0
		PRINTFORML 「如果有面条的话……」
		;PRINTFORML 不能再那样了
		;PRINTFORML 「要进入秘密商店」
		;PRINTFORML 说起来啊
		;PRINTFORML 但是那个商店
		;PRINTFORML 在何处无论是谁
		;PRINTFORML 不知道啊」
	ELSEIF RAND:3 == 0
		PRINTFORML 「吸溜吸溜吸溜……」
	ELSEIF RAND:2
		PRINTFORML 「合您的口味吗……「坏了……」
	ELSE
		PRINTFORML %CALLNAME:TARGET%在休息时间。
	ENDIF
CASEELSE
	IF RAND:3
		IF RAND:3 == 0
			PRINTFORML 「…………」
		ELSEIF RAND:2
			PRINTFORML 「…………zzz」
		ELSE
			PRINTFORML 「すやぁ……」
		ENDIF
	ELSEIF RAND:2
		IF RAND:3 == 0
			PRINTFORML 「…………%CNAME("二人称","かな")%……zzz」
		ELSEIF RAND:2
			PRINTFORML 「……きゅぅぅー………」
		ELSE
			PRINTFORML 「嗯……」
		ENDIF
	ELSE
		PRINTFORML 「ぉふとぅん……♪」
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")
			PRINTFORMW 「休息なさい、%CNAME("二人称")%」
			PRINTFORMW 「後で%CNAME("一人称")%も寝ます」
		ELSE

		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")

	;場所移動後
	ELSE

	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0

CASE "点心を用意した"
	IF COND("亲手自制点心")
		PRINTFORMW 「本日は%TEXTS("点心")%を作りました。　お口に合えば幸いです……」
	ELSE
		SELECTCASE TEXTS("点心")
		CASE "糖衣巧克力"
			PRINTFORMW 「%CNAME("二人称")%、糖衣巧克力をお持ちしました」
			PRINTFORMW 「手が汚れにくいので個人的に好きな菓子の一つですね」
			;糖衣巧克力…商品名で言うならマー○ル巧克力やＭ＆○辺りのこと。
		CASE "謎生物グミ"
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTFORML 　　　　_,,..,,,,_
				PRINTFORML 　　　./・ω ・ヽ
				PRINTFORML 　　　l　　 　　 l
				PRINTFORMW 　 　 `'ｰ---‐´
			SETFONT RESULTS
			PRINTFORMW 「これは天界のとある製菓会社が販売している人気のグミですね」
			PRINTFORMW 「見た目は単純な目と口の付いた不透明なグミですが、中にもう一つグミがあって……」
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTFORML 　　　　_,,..,,,,_
				PRINTFORML 　　　./・ω ・ヽ
				PRINTFORML 　　 　ヽ(ﾟДﾟ)ﾉ
				PRINTFORML 　　　　　)＿)
				PRINTFORML 　　　　　(　(
				PRINTFORML 　　　l￣￣￣~l
				PRINTFORMW 　 　 `'ｰ---‐´
			SETFONT RESULTS
			PRINTFORMW 「このように分離出来るんですよ。」
		CASE "謎生物果凍"
			PRINTFORMW 「%CNAME("二人称")%、果凍をお持ちしました……」
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTFORML 　　　＿＿＿＿＿＿
				PRINTFORML 　／o　　　・　ω・　　＼
				PRINTFORMW .｜　　　　　　　　　　　｜
				PRINTFORMW （｜｜｜｜｜｜｜｜｜）
			SETFONT RESULTS
			PRINTFORMW 果凍のようなものがこちらを見ている……。
			PRINTFORMW 我下定决心吃了、没想到很好吃。
		CASEELSE
			PRINTFORMW 「本日は%TEXTS("点心")%をお持ちしました」
		ENDSELECT
	ENDIf

;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF

	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「%GREETING%」
			PRINTFORMW 「」
			PRINTFORML %CALLNAME:TARGET%は驚いたのかそれとも恥ずかしいのか、
			PRINTFORMW 翼をぴくぴくさせている…。
		ELSEIF COND("易出汗")
			CALL EMOTION_PLUS, "重置/眯眯眼/斜眉/半開/对话框汗"
			IF COND("易出汗", MASTER)
				PRINTFORML 「%GREETING%」
				PRINTFORMW 「ぁっぃー………」
				PRINTFORMW %CALLNAME:TARGET%は翼をばたばたさせている。
				PRINTFORMW 流石に嫌がっているようだ。
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、せめて汗を拭かせてください」
			ENDIF
		ELSE
			PRINTFORMW 「%GREETING%。」
		ENDIF
	CASE "打招呼接吻"
		CALL OFC_PRINT_STRW, @"「んっ……\@ TALENT:恋慕 ? _CBBH_ # ♪ \@ 」"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
		;	CALL EMOTION_PLUS, "重置/無口系"
		;	PRINTFORMW 「」
		ELSEIF RAND:8 && CEVENT("かんたん卡莉斯塔：初見")
			PRINTL
			PRINTL
			PRINTL
			PRINTW ぽむっ
			CALL DIALOGUE_FRAME_ITEM, "22簡単卡莉斯塔"
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTW 「ﾔﾀｰ ﾓﾄﾉｽｶﾞﾀﾆ ﾓﾄﾞﾀﾖｰ」
			SETFONT RESULTS
			PRINTL
			PRINTFORMW すかさず謎生物の頭にチョップを入れると、ぽむっという音とともに%CALLNAME:TARGET%の姿变成了
			CALL EMOTION_PLUS, "重置/＞＜/困扰眉/ω", TARGET
			PRINTFORML 「み゜
			PRINTFORML
			PRINTFORMW 　……流石に冗談ですよ、%CNAME("二人称")%」
		ELSE

		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「%GREETING%」
		ELSE
			PRINTFORMW 「%GREETING%、%CNAME("二人称")%」
		ENDIF
	ENDSELECT
CASE "叫醒"
	IF RAND:2
		PRINTFORMW 「お、おはようございます……」
		PRINTFORMW 「今日の%CNAME("二人称","かな")%は早起きですね……」
	ELSE
		PRINTFORMW 「嗯……」
	ENDIF
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖", "夸奖点心"
		IF RAND:2 == 0
			PRINTFORMW 「あ、有がとうございます」
		ELSE
			PRINTFORMW 「うーん、実感沸きませんね……」
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL PRINT_STRW, "「………_H_」"
		ELSEIF CALCF("甜言蜜语成功")
			CALL PRINT_STRW, "「……。_／／／_」"
			PRINTFORMW %CALLNAME:TARGET%は%TEXTR("嬉しかった/恥ずかしい")%のか、%TEXTR("輪っかが不規則に飛び跳ねて/翼をぱたつかせて")%いる……
		ELSE
			PRINTFORML 「……？」
			PRINTFORMW 好像没有传达到意思。
		ENDIF
	CASEELSE
		;低確率で変わったセリフが聞けます
		IF RAND:32 == 0
			PRINTFORML （う゛ぃぃぃぃん゛……）
			PRINTFORMW 「え、今なにをおっしゃいましたか？」
			PRINTFORML （う゛ぃぃぃぃん゛……）
			PRINTFORMW 好像是在打扫时没注意到。
		ELSEIF RAND:16 == 0
			IF COND("夜")
				PRINTFORMW 「%CNAME("二人称")%、卡拉OKでもしてみませんか？」
				PRINTFORML %CALLNAME:TARGET%慢慢地拿出了游戏机。
				PRINTFORMW それは卡拉OKじゃなくて、スパロボの「卡拉OKモード」だ……
				;PRINTFORMW しかもウィンキー時代のスパロボ。
			ELSE
				PRINTFORMW 「ボード游戏ですか？バトルテックやPathfinder RPGなら有ますけど」
				PRINTFORMW 那么只是说明规则就结束了休息时间………
				;バトルテック……メックと呼ばれるロボット兵器同士で戦うウォー・シミュレーション。
				;Pathfinder RPG…D&D(TRPGの一つ)のフリー版のようなもの。データが多くてめんどい
			ENDIF
		ELSEIF RAND:4 == 0
			IF TALENT:女性
				PRINTFORMW 「いちおう、%CNAME("一人称")%のように女性でも執事になれるそうです。」
				PRINTFORMW 「特别是女主管家的事好像很多。」
				;IF RAND:2 == 0
					;PRINTFORMW 「这么说来、为什么‘女装正太女仆’要多少钱、
					;PRINTFORMW 「男装萝莉执事」怎么也不存在呢？」
					;PRINTFORMW 「果然、是因为多少有些死板的印象吧？」
					;;ぶっちゃけ『男装萝莉』自体がそんなにいないような気がする。
				;ELSE
					;PRINTFORMW 「这么说来、在伊斯兰教圈里天使大概是男性。」
					;PRINTFORMW 「但是、就算是热心教徒、一般也看不到天使的创造。
					;PRINTFORMW 直截了当地说只有偏见和深思熟虑。」
					;PRINTFORMW 「天使是女人、你们不是坏蛋吗？」
				;ENDIF
			ELSE
				IF TALENT:娇小
					PRINTFORMW 「话说回来、为什么执事给人‘个子高’的印象很强呢？」
					PRINTFORMW 「%CNAME("一人称Ｂ")%は背が低くても特に困ったことは有ませんでしたが。」
				ELSE
					PRINTFORMW 「『男に見えるけど実は女かと思ったら本当に男だった』とかぜってー需要ねーから……。」
					PRINTFORMW %CALLNAME:TARGET%露出了恼人的表情…。
				ENDIF
			ENDIF
		ELSEIF RAND:3 == 0
			IF CEVENT("卡莉斯塔：眼鏡着用")
				PRINTFORMW 「眼鏡を掛けている理由ですか？」
				PRINTFORMW 「魔力や魂の力等々の流れが見え過ぎてモヤになっているので、その補正です。」
			ELSE
				PRINTFORML 「%CNAME("一人称")%は魔力や魂の力等々が見えるので、」
				PRINTFORMW 「部室で是つも霧がかかったように見えるのが困りどころですね。」
				PRINTFORML 「それを補正する為に、本を読む等の際は眼鏡を掛けておりますが、」
				PRINTFORMW 「同じ効果を持つコンタクトレンズが存在しないので地味に辛いです。」
			ENDIF
		ELSEIF RAND:2 == 0
			PRINTFORMW 「んゅ……」（のびー……）
			PRINTFORMW 「ときどき体をほぐしておかないと、急に用事ができたときに困りますからね」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、%TEXTR("书架/学习机/服装柜子/壁橱")%的整理结束了。」
			PRINTFORMW 「%TEXTR("床底下的书/这个大枕頭套/毛绒玩具")%应该放在哪里呢？」
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW 「おぉ、有がとうございます」
	IF RAND:4 == 0 && !TALENT:恋慕
		PRINTFORMW 「……。（何か下心でも……あるのでしょうかね？）」
	ELSEIF RAND:3 == 0
		CALL EMOTION_PLUS, "重置/斜眉/ω", TARGET
		PRINTFORMW 「（（（・ω・）））」
	ELSEIF RAND:2
		PRINTFORMW 「ただの汗でも放置すると冷えますからね」
	ELSE
		PRINTFORMW 「………★」
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%は、されるがままに汗を拭かれている…。
CASE "淋浴独り言"
	IF RAND:23 == 0
		PRINTFORML 「%TEXTR("I JUST FEEL RHYTHM EMOTION～♪/Where are you going to, When are you coming home～♪/You'll be ok～♪太陽が西から昇っても～♪/Youはshock！哀で月がぴちてくぅ～♪/君～知～ってるかい～♪宇宙の戦士～♪/止ま～らない～♪未来を～目指して～♪/ババババン♪ビンビビビビン　バン♪/やＢみザ　！（ぺーユくユシペ")%」
		PRINTFORML %CALLNAME:TARGET%は突然歌い出した……
	ELSEIF RAND:2
		PRINTFORML ただ淋浴の音だけが聞こえる……
	ELSE
		PRINTFORML 「%TEXTR("かぽーん……/（。・ω・）/（（（・ω・）））")%」
	ENDIF
CASE "淋浴"
	PRINTFORMW 「%TEXTR("はふー……/ふぅ、清爽しました")%」
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		CALL EMOTION_PLUS, "重置/斜眉/ω/红晕/对话框惊讶", TARGET
		PRINTL
		PRINTFORMW 「（・ω　・）」
		PRINTFORMW %CALLNAME:TARGET%は意味深な眼差しを向けたが、特に何も言わなかった。
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 「あ、%TEXTR("ドライヤー/毛巾")%使いますね」
		CASE 1
			PRINTFORMW 「うーん、喉が渇いてきましたね」
			SIF TALENT:MASTER:母乳体質
				PRINTFORMW %CALLNAME:TARGET%は何故か%CALLNAME:MASTER%をチラチラと見ている……
		CASE 2
			PRINTFORMW 「もしかして、順番待ちをしておられましたか？」
		CASEELSE
			PRINTFORMW 「%CNAME("二人称")%も淋浴、いかがでしょうか？」
		ENDSELECT
	ENDIF
CASE "淋浴後换装"
	PRINTFORMW 「ふふ。似合っていますか、%CNAME("二人称")%？」

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「あれを置いたのは、もしかして%CNAME("二人称")%でしたか？」
		PRINTFORMW 「他の方の私物なのかと思ったら着るに着れなくて……。」
	ELSEIF RAND:2
		PRINTFORMW 「今日は気分が乗らなかったですね……」
	ELSE
		PRINTFORMW 「これ、サイズ合ってませんでしたよ」
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K20
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF RAND:4 == 0
			PRINTFORML 软绵绵的。
			PRINTFORMW %CNAME("二人称")%、怎么了……？
		ELSEIF RAND:3 == 0
			PRINTFORML 无奈。
			CALL PRINT_STRW, "「……_／／／_。」(半睁…。)"
		ELSEIF RAND:2 == 0
			IF RAND:2 == 0 && TALENT:貧乳
				PRINTFORML 软绵绵的。
				PRINTFORMW 「………うーん……？」
			ELSE
				PRINTFORML 没関系。
				PRINTFORMW 「えっ、何やってるんですか？」
			ENDIF
		ELSE
			IF TALENT:貧乳
				PRINTFORML 「……」（莫非。）
				PRINTFORMW 只差一张纸就被捅破了。
			ELSE
				PRINTFORML 没関系。
				CALL PRINT_STRW, "「嗯……。_／／／_」"
			ENDIF
		ENDIF
		SIF RAND:4 == 0 && TALENT:貧乳
			PRINTFORMW %CALLNAME:TARGET%好像完全不在意自己薄弱的胸部……。
	CASE "按摩"
		SIF RAND:8 == 0 && CEVENT("かんたん卡莉斯塔：初見")
			CALL DIALOGUE_FRAME_ITEM, "22簡単卡莉斯塔"
		;低確率で変わったセリフが聞けます
		IF RAND:36 == 0
			PRINTFORML 「お゛ぉ゛ぉ゛ぉ゛っ゛……★」
		ELSEIF RAND:4 == 0
			PRINTFORML 「あ、有がとうございます」
			IF TALENT:巨乳
				PRINTFORMW 「肩がやたら凝っていて辛かったので……」
			ELSE
				PRINTFORMW 「歩きすぎて足が疲れているので……」
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORML 嗯………
			GETFONT
			CHKFONT "ＭＳ Ｐ哥特"
			SIF RESULT
				SETFONT "ＭＳ Ｐ哥特"
				PRINTFORMW 「%TEXTR("ぃ゛っ/み゜っ/きゅっ/ぷゅっ")%」
			SETFONT RESULTS
		ELSEIF RAND:2 == 0
			PRINTFORML 「～♪」
		ELSE
			PRINTFORML 「～★」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("マッサージを満喫し/翼をぱたつかせ")%ている……
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		IF RAND:3 == 0
			PRINTFORML 「……zzz」
			PRINTFORMW 「あっ、いけないいけない」
		ELSEIF RAND:2 == 0
			PRINTFORML 「おぉ、有がとうございます」
			PRINTFORMW 「……♪」
		ELSE
			PRINTFORMW 「……★」
		ENDIF
	CASE "泡茶"
		IF RAND:3 == 0
			PRINTFORML 「おや、気が利きますね。有がとうございます」
			PRINTFORMW %CALLNAME:TARGET%笑嘻嘻地接过茶。
		ELSEIF RAND:2 == 0
			PRINTFORMW 「んきゅ…おいしいですね」
		ELSE
			PRINTFORMW 「時にはこのようにまったりするのもいいですね……」
		ENDIF
	CASE "勸酒"
		IF RAND:2 == 0
			PRINTFORMW 「%CNAME("二人称")%、そもそも%CNAME("一人称")%のように見た目が未成年な方へ飲酒を勧めるのは如何なものかと思います」
			;PRINTFORMW 「ん、『この游戏の登場人物は全員18歳以上です』？……何のことやら」
			PRINTFORML ………
			PRINTFORMW 「ああもう仕方無い仕方無い……」
		ELSE
			PRINTFORMW 「程々でお願いしますよ。」
		ENDIF
	CASE "一起学习"
		IF RAND:2 || BASE:MASTER:学力 >= BASE:学力 + 10
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%、そこが解けないのですね……」
				PRINTFORML ………
				PRINTFORMW 「%CNAME("一人称")%にもわかりません。清爽　わかりません」
			CASE 1
				PRINTFORMW 「答えが分かるのに解法が導けないのはもどかしいですね……」
			CASEELSE
				IF CALCF("試験の予想点数") >= 80
					PRINTFORMW 「%CNAME("二人称")%の学力なら合格ラインは余裕で越えられると思います……」
					PRINTFORMW 「というより、そんなに出来るのであれば%CNAME("一人称")%に教えて頂きたい所ですよ」
				ELSE
					PRINTFORMW 「えーと、その辺りは%CNAME("一人称")%も全然ついていけなくて……」
				ENDIF
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「よし…ここは%CNAME("一人称")%にお任せください」
			CASE 1
				IF CALCF("試験の予想点数") >= 70
					PRINTFORMW 「気分転換に試験範囲外の問題を解いてみましょうか」
					SELECTCASE RAND:10
					CASE 0
						PRINTFORML 『図は【アカンステロール】の構造式です。
						PRINTFORMW 　【ゴルゴステロール】の構造式との相違点に印を付けなさい』
						PRINTFORMW ※実在する化合物名です
					CASE 1
						PRINTFORML 『【－√5≦x≦√5】で定義される2つの関数
						PRINTFORML 　【ｆ（ｘ）＝√｜ｘ｜＋√（5－ｘ＾2）】
						PRINTFORMW 　【ｇ（ｘ）＝√｜ｘ｜＋√（5－ｘ＾2）】
						PRINTFORMW 　に対し、次の問題に答えよ。　　　　　　』
						PRINTL
						PRINTFORML 『（1）関数ｆ（ｘ）とｇ（ｘ）の増減を調べ、
						PRINTFORMW 　　　 ｙ＝ｆ（ｘ）とｙ＝ｇ（ｘ）のグラフの概形をかけ』
						PRINTFORML 『（2）2つの曲線ｙ＝ｆ（ｘ）と
						PRINTFORMW 　　　ｙ＝ｇ（ｘ）で囲まれた図形の面積を求めよ』
						PRINTFORMW ※心型になります
					CASE 2
						PRINTFORML 『夜、4人の人が不安定な縄の吊り橋を渡って宿営地に返回必要が有ます。
						PRINTFORMW 　しかし彼らは懐中電灯を1つしか持っておらず、電池は17分しか保ちません。』
						PRINTFORML 『吊り橋は危険で、懐中電灯没有では渡ることが出来ません。
						PRINTFORMW 　また、吊り橋は常に2人を支えるだけの強度しか有ません。』
						PRINTFORML 『4人はみな、歩く速度が違います。1人は橋を1分で歩くことが出来ます。
						PRINTFORMW 　　　　　　もう1人は2分、3人目は5分で、最後の1人は10分かかります。』
						PRINTFORMW 『どうすれば、全員が17分以内に渡ることが出来ますか？』
						;PRINTL
						;PRINTFORMW ※答え
						;PRINTFORML １．1分と2分が渡る→2分経過（計2分）
						;PRINTFORML ２．1分だけ返回→1分経過（計3分）
						;PRINTFORML ３．5分と10分が渡る→10分経過（計13分）
						;PRINTFORML ４．2分が返回→2分経過（計15分）
						;PRINTFORMW ５．2分と1分が渡る→2分経過（計17分）
						PRINTL
						PRINTFORMW 「所謂『川渡り問題』の亜種として考えれば分かり易いかもしれませんね」
					CASE 3
						PRINTFORMW 『樱酱が、12時に自宅から時速4kmで歩き始めた。』
						PRINTFORML 『12時半になってから、妹の南実酱が同じく自宅から
						PRINTFORMW 　自転車を使って時速16kmで樱酱を追いかけ始めた。』
						PRINTFORMW 『南実酱が樱酱に追いつく時刻を答えよ。』
						PRINTFORMW （※南実酱の心境は答えなくてもよい）
					CASE 4
						PRINTFORMW 『図は地下鉄の路線図である。次の問題に答えよ。』
						PRINTFORML 『（１）我が名は%TEXTR("アシタカ/アシベ/バシタカ")%！
						PRINTFORMW 　　　　阪急梅田駅に行こうとして阪神梅田駅に来てしまった！
						PRINTFORML 　　　　その後は御堂筋梅田駅と四つ橋西梅田駅と
						PRINTFORMW 　　　　谷町線東梅田を経由してこの地へ来た！ここは一体どこだ！』
					CASEELSE

					ENDSELECT
				ELSE
					PRINTFORMW 「あ、ここは試験範囲外のようですね」
				ENDIF
			CASEELSE
				IF CALCF("試験の予想点数") >= 80
					PRINTFORMW 「今のところ、かなり順調ですね……」
					PRINTFORMW 「保持这个样子勉強し続ければ、学年トップクラスも夢ではないかもしれません」
				ELSEIF CALCF("試験の予想点数") >= 60
					PRINTFORML 「予想問題がどちらも半分以上解けましたね」
					PRINTFORMW 「実際の試験でもこの調子だと良いのですが」
				ELSE
					PRINTFORML 「分からない部分があれば聞いてくださいね」
					PRINTFORMW 「%CNAME("一人称")%が解けない可能性も勿論有ますが……」
				ENDIF
			ENDSELECT
		ENDIF

	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		CALL EMOTION_PLUS, "夸奖"
		PRINTFORMW 「おおっ、文房具ですか」
		PRINTFORMW 「丁度切らしていたところでした。有がとうございます」
	CASE "送一份普通的礼物"
		CALL EMOTION_PLUS, "夸奖"
		IF !CEVENT("贈った送禮：ダイスタワー")
			PRINTFORMW 「ダイスタワーですね。有がとうございます」
			PRINTFORMW 「機会があればコレを使ってTRPGでもしてみませんか？」
			CALL SET_CEVENT, "贈った送禮：ダイスタワー"
		ELSE
			PRINTFORMW 「このインクは……%TEXTR("布丁ター/ボールペン/万年筆/印鑑/スタンプ")%用ですね」
			PRINTFORMW 「有がとうございます。そろそろ足りなくなっていたので助かりましたよ」
		ENDIF
	CASE "送一份高价的礼物"
		IF !CEVENT("贈った送禮：魚播摩四百世紀")
			CALL EMOTION_PLUS, "重置/〇〇/斜眉/笑顔/对话框惊讶"
			PRINTFORML 「こ、これは……某SFボード游戏のスターター、それも2勢力分！？」
			PRINTFORMW 「それだけでなく、コアブックやコデックス、更には追加迷你チュアまで！」
			PRINTFORMW 「あ、有がとうございます。今度一緒に遊んでみましょうね、%CNAME("二人称")%」
			CALL SET_CEVENT, "贈った送禮：魚播摩四百世紀"
		ELSE
			CALL EMOTION_PLUS, "重置/〇〇/斜眉/笑顔/对话框惊讶"
			PRINTFORMW 「%CNAME("二人称")%、良い高級食材を見つけてきたようですね」
			PRINTFORMW 「後でコレを使って何を作ってみましょうか……」
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K20
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW 「啾……」
	CASE "膝枕", "摩擦股間"
		PRINTFORMW
	CASE "抱住", "把胸部压了上去"
		;オノマトペの分岐多すぎたかも。
		PRINTFORMW %TEXTR(@"もにゅ/むにゅ/むっぎゅ/むぎゅ/にゅも/にゅむ/抿嘴/がばし/ゅぎむ/むゅぎ/もにゅっさ")%
			IF RAND:3 == 0
				IF TALENT:貧乳 || TALENT:男性
					CALL EMOTION_PLUS, "重置/＞＜/紅潮", TARGET
					PRINTFORMW 「……。何かドキドキしますね……」
					PRINTFORMW %CALLNAME:TARGET%压着平坦的胸膛、享受着肌肤的温暖…。
				ELSE
					PRINTW 「……。」(´・ω・｀)
					PRINTW 「抱きつこうとしたのですが、どうしても胸が先に当たりますね……」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORMW 「……？」
				PRINTFORMW 「%CNAME("一人称")%がこういう事をするのは意外ですか……？」
			ELSE
				PRINTFORMW %CNAME("二人称")%怎么样？
				PRINTFORMW 「」
			ENDIF
	CASE "抚摸"
		PRINTFORMW %TEXTR(@"抚摸抚摸/抚摸……/轻飘飘/软绵绵/软飘飘")%。
		PRINTFORMW 「ﾅﾃﾞﾅﾃﾞｼﾃ-%TEXTR(@"と言われた気がして/という鳴き声がしたので/と轟く叫びを耳にしたので")%」
		PRINTFORMW 没说过那样的话。
	CASE "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		PRINTFORMW 「よろしければ%SAVESTR:茶%どうぞ」
	;それ以外
	CASEELSE
		IF RAND:529 == 0
			PRINTFORMW 「ところで、この口上においては低確率でネタ分岐が実装されております」
			PRINTFORMW 「一見ネタに見えないものからきれぼし脳まで様々」
			PRINTFORMW 「作者曰く、『玛丽桑口上でも低確率ネタ分岐あるしいいかなー』とのことです」
			PRINTFORMW %CALLNAME:TARGET%は唐突にメタ発言をしている……。
		ELSEIF RAND:2
			PRINTFORMW 「…嗯？」
		ELSE
			PRINTFORMW 「您怎么了？」
		ENDIF
	ENDSELECT
CASE "構って欲しい！"
	CALL EMOTION_PLUS, "重置/眯眯眼/斜眉/ω/红晕", TARGET
	PRINTFORMW 「……。」
	PRINTFORMW %CALLNAME:TARGET%は構って欲しそうに翼をぱたぱたさせている……
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K20
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「うぅ……、%CNAME("二人称")%はひどいです……」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「え、ここでですか……？」
		ELSE
			PRINTFORMW 「流石にいつでもどこででもという訳には……」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%似乎对%CALLNAME:MASTER%的要求感到惊讶…。
	ELSEIF RAND:2 == 0
		CALL PRINT_STR, "「や、やっぱり恥ずかしいです……_／／／_」_W_"
	ELSE
		CALL PRINT_STR, "「…………。_／／／_」_W_"
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K20
		WAIT
	ELSE
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:2 == 0
				PRINTFORMW 「えっ、まだ続けるのですか……？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%って本当に%PANTIES(TARGET, "内衣")%好きなんですね……」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「あまり服には似合っていないかもしれませんが……」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「えっ、えっと……、楽しいですか？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%がどうしてもと仰るなら……」
			ENDIF
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K20
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K20
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORMW
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/20 カリスタ/EVENT_K20_DAILY.ERB


code:
;CALL CALISTA_HOLD
;
;↓こんな使い方をします。
;IF TEQUIP:拘束
;	CALL CALISTA_HOLD
;ENDIF

@CALISTA_HOLD
CFLAG:随机 = 0
SELECTCASE SELECTCOM
	;愛撫系＆道具系
	CASE 0 TO 12, 30 TO 59
		CALL CALISTAHOLD_AIBU
	;挿入系
	;CASE 60 TO 69, 70 TO 79
	;	CALL CALISTAHOLD_SOUNYU
	;素股
	;CASE 93, 101
	;	CALL CALISTAHOLD_SUMATA
	CASEELSE
		RETURN 0
ENDSELECT

@CALISTAHOLD_AIBU
	PRINTFORM 「
	IF (SELECTCOM == 1 && EX:Ｃ絶頂 >= 10) || (SELECTCOM == 2 && EX:Ａ絶頂 >= 10) || (SELECTCOM == 5 && EX:Ｂ絶頂 >= 10) || (SELECTCOM == 8 && EX:Ｖ絶頂 >= 10) || (SELECTCOM == 9 && EX:Ａ絶頂 >= 10)
		REPEAT 1 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			IF !RAND:6 && TALENT:恋慕
				CALL PRINT_STR, "ふぉぉぉーっ_H_"
			ELSEIF !RAND:5
				CALL PRINT_STR, "ふぉぉ…_H_"
			ELSEIF !RAND:4
				CALL PRINT_STR, "ふぉっ_H_"
			ELSEIF !RAND:3
				PRINTFORM ふぉ！
			ELSEIF !RAND:2
				PRINTFORM ふぉ…
			ELSE
				CALL PRINT_STR, "ふぉ_H_"
			ENDIF
		REND
	ELSE
		SIF !RAND:3
			PRINTFORM ふぉ、
		IF !RAND:6 && TALENT:恋慕
			PRINTFORM ふぉぉぉ…
			CALL HEARTMARK
		ELSEIF !RAND:5
			PRINTFORM ふぉぉぉ…
		ELSEIF !RAND:4
			PRINTFORM ふぉぉ？
		ELSEIF !RAND:3
			PRINTFORM ふぉぉ！
		ELSEIF !RAND:2
			PRINTFORM ふぉぉぉ。
		ELSE
			PRINTFORM ふぉぉっ
			CALL HEARTMARK
		ENDIF
	ENDIF
	PRINTFORMW 」

path: ERB/EVENT_K/20 カリスタ/EVENT_K20_HOLD.ERB

license: unknown


code:
@WISH_K20_ADDSELECT
IF (MARK:屈服刻印 >= 1 || ABL:信頼 >= 2) && CFLAG:好感度 >= 100
	IF CEVENT("卡莉斯塔：制服男装")
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("制服を戻して", 16)% … 女性用の制服に戻してもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("制服を男性用に", 16)% … 男性用の制服で登校してもらいます/
	ENDIF
	IF CEVENT("卡莉斯塔：眼鏡着用")
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("眼鏡外して", 16)% … 眼鏡を外してもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("眼鏡付けて", 16)% … 眼鏡を付けてもらいます/
	ENDIF
	IF CEVENT("卡莉斯塔：女仆装")
		STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("家では執事服", 16)% … 執事服に戻してもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("家では女仆装", 16)% … 家では女仆装を着てもらいます/
	ENDIF
ENDIF

@KOJO_WISH_K20_ADDSELECT,ARGS
SELECTCASE ARGS
CASE "制服を戻して"
	PRINTFORMW %CALLNAME:MASTER%は明日から女性用の制服で登校してもらえるように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「かしこまりました、次から戻しますね」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から女性用の制服を着て登校するよう成为了
	CALL DEL_CEVENT, "卡莉斯塔：制服男装"

CASE "制服を男性用に"
	PRINTFORMW %CALLNAME:MASTER%は明日から男性用の制服で登校してもらえるように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「そうですね、そちらの方が似合うとお思いであれば……かしこまりました」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から男性用の制服を着て登校するよう成为了
	CALL SET_CEVENT, "卡莉斯塔：制服男装"

CASE "眼鏡外して"
	PRINTFORMW %CALLNAME:MASTER%は明日から眼鏡を外してもらえるように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「まぁ、字を読む時以外は生活に支障が無いので……かしこまりました」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から眼鏡を外して登校するよう成为了
	CALL DEL_CEVENT, "卡莉斯塔：眼鏡着用"

CASE "眼鏡付けて"
	PRINTFORMW %CALLNAME:MASTER%は明日から眼鏡を付けてもらえるように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「かしこまりました、次から戻しますね」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から眼鏡を付けて登校するよう成为了
	CALL SET_CEVENT, "卡莉斯塔：眼鏡着用"

CASE "家では執事服"
	PRINTFORMW %CALLNAME:MASTER%は明日から家で執事服を着るように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「かしこまりました、次から是つもの服を着てきますね」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から家で執事服を着るよう成为了
	CALL DEL_CEVENT, "卡莉斯塔：女仆装"

CASE "家では女仆装"
	PRINTFORMW %CALLNAME:MASTER%は明日から家で女仆装を着るように%CALLNAME:TARGET%にお願いした
	PRINTL
	PRINTFORMW 「女仆装ですね？……かしこまりました」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%は明日から家で女仆装を着るよう成为了
	CALL SET_CEVENT, "卡莉斯塔：女仆装"

ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K20_ADDSELECT
STR:選択肢 += "他の部員について/"

@KOJO_DAILY1_K20_ADDSELECT, ARGS

#DIM CHOICE
#DIMS CHOICES

SELECTCASE ARGS
CASE "他の部員について"
	PRINTFORML %CALLNAME:MASTER%たちは部員達について話すことにした
	PRINTFORMW 誰について話そうか……
	PRINTL

	VARSET LOCALS
	SPLIT NAMES("入部角色一覧"), "/", LOCALS
	CALL PRINT_SELECT, @"%NAMES("入部角色一覧")%"

	PRINTL
	SELECTCASE LOCALS:RESULT
	CASE "弗理希艾尔"
		PRINTFORMW 「敢えて言うならば部員の内で最も何考えているか分からない存在ですね」
		;PRINTFORML 「際立って利己的なわけでも献身的なわけでもなく、時々謎の茶目っ気を……
		;PRINTFORMW 　って何ですかその目線は、もしかして%CNAME("一人称Ｂ")%のことのように見えますか」
		PRINTFORML 「契約を執り行う悪魔という立場を持つ一方で利益の為にのみ動くわけでもなく、
		PRINTFORMW 　%CNAME("主人")%やその周辺等へ様々な形で介入したがっているようにも思えます」
		PRINTL
		PRINTFORMW 「もしかすると、部活という形で種族の中立地帯を作りたいのかも知れませんね」
	CASE "濡烏の君"
		PRINTFORML 「狐なのに何故あんな名前なのだろうと常々考えていましたが、
		PRINTFORMW 　幾つかの文献によると『濡烏』という単語は色名のようですね」
		PRINTFORML 「黒色……特に美しく艶の有る黒髪を指すそうで、
		PRINTFORMW 　そう言われてみれば確かに名が体を表すとも言えます」
	CASE "西西莉亚"
		PRINTFORML 「当初は人形のようで口数の少ないクールビューティー……
		PRINTFORMW 　と思っておりましたが、部室であれ程饒舌に話すとは惊讶ましたよ」
		PRINTFORMW 「魔術師的家系故か、話す題材にも博識さが垣間見えていて素晴らしいですね」
		PRINTFORMW 「%CNAME("主人")%との会話を盗み聞きしてメモを取りたくなってきます」
	CASE "阿丽努"
		PRINTFORMW 「保険医だそうですが、幸か不幸か%CNAME("一人称")%にとっては馴带污迹的が单薄的ですね」
		PRINTFORMW 「あと、この学校における淫魔の割合って案外多いような……？」
	CASE "六華"
		PRINTFORML 「ああいった存在に今まで関わることが無かったと是え、
		PRINTFORMW 　まさか多神教的な意味での神の一柱まで部活に居るとは思いませんでしたよ」
		PRINTFORML 「ところで多神教における神の数え方が『柱』な理由について調べてみましたが、
		PRINTFORMW 　『古くは樹木又は木製の柱に神が宿ると考えられていた為』という説が有力なようです」
		PRINTFORML 「……即ち、自然信仰。
		PRINTFORMW 　もしかすれば、彼女もまた自然信仰由来の神なのかもしれませんね」
	CASE "樱"
		PRINTFORML 「実を言うと……こ的家来了当初の%CNAME("一人称")%は、
		PRINTFORMW 　%CNAME("主人")%の魂があの妹桑から少しずつ奪ったものだと疑っていました」
		PRINTFORMW 「……まあ、何処をどう考えても魂の量が釣り合わない為にその線は早々に消えましたがね」
		PRINTL
		PRINTFORMW 「あと、ああ見えて游戏が得意だというのも結構ギャップが有些ましたよ」
		PRINTFORMW 「%CNAME("一人称")%としては玩音游が比較的苦手なのでコツを聞きたいところですね」
	CASE "哈娜"
		PRINTFORMW 「他の獣人と比べても尚エネルギッシュで坦率な印象ですね」
		PRINTFORML 「他者からは『どちらかと言えば犬っぽい』と評されることも有些ますが、
		PRINTFORMW 　狼も犬も動物の方は共にイヌ科で有、その認識も強ち間違いと言い切れません」
		PRINTFORMW 「ただ、あまりに犬扱いされ続ければ自尊心の有無に拘らず心情差にはなるでしょうね」
	CASE "優里"
		PRINTFORML 「辣妹にはヤマンバ系というファッションが存在すると聞きますが、
		PRINTFORMW 　まさか本当に辣妹な鬼が居るとは%CNAME("一人称")%も惊讶でしたよ……」
		PRINTFORMW 「ただ、%CNAME("一人称")%とてヤマンバ系が本物の鬼由来だとは流石に思っていませんがね」
	CASE "帕拉奇娜"
		PRINTFORMW 「彼女は身高を気にしているそうですが、一応ながら戦う職業であるが故に当然でしょう」
		PRINTL
		PRINTFORML 「法皇庁の驱魔人……普段は馴带污迹的の单薄的方々でしょうが、
		PRINTFORMW 　超常的な存在が多々蔓延る中で陰ながら治安の悪化を抑える存在の一つですね」
		PRINTFORMW 「要は人类に危害を加えている悪魔や精霊、獣人等を捕縛又は排除するわけです」
		PRINTFORML 「組織としては一時期廃止されていた……という記録も残っていますが、
		PRINTFORMW 　ソレが実際のところ真実か否か等の実態は%CNAME("一人称")%も存じ上げません」
	CASE "麦莉爱娜"
		PRINTFORML 「%CNAME("主人")%のお母様の事情を知った際、
		PRINTFORMW 　%CNAME("一人称")%は真っ先にその夫が一体どんな人物だったのか気成为了ね」
		PRINTFORML 「虽然很可惜今は既に亡くなっているとお聞きしましたが、
		PRINTFORMW 　%CNAME("主人")%がお父様の詳しい人となりをご存知無いのも不可解です」
		PRINTL
		PRINTFORML 「……勿論、気を悪くさせるつもりは有些ません。
		PRINTFORML 　%CNAME("主人")%の持つ＜復活＞が何を由来とするものか、
		PRINTFORMW 　%CNAME("一人称")%を含めた部員達の大半が多かれ少なかれ気になっているものですから」
	CASE "アイリ"
		PRINTFORMW 「生まれながらにして猫の獣人ですか……獣人は何かと話題に事欠きませんね」
		PRINTFORML 「特に、元の動物とどれ程共通するのかしないのか気になるところです。
		PRINTFORMW 　人类に比べて腎臓病が発生しやすいのか、喉を触るとゴロゴロ鳴るのか……」
		PRINTFORML 「そう言えば、『みゃ』や『にゃ』等の語尾は矯正されて自制している
		PRINTFORMW 　……と聞いたのが%CNAME("一人称")%としては今のところ最大の惊讶でしたね」
		PRINTFORMW 「むしろ『言うんだ……』という点で」
	CASE "織"
		PRINTFORML 「吸血鬼に血を吸われて『吸血鬼になる』『性別が変わる』……
		PRINTFORMW 　単体では創作でよく見受けられますが、実際に両方起こるパターンは珍しいですね」
		PRINTFORML 「そもそも吸血鬼に血を吸われた者が必ず吸血鬼になるわけでは有ません。
		PRINTFORMW 　もし必ず変わるようであれば世の中は吸血鬼だらけになってしまうことでしょう」
		PRINTFORML 「これは%CNAME("一人称Ｂ")%の推測ですが……もしかすると、
		PRINTFORMW 　性別を変える術と同時に誤って吸血鬼化する手順を実行してしまったのかも知れませんね」
	CASE "小菊"
		PRINTFORMW 「可愛的ですよねー。まあ元々が美術品だから当然のことでしょう」
		PRINTFORML 「この手の『作られた物品が自我を持って動く』といった現象は
		PRINTFORMW 　世界各地で見受けられるものの、実際に見ると感慨深いものが有ます」
		PRINTL
		PRINTFORMW 「『省エネモード』？　何のことでしょうかね……」
	CASE "卡莉斯塔"
		PRINTFORML 「%CNAME("一人称")%について……何を言えば良いのやら。
		PRINTFORMW 　很强て言うならば、%CNAME("主人")%にとって事実上の守護天使という感じですね」
		PRINTL
		PRINTFORML 「他者からは天使らしくないと言われることも時々有些ますが、
		PRINTFORML 　今まで%CNAME("一人称")%の見てきた中では金儲けに固執する天使や
		PRINTFORMW 　異性をとっかえひっかえする色狂い天使もちらほら居ます故さほど気になりませんよ」
		PRINTFORML 「そういった天使達はそんな性質で有ながら堕天せず仕事をこ无ます。
		PRINTFORMW 　推論ですが、本来の役割等を一応果たしている為に許されているのでしょう」
	CASE "玛丽"
		PRINTFORMW 「実のところ法皇四騎士の方々については%CNAME("一人称Ｂ")%も詳しいわけでは有ません」
		PRINTFORMW 「很强て言うならばその一員、イネス様に嘗てお会いしたことが有るぐらいですね」
		PRINTFORMW 「どうやら聖人の名を冠する驱魔人だそうで、本人ではない……とのことでした」
		PRINTL
		PRINTFORMW 「玛丽様個人については良くも悪くも直向きで真面目な印象ですね」
		PRINTFORMW 「ただ、%CNAME("一人称")%を実態以上に凄い存在として見ていることには惊讶ましたよ」
	CASE "乃々"
		PRINTFORML 「生まれながらにして堕天使というのも比較的珍しい事例ですね……
		PRINTFORMW 　もしかしたら%CNAME("一人称Ｂ")%の知らないだけで意外と多い存在かもしれませんが」
		PRINTFORML 「あと、乃々桑のように堕天使を含め天使には中性的な個体が多いと聞きます。
		PRINTFORMW 　肉体への依存が单薄的為か見た目の幼い個体が多いことも影響しているそうですね」
	CASEELSE
		PRINTFORMW （未実装）
	ENDSELECT

ENDSELECT


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

SELECTCASE ARGS
CASE "取引開始"
	PRINTFORML 「那么、请问您有什么事。」
	IF RAND:3 == 0
		PRINTFORML 「%CNAME("一人称")%会尽我所能的帮助你。」
	ELSEIF RAND:2 == 0
		PRINTFORML 「%CNAME("一人称Ｂ")%是ついかなるときも、正しき人の味方なるゆえ…」
	ELSE
		PRINTFORML 「我不会听从太极端的要求、……」
	ENDIF

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛

	;失敗
	ELSE

	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
CASE "胖次交易"

CASE "胖次"

CASE "胖次拒否"

CASE "全裸交易"

CASE "全裸"

CASE "全裸拒否"

CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「便当ですね？承知いたしました。」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「便当を作ってきてほしいのですか？」
		IF COND("同居中")
			PRINTFORMW 「知道了。我们在学校一起吃吧。
		ELSE
			CALL PRINT_STRW, "「知道了。交给我吧。……_/_／／／_」"
			PRINTFORMW 好像有点害羞呢。
		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 "淫紋贴纸"
	;初回
	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 "魂が足りない"
	IF RAND:23 == 0
		PRINTFORMW 「（くっ　たましいがたりない！）」
		;まさかの游戏版キャプ翼風。
	ELSE
		PRINTFORMW 「不好意思。」
		PRINTFORMW 「因为灵魂全都丢了所以还不行—」
	ENDIF
	SIF RAND:23 == 0
		PRINTFORMW 「话说灵魂在1.00以下无法进行交易、」
	PRINTFORMW 「请在灵魂恢复之后再来拜托……」

CASE "想要钱"

CASE "大力士"
	PRINTFORMW 「是身体能力的提高呢。」
	PRINTFORMW 「生半可な人体改造では体が追い付かないので、今日から训练しましょう。」
	;;PRINTFORMW 「不锻炼就成为有力气的人、总觉得有些狡猾……」

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "禁断的知識"
	SELECTCASE TALENT:MASTER:禁断的知識
		CASE 0
			PRINTFORMW 「‘淫纹’术的学习对吧？」
			PRINTFORMW 「虽然在天界也研究过类似的术语、但是使用时需要注意。」
			PRINTL
			PRINTFORMW 「最初从具有相同效果的贴纸開始吧。」
			PRINTFORMW 「……」请%CNAME("二人称")%不要用在坏事上。
		CASE 1
			PRINTFORMW 「‘具现术’的学习对吧？」
			IF TALENT:MASTER:男性 || TALENT:MASTER:伪娘
				PRINTFORMW 「今の%CNAME("二人称")%には必要ないと思いますが、どうしても必要というのであれば。」
			ELSE
				PRINTFORMW 「女同士で愛し合うために…必要かどうかは悩ましいですが、必要というのであれば。」
			ENDIF
			PRINTFORMW 「虽然已经说了好几次、但是请不要用在坏事上。」
		CASE 2
			PRINTFORML 「『認識阻害』の術の習得ですね？」
			PRINTFORMW 「本来は天使が活動する際、注目を浴びづらくする為の術なのです。」
			PRINTFORMW 「くどいようで恐縮ですが、悪い事には使わないで下さいね、%CNAME("二人称")%。」
	CASEELSE
	ENDSELECT

CASE "錬金術"

CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"
		PRINTFORMW 「是、大きくするのですね、承りました。」
		IF RAND:2 == 0
			PRINTFORMW 「%CNAME("一人称")%もそれほど見慣れてる訳では有ませんが、人並くらいにはなったのではないでしょうか。」
		ELSE
			PRINTFORMW 「（ぴろりぴろりぴろりん）」
			;蘑菇だけに超市蘑菇を取ったマリオ風に
		ENDIF
	CASE "普通"
		PRINTFORMW 「もう少し大きくするのですね、承知しました。」
		IF RAND:2 == 0
			PRINTFORMW 「%CNAME("一人称")%もあまり見た事がない位には大きくなりましたよ。」
		ELSE
			PRINTFORMW 「立派ですね、中には痛がる女性も居るかもしれませんので十分注意して下さいね。」
		ENDIF
	CASE "巨根"
		PRINTFORMW 「まだ大きくするのですね、承知しました。」
		IF RAND:2 == 0
			PRINTFORMW 「%CNAME("一人称")%はかまいませんが、%CNAME("二人称")%がお困りになりしませんか？」
		ELSE
			PRINTFORMW 「かなり大きくなりましたね。%CNAME("二人称")%、あまり相手の女性に無理な事はなさらないで下さいね。」
		ENDIF
	;馬根以上
	CASEELSE
		PRINTFORMW 「え゛っ……、もっと大きくしてほしいのでしょうか。」
		IF RAND:2 == 0
			PRINTFORMW 「これだと%CNAME("一人称Ｂ","かな")%のには入りきれないと思いますが……。」
		ELSE
			PRINTFORMW 「……」不会后悔吧？
			;いろんな意味で。(日常生活に支障が来るかもしれないとか実は需要ないかもしれないとか)
		ENDIF
	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	PRINTFORMW 「小さくするのですか、分かりました。」
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
		CASE "普通"
			IF RAND:2 == 0
				PRINTFORMW 「体格が小さめの女性なら大号的疼痛も感じず丁度いいですね。」
			ELSE
				PRINTFORMW 「（でゅんでゅんでゅん）」
				;蘑菇だけに敵に接触した超市マリオ風
			ENDIF
		CASE "巨根"
			IF RAND:2 == 0
				PRINTFORMW 「あまり大きいと経験の少ない女性は苦しいだけですしね。」
			ELSE
				PRINTFORMW 「この学園は若い女性も多いですし普通サイズで十分だと思いますよ。」
		ENDIF
	;馬根以上
		CASEELSE
			IF RAND:2 == 0
				PRINTFORMW 「太大了很为难啊、嗯、知道了。」
			ELSE
				PRINTFORMW 「我认为这是妥当的判断。过犹不及呢……。
			ENDIF
	ENDSELECT

CASE "巨乳化"
	PRINTFORMW 「胸部变大するのですか、分かりました。」
	SELECTCASE CONDS("胸部", PLAYER)
		CASE "爆乳"
			IF TALENT:巨乳 == 3
				PRINTFORMW 「%CNAME("一人称")%としては色々大変なのであまりお勧めはしませんが。」
			ELSE
				PRINTFORMW 「この尺寸は壮観ですが日常生活でお困りになりませんか？%CNAME("二人称")%。」
			ENDIF
		CASE "巨乳"
			IF TALENT:巨乳 >= 2
				PRINTFORMW 「洗面奶が出来そうな尺寸成为了ね。」
				;レトロゲーに胸部なら洗面奶かなぁ、みたいな
			ELSE
				PRINTFORMW 「それだけ立派だと动画みたいですね。」
			ENDIF
		CASE "並乳"
			IF RAND:2 == 0
				PRINTFORMW 「自己やっておいて何ですが、何故胸が大きくなるんでしょうね。」
			ELSE
				PRINTFORMW 「後付けで大きくなるのはメガ自驾游タワーみたいですね。」
			ENDIF
		CASE "貧乳"
			IF TALENT:貧乳
				PRINTFORMW 「小さいのを気になさっておられたのですか？」
			ELSE
				PRINTFORMW 「ふんふんふ～ん（大きいこと是いことだー）」
				;森永エールのCM風に
			ENDIF
	ENDSELECT

CASE "貧乳化"
	PRINTFORMW 「胸部变小するのですか、分かりました。」
	SELECTCASE CONDS("胸部", PLAYER)
		CASE "超乳"
			IF TALENT:貧乳
				PRINTFORMW 「%CNAME("一人称")%は見ての街道で詳しく存じませんが、それだけ大きいとペットボトルより重いですものね。」
			ELSEIF TALENT:巨乳 == 3
				PRINTFORMW 「%CNAME("一人称")%も時々小さくしたいなと思います。」
			ELSE
				PRINTFORMW 「そうですね、そこまで大きいと何かとお辛いでしょう%CNAME("二人称")%。」
			ENDIF
		CASE "爆乳"
			IF TALENT:貧乳
				PRINTFORMW 「幸い%CNAME("一人称")%には実感できませんが、胸が大きいと肩が凝るとか言いますし。」
			ELSEIF TALENT:巨乳 > 1
				PRINTFORMW 「え、ぼーっとしてどうしたの？ですか。いえ、%CNAME("一人称")%も少し小さく出来たらなと考えていただけですよ。」
			ELSE
				PRINTFORMW 「その尺寸だと大分目立ちますしね。」
			ENDIF
		CASE "巨乳"
			IF TALENT:巨乳 > 0
				PRINTFORMW 「でも、結構立派だったものを小さくしてしまって宜しかったのですか？」
			ELSE
				PRINTFORMW 「それなら内衣のサイズも困らなくていいですね。今度買いに行きましょうか。」
			ENDIF
		CASE "並乳"
			IF TALENT:貧乳
				PRINTFORMW 「これくらいだと運動しやすくて楽ですよ、%CNAME("一人称")%は気に入ってますし。」
			ELSEIF TALENT:巨乳 > 0
				PRINTFORMW 「とある少女曰く、貧乳はステータスですしね。」
			ELSE
				PRINTFORMW 「今後%CNAME("二人称")%の胸に希少価値が出てくるかも知れませんしね。」
			ENDIF
	ENDSELECT

CASE "改变髪型"

CASE "髪型変更の感想"

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, "拒否")
		PRINTFORMW 「%CNAME("二人称")%、这个提议似乎无法说服%CNAME("一人称")%……」
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW %CNAME("二人称")%、知道了。」
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
CASE "一緒に出発"
	PRINTFORML 「%CNAME("二人称")%、要买东西吗？」
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「知道了。一起去吧。」
		PRINTFORMW 「（为了防止买太多）」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「请稍等。衣服准备好就出发吧。」
	ELSE
		PRINTFORMW 「知道了。一起去吧。」
	ENDIF
	SIF ITEM:潤滑液 == 0 || ITEM:避孕套 < 5
		PRINTFORMW 「正好好像消耗品不足了。」
CASE "目送"

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

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

	ELSE

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

	ELSEIF CHECK_CLO("体操服姿")

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

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

	ELSE

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

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

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE
		PRINTFORMW %TEXTR("「想要的商品决定了吗？」/「你看、这有256种颜色。」/（啊、这个顺序错了。）/（哇、好痛啊……。）")%
		PRINTFORMW %CALLNAME%は商品%TEXTR("を手に取り眺めながら/を興味深そうに観察して/の順番を正しいものに並べつつ/の説明書を読みながら")%品定めしている……
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「今天什么都不用买吗？」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/20 カリスタ/EVENT_K20_SHOP.ERB