code:
;-------------------------------------------------
;拘留
;-------------------------------------------------
@EVENT_PRISONER_TEXT0(ARG:0)

IF TALENT:(ARG:0):崩壊 || TALENT:(ARG:0):虚ろ
	PRINTFORML %TR(ANAME(ARG:0),"は牢の中で虚ろに視線を彷徨わせている")%
ELSE
	IF RAND:4
		IF ABL:(ARG:0):知識 >= 70
			PRINTFORML %TR(ANAME(ARG:0),"は牢の中で大人しくしている…")%
		ELSEIF ABL:(ARG:0):身体 >= 70
			PRINTFORML %TR(ANAME(ARG:0),"は牢の中で暴れているようだ…")%
		ELSEIF ABL:(ARG:0):社交 >= 70
			PRINTFORML %TR(ANAME(ARG:0),"は牢の外にいる看守と話し込んでいる…")%
		ELSE
			PRINTFORML %TR(ANAME(ARG:0),"は牢の中で不安そうにしている…")%
		ENDIF
	ELSE
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML %TR(ANAME(ARG:0),"は牢の中でじっとしている…")%
			CASE 1
				PRINTFORML %TR(ANAME(ARG:0),"は牢の中で文句を言っている…")%
			CASE 2
				PRINTFORML %TR(ANAME(ARG:0),"は牢の中で心細そうにしている…")%
			CASEELSE
				PRINTFORML %TR(ANAME(ARG:0),"は牢の中で不安そうにしている…")%
		ENDSELECT
	ENDIF
ENDIF

;-------------------------------------------------
;拷問
;-------------------------------------------------
@EVENT_PRISONER_TEXT2(ARG:0)
SELECTCASE RAND:10
	CASE 0
		PRINTFORML %ANAME(ARG:0)%は裸にされて手首を縄で縛られ、天井に吊り下げられている…
		PRINTFORML 鞭を持った屈強な兵士が、パァンという高い音とともにその肌に無数の痣を刻んでいく
	CASE 1
		PRINTFORML %ANAME(ARG:0)%は縛り上げられ、口にじょうごをセットされている
		PRINTFORML じょうごに次から次へ水が注がれ、その胃袋は膨らんでいる……
	CASE 2
		PRINTFORML %ANAME(ARG:0)%は裸にされて柱にくくりつけられている……
		PRINTFORML 屈強な兵士が、何度も何度もその腹を殴りつけている
	CASE 3
		PRINTFORML %ANAME(ARG:0)%は裸にされ、三角木馬に乗せられている
		PRINTFORML 両足には重石がつけられており、重みが彼女の脚と股間へダメージを与えていく
	CASE 4
		PRINTFORML %ANAME(ARG:0)%は丸腰のまま、何人もの武装した兵士と組み手をさせられている
		PRINTFORML 当然かなうはずもなく、組み手はすぐ私刑へと変わった……
	CASE 5
		PRINTFORML %ANAME(ARG:0)%は爆音の中で生活させられている
		PRINTFORML 頭の割れるような音の中、%ANAME(ARG:0)%は過ごしている……
	CASE 6
		PRINTFORML %ANAME(ARG:0)%は眠ることを許されていない
		PRINTFORML まぶたが降りた途端、監視役の兵士が顔面に水をぶちまけたたき起こす……
	CASE 7
		PRINTFORML %ANAME(ARG:0)%は手足に縄をくくりつけられ、それぞれを違う方向に引っ張られている……
		PRINTFORML 身体の引きちぎれる寸前で、力を緩めるのを、拷問官は何度も繰り返している……
	CASE 8
		PRINTFORML %ANAME(ARG:0)%にはもう何日も食べ物が与えられていない
		PRINTFORML さすがの%ANAME(ARG:0)%も、もう腕一本上げる体力すら残されていないようだ……
	CASE 9
		PRINTFORML %ANAME(ARG:0)%は鉄の柱に身体をくくりつけられている……
		PRINTFORML 柱の内では火が燃えている。柱はどんどんと熱くなり、%ANAME(ARG:0)%の肉を焦がす……
ENDSELECT

;-------------------------------------------------
;身体開発
;-------------------------------------------------
@EVENT_PRISONER_TEXT3(ARG:0)
PRINTFORML %ANAME(ARG:0)%は裸にされて拘束台に固定されている…

IF HAS_PENIS(ARG:0)
	PRINTFORML 命じられた女官達は指や舌を使い、%ANAME(ARG:0)%のペニスに射精しない程度の緩やかな刺激を与え続けた…
	RETURN 0
ELSE
	SELECTCASE RAND:4
		CASE 0
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%のクリを手や舌でひたすら苛め続けた…
					RETURN 0
				CASE 1
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の乳房にローターを押し当て、ひたすら絶頂させた……
				CASE 2
					PRINTFORML 女官は%ANAME(ARG:0)%の股にバターを塗り、犬にクリトリスを何度も舐めさせた……
				CASE 3
					PRINTFORML 命じられた女官達は%ANAME(ARG:0)%が自らおねだりするまで徹底的に焦らし続けた……
				CASE 4
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%が体力の限界を迎えてもひたすらに絶頂させた……
			ENDSELECT
			RETURN 0
		CASE 1
			SELECTCASE RAND:5
				CASE 0
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の両の胸を揉みしだき、乳首を舌で優しく舐め回した…
				CASE 1
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の乳首にローターを押し当て、ひたすら絶頂させた……
				CASE 2
					PRINTFORML 女官は%ANAME(ARG:0)%の乳房に搾乳機を取り付け、ひたすらに搾り続けた……
				CASE 3
					PRINTFORML 命じられた女官達は%ANAME(ARG:0)%が自らおねだりするまで徹底的に焦らし続けた……
				CASE 4
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%が体力の限界を迎えてもひたすらに絶頂させた……
			ENDSELECT
			RETURN 1
		CASE 2
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の膣口浅くを弄くり回し、何度も絶頂させた……
				CASE 1
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の子宮を腹の上から刺激し、何度も絶頂させた……
				CASE 2
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の陰唇を執拗に責め、何度も絶頂させた……
				CASE 3
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の膣を指や舌でひたすら苛め続けた……
			ENDSELECT
			RETURN 2
		CASE 3
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%の肛門浅くを弄くり回し、何度も絶頂させた……
				CASE 1
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%のアヌスに指を抜き差しし、何度も絶頂させた……
				CASE 2
					PRINTFORML 命じられた女官達は、%ANAME(ARG:0)%のアヌスを執拗に責め、何度も絶頂させた……
			ENDSELECT
			RETURN 3
	ENDSELECT
ENDIF

;-------------------------------------------------
;説得
;-------------------------------------------------
@EVENT_PRISONER_TEXT4(ARG:0)
PRINTFORML %ANAME(ARG:0)%は文官達に説得を受けている……

;-------------------------------------------------
;性処理
;-------------------------------------------------
@EVENT_PRISONER_TEXT5(ARG:0)
IF IS_MALE(ARG:0)
	PRINTFORML 屈強な兵士達が%ANAME(ARG:0)%の尻穴を次々に犯していく
	PRINTFORML さらに、男達は%ANAME(ARG:0)%の口に竿を押し込んで、強引に腰を突き込んでいく
	PRINTFORML %ANAME(ARG:0)%は途中で何度も意識を飛ばしながら、延々と男達の欲望に曝され続けた
	RETURN
ENDIF

SELECTCASE RAND:30
	CASE 0
		PRINTFORML %ANAME(ARG:0)%は裸にされ、柱に腕を固定されている……
		PRINTFORML 屈強な兵士達が強引に股を開かせ、%ANAME(ARG:0)%の両方の穴に次々に男性器を挿入していく
		PRINTFORML さらに、男達は%ANAME(ARG:0)%の口に竿を押し込んで、強引に腰を突き込んでいく
		IF HAS_PENIS(ARG:0)
			PRINTFORML いきり勃つモノは何度も扱かれ、精をまき散らしている
		ENDIF
		PRINTFORML %ANAME(ARG:0)%は途中で何度も意識を飛ばしながら、延々と男達の欲望に曝され続けた
	CASE 1
		PRINTFORML %ANAME(ARG:0)%は裸にされ、兵士たちに奉仕をさせられている……
		PRINTFORML 何人もの兵士が%ANAME(ARG:0)%を取り囲み、ペニスを突き出している
		PRINTFORML %ANAME(ARG:0)%はそれらを代わる代わる咥えさせられた……
		PRINTFORML 当然、たった一人のそれも口だけでそれだけの数のペニスを満足させられるはずもない
		PRINTFORML %ANAME(ARG:0)%は結局組み敷かれ、乱暴に犯された……
	CASE 2
		PRINTFORML %ANAME(ARG:0)%は裸にされ、寝台に大の字でくくりつけられている……
		PRINTFORML 何人もの兵士が代わる代わる%ANAME(ARG:0)%に覆い被さり、両方の穴に次々と男性器を挿入する
		PRINTFORML さらに、別の兵士が%ANAME(ARG:0)%の顔に乗っかり、\@ RAND:2 ? 無理矢理口で奉仕させる # 尻穴を舐めさせている \@
		IF HAS_PENIS(ARG:0)
			PRINTFORML %ANAME(ARG:0)%があさましくも勃起していることを兵士達はあざ笑い、激しく扱いて何度も無理矢理射精させる
		ENDIF
		PRINTFORML %ANAME(ARG:0)%は一晩中、数えられないほどの男の慰み者にされた……
	CASE 3
		PRINTFORML %ANAME(ARG:0)%は裸に首輪をつけられ、兵舎を引き回された……
		PRINTFORML 無数の下卑た視線をその肌に注がれ、%ANAME(ARG:0)%は身を硬くしている
		IF HAS_PENIS(ARG:0)
			PRINTFORML その股間の「汚らしいモノ」を、兵士達は特にあざ笑う
		ENDIF
		PRINTFORML そして食堂の中央、何人もの兵士が見ている中で、%ANAME(ARG:0)%はオナニーを強要された
		PRINTFORML %ANAME(ARG:0)%が絶頂した後、興奮した兵士たちは彼女に群がっていった……
	CASE 4
		PRINTFORML %ANAME(ARG:0)%は裸にされ、四つん這いの姿勢から何度も犯されている……
		PRINTFORML 尻穴を犯したばかりの汚れたペニスが、今度は膣穴を容赦なく陵辱する
		PRINTFORML 抽送のたび、既に何発も放たれた精液が、彼女の両穴から音を立てて噴きだしている
		PRINTFORML 無慈悲な抽送の間にも、彼女は口での奉仕を強要されている……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 彼女のペニスは犯される快楽で何度も射精し、床を汚している……
		ENDIF
		PRINTFORML %ANAME(ARG:0)%が意識を飛ばしそうになると、兵士は容赦なく彼女を叩いて目覚めさせた……
	CASE 5
		PRINTFORML %ANAME(ARG:0)%は兵士に取り囲まれ、彼らに刃向かったことを土下座で謝罪させられている
		PRINTFORML 屈辱に震える彼女の頭を、兵士はあざ笑いながら踏みつけた
		PRINTFORML さらに、その身体に容赦なく尿をかけはじめた……
		PRINTFORML その後、彼らはそのままの姿勢で%ANAME(ARG:0)%を何度も犯していった……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 陵辱の最中で放たれた%ANAME(ARG:0)%の子種を、兵士達は彼女自身に舐め取らせた
		ENDIF
	CASE 6
		PRINTFORML 食事として、看守は%ANAME(ARG:0)%に乾いたパンと薄いスープを運んだ
		PRINTFORML %ANAME(ARG:0)%は、べっとりとした白いものが食べ物に付着していることに気づいた
		PRINTFORML 看守は下卑た目で%ANAME(ARG:0)%を見ている。これは彼の精液だ
		IF HAS_PENIS(ARG:0)
			PRINTFORML さらに看守は%ANAME(ARG:0)%にオナニーを命じ、料理に彼女の精液をもブレンドさせた……
		ENDIF
		PRINTFORML 結局、%ANAME(ARG:0)%は看守の見ている前で、精液まみれの料理をたっぷりと味わわされた……
		PRINTFORML その後、興奮した看守に、%ANAME(ARG:0)%はたっぷりと犯された……
	CASE 7
		PRINTFORML 薬の力ですやすやと眠る%ANAME(ARG:0)%を、何人もの兵士が取り囲んでいる
		PRINTFORML その両穴を、口を、本人も知らない間に汚していく
		PRINTFORML 時折苦しそうに顔をゆがめる%ANAME(ARG:0)%だが、深い眠りから覚めることはない
		PRINTFORML 結局、%ANAME(ARG:0)%の経験人数は、寝ている間に飛躍的に増やされた……
	CASE 8
		PRINTFORML 民への慰安として、%ANAME(ARG:0)%は裸に首輪をつけられ、街中を引き回された……
		PRINTFORML 大通りを歩かされる%ANAME(ARG:0)%に、老若男女から好奇や侮蔑の目、罵倒の言葉が投げかけられる……
		IF HAS_PENIS(ARG:0)
			PRINTFORML とくにその股間でぶら下がるモノは、好奇の格好の対象のようだ……
		ENDIF
		PRINTFORML そして広場で、群衆の見ている前で、土下座での謝罪を強要された……
		PRINTFORML その後は衆人環視の下、数名の「幸運」な民のモノで「反省」させられたようだ……
	CASE 9
		PRINTFORML 床にうつ伏せた%ANAME(ARG:0)%に、とてつもない巨体の兵士が覆い被さっている
		PRINTFORML %ANAME(ARG:0)%の身体は肉に阻まれ見えなくなってしまっている
		PRINTFORML ただぬぢゅぬぢゅといういやらしい音と悲鳴混じりの嬌声だけが、%ANAME(ARG:0)%が犯されていることを示している
		PRINTFORML やがて肉の塊の動きが止まる。%ANAME(ARG:0)%にたっぷりと種を植え付けたようだ……
	CASE 10
		PRINTFORML 目隠しをされた%ANAME(ARG:0)%は、「利きチンポ」なる遊びに参加させられている
		PRINTFORML 咥えさせられたペニスが誰のものか当てられなければ、罰として犯されるのだ……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 異様で屈辱的な行為であるはずなのに、%ANAME(ARG:0)%のペニスは勃起してしまっている……
		ENDIF
		PRINTFORML 当然当てることなど出来るはずもなく、%ANAME(ARG:0)%は全身真っ白になるまで何度も犯され続けた……
	CASE 11
		PRINTFORML 目隠しに猿ぐつわを噛まされ、柱に縛り付けられた%ANAME(ARG:0)%が、何度も犯されている
		PRINTFORML 屈強な兵士たちが次々と彼女の両穴に挿入し、乱暴に犯しては種を植え付けていく
		IF HAS_PENIS(ARG:0)
			PRINTFORML びきびきといきり勃つペニスが、%ANAME(ARG:0)%の興奮を表している……
		ENDIF
		PRINTFORML 猿ぐつわを噛まされている%ANAME(ARG:0)%は、悲鳴をあげることすら許されない
		PRINTFORML ひとしきり楽しんだ兵士たちは、%ANAME(ARG:0)%をそのまま放置してどこかへ出掛けてしまった……
	CASE 12
		PRINTFORML %ANAME(ARG:0)%は群衆の前に全裸で引きずり出され、兵士たちに犯されている……
		PRINTFORML 軍に参加すれば女にも手を出し放題だというキャンペーンに参加させられているのだ
		PRINTFORML そして%ANAME(ARG:0)%は、滾る群衆の中に、そのまま放り込まれた
		PRINTFORML 興奮した群衆は%ANAME(ARG:0)%がボロ雑巾のようになるまで、ひたすら犯し続けた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 何度も精を放った%ANAME(ARG:0)%のペニスは、すっかり萎びている……
		ENDIF
	CASE 13
		PRINTFORML 捕虜らしからぬ生意気な態度の罰として、%ANAME(ARG:0)%は肉便器にされているようだ……
		PRINTFORML 便器にくくりつけられた%ANAME(ARG:0)%の前に兵士たちは列を作り、代わる代わる陵辱していく
		PRINTFORML %ANAME(ARG:0)%が泣こうと、喚こうと、兵士たちは容赦しない。「備品」を多少雑に扱おうとも問題はないからだ……
		PRINTFORML 数日後に解放された%ANAME(ARG:0)%は完全に放心し、あらゆる穴から種をあふれさせる人形になっていた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 誰が取り付けたのか、その根元には射精を戒めるためのリングが取り付けられていた……
		ENDIF
	CASE 14
		PRINTFORML 媚薬を打たれた%ANAME(ARG:0)%が、兵士の上で腰を振っている……
		PRINTFORML 理性の吹き飛んだ%ANAME(ARG:0)%は自ら淫らな言葉を並べて男を誘っている
		PRINTFORML 両穴で男を咥え、ペニスを突き出されてはしゃぶり、幾度となく放たれる濃厚な精を味わっている
		IF HAS_PENIS(ARG:0)
			PRINTFORML さらには自ら己のペニスを扱き、何度も射精している……
		ENDIF
		PRINTFORML 数時間後に解放されても、彼女は白濁の海の中で陰部をぐちゃぐちゃと掻き回し続けていた……
	CASE 15
		PRINTFORML 兵士たちのパーティーに、%ANAME(ARG:0)%は器として駆り出されたようだ
		PRINTFORML 一糸まとわぬ裸身の上に、料理が盛られている
		PRINTFORML 兵士たちは料理を口にしながら、時折箸で彼女の乳房や陰核をつまみ上げた
		IF HAS_PENIS(ARG:0)
			PRINTFORML さらには、股間でいきり勃つ逸物を扱き上げ、「ドレッシング」を出させる……
		ENDIF
		PRINTFORML 料理がなくなる頃になると、酔っ払った兵士に何度も陵辱された……
	CASE 16
		PRINTFORML 自白薬を飲まされた%ANAME(ARG:0)%は、尋問と称してレイプされている
		PRINTFORML 尋問官は情報を聞き出すことなどそっちのけで、自分がいかに感じているかの自白を%ANAME(ARG:0)%に強要している
		PRINTFORML 薬の効果により、%ANAME(ARG:0)%は強い羞恥を覚えながらも、淫らな言葉を並べ立ててしまった……
	CASE 17
		PRINTFORML %ANAME(ARG:0)%は武器を隠し持っているという疑いをかけられ、「身体検査」をされている……
		PRINTFORML その口、雌穴、尻穴に武器を隠しているんだろうと、何人もの兵士がペニスでもって彼女を検査している……
		PRINTFORML そんなものは持っていないという言葉は、口にねじ込まれたペニスによりくぐもった声にしかならなかった
		IF HAS_PENIS(ARG:0)
			PRINTFORML こんな危険な棒を持っているじゃないかと、兵士達は%ANAME(ARG:0)%のペニスを責め立てる……
		ENDIF
		PRINTFORML 当然武器など見つからなかったが、どうせ上手く隠しているだけだということで、兵士たちはまた彼女を犯すことにしたようだ……
	CASE 18
		PRINTFORML 四つん這いになった%ANAME(ARG:0)%を犬が組み敷き、犯している
		PRINTFORML 酔っ払った兵士が、兵舎で飼っている犬を%ANAME(ARG:0)%にあてがったのだ
		PRINTFORML 畜生に犯される屈辱に%ANAME(ARG:0)%が暴れようとするたび、兵士はその喉元に刃を突きつけて脅した
		PRINTFORML 結局、%ANAME(ARG:0)%は畜生の種を植え付けられ、その快楽で何度も絶頂してしまった……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 犬の熱い精液が注がれる感覚に、%ANAME(ARG:0)%は無様に射精した……
		ENDIF
	CASE 19
		PRINTFORML %ANAME(ARG:0)%が兵士と絡み合い、濃厚なキスを交わしながら交わっている
		PRINTFORML しこたま酒を飲まされて泥酔し、前後不覚に陥っているのだ……
		PRINTFORML 与えられる快楽を%ANAME(ARG:0)%は従順に受け入れ、求められるがままに腰を振っている
		PRINTFORML 兵士が絶頂するころになると、%ANAME(ARG:0)%は自ら彼にぐりぐりと腰を押しつけ、膣内射精をねだった……
	CASE 20
		PRINTFORML 下半身を剥き出しにされた%ANAME(ARG:0)%は、そのまま壁に空いた穴に固定された
		PRINTFORML やがて姿の見えない何者かが彼女の下半身を弄くり回し、さらにはペニスをねじ込んだ
		PRINTFORML 彼女が暴れると、何者かは尻を何度も何度も叩いて大人しくさせた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 剥き出しにされている%ANAME(ARG:0)%のペニスが、ガシガシと乱暴に扱かれている
		ENDIF
		PRINTFORML やがて、%ANAME(ARG:0)%は顔すら知らない誰かに種付けされてしまった
		PRINTFORML それで終わりではなく、ぐったりする彼女を、さらに別の誰かが犯し始めた……
	CASE 21
		PRINTFORML 兵士のいたずらで、%ANAME(ARG:0)%は衣服を全て隠されてしまった
		PRINTFORML 服を探し、裸身を晒したまま兵舎中を探す%ANAME(ARG:0)%だが、どうしても下着が見つからない
		PRINTFORML あちこちを裸のまま駆け回る彼女を、兵士たちは痴女だ痴女だと囃したてる
		IF HAS_PENIS(ARG:0)
			PRINTFORML 勃起している様に、変態のチンポ女めという言葉まで飛び交う……
		ENDIF
		PRINTFORML 結局、彼女の姿を見て興奮した兵士たちに、%ANAME(ARG:0)%は何度も犯されてしまった……
	CASE 22
		PRINTFORML 兵士たちが利用する酒場で、%ANAME(ARG:0)%は踊り子として働かされている
		PRINTFORML 乳首と陰部すら隠しきれないような、全裸よりも淫らですらある小さな布きれを纏い、彼女は踊っている
		IF HAS_PENIS(ARG:0)
			PRINTFORML 勃起したペニスは亀頭にのみ布が被せられ、根元には射精を戒めるリングが嵌められていた
		ENDIF
		PRINTFORML 激しい動きに布きれはすぐにずれ、秘めるべきところを露わにしてしまう
		PRINTFORML その後は観客席の間を練り歩き、兵士たちに求められるがままに口や膣穴で奉仕をさせられた……
	CASE 23
		PRINTFORML 兵士たちが利用する酒場で、%ANAME(ARG:0)%は踊り子として働かされている
		PRINTFORML 踊り子、踊りとは名ばかりで、実際には淫らなオナニーショーだ
		PRINTFORML 大股を広げ恥部を掻き回す様を晒す彼女を、兵士たちはやんやと囃したてている
		IF HAS_PENIS(ARG:0)
			PRINTFORML 勃起したペニスを扱きたて射精すると、兵士達は口笛を吹いた
		ENDIF
		PRINTFORML やがて興奮した兵士がステージに上り彼女を犯し始め、オナニーショーはまな板ショーへと演目を変更した……
	CASE 24
		PRINTFORML %ANAME(ARG:0)%は慰安のため、兵士たちに提供された
		PRINTFORML 何人もの兵士が%ANAME(ARG:0)%に群がり、慰み者にしている
		PRINTFORML %ANAME(ARG:0)%が泣こうと、喚こうと、陵辱はひたすら続いた……
		PRINTFORML 彼らが満足する頃には、%ANAME(ARG:0)%はボロ雑巾のようになっていた
	CASE 25
		PRINTFORML 兵士たちが利用する酒場で、%ANAME(ARG:0)%は給仕として働かされている
		PRINTFORML その動きが明らかにふらついているのは、両穴にねじ込まれた張型のせいだ
		IF HAS_PENIS(ARG:0)
			PRINTFORML 逸物には電動オナホールが嵌められ、何度も精を搾り取っていく
		ENDIF
		PRINTFORML 兵士たちは彼女をいたずらに呼びつけては、注文もせず張型を弄び、彼女を感じさせる
		PRINTFORML さらに彼女は、口や両穴での奉仕を何度となく強要された……
	CASE 26
		PRINTFORML 兵士たちの訓練に、%ANAME(ARG:0)%は参加させられた
		PRINTFORML 一対一での組み手だが、%ANAME(ARG:0)%は両手を縛られ、丸腰で、服すら着せてもらえない
		PRINTFORML 当然あっという間に組み伏せられ、散々に陵辱された後、負けの判定を下された……
		PRINTFORML その後も同じ形式の組み手を兵士全員とさせられ、その全てで犯された……
	CASE 27
		PRINTFORML 営倉行きにされた兵士への慰安に%ANAME(ARG:0)%は提供された
		PRINTFORML 何日も風呂に入っていない恥垢まみれのペニスを、%ANAME(ARG:0)%は無理矢理咥えさせられた
		PRINTFORML さらに別の兵士が%ANAME(ARG:0)%を組み敷き、汚らしいペニスを濡れてもいない淫裂にねじ込む
		PRINTFORML %ANAME(ARG:0)%が解放されるころには、その身体は汗や垢や精液まみれにされていた……
	CASE 28
		PRINTFORML 全裸に手枷と足枷をつけられた%ANAME(ARG:0)%は、街の広場に引きずり出された
		PRINTFORML 街の住人たちは抵抗できない%ANAME(ARG:0)%の身体に群がり、何度も犯し続けた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 犯される快楽で惨めに射精する%ANAME(ARG:0)%を、住人達は口汚く罵っている
		ENDIF
		PRINTFORML 夜になり、住人たちが帰った後には、ぼろぼろになった%ANAME(ARG:0)%が残されていた……
	CASE 29
		PRINTFORML 少年兵たちを「男にする」ため、%ANAME(ARG:0)%はあてがわれた……
		PRINTFORML 初めて見る女体の美しさに、少年たちはひどく興奮している
		PRINTFORML 思春期特有の若々しくも情熱的な腰使いに、%ANAME(ARG:0)%は翻弄されてしまった……
		PRINTFORML %ANAME(ARG:0)%の身体で、兵たちは自信をつけたようだ
ENDSELECT

;-------------------------------------------------
;触手
;-------------------------------------------------
@EVENT_PRISONER_TEXT6(ARG:0)
IF TALENT:(ARG:0):崩壊
	PRINTFORML 心が砕けた%ANAME(ARG:0)%は触手部屋の中で裸にされ、手首を縛られて天井から吊り下げられている…
ELSEIF TALENT:(ARG:0):虚ろ
	PRINTFORML 虚ろな目をした%ANAME(ARG:0)%は触手部屋の中で裸にされ、手首を縛られて天井から吊り下げられている…
ELSE
	PRINTFORML %ANAME(ARG:0)%は触手部屋の中で裸にされ、手首を縛られて天井から吊り下げられている…
ENDIF

IF IS_MALE(ARG:0)
	PRINTFORML 大量の触手が%ANAME(ARG:0)%の体に絡みつき、%ANAME(ARG:0)%の尻穴と口を次々に犯していく
	PRINTFORML さらに一際太い触手が先端の搾精口でペニスを咥え込み、精を搾り取ろうと内部をジュルジュルと蠢かせる
	PRINTFORML %ANAME(ARG:0)%は異形による容赦のない責めに、全身をガクガクと震わせながら垂れ流すように射精し続けた
	RETURN
ENDIF

SELECTCASE RAND:51
	CASE 0
		IF HAS_PENIS(ARG:0)
			PRINTFORML 大量の触手が%ANAME(ARG:0)%の体に絡みつき、雌穴、尻穴、口と、あらゆる穴を次々に犯していく
			PRINTFORML さらに一際太い触手が先端の搾精口でペニスを咥え込み、精を搾り取ろうと内部をジュルジュルと蠢かせる
			PRINTFORML %ANAME(ARG:0)%は異形による容赦のない責めに、全身をガクガクと震わせながら垂れ流すように射精し続けた
		ELSE
			PRINTFORML 大量の触手が%ANAME(ARG:0)%の体に絡みつき、雌穴、尻穴、口と、あらゆる穴を次々に犯していく
			PRINTFORML さらに触手たちは、そのヌメる表皮を%ANAME(ARG:0)%の全身に擦りつけて性感帯をニュルニュルと愛撫していく
			PRINTFORML %ANAME(ARG:0)%は異形による容赦のない責めに、口辱を続ける触手の隙間から嬌声とも悲鳴ともつかない呻きを漏らした
		ENDIF
	CASE 1
		PRINTFORML 無数の触手が%ANAME(ARG:0)%の雌穴、尻穴、口をぐぼぐぼと犯している
		PRINTFORML さらに細い触手が%ANAME(ARG:0)%の尿道を二、三度つついた
		PRINTFORML まさか、と恐怖する%ANAME(ARG:0)%の予想通り、触手は%ANAME(ARG:0)%の尿道に入り込んだ
		PRINTFORML くぐもった悲鳴をあげる%ANAME(ARG:0)%をよそに、触手は%ANAME(ARG:0)%の尿道をひたすらに陵辱していった……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 尿道をレイプさせる快感に、%ANAME(ARG:0)%は何度も射精した……
		ENDIF
	CASE 2
		PRINTFORML 無数の触手が%ANAME(ARG:0)%の雌穴、尻穴、口をぐぼぐぼと犯している
		PRINTFORML さらに細い触手が%ANAME(ARG:0)%の乳首を二、三度つついた
		PRINTFORML まさか、と恐怖する%ANAME(ARG:0)%の予想通り、触手は%ANAME(ARG:0)%の乳腺に入り込んだ
		PRINTFORML くぐもった悲鳴をあげる%ANAME(ARG:0)%をよそに、触手は%ANAME(ARG:0)%の乳腺をひたすらに陵辱していった……
	CASE 3
		PRINTFORML 大量の触手が%ANAME(ARG:0)%に絡みつき、穴という穴を犯している
		PRINTFORML 子宮口をこつこつとつついていた触手が、あろうことかその中にまで入り込んだ！
		PRINTFORML 苦痛と快楽に目を白黒させる%ANAME(ARG:0)%をよそに、触手は彼女の子宮を何度も犯す
		PRINTFORML そして、ぼこりぼこりといくつも卵を植え付けた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML 苗床にされる快楽に、%ANAME(ARG:0)%のペニスは何度も精を放った……
		ENDIF
	CASE 4
		PRINTFORML 大量の触手が%ANAME(ARG:0)%に絡みつき、穴という穴を犯している
		PRINTFORML 腸内を犯していた触手が、ずるずるとその奥へと進んでいく
		PRINTFORML あらゆる内臓を触手が這い回る感覚に、%ANAME(ARG:0)%は目を白黒させる
		PRINTFORML やがて、喉の奥から触手が這い出たと同時に、%ANAME(ARG:0)%は強烈な絶頂を迎えた……
		IF HAS_PENIS(ARG:0)
			PRINTFORML その間にも、ペニスに絡みつく触手が、%ANAME(ARG:0)%を何度も射精させた……
		ENDIF
	CASE 5
		PRINTFORML 巨大な触手が大口を開け、%ANAME(ARG:0)%を呑み込んだ！
		PRINTFORML 内側に備わる無数の繊毛状の触手が、%ANAME(ARG:0)%の全身を愛撫し、雌穴に尻穴、口を何度も犯していく
		IF HAS_PENIS(ARG:0)
			PRINTFORML 舐め蕩かされるような刺激に、%ANAME(ARG:0)%のペニスは何度も子種を放つ……
		ENDIF
		PRINTFORML でろでろとした粘液には催淫作用があるのか、どんどんと身体の感度を高めていく
		PRINTFORML 吐き出されるまでの数時間、%ANAME(ARG:0)%は何もかも忘れるほどの快楽に絶頂し続けた……
	CASE 6
		PRINTFORML あらゆる穴を犯される%ANAME(ARG:0)%に、極細の触手が近づいた
		PRINTFORML それは彼女の耳から体内に入り込み、脳に電流を流して操り始めた！
		PRINTFORML 意志とも身体感覚とも関係のない強制的な絶頂に、%ANAME(ARG:0)%はひたすらに翻弄されている……
		IF HAS_PENIS(ARG:0)
			PRINTFORML %ANAME(ARG:0)%のペニスは、壊れた蛇口のように精を噴き上げている……
		ENDIF
	CASE 7
		PRINTFORML 触手に陵辱されている%ANAME(ARG:0)%の目に、触手がべっとりと張り付いた
		PRINTFORML 何事かと思う彼女の視界に映ったのは、触手による陵辱調教を受けている自分だ。これは過去の映像だ！
		PRINTFORML %ANAME(ARG:0)%はそのまま、自らの痴態を見せつけられながら、何度も触手の種を植えられた……
	CASE 8
		PRINTFORML 触手に散々調教され、ぐったりとした%ANAME(ARG:0)%に、極細の触手が近づいた
		PRINTFORML それは腕に突き刺さり、怪しげな液体を注いでいく
		PRINTFORML すると、疲弊しきっていた%ANAME(ARG:0)%はみるみる元気になっていった！
		IF HAS_PENIS(ARG:0)
			PRINTFORML しなびきっていた股間のモノも、いつの間にか再びいきり勃っている
		ENDIF
		PRINTFORML 元気になった%ANAME(ARG:0)%に、再び触手が群がっていく
		PRINTFORML 捕虜である彼女は、疲弊し倒れることすら許されないのだ……
	CASE 9
		PRINTFORML ゴーヤのような極太の触手が%ANAME(ARG:0)%の両穴を犯し、骨盤から拡張している
		PRINTFORML 激痛と同時に襲い来る快楽に、%ANAME(ARG:0)%は悲鳴と嬌声がない交ぜになった声をあげる
		PRINTFORML やがて触手が射精すると、%ANAME(ARG:0)%の腹は妊婦のように膨れあがった
		PRINTFORML 触手が引き抜かれた後、両穴はぶびゅぶびゅと白濁を溢れさせ、ひくひくと蠢いて閉じなくなっていた……
	CASE 10
		IF ARG:0 == NAME_TO_CHARA("わかさぎ姫") || ARG:0 == NAME_TO_CHARA("魅魔")
			;屠自古は二股なので入れない
			PRINTFORML 触手は%ANAME(ARG:0)%の足尾びれを掴んで吊り上げ、体を宙に固定させた
			PRINTFORML ちょうど目の前に来た女性器の窪みに、ゆっくりと触手は挿入し、出入りを繰り返していく
		ELSE
			PRINTFORML 触手が%ANAME(ARG:0)%の両足を開いて掴み上げ、体を宙に固定させた
			PRINTFORML ちょうど目の前に来た女性器に、ゆっくりと触手は挿入し、出入りを繰り返していく
		ENDIF
		PRINTFORML %ANAME(ARG:0)%に見せ付けながら少しづつ速度は上がっていき、最後には激しいピストン運動となった
		PRINTFORML 動きについていけなくなった%ANAME(ARG:0)%は停止するよう哀願したが、気を失うまで触手の動きが止まる事は無かった……
	CASE 11
		PRINTFORML 白濁液に満ちた、まるで釜のような触手に%ANAME(ARG:0)%は漬け込まれていた
		PRINTFORML 視線が遮られ、%ANAME(ARG:0)%には見えなくなった秘裂で触手が蠢いている！
		IF TALENT:(ARG:0):自制心 || TALENT:(ARG:0):気丈
			PRINTFORML 自分の下半身がどんな状況になっているか、恐怖で顔が歪む%ANAME(ARG:0)%だったが
		ELSE
			PRINTFORML 自分の下半身がどんな状況になっているか、恐怖で泣き叫ぶ%ANAME(ARG:0)%だったが
		ENDIF
		PRINTFORML 犯し尽くされて触手から解放される頃には、とろけ切った表情で快楽に溺れていた……
	CASE 12
		PRINTFORML 股下には百足の体ような生物がおり、其処からは列になるように無数の触手がそそり立っていた
		IF ARG:0 == NAME_TO_CHARA("わかさぎ姫") || ARG:0 == NAME_TO_CHARA("魅魔")
			PRINTFORML 百足は%ANAME(ARG:0)%を挟み込むように体を折り曲げると、触手を膣に突きたてて交尾を行った
			PRINTFORML 激しくぴちぴち抵抗するも虚しく%ANAME(ARG:0)%の体内に精が放たれ、%ANAME(ARG:0)%の目には涙が滲んだが
			PRINTFORML そんな事はお構いなしにと百足の体は動き、即座に次の触手が窪みへと滑り込んでいった……
		ELSE
			PRINTFORML しゅるりと足を引っ張られ無理やり触手の一本と%ANAME(ARG:0)%は荒い交尾を行う
			PRINTFORML 激しく抵抗するも虚しく%ANAME(ARG:0)%の体内に精が放たれ、%ANAME(ARG:0)%の目には涙が滲んだが
			PRINTFORML そんな事はお構いなしにと百足の体が動き、次の触手が股下に用意された……
		ENDIF
	CASE 13
		PRINTFORML 口に触手が入り込み、ビュッっと粘りのある液体を%ANAME(ARG:0)%の喉に流し込んだ
		PRINTFORML 暫くするとキュン！と心臓の鼓動が高まり、息が荒くなっていく……
		PRINTFORML その後、秘部に触手をあて焦らしていると、%ANAME(ARG:0)%の体は触手を求め腰を振り始めてしまった！
		IF TALENT:(ARG:0):自制心 || TALENT:(ARG:0):気丈 || TALENT:(ARG:0):快感の否定
			;精神的耐性がある人は無駄な抵抗をしてもらう
			PRINTFORML %ANAME(ARG:0)%は自分の意志を離れて動く体を制しようとしたが、動きは一行に止まる事は無かった
			PRINTFORML 下の口からも同じ液体を注がれ、快楽と必死に鬩ぎ合う%ANAME(ARG:0)%は腰を振り続けた
		ELSE
			PRINTFORML そして下の口からも同じ液体を注がれ、蕩けるような顔になった%ANAME(ARG:0)%は一糸不乱に腰を振り続けた
		ENDIF
	CASE 14
		IF ARG:0 == NAME_TO_CHARA("わかさぎ姫") || ARG:0 == NAME_TO_CHARA("魅魔")
			PRINTFORML 足尾びれを掴んで固定された%ANAME(ARG:0)%を、ポンプ音を立てて触手が二穴責めしていた！
		ELSE
			PRINTFORML 八の字に足を開いた%ANAME(ARG:0)%を、ポンプ音を立てて触手が二穴責めしていた！
		ENDIF
		PRINTFORML 出入りする触手は明らかに大きすぎであり、%ANAME(ARG:0)%の足元には溢れ出した精液が溜まり湯気を出している
		PRINTFORML 激しい責めに意識を失う事すらできない%ANAME(ARG:0)%はガクガクと震え、一晩中絶頂を繰り返し続けた……
	CASE 15
		PRINTFORML 拘束され涙を浮かべる%ANAME(ARG:0)%の股には一枚の封じ札が張られていた
		PRINTFORML %ANAME(ARG:0)%の子宮中には触手の幼体と媚薬が納まっており、幼体が中から犯し続けている！
		PRINTFORML 内側から責められぽたぽたと愛液が垂れるが、その程度で札は剥がれる事はなく
		PRINTFORML 幼体が十分な力を身につけ札を破るまで%ANAME(ARG:0)%は何度も絶頂し続けることになった……
	CASE 16
		PRINTFORML 数時間前から%ANAME(ARG:0)%は睡眠薬によって眠りについている
		PRINTFORML すやすやと眠る姿に構いなく、触手は性感帯を責め立て犯していた……
		IF TALENT:(ARG:0):幼稚
			PRINTFORML 無意識に性感を高められた%ANAME(ARG:0)%は、息を吐きながら腰をクチュクチュ鳴らせ触手を貪っている
			PRINTFORML 夢の中はどうなっているのか、汗をかいた%ANAME(ARG:0)%はむず痒そうな顔をして淫声を漏らしていた……
		ELSE
			PRINTFORML 無意識に性感を高められた%ANAME(ARG:0)%は、息を吐きながら腰をクチュクチュ鳴らせ触手を貪っていおり
			PRINTFORML 蜜壺がトロトロになった頃にようやく目を覚ました%ANAME(ARG:0)%は、目の前の惨状に官能的な声で悲鳴を上げた……
		ENDIF
	CASE 17
		PRINTFORML しなやかな触手によって%ANAME(ARG:0)%は何度も何度も絶頂をさせられていた
		PRINTFORML 腰や足にまとわりついた触手は体を跳ねる%ANAME(ARG:0)%を感じやすい体位に誘導し
		PRINTFORML ありとあらゆる姿勢から%ANAME(ARG:0)%の腰を突き上げリズミカルに犯している
		PRINTFORML 体をよじるほど増していく快楽に抗う事は出来ず、触手と渾然一体となった%ANAME(ARG:0)%は嬌声を上げ続けた……
	CASE 18
		PRINTFORML 触手達は%ANAME(ARG:0)%を横に抱き上げると、脇や太股へねっとり絡みついて擦り上げ、
		PRINTFORML 粘液の垂れる先端をちゅるりと膣奥と尿道へ滑り込ませて腹部を中から揉み解している……
		PRINTFORML お姫様だっこの形で宙に固定され、嵌め犯された%ANAME(ARG:0)%はそれを享受するしか選択肢が無く
		PRINTFORML 目を伏せて呻きながら、この時間が早く過ぎ去るよう願いつづけた……
	CASE 19
		IF TALENT:(ARG:0):無関心 || TALENT:(ARG:0):貞操無頓着
			PRINTFORML %ANAME(ARG:0)%は何本もの触手に強引に押さえつけられて犯されていた！
		ELSE
			PRINTFORML 触手を嫌がり続ける%ANAME(ARG:0)%は、何本もの触手に強引に押さえつけられて犯されていた！
		ENDIF
		PRINTFORML ひときわ大きい触手が%ANAME(ARG:0)%の内部へと侵入し、何度も腹裏を擦り上げて体を調教していく……
		PRINTFORML 一方的な触手の溺愛に力なくうなだれ、目から光が消えた%ANAME(ARG:0)%は意識を失った
	CASE 20
		IF TALENT:(ARG:0):臆病
			PRINTFORML 怯えて泣き叫ぶ%ANAME(ARG:0)%に触手は群がって襲い掛かった
		ELSE
			PRINTFORML 騒ぎ罵声を飛ばす%ANAME(ARG:0)%に触手は群がって襲い掛かった
		ENDIF
		IF ARG:0 == NAME_TO_CHARA("上海人形") || ARG:0 == NAME_TO_CHARA("蓬莱人形") || ARG:0 == NAME_TO_CHARA("大江戸人形") || ARG:0 == NAME_TO_CHARA("ゴリアテ人形") || ARG:0 == NAME_TO_CHARA("雛") || ARG:0 == NAME_TO_CHARA("VIVIT") || ARG:0 == NAME_TO_CHARA("る～こと")
			;誰も気にしないかもしれないけど人形用
			PRINTFORML 触手は執拗に%ANAME(ARG:0)%の陰部を責め立て、何本もの移植官を子宮に打ち立てた！
			PRINTFORML 子宮は触手のゆりかごとなり、触手の幼体と成長促進液が流し込まれていく
			PRINTFORML 一晩で元気に育った触手を産みながら、%ANAME(ARG:0)%は絶頂へ達した……
		ELSE
			PRINTFORML 触手は執拗に%ANAME(ARG:0)%の陰部を責め立て、何本もの生殖官を子宮に打ち立てた！
			PRINTFORML 子宮は触手の生産場となり、催淫液、排卵誘発液、生殖精液、成長促進液と様々な液体が流し込まれていく
			PRINTFORML 自分の卵子を利用して増やされた触手を産みながら、%ANAME(ARG:0)%は絶頂へ達した……
		ENDIF
	CASE 21
		PRINTFORML 艶めかしい触手が胸や秘部に吸い付き、%ANAME(ARG:0)%の突起へ無数のキスをし続けている
		PRINTFORML さらに口中に舌のような触手が入り込み、絡みつつ%ANAME(ARG:0)%へ発情効果のある液体を流し込んだ
		PRINTFORML 長時間責め苛められ女として準備が整った%ANAME(ARG:0)%がごくりと喉を鳴らすと
		PRINTFORML 愛液で溢れかえった膣へ、一斉に触手は群がっていった……
	CASE 22
		PRINTFORML 突如%ANAME(ARG:0)%の真上からドロリと白い液体が降り注いだ
		PRINTFORML 見上げると粘着質な液体を纏った触手が何本もこちらに向けて垂れ下がっている
		PRINTFORML 慌て暴れる%ANAME(ARG:0)%だったが、吊るされている状況では逃げる事も出来ず触手に抱きかかえられ
		IF TALENT:(ARG:0):妊娠
			PRINTFORML 大量の精液を注ぎ込まれ、体中が真っ白になるまで撫で回された……
		ELSE
			PRINTFORML 宙で妊婦のようになるまで大量の精液を注ぎ込まれ存分に可愛がられた……
		ENDIF
	CASE 23
		PRINTFORML 腹には魔力を集める魔法陣が描かれており、様々な触手が%ANAME(ARG:0)%の体へと群がっていた
		PRINTFORML 子宮を餌袋にされた%ANAME(ARG:0)%は触手に取り合いをされ、集中して股間を襲われ続けている……
		PRINTFORML 休む間もなく%ANAME(ARG:0)%の蜜壺は犯され、何本もの糸が地面へと滴り零れていた
		IF TALENT:(ARG:0):気丈
			;心折れにくそうな人達用
			PRINTFORML %ANAME(ARG:0)%は必死に抵抗をしたが、触手のフルコースは止まることなく永遠と続いた
		ELSE
			PRINTFORML %ANAME(ARG:0)%は必死に許しを扱いたが、触手のフルコースは止まることなく永遠と続いた
		ENDIF
	CASE 24
		PRINTFORML 拘束された%ANAME(ARG:0)%の下半身には太い触手ががっちりとくいついていた
		IF TALENT:(ARG:0):妊娠
			PRINTFORML 太い触手の先からは無数の細い触手が伸びており、ビチビチと尻穴を掻き回し馴らしている……
			PRINTFORML そして存分に腸内を犯して借巣馴らしを終えた細い触手は、レールになってアナルを押し広げ
		ELSE
			PRINTFORML 太い触手の先からは無数の細い触手が伸びており、ビチビチと子宮膣の底を掻き回し馴らしている……
			PRINTFORML そして存分に胎内を犯して借巣馴らしを終えた細い触手は、レールになって秘唇を押し広げ
		ENDIF
		PRINTFORML プルプル震えながら首を振る%ANAME(ARG:0)%へ大きな触手種を運び込んでいった……
	CASE 25
		PRINTFORML 触手は巧みに%ANAME(ARG:0)%を焦らして絶頂させないようし、お預けを行っていた
		PRINTFORML 加減された愛撫を受け、濃厚な匂い放つ精子にぶっかけられた%ANAME(ARG:0)%は耐えられず太股をすり合わせている
		IF TALENT:(ARG:0):自制心 || TALENT:(ARG:0):一線越えない ||  TALENT:(ARG:0):貞操観念 ||  TALENT:(ARG:0):快感の否定
			;絶対触手なんかに負けたりしない！
			PRINTFORML %ANAME(ARG:0)%は涙を浮かべ、本能から来る誘惑に首を横に振って耐えていたが、
		ELSEIF TALENT:(ARG:0):解放 || TALENT:(ARG:0):快感に素直
			;チョロイン。一部のオンバシラも引っかかるけど良いよね
			PRINTFORML 心を雌として覚醒させられた%ANAME(ARG:0)%は、目にハートを浮かべておねだりをし始めてしまい、
		ELSE
			PRINTFORML 体を雌として覚醒させられた%ANAME(ARG:0)%は、愛液を滴らせながら懇願繰り返し、
		ENDIF
		PRINTFORML 触手が気が狂うような凌辱を開始すると、艶めかしい声を出してそれを受け入れていった……
	CASE 26
		PRINTFORML 足元から無数の触手が這い登り、容赦なくその体を侵食していた
		PRINTFORML 生暖かい精子を何度も体に放たれ、膣内を満たす激しい生殖行為に%ANAME(ARG:0)%は悲鳴を上げている！
		PRINTFORML 背筋を反らせながら%ANAME(ARG:0)%は、触手の狂愛を受けて跳ね続けた……
	CASE 27
		IF ARG:0 == NAME_TO_CHARA("わかさぎ姫")|| ARG:0 == NAME_TO_CHARA("魅魔")
			PRINTFORML 触手達は%ANAME(ARG:0)%の足尾びれを掴んで固定し、股窪みを何度も擦り上げた
		ELSE
			PRINTFORML 触手達は%ANAME(ARG:0)%の足を閉じさせ、出来上がった三角のスキマを何度も擦り上げた
		ENDIF
		PRINTFORML 更に脇の下、お腹を手の形をしたような触手がくすぐり続けている！
		IF TALENT:(ARG:0):気丈
			PRINTFORML ……なんとか刺激に耐え切った%ANAME(ARG:0)%は、きつく触手を睨みつけたが
			PRINTFORML 次に襲い掛かる触手を制しきれず、火照った体を蹂躙された
		ELSE
			PRINTFORML ……次第に体力を消耗し、はーはーとぐったりと項垂れた%ANAME(ARG:0)%は
			PRINTFORML 次に襲い掛かる触手に抵抗も出来ず、火照った体を蹂躙された
		ENDIF
	CASE 28
		PRINTFORML 迫り来る触手に対して%ANAME(ARG:0)%は足で牽制を続けていた
		IF TALENT:(ARG:0):回復遅い
			PRINTFORML しかし無尽蔵な相手を捌き続けるには限界があり、簡単に%ANAME(ARG:0)%の足は捕らえられてしまった！
			PRINTFORML 無茶をする%ANAME(ARG:0)%を気に入った触手は、%ANAME(ARG:0)%の体をじっくりと愛した……
		ELSEIF ABL:(ARG:0):身体 >= 90
			;鬼とかあの辺想定
			PRINTFORML %ANAME(ARG:0)%は長い事抗い続けたが、一瞬の隙を突かれて足を捕らえられてしまった！
			PRINTFORML 実に健康的な肉体を気に入った触手は、子孫を残すため念入りに%ANAME(ARG:0)%の体を愛し始めた……
		ELSE
			PRINTFORML しかし無尽蔵な相手を捌き続けるには限界があり、暫くして疲弊した足は捕らえられてしまった！
			PRINTFORML 元気の良い苗床を気に入った触手は、%ANAME(ARG:0)%の体を限界が来るまで愛し続けた……
		ENDIF
	CASE 29
		PRINTFORML 目玉のついた幾つもの触手が%ANAME(ARG:0)%を取り囲んでいた
		PRINTFORML 触手は%ANAME(ARG:0)%の体を観姦し、じっくり性感帯の解析を行っている……
		IF ARG:0 == NAME_TO_CHARA("こいし")
			PRINTFORML ねっとりとした視線を感じた%ANAME(ARG:0)%は、顔を真っ赤に染めつつ、もじもじと体を捩じらせていたが
		ELSEIF ARG:0 == NAME_TO_CHARA("さとり") || ARG:0 == NAME_TO_CHARA("神子") || ARG:0 == NAME_TO_CHARA("四季映姫") || ARG:0 == NAME_TO_CHARA("紫")
			PRINTFORML 自分の心身を読まれている事に気がついた%ANAME(ARG:0)%は、顔を真っ赤に染めつつ、目玉を睨み返していたが
		ELSE
			PRINTFORML そうとは知らない%ANAME(ARG:0)%は顔を真っ赤に染めつつ、体を強張らせてガードを固めていたが
		ENDIF
		PRINTFORML 解析が終わった触手に弱点を続けて責め立てられ、悶え狂い地獄のような快楽へと導かれていった
	CASE 30
		PRINTFORML 甲板を背負った触手が%ANAME(ARG:0)%の股間へと貞操帯のように吸い付いていた
		PRINTFORML 密着した触手は膣内を何度も犯し、結合部から流れ出すほどに大量の精を放ち続けた！
		PRINTFORML 股に白い滝が出来るほど射精された%ANAME(ARG:0)%は、嗚咽を洩らしながら体を震わせていた……
	CASE 31
		PRINTFORML そして平べったい触手が耳や股間、手の平や足裏に繋がれていた
		PRINTFORML 平べったい触手からはブラシのように短い触手が沢山生えており、触れた面や穴の中を侵食していた
		PRINTFORML 周囲の音を遮断された%ANAME(ARG:0)%の耳には、くちゃくちゃとすぐ近く犯す音だけが響き渡り、
		PRINTFORML 触手のみを身近に感じる感覚に、%ANAME(ARG:0)%は必死に耐えていた……
	CASE 32
		PRINTFORML グロテスクな見た目をした、筋肉質な触手が陰部を嬲り犯して追い詰めている
		PRINTFORML 触手が子宮頭部まで道を大きく広げて突き上がる事に、%ANAME(ARG:0)%の体は跳ね上がり、
		PRINTFORML 奥へ到達するまでに撒き散らされた液体が%ANAME(ARG:0)%の膣内を弛緩させ、体を緩ませていく
		PRINTFORML 触手に体を馴られていく%ANAME(ARG:0)%は、口をパクパクさせながら理性と快楽の境界を彷徨い続けた……
	CASE 33
		PRINTFORML 壁一面から伸びる触手と%ANAME(ARG:0)%は交尾をし続けていた
		PRINTFORML 触手が膣内へ入り、激しく動いて%ANAME(ARG:0)%の絶頂と共に精子を放ち、糸を引いて別れる
		IF ARG:0 == NAME_TO_CHARA("ヤマメ")
			PRINTFORML 幾つもの糸と繋がりながら生殖行為を繰り返す%ANAME(ARG:0)%は、淫靡な蜘蛛の女王のようであった……
		ELSE
			PRINTFORML 何度も生殖行為を繰り返し幾つもの糸と繋がった%ANAME(ARG:0)%は、蜘蛛の巣に捕らえられた獲物のようだった……
		ENDIF
	CASE 34
		PRINTFORML 部屋に連れ込まれた%ANAME(ARG:0)%を、触手達はおもちゃにして弄んでいた……
		PRINTFORML 何度アクメを迎えられるか試すかのように、無数の触手が%ANAME(ARG:0)%を取り囲み責め立てている！
		PRINTFORML %ANAME(ARG:0)%は触手達の凌辱に抗う事も出来ず悶え、壊れたように飛び跳ねていた……
	CASE 35
		PRINTFORML 触手と一緒に閉じ込められた%ANAME(ARG:0)%は徹底的に尻穴を穿られていた
		PRINTFORML 腸内を嘗め回すように触手に舐められ、幾つも触手の卵を植えつけられた
		PRINTFORML そして本来生殖器で無い尻穴で触手の幼体を生まされ、その幼体にまた尻穴を嬲られた！
	CASE 36
		PRINTFORML さらに足を固定された%ANAME(ARG:0)%の腹には、魔方陣が描かれていた
		IF TALENT:(ARG:0):妊娠
			;憑依合体！
			PRINTFORML %ANAME(ARG:0)%に描かれた魔方陣が紅く輝くと、%ANAME(ARG:0)%の子が突然動き始めた
			PRINTFORML 膣口からは触手がチロリと顔を覗かせ、%ANAME(ARG:0)%の体を中から弄んでいる
			PRINTFORML 一時的に胎内の子を触手に変化させられた%ANAME(ARG:0)%は、一晩中子供の戯具となった……
		ELSE
			PRINTFORML %ANAME(ARG:0)%に描かれた魔方陣が紅く輝くと、%ANAME(ARG:0)%の腹は妊婦のように膨れていった
			PRINTFORML 膣口からは触手がチロリと顔を覗かせ、%ANAME(ARG:0)%の体を中から弄んでいる
			PRINTFORML 子宮へ触手と羊水代わりの催淫液を直接召喚された%ANAME(ARG:0)%は、一晩中触手の戯具となった……
		ENDIF
	CASE 37
		IF ARG:0 == NAME_TO_CHARA("上海人形") || ARG:0 == NAME_TO_CHARA("蓬莱人形") || ARG:0 == NAME_TO_CHARA("大江戸人形") || ARG:0 == NAME_TO_CHARA("ゴリアテ人形") || ARG:0 == NAME_TO_CHARA("雛")
			PRINTFORML 弓のように沿った姿勢で%ANAME(ARG:0)%は、循環器のように触手と魔力交換を行っていた。
			PRINTFORML %ANAME(ARG:0)%に流れる魔力を舌のような触手や、乳首や尿道に取り付けられた細長い触手が吸引を行っている
			PRINTFORML そして口、膣穴、尻穴からは漏れ出すほどの精子が注ぎ込まれ、%ANAME(ARG:0)%の魔力を潤した
			PRINTFORML 触手と一体となった%ANAME(ARG:0)%は、真っ赤な顔をして魔力を流し続けた……
		ELSEIF ARG:0 == NAME_TO_CHARA("VIVIT") || ARG:0 == NAME_TO_CHARA("る～こと")
			PRINTFORML 弓のように沿った姿勢で%ANAME(ARG:0)%は、循環器のように触手とエネルギー交換を行っていた。
			PRINTFORML %ANAME(ARG:0)%に流れるエネルギーを舌のような触手や、乳首や尿道に取り付けられた細長い触手が吸引を行っている
			PRINTFORML そして口、膣穴、尻穴からは漏れ出すほどの精子が注ぎ込まれ、%ANAME(ARG:0)%の動力を潤した
			PRINTFORML 触手と一体となった%ANAME(ARG:0)%は、真っ赤な顔をしてエネルギーを交換し続けた……
		ELSE
			PRINTFORML 弓のように沿った姿勢で%ANAME(ARG:0)%は、循環器のように触手と体液交換を行っていた。
			PRINTFORML %ANAME(ARG:0)%から流れる汗や涙を舌のような触手が舐め取り、乳首や尿道には細長い触手が吸引を行っている
			PRINTFORML そして口、膣穴、尻穴からは漏れ出すほどの精子が注ぎ込まれ、%ANAME(ARG:0)%の水分と養分を潤した
			PRINTFORML 触手と一体となった%ANAME(ARG:0)%は、真っ赤な顔をして涙と蜜を流し続けた……
		ENDIF
	CASE 38
		PRINTFORML 触手は%ANAME(ARG:0)%の体を掴み、腹ばいの姿勢で宙へ持ち上げた
		PRINTFORML さらに触手はその周囲を取り囲み、ドームのように覆いつくしてしまった！
		PRINTFORML 密封されたドームの中で腹ばいのまま固定された%ANAME(ARG:0)%は、全方位から揉みくちゃに犯され
		PRINTFORML ぐちゃぐちゃ響き渡る水音を聞きながら、喘ぎ続けて一晩を過ごした……
	CASE 39
		PRINTFORML 足元から巨大な筒のような触手が伸びて%ANAME(ARG:0)%を飲み込んだ！
		PRINTFORML 触手の中で%ANAME(ARG:0)%は乳首やクリトリスを針を刺され、怪しい液体を注入された
		PRINTFORML さらに何本もの触手を体の穴に接続され、%ANAME(ARG:0)%は感覚を改造されていった……
	CASE 40
		PRINTFORML 目の前で瘤を持った触手がパチ、パチと光を灯していた
		PRINTFORML %ANAME(ARG:0)%はそれから何故か目を離すことが出来ず見続けていたが
		PRINTFORML 触手がブツリと%ANAME(ARG:0)%を天井から吊るしたロープを切ると、%ANAME(ARG:0)%の体は別に勝手に動き出し
		PRINTFORML %ANAME(ARG:0)%の意志を無視して奉仕をし始め、自ら触手を咥え込んでしまった……
	CASE 41
		PRINTFORML 部屋の中には蕩けるような目をした妖精達が数匹待機していた
		IF ARG:0 == NAME_TO_CHARA("サニーミルク") || ARG:0 == NAME_TO_CHARA("ルナチャイルド") || ARG:0 == NAME_TO_CHARA("スターサファイア") || ARG:0 == NAME_TO_CHARA("チルノ") || ARG:0 == NAME_TO_CHARA("大妖精") || ARG:0 == NAME_TO_CHARA("クラウンピース") || ARG:0 == NAME_TO_CHARA("リリーホワイト") || ARG:0 == NAME_TO_CHARA("リリーブラック")
			PRINTFORML 妖精達はお芝居をするかのように会話しながら%ANAME(ARG:0)%を愛撫し、協力して体を正常位の形へ固定させた
			PRINTFORML %ANAME(ARG:0)%は同族として説得を試みようとしたが、口に胸を押し付けられ言葉を封じられてしまった……
			PRINTFORML そして一匹の妖精は照れた表情で胎内から触手を出すと、嬉しそうに%ANAME(ARG:0)%の膣へ挿入さえていった！
			PRINTFORML ……%ANAME(ARG:0)%はその後、その他の妖精に見守られながら永遠と触手に犯され、とても可愛らしい声を上げた
		ELSEIF GROUPMATCH(TALENT:(ARG:0):体格, 体格_子供, 体格_小柄)
			PRINTFORML 妖精達は小さな%ANAME(ARG:0)%がちゃんと濡れるようしっかりクンニをすると、かわいいお腹を優しくさすり上げた
			PRINTFORML そして一匹の妖精が微笑んだ表情で胎内から触手を出すと、ジタバタ暴れる%ANAME(ARG:0)%を抱擁しながら触手を導いた
			PRINTFORML ……%ANAME(ARG:0)%はその後、しっかり着床するまで犯され、触手を産む所まで妖精にナビゲートされた
		ELSE
			PRINTFORML 妖精達は甘い声で会話しながら%ANAME(ARG:0)%を愛撫し、協力して体を正常位の形へ固定させた
			PRINTFORML そして一匹の妖精が悦喜の表情で胎内から触手を出すと、顔を引きつらせた%ANAME(ARG:0)%へ飛び込み抱き込んだ！
			PRINTFORML ……%ANAME(ARG:0)%はその後、代わる代わる妖精達全員の隠し納めていた触手に犯しぬかれた
		ENDIF
	CASE 42
		PRINTFORML ちょこんとして目と口がついた触手が%ANAME(ARG:0)%の足元に居た
		PRINTFORML 自分は悪い触手じゃないから選択肢をあげると喋る触手は言い、無数もの凌辱プランを提示した……
		IF TALENT:(ARG:0):虚ろ || TALENT:(ARG:0):崩壊
			PRINTFORML %ANAME(ARG:0)%は話を聞いていないのか、視線をその辺へ漂わせている
			PRINTFORML 喋る触手はこっちで決めておくねと言うと、一番優しい凌辱方を%ANAME(ARG:0)%へけしかけた
		ELSEIF GETBIT(TALENT:(ARG:0):淫乱系, 素質_淫乱_淫乱)
			PRINTFORML %ANAME(ARG:0)%は顔を真っ赤に染め上げつつも、聞くうちに膣蜜が垂れてしまった
			PRINTFORML 喋る触手は聞くまでも無かったねと言いながら、プランを順番に%ANAME(ARG:0)%へけしかけた
		ELSEIF ABL:(ARG:0):性知識 == 0
			PRINTFORML %ANAME(ARG:0)%はそれらの内容を理解しきれず、困惑し続けていると
			PRINTFORML 喋る触手は試した方が早いねと言いながら、プランを順番に%ANAME(ARG:0)%へけしかけた
		ELSEIF ARG:0 == NAME_TO_CHARA("サグメ")
			PRINTFORML %ANAME(ARG:0)%は顔を真っ赤に染め上げ、それらを全て否定すると
			PRINTFORML 喋る触手は仕方ないと言いながら、プランを逆順で%ANAME(ARG:0)%へけしかけた
		ELSE
			PRINTFORML %ANAME(ARG:0)%は顔を真っ赤に染め上げ、それらを全て否定すると
			PRINTFORML 喋る触手は仕方ないと言いながら、プランを順番に%ANAME(ARG:0)%へけしかけた
		ENDIF
	CASE 43
		PRINTFORML 太い触手がグルグルに巻きついて%ANAME(ARG:0)%の全身を筒状に締め上げる……
		PRINTFORML 締め上げた触手はぐるりと上下を回転し、%ANAME(ARG:0)%を底にしたコップのようになった
		PRINTFORML 他の触手達はくちゃくちゃ筒の中身を犯し遊び、シャワーのように粘りある精子を流し込むと
		PRINTFORML %ANAME(ARG:0)%の脚間にプールのような生殖精液の溜まり場を作り出した
		PRINTFORML 下蓋となった%ANAME(ARG:0)%はその中へ新しい触手を産むまで解放されなかった……
	CASE 44
		PRINTFORML 透明の触手が%ANAME(ARG:0)%を犯していた。触手の中には無数の卵があり%ANAME(ARG:0)%の中へと運び込まれている
		PRINTFORML その後、%ANAME(ARG:0)%は別の生殖官に犯され、溢れるほど精子を流しこまれた
		IF TALENT:(ARG:0):妊娠
			PRINTFORML 腸内を触手の受精に使われた%ANAME(ARG:0)%は、濁声を零しながら受精卵を産み落としていった……
		ELSE
			PRINTFORML 胎内を触手の受精に使われた%ANAME(ARG:0)%は、濁声を零しながら受精卵を産み落としていった……
		ENDIF
	CASE 45
		PRINTFORML 触手の袋が地面から開き、%ANAME(ARG:0)%を取り囲むようにして飲み込んだ
		PRINTFORML 袋の中はドロリとした白濁液に満ちており、其処から這い出た触手が%ANAME(ARG:0)%を包み中へと押し込んでゆく
		PRINTFORML 密封された空間で%ANAME(ARG:0)%はまともに体を動かす事も許されず犯され、全身を穢されていった……
	CASE 46
		PRINTFORML 剥いた果実の様に紅い触手が、%ANAME(ARG:0)%からの愛液をてかてかと身に纏い犯し続けている
		PRINTFORML まるで%ANAME(ARG:0)%の中に居るのが正しい姿であるかのように触手は良く馴染んでおり
		IF TALENT:(ARG:0):気丈 || TALENT:(ARG:0):孤高
			PRINTFORML 歯をかみ締めて堪える%ANAME(ARG:0)%の秘唇へと、何度も深いストロークを繰り返した……
		ELSEIF TALENT:(ARG:0):自制心
			PRINTFORML 真っ赤な顔で視線を逸らす%ANAME(ARG:0)%の秘唇へと、何度も深いストロークを繰り返した……
		ELSEIF TALENT:(ARG:0):プライド高い
			PRINTFORML 涙を浮かべ肩で息をする%ANAME(ARG:0)%の秘唇へと、何度も深いストロークを繰り返した……
		ELSE
			PRINTFORML きゃんきゃん泣き喚く%ANAME(ARG:0)%の秘唇へと、何度も深いストロークを繰り返した……
		ENDIF
	CASE 47
		PRINTFORML 不定形な触手に犯された%ANAME(ARG:0)%は、股がトロトロの洪水のようになっていた
		PRINTFORML ジェル状の触手は力ずく胎内に入り込んだ後、重力に任せて体外へ抜け降りを繰り返し
		PRINTFORML %ANAME(ARG:0)%の体へ溶かすような感覚や、強い痒みを与えながら細胞活性化を促している
		PRINTFORML 触手流のエステを受けた%ANAME(ARG:0)%は、激しく乱れ狂っていった……
	CASE 48
		PRINTFORML 部屋の中には目を潤ませた妖精メイドが待機していた
		IF ARG:0 == NAME_TO_CHARA("サニーミルク") || ARG:0 == NAME_TO_CHARA("ルナチャイルド") || ARG:0 == NAME_TO_CHARA("スターサファイア") || ARG:0 == NAME_TO_CHARA("チルノ") || ARG:0 == NAME_TO_CHARA("大妖精") || ARG:0 == NAME_TO_CHARA("クラウンピース") || ARG:0 == NAME_TO_CHARA("リリーホワイト") || ARG:0 == NAME_TO_CHARA("リリーブラック")
			PRINTFORML 妖精メイドは%ANAME(ARG:0)%の体を柔らかい舌で舐めて、綺麗になるまで奉仕した
			PRINTFORML %ANAME(ARG:0)%は同族として説得を試みようとしたが、妖精メイドは全く耳を貸すことなく
			PRINTFORML 首に手を回して%ANAME(ARG:0)%を抱き込むと、胎内に棲んでいる触手を%ANAME(ARG:0)%へ射ち込んだ……
			PRINTFORML ……その後、妖精メイドは触手と巧みな腰を使って一晩中%ANAME(ARG:0)%を責め続けた
		ELSE
			PRINTFORML 妖精メイドは%ANAME(ARG:0)%の体を柔らかい舌で舐めて、綺麗になるまで奉仕すると
			PRINTFORML 失礼します。と言ってスカートをたくし上げ、自分の胎内に棲んでいる触手を%ANAME(ARG:0)%へと見せ付けた……
			PRINTFORML ……その後、妖精メイドは触手と巧みな腰を使って一晩中%ANAME(ARG:0)%を責め続けた
		ENDIF
	CASE 49
		PRINTFORML 吸盤のついた触手が%ANAME(ARG:0)%に覆い被さって張り付き弄んでいた
		PRINTFORML 包み込まれた乳首やクリトリスは充血して立ち上がり、ちゅっぽん、ちゅっぽんと音を出しながら摘み上げられ
		PRINTFORML %ANAME(ARG:0)%の雌穴へ入り込んだ触手は蠢きながら胎内にキスを降らしていった……
	CASE 50
		PRINTFORML 男性の生殖器のような形をした触手が、絶えずグチュグチュと%ANAME(ARG:0)%の腰の奥を掻き回していた
		SELECTCASE GET_BUSTSIZE(ARG:0)
			CASE -2
				PRINTFORML 触手は強い刺激臭の液体を出しながら、%ANAME(ARG:0)%のスレンダーな体を擦り上げ、やさしくオデコや頬にキスを降らせ、
			CASE -1
				PRINTFORML 触手は強い刺激臭の液体を出しながら、%ANAME(ARG:0)%の僅かな胸へ甘えるように液体を擦り付けてマーキングし、
			CASE 0
				PRINTFORML 触手は強い刺激臭の液体を出しながら、%ANAME(ARG:0)%の柔らかな胸に挟まり口を蹂躙し、
			CASE 1
				PRINTFORML 触手は強い刺激臭の液体を出しながら、%ANAME(ARG:0)%の大きな胸を縛り上げ激しく揉みしだき、
			CASE 2 TO 4
				PRINTFORML 触手は強い刺激臭の液体を出しながら、%ANAME(ARG:0)%の乳房にきつく巻きつき、揺らし、乳房を穿り、
		ENDSELECT
		PRINTFORML 部屋中に卑猥な音を響かせて身心を犯して、少しずつ理性を奪っていく……
		PRINTFORML %ANAME(ARG:0)%は触手に慰み者として、一晩ずっと寵愛を受けた……
ENDSELECT

;-------------------------------------------------
;娼館
;-------------------------------------------------
@EVENT_PRISONER_TEXT7(ARG:0)
PRINTFORML %ANAME(ARG:0)%は娼館で働かされている……
PRINTFORML ベッドだけが置かれた簡素な部屋で、%ANAME(ARG:0)%は客を迎え入れた

SIF IS_MALE(ARG:0)
	RETURN

SELECTCASE RAND:7
	CASE 0
		PRINTFORML 客はボロボロの身なりの、どうみても浮浪者と分かるような男だ
		PRINTFORML 一生懸命かき集めた金で、%ANAME(ARG:0)%を買ったのだろう……
		SELECTCASE RAND:7
			CASE 0
				PRINTFORML 目を血走らせた男は、鼻息も荒く%ANAME(ARG:0)%を押し倒す
				PRINTFORML そして唾液で湿らせた%ANAME(ARG:0)%の淫裂に、恥垢まみれのペニスをねじ込んでいった……
			CASE 1
				PRINTFORML 目を血走らせた男は、%ANAME(ARG:0)%に恥垢まみれのペニスを突き出す
				PRINTFORML えづきそうになりながら、%ANAME(ARG:0)%はその唇で、たっぷりと「掃除」をさせられた……
				PRINTFORML その後%ANAME(ARG:0)%は、下の口で、キレイになったペニスの相手をさせられた……
			CASE 2
				PRINTFORML 目を血走らせた男は、%ANAME(ARG:0)%を押し倒す
				PRINTFORML そして四つん這いにした%ANAME(ARG:0)%の菊座に、恥垢まみれのペニスをねじ込んでいった……
			CASE 3
				PRINTFORML 目を血走らせた男は、%ANAME(ARG:0)%に騎乗位で奉仕するよう求める
				PRINTFORML 逆らうわけにもいかず、%ANAME(ARG:0)%は汚れたペニスに自ら奉仕させられた……
			CASE 4
				PRINTFORML 目を血走らせた男は、%ANAME(ARG:0)%の身体をれろれろと舐め回しはじめる
				PRINTFORML 彼女の身体が臭い唾液でどろどろになって、彼はようやく%ANAME(ARG:0)%を貫いた……
			CASE 5
				PRINTFORML 目を血走らせた男は、前戯も早々に%ANAME(ARG:0)%を貫いた
				PRINTFORML 時間が来るまで、%ANAME(ARG:0)%の両穴をひたすらに犯し続けた……
			CASE 6
				PRINTFORML 男は%ANAME(ARG:0)%を貫きながら、愛する人にするようなキスをするよう命令した
				PRINTFORML えづきそうな悪臭を放つ口内を、%ANAME(ARG:0)%はたっぷりと口で愛撫した……
		ENDSELECT
	CASE 1
		PRINTFORML 客は上品な身なりの、白髪の老人だ
		PRINTFORML こんなところに来るような人間には思えないが、その瞳には獣の欲望が宿っている……
		SELECTCASE RAND:7
			CASE 0
				PRINTFORML 老人は四つん這いにした%ANAME(ARG:0)%を貫きながら、その尻を何度も叩いた
				PRINTFORML %ANAME(ARG:0)%が悲鳴をあげるたび、老人は楽しそうに笑っている……
			CASE 1
				PRINTFORML 老人は%ANAME(ARG:0)%を縄で縛り上げ、口枷を嵌め、その両穴を太い張型で抉っている
				PRINTFORML %ANAME(ARG:0)%の艶っぽいくぐもった声を、老人は嘲笑っている……
			CASE 2
				PRINTFORML 老人は%ANAME(ARG:0)%を縛り上げて天井から吊し、三角木馬にかけている
				PRINTFORML 両足に括り付けられた重石が、彼女に苦痛を与える……
			CASE 3
				PRINTFORML 老人は%ANAME(ARG:0)%に自慰を強要している
				PRINTFORML 浅ましく感じている様を、老人はせせら笑っている……
			CASE 4
				PRINTFORML 老人は%ANAME(ARG:0)%を縄で縛り上げ、鞭打っている
				PRINTFORML 肌に刻まれた赤い筋を、老人の赤い舌が這う……
			CASE 5
				PRINTFORML 老人は%ANAME(ARG:0)%に開口器を嵌め、イラマチオしている
				PRINTFORML えづく%ANAME(ARG:0)%を叱咤しながら、喉奥に射精した……
			CASE 6
				PRINTFORML 老人は%ANAME(ARG:0)%を壁に磔にし、犯している
				PRINTFORML 老獪なテクニックに、%ANAME(ARG:0)%は声を抑えられないでいる……
		ENDSELECT
	CASE 2
		PRINTFORML 客は一目で見てそれとわかるようなチンピラだ
		PRINTFORML 男は%ANAME(ARG:0)%を見るなり、「当たり」じゃねぇかと下卑た笑みを浮かべる……
		SELECTCASE RAND:6
			CASE 0
				PRINTFORML 男は%ANAME(ARG:0)%を押し倒すと、秘裂にペニスをねじ込んだ
				PRINTFORML ただひたすら腰を振り、己の快楽を貪っている……
			CASE 1
				PRINTFORML 男は仰向けになると%ANAME(ARG:0)%に騎乗位で奉仕させた
				PRINTFORML 下から突き上げながら、もっと腰を振れよと檄を飛ばしている……
			CASE 2
				PRINTFORML 男は%ANAME(ARG:0)%に、ひたすらに乱暴に腰を振りたくっている
				PRINTFORML 暴力的なまでの「雄」に喘ぐ%ANAME(ARG:0)%を、男は嘲笑っている……
			CASE 3
				PRINTFORML 男は%ANAME(ARG:0)%の口を「使って」いるようだ……
				PRINTFORML 喉奥まで何度も小突かれ、%ANAME(ARG:0)%は目を白黒させている
			CASE 4
				PRINTFORML 男は%ANAME(ARG:0)%を四つん這いにし、覆い被さるようにして腰を打ち付けている
				PRINTFORML 深いところをごりごりと抉られ、%ANAME(ARG:0)%は苦しそうに喘いでいる……
			CASE 5
				PRINTFORML 「ツレ」と称し、男は他にも数人、チンピラを連れてきたようだ
				PRINTFORML %ANAME(ARG:0)%はそのまま、男達に輪姦されてしまった……
		ENDSELECT
	CASE 3
		PRINTFORML 客は年端もいかぬ少年だった
		PRINTFORML なんでこんな子が、とは思うものの、客は客だ。%ANAME(ARG:0)%はもてなすことにした……
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 少年は%ANAME(ARG:0)%に抱きつき、甘えながら腰を振っている
				PRINTFORML %ANAME(ARG:0)%は少年に微笑み、その頭を撫でてやった……
			CASE 1
				PRINTFORML %ANAME(ARG:0)%が少年の小さなモノをかるく舐めてやると、少年はそれだけで腰を震わせる
				PRINTFORML %ANAME(ARG:0)%はそのまま、口の中で何度も少年のモノを果てさせてやった……
			CASE 2
				PRINTFORML 少年はとてつもない巨根の持ち主だった
				PRINTFORML %ANAME(ARG:0)%の雌穴はその形が変わるほど押し広げられている……
			CASE 3
				PRINTFORML %ANAME(ARG:0)%は少年の身体を洗ってやっている
				PRINTFORML %ANAME(ARG:0)%が自らの身体をスポンジ代わりにすると、少年はその刺激だけで達した……
			CASE 4
				PRINTFORML %ANAME(ARG:0)%は少年と熱烈な口づけを交わしている
				PRINTFORML ついでに掌の内で少年のモノを弄んでやると、彼はそれだけで達したようだ……
		ENDSELECT
	CASE 4
		PRINTFORML 客は平凡な青年だった
		PRINTFORML %ANAME(ARG:0)%は娼婦として、客の相手をした……
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 青年は%ANAME(ARG:0)%の肉体に夢中になり、ひたすら腰を振っている
				PRINTFORML %ANAME(ARG:0)%は腰を振り、それに応えている……
			CASE 1
				PRINTFORML %ANAME(ARG:0)%は青年のモノを口で愛している
				PRINTFORML 舌が肉幹を舐め回すと、青年は堪えきれず、%ANAME(ARG:0)%の口内へ精を吐き出した……
			CASE 2
				PRINTFORML %ANAME(ARG:0)%は青年と口づけを交わしながらまぐわっている
				PRINTFORML 青年が呻きながら吐精すると、%ANAME(ARG:0)%もくぐもった声をあげて絶頂舌……
			CASE 3
				PRINTFORML %ANAME(ARG:0)%は青年の上に跨がり、腰を振っている
				PRINTFORML 献身的な態度に、青年は思わず種を放ったようだ……
			CASE 4
				PRINTFORML %ANAME(ARG:0)%は青年と語らっている
				PRINTFORML 彼の夢や不安について聞いてやったあと、することをしたようだ……
		ENDSELECT
	CASE 5
		PRINTFORML 客は成金趣味の中年男だった
		PRINTFORML 男は%ANAME(ARG:0)%を見、たるんだ顔肉を綻ばせた……
		SELECTCASE RAND:6
			CASE 0
				PRINTFORML 男は%ANAME(ARG:0)%に自慰を強要した
				PRINTFORML 下卑た視線の下、彼女は自らの痴態を晒した……
			CASE 1
				PRINTFORML 男は%ANAME(ARG:0)%にのしかかり、腰をうちつけている
				PRINTFORML ずっしりとした抽送に、%ANAME(ARG:0)%は喘がされている……
			CASE 2
				PRINTFORML 男は「ペット」に%ANAME(ARG:0)%をくれてやったようだ
				PRINTFORML 畜生のモノなど、とは思うが、上客の言うことには逆らえず、%ANAME(ARG:0)%は動物と交わらされた……
			CASE 3
				PRINTFORML 男は自らのペニスに蜂蜜をぶちまけ、%ANAME(ARG:0)%に舐め取らせている
				PRINTFORML 口がくどいくらいの甘味に満たされた頃、苦みがほとばしった……
			CASE 4
				PRINTFORML 男は%ANAME(ARG:0)%の身体を器とし、その身体に料理を盛らせた……
				PRINTFORML 箸で%ANAME(ARG:0)%の敏感なところを散々苛めながら料理を楽しんだ後、「器」をデザートとして楽しんだ……
			CASE 5
				PRINTFORML 男は%ANAME(ARG:0)%に泡踊りをさせている
				PRINTFORML 石鹸と男の精液で、%ANAME(ARG:0)%の身体は白く汚れていった……
		ENDSELECT
	CASE 6
		PRINTFORML 客は見目麗しい女性だった
		PRINTFORML だがその股座では、凶悪なほどのペニスがそそり勃っている……
		SELECTCASE RAND:6
			CASE 0
				PRINTFORML %ANAME(ARG:0)%は女性のペニスに何度も小突かれている
				PRINTFORML そこらの男とは比べものにならないほどの「雄」に、%ANAME(ARG:0)%は我を忘れ喘いでいる……
			CASE 1
				PRINTFORML %ANAME(ARG:0)%は女性のモノに口で奉仕している
				PRINTFORML その香りといい放たれる精といいひどく濃厚で、%ANAME(ARG:0)%はくらくらしてしまう……
			CASE 2
				PRINTFORML %ANAME(ARG:0)%と女性は互いに口で奉仕しあっている
				PRINTFORML 女ならではの、どこが感じるのかを分かっている舌使いに、%ANAME(ARG:0)%はひどく乱れさせられる
				PRINTFORML 女性は満足気に、何度も何度も%ANAME(ARG:0)%を絶頂させた……
			CASE 3
				PRINTFORML %ANAME(ARG:0)%は女性に跨がり、雌穴でもって奉仕している
				PRINTFORML 女のペニスに奉仕するという普通ならあり得ない経験が、彼女をひどく昂ぶらせる……
			CASE 4
				PRINTFORML %ANAME(ARG:0)%は女性のペニスを手で愛撫している
				PRINTFORML 相手は間違いなく女だが、今自分が奉仕しているのは雄のソレだ。その倒錯が、%ANAME(ARG:0)%を昂ぶらせる……
			CASE 5
				PRINTFORML %ANAME(ARG:0)%は女性に組み敷かれ、何度も突かれている
				PRINTFORML 女が感じるところを完璧に理解したその腰使いに、%ANAME(ARG:0)%は夢中になっている……
		ENDSELECT
ENDSELECT

;-------------------------------------------------
;搾乳
;-------------------------------------------------
@EVENT_PRISONER_TEXT8(ARG:0)
IF !TALENT:(ARG:0):母乳体質
	PRINTFORML %ANAME(ARG:0)%は母乳体質に作り替える手術を受けている……
ELSE
	SELECTCASE RAND:7
		CASE 0
			PRINTFORML %ANAME(ARG:0)%は強引に搾乳機械に取り付けられ乳を吸われている
		CASE 1
			PRINTFORML 搾乳機から与えられる刺激に%ANAME(ARG:0)%は呻きながら母乳を噴き出している
		CASE 2
			PRINTFORML %ANAME(ARG:0)%はアルコール綿で念入りに乳首を殺菌されている
			PRINTFORML 家畜の様に扱われる事への抵抗も搾乳が始まるとすぐに消え去った
		CASE 3
			PRINTFORML 下準備として%ANAME(ARG:0)%の乳房を念入りにマッサージした
			PRINTFORML 前絞りを捨ててから搾乳機を取り付けると勢いよく母乳が噴き出した
		CASE 4
			PRINTFORML %ANAME(ARG:0)%は搾乳機を目にしただけで乳房が熱くなるのを感じた
			PRINTFORML 本人の意志とは無関係にその体はより家畜らしくなりつつある
		CASE 5
			PRINTFORML %ANAME(ARG:0)%は搾乳後の手入れを受けている
			PRINTFORML 殺菌消毒や触診、搾乳記録等を取られる事に羞恥を覚えたが顔を背ける程度しか許されていなかった
		CASE 6
			PRINTFORML 搾乳機が取り外される
			PRINTFORML ノルマが終わったのかと思う%ANAME(ARG:0)%であったがその乳房を念入りにマッサージされた
			PRINTFORML 息を荒げる%ANAME(ARG:0)%に再び搾乳機が取り付けられると先程よりも勢い良く母乳が噴き出し始めた
	ENDSELECT
ENDIF


code:
;-------------------------------------------------
;;; Emuera組み込みのTRAIN処理を廃止しユーザー関数化したもの
;;; 処理順は概ね以下に従う
;;;https://evilmask.gitlab.io/emuera.em.doc/Emuera/system_flow.html#train
;-------------------------------------------------
@FL_TRAIN
#DIM COM_NUM
#DIMS RESERVED_COM_NAME
#DIMS RESERVED_COM_OPTION
#DIM COM_BEFORE_SUCCEEDED

IF !FLAG:TRAIN_RELOAD
    CALL FL_TRAIN_INIT
    CALL FL_EVENTTRAIN
    VARI I
    FLAG:TRAINEXIT = 0
ELSE
    FLAG:TRAIN_RELOAD = 0
ENDIF

;-------------------------------------------------
;;; TRAINメインループ
;-------------------------------------------------
; #region メインループ
FLAG:TRAINEXEC = 1
WHILE 1
    ;DO_TRAINフラグが立っているなら入力ループから抜ける
    IF !FLAG:DO_TRAIN
        CALL FL_SHOW_STATUS

        ;調教コマンド予約済の場合
        RESERVED_COM_NAME = %LIST_GET(FL_TRAIN_RESERVED_COM_NAME_LIST,0)%
        IF RESERVED_COM_NAME != ""
            ;コマンドオプションを取得
            RESERVED_COM_OPTION = %LIST_GET(FL_TRAIN_RESERVED_COM_OPTION_LIST,0)%
            ;予約コマンド実行設定
            CALL FL_TRAIN_COM_RESERVED(RESERVED_COM_NAME, TOINT(RESERVED_COM_OPTION))
        ELSE
            ;調教コマンドの入力受付
            CALL FL_USERCOM
        ENDIF

        IF FLAG:TRAINEXIT
            BREAK
        ENDIF
        IF FLAG:TRAIN_RELOAD
            BREAK
        ENDIF
        IF !FLAG:DO_TRAIN
            CONTINUE
        ENDIF
    ENDIF

    ;DEBUGPRINTFORML コマンド{SELECTCOM}を実行します
    CALL FL_EVENTCOM_INIT

    ;コマンド実行前の固有処理があれば実行
    COM_BEFORE_SUCCEEDED = 0
    TRYCCALLFORM COM_BEFORE{SELECTCOM}
        COM_BEFORE_SUCCEEDED = RESULT
    CATCH
        COM_BEFORE_SUCCEEDED = 1
    ENDCATCH

    ;コマンド選択完了
    FLAG:DO_TRAIN = 0
    ;COM_BEFOREXXX関数の戻り値が0の場合はコマンド選択に戻る
    SIF COM_BEFORE_SUCCEEDED == 0
        CONTINUE

    ;コマンド実行前共通処理
    CALL FL_EVENTCOM

    ;コマンド実行
    TRYCCALLFORM COM{SELECTCOM}
    CATCH
        DEBUGPRINTFORML 存在しないコマンド{SELECTCOM}が呼び出されました
    ENDCATCH
    ;COM_XXX関数の戻り値が0の場合はコマンド選択に戻る
    SIF RESULT == 0
        CONTINUE

    ;コマンド実行後処理
    ;DEBUGPRINTFORML コマンド{SELECTCOM}の実行が終了しました
    CALL FL_SOURCE_CHECK
    FOR I, 0, CHARANUM
        VARSET SOURCE:I:0, 0
    NEXT
    CALL FL_EVENTCOMEND
    IF FLAG:TRAINEXIT
        BREAK
    ENDIF
WEND
; #endregion

IF !FLAG:TRAIN_RELOAD
    CALL FL_AFTERTRAIN
ENDIF

;-------------------------------------------------
;;; TRAINループ終了処理
;;; TRAINループ内から呼び出された場合は終了フラグを立ててループに返す
;;; TRAINループ外から呼び出された場合は終了処理を直接実行する
;;; TRAINループ外からこの処理を呼び出すのはあまりよろしくないが互換性維持のためやむなし。。。
;-------------------------------------------------
@FL_TRAINEXIT
IF FLAG:TRAINEXEC
    FLAG:TRAINEXEC = 0
    FLAG:TRAINEXIT = 1
    RETURN
ELSE
    CALL FL_AFTERTRAIN
ENDIF

@FL_TRAIN_RELOAD
FLAG:TRAIN_RELOAD = 1
BEGIN SHOP

@FL_AFTERTRAIN
CALL FL_EVENTEND

@FL_TURNEND
JUMP FL_EVENTTURNEND
; DEBUGPRINTFORML @FL_TURNEND END

@FL_TRAIN_INIT
VARI I
VARSET TFLAG
VARSET TSTR
VARSET COM_OPTION_UI
VARSET COM_OPTION
FOR I, 0, CHARANUM
    VARSET PALAM:I:0, 0
    VARSET EX:I:0, 0
    VARSET NOWEX:I:0, 0
    VARSET SOURCE:I:0, 0
    VARSET TCVAR:I:0, 0
    VARSET CUP:I:0, 0
    VARSET CDOWN:I:0, 0
    VARSET DOWNBASE:I:0, 0
NEXT

;-------------------------------------------------
;実行コマンドを設定する
;-------------------------------------------------
@FL_DOTRAIN(COM, OPTION = 0, EQUIP_MODE = -1)
#DIM COM
#DIM OPTION
#DIM EQUIP_MODE ;0=継続, 1=単発

FLAG:DO_TRAIN = 1
;コマンド設定
SELECTCOM = COM
;コマンドオプション設定
IF OPTION
    COM_OPTION:COM = OPTION
ENDIF
;装着フラグ設定
IF EQUIP_MODE >= 0
    TFLAG:非継続フラグ = RESULT
ENDIF

;-------------------------------------------------
;予約済コマンド実行の場合
;-------------------------------------------------
@FL_TRAIN_COM_RESERVED(RESERVED_COM_NAME, RESERVED_COM_OPTION)
#DIMS RESERVED_COM_NAME
#DIM RESERVED_COM_OPTION
#DIM RESERVED_COM_EQUIP_MODE
#DIM RESERVED_COM_NUM

;調教連続実行回数を増加
FL_TRAIN_RESERVED_COM_COUNT ++

;調教連続実行最大回数の文字列を設定(0の場合は∞を表示させる)
LOCALS = \@FL_TRAIN_RESERVED_COM_COUNT_MAX != 0 ? %TOSTR(FL_TRAIN_RESERVED_COM_COUNT_MAX)% # ∞\@

CALL DRAW_LINE(, カラー_注釈)
CALLF TAG_PRINT(@"@C:{カラー_注釈}@◇自動行動 <<%RESERVED_COM_NAME%>> を実行 {FL_TRAIN_RESERVED_COM_COUNT}/%LOCALS% 回目 ※右クリックでキャンセル@/C@",1)
CALL DRAW_LINE(, カラー_注釈)
;入力受付
INPUTS , 1
;右クリックの場合
IF RESULT:1 == 2
    ;全予約コマンドをクリア
    FL_TRAIN_RESERVED_COM_NAME_LIST '= ""
    FL_TRAIN_RESERVED_COM_OPTION_LIST '= ""
    ;調教連続実行回数をクリア
    FL_TRAIN_RESERVED_COM_COUNT = 0
    FL_TRAIN_RESERVED_COM_COUNT_MAX = 0
ELSE
    RESERVED_COM_NUM = T_N(RESERVED_COM_NAME)
    ;継続フラグを取得
    CALL COM_AUTO_GET_EQUIP_MODE(RESERVED_COM_NUM, MPLY:0)
    RESERVED_COM_EQUIP_MODE = RESULT
    ;予約コマンドを更新
    FL_TRAIN_RESERVED_COM_NAME_LIST = %LIST_REMOVEAT(FL_TRAIN_RESERVED_COM_NAME_LIST,0)%
    FL_TRAIN_RESERVED_COM_OPTION_LIST = %LIST_REMOVEAT(FL_TRAIN_RESERVED_COM_OPTION_LIST,0)%
    ;調教連続実行回数の最大値に到達
    IF FL_TRAIN_RESERVED_COM_COUNT_MAX != 0 && FL_TRAIN_RESERVED_COM_COUNT == FL_TRAIN_RESERVED_COM_COUNT_MAX
        FL_TRAIN_RESERVED_COM_COUNT = 0
        FL_TRAIN_RESERVED_COM_COUNT_MAX = 0
    ENDIF
    ;実行コマンドを設定
    CALL FL_DOTRAIN(RESERVED_COM_NUM, RESERVED_COM_OPTION, RESERVED_COM_EQUIP_MODE)
ENDIF

repo_name: pervysquirrelz/erafl

license: unknown


code:
;予約調教コマンド名リスト
#DIMS FL_TRAIN_RESERVED_COM_NAME_LIST
;予約調教コマンドオプション番号リスト
#DIMS FL_TRAIN_RESERVED_COM_OPTION_LIST
;予約調教コマンドの現在の回数
#DIM FL_TRAIN_RESERVED_COM_COUNT
;予約調教コマンドの最大個数
#DIM FL_TRAIN_RESERVED_COM_COUNT_MAX


code:
@FL_INIT_LOADER
CALL SKILL_XML_LOAD

FOR LOCAL, 0, 6000
    IF EXISTFUNCTION(@"KOJO_DEFINE_K{LOCAL}")
        TRYCALLFORM KOJO_DEFINE_K{LOCAL}
    ENDIF
NEXT

;データベース読み込み
CALL CREATE_CC_ENEMY_DATA_TABLE()
;CALL CC_REGIST_ENEMY_ROUTINE()
CALL CREATE_EQUIP_DATA_TABLE()

@SKILL_XML_LOAD

XML_RELEASE XMLID_SKILL_LIFE
XML_RELEASE XMLID_SKILL_BATTLE
XML_RELEASE XMLID_SKILL_QUEST
XML_RELEASE XMLID_SKILL_LEWD
XML_RELEASE XMLID_WPN_SKILL_PASSIVE

;キャラスキル
;戦闘系スキル
VARS XML_SKILL_BATTLE
VARI FILE_COUNT
VARS DOCS, 100
XML_SKILL_BATTLE '= "<skilldef>"
;戦闘系スキル追加分
FILE_COUNT = ENUMFILES("XML", "SKILL_BATTLE*")
ARRAYCOPY "RESULTS", "DOCS"
FOR LOCAL, 0, FILE_COUNT
    LOADTEXT DOCS:LOCAL
    XML_GET RESULTS, "/skilldef", 1, 2
    XML_SKILL_BATTLE += RESULTS
NEXT
XML_SKILL_BATTLE += "</skilldef>"
XML_DOCUMENT XMLID_SKILL_BATTLE, XML_SKILL_BATTLE

;その他スキル
LOADTEXT "XML/SKILL_LIFE.xml"
XML_DOCUMENT XMLID_SKILL_LIFE, RESULTS
LOADTEXT "XML/SKILL_QUEST.xml"
XML_DOCUMENT XMLID_SKILL_QUEST, RESULTS
LOADTEXT "XML/SKILL_LEWD.xml"
XML_DOCUMENT XMLID_SKILL_LEWD, RESULTS
;装備スキル
LOADTEXT "XML/WPN_SKILL_PASSIVE.xml"
XML_DOCUMENT XMLID_WPN_SKILL_PASSIVE, RESULTS
LOADTEXT "XML/WPN_SKILL_ACTIVE.xml"
XML_DOCUMENT XMLID_WPN_SKILL_ACTIVE, RESULTS
;トークン
CALL SKILL_XML_LOAD_FROM_SPLIT_FILES("XML", "TOKEN*.xml", "tokendef", XMLID_TOKEN)
;エネミーデータ
LOADTEXT "XML/ENEMY_DATA.xml"
XML_DOCUMENT XMLID_ENEMY_DATA, RESULTS

@SKILL_XML_LOAD_FROM_SPLIT_FILES(DIR, PATTERN, XML_ROOT_ELEMENT, XMLID)
#DIMS DIR
#DIMS PATTERN
#DIMS XML_ROOT_ELEMENT
#DIM  XMLID

#DIMS DYNAMIC XML_
#DIMS DYNAMIC DOCS, 100
#DIM  DYNAMIC FILE_COUNT
VARSET RESULTS

FILE_COUNT = ENUMFILES(DIR, PATTERN)
SIF FILE_COUNT == 0
    THROW @KOJO_XML_REGISTER_FROM_SPLIT_FILES パス(%DIR%)に条件(%PATTERN%)を満たすファイルが存在しません

ARRAYCOPY "RESULTS", "DOCS"
XML_RELEASE XMLID
XML_ '= @"<%XML_ROOT_ELEMENT%>"

FOR LOCAL, 0, FILE_COUNT
    LOADTEXT DOCS:LOCAL
    XML_GET RESULTS, @"/%XML_ROOT_ELEMENT%", 1, 2
    XML_ += RESULTS
    DEBUGPRINTFORML @KOJO_XML_REGISTER_FROM_SPLIT_FILES %DOCS:LOCAL% REGISTED
NEXT
XML_ += @"</%XML_ROOT_ELEMENT%>"
XML_DOCUMENT XMLID, XML_

;DEBUGPRINTFORML %XML_%

;;;@ARGS XML_PATH
;;;@ARG CHARA_NO キャラ番号(キャラ登録番号ではない。 例)リュミエールは1,エルは7)
;;;@ARG KOJO_CLASS
@KOJO_XML_REGISTER(XML_PATH, CHARA_NO, KOJO_CLASS)
#DIM CHARA_NO
#DIMS XML_PATH
#DIM KOJO_CLASS
#DIM XMLID

IF EXISTFILE(XML_PATH)
    XMLID = XMLID_KOJO + (CHARA_NO * 10) + KOJO_CLASS
    XML_RELEASE XMLID
    LOADTEXT XML_PATH
    XML_DOCUMENT XMLID, RESULTS
    DEBUGPRINTFORML @KOJO_XML_REGISTER:KOJO_CLASS({XMLID})REGISTED
ELSE
    PRINTFORML キャラ番号:{CHARA_NO},パス:%XML_PATH%
    THROW @KOJO_XML_REGISTERに与えられたパス指定に誤りがあります
ENDIF

@KOJO_XML_REGISTER_FROM_SPLIT_FILES(DIR, PATTERN, XML_ROOT_ELEMENT, CHARA_NO, KOJO_CLASS)
#DIMS DIR
#DIMS PATTERN
#DIMS XML_ROOT_ELEMENT
#DIM CHARA_NO
#DIM KOJO_CLASS
#DIM XMLID

#DIMS DYNAMIC XML_
#DIMS DYNAMIC DOCS, 100
#DIM  DYNAMIC FILE_COUNT
VARSET RESULTS

FILE_COUNT = ENUMFILES(DIR, PATTERN)
SIF FILE_COUNT == 0
    THROW @KOJO_XML_REGISTER_FROM_SPLIT_FILES パス(%DIR%)に条件(%PATTERN%)を満たすファイルが存在しません

ARRAYCOPY "RESULTS", "DOCS"
XMLID = XMLID_KOJO + (CHARA_NO * 10) + KOJO_CLASS
XML_RELEASE XMLID
XML_ '= @"<%XML_ROOT_ELEMENT%>"

FOR LOCAL, 0, FILE_COUNT
    LOADTEXT DOCS:LOCAL
    XML_GET RESULTS, @"/%XML_ROOT_ELEMENT%", 1, 2
    XML_ += RESULTS
    DEBUGPRINTFORML @KOJO_XML_REGISTER_FROM_SPLIT_FILES %DOCS:LOCAL% REGISTED
NEXT
XML_ += @"</%XML_ROOT_ELEMENT%>"
XML_DOCUMENT XMLID, XML_

;DEBUGPRINTFORML %XML_%


code:
;XML_DOCUMENT ID の管理
#DIM CONST XMLID_SKILL_BATTLE    = 1
#DIM CONST XMLID_SKILL_LIFE      = 2
#DIM CONST XMLID_SKILL_QUEST     = 3
#DIM CONST XMLID_SKILL_LEWD      = 4
#DIM CONST XMLID_WPN_SKILL_PASSIVE      = 10
#DIM CONST XMLID_WPN_SKILL_ACTIVE       = 11

#DIM CONST XMLID_TOKEN           = 20

#DIM CONST XMLID_ENEMY_DATA      = 30

#DIM CONST XMLID_KOJO = 100000
#DIM CONST XMLID_KOJO_CLASS_COM   = 0
#DIM CONST XMLID_KOJO_CLASS_EVENT = 1
#DIM CONST XMLID_KOJO_CLASS_COMBAT = 2


code:
;-------------------------------------------------
; 音楽・サウンド関連
;-------------------------------------------------
;VOLUMEは百分率指定
@FL_PLAYSE(FILENAME, VOLUME = 0, CATEGORY = "", LOOP_NUM = 1)
#DIMS FILENAME
#DIM  VOLUME
#DIMS CATEGORY
#DIM  LOOP_NUM

SIF FLCONFIG:サウンドを再生しない
    RETURN 0
SIF CATEGORY == "SEX" && FLCONFIG:性交のサウンドを再生しない
    RETURN 0
SIF !EXISTSOUND(FILENAME)
    RETURN 0
IF !VOLUME
    SETSOUNDVOLUME FLCONFIG:SEの音量
ELSE
    SETSOUNDVOLUME FTIMES(FLCONFIG:SEの音量, VOLUME)
ENDIF

PLAYSOUND FILENAME, LOOP_NUM
RETURN 1

;VOLUMEは百分率指定
@FL_PLAYBGM(FILENAME, VOLUME = 0)
#DIMS FILENAME
#DIM  VOLUME

SIF FLCONFIG:サウンドを再生しない
    RETURN 0
SIF !EXISTSOUND(FILENAME)
    RETURN 0
SIF FILENAME == FL_NOWBGM
    RETURN 0
IF FL_NOWBGM != ""
    FL_PREVBGM = %FL_NOWBGM%
ENDIF
FL_NOWBGM = %FILENAME%
IF !VOLUME
    SETBGMVOLUME FLCONFIG:BGMの音量
ELSE
    SETBGMVOLUME FTIMES(FLCONFIG:BGMの音量, VOLUME)
ENDIF
PLAYBGM FILENAME
RETURN 1

@FL_PAUSEBGM(FADE_WAIT = 75)
#DIM FADE_WAIT

SIF FLCONFIG:サウンドを再生しない
    RETURN 0
SIF FL_NOWBGM == ""
    RETURN 0
FL_PREVBGM = %FL_NOWBGM%
CALL FL_STOPBGM(FADE_WAIT)

@FL_REPLAYBGM
SIF FLCONFIG:サウンドを再生しない
    RETURN 0
SIF FL_PREVBGM == ""
    RETURN 0
CALL FL_PLAYBGM(FL_PREVBGM)

@FL_STOPBGM(FADE_WAIT = 75)
#DIM FADE_WAIT
SIF FLCONFIG:サウンドを再生しない
    RETURN 0
SIF FL_NOWBGM == ""
    RETURN 0
IF FADE_WAIT
    ;フェードアウト
    SETBGMVOLUME FLCONFIG:BGMの音量 / 4 * 3
    TWAIT FADE_WAIT, 0
    SETBGMVOLUME FLCONFIG:BGMの音量 / 4 * 2
    TWAIT FADE_WAIT, 0
    SETBGMVOLUME FLCONFIG:BGMの音量 / 4 * 1
    TWAIT FADE_WAIT, 0
ENDIF
STOPBGM

FL_NOWBGM '= ""
RETURN


code:
;DEBUG_MODE起動時に調教画面のデバッグボダンから呼ばれるメニュー
@FL_TRAIN_DEBUG_MENU
#DIM CHARA_ID
#DIM RESERVED_MPLY, MAX_ACTOR
#DIM RESERVED_MTAR, MAX_ACTOR
#DIM RESERVER_MPLY_NUM
#DIM RESERVER_MTAR_NUM
{
    CALL ASK_MULTI(
        "XML再読み込み"
        , "口上XML全文出力"
        , "調教処理リロード"
        , "キャンセル")
}
SELECTCASE RESULT
    CASE 0
        CALL FL_INIT_LOADER()
        PRINTFORMW XML FILES RELOADED
    CASE 1
        PRINTL 入力されたCHARA_IDのキャラクターに口上XMLが割り当てられている場合
        PRINTL 条件に関わらず全量の出力を試みます
        PRINTL 構文エラーチェック等に使用してください
        PRINTL
        PRINTL ※特定のキャラクターの存在を前提とした口上などは正常に出力されない可能性があります
        PRINTL
        PRINTL CHARA_IDを数値入力してください(未入力でキャンセル)
        WHILE 1
            INPUTS
            CHARA_ID = TOINT(RESULTS)
            IF CHARA_ID >= 0 && ISNUMERIC(RESULTS)
                ;口上出力確認用にダミーのMPLYとMTARを設定
                ARRAYCOPY "MPLY", "RESERVED_MPLY"
                ARRAYCOPY "MTAR", "RESERVED_MTAR"
                RESERVER_MPLY_NUM = MPLY_NUM
                RESERVER_MTAR_NUM = MTAR_NUM
                VARSET MPLY, 0
                VARSET MTAR, 0
                MPLY_NUM = MAX_ACTOR
                MTAR_NUM = MAX_ACTOR

                ;口上出力
                CALL KOJO_XML_DEBUG_PRINT(CHARA_ID)
                IF RESULT == -1
                    PRINTW 対応する口上XMLが存在しません
                    CLEARLINE 1
                ELSE
                    BREAK
                ENDIF

                ;ダミーのMPLYとMTARを元に戻す
                ARRAYCOPY "RESERVED_MPLY", "MPLY"
                ARRAYCOPY "RESERVED_MTAR", "MTAR"
                MPLY_NUM = RESERVER_MPLY_NUM
                MTAR_NUM = RESERVER_MTAR_NUM
            ELSE
                PRINTW 出力をキャンセルします
                BREAK
            ENDIF
        WEND
    CASE 2
        CALL FL_TRAIN_RELOAD()
    CASEELSE

ENDSELECT


code:
;-------------------------------------------------
;@ATTITUDE
; 様々な状況における表向きの態度(前向きか、消極的か)を素質から判定しスコアで返す
; 恥ずかしがりながらxxするとか喜んでxxするとかを決めるために使用
; RESULT:0 態度値 …　高いほど積極的
; RESULT:1 外向値 …　高いほど態度を表立って表明し、行動を改めさせようとする
;                   低いほど内省的に振る舞う
;
; EX.態度高、外向高　…　積極的に賛成し、喜んで実行する
;    態度低、外向高　…　激しく反対し、明確な態度を示し行動を改めさせようとする
;    態度高、外向低　…　積極的に賛成するが、賛成の態度は隠そうとする(羞恥など)
;    態度低、外向低　…　激しく反対するが自身の参与を拒むにとどまる
;-------------------------------------------------
;region @ATTITUDE
@ATTITUDE(CHARA_ID, SITUATION)
#FUNCTION
#DIMS SITUATION
#DIM  CHARA_ID
#DIMS DYNAMIC TALENT_NAME
#DIM  DYNAMIC 態度値
#DIM  DYNAMIC 外向値

;態度値の算出
FOR LOCAL, 0, 300
    SIF TALENTNAME:LOCAL == ""
        CONTINUE
    IF TALENT:CHARA_ID:LOCAL
        TRYCALLFORMF ATTITUDE_%SITUATION%(TALENTNAME:LOCAL, CHARA_ID)
        態度値 += RESULT
    ENDIF
NEXT
FOR LOCAL, 0, VARSIZE("SEX_TALENT_NAME")
    IF C_COND(@"素質:%SEX_TALENT_NAME:LOCAL%",, CHARA_ID)
        TRYCALLFORMF ATTITUDE_%SITUATION%(SEX_TALENT_NAME:LOCAL, CHARA_ID)
        態度値 += RESULT
    ENDIF
NEXT

;外向値の算出
FOR LOCAL, 0, 300
    SIF TALENTNAME:LOCAL == ""
        CONTINUE
    IF TALENT:CHARA_ID:LOCAL
        TRYCALLFORMF ATTITUDE_OPENESS_%SITUATION%(TALENTNAME:LOCAL, CHARA_ID, 態度値)
        外向値 += RESULT
    ENDIF
NEXT
FOR LOCAL, 0, VARSIZE("SEX_TALENT_NAME")
    IF C_COND(@"素質:%SEX_TALENT_NAME:LOCAL%",, CHARA_ID)
        TRYCALLFORMF ATTITUDE_OPENESS_%SITUATION%(SEX_TALENT_NAME:LOCAL, CHARA_ID, 態度値)
        外向値 += RESULT
    ENDIF
NEXT

;;算出後補正
;外向値が中立になる素質
SIF TALENT:CHARA_ID:無関心
    外向値 /= 2
SIF TALENT:CHARA_ID:感情乏しい
    外向値 /= 3
;なんの感情も示さない素質
IF TALENT:CHARA_ID:虚ろ || TALENT:CHARA_ID:崩壊 || TALENT:CHARA_ID:動物
    態度値 = 0
    外向値 = 0
ENDIF

RESULT:0 = 態度値
RESULT:1 = 外向値
RETURNF 態度値
;#endregion

; #region @ATTITUDE_性行為
@ATTITUDE_性行為(TALENT_NAME, CHARA_ID)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  DYNAMIC 態度値

SELECTCASE TALENT_NAME
        ;弱い賛意、反意
    CASE "好奇心","解放"
        態度値 += 1
    CASE "抑圧", "保守的"
        態度値 -= 1
        ;一定の賛意、反意
    CASE "恥薄い", "小悪魔"
        態度値 += 2
    CASE "恥じらい"
        態度値 -= 2
        ;強い賛意、反意
    CASE "貞操無頓着"
        態度値 += 3
    CASE "貞操観念", "孤高"
        態度値 -= 3
        ;極めて強い賛意、反意
    CASE "淫乱"
        態度値 += 4
    CASE "憎悪"
        態度値 -= 4
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 態度値
RETURNF 態度値

@ATTITUDE_OPENESS_性行為(TALENT_NAME, CHARA_ID, 態度値)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  態度値
#DIM  DYNAMIC 外向値

SELECTCASE TALENT_NAME
        ;わずかな向性
    CASE "解放"
        外向値 += 1
    CASE "抑圧", "保守的"
        外向値 -= 1
        ;一定の向性
    CASE "好奇心", "恥薄い", "小悪魔", "目立ちたがり", "プライド高い"
        外向値 += 2
    CASE "恥じらい", "大人しい", "プライド低い", "臆病"
        外向値 -= 2
        ;反意は表立って表明、賛意は消極的に表明
    CASE "反抗的", "ツンデレ", "生意気"
        外向値 = 態度値 > 0 ? 外向値 - 1 # 外向値 + 2
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 外向値
RETURNF 外向値
;#endregion

; #region @ATTITUDE_露出
@ATTITUDE_露出(TALENT_NAME, CHARA_ID)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  DYNAMIC 態度値

SELECTCASE TALENT_NAME
        ;弱い賛意、反意
    CASE "好奇心","解放"
        態度値 += 1
        ;一定の賛意、反意
    CASE "恥薄い", "小悪魔", "目立ちたがり"
        態度値 += 2
    CASE "恥じらい", "抑圧", "保守的", "貞操無頓着", "生意気"
        態度値 -= 2
        ;強い賛意、反意
    CASE "貞操観念", "孤高", "プライド高い", "反抗的"
        態度値 -= 3
        ;極めて強い賛意、反意
    CASE "露出狂"
        態度値 += 6
    CASE "憎悪"
        態度値 -= 6
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 態度値
RETURNF 態度値

@ATTITUDE_OPENESS_露出(TALENT_NAME, CHARA_ID, 態度値)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  態度値
#DIM  DYNAMIC 外向値

SELECTCASE TALENT_NAME
        ;わずかな向性
    CASE "好奇心"
        外向値 += 1
        ;一定の向性
    CASE "恥薄い", "小悪魔", "目立ちたがり", "解放", "プライド高い"
        外向値 += 2
    CASE "恥じらい", "大人しい", "プライド低い", "臆病"
        外向値 -= 2
        ;反意は表立って表明、賛意は消極的に表明
    CASE "反抗的", "ツンデレ", "生意気", "抑圧", "保守的", "憎悪"
        外向値 = 態度値 > 0 ? 外向値 - 1 # 外向値 + 2
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 外向値
RETURNF 外向値
;#endregion

; #region @ATTITUDE_娯楽
@ATTITUDE_娯楽(TALENT_NAME, CHARA_ID)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  DYNAMIC 態度値

SELECTCASE TALENT_NAME
        ;弱い賛意
    CASE "DUMMY"
        態度値 += 1
        ;弱い反意
    CASE "DUMMY"
        ;一定の賛意
    CASE "小悪魔", "目立ちたがり", "解放", "素直"
        態度値 += 2
        ;一定の反意
    CASE "抑圧", "生意気"
        態度値 -= 2
        ;強い賛意
    CASE "好奇心"
        態度値 += 3
        ;強い反意
    CASE "孤高", "反抗的"
        態度値 -= 3
        ;極めて強い賛意
    CASE "DUMMY"
        態度値 += 4
        ;極めて強い反意
    CASE "憎悪"
        態度値 -= 4
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 態度値
RETURNF 態度値

@ATTITUDE_OPENESS_娯楽(TALENT_NAME, CHARA_ID, 態度値)
#FUNCTION
#DIMS TALENT_NAME
#DIM  CHARA_ID
#DIM  態度値
#DIM  DYNAMIC 外向値

SELECTCASE TALENT_NAME
        ;わずかな外向性
    CASE "DUMMY"
        外向値 += 1
        ;わずかな内向性
    CASE "DUMMY"
        外向値 -= 1
        ;一定の外向性
    CASE "小悪魔", "目立ちたがり", "解放", "好奇心", "素直"
        外向値 += 2
        ;一定の内向性
    CASE "大人しい", "臆病", "抑圧"
        外向値 -= 2
        ;強い外向性
    CASE "プライド高い", "気丈"
        外向値 += 3
        ;強い内向性
    CASE "DUMMY"
        ;反意は表立って表明、賛意は消極的に表明
    CASE "反抗的", "ツンデレ", "生意気", "孤高", "憎悪"
        外向値 = 態度値 > 0 ? 外向値 - 1 # 外向値 + 3
ENDSELECT
;TRYCALLFORMFはRESULTを返さないので明示的にRESULT:0をセットする
RESULT:0 = 外向値
RETURNF 外向値
;#endregion


code:
;-------------------------------------------------
;セックスしました的なシーンで汎用的に用いる関数
;部位文字列には加算したい経験値をカンマ区切りで記述
;追加処理文字列にはその他追加の処理をカンマ区切りで記述
;膣内射精相手IDは追加処理文字列に膣内射精を含めた場合に使用
;キス相手、セックス相手、シチュはそれぞれ対象が「キス喪失」「処女喪失」「Ａ処女喪失」を指定した場合に使用。
;-------------------------------------------------
@FUCK(対象, 経験値文字列, 追加処理文字列, 膣内射精相手ID = 0, キス相手 = "", セックス相手 = "", 童貞相手 = "", シチュ = "", メッセージ表示 = 0)
#DIM 対象
#DIMS 経験値文字列
#DIMS 追加処理文字列
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
#DIMS 童貞相手
#DIMS シチュ
#DIM  メッセージ表示

CALL FUCK_EXP_PROCESS(対象, 経験値文字列)
CALL FUCK_EXTRA_PROCESS(対象, 経験値文字列, 追加処理文字列, 膣内射精相手ID, キス相手, セックス相手, 童貞相手, シチュ)
CALL TRAIN_AUTO_ABLUP(対象, メッセージ表示)
CALL CHECK_SEXUAL_PREFERENCE(対象)
;-------------------------------------------------
;特殊勢力用ラッパー
;-------------------------------------------------
@FUCK_SP(対象, 経験値文字列, 追加処理文字列, 勢力番号, 膣内射精相手ID = 0, キス相手 = "", セックス相手 = "", 童貞相手 = "", シチュ = "")
#DIM 対象
#DIMS 経験値文字列
#DIMS 追加処理文字列
#DIM 勢力番号
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
#DIMS 童貞相手
#DIMS シチュ
ABL:対象:主導度Ｎ -= (15 + RAND:15) * (MIN(2 , (TALENT:対象:Ｍ気質 + TALENT:対象:臆病 + TALENT:対象:痛みに弱い + TALENT:対象:貞操観念 + TALENT:対象:悲観的)) + 2) / (TALENT:対象:気丈 * 2 + TALENT:対象:貞操無頓着 + TALENT:対象:プライド低い + TALENT:対象:感情乏しい + IS_FALLEN_TO_SP_COUNTRY(対象) * 3 + 1) / MAX(1 , SP_TRAIN_COUNT:対象:SP_COUNTRY_TO_CONST(勢力番号))
ABL:対象:主導度Ｕ -= (10 + RAND:10) * (MIN(3 , (TALENT:対象:Ｍ気質 + TALENT:対象:倒錯的 + TALENT:対象:解放 + TALENT:対象:快感に素直 + TALENT:対象:中毒しやすい + TALENT:対象:臆病 + TALENT:対象:痛みに弱い)) + 3) / (TALENT:対象:自制心 + TALENT:対象:気丈 + TALENT:対象:感情乏しい + IS_FALLEN_TO_SP_COUNTRY(対象) * 3 + 1) / MAX(1 , SP_TRAIN_COUNT:対象:SP_COUNTRY_TO_CONST(勢力番号))
ABL:対象:倒錯度 += (10 + RAND:5) * MIN(5 , (TALENT:対象:Ｍ気質 + TALENT:対象:倒錯的 + TALENT:対象:解放 + TALENT:対象:快感に素直 + TALENT:対象:中毒しやすい) * 2 + 1) / (TALENT:対象:自制心 + TALENT:対象:無関心 + TALENT:対象:感情乏しい + IS_FALLEN_TO_SP_COUNTRY(対象) * 3 + 1) / MAX(1 , SP_TRAIN_COUNT:対象:SP_COUNTRY_TO_CONST(勢力番号) - 2)
ABL:対象:主導度Ｎ = LIMIT(ABL:対象:主導度Ｎ, -1000, 1000)
ABL:対象:主導度Ｕ = LIMIT(ABL:対象:主導度Ｕ, -1000, 1000)
ABL:対象:倒錯度 = LIMIT(ABL:対象:倒錯度, 0, 1000)
IF SP_TRAIN_IS_DECREASE_CFLAG(対象, 勢力番号)
	追加処理文字列 '= 追加処理文字列 + ", CFLAG減少"
	IF CFLAG:対象:所属 == 勢力番号
		CALL CHANGE_RELATION_O_TO_C(対象, 勢力番号, 30, -30)
	ELSE
		CALL CHANGE_RELATION_O_TO_C(対象, 勢力番号, 30, -30)
		CALL CHANGE_RELATION_O_TO_C(対象, CFLAG:対象:所属, -30, 30)
	ENDIF
ENDIF
CALL FUCK(対象, 経験値文字列, 追加処理文字列, 膣内射精相手ID, キス相手, セックス相手, 童貞相手, シチュ)

;-------------------------------------------------
;FUCKの糖衣用
;レイプ
;-------------------------------------------------
@FUCK_RAPE(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失, CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "強姦")

;-------------------------------------------------
;FUCKの糖衣用
;レイプに避妊つけただけ
;-------------------------------------------------
@FUCK_RAPE_HININ(対象, キス相手, セックス相手)
#DIM 対象
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失, CFLAG減少, 性癖取得, 腸内射精, 口内射精", GET_SPERM_ID("不明"), キス相手, セックス相手,  "", "強姦")

;-------------------------------------------------
;FUCKの糖衣用
;レイプに獣姦つけただけ
;-------------------------------------------------
@FUCK_BEAST(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 獣姦, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失, CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手,  "", "強姦")

;-------------------------------------------------
;FUCKの糖衣用
;レイプに触手つけただけ
;-------------------------------------------------
@FUCK_TENTACLE(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 触手, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失, CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "強姦")

;-------------------------------------------------
;FUCKの糖衣用
;輪姦
;-------------------------------------------------
@FUCK_GANGBANG(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失,  CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "輪姦")

;-------------------------------------------------
;FUCKの糖衣用
;輪姦からCFLAG減少を抜いたもの
;-------------------------------------------------
;@FUCK_GANGBANG_NO_DECREASE_CFLAG(対象, 膣内射精相手ID, キス相手, セックス相手)
;#DIM 対象
;#DIM 膣内射精相手ID
;#DIMS キス相手
;#DIMS セックス相手
;CALL FUCK(対象, "欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦", "キス喪失, 処女喪失, Ａ処女喪失,  CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "輪姦")

;-------------------------------------------------
;FUCKの糖衣用
;乱交
;-------------------------------------------------
@FUCK_GROUP(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ レズ, Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失,  CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "乱交")

;-------------------------------------------------
;FUCKの糖衣用
;和姦
;-------------------------------------------------
@FUCK_MAKELOVE(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, "欲望, 奉仕, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, 性交, 精愛, 射精, キス, 口淫, Ｖ性交, Ａ性交, レズ, ＢＬ", "キス喪失, 処女喪失, Ａ処女喪失, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "和姦")

;-------------------------------------------------
;FUCKの糖衣用
;レイプのシチュを調教にしただけ
;-------------------------------------------------
@FUCK_TRAIN(対象, 膣内射精相手ID, キス相手, セックス相手)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
CALL FUCK(対象, @"欲望, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, Ｖ性交, Ａ性交", "キス喪失, 処女喪失, Ａ処女喪失, CFLAG減少, 性癖取得, 膣内射精, 腸内射精, 口内射精", 膣内射精相手ID, キス相手, セックス相手, "", "調教")

;-------------------------------------------------
;FUCKの糖衣用
;特殊勢力による輪姦
;-------------------------------------------------
@FUCK_GANGBANG_SP(対象, 膣内射精相手ID, キス相手, セックス相手, 勢力番号)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
#DIM 勢力番号

LOCALS '= "キス喪失, 処女喪失, Ａ処女喪失, 性癖取得, 膣内射精"
SIF SP_TRAIN_IS_DECREASE_CFLAG(勢力番号)
	LOCALS '= LOCALS + ", CFLAG減少"
CALL FUCK(対象, @"欲望, 奉仕, 性技, Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, 自慰, 精愛, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, Ｖ性交, Ａ性交", LOCALS, 膣内射精相手ID, キス相手, セックス相手, "", "輪姦")

;-------------------------------------------------
;FUCKの糖衣用
;特殊勢力による輪姦 レズ版
;-------------------------------------------------
@FUCK_GANGBANG_LES_SP(対象, 膣内射精相手ID, キス相手, セックス相手, 勢力番号)
#DIM 対象
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
#DIM 勢力番号

LOCALS '= "キス喪失, 処女喪失, Ａ処女喪失, 性癖取得"
SIF SP_TRAIN_IS_DECREASE_CFLAG(勢力番号)
	LOCALS '= LOCALS + ", CFLAG減少"
CALL FUCK(対象, @"Ｃ, Ｖ, Ａ, Ｂ, Ｍ, \@ !RAND:3 ? Ｕ, # \@ Ｖ拡張, Ａ拡張, 性交, レズ, 自慰, 露出, 排泄, 射精, 苦痛快楽, 緊縛, マゾ, キス, 口淫, 輪姦", LOCALS, 膣内射精相手ID, キス相手, セックス相手, "", "輪姦")

;-------------------------------------------------
;FUCKの糖衣用
;特殊勢力による輪姦 レズ版
;-------------------------------------------------
@FUCK_MAKELOVE_LES(対象, セックス相手)
#DIM 対象
#DIM セックス相手

CALL FUCK(対象, @"Ｃ, Ｂ, Ｍ, 欲望, 奉仕, 性技, レズ, 露出, キス, 口淫", "キス喪失, 性癖取得", セックス相手, @"%ANAME(セックス相手)%の唇", @"%ANAME(セックス相手)%の膣", "", "和姦")

;-------------------------------------------------
;FUCKの糖衣用
;性行為を伴わないＳＭのＳ側
;-------------------------------------------------
@FUCK_SM_S(対象, 調教相手)
#DIM 対象
#DIM 調教相手
CALL FUCK(対象, @"欲望, 性技, サド, キス, レズ, ＢＬ","キス喪失, 性癖取得", 調教相手,,,, "ＳＭ")
;-------------------------------------------------
;FUCKの糖衣用
;性行為を伴わないＳＭのマゾ側
;-------------------------------------------------
@FUCK_SM_M(対象, 調教相手)
#DIM 対象
#DIM 調教相手
CALL FUCK(対象, @"欲望, 性技, 奉仕, Ｂ, Ｍ, 性交, 自慰, 露出, 苦痛快楽, 緊縛, マゾ, キス, レズ, ＢＬ",,,, "", "ＳＭ")

;-------------------------------------------------
;FUCKにおける、部位に経験値を加算する関数
;-------------------------------------------------
@FUCK_EXP_PROCESS(対象, 経験値指定文字列)
#DIM 対象
#DIMS 経験値指定文字列
#DIM 主導度低下倍率
#DIM 倒錯度倍率
#DIMS 経験値, 100
VARSET 主導度低下倍率
VARSET 倒錯度倍率
VARSET 経験値
SPLIT 経験値指定文字列, ",", 経験値
LOCAL:1 = 0
FOR LOCAL, 0, VARSIZE("経験値")
	;空文字列ならスキップ
	SIF 経験値:LOCAL == ""
		CONTINUE
	;スペースを除去
	経験値:LOCAL = %REPLACE(経験値:LOCAL, " ", "")%
	経験値:LOCAL = %REPLACE(経験値:LOCAL, "　", "")%

	IF 経験値:LOCAL == "Ｃ"
		EXP:対象:Ｃ感経験値 += ABL:対象:Ｃ感 * 5 + 4 + RAND:3
		LOCAL:1 += ABL:対象:Ｃ感
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｖ" && HAS_VAGINA(対象, 1)
		EXP:対象:Ｖ感経験値 += ABL:対象:Ｖ感 * 5 + 4 + RAND:4
		LOCAL:1 += ABL:対象:Ｖ感
		CALL TIGHTNESS_DECREASE_V(対象, RAND(5, 10))
		SELECTCASE RAND:3
			CASE 0
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_愛撫されたい ++
			CASE 1
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_道具を使われたい ++
			CASE 2
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕されたい ++
		ENDSELECT
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｂ"
		EXP:対象:Ｂ感経験値 += ABL:対象:Ｂ感 * 5 + 4 + RAND:4
		LOCAL:1 += ABL:対象:Ｂ感
		SELECTCASE RAND:3
			CASE 0
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_愛撫されたい ++
			CASE 1
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_道具を使われたい ++
			CASE 2
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕されたい ++
		ENDSELECT
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ａ"
		EXP:対象:Ａ感経験値 += ABL:対象:Ａ感 * 5 + 4 + RAND:4
		CALL TIGHTNESS_DECREASE_A(対象, RAND(5, 10))
		LOCAL:1 += ABL:対象:Ａ感
		SELECTCASE RAND:3
			CASE 0
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_愛撫されたい ++
			CASE 1
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_道具を使われたい ++
			CASE 2
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕されたい ++
		ENDSELECT
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｍ"
		EXP:対象:Ｍ感経験値 += ABL:対象:Ｍ感 * 4 + 4 + RAND:3
		LOCAL:1 += ABL:対象:Ｍ感
		SELECTCASE RAND:3
			CASE 0
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_愛撫されたい ++
			CASE 1
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_道具を使われたい ++
			CASE 2
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕されたい ++
		ENDSELECT
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｕ"
		EXP:対象:Ｕ感経験値 += ABL:対象:Ｕ感 * 4 + 4 + RAND:3
		EXP:対象:Ｕ開発経験 += RAND(1, 6)
		LOCAL:1 += ABL:対象:Ｕ感
		SELECTCASE RAND:3
			CASE 0
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_愛撫されたい ++
			CASE 1
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_道具を使われたい ++
			CASE 2
				SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕されたい ++
		ENDSELECT
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "欲望"
		EXP:対象:欲望経験値 += ABL:対象:欲望 * 5 + 7 + LOCAL:1 + RAND:10
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "性技"
		EXP:対象:性技経験値 += ABL:対象:性技 * 2 + 3 + RAND:5
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "奉仕"
		EXP:対象:奉仕経験値 += ABL:対象:奉仕 * 3 + 5 + RAND:7
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_奉仕したい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "性交"
		EXP:対象:性交経験値 += ABL:対象:性交 * 2 + 4 + RAND:6
		;受け攻めの判定がコレ単体ではできないので、性的嗜好は加算しない
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "レズ" && IS_FEMALE(対象)
		EXP:対象:レズ経験値 += 15 + RAND:10
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_同性と交わりたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "ＢＬ" && IS_MALE(対象)
		EXP:対象:ＢＬ経験値 += 15 + RAND:10
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_同性と交わりたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "露出"
		EXP:対象:露出経験値 += ABL:対象:露出 * 6 + 6 + RAND:10
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_露出したい += 3
		倒錯度倍率 ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "自慰"
		EXP:対象:自慰経験値 += ABL:対象:自慰 * 3 + 5 + RAND:6
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_露出したい += 3
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_辱められたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "精愛"
		EXP:対象:精愛経験値 += ABL:対象:精愛 * 5 + 5 + RAND:5
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "射精" && HAS_PENIS(対象)
		EXP:対象:射精経験値 += ABL:対象:射精 * 2 + 3 + RAND:4
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "噴乳" && TALENT:対象:母乳体質
		EXP:対象:噴乳経験値 += ABL:対象:噴乳 * 2 + 3 + RAND:4
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "排泄"
		IF CONFIG:92 == 0
			EXP:対象:排泄経験値 += ABL:対象:排泄 * 2 + 3 + RAND:4
			倒錯度倍率 ++
			SEXUAL_PREFERENCE_EXP:対象:性的嗜好_汚されたい += 3
		ENDIF
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "触手"
		EXP:対象:触手経験値 += ABL:対象:触手 * 3 + 5 + RAND:8
		倒錯度倍率 += 2
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_触手で犯されたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "マゾ"
		EXP:対象:被虐経験値 += ABL:対象:マゾ * 3 + 5 + RAND:5
		倒錯度倍率 += 3
		主導度低下倍率 ++
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_虐げられたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "サド"
		EXP:対象:嗜虐経験値 += ABL:対象:サド * 3 + 5 + RAND:5
		倒錯度倍率 += 3
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_虐げたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｖ拡張" && HAS_VAGINA(対象, 1)
		EXP:対象:Ｖ拡張経験 += RAND(1,6)
		CALL TIGHTNESS_DECREASE_V(対象, RAND(10, 20))
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ａ拡張"
		EXP:対象:Ａ拡張経験 += RAND(1,6)
		CALL TIGHTNESS_DECREASE_A(対象, RAND(10, 20))
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "苦痛快楽"
		EXP:対象:苦痛快楽経験 += RAND(20, 30)
		主導度低下倍率 ++
		倒錯度倍率 ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "緊縛"
		EXP:対象:緊縛経験 += 3 + RAND:4
		主導度低下倍率 ++
		倒錯度倍率 ++
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_縛られたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "キス"
		EXP:対象:キス経験 += 2 + RAND:8
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "口淫"
		EXP:対象:口淫経験 += 3 + RAND:5
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｖ挿入"
		EXP:対象:Ｖ挿入経験 += 3 + RAND:5
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_性交したい ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｖ性交" && HAS_VAGINA(対象, 1)
		EXP:対象:Ｖ性交経験 += 3 + RAND:5
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_性交されたい ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ａ挿入"
		EXP:対象:Ａ挿入経験 += 3 + RAND:5
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_性交したい ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ａ性交"
		EXP:対象:Ａ性交経験 += 3 + RAND:5
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_性交されたい ++
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "Ｕ挿入"
		EXP:対象:Ｕ挿入経験 += 3 + RAND:5
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "輪姦"
		EXP:対象:輪姦経験 += 3 + RAND(2, MAX(3, MIN(8, ABL:対象:欲望)))
		倒錯度倍率 += 2
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_輪姦されたい += 3
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "獣姦"
		EXP:対象:獣姦経験 += 3 + RAND:3
		倒錯度倍率 += 2
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_獣と交わりたい += 3
		CONTINUE
	ENDIF
	IF 経験値:LOCAL == "薬物依存"
		CFLAG:対象:薬物依存 += RAND(20, 50)
		倒錯度倍率 += 2
		CONTINUE
	ENDIF

	IF 経験値:LOCAL == "撮影"
		EXP:対象:撮影経験 += 3 + RAND(2, MAX(3, MIN(8, ABL:対象:露出)))
		倒錯度倍率 += 2
	ENDIF

	IF 経験値:LOCAL == "売春"
		EXP:対象:売春経験 += 3 + RAND(2, MAX(3, MIN(8, ABL:対象:欲望)))
		倒錯度倍率 += 2
		SEXUAL_PREFERENCE_EXP:対象:性的嗜好_春を売りたい += 3
		CONTINUE
	ENDIF
NEXT

ABL:対象:主導度Ｕ -= (8 + RAND:5) * MIN(3, 主導度低下倍率) * (MIN(2 , (TALENT:対象:Ｍ気質 + TALENT:対象:臆病 + TALENT:対象:痛みに弱い + TALENT:対象:貞操観念 + TALENT:対象:悲観的)) + 2) / (TALENT:対象:気丈 * 2 + TALENT:対象:貞操無頓着 + TALENT:対象:プライド低い + TALENT:対象:感情乏しい + 1) / MAX(1 , (IS_SP_COUNTRY(CFLAG:対象:捕虜先) || IS_FALLEN_TO_SP_COUNTRY(対象)) * 5)
ABL:対象:倒錯度 += (5 + RAND:5) * MIN(3, 倒錯度倍率) * MIN(5 , (TALENT:対象:Ｍ気質 + TALENT:対象:倒錯的 + TALENT:対象:解放 + TALENT:対象:快感に素直 + TALENT:対象:中毒しやすい) * 2 + 1) / (TALENT:対象:自制心 + TALENT:対象:無関心 + TALENT:対象:感情乏しい + 1) / MAX(1 , (IS_SP_COUNTRY(CFLAG:対象:捕虜先) || IS_FALLEN_TO_SP_COUNTRY(対象)) * 5)
EXP:対象:絶頂経験 += LOCAL:1 * (60 + RAND:81) / 100

SELECTCASE ABL:対象:性知識
	CASE 0
		EXP:対象:性知識経験値 += 10
	CASE 1
		EXP:対象:性知識経験値 += 8
	CASE 2
		EXP:対象:性知識経験値 += 6
	CASE 3
		EXP:対象:性知識経験値 += 3
	CASE 4
		EXP:対象:性知識経験値 += 2
	CASE 5
		EXP:対象:性知識経験値 += 0
ENDSELECT
ABL:対象:倒錯度 = LIMIT(ABL:対象:倒錯度, 0, 1000)
ABL:対象:主導度Ｎ = LIMIT(ABL:対象:主導度Ｎ, -1000, 1000)
ABL:対象:主導度Ｕ = LIMIT(ABL:対象:主導度Ｕ, -1000, 1000)

;-------------------------------------------------
;FUCKにおける、追加処理を行う関数
;-------------------------------------------------
@FUCK_EXTRA_PROCESS(対象, 経験値文字列, 追加処理指定文字列, 膣内射精相手ID = 0, キス相手 = "", セックス相手 = "", 童貞相手 = "", シチュ = "")
#DIM 対象
#DIMS 経験値文字列
#DIMS 追加処理指定文字列
#DIMS 追加処理, 100
#DIM 膣内射精相手ID
#DIMS キス相手
#DIMS セックス相手
#DIMS 童貞相手
#DIMS シチュ
VARSET 追加処理
SPLIT 追加処理指定文字列, ",", 追加処理

IF STRFIND(シチュ, "調教") != -1
	SEXUAL_PREFERENCE_EXP:対象:性的嗜好_調教されたい ++
ELSEIF STRFIND(シチュ, "催眠") != -1
	SEXUAL_PREFERENCE_EXP:対象:性的嗜好_催眠をかけられたい ++
ENDIF

FOR LOCAL, 0, VARSIZE("追加処理")
	SIF 追加処理:LOCAL == ""
		CONTINUE
	;スペースを除去
	追加処理:LOCAL = %REPLACE(追加処理:LOCAL, " ", "")%
	追加処理:LOCAL = %REPLACE(追加処理:LOCAL, "　", "")%
	IF 追加処理:LOCAL == "キス喪失"
		CALL KISS_COMMON(対象, キス相手, シチュ)
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "処女喪失"
		CALL VIRGIN_COMMON(対象, セックス相手, シチュ)
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "Ａ処女喪失"
		CALL VIRGIN_COMMON_A(対象, セックス相手, シチュ)
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "童貞喪失"
		CALL DOUTEI_COMMON(対象, 童貞相手, シチュ)
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "CFLAG減少" && 対象 != MASTER
		CFLAG:対象:好感度 = MAX(CFLAG:対象:好感度 - LIMIT(CFLAG:対象:好感度 / (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5 # 10), 200, (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5000 # 10000)) , -1000)
		CFLAG:対象:依存度 = MAX(CFLAG:対象:依存度 - LIMIT(CFLAG:対象:依存度 / (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5 # 10), 200, (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5000 # 10000)) , -1000)
		CFLAG:対象:従属度 = MAX(CFLAG:対象:従属度 - LIMIT(CFLAG:対象:従属度 / (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5 # 10), 200, (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5000 # 10000)) , -1000)
		CFLAG:対象:支配度 = MAX(CFLAG:対象:支配度 - LIMIT(CFLAG:対象:支配度 / (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5 # 10), 200, (GETBIT(TALENT:対象:淫乱系, 素質_淫乱_浮気癖) ? 5000 # 10000)) , -1000)
		CALL CHECK_LOSE_RELATION_TALENT(対象)
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "膣内射精" && HAS_VAGINA(対象, 1)
		EXP:対象:膣内射精経験 += RAND(2, 5)
		IF STRFIND(経験値文字列, "輪姦") != -1
			FOR LOCAL:1, 0, RAND(6, 10)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_膣内, 3), 射精部位_膣内)
			NEXT
		ELSE
			FOR LOCAL:1, 0, RAND(1, 4)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_膣内, RAND(5, 11)), 射精部位_膣内)
			NEXT
		ENDIF
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "腸内射精"
		EXP:対象:腸内射精経験 += RAND(2, 5)
		IF STRFIND(経験値文字列, "輪姦") != -1
			FOR LOCAL:1, 0, RAND(6, 10)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_アナル, 3), 射精部位_アナル)
			NEXT
		ELSE
			FOR LOCAL:1, 0, RAND(1, 4)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_アナル, RAND(5, 11)), 射精部位_アナル)
			NEXT
		ENDIF
		CONTINUE
	ENDIF

	IF 追加処理:LOCAL == "口内射精"
		EXP:対象:口内射精経験 += RAND(2, 5)
		IF STRFIND(経験値文字列, "輪姦") != -1
			FOR LOCAL:1, 0, RAND(6, 10)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_口, 3), 射精部位_口)
			NEXT
		ELSE
			FOR LOCAL:1, 0, RAND(1, 4)
				CALL RECORD_CREAMPIE(対象, 膣内射精相手ID, CUM_AMOUNT_CORRECTION(膣内射精相手ID, 対象, 射精部位_口, RAND(5, 11)), 射精部位_口)
			NEXT
		ENDIF
		CONTINUE
	ENDIF
NEXT


code:
;性転換に関する関数

;-------------------------------------------------
;◆ARG:0番のキャラが現在ＴＳしているかどうかを返す関数
;-------------------------------------------------
@TS_IS_O(ARG:0, ふたなりを同性扱いする, 男の娘を男に含める)
#FUNCTION
#DIM ふたなりを同性扱いする
#DIM 男の娘を男に含める

SIF TALENT:(ARG:0):元性別 == 0
	RETURNF 0

IF 男の娘を男に含める && ふたなりを同性扱いする
	RETURNF GROUPMATCH(TALENT:(ARG:0):性別, 1, 2) != GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12)
ELSEIF 男の娘を男に含める
	IF GROUPMATCH(TALENT:(ARG:0):性別, 0, 4) != GROUPMATCH(TALENT:(ARG:0):元性別, 10, 14)
		RETURNF 1
	ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 3, 5) != GROUPMATCH(TALENT:(ARG:0):元性別, 13, 15)
		RETURNF 1
	ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 1) != GROUPMATCH(TALENT:(ARG:0):元性別, 11)
		RETURNF 1
	ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 2) != GROUPMATCH(TALENT:(ARG:0):元性別, 12)
		RETURNF 1
	ENDIF
ELSEIF ふたなりを同性扱いする
	IF GROUPMATCH(TALENT:(ARG:0):性別, 0, 3) != GROUPMATCH(TALENT:(ARG:0):元性別, 10, 13)
		RETURNF 1
	ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 4, 5) != GROUPMATCH(TALENT:(ARG:0):元性別, 14, 15)
		RETURNF 1
	ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 1, 2) != GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12)
		RETURNF 1
	ENDIF
ELSE
	RETURNF TALENT:(ARG:0):性別 != (TALENT:(ARG:0):元性別 -10)
ENDIF
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラが現在女性化しているかどうかを返す関数
;元男性or元男の娘が現在女性になっている場合は1を返す
;詳細モードの場合は挙動が変わり、
;元男性 → 男の娘 = 1   元男の娘 → 女性 = 2   元男性 → 女性 = 3
;いずれの場合もふたなりの有無は無視する
;-------------------------------------------------
@TS_IS_F(ARG:0, 詳細モード)
#FUNCTION
#DIM 詳細モード

SIF TALENT:(ARG:0):元性別 == 0 || GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12)
	RETURNF 0

IF 詳細モード
	IF GROUPMATCH(TALENT:(ARG:0):元性別, 10, 13)
		IF GROUPMATCH(TALENT:(ARG:0):性別, 1, 2)
			RETURNF 3
		ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 4, 5)
			RETURNF 1
		ENDIF
	ELSEIF GROUPMATCH(TALENT:(ARG:0):元性別, 14, 15) && GROUPMATCH(TALENT:(ARG:0):性別, 1, 2)
		RETURNF 2
	ENDIF
ELSE
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 10, 13, 14, 15) == GROUPMATCH(TALENT:(ARG:0):性別, 1, 2)
ENDIF
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラが現在男性化しているかどうかを返す関数
;元女性が現在男性or男の娘になっている場合は1を返す
;詳細モードの場合は挙動が変わり、
;元女性 → 男の娘 = 1   元男の娘 → 男性 = 2   元女性 → 男性 = 3
;いずれの場合もふたなりの有無は無視する
;-------------------------------------------------
@TS_IS_M(ARG:0, 詳細モード)
#FUNCTION
#DIM 詳細モード

SIF TALENT:(ARG:0):元性別 == 0  || GROUPMATCH(TALENT:(ARG:0):性別, 1, 2)
	RETURNF 0

IF 詳細モード
	IF GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12)
		IF GROUPMATCH(TALENT:(ARG:0):性別, 0, 3)
			RETURNF 3
		ELSEIF GROUPMATCH(TALENT:(ARG:0):性別, 4, 5)
			RETURNF 1
		ENDIF
	ELSEIF GROUPMATCH(TALENT:(ARG:0):元性別, 14, 15) && GROUPMATCH(TALENT:(ARG:0):性別, 0, 3)
		RETURNF 2
	ENDIF
ELSE
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12) == GROUPMATCH(TALENT:(ARG:0):性別, 0, 3, 4, 5)
ENDIF
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラがペニス無の元性別からペニスが生えたかどうかを返す関数
;-------------------------------------------------
@TS_GET_P(ARG:0)
#FUNCTION

SIF HAS_PENIS(ARG:0)
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 11)
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラがペニス有の元性別からペニスを失ったかどうかを返す関数（LOSTのL）
;-------------------------------------------------
@TS_LOST_P(ARG:0)
#FUNCTION

SIF !HAS_PENIS(ARG:0)
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 10, 12, 13, 14, 15)
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラがＶ無の元性別からＶが出来たかどうかを返す関数
;-------------------------------------------------
@TS_GET_V(ARG:0)
#FUNCTION

SIF HAS_VAGINA(ARG:0)
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 10, 14)
RETURNF 0

;-------------------------------------------------
;◆ARG:0番のキャラがＶ有の元性別からＶを失ったかどうかを返す関数（LOSTのL）
;-------------------------------------------------
@TS_LOST_V(ARG:0)
#FUNCTION

SIF !HAS_VAGINA(ARG:0)
	RETURNF GROUPMATCH(TALENT:(ARG:0):元性別, 11, 12, 13, 15)
RETURNF 0

;-------------------------------------------------
;対象キャラの異性化（男の娘は男扱いする）
;-------------------------------------------------
@TS_TO_OTHERSEX(ARG:0, ふたなりを維持する)
#DIM ふたなりを維持する

;ＴＳ経験がない場合の元性別保存処理
SIF TALENT:(ARG:0):元性別 == 0
    TALENT:(ARG:0):元性別 = TALENT:(ARG:0):性別 + 10

;性偏差を初期化
CFLAG:(ARG:0):性偏差 = 1

IF ふたなりを維持する
    SELECTCASE TALENT:(ARG:0):性別
        CASE 0, 4
            TALENT:(ARG:0):性別 = 1
        CASE 3, 5
            TALENT:(ARG:0):性別 = 2
        CASE 1
            TALENT:(ARG:0):性別 = 0
        CASE 2
            TALENT:(ARG:0):性別 = 3
    ENDSELECT
ELSE
    SELECTCASE TALENT:(ARG:0):性別
        CASE 0, 3, 4, 5
            TALENT:(ARG:0):性別 = 1
        CASE 1, 2
            TALENT:(ARG:0):性別 = 0
    ENDSELECT
ENDIF

CALL SET_BODYSIZE(ARG:0)

;-------------------------------------------------
;対象キャラの男の娘化
;-------------------------------------------------
@TS_TO_FEMBOY(ARG:0, ふたなりを維持する)
#DIM ふたなりを維持する

SIF TALENT:(ARG:0):元性別 == 0
    TALENT:(ARG:0):元性別 = TALENT:(ARG:0):性別 + 10

;女性からの男の娘化、あるいは性偏差が40未満の場合は性偏差初期化
SIF GROUPMATCH(TALENT:(ARG:0):性別, 1, 2) || CFLAG:(ARG:0):性偏差 < 40
    CFLAG:(ARG:0):性偏差 = 40

IF ふたなりを維持する
    SELECTCASE TALENT:(ARG:0):性別
        CASE 0, 1
            TALENT:(ARG:0):性別 = 4
        CASE 2, 3
            TALENT:(ARG:0):性別 = 5
    ENDSELECT
ELSE
    SELECTCASE TALENT:(ARG:0):性別
        CASE 0, 1, 2, 3
            TALENT:(ARG:0):性別 = 4
    ENDSELECT
ENDIF

CALL SET_BODYSIZE(ARG:0)

;-------------------------------------------------
;徐々に異性化していくための性偏差を管理する処理
;-------------------------------------------------
@TS_TO_GETTING(ARG:0, 増減値, メッセージなし)
#DIM 増減値
#DIM メッセージなし

;性偏差増減経験がない場合は初期値設定。男の娘は40、他は1
IF CFLAG:(ARG:0):性偏差 == 0
    IF GROUPMATCH(TALENT:(ARG:0):性別, 4, 5)
        CFLAG:(ARG:0):性偏差 = 40
    ELSE
        CFLAG:(ARG:0):性偏差 = 1
    ENDIF
ENDIF

CFLAG:(ARG:0):性偏差 += 増減値

;増減後の最低値と最大値の管理
;最低値は1、最高値はふたなりの場合120、それ以外は100
IF CFLAG:(ARG:0):性偏差 <= 0
    CFLAG:(ARG:0):性偏差 = 1
ELSEIF HAS_FUTANARI(ARG:0)
    SIF CFLAG:(ARG:0):性偏差 > 120
        CFLAG:(ARG:0):性偏差 = 120
ELSEIF CFLAG:(ARG:0):性偏差 > 100
    CFLAG:(ARG:0):性偏差 = 100
ENDIF

;男性あるいは男の娘の性偏差が増えた場合の変化処理
IF 増減値 > 0 && IS_MALE(ARG:0, 1)
    ;メッセージなしが有効の場合は飛ばす
    IF メッセージなし == 0
        IF CFLAG:(ARG:0):性偏差 >= 100 && HAS_FUTANARI(ARG:0)
            PRINTFORML %ANAME(ARG:0)%の子宮がドクン、ドクンと脈打って存在を主張する……
            PRINTFORMW かろうじて機能しているペニス以外は完全に女性の身体になってしまったように感じる
            PRINTFORML ……内蔵のどこかか、%ANAME(ARG:0)%の自意識か、見えない部分に男である要素は何か残っているのだろうか
            IF CFLAG:(ARG:0):性偏差 >= 120
                PRINTW
                PRINTFORML %ANAME(ARG:0)%はほとんどが女性化しきってしまった
                PRINTFORML これ以上は特別な処置でも受けなければ、最後に残った決定的な部分が変わることはないだろう
            ENDIF
        ELSEIF CFLAG:(ARG:0):性偏差 >= 100
            PRINTFORML 変わりきった身体は、生来の女性よりも女らしくなってしまっている気さえする
            PRINTFORML ……ペニスがあり子宮がないという以外には%ANAME(ARG:0)%が男である要素は残ってない
            PRINTW
            PRINTFORML %ANAME(ARG:0)%の容姿は女性化しきってしまった
            PRINTFORML これ以上は内蔵の構造でも変わらなければ、女性化が進行することはないだろう
        ELSEIF CFLAG:(ARG:0):性偏差 >= 70
            PRINTFORML 身体の内側から何かが変化している……
            PRINTFORMW もはやペニスが生えている以外に男である要素がなくなっていく気がする
            PRINTFORML ……%ANAME(ARG:0)%が自分は男だと言い張っても、誰も信じはしないだろう
        ELSEIF CFLAG:(ARG:0):性偏差 >= 40 && GROUPMATCH(TALENT:(ARG:0):性別, 4, 5)
            PRINTFORML なんとなく身体がくすぐったい……
            PRINTFORMW ただでさえ男っぽさに乏しいのに、全身がさらに女っぽく変化していくのを感じる
            PRINTFORML ……外見以外のあらゆる要素も、%ANAME(ARG:0)%が男だという証拠を失っていく
        ELSEIF CFLAG:(ARG:0):性偏差 >= 40
            PRINTFORML なんとなく身体がくすぐったい……
            PRINTFORMW 全身のシルエットがさらに柔らかな、女性的なものに変わっているように感じる
            PRINTFORML ……次に鏡を覗いたとき、%ANAME(ARG:0)%は自分が男ではなくなったと錯覚するかもしれない
        ELSEIF CFLAG:(ARG:0):性偏差 >= 20
            PRINTFORML 肌がムズムズする……
            PRINTFORML 気のせいか、肌が柔らかくなり、身体つきが変わってきているように感じる
            IF CFLAG:(ARG:0):性偏差 >= 30
                WAIT
                PRINTFORML ……次に鏡を覗いたとき、%ANAME(ARG:0)%は中性的な顔つきへの変化が進んでいる自分に気がつくだろう
            ENDIF
        ELSEIF CFLAG:(ARG:0):性偏差 >= 0
            PRINTFORML 全身の肌がムズムズとして身体に何かが起こっているのを感じるが、それが何かはわからない
        ENDIF
        PRINTW
    ENDIF
    ;肉体変化は下から順に優先させる
    IF CFLAG:(ARG:0):性偏差 >= 40 && GROUPMATCH(TALENT:(ARG:0):性別, 0, 3)
        CALL TS_TO_FEMBOY(ARG:0, 1)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%の容姿は可愛らしく変わり果て、@C:{カラー_ピンク}@%TOSTR_SEX(TALENT:(ARG:0):性別)%@/C@になってしまった！", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 50 && TALENT:(ARG:0):ペニスサイズ >= 2
        TALENT:(ARG:0):ペニスサイズ --
        CALL SET_PENISSIZE(ARG:0, TALENT:(ARG:0):ペニスサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%のペニスは肉体の変化に伴い、@C:{カラー_ピンク}@%TOSTR_PENISSIZE(TALENT:(ARG:0):ペニスサイズ)%@/C@サイズに縮んでしまった", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 60 && TALENT:(ARG:0):ペニスサイズ >= 1
        TALENT:(ARG:0):ペニスサイズ --
        CALL SET_PENISSIZE(ARG:0, TALENT:(ARG:0):ペニスサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%のペニスは肉体の変化に伴い、@C:{カラー_ピンク}@%TOSTR_PENISSIZE(TALENT:(ARG:0):ペニスサイズ)%@/C@サイズに縮んでしまった", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 70 && TALENT:(ARG:0):ヒップサイズ <= -1
        TALENT:(ARG:0):ヒップサイズ ++
        CALL SET_HIPSIZE(ARG:0, TALENT:(ARG:0):ヒップサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"薄かった%ANAME(ARG:0)%のお尻は厚みが増し、少し肉感的な@C:{カラー_ピンク}@%TOSTR_HIPSIZE(TALENT:(ARG:0):ヒップサイズ)%@/C@になったようだ", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 80 && TALENT:(ARG:0):ペニスサイズ >= 0
        TALENT:(ARG:0):ペニスサイズ --
        CALL SET_PENISSIZE(ARG:0, TALENT:(ARG:0):ペニスサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%のペニスまでも男らしさを失い、@C:{カラー_ピンク}@%TOSTR_PENISSIZE(TALENT:(ARG:0):ペニスサイズ)%@/C@サイズに萎縮してしまった……", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 90 && TALENT:(ARG:0):バストサイズ <= -2
        TALENT:(ARG:0):バストサイズ ++
        CALL SET_BUSTSIZE(ARG:0, TALENT:(ARG:0):バストサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%の胸が心なしかふっくらと膨らみ、@C:{カラー_ピンク}@%TOSTR_BUSTSIZE(TALENT:(ARG:0):バストサイズ)%@/C@ながら少女のような乳房になってしまった……", 1)
            PRINTW
        ENDIF
    ELSEIF CFLAG:(ARG:0):性偏差 >= 100 && TALENT:(ARG:0):ペニスサイズ >= -1
        TALENT:(ARG:0):ペニスサイズ --
        CALL SET_PENISSIZE(ARG:0, TALENT:(ARG:0):ペニスサイズ)
        IF メッセージなし == 0
            CALLF TAG_PRINT(@"%ANAME(ARG:0)%のペニスは萎縮が進み、@C:{カラー_ピンク}@%TOSTR_PENISSIZE(TALENT:(ARG:0):ペニスサイズ)%@/C@サイズの可愛らしい突起と化してしまった……", 1)
            PRINTW
        ENDIF
    ENDIF
ENDIF