code:
;旧売春システムです
;新売春システムの実装により現在つかわれておりません
;2016/12
@NIGHT_PROSTITUTION
;フラグの初期化
LOCAL = 0
REPEAT CHARANUM
	SIF CFLAG:COUNT:12 == 2
		CFLAG:COUNT:12 = 1
	SIF TALENT:COUNT:AV녀 == 1
		LOCAL += 1
REND

;一晩の客の人数
A = RAND:(10 + NIGHT_PROSTITUTION_GET_VISITOR())

;AV녀を沢山持つと、売春の客を増やす
IF LOCAL > 5
	B = LOCAL - 5
	B /= 2
	A += B
	A += 1
ENDIF

PRINTFORML 今晩は{A}人の客が夜の街を訪れた‥‥
REPEAT A
;客の嗜好
;가슴 0-4 数値が大きい程大きい趣味(ぴったりで嗜好値2, 1ずれで嗜好値1)
	B = RAND:5
;髪の色(ぴったりで嗜好値1)
	C = RAND:13 + 360
;髪型(ぴったりで嗜好値2)
	D = RAND:22 + 380
;立場(0중학생　1고등학생 2대학생 3사회인 4초등학생　ぴったりで嗜好値2)
	E = RAND:5
;属性(ぴったりで嗜好値3)
	F = RAND:12 + 470
;その他(ぴったりで嗜好値1)
	G = RAND:22 + 500
	H = COUNT
;Lは客の特性 0-5で何もなし、6で金が少ない、7でストレス過大な客,8で孕ませ好き、9で金が多い
	L = RAND:10
	CALL SEARCH_PROSTITUTION
	COUNT = H
REND

@SEARCH_PROSTITUTION
J = 0
K = 0
PRINTFORM {COUNT + 1}人目：
REPEAT CHARANUM
	IF CFLAG:COUNT:12 == 1
		I = 0
		SIF COUNT == MASTER
			CONTINUE
;체력一定以下で無視
		SIF BASE:COUNT:0 < 500
			CONTINUE
		IF B == 0
			SIF TALENT:COUNT:절벽 == 1
				I += 2
			SIF TALENT:COUNT:빈유 == 1
				I += 1
		ELSEIF B == 1
			SIF TALENT:COUNT:빈유 == 1
				I += 2
			SIF TALENT:COUNT:절벽 == 1
				I += 1
			SIF TALENT:COUNT:절벽 == 0 && TALENT:COUNT:빈유 == 0 && TALENT:COUNT:거유 == 0 && TALENT:COUNT:폭유 == 0
				I += 1
		ELSEIF B == 2
			SIF TALENT:COUNT:절벽 == 0 && TALENT:COUNT:빈유 == 0 && TALENT:COUNT:거유 == 0 && TALENT:COUNT:폭유 == 0
				I += 2
			SIF TALENT:COUNT:빈유 == 1
				I += 1
			SIF TALENT:COUNT:거유 == 1
				I += 1
		ELSEIF B == 3
			SIF TALENT:COUNT:거유 == 1
				I += 2
			SIF TALENT:COUNT:절벽 == 0 && TALENT:COUNT:빈유 == 0 && TALENT:COUNT:거유 == 0 && TALENT:COUNT:폭유 == 0
				I += 1
			SIF TALENT:COUNT:폭유 == 1
				I += 1
		ELSE
			SIF TALENT:COUNT:폭유 == 1
				I += 2
			SIF TALENT:COUNT:거유 == 1
				I += 1
		ENDIF

;髪の色　色の種類が増えたので、確認の仕方変更
		IF C == 360
;흑발好き、栗色、灰でも1/2の確率でヒット
			SIF TALENT:COUNT:흑발 == 1
				I += 1
			SIF TALENT:COUNT:갈색머리 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:회색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 361
;栗色好き、黒、金色でも1/2の確率でヒット
			SIF TALENT:COUNT:갈색머리 == 1
				I += 1
			SIF TALENT:COUNT:흑발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:금발 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 362
;金色好き、栗色、銀色でも1/2の確率でヒット
			SIF TALENT:COUNT:금발 == 1
				I += 1
			SIF TALENT:COUNT:갈색머리 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:은발 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 363
;적발好き、紫、ピンク色も1/2の確率でヒット
			SIF TALENT:COUNT:적발 == 1
				I += 1
			SIF TALENT:COUNT:핑크색머리 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:보라색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 364
;銀好き、金色、白も1/2の確率でヒット
			SIF TALENT:COUNT:은발 == 1
				I += 1
			SIF TALENT:COUNT:금발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:백발 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 365
;青好き、緑、水色、紫色も1/2の確率でヒット
			SIF TALENT:COUNT:청발 == 1
				I += 1
			SIF TALENT:COUNT:녹발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:보라색머리 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:하늘색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 366
;緑好き、水色、青色も1/2の確率でヒット
			SIF TALENT:COUNT:녹발 == 1
				I += 1
			SIF TALENT:COUNT:청발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:하늘색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 367
;ピンク好き、紫、赤色も1/2の確率でヒット
			SIF TALENT:COUNT:핑크색머리 == 1
				I += 1
			SIF TALENT:COUNT:적발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:보라색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 368
;紫好き、赤、ピンク、青色も1/2の確率でヒット
			SIF TALENT:COUNT:보라색머리 == 1
				I += 1
			SIF TALENT:COUNT:청발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:적발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:핑크색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 369
;白好き、銀色、灰も1/2の確率でヒット
			SIF TALENT:COUNT:백발 == 1
				I += 1
			SIF TALENT:COUNT:은발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:회색머리 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 370
;オレンジ好き、栗色、金色も1/2の確率でヒット
			SIF TALENT:COUNT:오렌지색머리 == 1
				I += 1
			SIF TALENT:COUNT:갈색머리 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:금발 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 371
;水色好き、緑、青も1/2の確率でヒット
			SIF TALENT:COUNT:하늘색머리 == 1
				I += 1
			SIF TALENT:COUNT:청발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:녹발 == 1 && RAND:2 == 0
				I += 1
		ELSEIF C == 372
;灰好き、黒、白色も1/2の確率でヒット
			SIF TALENT:COUNT:회색머리 == 1
				I += 1
			SIF TALENT:COUNT:백발 == 1 && RAND:2 == 0
				I += 1
			SIF TALENT:COUNT:흑발 == 1 && RAND:2 == 0
				I += 1
		ENDIF

		SIF TALENT:COUNT:D == 1
			I += 2

		SIF E == 0 && TALENT:COUNT:중학생 == 1
			I += 2
		SIF E == 1 && TALENT:COUNT:고등학생 == 1
			I += 2
		SIF E == 2 && TALENT:COUNT:대학생 == 1
			I += 2
		SIF E == 4 && TALENT:COUNT:초등학생 == 1
			I += 2
		IF E == 3
			SIF TALENT:COUNT:교사 == 1 || TALENT:COUNT:사회인 == 1
				I += 2
		ENDIF
		SIF TALENT:COUNT:처녀 == 1
			I += 3
		SIF TALENT:COUNT:F == 1
			I += 3

		SIF TALENT:COUNT:G == 1
			I += 1
		SIF TALENT:COUNT:AV녀 == 1
			I += 1
		SIF TALENT:COUNT:인기 == 1
			I += 1
		SIF TALENT:COUNT:수수께끼의매력 == 1
			I += 2

		SIF TALENT:COUNT:논외 == 1
			I -= 4

		IF ABL:COUNT:가창기능 > 6
			I += 1
		ELSEIF ABL:COUNT:가창기능 > 8
			I += 2
		ENDIF

		IF I > 3
			IF I > J
				K = COUNT
				J = I
			ENDIF
		ENDIF
	ENDIF
REND
IF K != 0
	PRINTL
	PRINTL
	PRINTFORML 客はどうやら%NAME:K%が気に入った様だ。
	IF L == 6
		PRINTFORML 身なりからして収入には期待できそうにない客だが……？
	;불쾌な客の客データを整理して地の文に反映できるように変更
	ELSEIF L == 7
		SELECTCASE RAND:4
		;関係
		CASE 0
			IF RAND:20000 == 0
				NIGHT_PROSTITUTION_VISITOR_客タイプ = 近親者

				PRINTFORML しかし、その客は%CALLNAME:K%의 身内のようだ。
				PRINTFORML 知っている顔を相손をするのは%CALLNAME:K%にとって随分と고통だろう
				PRINTFORML まだ、向こうが%CALLNAME:K%だとは確信を持っていない今なら断らせることもできるが……？
		;	ELSEIF RAND:4 == 0
		;		NIGHT_PROSTITUTION_VISITOR_客タイプ = ストーカー
		;
		;		PRINTFORML しかし、その客は最近%CALLNAME:K%의 周りをウロついているストーカーのようだ。
		;		PRINTFORML このような客の相손をするのは%CALLNAME:K%にとって随分と고통だろう
		;		PRINTFORML まだ、向こうが%CALLNAME:K%だとは確信を持っていない今なら断らせることもできるが……？
			ELSE
				NIGHT_PROSTITUTION_VISITOR_客タイプ = 知人

				PRINTFORML しかし、その客は%CALLNAME:K%의 知り合いのようだ。
				PRINTFORML 知っている顔を相손をするのは%CALLNAME:K%にとって随分と고통だろう
				PRINTFORML まだ、向こうが%CALLNAME:K%だとは確信を持っていない今なら断らせることもできるが……？
			ENDIF
		;におい、불결さ
		CASE 1
			NIGHT_PROSTITUTION_VISITOR_客タイプ = 불결

			PRINTFORML しかし、その客は見るからに불결な容姿をしている。
			PRINTFORML こんな客の相손をするのは、随分と고통だろうが……？
		;容姿
		CASE 2
			NIGHT_PROSTITUTION_VISITOR_客タイプ = 醜悪

			PRINTFORML しかし、その客の容姿は見るからに醜悪だ。
			PRINTFORML こんな客の相손をするのは、随分と고통だろうが……？
		;サイズ
		CASEELSE
			NIGHT_PROSTITUTION_VISITOR_客タイプ = 馬並み

			PRINTFORML しかし、その客は바지の中に野球のバットでも入れているのかと思われるほどの巨根の持ち主のようだ。
			PRINTFORML こんな客の相손をするのは、随分と고통だろうが……？
		ENDSELECT

;----------------------------------------------------------------------------------------------------------------------------
;旧불쾌な客
;		PRINTFORML しかし、ただ話しているだけでも嫌悪感を掻き立てられる客だ。
;		PRINTFORML こんなのの相손をするのは、随分と고통だろうが……？
;		DRAWLINE
;		PRINTL 客データ
;		PRINTFORML 最終入浴日：{RAND:14 + 1}日前
;		PRINT 身分：
;		IF RAND:4 == 0
;			PRINTL 사회인
;		ELSEIF RAND:3 == 0
;			PRINTL 대학생
;		ELSEIF RAND:2 == 0
;			PRINTL 고등학생
;		ELSE
;			PRINTL 중학생
;		ENDIF
;		PRINT 容姿：
;		IF RAND:21 == 0
;			PRINTL ホラーボール
;		ELSEIF RAND:20 == 0
;			PRINTL 悪人顔
;		ELSEIF RAND:19 == 0
;			PRINTL 애교のある不細工
;		ELSEIF RAND:18 == 0
;			PRINTL 典型的な不細工
;		ELSEIF RAND:17 == 0
;			PRINTL 醜の体現者
;		ELSEIF RAND:16 == 0
;			PRINTL 구현化した絶望
;		ELSEIF RAND:15 == 0
;			PRINTL 壊滅的
;		ELSEIF RAND:14 == 0
;			PRINTL 生臭そう
;		ELSEIF RAND:13 == 0
;			PRINTL 悪夢
;		ELSEIF RAND:12 == 0
;			PRINTL 同情を誘う
;		ELSEIF RAND:11 == 0
;			PRINTL ＭＯＮＳＴＥＲ
;		ELSEIF RAND:10 == 0
;			PRINTL グロテスク
;		ELSEIF RAND:9 == 0
;			PRINTFORML %NAME:K%より綺麗
;		ELSEIF RAND:8 == 0
;			PRINTL 美形くずれ
;		ELSEIF RAND:7 == 0
;			PRINTL 犯罪級
;		ELSEIF RAND:6 == 0
;			PRINTL 연예인気取り
;		ELSEIF RAND:5 == 0
;			PRINTL あと一歩
;		ELSEIF RAND:4 == 0
;			PRINTL 評価不能
;		ELSEIF RAND:3 == 0
;			PRINTL 醜悪
;		ELSEIF RAND:2 == 0
;			PRINTL 名状しがたい
;		ELSE
;			PRINTL 並み
;		ENDIF
;		PRINT 性格：
;		IF RAND:23 == 0
;			PRINTL 性根の腐った豚野郎
;		ELSEIF RAND:22 == 0
;			PRINTL 意外とセクシー
;		ELSEIF RAND:21 == 0
;			PRINTL いい人ではある
;		ELSEIF RAND:20 == 0
;			PRINTL 鼻つまみ者
;		ELSEIF RAND:19 == 0
;			PRINTL 粘着質
;		ELSEIF RAND:18 == 0
;			PRINTL 被害妄想
;		ELSEIF RAND:17 == 0
;			PRINTL 尊大
;		ELSEIF RAND:16 == 0
;			PRINTL 自意識過剰
;		ELSEIF RAND:15 == 0
;			PRINTL 虚言癖
;		ELSEIF RAND:14 == 0
;			PRINTL 弱者に기가셈
;		ELSEIF RAND:13 == 0
;			PRINTL 女は肉便器
;		ELSEIF RAND:12 == 0
;			PRINTL 甘えん坊
;		ELSEIF RAND:11 == 0
;			PRINTL 外道
;		ELSEIF RAND:10 == 0
;			PRINTL サディスト
;		ELSEIF RAND:9 == 0
;			PRINTL ろくでなし
;		ELSEIF RAND:8 == 0
;			PRINTL 極悪
;		ELSEIF RAND:7 == 0
;			PRINTL 怠惰
;		ELSEIF RAND:6 == 0
;			PRINTL 冷酷
;		ELSEIF RAND:5 == 0
;			PRINTL 残虐
;		ELSEIF RAND:4 == 0
;			PRINTL 乱暴者
;		ELSEIF RAND:3 == 0
;			PRINTL 男尊女卑
;		ELSEIF RAND:2 == 0
;			PRINTL 無愛想
;		ELSE
;			PRINTL 卑怯者
;		ENDIF
;		PRINT におい：
;		IF RAND:12 == 0
;			PRINTL 刺激臭
;		ELSEIF RAND:11 == 0
;			PRINTL すっぱい
;		ELSEIF RAND:10 == 0
;			PRINTL ニンニクくさい
;		ELSEIF RAND:9 == 0
;			PRINTL 酒臭い
;		ELSEIF RAND:8 == 0
;			PRINTL 加齢臭
;		ELSEIF RAND:7 == 0
;			PRINTL 濃すぎる香水
;		ELSEIF RAND:6 == 0
;			PRINTL ワキガ
;		ELSEIF RAND:5 == 0
;			PRINTL メンソール
;		ELSEIF RAND:4 == 0
;			PRINTL 柑橘系香水
;		ELSEIF RAND:3 == 0
;			PRINTL 石鹸
;		ELSEIF RAND:2 == 0
;			PRINTL 消毒液
;		ELSE
;			PRINTL とくになし
;		ENDIF
;		PRINT 体毛：
;		IF RAND:5 == 0
;			PRINTL 野獣
;		ELSEIF RAND:4 == 0
;			PRINTL 濃い
;		ELSEIF RAND:3 == 0
;			PRINTL ふつう
;		ELSEIF RAND:2 == 0
;			PRINTL 薄い
;		ELSE
;			PRINTL 皆無
;		ENDIF
;		PRINTFORM %NAME:K%との関係：
;		IF RAND:20000 == 0
;			PRINTL 近親者
;		ELSEIF RAND:5 == 0
;			PRINTL ストーカー
;		ELSEIF RAND:4 == 0
;			PRINTL 友人・知人
;		ELSEIF RAND:3 == 0
;			PRINTL 隣人
;		ELSEIF RAND:2 == 0
;			PRINTL 顔見知り
;		ELSE
;			PRINTL 赤の他人
;		ENDIF
;		PRINT 好きなプレイ：
;		IF RAND:46 == 0
;			PRINTL ハメ撮り
;		ELSEIF RAND:45 == 0
;			PRINTL 体液採取
;		ELSEIF RAND:44 == 0
;			PRINTL 女装レズ
;		ELSEIF RAND:43 == 0
;			PRINTL パンスト破り
;		ELSEIF RAND:42 == 0
;			PRINTL ２穴責め
;		ELSEIF RAND:41 == 0
;			PRINTL 電マ責め
;		ELSEIF RAND:40 == 0
;			PRINTL 言葉責め
;		ELSEIF RAND:39 == 0
;			PRINTL ソフトＳＭ
;		ELSEIF RAND:38 == 0
;			PRINTL ハードＳＭ
;		ELSEIF RAND:37 == 0
;			PRINTL 尿を浴びせる、飲ませる
;		ELSEIF RAND:36 == 0
;			PRINTL おそうじフェラ
;		ELSEIF RAND:35 == 0
;			PRINTL 犬扱い
;		ELSEIF RAND:34 == 0
;			PRINTL 애널핥기させる
;		ELSEIF RAND:33 == 0
;			PRINTL 足舐めさせる
;		ELSEIF RAND:32 == 0
;			PRINTL 거품마사지
;		ELSEIF RAND:31 == 0
;			PRINTL ながらプレイ
;		ELSEIF RAND:30 == 0
;			PRINTL コスプレ
;		ELSEIF RAND:29 == 0
;			PRINTL イメージプレイ
;		ELSEIF RAND:28 == 0
;			PRINTL 방뇨させる
;		ELSEIF RAND:27 == 0
;			PRINTL トイレでプレイ
;		ELSEIF RAND:26 == 0
;			PRINTL 裸에이프런
;		ELSEIF RAND:25 == 0
;			PRINTL 恋人プレイ
;		ELSEIF RAND:24 == 0
;			PRINTL Ｍコース
;		ELSEIF RAND:23 == 0
;			PRINTL 顔射
;		ELSEIF RAND:22 == 0
;			PRINTL 精飲させる
;		ELSEIF RAND:21 == 0
;			PRINTL 자위鑑賞
;		ELSEIF RAND:20 == 0
;			PRINTL マンコ習字
;		ELSEIF RAND:19 == 0
;			PRINTL 食ザーさせる
;		ELSEIF RAND:18 == 0
;			PRINTL アクロバティックな体位
;		ELSEIF RAND:17 == 0
;			PRINTL 로터を複数個所に貼り付けてのセックス
;		ELSEIF RAND:16 == 0
;			PRINTL パンツずらし挿入
;		ELSEIF RAND:15 == 0
;			PRINTL 파이즈리
;		ELSEIF RAND:14 == 0
;			PRINTL 스마타
;		ELSEIF RAND:13 == 0
;			PRINTL 髪コキ
;		ELSEIF RAND:12 == 0
;			PRINTL パンツ持ち帰り
;		ELSEIF RAND:11 == 0
;			PRINTL パンツを입に突っ込む
;		ELSEIF RAND:10 == 0
;			PRINTL 鏡プレイ
;		ELSEIF RAND:9 == 0
;			PRINTL 콘돔精飲させる
;		ELSEIF RAND:8 == 0
;			PRINTL セックス中の首絞め
;		ELSEIF RAND:7 == 0
;			PRINTL 目隠しプレイ
;		ELSEIF RAND:6 == 0
;			PRINTL わさびプレイ
;		ELSEIF RAND:5 == 0
;			PRINTL 山芋プレイ
;		ELSEIF RAND:4 == 0
;			PRINTL 女体盛り
;		ELSEIF RAND:3 == 0
;			PRINTL わかめ酒
;		ELSEIF RAND:2 == 0
;			PRINTL 生け花
;		ELSE
;			PRINTL 淫語プレイ
;		ENDIF
;		PRINT 体格：
;		IF RAND:6 == 0
;			PRINTL マッチョ
;		ELSEIF RAND:5 == 0
;			PRINTL やせマッチョ
;		ELSEIF RAND:4 == 0
;			PRINTL 肥満体
;		ELSEIF RAND:3 == 0
;			PRINTL 小太り
;		ELSEIF RAND:2 == 0
;			PRINTL 痩せ型
;		ELSE
;			PRINTL 並み
;		ENDIF
;		PRINT 肌の質感：
;		IF RAND:7 == 0
;			PRINTL さらさら
;		ELSEIF RAND:6 == 0
;			PRINTL ざらざら
;		ELSEIF RAND:5 == 0
;			PRINTL ぬるぬる
;		ELSEIF RAND:4 == 0
;			PRINTL ぎとぎと
;		ELSEIF RAND:3 == 0
;			PRINTL がさがさ
;		ELSEIF RAND:2 == 0
;			PRINTL もちもち
;		ELSE
;			PRINTL すべすべ
;		ENDIF
;		PRINT 好きな体位：
;		IF RAND:7 == 0
;			PRINTL バック
;		ELSEIF RAND:6 == 0
;			PRINTL 立ちバック
;		ELSEIF RAND:5 == 0
;			PRINTL 정상위
;		ELSEIF RAND:4 == 0
;			PRINTL 屈曲位
;		ELSEIF RAND:3 == 0
;			PRINTL 대면좌위
;		ELSEIF RAND:2 == 0
;			PRINTL 배면좌위
;		ELSE
;			PRINTL 기승위
;		ENDIF
;		PRINT サイズ：
;		IF RAND:3 == 0
;			PRINTL 巨根
;		ELSEIF RAND:2 == 0
;			PRINTL 並み
;		ELSE
;			PRINTL 短小
;		ENDIF
;		PRINT 精液濃度：
;		IF RAND:4 == 0
;			PRINTL 特濃
;		ELSEIF RAND:3 == 0
;			PRINTL 濃厚
;		ELSEIF RAND:2 == 0
;			PRINTL 並み
;		ELSE
;			PRINTL さらさら
;		ENDIF
;		PRINT 持続力、回数：
;		IF RAND:8 == 0
;			PRINTL 절륜
;		ELSEIF RAND:7 == 0
;			PRINTL 淡白
;		ELSEIF RAND:6 == 0
;			PRINTL 粘着質
;		ELSEIF RAND:5 == 0
;			PRINTL 回数勝負
;		ELSEIF RAND:4 == 0
;			PRINTL 持続時間長
;		ELSEIF RAND:3 == 0
;			PRINTL 戦術的遅延
;		ELSEIF RAND:2 == 0
;			PRINTL 一発が重い
;		ELSE
;			PRINTL 脅威の発射回数
;		ENDIF
;		PRINT 備考：
;		IF RAND:16 == 0
;			PRINTL 爪が汚い
;		ELSEIF RAND:15 == 0
;			PRINTL 奇声を上げる
;		ELSEIF RAND:14 == 0
;			PRINTL 「記念品」を持ち帰る
;		ELSEIF RAND:13 == 0
;			PRINTL あちこち嗅ぐ
;		ELSEIF RAND:12 == 0
;			PRINTL やたら写真を撮る
;		ELSEIF RAND:11 == 0
;			PRINTL やたら電話番号とメアドを聞く
;		ELSEIF RAND:10 == 0
;			PRINTL 本気で落としに来てる
;		ELSEIF RAND:9 == 0
;			PRINTL 선물攻勢をかけてくる
;		ELSEIF RAND:8 == 0
;			PRINTL やたら酔わせようとしてくる
;		ELSEIF RAND:7 == 0
;			PRINTL 値切り交渉してくる
;		ELSEIF RAND:6 == 0
;			PRINTL 愚痴が多い
;		ELSEIF RAND:5 == 0
;			PRINTL 潮をふかせようと頑張る
;		ELSEIF RAND:4 == 0
;			PRINTL 根は決して悪くない
;		ELSEIF RAND:3 == 0
;			PRINTL 褒められたがり
;		ELSEIF RAND:2 == 0
;			PRINTL 女のパンツを穿きたがる
;		ELSE
;			PRINTL 一方的に趣味の話をする
;		ENDIF
;		DRAWLINE
;----------------------------------------------------------------------------------------------------------------------------
	ELSEIF L == 8
		PRINTFORML 客は何故か、콘돔の使用を強く거절している。
		PRINTFORML 何か含む物がありそうだが……？
	ELSEIF L == 9
		PRINTFORML 態度は尊大だが、身なりからして収入には期待できそうな客だが……？
;		PRINTFORML 身なりからして収入には期待できそうな客だが……？
	ENDIF
	PRINTL
	[IF 売春一括指示]
		LOCAL:99 = GET_AUTO_PROSTITUTION_FILTER( L )
		DEBUGPRINTFORML {LOCAL:99}
		SELECTCASE LOCAL:99
			CASE 売春一括指示_INPUT
				GOTO AUTO_PROSTITUTION_FILTER_INPUT
			CASE 売春一括指示_TRUE, 売春一括指示_FALSE
				RESULT = !LOCAL:99
				CALL PRINT_AUTO_PROSTITUTION_FILTER( RESULT, K )
				GOTO AUTO_PROSTITUTION_FILTER_DECIDED
		ENDSELECT
		$AUTO_PROSTITUTION_FILTER_INPUT
	[ENDIF]
	PRINTL [0] - 客を取らせる
	PRINTL [1] - 断らせる
	$INPUT_LOOP
	INPUT
	[IF 売春一括指示]
		$AUTO_PROSTITUTION_FILTER_DECIDED
	[ENDIF]
	IF RESULT == 0

;		PRINTFORMW 客は%NAME:K%を引き連れてホテルへと消えて行った。
		CALL PROSTITUTION_RESULT,K
		CFLAG:K:12 = 2
	ELSEIF RESULT != 1
		GOTO INPUT_LOOP
	ENDIF
ELSE
	PRINTFORMW どうやら客は気に入った女を見つけられなかったらしく、夜の中へと去って行った。
ENDIF

@PROSTITUTION_RESULT, ARG
;変数初期化
C = 0
;ABL:순종をみる
IF ABL:ARG:0 == 0
	P = 0
ELSEIF ABL:ARG:0 == 1
	P = 2
ELSEIF ABL:ARG:0 == 2
	P = 3
ELSEIF ABL:ARG:0 == 3
	P = 4
ELSEIF ABL:ARG:0 == 4
	P = 5
ELSEIF ABL:ARG:0 == 5
	P = 6
ELSEIF ABL:ARG:0 == 6
	P = 8
ELSEIF ABL:ARG:0 == 7
	P = 10
ELSEIF ABL:ARG:0 == 8
	P = 12
ELSEIF ABL:ARG:0 == 9
	P = 14
ELSE
	P = 17
ENDIF
C += P

;ABL:욕망をみる
IF ABL:ARG:1 == 0
	P = 1
ELSEIF ABL:ARG:1 == 1
	P = 2
ELSEIF ABL:ARG:1 == 2
	P = 3
ELSEIF ABL:ARG:1 == 3
	P = 4
ELSEIF ABL:ARG:1 == 4
	P = 5
ELSEIF ABL:ARG:1 == 5
	P = 6
ELSEIF ABL:ARG:1 == 6
	P = 8
ELSEIF ABL:ARG:1 == 7
	P = 10
ELSEIF ABL:ARG:1 == 8
	P = 12
ELSEIF ABL:ARG:1 == 9
	P = 14
ELSE
	P = 16
ENDIF
;SIF P > 0
;	PRINTFORML %ABLNAME:1%{ABL:ARG:1}LV 行為数+{P}
C += P

;ABL:기교をみる
IF ABL:ARG:2 == 0
	P = 1
ELSEIF ABL:ARG:2 == 1
	P = 2
ELSEIF ABL:ARG:2 == 2
	P = 3
ELSEIF ABL:ARG:2 == 3
	P = 5
ELSEIF ABL:ARG:2 == 4
	P = 7
ELSEIF ABL:ARG:2 == 5
	P = 9
ELSEIF ABL:ARG:2 == 6
	P = 11
ELSEIF ABL:ARG:2 == 7
	P = 13
ELSEIF ABL:ARG:2 == 8
	P = 15
ELSEIF ABL:ARG:2 == 9
	P = 18
ELSE
	P = 20
ENDIF
;SIF P > 0
;	PRINTFORML %ABLNAME:2%{ABL:ARG:2}LV 行為数+{P}
C += P

;ABL:봉사정신をみる
IF ABL:ARG:7 == 0
	P = 0
ELSEIF ABL:ARG:7 == 1
	P = 1
ELSEIF ABL:ARG:7 == 2
	P = 2
ELSEIF ABL:ARG:7 == 3
	P = 3
ELSEIF ABL:ARG:7 == 4
	P = 5
ELSEIF ABL:ARG:7 == 5
	P = 6
ELSEIF ABL:ARG:7 == 6
	P = 8
ELSEIF ABL:ARG:7 == 7
	P = 9
ELSEIF ABL:ARG:7 == 8
	P = 11
ELSEIF ABL:ARG:7 == 9
	P = 12
ELSE
	P = 15
ENDIF
C += P

D = 0
IF RAND:10 == 0
;애널好きの客
;ABL:Ａ감각をみる
	D = 1
	IF ABL:ARG:5 == 0
		P = 0
	ELSEIF ABL:ARG:5 == 1
		P = 1
	ELSEIF ABL:ARG:5 == 2
		P = 2
	ELSEIF ABL:ARG:5 == 3
		P = 2
	ELSEIF ABL:ARG:5 == 4
		P = 3
	ELSEIF ABL:ARG:5 == 5
		P = 3
	ELSEIF ABL:ARG:5 == 6
		P = 4
	ELSEIF ABL:ARG:5 == 7
		P = 4
	ELSEIF ABL:ARG:5 == 8
		P = 5
	ELSEIF ABL:ARG:5 == 9
		P = 5
	ELSE
		P = 6
	ENDIF
	C += P
ELSEIF RAND:9 == 0
	D = 2
;レズ客
;ABL:레즈끼をみる
	IF ABL:ARG:11 == 0
		P = 0
	ELSEIF ABL:ARG:11 == 1
		P = 1
	ELSEIF ABL:ARG:11 == 2
		P = 2
	ELSEIF ABL:ARG:11 == 3
		P = 2
	ELSEIF ABL:ARG:11 == 4
		P = 3
	ELSEIF ABL:ARG:11 == 5
		P = 3
	ELSEIF ABL:ARG:11 == 6
		P = 4
	ELSEIF ABL:ARG:11 == 7
		P = 4
	ELSEIF ABL:ARG:11 == 8
		P = 5
	ELSEIF ABL:ARG:11 == 9
		P = 5
	ELSE
		P = 6
	ENDIF
	C += P
ENDIF
;ABL:Ｖ감각をみる
IF ABL:ARG:4 == 0
	P = 0
ELSEIF ABL:ARG:4 == 1
	P = 1
ELSEIF ABL:ARG:4 == 2
	P = 2
ELSEIF ABL:ARG:4 == 3
	P = 2
ELSEIF ABL:ARG:4 == 4
	P = 3
ELSEIF ABL:ARG:4 == 5
	P = 3
ELSEIF ABL:ARG:4 == 6
	P = 4
ELSEIF ABL:ARG:4 == 7
	P = 4
ELSEIF ABL:ARG:4 == 8
	P = 5
ELSEIF ABL:ARG:4 == 9
	P = 5
ELSE
	P = 6
ENDIF
C += P

;ABL:섹스중독をみる
IF ABL:ARG:18 == 0
	P = 0
ELSEIF ABL:ARG:18 == 1
	P = 1
ELSEIF ABL:ARG:18 == 2
	P = 2
ELSEIF ABL:ARG:18 == 3
	P = 3
ELSEIF ABL:ARG:18 == 4
	P = 4
ELSEIF ABL:ARG:18 == 5
	P = 5
ELSEIF ABL:ARG:18 == 6
	P = 6
ELSEIF ABL:ARG:18 == 7
	P = 7
ELSEIF ABL:ARG:18 == 8
	P = 8
ELSEIF ABL:ARG:18 == 9
	P = 9
ELSE
	P = 12
ENDIF
C += P

;奴隷の체력によって、行為数を減らす（1プレイ체력20で換算）
IF BASE:ARG:0 < C*20
	C = BASE:ARG:0/20
	PRINTFORML <체력不足>
ENDIF

SIF C > 0
	PRINTFORML 総行為数：{C}

;報酬の計算
S = C * 700
;好みによる補正（減点法）
J *= 5
J += 50
S *= J
S /= 100
	PRINTFORML 好みによる補正：{J}％
;陥落素質
;연모
IF TALENT:ARG:3
	S /= 2
	PRINTFORML %TALENTNAME:3% －50％
;음란
ELSEIF TALENT:ARG:4
	S *= 3
	S /= 2
	PRINTFORML %TALENTNAME:4% ＋50％
;복종
ELSEIF TALENT:ARG:5
	S *= 13
	S /= 10
	PRINTFORML %TALENTNAME:5% ＋30％
;친애
ELSEIF TALENT:ARG:6
	S /= 2
	PRINTFORML %TALENTNAME:6% －50％
;창녀
ELSEIF TALENT:ARG:7
	S *= 2
	PRINTFORML %TALENTNAME:7% ＋100％
;예속
ELSEIF TALENT:ARG:8
	S *= 3
	S /= 2
	PRINTFORML %TALENTNAME:8% ＋50％
ELSEIF TALENT:ARG:동화
	S *= 5
	S /= 4
	PRINTFORML 동화 ＋25％
ELSEIF TALENT:ARG:모판
	S *= 5
	S /= 4
	PRINTFORML 모판 ＋25％
ELSE
;	S /= 5
;	PRINTFORML 未陥落 -80％
	S /= 2
	PRINTFORML 未陥落 －50％
ENDIF

IF TALENT:ARG:처녀 == 1
	S *= 2
	PRINTFORML %TALENTNAME:0% +100％
ENDIF
;希少性
IF TALENT:ARG:중학생 == 1
	S *= 6
	S /= 5
	PRINTFORML %TALENTNAME:420% +20％
ENDIF
IF TALENT:ARG:초등학생 == 1
	S *= 3
	S /= 2
	PRINTFORML %TALENTNAME:422% +50％
ENDIF

IF TALENT:ARG:수수께끼의매력 == 1
	S *= 3
	S /= 2
	PRINTFORML 수수께끼의매력 +50％
ENDIF
IF TALENT:ARG:논외 == 1
	S /= 100
	PRINTFORML 논외 -99％
ENDIF
;붕괴,광기,임신は報酬をかなり低くする（순종によって、80％まで回復）
IF TALENT:ARG:붕괴 || TALENT:ARG:광기 || TALENT:ARG:임신
PRINTL
	IF TALENT:ARG:붕괴
		S *= ABL:ARG:0
		TIMES S , 0.08
		Z = ABL:ARG:0
		Z *= 8
		PRINTFORML %TALENTNAME:9% ×{Z}％
	ELSEIF TALENT:ARG:광기
		S *= ABL:ARG:0
		TIMES S , 0.08
		Z = ABL:ARG:0
		Z *= 8
		PRINTFORML %TALENTNAME:291% ×{Z}％
	ELSEIF TALENT:ARG:임신
		S *= ABL:ARG:0
		TIMES S , 0.08
		Z = ABL:ARG:0
		Z *= 8
		PRINTFORML %TALENTNAME:303% ×{Z}％
	ENDIF
PRINTL
ENDIF
IF L != 8
	[IF 売春一括指示]
		LOCAL:99 = GET_AUTO_PROSTITUTION_CONTRACEPTION( L )
		SELECTCASE LOCAL:99
			CASE 売春一括指示_INPUT
				GOTO AUTO_PROSTITUTION_CONTRACEPTION_INPUT
			CASE 売春一括指示_生
				RESULT = 0
				;CALL PRINT_AUTO_PROSTITUTION_CONTRACEPTION( RESULT, K )
				GOTO AUTO_PROSTITUTION_CONTRACEPTION_DECIDED
			CASE 売春一括指示_콘돔
				RESULT = 1
				;CALL PRINT_AUTO_PROSTITUTION_CONTRACEPTION( RESULT, K )
				GOTO AUTO_PROSTITUTION_CONTRACEPTION_DECIDED
		ENDSELECT
		$AUTO_PROSTITUTION_CONTRACEPTION_INPUT
	[ENDIF]
	PRINTL 避妊の有無と方法を選択してください
	PRINTL [0]   - 避妊しない
	SIF MONEY > 500
		PRINTFORML [1]   - 콘돔(500円）
	PRINTL [100] -   戻る
	$INPUT_LOOP_2
	INPUT
	[IF 売春一括指示]
		$AUTO_PROSTITUTION_CONTRACEPTION_DECIDED
	[ENDIF]
	IF RESULT == 0
		B = 1
	ELSEIF RESULT == 1 && MONEY > 500
		MONEY -= 500
	;避妊による修正
		TIMES S , 0.8
		PRINTFORML 避妊 ×80％
		B = 2
	ELSEIF RESULT == 100
		RETURN 0
	ELSE
		GOTO INPUT_LOOP_2
	ENDIF
ELSE
	B = 1
ENDIF
;難易度処理
;EASY
IF FLAG:4 == 1
	PRINTFORML 난이도：EASY ×120％
	TIMES S , 1.20
;NORMAL
ELSEIF FLAG:4 == 2
	TIMES S , 1.00
;HARD
ELSEIF FLAG:4 == 3
	PRINTFORML 난이도：HARD ×80％
	TIMES S , 0.80
ENDIF
;経験その他
;最終的に何回出したか
C = S / 10000
;金のない客
IF L == 6
	PRINTFORML 客の所持金による修正:×50％
	S /= 2
;金のある客
ELSEIF L == 9
	PRINTFORML 客の所持金による修正:×200％
	S *= 2
ENDIF
;협박中
IF CFLAG:ARG:117 == 3
	PRINTFORML ……？:×50％
	S /= 2
ENDIF

MONEY += S
CALL PROSTITUTION_MESSAGE,ARG
PRINTFORML 보수로 {S}엔을 얻었다。

;売春売上記録
CFLAG:ARG:181 += S

SIF C <= 0
	C = 1
D = 0
;奴隷が처녀の場合
IF TALENT:ARG:0
	PRINTFORML 처녀상실
	PRINTFORML 売春で처녀喪失：%EXPNAME:50%＋2
	EXP:ARG:50 += 2
	TALENT:ARG:0 = 0
	;체력の減少
	BASE:ARG:0 -= C*500
	;스트레스치の付加
	D = 20
ELSEIF TALENT:ARG:1
	PRINTFORML 재생처녀喪失
	TALENT:ARG:1 = 0
	;체력の減少
	BASE:ARG:0 -= C*250
	;스트레스치の付加
	D = 10
ELSE
	;체력の減少
	BASE:ARG:0 -= C*200
	;스트레스치の付加
	D = 5
ENDIF
;V経験
IF TALENT:ARG:남자 == 0
	EXP:ARG:0 += C
	PRINTFORML %EXPNAME:0%＋{C}
	;Ｖ확장경험
	IF NIGHT_PROSTITUTION_VISITOR_客タイプ == "馬並み"
		;初Ｖ확장경험
		IF EXP:ARG:52 == 0
			PRINTFORML %EXPNAME:52%＋{C}
			PRINTFORML 初Ｖ확장경험：%EXPNAME:50%＋1
			EXP:ARG:50 += 1
			EXP:ARG:52 += C
		ELSE
			EXP:ARG:52 += C
			PRINTFORML %EXPNAME:52%＋{C}
		ENDIF
	ENDIF
ENDIF
;レズ客じゃない、펠라경험
IF D != 2
	EXP:ARG:22 += 1
	PRINTFORML %EXPNAME:22%＋1
ENDIF

IF D == 1
;애널客
	EXP:ARG:1 += C
	PRINTFORML %EXPNAME:1%＋{C}
	;스트레스치の付加
	D += 2
ELSEIF D == 2
;レズ客
	EXP:ARG:40 += C
	PRINTFORML %EXPNAME:40%＋{C}
	D += 1
ENDIF
;콘돔なし かつ子宮内結界なし
IF B == 1 && CFLAG:ARG:108 == 0 && TALENT:ARG:남자 == 0
	EXP:ARG:5 += C
	SIF L == 8
;中だしに拘る客　(中だしカウントを2倍に数える：임신させやすい)
		CFLAG:ARG:105 += C
	CFLAG:ARG:105 += C
	PRINTFORML %EXPNAME:5%＋{C}
	D += 2
ENDIF
;レズ客じゃない、정액경험も追加
IF D != 2
	EXP:ARG:20 += 1
	PRINTFORML %EXPNAME:20%＋1
ENDIF

;タレントによるストレスへの補正
;未陥落はストレス急上昇
SIF IS_FALLEN(ARG)
	D += 3
SIF TALENT:ARG:음란 == 1
	D -= 1
SIF TALENT:ARG:창녀 == 1
	D -= 2
SIF TALENT:ARG:반항적 == 1
	D += 1
SIF TALENT:ARG:프라이드높음 == 1
	D += 1
SIF TALENT:ARG:프라이드낮음 == 1
	D -= 1
SIF TALENT:ARG:보수적 == 1
	D += 1
SIF TALENT:ARG:낙관적 == 1
	D -= 1
SIF TALENT:ARG:비관적 == 1
	D += 1
SIF TALENT:ARG:정조관념 == 1
	D += 1
SIF TALENT:ARG:정조무관심 == 1
	D -= 1
SIF TALENT:ARG:쾌감에솔직 == 1
	D -= 1
SIF TALENT:ARG:쾌감을부정 == 1
	D += 1
SIF TALENT:ARG:감정부족 == 1
	D -= 1
SIF TALENT:ARG:인간혐오 == 1
	D += 1
SIF TALENT:ARG:고결 == 1
	D += 1
SIF TALENT:ARG:성악 == 1
	D -= 1
SIF TALENT:ARG:결벽성 == 1
	D += 1
SIF TALENT:ARG:레이프소망 == 1
	D -= 1
SIF TALENT:ARG:걸레녀 == 1
	D -= 2
SIF TALENT:ARG:영구발정 == 1
	D -= 2
SIF D <= 0
	D = 1

;売春慣れ
IF EXP:ARG:57 > 100
	D -= 5
ELSEIF EXP:ARG:57 > 64
	D -= 4
ELSEIF EXP:ARG:57 > 36
	D -= 3
ELSEIF EXP:ARG:57 > 16
	D -= 2
ELSEIF EXP:ARG:57 > 4
	D -= 1
ENDIF
SIF D <= 0
	D = 1
IF L == 7
	PRINTFORML 불쾌な客:×300％
	D *= 3
;불쾌な客
ENDIF

IF EXP:ARG:57 == 0
	PRINTFORML 初売春：%EXPNAME:50%＋1
	EXP:ARG:50 += 1
ENDIF
EXP:ARG:57 += 1
PRINTFORML %EXPNAME:57%＋1

;스트레스치の付加
CFLAG:ARG:10 += D
PRINTFORML 스트레스＋{D}

;스트레스치100以上で붕괴を得る
IF CFLAG:ARG:10 >= 100 && TALENT:ARG:9 == 0
	;売春で【붕괴】を得た場合のイベント
	PRINTFORMW %CALLNAME:ARG%의 모습이 이상하다
	PRINTFORMW 身体を売ることへの拒否感から、정신에 이상이 생겨버린 것 같다
	PRINTFORMW %조사처리(NAME:ARG,"은")% 【붕괴】해 버렸다
		TALENT:ARG:붕괴 = 1
;붕괴による素質の変化をコメントアウト
;	IF TALENT:ARG:3 || TALENT:ARG:4 || TALENT:ARG:5 || TALENT:ARG:6 || TALENT:ARG:7 || TALENT:ARG:8
;		PRINTFORM %ARG는% [
;		SIF TALENT:ARG:3
;			PRINTS TALENTNAME:3
;		SIF TALENT:ARG:4
;			PRINTS TALENTNAME:4
;		SIF TALENT:ARG:5
;			PRINTS TALENTNAME:5
;		SIF TALENT:ARG:6
;			PRINTS TALENTNAME:6
;		SIF TALENT:ARG:7
;			PRINTS TALENTNAME:7
;		SIF TALENT:ARG:8
;			PRINTS TALENTNAME:8
;		PRINTW ]を失った
;		SIF TALENT:ARG:3
;			TALENT:ARG:3 = 0
;		SIF TALENT:ARG:4
;			TALENT:ARG:4 = 0
;		SIF TALENT:ARG:5
;			TALENT:ARG:5 = 0
;		SIF TALENT:ARG:6
;			TALENT:ARG:6 = 0
;		SIF TALENT:ARG:7
;			TALENT:ARG:7 = 0
;		SIF TALENT:ARG:8
;			TALENT:ARG:8 = 0
;	ENDIF

	;;붕괴による素質の変化
	;CALL EVENT_CHANGE_TALENT_HOUKAI

	CALL DIARY_SET,"売春することへの拒否感により"+NAME:ARG+"의 정신이 무너져 버렸다。"
ENDIF

NIGHT_PROSTITUTION_VISITOR_客タイプ =

;客がマイナス特性の場合は客上限上昇
;客上限上昇率をマイナス特性ごとに変えてみる
;金が少ない
IF L == 6
	CALL NIGHT_PROSTITUTION_VISITOR_UP(3)
;ストレス過大
ELSEIF L == 7
	CALL NIGHT_PROSTITUTION_VISITOR_UP(7)
;孕ませ好き
ELSEIF L == 8
	CALL NIGHT_PROSTITUTION_VISITOR_UP(5)
ENDIF
;SIF L == 6 || L == 7 || L == 8
;

@PROSTITUTION_MESSAGE,ARG
;イベント입上の表示
T = TARGET
TARGET = ARG
TFLAG:13 = 16

;Lは客の特性 0-5で何もなし、6で金が少ない、7でストレス過大な客,8で孕ませ好き、9で金が多い
IF L == 6
	PRINTL
	PRINTFORML その夜の客は、払いが少なかった。
	PRINTL
	IF TALENT:ARG:처녀
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATAFORM 『こんな金で初物が買えるなんて、今日はツイてるな！』
				DATAFORM 『おいおい、冗談だろう？　こんなはした金で처녀を売るのかよ。』
				DATALIST
					DATAFORM 『こんなはした金で처녀を売るなんて、いじめか？　それとも罰ゲームなのか？』
					DATAFORM 『まっ、俺にはかんけねー、楽しませてもらうぜ！』
				ENDLIST
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATAFORM 『こんなはした金で처녀\@ RAND:2 == 0 ? に生ハメ中出しできる # とゴム無しセックスできる \@なんて、今日はツイてるな！』
				DATAFORM 『この金額で처녀に生ハメ中出しなんて、どんだけサービスいいんだよ。』
				DATALIST
					DATAFORM 『こんなはした金で처녀売って、しかもを\@ RAND:2 == 0 ? 生ハメ中出しＯＫだ # ゴム無しでいい \@なんて、いじめか？　それとも罰ゲームなのか？』
					DATAFORM 『まっ、俺にはかんけねー、たっぷりと楽しませてもらうぜ！』
				ENDLIST
				DATALIST
					DATAFORM 『こんな金額で처녀売ってるんだ、ついでに\@ RAND:2 == 0 ? 生ハメ中出し # 生エッチ \@もサービスしてくれよ？』
					DATAFORM 『マジ！？　いいの？　言ってみるもんだな。　今日はキンタマ枯れるまでやりまくってやるぜ！』
				ENDLIST
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:임신
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATAFORM 『そんなお腹じゃ誰も買ってくれないだろ？　この金額で我慢しな。』
				DATAFORM 『俺には妊婦趣味はねーから、出せてここまでだな。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATALIST
					DATAFORM 『임신してるんじゃ、\@ RAND:2 == 0 ? 生ハメ中出しの追加料金はいらないよな？ # 追加料金なしでゴム無しいいよな？ \@』
					DATAFORM （임신関係なしにナマの方が気持ちいいんだけど、言う必要はないよな？）
				ENDLIST
				DATAFORM 『種付け済みのオンナ相손だと\@ RAND:2 == 0 ? 生ハメ中出しの価値も # ゴム無しでの料金は \@これぐらいだよな。』
			ENDDATA
		ENDIF
	;初売春、経験処理が입上呼び出しより後なので追加してみる
	ELSEIF EXP:ARG:매춘경험 == 0
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATALIST
					DATAFORM 『ここじゃ、これぐらいが相場なんだぜ。』
					DATAFORM （こいつ、ウリするのは初めてみたいだな……、少なく出して様子見るか。）
				ENDLIST
				DATALIST
					DATAFORM 『慣れてないみたいだから、出せるのはこれぐらいだな。』
					DATAFORM （こいつ、ウリするのは初めてみたいだな……、少なく出して様子見るか。）
				ENDLIST
				DATALIST
					DATAFORM 『生ハメ中出し無しだと、これぐらいが相場なんだぜ。』
					DATAFORM （こいつ、ウリするのは初めてみたいだな……、少なく出して様子見るか。）
				ENDLIST
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATALIST
					DATAFORM 『ここじゃ、生ハメ中出し代入れて、これぐらいが相場なんだぜ。』
					DATAFORM （こいつ、ウリするのは初めてみたいだな……、少なく出して様子見るか。）
				ENDLIST
				DATALIST
					DATAFORM 『慣れてないみたいだから、生ハメ中出しありでも出せるのはこれぐらいだな。』
					DATAFORM （こいつ、ウリするのは初めてみたいだな……、少なく出して様子見るか。）
				ENDLIST
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:초등학생
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATALIST
					DATAFORM 『生ハメ中出し無しだと、相場はこんなもんだな。　安い？　ここらじゃ、こんなもんだぜ。』
					DATAFORM （騙されてる、騙されてる。やっぱ초등학생は最高だぜ！）
				ENDLIST
				DATALIST
					DATAFORM 『へへ、大金だろ？　これでお菓子がいっぱい買えるな。』
					DATAFORM （초등학생なら、こんなもんでいいだろ。）
				ENDLIST
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATALIST
					DATAFORM 『초등학생なら임신しないよな？　だったら\@ RAND:2 == 0 ? 生ハメ中出し # ゴム無し \@代の上乗せ分はこんなもんだな。』
					DATAFORM （騙されてる、騙されてる。やっぱ초등학생は最高だぜ！）
				ENDLIST
				DATALIST
					DATAFORM 『へへ、大金だろ？　これでお菓子がいっぱい買えるな。』
					DATAFORM （この金額で초등학생\@ RAND:2 == 0 ? に生ハメ中出し # とナマで \@できるなんて、今日はツイてるな。）
				ENDLIST
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:성직자
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATALIST
					DATAFORM 『この金額で体を売るなんて、思わず入信したくなる宗教だな！』
					DATAFORM （さすがにコスプレだよな？　まっ、ヤレりゃどっちでもいいか。）
				ENDLIST
				DATALIST
					DATAFORM 『こんなはした金で体を売るって、慈善活動ってヤツか？』
					DATAFORM 『へへっ、神に仕えるってのも大変だな！』
				ENDLIST
				DATAFORM 『가난でオンナに恵まれない俺に施ししてくれよ。　マジ？　いいの？　言ってみるもんだな！』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATALIST
					DATAFORM 『この金額で\@ RAND:2 == 0 ? 生ハメ中出し # 避妊しない \@ってそういう宗教なのか？』
					DATAFORM （さすがにコスプレだよな？　まっ、ヤレりゃどっちでもいいか。）
				ENDLIST
				DATALIST
					DATAFORM 『こんなはした金で\@ RAND:2 == 0 ? 生ハメ中出しＯＫ # 避妊しないでいい \@って、これが産めよ増やせよってヤツか？』
					DATAFORM （さすがにコスプレだよな？　まっ、ヤレりゃどっちでもいいか。）
				ENDLIST
			ENDDATA
		ENDIF
	ELSE
		;ゴムあり
		IF B == 2
			PRINTDATAW
				DATAFORM 『まさか、こんなはした金で女が買えるとは思わなかったぜ。』
				DATAFORM 『おいおい、冗談だろう？　こんなはした金で体売るのかよ。』
				DATAFORM 『お前、体売ってるんじゃなくて、ただ男が欲しいだけなんだろう？』
				DATAFORM 『こんな金で買える女なんて大したことないだろうと思ったが、案外別嬪じゃねえか』
				DATAFORM （この女、相場を知らないらしいな。　へへっ、儲けたぜ。）
				DATAFORM 『他の奴にも教えてやらないとな。　皆、金は無いけど女に飢えてるからよ』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAW
				DATALIST
					DATAFORM 『まさか、こんなはした金で\@ RAND:2 == 0 ? 生ハメ中出しできる # ゴム無しＯＫ \@とは思わなかったぜ。』
					DATAFORM （この女、相場を知らないらしいな。　へへっ、儲けたぜ。）
				ENDLIST
				DATALIST
					DATAFORM 『おいおい、冗談だろう？　こんなはした金で\@ RAND:2 == 0 ? 生ハメ中出しさせるのかよ？ # ゴム無しＯＫなのかよ？ \@』
					DATAFORM （この女、相場を知らないらしいな。　へへっ、儲けたぜ。）
				ENDLIST
				DATALIST
					DATAFORM 『こんなはした金で\@ RAND:2 == 0 ? 生ハメ中出しＯＫだって？ # ゴム無しＯＫだって？ \@』
					DATAFORM 『お前、体売ってるんじゃなくて、ただ男が欲しいだけなんだろう？』
				ENDLIST
				DATALIST
					DATAFORM 『こんな金で買える女なんて大したことないだろうと思ったが、案外別嬪じゃねえか』
					DATAFORM （……この金額で\@ RAND:2 == 0 ? ゴム無しＯＫって # ナマでいいなんて \@病気持ちじゃねーだろうな。）
				ENDLIST
				DATAFORM 『こんなはした金で\@ RAND:2 == 0 ? 生ハメ中出しさせる # ナマでいい \@なんて、가난人の子を孕む趣味でもあるのか？』
				DATAFORM 『他の奴にも教えてやらないとな。　この金額で\@ RAND:2 == 0 ? 生ハメ中出しできる # ナマでできる \@なんて、皆、飛びついてくるぜ。』
			ENDDATA
		ENDIF
	ENDIF
;ストレス過大な客
ELSEIF L == 7
	PRINTL
	IF NIGHT_PROSTITUTION_VISITOR_客タイプ == "近親者"
		PRINTFORML その夜の客は、%CALLNAME:ARG%의 身内だった。
		PRINTL
		IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
			IF TALENT:ARG:남편있음
				;彼氏旦那の呼び名設定ありCSTR14
				IF CSTR:ARG:14 != ""
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%とだなんて、\@ TALENT:ARG:남자 ?  # 旦那の \@%CSTR:ARG:14%に悪いなぁ……。』
						DATAFORM 『\@ TALENT:ARG:남자 ?  # 旦那の \@%CSTR:ARG:14%に内緒でこんな事してるなんて……%ARG는% 悪い子だなぁ……。』
						DATAFORM 『\@ TALENT:ARG:남자 ?  # 旦那 \@とじゃ満足できなくて、こんな事してるのかい？』
						DATAFORM 『家計が苦しくて、こんな事してるのかい？　だったら、次からはまず私に……。』
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%とだなんて、あいつに悪いなぁ……。』
						DATAFORM 『あいつに内緒でこんな事してるなんて……%ARG는% 悪い子だなぁ……。』
						DATAFORM 『あいつとじゃ満足できなくて、こんな事してるのかい？』
						DATAFORM 『家計が苦しくて、こんな事してるのかい？　だったら、次からはまず私に……。』
					ENDDATA
				ENDIF
			ELSEIF TALENT:ARG:남친있음
				;彼氏旦那の呼び名設定ありCSTR14
				IF CSTR:ARG:14 != ""
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%とだなんて、\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@の%CSTR:ARG:14%に悪いなぁ……。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@の%CSTR:ARG:14%に内緒でこんな事してるなんて……%ARG는% 悪い子だなぁ……。』
						DATAFORM 『付き合ってる\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@がいるって聞いてたけど、いいのかい？　……そうか』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@とじゃ満足できなくて、こんな事してるのかい？』
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%とだなんて、\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@に悪いなぁ……。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@に内緒でこんな事してるなんて……%ARG는% 悪い子だなぁ……。』
						DATAFORM 『付き合ってる彼氏がいるって聞いてたけど、いいのかい？　……そうか』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@とじゃ満足できなくて、こんな事してるのかい？』
					ENDDATA
				ENDIF
			ELSEIF TALENT:ARG:교제
				PRINTDATAL
					DATALIST
						DATAFORM 『この前、%CALLNAME:ARG%に恋人が出来たって聞いたけど、カラダ売ってるの？』
						DATAFORM 『%CALLNAME:ARG%って本当はエッチな子だった？』
					ENDLIST
					DATALIST
						DATAFORM 『この前、恋人ができたって嬉しそうに話してなかったっけ？』
						DATAFORM 『恋人がいるのにこんな事してるなんて……%ARG는% 悪い子だなぁ……。』
					ENDLIST
					DATALIST
						DATAFORM 『あれ？　%CALLNAME:ARG%？』
						DATAFORM 『%CALLNAME:ARG%に恋人ができたって聞いた記憶があるけど……』
						DATAFORM 『いいの？　こんなことしてて？　まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
					ENDLIST
				ENDDATA
			ENDIF
		ELSE
			PRINTDATAL
				DATAFORM 『……へぇー　あの%CALLNAME:ARG%がこんな事してるなんて……　これは味わってみないとな。』
				DATAFORM 『あの小さかった%CALLNAME:ARG%と……興奮するな……。』
				DATALIST
					DATAFORM 『%CALLNAME:ARG%！？　%CALLNAME:ARG%じゃないか！　こんなところで何を……って聞くまでもないか……。』
					DATAFORM 『ちょっと悪い気もするけど、よろしく頼むよ。』
				ENDLIST
				DATALIST
					DATAFORM 『%CALLNAME:ARG%？　%CALLNAME:ARG%だよな？　久しぶりだなぁ……。』
					DATAFORM 『こんなに大きくなって……　これは、成長具合をよく見ないとな……。』
				ENDLIST
				DATALIST
					DATAFORM 『%CALLNAME:ARG%がいて驚いたけど……。』
					DATAFORM 『いとこ同士は鴨の味って言うし……　今日は%CALLNAME:ARG%とシようかな。』
				ENDLIST
			ENDDATA
		ENDIF
	;ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "ストーカー"
	;	IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
	;
	;	ELSE
	;		DATALIST
	;			DATAFORM 『ウヒッ　%CALLNAME:ARG%ちゃんとセックスできるなんて夢みたいだ♪』
	;			DATAFORM 『ず、ずっと見てるだけだった%CALLNAME:ARG%ちゃんと……　はや、はやくホテルいこっ！』
	;		ENDLIST
	;	ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "知人"
		PRINTFORML その夜の客は、%CALLNAME:ARG%의 知人だった。
		PRINTL
		IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
			IF TALENT:ARG:남편있음
				;彼氏旦那の呼び名設定ありCSTR14
				IF CSTR:ARG:14 != ""
					PRINTDATAL
						DATAFORM 『\@ TALENT:ARG:남자 ? 奥さん # 旦那 \@の%CSTR:ARG:14%には内緒してあげるから、サービスよろしくね♪』
						DATAFORM 『へぇー……　%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って%CSTR:ARG:14%に内緒でこんな事してたんだ……。』
						DATAFORM 『知り合いの\@ TALENT:ARG:남자 ? 旦那 # 奥さん \@とヤレるなんて、興奮するなぁ。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 奥さん # 旦那 \@とじゃ満足できなくて、こんな事してるのかい？』
						DATAFORM 『……悪いな、%CSTR:ARG:14%。　お前の\@ TALENT:ARG:남자 ? 旦那 # 奥さん \@、買っちゃうよ。』
						DATALIST
							DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って%CSTR:ARG:14%と結婚してなかったっけ？』
							DATAFORM 『まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
						ENDLIST
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 『\@ TALENT:ARG:남자 ? 奥さん # 旦那 \@に内緒してあげるから、サービスよろしくね♪』
						DATAFORM 『へぇー……　%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って\@ TALENT:ARG:남자 ? 奥さん # 旦那 \@に内緒でこんな事してたんだ……。』
						DATAFORM 『知り合いの\@ TALENT:ARG:남자 ? 旦那 # 奥さん \@とヤレるなんて、興奮するなぁ。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 奥さん # 旦那 \@とじゃ満足できなくて、こんな事してるのかい？』
						DATALIST
							DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って結婚してなかったっけ？』
							DATAFORM 『まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
						ENDLIST
					ENDDATA
				ENDIF
			ELSEIF TALENT:ARG:남친있음
				;彼氏旦那の呼び名設定ありCSTR14
				IF CSTR:ARG:14 != ""
					PRINTDATAL
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@の%CSTR:ARG:14%には内緒してあげるから、サービスよろしくね♪』
						DATAFORM 『へぇー……　%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って%CSTR:ARG:14%に内緒でこんな事してたんだ……。』
						DATAFORM 『友達の\@ TALENT:ARG:남자 ? 彼氏 # 彼女 \@とヤレるなんて、興奮するなぁ。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@とじゃ満足できなくて、こんな事してるのかい？』
						DATAFORM 『……悪いな、%CSTR:ARG:14%。　お前の\@ TALENT:ARG:남자 ? 彼氏 # 彼女 \@、買っちゃうよ。』
						DATALIST
							DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って%CSTR:ARG:14%と付き合ってなかったっけ？』
							DATAFORM 『まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
						ENDLIST
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@に内緒してあげるから、サービスよろしくね♪』
						DATAFORM 『へぇー……　%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@に内緒でこんな事してたんだ……。』
						DATAFORM 『友達の\@ TALENT:ARG:남자 ? 彼氏 # 彼女 \@とヤレるなんて、興奮するなぁ。』
						DATAFORM 『\@ TALENT:ARG:남자 ? 彼女 # 彼氏 \@とじゃ満足できなくて、こんな事してるのかい？』
						DATALIST
							DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って付き合ってる人いなかったっけ？』
							DATAFORM 『まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
						ENDLIST
					ENDDATA
				ENDIF
			ELSEIF TALENT:ARG:교제
				PRINTDATAL
					DATALIST
						DATAFORM 『転校してきたのと突然くっついたと思ったら、カラダ売ってるの？』
						DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って、実はビッチだった？』
					ENDLIST
					DATALIST
						DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って、この前転校してきたのと付き合ってたよね？』
						DATAFORM 『やっべ、興奮してきた。』
					ENDLIST
					DATALIST
						DATAFORM 『あれ？　%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@？』
						DATAFORM 『%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@って、転校生と付き合ってなかったっけ？』
						DATAFORM 『いいの？　こんなことしてて？　まっ、こっちとしては気持ち良くしてくれるなら、どっちでもいいけど……。』
					ENDLIST
				ENDDATA
			ENDIF
		ELSE
			PRINTDATAL
				DATALIST
					DATAFORM 『どこかで見た顔だと思ったら……%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@？』
					DATAFORM 『ちょっと驚いたけど興奮してきたよ。』
				ENDLIST
				DATALIST
					DATAFORM 『出会った時から、%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@とヤッテみたいと思ってたんだ。』
					DATAFORM 『今日は枯れるまでヤラせてもらうよ。』
				ENDLIST
				DATALIST
					DATAFORM 『あれ？　もしかして%CALLNAME:ARG%\@ RAND:2 == 0 ? さん # ちゃん \@？　こんなところで何を……って聞くまでもないか……。』
					DATAFORM 『知り合い相손だとやりにくいかもしれないけど、よろしくね。』
				ENDLIST
			ENDDATA
		ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "불결"
		PRINTFORML その夜の客は、불결な男だった。
		PRINTL
		PRINTDATAL
			DATAFORM 『ちょっと汚いかもしれないけど、よろしく頼むよ。』
			DATAFORM 『臭う？　いい匂いだろ？　この匂い、アンタの体に染みつけてやるぜ。』
			DATALIST
				DATAFORM 『今日は、女でも買うかなー……。』
				DATAFORM 『……あれ？　前に風呂入ったのいつだっけ？　まっ、いいか。』
			ENDLIST
			DATALIST
				DATAFORM 『そうそう、その引きつった笑顔を見たくて、風呂に入らないようにしてるんだ。』
				DATAFORM 『ヒヒッ、今日は楽しめそうだなぁ……。』
			ENDLIST
		ENDDATA
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "醜悪"
		PRINTFORML その夜の客は、顔を背けたくなるほど醜悪な容姿をしていた。
		PRINTL
		PRINTDATAL
			DATALIST
				DATAFORM 『今、オレの顔見て笑っただろう？』
				DATAFORM 『決めた！　今日はオマエ買ってたっぷり奉仕してもらうぜ。』
			ENDLIST
			DATALIST
				DATAFORM 『オレみたいなブサイクでも、金払えば、あんたみたいな子を好きにできるってんだから……。』
				DATAFORM 『今日はたっぷりと楽しませてもらうぜ。』
			ENDLIST
		ENDDATA
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "馬並み"
		PRINTFORML その夜の客は、ありえないほどの巨根の持ち主だった。
		PRINTL
		IF TALENT:ARG:처녀
			PRINTDATAL
				DATAFORM 『経験ないのにオレのちんぽブチ込んで大丈夫かァ？　ぶっ壊れても知らないぜ。』
				DATAFORM 『初めてがオレだと、オレ以外じゃ満足できない体になっちまうかもなァ……。』
			ENDDATA
			PRINTDATAL
				DATAFORM 『まっ、どうなろうが関係ねぇか。　さっさとホテル行こうや。』
				DATAFORM 『ここまで来て、やめるってのはナシだぜ……。　こっちはもうヤルきになってんだからよ。』
			ENDDATA
		ELSEIF TALENT:ARG:임신
			PRINTDATAL
				DATAFORM 『そんな体で大丈夫なのかァ？　オレのちんぽ子宮まで届くぜ。』
				DATAFORM 『オレのデカマラぶち込まれて流産しても、オレのせいにするなよォ。』
			ENDDATA
			PRINTDATAL
				DATAFORM 『まっ、どうなろうが関係ねぇか。　さっさとホテル行こうや。』
				DATAFORM 『ここまで来て、やめるってのはナシだぜ……。　こっちはもうヤルきになってんだからよ。』
			ENDDATA
		;初売春、経験処理が입上呼び出しより後なので追加してみる
		ELSEIF EXP:ARG:매춘경험 == 0

		ELSE
			PRINTDATAL
				DATAFORM 『今日は、オレの巨根でヒィヒィ言わせてやるよ。』
				DATAFORM 『これ突っ込んでガバマンなったら、これから客取れなくなるかもなぁ。』
				DATAFORM 『オレのちんぽ味わったら、他のじゃ満足できなくなるぜ。』
			ENDDATA
		ENDIF
	ENDIF
ELSEIF L == 8
	PRINTL
	PRINTFORML その夜の客は、中出しに집착する男だった。
	PRINTL
	PRINTDATAL
		DATAFORM 『なぁ、いいだろ？　임신したりしないって……。』
		DATAFORM 『임신する確率って意外と低いんだぜ。　だからさ……。』
		DATAFORM 『なぁ、客を取りたいんだろ？　ゴム有りなら、オレは他をあたるだけだぜ。』
		DATAFORM 『ゴムありだとイマイチ気持ち良くないんだよなー……　ゴム無しじゃダメか？』
		DATAFORM 『最後は外に出すからさ。　ナマでやらせてくれないか？』
	ENDDATA

	;旧孕ませ客
;	PRINTFORML その夜の客は、何度も中に出してきた。
;	;何か下衆くなってしまった。
;	IF TALENT:ARG:불임
;		IF TALENT:ARG:처녀
;			PRINTFORML 『임신できない体だって？初物でついてると思ってたらコレかよ！　しかたねー、使ってやるから股開け！』
;		ELSE
;			PRINTFORML 『임신できない体だって？チッ…今日は外れ引いたな！　しかたねー、使ってやるから股開け！』
;		ENDIF
;	ELSEIF TALENT:ARG:처녀 == 1
;		PRINTFORML 『初物とはついてるぜ。お前もラッキーだなぁ、初セックスで初임신だぜ。』
;	;初売春、経験処理が입上呼び出しより後なので追加してみる
;	ELSEIF EXP:ARG:매춘경험 == 0
;		PRINTFORML 『体を売るのは初めてなのか？　じゃあ、記念に孕ませてやるよッ！　オラッ！』
;	ELSEIF TALENT:ARG:임신
;		PRINTFORML 『임신中？チッ…今日は外れ引いたな！　しかたねー、使ってやるから股開け！』
;	ELSEIF TALENT:ARG:붕괴 || TALENT:ARG:맹인 || TALENT:ARG:유아퇴행 || TALENT:ARG:장애
;		PRINTFORML 『お前みたいな壊れた女が子供を産める最後のチャンスかもな！ありがたく受け止めろっ！』
;	ELSE
;		SIF TALENT:ARG:초등학생 == 1
;			PRINTFORML 『へへ、초등학생に中出しするのは最高だな!』
;		SIF TALENT:ARG:중학생 == 1
;			PRINTFORML 『保健体育の時間に子供のできる仕組みは習っただろう？実践教育してやるよ。』
;		SIF TALENT:ARG:고등학생 == 1
;			PRINTFORML 『援助교제なんかして、遊ぶ金でも欲しいのか?俺もお前にガキができるように援助してやるよ。』
;		SIF TALENT:ARG:대학생 == 1
;			PRINTFORML 『やっぱり女子大生は음란だな。임신したら、子育てしながら勉強してくれよ。』
;		SIF TALENT:ARG:교사 == 1
;			PRINTFORML 『まさか先生がこんなことやってるって、生徒たちに教えてやったらどうなるだろうな？安心しろよ、すぐに産休取らせてやるからよ。』
;		SIF TALENT:ARG:사회인 == 1
;			PRINTFORML 『お前も大人なら、ピルぐらい飲んでんだろう？遠慮なく出すぜ。』
;		SIF TALENT:ARG:겁쟁이 == 1
;			PRINTFORML 『おいおい、そんなに怯えんなよ。ちょっと中に出して、お前を임신させるだけだよ。』
;		SIF TALENT:ARG:꿋꿋함 == 1
;			PRINTFORML 『気の強い女の子宮を俺の精子で征服するのが堪らないんだよな。』
;		SIF TALENT:ARG:솔직 == 1
;			PRINTFORML 『へへっ、気持ち良いか?お前みたいな솔직なやつも好きだぜ。ご褒美だ!孕みな!』
;		SIF TALENT:ARG:얌전함 == 1
;			PRINTFORML 『얌전함面して、ずいぶん乱れるじゃねえか!搾り取られちまうぜ!』
;		SIF TALENT:ARG:프라이드높음 == 1
;			PRINTFORML 『良いぜ、その眼!お前みたいなプライドの高い女に種付けする時が最高に興奮するんだよ!』
;		SIF TALENT:ARG:부끄럼쟁이 == 1
;			PRINTFORML 『恥じらう姿ってのも色っぽくて良いな!腹脹らまして、他の奴になんて説明するんだ？』
;		SIF TALENT:ARG:교섭술 == 1
;			PRINTFORML 『何？中はやめてくれって？…良いぜ、出すのはその奥、子宮だ!種付けしてやるよ!…ふぅ、たっぷり出たな。おまけしといてやったぜ。』
;		SIF TALENT:ARG:레이프소망 == 1
;			PRINTFORML 『あん？中は嫌だって？嘘つけよ、お前の子宮は俺の精子が欲しくてたまらないって、うずいてるぜ!おらっ、トロ顔晒して種付けされながらイきな!』
;		SIF TALENT:ARG:남성혐오 == 1
;			PRINTFORML 『中で出すたびにキーキーうるせえな。諦めろよ、男には叶わないんだよ。そいつをまた教え込んでやるよ!イクぜ!』
;	;	SIF TALENT:ARG:ＮＴＬ == 1
;	;		PRINTFORML 『好きな人がいるから、中だけは勘弁してくれって？それじゃあ、そいつに言ってやれよ!あなた以外の男の精子で孕まされました、ってな!』
;		SIF TALENT:ARG:좋아하는사람있음 == 1
;			PRINTFORML 『そんな薄情な奴のことなんて忘れちまえよ。嫌がっても、お前の中は俺のに吸いついて放さねえぜ!精子くれてやる!』
;		SIF TALENT:ARG:남친있음 == 1
;			PRINTFORML 『彼氏はこんなに激しく愛してくれたかよ、へへっ、また出るぞ。イクっ!!』
;		SIF TALENT:ARG:남편있음 == 1
;			PRINTFORML 『奥さん、俺の子供を産んでくれよ。旦那よりよがらせてやるからよぉ。』
;		SIF TALENT:ARG:남편있음 == 1
;			PRINTFORML 『旦那と俺のとどっちが良いんだよ!何、言えねぇ？それじゃあ、俺のチンポの形깨우침えるまで犯してやるよ。出すぞっ!』
;		SIF TALENT:ARG:반항적 == 1
;			PRINTFORML 『まったく、손のかかる女だぜ。お前みたいなのは、ガキでも孕めば少しは丸くなるだろ、おらよっ!!』
;		SIF TALENT:ARG:Ｂ열등감 == 1
;			PRINTFORML 『おっぱいが小さいのを気にしてんのか？安心しろよ今からお前のおっぱいを大きくしてやるよ!孕みな!』
;		SIF TALENT:ARG:영애 == 1
;			PRINTFORML 『お前のこと知ってるぜ。あそこの家のお嬢さんだろう？こんなことやってるとはな。』
;		SIF TALENT:ARG:불량 == 1
;			PRINTFORML 『まさかお前とヤれるとは思わなかったぜ。へへっ、案外きれいな色してるじゃねえか。』
;		SIF TALENT:ARG:외국인 == 1
;			PRINTFORML 『上玉じゃねえか。外国まで来て売春とはご苦労なこったぜ。』
;		SIF TALENT:ARG:유명인 == 1
;			PRINTFORML 『お前この辺りじゃ유명인だな。ほかの奴にも教えてやるよ。ここに来ればお前が股開く、ってな。』
;		SIF TALENT:ARG:학생회장 == 1
;			PRINTFORML 『お前、そこの学校の학생회장だろう？前に行事の挨拶してるの見たぜ。임신した腹を皆にも見てもらえよ。』
;		SIF TALENT:ARG:성직자 == 1
;			PRINTFORML 『성직자様をこんな風に犯せるとは夢にも思わなかったぜ。おらっ、神様からの贈り物をやるよ!!』
;		SIF TALENT:ARG:연예인 == 1
;			PRINTFORML 『枕営業ご苦労様だな。俺の子供を孕んじまったら、とんだスキャンダルか？』
;		SIF TALENT:ARG:로봇소녀 == 1
;			PRINTFORML 『よくできてやがるが、アソコはどうだ？試してやるぜ！』
;		SIF TALENT:ARG:매드사이언티스트 == 1
;			PRINTFORML 『人体実験の素体をくれてやるよ、せいぜい大事に育てな！』
;		SIF TALENT:ARG:도박사 == 1
;			PRINTFORML 『この間はよくもやってれたな、今日は俺がお見舞いしてやるよ。おらっ、倍付だ!孕め！』
;		SIF TALENT:ARG:쿨함
;			PRINTFORML 『そのすまし顔も임신したら少しは変わるのか？これから実験してやるぜ！』
;
;		SIF TALENT:ARG:AV녀
;			PRINTFORML 『お前が次に出る作品、妊婦モノにしてやるぜ！おらっ、孕めっ！』
;
;
;		PRINTDATAW
;			DATAFORM 『やっぱり中で出さないとヤってるって実感がわかないんだよな。』
;			DATAFORM 『またイクぜ。孕みな。』
;			DATAFORM 『いくら出しても勃ちやがる!最高だぜ、お前の身体!!』
;			DATAFORM 『どんな女もこれだけ中に出せば、임신は確実だろうな。』
;			DATAFORM 『出すぜ!また中に出してやる!!』
;			DATAFORM 『お前も俺のガキを孕みな。』
;			DATAFORM 『ふぅ～たっぷり出たなぁ。임신おめでとう、お・か・あ・さ・ん。』
;			DATAFORM 『ガキができても良いじゃねぇか。楽しもうぜ。』
;			DATAFORM 『子供が産まれても、連れてくるんじゃねぞ。金は払ってんだからな。』
;			DATAFORM 『おら、お前も中に出されて嬉しいんだろう？もっとよがれよ。』
;			DATAFORM 『避妊？知らねえよ、金は払ってんだ。好きにやらせてもらうぜ。』
;			DATAFORM 『こんだけ種付けしてやったんだ。後はできるのを待つだけだな。』
;			DATAFORM 『おいおい、ヤり過ぎたか。中から溢れてきてるぜ、ふたしてやらないとな。』
;			DATAFORM 『諦めろよ。とっくの昔に孕んでるっての。』
;			DATAFORM 『孕むまで何度でも出してやるよ。』
;			DATAFORM 『お前の子宮に俺の精子が溢れてるのが分かるだろう？征服済みってことだ。』
;			DATAFORM 『お前の子宮で俺の精子が卵子を輪姦してるぜ。』
;			DATAFORM 『後腐れなく中出しできるって最高だな。』
;			DATAFORM 『金玉空っぽになっちまったな。張り切りすぎたぜ。』
;		ENDDATA
;	ENDIF

ELSEIF L == 9
	PRINTL
	PRINTFORML その夜の客は、非常に尊大な男だった。
	PRINTL
	IF TALENT:ARG:처녀
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『처녀を売ってまで金が欲しいとは、卑しい女だな。』
				DATAFORM 『本当に처녀なんだろうな？　確かめてやるから、さっさとホテルに行くぞ。』
				DATAFORM 『처녀とやるのは慣れてる、安心してついてこい。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『처녀\@ RAND:2 == 0 ? に生ハメ中出し # とゴム無しセックス \@できるにしては安いな、처녀のフリじゃないだろうな？』
				DATAFORM 『これまでに何人も처녀を買ってきたが中出し分を含めても、お前が一番安いな。』
				DATALIST
					DATAFORM 『おい、女。　金が欲しかったら、せいぜい媚びてみろ。』
					DATAFORM 『……お願いですから처녀マンコを買ってください……か、まぁまぁだな。　望み通りにしてやる、はやくホテルに行くぞ。』
				ENDLIST
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:임신
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『金は出してるんだ、妊婦だからといって容赦はせんぞ。』
				DATAFORM 『임신しているからといって손は抜くなよ。　なんせ大金を払っているんだからな。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『おい、女。　임신しているならかまわんだろう？　今日はナマでやらせてもらうぞ。』
				DATAFORM 『孕みマンコですが買ってくださいと懇願してみろ。　そうだ、いいぞ……。』
				DATAFORM 『金は払ったんだ、赤ん坊が溺れるぐらい中出ししてやるぞ。』
			ENDDATA
		ENDIF
	ELSE
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『金は出してるんだ、その体でできる最高のサービスを頼むよ。』
				DATAFORM 『ふん、最近の若い女は体を使って稼ぐしか能がないようだな。』
				DATAFORM 『別に女には不自由してないけど、偶には売女も悪くないかな。』
				DATAFORM 『おい、女。　金が欲しいなら、芸の一つでも持っているんだろうな？』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『孕んでも責任なぞとらんかなら。』
				DATALIST
					DATAFORM 『おい、女。　金が欲しかったら、せいぜい媚びてみろ。』
					DATAFORM 『……お願いですから買ってください……か、まぁまぁだな。　望み通りにしてやる、はやくホテルに行くぞ。』
				ENDLIST
				DATAFORM 『大金を払ったんだ、もちろんナマでいいんだろうな。』
			ENDDATA
		ENDIF
	ENDIF
ELSE
	PRINTL
	IF TALENT:ARG:처녀
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『キミみたいな可愛い子の初めての男になれるなんて、今日はツイてるな。』
				DATAFORM 『처녀とやれるなんて、今日はツイてるな。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『처녀\@ RAND:2 == 0 ? に生ハメ中出し # とゴム無しセックス \@できるなんて、今日はツイてるな。』
				DATAFORM 『キミみたいな可愛い子の初めてを二つもらえるなんて、今日はツイてるな。』
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:임신
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『妊婦か……。　こういうのも悪くないな。』
				DATAFORM 『母乳はでるのかい？　良いね、今日はキミにしよう。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『ナマの方が気持ちいいからね。　\@ RAND:2 == 0 ? 生ハメ中出しコースで # ゴム無しセックスを \@で頼むよ。』
				DATAFORM 『妊婦に中出し……背徳感でゾクゾクしてきたよ。』
			ENDDATA
		ENDIF
	ELSE
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『楽しませてもらおうか。』
				DATAFORM 『それじゃあ、行こうか。』
				DATAFORM 『男好きする体してるな。』
				DATAFORM 『君みたいな女が好みなんだよ。』
				DATAFORM 『溜まってるんだ。今夜は寝かせないからな。』
				DATAFORM 『見てわかるだろう、もうビンビンさ。』
				DATAFORM 『良いな、幾らだい？』
				DATAFORM 『ヒイヒイ言わせてあげるよ。』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『\@ RAND:2 == 0 ? 生ハメ中出しアリ # ゴム無し \@なら、これぐらい出すよ。』
				DATALIST
					DATAFORM 『少し上乗せするから、\@ RAND:2 == 0 ? ナマでしちゃ # ゴム無しは \@ダメかな？』
					DATAFORM 『……よし、交渉成立だ。　さっそく、ホテルに行こうか。』
				ENDLIST
				DATAFORM 『溜まってるんだ。　子宮から溢れるぐらいたっぷりと出させてもらうよ。』
				DATAFORM 『キミみたいな可愛い子\@ RAND:2 == 0 ? に生ハメ中出し # とゴム無しで \@できるなんて、今日はツイてるな。』
				DATAFORM 『キミみたいな子に種付けできるってだけで、もうビンビンさ。』
				DATAFORM 『良いな、幾らだい？　……それじゃ、\@ RAND:2 == 0 ? 生ハメ中出しコースで # ゴム無しセックスを \@頼むよ。』
			ENDDATA
		ENDIF
	ENDIF
ENDIF
PRINTL
PRINTFORM %ARG는% 、
PRINTFORM これからの行為に期待し
IF RAND:4 == 0
	PRINTFORM 鼻息荒い男
ELSEIF RAND:3 == 0
	PRINTFORM 早くも下半身をたぎらせる男
ELSEIF RAND:2 == 0
	PRINTFORM 興奮した様子の男
ELSE
	PRINTFORM 目をギラつかせている男
ENDIF
IF TALENT:ARG:음란  || TALENT:ARG:창녀 || TALENT:ARG:동화 || TALENT:ARG:모판
	PRINTFORML にしな垂れかかるようにしてホテルに歩いて行った……
ELSEIF TALENT:ARG:복종  || TALENT:ARG:예속
	PRINTFORML に従いホテルまでついていった……
ELSE
	PRINTFORML にホテルへ連れられて行った……
ENDIF
PRINTL
;金が少ない
IF L == 6
	IF TALENT:ARG:처녀
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『客を引くための嘘かと思ったら、マジで처녀だったのかよ！』
				DATAFORM 『フリだと思ったら本物の처녀とはな！　……この締め付け、最高だぜ！』
				DATAFORM 『おいおい、あの値段で처녀が買えるわけねーだろ、って思ってたら、本当に初めてだったのかよ！』
			ENDDATA
		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『客を引くための嘘かと思ったら、マジで처녀だったのかよ！　しかも、中出ししていいなんて！　うあっ、出るっ！』
				DATAFORM 『フリだと思ったら本物の처녀とはな！　……처녀マンコがちんぽに絡み付いて……すぐにでも出しちまいそうだ！』
				DATAFORM 『あー、出すぞ！　このまま初めての中出しも味わえっ！』
			ENDDATA
		ENDIF
	ELSE
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『安すぎるから不安だったけど、いい体じゃねーか！』
				DATAFORM 『この体にハメまくってこの値段か！　価格破壊もいいところだな！』
				DATAFORM 『あの値段で何発やってもいいだなんて、あんたコスパ良すぎだぜ！』
			ENDDATA

		;ゴム無し
		ELSEIF B == 1
			PRINTDATAL
				DATAFORM 『あの値段で生ハメ中だしっていうから、ガバマンかなんかと思ったら、なかなかのマンコじゃねーか。』
				DATAFORM 『この体に中出しし放題でこの値段か！　価格破壊もいいところだな！』
				DATAFORM 『このまま中で出したら追加料金とかないよな？　……ないなら遠慮なく出させてもらうぜ！』
			ENDDATA
			;『ふぅ、やったやった。　これだけやってもこの値段か。　チャイエスなんて目じゃねー安さだな。』
		ENDIF
	ENDIF
;ストレス過大、불쾌な客
ELSEIF L == 7
	IF NIGHT_PROSTITUTION_VISITOR_客タイプ == "近親者"
		IF TALENT:ARG:처녀
			IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
				IF TALENT:ARG:남편있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATAFORM 『この血……もしかして처녀だったのかい？　結婚しておいて、なんで%CSTR:ARG:14%は%CALLNAME:ARG%に손を出してないんだ？？』
							DATAFORM 『\@ TALENT:ARG:남자 ?  # 旦那の \@%CSTR:ARG:14%に捧げたかっただろうに、悪かったなぁ……。』
							DATAFORM 『親戚付き合いがやりにくくなるから、%CALLNAME:ARG%의 初めてがおじさんだって事は、%CSTR:ARG:14%には内緒にしないとね。』
						ENDDATA
					ELSE
						PRINTDATAL
							DATAFORM 『この血……もしかして처녀だったのかい？　結婚しておいて、なんであいつは%CALLNAME:ARG%に손を出してないんだ？？』
							DATAFORM 『\@ TALENT:ARG:남자 ? あいつ # 旦那 \@に捧げたかっただろうに、悪かったなぁ……。』
							DATAFORM 『親戚付き合いがやりにくくなるから、%CALLNAME:ARG%의 初めてがおじさんだって事は、あいつには内緒にしないとね。』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:남친있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATAFORM 『彼氏の%CSTR:ARG:14%とは、まだ清い関係だったのか……。　ま、やってしまったものは仕方がないな。』
							DATAFORM 『彼氏がいるからヤリまくりだと思ったら……。　%CSTR:ARG:14%とは結婚してからって約束でもしてたのかい？』
						ENDDATA
					ELSE
						PRINTDATAL
							DATAFORM 『彼氏とは、まだ清い関係だったのか……。　ま、やってしまったものは仕方がないな。』
							DATAFORM 『彼氏がいるからヤリまくりだと思ったら……。　彼氏と結婚してからって約束でもしてたのかい？』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:교제
					PRINTDATAL
						DATAFORM 『彼氏とは、まだ清い関係だったのか……。　ま、やってしまったものは仕方がないな。』
						DATAFORM 『彼氏がいるからヤリまくりだと思ったら……。　彼氏と結婚してからって約束でもしてたのかい？』
					ENDDATA
				ENDIF
			ELSE
				PRINTDATAL
					DATAFORM 『小さいころから知ってる%CALLNAME:ARG%의 初めてをもらえるなんて、興奮で頭がおかしくなりそうだよ！』
					DATAFORM 『親戚付き合いがやりにくくなるから、%CALLNAME:ARG%의 初めてがおじさんだって事は、みんなには内緒にしないとね。』
				ENDDATA
			ENDIF
		ELSE
			IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
				IF TALENT:ARG:남편있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATAFORM 『親戚付き合いがやりにくくなるから、%CALLNAME:ARG%とおじさんがエッチした事は、%CSTR:ARG:14%に内緒にしておかないとね。』
							DATAFORM 『%CSTR:ARG:14%とどっちがエッチが上손かな？　答えなくてもいいよ、その顔見ればわかるから。』
							DATAFORM 『%CSTR:ARG:14%とじゃ、こんなことはやったことはないだろう？　ほらっ、もっと激しくするぞ！』
						ENDDATA
					ELSE
						PRINTDATAL
							DATAFORM 『親戚付き合いがやりにくくなるから、%CALLNAME:ARG%とおじさんがエッチした事は、あいつに内緒にしておかないとね。』
							DATAFORM 『\@ TALENT:ARG:남자 ? あいつ # 旦那 \@とどっちがエッチが上손かな？　答えなくてもいいよ、その顔見ればわかるから。』
							DATAFORM 『\@ TALENT:ARG:남자 ? あいつ # 旦那 \@とじゃ、こんなことはやったことはないだろう？　ほらっ、もっと激しくするぞ！』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:남친있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATAFORM 『はぁはぁ……。　%CALLNAME:ARG%의 질내がちんぽに絡み付いてくるよ……。　もしかして、%CSTR:ARG:14%より身体の相性はいいかもね。』
							DATAFORM 『%CSTR:ARG:14%とどっちがエッチが上손かな？　答えなくてもいいよ、その顔見ればわかるから。』
							DATAFORM 『%CSTR:ARG:14%とじゃ、こんなことはやったことはないだろう？　ほらっ、もっと激しくするぞ！』
						ENDDATA
					ELSE
						PRINTDATAL
							DATAFORM 『はぁはぁ……。　%CALLNAME:ARG%의 질내がちんぽに絡み付いてくるよ……。　もしかして、\@ TALENT:ARG:남자 ? あいつ # 彼氏 \@より身体の相性はいいかもね。』
							DATAFORM 『\@ TALENT:ARG:남자 ? あいつ # 彼氏 \@とどっちがエッチが上손かな？　答えなくてもいいよ、その顔見ればわかるから。』
							DATAFORM 『\@ TALENT:ARG:남자 ? あいつ # 彼氏 \@とじゃ、こんなことはやったことはないだろう？　ほらっ、もっと激しくするぞ！』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:교제
					PRINTDATAL
						DATAFORM 『はぁはぁ……。　%CALLNAME:ARG%의 질내がちんぽに絡み付いてくるよ……。　もしかして、彼氏より身体の相性はいいかもね。』
						DATAFORM 『彼氏とどっちがエッチが上손かな？　答えなくてもいいよ、その顔見ればわかるから。』
						DATAFORM 『彼氏とじゃ、こんなことはやったことはないだろう？　ほらっ、もっと激しくするぞ！』
					ENDDATA
				ENDIF
			ELSE
				;ゴムあり
				IF B == 2
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%、いい身体じゃないか！　おじさん、感激だよ!』
						DATAFORM 『気持ちいいかい？　身内なだけあって、身体の相性は抜群みたいだな。』
						DATALIST
							DATAFORM 『はぁはぁ……。　さっきイッたばかりなのに%CALLNAME:ARG%が良すぎて、また大きくなってきたよ。』
							DATAFORM 『……もう一回いいよね？　じゃあ……콘돔、着けてくれるかな？』
						ENDLIST
					ENDDATA
				;ゴム無し
				ELSEIF B == 1
					PRINTDATAL
						DATAFORM 『これで孕んだら、家系図が複雑になりそうだな……。　うあっ、出るっ!』
						DATAFORM 『くうっ！　肉が페니스に絡み付いて……。　……身内なだけあって、身体の相性は抜群だなっ！』
						DATALIST
							DATAFORM 『はぁはぁ……。　さっきイッたばかりなのに%CALLNAME:ARG%が良すぎて、また大きくなってきたよ。』
							DATAFORM 『……もう一回いいよね？　じゃあ……』
						ENDLIST
					ENDDATA
				ENDIF
			ENDIF
		ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "知人"
		IF TALENT:ARG:처녀
			IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
				IF TALENT:ARG:남편있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATAFORM 『%CALLNAME:ARG%って結婚してたよな？　なんで、처녀なの？　%CSTR:ARG:14%って不能だった？？』
							DATAFORM 『%CALLNAME:ARG%의 初めての男になれるなんて、\@ TALENT:K:남자 ?  # 旦那の \@%CSTR:ARG:14%に悪いなぁ……。』
							DATAFORM 『理由は知らないけど、結婚しておいて손を出してない方が悪いよな。　%CSTR:ARG:14%、%CALLNAME:ARG%의 처녀マンコ、最高だったぜ！』
						ENDDATA
					ELSE
						PRINTDATAL
							DATAFORM 『%CALLNAME:ARG%って結婚してたよな？　なんで、처녀なの？　\@ TALENT:K:남자 ? あいつ # 旦那 \@って不能だった？？』
							DATAFORM 『%CALLNAME:ARG%의 初めての男になれるなんて、\@ TALENT:K:남자 ? あいつ # 旦那 \@に悪いなぁ……。』
							DATAFORM 『理由は知らないけど、結婚しておいて손を出してない方が悪いよな。　%CALLNAME:ARG%의 처녀マンコ、最高だったぜ！』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:남친있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						PRINTDATAL
							DATALIST
								DATAFORM 『ありゃ、%CSTR:ARG:14%とはまだだったのか……。　悪かったなぁ……。』
								DATAFORM 『まっ、やっちまったもんは仕方がない。　%CALLNAME:ARG%、お前の처녀マンコ、じっくりと味あわせてもらうぜ！』
							ENDLIST
							DATALIST
								DATAFORM 『えっ？　これって……%CALLNAME:ARG%、처녀だったのかよ！』
								DATAFORM 『恋人の%CSTR:ARG:14%의 ために守ってたのに、悪いなぁ……。　あー、でも、腰とまらねぇ！』
							ENDLIST
							DATAFORM 『%CSTR:ARG:14%に初めてをあげるのは無理になったけど、これで%CSTR:ARG:14%とヤリまくれるな、よかったな！』
							DATAFORM 『처녀じゃなくなったけど、この経験を活かして%CSTR:ARG:14%とヤル時リードしてやれよ。』
						ENDDATA
					ELSE
						PRINTDATAL
							DATALIST
								DATAFORM 『ありゃ、恋人とはまだだったのか……。　悪かったなぁ……。』
								DATAFORM 『まっ、やっちまったもんは仕方がない。　%CALLNAME:ARG%、お前の처녀マンコ、じっくりと味あわせてもらうぜ！』
							ENDLIST
							DATALIST
								DATAFORM 『えっ？　これって……%CALLNAME:ARG%、처녀だったのかよ！』
								DATAFORM 『恋人のために守ってたのに、悪いなぁ……。　あー、でも、腰とまらねぇ！』
							ENDLIST
							DATAFORM 『恋人に初めてをあげるのは無理になったけど、これで恋人とヤリまくれるな、よかったな！』
							DATAFORM 『처녀じゃなくなったけど、この経験を活かして恋人とヤル時リードしてやれよ。　きっと、喜ぶぜ！』
						ENDDATA
					ENDIF
				ELSEIF TALENT:ARG:교제
					PRINTDATAL
						DATALIST
							DATAFORM 『ありゃ、恋人とはまだだったのか……。　悪かったなぁ……。』
							DATAFORM 『まっ、やっちまったもんは仕方がない。　%CALLNAME:ARG%、お前の처녀マンコ、じっくりと味あわせてもらうぜ！』
						ENDLIST
						DATALIST
							DATAFORM 『えっ？　これって……%CALLNAME:ARG%、처녀だったのかよ！』
							DATAFORM 『恋人のために守ってたのに、悪いなぁ……。　あー、でも、腰とまらねぇ！』
						ENDLIST
						DATAFORM 『恋人に初めてをあげるのは無理になったけど、これで恋人とヤリまくれるな、よかったな！』
						DATAFORM 『처녀じゃなくなったけど、この経験を活かして恋人とヤル時リードしてやれよ。　きっと、喜ぶぜ！』
					ENDDATA
				ENDIF
			ELSE
				PRINTDATAL
					DATAFORM 『密かに憧れてた%CALLNAME:ARG%의 初めての男になれるなんて……。　やばっ！　感激でもうイキそうだっ！』
					DATAFORM 『%CALLNAME:ARG%의 初めての男がオレだって、ずっと깨우침えていてね。』
					DATAFORM 『あー、%CALLNAME:ARG%의 처녀マンコ、気持ち良すぎて、腰がとめられねぇ……。』
				ENDDATA
			ENDIF
		ELSE
			IF (TALENT:ARG:교제 ||  TALENT:ARG:남편있음 || TALENT:ARG:남친있음) && RAND:2 == 0
				IF TALENT:ARG:남편있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						;ゴムあり
						IF B == 2
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 旦那 # 奥さん \@は最高だなっ！』
								DATAFORM 『そろそろ、入れるぞ……。　悪いな%CSTR:K:14%、お前の\@ TALENT:K:남자 ? 旦那 # 奥さん \@とセックスするぜ！』
								DATAFORM 『あー、%CSTR:K:14%に悪いけど、腰がとめられねぇ……。　%CALLNAME:K%의 身体、良すぎるぜっ！』
								DATAFORM 『%CSTR:K:14%と仲良さそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
							ENDDATA
						;ゴム無し
						ELSEIF B == 1
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 旦那 # 奥さん \@に中出しするのは最高だなっ！』
								DATAFORM 『くっ！　そろそろ出るっ！　悪いな%CSTR:K:14%、お前の\@ TALENT:K:남자 ? 旦那 # 奥さん \@に中出しするぞ！』
								DATAFORM 『あー、%CSTR:K:14%に悪いけど、腰がとめられねぇ……。　このまま、最後まで……イクぞっ！』
								DATALIST
									DATAFORM 『%CSTR:K:14%と仲良さそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
									DATAFORM 『うあっ！　そろそろイキそう……だっ！　このまま、出すぞっ！』
								ENDLIST
							ENDDATA
						ENDIF
					ELSE
						;ゴムあり
						IF B == 2
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 旦那 # 奥さん \@は最高だなっ！』
								DATAFORM 『そろそろ、入れるぞ……。　悪いな……お前の\@ TALENT:K:남자 ? 旦那 # 奥さん \@とセックスするぜ！』
								DATAFORM 『あー、あいつに悪いけど、腰がとめられねぇ……。　%CALLNAME:K%의 身体、良すぎるぜっ！』
								DATAFORM 『あいつと仲良さそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
							ENDDATA
						;ゴム無し
						ELSEIF B == 1
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 旦那 # 奥さん \@に中出しするのは最高だなっ！』
								DATAFORM 『くっ！　そろそろ出るっ！　悪いな……お前の\@ TALENT:K:남자 ? 旦那 # 奥さん \@に中出しするぞ！』
								DATAFORM 『あー、あいつには悪いけど、腰がとめられねぇ……。　このまま、最後まで……イクぞっ！』
								DATALIST
									DATAFORM 『あいつと仲良さそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
									DATAFORM 『うあっ！　そろそろイキそう……だっ！　このまま、出すぞっ！』
								ENDLIST
							ENDDATA
						ENDIF
					ENDIF
				ELSEIF TALENT:ARG:남친있음
					;彼氏旦那の呼び名設定ありCSTR14
					IF CSTR:ARG:14 != ""
						;ゴムあり
						IF B == 2
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@は最高だなっ！』
								DATAFORM 『そろそろ、入れるぞ……。　悪いな%CSTR:K:14%、お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@とセックスするぜ！』
								DATAFORM 『あー、%CSTR:K:14%に悪いけど、腰がとめられねぇ……。　%CALLNAME:K%의 身体、良すぎるぜっ！』
								DATAFORM 『%CSTR:K:14%と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
							ENDDATA
						;ゴム無し
						ELSEIF B == 1
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするのは最高だなっ！』
								DATAFORM 『くっ！　そろそろ出るっ！　悪いな%CSTR:K:14%、お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするぞ！』
								DATAFORM 『あー、%CSTR:K:14%に悪いけど、腰がとめられねぇ……。　このまま、最後まで……イクぞっ！』
								DATALIST
									DATAFORM 『%CSTR:K:14%と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
									DATAFORM 『うあっ！　そろそろイキそう……だっ！　このまま、出すぞっ！』
								ENDLIST
							ENDDATA
						ENDIF
					ELSE
						;ゴムあり
						IF B == 2
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@は最高だなっ！』
								DATAFORM 『そろそろ、入れるぞ……。　悪いな……お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@とセックスするぜ！』
								DATAFORM 『あー、あいつには悪いけど、腰がとめられねぇ……。　%CALLNAME:K%의 身体、良すぎるぜっ！』
								DATAFORM 『\@ TALENT:K:남자 ? 彼女 # 彼氏 \@と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
							ENDDATA
						;ゴム無し
						ELSEIF B == 1
							PRINTDATAL
								DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするのは最高だなっ！』
								DATAFORM 『くっ！　そろそろ出るっ！　悪いな……お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするぞ！』
								DATAFORM 『あー、あいつには悪いけど、腰がとめられねぇ……。　このまま、最後まで……イクぞっ！』
								DATALIST
									DATAFORM 『\@ TALENT:K:남자 ? 彼女 # 彼氏 \@と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
									DATAFORM 『うあっ！　そろそろイキそう……だっ！　このまま、出すぞっ！』
								ENDLIST
							ENDDATA
						ENDIF
					ENDIF
				ELSEIF TALENT:ARG:교제
					;ゴムあり
					IF B == 2
						PRINTDATAL
							DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@は最高だなっ！』
							DATAFORM 『そろそろ、入れるぞ……。　悪いな……お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@とセックスするぜ！』
							DATAFORM 『あー、あいつには悪いけど、腰がとめられねぇ……。　%CALLNAME:K%의 身体、良すぎるぜっ！』
							DATAFORM 『\@ TALENT:K:남자 ? 彼女 # 彼氏 \@と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
						ENDDATA
					;ゴム無し
					ELSEIF B == 1
						PRINTDATAL
							DATAFORM 『一盗二卑って言うけど、他人の……特に顔知ってるヤツの\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするのは最高だなっ！』
							DATAFORM 『くっ！　そろそろ出るっ！　悪いな……お前の\@ TALENT:K:남자 ? 彼氏 # 彼女 \@に中出しするぞ！』
							DATAFORM 『あー、あいつには悪いけど、腰がとめられねぇ……。　このまま、最後まで……イクぞっ！』
							DATALIST
								DATAFORM 『\@ TALENT:K:남자 ? 彼女 # 彼氏 \@と楽しそうにしてる%CALLNAME:K%を見てるしかできなかったのに、今%CALLNAME:K%とセックスしてるなんて信じられねぇ……。』
								DATAFORM 『うあっ！　そろそろイキそう……だっ！　このまま、出すぞっ！』
							ENDLIST
						ENDDATA
					ENDIF
				ENDIF
			ELSE
				;ゴムあり
				IF B == 2
					PRINTDATAL
						DATAFORM 『%CALLNAME:ARG%의 身体、想像してた以上に良いよ！　何発でもできそうだ！』
						DATAFORM 『実をいうと、%CALLNAME:ARG%をオカズにしたこと、何回かあるんだ。　それを……いま……ああっ！　出るっ！』
						DATAFORM 『遠くで見てるしかできなかった%CALLNAME:ARG%を自由にできるなんて……最高すぎる！！』
						DATAFORM 『%CALLNAME:ARG%！　%CALLNAME:ARG%、入れるよっ！　ああっ……%CALLNAME:ARG%っ！！』
					ENDDATA
				;ゴム無し
				ELSEIF B == 1
					PRINTDATAL
						DATAFORM 『くっ！　そろそろ出るっ！　えっ？　外に？　無理無理、%CALLNAME:ARG%의 マンコ、気持ち良すぎて我慢できないっ！』
						DATAFORM 『%CALLNAME:ARG%의 질내、想像してた以上に良いよ！　このまま中で出してもいいんだよね？』
						DATAFORM 『実をいうと、%CALLNAME:ARG%をオカズにしたこと、何回かあるんだ。　それに……中出しっ……ああっ！　出るっ！』
						DATAFORM 『遠くで見てるしかできなかった%CALLNAME:ARG%に生ハメ中出しできるなんて……最高すぎる！！』
						DATAFORM 『%CALLNAME:ARG%！　%CALLNAME:ARG%、中で出すよっ！　ああっ……%CALLNAME:ARG%っ！！』
					ENDDATA
				ENDIF
			ENDIF
		ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "불결"
		IF TALENT:ARG:처녀
			PRINTDATAL
				DATAFORM 『あれ？　あんた처녀だったの？　こりゃあ、一生の思い出になるな！　初めてが恥垢まみれのちんぽだなんてよ！』
				DATAFORM 『汚ねぇちんぽでオンナにしちまって悪かったな。　でも、オレは最高の気分だぜ！　きれいなものを汚すのはよ！』
			ENDDATA
		ELSE
			;ゴムあり
			IF B == 2
				PRINTDATAL
					DATALIST
						DATAFORM 『ゴムを着ける前に、입でちんぽをキレイにしてくれよ。』
						DATAFORM 『……うひっ！　そうだ、カリについてる恥垢を舌でこそげ取るようにして……。』
					ENDLIST
					DATALIST
						DATAFORM 『ゴムを着ける前に、ちんぽをキレイにしてもらおうか。』
						DATAFORM 『おいおい、ティッシュに손を伸ばしてんじゃねーよ。　舐めてキレイにしろよ！』
					ENDLIST
				ENDDATA
			;ゴム無し
			ELSEIF B == 1
				PRINTDATAL
					DATAFORM 『われながら、臭ぇちんぽだな！　こんなのを入れられるあんたに同情してしまうぜ！』
					DATAFORM 『われながら、きたねぇちんぽだな！　このちんぽ、あんたのマンコでキレイにしてくれよ！』
					DATAFORM 『金払ってんだから、笑顔で奉仕しろよ！　ほら、顔背けてんじゃねぇ！』
				ENDDATA
			ENDIF
		ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "醜悪"
		IF TALENT:ARG:처녀
			PRINTDATAL
				DATAFORM 『ブ男ちんぽで처녀卒業おめでとう……だな！』
				DATAFORM 『オレみたいなのが、あんたみたいないい女の初めての男になれるなんてな！　ヒヒッ、気分いいな！』
				DATAFORM 『初めての男の……オレの顔、忘れるなよッ！』
			ENDDATA
		ELSE
			;ゴムあり
			IF B == 2
				PRINTDATAL
					DATAFORM 『オレみたいなのが、あんたみたいないい女とセックスできるなんて、最高だな！』
					DATAFORM 『感じてるのか？　女ってのは、普段イケメンがいいとか言ってても、ちんぽ突っ込まれりゃ、誰のでも感じるんだなっ！』
				ENDDATA
			;ゴム無し
			ELSEIF B == 1
				IF TALENT:ARG:임신 == 0
					PRINTDATAL
						DATAFORM 『くっ、出すぞっ！　オレにそっくりな子供、孕みやがれっ！』
						DATAFORM 『オレとあんたの子供なら、運がよければ見れる顔になるかもなっ！　おうっ、出るっ！』
					ENDDATA
				ELSE
					PRINTDATAL
						DATAFORM 『あー、でるでる！　ブ男の精子で子宮たぷたぷにしてやるぜ！』
						DATAFORM 『このままっ……中で出すぞっ！　赤ん坊ごと、オレの精液で汚してやるぜ！』
					ENDDATA
				ENDIF
			ENDIF
		ENDIF
	ELSEIF NIGHT_PROSTITUTION_VISITOR_客タイプ == "馬並み"
		IF TALENT:ARG:처녀
			PRINTDATAL
				DATAFORM 『처녀から一発でガバマンなんて、あんたも不幸だな！』
				DATAFORM 『ん？　あんた처녀だったのかよ！？　初めてがオレだと他のちんぽじゃ満足できなくなるぜ！』
			ENDDATA
		ELSE
			IF TALENT:ARG:임신 == 0
				PRINTDATAL
					DATAFORM 『わかるか？　お前のマンコ、やばいぐらいに拡がってるぜ。』
					DATAFORM 『まだ半分も入ってないからな……。　そらっ、まだいくぞっ！』
					DATAFORM 『ハハハ！　オレのちんぽのせいで、お前のお腹、少し膨らんで見えるぞ！』
					DATAFORM 『あん？　お前、처녀だったのか？　……違うな、オレのちんぽのせいでマンコがちょっと裂けただけだな！』
				ENDDATA
			ELSE
				PRINTDATAL
					DATAFORM 『このまま激しくしたら、オレのちんぽのせいで赤ん坊が潰れちまうかもな！　おらっ、おらっ！』
					DATAFORM 『オレのちんぽで慣らしとけば、赤ん坊産むとき、楽になるぜ！』
					DATAFORM 『子供産んだ後でマンコが緩くなったら、オレの所にきな！　どんなガバマンでも、オレのちんぽなら満足させられるからよ！』
				ENDDATA
			ENDIF
		ENDIF
	ENDIF
;孕ませ好き
ELSEIF L == 8
;	PRINTFORML 客の男は、何度も中に出してきた。

	;何か下衆くなってしまった。
	IF TALENT:ARG:불임
		IF TALENT:ARG:처녀
			PRINTFORML 『임신できない体だって？　初物でついてると思ってたらコレかよ！』
			PRINTFORML 『クソッ、今出した精液返せよ！』
		ELSE
			PRINTFORML 『임신できない体だって？　チッ…今日は外れ引いたな！』
		ENDIF
	ELSEIF TALENT:ARG:처녀
		PRINTFORML 『初物とはついてるぜ。お前もラッキーだなぁ、初セックスで初임신だぜ。』
	;初売春、経験処理が입上呼び出しより後なので追加してみる
	ELSEIF EXP:ARG:매춘경험 == 0
		PRINTFORML 『体を売るのは初めてなのか？　じゃあ、記念に孕ませてやるよッ！　オラッ！』
	ELSEIF TALENT:ARG:임신
		PRINTFORML 『임신中？チッ…今日は外れ引いたな！』
	ELSEIF TALENT:ARG:붕괴 || TALENT:ARG:맹인 || TALENT:ARG:유아퇴행 || TALENT:ARG:장애
		PRINTFORML 『お前みたいな壊れた女が子供を産める最後のチャンスかもな！　ありがたく受け止めろっ！』
	ELSEIF TALENT:ARG:로봇소녀
		PRINTFORML 『よくできてやがるが……コイツは임신できんのか？　チッ…外れ引いた気もするが、試してやるぜ。』
	ELSE
		;ＮＴＬ系
		IF (TALENT:ARG:좋아하는사람있음 || TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && RAND:2 == 0
			IF TALENT:ARG:남편있음
				PRINTDATAL
					DATAFORM 『旦那と俺のとどっちが良いんだよ！　何、言えねぇ？　それじゃあ、俺のチンポの形깨우침えるまで犯してやるよ。出すぞっ！』
					DATAFORM 『奥さん、俺の子供を産んでくれよ。　旦那よりよがらせてやるからよぉ。』
				ENDDATA
			ELSEIF TALENT:ARG:남친있음
				PRINTFORML 『彼氏はこんなに激しく愛してくれたかよ、へへっ、また中に出すぞっ。　イクっ！！』
			ELSE
				PRINTFORML 『好きな人がいるから、中だけは勘弁してくれって？　それじゃあ、そいつに言ってやれよ！　あなた以外の男の精子で孕まされました、ってな！』
			ENDIF
			;		PRINTFORML 『好きな人がいるから、中だけは勘弁してくれって？それじゃあ、そいつに言ってやれよ!あなた以外の男の精子で孕まされました、ってな!』
		;職業、立場系　１
		ELSEIF (TALENT:ARG:초등학생 || TALENT:ARG:중학생 || TALENT:ARG:고등학생 || TALENT:ARG:대학생 || TALENT:ARG:사회인) && RAND:3 == 0
			IF TALENT:ARG:초등학생
				PRINTDATAL
					DATAFORM 『幼い感じがすると思ったら초등학생だったとはな！』
					DATAFORM 『へへ、초등학생に中出しするのは最高だぜ！』
				ENDDATA
			ELSEIF TALENT:ARG:중학생
				PRINTFORML 『保健体育の時間に子供のできる仕組みは習っただろう？　実践教育してやるよ。』
			ELSEIF TALENT:ARG:고등학생
				PRINTFORML 『援助교제なんかして、遊ぶ金でも欲しいのか？　俺もお前にガキができるように援助してやるよ。』
			ELSEIF TALENT:ARG:대학생
				PRINTFORML 『やっぱり女子大生は음란だな。　임신したら、子育てしながら勉強してくれよ。』
			ELSEIF TALENT:ARG:사회인
				PRINTFORML 『お前も大人なら、ピルぐらい飲んでんだろう？遠慮なく出すぜ。』
			ENDIF
		;職業、立場系　２
		ELSEIF (TALENT:ARG:연예인 || TALENT:ARG:AV녀 || TALENT:ARG:교사 || TALENT:ARG:성직자 || TALENT:ARG:매드사이언티스트 || TALENT:ARG:도박사) && RAND:3 == 0
			IF TALENT:ARG:연예인 && RAND:2 == 0
				PRINTFORML 『枕営業ご苦労様だな。俺の子供を孕んじまったら、とんだスキャンダルか？』
			ELSEIF TALENT:ARG:AV녀 && RAND:2 == 0
				PRINTFORML 『お前が次に出る作品、妊婦モノにしてやるぜ！　おらっ、孕めっ！』
			ELSEIF TALENT:ARG:교사 && RAND:2 == 0
				PRINTFORML 『学校の先生だったとはな、驚いたぜ。　このこと生徒たちに教えてやろうか？』
				PRINTFORML 『学校に行けなくなる？　安心しろよ、すぐに産休で生徒たちとあわなくなるからよ。』

				;PRINTFORML 『まさか先生がこんなことやってるって、生徒たちに教えてやったらどうなるだろうな？安心しろよ、すぐに産休取らせてやるからよ。』
			ELSEIF TALENT:ARG:성직자 && RAND:2 == 0
				PRINTFORML 『성직자様をこんな風に犯せるとは夢にも思わなかったぜ。おらっ、神様からの贈り物をやるよ！！』
			ELSEIF TALENT:ARG:매드사이언티스트 && RAND:2 == 0
				PRINTDATAL
					DATAFORM 『人体実験の素体をくれてやるよ、せいぜい大事に育てな！』
					DATAFORM 『よかったな。　これで임신出産の実験ができるぜ！　おらっ、出すぞっ！』
				ENDDATA
			ELSEIF TALENT:ARG:도박사 && RAND:2 == 0
				PRINTDATAL
					DATAFORM 『この間はよくもやってれたな、　今日は俺がお見舞いしてやるよ。　おらっ、倍付だ!孕め！』
					DATAFORM 『オマエ、賭け事が好きなんだってな。　じゃあ、俺の種が当たるかどうか、勝負しようぜ。』
				ENDDATA
			ELSE
				;売春孕ませ好き客汎用セリフ
				CALL NIGHT_PROSTITUTION_VISITOR_HR, ARG
			ENDIF
		;職業、立場系　３
		ELSEIF (TALENT:ARG:영애 || TALENT:ARG:유명인 || TALENT:ARG:외국인 || TALENT:ARG:학생회장 || TALENT:ARG:불량) && RAND:3 == 0
			IF TALENT:ARG:영애 && RAND:2 == 0
				PRINTFORML 『お前のこと知ってるぜ。あそこの家のお嬢さんだろう？こんなことやってるとはな。』
				PRINTFORML 『それにしても、名家のお嬢さんが売春して孕んだら周りになんて言うんだ？　興味あるからたっぷり中出ししといてやるよ。』
			ELSEIF TALENT:ARG:유명인 && RAND:2 == 0
				PRINTFORML 『お前この辺りじゃ유명인だな。　お前を孕ませたら俺も유명인の仲間入りかもな。』
				PRINTFORML 『あの%CALLNAME:ARG%を孕ませた男ってな！　おらっ！　出すぞっ！』
				;PRINTFORML 『お前この辺りじゃ유명인だな。ほかの奴にも教えてやるよ。ここに来ればお前が股開く、ってな。』
			ELSEIF TALENT:ARG:외국인 && RAND:2 == 0
				PRINTFORML 『国に帰る時の土産は、ハーフの子供ってのはどうだ？』
				PRINTFORML 『なに？　イヤだ？　わりぃな、外国語わからねーんだ。　このまま出すぞ、オラッ！』』
				;PRINTFORML 『上玉じゃねえか。　外国まで来て売春とはご苦労なこったぜ。』
			ELSEIF TALENT:ARG:학생회장 && RAND:2 == 0
				PRINTFORML 『お前、そこの学校の학생회장だろう？　前に行事の挨拶してるの見たぜ。』
				PRINTFORML 『……임신したら、大きな腹かかえてスピーチとかするのか？　気になるから孕ませてやるよ。　おらっ、孕めっ！』
			ELSEIF TALENT:ARG:불량 && RAND:2 == 0
				PRINTDATAL
					DATAFORM 『불량にしちゃ、案外きれいな色してるじゃねえか。　まっ、それも今日までだがな！　出すぞっ！　孕めっ！』
					DATAFORM 『불량なんだから、孕んでも問題ねぇよな！　オラッ、出すぞ！』
				ENDDATA
				;PRINTFORML 『まさかお前とヤれるとは思わなかったぜ。へへっ、案外きれいな色してるじゃねえか。』
			ELSE
				;売春孕ませ好き客汎用セリフ
				CALL NIGHT_PROSTITUTION_VISITOR_HR, ARG
			ENDIF
		;性格系
		ELSEIF (TALENT:ARG:겁쟁이 || TALENT:ARG:얌전함 || TALENT:ARG:꿋꿋함 || TALENT:ARG:프라이드높음 || TALENT:ARG:반항적 || TALENT:ARG:솔직) && RAND:3 == 0
			IF TALENT:ARG:겁쟁이 && RAND:2 == 0
				PRINTFORML 『おいおい、そんなに怯えんなよ。ちょっと中に出して、お前を임신させるだけだよ。』
			ELSEIF TALENT:ARG:얌전함 && RAND:2 == 0
				PRINTFORML 『얌전함面して、ずいぶん乱れるじゃねえか！　思わず大量に搾り取られちまったぜ！』
			ELSEIF TALENT:ARG:꿋꿋함 && RAND:2 == 0
				PRINTFORML 『気の強い女の子宮を俺の精子で征服するのが堪らないんだよな。』
			ELSEIF TALENT:ARG:프라이드높음 && RAND:2 == 0
				PRINTFORML 『良いぜ、その眼!お前みたいなプライドの高い女に種付けする時が最高に興奮するんだよ！』
			ELSEIF TALENT:ARG:반항적 && RAND:2 == 0
				PRINTFORML 『まったく、손のかかる女だぜ。お前みたいなのは、ガキでも孕めば少しは丸くなるだろ、おらよっ！！』
			ELSEIF TALENT:ARG:솔직 && RAND:2 == 0
				PRINTFORML 『へへっ、気持ち良いか?お前みたいな솔직なやつも好きだぜ。ご褒美だ！孕みな!』
			ELSE
				;売春孕ませ好き客汎用セリフ
				CALL NIGHT_PROSTITUTION_VISITOR_HR, ARG
			ENDIF
		;ELSEIF ( ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  ||  || )

		;その他
		ELSE
			;특수
			IF TALENT:ARG:교섭술 && RAND:2 == 0
				PRINTFORML 『何？中はやめてくれって？　…良いぜ、出すのはその奥、子宮だ!種付けしてやるよ！　…ふぅ、たっぷり出たな。おまけしといてやったぜ。』
			;潔癖度
			ELSEIF TALENT:ARG:레이프소망 && RAND:2 == 0
				PRINTFORML 『あん？中は嫌だって？　嘘つけよ、お前の子宮は俺の精子が欲しくてたまらないって、うずいてるぜ!おらっ、トロ顔晒して種付けされながらイきな！』
			;性愛性
			ELSEIF TALENT:ARG:남성혐오 && RAND:2 == 0
				PRINTFORML 『中で出すたびにキーキーうるせえな。　諦めろよ、男には叶わないんだよ。　そいつをまた教え込んでやるよ！　イクぜ！』
			;魅力属性
			ELSEIF TALENT:ARG:쿨함 && RAND:2 == 0
				PRINTFORML 『そのすまし顔も임신したら少しは変わるのか？　これから試してやるぜ！』
			;乙女心
			ELSEIF TALENT:ARG:부끄럼쟁이 && RAND:2 == 0
				PRINTFORML 『恥じらう姿ってのも色っぽくて良いな！　腹脹らまして、他の奴になんて説明するんだ？』
			;乙女心
			ELSEIF TALENT:ARG:Ｂ열등감 && RAND:2 == 0
				PRINTFORML 『おっぱいが小さいのを気にしてんのか？　安心しろよ今からお前のおっぱいを大きくしてやるよ！孕みな！』
			ELSE
				;売春孕ませ好き客汎用セリフ
				CALL NIGHT_PROSTITUTION_VISITOR_HR, ARG
			ENDIF
		ENDIF
	ENDIF
;金が多い
ELSEIF L == 9
;	PRINTFORML その夜の客は、非常に尊大な男だった。
	;ゴムあり
	IF B == 2
		IF TALENT:ARG:처녀
			PRINTFORML 『おい、女。　金が欲しかったら、おねだりしてみろ。』
			PRINTFORML 『……처녀マンコに入れてください……か、まぁまぁだな。　望み通りにしてやる、そこに跪いてケツをあげろ。』
		ELSEIF TALENT:ARG:임신
			PRINTDATAL
				DATALIST
					DATAFORM 『おい、女。　妊婦だからって優しくしてもらえると思ったら大間違いだぞ。』
					DATAFORM 『このまま、奥まで突き上げてやる。　壊れるなよ。』
				ENDLIST
			ENDDATA
		ELSE
			PRINTDATAL
				DATALIST
					DATAFORM 『おい、女。　金が欲しかったら、おねだりしてみろ。』
					DATAFORM 『……お願いですから入れてください……か、まぁまぁだな。　望み通りにしてやる、そこに跪いてケツをあげろ。』
				ENDLIST
				DATAFORM 『売女にナマで入れて病気などうつされてはかなわんからな。　ゴムを着けさせてもらうぞ。』
				DATAFORM 『キサマのような女に中出しして認知を求められてはかなわんからな。　避妊はさせてもらうぞ。』
				DATAFORM 『体を売っている割には、なかなかの締め付けだな。　褒めてやる。』
			ENDDATA
		ENDIF
	;ゴム無し
	ELSEIF B == 1
		IF TALENT:ARG:처녀
			PRINTFORML 『おい、女。　金が欲しかったら、おねだりしてみろ。』
			PRINTFORML 『……처녀マンコに中出ししてください……か、まぁまぁだな。　望み通りにしてやる、そこに跪いてケツをあげろ。』
		ELSEIF TALENT:ARG:임신
			PRINTDATAL
				DATAFORM 『おい、女。　임신しているならかまわんだろう？　このまま出すぞ。』
				DATALIST
					DATAFORM 『孕んでいてすみませんと謝るんだ。　そうだ、いいぞ……。』
					DATAFORM 『そのままケツを上げろ、たっぷりと中に注いでやる。』
				ENDLIST
			ENDDATA
		ELSE
			PRINTDATAL
				DATALIST
					DATAFORM 『おい、女。　金が欲しかったら、おねだりしてみろ。』
					DATAFORM 『……中に出してもいいから入れてください……か、まぁまぁだな。　望み通りにしてやる、そこに跪いてケツをあげろ。』
				ENDLIST
				DATAFORM 『このまま出してやる、ありがたく思え。』
				DATAFORM 『体を売っている割には、なかなかの締め付けだな。　褒美だ受け取れ……出すぞ。』
			ENDDATA
		ENDIF
	ENDIF
;普通
ELSE
	IF TALENT:ARG:처녀
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『このちんぽがキミをオンナにするんだ、よく見て깨우침えてくれよ。』
				DATAFORM 『キミをオンナにするちんぽ、よく見て깨우침えてくれよ。』
				DATAFORM 『キミみたいな可愛い子の初めての男になれるなんて、すごく興奮するよ。』
				DATAFORM 『これは……처녀だったのか！　처녀とやれるなんて、今日はツイてるな！』
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 『キミの中に初めて精液を注ぎ込むちんぽ、よく見て깨우침えてくれよ。』
				DATAFORM 『처녀\@ RAND:2 == 0 ? に生ハメ中出し # とゴム無しセックス \@できるなんて、最高だな！』
				DATAFORM 『キミみたいな可愛い子の初めてを二つもらえるなんて、今日はツイてるな。』
			ENDDATA
		ENDIF
	ELSEIF TALENT:ARG:임신
		PRINTDATAL
			DATAFORM 『모유마시기ながらのセックス、最高だっ！　ああっ……でるぅ……。』
			DATAFORM 『母乳吹き出しながらイクなんて、エロすぎるよ……。』
			DATAFORM 『赤ん坊は気になるけど……、ダメだっ！　腰がとまらない！』
		ENDDATA
	ELSE
		;ゴムあり
		IF B == 2
			PRINTDATAL
				DATAFORM 『キミの질내が気持ち良すぎて……もう……。』
				DATAFORM 『そろそろ、入れるよ！　もう、我慢できない！』
				DATAFORM 『ゴム着けてくれるかな？　……ああ、なんかこれだけでも興奮するよ！』
			ENDDATA
		ELSE
			PRINTDATAL
				DATAFORM 『このまま……このまま、中で……ああっ、イクっ！』
				DATAFORM 『질내が絡み付いてくるぅ……。　くっ、あ……気持ちいい！』
				DATAFORM 『キミみたいな可愛い子と生エッチできるなんて！』
			ENDDATA
		ENDIF
	ENDIF
ENDIF
;;ゴムあり
;IF B == 2
;	PRINTFORML ホテルの一室で%ARG는% 、客の페니스に입で咥えた콘돔を被せた。
;ELSE
;	PRINTFORML ホテルの一室で%ARG는% 、生の페니스にキスをし、奉仕をはじめた。
;ENDIF
;PRINTFORML ホテルの一室で%ARG는% 客と体を重ねた

CALL KOJO_MESSAGE_EVENT
TARGET = T
PRINTW

@NIGHT_PROSTITUTION_GET_VISITOR
#FUNCTION
SELECTCASE FLAG:33
	CASE 10 TO 30 - 1
		LOCAL = 1
	CASE 30 TO 60 - 1
		LOCAL = 2
	CASE 60 TO 100 - 1
		LOCAL = 3
	CASE 100 TO 150 - 1
		LOCAL = 4
	CASE 150 TO 210 - 1
		LOCAL = 5
	CASE 210 TO 280 - 1
		LOCAL = 6
	CASE 280 TO 360 - 1
		LOCAL = 7
	CASE 360 TO 450 - 1
		LOCAL = 8
	CASE 450 TO 550 - 1
		LOCAL = 9
	CASE 550 TO 660 - 1
		LOCAL = 10
	CASE 660 TO 780 - 1
		LOCAL = 11
	CASE 780 TO 900 - 1
		LOCAL = 12
	CASE 900 TO 1030 - 1
		LOCAL = 13
	CASEELSE
		LOCAL = 0
ENDSELECT
RETURNF LOCAL

@NIGHT_PROSTITUTION_VISITOR_UP(ARG)
;FLAG番号は仮
IF ARG > 0
	IF FLAG:33 + ARG < 900
		FLAG:33 += ARG
	ELSE
		FLAG:33 = 900
	ENDIF
ENDIF

@NIGHT_PROSTITUTION_VISITOR_DOWN(ARG)
;FLAG番号は仮
IF ARG > 0
	IF FLAG:33 - ARG >= 0
		FLAG:33 -= ARG
	ELSE
		FLAG:33 = 0
	ENDIF
ENDIF

;売春孕ませ好き客汎用セリフ
;CALL NIGHT_PROSTITUTION_VISITOR_HR, ARG
@NIGHT_PROSTITUTION_VISITOR_HR, ARG
PRINTDATAL
	DATAFORM 『やっぱり中で出さないとヤってるって実感がわかないんだよな。』
	DATAFORM 『またイクぜ。孕みな。』
	DATAFORM 『いくら出しても勃ちやがる!最高だぜ、お前の身体!!』
	DATAFORM 『どんな女もこれだけ中に出せば、임신は確実だろうな。』
	DATAFORM 『出すぜ!また中に出してやる!!』
	DATAFORM 『お前も俺のガキを孕みな。』
	DATAFORM 『ふぅ～たっぷり出たなぁ。임신おめでとう、お・か・あ・さ・ん。』
	DATAFORM 『ガキができても良いじゃねぇか。楽しもうぜ。』
	DATAFORM 『子供が産まれても、連れてくるんじゃねぞ。金は払ってんだからな。』
	DATAFORM 『おら、お前も中に出されて嬉しいんだろう？もっとよがれよ。』
	DATAFORM 『避妊？知らねえよ、金は払ってんだ。好きにやらせてもらうぜ。』
	DATAFORM 『こんだけ種付けしてやったんだ。後はできるのを待つだけだな。』
	DATAFORM 『おいおい、ヤり過ぎたか。中から溢れてきてるぜ、ふたしてやらないとな。』
	DATAFORM 『諦めろよ。とっくの昔に孕んでるっての。』
	DATAFORM 『孕むまで何度でも出してやるよ。』
	DATAFORM 『お前の子宮に俺の精子が溢れてるのが分かるだろう？征服済みってことだ。』
	DATAFORM 『お前の子宮で俺の精子が卵子を輪姦してるぜ。』
	DATAFORM 『後腐れなく中出しできるって最高だな。』
	DATAFORM 『金玉空っぽになっちまったな。張り切りすぎたぜ。』
ENDDATA