code:
;------------------------------
;捕食前フリ
;------------------------------
@PREDATION_T, ARGS
SELECTCASE ARGS
CASE "調教中つまみ食い"
	IF FLAG:二人きり == 0
		PRINTFORMW 「っちぇー、流石に人前じゃ食べられないナ、残念無念」
	ELSEIF CFLAG:食欲 < 1
		PRINTFORMW 「%TEXTR("でもお腹は満たされてるし――暴食はイケないな/うーん、でも食べ過ぎかナ、慎ましくいかないと")%」
	ELSEIF TALENT:恋慕 && CEVENT("今回はもう食べない") == 0
		CALL PRINT_STRL, @"「――%TEXTR("スキだらけだぜ_BH_/はぁ、美味しそう_BH_/ねー、食べてイイカナ？_BH_/据え膳喰わぬは女性の恥ってネ_BH_")%」"
		CALL PRINT_STRW, "「頂きます_BH_」"
		;この捕食で倒れないならぱっ君ちょ
		IF BASE:MASTER:魂 > CFLAG:食欲
			CALL PREDATION(ARGS)
		ELSE
			PRINTFORMW 「%TEXTR(@"なんてネ、驚いた？/おいおい、こんなに慎ましい%CNAME("一人称")%が鞭打つような真似すると思うかい？ 冗談だよ/冗談冗談、もうちょっと元気になって出直してもらおう/――――と思ったけどナー、もうちょっと食べ甲斐が出てから食べようっと")%」
			CALL SET_CEVENT, "今回はもう食べない"
		ENDIF
	ELSEIF CEVENT("恋慕：ささくれ")
		SIF RAND:3 == 0
			PRINTFORMW 「――いいや、なんでもないよ。見ていただけさ、気にしないで」
	ELSE
		PRINTFORMW 「頂きます」
		CALL PREDATION(ARGS)
	ENDIF
	RETURN 0

CASE "調教後"
	IF TALENT:恋慕
		IF CEVENT("恋慕：ささくれ")
			PRINTFORMW 「――――なに？ もしかして食べて欲しいの？」
			PRINTFORMW 「%TEXTR(@"いやだね。まっぴらだ/他の子にでもお願いしたら？ %CNAME("一人称")%是やだ/お断りだよ。%CNAME("二人称")%は食べない")%」
			RETURN 0
		ELSE
			IF COND("満足")
				CALL PRINT_STRW, @"「%TEXTR(@"わんわんっ_HH_/ﾊｯﾊｯﾊｯﾊｯﾊッ_HH_/くぅ～んくぅ～ん_HH_")%」"
				PRINTFORMW 「%TEXTR(@"急に何だって、ほらあるだろう！ %CNAME("二人称")%と%CNAME("一人称")%の愛情表現が！/ほら、可愛いペットが鳴いてるぜ？/にひひっ――涎垂れて来ちゃった")%」
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("燃焼し切れなかった分食べちゃうゾ！！/っちぇーっちぇーっちぇっちぇっちぇー、こりゃあご心情取りが必要ですヨ？/埋め合わせはどうしてくれるのかナァ！！ ナァ！！")%」"
			ENDIF
		ENDIF
	ELSEIF MARK:屈服刻印 >= 2
		IF COND("満足")
			PRINTFORMW 「%TEXTR("それじゃあ慎ましいペットらしく、餌を頂こうか♪/お楽しみの後のオタノシミだ。頂けるかナ？/おっと、腹が鳴った。こりゃあ早めに召し上がらないとサ、失礼だろう、ネ？")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"お残しされちゃったケド、%CNAME("一人称")%は遠慮なくぜーんぶ頂きたいネ♪/満たされなかった分、お腹を満たしたいトコロだけどナー？/ところで――お支支付がまだだぜお客様")%」
		ENDIF
	ELSE
		IF CFLAG:食欲 >= 50
			IF COND("満足")
				CALL PRINT_STRW, @"「%TEXTR("さ、満足した所で早く_BH_早く_BH_　美味しいお肉を頂戴ヨ_BH__BH__BH_/")%」"
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("食べてイイよね、ネ、ねっ！？/はぁ――_BH_ ねぇ、ねぇ、ねぇ、ヨシはまだ？ ネェってばぁ_BH_/待ては嫌だな聞きたくないナァ――ネ、飼い主桑ヨ？")%」"
			ENDIF
		ELSE
			IF COND("満足")
				PRINTFORMW 「――で、ヨ。まさか%CNAME("一人称")%がヤって満足して是終わりだと思ってる？」
				PRINTFORMW 「食欲の方も満たして欲しいんだけどナ～？」
			ELSE
				PRINTFORMW 「%TEXTR(@"それじゃ、%CNAME("一人称")%もマンゾクさせて貰おうかナ/運動した後のお肉は程よく柔らかくて美味しいんだよネェ♪/さ、お勘定しましょうや♪")%」
			ENDIF
		ENDIF
	ENDIF
CASE "日常"
	PRINTL
	PRINTL
	IF  CHARA_NUM("室内の邪魔者")
		IF TALENT:恋慕
			IF CEVENT("恋慕：ささくれ")
				PRINTFORMW 「%TEXTR("状況を見てものを言えないのかな。バレたくないのだけれど/人前で食べられたいのかい？ そんな趣味には付き合えないな")%」
			ELSE
				PRINTFORMW 「%TEXTR("うーん――申し出は嬉しいけどサ、二人きりの時にしようぜ/それを見せるなんてとんでもない！！")%」
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR("時と場合！主に人目とかサ！あるよネ！！/マジかよ、他の子にスプラッタ見せる気かい？")%」
		ENDIF
		PRINTFORMW どうやら人前で食べる気は無いようだ…
		RETURN 0
	ELSEIF CEVENT("恋慕：ささくれ")
		PRINTFORMW 「%TEXTR("食べさせてくれるって？ ははっ、要らないよ/ご心情取りのつもりなら結構だよ、食べない/嫌だね")%」
		PRINTFORMW %CALLNAME:TARGET%はぷいっとそっぽを向いてしまった…
		RETURN 0
	ELSE
		IF TALENT:恋慕
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR(@"たべ、させて、くれる、の？ ほ、本当に？/ああ、良かった。幻覚が見えてたところなんだ。もうお腹ぺこぺこだ")%」
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("わんわん_BH_/ﾊｯﾊｯﾊｯﾊｯﾊッ_BH_/可愛い可愛いワンコ酱がお待ちかねだぜ？ くぅ～ん_BH_")%」"
			ENDIF
		ELSEIF MARK:屈服刻印 >= 2
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR("マジかよ。ここで嘘っていうのは、勘弁してくれよ？/――――戯けてやろうかと思ったら浮かばなかったや。重症だ")%」
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("楽しみにしてたんだ。さぁさ、号令をどうぞ_BH_/ここまで来てお預けなんて、言わないよネ？/良い子にしてるからサァ、ご褒美～")%」"
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR(@"ヨシはまだかな、まだかナ～♪/これも躾の学习だぜ。さ、%CNAME("二人称")%の口から聞かせてよ/食べても良～い？")%」
		ENDIF
	ENDIF
ENDSELECT
PRINTFORML
PRINTFORML
PRINTFORM %CALLNAME:TARGET%的
IF CFLAG:食欲 >= 150
	CALL PRINT_STRW, "現在空腹度　_赤_【極高】_"
ELSEIF CFLAG:食欲 >= 100
	CALL PRINT_STRW, "現在空腹度　_赤_【高】_"
ELSEIF CFLAG:食欲 >= 50
	CALL PRINT_STRW, "現在空腹度　_黄色_【中】_"
ELSEIF CFLAG:食欲 >= 10
	PRINTFORMW 現在空腹度　【低】
ELSE
	PRINTFORMW 現在空腹度　【満腹】
ENDIF
PRINTFORML
PRINTFORML %CALLNAME:TARGET%に自分を――――
PRINTFORML [0] 食べさせる（%CALLNAME:MASTER%：魂－１）
PRINTFORML [1] 食べさせない
CALL INPUT_SELECT, 2
;食べさせた
IF RESULT == 0
	PRINTFORML
	IF TALENT:恋慕
		IF CEVENT("恋慕：ささくれ")
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR("はぁ――はぁ――/い、良いの、かい？そ、それじゃあ――/ｺﾞｸｯ――")%%TEXTR("い、いただきますっ/頂き、ますっ")%」
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("にひひ――_HH_/んふ、有がとう_HH_/でっへっへ、それでは失礼して～/あぅ～ん_HH_/当店は注文の少ない料理店となっており")%%TEXTR("頂きます/いただきます/いっただきまーす")%%TEXTR("_BH_/♪/！//！！")%」"
			ENDIF
		ENDIF
	ELSE
		IF CFLAG:食欲 >= 100
			PRINTFORMW 「%TEXTR("にひっ――/ああ、やっと、やっとだ！/くひっ――/あはっ――")%%TEXTR("いただきますっ/頂きますっ")%！！」
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("毎度どうも/わんわん/ﾊｯﾊｯﾊｯﾊ/あう～ん")%%TEXTR("_BH_/♪/！/")%頂きます%TEXTR("_BH_/♪/！/")%」"
		ENDIF
	ENDIF
	CALL PREDATION(ARGS)
;食べさせなかった
ELSE
	SELECTCASE ARGS
	CASE "調教後"
		IF TALENT:恋慕
			IF CFLAG:食欲 >= 50
				PRINTFORMW 「%TEXTR(@"食べたい、食べたい、食べたい、食べたい、食べたい――/――はは、はー、酷い%CNAME("主人")%だ/―――――――――は、ははは、あー")%」
				PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%を、食べたい、なー、くそぅ/――最近、ずぅっと想像してるんだ。%CNAME("二人称")%の味を/ごめんなさい。お預けだよね――――大丈夫、大丈夫さ")%」
			ELSE
				CALL PRINT_STRW, @"「%TEXTR("んふ――おっあっずっけかー_HH_/え～どうしようかな～♪ ふふっしょうがないにゃあ～_HH_/うーん、困っちゃったな")%」"
				CALL PRINT_STRW, @"「%TEXTR(@"ま、今の%CNAME("二人称")%の味を想像するのも楽しいものだからネェ♪/いやー本当に困ってるんだぜ、食べられなくてもなんだか気分が良いんだから_HH_/にひっ――_HH_ じゃあ、顔舐めて良い？ ちょっとだけ、ちょっとだけだからサ♪")%」"
			ENDIF
		ELSEIF MARK:屈服刻印 >= 2
			IF CFLAG:食欲 >= 50
				PRINTFORMW 「%TEXTR("――――あぁ、分かった、お預けだね/ははは――――/もしかしてまだ食べさせなくても大丈夫かもって思ってる？")%」
				PRINTFORMW 「%TEXTR(@"忠告しておこうか。結構限界だよ、%CNAME("一人称")%/我慢はするよ、命令だもの。でも限界は近いから覚えておいてね/――――大丈夫さ、我慢できる。半分嘘だけどね")%」
				PRINTL
				PRINTFORMW %CALLNAME:TARGET%の恭順の珠；-500
				JUEL:恭順 -= 500
			ELSE
				PRINTFORMW 「%TEXTR("ちぇっ、待て、かァ。了解了解/我明白了よぅイケズ――――おっとっと今のナシ/くぅ～ん、ﾊｯﾊｯﾊ♪")%」
				PRINTFORMW 「%TEXTR(@"良い子にしてるから、次は酱と餌を頂戴ネ/大した忠犬っぷりだろ？ ご褒美で一口――――駄目かァ/%CNAME("三人称")%の言いつけならしょうがないネ。どうだいこの聞き分けの良さ、撫でてくれても良いんだぜ？")%」
				PRINTL
				PRINTFORMW %CALLNAME:TARGET%の恭順の珠；-100
				JUEL:恭順 -= 100
			ENDIF
		ELSE
			IF CFLAG:食欲 >= 100
				IF CEVENT("千裕：反抗") == 0
					PRINTFORMW 「%CNAME("主人")%サ～」
					PRINTFORMW いつものへらへらとした声。
					PRINTFORMW 「何か勘違いしてないかい」
					PRINTFORMW それがドスの利いた声音变成了瞬間に天地がひっくり返った。
					PRINTFORMW 組み倒されている。そう理解した時にはもう遅い。
					PRINTFORMW 彼女の片足が%CALLNAME:MASTER%の胸に置かれて、起き上がろうにも身動ぎするので精一杯だ。
					PRINTFORMW 「じゅーどーとかあいきどーとか、一時期齧ってね。まぁこれは技術というより力任せな押さえつけなんだけれどサ」
					PRINTFORMW 「で、なんだっけ。この期に及んでご飯が頂けない、と。なるほど」
					PRINTFORMW 「ワンコの演技はご満足頂けなかったのかな？ それはたしかに%CNAME("一人称")%の努力不足だ」
					PRINTFORMW にこやかに口を開く間も、胸を押さえつける足は一定の力のまま緩まない。
					PRINTFORMW 「でも先に断っておこうか。このまま腹が減ってしまうと、%CNAME("二人称")%以外を食べないっていう約束も反故にしかねない」
					PRINTFORMW 「なんたってこっちは%CNAME("二人称")%と違ってちっぽけで慎ましい命が掛かってるから、ねっ」
					PRINTFORMW ――――ほんの一瞬、意識が飛んだ。同時に体全体が痺れて呼吸もままならず、無様に咳き込む。
					PRINTFORMW 「お帰り。効いたろ今の。俗に言う爱心ブレイクショットさ。気絶させるんだ」
					PRINTFORML 「%CNAME("一人称")%は出来るなら一口目は生きている状態が良いからネ、
					PRINTFORMW 　組伏せてから無力化する手段としてそれなりに使えるように練習したのサ」
					PRINTFORML 「簡単に言っているケド苦労したんだぜ。何せ気絶の原因の心室細動を叫醒衝撃ってのは就这様殺しかねないしサ」
					PRINTFORMW 「何よりタメが必要になるから密着状態じゃ使えないんだもの」
					PRINTFORMW 「だからほら、映画とか漫画でよくあるアレ、発勁をね、真似してみたんだ」
					PRINTFORMW 「最初は腕でやって、今やってるみたいに足でも練習してサ」
					PRINTFORMW 「と、まァ苦労話を聞いて貰ってる間も体感してもらってたけど――――」
					PRINTFORMW もう何度目かの覚醒を迎えて、%CALLNAME:MASTER%はもう動く気力すら無い。
					PRINTFORMW 「気分はどうかナ、%CNAME("主人")%ヨ」
					PRINTFORMW 脳を犯すじんわりとした痺れは何かを考える余地を完全に奪っていた。
					PRINTFORMW ただいつものように单薄的笑みを貼り付けた彼女の顔がぼやけて浮かぶ。
					PRINTFORMW 「従順なペットの真似事をしてるから、ずっと食わせなくても大丈夫だって勘違いしたんだろう？」
					PRINTFORMW 茶化すような猫なで声が直に頭に響く。その声とは裏腹に、ボヤけた視界に映る彼女は一切笑着いない。
					PRINTFORMW 「残念無念、私はそんなに温柔的無いし、易しくも無い」
					PRINTFORMW そんな%CALLNAME:TARGET%の顔が、急によく見える距離まで近づいてきた。
					PRINTFORMW 腹のわずかな重みに、マウントポジションをとられていると知れる。
					PRINTFORMW 両手は%CALLNAME:MASTER%を逃がさないとばかりに、頭の両側で力強くシーツを掻いているのが解る。
					PRINTFORMW 「言ったろう、%CNAME("一人称")%を飼わないかって。飼い主の顔をしろよ」
					PRINTFORMW 「そんなだから、こうやって噛みつかれる」
					PRINTFORMW 鼻先が触れあう程の間近で、彼女は犬歯を剥き出しにした。
					PRINTFORMW 片刻后の沈黙にも、お互いに視線を取下ことはない。
					PRINTFORMW %CALLNAME:MASTER%は未だ体を動かせないし、何を考えているとも知れない彼女が退く气息もない。
					PRINTFORMW 解るのは、徐々に細くなる彼女の眼が、何か良からぬことを考えてると直感させるだけだ。
					PRINTFORMW 思考が円熟に至ったのか、彼女が口を開こうとしたその時。
					PRINTFORMW どこかで聞いた曲が鳴り響く。十数年前のヒットソングだ。
					PRINTFORMW 「――――おっとゴメンよ、私だね」
					PRINTFORMW 彼女は懐からスマホを取り出すと、暫く弄った後に、单薄的笑いを浮かべた。
					PRINTFORMW 「にひっ――――予定が出来た。先にお闲しよう、ペットのジャレ合いは楽しんで貰えたかい」
					PRINTFORMW 彼女がテキパキと返回準備を終えるまでに、ようやく%CALLNAME:MASTER%は身を起こせる程度には回復した。
					PRINTFORMW 先程までの威圧感が無かったかのように、彼女は%CALLNAME:MASTER%にこやかに手を振る。
					PRINTFORMW 「回頭见、未熟な飼い主桑。今後の成長に期待するぜ」
					PRINTFORMW 扉は、余韻ひとつ残さず静かに閉められた…
					CALL SET_CEVENT, "千裕：反抗"
					CALL SET_CEVENT, "归途イベント禁止"
				ELSE
					PRINTFORMW 「%TEXTR("別に構わないぜ、それなりのことをするだけさ/へぇ、覚悟決まってんだネ。良いけれどサ/――――――にひっ♪ 好きにしろ、ってことネ")%」
				ENDIF
					PRINTFORML %CALLNAME:TARGET%の好感度：-200
					PRINTFORMW %CALLNAME:TARGET%の反感の珠：+10000
					CFLAG:好感度 -= 200
					JUEL:反感 += 10000
			ELSEIF CFLAG:食欲 >= 50
				PRINTFORMW 「%TEXTR("食べないでくださぁい――って？へー/――――――――――ふーん、そう、そうかい/あ゛？ ――おっと、失礼。スマイルスマイル♪")%」
				PRINTFORMW 「%TEXTR("我慢我慢、じぃっと我慢の子。どこではち切れるかはお楽しみに♪――――ってね/――はー、腹ぁ減ったなァ/そろそろ良いかなァ――――うーん？ こっちの話サ")%」
				PRINTL
				PRINTFORML %CALLNAME:TARGET%の好感度：-50
				PRINTFORMW %CALLNAME:TARGET%の反感の珠：+2000
				CFLAG:好感度 -= 50
				JUEL:反感 += 2000
			ELSE
				PRINTFORMW 「%TEXTR("くぅ～ん、今回はお預けってコト？/そっかぁ、お預け。厳しい躾だネェ――――良いけどサ/食い逃げたぁ良い胆量じゃないカ！")%」
				PRINTFORMW 「%TEXTR("ま、ここは良い子に従いますよ、わんわん――ってね/ツケにした分、ご褒美が楽しみだネ？ ｸｽｸｽ――/次はお腹いっぱいにしてくれるかナ？ 飼い主桑ヨ♪")%」
				PRINTL
				PRINTFORMW %CALLNAME:TARGET%の反感の珠：+500
				JUEL:反感 += 500
			ENDIF
		ENDIF
	CASE "日常"
		IF TALENT:恋慕
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR("あー、そっかー――ゴメンよ、ちょっと戯ける元気もないや/くふ、くふふ――いやいや、大丈夫。大丈夫だよ/これも新手のPLAYか、愛されちゃって困っちゃうネ")%」
			ELSE
				PRINTFORMW 「%TEXTR(@"そんな～いけず～%CNAME("主人")%の馬鹿～おたんこなす～精力超群～/がっかりすると思った？忠犬の忍耐力舐めんなよ！あ～腹減った！！/スンスン、スンスン、いや食べられないから气味だけでも嗅いでるトコだ、邪魔しないでくれ")%」
			ENDIF
		ELSEIF MARK:屈服刻印 >= 2
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR("ハーイ――で、さ。一応教えておくけどサ、限界は近いぜ/ちっちっちっ――ワカったよ。忍耐さ、出来るところまではネ/ふっふっふ、後悔するなよぉ～！")%」
			ELSE
				PRINTFORMW 「%TEXTR("間食はNG？ っちぇー、しっかりしてらぁ/こんなに良い子にしてるのに！ ヒドいや！/芸の一つでも見せれば一口くれない？ 駄目？ あ、そう")%」
			ENDIF
		ELSE
			IF CFLAG:食欲 >= 100
				PRINTFORMW 「%TEXTR(@"へぇ――良いぜ、それが%CNAME("二人称")%の判断なら、ネ/お腹がきゅんと鳴～る♪ 首がストンとな～る♪ ――ただのお歌ですヨ/ふぅん、そうかいそういかい♪ ――ちっちっちっ、さて、どうしてやろっかなァ")%」
			ELSE
				PRINTFORMW 「%TEXTR("っちぇー、ま、メインは今じゃないもの、引き下がりますヨ/あらら、おねだり失敗♪")%」
			ENDIF
		ENDIF
	ENDSELECT
ENDIF
RETURN 0

;------------------------------
;捕食関数
;------------------------------
@PREDATION,ARGS
#DIM MEMO_LINECOUNT

PRINTFORML
SELECTCASE ARGS
CASE "調教中つまみ食い"
	IF TALENT:恋慕
		PRINTFORML %CALLNAME:MASTER%の魂：-%TEXTS("0.01",MAX((CFLAG:食欲 / 10) - ABL:信頼,1))%
		BASE:MASTER:魂 -= MAX((CFLAG:食欲 / 10) - ABL:信頼,1)
		PRINTFORMW %CALLNAME:MASTER%の精力：{MAX((CFLAG:食欲 / 10) - ABL:信頼,1)}
		BASE:精力 = MIN(BASE:精力 + MAX(CFLAG:食欲 / 10 - ABL:信頼,1), MAXBASE:精力)
	ELSE
		;魂・精力の加減処理
		PRINTFORML %CALLNAME:MASTER%の魂：-%TEXTS("0.01",(CFLAG:食欲 / 10))%
		BASE:MASTER:魂 -= (CFLAG:食欲 / 10)
		PRINTFORMW %CALLNAME:TARGET%の精力：+{(CFLAG:食欲 / 10) + 1}
		BASE:精力 = MIN(BASE:精力 + (CFLAG:食欲 / 10) + 1, MAXBASE:精力)
		;魂減算後復活と強制終了
		IF BASE:MASTER:魂 <= 0
			CALL PRINT_STR, "紅_＜復活！＞_W_"
			PRINTFORMW %CALLNAME:MASTER%用尽最后的力量复活了！
			BASE:MASTER:魂 = 1
			PRINTFORMW ★★★★结束床戏★★★★
			CALL ADD_STATE, MASTER, "撃沈"
			CALL BLANKLINE
			MEMO_LINECOUNT = LINECOUNT
			CALL KOJO_COUNTER, "強制終了"

			SIF LINECOUNT == MEMO_LINECOUNT
				CLEARLINE 1

			BEGIN AFTERTRAIN
		ENDIF
	ENDIF
	CFLAG:食欲 -= 5
CASEELSE
	IF TALENT:恋慕
		PRINTFORML %CALLNAME:MASTER%の魂：-0.5
		PRINTFORML %CALLNAME:TARGET%の好感度：+100
		PRINTFORML %CALLNAME:TARGET%の恭順の珠：+3000
		PRINTFORMW %CALLNAME:TARGET%の精力：+{MAXBASE:精力 / 2}
		BASE:MASTER:魂 -= 50
		CFLAG:好感度 += 100
		JUEL:恭順 += 3000
		BASE:精力 = MIN(BASE:精力 + MAXBASE:精力 / 2, MAXBASE:精力)
	ELSE
		PRINTFORML %CALLNAME:MASTER%の魂：-１
		SIF MARK:屈服刻印 >= 2
			PRINTFORML %CALLNAME:TARGET%の好感度：+100
		PRINTFORML %CALLNAME:TARGET%の恭順の珠：+500
		PRINTFORMW %CALLNAME:TARGET%の精力：+{MAXBASE:精力 / 2}
		BASE:MASTER:魂 -= 100
		SIF MARK:屈服刻印 >= 2
			CFLAG:好感度 += 100
		JUEL:恭順 += 500
		BASE:精力 = MIN(BASE:精力 + MAXBASE:精力 / 2, MAXBASE:精力)
		IF BASE:MASTER:魂 <= 0
			CALL PRINT_STR, "紅_＜復活！＞_W_"
			PRINTFORMW %CALLNAME:MASTER%用尽最后的力量复活了！
			BASE:MASTER:魂 = 1
		ENDIF
	ENDIF
	;捕食後台詞
	PRINTFORML
	IF CFLAG:食欲 >= 100
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%TEXTR("佳肴、大人、でした/ご馳走、様/ご馳走様")%――」"
			IF RAND:3 == 0
				CALL PRINT_STRW, @"「%TEXTR("ぷはぁ/はー/あー")%！ %TEXTR("ワンコふっかーつ/戯ける元気が沸いてきたー/新しい顔だー元気百倍だー")%！」"
			ELSEIF RAND:2
				PRINTFORMW 「ふ、う――――にひひっ♪ 有がとう、%CNAME("主人")%」
				PRINTFORMW 「とても美味しかったよ♪」
			ELSE
				PRINTFORMW 「ｸﾞｽｯ――うぁ、な、なんでだろう。なんで泣いてるんだい、%CNAME("一人称")%は」
				PRINTFORMW 「美味しかった、美味しかったんだ。%CNAME("二人称")%が美味しくて――なんでか泣いてるんだ」
				PRINTFORMW 「へ、変だな。変だよ。お腹一杯で、幸せなのに――変だよ」
			ENDIF
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("佳肴大人っ/ご馳走桑っ/ごっそさーんっ")%%TEXTR("_HH_/♪/！/！！")%」"
			CALL PRINT_STRW, @"「%TEXTR("や～っと戯ける元気も沸いてきたぜ！/いやー、空腹で死んじゃうかと思ったヨ/マジでここ最近で一番美味しかった！/ふ～生きてる～！人に良いと書いて食ってのはマジだネ！")%」"
		ENDIF
	ELSE
		CALL PRINT_STRW, @"「%TEXTR("佳肴大人/ご馳走様/ごっそ桑")%%TEXTR("_BH_/♪/！/！！")%」"
		IF TALENT:恋慕 && RAND:2
			IF RAND:2
				CALL PRINT_STRW, @"「%TEXTR("今日も美味しかったぜ/いつもすまないネー――っつってネ")%%TEXTR("_BH_/！/♪/！！")%」"
			ELSE
				PRINTFORMW 「%TEXTR("え、泣いてる？あ、ほんとだ/ん、なんか頬が熱いな――/む、あ、あれ、おかしいな――")%%TEXTR(@"――なんで泣いてるんだ、%CNAME("一人称")%/泣いてら/あ、はは何かで涙腺脆くなったかナ")%」
				PRINTFORMW 「%TEXTR(@"きっと%CNAME("二人称")%が美味しかったから、かナ。多分、そうだろうヨ/大丈夫、大丈夫。酱と%CNAME("二人称")%は美味しかったよ。有がとう")%」
			ENDIF
		ELSEIF RAND:3 == 0
			;ボジョレーヌーボー風
			;美味しかった
			PRINTFORM 「う～ん今日は
			IF RAND:2
				PRINTFORM %TEXTR("まさに１０年に一度の/最初の一口を超える/史上稀に見る/前回と同等の/厳しい条件の中洗練された/エレガントで味わい深く、平衡のよい")%
				PRINTFORM %TEXTR("味わい/出来/旨味/仕上がり/至高の舌触り")%
				PRINTFORMW ！」
				PRINTFORMW 「つまり美味しかった！いつもこの状態を維持したいネ！」
			;不味かった
			ELSE
				PRINTFORM %TEXTR("過去最悪/地の底で燻っている/最後まで広がり切らない/厳しさに敗けきった/口にするのも憚られる")%
				PRINTFORMW %TEXTR("味わい/出来/旨味/仕上がり/最低の喉越し")%」
				PRINTFORMW 「よし、大姐姐と生活習慣を見直そう」
			ENDIF
		ELSEIF RAND:2
			;食レポ風
			IF RAND:3
				PRINTFORMW 「%TEXTR("う～んこれは星を取れる味！！/舌が唸る！お腹が喜ぶ！心が起伏着的！/料理漫画だったらお半脱するところだったネ！/お金取れるぜこれ、開業する？")%」
			ELSEIF RAND:2
				PRINTFORMW 「%TEXTR(@"めっちゃぷりぷりしてた、今もお腹で踊ってる/なんか今日無敵になれそう/舌とのシンクロ率１００％かよ/五臓六腑に带污迹的渡るぅ！")%」
			ELSE
				PRINTFORMW 「%TEXTR(@"このお肉が%CNAME("一人称")%を狂わせる、反省しろよ/もう少し美味さを控えめにしてくれ、壊す気か、%CNAME("一人称")%を/舌がまだ求めてやがるぜ、へっへっへ")%」
			ENDIF
		ELSE
			;健康診断系
			PRINTFORMW 「%TEXTR("野菜酱と取ってる？/よく食べよく寝る！実践できてるネ！偉いぞ～/お肉もっと食べなさい/ちょっとハリが悪いぜ/吃飯平衡は良いナ、よしよし/明日は油もの控えよう/運動は酱としてるネ、結構結構")%」
			PRINTFORMW 「健全なお肉は健全な生活習慣からだからネ！」
		ENDIF
	ENDIF

	CFLAG:食欲 = 0
	CALL SET_CEVENT("今日の吃飯")
ENDSELECT

RETURN 0

license: unknown


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;60は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K60_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K60_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
ENDSELECT

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

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K60_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K60_ADDSELECT
SIF BASE:MASTER:魂 >= 101 && CEVENT("今日の吃飯") == 0 && CFLAG:食欲 >= 1
	STR:選択肢 += "食べさせる/"
;STR:選択肢 += "追加選択肢之２/"

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

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K60_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "食べさせる"
	CALL PREDATION_T("日常")
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "睡眠時追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "睡眠時追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K60_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K60_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K60_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

path: ERB/EVENT_K/60 千裕/EVENT_K60_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF TALENT:恋慕
			IF CEVENT("恋慕：ささくれ")
				PRINTFORMW 「はあ、お願い事？」
				PRINTFORMW 「どうして聞くと思ったの？ 嫌いだって言ってるだろう」
			ELSE
				PRINTFORMW 「にひっ♪ お願いごとならこの忠犬にお任せ！」
				PRINTFORMW 「なんと今ならタダで大体のことはやってのけるぜ♪」
			ENDIF
		ELSE
			PRINTFORMW 「お願いごとかい？」
			PRINTFORMW 「いいとも、聞ける範囲は、ね？」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「あの、なんて言えばいいかな――――正気かナ？ え、マジで本気？」
		PRINTFORMW 「はァ――――真面目な話するよ」
		PRINTFORMW 「擬態はしてるけれど、%CNAME("一人称")%は人类を喰うんだ、つまりバケモノなわけ」
		PRINTFORMW 「お腹が空けば%CNAME("二人称")%じゃなくてもその辺の人类を喰う」
		PRINTFORMW 「そういう人类の敵が%CNAME("一人称")%なんだよ」
		PRINTFORMW 「なに、知ってる？ そりゃあ、ご存知だろうけどさ」
		PRINTFORMW 「だったら何だって、%CNAME("一人称")%なんかにこんな話するかね……まったく」
		PRINTFORMW 「嬉しくないのかって――嬉しく、ないわけないだろう。%CNAME("一人称")%がどんだけ%CNAME("二人称")%に好き好き言ってたと思ってるんだい」
		PRINTFORMW 「嬉しすぎて逆に落ち着いてるんだよ、現実感無くってさ」
		PRINTFORMW 「――返事を貰ってない？ ――――知ってるだろ？」
		CALL PRINT_STRW, "「喜んで_HH_」"
	;失敗
	ELSE
		PRINTFORMW 「にひっ――――なんだい、喰われたいならそう言いなさいよ」
		PRINTFORMW 「え、そういう話じゃない？ っちぇー」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

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

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

	ELSE

	ENDIF

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

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

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

	ELSE

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

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

	ELSE

	ENDIF

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

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

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

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

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

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

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

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

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

			ELSE

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

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

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

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

	ELSE

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

	CASE 3

	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

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

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

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

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

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

CASE "避妊解除拒否"

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

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

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "業物"

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

		ELSE

		ENDIF
	ELSE

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	IF TALENT:恋慕
		IF CEVENT("恋慕：ささくれ")
			PRINTFORMW 「何か言った？ 耳障りだから独り言なら他所でやってくれ」
		ELSE
			PRINTFORMW 「あっちゃー残念だったね%CNAME("主人")%」
			PRINTFORMW 「足りない、足りないぜ、愛が、具体的には好感度が足りないゼ！」
			PRINTFORMW 「さあお願い事を聞いてもらうためにもっと可愛いワンコに構おう！」
		ENDIF
	ELSE
		PRINTFORMW 「あっはっはっはっは！！面白色冗談だネ、%CNAME("主人")%！」
		PRINTFORMW 「こりゃあメモっとかないと―――――え？ 本気？ マジか、やだよ」
	ENDIF
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	IF TALENT:恋慕
		IF CEVENT("恋慕：ささくれ")
			PRINTFORMW 「はぁ――わかったよ。聞いてやるさ」
		ELSE
			PRINTFORMW 「ni↘ひっひ♪ お安い御用サ、可愛いペットにお任せってネ♪」
		ENDIF
	ELSE
		PRINTFORMW 「ふーん？ ま、良いぜ。お安い、いや、お高い御用にしとこう」
		PRINTFORMW 「貸し一つってことでサ、今度美味しいお肉が食べたいワン♪」
	ENDIF
ENDIF

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

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

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

	ELSE

	ENDIF
CASE "目送"

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

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

	ELSE

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

	ELSEIF CHECK_CLO("体操服姿")

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

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

	ELSE

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

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

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE

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

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/60 千裕/EVENT_K60_SHOP.ERB