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

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CALL SET_PANTIES, "紐丁字褲/紫"
	CSTR:胸罩 = 半杯胸罩/紫/

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

;学園での便装です。設定必須です
CASE "制服"
	IF COND("秋") + COND("冬")
		CALL SET_COSTUME, "露脐装超短裙西装外衣"
	ELSE
		CALL SET_COSTUME, "露脐装超短裙水手服"
	ENDIF
	CALL SET_SKIRT, "超露脐装超短裙"

;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	IF COND("夏") + COND("秋") && RAND:2
		CALL SET_SHIRT, "运动衫"
		CALL SET_OUTER, "低腰牛仔褲"
		CALL SET_SHOES, "凉鞋"
	ELSEIF RAND:2
		CALL SET_SHIRT, "运动衫"
		CALL SET_OUTER, "运动衫休闲褲"
		CALL SET_SOCKS, "短襪"
		CALL SET_SHOES, "凉鞋"
	ELSE
		CALL SET_SHIRT, "女式衬衫"
		CALL SET_SKIRT, "紧身裙"
		CALL SET_SOCKS, "長筒襪"
		CALL SET_SHOES, "平底鞋"
	ENDIF

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF COND("冬") && PLACE("自宅")
		CALL SET_COSTUME, "上下运动衫"
		CALL SET_OTHER, "褞袍"
	ELSEIF RAND:2
		CALL SET_SHIRT, "运动衫"
		CALL SET_PANTIES, ""
	ELSE
		CALL SET_SHIRT, "宽大的Ｔ恤"
		CALL SET_OUTER, "紧身短褲"
		CALL SET_PANTIES, ""
		CALL SET_BRA, ""
	ENDIF

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"
	SELECTCASE TEXTS("季節")
	CASE "冬"
		CALL SET_SHIRT, "针织毛衣"
		CALL SET_OUTER, "热褲"
		CALL SET_SOCKS, "長筒襪"
		CALL SET_SHOES, "靴"
	CASE "春"
		CALL SET_SHIRT, "露脐吊帯背心"
		CALL SET_OUTER, "热褲"
		CALL SET_SOCKS, "及膝襪"
		CALL SET_SHOES, "平底鞋"
	CASE "夏"
		IF RAND:2
			CALL SET_SHIRT, "露脐吊帯背心"
			CALL SET_OUTER, "热褲"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_SHOES, "平底鞋"
		ELSE
			CALL SET_SHIRT, "夏日礼服"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "凉鞋"
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			CALL SET_SHIRT, "针织毛衣"
			CALL SET_OUTER, "热褲"
			CALL SET_SOCKS, "長筒襪"
			CALL SET_SHOES, "靴"
		ELSEIF RAND:2
			CALL SET_SHIRT, "露脐吊帯背心"
			CALL SET_OUTER, "热褲"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_SHOES, "平底鞋"
		ELSE
			CALL SET_SHIRT, "夏日礼服"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "凉鞋"
		ENDIF
	ENDSELECT
	CALL SET_PANTIES, "Ｈ的内衣"
	CALL SET_BRA, "Ｈ的胸罩"

ENDSELECT

path: ERB/EVENT_K/32 玲子/EVENT_K32_CLOTHES.ERB

license: unknown


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

$RYOKO_GREETING_LP1
MEMO_LINECOUNT = LINECOUNT

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

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

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

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「从早上就这么激烈……真是的……_BH_」_W"
				CALL PRINT_STR,  "「我要让你清醒清醒……嗯啾_BH_」_W"
		ENDSELECT
	CASE "朝騎乗位"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「嗯っ_BH_　啊っ_BH_　嗯っ_BH_　嗯嗯～～_BH_」_W"
				CALL PRINT_STR,  "「啊、嗯、再、再稍微、睡一会儿也可以哦……_BH_　哇_BH_」_W"
				CALL PRINT_STR,  "「我会、让_BH_　你舒服起来的、不用、担心、啊、啊啊っ_BH_　啊呜っ_BH_」_W"
				PRINTFORMW 跨坐再%CALLNAME:PLAYER%下半身上的%CNAME("玲子")%大方地展示着结合的地方，贪婪地贪图快乐……
				CALL PRINT_STR, @"（呜呜_BH_　明明、明明是早上、但却这么厉害，这么硬%CNAME("阴茎")%……_BH_）_W"
				CALL PRINT_STR, @"（再、再做一会儿、就行了_BH_　就算只有一下也可以_BH_　早上第一次如果不好好%TEXTR("榨/射")%出来的话_BH_　一定很难受的、对吧_BH_）_W"
				CALL PRINT_STR, @"「呜呜_BH_　%CNAME("阴茎")%好像要%TEXTR("噗噗/biubiu")%地出来了……_BH_」_W"
				CALL PRINT_STR, @"「射出来_BH_　就这样射出来_BH_　把精液射出来_BH_　晨勃%CNAME("阴茎")%的新鲜%CNAME("精液")%_BH_　多biubiu地射出来_BH_」_W"
				CALL PRINT_STR,  "「呜、呜呜～～～～_BH_　哦～……_BH_　哦哦ー……_BH_」_W"
		ENDSELECT
	CASEELSE
		RETURN 0
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「啊啦、要迟到了」"
				CALL PRINT_STRW,  "「哪里有近路可以抄吗？」"
		ENDSELECT
	ENDSELECT

CASE "入室打招呼"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「失礼了」"
		CASE 1
			CALL PRINT_STRW,  "「我迟到了……抱歉咯」"
	ENDSELECT
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0 && CHARANUM > 6
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL,  "「……啊啦？　莫非是有很多大佬都来了?」"
				CALL PRINT_STRL,  "（与其说是大佬不如说是大姥、正确的说……哈啊）"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL,  "「抱歉、稍微迟到了」"
		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("教員", "入室打招呼中")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, "『啊啦、你们是在一起的吗？』"
		ENDSELECT

	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "『太迟了啦。大家都已经到齐了』"
			CASE 1
				CALL PRINT_STRW,  "『是去哪里绕路了吗？』"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"『你好、%CALLNAME_ACTOR%』"
		ENDSELECT
	ENDIF

CASE "居間に現れた"
	;一度居間から別の場所に行って、居間に帰って来た時
	IF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「…………真欺负人、真是的」"
				CALL PRINT_STRW,  "（至少悄悄地走吧……）"
			CASE 1
				CALL PRINT_STRW, @"「虽然%CNAME("一人称")%也清楚要干什么……」"
				CALL PRINT_STRW, @"「……%CNAME("一人称")%的份也要留下一点哦？_／／／_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_GREETING_LP1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW, @"「啊啦、是要出去吗？　就把%CNAME("一人称")%这么丢下」"
			CALL PRINT_STRW,  "（这是……应该也跟着去吗?不过，要是被发现了就太差劲了……）"
		CASE 1
			CALL PRINT_STRW,  "「别做得太出格了哦」"
	ENDSELECT

CASE "便当"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「今天，是%TEXTR("三明治/咖喱面包/豆沙面包/羊角面包")%。……啊、便当的话比较好？」_W"
			CALL PRINT_STR,  "「是吗？　如果想吃的话就说一声。……呼唔」_W"
			PRINTFORM 从便利店的塑料袋里拿出没開封的%TEXTR("三明治/咖喱面包/豆沙面包/羊角面包")%递给了%CALLNAME:PLAYER%。%CNAME("玲子")%
			PRINTFORMW 坐在%CALLNAME:PLAYER%的旁边，取出自己的%TEXTR("三明治/咖喱面包/豆沙面包/羊角面包")%。
			CALL PRINT_STR,  "「…………哈啊」_W"
			IF TALENT:MASTER:男性
				CALL PRINT_STR,  "（穿着制服、和异性一起吃便当、嘎啊……）_W"
			ELSE
				CALL PRINT_STR,  "（穿着制服、和女孩子一起吃便当、嘎啊……）_W"
			ENDIF
			CALL PRINT_STR,  "（如果我能照爸爸说的那样上高中的话，就有这样的机会了……）_W"
			PRINTFORMW 有一种悲伤的气氛%CNAME("玲子")%，不过，好像并不讨厌在一起。……
		CASE 1
			CALL PRINT_STR,  "「我买了很多东西、想吃什么？」_W"
			PRINTFORMW %CNAME("玲子")%从手里提着的便利店购物袋里取出三明治和饭团摆在%CALLNAME:PLAYER%面前……
			CALL PRINT_STR,  "「啊啦、太多了？　但是下午也很耗体力吧？」_W"
			CALL PRINT_STR,  "「……又、又没说错话」_W"
		CASE 2
			CALL PRINT_STR,  "「今天多吃点甜的东西。真的，糖分缺失……」_W"
			CALL PRINT_STR,  "「……刚才的课有不懂的地方，可以边吃边问吗？」_W"
			CALL PRINT_STR,  "（初中毕业后就一直在修行和进修，所以说实话，上课很痛苦……）_W"
	ENDSELECT
CASEELSE
	DEBUGPRINTFORM KOJO_GREETING_K32, ARGS:%ARGS%
	RETURN 0
ENDSELECT

SIF MEMO_LINECOUNT - LINECOUNT
	RETURN 1
GOTO RYOKO_GREETING_LP1

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

$RYOKO_DAILY_LP1
MEMO_LINECOUNT = LINECOUNT

DEBUGPRINTFORML %__FUNCTION__%:l.{__LINE__}:%ARGS%

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF CHARA_NUM("室内の邪魔者")
		CALL PRINT_STR,  "「啊啦、你好。初次见面」_L"
		CALL PRINT_STR, @"「从今天開始%CNAME("一人称")%也、也是……肉棒姐妹了、请多指教哦」_L"
	ELSE
		CALL PRINT_STR,  "「呼嗯……整理的挺好的嘛。以为会更乱一点」_L"
		CALL PRINT_STR,  "「因为炮房……不对，爱巢……也不对、活动室、对！活动室就是应该是那样的吧？」_L"
	ENDIF
CASE "浑身是汗"
	SELECTCASE RAND:3
		CASE 0
			CALL PRINT_STRL, "「…………？　怎么了？」"
			PRINTFORML %CNAME("玲子")%没有注意到被汗水浸湿的布料吸附在皮肤上并透明化，怪异地擦着额上的汗……
		CASE 1
			CALL PRINT_STRL, "（好久没这么出汗了……稍微有点太认真了）"
			CALL PRINT_STRL, "（虽然训练还有些不足，但总比不训练强）"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DAILY_LP1
CASE "刚睡醒"

	; 特殊派生
	IF CHOSE_DEVENT("睡眠姦中出し")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL, @"（…………好像做了很%TEXTR("过激/色情")%的梦）"
				CALL PRINT_STRL,  "「…………嗯_BH_BH_BH_」"
				CALL PRINT_STRL, @"（讨、讨厌_BH_　为什么这么%TEXTR("湿/发情")%啊、%CNAME("一人称")%……_BH_）"
				CALL PRINT_STRL,  "（难道是……欲求不满……？　明明最近一直在处理那孩子的性欲？　骗、骗人的吧……？_／／／_）"
				CALL PRINT_STRL,  "「……呜ー」"
				PRINTFORML %CNAME("玲子")%害羞地红着脸不时地看着%CALLNAME:PLAYER%……
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_DAILY_LP1
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRL,  "「………………」"
			PRINTFORML %CNAME("玲子")%焦点不定睡眼惺忪地枕着自己的胸部趴在桌子上……
		CASE 1
			CALL PRINT_STRL,  "「呜……嗯……。呼哇啊……」"
			PRINTFORML %CNAME("玲子")%一脸茫然地打了个大大的哈欠……
	ENDSELECT
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K32
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

$RYOKO_DAILY_LP2

;前回指令対応台詞
SELECTCASE CSTR:PREV_DAILYCOM
CASE "愛の告白"
	CALL PRINT_STRL, @"（完全失职了、%CNAME("一人称")%……）"
	CALL PRINT_STRL,  "（但一点也不讨厌……欸嘿嘿……_／／／_）"
	PRINTFORML %CNAME("玲子")%在哪里朝着天空幸福地微笑着……
CASE "约会的约定"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL,  "「～～～～♪」"
				PRINTFORML %CNAME("玲子")%心情很好……
			CASE 1
				CALL PRINT_STRL,  "（多少……打扮一下好了）"
				CALL PRINT_STRL,  "（内衣也换了新的……有时间去美容院吗？）"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL,  "（约会……约会吗……）"
				CALL PRINT_STRL,  "（还是准备点什么比较好吗……？）"
			CASE 1
				CALL PRINT_STRL, @"（和%CNAME("一人称")%一起约会……是会做这种事的、当然）"
				CALL PRINT_STRL, @"穿（%TEXTR("色情的/新的/过激的")%内衣会比较好吗……？）"
		ENDSELECT
	ENDIF
	SIF LINECOUNT == MEMO_LINECOUNT
		GOTO RYOKO_DAILY_LP2

;これは悪魔のみ
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	IF !CEVENT("初回：部屋連れ込み")
		CALL PRINT_STR,  "「打扰……了？」_L"
		CALL PRINT_STR,  "「啊啦……意外地整理得很好啊。难道是交给女仆来做的吗？」_L"
		CALL PRINT_STR, @"（……说不定比%CNAME("一人称")%的房间更整洁。）_L"
		CALL PRINT_STR,  "「唔、唔嗯。什么都没有。话说回来，特地换个地方――」_L"
		CALL PRINT_STR, @"（啊咧？　难道说%CNAME("一人称")%、是第一次进到了异性的房间……？）_L"
		CALL PRINT_STR,  "「～～～～っ_／／／_」_L"
		CALL PRINT_STR, @"（冷、冷静下来%CNAME("一人称")%……！　连、连那种事都做了，现在被带进房间里，有什么大不了的）_L"

		CALL SET_CEVENT, "初回：部屋連れ込み"
		RETURN 1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "（还挺整洁的……）_L"
			IF TALENT:MASTER:男性
				CALL PRINT_STR,  "（这个年纪的男孩子的房间，给人的印象是更乱糟糟的……）_L"
			ELSE
				CALL PRINT_STR,  "（这个年龄的女孩子的房间，印象中有很多可爱的东西……）_L"
			ENDIF
			CALL PRINT_STR,  "「……嗯？　没有、什么都没有。别在意」_L"
		CASE 1
			CALL PRINT_STR,  "（这张床……一直会在这里睡觉吧？）_L"
			CALL PRINT_STR,  "（这么说、大概、和女孩子做的时候也是这里……_／／／_）_L"
			CALL PRINT_STR,  "（难、难道会突然被压倒在这张床上吗……？_／／／_）_L"
	ENDSELECT

CASE "自室に招待"
	IF !CEVENT("初回：自室に招待")
		CALL PRINT_STR,  "「不好意思没怎么整理」_L"
		CALL PRINT_STR,  "（太糟糕了……要是被看见了，不好的东西都藏起来了吧……？）_L"
		CALL PRINT_STR,  "「等等，别到处乱看。那里可是放着内衣的哦？」_L"
		CALL PRINT_STR,  "（平时用的振动棒已经藏起来了……昨、昨天脱下的胖次也好好洗掉了）"

		CALL SET_CEVENT, "初回：自室に招待"
		RETURN 1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
		IF TALENT:MASTER:男性
			CALL PRINT_STR,  "「打扰了一位女性的房间，应该要更紧张一点吧？」_L"
			CALL PRINT_STR, @"只有（%CNAME("一人称")%一个人在害羞、不是很不公平吗……）_L"
		ELSE
			CALL PRINT_STR,  "「虽然都是女孩子，但都来打扰了，更紧张些吧？」_L"
			CALL PRINT_STR, @"只有（%CNAME("一人称")%一个人在害羞、不是很不公平吗……）_L"
		ENDIF
		CASE 1
			CALL PRINT_STR,  "「不幸中的万幸、啊。还在整理的时候来真是太好了」_L"
			CALL PRINT_STR,  "「……那双眼睛不要乱晃。现在在整理。这个也是_／／／_」_L"
	ENDSELECT

CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「……喂。看了吧、刚刚」_L"
			CALL PRINT_STR,  "「不会要求道歉的……那个、看见了会很高兴吗？」_L"
			CALL PRINT_STR, @"（っ诶、在干什么啊%CNAME("一人称")%……）_L"
		CASE 1
			CALL PRINT_STR,  "「诶……？　看……？」_L"
			CALL PRINT_STR,  "「～～～～_／／／_」_L"
			CALL PRINT_STR,  "（啊啊真是的……！　太短了这个裙子……！）_L"
	ENDSELECT
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「哇啊っ！？　……唔、呜呜_／／／_」_L"
			CALL PRINT_STR, @"「……想看裙子里面的话就要%TEXTR("好好/直接")%%TEXTR("说出来/说")%」_L"
			CALL PRINT_STR, @"「又没说不给看……快点」_L"
			PRINTFORML %CNAME("玲子")%自己抓住%SKIRT(TARGET, "略")%的下摆举起来、让%PANTIES(TARGET)%好好地%TEXTR("尽情享受/高兴快乐/观察")%了……
			CALL PRINT_STR,  "「……喂、已经够了吧？　已经可以了吧？」_L"
			CALL PRINT_STR,  "（这个好羞耻……_／／／_　但是、总比突然袭击要好吧……）_L"
		CASE 1
			CALL PRINT_STR,  "「真是的……要看到什么时候啊……_／／／_」_L"
			CALL PRINT_STR,  "「女孩子的胖次不应该已经看惯了吗……？」_L"
			CALL PRINT_STR,  "「就这样吧？　……真是的_／／／_」_L"
	ENDSELECT
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
ENDSELECT

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

$RYOKO_DAILY_LP3

;標語の反応。書いたらコメントアウトを外してください
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
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "（……呜呜。就算是LL尺寸的灯笼裤屁股这边还是很难受……）_L"
					CALL PRINT_STR, @"（%CNAME("一人称")%的屁股、就那么大吗……）_L"
				CASE 1
					CALL PRINT_STR,  "「……怎么了、那么一直盯着」_L"
					CALL PRINT_STR,  "「想看的话，就堂堂正正地看吧？」_L"
					CALL PRINT_STR, @"（话说%CNAME("一人称")%初中的时候是普遍还是灯笼裤……现在反而觉得怪怪的……）_L"
				CASE 2
					CALL PRINT_STR,  "「嗯……不要、真是的…………」_L"
					PRINTFORML %CNAME("玲子")%柔软的%TEXTR("巨大的/大")%屁股因为灯笼裤不能很好的收住儿所以溢了出来……
					CALL PRINT_STR,  "「会留下痕迹的……」_L"
				CASE 3
					CALL PRINT_STR,  "「真讨厌、真是的……」_L"
					CALL PRINT_STR,  "「要陷进去了……」_L"
					PRINTFORML 可能是灯笼裤太小了，%CNAME("玲子")%在不停地纠正嵌进裆部的裤子……
				ENDSELECT
		;CASE "体操服はやっぱり运动短褲"

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

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

$RYOKO_DAILY_LP4

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("日常会話：ホントは何歳？") == 0
	CALL PRINT_STR,  "「诶？　真实的年龄？」_L"
	CALL PRINT_STR, @"「突、突然在说什么啊。真是什么都没、和%CNAME("二人称")%是同岁啦」_L"
	CALL PRINT_STR,  "「真是的真是的。不要说出这么奇怪的话啊」_L"
	CALL PRINT_STR,  "（……呼唔。吓了一跳……。以为要被发现了。直觉比想象的要敏锐吗？）_L"
	CALL PRINT_STR,  "（不管怎么说，也没有被其他人察觉到的样子，最好是澄清一下。）"

	CALL SET_DEVENT, "日常会話：ホントは何歳？"
ENDIF

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

$RYOKO_DAILY_LP5

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("いちゃいちゃ")
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRL, @"「啊啦、这次是%CNAME("一人称")%%TEXTR("作为对象/来")%%TEXTR("＿/，吗")%？」"
			CALL PRINT_STRL, @"（%CNAME("一人称")%一定要好好做……也、也要好好色诱）"
		CASE 1
			CALL PRINT_STRL, @"「啊啦、%TEXTR("事情/要事")%已经好了吗？」"
			CALL PRINT_STRL, @"「还是说、%TEXTR("已经/＿")%想念%CNAME("一人称")%的%TEXTR("事情/身体")%了？」"
			CALL PRINT_STRL, @"（反、反正他不管是谁都会做那种下流的事情……放着%CNAME("一人称")%自己一个人……不就好了？_／／／_）"
	ENDSELECT

	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DAILY_LP5
ENDIF

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

;以下は随机台詞など

$RYOKO_DAILY_LP6

; 危険日にそわそわ
IF COND("危険日") && EXP:Ｖ性交経験

	IF MARK:淫紋
	ENDIF

	IF ITEM:避孕套 == 0
		SELECTCASE RAND:5
			CASE 0
				CASE 0
					CALL PRINT_STR, @"「……等一下。%TEXTR("没有了/没找到/用光了")%、%CNAME("避孕套")%」_L"
					CALL PRINT_STR,  "「做之前、可是要事先买好的」_L"
					IF CHARA_NUM("室内の邪魔者") > 3
						CALL PRINT_STR,  "（话说这种事是其他人要先指出来吧、真是的……_／／／_）_L"
						CALL PRINT_STR,  "（…………难道大家平时都是直接做的吗）_L"
					ENDIF
		ENDSELECT
		SIF LINECOUNT > MEMO_LINECOUNT
			RETURN 1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"（呜呜……怎么回事啊%CNAME("一人称")%）_L"
			CALL PRINT_STR, @"（总觉得不能看这孩子的脸……_BH_　而且怎么说、腹部这里……比起这个、大腿里面、在%TEXTR("紧绷着/绷紧")%……_BH_）_L"
			CALL PRINT_STR,  "「话说回来……」_L"
			CALL PRINT_STR, @"（%CNAME("一人称")%、今天好像是%CNAME("危険日")%……如、如果被请求了、该怎么办……_BH_）_L"
			CALL PRINT_STR,  "「…………_BH_　哈啊……_BH_」_L"
			PRINTFORML %CNAME("玲子")%有时会把视线投向%CALLNAME:PLAYER%，一边用烦恼的表情抚摸着下腹部……

		CASE 1
			CALL PRINT_STR, @"（每天都有在记录基础体温……这么说、今天是%CNAME("危険日")%吧、%CNAME("一人称")%）_L"
			CALL PRINT_STR,  "（这种日子如果被邀请去性交的话、该这么办才好……_BH_）_L"
			CALL PRINT_STR,  "（今天是危险日啊～、这样说的话会很扫兴吗……还、还是说会变得很兴奋？）_L"
			CALL PRINT_STR, @"（变得比平时还要激烈……_BH_　充满想让别人怀上的想法然后%CNAME("中出し")%……_／／／_）_L"
			CALL PRINT_STR,  "「……哈啊_BH_　麻烦了啊……_BH_」_L"
			PRINTFORML %CNAME("玲子")%一边烦恼地嘟囔一边害羞地瞄着%CALLNAME:PLAYER%……
	ENDSELECT
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
ENDIF

; 膣内射精されたことがある
IF EXP:膣内精液経験 && TALENT:出産経験 == 0 && COND("Ｖ妊娠可能")
	SELECTCASE RAND:5
		CASE 0
			PRINTFORML %CNAME("玲子")%在用一脸%TEXTR("害羞的/认真的")%表情读着%TEXTR("育儿杂志/怀孕中的性生活为主的特集女性杂志/『た○ごクラブ』（一个孕妇杂志）")%……
			CALL PRINT_STRL, @"「……啊、不、不是你想的那样？　那个、不是%TEXTR("怀孕/命中")%的意思……那个……」"
			CALL PRINT_STRL, @"「…………被、被那么浓厚的中出了、什么时候变成%TEXTR("母亲/妈妈/怀孕状态")%也不奇怪的_／／／_」"
	ENDSELECT
ENDIF
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRL,  "「也是时候睡觉了吧……」"
			CALL PRINT_STRL,  "「啊啦、熬夜会影响皮肤……是这么说的吧？」"
			CALL PRINT_STRL,  "（不像其他人那样年轻……）"
	ENDSELECT
ELSE

	; 場所限定系
	SELECTCASE SAVESTR:現在位置
		CASE "部室"
			SELECTCASE RAND:5
				CASE 1
					CALL PRINT_STRL,  "「这里的食堂，价格和量都很实惠，很不错嘛」"
					CALL PRINT_STRL,  "（如果晚上有酒和……额、应该不可能吧）"
					CALL PRINT_STRL,  "「…………哈啊」"
					PRINTFORML %CNAME("玲子")%似乎在惆怅地叹气……
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	IF PLACE("Ｈ目的")
		IF MARK:屈服刻印 >= 2
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRL, "（做爱做爱做爱做爱做爱…………_BHH_BHH_BHH_）"
					CALL PRINT_STRL, @"（%CNAME("一人称")%要做了啊……_BH_）"
					CALL PRINT_STRL, @"（特地被带到这种%TEXTR("地方/场所")%、绝对是来做的……_BH_）"
					CALL PRINT_STRL, "「…………_BH_BH_BH_」"
					PRINTFORML %CNAME("玲子")%用期待着什么似的湿润的眼睛向上注视着%CALLNAME:PLAYER%……
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRL,  "「那个…………」"
			CALL PRINT_STRL,  "「…………什么都没有」"
			CALL PRINT_STRL,  "（这、这种时候要说什么话题比较好……？）"
	ENDSELECT
ENDIF
SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1

; 汎用
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STRL,  "（不过话说回来，我这个年纪居然还装学生……）"
		CALL PRINT_STRL,  "（出乎意料的開心，怎么说呢……）"
		CALL PRINT_STRL,  "（…………就像爸爸说的那样，老老实实地升学比较好吗）"

ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_DAILY_LP6

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K32
#DIM MEMO_LINECOUNT
$RYOKO_SLEEP_LP1
MEMO_LINECOUNT = LINECOUNT

; 特殊派生
SELECTCASE STR:日常イベント名
	CASE "睡眠姦正常位", "睡眠姦寝后背位"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRL,  "「……_BH_　啊_BH_　哦_BH_　…………_BH_」"
				PRINTFORML %CNAME("玲子")%一边呼出%TEXTR("湿润的/急促的")%鼻息一边毫不客气地勒紧%CALLNAME:PLAYER%……
			CASE 1
				CALL PRINT_STRL,  "「啊……_BH_　嗯_BH_　母……_BH_　亲……_BH_」"
				CALL PRINT_STRL,  "「相亲……_BH_　不要……嗯啊……_BH_　工作、很忙……唔_BH_」"
		ENDSELECT
		SIF !(LINECOUNT - MEMO_LINECOUNT)
			GOTO RYOKO_SLEEP_LP1
ENDSELECT
SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1

; 汎用
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STRL,  "「嗯……啊……」"
		CALL PRINT_STRL,  "「嗯嗯……呜……」"
	CASE 1
		CALL PRINT_STRL,  "「啊……嗯……」"
		CALL PRINT_STRL,  "「……那边……训练……不要偷懒……」"
		CALL PRINT_STRL,  "「嗯唔……」"
	CASE 2
		CALL PRINT_STRL,  "「嗯……母亲……」"
		CALL PRINT_STRL,  "「相亲……都说了不要……」"
		CALL PRINT_STRL,  "「交给……妹妹……嗯呜」"
ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_SLEEP_LP1

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

$RYOKO_DCOM_LP1
MEMO_LINECOUNT = LINECOUNT
DEBUGPRINTFORM %__FUNCTION__%l.{__LINE__}  %ARGS%

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"
	RETURN 0
CASE "お仕事"
	RETURN 0
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

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

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

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

;[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
	; 場所
	SELECTCASE SAVESTR:現在位置
		CASE "男子廁所"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「真是的……在这种地方、那个、做什么的……_／／／_」"
					CALL PRINT_STRW,  "（至少在被子上……额、不对不对）"
					CALL PRINT_STRW, @"（这也是任务的一环……任性是不行的、%CNAME("玲子")%）"
					CALL PRINT_STRW,  "「嘛啊可以吧。也没有时间了、会很快就处理好的」"
					SELECTCASE NAMES("性処理")
						CASE "Ｖ性交", "Ａ性交"
							CALL PRINT_STRW, @"「这里……%CNAME("精液")%想%TEXTR("biubiu/biubiu")%地射进来吧？」"
						CASEELSE
							CALL PRINT_STRW,  "「已经累积到无法忍受的程度了吧？」"
					ENDSELECT
				CASE 1
					CALL PRINT_STRW,  "（在这种地方……让我做性处理的对象……）"
					CALL PRINT_STRW, @"虽然很（%TEXTR("屈辱/懊悔")%……但这也是现在的任务……_／／／_）"
					CALL PRINT_STRW,  "「真是的……就这么想尿出白色的吗？」"
					CALL PRINT_STRW, @"「会来帮忙的……多%TEXTR("射/尿")%出来吧……_BH_」"
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW, @"（真是的……为什么%CNAME("一人称")%要干这种事情……）"
			IF TALENT:MASTER:男性
				CALL PRINT_STRW, @"（但是、没有办法吧……毕竟是%TEXTR("年轻气盛/精力旺盛")%的男孩子嘛……）"
			ELSEIF TALENT:MASTER:扶她
				CALL PRINT_STRW, @"（但是、没有办法吧……毕竟是%TEXTR("年轻气盛/精力旺盛")%的futa女孩子嘛……）"
			ELSE
				CALL PRINT_STRW, @"（但是、没有办法吧……毕竟是%TEXTR("年轻气盛/性欲旺盛")%的女孩子嘛……）"
			ENDIF
			CALL PRINT_STRW,  "（这里的话、就要表现出长辈的从容……）"
			CALL PRINT_STRW,  "「……嗯？　什么都没有。别在意」"
			CALL PRINT_STRW,  "「比起这个、快点吧？　……那个、积、积攒了很多、吧？_／／／_」"
	ENDSELECT

CASE "性処理：後"
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		; 避孕套性処理後の後始末
		; 場所判定
		SELECTCASE SAVESTR:現在位置
			CASE "人迹罕至的教学楼后侧", "部室"
			CASEELSE
				; 上記２箇所以外で発生

				; 初回
				IF !CEVENT("初回：性処理：膣内使用済み避孕套")
					CALL PRINT_STRW,  "「…………_BH_　哈啊……_BH_」"
					PRINTFORMW %CNAME("玲子")%从自己的内被拔出了%CALLNAME:PLAYER%的阴茎用犹豫的动作取下避孕套，看着里面积存的精液吐了一口气。
					CALL PRINT_STRW,  "（好厉害……_BH_　黏黏稠稠的、好多…………_BH_）"
					CALL PRINT_STRW,  "「射了这么多出来？　真是的……_／／／_」"
					CALL PRINT_STRW,  "「绝对积攒太多了、这样的……_BH_　はぁ……_BH_」"
					PRINTFORMW %CNAME("玲子")%用手指戳着被新鲜精液鼓胀的避孕套，突然回过神来。
					CALL PRINT_STRW,  "「话说、这个、该怎么办才好……？」"
					CALL PRINT_SELECT,  "要扔进垃圾箱？"
					IF RESULT == 0
						CALL PRINT_STRW,  "「那个……不行。这种东西扔进垃圾桶里了、不就是在告诉别人在这里做过了这样的事情了吗」"
					ELSE
						CALL PRINT_STRW,  "「所以说、处分不是指……把这么可疑的东西扔进学校的垃圾桶啊……」"
					ENDIF
					CALL PRINT_STRW,  "（而且，那还是与恶魔缔结契约的男孩毫无顾忌地吐出的精液。……）"
					CALL PRINT_STRW,  "（说，说不定对无関的学生和老师，可能会有不好的影响……）"
					CALL PRINT_STRW, @"（%CNAME("一人称")%要好好地……拿回去处理掉……_／／／_）"
					PRINTFORMW %CNAME("玲子")%捏着用过的避孕套……
					CALL PRINT_STRW,  "「真……真让人没办法、啊……_／／／_」"
					PRINTFORMW %CNAME("玲子")%系上安全套的口后，将装满精液鼓鼓的安全套塞进自己的阴道里，似乎还意犹未尽。……
					CALL PRINT_STRW,  "「至少，在活动室的垃圾桶里……_BH_扔掉，……_BH_」"
					CALL PRINT_STRW,  "「…………嗯_BHH_」"
					PRINTFORMW %CNAME("玲子")%将充满%CALLNAME:PLAYER%的精液的避孕套吞入阴道，揉搓着下腹部，确认身体状况。……
					CALL PRINT_STRW,  "「这样就可以、了吧……_／／／_」"
					CALL PRINT_STRW,  "「撒啊、时间快没了、快点回教室吧？」"
					CALL PRINT_STRW,  "「…………」"
					CALL PRINT_STRW,  "（里面不会……破掉吧……？_／／／_）"
					PRINTFORMW %CNAME("玲子")%一脸冷静，脸颊却被染红了……
					CALL SET_CEVENT, "初回：性処理：膣内使用済み避孕套"
					CALL SET_CEVENT, "日常：性処理：膣内使用済み避孕套"
					RETURN 1
				ENDIF

				; ２回目以降
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「真是的……又射出来这么多…………_BH_」"
						CALL PRINT_STRW, @"「这么%TEXTR("鼓鼓/满")%的%CNAME("避孕套")%、不就不能随便的扔掉了吗……_／／／_」"
						CALL PRINT_STRW,  "「真没办法、真是的……_／／／_」"
						PRINTFORMW %CNAME("玲子")%露出像闹别扭一样的为难的表情、把装满%CALLNAME:PLAYER%的%TEXTR("新鲜/刚射出来的")%%TEXTR("精液/白色液体")%鼓鼓的套子口打了一个结、然后压进自己的%TEXTR("秘所/裂缝中/肉壶")%……
						CALL PRINT_STRW,  "「这样就行了……_／／／_」"
						CALL PRINT_STRW,  "「……真是的、不要这么盯着看啊。……会很羞耻的」"
						PRINTFORMW %CNAME("玲子")%红着脸摩擦着自己的下腹部……
				ENDSELECT

				SIF LINECOUNT - MEMO_LINECOUNT
						CALL SET_CEVENT, "日常：性処理：膣内使用済み避孕套"

		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			PRINTFORMW
	ENDSELECT
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	RETURN 0
	PRINTFORML
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
	PRINTL
CASE "打招呼"
	SELECTCASE STR:日常イベント名
		CASE "打招呼ハグ"
			IF !DEVENT(STR:日常イベント名)
				CALL PRINT_STRW,  "「～～～～っ!?_／／／_」"
				CALL PRINT_STRW,  "「很……很欧美式的打招呼方式啊」"
				CALL PRINT_STRW,  "「……也、也不是讨厌啦。继续也可以哦」"
				CALL PRINT_STRW,  "「…………嗯_BH_」"
				IF TALENT:MASTER:男性
					CALL PRINT_STRW,  "（……明明年纪不怎么大、但身体很结实嘛）"
					CALL PRINT_STRW,  "（因为是男孩子嘛……_／／／_）"
				ELSE
					CALL PRINT_STRW,  "（……明明年纪不怎么大、身体抱起来挺舒服的嘛）"
					CALL PRINT_STRW,  "（感觉好羡慕……_／／／_）"
				ENDIF
				RETURN 1
			ENDIF

			; ２回目以降
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「真是的……又来……_／／／_」"
					CALL PRINT_STRW,  "「我又不是害羞了」"
					CALL PRINT_STRW,  "「……只是还没习惯而已」"
				CASE 1
					CALL PRINT_STRW,  "「嗯……_／／／_」"
					CALL PRINT_STRW,  "「真希望……能不要那么积极……_／／／_」"
					CALL PRINT_STRW,  "「饶了我吧……_／／／_」"
			ENDSELECT

		CASE "打招呼接吻"
			; 初回
			IF !DEVENT(STR:日常イベント名)
				CALL PRINT_STRW,  "「っ！？　っ！！　～～～～っ_／／／_」"
				PRINTFORMW %CNAME("玲子")%的眼睛因惊愕和困惑睁大了……
				IF EXP:接吻経験 == 0 && EXP:Ｈ回数 == 0
					IF TALENT:MASTER:男性
						CALL PRINT_STRW, @"（骗、骗人的吧。%CNAME("一人称")%、和男孩子接吻了……！？）"
					ELSE
						CALL PRINT_STRW, @"（骗、骗人的吧。%CNAME("一人称")%、和女孩子接吻了……！？）"
					ENDIF
					CALL PRINT_STRW,  "（明明还是第一次的啾……就这么直接……_／／／_）"
					CALL PRINT_STRW,  "「……噗哈_BH_　真是的_BH_　突然干什么……_BH_」"
					CALL PRINT_STRW,  "「至少要、一点气氛……_／／／_　嗯っ_BH_　嗯嗯～～_BH_BH_BH_」"
					CALL PRINT_STRW,  "（啊_BH_　又_BH_　被强吻了_BH_　被这么年轻的孩子给强吻了……_BH_）"
					CALL PRINT_STRW,  "「……_BH_　哈啊_BH_　真是……_BH_」"
					CALL PRINT_STRW,  "「困扰了……这样的……_BH_」"
				ELSEIF EXP:接吻経験 == 0
					CALL PRINT_STRW,  "（在、在被啾……_／／／_　啊唔……_／／／_）"
					CALL PRINT_STRW,  "「……哈啊_BH_　太……热情了」"
					CALL PRINT_STRW,  "「明明H的时候都没这么做……太反复无常了吧？」"
				ELSE
					CALL PRINT_STRW,  "「嗯_BH_　啊_BH_　嗯唔_BH_　嗯～～～_BH_　っ噗哈_BH_　嗯啾……_BH_」"
					CALL PRINT_STRW,  "「……真是的_／／／_ 热情过頭啦」"
				ENDIF
				PRINTFORMW %CNAME("玲子")%把手放在嘴唇上，露出迷蒙的笑容。……
				RETURN 1
			ENDIF

			; ２回目以降
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「…………_BH_」"
					CALL PRINT_STRW,  "「……我觉得没什么不好的」"
				CASE 1
					CALL PRINT_STRW,  "「哈啊……_BH_　嗯_BH_　嗯～～_BH_」"
					CALL PRINT_STRW, @"（%CNAME("一人称")%又被这么小的孩子给强吻了……_BH_）"
					CALL PRINT_STRW,  "（……不过这是为了任务、也是没有办法的事情……对吧？_／／／_）"
					CALL PRINT_STRW,  "「嗯_BH_　嗯嗯～～_BH_　嗯啾……_BH_」"
					CALL PRINT_STRW,  "「……呼唔_BH_　真是有趣的问候……_BH_」"
			ENDSELECT
		CASE "打招呼舐陰"
			IF !DEVENT(STR:日常イベント名)
				;CALL PRINT_STRW,  "「」"
				CALL PRINT_STRW,  "「……不要突然做这种事情啊」"
				CALL PRINT_STRW,  "「会很困扰的……_／／／_」"
				RETURN 1
			ENDIF

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「嗯啊……_BH_　真、真是的。很痒的……」"
				CASE 1
					CALL PRINT_STRW,  "「这个样子……好奇怪的感觉」"
					CALL PRINT_STRW,  "（感觉像女王一样的……真是的……_／／／_）"
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 朝
	IF COND("朝")
		GREETING = %TEXTR("早上好う/いい朝ね")%
		IF CFLAG:打招呼した
			SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("诶、/＿")%早上好。今天精神好像也挺好的」_W"
					CALL PRINT_STR,  "「……不是那个意思啦。真是的_／／／_」_W"
					CALL PRINT_STR,  "（不要一大早就让我意识到这种事啊……）_W"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR,  "「早上好。今天好像也很精神啊」"
					CALL PRINT_STR,  "「……不是那个意思啦。真是的_／／／_」_W"
					CALL PRINT_STR,  "（不要一大早就让我意识到这种事啊……）_W"
			ENDSELECT
		ENDIF
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 昼
	IF COND("昼")
		GREETING = %TEXTR("你好/今天气色也很好啊")%
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 夜
	IF COND("夜")
		GREETING = %TEXTR("晚上好/真是美好的夜晚")%
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 共通
	IF CFLAG:打招呼した
		SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「%GREETING%。好像精神很好啊」_W"
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「%GREETING%。好像精神很好啊」_W"
		ENDSELECT
	ENDIF

CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「呼哇……嗯」_W"
			CALL PRINT_STR,  "「抱歉……今天就先告辞了……」_W"
		CASE 1
			CALL PRINT_STR,  "「嗯……差不多就先该告辞了吧……」_W"
			CALL PRINT_STR,  "「呐……不送我回房间吗？」_W"
	ENDSELECT

;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「等、%TEXTR("发生什么/怎么")%了突然……」_W"
				CALL PRINT_STR,  "「那个嘛……虽然也没有什么不好的」_W"
			CASE 1
				CALL PRINT_STR,  "「真是的……就算你那么吹捧，我什么也拿不出来哦？」_W"
				CALL PRINT_STR,  "「但也是啊、回礼……那个……」_W"
				IF RAND:2
					CALL PRINT_STR,  "「要摸胸吗？」_W"
				ELSE
					CALL PRINT_STR,  "「要看胖次吗？」_W"
				ENDIF
		ENDSELECT
	CASE "甜言蜜语"

		IF CALCF("甜言蜜语成功")
			SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR,  "「诶？　啊、等一……」_W"
					CALL PRINT_STR,  "「怎么了、突然……真是的……_／／／_」_W"
					CALL PRINT_STR, @"（啊啊好害羞……为什么会这么心动%CNAME("一人称")%……）_W"
				CASE 1
					CALL PRINT_STR,  "「……诶？　啊、那个……这个……」_W"
					CALL PRINT_STR,  "「这、这样的台词，等年纪再大一点说会比较好哦」_W"
					CALL PRINT_STR, @"「但是……%TEXTR("不是很讨厌/感觉不坏")%_／／／_」_W"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
			GOTO RYOKO_DCOM_LP1
		ENDIF

		; 失敗
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「……说那种轻浮的台词之前、最好多考虑一下%TEXTR("场所/时间/气氛")%」_W"
				CALL PRINT_STR,  "「但也是啊、谢谢还是要说的。谢谢」_W"
				CALL PRINT_STR, @"（…………～～～～_／／／_　没事吧、%CNAME("一人称")%脸没有红吧！？）_W"
				CALL PRINT_STR, @"（呜呜……那么%TEXTR("讨厌的/害羞的")%话还是第一次听到、真是的……_／／／_）_W"
		ENDSELECT

	CASEELSE
		; 胎内に用过的避孕套を抱えている
		IF CEVENT("日常：性処理：膣内使用済み避孕套")
			; 一定確率で破ける
			; 危険日はちょっと破れやすい
			IF (COND("危険日") && RAND:10 >= 7) || (!COND("危険日") && RAND:10 == 0)
				; 胎内で破けた
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「…………？　诶？　啊、骗人的吧、啊……_BH_」"
						PRINTFORMW %CNAME("玲子")%突然吃惊地叫了一声，呆呆地看着自己的小腹……
						CALL PRINT_STRW, @"（这个感觉……难道说……_／／／_）"
						CALL PRINT_STRW, @"（%CNAME("オマンコ")%里面的、%CNAME("避孕套")%破掉……、了……？_／／／_）"
						CALL PRINT_STRW, @"（感觉%TEXTR("好难受/好恶心/好奇怪")%……_BH_　%TEXTR("黏黏的/粘稠的")%的……在肚子里%TEXTR("扩散開了/渗出来了")%……_BH_）"
						CALL PRINT_STRW,  "「唔_BH_　呜呜_BH_」"
						CALL PRINT_STRW, @"（该、怎么办……_BH_　在、里面。在里面%CNAME("精液")%、在啊…………_BH_）"
						PRINTFORMW %CNAME("玲子")%捂着下腹部吐着湿润的气息……
					CASE 1
						;CALL PRINT_STRW,  "（就算这样做……_BH_　还是会感觉到、啊…………_／／／_）"
						;PRINTFORMW %CNAME("玲子")%は红着脸摩擦着自己的下腹部……
						;CALL PRINT_STRW,  "「」"
				ENDSELECT
				IF LINECOUNT - MEMO_LINECOUNT
					CALL RYOKO_SET_FLAG, "性処理：膣内使用済み避孕套破れ"
					CALL SET_CEVENT, "日常：性処理：膣内使用済み避孕套破れ"
				ENDIF
			ELSE
				; 胎内の避孕套が気になる
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「…………嗯_BH_」"
						CALL PRINT_STRW,  "（有种……奇怪的感觉…………_BH_）"
						CALL PRINT_STRW, @"（%CNAME("オマンコ")%的里面……有%TEXTR("鼓鼓/满满")%的%CNAME("避孕套")%、可以感觉到……_／／／_）"
						CALL PRINT_STRW,  "「…………哈啊_BH_」"
						PRINTFORMW %CNAME("玲子")%吐着妖艳的气息%TEXTR("陶醉地/沉浸在")%%TEXTR("摩擦/用手指按摩")%着自己的下腹部……
					CASE 1
						CALL PRINT_STRW,  "「呼呜……_BH_　哈啊……_BH_」"
						PRINTFORMW %CNAME("玲子")%一边吐着潮湿的气息一边不时的偷看着%CALLNAME:PLAYER%的脸……
						CALL PRINT_STRW, @"（%CNAME("精液")%……%TEXTR("很/比想的/意外的")%有弹力啊……_BH_）"
						CALL PRINT_STRW, @"（如果这样动身体……_BH_　里面的%CNAME("避孕套")%会%TEXTR("动来动去的/被压紧的")%、可以感觉到……_BH_）"
						CALL PRINT_STRW,  "「不会……破掉吧…………？_／／／_」"
						PRINTFORMW %CNAME("玲子")%在%TEXTR("陶醉的/妖艳的")%自言自语……
					CASE 2
						CALL PRINT_STRW,  "（话说回来……是不是越来越往里面去了……）"
						CALL PRINT_STRW,  "（该怎么办、这个……_BH_）"
						PRINTFORMW %CNAME("玲子")%%TEXTR("好像很辛苦的/小心的/小心翼翼的")%摩擦着自己的下腹部……
						CALL PRINT_STRW,  "（已经是这个时间了……回到公寓以后再扔掉比较好、绝对…………_／／／_）"
						CALL PRINT_STRW, @"（只要再忍耐一下下、%CNAME("玲子")%…………_BH_）"
						CALL PRINT_STRW,  "「哈啊……_BH_」"
				ENDSELECT
			ENDIF
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
		ENDIF

		; 避孕套について
		IF !CEVENT("初回：Talk：避孕套について")
			; 避孕套の在庫が０のときは発生しない
			IF ITEM:避孕套
				CALL PRINT_STRW,  "「避孕套……这里有一个」"
				CALL PRINT_STRW,  "（说不定要用，就先准备好了……）"
				PRINTFORMW %CNAME("玲子")%发现了买了备用的避孕套，露出不知是放心还是担心的表情……
				CALL SET_CEVENT, "初回：Talk：避孕套について"
			ENDIF
		ELSE
			IF ITEM:避孕套 == 0
				; 避孕套が残ってない
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW, @"「啊啦……%CNAME("避孕套")%已经没有剩下的了」"
						CALL PRINT_STRW,  "「还是多买一些比较好吧？」"
					CASE 1
						CALL PRINT_STRW, @"「%CNAME("避孕套")%、已经用光了」"
						CALL PRINT_STRW,  "「没有的话会很困扰吧?多买点吧」"
				ENDSELECT
			ELSEIF ITEM:避孕套 < 3
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW, @"「%CNAME("避孕套")%、已经没剩多少了」"
						CALL PRINT_STRW,  "「只有这些的话，不是很快就用光了吗？」"
				ENDSELECT
			ENDIF
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		; 胖次について
		IF CFLAG:内衣確認済 >= 3
			SELECTCASE PANTIES(TARGET, "種類")
				CASE "紐丁字褲", "丁字褲"
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「……又、又不是喜欢花哨的%TEXTR("胖次/内裤/内衣")%才穿的」_W"
							CALL PRINT_STR,  "「只是、这种的没有压迫感穿起来很舒服……」_W"
							PRINTFORMW 叹了一口气、%CNAME("玲子")%好像疲惫似的摩擦着自己的臀部……
							CALL PRINT_STR,  "「……被这么理解的话，那可真不好意思啊……」_W"
						CASE 1
							CALL PRINT_STR, @"「……这种%CNAME("胖次")%很讨厌吗？」_W"
							CALL PRINT_STR, @"「我也绝对是不是%TEXTR("太花哨/太不像个学生")%了……」_W"
							PRINTFORMW 可能是因为已经被人看到了所以不介意吧，%CNAME("玲子")%轻轻掀開裙摆露出了烦恼的表情。
							CALL PRINT_STR, @"（……在干什么啊%CNAME("一人称")%！　再怎么说这也太松懈了吧！？）_W"
							CALL PRINT_STR, @"（ああでもメチャクチャ見られてる……！_／／／_　こんなおば桑の%CNAME("胖次")%なんて見ても嬉しくないでしょ！？_／／／_）_W"
							CALL PRINT_STR,  "「…………_HB_　停、停一下。不要一直这么色迷迷的看着」_W"
							CALL PRINT_STR,  "「…………真是的_BH_」_W"
					ENDSELECT
				CASE "低腰胖次"
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「诶？　不、不是啦。不是滑落下来的、是因为现在穿的就是这种风格的%CNAME("胖次")%」_W"
							CALL PRINT_STR,  "「……没有被勒紧的感觉，很舒服的、这个」_W"
					ENDSELECT
				CASE "高開衩胖次"
				CASE "Ｃ胖次"
				CASEELSE
					SELECTCASE RAND:5
					ENDSELECT
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「对了，我有件事想拜托你」_W"
				CALL PRINT_STR, @"「今天的%TEXTR("课/数学/日本史/化学/物理")%%TEXTR("不是很懂的/不是很能理解的/比较难")%地方、能请教一下吗？」_W"
				CALL PRINT_STR, @"这可不是为了（%TEXTR("变得亲密/接近/变得亲近")%的手段、是真的不请教不行的，稍微有点忧虑啊……）_W"
				CALL PRINT_STR,  "（我一直在家里帮忙，也一直在修行，没办法接受高等教育……）_W"
			CASE 1
				CALL PRINT_STR,  "「……一直时不时的往这里看、是有什么想说的吗？」_W"
				CALL PRINT_STR, @"「还是说、单纯的只是%TEXTR("浪费时间/＿")%看%TEXTR("奶子/胸")%？」_W"
			CASE 2
				CALL PRINT_STR,  "（……从外表看，就像是日常活动的房间一样。）_W"
				CALL PRINT_STR,  "（作为做一些不正经事情的房间还算可以……唔唔嗯、虽、虽然不太好）_W"
				CALL PRINT_STR,  "（没有什么奇怪的东西，真是太好了）_W"
				CALL PRINT_STR,  "「……啊、抱歉。稍微发了会儿呆。说了什么吗？」_W"
			CASE 3
				CALL PRINT_STR,  "「……比想象中还要干净的空气」_W"
				CALL PRINT_STR, @"「因为、这里不是%CNAME("二人称")%的%TEXTR("后宫/乱交")%房吗？……」_W"
				CALL PRINT_STR,  "「啊啦。贪恋女孩子是事实吧？」_W"
				CALL PRINT_STR,  "（没有预想中的恶毒……虽然都是经过大家的合意的……）_W"
		ENDSELECT
	ENDSELECT

CASE "拭汗"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「呼呼……啊、不好意思。多谢」_W"
			CALL PRINT_STR,  "「但是、也不用太勉强自己吧？　因为、汗水黏糊糊的……不会在意？　是、是吗」_W"
			CALL PRINT_STR,  "「嗯……_／／／_」_W"
			CALL PRINT_STR,  "（啊……在没有防备的情况下被这么做的话有点不擅长。……）_W"
		CASE 1
			CALL PRINT_STR,  "（真讨厌……出了这么多汗……）_W"
			CALL PRINT_STR,  "（大概是整天在办公桌前工作，身体变迟钝了吧）_W"
			CALL PRINT_STR,  "「……？　啊、诶、帮忙擦？　但是、出了这么多汗……」_W"
			CALL PRINT_STR,  "「…………谢、谢谢_／／／_」_W"
			CALL PRINT_STR,  "（让监视对象的小男孩帮忙擦汗什么的，心情太复杂了……）_W"
	ENDSELECT

CASE "淋浴独り言"
	;PRINTFORMW
	IF EXP_GAIN("膣内精液経験") || BASE:胎内精液量 > 3000
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "（……？　讨、讨厌、滴下来了…………）"
				CALL PRINT_STRW,  "（啊ー啊、黏黏的……）"
			CASE 1
				CALL PRINT_STRW,  "（……啊。真讨厌……留了这么多在里面……？）"
				CALL PRINT_STRW,  "（就连里面都要好好洗一下了……）"
			CASE 2
				CALL PRINT_STRW,  "（…………唔。这么多……？）"
				CALL PRINT_STRW, @"（里面还在%TEXTR("塔波塔波/吧嗒吧嗒")%的、真是的……）"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "（活动室居然有淋浴间什么的……）"
			CALL PRINT_STRW,  "（真奢侈啊、这个学院）"
		CASE 1
			CALL PRINT_STRW,  "（呼唔……♪　这里比公寓里的浴室干净多了……）"
		CASE 2
			CALL PRINT_STRW,  "（洗完澡喝罐啤酒……虽然很想这么做，但那也太）"
			CALL PRINT_STRW,  "（忍耐忍耐、吧）"
	ENDSELECT

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_K32
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		SELECTCASE CONDS("胸部")
			CASE "巨乳", "爆乳", "超乳"
				SELECTCASE RAND:5
					CASE 0
						PRINTFORMW %CNAME("玲子")%%TEXTS("胸部：描写")%%TEXTS("胸部")%、和它的外观一样，既柔软又有沉甸甸的感觉……
						CALL PRINT_STRW,  "「……有那么重吗？」"
						CALL PRINT_STRW, @"「%CNAME("一人称")%从%TEXTR("以前/小孩的时候")%就这样了、没有觉得有多重」"
						PRINTFORMW %CNAME("玲子")%虽然一脸困惑，但好像也不是完全没有问题……
				ENDSELECT
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「哇啊！？　……真、真是的、不要这么突然…………_／／／_」"
				CALL PRINT_STRW, @"「反正、对%CNAME("二人称")%来说不是那么稀奇的东西吧？」"
			CASE 1
				CALL PRINT_STRW,  "「…………嗯_BH_」"
				CALL PRINT_STRW,  "「啊……_／／／_　对不起、发出奇怪的声音了。……呜啊_BH_」"
		ENDSELECT
	CASE "按摩"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嗯……_BH_　呼啊……_BH_　嗯唔_BH_　……啊、那个、不、不是啦」"
				CALL PRINT_STRW,  "「只是比想象中还要熟练，有点惊讶而已」"
				CALL PRINT_STRW,  "「……如果可以的话、继续吧？」"
				CALL PRINT_STRW,  "「…………嗯っ_BH_　哈啊_BH_　啊～～_BH_　唔ー_BH_」"
			CASE 1
				CALL PRINT_STRW, @"「……不能想%TEXTR("色情/淫荡")%的事情哦？」"
				CALL PRINT_STRW,  "「……。……嗯っ。……_BH_　啊_BH_　呼嗯_BH_　噫っ_BH_　呜呜っ_BH_」"
				CALL PRINT_STRW,  "（讨厌……为什么会、怎么、熟练……_BH_）"
				CALL PRINT_STRW,  "（要发出、奇怪的声音了……_BH_）"
				CALL PRINT_STRW,  "「…………っ_BH_　呜呜っ_BH_　哦～_BH_　哈啊っ_BH_　噫っ_BH_」"
		ENDSELECT
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			; 連続実行
			IF CHARA_NUM("室内の邪魔者") > 3
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STRW,  "「嗯……_BH_　啊_BH_　不、不要。快点停、下来……嗯啾_BH_　哈啊……_BH_　嗯っ_BH_　嗯ー……_BH_」"
						CALL PRINT_STRW,  "「……大家、不是都看着吗。真是的……_／／／_　……嗯っ_BH_」"
				ENDSELECT
				SIF LINECOUNT - MEMO_LINECOUNT
					RETURN 1
				GOTO RYOKO_DCOM_LP1
			ENDIF

			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「嗯……_BH_　真是的、怎么啦……嗯啾_BH_」"
					CALL PRINT_STRW,  "「……哈啊_BH_　嗯、虽然、不是很、讨厌……嗯_BH_」"
				CASE 1
					CALL PRINT_STRW,  "「嗯_BH_　嗯嗯ー……_BH_　嗯唔っ！？_／／／_」"
					CALL PRINT_STRW,  "「…………嗯唔_BH_　啊_BH_　嗯_BH_」"
					PRINTFORMW 慢慢地伸进舌頭，%CNAME("玲子")%一瞬间身体缩了一下，然后自己积极地缠住舌頭。……
			ENDSELECT

		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「嗯っ!?　…………っ」"
					CALL PRINT_STRW,  "「真、突然、真是的……_／／／_」"
				CASE 1
					CALL PRINT_STRW,  "「…………_／／／_」"
					CALL PRINT_STRW,  "「突然把舌頭伸进来什么的……是犯规的……_／／／_」"
			ENDSELECT
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	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_K32
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "Ｈ的邀请",
		IF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「…………那个　%TEXTR("身体有点热热的/有点想做了")%_BH_」"
					CALL PRINT_STRW,  "「能不能陪一下……不行吗？」"
				CASE 1
					CALL PRINT_STRW,  "「……如果、有时间的话……那个。这个……_／／／_」"
					CALL PRINT_STRW, @"「%TEXTR("会让人舒服的事情/H的事情")%、做吗？」"
					PRINTFORMW %CNAME("玲子")%时不时地把眼睛飘向%TEXTS("床")%……
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
		ENDIF

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「……如果有空的话，能不能一起...？」"
				CALL PRINT_STRW,  "「啊、那个。这个……是在床上、的意思」"
				CALL PRINT_STRW, @"（如果要对别的女孩子出手的话……%CNAME("一人称")%不帮忙的话可不行_／／／_）"
		ENDSELECT
	CASE "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
	PRINTFORML
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K32
		WAIT
	ENDIF

	; 胎内の避孕套表示
	;   破れと保持は排他
	IF CEVENT("日常：性処理：膣内使用済み避孕套破れ")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「………っ_／／／_」"
				PRINTFORMW %CNAME("玲子")%面红耳赤地咬紧牙関忍受着羞耻感……
				PRINTFORMW 那样的%CNAME("玲子")%自己张開了%TEXTR("那里/女性器/肉壶")%，可以清楚的看见白浊的液体%TEXTR("黏在/流在")%里面……
				CALL PRINT_STRW,  "（破……破掉了……_／／／_）"
				CALL PRINT_STRW, @"（好不容易带的%CNAME("避孕套")%……_BH_　%CNAME("避孕套")%里面的%CNAME("精液")%、全部留在%CNAME("オマンコ")%里了……破掉了……_BH_BH_BH_）"
				CALL PRINT_STRW,  "「那……那个」"
				CALL PRINT_STRW, @"「虽然很小心的不让%CNAME("避孕套")%掉下来……但%CNAME("オマンコ")%好像勒得太紧了……_／／／_」"
				CALL PRINT_STRW,  "「失败了……好像……_／／／_　嗯っ_BH_」"
				PRINTFORMW 装满东西然后破掉的避孕套从颤抖着的%CNAME("玲子")%的%TEXTR("阴道/那里/肉壶")%、滑溜溜地滑落，啪嗒一声掉在地上……
				CALL PRINT_STRW, @"（啊啊、真是的……_BH_　真不像话、%CNAME("玲子")%……_／／／_）"
				PRINTFORMW %CNAME("玲子")%一脸陶醉地低頭看着滑落的安全套……
			CASE 1
				CALL PRINT_STRW, @"「对不起……_BH_　好不容易带的%CNAME("避孕套")%……_BH_」"
				CALL PRINT_STRW,  "「在里面……_BH_　破掉了……_BH_　嗯……_BH_」"
				PRINTFORMW %CNAME("玲子")%从自己的%TEXTR("阴道/那里")%拿出了本人所说的装满液体然后破掉的避孕套，用手指打開看……
				CALL PRINT_STRW, @"「%CNAME("精液")%……_BH_　全部、%CNAME("オマンコ")%喝掉了…………_BH_」"
				PRINTFORMW %CNAME("玲子")%的%TEXTR("阴道/那里")%、仿佛在表示终于享受到隔着橡胶的精液的愉悦似的，一边品味着白浊，一边微微颤抖着。……
		ENDSELECT
	ELSEIF CEVENT("日常：性処理：膣内使用済み避孕套")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「那个……这样就行了……？_／／／_」"
				CALL PRINT_STRW, @"「……话说回来、里面的%CNAME("避孕套")%不会破掉吧？　没事吧？」"
				PRINTFORMW 担心的%CNAME("玲子")%看着、%CNAME("玲子")%的%TEXTR("蜜壶/肉壶/女性器")%的深处，装满%CALLNAME:PLAYER%の%TEXTR("精液/白浊液体")%的%TEXTR("鼓鼓的/软软的/似乎快要破掉的")%避孕套在蠢动的肉褶里，一眼就能看出它对肉褶感到厌烦……
				CALL PRINT_STRW,  "「哈啊……_BH_　如果不会破掉的话、那就好了……_BH_」"
			CASE 1
				CALL PRINT_STRW, @"「真是的……_／／／_　刚刚不是%TEXTR("用了/看了")%很多次了吗……_／／／_」"
				PRINTFORMW %CNAME("玲子")%红着脸自己把自己的%TEXTR("那里/秘裂处")%摊開来展示着蠢蠢欲动的肉褶……
				PRINTFORMW 那深处、可以看见%TEXTR("鼓鼓的/似乎要破裂的")%避孕套……
				CALL PRINT_STRW, @"「要看到什么时候……%CNAME("避孕套")%要掉下来了、已经、够了吧？」"
		ENDSELECT
	ENDIF

	IF COND("合意：检查阴部") == 0
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「真是的……_／／／_　不要看这么就啊、这样的……_BH_」"
				CALL PRINT_STRW, @"（一直看这种大龄女性的%CNAME("オマンコ")%以后该怎么办才好……_／／／_）"
			CASE 1
				CALL PRINT_STRW,  "「……就那么想看吗？　……真是的_／／／_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_DCOM_LP1
	ENDIF

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「啊啦、说了这种事情？」_W"
			CALL PRINT_STR,  "「……嘛啊、虽然无所谓」_W"
			CALL PRINT_STR,  "（有所谓的！　完全有所谓的！）_W"
			CALL PRINT_STR,  "（唔、呜呜。真羞耻……_／／／_）_W"
	ENDSELECT
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K32
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		; 默认で条件を満たすので未記載
		; 拡張を考えて形は残す
		PRINTFORMW
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「～～～～_／／／_」_W"
				CALL PRINT_STR,  "（太近了太近了太近了太近了っ_BH_）_W"
				CALL PRINT_STR,  "（不要这么把脸凑过来一直盯着っ_BH_）_W"
				CALL PRINT_STR,  "「……怎、怎么了？　要带眼睛了吗？」_W"
			CASE 1
				CALL PRINT_STR,  "「想再仔细看看？　……真是的」_W"
				CALL PRINT_STR,  "「…………真没办法」_W"
			CASE 2
				CALL PRINT_STR,  "「っ_H_　嗯っ_H_　呜呜っ_H_」_W"
				CALL PRINT_STR, @"（越过%CNAME("胖次")%这么挠是不行的……っ_BH_）_W"
			CASE 3
				CALL PRINT_STR, @"（这、这也是为了任务%CNAME("玲子")%、要、要忍耐……_／／／_）_W"
				IF TALENT:MASTER:男性
					CALL PRINT_STR, @"（只、只不过是被比自己小的男孩子%TEXTR("看了/仔细看了")%%CNAME("胖次")%而已……！）_W"
				ELSE
					CALL PRINT_STR, @"（只、只不过是被比自己小的女孩子%TEXTR("看了/仔细观察了")%%CNAME("胖次")%而已……！）_W"
				ENDIF
				CALL PRINT_STR,  "（这种程度……っ　是不用感到害羞的……っ_／／／_）_W"
				CALL PRINT_STR,  "「话说回来……只是看着就行了吗？　呼呼、是吗？」_W"
				CALL PRINT_STR,  "（唔、呜呜_H_　唔ー_H_　啊ー、已经足够了……_BHH_／／／_）_W"
		ENDSELECT
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K32
		WAIT
		RETURN 1
	ENDIF

	;じっくり観察
	IF CFLAG:股間確認済
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「…………不要这么一直盯着_／／／_」_W"
				CALL PRINT_STR,  "「会很害羞的……_／／／_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「……感觉怪怪的」_W"
			CALL PRINT_STR,  "（比做的时候被舔还要羞耻……_／／／_）_W"
	ENDSELECT

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL PRINT_STR,  "「……真是的。不要用这种眼神看啊」_W"
			CALL PRINT_STR,  "「…………这样就可以了？」_W"
			CALL PRINT_STR,  "（呜哇……这个好羞耻……_／／／_）_W"
			CALL PRINT_STR,  "（没関系的吧……？　不会觉得是奇怪的胖次吧……？）_W"
			CALL PRINT_STR,  "（啊唔……一直在盯着看……_／／／_）_W"
			CALL PRINT_STR,  "（真是……真没办法……_H_）_W"
			CALL PRINT_STR,  "「在近点看也可以……哦？」_W"
			PRINTFORMW %CNAME("玲子")%害羞地呆住了……
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			; 汎用
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「……那个、怎么样？　今天试着穿了%PANTIES(TARGET)%……」_W"
					CALL PRINT_STR,  "「如果很喜欢的话，会很高兴的_BH_」_W"
			ENDSELECT
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「………………」_W"
					CALL PRINT_STR,  "「…………？」_W"
					PRINTFORMW %CNAME("玲子")%的裙子被卷起来了，但似乎没什么反应。
					PRINTFORMW 看来完全没有要醒过来的迹象……
			ENDSELECT
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K32
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			CALL PRINT_STR,  "「！？　噫啊――啊、唔、突、突然干什么。吓到我了……」_W"
			CALL PRINT_STR,  "「知道对裙子里的东西感兴趣，……突袭是不行的」_W"
			CALL PRINT_STR,  "「如果想看的话，就得说请让我好好看」_W"
			CALL PRINT_STR,  "（呜呜……吓了一跳……掀裙子什么的，明明已经不是孩子了……）_W"
			CALL PRINT_STR,  "（但是完全被看光了吧……还是找个更H的比较好呢……？_／／／_）_W"
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR,  "「～～～～っ_／／／_　真、真是的！　突然干什么！？_／／／_」_W"
						CALL PRINT_STR,  "「突然掀起裙子，再怎么说也太失礼了吧，真是的……」_W"
						CALL PRINT_STR,  "「…………想、想看多少的话就给你看多少，请不要突然袭击」_W"
				ENDSELECT
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR,  "「……并、并不是平时不穿的哦」_W"
							CALL PRINT_STR,  "「今、今天偶然……想要点開放感……」_W"
							CALL PRINT_STR,  "「……辜、辜负了你的期待，真是抱歉啊」_W"
					ENDSELECT
				ELSE
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR,  "「真、真是的……又像个小孩子一样……」_W"
							CALL PRINT_STR,  "「掀開女孩的裙子，看到想看的了？」_W"
							CALL PRINT_STR,  "「……是、是吗。那就太好了。……好好穿着下面的真是太有价值了_BH_」_W"
					ENDSELECT
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
	PRINTFORML
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
	PRINTFORML
CASEELSE
	DEBUGPRINTFORM ARGS:%ARGS%
	RETURN 0
ENDSELECT

SIF LINECOUNT - MEMO_LINECOUNT
	RETURN 1
GOTO RYOKO_DCOM_LP1

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

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

;地の文
PRINTFORMW 照片被添加了「%MAIL_BODY%」这样的信息…

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

$RYOKO_DATE_LP1
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	; 初回
	IF !CEVENT("初回：约会お誘い")
		CALL PRINT_STR,  "「那、那个っ！　能稍微听我说下话吗！？」_W"
		CALL PRINT_STR,  "「这这这周的星期日、可、可以的话一起出去玩吗？」_W"
		CALL PRINT_STR, @"（唔、呜呜。要冷静下来啊%CNAME("玲子")%……可是年长的那一方啊）_W"
		CALL PRINT_STR,  "（虽然是、约约约会的邀请、但对方可是年下的孩子不用这么心脏狂跳……_／／／_）_w"
		CALL PRINT_STR,  "（呜呜。但是、约会、啊_／／／_　稍微化下妆、选选衣服……内、内衣比平常色情一点的不知道行不行？）_W"
		CALL PRINT_STR,  "（っ额、不是这样的、这是任务、是任务的一环。就算是休息日也要好好监视啊）_W"
		CALL PRINT_STR, @"「当、当当当然、如果%CNAME("二人称")%有空的话、但是……」_W"
		CALL PRINT_STR,  "「怎、怎么样？」"
		CALL SET_CEVENT, "初回：约会お誘い"
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"（冷静……要冷静一点%CNAME("玲子")%……）"
			CALL PRINT_STR,  "（去约会吧、只要这么邀请不就行了）_W"
			CALL PRINT_STR, @"（理发的预约已经约好了、新买的%TEXTR("崭新的/色情的/可爱的")%内衣也到了、准备都准备好了）_W"
			CALL PRINT_STR,  "「那个、能不能等一下？　这周的休息日……」_W"
			CALL PRINT_STR, @"「……和%CNAME("一人称")%约会、有时间吗？」"
	ENDSELECT

CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	IF !CEVENT("初回：约会に誘われた")
		CALL PRINT_STR,  "「抱歉、能再说一遍吗?？」_W"
		CALL PRINT_SELECT, "这周的休息日一起去玩吧/两个人一起出去吧"
		CALL PRINT_STR,  "「是、是吗。呼呼嗯。两个人……只有两个人出去、吧。唔嗯」_W"
		CALL PRINT_STR,  "（这也就是说……那个……要去约会？）_W"
		IF TALENT:MASTER:男性
			CALL PRINT_STR, @"（%CNAME("一人称")%有生以来第一次受到异性的约会邀请……？_／／／_）_W"
		ELSE
			CALL PRINT_STR, @"（不过，毕竟都是女孩子，只是普通地出去玩而已……？　但是但是、好像又不是那样的感觉……）_W"
			CALL PRINT_STR, @"（……也就是说、果然是%CNAME("一人称")%从出生到现在第一次收到约会的邀请……？_／／／_）_W"
		ENDIF
		CALL PRINT_STR,  "「…………_BH_」_W"
		CALL PRINT_STR,  "「啊、对，对不起。ええ、当、当然是可以啦。唔嗯。没、没什么要紧事」_W"
		CALL PRINT_STR,  "「……话、话说这个、那个、可以当成约会的邀请吧？　是吧？」_W"
		CALL PRINT_SELECT, "当然/就是那样"
		CALL PRINT_STR,  "「是、是吗ぁ……_／／／_　约会、吗……_BH_」_W"
		PRINTFORMW %CNAME("玲子")%又高兴又害羞，反复嘟囔着约会这个词。。
		CALL PRINT_STR,  "「那么……作为邀请的回报，可以提一点要求哦」_W"
		CALL PRINT_STR, @"「想要%CNAME("一人称")%做的事情、有吗？　比如……那个……」_W"
		CALL PRINT_STR,  "（这、这种时候男孩子要被做什么才会高兴呢？）_W"
		CALL PRINT_STR,  "「……约会的时候、想要我穿的胖次、有吗？」_W"
		CALL PRINT_STR, @"（啊啊到底在打听写什么啊%CNAME("私")%……っ_／／／_　但、但是是重要的事情吧……？　是这样的吧？）_W"
		CALL PRINT_SELECT, "平时的胖次/色情的胖次/可爱的胖次/不要胖次"
		SELECTCASE RESULT
			CASE 0
				CALL SET_CEVENT, "约会：胖次リクエスト：いつもの胖次"
				CALL PRINT_STR,  "「平时的就可以了……？　是、是吗、知道了」_W"
			CASE 3
				CALL SET_CEVENT, "约会：胖次リクエスト：没穿内褲"
				CALL PRINT_STR,  "「…………_／／／_　色狼_BH_」_W"
				CALL PRINT_STR,  "「不过没関系，会答应的。但是，作为交换，一定要是给很棒的约会哦？_BH_」_W"
			CASEELSE
				IF RESULT == 1
					CALL SET_CEVENT, "约会：胖次リクエスト：エッチな胖次"
				ELSE
					CALL SET_CEVENT, "约会：胖次リクエスト：可爱胖次"
				ENDIF
				CALL PRINT_STR,  "「好、知道了。会穿上珍藏的胖次的，要好好期待啊」_W"
		ENDSELECT
		IF TALENT:MASTER:男性
			CALL PRINT_STR, @"（约会_BH_　约会吗_BH_　虽然说是任务、但%CNAME("一人称")%会和年轻的男孩子约会什么的……）_W"
		ELSE
			CALL PRINT_STR, @"（约会_BH_　约会吗_BH_　虽然说是任务、但%CNAME("一人称")%会和年轻的女孩子约会什么的……）_W"
		ENDIF
		CALL PRINT_STR,  "（必须早点预约美容院……_BH_　衣服也要换新的了_BH_）_W"
		CALL PRINT_STR,  "「…………_BH_」_W"
		PRINTFORMW %CNAME("玲子")%掩饰不住快乐的微笑着……
		CALL SET_CEVENT, "初回：约会に誘われた"
		RETURN 1
	ENDIF

	; ２回目以降

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "「啊啦？　难道说……又是约会的邀请？」"
			CALL PRINT_STRW,  "「当然、很高兴会邀请_BH_」"
			CALL PRINT_STRW,  "「度过个美好的时光吧_BH_」"
		CASE 1
			CALL PRINT_STRW,  "「这周的星期天？　……欸、诶诶、也是。没什么事情」"
			CALL PRINT_STRW,  "「虽然没事……那个、啊啊啊」"
			CALL PRINT_STRW,  "「……去、约会吧_／／／_」"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "（啊啦、是从那孩子发来的消息……？）_W"
				CALL PRINT_STR,  "「……～～～～っ_／／／_」_W"
				CALL PRINT_STR,  "「这、这个、难道……难道是约会的邀请……？_BH_」_W"
				CALL PRINT_STR,  "（当然是ok、这样……回复就可以了……呜呜、没多少时间了）_W"
				CALL PRINT_STR,  "「现在去美容院肯定是来不及的……至少把内衣换成新的吧？　话说、衣服、有约会用的衣服吗！？」"
				CALL PRINT_STR,  "「不、不快点准备的话……っ_／／／_」_W"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「两个人一起出門？　可以哦」_W"
				CALL PRINT_STR,  "「那么、去哪里？　便利店？　超市？　药店？」_W"
				CALL PRINT_STR,  "「啊啦、不是吗？　那么……啊、那、那个_／／／_」_W"
				CALL PRINT_STR,  "（这、这个难道是约会？　啊啊真是的、为什么要突然说这种事_／／／_）_W"
				CALL PRINT_STR,  "「……化、化妆会要点时间请等一下_／／／_」_W"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

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

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

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

CASE "手をつなぐ"
	PRINTFORMW
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「…………%TEXTR("呼呼/＿")%_BH_」"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "（～～～～っ_／／／_）"
			CASE 1
				CALL PRINT_STRW,  "「啊唔……_／／／_」"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

CASE "手をつながない"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「…………欺负人」"
			CASE 1
				CALL PRINT_STRW,  "「别让人这么着急嘛、真是的……」"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「？　怎么了？」"
			CASE 1
				CALL PRINT_STRW,  "「天气这么好真是太好了。」"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW, @"「%TEXTR("比预想的/意外的")%%TEXTR("过激的/色情的")%款式有很多……」"
				CALL PRINT_STRW,  "「……想要、这种的？」"
			CASE 1
				CALL PRINT_STRW,  "（……好、好厉害、这个。说是绳子，更像是线……？）"
				CALL PRINT_STRW,  "「诶？　很、很适合、那个啊……」"
				CALL PRINT_STRW,  "「……真的吗？」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STRW,  "（比想的种类多好多……）"
			CALL PRINT_STRW,  "（不是很懂，让对方选择会比较好吗）"
		CASE 1
			CALL PRINT_STRW,  "「好像没什么可选的」"
			CALL PRINT_STRW,  "「诶？　那个……很难受的。胸」"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"

	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "比基尼"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「嘛啊、普通的款式吗」"
				CALL PRINT_STRW,  "「……可以选更激进一点的哦？_／／／_」"
		ENDSELECT
	CASE "競泳泳装"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「不错嘛。露出的地方也控制的很好……」"
				CALL PRINT_STRW, @"「……反正%CNAME("二人称")%也可以随便看」"
				CALL PRINT_STRW,  "「真是的……_／／／_」"
		ENDSELECT
	CASE "高開衩連衣裙"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「有点担心胯部的缺口、嘛啊、许可范围之内吧」"
				CALL PRINT_STRW,  "「……所以说不要把脸凑得那么近看、真是的_／／／_」"
		ENDSELECT
	CASE "連体泳装"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「选了很规矩的款式嘛」"
				CALL PRINT_STRW,  "「总的来说是可爱系的设计……合适吗？是、是吗？_／／／_」"
		ENDSELECT
	;其他はだいたいエロ泳装です
	CASE "Micro比基尼", "淚珠泳衣"
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「……_／／／_　这个、稍微……布料、会不会太少了？_／／／_」"
				CALL PRINT_STRW,  "（乳頭好像会溢出来……大腿的部分也……_／／／_）"
				CALL PRINT_STRW,  "「这样就可以了？　…………真、真是的_／／／_」"
		ENDSELECT
	CASE "彈弓泳衣"
		PRINTFORMW
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "（虽……虽然知道有这种泳衣、但没想到自己会穿什么的……）"
				CALL PRINT_STRW, @"「……_／／／_　怎么了。选的人是%CNAME("二人称")%吧？」"
				CALL PRINT_STRW,  "「要好好……负起、责任_／／／_」"
		ENDSELECT
	CASEELSE
		; 多分CASEで網羅したのでここには来ない
		PRINTFORMW
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"

	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「……真是的_／／／_　在这种地方变大……_BH_」"
				CALL PRINT_STRW,  "「会用嘴来处理的、可不能做到最后……？_／／／_」"
			CASE 1
				CALL PRINT_STRW,  "「是这孩子不能忍耐到旅馆吗……？_／／／_」"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "（好像很难受……不能忍耐到旅馆的吧……_／／／_）"
				CALL PRINT_STRW,  "「不能射到脸上哦……？_／／／_」"
		ENDSELECT
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「…………っ_BH_BH_BH_」"
				CALL PRINT_STRW,  "「已、已经……不行……」"
				CALL PRINT_STRW, @"「到%TEXTR("旅馆/情人旅馆")%之前……要好好忍耐哦……？_／／／_」"
			CASE 1
				CALL PRINT_STRW,  "「啊嗯……_BH_　不、停下、真是的……嗯っ_BH_」"
				CALL PRINT_STRW,  "「……不是都湿掉了吗…………_BH_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_DATE_LP1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「…………嗯っ_BH_」_W"
			CALL PRINT_STR,  "「喂……等等。这只手、是想摸屁股？　还是说、是想抱过来？」_W"
			CALL PRINT_STR,  "「……那样的话、就更堂堂正正地来抓_／／／_」_W"
			CALL PRINT_STR,  "「……嗯_BH_」_W"

		CASE 1
			CALL PRINT_STR,  "「…………喂。在这种地方……真是的……_／／／_」_W"
			CALL PRINT_STR,  "（但是也没有办法吧……像这个年龄的男孩子，就像是性欲的化身……）_W"
			CALL PRINT_STR,  "「……可以更正大光明的揉哦？_／／／_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「啊啦、已经这个时间了……？　快乐的时间总是过的很快啊」_W"
				CALL PRINT_STR,  "「……今天真的很開心。谢谢」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「已经这个时间了啊……光阴如梭什么的，不是人们常说的吗」_W"
			CALL PRINT_STR,  "「谢谢这么美好时光。很開心」_W"
			CALL PRINT_STR,  "「下次还会再邀请吗？」_W"
			CALL PRINT_STR,  "「……呼呼。谢谢。会期待的_BH_」_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW, @"「今天、可是穿了%TEXTR("崭新的/色情的/可爱的")%%TEXTR("内衣/胖次")%来的_／／／_」"
					CALL PRINT_STRW, @"「要不要来确认一下是不是符合%CNAME("二人称")%的兴趣？_／／／_」"
				CASE 1
					CALL PRINT_STRW, @"「……糟糕了。忘记在便利店买%CNAME("避孕套")%了」"
					IF ITEM:避孕套 == 0
						CALL PRINT_STRW,  "「……虽、虽然不会用_／／／_　至少让我有个用的理由吧……_BH_」"
					ELSE
						CALL PRINT_STRW,  "「还有？　是吗、那么……但是……_／／／_」"
						CALL PRINT_STRW,  "「不乱用、也是可以的……？_BH_」"
					ENDIF
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "（最后要做的事还是要做吧……）"
					CALL PRINT_STRW,  "（但是约会很愉快……）"
					CALL PRINT_STRW,  "（今天没有什么任务也可以吧……？_／／／_）"
					PRINTFORMW %CNAME("玲子")%红着脸不停把眼睛瞄向%CALLNAME:PLAYER%……
				CASE 1
					CALL PRINT_STRW,  "「啊啦、一直会陪到床上？_／／／_」"
					CALL PRINT_STRW,  "（今天……就当作休息吧）"
					CALL PRINT_STRW,  "（明明是休息，却和这孩子做……只是这是私人的话题。）"
					CALL PRINT_STRW,  "「一起洗澡吗？　欸？　就这样？　……真是的_／／／_BH_」"
					CALL PRINT_STRW,  "（偶、偶尔……就个人的话题和这个孩子讨论也没有问题，对吧？_／／／_）"
				CASE 2
					CALL PRINT_STRW,  "（约会之后滚床单……听起来就像一对普通的恋人一样）"
					CALL PRINT_STRW,  "（而且实际上，休息时是根据自己的意愿做的……）"
					CALL PRINT_STRW,  "（…………不、不要再想那些奇怪的事情了。）"
					PRINTFORMW %CNAME("玲子")%红着脸不停把眼睛瞄向%CALLNAME:PLAYER%……
			ENDSELECT
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_DATE_LP1

ENDSELECT

path: ERB/EVENT_K/32 玲子/EVENT_K32_DAILY.ERB


code:
;-------------------------------------------------
; 角色の固有イベント
;-------------------------------------------------

;-------------------------------------------------
;
;-------------------------------------------------
@RYOKO_EVENT(ARGS, ARG)
LOCALS = イベント：%ARGS%
SIF CEVENT(LOCALS, ARG)
	RETURN 0

CALL RYOKO_EVENT_CHECK_TRIGGER(ARGS, ARG)
SIF RESULT == 1
	CALL RYOKO_EVENT_MAIN(ARGS, ARG)

RETURN 1;

;-------------------------------------------------
; イベントメイン処理
;-------------------------------------------------
@RYOKO_EVENT_MAIN(ARGS, ARG)
#DIMS EVESTR
EVESTR = イベント：%ARGS%
SELECTCASE ARGS
;-------------------
; 避妊禁止
;-------------------
CASE "避妊禁止"
	DRAWLINE
	PRINTFORMW 【深夜:%CNAME("玲子")%租借的公寓】
	PRINTFORML
	CALL PRINT_STRW,  "「…………哈啊_BH_」"
	PRINTFORMW 躺在简陋的床上，%CNAME("玲子")%发出了连自己都无法判断的叹息。。
	PRINTFORMW 手不自觉地伸向自己的下腹部——胎的位置。
	CALL PRINT_STRW,  "「还留着……吧……_／／／_」"
	PRINTFORMW 是错觉吗——不，虽然希望是这样。但感觉鼓鼓囊囊的。
	CALL PRINT_STRW,  "「……呜呜_BH_」"
	PRINTFORMW 没有必要去想到底是什么在那里了。不管怎么说，已经到了没有必要思考的程度。
	CALL PRINT_STRW,  "「唔ー……_BH_」"
	PRINTFORMW 一不留神就会想起来。回想起。
	PRINTFORMW 潜入自己性器官的雄性分身。
	PRINTFORMW 和平时用来自慰的玩具不同，它会随意地脱离自己的意图到处乱来。
	PRINTFORMW 与自慰完全不一样，在最后终于积蓄力量般颤抖着，然后――
	CALL PRINT_STRW,  "「在里面出来了……_BH_」"
	PRINTFORM 说出口，当时的感觉历历在目。就连吞噬到根部的阴茎的热度和形状也能清楚的感受到，
	PRINTFORMW 在阴道深处的白浊粘性也...。
	CALL PRINT_STRW,  "「…………呜呜_BH_」"
	PRINTFORMW 感觉它黏黏糊糊地粘在肚脐后面。
	PRINTFORM ……不，事实就是这样的吧。今天允许膣内射精——就这样……、
	PRINTFORM 小腹好像有什么东西在不断地蠕动，刚才冲了个澡，
	PRINTFORM 可能是因为热水缓解了紧张的缘故，“咕啵”的一声，从密裂处里传来一片白浊的响声。
	PRINTFORM 有什么黏糊糊的……毫无疑问，胎内、瞄准子宫灌入的精液，是为了制造生命而囤积的精液
	PRINTFORMW 溢出来了。
	PRINTFORM 很惊讶自己竟然被射了这么多，但还是觉得下腹部——子宫附近有一种痒痒的违和感。
	PRINTFORMW 也就是说。
	CALL PRINT_STRW,  "「没有出来的健康精液……_BH_这里还有很多，……_BH_」"
	CALL PRINT_STRW,  "（今后……虽然不知道还会打開双腿多少次……_BH_）"
	CALL PRINT_STRW,  "「子宫会记住精液的味道的……真是的……_BH_」"
	PRINTFORMW 更糟糕的——不对，应该是最糟糕的——是自己不允许拒绝。。
	CALL PRINT_STRW,  "「禁止自己随意避孕，……_BH_」"
	PRINTFORMW 看了看桌子上的空罐子。虽然已经没有残渣了，但还是认真确认了送到公寓的追加指示。
	CALL PRINT_STRW,  "（为了测试对象的性能力，积极地对性行为做出回应——嘛啊，这倒也罢了……_BH_）"
	CALL PRINT_STRW,  "「为了测量生育能力而禁止使用避孕工具和避孕药…………_BH_」"
	CALL PRINT_STRW,  "（也就是说，不顾怀孕而晃动腰部，……？_／／／_）"
	PRINTFORMW 正确的说法是，为了确认是否会怀孕而不要避孕这样的指示，但好像没有必要确认。
	CALL PRINT_STRW,  "「…………呜呜_BH_」"
	CALL PRINT_STRW,  "「那么浓的精液……_BH_　一定会怀孕的……_BH_」"
	CALL PRINT_STRW,  "（如果怀孕了，会帮助生产和养育孩子……_BH_　在这之前、唔、呜呜_BH_）"
	CALL PRINT_STRW, @"「振、振作一点%CNAME("玲子")%……_／／／_　这是任务、没有羞耻的时间……_／／／_」"
	CALL PRINT_STRW,  "「而、而且，和恶魔有契约的人的精液，也不能随便处理。……」"
	CALL PRINT_STRW,  "「要好好地用里面接住……不影响周围的人……_BH_」"
	CALL PRINT_STRW,  "「……唔、呜呜_BH_　啊啊、真是的……っ_／／／_」"
	CALL PRINT_STRW,  "「名字、想一下会比较好吗……？_／／／_」"
	PRINTFORMW 可能太性急了，这么想的%CNAME("玲子")%下意识地用柔软的手抚摸着自己的下腹部，不久就睡着了……
	PRINTFORMW …………
	PRINTFORMW ……
	PRINTFORMW
	DRAWLINE

CASE "初妊娠"
	DRAWLINE
	PRINTFORMW 【深夜：%CNAME("玲子")%公寓的厕所】
	PRINTFORML
	CALL PRINT_STRW,  "「唔……_BH_　讨厌、这个……_／／／_　该怎么办才好……_BH_」"
	PRINTFORMW %CNAME("玲子")%脱掉内裤坐在马桶上，不知重复了多少遍。
	PRINTFORMW 视线正对着手中的细长塑料容器。
	CALL PRINT_STRW,  "（这是检查完成后的反应，……所以、这个是、那个……_BH_）"
	PRINTFORMW 容器上透明两个小窗，可以看到里面的纸片。
	PRINTFORMW 现在这两边都浮现出淡粉色的线。
	CALL PRINT_STRW,  "（怀、怀孕……是阳性的、吧）"
	PRINTFORMW 也就是说、
	CALL PRINT_STRW,  "「……中了…………_BH_／／／_BH_」"
	PRINTFORMW %CNAME("玲子")%一边反复嘟囔着一边温柔地抚摸着自己的下腹部……
	IF MARK:ARG:淫紋
		; TODO: 淫紋が反応している描写
	ENDIF
	CALL PRINT_STRW,  "（这……这也是任务的一环吧……）"
	CALL PRINT_STRW,  "（関于生育和育儿，『上面』也有联络说会好好照顾……）"
	CALL PRINT_STRW,  "「那就没什么……问题了，对吧……_BH_」"
	CALL PRINT_STRW,  "（能想到的‘原因’，那就不用想那么多了……）"
	IF CFLAG:ARG:最新中出し日 == DAY
		CALL PRINT_STRW,  "（今天也……_BH_　好多、被射了出来……_BH_）"
		CALL PRINT_STRW,  "「…………啊っ_BH_」"
		PRINTFORMW 突然之间，感觉有温暖的东西从两腿之间掉了下来。
		CALL PRINT_STRW,  "（讨厌……_BH_　留在里面的掉出来了……_BH_）"
	ENDIF
	CALL PRINT_STRW,  "「…………_BH_」"
	CALL PRINT_STRW,  "（突、突然说‘要负起责任’……是不行的吧）"
	CALL PRINT_STRW,  "（也还有任务……还、还是装作没发现比较好）"
	CALL PRINT_STRW,  "「……嘛、嘛啊、再考虑考虑吧、考虑考虑」"
	CALL PRINT_STRW,  "（但是……_BH_　孩子、嘛_BH_）"
	CALL PRINT_STRW,  "「希望能生一个健康的孩子…………_BH_」"
	PRINTFORM %CNAME("玲子")%温和地微笑着，温柔地抚摸着自己的下腹部……
	PRINTFORMW …………
	PRINTFORMW ……
	PRINTFORMW

CASEELSE
	EVESTR =
ENDSELECT

SIF STRLENSU(EVESTR)
	CALL SET_CEVENT, EVESTR, ARG

;-------------------------------------------------
; イベント発生条件
;-------------------------------------------------
@RYOKO_EVENT_CHECK_TRIGGER(ARGS, ARG)
SELECTCASE ARGS
;-------------------
; 避妊禁止
;-------------------
CASE "避妊禁止"
	SIF CEVENT("イベント：避妊禁止", ARG)
		RETURN 0
	SIF EXP:ARG:膣内精液経験 == 0
		RETURN 0
	RETURN 1
;-------------------
; 初妊娠
;-------------------
CASE "初妊娠"
	SIF CEVENT("イベント：初妊娠", ARG)
		RETURN 0
	SIF TALENT:ARG:出産経験 > 0
		RETURN 0
	SIF !COND("妊娠中：妊娠発覚直前", ARG)
		RETURN 0
	RETURN 1

;-------------------
; 告白成功
;-------------------
CASE "告白成功"
	SIF !TALENT:ARG:恋慕
		RETURN 0
	;SIF !TALENT:ARG:出産経験
	;	RETURN 0
	RETURN 1
;-------------------
; 処女喪失
;-------------------
CASE "処女喪失"

	RETURN 1
ENDSELECT
RETURN 0

path: ERB/EVENT_K/32 玲子/EVENT_K32_EVENT.ERB


code:
;
;  玲子専用のCOM_CHECK
;    指令の派生確認に使う
;
@RYOKO_COM_CHECK(ARGS)
#FUNCTION
	; TARGETの確認
	SIF NO:TARGET != 32
		RETURNF 0

	SELECTCASE ARGS
		CASE "素股誤挿入"
			SIF SELECTCOM != 93
				RETURNF 0
			SIF FIRSTCOM(SELECTCOM) == 0
				RETURNF 0
			SIF EXP:Ｖ性交経験 == 0
				RETURNF 0
			SIF CHECK_COM("展示肉棒")
				RETURNF 0
			SIF CEVENT("調教：素股誤挿入") || CEVENT("調教：素股誤挿入発生済み")
				RETURNF 0
			SIF !CHECK_CLO("Ｖ露出")
				RETURNF 0
			SIF PALAM:Ｖ潤 < 3000
				RETURNF 0
			;SIF RAND:4
			;	RETURNF 0

			RETURNF 1
	ENDSELECT

	RETURNF 0

@RYOKO_ALTNATE_COM(ARGS)

	; TARGETの確認
	SIF NO:TARGET != 32
		RETURN 0

	SELECTCASE ARGS
		CASE "素股誤挿入"
			; 素股中に挿入してしまったというシチュエーション
			; 擬似的な正常位 or 騎乗位になる

			SIF SELECTCOM != 93
				RETURN 0

			TFLAG:地の文スキップ = 1
			CALL SET_CEVENT, "調教：素股誤挿入"
			CALL SET_CEVENT, "調教：素股誤挿入発生済み"

			; 素股の地の文をマニュアル表示
			CALL TRAIN_MESSAGE_COM93

			; 口上を表示
			CALL KOJO_MESSAGE_COM_K32

			; 派生描画はここで行う
			PRINTW …………
			PRINTFORM %CALLNAME:TARGET%通过%TEXTR("爱液/淫蜜")%从%TEXTR("那里/女性器/秘裂处")%那里滴落、%CALLNAME:PLAYER%の%TEXTR("陰茎/肉棒/肉竿")%
			IF TEQUIP:推倒
				PRINTFORM を%TEXTR("压迫着/压倒着")%像舔%TEXTR("冰激凌/糖果")%一样%TEXTR("摩擦着入口处的褶皱/用柔软的阴道口摩擦")%……
			ELSE
				PRINTFORM 像要%TEXTR("扑过来/舔遍/猛扑过来")%一样吸附着……
			ENDIF
			PRINTFORMW
			PRINTFORMW 因为配合着%CALLNAME:PLAYER%的%TEXTR("腰的动作/冲刺")%%CALLNAME:TARGET%%TEXTR("焦急地/畏缩着/欲求不满的")%扭着身子、%CALLNAME:PLAYER%的%TEXTR("肉棒/男性器")%似乎侵入到%TEXTR("女性器/肉壶")%里面……
			PRINTFORMW 因为%CALLNAME:TARGET%反复着%TEXTR("只有龟頭/浅浅的")%%TEXTR("进进出出/抽插")%的动作而露出了%TEXTR("复杂的/害羞的/带有批判色彩的")%表情、但%TEXTR("像是在欢迎的/像迎接一样")%的腰部摆动似乎没有要停止的意思……
			PRINTFORMW 不久、
			PRINTL
			CALL PRINT_STRW,  "　　　　　　　　_爱心_冒出_BHH_"
			PRINTL
			PRINTFORMW 　　　　感受到%TEXTR("不成形的/柔软的肉的/淌满爱液的肉壶的")%抵抗、%CALLNAME:PLAYER%的%TEXTR("肉棒/长处")%%TEXTR("到根部/毫无保留地")%%CALLNAME:TARGET%被%TEXTR("肉壶/女性器/胎内/阴道/那里")%吞入了……

			; 指令の派生を表示
			PRINTL
			PRINT 素股　→　素股誤挿入
			IF TEQUIP:推倒
				PRINTL 騎乗位
			ELSE
				PRINTL 正常位
			ENDIF
			PRINTL

			; 追加地の文
			CALL TEXT,"追加地の文：Ｖ挿入後",TARGET

			; 実指令の変更
			SELECTCOM = 60
			SIF TEQUIP:推倒
				SELECTCOM = 65

	ENDSELECT

	RETURN 0

; 何らかの処理をまとめた関数
; 描画ではなく、値の管理のみを行う
@RYOKO_SET_FLAG(ARGS)
#DIM  MEMO
#DIMS MEMOS
#DIM  SAMEN_VAL
#DIMS TMPS
#DIM  CNT
	; TARGETの確認
	SIF NO:TARGET != 32
		RETURN 0

SELECTCASE ARGS
	CASE "換装：服を着替えた"
		; 服を着替えさせたときに発生する諸々の一括処理
		IF CHECK_SHIRT("巫女")
			IF !CHECK_CLO("没穿内褲")
				CALL SET_PANTIES, ""
				CFLAG:内衣確認済 = 3
			ENDIF
			SIF EQUIP:胸罩
				CALL SET_BRA, ""
		ENDIF
	CASE "性処理：膣内使用済み避孕套破れ"
		; 性処理後、膣内に残していた避孕套が破れた

		; フローがよくわからぬ……
		;   汎用処理とは異なる動作をさせたいので、結局、自作
		; Ref.
		;   CALL SETFLAG, "膣内精液経験", PLAYER, TARGET

		DEBUGPRINTFORML CSTR:被Ｖ中出 = %CSTR:被Ｖ中出%
		DEBUGPRINTFORML 　　　　　　　　　　　　↓

		; 射精（されていた）量の決定
		MEMO       = 1
		MEMOS      = %TOSTR(BASE:PLAYER:識別番号)%：
		SAMEN_VAL  = 3
		SAMEN_VAL  = (SAMEN_VAL * 3 / 2) + 1
		SAMEN_VAL *= MEMO
		SAMEN_VAL  = MULTIPLY(SAMEN_VAL, 100 + RAND:51)

		; 経験の増加
		EXP:TARGET:膣内精液経験 += MEMO
		CFLAG:TARGET:Ｖ已中出 += SAMEN_VAL
		SIF TALENT:妊娠
			BASE:胎児への栄養 += MEMO

		;妊娠用判定
		CALL CHECK_PREGNANT, TARGET, MEMO, MEMOS

		CALL ADD_STAIN, TARGET, "Ｖ", "精液"
		EX:Ｖ中出し      += 1
		NOWEX:Ｖ中出し   += 1
		EX:Ｖ中出し量    += SAMEN_VAL
		NOWEX:Ｖ中出し量 += SAMEN_VAL

		;Ｖ液体追加のソース
		SOURCE:Ｖ液体追加 += 100 * MEMO

		;記録を分解する
		VARSET LOCALS
		SPLIT CSTR:被Ｖ中出, "/", LOCALS
		TMPS =

		FOR CNT, 0, 30
			SIF LOCALS:CNT == ""
				BREAK

			;今回と同じ相手のものかどうか
			IF MEMOS != "" && MEMOS == SUBSTRING(LOCALS:CNT, 0, STRLENS(MEMOS) )
				;相手：量 となっているので"量"部分を抜き出して、今回の数値を加算する
				LOCALS:CNT = %MEMOS%%TOSTR(TOINT(EXTSTR(LOCALS:CNT, "：") ) + SAMEN_VAL)%

				;MEMOSは加算して用済みなので初期化
				MEMOS =

				;記録する文字列を再構築
				TMPS = %LOCALS:CNT%/%TMPS%
			ELSE
				TMPS = %TMPS%%LOCALS:CNT%/
			ENDIF
		NEXT

		;初めての相手ならMEMOSは文字列が入っている
		SIF MEMOS != ""
			TMPS = %MEMOS%%TOSTR(SAMEN_VAL)%/%TMPS%
		CSTR:被Ｖ中出 = %TMPS%

		; 確認用
		DEBUGPRINTFORML CSTR:被Ｖ中出 = %CSTR:被Ｖ中出%

		; ついでに潤滑も増える
		;   増加量については要調整
		PALAM:Ｖ潤 += (500 + RAND:100) * (RAND:((ABL:精液中毒 + 1)) + 1)

ENDSELECT
RETURN 1

@RYOKO_COND(ARGS, ARG)
#FUNCTION

	SIF ARG == 0 && TARGET > 0
		ARG = TARGET
	; TARGETの確認
	SIF NO:ARG != 32
		RETURNF 0

	SELECTCASE ARGS
		CASE "淫紋：愛液過多"
			SIF MARK:ARG:淫紋 < 2
				RETURNF 0
			RETURNF 1
		CASE "処女"
			SIF EXP:ARG:Ｖ性交経験 > 0
				RETURNF 0
			RETURNF 1
		CASE "告白可能"
			SIF !TALENT:ARG:恋慕
				RETURNF 0
			SIF !CEVENT("イベント：初妊娠", ARG)
				RETURNF 0
			RETURNF 1
	ENDSELECT

	RETURNF 0

;===========================================================
; RYOKO_SWEET_VOICE_RAND
;   汎用喘ぎ関数
;   「%RYOKO_SWEET_VOICE_RAND()%」としての使用を想定
;===========================================================
@RYOKO_SWEET_VOICE_RAND()
#FUNCTIONS
#DIMS VOICE
#DIMS SITUATION

	VARSET VOICE
	VARSET SITUATION

	RETURNF VOICE

;===========================================================
; RYOKO_SWEET_VOICE_RAND_SITUATION
;   汎用喘ぎ関数のシチュエーション判断
;   〇〇/○○/○○/... 形式
;===========================================================
@RYOKO_SWEET_VOICE_RAND_SITUATION
#FUNCTIONS
#DIMS SITUATION

	VARSET SITUATION

	; 大本のシチュエーション
	SIF COND("調教中")
		SITUATION += "調教中/"
	SIF COND("约会中")
		SITUATION += "约会中/"
	SIF COND("性処理中")
		SITUATION += "性処理中/"
	SIF COND("朝袭相手") && COND("朝")
		SITUATION += "朝袭中/"

	; PLAY内容
	IF INSERT("Ｖ挿入")
		SITUATION += "Ｖ挿入/"
		IF TEQUIP:PLAYER:避孕套
			SITUATION += "避孕套ハメ中/"
		ELSE
			IF COND("危険日")
				SITUATION += "危険日ナマハメ中/"
			ELSE
				SITUATION += "ナマハメ中/"
			ENDIF
		ENDIF
	ENDIF
	SIF INSERT("Ａ挿入")
		SITUATION += "Ａ挿入/"
	SIF COND("喜欢的体位中")
		SITUATION += "喜欢的体位/"
	SIF COND("Ｈ的いちゃつき中", MASTER)
		SITUATION += "Ｈ的いちゃつき中/"

	; 服装系
	SIF CHECK_CLO("裸体")
		SITUATION += "裸体/"
	SIF CHECK_CLO("内衣姿")
		SITUATION += "内衣姿/"
	SIF CHECK_CLO("没穿外衣")
		SITUATION += "没穿外衣/"
	SIF CHECK_CLO("没穿下衣")
		SITUATION += "没穿下衣/"
	SIF CHECK_CLO("没穿内褲")
		SITUATION += "没穿内褲/"
	SIF CHECK_CLO("无胸罩")
		SITUATION += "无胸罩/"
	SIF CHECK_CLO("泳装姿")
		SITUATION += "泳装姿/"

	; 場所
	IF PLACE("野外")
		SITUATION += "屋外/%SAVESTR:現在位置%/"
	ELSE
		SITUATION += "屋内/%SAVESTR:現在位置%/"
	ENDIF

	; 他情報
	SIF COND("危険日")
		SITUATION += "危険日/"
	SIF MARK:淫紋 == 1
		SITUATION += "淫紋贴纸/"
	SIF MARK:淫紋 >= 2
		SITUATION += "淫紋/"

	RETURNF SITUATION


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

$RYOKO_WISH_LP1
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「啊啦、怎么了吗？」"
					CALL PRINT_STRW,  "「什么事都可……虽然不能轻易地承诺，但还是让我做些什么吧」"
			ENDSELECT
			SIF LINECOUNT - MEMO_LINECOUNT
				RETURN 1
		ENDIF

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「啊啦、突然怎么了？」"
				CALL PRINT_STRW,  "「想要拜托的事情？　……啊啦啊啦、发生什么事了吗」"
				CALL PRINT_STRW,  "（……不会拜托什么奇怪的事情吧？）"
			CASE 1
				CALL PRINT_STRW, @"「有想拜托%CNAME("一人称")%？的事情？」"
				CALL PRINT_STRW,  "「可以是可以……但不要拜托些什么奇怪的事情哦」"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_WISH_LP1
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛 && CEVENT("イベント：初妊娠")
		CALL PRINT_STRW,  "「～～～～～～_／／／_／／／_／／／_」"
		CALL PRINT_STRW,  "（……呜呜。丢尽大人的脸面了、真是的……_BH_）"
		CALL PRINT_STRW, @"「……那个　虽然应该保密的、%CNAME("一人称")%、其实比%CNAME("二人称")%要年长很多」"
		CALL PRINT_STRW,  "「因为各种原因、那个、虽然穿成这样、所以、这个…………」"
		CALL PRINT_STRW,  "「……会对这种成熟女性动心什么的、真是的…………_BH_BH_BH_」"
		CALL PRINT_STRW,  "「有些事情还没有说出来，有些事情还不能说。…………_／／／_」"
		CALL PRINT_STRW,  "「如果这样也可以的话，这份心意，我会很感激的接受的。」"
		IF TALENT:MASTER:男性
			CALL PRINT_STRW, @"「…………%CNAME("二人称")%不是这种拔吊无情的渣男、真是太好了_／／／_」"
		ELSE
			CALL PRINT_STRW, @"「…………现在比起男孩子，更喜欢女孩子了，真是太好了_／／／_」"
		ENDIF
		PRINTFORMW 这么说着、%CNAME("玲子")%害羞的微笑着……
	;失敗
	ELSE
		IF !CEVENT("初回：告白失敗")
			CALL PRINT_STRW,  "「…………诶、啊、那个。欸？　等、等一下、突然、说什么……_／／／_」"
			CALL PRINT_STRW,  "（刚、刚才的、是什么？　什么情况？　诶？）"
			CALL PRINT_STRW,  "（没、没听错吧……应该、吧……？_／／／_）"
			CALL PRINT_STRW,  "「不是什么……玩笑、吧」"
			CALL PRINT_STRW, @"（那、那么%CNAME("一人称")%、是真的被表白了……？）"
			CALL PRINT_STRW, @"（%CNAME("一人称")%只是、为了任务……那个……_／／／_）"
			CALL PRINT_STRW,  "（虽……虽然是比我小、但被男人这么说、还是第一次、真是的……_BH_）"
			CALL PRINT_STRW,  "「……那个。心情、是、非常。额。開心……的」"
			CALL PRINT_STRW,  "「但是、那个」"
			CALL PRINT_STRW, @"（%CNAME("一人称")%还有、任务……）"
			CALL PRINT_STRW,  "「现在还有点、就是、那个」"
			CALL PRINT_STRW,  "「能不能就保持、肉体上的関系」"
			CALL PRINT_STRW,  "「…………对不起」"
			CALL PRINT_STRW,  "（…………但是、是吗_BH_）"
			IF TALENT:MASTER:男性
				CALL PRINT_STRW, @"（%CNAME("一人称")%、被男孩子表白了……_BH_）"
			ELSE
				CALL PRINT_STRW, @"（%CNAME("一人称")%、被女孩子表白了……_BH_）"
			ENDIF

			CALL PRINT_STRW,  "「～～～～_／／／_」"
			PRINTFORMW 抱歉地低下了頭的%CNAME("玲子")%的脸，连耳朵都被染红了……
			CALL SET_CEVENT, "初回：告白失敗"
		ELSE
			; ２回目以降
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STRW,  "「真、真是的、又在说那种事情……」"
					CALL PRINT_STRW,  "「真让人困扰……_／／／_」"
				CASE 1
					CALL PRINT_STRW, @"「就保持%TEXTR("肉体上/炮友/性伙伴")%的関系不行吗……？」"
					CALL PRINT_STRW,  "「那个……心情、说实话、虽然很高兴……」"
					CALL PRINT_STRW,  "「……对不起」"
				CASE 2
					CALL PRINT_STRW,  "（呜呜呜……这、这种事情也太意外了。根本就没有想过……_／／／_）"
					CALL PRINT_STRW,  "（是认真的吗？　是真的在表白吗？　呜呜_BH_）"
					CALL PRINT_STRW,  "（该怎么办才好啊……っ_／／／_）"
					CALL PRINT_STRW,  "「…………_／／／_」"
					PRINTFORMW %CNAME("玲子")%很抱歉地摇着頭……
			ENDSELECT
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
	ENDIF

	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「对、对不起_／／／_　今天没有穿……_／／／_」"
				CALL PRINT_STRW, @"「因为、%CNAME("一人称")%的屁股不是很大吗？　每天都穿的话会很难受的……」"
				CALL PRINT_STRW,  "「住在老家的时候一直都没有穿的……_／／／_」"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 1
		GOTO RYOKO_WISH_LP1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「…………虽然很不好意思、那个、今天没有穿」_W"
			CALL PRINT_STR,  "「反、反正没有什么関系吧？　也没有给谁添麻烦」_W"
			CALL PRINT_STR,  "（都是屁股太大的错、每天穿的话会很难受的……）_W"
	ENDSELECT

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_WISH_LP1

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

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「抱歉、今天那个、不是很%TEXTR("色情/可爱")%所以不行」_W"
				CALL PRINT_STR,  "（呜呜。平时就穿一些比较时尚的胖次会比较好吗）_W"
		ENDSELECT
	ENDIF

	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1
	GOTO RYOKO_WISH_LP1

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		PRINTFORMW
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
		PRINTFORMW
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否
		PRINTFORMW
	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

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

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

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

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

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

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

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

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

			ELSE

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

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

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		CALL PRINT_STRW,  "「啊啦、怎么了吗？　贴纸？　诶？」"
		CALL PRINT_STRW, @"「……真、真是奇怪的样式。……想要贴？　在%CNAME("一人称")%身上？」"
		CALL PRINT_STRW,  "「…………_／／／_」"
		PRINTFORMW %CNAME("玲子")%红着脸看着贴着淫纹贴纸的底纸……
		CALL PRINT_STRW,  "（从外表上看、只是个普通的纹身贴……？　是从商店买的吗……？）"
		IF COND("夏")
			CALL PRINT_STRW,  "（上游泳课的时候不会从泳衣里面露出来吧……？）"
		ENDIF
		CALL PRINT_STRW,  "「……嘛啊、如果无论如何都要的话、可以哟」"
		CALL PRINT_STRW,  "「诶？　现在在这里？　……～～～～っ_／／／_」"
		PRINTFORMW %CNAME("玲子")%的脸被染红\@ EQUIP:裙 ?自己把裙子提了起来#小心翼翼地把下装往下拉\@在%CALLNAME:PLAYER%的眼前露出了下腹部……
		CALL PRINT_STRW,  "「……要做的话就快点　……嗯っ_BH_」"
		PRINTFORMW 贴纸在%CNAME("玲子")%的子宫的位置印上去了、发热的淫纹像生物一样蠕动着，嗖的一下就在%CNAME("玲子")%的下腹部定形了……
		CALL PRINT_STRW,  "「诶？　好热!?　啊_BH_　……呜呜嗯っ_BH_BH_BH_」"
		CALL PRINT_STRW,  "（讨、讨厌、这个、这个不是单纯的贴纸……!?_BH_　唔_BH_　噢_BH_）"
		CALL PRINT_STRW,  "「噫呜嗯っ_BH_BH_BH_」"
		PRINTFORMW 为了确认淫纹是否固定了用手指划过，%CNAME("玲子")%的身体颤抖了一下。
		CALL PRINT_STRW,  "「噢_BH_　呜_BH_　嗯噫_BH_　哦っ_BH_　唔_BH_」"
		CALL PRINT_STRW,  "（这是什么ぇっ_BH_　太糟糕了_BH_　这个太糟糕了ぃ_BH_）"
		PRINTFORMW 尝试着把手指伸进已经淌满蜜液的肉壶、手指令人惊讶地被柔软的肉吞没了。
		CALL PRINT_STRW,  "「哦っ_BH_　唔_BH_　为、手、手指ぃ_BH_　为什、为什么、要插进来、呜呜_BH_　唔゛_BH_BH_BH_」"
		PRINTFORMW 与抗议的语言相反，%CNAME("玲子")%的肉壶把钻进来的%CALLNAME:MASTER%的手指紧紧的勒住了……
		PRINTFORMW …………看来淫纹成功的在%CNAME("玲子")%的子宫处固定了。
		CALL PRINT_STRW,  "「唔……_BH_　哦……_BH_　哦哦……_BH_」"
		PRINTFORMW 把沾满淫蜜的手指拔出、%CNAME("玲子")%眼中含着泪水，一副荡然的表情，像在请求一样注的视着%CALLNAME:MASTER%……
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STRW,  "「又、又要来……？_BH_」"
				CALL PRINT_STRW,  "「虽然是这样的……倒不是疼什么的……」"
				CALL PRINT_STRW,  "（上瘾的话……该怎么办……_BH_）"
			CASE 1
				CALL PRINT_STRW,  "「……那、那个。要贴就赶紧贴吧」"
				CALL PRINT_STRW,  "（摸子宫附近……_BH_　有种奇怪的感觉……_BH_）"
			CASE 2
				CALL PRINT_STRW,  "「…………_BH_」"
				PRINTFORMW %CNAME("玲子")%红着脸看着%CALLNAME:PLAYER%的手……
			CASE 3
				CALL PRINT_STRW,  "「……要做、这种事情的话」"
				CALL PRINT_STRW,  "「要好好、负起责任……_BH_」"
		ENDSELECT
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		IF EQUIP:裙
			PRINTFORM 自己撩起了裙子
		ELSE
			PRINTFORM 在%CALLNAME:PLAYER%眼前脱下了下装
		ENDIF
		PRINTFORM %CNAME("玲子")%
		IF DEVENT("淫紋贴纸")
			PRINTFORM 用期待的眼神看着%CALLNAME:MASTER%……
			CALL PRINT_STRW,  "（以前只是一个试用贴纸……_BH_）"
			CALL PRINT_STRW,  "（这次是真正的色情纹身……_BH_）"
			IF TALENT:恋慕
				CALL PRINT_STRW,  "「留下标记的责任……_BH_」"
				CALL PRINT_STRW,  "「要好好、负起来……_BH_」"
			ELSE
				CALL PRINT_STRW,  "（真、真让人、没办法……_BH_）"
				CALL PRINT_STRW,  "（这也是为了任务……_BH_　这、这种程度、不忍住的话……_BH_）"
			ENDIF
		ELSE
			PRINTFORM 用掩饰不住不安的眼神看着%CALLNAME:MASTER%……
			IF TALENT:恋慕
				CALL PRINT_STRW,  "「真是的……真的是、哼…………_BH_」"
				CALL PRINT_STRW, @"「要被留下标记了、%CNAME("一人称")%……_BH_」"
			ELSE
				CALL PRINT_STRW,  "（没想到会被纹上色情纹身什么的……）"
				CALL PRINT_STRW,  "（……但没办法啊。这也是为了任务）"
			ENDIF
		ENDIF
	CASE 3

	CASE 4

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

	CASE 3

	CASE 4
		CALL PRINT_STRW,  "「啊ー……_BH_　啊啊ー…………_BH_」"
		PRINTFORMW
		IF TALENT:恋慕
			CALL PRINT_STRW,  "「好厉害……啊、这个……_BH_　嗯噫っ_BH_」"
			CALL PRINT_STRW,  "「小穴的欲求不满……_BH_　可以清楚的感觉到……_BH_」"
			PRINTFORMW %CNAME("玲子")%变得面红耳赤，委身于从体内渗出的快乐之中……
			CALL PRINT_STRW,  "「都变成这样了……」"
			CALL PRINT_STRW,  "「不照顾我到最后……可不行哦……？_BH_BH_BH_」"
		ELSE
			CALL PRINT_STRW,  "（讨厌、不行……_BH_　不行的、这样的……_BH_）"
			CALL PRINT_STRW,  "（任务……_BH_　明明还有任务……_BH_）"
			CALL PRINT_STRW,  "「呜呜～～_BH_　っ噫、ぃ……_BH_」"
			PRINTFORMW %CNAME("玲子")%试图憋住甜味的气息，拼命让自己的身体平静下来。……
			CALL PRINT_STRW,  "（…………被、教育了_BH_）"
			CALL PRINT_STRW,  "（自己是个雌性的、事实用身体记住了…………_BH_）"
			CALL PRINT_STRW,  "「～～～～～～～～_BH_」"
			PRINTFORMW %CNAME("玲子")%火辣辣的脸好像在寻求什么似的热切地注视着%CALLNAME:MASTER%……
		ENDIF
	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"
	IF TALENT:恋慕
		CALL PRINT_STRW,  "「诶？　啊……。那个……」"
		CALL PRINT_STRW, @"「已经厌倦%CNAME("一人称")%的……事情……了吗？」"
		CALL PRINT_STRW,  "「不是？　是、是吗……那就好……_BH_」"
		CALL PRINT_STRW,  "「那个、如果又想要了就要说出来哦？　不用忍耐。约好了哦？」"
	ELSE
		CALL PRINT_STRW,  "「诶？　那个……已经不用了、是什么意思？」"
		CALL PRINT_STRW,  "（那就……有点困扰了。会成为任务的阻碍啊）"
		CALL PRINT_STRW,  "（不过，让人觉得是一个咬住不放的女人就太糟了……）"
		CALL PRINT_STRW,  "（最好是在其他时机变得积极，让对方再次提出请求？）"
		CALL PRINT_STRW, @"「……知道了。但是、如果又想让%CNAME("一人称")%照顾的话不要犹豫哦？」"
	ENDIF

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

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

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

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

		ELSE

		ENDIF
	ELSE

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

	CASE "並"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「…………对、对不起。这个稍微」_W"
	ENDSELECT

	SIF MEMO_LINECOUNT - LINECOUNT
		RETURN 1
	GOTO RYOKO_WISH_LP1

;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「这种程度的话……可以哦」_W"
	ENDSELECT

	SIF MEMO_LINECOUNT - LINECOUNT
		RETURN 1
	GOTO RYOKO_WISH_LP1
ENDIF

; 量が多いのでひとまずは個別で対応済みの箇所のみループとする
;SIF MEMO_LINECOUNT - LINECOUNT
;	RETURN 1
;GOTO RYOKO_WISH_LP1

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

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

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

	ELSE

	ENDIF
CASE "目送"

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

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

	ELSE

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

	ELSEIF CHECK_CLO("体操服姿")

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

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

	ELSE

	ENDIF
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/32 玲子/EVENT_K32_SHOP.ERB