code:
;労役指示
;@CHARA_WORKING
;A = 0
;B = 0
;D = 0
;E = 0
;F = 0
;G = 0
;REPEAT CHARANUM
;	SIF COUNT == MASTER
;		CONTINUE
;	SIF CFLAG:COUNT:1 != 2
;		CONTINUE
;	SIF CFLAG:COUNT:12 > 0
;		CONTINUE
;	;育児部屋に移動しているキャラは除外
;	C = COUNT
;	CALL CHECK_CHILD_CARE
;	SIF RESULT == 1
;		CONTINUE
;	SIF (TALENT:COUNT:3 || TALENT:COUNT:6) && ((TALENT:COUNT:290 && TALENT:MASTER:290 == 0) || (TALENT:COUNT:290 == 0 && TALENT:MASTER:290))
;		A += 1
;	SIF (TALENT:COUNT:4 || TALENT:COUNT:7) && IS_DAYTIME()
;		B += 1
;	SIF (TALENT:COUNT:5 || TALENT:COUNT:8) && IS_DAYTIME()
;		D += 1
;	SIF (TALENT:COUNT:3 || TALENT:COUNT:6) && ABL:COUNT:14 >= 2
;		E += 1
;	SIF TALENT:COUNT:4 || TALENT:COUNT:7
;		F += 1
;	SIF TALENT:COUNT:5 || TALENT:COUNT:8
;		G += 1
;REND
;PRINTL [0]  - 売却
;SIF A
;	PRINTL [1]  - 定食屋台
;SIF B
;	PRINTL [2]  - 娼館でのバイト
;SIF D
;	PRINTL [3]  - 奴隷のレンタル
;SIF E
;	PRINTL [4]  - コンサート
;SIF F
;	PRINTL [5]  - 乱交ライブ
;SIF G
;	PRINTL [6]  - 公衆便所プレイ
;PRINTL [100]- 돌아온다
;$INPUT_LOOP
;INPUT
;IF RESULT == 100
;	RETURN 0
;ELSEIF RESULT == 0
;	CALL CHARA_SELL
;ELSEIF RESULT == 1 && A
;	CALL LUNCH_STALL
;ELSEIF RESULT == 2 && B
;	CALL PROSTITUTION
;ELSEIF RESULT == 3 && D
;	CALL RENTAL_SLAVE
;ELSEIF RESULT == 4 && E
;	CALL CONCERT
;ELSEIF RESULT == 5 && F
;	CALL PROMISCUOUS_SEX_LIVE
;ELSEIF RESULT == 6 && G
;	CALL PUBLIC_TOILET
;ELSE
;	GOTO INPUT_LOOP
;ENDIF

;RETURN 0

;奴隷売却の処理
@CHARA_SELL
DRAWLINE
PRINTL 誰を売りますか？
PRINTL
REPEAT CHARANUM
	TFLAG:COUNT = 0
	SIF COUNT == MASTER
		CONTINUE
	SIF CFLAG:COUNT:12 > 0
		CONTINUE
	;育児部屋に移動しているキャラは除外
	C = COUNT
	CALL CHECK_CHILD_CARE
	SIF RESULT == 1
		CONTINUE
	IF CFLAG:COUNT:1 >= 1 && CFLAG:COUNT:7 == 0
		PRINTFORM [{COUNT}] %NAME:COUNT%
		IF ASSI == COUNT
			PRINT (助손)
		ELSEIF ISASSI:COUNT == 1
			PRINT (元助손)
		ELSEIF CFLAG:COUNT:1 == 2
			PRINT (助손可)
		ENDIF
		PRINTL
	ENDIF
REND
PRINTFORML [100] 돌아온다

$INPUT_LOOP
INPUT

IF RESULT == 100
	RETURN 0
ELSEIF RESULT <= 0 || RESULT >= CHARANUM
	GOTO INPUT_LOOP
ELSEIF CFLAG:RESULT:1 < 1 || CFLAG:RESULT:7 > 0 || CFLAG:RESULT:12 > 0 || RESULT == MASTER
	GOTO INPUT_LOOP
ELSE
	C = RESULT
	CALL CHECK_CHILD_CARE
	SIF RESULT == 1
		GOTO INPUT_LOOP
	;売却処理
	T = TARGET
	A = ASSI
	TARGET = C
ENDIF

S = 0

;ABLによる基礎値計算
V = 0
;ABL:순종をみる
IF ABL:0 == 0
	V = 0
ELSEIF ABL:0 == 1
	V = 1200
ELSEIF ABL:0 == 2
	V = 1800
ELSEIF ABL:0 == 3
	V = 2500
ELSEIF ABL:0 == 4
	V = 3300
ELSEIF ABL:0 == 5
	V = 4200
ELSEIF ABL:0 == 6
	V = 6200
ELSEIF ABL:0 == 7
	V = 9000
ELSEIF ABL:0 == 8
	V = 13000
ELSEIF ABL:0 == 9
	V = 18000
ELSE
	V = 25000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:0%{ABL:0}LV +{V}
S += V

;ABL:욕망をみる
IF ABL:1 == 0
	V = 0
ELSEIF ABL:1 == 1
	V = 1000
ELSEIF ABL:1 == 2
	V = 1500
ELSEIF ABL:1 == 3
	V = 2100
ELSEIF ABL:1 == 4
	V = 2800
ELSEIF ABL:1 == 5
	V = 3600
ELSEIF ABL:1 == 6
	V = 5500
ELSEIF ABL:1 == 7
	V = 8000
ELSEIF ABL:1 == 8
	V = 12000
ELSEIF ABL:1 == 9
	V = 16000
ELSE
	V = 22000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:1%{ABL:1}LV +{V}
S += V

;ABL:기교をみる
IF ABL:2 == 0
	V = 0
ELSEIF ABL:2 == 1
	V = 800
ELSEIF ABL:2 == 2
	V = 1200
ELSEIF ABL:2 == 3
	V = 1700
ELSEIF ABL:2 == 4
	V = 2300
ELSEIF ABL:2 == 5
	V = 3000
ELSEIF ABL:2 == 6
	V = 4800
ELSEIF ABL:2 == 7
	V = 7000
ELSEIF ABL:2 == 8
	V = 11000
ELSEIF ABL:2 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:2%{ABL:2}LV +{V}
S += V

;ABL:Ｃ감각をみる
IF ABL:3 == 0
	V = 0
ELSEIF ABL:3 == 1
	V = 800
ELSEIF ABL:3 == 2
	V = 1200
ELSEIF ABL:3 == 3
	V = 1700
ELSEIF ABL:3 == 4
	V = 2300
ELSEIF ABL:3 == 5
	V = 3000
ELSEIF ABL:3 == 6
	V = 4800
ELSEIF ABL:3 == 7
	V = 7000
ELSEIF ABL:3 == 8
	V = 11000
ELSEIF ABL:3 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:3%{ABL:3}LV +{V}
S += V

;ABL:Ｖ감각をみる
IF ABL:4 == 0
	V = 0
ELSEIF ABL:4 == 1
	V = 800
ELSEIF ABL:4 == 2
	V = 1200
ELSEIF ABL:4 == 3
	V = 1700
ELSEIF ABL:4 == 4
	V = 2300
ELSEIF ABL:4 == 5
	V = 3000
ELSEIF ABL:4 == 6
	V = 4800
ELSEIF ABL:4 == 7
	V = 7000
ELSEIF ABL:4 == 8
	V = 11000
ELSEIF ABL:4 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:4%{ABL:4}LV +{V}
S += V

;ABL:Ａ감각をみる
IF ABL:5 == 0
	V = 0
ELSEIF ABL:5 == 1
	V = 800
ELSEIF ABL:5 == 2
	V = 1200
ELSEIF ABL:5 == 3
	V = 1700
ELSEIF ABL:5 == 4
	V = 2300
ELSEIF ABL:5 == 5
	V = 3000
ELSEIF ABL:5 == 6
	V = 4800
ELSEIF ABL:5 == 7
	V = 7000
ELSEIF ABL:5 == 8
	V = 11000
ELSEIF ABL:5 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:5%{ABL:5}LV +{V}
S += V

;ABL:Ｂ감각をみる
IF ABL:6 == 0
	V = 0
ELSEIF ABL:6 == 1
	V = 800
ELSEIF ABL:6 == 2
	V = 1200
ELSEIF ABL:6 == 3
	V = 1700
ELSEIF ABL:6 == 4
	V = 2300
ELSEIF ABL:6 == 5
	V = 3000
ELSEIF ABL:6 == 6
	V = 4800
ELSEIF ABL:6 == 7
	V = 7000
ELSEIF ABL:6 == 8
	V = 11000
ELSEIF ABL:6 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:6%{ABL:6}LV +{V}
S += V

;ABL:봉사정신をみる
IF ABL:7 == 0
	V = 0
ELSEIF ABL:7 == 1
	V = 1200
ELSEIF ABL:7 == 2
	V = 1800
ELSEIF ABL:7 == 3
	V = 2500
ELSEIF ABL:7 == 4
	V = 3300
ELSEIF ABL:7 == 5
	V = 4200
ELSEIF ABL:7 == 6
	V = 6200
ELSEIF ABL:7 == 7
	V = 9000
ELSEIF ABL:7 == 8
	V = 13000
ELSEIF ABL:7 == 9
	V = 18000
ELSE
	V = 25000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:7%{ABL:7}LV +{V}
S += V

;ABL:노출증をみる
IF ABL:8 == 0
	V = 0
ELSEIF ABL:8 == 1
	V = 800
ELSEIF ABL:8 == 2
	V = 1200
ELSEIF ABL:8 == 3
	V = 1700
ELSEIF ABL:8 == 4
	V = 2300
ELSEIF ABL:8 == 5
	V = 3000
ELSEIF ABL:8 == 6
	V = 4800
ELSEIF ABL:8 == 7
	V = 7000
ELSEIF ABL:8 == 8
	V = 11000
ELSEIF ABL:8 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:8%{ABL:8}LV +{V}
S += V

;ABL:마조끼をみる
IF ABL:9 == 0
	V = 0
ELSEIF ABL:9 == 1
	V = 1000
ELSEIF ABL:9 == 2
	V = 1500
ELSEIF ABL:9 == 3
	V = 2100
ELSEIF ABL:9 == 4
	V = 2800
ELSEIF ABL:9 == 5
	V = 3600
ELSEIF ABL:9 == 6
	V = 5500
ELSEIF ABL:9 == 7
	V = 8000
ELSEIF ABL:9 == 8
	V = 12000
ELSEIF ABL:9 == 9
	V = 16000
ELSE
	V = 22000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:9%{ABL:9}LV +{V}
S += V

;ABL:새드끼をみる
IF ABL:10 == 0
	V = 0
ELSEIF ABL:10 == 1
	V = 800
ELSEIF ABL:10 == 2
	V = 1200
ELSEIF ABL:10 == 3
	V = 1700
ELSEIF ABL:10 == 4
	V = 2300
ELSEIF ABL:10 == 5
	V = 3000
ELSEIF ABL:10 == 6
	V = 4800
ELSEIF ABL:10 == 7
	V = 7000
ELSEIF ABL:10 == 8
	V = 11000
ELSEIF ABL:10 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:10%{ABL:10}LV +{V}
S += V

;ABL:레즈끼をみる
IF ABL:11 == 0
	V = 0
ELSEIF ABL:11 == 1
	V = 1000
ELSEIF ABL:11 == 2
	V = 1500
ELSEIF ABL:11 == 3
	V = 2100
ELSEIF ABL:11 == 4
	V = 2800
ELSEIF ABL:11 == 5
	V = 3600
ELSEIF ABL:11 == 6
	V = 5500
ELSEIF ABL:11 == 7
	V = 8000
ELSEIF ABL:11 == 8
	V = 12000
ELSEIF ABL:11 == 9
	V = 16000
ELSE
	V = 22000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:11%{ABL:11}LV +{V}
S += V

;ABL:요리기능をみる
IF ABL:12 == 0
	V = 0
ELSEIF ABL:12 == 1
	V = 600
ELSEIF ABL:12 == 2
	V = 1000
ELSEIF ABL:12 == 3
	V = 1500
ELSEIF ABL:12 == 4
	V = 2100
ELSEIF ABL:12 == 5
	V = 2800
ELSEIF ABL:12 == 6
	V = 4800
ELSEIF ABL:12 == 7
	V = 7000
ELSEIF ABL:12 == 8
	V = 11000
ELSEIF ABL:12 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:12%{ABL:12}LV +{V}
S += V

;ABL:촬영기능をみる
IF ABL:13 == 0
	V = 0
ELSEIF ABL:13 == 1
	V = 600
ELSEIF ABL:13 == 2
	V = 1000
ELSEIF ABL:13 == 3
	V = 1500
ELSEIF ABL:13 == 4
	V = 2100
ELSEIF ABL:13 == 5
	V = 2800
ELSEIF ABL:13 == 6
	V = 4800
ELSEIF ABL:13 == 7
	V = 7000
ELSEIF ABL:13 == 8
	V = 11000
ELSEIF ABL:13 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:13%{ABL:13}LV +{V}
S += V

;ABL:가창기능をみる
IF ABL:14 == 0
	V = 0
ELSEIF ABL:14 == 1
	V = 600
ELSEIF ABL:14 == 2
	V = 1000
ELSEIF ABL:14 == 3
	V = 1500
ELSEIF ABL:14 == 4
	V = 2100
ELSEIF ABL:14 == 5
	V = 2800
ELSEIF ABL:14 == 6
	V = 4800
ELSEIF ABL:14 == 7
	V = 7000
ELSEIF ABL:14 == 8
	V = 11000
ELSEIF ABL:14 == 9
	V = 15000
ELSE
	V = 21000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:14%{ABL:14}LV +{V}
S += V

;ABL:자위중독をみる
IF ABL:15 == 0
	V = 0
ELSEIF ABL:15 == 1
	V = 1500
ELSEIF ABL:15 == 2
	V = 2200
ELSEIF ABL:15 == 3
	V = 3000
ELSEIF ABL:15 == 4
	V = 3900
ELSEIF ABL:15 == 5
	V = 4900
ELSEIF ABL:15 == 6
	V = 8000
ELSEIF ABL:15 == 7
	V = 11000
ELSEIF ABL:15 == 8
	V = 15000
ELSEIF ABL:15 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:15%{ABL:15}LV +{V}
S += V

;ABL:정액중독をみる
IF ABL:16 == 0
	V = 0
ELSEIF ABL:16 == 1
	V = 1500
ELSEIF ABL:16 == 2
	V = 2200
ELSEIF ABL:16 == 3
	V = 3000
ELSEIF ABL:16 == 4
	V = 3900
ELSEIF ABL:16 == 5
	V = 4900
ELSEIF ABL:16 == 6
	V = 8000
ELSEIF ABL:15 == 7
	V = 11000
ELSEIF ABL:15 == 8
	V = 15000
ELSEIF ABL:15 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:16%{ABL:16}LV +{V}
S += V

;ABL:레즈중독をみる
IF ABL:17 == 0
	V = 0
ELSEIF ABL:17 == 1
	V = 1500
ELSEIF ABL:17 == 2
	V = 2200
ELSEIF ABL:17 == 3
	V = 3000
ELSEIF ABL:17 == 4
	V = 3900
ELSEIF ABL:17 == 5
	V = 4900
ELSEIF ABL:17 == 6
	V = 8000
ELSEIF ABL:15 == 7
	V = 11000
ELSEIF ABL:15 == 8
	V = 15000
ELSEIF ABL:15 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:17%{ABL:17}LV +{V}
S += V

;ABL:섹스중독をみる
IF ABL:18 == 0
	V = 0
ELSEIF ABL:18 == 1
	V = 1500
ELSEIF ABL:18 == 2
	V = 2200
ELSEIF ABL:18 == 3
	V = 3000
ELSEIF ABL:18 == 4
	V = 3900
ELSEIF ABL:18 == 5
	V = 4900
ELSEIF ABL:18 == 6
	V = 8000
ELSEIF ABL:18 == 7
	V = 11000
ELSEIF ABL:18 == 8
	V = 15000
ELSEIF ABL:18 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:18%{ABL:18}LV +{V}
S += V

;ABL:분유중독をみる
IF ABL:19 == 0
	V = 0
ELSEIF ABL:19 == 1
	V = 1500
ELSEIF ABL:19 == 2
	V = 2200
ELSEIF ABL:19 == 3
	V = 3000
ELSEIF ABL:19 == 4
	V = 3900
ELSEIF ABL:19 == 5
	V = 4900
ELSEIF ABL:19 == 6
	V = 8000
ELSEIF ABL:19 == 7
	V = 11000
ELSEIF ABL:19 == 8
	V = 15000
ELSEIF ABL:19 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:19%{ABL:19}LV +{V}
S += V

;ABL:호모끼をみる
IF ABL:20 == 0
	V = 0
ELSEIF ABL:20 == 1
	V = 1000
ELSEIF ABL:20 == 2
	V = 1500
ELSEIF ABL:20 == 3
	V = 2100
ELSEIF ABL:20 == 4
	V = 2800
ELSEIF ABL:20 == 5
	V = 3600
ELSEIF ABL:20 == 6
	V = 5500
ELSEIF ABL:1 == 7
	V = 8000
ELSEIF ABL:1 == 8
	V = 12000
ELSEIF ABL:1 == 9
	V = 16000
ELSE
	V = 22000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:20%{ABL:20}LV +{V}
S += V

;ABL:게이중독をみる
IF ABL:21 == 0
	V = 0
ELSEIF ABL:21 == 1
	V = 1500
ELSEIF ABL:21 == 2
	V = 2200
ELSEIF ABL:21 == 3
	V = 3000
ELSEIF ABL:21 == 4
	V = 3900
ELSEIF ABL:21 == 5
	V = 4900
ELSEIF ABL:21 == 6
	V = 8000
ELSEIF ABL:21 == 7
	V = 11000
ELSEIF ABL:21 == 8
	V = 15000
ELSEIF ABL:21 == 9
	V = 20000
ELSE
	V = 30000
ENDIF
SIF V > 0
	PRINTFORML %ABLNAME:21%{ABL:21}LV +{V}
S += V

V = 100
;素質による売却額補正値計算
;TALENT:처녀をみる
IF TALENT:0
	C = 100
	V += 100
	PRINTFORML %TALENTNAME:0% ＋{C}％
ENDIF
;TALENT:재생처녀をみる
IF TALENT:1
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:1% ＋{C}％
ENDIF
;素質による増減
;陥落素質
;연모
IF TALENT:3
	C = 50
	V -= 50
	PRINTFORML %TALENTNAME:3% －{C}％
ENDIF
;음란
IF TALENT:4
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:4% ＋{C}％
ENDIF
;복종
IF TALENT:5
	C = 50
	V += 50
	PRINTFORML %TALENTNAME:5% ＋{C}％
ENDIF
;친애
IF TALENT:6
	C = 80
	V -= 80
	PRINTFORML %TALENTNAME:6% －{C}％
ENDIF
;창녀
IF TALENT:7
	C = 60
	V += 60
	PRINTFORML %TALENTNAME:7% ＋{C}％
ENDIF
;예속
IF TALENT:8
	C = 100
	V += 100
	PRINTFORML %TALENTNAME:8% ＋{C}％
ENDIF

;その他素質
;겁쟁이
IF TALENT:겁쟁이
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:20% －{C}％
ENDIF
;반항적
IF TALENT:반항적
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:21% ＋{C}％
ENDIF
;꿋꿋함
IF TALENT:꿋꿋함
	C = 40
	V += 40
	PRINTFORML %TALENTNAME:22% ＋{C}％
ENDIF
;솔직
IF TALENT:솔직
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:23% －{C}％
ENDIF
;얌전함
IF TALENT:얌전함
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:24% －{C}％
ENDIF
;프라이드높음
IF TALENT:프라이드높음
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:25% ＋{C}％
ENDIF
;건방짐
IF TALENT:건방짐
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:26% ＋{C}％
ENDIF
;프라이드낮음
IF TALENT:프라이드낮음
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:27% －{C}％
ENDIF
;츤데레
IF TALENT:츤데레
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:28% ＋{C}％
ENDIF
;자제심
IF TALENT:자제심
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:50% ＋{C}％
ENDIF
;무관심
IF TALENT:무관심
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:51% －{C}％
ENDIF
;감정부족
IF TALENT:감정부족
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:30% －{C}％
ENDIF
;호기심
IF TALENT:호기심
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:53% ＋{C}％
ENDIF
;보수적
IF TALENT:보수적
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:54% ＋{C}％
ENDIF
;일선을넘지않음
IF TALENT:일선을넘지않음
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:57% ＋{C}％
ENDIF
;눈에띄고싶어함
IF TALENT:눈에띄고싶어함
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:58% ＋{C}％
ENDIF
;정조관념
IF TALENT:정조관념
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:80% ＋{C}％
ENDIF
;정조무관심
IF TALENT:정조무관심
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:81% －{C}％
ENDIF
;해방
IF TALENT:해방
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:83% ＋{C}％
ENDIF
;부끄럼쟁이
IF TALENT:부끄럼쟁이
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:85% ＋{C}％
ENDIF
;수치심없음
IF TALENT:수치심없음
	C = 10
	V -= 10
	PRINTFORML %TALENTNAME:86% －{C}％
ENDIF
;아픔에약함
IF TALENT:아픔에약함
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:100% －{C}％
ENDIF
;아픔에강함
IF TALENT:아픔에강함
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:101% ＋{C}％
ENDIF
;젖기쉬움
IF TALENT:젖기쉬움
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:102% ＋{C}％
ENDIF
;젖기어려움
IF TALENT:젖기어려움
	C = 10
	V -= 10
	PRINTFORML %TALENTNAME:103% －{C}％
ENDIF
;습득빠름
IF TALENT:습득빠름
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:120% ＋{C}％
ENDIF
;습득느림
IF TALENT:습득느림
	C = 10
	V -= 10
	PRINTFORML %TALENTNAME:121% －{C}％
ENDIF
;혀놀림
IF TALENT:혀놀림
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:122% ＋{C}％
ENDIF
;약독내성
IF TALENT:약독내성
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:126% －{C}％
ENDIF
;오줌싸개버릇
IF TALENT:오줌싸개버릇
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:127% ＋{C}％
ENDIF
;자위하기쉬움
IF TALENT:자위하기쉬움
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:150% ＋{C}％
ENDIF
;악취둔감
IF TALENT:악취둔감
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:151% －{C}％
ENDIF
;악취민감
IF TALENT:악취민감
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:152% ＋{C}％
ENDIF
;헌신적
IF TALENT:헌신적
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:153% ＋{C}％
ENDIF
;쾌감에솔직
IF TALENT:쾌감에솔직
	C = 30
	V -= 30
	PRINTFORML %TALENTNAME:170% －{C}％
ENDIF
;쾌감을부정
IF TALENT:쾌감을부정
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:171% ＋{C}％
ENDIF
;즉각함락
IF TALENT:즉각함락
	C = 50
	V -= 50
	PRINTFORML %TALENTNAME:173% －{C}％
ENDIF
;음핵
IF TALENT:음핵
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:174% ＋{C}％
ENDIF
;음호
IF TALENT:음호
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:175% ＋{C}％
ENDIF
;음항
IF TALENT:음항
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:176% ＋{C}％
ENDIF
;음유
IF TALENT:음유
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:177% ＋{C}％
ENDIF
;도착적
IF TALENT:도착적
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:190% ＋{C}％
ENDIF
;남성혐오
IF TALENT:남성혐오
	C = 10
	V -= 10
	PRINTFORML %TALENTNAME:192% －{C}％
ENDIF
;새드
IF TALENT:새드
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:193% ＋{C}％
ENDIF
;마조
IF TALENT:마조
	C = 40
	V += 40
	PRINTFORML %TALENTNAME:194% ＋{C}％
ENDIF
;망신
IF TALENT:망신
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:196% ＋{C}％
ENDIF
;소악마
IF TALENT:소악마
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:197% ＋{C}％
ENDIF
;여성혐오
IF TALENT:여성혐오
	C = 10
	V -= 10
	PRINTFORML %TALENTNAME:198% －{C}％
ENDIF
;요괴여우
IF TALENT:요괴여우
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:211% ＋{C}％
ENDIF
;수수께끼의매력
IF TALENT:수수께끼의매력
	C = 100
	V += 100
	PRINTFORML %TALENTNAME:214% ＋{C}％
ENDIF
;Ｃ둔감（感깨우침が4以上なら無効）
IF TALENT:Ｃ둔감 && ABL:3 < 4
	C = 30
	V -= 30
	PRINTFORML %TALENTNAME:231% －{C}％
ENDIF
;Ｃ민감（感깨우침が3未満なら無効）
IF TALENT:Ｃ민감 && ABL:3 >= 3
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:232% ＋{C}％
ENDIF
;Ｖ둔감（感깨우침が4以上なら無効）
IF TALENT:Ｖ둔감 && ABL:4 < 4
	C = 30
	V -= 30
	PRINTFORML %TALENTNAME:233% －{C}％
ENDIF
;Ｖ민감（感깨우침が3未満なら無効）
IF TALENT:Ｖ민감 && ABL:4 >= 3
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:234% ＋{C}％
ENDIF
;Ａ둔감（感깨우침が4以上なら無効）
IF TALENT:Ａ둔감 && ABL:5 < 4
	C = 30
	V -= 30
	PRINTFORML %TALENTNAME:235% －{C}％
ENDIF
;Ａ민감（感깨우침が3未満なら無効）
IF TALENT:Ａ민감 && ABL:5 >= 3
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:236% ＋{C}％
ENDIF
;Ｂ둔감（感깨우침が4以上なら無効）
IF TALENT:Ｂ둔감 && ABL:6 < 4
	C = 30
	V -= 30
	PRINTFORML %TALENTNAME:237% －{C}％
ENDIF
;Ｂ민감（感깨우침が3未満なら無効）
IF TALENT:Ｂ민감 && ABL:6 >= 3
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:238% ＋{C}％
ENDIF
;빈유
IF TALENT:빈유
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:239% －{C}％
ENDIF
;절벽
IF TALENT:절벽
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:240% ＋{C}％
ENDIF
;거유
IF TALENT:거유
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:241% ＋{C}％
ENDIF
;폭유
IF TALENT:폭유
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:242% ＋{C}％
ENDIF
;갈색피부
IF TALENT:갈색피부
	C = 10
	V += 10
	PRINTFORML %TALENTNAME:244% ＋{C}％
ENDIF
;회복빠름
IF TALENT:회복빠름
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:280% ＋{C}％
ENDIF
;회복느림
IF TALENT:회복느림
	C = 20
	V -= 20
	PRINTFORML %TALENTNAME:281% －{C}％
ENDIF
;흡혈귀
IF TALENT:흡혈귀
	C = 30
	V += 30
	PRINTFORML %TALENTNAME:282% ＋{C}％
ENDIF
;동물귀
IF TALENT:동물귀
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:293% ＋{C}％
ENDIF
;인기
IF TALENT:인기
	C = 50
	V += 50
	PRINTFORML %TALENTNAME:295% ＋{C}％
ENDIF
;요마
IF TALENT:요마
	C = 70
	V += 70
	PRINTFORML %TALENTNAME:297% ＋{C}％
ENDIF
;모유체질
IF TALENT:모유체질
	C = 20
	V += 20
	PRINTFORML %TALENTNAME:299% ＋{C}％
ENDIF

;元助손
IF ISASSI:TARGET == 1
	C = 100
	V -= 100
	PRINTFORML 元助손 －{C}％
ENDIF

;補正値が0以下の場合は100にする
SIF V <= 0
	V = 1

PRINTFORML 最終倍率 {V}％

;補正値の適用
S *= V
S /= 100

;붕괴,광기,임신は売却額をかなり低くする（순종によって、80％まで回復）
IF TALENT:9 || TALENT:291 || TALENT:303
PRINTL
	IF TALENT:9
		S *= ABL:0
		TIMES S , 0.08
		Z = ABL:0
		Z *= 8
		PRINTFORML %TALENTNAME:9% ×{Z}％
	ELSEIF TALENT:291
		S *= ABL:0
		TIMES S , 0.08
		Z = ABL:0
		Z *= 8
		PRINTFORML %TALENTNAME:291% ×{Z}％
	ELSEIF TALENT:303
		S *= ABL:0
		TIMES S , 0.08
		Z = ABL:0
		Z *= 8
		PRINTFORML %TALENTNAME:303% ×{Z}％
	ENDIF
PRINTL
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

;売却確認
PRINTFORML %타겟이름은% ${S}で売れそうです
PRINTL 売却しますか？
PRINTL [0] はい
PRINTL [1] いいえ
$INPUT_LOOPSALE
INPUT
IF RESULT == 0
	;売却時のイベント입上
	TFLAG:13 = 18
	CALL KOJO_MESSAGE_EVENT
	;売却額
	IF S > 0
		PRINTFORMW 結果、%타겟이름은% ${S}で売れました
		MONEY += S
	ELSEIF S == 0
		PRINTFORMW 結果、%타겟이름은% 業者に引き取られました
	ENDIF

	Z = TARGET

	DELCHARA Z

	IF T != -1
		IF T > Z
			TARGET = T-1
		ELSE
			TARGET = T
		ENDIF
	ENDIF

	IF A != -1
		IF A > Z
			ASSI = A-1
		ELSE
			ASSI = A
		ENDIF
	ENDIF

	SIF Z == T
		TARGET = -1
	SIF Z == A
		ASSI = -1

ELSEIF RESULT == 1
	TARGET = T
	RETURN 0
ELSE
	GOTO INPUT_LOOPSALE
ENDIF

;ビデオの重複使用を処理するために、予め値段の加算を行っておく
@PRICE_VIDEO

P = 0

REPEAT TFLAG:70
	A = COUNT + 11

	;COM:애무を見る
	IF FLAG:A == 0
		P += 50
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:커닐링구스を見る
	ELSEIF FLAG:A == 1
		P += 50
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:펠라한다を見る
	ELSEIF FLAG:A == 2
		P += 200

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:손가락삽입を見る
	ELSEIF FLAG:A == 3
		P += 150
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널핥기を見る
	ELSEIF FLAG:A == 4
		P += 100
		;애널애무系
		SETBIT TFLAG:48,14
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널애무を見る
	ELSEIF FLAG:A == 5
		P += 100
		;애널애무系
		SETBIT TFLAG:48,14
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:가슴주무르기を見る
	ELSEIF FLAG:A == 6
		P += 120
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:유두괴롭히기を見る
	ELSEIF FLAG:A == 7
		P += 250
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:가슴애무を見る
	ELSEIF FLAG:A == 8
		P += 100
		;애무系
		SETBIT TFLAG:48,11
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:조개벌리기を見る
	ELSEIF FLAG:A == 9
		P += 300
		;조개벌리기
		SETBIT TFLAG:48,37
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:가슴자위を見る
	ELSEIF FLAG:A == 10
		P += 400
		;オナニー
		SETBIT TFLAG:48,36
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:자위を見る
	;自動的に公開オナニーになる
	ELSEIF FLAG:A == 11
		P += 500
		;オナニー
		SETBIT TFLAG:48,36
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널개장を見る
	ELSEIF FLAG:A == 12
		P += 330
		;조개벌리기
		SETBIT TFLAG:48,37
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:키스を見る
	ELSEIF FLAG:A == 20
		P += 100
		;キス
		SETBIT TFLAG:48,10
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:아무것도안한다を見る
	ELSEIF FLAG:A == 21
		P += 10

	;COM:회화を見る
	ELSEIF FLAG:A == 22
		;P += 50
		P += 100
		;회화
		SETBIT TFLAG:48,55
	;COM:선물を見る
	ELSEIF FLAG:A == 23
		P += 10
		SETBIT TFLAG:48,56
	;COM:스킨십を見る
	ELSEIF FLAG:A == 24
		P += 30
		SETBIT TFLAG:48,57
	;COM:느긋하게보낸다を見る
	ELSEIF FLAG:A == 25
		P += 10
		SETBIT TFLAG:48,58
	;COM:가사を見る
	ELSEIF FLAG:A == 26
		P += 10
		SETBIT TFLAG:48,59
	;COM:노래연습を見る
	ELSEIF FLAG:A == 27
		P += 50
		SETBIT TFLAG:48,60
	;COM:매도を見る
	ELSEIF FLAG:A == 28
		P += 20
		;매도
		SETBIT TFLAG:48,45
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:비디오감상を見る
	ELSEIF FLAG:A == 29
		P += 20
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:벽쿵
	ELSEIF FLAG:A == 30
		P += 100
		;회화
		SETBIT TFLAG:48,55
	;COM:위협한다
	ELSEIF FLAG:A == 31
		P += 100
		;회화
		SETBIT TFLAG:48,55
	;COM:매춘앨범
	ELSEIF FLAG:A == 32
	;COM:조르게 시킨다
		P += 100
		;회화
		SETBIT TFLAG:48,55
	ELSEIF FLAG:A == 33
		P += 400
		;おねだり/애널조르기
		SETBIT TFLAG:48,53
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:노예선언
	ELSEIF FLAG:A == 34
		P += 250
		;노예선언
		SETBIT TFLAG:48,54
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널조르기
	ELSEIF FLAG:A == 35
		P += 430
		;おねだり/애널조르기
		SETBIT TFLAG:48,53
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:로터を見る
	ELSEIF FLAG:A == 40
		P += 150
		;로터
		SETBIT TFLAG:48,25
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:Eマッサージャを見る
	ELSEIF FLAG:A == 41
		P += 200
		;Ｅ마사지기
		SETBIT TFLAG:48,26
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:클리캡を見る
	ELSEIF FLAG:A == 42
		P += 150
		;클리캡
		SETBIT TFLAG:48,27
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:오나홀を見る
	ELSEIF FLAG:A == 43
		P += 100
		;오나홀
		SETBIT TFLAG:48,32
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:바이브を見る
	ELSEIF FLAG:A == 44
		P += 200
		;바이브
		SETBIT TFLAG:48,29
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널바이브を見る
	ELSEIF FLAG:A == 45
		P += 250
		;애널바이브
		SETBIT TFLAG:48,30
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널비즈を見る
	ELSEIF FLAG:A == 46
		P += 150
		;애널비즈
		SETBIT TFLAG:48,31
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:유두캡を見る
	ELSEIF FLAG:A == 47
		P += 150
		;유두캡
		SETBIT TFLAG:48,28
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:유두로터を見る
	ELSEIF FLAG:A == 48
		P += 150
		;로터
		SETBIT TFLAG:48,25
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:착유기を見る
	ELSEIF FLAG:A == 49
		P += 250
		;착유기
		SETBIT TFLAG:48,33
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:줄타기を見る
	ELSEIF FLAG:A == 50
		P += 350
		;ＳＭ系プレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:정상위を見る
	ELSEIF FLAG:A == 60
		P += 300
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:背後位を見る
	ELSEIF FLAG:A == 61
		P += 450
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:정상위애널を見る
	ELSEIF FLAG:A == 62
		P += 250
		;Ａセックス
		SETBIT TFLAG:48,6
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:후배위애널を見る
	ELSEIF FLAG:A == 63
		P += 400
		;Ａセックス
		SETBIT TFLAG:48,6
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:역강간を見る
	ELSEIF FLAG:A == 64
		P += 500
		;セックス
		SETBIT TFLAG:48,5
		;역강간
		SETBIT TFLAG:48,7
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:젖퍽を見る
	ELSEIF FLAG:A == 65
		P += 400
		;파이즈리系
		SETBIT TFLAG:48,18
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:기승위を見る
	ELSEIF FLAG:A == 66
		P += 500
		;セックス
		SETBIT TFLAG:48,5
		;기승위系
		SETBIT TFLAG:48,8
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:기승위애널を見る
	ELSEIF FLAG:A == 67
		P += 500
		;Ａセックス
		SETBIT TFLAG:48,6
		;기승위系
		SETBIT TFLAG:48,8
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:대면좌위を見る
	ELSEIF FLAG:A == 68
		P += 450
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:배면좌위を見る
	ELSEIF FLAG:A == 69
		P += 500
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:대면좌위애널を見る
	ELSEIF FLAG:A == 70
		P += 450
		;Ａセックス
		SETBIT TFLAG:48,6
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:배면좌위애널を見る
	ELSEIF FLAG:A == 71
		P += 500
		;Ａセックス
		SETBIT TFLAG:48,6
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:속옷제끼고삽입を見る
	ELSEIF FLAG:A == 72
		P += 450
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:속옷제끼고삽입애널を見る
	ELSEIF FLAG:A == 73
		P += 450
		;Ａセックス
		SETBIT TFLAG:48,6
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:수음を見る
	ELSEIF FLAG:A == 80
		P += 300
		SETBIT TFLAG:48,16
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:펠라치오を見る
	ELSEIF FLAG:A == 81
		P += 400
		;フェラ系
		SETBIT TFLAG:48,17
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:파이즈리を見る
	ELSEIF FLAG:A == 82
		P += 500
		;파이즈리系
		SETBIT TFLAG:48,18
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:스마타を見る
	ELSEIF FLAG:A == 83
		P += 350
		;스마타
		SETBIT TFLAG:48,21
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:거품마사지を見る
	ELSEIF FLAG:A == 84
		P += 500
		;お風呂場
		SETBIT TFLAG:48,40
		;거품마사지
		SETBIT TFLAG:48,20
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:풋잡を見る
	ELSEIF FLAG:A == 85
		P += 350
		;풋잡
		SETBIT TFLAG:48,22
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:발핥기강제を見る
	ELSEIF FLAG:A == 86
		P += 350

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:세로파이즈리を見る
	ELSEIF FLAG:A == 87
		P += 500
		;파이즈리系
		SETBIT TFLAG:48,18
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:파이즈리 펠라を見る
	ELSEIF FLAG:A == 88
		P += 500
		;フェラ系
		SETBIT TFLAG:48,17
		;파이즈리系
		SETBIT TFLAG:48,18
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:모유마시기を見る
	ELSEIF FLAG:A == 89
		P += 250

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:스팽킹を見る
	ELSEIF FLAG:A == 100
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:가슴스팽킹を見る
	ELSEIF FLAG:A == 101
		P += 300
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:채찍を見る
	ELSEIF FLAG:A == 102
		P += 350
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:양초を見る
	ELSEIF FLAG:A == 103
		P += 400
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:바늘を見る
	ELSEIF FLAG:A == 104
		P += 500
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:아이마스크を見る
	ELSEIF FLAG:A == 105
		P += 150
		;아이마스크
		SETBIT TFLAG:48,35
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:밧줄を見る
	ELSEIF FLAG:A == 106
		P += 200
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;밧줄
		SETBIT TFLAG:48,34
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:볼개그を見る
	ELSEIF FLAG:A == 107
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:귀갑묶기を見る
	ELSEIF FLAG:A == 108
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;밧줄
		SETBIT TFLAG:48,34
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:전기안마を見る
	ELSEIF FLAG:A == 109
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:Ｘ字형틀구속を見る
	ELSEIF FLAG:A == 110
		P += 350
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:밧줄속옷を見る
	ELSEIF FLAG:A == 111
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;밧줄
		SETBIT TFLAG:48,34
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:뺨때리기を見る
	ELSEIF FLAG:A == 112
		P += 50
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:수갑を見る
	ELSEIF FLAG:A == 113
		P += 150
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:전기안마を見る
	ELSEIF FLAG:A == 114
		P += 250
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:개구기を見る
	ELSEIF FLAG:A == 115
		P += 300
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:커닐링구스강제を見る
	ELSEIF FLAG:A == 120
		P += 250

		;エロ系判定
		SETBIT TFLAG:48,61

;	;COM:ダブル스마타を見る;存在しないコマンド
;	ELSEIF FLAG:A == 121
;		P += 500
;		;ダブル～
;		SETBIT TFLAG:48,52
;		;エロ系判定
;		SETBIT TFLAG:48,61

	;COM:조개맞대기を見る
	ELSEIF FLAG:A == 121
		P += 350

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:조수를범하게한다を見る
	ELSEIF FLAG:A == 122
		P += 500

		;暫定
		;セックス
		SETBIT TFLAG:48,5

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:足コキを見る
	ELSEIF FLAG:A == 123
		P += 350
		;풋잡
		SETBIT TFLAG:48,22
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:더블펠라を見る
	ELSEIF FLAG:A == 124
		P += 450
		;ダブル～
		SETBIT TFLAG:48,52
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:더블파이즈리を見る
	ELSEIF FLAG:A == 125
		P += 500
		;ダブル～
		SETBIT TFLAG:48,52
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:서로가슴비비기を見る
	ELSEIF FLAG:A == 126
		P += 200

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:イマラチオを見る
	ELSEIF FLAG:A == 140
		P += 450
		SETBIT TFLAG:48,23
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:피스트퍽を見る
	ELSEIF FLAG:A == 141
		P += 500
		;피스트퍽
		SETBIT TFLAG:48,47
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널피스트を見る
	ELSEIF FLAG:A == 142
		P += 500
		;애널피스트
		SETBIT TFLAG:48,48
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:양구멍피스트を見る
	ELSEIF FLAG:A == 143
		P += 500
		;피스트퍽
		SETBIT TFLAG:48,47
		;애널피스트
		SETBIT TFLAG:48,48
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:방뇨を見る
	ELSEIF FLAG:A == 144
		P += 200
		;방뇨
		SETBIT TFLAG:48,44
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널봉사강제を見る
	ELSEIF FLAG:A == 145
		P += 250

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:관장기＋플러그を見る
	ELSEIF FLAG:A == 146
		P += 350
		;浣腸
		SETBIT TFLAG:48,43
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:공기관장を見る
	ELSEIF FLAG:A == 147
		P += 150
;		;浣腸
;		SETBIT TFLAG:48,43
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:확장벌룬を見る
	ELSEIF FLAG:A == 148
		P += 150

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:애널전극を見る
	ELSEIF FLAG:A == 149
		P += 250

		;ハード
		;被虐

		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:유방전극を見る
	ELSEIF FLAG:A == 150
		P += 250

		;ハード
		;被虐

		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:뱀장어목욕を見る
	ELSEIF FLAG:A == 151
		P += 250

		;ハード
		;被虐

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:벌레목욕を見る
	ELSEIF FLAG:A == 152
		P += 250

		;ハード
		;被虐

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:도게자강제を見る
	ELSEIF FLAG:A == 153
		P += 120
		;ＳＭプレイ
		SETBIT TFLAG:48,41
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수소환を見る
	ELSEIF FLAG:A == 160
		P += 150
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수삽입を見る
	ELSEIF FLAG:A == 161
		P += 250
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널촉수を見る
	ELSEIF FLAG:A == 162
		P += 300
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수클리고문を見る
	ELSEIF FLAG:A == 163
		P += 100
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수유두고문を見る
	ELSEIF FLAG:A == 164
		P += 150
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수착유を見る
	ELSEIF FLAG:A == 165
		P += 200
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수긴박を見る
	ELSEIF FLAG:A == 166
		P += 300
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수관장を見る
	ELSEIF FLAG:A == 167
		P += 300
		;촉수
		SETBIT TFLAG:48,49
		;浣腸
		SETBIT TFLAG:48,43
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수펠라を見る
	ELSEIF FLAG:A == 168
		P += 400
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:촉수페니스고문を見る
	ELSEIF FLAG:A == 169
		P += 100
		;촉수
		SETBIT TFLAG:48,49
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:로션を見る
	ELSEIF FLAG:A == 180
		P += 10

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:미약を見る
	ELSEIF FLAG:A == 181
		P += 100

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:이뇨제を見る
	ELSEIF FLAG:A == 182
		P += 100

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:비디오카메라を見る
	ELSEIF FLAG:A == 183
		P += 0

	;COM:야외플레이を見る
	ELSEIF FLAG:A == 184
		P += 250
		;야외플레이
		SETBIT TFLAG:48,39

	;COM:조수를범한다を見る
	ELSEIF FLAG:A == 185
		P += 300

		;暫定
		;セックス
		SETBIT TFLAG:48,5
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:수치플레이を見る
	ELSEIF FLAG:A == 186
		P += 250
		SETBIT TFLAG:48,42
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:목욕탕플레이を見る
	ELSEIF FLAG:A == 187
		P += 200
		;お風呂場
		SETBIT TFLAG:48,40
	;COM:샤워を見る
	ELSEIF FLAG:A == 188
		P += 100
		;お風呂場
		SETBIT TFLAG:48,40
	;COM:신혼플레이を見る
	ELSEIF FLAG:A == 189
		P += 200
		SETBIT TFLAG:48,38
	;COM:사진촬영を見る
	ELSEIF FLAG:A == 190
		P += 100

	;COM:강정신약を見る
	ELSEIF FLAG:A == 191
		P += 50

	;COM:콘돔정음（노예）を見る
	ELSEIF FLAG:A == 192
		P += 200

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:콘돔정음（조수）を見る
	ELSEIF FLAG:A == 193
		P += 200

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:정액키스を見る
	ELSEIF FLAG:A == 194
		P += 300

	;COM:제모を見る
	ELSEIF FLAG:A == 195
		P += 250
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:실황플레이を見る
	ELSEIF FLAG:A == 196
		P += 0
	;COM:질로터삽입を見る
	ELSEIF FLAG:A == 400
		P += 100
		;바이브
		SETBIT TFLAG:48,29
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:クリ로터挿入を見る
	ELSEIF FLAG:A == 401
		P += 100
		;클리캡
		SETBIT TFLAG:48,27
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:어널로터삽입を見る
	ELSEIF FLAG:A == 402
		P += 100
		;애널바이브
		SETBIT TFLAG:48,30
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:어널로터삽입を見る
	ELSEIF FLAG:A == 403
		P += 100
		;유두캡
		SETBIT TFLAG:48,28
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:옷을 찢는다を見る
	ELSEIF FLAG:A == 410
		P += 250
		;SM系
		SETBIT TFLAG:48,41

	;COM:二本刺し(3P)を見る
	ELSEIF FLAG:A == 500
		P += 500
		;二本刺し
		SETBIT TFLAG:48,50
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:シックスナインを見る
	ELSEIF FLAG:A == 501
		P += 400
		;シックスナイン
		SETBIT TFLAG:48,24
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:岩清水を見る
	ELSEIF FLAG:A == 502
		P += 500

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:Ｇスポット刺激を見る
	ELSEIF FLAG:A == 503
		P += 200

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:乱れ牡丹を見る
	ELSEIF FLAG:A == 504
		P += 500

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:騎乗乳房자위を見る
	ELSEIF FLAG:A == 505
		P += 450
		;オナニー
		SETBIT TFLAG:48,36
		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:挿入Ｇスポ責めを見る
	ELSEIF FLAG:A == 506
		P += 500

		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:挿入子宮입責めを見る
	ELSEIF FLAG:A == 507
		P += 500

		;エロ系判定
		SETBIT TFLAG:48,61

	;COM:６９파이즈리を見る
	ELSEIF FLAG:A == 508
		P += 500
		;シックスナイン
		SETBIT TFLAG:48,24
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:搾乳を見る
	ELSEIF FLAG:A == 509
		P += 500
		;착유기
		SETBIT TFLAG:48,33
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:ダブル스마타を見る
	ELSEIF FLAG:A == 510
		P += 350
		;ダブル～
		SETBIT TFLAG:48,52
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:二本フェラを見る
	ELSEIF FLAG:A == 511
		P += 450
		;二本フェラ
		SETBIT TFLAG:48,51
		;エロ系判定
		SETBIT TFLAG:48,61
	;主人の페니스を抜く（膣）
	ELSEIF FLAG:A == 512
		P += 50
	;主人の페니스を抜く（애널）
	ELSEIF FLAG:A == 513
		P += 50
	;主人の페니스を抜く（입가슴）
	ELSEIF FLAG:A == 514
		P += 50
	;主人の페니스を抜く（その他）
	ELSEIF FLAG:A == 515
		P += 50

	;潮吹き・淫液大量噴射は別加算(撮影回数を使わないように変更)
	;COM:潮吹きを見る
	;ELSEIF FLAG:A == 516
	;	P += 300

	;	;エロ系判定
	;	SETBIT TFLAG:48,61

	;COM:初回全裸を見る
	ELSEIF FLAG:A == 517
		P += 100
		;수치플레이
		SETBIT TFLAG:48,42
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:初回下半身노출を見る
	ELSEIF FLAG:A == 518
		P += 80
		;수치플레이
		SETBIT TFLAG:48,42
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:初回上半身노출を見る
	ELSEIF FLAG:A == 519
		P += 40
		;수치플레이
		SETBIT TFLAG:48,42
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:初回下着姿
	ELSEIF FLAG:A == 520
		P += 20
		;수치플레이
		SETBIT TFLAG:48,42

	;COM:淫液大量噴射を見る
	;ELSEIF FLAG:A == 521
	;	P += 1000

	;	;エロ系判定
	;	SETBIT TFLAG:48,61
	IF TFLAG:93 > 0
		P += TFLAG:93
		SETBIT TFLAG:48,61
		TFLAG:93 = 0
	ENDIF

	;COM:바이브オナニーを見る
	ELSEIF FLAG:A == 991
		P += 600
		;オナニー
		SETBIT TFLAG:48,36
		;바이브
		SETBIT TFLAG:48,29
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:애널바이브オナニーを見る
	ELSEIF FLAG:A == 992
		P += 600
		;オナニー
		SETBIT TFLAG:48,36
		;애널바이브
		SETBIT TFLAG:48,30
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:二穴바이브オナニーを見る
	ELSEIF FLAG:A == 993
		P += 700
		;オナニー
		SETBIT TFLAG:48,36
		;바이브
		SETBIT TFLAG:48,29
		;애널바이브
		SETBIT TFLAG:48,30
		;エロ系判定
		SETBIT TFLAG:48,61
	;COM:샤워オナニーを見る
	ELSEIF FLAG:A == 994
		P += 550
		;オナニー
		SETBIT TFLAG:48,36
		;エロ系判定
		SETBIT TFLAG:48,61
	ENDIF
REND

IF IS_IN_SPECIAL_TRAIN_READIED()
	P += 500
	SETBIT TFLAG:48,62
	;야외플레이扱い
	SETBIT TFLAG:48,39
ELSEIF SP_TRAIN_MEETING_CHARA:1 != 0 && SP_TRAIN_MEETING_TYPE == 1
	P += 200
	SETBIT TFLAG:48,63
ENDIF

;처녀喪失シーンがあれば加算
IF TFLAG:39
	;처녀喪失
	SETBIT TFLAG:48,1
	P += 5000
	EXP:50 += 1
	PRINTFORML ビデオには%CALLNAME:TARGET%의 처녀喪失シーンが記録されている
	PRINTFORML %EXPNAME:50%＋１
ENDIF

O = 100
;素質:처녀を見る
SIF TALENT:0
	O += 20
;素質:무관심を見る
SIF TALENT:무관심
	O -= 30
;素質:감정부족を見る
SIF TALENT:감정부족
	O -= 30
;素質:부끄럼쟁이を見る
SIF TALENT:부끄럼쟁이
	O += 10
;素質:작은체형を見る
SIF TALENT:작은체형
	O += 20
;素質:절벽を見る
SIF TALENT:절벽
	O -= 10
;素質:거유を見る
SIF TALENT:거유
	O += 20
;素質:폭유を見る
SIF TALENT:폭유
	O += 10
;素質:갈색피부を見る
SIF TALENT:갈색피부
	O += 10
;素質:동물귀を見る
SIF TALENT:동물귀
	O += 10
;素質:인기を見る
SIF TALENT:인기
	O += 20
;素質:수수께끼의매력を見る
SIF TALENT:수수께끼의매력
	O += 30

;魅力系素質に応じて追加
SIF TALENT:청초
	O += 70
SIF TALENT:쾌활
	O += 50
SIF TALENT:색기
	O += 60
SIF TALENT:보이쉬
	O += 40
SIF TALENT:천연 || TALENT:쿨함 || TALENT:기가셈
	O += 40
SIF TALENT:어린애같음
	O += 30
SIF TALENT:치유계
	O += 40
SIF TALENT:무기력
	O -= 40
SIF TALENT:음험
	O += 20
SIF TALENT:전파계
	O -= 40
SIF TALENT:애교
	O += 20
SIF TALENT:무뚝뚝함
	O -= 40

;その他の特徴で追加
SIF TALENT:영애
	O += 100
SIF TALENT:가난
	O += 10
SIF TALENT:불량
	O += 20
SIF TALENT:우등생
	O += 70
SIF TALENT:멋쟁이
	O += 40
SIF TALENT:외국인
	O += 50
SIF TALENT:유명인 || TALENT:연예인 || TALENT:프린세스
	O += 100
SIF TALENT:안경녀
	O += 10
SIF TALENT:코스프레속성
	O += 10
SIF TALENT:학생회장
	O += 60
SIF TALENT:성직자
	O += 70
SIF TALENT:오타쿠취미
	O += 20
SIF TALENT:기혼
	O += 10
SIF TALENT:남편있음
	O += 40
SIF TALENT:미망인
	O += 40
SIF TALENT:닌자
	O += 80
SIF TALENT:메이드
	O += 60
SIF TALENT:탐정
	O += 40

O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"순종","3,10|5,30|7,50|10,70")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"욕망","3,30|5,40|7,50|10,60")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"기교","3,10|5,20|7,30|10,40")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"봉사정신","3,40|5,50|7,60|10,70")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"마조끼","3,10|5,30|7,50|10,70")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"새드끼","3,10|5,30|7,50|10,70")
O += CALC_CHARA_RANGED_DATA("ABL",TARGET,"섹스중독","3,10|5,30|7,50|10,70")

;-----------------------------------------------------------

;奴隷の피사경험を見る
SIF EXP:TARGET:63 >= EXPLV:3
	O += 10

;撮影者を見る
;主人
IF FLAG:22 == 1
	;촬영기능を見る
	IF ABL:MASTER:13 >= 5
		O += 100
	ELSEIF ABL:MASTER:13 == 4
		O += 50
	ELSEIF ABL:MASTER:13 == 3
		O += 20
	ELSEIF ABL:MASTER:13 <= 1
		O -= 20
	ENDIF
;助손
ELSEIF FLAG:22 == 2
	;촬영기능を見る
	IF ABL:ASSI:13 >= 5
		O += 100
	ELSEIF ABL:ASSI:13 == 4
		O += 50
	ELSEIF ABL:ASSI:13 == 3
		O += 20
	ELSEIF ABL:ASSI:13 <= 1
		O -= 20
	ENDIF
ENDIF

;倍率処理
SIF O < 0
	O = 0

P *= O
P /= 1000

;学校での撮影
SIF FLAG:10 == 1
	TIMES P , 1.50

;難易度処理
;EASY
IF FLAG:4 == 1
	TIMES P , 1.20
;NORMAL
ELSEIF FLAG:4 == 2
	TIMES P , 1.00
;HARD
ELSEIF FLAG:4 == 3
	TIMES P , 0.80
ENDIF

TFLAG:36 += P
TFLAG:70 = 0

@SELL_VIDEO
;調教時に録画したビデオの売却
;TODO 価格設定再考・状況による価格をプラスできるか(처녀開通時など)
#DIM 강간협박未陥落
#DIMS VIDEO_TITLE
#DIMS VIDEO_TITLE_00
#DIMS VIDEO_TITLE_10
#DIMS VIDEO_TITLE_20
#DIMS VIDEO_TITLE_30
#DIMS VIDEO_TITLE_40
#DIMS VIDEO_TITLE_50
#DIMS VIDEO_TITLE_60
#DIMS VIDEO_TITLE_70
#DIMS VIDEO_TITLE_80
#DIMS VIDEO_TITLE_90
#DIMS VIDEO_TITLE_100
#DIM index

VIDEO_TITLE_00	=
VIDEO_TITLE_10	=
VIDEO_TITLE_20	=
VIDEO_TITLE_30	=
VIDEO_TITLE_40	=
VIDEO_TITLE_50	=
VIDEO_TITLE_60	=
VIDEO_TITLE_70	=
VIDEO_TITLE_80	=
VIDEO_TITLE_90	=
VIDEO_TITLE_100	=

강간협박未陥落 = TALENT:교제 == 0 && !IS_NOTLOVE_FALLEN(TARGET)

;촬영중のまま売却まで来た場合はテープの数を減らす
;テープの減数は撮影後処理のため、さらにビデオの値段および経験もここで処理をする
IF TEQUIP:28
	ITEM:43 -= 1
	CALL PRICE_VIDEO
ENDIF

;録画してなければ終了
SIF TFLAG:36 == 0
	RETURN 0

;タイトル決定
IF TALENT:연예인 || TALENT:유명인 || TALENT:프린세스
	VIDEO_TITLE_00 = 流出！？　あの
ELSEIF RAND:100 > 80
	VIDEO_TITLE_00 = 無修正
ENDIF

IF TALENT:성직자 && RAND:100 > 70
	VIDEO_TITLE_10 = 神に仕える
ENDIF

;性格系と見た目
IF RAND:3 == 0
	;性格系
	IF RAND:2 == 0
		;性格
		;프라이드낮음、감정풍부、사교적、성악
		IF TALENT:내향적 || TALENT:겁쟁이
			VIDEO_TITLE_20 = 内気な
		ELSEIF TALENT:반항적 || TALENT:건방짐
			VIDEO_TITLE_20 = 건방짐
		ELSEIF TALENT:꿋꿋함
			VIDEO_TITLE_20 = 꿋꿋함な
		ELSEIF TALENT:솔직
			VIDEO_TITLE_20 = 순종
		ELSEIF TALENT:얌전함
			VIDEO_TITLE_20 = 수수함系
		ELSEIF TALENT:프라이드높음
			VIDEO_TITLE_20 = 高慢
		ELSEIF TALENT:츤데레
			VIDEO_TITLE_20 = 츤데레
		ELSEIF TALENT:감정부족
			VIDEO_TITLE_20 = 쿨함系
		ELSEIF TALENT:인간혐오
			VIDEO_TITLE_20 = 인간혐오の
		ELSEIF TALENT:고결
			VIDEO_TITLE_20 = 気品溢れる
		ENDIF
	ELSE
		;魅力属性
		;쾌활、천연、음험、전파계未使用
		IF TALENT:청초
			VIDEO_TITLE_20 = 청초な
		ELSEIF TALENT:보이쉬
			VIDEO_TITLE_20 = 보이쉬な
		ELSEIF TALENT:색기
			VIDEO_TITLE_20 = 색기漂う
		ELSEIF TALENT:어린애같음
			VIDEO_TITLE_20 = 無邪気な
		ELSEIF TALENT:치유계
			VIDEO_TITLE_20 = 치유계
		ELSEIF TALENT:쿨함
			VIDEO_TITLE_20 = 쿨함な
		ELSEIF TALENT:무기력
			VIDEO_TITLE_20 = 무기력な
		ELSEIF TALENT:기가셈
			VIDEO_TITLE_20 = 기가셈な
		ELSEIF TALENT:수수함
			VIDEO_TITLE_20 = 수수함系
		ENDIF
	ENDIF
	IF TALENT:흑발 && TALENT:남자 == 0
		IF TALENT:안경녀
			IF RAND:2 == 0
				VIDEO_TITLE_30 = 흑발眼鏡
			ELSE
				VIDEO_TITLE_30 = 흑발メガネ
			ENDIF
		ELSE
			VIDEO_TITLE_30 = 흑발
		ENDIF
	ELSEIF TALENT:안경녀
		IF RAND:2 == 0
			VIDEO_TITLE_30 = 眼鏡
		ELSE
			VIDEO_TITLE_30 = メガネ
		ENDIF
	;ELSEIF TALENT:덧니
	;	VIDEO_TITLE_30 = 덧니のかわいい
	ELSEIF TALENT:갈색피부
		VIDEO_TITLE_30 = 褐色
	ENDIF
ELSE
	IF TALENT:헌신적
		VIDEO_TITLE_20 = 優しい
	ELSEIF TALENT:걸레녀 && RAND:100 > 50
		VIDEO_TITLE_20 = 걸레녀
	ELSEIF TALENT:마조 && RAND:100 > 50
		VIDEO_TITLE_20 = ドＭな
	ELSEIF TALENT:멋쟁이 && RAND:100 > 50
		VIDEO_TITLE_20 = 멋쟁이な
	ELSEIF TALENT:덧니 && RAND:100 > 50
		VIDEO_TITLE_20 = 덧니のかわいい
	ELSEIF TALENT:리본 && RAND:100 > 50
		VIDEO_TITLE_20 = 리본の似合う
	ELSEIF TALENT:눈물점 && RAND:100 > 50
		VIDEO_TITLE_20 = 눈물점が儚さを感じさせる
	ELSEIF TALENT:매력점 && RAND:100 > 50
		VIDEO_TITLE_20 = 매력점がエロい
	ELSEIF TALENT:모노클 && RAND:100 > 50
		VIDEO_TITLE_20 = 모노클をつけた
	ELSEIF TALENT:안대 && RAND:100 > 50
		VIDEO_TITLE_20 = 안대をつけた
	ELSEIF TALENT:쾌감에솔직 || TALENT:영구발정 || TALENT:음유 || TALENT:음항 || TALENT:음호 || TALENT:음핵
		IF RAND:3 == 0
			VIDEO_TITLE_20 = ドスケベ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_20 = すけべな
		ELSE
			VIDEO_TITLE_20 = エッチな
		ENDIF
	ENDIF
	;その他の見た目
	IF TALENT:흑발 && TALENT:남자 == 0
		IF TALENT:안경녀
			IF TALENT:수수함
				VIDEO_TITLE_30 = 흑발수수함メガネ
			ELSEIF RAND:2 == 0
				VIDEO_TITLE_30 = 흑발眼鏡
			ELSE
				VIDEO_TITLE_30 = 흑발メガネ
			ENDIF
		ELSE
			VIDEO_TITLE_30 = 흑발
		ENDIF
	ELSEIF TALENT:안경녀
		IF TALENT:수수함
			VIDEO_TITLE_30 = 수수함メガネ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_30 = 眼鏡
		ELSE
			VIDEO_TITLE_30 = メガネ
		ENDIF
	ELSEIF TALENT:갈색피부
		VIDEO_TITLE_30 = 褐色
	ENDIF
ENDIF

;VIDEO_TITLE_20が埋まらなかったら髪型を入れる
IF VIDEO_TITLE_20 == ""
	;髪型、割と特徴のある髪型
	IF TALENT:포니테일
		VIDEO_TITLE_20 = 포니테일
	ELSEIF TALENT:트윈테일
		VIDEO_TITLE_20 = 트윈테일
	ELSEIF TALENT:사이드테일
		VIDEO_TITLE_20 = 트윈테일
	ELSEIF TALENT:세로롤
		VIDEO_TITLE_20 = 세로롤
	ELSEIF TALENT:댕기머리
		VIDEO_TITLE_20 = 댕기머리
	ELSEIF TALENT:땋은머리
		VIDEO_TITLE_20 = おさげ
	ELSEIF TALENT:퐁파두르
		VIDEO_TITLE_20 = 퐁파두르
	ELSEIF TALENT:포니업
		VIDEO_TITLE_20 = 포니업
	ELSEIF TALENT:사이드다운
		VIDEO_TITLE_20 = 사이드다운
	ELSEIF TALENT:만두머리
		VIDEO_TITLE_20 = おだんごヘア
	ELSEIF TALENT:투사이드업
		VIDEO_TITLE_20 = 투사이드업
	ELSEIF TALENT:더블포니
		VIDEO_TITLE_20 = 더블포니
	ELSEIF TALENT:가로롤
		VIDEO_TITLE_20 = 가로롤
	ELSEIF TALENT:정리한머리
		VIDEO_TITLE_20 = 정리한머리
	ELSEIF TALENT:보브컷
		VIDEO_TITLE_20 = 보브컷
	ELSEIF TALENT:시뇽
		VIDEO_TITLE_20 = 시뇽
	ELSEIF TALENT:장발 || TALENT:롱헤어
		VIDEO_TITLE_20 = 롱헤어
	ELSEIF TALENT:세미롱
		VIDEO_TITLE_20 = 세미롱
	ELSEIF TALENT:숏컷 || TALENT:단발
		VIDEO_TITLE_20 = 숏컷
	ENDIF
	IF RAND:2 == 0
		VIDEO_TITLE_30 = の似合う
	ELSE
		VIDEO_TITLE_30 = が可愛い
	ENDIF
ENDIF

;おっぱい、体型
;出産三か月前以下
;IN_SCHOOL.ERBから条件式を流用
IF TALENT:임신 && CFLAG:110 - 78 <= DAY
	VIDEO_TITLE_40 = ボテ腹
ELSEIF TALENT:후타나리
	VIDEO_TITLE_40 = 후타나리
ELSEIF TALENT:맹인
	VIDEO_TITLE_40 = 맹인
ELSEIF TALENT:Ｂ민감 &&  VIDEO_TITLE_20 == "" && RAND:100 > 40
	IF TALENT:거유
		VIDEO_TITLE_40 = 敏感거유
	ELSEIF TALENT:폭유
		VIDEO_TITLE_40 = 敏感폭유
	ELSEIF (TALENT:빈유 || TALENT:절벽) && TALENT:남자 == 0
		IF RAND:2 == 0
			VIDEO_TITLE_40 = 敏感빈유
		ELSE
			VIDEO_TITLE_40 = 敏感ちっぱい
		ENDIF
	ELSE
		VIDEO_TITLE_40 = 敏感おっぱい
	ENDIF
ELSE
	IF TALENT:거유
		VIDEO_TITLE_40 = 거유
	ELSEIF TALENT:폭유
		VIDEO_TITLE_40 = 폭유
	ELSEIF (TALENT:빈유 || TALENT:절벽) && TALENT:남자 == 0 && TALENT:초등학생 == 0
		IF RAND:3 == 0
			VIDEO_TITLE_40 = 빈유
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_40 = 微乳
		ELSE
			VIDEO_TITLE_40 = ちっぱい
		ENDIF
	ELSEIF TALENT:작은체형 && (TALENT:초등학생 == 0 && TALENT:중학생 == 0)
		IF TALENT:남자
			VIDEO_TITLE_40 = ショタ系
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_40 = ロリ系
			ELSE
				VIDEO_TITLE_40 = ロリっ子
			ENDIF
		ENDIF
	ELSEIF RAND:100 > 70
		VIDEO_TITLE_40 = 美乳
	ELSEIF (TALENT:Ｃ민감 || TALENT:Ｖ민감 || TALENT:Ａ민감 || TALENT:Ｂ민감)
		VIDEO_TITLE_40 = 敏感
	ENDIF
ENDIF

;職業、立場系
IF (TALENT:연예인 || TALENT:프린세스) && VIDEO_TITLE_00 == "流出！？　あの"
	IF TALENT:프린세스
		VIDEO_TITLE_50 = お姫様
	ELSE
		VIDEO_TITLE_50 = 연예인
	ENDIF
ELSEIF TALENT:성직자 && RAND:100 < 20
	VIDEO_TITLE_50 =
	SIF TALENT:남장 && RAND:100 < 50
		VIDEO_TITLE_50 = %\@ TALENT:남자 ? 男の娘 # 남장 \@%
	VIDEO_TITLE_50 = %VIDEO_TITLE_50%%GET_PRIEST_TEXT(TARGET)%
ELSEIF TALENT:로봇소녀
	VIDEO_TITLE_50 = 로봇소녀
ELSEIF (TALENT:우등생 && TALENT:임신 == 0) && (TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생) && RAND:100 > 60
	VIDEO_TITLE_50 = 우등생
ELSEIF TALENT:불량 && (TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생) && RAND:100 > 60
	VIDEO_TITLE_50 = 불량少女
ELSEIF TALENT:학생회장 && RAND:100 > 60
	VIDEO_TITLE_50 = 학생회장
ELSEIF TALENT:영애 && RAND:100 > 60
	VIDEO_TITLE_50 = お嬢様
ELSEIF TALENT:프린세스 && RAND:100 > 60
	VIDEO_TITLE_50 = お姫様
ELSEIF TALENT:체육부 && (TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생) && RAND:100 > 60
	VIDEO_TITLE_50 = スポーツ少女
ELSEIF TALENT:오타쿠취미 && RAND:100 > 60
	IF TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생
		IF RAND:2 == 0
			VIDEO_TITLE_50 = オタク少女
		ELSE
			VIDEO_TITLE_50 = オタクっ娘
		ENDIF
	ELSE
		VIDEO_TITLE_50 = オタク女
	ENDIF
ELSEIF TALENT:메이드 && RAND:100 > 60
	IF TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생
		IF RAND:2 == 0
			VIDEO_TITLE_50 = 学生메이드
		ELSE
			IF TALENT:남자
				;漫画いいよね…
				VIDEO_TITLE_50 = 少年메이드
			ELSE
				VIDEO_TITLE_50 = 메이드少女
			ENDIF
		ENDIF
	ELSEIF TALENT:교사
		VIDEO_TITLE_50 = 教員메이드
	ELSE
		VIDEO_TITLE_50 = 메이드
	ENDIF
ELSEIF TALENT:닌자 && RAND:100 > 60
	IF TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생
		VIDEO_TITLE_50 = 닌자少女
	ELSE
		IF TALENT:남자
			VIDEO_TITLE_50 = 닌자
		ELSE
			VIDEO_TITLE_50 = くのいち
		ENDIF
	ENDIF
ELSEIF TALENT:매드사이언티스트 && RAND:100 > 60
	VIDEO_TITLE_50 = 매드사이언티스트
ELSEIF TALENT:탐정 && (TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생 || TALENT:대학생) && RAND:100 > 60
	VIDEO_TITLE_50 = 탐정少女
ELSEIF TALENT:남장 && (TALENT:초등학생 || TALENT:중학생 || TALENT:고등학생) && RAND:100 > 60
	IF IS_MANLOOK(TARGET,1)
		VIDEO_TITLE_50 = %\@ TALENT:남자 ? 男の娘 # 남장少女 \@%
	ELSE
		VIDEO_TITLE_50 = %\@ TALENT:남자 ? 女装少年 # 남장少女 \@%
	ENDIF
ELSE
	IF TALENT:초등학생
		IF TALENT:남자
			VIDEO_TITLE_50 = 小○生
		ELSE
			IF RAND:3 == 0
				VIDEO_TITLE_50 = ＪＳ
			ELSEIF RAND:2 == 0
				VIDEO_TITLE_50 = 女子小○生
			ELSEIF RAND:2 == 0
				VIDEO_TITLE_50 = 小○生
			ENDIF
		ENDIF
	ELSEIF TALENT:중학생
		IF TALENT:남자
			VIDEO_TITLE_50 = 中○生
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_50 = ＪＣ
			ELSE
				VIDEO_TITLE_50 = 女子中○生
			ENDIF
		ENDIF
	ELSEIF TALENT:고등학생
		IF RAND:2 == 0
			IF TALENT:남자
				VIDEO_TITLE_50 = 男子学生
			ELSE
				IF RAND:2 == 0
					VIDEO_TITLE_50 = ＪＫ
				ELSE
					VIDEO_TITLE_50 = 女子○生
				ENDIF
			ENDIF
		ELSE
			VIDEO_TITLE_50 = 高○生
		ENDIF
	ELSEIF TALENT:대학생
		IF TALENT:남자
			VIDEO_TITLE_50 = 대학생
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_50 = ＪＤ
			ELSE
				VIDEO_TITLE_50 = 女子大生
			ENDIF
		ENDIF
	ELSEIF TALENT:교사
		IF RAND:2 == 0
			IF TALENT:남자
				VIDEO_TITLE_50 = 교사
			ELSE
				VIDEO_TITLE_50 = 女교사
			ENDIF
		ELSE
			VIDEO_TITLE_50 = 교사
		ENDIF
	ELSEIF TALENT:사회인 || TALENT:주부
		IF TALENT:남자
			IF RAND:3 == 0
				VIDEO_TITLE_50 = お兄さん
			ELSEIF RAND:2 == 0
				VIDEO_TITLE_50 = アニキ
			ELSE
				VIDEO_TITLE_50 = 兄貴
			ENDIF
		ELSE
			IF TALENT:남편있음 && TALENT:ＮＴＬ
				IF RAND:3 == 0
					VIDEO_TITLE_50 = 人妻
				ELSEIF RAND:2 == 0
					VIDEO_TITLE_50 = 浮気妻
				ELSE
					VIDEO_TITLE_50 = 奥さん
				ENDIF
			ELSE
				VIDEO_TITLE_50 = お姉さん
			ENDIF
		ENDIF
	ELSE
		IF TALENT:남자
			IF RAND:3 == 0
				VIDEO_TITLE_50 = お兄さん
			ELSEIF RAND:2 == 0
				VIDEO_TITLE_50 = アニキ
			ELSE
				VIDEO_TITLE_50 = 兄貴
			ENDIF
		ELSE
			IF TALENT:남편있음 && TALENT:ＮＴＬ
				IF RAND:3 == 0
					VIDEO_TITLE_50 = 妻
				ELSEIF RAND:2 == 0
					VIDEO_TITLE_50 = 浮気妻
				ELSE
					VIDEO_TITLE_50 = 奥さん
				ENDIF
			ELSE
				VIDEO_TITLE_50 = お姉さん
			ENDIF
		ENDIF
	ENDIF
ENDIF

;この辺に名前を入れてもいいか

;場所関係＋ＮＴＬ系
IF TALENT:교제 == 0 && TALENT:ＮＴＬ && (TALENT:남친있음 || TALENT:남편있음) && TALENT:밀회 == 0 && TALENT:남자 == 0
	IF TALENT:남친있음
		IF RAND:6 == 0
			VIDEO_TITLE_60 = 彼氏に内緒の
		ELSEIF RAND:5 == 0
			VIDEO_TITLE_60 = 彼氏に秘密の
		ELSEIF RAND:4 == 0
			VIDEO_TITLE_60 = 彼氏に言えない
		ELSEIF RAND:3 == 0
			VIDEO_TITLE_60 = 彼には内緒の
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_60 = 彼には言えない
		ELSE
			VIDEO_TITLE_60 = 彼には秘密の
		ENDIF
	ELSEIF TALENT:남편있음
		IF RAND:4 == 0
			VIDEO_TITLE_60 = 夫に内緒の
		ELSEIF RAND:3 == 0
			VIDEO_TITLE_60 = 夫に秘密の
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_60 = 夫に言えない
		ELSE
			VIDEO_TITLE_60 = 夫に話せない
		ENDIF
	ENDIF
ELSE
	;FLAG:10 何処で調教をするのか？　0　自室　 1　学校　3　ホテル等
	;自室
	IF FLAG:10 == 0
		IF TALENT:교제 && RAND:2 == 0
			VIDEO_TITLE_60 = 彼氏の家で
		ENDIF
	;学校
	ELSEIF FLAG:10 == 1
		IF RAND:3 == 0
			VIDEO_TITLE_60 = 教室で
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_60 = 誰もいない教室で
		ELSE
			VIDEO_TITLE_60 = 放課後の教室で
		ENDIF
	;ホテル等
	ELSEIF FLAG:10 == 3
		IF RAND:3 == 0
			VIDEO_TITLE_60 = ホテルで
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_60 = ラブホテルで
		ELSE
			VIDEO_TITLE_60 = ラブホで
		ENDIF
	ENDIF
ENDIF

;교제、陥落状況など
IF TALENT:교제
	;父親がMASTER
	IF TALENT:임신
		IF CFLAG:111 == NO:MASTER
			IF RAND:2 == 0
				VIDEO_TITLE_70 = ラブラブ
			ELSE
				VIDEO_TITLE_70 = 愛情
			ENDIF
		ELSE

		ENDIF
	ELSEIF EXP:피조교경험 == 1 ;初回調教
		VIDEO_TITLE_70 = ラブラブ初Ｈ
	ELSE
		IF RAND:2 == 0
			VIDEO_TITLE_70 = ラブラブ
		ELSE
			VIDEO_TITLE_70 = 愛情
		ENDIF
	ENDIF
ELSEIF TALENT:음란 || TALENT:창녀
	IF RAND:3 == 0
		VIDEO_TITLE_70 = 음란
	ELSEIF RAND:2 == 0
		VIDEO_TITLE_70 = エロエロ
	ELSE
		VIDEO_TITLE_70 = ノリノリ
	ENDIF
ELSEIF TALENT:복종 || TALENT:예속
	IF RAND:2 == 0
		VIDEO_TITLE_70 = 言いなり調教
	ELSE
		VIDEO_TITLE_70 = 순종調教
	ENDIF
ELSEIF TALENT:동화 || TALENT:모판
	IF GETBIT(TFLAG:48,49) && RAND:2 == 0 ;촉수かつランダム
		VIDEO_TITLE_70 = 変異
	ELSE
		VIDEO_TITLE_70 = 순종
	ENDIF
ELSEIF EXP:피조교경험 == 1 ;初回調教
	IF TALENT:반항적 || TALENT:꿋꿋함 || TALENT:프라이드높음 || TALENT:건방짐 || TALENT:츤데레 || TALENT:고결 || TALENT:성악 || TALENT:인간혐오
		VIDEO_TITLE_70 = 屈辱の調教
	ELSEIF TALENT:얌전함 || TALENT:솔직 || TALENT:프라이드낮음 || TALENT:내향적
		VIDEO_TITLE_70 = 涙目調教
	ELSE
		VIDEO_TITLE_70 = 悲しみの調教
	ENDIF
ELSE
	IF RAND:2 == 0
		VIDEO_TITLE_70 = 無理矢理
	ELSE
		;ブランクルートの時はビデオタイトルの最後に「調教」がつく
		VIDEO_TITLE_70 =
	ENDIF
ENDIF

;特定の場所でのプレイがあるとVIDEO_TITLE_60、VIDEO_TITLE_70を上書き
;목욕탕플레이
IF GETBIT(TFLAG:48,40)
	;自室
	IF FLAG:10 == 0
		IF TALENT:교제
			VIDEO_TITLE_60 = 彼氏の家のお風呂で
		ELSE
			VIDEO_TITLE_60 = お風呂で
		ENDIF
	;学校
	ELSEIF FLAG:10 == 1
		VIDEO_TITLE_60 = 学校の샤워ルームで
	ELSE
		VIDEO_TITLE_60 = お風呂で
	ENDIF
;야외플레이有りで목욕탕플레이無し
ELSEIF GETBIT(TFLAG:48,39)
	;学校
	IF FLAG:10 == 1
		IF RAND:2 == 0
			VIDEO_TITLE_60 = 校舎内
		ELSE
			VIDEO_TITLE_60 = 校内
		ENDIF
	ELSE
		IF RAND:2 == 0
			VIDEO_TITLE_60 = 野外
		ELSE
			VIDEO_TITLE_60 = お外で
		ENDIF
	ENDIF
	IF TALENT:교제 || IS_NOTLOVE_FALLEN(TARGET)
		VIDEO_TITLE_70 = 노출
	ELSE
		VIDEO_TITLE_70 = 強制노출
	ENDIF
ENDIF

;プレイ内容（暫定ver）
;強烈なプレイが優先されるようにする
;촉수
IF GETBIT(TFLAG:48,49)
	;初回(70を上書き)
	IF EXP:피조교경험 == 1
		VIDEO_TITLE_70 = 공포に震える
	;처녀喪失
	ELSEIF GETBIT(TFLAG:48,1)
		VIDEO_TITLE_80 = 촉수처녀喪失
	ELSE
		VIDEO_TITLE_80 = 촉수
	ENDIF
	IF TALENT:교제
		VIDEO_TITLE_90 = プレイ
	ELSE
		VIDEO_TITLE_90 = 調教
	ENDIF
;３Ｐ系
ELSEIF GETBIT(TFLAG:48,50) || GETBIT(TFLAG:48,51)
	;처녀喪失
	IF GETBIT(TFLAG:48,1)
		IF ASSI > 0 && RAND:2 == 0
			VIDEO_TITLE_80 = ３Ｐ처녀喪失
		ELSE
			VIDEO_TITLE_80 = 처녀喪失乱交
		ENDIF
	ELSE
		IF ASSI > 0 && RAND:2 == 0
			VIDEO_TITLE_90 = ３Ｐ
		ELSE
			VIDEO_TITLE_90 = 乱交
		ENDIF
	ENDIF
;フィスト系
;피스트퍽、애널피스트
ELSEIF GETBIT(TFLAG:48,47) || GETBIT(TFLAG:48,48)
	IF GETBIT(TFLAG:48,47) && GETBIT(TFLAG:48,48)
		VIDEO_TITLE_80 = 양구멍피스트
	ELSEIF GETBIT(TFLAG:48,47)
		VIDEO_TITLE_80 = 피스트퍽
	ELSEIF GETBIT(TFLAG:48,48)
		VIDEO_TITLE_80 = 애널피스트
	ENDIF
;スカトロ
;浣腸、방뇨
ELSEIF GETBIT(TFLAG:48,43) || GETBIT(TFLAG:48,44)
	VIDEO_TITLE_80 = スカトロ
	;セックス、애널セックス
	IF GETBIT(TFLAG:48,5) || GETBIT(TFLAG:48,6)
		;교제ルート以外で未陥落
		IF (강간협박未陥落) && RAND:3 == 0
			VIDEO_TITLE_90 = レイプ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_90 = ファック
		ELSE
			VIDEO_TITLE_90 = ハメ撮り
		ENDIF
	ENDIF
;ＳＭ
ELSEIF GETBIT(TFLAG:48,41)
	VIDEO_TITLE_80 = ＳＭ
	;セックス、애널セックス
	;처녀喪失
	IF GETBIT(TFLAG:48,1)
		;기승위系
		IF GETBIT(TFLAG:48,8) && VIDEO_TITLE_70 != ""
			SELECTCASE 1
				CASE TALENT:교제
					VIDEO_TITLE_80 = で恋人に捧げる
					VIDEO_TITLE_90 = 過激な처녀喪失
				CASE TALENT:음란 || TALENT:창녀
					VIDEO_TITLE_80 = で被虐の悦びに震える
					VIDEO_TITLE_90 = インモラル・ロストヴァージン
				CASE TALENT:복종 || TALENT:예속
					VIDEO_TITLE_80 = 　ご主人様に捧げる
					VIDEO_TITLE_90 = 絶対복종ロストヴァージン
				CASEELSE
					VIDEO_TITLE_80 = 　陵辱の果て、
					VIDEO_TITLE_90 = 捧げた純潔
			ENDSELECT
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_90 = 처녀喪失
			ELSE
				VIDEO_TITLE_90 = ヴァージンレイプ
			ENDIF
		ENDIF
	ELSEIF GETBIT(TFLAG:48,5) || GETBIT(TFLAG:48,6)
		;교제ルート以外で未陥落
		IF (강간협박未陥落) && RAND:3 == 0
			VIDEO_TITLE_90 = レイプ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_90 = ファック
		ELSE
			VIDEO_TITLE_90 = セックス
		ENDIF
	ELSE
		VIDEO_TITLE_90 = プレイ
	ENDIF
ELSEIF IS_IN_SPECIAL_TRAIN_READIED()
	IF TALENT:교제
		SELECTCASE RAND:2
			CASE 0
				VIDEO_TITLE_80 = 　バレたら危険な
				VIDEO_TITLE_90 = いちゃいちゃ수치플레이
			CASEELSE
				VIDEO_TITLE_80 = 　彼氏のお願いで
				VIDEO_TITLE_90 = エッチなお出かけ
		ENDSELECT
	ELSE
		VIDEO_TITLE_80 = 　声も出せない
		IF (TALENT:강간 || TALENT:협박) && !IS_FALLEN(TARGET) && RAND:3 == 0
			VIDEO_TITLE_90 = 公開レイプ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_90 = 羞恥調教
		ELSE
			VIDEO_TITLE_90 = 羞恥セックス
		ENDIF
	ENDIF
;調教中に電話がかかってきた
ELSEIF SP_TRAIN_MEETING_CHARA:1 != 0 && SP_TRAIN_MEETING_TYPE == 1
	VIDEO_TITLE_80 = 　電話の向こうには%GET_SP_TRAIN_MEETING_CHARA_NAME(SP_TRAIN_MEETING_CHARA:1,2)%が････！
	IF TALENT:교제
		VIDEO_TITLE_90 = バレないようにこっそりＨ
	ELSE
		IF RAND:3 == 0
			VIDEO_TITLE_90 = 声も出せない陵辱Ｈ
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_90 = 声を抑えて耐え続ける調教セックス
		ELSE
			VIDEO_TITLE_90 = 声も出せずに調教に耐えて････
		ENDIF
	ENDIF
;목욕탕플레이、거품마사지
ELSEIF GETBIT(TFLAG:48,40) && GETBIT(TFLAG:48,20)
	;처녀喪失、セックス
	IF GETBIT(TFLAG:48,1) && GETBIT(TFLAG:48,5)
		VIDEO_TITLE_80 = ソーププレイで
		;교제ルート以外で未陥落
		IF 강간협박未陥落
			IF RAND:2 == 0
				VIDEO_TITLE_90 = 破瓜レイプ
			ELSE
				VIDEO_TITLE_90 = 처녀喪失レイプ
			ENDIF
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_90 = 破瓜セックス
			ELSE
				VIDEO_TITLE_90 = 처녀喪失
			ENDIF
		ENDIF
	ELSE
		IF RAND:2 == 0
			VIDEO_TITLE_80 = ソーププレイ
		ELSE
			VIDEO_TITLE_80 = 거품마사지
		ENDIF
	ENDIF
;レズ系＊SETBITまだ

;처녀喪失
ELSEIF GETBIT(TFLAG:48,1)
	;セックス
	IF GETBIT(TFLAG:48,5)
		;교제ルート以外で未陥落
		IF 강간협박未陥落
			IF RAND:2 == 0
				VIDEO_TITLE_80 = 破瓜レイプ
			ELSE
				VIDEO_TITLE_80 = 처녀喪失レイプ
			ENDIF
		ELSE
			IF RAND:2 == 0
				VIDEO_TITLE_80 = 破瓜セックス
			ELSE
				VIDEO_TITLE_80 = 처녀喪失
			ENDIF
		ENDIF
	ELSE
		VIDEO_TITLE_80 = 처녀喪失
	ENDIF
;セックス
ELSEIF GETBIT(TFLAG:48,5)
	;기승위系
	IF GETBIT(TFLAG:48,8) && RAND:100 > 60
		IF RAND:2 == 0
			VIDEO_TITLE_80 = ご奉仕セックス
		ELSE
			VIDEO_TITLE_80 = 騎乗セックス
		ENDIF
	ELSE
		IF TALENT:교제 && (TALENT:연예인 || TALENT:프린세스) && VIDEO_TITLE_00 == "流出！？　あの" && RAND:5 == 0
			VIDEO_TITLE_80 = プライベートセックス
		;교제ルート以外で未陥落
		ELSEIF (강간협박未陥落) && RAND:4 == 0
			VIDEO_TITLE_80 = レイプ
		ELSEIF RAND:3 == 0
			VIDEO_TITLE_80 = ハメ撮り
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_80 = セックス
		ELSE
			VIDEO_TITLE_80 = ＳＥＸ
		ENDIF
	ENDIF
	SIF GETBIT(TFLAG:48,53)
		VIDEO_TITLE_80 = 懇願%VIDEO_TITLE_80%
;애널セックス
ELSEIF GETBIT(TFLAG:48,6)
	;기승위系
	IF GETBIT(TFLAG:48,8) && RAND:100 > 60
		IF RAND:2 == 0
			VIDEO_TITLE_80 = ご奉仕애널ファック
		ELSE
			VIDEO_TITLE_80 = 애널기승위
		ENDIF
	ELSE
		;교제ルート以外で未陥落
		IF (강간협박未陥落) && RAND:4 == 0
			VIDEO_TITLE_80 = 애널レイプ
		ELSE
			VIDEO_TITLE_80 = 애널セックス
		ENDIF
	ENDIF
	SIF GETBIT(TFLAG:48,53)
		VIDEO_TITLE_80 = 懇願%VIDEO_TITLE_80%
;이라마치오
ELSEIF GETBIT(TFLAG:48,23)
	VIDEO_TITLE_80 = 이라마치오
ELSEIF (GETBIT(TFLAG:48,18) && GETBIT(TFLAG:48,17) && GETBIT(TFLAG:48,16)) && RAND:100 > 70
	VIDEO_TITLE_80 = 奉仕フルコース
;파이즈리系
ELSEIF GETBIT(TFLAG:48,18)
	;교제ルート以外で未陥落
	IF (강간협박未陥落) && RAND:3 == 0
		VIDEO_TITLE_80 = おっぱいレイプ
	ELSEIF RAND:2 == 0
		VIDEO_TITLE_80 = 파이즈리
	ELSE
		VIDEO_TITLE_80 = おっぱい奉仕
	ENDIF
;フェラ系
ELSEIF GETBIT(TFLAG:48,17)
	IF RAND:4 == 0
		VIDEO_TITLE_80 = 펠라치오
	ELSEIF RAND:3 == 0
		VIDEO_TITLE_80 = フェラ
	ELSEIF RAND:2 == 0
		VIDEO_TITLE_80 = フェラ奉仕
	ELSE
		VIDEO_TITLE_80 = おしゃぶり
	ENDIF
;수음
ELSEIF GETBIT(TFLAG:48,16)
	VIDEO_TITLE_80 = 손コキ
;足コキ
ELSEIF GETBIT(TFLAG:48,22)
	VIDEO_TITLE_80 = 足コキ

;애무系

;道具系
ELSEIF GETBIT(TFLAG:48,25) || GETBIT(TFLAG:48,26) || GETBIT(TFLAG:48,27) || GETBIT(TFLAG:48,28) || GETBIT(TFLAG:48,29) || GETBIT(TFLAG:48,30) || GETBIT(TFLAG:48,31) || GETBIT(TFLAG:48,32) || GETBIT(TFLAG:48,33)
	;オナニー、바이브、애널바이브
	IF GETBIT(TFLAG:48,36) && (GETBIT(TFLAG:48,29) || GETBIT(TFLAG:48,30))
		VIDEO_TITLE_80 = 바이브オナニー
	ELSE
		VIDEO_TITLE_80 = 大人の玩具遊び
	ENDIF
;オナニー
ELSEIF GETBIT(TFLAG:48,36)
	IF RAND:2 == 0
		VIDEO_TITLE_80 = 자위公開
	ELSE
		VIDEO_TITLE_80 = 公開オナニー
	ENDIF
;エロ系判定
ELSEIF GETBIT(TFLAG:48,61)
	VIDEO_TITLE_80 = プレイ
;エロ系無し
ELSE
	IF TALENT:교제 && (TALENT:연예인 || TALENT:프린세스) && VIDEO_TITLE_00 == "流出！？　あの"
		VIDEO_TITLE_80 = ＰＶ
	ELSE
		VIDEO_TITLE_80 = ＩＶ
	ENDIF
ENDIF

;他
;エロ系判定
IF GETBIT(TFLAG:48,61)
	;VIDEO_TITLE_70が入ってない、VIDEO_TITLE_90が「調教」じゃない
	IF VIDEO_TITLE_70 == "" && 강간협박未陥落 && VIDEO_TITLE_90 != "調教"
		IF RAND:100 > 85
			VIDEO_TITLE_100 = 調教
		ELSE
			VIDEO_TITLE_100 = 調教地獄
		ENDIF
	ELSEIF TALENT:교제 == 0 && RAND:100 > 85 && VIDEO_TITLE_90 != "調教" && STRFIND(VIDEO_TITLE_70,"調教") == -1
		VIDEO_TITLE_100 = 調教
	ELSEIF RAND:100 > 70
		IF RAND:4 == 0
			VIDEO_TITLE_100 = 　スペシャル
		ELSEIF RAND:3 == 0
			VIDEO_TITLE_100 = 　大特集
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_100 = 　完全版
		ELSE
			VIDEO_TITLE_100 = 　3時間
		ENDIF
	ENDIF
ELSE
	IF RAND:100 > 70
		IF RAND:4 == 0
			VIDEO_TITLE_100 = 　スペシャル
		ELSEIF RAND:3 == 0
			VIDEO_TITLE_100 = 　大特集
		ELSEIF RAND:2 == 0
			VIDEO_TITLE_100 = 　完全版
		ELSE
			VIDEO_TITLE_100 = 　3時間
		ENDIF
	ENDIF
ENDIF

VIDEO_TITLE = %VIDEO_TITLE_00%%VIDEO_TITLE_10%%VIDEO_TITLE_20%%VIDEO_TITLE_30%%VIDEO_TITLE_40%%VIDEO_TITLE_50%%VIDEO_TITLE_60%%VIDEO_TITLE_70%%VIDEO_TITLE_80%%VIDEO_TITLE_90%%VIDEO_TITLE_100%
IF TFLAG:36 > 1000
	CSTR:42 = %VIDEO_TITLE%
ENDIF
;IF TFLAG:36 > 1000
;	CSTR:39 = %LOCALS:0%
;	CSTR:42 = %LOCALS:1%
;	CSTR:43 = %LOCALS:2%
;ENDIF

CALL DIARY_SET,NAME:TARGET+"のAVを撮影した。 タイトル:「"+VIDEO_TITLE+"」"
$INPUT_LOOP
PRINTFORML 録画したビデオ「%VIDEO_TITLE%」は{TFLAG:36}程度の値が付きそうだ
PRINTL
PRINTL 録画したビデオをどうするか選択してください
PRINTL [0] - 売る
PRINTL [1] - 손元に残す
PRINTL [2] - 情報表示
DRAWLINE

INPUT
IF RESULT == 0
	PRINTFORML 調教時に録画したビデオを売って、{TFLAG:36}손に入れました
	MONEY += TFLAG:36
	IF TFLAG:36 > 1000 && TALENT:AV녀 == 0
		PRINTL 高額ビデオの販売により、[AV녀]のタレントを得ました。
		TALENT:AV녀 = 1
	ENDIF
	;AV인기の加算
	CFLAG:55 += TFLAG:36/33

	;ビデオ売上記録
	CFLAG:180 += TFLAG:36

	;トロフィー機能が定義されていた場合、トロフィー獲得を行う
	[IF TROPHY_DEFINE]
		CALL GET_TROPHY, TROPHY_TIME_SELLVIDEO
	[ENDIF]
	TFLAG:36 = 0
	;イベント입上呼び出し(ビデオ売却時）
	TFLAG:13 = 19
	CALL KOJO_MESSAGE_EVENT

	CALL VIDEO_EIKYOU(TARGET,TFLAG:36)

ELSEIF RESULT == 1
	PRINTFORML 調教時に録画したビデオを손元に残しておいた
	CFLAG:20 += 1
	;イベント입上呼び出し(ビデオ保有時）
	TFLAG:13 = 23
	CALL KOJO_MESSAGE_EVENT
	index = FINDELEMENT(CFLAG:TARGET:0,0,1030,1040)
	IF index < 0
		PRINTFORMW 保管棚がいっぱいです
		;現時点では単に売却を選びなおす。将来的には保管されているビデオから選んで売却できるようにする予定。
		GOTO INPUT_LOOP
	ELSE
		CFLAG:index = TFLAG:36
		CSTR:index = %VIDEO_TITLE%
		CFLAG:(index+10) = TFLAG:48
		CFLAG:(index+20) = EXP:피조교경험
		CSTR:(index+10) = %GET_CHARA_ABL_MAP(TARGET)%
		CSTR:(index+20) = %GET_CHARA_ABL_MAP(TARGET,"TALENT")%
	ENDIF
ELSEIF RESULT == 2
	CALL SHOW_INFO(TARGET,0)
	GOTO INPUT_LOOP
ELSE
	GOTO INPUT_LOOP
ENDIF
DRAWLINE

@PRICE_PICTURE
A = 100
B = 0
C = 0

;調教者のABL:촬영기능をみる
IF ABL:PLAYER:13 == 0
	B = 10
ELSEIF ABL:PLAYER:13 == 1
	B = 100
ELSEIF ABL:PLAYER:13 == 2
	B = 150
ELSEIF ABL:PLAYER:13 == 3
	B = 250
ELSEIF ABL:PLAYER:13 == 4
	B = 300
ELSE
	B = 500
ENDIF

;입系
;볼개그装着、촉수펠라
IF TEQUIP:45 || TEQUIP:98 || TEQUIP:40
	A += 20
	C += 1
ENDIF
;Ａ系
;애널바이브装着、애널비즈装着、浣腸＋애널플러그装着、공기관장、バルーン装着、애널전극装着
IF TEQUIP:14 || TEQUIP:15 || TEQUIP:46 || TEQUIP:21 || TEQUIP:22 || TEQUIP:23
	A += 10
	C += 1
ENDIF
;Ｃ系
;클리캡装着、오나홀装着
IF TEQUIP:11 || TEQUIP:12
	A += 10
	C += 1
ENDIF
;Ｂ系
;유두캡装着、착유기、유방전극装着
IF TEQUIP:16 || TEQUIP:17 || TEQUIP:24
	A += 15
	C += 1
ENDIF
;Ｖ系
;바이브装着
IF TEQUIP:13 || (TEQUIP:37 > 0 && TEQUIP:37 != 185)
	A += 15
	C += 1
ENDIF
;緊縛系
;아이마스크装着
IF TEQUIP:18
	A += 20
	C += 1
ENDIF
;밧줄で緊縛
IF TEQUIP:19
	A += 25
	C += 1
ENDIF
;귀갑묶기
IF TEQUIP:42
	A += 25
	C += 1
ENDIF
;형틀구속
IF TEQUIP:44
	A += 35
	C += 1
ENDIF
;薬剤系
;미약、이뇨제
IF TEQUIP:26 || TEQUIP:27
	A += 5
	C += 1
ENDIF
;場所系
;야외플레이、수치플레이中、목욕탕플레이
IF TEQUIP:29 || TEQUIP:30 || TEQUIP:31
	A += 20
	C += 1
ENDIF
;状況系
;샤워、ビデオ撮影
IF TEQUIP:32 || TEQUIP:28
	A += 10
	C += 1
ENDIF
;촉수調教
IF TEQUIP:25
	A += 5
	C += 1
ENDIF
;着衣系他
;신혼플레이中
IF TEQUIP:33
	A += 10
	C += 1
ENDIF
;何も装着していない場合のボーナス
SIF C == 0
	A += 50

;精液の補正を設定するためCをリセット
C = 0
;精液の汚れ(입、손、페니스、질、애널の順)
SIF STAIN:PLAYER:0 & 4
	C += 1
SIF STAIN:PLAYER:1 & 4
	C += 1
SIF STAIN:PLAYER:2 & 4
	C += 1
SIF STAIN:PLAYER:3 & 4
	C += 1
SIF STAIN:PLAYER:4 & 4
	C += 1
;精液の汚れがない場合のボーナス
SIF C == 0
	A += 30

;素質:무관심を見る
SIF TALENT:무관심
	A -= 30
;素質:감정부족を見る
SIF TALENT:감정부족
	A -= 30
;素質:부끄럼쟁이を見る
SIF TALENT:부끄럼쟁이
	A += 10
;素質:작은체형を見る
SIF TALENT:작은체형
	A += 20
;素質:절벽を見る
SIF TALENT:절벽
	A -= 10
;素質:거유を見る
SIF TALENT:거유
	A += 20
;素質:폭유を見る
SIF TALENT:폭유
	A += 10
;素質:갈색피부を見る
SIF TALENT:갈색피부
	A += 10
;素質:동물귀を見る
SIF TALENT:동물귀
	A += 10
;素質:인기を見る
SIF TALENT:인기
	A += 20
;素質:수수께끼의매력を見る
SIF TALENT:수수께끼의매력
	A += 30

SIF A < 0
	A = 0

B *= A
B /= 100

;難易度処理
;EASY
IF FLAG:4 == 1
	TIMES B , 1.20
;NORMAL
ELSEIF FLAG:4 == 2
	TIMES B , 1.00
;HARD
ELSEIF FLAG:4 == 3
	TIMES B , 0.80
ENDIF

TFLAG:37 += B

@SELL_PICTURE
SIF TFLAG:37 <= 0
	RETURN 0

PRINTFORML %NAME:TARGET%의 写真には{TFLAG:37}の買値が付いた
MONEY += TFLAG:37
;フラグリセット。これで調教メニュー以外でも再利用できるように
TFLAG:37 = 0
WAIT

@SELL_MILK
;乳の大きさによって搾乳量が異なる（절벽0.35倍、빈유0.5倍、거유2倍、폭유3倍、豊가슴してもダメ）
;분유중독レベルによって搾乳量が増える
;처녀や인기の高いミルクは高く売れる　2倍
;対象が연령が低いほど高く売れる（대학생or大人１、고등학생1.5倍、중학생3倍、초등학생4倍）

;噴乳一回につき基本値は100cc
O = TFLAG:35 * 100

IF O > 0
;乳の大きさによる設定
LOCAL:1 = NO
IF CSVTALENT(LOCAL:1,239) == 1
	TIMES O , 0.50
ELSEIF  CSVTALENT(LOCAL:1,240) == 1
	TIMES O , 0.35
ELSEIF  CSVTALENT(LOCAL:1,241) == 1
	TIMES O , 2.00
ELSEIF  CSVTALENT(LOCAL:1,242) == 1
	TIMES O , 3.00
ENDIF

;분유중독による量の増加
;１増加するごとに5割増し
IF ABL:19 == 1
	TIMES O , 1.50
ELSEIF ABL:19 == 2
	TIMES O , 2.00
ELSEIF ABL:19 == 3
	TIMES O , 2.50
ELSEIF ABL:19 == 4
	TIMES O , 3.00
ELSEIF ABL:19 == 5
	TIMES O , 3.50
ELSEIF ABL:19 == 6
	TIMES O , 4.00
ELSEIF ABL:19 == 7
	TIMES O , 4.50
ELSEIF ABL:19 == 8
	TIMES O , 5.00
ELSEIF ABL:19 == 9
	TIMES O , 5.50
ELSEIF ABL:19 == 10
	TIMES O , 6.00
ENDIF

;암소は乳の量が2倍になる
SIF TALENT:암소 == 1
	TIMES O , 2.00

;1リットルを超える分は半分になる（人間ですから…）
SIF O >= 1001
	O = 1000 + ((O-1000)/2)
;3リットルを超える分は半分になる
SIF O >= 3001
	O = 3000 + ((O-3000)/2)

PRINTL
PRINTFORML 착유기を使って%CALLNAME:TARGET%から{O}ccの母乳を搾り出した

;처녀は2倍
SIF TALENT:처녀 == 1
	TIMES O , 2.00

;인기は2倍
SIF TALENT:인기 == 1
	TIMES O , 2.00
;수수께끼의매력は2倍
SIF TALENT:수수께끼의매력 == 1
	TIMES O , 2.00
;연예인は2倍
SIF TALENT:연예인 == 1
	TIMES O , 2.00

;연령層による加算
IF TALENT:초등학생 == 1
	TIMES O , 4.00
ELSEIF TALENT:중학생 == 1
	TIMES O , 3.00
ELSEIF TALENT:고등학생 == 1
	TIMES O , 1.50
ENDIF

;인계됨は0.05倍
SIF TALENT:인계됨
	TIMES O , 0.05

;難易度処理
;EASY
IF FLAG:4 == 1
	TIMES O , 1.20
;NORMAL
ELSEIF FLAG:4 == 2
	TIMES O , 1.00
;HARD
ELSEIF FLAG:4 == 3
	TIMES O , 0.80
ENDIF

	PRINTFORML %CALLNAME:TARGET%의 母乳には{O}の買値が付いた
	MONEY += O
	PRINTFORML 所持金 {O}増加
	WAIT
ENDIF

;-------------------------------------------------------------------------------------------------
;旧ビデオタイトル関係
;-------------------------------------------------------------------------------------------------
;;ビデオの重複使用を処理するために、予め値段の加算を行っておく
;@PRICE_VIDEO
;
;P = 0
;
;REPEAT TFLAG:70
;	A = COUNT + 11
;
;	;COM:애무を見る
;	IF FLAG:A == 0
;		P += 50
;	;COM:커닐링구스を見る
;	ELSEIF FLAG:A == 1
;		P += 50
;	;COM:펠라한다を見る
;	ELSEIF FLAG:A == 2
;		P += 200
;	;COM:손가락삽입を見る
;	ELSEIF FLAG:A == 3
;		P += 150
;	;COM:애널핥기を見る
;	ELSEIF FLAG:A == 4
;		P += 100
;	;COM:애널애무を見る
;	ELSEIF FLAG:A == 5
;		P += 100
;	;COM:가슴주무르기を見る
;	ELSEIF FLAG:A == 6
;		P += 120
;	;COM:유두괴롭히기を見る
;	ELSEIF FLAG:A == 7
;		P += 250
;	;COM:가슴애무を見る
;	ELSEIF FLAG:A == 8
;		P += 100
;	;COM:조개벌리기を見る
;	ELSEIF FLAG:A == 9
;		P += 300
;	;COM:가슴자위を見る
;	ELSEIF FLAG:A == 10
;		P += 400
;	;COM:자위を見る
;	;自動的に公開オナニーになる
;	ELSEIF FLAG:A == 11
;		P += 500
;	;COM:키스を見る
;	ELSEIF FLAG:A == 20
;		P += 100
;	;COM:아무것도안한다を見る
;	ELSEIF FLAG:A == 21
;		P += 10
;	;COM:회화を見る
;	ELSEIF FLAG:A == 22
;		P += 50
;	;COM:선물を見る
;	ELSEIF FLAG:A == 23
;		P += 10
;	;COM:스킨십を見る
;	ELSEIF FLAG:A == 24
;		P += 30
;	;COM:느긋하게보낸다を見る
;	ELSEIF FLAG:A == 25
;		P += 10
;	;COM:가사を見る
;	ELSEIF FLAG:A == 26
;		P += 10
;	;COM:노래연습を見る
;	ELSEIF FLAG:A == 27
;		P += 50
;	;COM:매도を見る
;	ELSEIF FLAG:A == 28
;		P += 20
;	;COM:비디오감상を見る
;	ELSEIF FLAG:A == 29
;		P += 20
;	;COM:로터を見る
;	ELSEIF FLAG:A == 40
;		P += 150
;	;COM:Eマッサージャを見る
;	ELSEIF FLAG:A == 41
;		P += 200
;	;COM:클리캡を見る
;	ELSEIF FLAG:A == 42
;		P += 150
;	;COM:오나홀を見る
;	ELSEIF FLAG:A == 43
;		P += 100
;	;COM:바이브を見る
;	ELSEIF FLAG:A == 44
;		P += 200
;	;COM:애널바이브を見る
;	ELSEIF FLAG:A == 45
;		P += 250
;	;COM:애널비즈を見る
;	ELSEIF FLAG:A == 46
;		P += 150
;	;COM:유두캡を見る
;	ELSEIF FLAG:A == 47
;		P += 150
;	;COM:유두로터を見る
;	ELSEIF FLAG:A == 48
;		P += 150
;	;COM:착유기を見る
;	ELSEIF FLAG:A == 49
;		P += 250
;	;COM:정상위を見る
;	ELSEIF FLAG:A == 60
;		P += 300
;	;COM:背後位を見る
;	ELSEIF FLAG:A == 61
;		P += 450
;	;COM:정상위애널を見る
;	ELSEIF FLAG:A == 62
;		SIF TFLAG:48 == 0 || TFLAG:48 > 8
;			TFLAG:48 = 8
;		P += 250
;	;COM:후배위애널を見る
;	ELSEIF FLAG:A == 63
;		SIF TFLAG:48 == 0 || TFLAG:48 > 8
;			TFLAG:48 = 8
;		P += 400
;	;COM:역강간を見る
;	ELSEIF FLAG:A == 64
;		P += 500
;	;COM:젖퍽を見る
;	ELSEIF FLAG:A == 65
;		P += 400
;	;COM:기승위を見る
;	ELSEIF FLAG:A == 66
;		P += 500
;	;COM:기승위애널を見る
;	ELSEIF FLAG:A == 67
;		SIF TFLAG:48 == 0 || TFLAG:48 > 8
;			TFLAG:48 = 8
;		P += 500
;	;COM:대면좌위を見る
;	ELSEIF FLAG:A == 68
;		P += 450
;	;COM:배면좌위を見る
;	ELSEIF FLAG:A == 69
;		P += 500
;	;COM:대면좌위애널を見る
;	ELSEIF FLAG:A == 70
;		SIF TFLAG:48 == 0 || TFLAG:48 > 8
;			TFLAG:48 = 8
;		P += 450
;	;COM:배면좌위애널を見る
;	ELSEIF FLAG:A == 71
;		SIF TFLAG:48 == 0 || TFLAG:48 > 8
;			TFLAG:48 = 8
;		P += 500
;	;COM:수음を見る
;	ELSEIF FLAG:A == 80
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 300
;	;COM:펠라치오を見る
;	ELSEIF FLAG:A == 81
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 400
;	;COM:파이즈리を見る
;	ELSEIF FLAG:A == 82
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 500
;	;COM:스마타を見る
;	ELSEIF FLAG:A == 83
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 350
;	;COM:거품마사지を見る
;	ELSEIF FLAG:A == 84
;		P += 500
;	;COM:풋잡を見る
;	ELSEIF FLAG:A == 85
;		P += 350
;	;COM:발핥기강제を見る
;	ELSEIF FLAG:A == 86
;		P += 350
;	;COM:세로파이즈리を見る
;	ELSEIF FLAG:A == 87
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 500
;	;COM:파이즈리 펠라を見る
;	ELSEIF FLAG:A == 88
;		SIF TFLAG:48 == 0 || TFLAG:48 > 6
;			TFLAG:48 = 6
;		P += 500
;	;COM:모유마시기を見る
;	ELSEIF FLAG:A == 89
;		P += 250
;	;COM:스팽킹を見る
;	ELSEIF FLAG:A == 100
;		SIF TFLAG:48 == 0 || TFLAG:48 > 7
;			TFLAG:48 = 7
;		P += 250
;	;COM:가슴스팽킹を見る
;	ELSEIF FLAG:A == 101
;		SIF TFLAG:48 == 0 || TFLAG:48 > 7
;			TFLAG:48 = 7
;		P += 300
;	;COM:채찍を見る
;	ELSEIF FLAG:A == 102
;		SIF TFLAG:48 == 0 || TFLAG:48 > 7
;			TFLAG:48 = 7
;		P += 350
;	;COM:양초を見る
;	ELSEIF FLAG:A == 103
;		SIF TFLAG:48 == 0 || TFLAG:48 > 7
;			TFLAG:48 = 7
;		P += 400
;	;COM:바늘を見る
;	ELSEIF FLAG:A == 104
;		SIF TFLAG:48 == 0 || TFLAG:48 > 7
;			TFLAG:48 = 7
;		P += 500
;	;COM:아이마스크を見る
;	ELSEIF FLAG:A == 105
;		P += 150
;	;COM:밧줄を見る
;	ELSEIF FLAG:A == 106
;		SIF TFLAG:48 == 0 || TFLAG:48 > 4
;			TFLAG:48 = 4
;		P += 200
;	;COM:볼개그を見る
;	ELSEIF FLAG:A == 107
;		SIF TFLAG:48 == 0 || TFLAG:48 > 4
;			TFLAG:48 = 4
;		P += 250
;	;COM:커닐링구스강제を見る
;	ELSEIF FLAG:A == 120
;		P += 250
;	;COM:ダブル스마타を見る
;	ELSEIF FLAG:A == 121
;		P += 500
;	;COM:조개맞대기を見る
;	ELSEIF FLAG:A == 122
;		P += 350
;	;COM:조수를범하게한다を見る
;	ELSEIF FLAG:A == 123
;		P += 500
;	;COM:더블펠라を見る
;	ELSEIF FLAG:A == 124
;		P += 450
;	;COM:足コキを見る
;	ELSEIF FLAG:A == 125
;		P += 350
;	;COM:더블펠라を見る
;	ELSEIF FLAG:A == 126
;		P += 450
;	;COM:더블파이즈리を見る
;	ELSEIF FLAG:A == 127
;		P += 500
;	;COM:서로가슴비비기を見る
;	ELSEIF FLAG:A == 128
;		P += 200
;	;COM:イマラチオを見る
;	ELSEIF FLAG:A == 140
;		P += 450
;	;COM:피스트퍽を見る
;	ELSEIF FLAG:A == 141
;		P += 500
;	;COM:애널피스트を見る
;	ELSEIF FLAG:A == 142
;		P += 500
;	;COM:양구멍피스트を見る
;	ELSEIF FLAG:A == 143
;		P += 500
;	;COM:방뇨を見る
;	ELSEIF FLAG:A == 144
;		P += 200
;	;COM:애널봉사강제を見る
;	ELSEIF FLAG:A == 145
;		P += 250
;	;COM:관장기＋플러그を見る
;	ELSEIF FLAG:A == 146
;		P += 350
;	;COM:공기관장を見る
;	ELSEIF FLAG:A == 147
;		P += 150
;	;COM:확장벌룬を見る
;	ELSEIF FLAG:A == 148
;		P += 150
;	;COM:애널전극を見る
;	ELSEIF FLAG:A == 149
;		P += 250
;	;COM:유방전극を見る
;	ELSEIF FLAG:A == 150
;		P += 250
;	;COM:뱀장어목욕を見る
;	ELSEIF FLAG:A == 151
;		P += 250
;	;COM:벌레목욕を見る
;	ELSEIF FLAG:A == 152
;		P += 250
;	;COM:촉수소환を見る
;	ELSEIF FLAG:A == 160
;		SIF TFLAG:48 == 0 || TFLAG:48 > 2
;			TFLAG:48 = 2
;		P += 150
;	;COM:촉수삽입を見る
;	ELSEIF FLAG:A == 161
;		P += 250
;	;COM:애널촉수を見る
;	ELSEIF FLAG:A == 162
;		P += 300
;	;COM:촉수클리고문を見る
;	ELSEIF FLAG:A == 163
;		P += 100
;	;COM:촉수유두고문を見る
;	ELSEIF FLAG:A == 164
;		P += 150
;	;COM:촉수착유を見る
;	ELSEIF FLAG:A == 165
;		P += 200
;	;COM:촉수긴박を見る
;	ELSEIF FLAG:A == 166
;		P += 300
;	;COM:촉수관장を見る
;	ELSEIF FLAG:A == 167
;		P += 300
;	;COM:촉수펠라を見る
;	ELSEIF FLAG:A == 168
;		P += 400
;	;COM:촉수페니스고문を見る
;	ELSEIF FLAG:A == 169
;		P += 100
;	;COM:로션を見る
;	ELSEIF FLAG:A == 180
;		P += 10
;	;COM:미약を見る
;	ELSEIF FLAG:A == 181
;		SIF TFLAG:48 == 0 || TFLAG:48 > 5
;			TFLAG:48 = 5
;		P += 100
;	;COM:이뇨제を見る
;	ELSEIF FLAG:A == 182
;		P += 100
;	;COM:비디오카메라を見る
;	ELSEIF FLAG:A == 183
;		P += 0
;	;COM:야외플레이を見る
;	ELSEIF FLAG:A == 184
;		SIF TFLAG:48 == 0 || TFLAG:48 > 3
;			TFLAG:48 = 3
;		P += 250
;	;COM:조수를범한다を見る
;	ELSEIF FLAG:A == 185
;		P += 300
;	;COM:수치플레이を見る
;	ELSEIF FLAG:A == 186
;		P += 250
;	;COM:목욕탕플레이を見る
;	ELSEIF FLAG:A == 187
;		P += 200
;	;COM:샤워を見る
;	ELSEIF FLAG:A == 188
;		P += 100
;	;COM:신혼플레이を見る
;	ELSEIF FLAG:A == 189
;		P += 200
;	;COM:사진촬영を見る
;	ELSEIF FLAG:A == 190
;		P += 100
;	;COM:강정신약を見る
;	ELSEIF FLAG:A == 191
;		P += 50
;	;COM:콘돔정음（노예）を見る
;	ELSEIF FLAG:A == 192
;		P += 200
;	;COM:콘돔정음（조수）を見る
;	ELSEIF FLAG:A == 193
;		P += 200
;	;COM:정액키스を見る
;	ELSEIF FLAG:A == 194
;		P += 300
;
;	;COM:二本刺し(3P)を見る
;	ELSEIF FLAG:A == 500
;		P += 500
;	;COM:シックスナインを見る
;	ELSEIF FLAG:A == 501
;		P += 400
;	;COM:岩清水を見る
;	ELSEIF FLAG:A == 502
;		P += 500
;	;COM:Ｇスポット刺激を見る
;	ELSEIF FLAG:A == 503
;		P += 200
;	;COM:乱れ牡丹を見る
;	ELSEIF FLAG:A == 504
;		P += 500
;	;COM:騎乗乳房자위を見る
;	ELSEIF FLAG:A == 505
;		P += 450
;	;COM:挿入Ｇスポ責めを見る
;	ELSEIF FLAG:A == 506
;		P += 500
;	;COM:挿入子宮입責めを見る
;	ELSEIF FLAG:A == 507
;		P += 500
;	;COM:６９파이즈리を見る
;	ELSEIF FLAG:A == 508
;		P += 500
;	;COM:搾乳を見る
;	ELSEIF FLAG:A == 509
;		P += 500
;	;COM:ダブル스마타を見る
;	ELSEIF FLAG:A == 510
;		P += 350
;	;COM:二本フェラを見る
;	ELSEIF FLAG:A == 511
;		P += 450
;
;
;	;COM:바이브オナニーを見る
;	ELSEIF FLAG:A == 991
;		P += 600
;	;COM:애널바이브オナニーを見る
;	ELSEIF FLAG:A == 992
;		P += 600
;	;COM:二穴바이브オナニーを見る
;	ELSEIF FLAG:A == 993
;		P += 700
;	;COM:샤워オナニーを見る
;	ELSEIF FLAG:A == 994
;		P += 550
;	ENDIF
;REND
;
;;처녀喪失シーンがあれば加算
;IF TFLAG:39
;	TFLAG:48 = 1
;	P += 5000
;	EXP:50 += 1
;	PRINTFORML ビデオには%CALLNAME:TARGET%의 처녀喪失シーンが記録されている
;	PRINTFORML %EXPNAME:50%＋１
;ENDIF
;
;O = 100
;;素質:처녀を見る
;SIF TALENT:0
;	O += 20
;;素質:무관심を見る
;SIF TALENT:무관심
;	O -= 30
;;素質:감정부족を見る
;SIF TALENT:감정부족
;	O -= 30
;;素質:부끄럼쟁이を見る
;SIF TALENT:부끄럼쟁이
;	O += 10
;;素質:작은체형を見る
;SIF TALENT:작은체형
;	O += 20
;;素質:절벽を見る
;SIF TALENT:절벽
;	O -= 10
;;素質:거유を見る
;SIF TALENT:거유
;	O += 20
;;素質:폭유を見る
;SIF TALENT:폭유
;	O += 10
;;素質:갈색피부を見る
;SIF TALENT:갈색피부
;	O += 10
;;素質:동물귀を見る
;SIF TALENT:동물귀
;	O += 10
;;素質:인기を見る
;SIF TALENT:인기
;	O += 20
;;素質:수수께끼의매력を見る
;SIF TALENT:수수께끼의매력
;	O += 30
;;-----------------------------------------------------------
;
;;奴隷の피사경험を見る
;SIF EXP:TARGET:63 >= EXPLV:3
;	O += 10
;
;;撮影者を見る
;;主人
;IF FLAG:22 == 1
;	;촬영기능を見る
;	IF ABL:MASTER:13 >= 5
;		O += 100
;	ELSEIF ABL:MASTER:13 == 4
;		O += 50
;	ELSEIF ABL:MASTER:13 == 3
;		O += 20
;	ELSEIF ABL:MASTER:13 <= 1
;		O -= 20
;	ENDIF
;;助손
;ELSEIF FLAG:22 == 2
;	;촬영기능を見る
;	IF ABL:ASSI:13 >= 5
;		O += 100
;	ELSEIF ABL:ASSI:13 == 4
;		O += 50
;	ELSEIF ABL:ASSI:13 == 3
;		O += 20
;	ELSEIF ABL:ASSI:13 <= 1
;		O -= 20
;	ENDIF
;ENDIF
;
;;倍率処理
;SIF O < 0
;	O = 0
;
;P *= O
;P /= 1000
;
;;学校での撮影
;SIF FLAG:10 == 1
;	TIMES P , 1.50
;
;;難易度処理
;;EASY
;IF FLAG:4 == 1
;	TIMES P , 1.20
;;NORMAL
;ELSEIF FLAG:4 == 2
;	TIMES P , 1.00
;;HARD
;ELSEIF FLAG:4 == 3
;	TIMES P , 0.80
;ENDIF
;
;TFLAG:36 += P
;TFLAG:70 = 0
;
;
;@SELL_VIDEO
;;調教時に録画したビデオの売却
;;TODO 価格設定再考・状況による価格をプラスできるか(처녀開通時など)
;
;
;;촬영중のまま売却まで来た場合はテープの数を減らす
;;テープの減数は撮影後処理のため、さらにビデオの値段および経験もここで処理をする
;IF TEQUIP:28
;	ITEM:43 -= 1
;	CALL PRICE_VIDEO
;ENDIF
;
;;録画してなければ終了
;SIF TFLAG:36 == 0
;	RETURN 0
;
;SELECTCASE RAND:17
;	CASE 0
;		LOCALS:0 = 真夜中の
;	CASE 1
;		LOCALS:0 = 奴隷
;	CASE 2
;		LOCALS:0 = 囚われの
;	CASE 3
;		LOCALS:0 = 淫獄の
;	CASE 4
;		LOCALS:0 = 穢された
;	CASE 5
;		LOCALS:0 = 哀愁の
;	CASE 6
;		LOCALS:0 = 犯された
;	CASE 7
;		LOCALS:0 = 騙された
;	CASE 8
;		LOCALS:0 = 罠に落ちた
;	CASE 9
;		LOCALS:0 = ドスケベ
;	CASE 10
;		LOCALS:0 = 誰も知らない
;	CASE 11
;		LOCALS:0 = 裏切りの
;	CASE 12
;		LOCALS:0 = 放課後の
;	CASE 13
;		LOCALS:0 = 狙われた
;	CASE 14
;		LOCALS:0 = はめられた
;	CASE 15
;		LOCALS:0 = 力尽くの
;	CASE 16
;		LOCALS:0 = 激写！
;ENDSELECT
;
;;LOCALS .= %CSTR:タイトル%
;
;IF TFLAG:48 == 1
;	LOCALS:1 = 처녀
;ELSEIF TFLAG:48 == 2
;	LOCALS:1 = 촉수
;ELSEIF TFLAG:48 == 3
;	LOCALS:1 = 노출
;ELSEIF TFLAG:48 == 4
;	LOCALS:1 = 緊縛
;ELSEIF TFLAG:48 == 5
;	LOCALS:1 = 미약
;ELSEIF TFLAG:48 == 6
;	LOCALS:1 = 奉仕
;ELSEIF TFLAG:48 == 7
;	LOCALS:1 = 被虐
;ELSEIF TFLAG:48 == 8
;	LOCALS:1 = 肛虐
;ELSE
;	LOCALS:1 = 陵辱
;ENDIF
;SELECTCASE RAND:7
;	CASE 0
;		LOCALS:2 = 調教
;	CASE 1
;		LOCALS:2 = の秘密
;	CASE 2
;		LOCALS:2 = の罠
;	CASE 3
;		LOCALS:2 = のオークション
;	CASE 4
;		LOCALS:2 = の素顔
;	CASE 5
;		LOCALS:2 = の秘め事
;	CASEELSE
;		LOCALS:2 = 飼育
;ENDSELECT
;IF TFLAG:36 > 1000
;	CSTR:39 = %LOCALS:0%
;	CSTR:42 = %LOCALS:1%
;	CSTR:43 = %LOCALS:2%
;ENDIF
;CALL DIARY_SET,NAME:TARGET+"のAVを撮影した。 タイトル名:「"+LOCALS:0+CSTR:40+LOCALS:1+LOCALS:2+"」"
;PRINTFORML 録画したビデオ「%LOCALS:0%%CSTR:40%%LOCALS:1%%LOCALS:2%」は{TFLAG:36}程度の値が付きそうだ
;PRINTL 録画したビデオをどうするか選択してください
;PRINTL [0] - 売る
;PRINTL [1] - 손元に残す
;DRAWLINE
;
;$INPUT_LOOP
;INPUT
;IF RESULT == 0
;	PRINTFORML 調教時に録画したビデオを売って、{TFLAG:36}손に入れました
;	MONEY += TFLAG:36
;	IF TFLAG:36 > 1000
;		PRINTL 高額ビデオの販売により、[AV녀]のタレントを得ました。
;		TALENT:AV녀 = 1
;	ENDIF
;
;	;ビデオ売上記録
;	CFLAG:180 += TFLAG:36
;
;	;トロフィー機能が定義されていた場合、トロフィー獲得を行う
;	[IF TROPHY_DEFINE]
;		CALL GET_TROPHY, TROPHY_TIME_SELLVIDEO
;	[ENDIF]
;	TFLAG:36 = 0
;	;イベント입上呼び出し(ビデオ売却時）
;	TFLAG:13 = 19
;	CALL KOJO_MESSAGE_EVENT
;
;ELSEIF RESULT == 1
;	PRINTFORML 調教時に録画したビデオを손元に残しておいた
;	CFLAG:20 += 1
;	;イベント입上呼び出し(ビデオ保有時）
;	TFLAG:13 = 23
;	CALL KOJO_MESSAGE_EVENT
;ELSE
;	GOTO INPUT_LOOP
;ENDIF
;DRAWLINE
;

@GET_VIDEO_MAXINDEX(targetChara)
#FUNCTION
#DIM targetChara
#DIM answer
answer = FINDELEMENT(CFLAG:targetChara:0,0,1030,1040)
IF answer == 1030
	answer = -1
ELSEIF answer == -1
	answer = 1039
ELSE
	answer--
ENDIF
RETURNF answer

@GET_VIDEO_COUNT(targetChara)
#FUNCTION
#DIM targetChara
#DIM maxIndex
maxIndex = GET_VIDEO_MAXINDEX(targetChara)
RETURNF (maxIndex == -1 ? 0 # maxIndex - 1029)

@GET_VIDEO_PRICE(targetChara,videoIndex)
#FUNCTION
#DIM targetChara
#DIM videoIndex
RETURNF CFLAG:targetChara:(videoIndex + 1030)

@GET_VIDEO_MAXPRICEINDEX(targetChara)
#FUNCTION
#DIM targetChara
#DIM maxPrice
maxPrice = MAXARRAY(CFLAG:targetChara:0,1030,1040)
SIF maxPrice == 0
	RETURNF -1
RETURNF FINDELEMENT(CFLAG:targetChara:0,maxPrice,1030,1040) - 1030

@GET_VIDEO_PLAYTYPE(targetChara,videoIndex)
#FUNCTION
#DIM targetChara
#DIM videoIndex
RETURNF CFLAG:targetChara:(videoIndex + 1040)

@GET_VIDEO_TRAINCOUNT(targetChara,videoIndex)
#FUNCTION
#DIM targetChara
#DIM videoIndex
RETURNF CFLAG:targetChara:(videoIndex + 1050)

@GET_VIDEO_NAME(targetChara,videoIndex)
#FUNCTIONS
#DIM targetChara
#DIM videoIndex
RETURNF CSTR:targetChara:(videoIndex + 1030)

@GET_VIDEO_CHARA_DATAMAP(targetChara,videoIndex,dataType="ABL")
#FUNCTIONS
#DIM targetChara
#DIM videoIndex
#DIMS dataType
#DIM offsetValue
SELECTCASE dataType
	CASE "ABL"
		offsetValue = 1040
	CASE "TALENT"
		offsetValue = 1050
	CASEELSE
		THROW dataTypeが不正です。 : %dataType%
ENDSELECT
RETURNF CSTR:targetChara:(videoIndex + offsetValue)