code:
;-------------------------------------------------
;	莉雅拉用ライ胸罩リ
;-------------------------------------------------

;-------------------------------------------------
;	汎用随机口上
;-------------------------------------------------
@LEARA_RAND_TALK(ARG, ARGS:0, ARGS:1, ARGS:2)
#FUNCTIONS

; 诶嘿嘿中？
IF COND("調教中")
	LOCALS = %LEARA_RAND_TALK_PLAYING(ARG, ARGS:0, ARGS:1, ARGS:2)%
	SIF STRLENS(LOCALS)
		RETURNF LOCALS
ENDIF

;-------------------------------------------------
;	诶嘿嘿中 随机口上
;-------------------------------------------------
@LEARA_RAND_TALK_PLAYING(ARG, ARGS:0, ARGS:1, ARGS:2)
#FUNCTIONS
#DIMS TALKS

$LEARA_RAND_TALK_PLAYING_LP1

; 诶嘿嘿中か？
SIF COND("調教中") == 0
	RETURNF TALKS

; 口が使えない
;   cf.) 口枷中、口淫中
TALKS = %LEARA_RAND_TALK_BUSY_MOUSE(ARG, ARGS:0, ARGS:1, ARGS:2)%
SIF STRLENS(TALKS)
	RETURNF TALKS

; 絶頂した
;TALKS = %LEARA_RAND_TALK_EXTACY(ARG, ARGS:0, ARGS:1, ARGS:2)%
SIF STRLENS(TALKS)
	RETURNF TALKS

; 挿入中
TALKS = %LEARA_RAND_TALK_INSERT(ARG, ARGS:0, ARGS:1, ARGS:2)%
SIF STRLENS(TALKS)
	RETURNF TALKS

; 汎用喘ぎ
TALKS = %LEARA_RAND_TALK_WORD()%

; 終了
RETURNF TALKS

;-------------------------------------------------
;	随机口上 口を使えない
;		・口枷中
;			基本、「～」と「っ」、あと記号のみになる
;		・口淫中
;			舐めたりしゃぶったり
;-------------------------------------------------
@LEARA_RAND_TALK_BUSY_MOUSE(ARG, ARGS:0, ARGS:1, ARGS:2)
#FUNCTIONS
#DIMS TALKS
#DIMS VOICES
#DIM TALK_COUNT
#DIM VOICE_LEN
#DIM VOICE_LEN_CNT

; 初期化
VARSET TALKS

; 語数
IF ARG == 0
	TALK_COUNT = RAND:3 + 2
ELSE
	TALK_COUNT = ARG
ENDIF

; 口枷中 or 口淫中？
SIF TEQUIP:口枷 == 0 && !COND("口淫中")
	RETURNF TALKS

$LEARA_RAND_TALK_BUSY_MOUSE_LP1
VARSET VOICES

; 本体生成
IF TEQUIP:口枷
	; 口枷中
	VOICE_LEN = 1 + RAND:5
	FOR VOICE_LEN_CNT, 0, VOICE_LEN
		VOICES += "～"
	NEXT
	SIF RAND:2
		VOICES += "っ"
	SELECTCASE RAND:10
		CASE 0 TO 3
			VOICES += "_H_"
			SIF RAND:2
				VOICES += "H_"
		CASE 4 TO 7
			VOICES += "_HH_"
			SIF RAND:2
				VOICES += "HH_"
		CASEELSE
			VOICES += "♪"
			SIF RAND:2
				VOICES += "♪"
	ENDSELECT
ELSE
	; 口淫中
	;   喘ぎのような単純随机ではなく、ある程度ストーリー仕立てとする

	; 導入(なくてもよい)
	VARSET LOCALS
	IF RAND:10 < 4
		LOCALS = 啊姆/嗯/哈姆/啊~/嗯咕/嗯姆/嗯姆～
		VOICES = %TEXTR(LOCALS)%
		SIF RAND:2
			VOICES += "……"
		SELECTCASE RAND:10
			CASE 0 TO 3
				VOICES += "♪"
				SIF RAND:2
					VOICES += "♪"
				SIF TALK_COUNT
					VOICES += "　"
			CASE 4 TO 7
				IF RAND:10 < 8
					VOICES += "_H_"
					SIF RAND:2
						VOICES += "H_"
				ELSE
					VOICES += "_HH_"
					SIF RAND:2
						VOICES += "HH_"
				ENDIF
				SIF TALK_COUNT
					VOICES += "　"
			CASEELSE
				VOICES += "。"
		ENDSELECT
	ENDIF

	; 本体(必須)
	VOICE_LEN = RAND:4 + 1
	FOR VOICE_LEN_CNT, 0, VOICE_LEN
		VARSET LOCALS
		LOCALS = %TEXTR("嗯啾/嗯/嗯姆/嗯~/啊姆/叽溜/啊姆啊姆")%
		SIF RAND:2
			LOCALS += "……"
		SELECTCASE RAND:10
			CASE 0 TO 3
				LOCALS += "♪"
				SIF TALK_COUNT
					LOCALS += "　"
			CASE 4 TO 7
				LOCALS += "_H_"
				SIF TALK_COUNT
					LOCALS += "　"
			CASEELSE
				LOCALS += "。"
		ENDSELECT
		VOICES += LOCALS
	NEXT

	; 結び(なくてもよい)
	;   あんまりバリエーションが無いので固定で
	IF RAND:2
		LOCALS =%TEXTR(" 嗯啾/嗯～～/叽噗哈/噗哈/噗哈~/叽噗/哈~")%
		SIF RAND:3
			LOCALS += "……"
		SELECTCASE RAND:10
			CASE 0 TO 3
				LOCALS += "♪"
				SIF TALK_COUNT
					LOCALS += "　"
			CASE 4 TO 7
				LOCALS += "_H_"
				SIF TALK_COUNT
					LOCALS += "　"
			CASEELSE
				LOCALS += "。"
		ENDSELECT
		VOICES += LOCALS
	ENDIF
ENDIF

SIF STRLENS(VOICES) == 0
	GOTO LEARA_RAND_TALK_BUSY_MOUSE_LP1

; 繰り返し判定
IF TALK_COUNT > 0
	TALK_COUNT -= 1
	TALKS += VOICES
	GOTO LEARA_RAND_TALK_BUSY_MOUSE_LP1
ENDIF

RETURNF TALKS

;-------------------------------------------------
;	随机口上 挿入中
;	  挿入中の随机口上
;	  体位などに特に依存しない(どの体位でも口にしうる)口上
;-------------------------------------------------
@LEARA_RAND_TALK_INSERT(ARG, ARGS:0, ARGS:1, ARGS:2)
#FUNCTIONS
#DIMS VOICES
#DIMS TALKS

VARSET VOICES
VARSET TALKS

; 挿入中？
;  V or A を問わない
SIF !INSERT("挿入")
	RETURNF TALKS

RETURNF TALKS

;-------------------------------------------------
;	随机口上 あえぎ 単語
;-------------------------------------------------
@LEARA_RAND_TALK_WORD(ARG, ARGS:0, ARGS:1, ARGS:2)
#FUNCTIONS
#DIMS TALKS
#DIMS VOICES
#DIM TALK_COUNT
#DIM NEED_SPACE

; 初期化
VARSET TALKS
VARSET NEED_SPACE

; 語数
IF ARG == 0
	TALK_COUNT = RAND:3 + 2
ELSE
	TALK_COUNT = ARG
ENDIF

$LEARA_RAND_TALK_WORD_LP1
VARSET VOICES

; 汎用
;   上述の条件に一致しない、あるいはそちらで無生成(随机)で抜けた場合の処理
;   なんにでも使えるように当たり障りのないも(= 意味のない喘ぎ)とする
SELECTCASE RAND:100
	; あ行
	CASE  0
		VOICES = 啊/啊啊/啊啊~/啊呜/啊唔~/啊唔/啊呜~/啊哈/啊哈~/咿呀/咿呀~/呀～
	CASE  1
	CASE  2
	CASE  3
	CASE  4
		VOICES = 哦咕/哦咕~/哦、咕～
	; か行
	CASE 10
	CASE 11
	CASE 12
	CASE 13
	CASE 14
	; さ
	CASE 20
	CASE 21
	CASE 22
	CASE 23
	CASE 24
	; た
	CASE 30
	CASE 31
	CASE 32
	CASE 33
	CASE 34
	; な
	CASE 40
	CASE 41
	CASE 42
	CASE 43
	CASE 44
	; は
	CASE 50
	CASE 51
		VOICES = 咿！/咿呀/咿呀~/噫！
	CASE 52
	CASE 53
	CASE 54
	; ま
	CASE 60
	CASE 61
	CASE 62
	CASE 63
	CASE 64
	; や
	CASE 70
	;CASE 71
	CASE 72
	;CASE 73
	CASE 74
	; ら
	CASE 80
	CASE 81
	CASE 82
	CASE 83
	CASE 84
	; わ
	CASE 90
	;CASE 91
	;CASE 92
	;CASE 93
	CASE 94
	; ん
	CASE 99
		VOICES = 嗯/嗯啊/嗯/嗯咕
ENDSELECT

; 非該当の繰り返し
SIF STRLENS(VOICES) == 0
	GOTO LEARA_RAND_TALK_WORD_LP1

VOICES = %TEXTR(VOICES)%

; 修正
IF RAND:2
	VOICES += "っ"
ENDIF

NEED_SPACE = 1
SELECTCASE RAND:2
	CASE 0
		VOICES += "♪"
	CASE 1
		VOICES += "_H_"
		SIF RAND:2
			VOICES += "H_"
	CASEELSE
		VOICES += "。"
		NEED_SPACE = 0
ENDSELECT

; 繰り返し判定
IF TALK_COUNT > 0
	SIF STRLENS(VOICES) == 0
		GOTO LEARA_RAND_TALK_WORD_LP1
	TALK_COUNT -= 1
	TALKS += TEXTR(VOICES)
	SIF NEED_SPACE && TALK_COUNT
		TALKS += "　"
	GOTO LEARA_RAND_TALK_WORD_LP1
ENDIF

RETURNF TALKS

;-------------------------------------------------
;	共通口上
;	  描写を含むため、FANCTIONではない(CALLされる)
;-------------------------------------------------
@LEARA_COMMON_TALK(ARG, ARGS:1, ARGS:2)
#DIM LINE_MEMO

LINE_MEMO = LINECOUNT

; 诶嘿嘿中？
IF COND("調教中")
	CALL LEARA_COMMON_TALK_PLAYING(ARG, ARGS:1, ARGS:2)
ENDIF

RETURN LINECOUNT - LINE_MEMO

;-------------------------------------------------
;	共通口上 诶嘿嘿中
;	  描写を含むため、FANCTIONではない(CALLされる)
;-------------------------------------------------
@LEARA_COMMON_TALK_PLAYING(ARG, ARGS:1, ARGS:2)

; 诶嘿嘿中か？
SIF COND("調教中") == 0
	RETURN 0

; 絶頂した

; 挿入中
CALL LEARA_COMMON_TALK_INSERT(ARG, ARGS:1, ARGS:2)
SIF RESULT
	RETURN RESULT

RETURN 0

;-------------------------------------------------
;	共通口上 挿入中
;	  描写を含むため、FANCTIONではない(CALLされる)
;-------------------------------------------------
@LEARA_COMMON_TALK_INSERT(ARG, ARGS:1, ARGS:2)
#DIM LINE_MEMO

LINE_MEMO = LINECOUNT

; イメージPLAY
IF CEVENT("イメージPLAY：女仆")
	IF INSERT("∨挿入")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「啊啊……_H_　%TEXTR("能感受到/能感觉到")%%CNAME("二人称")%的%CNAME("阴茎")%%TEXTR("正在里面进进出出/在里面叽噗叽噗地抽插")%……_HH_」_W"
				CALL PRINT_STR, @"「%TEXTR("どうぞ/どうか/遠慮なさらずに")%……_H_　もっと%CNAME("一人称")%の%CNAME("オマンコ")%を%TEXTR("楽しんで/ご堪能/ご賞味")%ください……_HH_」_W"
			CASE 1
				CALL PRINT_STR, @"「%CNAME("二人称")%ぁ_H_　%CNAME("二人称")%ぁ……っ_HH_」_W"
				CALL PRINT_STR, @"「%CNAME("一人称")%は%CNAME("二人称")%の%TEXTR("ご寵愛/お情け")%を頂けてぇ……_H_　%TEXTR("幸せ者/果報者")%ですぅ……っ_H_」_W"
			CASE 2
				CALL PRINT_STR,  "「唔_H_　唔嗯_H_　对、对不起_H_　对不起_H_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%的%CNAME("阴茎")%是%TEXTR("一抓住肉棒就不会再松開的/不停地高潮的")%%TEXTR("淫荡的/淫乱的/娼妇一样的/一点都不淑女的")%%CNAME("オマンコ")%、真的对不起_HH_」_W"
				CALL PRINT_STR, @"「明明是被%CNAME("二人称")%%TEXTR("欺负着/玩弄着/惩罚着")%、%TEXTR("愛液")%却%TEXTR("咕噜咕噜地/嗒吧嗒吧地")%不断漏出来、是这样的一个淫乱女仆真的非常对不起……っ_HH_HH_HH_」_W"
		ENDSELECT

		RETURN LINECOUNT - LINE_MEMO
	ENDIF
	IF INSERT("Ａ挿入")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「%TEXTR("哦ー、哦ー/呼咕、嘠咿/哦_H_　哦咕")%……っ_HH_」_W"
				CALL PRINT_STR, @"「莉雅拉、莉雅拉是一个废物女仆……_H_」_W"
				CALL PRINT_STR, @"「只是被%CNAME("二人称")%挖掘着%CNAME("肛門")%……っ_H_　又抽拉出来_H_　就露出阿黑颜的废物女仆……っ_HH_」_W"
			CASE 1
				CALL PRINT_STR, @"「%LEARA_RAND_TALK_WORD()%用%CNAME("二人称")%的%CNAME("阴茎")%……_H_　%CNAME("肛門")%被撑開了……_H_」_W"
			CASE 2
				CALL PRINT_STR, @"「是、是_H_　会努力的、会更加努力的用%CNAME("肛門")%紧紧抓住%CNAME("二人称")%的%CNAME("阴茎")%进行菊花侍奉的……_H_」_W"
				CALL PRINT_STR, @"「会、会努力的……_H_　%LEARA_RAND_TALK_WORD()%也、请更多地使用莉雅拉的%CNAME("肛門")%……っ_H_」"
		ENDSELECT
		RETURN LINECOUNT - LINE_MEMO
	ENDIF
ENDIF

; 汎用
SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STR, @"「哈_H_　很有活力的%CNAME("阴茎")%呐……っ_H_」_W"
		CALL PRINT_STR, @"「%CNAME("莉雅拉酱")%の%CNAME("オマンコ")%、そんなに気持ちいいですかぁ……？_H_」_W"
	CASE 1
		CALL PRINT_STR, @"「%TEXTR("哦、咕/唔咿/啊~/嗯呀")%っ_HH_　进来了进来了、%CNAME("阴茎")%插进来了_HH_」_W"
		CALL PRINT_STR, @"「%TEXTR("唔ー、唔ー/呼呜呜/嗯呼")%……_H_　突然%TEXTR("咕叽/滋噗/滋噗滋噗")%地全部……_H_」_W"
		CALL PRINT_STR, @"「啊……_H_　%TEXTR("好大/暖呼呼的")%……_HH_」_W"
ENDSELECT

RETURN LINECOUNT - LINE_MEMO

;-------------------------------------------------
; イメージPLAY中か否かの確認
;-------------------------------------------------
@LEARA_CHECK_IMAGE_PLAY
#FUNCTION
	SIF CEVENT("イメージPLAY：女仆")
		RETURNF 1
	SIF CEVENT("イメージPLAY：巫女")
		RETURNF 1

RETURNF 0

@LEARA_GET_IMAGE_PLAY_STR
#FUNCTIONS
#DIMS PLAYS

	PLAYS =

	SIF CEVENT("イメージPLAY：女仆")
		PLAYS = 女仆

RETURNF PLAYS

@LEARA_CLEAR_IMAGE_PLAY(ARGS)
	SIF !STRLENS(ARGS)
		ARGS = %LEARA_GET_IMAGE_PLAY_STR()%

	LOCALS = イメージPLAY：%ARGS%
	CALL DEL_CEVENT, LOCALS

	RETURN 1

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

$K11_WISH_LP1

SELECTCASE ARGS
CASE "取引開始"
	SELECTCASE RAND:10
		CASE 0
			PRINTFORMW 「%TEXTR("哦？/啊啦？/嗯？")%　有%TEXTR("想要拜托/有求于/乞求于")%%CNAME("一人称")%的事情？」
		CASE 1
			CALL PRINT_STR, @"「来～了~。对%CALLNAME:TARGET%酱有什么吩咐吗？」_W"
		CASE 2
			CALL PRINT_STR, "「恩呼呼ー。要跟非人的吾做交易吗……」_W"
			CALL PRINT_STR, "「请～再稍微、多点危机感捏~？」_W"
		CASE 9
			SIF CSTR:没収済胖次 == ""
				GOTO K11_WISH_LP1
			CALL PRINT_STR, @"「怎么？　%CALLNAME:TARGET%酱的%TEXTR("胖次/小内内")%不是已经给你了吗？」_W"
		ENDSELECT

	SIF MEMO_LINECOUNT == LINECOUNT
		GOTO K11_WISH_LP1

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「……嗯？」
		PRINTFORMW 「那个、诶？　嗯？　太突然了吧？　是真的吗？　……不是開玩笑吧？」
		PRINTFORMW 「不是不是不是、因为……诶ー……不是那样的、虽然一点都不讨厌」
		PRINTFORMW 「如果对象是普通人的话、我肯定会暧昧地回答、然后轻浮地脱掉衣服打開双腿玩弄对方的精神」
		PRINTFORMW 「漂亮地吃抹干净之后就直接丢掉……大概这种感觉？」
		PRINTFORMW 「但是、所以这种意义上来说、如果是认真的话……没有应对的经验」
		PRINTFORMW 「可能是吾会活得更久一点吧、那个、如果只是这一生的话、诶多……那个……」
		PRINTFORMW 　连耳朵都染上了绯红的%CALLNAME:TARGET%的声音渐渐低了下去、支支吾吾呻吟了很久、之后。
		PRINTFORMW 「……呼」
		PRINTFORMW 　就像新进門的新娘一般、紧张地深深低下了頭。
		PRINTFORMW 「小女不才、但愿永随夫君至天荒地老之时……」
	ELSE
		; そのうち専用メッセージにしたい
		PRINTFORMW 「嗯ー。不ー行ー的ー哟。不行不ー行ー」
		PRINTFORMW 「请不要再说了啦、不然子宫又要一抽一抽地痛起来了」
	ENDIF

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

	ELSE
		PRINTFORMW 「%TEXTR("啊啦啦/啊啦/啊呀")%～。抱歉捏ー」
		PRINTFORMW 「今天%TEXTR("没有穿/没有穿出来/是no胖次time")%呐～」
		PRINTFORMW 「……%TEXTR("要确认一下吗/要看看吗")%？」
	ENDIF

;胖次を要前の会話。
CASE "胖次交易"
	; 無条件に渡す
	TFLAG:取引承諾 = 1
	TFLAG:取引価格 = 0

CASE "胖次"
	; 脱ぎ前描写
	PRINTFORM 「%TEXTR("呼姆呼姆/原来如此～/呼～姆")%、也就是说、想要%CNAME("一人称")%的
	IF CFLAG:内衣確認済
		PRINTFORM %PANTIES(TARGET)%
	ELSE
		PRINTFORM 穿着的%CNAME("胖次")%
	ENDIF
	PRINTFORMW 对吧？」
	PRINTFORM 「嗯ー……才不会这样直接%TEXTR("给你/捧着给你/送出去/脱下来给你/递给你")%呢、
	PRINTFORMW %TEXTR("老实/老ー老ー实ー实ー")%交代、是想拿去做什么呢？」

	LOCALS = 手冲/加入收藏/享受%TEXTS("气味")%
	CALL PRINT_SELECT, LOCALS

	LOCAL = RESULT
	IF RESULT == 0
		CHOICES = オカズ
		PRINTFORMW 「手冲……也就是说用%CNAME("一人称")%的%CNAME("胖次")%%CNAME("自慰")%、手淫吗？」
		PRINTFORMW 「唔……」
		PRINTFORMW 「……真拿你没有办法%TEXTR("＿/捏/捏ー")%」
	ELSEIF RESULT == 1
		CHOICES = 收藏
		IF CPANTU(PANTIES(TARGET) )
			PRINTFORMW 「虽然想到跟现在穿着的%CNAME("胖次")%相似的也许已经%TEXTR("有了/收集完了")%～」
			PRINTFORMW 「但是呐、所谓胖次狂就是这种东西吧～♪」
		ELSE
			PRINTFORMW 「啊啦～……原来有这种兴趣吗」
			PRINTFORMW 「……呼呼♪　可以的哟ー。%CALLNAME:TARGET%的%CNAME("胖次")%、就加入你的收藏吧♪」
		ENDIF
		CALL COLLECT_PANTU, PANTIES(TARGET)
	ELSE
		CHOICES = 嗅ぐ
		PRINTFORMW 「……那个……怎么说呢……真是%TEXTR("狂热/变态")%呢」
		PRINTFORMW 「嘛、就按照你的要求、一口气脱下来大大方方地让你看那个地方也是可以的哟♪」
	ENDIF

	; 脱ぎ描写
	;IF RAND:4
	IF 0
		; 自己脱掉
		IF EQUIP:裙
			LOCALS = %SKIRT(TARGET)%
		ELSE
			LOCALS = %OUTER(TARGET)%
			SIF EQUIP:贴身制服
				LOCALS = %BODYS(TARGET)%
		ENDIF

		LOCAL = 0
		IF RAND:2
			; 前から
			PRINTFORMW
		ELSE
			; 从后面将
			LOCAL = 1
		ENDIF
	ELSE
		; 脱がしてほしいと言ってくる
		IF EQUIP:裙
			PRINTFORM 　%CALLNAME:TARGET%微微拉起%SKIRT(TARGET)%的边角
		ELSE
			LOCALS = %OUTER(TARGET)%
			SIF EQUIP:贴身制服
				LOCALS = %BODYS(TARGET)%
			PRINTFORM 　%CALLNAME:TARGET%把%LOCALS%脱下来
		ENDIF

		LOCAL = 0
		IF RAND:2
			; 前から
			PRINTFORMW %TEXTR("坦坦荡荡地/游刃有余地")%站在%CALLNAME:PLAYER%的眼前。
		ELSE
			; 从后面将
			LOCAL = 1
			PRINTFORMW 背向%CALLNAME:PLAYER%弯下上半身、把%TEXTS("お尻：視覚")%伸了出来。
		ENDIF

		PRINTFORM 「%TEXTR("＿/啊哈♪　/ 啊啦♪　")%那么、%TEXTR("＿/麻烦您了")%
		PRINTFORMW %TEXTR("可以来/可以请你")%%TEXTR("帮忙脱下来/亲手脱下来/把这个剥下来/剥光我")%吗？」
		PRINTFORM 　%CALLNAME:PLAYER%因为眼前放大的
		IF LOCAL == 0
			PRINTFORM 將%TEXTS("阴部：視覚")%
		ELSE
			PRINTFORM %TEXTS("お尻：視覚")%
		ENDIF
		PRINTFORM %TEXTR("而被吸引住了的同时/吞了一口口水的同时/而被夺走了视线的同时")%、
		LOCALS = PANTIES(TARGET)
		IF STRCOUNT(LOCALS, "蕾丝")
			PRINTFORM %TEXTR("小心地/温柔地")%把手放了上来
		ELSEIF STRCOUNT(LOCALS, "紐")
			PRINTFORM 解開系绳%TEXTR("＿/的结")%
		ELSEIF STRCOUNT(LOCALS, "透明")
			PRINTFORM 透过透明的材料仔细欣赏着
			IF COND("陰毛") >= 4
				SIF COND("陰毛") >= 6
					PRINTFORM %TEXTR("茂盛的/像是在主张着自己的存在的/与頭发颜色相同的")%
				PRINTFORM %TEXTR("陰毛/黑森林")%
			ELSE
				PRINTFORM %TEXTR("光溜溜的/滑溜溜的")%的恥丘
			ENDIF
			PRINTFORM %TEXTR("享受的同时/沉醉于其中的同时/把脸埋进去的同时")%
		ELSEIF STRCOUNT(LOCALS, "皮革")
			PRINTFORM 感受着皮革的%TEXTR("光泽/光滑")%的同时
		ELSE
			PRINTFORM %TEXTR("谨慎地/慢慢地/一边爱抚着柔肌/一边享受着触感")%
		ENDIF
		PRINTFORMW 脱下了%CALLNAME:TARGET%的%DETAIL_PANTIES(TARGET)%……
	ENDIF

	PRINTFORM 「%TEXTR("唔呼呼/呼呼/呼呀/啊哈ー/啊哈")%♪　感觉%TEXTR("蛮凉快的/凉飕飕的/好開放/感觉好空")%捏ー
	CALL HEARTMARK
	PRINTFORMW 」

	IF CHOICES == "オカズ"
		PRINTFORM 「虽然用%CNAME("一人称")%的%CNAME("胖次")%%CNAME("自慰")%也是可以的、
		PRINTFORMW 既然是这样的话、请用飞机杯捏」
		PRINTFORMW 「推荐这边这个被%CALLNAME:TARGET%一直紧紧保护着的%TEXTR("肉肉的/柔软的/人肉/完美的")%飞机杯哟？」
		PRINTFORMW 「约好了捏。唔呼呼♪」
	ENDIF

CASE "全裸交易"

CASE "全裸"

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「%TEXTR("あは/んふ")%_H_　そんなに%CNAME("莉雅拉酱")%の%TEXTR("裸体/真っ裸")%が見たいんですかぁ？」_W"
			CALL PRINT_STR,  "「没有办法捏……_HH_」_W"
		CASE 1
			CALL PRINT_STR, @"「……讨厌_H_　不用%TEXTR("特意/这样")%拘束、想看的话、用更加%TEXTR("轻浮的/愉悦的")%言词跟我说也是可以的哦？」_W"
			CALL PRINT_STR, @"「%TEXTR("ぜーんぶ/ぜぇんぶ/余すとこなく/隅から隅まで")%見せてあげますからぁ、%CNAME("莉雅拉酱")%の%TEXTR("身体/カラダ")%で%TEXTR("興奮して/躁动难忍して/盛って/おちんちん元気にして")%くださいねぇ_HH_」_W"
		CASE 2
			CALL PRINT_STR, @"「%TEXTR("ふふ/あら")%_H_　%CNAME("莉雅拉酱")%の%TEXTR("カラダ/裸")%に%TEXTR("興味アリ/興味津々")%なんですねぇ_H_」_W"
			CALL PRINT_STR, @"「虽然%TEXTR("脱给你看/为你变成裸体")%可是可以的、但是就这样放置PLAY可是NG行为哟♪」_W"
	ENDSELECT
	SIF LINECOUNT - MEMO_LINECOUNT
		RETURN 1

	GOTO K11_WISH_LP1

;CASE "全裸拒否"

CASE "同居拒否"
	PRINTFORMW 「不～行~。这种事情要留到関系变得更好之后才行。跟%CALLNAME:TARGET%约好了」
	PRINTFORMW 「那么、为了让関系变得更好、不想一起去床上玩～游～戏～吗？」

CASE "同居希望"
	SELECTCASE RAND:10
		CASE 0
			PRINTL
	ENDSELECT

	SIF MEMO_LINECOUNT == LINECOUNT
		GOTO K11_WISH_LP1

CASE "同居頻度的相談"

CASE "便当拒否"
	; かっなりハードル低いから逆にレアだよなコレ
	;PRINTFORMW 便当テスト:%KOJO_K11_LOCAL_STRING("便当")%
	SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「嗯～……%TEXTR("对不起/虽然感觉很抱歉")%这边是拒绝呢」
			PRINTFORMW 「相互之间还不是很了解……」
			PRINTFORMW 「不如说、突然之间被拜托做这种事情、这边也会被吓一跳的啦」
			PRINTFORMW 　%CALLNAME:TARGET%咯咯咯地笑着。
		CASE 1
			PRINTFORMW 「诶？　讨厌ー」
			PRINTFORMW 　%CALLNAME:TARGET%笑嘻嘻地表示了拒绝。
			PRINTFORMW 「为什么……这种请求、在相互之间的関系变得更好之后才能接受哟♪」
			PRINTFORMW 「所以说ー、要先打好跟%CALLNAME:TARGET%酱的関系才行捏ー」
			PRINTFORMW 「%TEXTR("在床上一起做运动/把我带到那个色色的屋子里/在情人旅馆一起休息")%什么的、我可是很推荐的哟？」
		CASE 2
			PRINTFORM 「这边拒绝哟ー。说的也是呢ー、反过来想想%CNAME("一人称")%『请把这个吃下去%TEXTR("♪/！")%』
			PRINTFORMW 这样威胁着不得不%TEXTR("拿出男子气概/变得更加有魅力")%ー」
			PRINTFORM 「但是%TEXTR("没有问题/没～问～题~")%、%TEXTR("坦白说/我啊/不如说")%
			PRINTFORMW %CALLNAME:TARGET%酱可是一个%TEXTR("轻浮的/无底线的")%坏孩子ー」
			PRINTFORM 「如果能在床上告诉我什么是%TEXTR("男孩子/男人/雄性")%的话、
			PRINTFORMW 马上、%TEXTR("每天早上的味噌汤/一日三餐的甜点/晚上的小点心")%什么都会为你做的哟ー？」
	ENDSELECT

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		IF TALENT:恋慕
			SELECTCASE RAND:10
				CASE 0
					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"
			ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, "「可以哟ー？　……难道说ー、在期待着%CALLNAME:TARGET%亲手做的料理吗？」_W"
					CALL PRINT_STR, "「……呼呼♪　那么、不得不得再加把劲了捏ー_H_」_W"
				CASE 1
					CALL PRINT_STR,  "「嗯ー、便利店的便当可以吗？」_W"
					CALL PRINT_STR, @"「それともー、%CNAME("莉雅拉酱")%の手料理が食べたいってコトですかぁ？」_W"
				CASE 2
					CALL PRINT_STR, @"「今日的午餐是%TEXTR("烧得正好的/熟透了的")%莉雅拉酱_H_」_W"
					CALL PRINT_STR,  "「……不是这种意思吧？」_W"
					CALL PRINT_STR,  "「虽然也可以啦ー……但是不要抱有太多的期待捏？」_W"
			CASEELSE
				GOTO K11_WISH_LP1
			ENDSELECT
		ENDIF
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE
			PRINTFORMW 「便当吗～？　可以的哟～？」
			PRINTFORMW 「%CNAME("一人称")%、很擅长料理的。诶嘿⭐」
			PRINTFORMW 「作为替代~、每天要好好地告诉我有什么感想、还有明天想要吃什么捏」
			PRINTFORMW 「……啊——。刚刚还以为你会提出一个很H的请求呢ー？」
			PRINTFORMW 　已经看透了哟~、仿佛这样说着的莉雅拉用手指戳着%CALLNAME:PLAYER%的脸颊……
		ENDIF
	ENDIF
CASE "淫紋拒否"
	IF DEVENT(ARGS) == 0
		CALL PRINT_STR, "「……姆。感觉收到了一个非常麻烦的请求呢……」_W"
		CALL PRINT_STR, @"「虽然莉雅拉酱一直以来对各种要求都是ok的……嗯唔唔」_W"
		CALL PRINT_STR, @"「抱歉捏、现在的%CNAME("二人称")%的话莉雅拉酱还不想被刻上专属的印记捏……」_W"
		CALL PRINT_STR, @"「如果再稍微加深一些的话会变成雌犬也说不定……？　唔唔唔」_W"
		PRINTFORMW 　莉雅拉皱着眉頭像是在思考着什么一样陷入了沉思……
	ELSE
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, "「恕我冒昧　等级还不够」_W"
				CALL PRINT_STR, "「……不是、真的有类似的这种感觉捏~」_W"
				CALL PRINT_STR, @"「对莉雅拉老师这么入迷的话、就请多多锻炼一些后再来请求我捏？」_W"
			CASE 1
				CALL PRINT_STR, @"「很抱歉、条件不～足~……」_W"
				CALL PRINT_STR, "「请再多学一些东西之后再来复仇捏~」"
				CALL PRINT_STR, "「……啊、如果真的是来复仇的话我可是大欢迎的哟？」_W"
				CALL PRINT_STR, @"「那么拼命地想把莉雅拉酱变成自己的东西、作为雌性来说不是非常光荣的事吗_H_」_W"
				PRINTFORMW 　莉雅拉羞涩地笑着……
		ENDSELECT
	ENDIF
	SIF MEMO_LINECOUNT == LINECOUNT
		GOTO K11_WISH_LP1

CASE "淫紋贴纸"

CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「这～个～是~……？」
		PRINTFORMW 　莉雅拉好奇地看着贴纸。
		PRINTFORMW 「感觉是非常有趣的东西捏~……不愧是被恶魔附身的人会说的话吗、那么」
		PRINTFORMW 　一瞬间换上了一副小恶魔一样的笑脸的莉雅拉从%CALLNAME:MASTER%的手中夺走贴纸、贴在了自己的下腹上。
		PRINTFORMW 「大概贴在这个地方感觉很不错吗？」
		PRINTFORMW 「但是、自己贴得可能不是很好看……」
		PRINTFORMW 「能帮忙帮我再贴一下吗？」
		PRINTFORMW 　莉雅拉用火热的瞳孔注视着%CALLNAME:MASTER%……
	ELSE
		PRINTFORMW 「又是这个吗？　呼呼、可以哟~、马上就为你变得H起来哟~」
		PRINTFORMW 　莉雅拉看着%CALLNAME:MASTER%手中的淫纹贴纸、反而发出了欣喜的声音。
		PRINTFORMW 「这次要试着贴在这边吗？　啊、还是说要给我一个惊喜给我贴两张贴纸呢？」
		PRINTFORMW 「什么都可以哟、就请把我当成%CNAME("二人称")%专属的飞机杯捏」
	ENDIF
CASE "淫紋"

CASE "淫紋直前"

	; MINが2, MAXが4なので2~4まで
	SELECTCASE MARK:TARGET:淫紋
		CASE 2
			IF DEVENT("淫紋贴纸")
				PRINTFORMW 「……感觉是非常刺激的要求呢」
				PRINTFORMW 　对%CALLNAME:MASTER%的要求、莉雅拉垂下双眼、微笑着抬起了脸。
				PRINTFORMW 「欸、可以哟。色情的花纹、就请在我的身体上大胆地画吧」
			ELSE
				PRINTFORMW 「唔唔。也就是说、不是用贴纸而想在这副身体上留下一生都无法抹去的印记、这个样子吗？」
				PRINTFORMW 「嗯ー。可以的哟？　你看、雄性、不是有独占欲什么的吗？　有的吧」
				PRINTFORMW 「作为替代、请好好照顾我捏？　虽然主要是、在性的意义上」
			ENDIF
			PRINTFORMW 　莉雅拉脱下自己的衣服露出自己的下半身、做到沙发上指着自己的下腹部。
			PRINTFORMW 「这样可以吗？　我的……这个身体是阴道大概在这里。子宫在这边、」
			PRINTFORMW 　莉雅拉的手指一点点...掠过肌肤、完全地把那个地方的构造展示了出来。
			PRINTFORMW 「画在这边的话、感觉会很不错的样子……不这么觉得的吗？　我」
			PRINTFORMW 「……请画成可爱的色情的花纹捏？」
			PRINTFORMW 　莉雅拉湿润的眼瞳中、满满的都是期待和兴奋、注视着%CALLNAME:MASTER%……
		CASE 3
			PRINTFORMW 「原来如此原来如此。也就是说、想让%CNAME("一人称")%的身体更加淫乱对吧？」
			PRINTFORM 　莉雅拉笑眯眯的、
			SIF EQUIP:TARGET:胖次
				PRINTFORM 随性地脱掉了%PANTIES(TARGET)%丢到一边
			PRINTFORM 站到%CALLNAME:MASTER%的面前
			SIF EQUIP:TARGET:裙
				PRINTFORM 提起%SKIRT(TARGET, "略")%的边角
			PRINTFORMW 把露出来的下腹部展示给%CALLNAME:MASTER%看。
			PRINTFORMW 「以前画的部分、正如所见已经习惯了……」
			PRINTFORMW 「再稍微、过激一点的感觉可以吗？」
			PRINTFORMW 　在莉雅拉的子宫上画上的花纹、像呼吸一般轻轻地脉动着……
			PRINTFORMW 「呼呼。不要让这边等着这么焦急啊」
			PRINTFORMW 「……湿了」
			PRINTFORMW 　莉雅拉用舌頭舔舔嘴唇、死死地盯着%CALLNAME:MASTER%的手……
		CASE 4
			PRINTFORMW 「嗯……咕 啊啊 唔」
			PRINTFORMW 　在沙发上不断扭动着露出下半身的莉雅拉、因为%CALLNAME:MASTER%的法术而发出甜蜜的悲鸣。
			PRINTFORMW 「咕……嗯 嗯哈、这个、不错捏……要、要、上瘾了、唔」
			PRINTFORMW 「在那么、重要的地方、像是被、被刻上了、仿佛在说着、你就是一个雌性、一样的印记」
			PRINTFORMW 「把%CNAME("一人称")%变得更加淫乱、到底、嗯、是想做什么啊？」
			PRINTFORMW 「啊啊啊啊…… 求求你、让我高潮一次、啊」
			PRINTFORMW 　%CALLNAME:MASTER%无视了湿润了眼眸的莉雅拉的恳求、一边给予不能高潮的快感一边在小腹上一点一点刻画着
			PRINTFORMW 　在不断地痉挛的身体上、仔细地给已经一生都无法消去的淫纹增加上华美的花纹……
			PRINTFORMW 「咿嗯!?　啊、呀、呀嗯」
			PRINTFORMW 「呜、呜呜、呜呜呜……　请……请好好地、负起责任、捏」
		CASEELSE
	ENDSELECT

CASE "拜托処理性欲"
	IF DEVENT(ARGS)
		; 初回
		PRINTFORMW 「还想着会有什么事情呢……原来是这样的愿望吗？」
		PRINTFORMW 　莉雅拉露出迷人的微笑。
		PRINTFORMW 「即使不用这样特意拜托、在快要忍不住的时候直接把我叫出来也可以哟？」
		PRINTFORMW 「无论是休息的时候还是上课的时候、只要一声呼唤、莉雅拉酱会马上赶来为您提供服务的♪」
		PRINTFORMW 「……话虽如此、这样认真地恳求他人的态度、老师很喜欢哟」
		PRINTFORMW 「所～以～呢~♪　会为您提供很多很多服务的哟♪」
		PRINTFORMW 　莉雅拉就这样十分乐意地接受了%CALLNAME:PLAYER%的性欲处理的请求……
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「嗯呼♪　就交给莉雅拉吧♪」
				PRINTFORMW 「无论是叽溜叽溜地舔也好还是啪啾啪啾地榨取也好、都会给你的哟♪」
		CASEELSE
			GOTO K11_WISH_LP1
		ENDSELECT
	ENDIF
CASE "性処理の一時中断"
	SELECTCASE RAND:5
		CASE 0
			PRINTFORMW 「嗯呀？　已经不需要这种色色的服务了吗？」
			PRINTFORMW 「%TEXTR("嗯呼~/呼呼")%♪　如果还是惦记着%CNAME("一人称")%的奉仕服务的话请一定要跟我说哦」
	CASEELSE
		GOTO K11_WISH_LP1
	ENDSELECT
CASE "性処理拒否"
	IF DEVENT(ARGS)
		PRINTFORMW 「嗯～……莉雅拉酱的话虽然完全没有问题」
		PRINTFORMW 「但感觉是不是太贪心了呀、大概这种感觉、所以这次就拒绝了捏」
		PRINTFORMW 「如果想要让老师同意的话、请再多赚取一些好感度捏♪」
		PRINTFORMW 「……讨厌、不要摆出那么悲痛的表情呀~」
		PRINTFORM 「社团活动的时候
			SIF COND("同居中")
				PRINTFORMW 或者家里的时候
		PRINTFORMW 就按照你喜欢的方式奉仕也是可以的……捏？」
		PRINTFORMW 「还是说、要现在就要让我在这里做来表示歉意呢？　呼呼♪」
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「抱歉、好感度还不够」
				PRINTFORMW 「等着你的下次请求哟♪」
			CASE 1
				PRINTFORMW 「虽然莉雅拉比较開放、但是这样的事情还是有点」
				PRINTFORMW 「……呼呼♪　不如说如果想要%CNAME("一人称")%全裸土下座、说出『请使用我做性处理吧』这样的话」
				PRINTFORMW 「请先把自己变成一个优秀的男人捏♪」
		CASEELSE
			GOTO K11_WISH_LP1
		ENDSELECT
	ENDIF

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

CASE "给我看尾巴拒否"

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW 「嗯ー。不ー行ー的ー哟。不行不ー行ー」
		PRINTFORMW 「请不要再说了啦、不然子宫又要一抽一抽地痛起来了」
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K11, ARGS
#DIM LINE_MEMO
$LEARA_SHOP_LP1
LINE_MEMO = LINECOUNT

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「哦呀？　要出門吗？」
		PRINTFORMW 「呼姆呼姆……去买东西、吗。那请稍微等一下捏~♪」
		PRINTFORMW 「……呼诶？　不是要带我一起出去的吗？」
		PRINTFORMW 　莉雅拉摆出一副呆呆的表情看着%CALLNAME:PLAYER%……
		PRINTFORMW 「嘛嘛♪　带我一块去嘛、一边购物一边约会~♪」
		CALL PRINT_STR, @"「……%CALLNAME:PLAYER%要买的东西、我也稍微有点兴趣捏～_H_」_W"
		PRINTFORMW 　这么说着的莉雅拉抱住%CALLNAME:PLAYER%的手腕、毫不在意地把丰满的胸部压了上来……
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「要跟莉雅拉酱一起去购物约会吗？」_W"
			CASE 1
				CALL PRINT_STR, @"「想要要跟莉雅拉酱一起去购物约会吗~？」_W"
				CALL PRINT_STR, "「当然♪　是ok～的哟」_W"
		CASEELSE
			GOTO LEARA_SHOP_LP1
		ENDSELECT
	ENDIF
CASE "目送"
	IF SEVENT(ARGS) == 0
		CALL PRINT_STR, "「要去买东西吗？」_W"
		CALL PRINT_STR, "「不要浪费太多时间、哟~？」_W"
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, "「请快点回来捏~♪」_W"
		CASEELSE
			GOTO LEARA_SHOP_LP1
		ENDSELECT
	ENDIF
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
			IF TALENT:恋慕
				CALL PRINT_STR,  "「小套套、吗……」_W"
				CALL PRINT_STR,  "「不是、那个、最近稍微改变了一些想法」_W"
				CALL PRINT_STR,  "「明明是危险日、却在里面痛快地带套射精什么的、不觉得有些背德吗……？」_W"
			ELSE
				CALL PRINT_STR,  "「姆姆姆。最近的小套套有好多好多种种类捏」_W"
				CALL PRINT_STR,  "「粗糙的带颗粒的、闪闪发光的……」_W"
				CALL PRINT_STR, @"「对莉雅拉老师来说、推荐这个『插入的瞬间马上溶解！　偷偷地在女朋友里面中出吧！』的恶作剧避孕套呢、不一起买吗？」_W"
				CALL PRINT_STR,  "「超~……有～趣～的~」_W"
			ENDIF
			RETURN 0
		ENDIF

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, "「姆~。有这么多的种类的话感觉纯粹地用作收藏都收藏不过来呢……」_W"
				CALL PRINT_STR, "「比如这个系列、不知道为什么种类会这么丰富……」_W"
			CASE 1
				CALL PRINT_STR, "「请结账～_H_」_W"
			CASE 2
				CALL PRINT_STR, @"「让女孩子来买%CNAME("避孕套")%、不觉得很过分吗店员老师」_W"
				CALL PRINT_STR, @"「可是我家老师、一直都是%TEXTR("直接插入/中出")%……能、能帮忙结账吗？」_W"
		ENDSELECT
		SIF LINECOUNT - LINE_MEMO
			RETURN 0

	;えっちな商品
	CASEELSE

	ENDSELECT

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, "「这个、拜托了~♪」_W"
			CALL PRINT_STR, "「啊、是、收据也收下了捏~」_W"
		CASE 1
			CALL PRINT_STR,  "「能帮一下这边吗？」_W"
			CALL PRINT_STR, @"「说起来、店员老师推荐的\@ RAND:2 ? 振动棒 # 飞机杯 \@还有吗？」_W"
			CALL PRINT_STR,  "「想要作为做爱的时候的参考的说」_W"
	ENDSELECT
	SIF LINECOUNT - LINE_MEMO
		RETURN 0
	GOTO LEARA_SHOP_LP1

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

	ELSE
		; 買ったものに対してコメント or ひとりごと
		; 初回はコメント
		LOCALS = 購入コメント：%STR:購入道具%
		IF !CEVENT(LOCALS)
			SELECTCASE STR:購入道具
				CASE "避孕套"
					IF TALENT:PLAYER:童貞
						CALL PRINT_STR, "「……？　要买避孕套吗？」_W"
						CALL PRINT_STR, "「礼节？　真是的、不要逞强了呀_H_」_W"
						CALL PRINT_STR, "「要从老师这里处男毕业的话、不需要那种东西捏……_HH_HH_HH_」_W"
					ELSE
						CALL PRINT_STR, "「要买避孕套吗？」_W"
						CALL PRINT_STR, "「姆姆姆……最近的套套有好多种种类捏~……」_W"
						CALL PRINT_STR, @"「……诶？　啊啊、因为莉雅拉酱很喜欢中出的関系_H_　按照您喜欢的来就行了_HH_HH_」_W"
					ENDIF
				CASE "飞机杯"
					IF TALENT:PLAYER:童貞
						CALL PRINT_STR, "「即使不用买那种东西、老师的肉飞机杯也会给你玩的哟？」_W"
						CALL PRINT_STR, "「……真是的、请不要那么拘谨捏~」_W"
					ELSE
						CALL PRINT_STR, "「飞机杯也有很多很多种种类捏……」_W"
						CALL PRINT_STR, "「顺带一提~、叽滋叽滋的欺负系和啾噜啾噜的吮吸系、喜欢哪个呢？」_W"
					ENDIF
				CASE "振動棒套装"
					CALL PRINT_STR, "「哇♪　有好多好多振动棒捏~♪」_W"
					CALL PRINT_STR, @"「嗯～……？　啊、这个跟%CALLNAME:TARGET%酱的小穴的尺寸正好呢♪」_W"
					CALL PRINT_STR, @"「这个……可能稍微会有些辛苦呢。在插进去之前想要被咕啾咕啾地好好放松身体」_W"
				CASE "撮影機材"
					CALL PRINT_STR, "「唔姆唔姆。竟然对摄影有兴趣」_W"
					IF TALENT:PLAYER:童貞
						CALL PRINT_STR, "「原来是想要把童贞毕业式好好记录下来的人吗？」_W"
					ELSE
						CALL PRINT_STR, @"「无论是被拍还是去拍别人、都请交给%CALLNAME:TARGET%酱哟H_」_W"
					ENDIF
			ENDSELECT
			; 登録
			IF LINECOUNT - LINE_MEMO
				CALL SET_CEVENT, LOCALS
				RETURN 0
			ENDIF
		ENDIF

		SELECTCASE STR:購入道具
			CASE "避孕套"
				IF TALENT:PLAYER:童貞
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「又要买%CNAME("避孕套")%吗？」_W"
							CALL PRINT_STR, "「虽然想着没有必要用这种东西来着……」_W"
							PRINTFORMW 　%CALLNAME:TARGET%似乎有些不满地注视着%CALLNAME:PLAYER%……
						CASE 1
							CALL PRINT_STR, "「既然你想买的话、我也没有理由阻止」_W"
							CALL PRINT_STR, @"「但是跟%CNAME("一人称")%%TEXTR("认真地做/放纵地做/sex/H/啪啪啪/啪叽啪叽/一边啾啾一边做")%的时候请不要使用那个哦」_W"
						CASE 2
							CALL PRINT_STR, @"「无论怎样都要买的话、这个『%TEXTR("插入的瞬间立刻溶解！　/啊嘞？　破掉了！　/戴着跟没戴一样")%%TEXTR("即溶性/恶作剧/中出用")%避孕套』怎么样？　不行？」_W"
					ENDSELECT
				ELSE
					SELECTCASE RAND:5
						CASE 0
							CALL PRINT_STR, @"「要买%CNAME("避孕套")%吗？」_W"
							CALL PRINT_STR, @"「嗯~。嘛、在跟%CNAME("肛門")%做的时候用也没有関系捏~」_W"
					ENDSELECT
				ENDIF
		ENDSELECT
		SIF LINECOUNT - LINE_MEMO
			RETURN 0

		; 随机な独り言
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, "「……啊哈♪　终于女优出道了吗」_W"
				CALL PRINT_STR, "「会好好应援的、请加油捏～_H_」_W"
				PRINTFORMW 莉雅拉拿起装饰放在新作架子上的成人DVD、露出了微笑……
			CASE 1
				CALL PRINT_STR, "「哦哦？　这个又是……真是下流的设计捏」_W"
				PRINTFORMW 莉雅拉认真地观察着%TEXTR("少地只剩下绳子的/什么都藏不住的/被阴部咬得紧紧的")%%TEXTR("内裤/内衣/胖次")%……
			CASE 2
				CALL PRINT_STR, "「……？　…………嘛_HH_」_W"
				PRINTFORMW 莉雅拉把展示用的振动棒贴在了自己的下腹部上、确认着会插入到多深的地方……
			CASE 3
				CALL PRINT_STR, "「嗯ー……最近叽滋叽滋的欺负系很流行吗？」_W"
				PRINTFORMW 莉雅拉在摆满了动画风格的盒子的飞机杯售架前自言自语着……
			CASE 4
				CALL PRINT_STR, "「啊唔唔……可惜」_W"
				PRINTFORMW 在%TEXTR("过激的/煽情的/色情风格的")%文胸中物色着的莉雅拉失落地垂下了肩膀……
				CALL PRINT_STR, "「这边的虽然也很喜欢……可是3cup差不多大的尺寸已经没有了捏~……」_W"
			CASE 5
				CALL PRINT_STR, "「呼姆呼姆……哦哦。这个是好东西……_／／／_」_W"
				PRINTFORMW 在排列着的新书的一角、手中拿着%TEXTR("sex的技巧一书的/18禁无修正漫画的/印着『男人的强奸方法』的书的")%莉雅拉似乎非常有兴趣地快速翻看着……
			CASE 6
				CALL PRINT_STR, "「哦呀？　这个是……」_W"
				PRINTFORMW 莉雅拉在摆着标题为『这样的话会爱上女朋友的妈妈！』的流行物的一角停下了脚步。
				CALL PRINT_STR, "「……什么啊、只是纹身贴纸而已吗」_W"
				CALL PRINT_STR, "「虽然更在意到底是先有鸡还是先有蛋这个问题……」_W"
			CASE 7
				CALL PRINT_STR, "「……哦？　诶？　真的吗这个」_W"
				PRINTFORMW 在繁多地排列着的恶作剧商品中抓起了贴着『色情药水』的标签的瓶子的莉雅拉、冷冷地看了一会之后、露出了干笑。
				CALL PRINT_STR, "「连这个都回收了呢……为什么这样的真货会混在这里面呢……」_W"
		ENDSELECT
	ENDIF

CASE "购物終了"
	IF CEVENT("調教開始：扶她") && (RAND:3 == 0)
		PRINTL
		PRINTFORMW 出了店的%CALLNAME:PLAYER%叫住了%CALLNAME:TARGET%……
		CALL PRINT_STR, @"「这个、是%CNAME("一人称")%想送出去的礼物%TEXTR("~/捏~")%♪」_W"
		PRINTFORM 从满面笑容的%CALLNAME:TARGET%的手中接过来
		LOCALS = 胖次/振動棒
		SPLIT LOCALS, "/", LOCALS
		SELECTCASE LOCALS:(RAND:RESULT)
			CASE "胖次"
				PRINTFORM 打開包装后、里面
				PRINTFORM %TEXTR("新式的/贴着中古品标签的/附带着似乎是上一个使用者的女学生的照片的")%
				PRINTFORM %TEXTR("热情的鲜红色的/有深度的红色的/清凉的水色的/清爽的绿色的/大人味的紫色的/成熟的漆黑色的")%
				PRINTFORM %TEXTR("低腰胖次/丁字褲/高腰胖次/透明内裤/绳系胖次")%
				PRINTFORMW 出现了……
				CALL PRINT_STR, @"「这条%TEXTR("胖次/小内内/内裤/内衣")%、肯定很适合%CNAME("二人称")%的哟♪」_W"
			CASE "振動棒"
				PRINTFORM 打開包装后、里面
				PRINTFORM %TEXTR("新式的/贴着中古品标签的")%
				PRINTFORM 装有%TEXTR("D级尺寸的/普通款式的/总觉得很可爱的/稍微有些小的/")%
				PRINTFORMW 振动棒的箱子出现了……
				CALL PRINT_STR, @"「这个尺寸的话、%CNAME("二人称")%的%CNAME("オマンコ")%来说也大小正好吧_H_」_W"
		ENDSELECT
		PRINTFORMW 不带有一丝恶意、%CALLNAME:TARGET%温柔地微笑着……
		PRINTFORMW 不可能不接受吧、勉强收下了%CALLNAME:TARGET%的礼物……
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	;胖次没収中
	IF COND("買い物胖次没収中")

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/11 リアラ/EVENT_K11_SHOP.ERB