code:
;-------------------------------------------------
;騎乗乳房자위
;セックス・애무系派生コマンド
;-------------------------------------------------
@COM505
#DIM HOZONP
CALL SET_COLOR_STATUS,3
IF TEQUIP:28 || TEQUIP:43
	PRINT 공개
ENDIF
PRINTL 승마유방자위
RESETCOLOR

HOZONP = PLAYER
;主人に기승위中は一時的にPLAYERをMASTERにする
SIF TEQUIP:37 == 66 || TEQUIP:38 == 67
	PLAYER = MASTER

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

;すべての命令に共通の要素を考慮
;(순종が高いと命令に従いやすいなど)
CALL COM_ORDER

;ABL:욕망
IF ABL:1
	SIF S
		PRINT  +
	A += ABL:1 * 3
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
	S = 1
ENDIF
;ABL:Ｖ감각
IF ABL:4
	SIF S
		PRINT  +
	A += ABL:4 * 2
	PRINTS ABLNAME:4
	PRINTV 'LV,ABL:4,'(,ABL:4 * 2,')
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	SIF S
		PRINT  +
	A += ABL:7 * 4
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	S = 1
ENDIF
;ABL:섹스중독
IF ABL:18
	SIF S
		PRINT  +
	A += ABL:18 * 1
	PRINTS ABLNAME:18
	PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
	S = 1
ENDIF
;ABL:노출증
IF ABL:8
	SIF S
		PRINT  +
	A += ABL:8 * 4
	PRINTS ABLNAME:8
	PRINTV 'LV,ABL:8,'(,ABL:8 * 4,')
	S = 1
ENDIF
;ABL:자위중독
IF ABL:15
	SIF S
		PRINT  +
	A += ABL:15 * 3
	PRINTS ABLNAME:15
	PRINTV 'LV,ABL:15,'(,ABL:15 * 3,')
	S = 1
ENDIF

IF MARK:1
	SIF S
		PRINT  +
	A += MARK:1 * 3
	PRINTS MARKNAME:1
	PRINTV 'LV,MARK:1,'(,MARK:1 * 3,')
	S = 1
ENDIF

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	SIF S
		PRINT  +
	A += L * 3
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	S = 1
ENDIF
;'
;자제심
IF TALENT:50
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:50
	PRINTV '(,5,')
	S = 1
ENDIF
;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:85
	PRINTV '(,5,')
	S = 1
ENDIF
;수치심없음
IF TALENT:86
	SIF S
		PRINT  +
	A += 2
	PRINTS TALENTNAME:86
	PRINTV '(,2,')
	S = 1
ENDIF
;자위하기쉬움
IF TALENT:150
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:150
	PRINTV '(,5,')
	S = 1
ENDIF
;쾌감에솔직
IF TALENT:170
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:170
	PRINTV '(,5,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:171
	PRINTV '(,5,')
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:192
	PRINTV '(,12,')
	S = 1
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF

;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF

;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	S = 1
ENDIF

;성악
IF TALENT:35
	PRINT  +
	A += 3
	PRINTS TALENTNAME:35
	PRINTV '(,3,')
	S = 1
ENDIF

;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF

;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	S = 1
ENDIF

;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:159
	PRINTV '(,10,')
	S = 1
ENDIF
;걸레녀
IF TALENT:158
	PRINT  +
	A += 8
	PRINTS TALENTNAME:158
	PRINTV '(,8,')
	S = 1
ENDIF
;Ｂ열등감
IF TALENT:89
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:89
	PRINTV '(,5,')
	S = 1
ENDIF

;영구발정
IF TALENT:178
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	S = 1
ENDIF
;연모
IF TALENT:3 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	S = 10
ENDIF

;처녀
IF TALENT:0
	PRINT  -
	A -= 40
	PRINTS TALENTNAME:0
	PRINTV '(,40,')
	S = 1
ELSEIF EXP:0 < EXPLV:2
	PRINT  -
	A -= 5
	PRINTS EXPNAME:0
	PRINT 부족
	PRINTV '(,5,')
	S = 1
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:139
	SIF S
		PRINT  +
	A += 4
	PRINTS TALENTNAME:139
	PRINTV '(,4,')
	S = 1
ENDIF

;미약
IF TEQUIP:26
	SIF S
		PRINT  +
	A += 8
	PRINTS ITEMNAME:21
	PRINTV '(,8,')
	S = 1
ENDIF

Y = 0
;愛液の汚れ
SIF STAIN:PLAYER:2 & 1
	Y += 1
;精液の汚れ
SIF STAIN:PLAYER:2 & 4
	Y += 3
;애널の汚れ
SIF STAIN:PLAYER:2 & 8
	Y += 7
SIF STAIN:PLAYER:2 & 16
	Y += 15

SIF TALENT:151
	Y /= 3
SIF TALENT:152
	Y *= 2

;기승위では汚れの影響が少なめ
Y /= 3

;汚れあり
IF Y
	PRINT  -
	A -= Y
	;악취둔감
	IF TALENT:151
		PRINT 더러움있음、
		PRINTS TALENTNAME:151
	ELSEIF TALENT:152
		PRINT 더러움있음、
		PRINTS TALENTNAME:152
	ELSE
		PRINT 더러움있음
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

;合計を表示(50以上で実行)
PRINT  =
PRINTV A

V = 50

;難易度上昇
;公開で+10、착유기で+5
SIF TEQUIP:28
	V += 10
SIF TEQUIP:17
	V += 5

SIF A < V
	PRINT  <
SIF A == V
	PRINT  =
SIF A > V
	PRINT  >
PRINT 실행치
PRINTV V
WAIT

;実行できない
SIF A < V
	RETURN 0

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 騎乗乳房자위
SELECTCOM = 505
CALL KOJO_MESSAGE_COM

;TFLAG:40は派生元で設定することにしました
;派生元を見る
;기승위からの派生の場合
IF PREVCOM == 66 || SELECTCOM == 66 || TEQUIP:37 == 66
;	TFLAG:40 = 1
;	;V経験を伴うコマンドのフラグ(처녀膜再生対応)
	TFLAG:19 = 1
;	SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
;		TFLAG:20 = 1
;기승위애널からの派生の場合
;ELSEIF PREVCOM == 67 || SELECTCOM == 67 || TEQUIP:38 == 67
;	TFLAG:40 = 2
ENDIF

TEQUIP:39 = 0
TEQUIP:40 = 0
IF !ASSIPLAY
	SELECTCASE PREVCOM
		CASE 505
			;아무것도안한다
		CASE 10,66,67
			TEQUIP:37 = 66 * (2 - TFLAG:40)
			TEQUIP:38 = 67 * (TFLAG:40 - 1)
		CASEELSE
			;아무것도안한다
	ENDSELECT
ENDIF

;実行者が奴隷であるフラグ
TFLAG:28 = 1

;처녀喪失時のテキスト用処理
SIF TFLAG:60 && PREVCOM == 66 && ((ASSIPLAY && TFLAG:50) || (ASSIPLAY == 0 && TFLAG:50 == 0)) && TFLAG:31
	TFLAG:31 = 2
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2000

;ABL:기교をみる
IF ABL:2 == 0
	TIMES B , 1.00
ELSEIF ABL:2 == 1
	TIMES B , 1.10
ELSEIF ABL:2 == 2
	TIMES B , 1.20
ELSEIF ABL:2 == 3
	TIMES B , 1.30
ELSEIF ABL:2 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;PALAM:윤활
IF PALAM:4 < PALAMLV:1
	TIMES B , 0.20
ELSEIF PALAM:4 < PALAMLV:2
	TIMES B , 0.50
ELSEIF PALAM:4 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:4 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:4 < PALAMLV:5
	TIMES B , 1.50
ELSE
	TIMES B , 2.00
ENDIF

;PALAM:욕정
IF PALAM:5 < PALAMLV:1
	TIMES B , 0.60
ELSEIF PALAM:5 < PALAMLV:2
	TIMES B , 0.80
ELSEIF PALAM:5 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:5 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:5 < PALAMLV:5
	TIMES B , 1.40
ELSE
	TIMES B , 1.70
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:욕망をみる
IF ABL:1 == 0
	TIMES B , 1.00
ELSEIF ABL:1 == 1
	TIMES B , 1.10
ELSEIF ABL:1 == 2
	TIMES B , 1.20
ELSEIF ABL:1 == 3
	TIMES B , 1.30
ELSEIF ABL:1 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;ABL:봉사정신をみる
IF ABL:7 == 0
	TIMES B , 0.50
ELSEIF ABL:7 == 1
	TIMES B , 0.80
ELSEIF ABL:7 == 2
	TIMES B , 1.20
ELSEIF ABL:7 == 3
	TIMES B , 1.50
ELSEIF ABL:7 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;기승위からの派生の場合
IF TFLAG:40 == 1
	;EXP:Ｖ경험をみる
	;처녀だと増える
	SIF EXP:0 < EXPLV:1
		TIMES B , 1.50
ENDIF

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 80
LOSEBASE:1 += 180

SOURCE:쾌Ｂ = 200
SOURCE:정애 = 300
SOURCE:성행동 = 300
SOURCE:달성감 = 300
SOURCE:중독충족 = 400
SOURCE:노출 = 200
SOURCE:일탈 = 700
SOURCE:반발 = 900
;上のほうで計算した汚れデータ
SOURCE:불결 = Y*10 + 60
;기승위からの派生の場合
IF TFLAG:40 == 1
	SOURCE:쾌Ｖ = 500
	SOURCE:아픔 = 500
ENDIF
;기승위애널からの派生の場合
IF TFLAG:40 == 2
	SOURCE:쾌Ａ = 500
	SOURCE:아픔 = 800
	SOURCE:일탈 += 100
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;겁쟁이持ちは두려움、노출、우울、반감ソース追加、
IF TALENT:20
	SOURCE:두려움 += 150
	SOURCE:노출 += 100
	SOURCE:우울 += 150
	SOURCE:반발 += 200
ENDIF
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1200
SIF TALENT:84
	SOURCE:우울 += 1200
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 500
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 900
;Ｂ열등감には、노출のソースと억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
IF TALENT:89
	SOURCE:노출 += 300
	SOURCE:우울 += 450
ENDIF
;공주님소망には、일탈のソース追加（애널派生のみ）
SIF TALENT:199 && TFLAG:40 == 2
	SOURCE:일탈 += 500
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0) && TFLAG:40 == 1
	SOURCE:반발 += 1000

;처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:0 == 1 && TFLAG:40 == 1
	SOURCE:아픔 += 2000
	SOURCE:반발 += 3000
ENDIF

;재생처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:1 == 1 && TFLAG:40 == 1
	SOURCE:아픔 += 500
	SOURCE:반발 += 1000
ENDIF
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、일탈ソース、반감ソース追加
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 60
		SOURCE:욕정 += 50
		SOURCE:노출 += 200
		SOURCE:굴종 += 200
		SOURCE:일탈 += 100
		SOURCE:반발 += 200
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 60
		SOURCE:욕정 += 50
		SOURCE:노출 += 200
		SOURCE:굴종 += 200
		SOURCE:일탈 += 100
		SOURCE:반발 += 200
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 60
	SOURCE:욕정 += 50
	SOURCE:노출 += 200
	SOURCE:굴종 += 200
	SOURCE:일탈 += 100
	SOURCE:반발 += 200
ENDIF

;調教者か助손が고무なら쾌Ｂ、達成ソース追加、일탈반감ソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:쾌Ｂ += 50
		SOURCE:달성감 += 50
		SOURCE:일탈 -= 50
		SOURCE:반발 -= 50
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:쾌Ｂ += 50
		SOURCE:달성감 += 50
		SOURCE:일탈 -= 50
		SOURCE:반발 -= 50
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:쾌Ｂ += 50
	SOURCE:달성감 += 50
	SOURCE:일탈 -= 50
	SOURCE:반발 -= 50
ENDIF
;기승위からの派生の場合
IF TFLAG:40 == 1
	;Vへの고통は先に処理しておく
	;EXP:Ｖ경험をみる（처녀の반감は別途処理済みなので省略）
	IF EXP:0 < EXPLV:1
		TIMES SOURCE:아픔 , 2.50
	ELSEIF EXP:0 < EXPLV:2
		TIMES SOURCE:아픔 , 0.80
		TIMES SOURCE:반발 , 1.20
	ELSEIF EXP:0 < EXPLV:3
		TIMES SOURCE:아픔 , 0.40
	ELSEIF EXP:0 < EXPLV:4
		TIMES SOURCE:아픔 , 0.10
	ELSEIF EXP:0 < EXPLV:5
		TIMES SOURCE:아픔 , 0.00
	ELSEIF EXP:0 >= EXPLV:5
		TIMES SOURCE:아픔 , 0.00
	ENDIF

	;PALAM:윤활をみる
	IF PALAM:4 < PALAMLV:1
		TIMES SOURCE:아픔 , 1.20
		TIMES SOURCE:반발 , 1.50
	ELSEIF PALAM:4 < PALAMLV:2
		TIMES SOURCE:아픔 , 0.70
		TIMES SOURCE:반발 , 1.20
	ELSEIF PALAM:4 < PALAMLV:3
		TIMES SOURCE:아픔 , 0.40
	ELSEIF PALAM:4 < PALAMLV:4
		TIMES SOURCE:아픔 , 0.10
	ELSEIF PALAM:4 >= PALAMLV:4
		TIMES SOURCE:아픔 , 0.10
	ENDIF
ENDIF

;기승위애널からの派生の場合
IF TFLAG:40 == 2
	;Aへの고통は先に処理しておく
	;EXP:Ａ경험をみる
	IF EXP:1 < EXPLV:1
		TIMES SOURCE:아픔 , 3.00
		TIMES SOURCE:반발 , 3.00
	ELSEIF EXP:1 < EXPLV:2
		TIMES SOURCE:아픔 , 1.20
		TIMES SOURCE:반발 , 2.00
	ELSEIF EXP:1 < EXPLV:3
		TIMES SOURCE:아픔 , 0.80
		TIMES SOURCE:반발 , 1.50
	ELSEIF EXP:1 < EXPLV:4
		TIMES SOURCE:아픔 , 0.60
		TIMES SOURCE:반발 , 1.20
	ELSEIF EXP:1 < EXPLV:5
		TIMES SOURCE:아픔 , 0.40
	ELSEIF EXP:1 >= EXPLV:5
		TIMES SOURCE:아픔 , 0.20
	ENDIF

	;PALAM:윤활をみる
	IF PALAM:4 < PALAMLV:1
		TIMES SOURCE:아픔 , 1.20
		TIMES SOURCE:반발 , 2.00
	ELSEIF PALAM:4 < PALAMLV:2
		TIMES SOURCE:아픔 , 1.00
		TIMES SOURCE:반발 , 1.50
	ELSEIF PALAM:4 < PALAMLV:3
		TIMES SOURCE:아픔 , 0.60
	ELSEIF PALAM:4 < PALAMLV:4
		TIMES SOURCE:아픔 , 0.30
	ELSEIF PALAM:4 >= PALAMLV:4
		TIMES SOURCE:아픔 , 0.20
	ENDIF
ENDIF

;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;자위중독を見る
IF ABL:15 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:15 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:15 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:15 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:15 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:15 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:15 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:15 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:15 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:15 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158 && TFLAG:40 == 1
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199 && TFLAG:40 == 1
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	;기승위からの派生の場合
	IF TFLAG:40 == 1
		TFLAG:703 = 1
	;기승위애널からの派生の場合
	ELSEIF TFLAG:40 == 2
		TFLAG:703 = 2
	ENDIF
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;기승위からの派生の場合
IF TFLAG:40 == 1
	;질내に破瓜の血の汚れを付加
	SIF TALENT:0 == 1 || TALENT:1 == 1
		STAIN:6 |= 64
	;奴隷の질내⇔調教者のＰの汚れが移動
	STAIN:6 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:6
ENDIF

;기승위애널からの派生の場合
IF TFLAG:40 == 2
	;奴隷のＡ⇔調教者のＰの汚れが移動
	STAIN:4 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:4
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;자위경험
;ビデオ撮影時は経験にプラス
IF TEQUIP:28
	EXP:10 += 2
	PRINTL 자위경험＋２
	EXP:11 += 2
	PRINTL 조교자위경험＋２
ELSE
	EXP:10 += 1
	PRINTL 자위경험＋１
	EXP:11 += 1
	PRINTL 조교자위경험＋１
ENDIF
;기승위からの派生で처녀の場合は、後で一括処理する
IF TEQUIP:28 && CFLAG:3 == 0 && TALENT:0 == 0 && TFLAG:40 != 1
	EXP:50 += 1
	PRINTL 이상경험＋１
	CFLAG:3 = 1
ENDIF

;기승위からの派生の場合
IF TFLAG:40 == 1
	;이상경험
	;公開による이상경험と合わせて処理する
	IF TEQUIP:28 && CFLAG:3 == 0
		IF TALENT:0 == 1 && ASSIPLAY && TALENT:PLAYER:290 == 0
			EXP:50 += 4
			PRINTFORML %EXPNAME:50%＋４
		ELSEIF TALENT:0 == 1
			EXP:50 += 3
			PRINTFORML %EXPNAME:50%＋３
		ENDIF
		CFLAG:3 += 1
	ELSEIF TEQUIP:43 && CFLAG:3 == 0
		IF TALENT:0 == 1 && ASSIPLAY && TALENT:PLAYER:290 == 0
			EXP:50 += 4
			PRINTFORML %EXPNAME:50%＋４
		ELSEIF TALENT:0 == 1
			EXP:50 += 3
			PRINTFORML %EXPNAME:50%＋３
		ENDIF
		CFLAG:3 += 1
	ELSE
		IF TALENT:0 == 1 && ASSIPLAY && TALENT:PLAYER:290 == 0
			EXP:50 += 3
			PRINTFORML %EXPNAME:50%＋３
		ELSEIF TALENT:0 == 1
			EXP:50 += 2
			PRINTFORML %EXPNAME:50%＋２
		ENDIF
	ENDIF
	;V経験
	EXP:0 += 1
	PRINTL Ｖ경험＋１
ENDIF

;기승위애널からの派生の場合
IF TFLAG:40 == 2
	;A経験
	EXP:1 += 3
	PRINTL Ａ경험＋３
ENDIF

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1

;레즈경험
A = 10
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;Ｂ개발경험+1
A = 1
PRINTFORML %EXPNAME:15%+{A}
EXP:15 += A

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +4
	EXP:23 += 4
ENDIF

;의존도ベクトル
;기승위派生の場合
IF TFLAG:40 == 1
	TFLAG:33 = 2
;기승위애널派生の場合
ELSEIF TFLAG:40 == 2
	TFLAG:33 = 3
ENDIF

;의존도補正値(연모で2、친애で4）
IF TALENT:3 && ASSIPLAY == 0 && TFLAG:33 == 2
	TFLAG:30 += 2
ELSEIF TALENT:6 && ASSIPLAY == 0 && TFLAG:33 == 2
	TFLAG:30 += 4
ENDIF

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0 && TFLAG:33 == 3
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0 && TFLAG:33 == 3
	TFLAG:30 += 2
ENDIF

;의존도補正値(반하기쉬움）
SIF TALENT:90 && ASSIPLAY == 0 && TFLAG:33 == 2
	TFLAG:30 += 2

;奉仕快楽フラグ
TFLAG:100 = 1
;☆PLAYERを元に戻す
PLAYER = HOZONP

;消費時間5分
FLAG:24 -= 5

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;挿入Ｇスポ責め
;セックス系派生コマンド
;-------------------------------------------------
@COM506
CALL SET_COLOR_STATUS,3
PRINTL 삽입G스팟고문
RESETCOLOR
STR:0 = 挿入Ｇスポ責め
SELECTCOM = 506
CALL KOJO_MESSAGE_COM

;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1800

;ABL:調教者の기교をみる
IF ABL:PLAYER:2 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:2 == 1
	TIMES B , 1.20
ELSEIF ABL:PLAYER:2 == 2
	TIMES B , 1.40
ELSEIF ABL:PLAYER:2 == 3
	TIMES B , 1.60
ELSEIF ABL:PLAYER:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:욕망をみる
IF ABL:1 == 0
	TIMES B , 1.00
ELSEIF ABL:1 == 1
	TIMES B , 1.10
ELSEIF ABL:1 == 2
	TIMES B , 1.20
ELSEIF ABL:1 == 3
	TIMES B , 1.30
ELSEIF ABL:1 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES B , 0.60
ELSEIF PALAM:4 < PALAMLV:2
	TIMES B , 0.80
ELSEIF PALAM:4 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:4 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES B , 1.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;EXP:Ｖ경험をみる
;처녀だと増える
SIF EXP:0 < EXPLV:1
	TIMES B , 1.50

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 60
LOSEBASE:1 += 120

SOURCE:쾌Ｖ = 500
SOURCE:정애 = 200
SOURCE:아픔 = 500
SOURCE:중독충족 = 300
SOURCE:노출 = 100
SOURCE:반발 = 500

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 700
SIF TALENT:84
	SOURCE:우울 += 700
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 700
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 500

;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

;처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:0 == 1
	SOURCE:아픔 += 2000
	SOURCE:반발 += 3000
ENDIF

;재생처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:1 == 1
	SOURCE:아픔 += 500
	SOURCE:반발 += 1000
ENDIF

;Vへの고통は先に処理しておく
;EXP:Ｖ경험をみる（처녀の반감は別途処理済みなので省略）
IF EXP:0 < EXPLV:1
	TIMES SOURCE:아픔 , 2.50
ELSEIF EXP:0 < EXPLV:2
	TIMES SOURCE:아픔 , 0.80
	TIMES SOURCE:반발 , 1.20
ELSEIF EXP:0 < EXPLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF EXP:0 < EXPLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF EXP:0 < EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 1.50
ELSEIF PALAM:4 < PALAMLV:2
	TIMES SOURCE:아픔 , 0.70
	TIMES SOURCE:반발 , 1.20
ELSEIF PALAM:4 < PALAMLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF PALAM:4 < PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ENDIF

;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158 && TFLAG:40 == 1
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199 && TFLAG:40 == 1
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	TFLAG:703 = 1
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
;질내に破瓜の血の汚れを付加
SIF TALENT:0 == 1 || TALENT:1 == 1
	STAIN:6 |= 64
;奴隷の질내⇔調教者のＰの汚れが移動
STAIN:6 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:6

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:0 += 1
PRINTL Ｖ경험＋１

;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += A

A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(연모で1、친애で2）
IF TALENT:3 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:6 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;消費時間5分
FLAG:24 -= 5

TFLAG:301 = 10

RETURN 1

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;挿入子宮입責め
;系コマンド、レベル
;-------------------------------------------------
@COM507
CALL SET_COLOR_STATUS,3
PRINTL 삽입자궁구고문
RESETCOLOR
STR:0 = 挿入子宮입責め
SELECTCOM = 507
CALL KOJO_MESSAGE_COM

;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2300

;ABL:調教者の기교をみる
IF ABL:PLAYER:2 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:2 == 1
	TIMES B , 1.20
ELSEIF ABL:PLAYER:2 == 2
	TIMES B , 1.40
ELSEIF ABL:PLAYER:2 == 3
	TIMES B , 1.60
ELSEIF ABL:PLAYER:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:욕망をみる
IF ABL:1 == 0
	TIMES B , 1.00
ELSEIF ABL:1 == 1
	TIMES B , 1.10
ELSEIF ABL:1 == 2
	TIMES B , 1.20
ELSEIF ABL:1 == 3
	TIMES B , 1.30
ELSEIF ABL:1 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES B , 0.60
ELSEIF PALAM:4 < PALAMLV:2
	TIMES B , 0.80
ELSEIF PALAM:4 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:4 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES B , 1.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;EXP:Ｖ경험をみる
;처녀だと増える
SIF EXP:0 < EXPLV:1
	TIMES B , 1.50

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 60
LOSEBASE:1 += 120

SOURCE:쾌Ｖ = 500
SOURCE:정애 = 200
SOURCE:아픔 = 400
SOURCE:중독충족 = 250
SOURCE:노출 = 120
SOURCE:반발 = 500

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 700
SIF TALENT:84
	SOURCE:우울 += 700
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 700
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 500
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

;처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:0 == 1
	SOURCE:아픔 += 2000
	SOURCE:반발 += 3000
ENDIF

;재생처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:1 == 1
	SOURCE:아픔 += 500
	SOURCE:반발 += 1000
ENDIF

;Vへの고통は先に処理しておく
;EXP:Ｖ경험をみる（처녀の반감は別途処理済みなので省略）
IF EXP:0 < EXPLV:1
	TIMES SOURCE:아픔 , 2.50
ELSEIF EXP:0 < EXPLV:2
	TIMES SOURCE:아픔 , 0.80
	TIMES SOURCE:반발 , 1.20
ELSEIF EXP:0 < EXPLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF EXP:0 < EXPLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF EXP:0 < EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 1.50
ELSEIF PALAM:4 < PALAMLV:2
	TIMES SOURCE:아픔 , 0.70
	TIMES SOURCE:반발 , 1.20
ELSEIF PALAM:4 < PALAMLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF PALAM:4 < PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ENDIF

;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158 && TFLAG:40 == 1
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199 && TFLAG:40 == 1
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	TFLAG:703 = 1
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
;질내に破瓜の血の汚れを付加
SIF TALENT:0 == 1 || TALENT:1 == 1
	STAIN:6 |= 64
;奴隷の질내⇔調教者のＰの汚れが移動
STAIN:6 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:6

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:0 += 1
PRINTL Ｖ경험＋１

;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += A

A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(연모で1、친애で2）
IF TALENT:3 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:6 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;消費時間5分
FLAG:24 -= 5

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;６９파이즈리
;奉仕系派生コマンド
;-------------------------------------------------
@COM508
CALL SET_COLOR_STATUS,3
PRINTL ６９파이즈리
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

;すべての命令に共通の要素を考慮
;(순종が高いと命令に従いやすいなど)
CALL COM_ORDER

;ABL:욕망
IF ABL:1
	SIF S
		PRINT  +
	A += ABL:1 * 1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 1,')
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	SIF S
		PRINT  +
	A += ABL:7 * 4
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	S = 1
ENDIF
;ABL:정액중독
IF ABL:16
	SIF S
		PRINT  +
	A += ABL:16 * 3
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 3,')
	S = 1
ENDIF

IF MARK:1
	SIF S
		PRINT  +
	A += MARK:1 * 1
	PRINTS MARKNAME:1
	PRINTV 'LV,MARK:1,'(,MARK:1 * 1,')
	S = 1
ENDIF

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	SIF S
		PRINT  +
	A += L * 1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 1,')
	S = 1
ENDIF

;'부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:85
	PRINTV '(,3,')
	S = 1
ENDIF
;악취둔감
IF TALENT:151
	SIF S
		PRINT  +
	A += 1
	PRINTS TALENTNAME:151
	PRINTV '(,1,')
	S = 1
ENDIF
;악취민감
IF TALENT:152
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:152
	PRINTV '(,3,')
	S = 1
ENDIF
;헌신적
IF TALENT:153
	SIF S
		PRINT  +
	A += 6
	PRINTS TALENTNAME:153
	PRINTV '(,6,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:192
	PRINTV '(,12,')
	S = 1
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF
;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:34
	PRINTV '(,3,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:60
	PRINTV '(,5,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	S = 1
ENDIF
;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	S = 1
ENDIF
;Ｂ열등감
IF TALENT:89
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:89
	PRINTV '(,5,')
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	S = 1
ENDIF
;공주님소망
IF TALENT:199
	PRINT  +
	A += 2
	PRINTS TALENTNAME:199
	PRINTV '(,2,')
	S = 1
ENDIF
;연모
IF TALENT:3 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	S = 10
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	SIF S
		PRINT  +
	A += 8
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	S = 1
ENDIF

Y = 0
;愛液の汚れ
SIF STAIN:PLAYER:2 & 1
	Y += 1
;精液の汚れ
SIF STAIN:PLAYER:2 & 4
	Y += 3
;애널の汚れ
SIF STAIN:PLAYER:2 & 8
	Y += 7
SIF STAIN:PLAYER:2 & 16
	Y += 15

SIF TALENT:151
	Y /= 3
SIF TALENT:152
	Y *= 2
;汚れあり
IF Y
	PRINT  -
	A -= Y
	;악취둔감
	IF TALENT:151
		PRINT 더러움있음、
		PRINTS TALENTNAME:151
	ELSEIF TALENT:152
		PRINT 더러움있음、
		PRINTS TALENTNAME:152
	ELSE
		PRINT 더러움있음
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

;合計を表示(34以上で実行)
PRINT  =
PRINTV A

V = 34
SIF A < V
	PRINT  <
SIF A == V
	PRINT  =
SIF A > V
	PRINT  >
PRINT 실행치
PRINTV V

WAIT

;実行できない
SIF A < V
	RETURN 0

;가슴奉仕既にしている場合は変更なし
IF !ASSIPLAY && !TFLAG:50 && !(TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88)
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 82
	TEQUIP:40 = 0
ENDIF

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = ６９파이즈리
SELECTCOM = 508
CALL KOJO_MESSAGE_COM

;実行者が奴隷であるフラグ
TFLAG:28 = 1

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2500

;ABL:調教者の기교をみる
IF ABL:2 == 0
	TIMES B , 1.00
ELSEIF ABL:2 == 1
	TIMES B , 1.20
ELSEIF ABL:2 == 2
	TIMES B , 1.40
ELSEIF ABL:2 == 3
	TIMES B , 1.60
ELSEIF ABL:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:봉사정신をみる
IF ABL:7 == 0
	TIMES B , 0.50
ELSEIF ABL:7 == 1
	TIMES B , 0.80
ELSEIF ABL:7 == 2
	TIMES B , 1.20
ELSEIF ABL:7 == 3
	TIMES B , 1.50
ELSEIF ABL:7 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.40
ENDIF

;TALENT:혀놀림、고양이혀をみる
SIF TALENT:122 || TALENT:124
	TIMES B , 2.00

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 10
LOSEBASE:1 += 100

SOURCE:쾌Ｃ = 150
SOURCE:쾌Ｂ = 150
SOURCE:정애 = 200
SOURCE:성행동 = 500
SOURCE:달성감 = 300
SOURCE:액체 = 80
SOURCE:노출 = 100
SOURCE:굴종 = 1200
SOURCE:일탈 = 700
SOURCE:반발 = 700

;上のほうで計算した汚れデータ
SOURCE:불결 = Y*10 + 60

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1000
SIF TALENT:84
	SOURCE:우울 += 1000
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
SIF TALENT:89
	SOURCE:우울 += 1500

;舌を使う調教では、調教者の혀놀림によって、快感のソース増加
SIF TALENT:PLAYER:122
	TIMES SOURCE:쾌Ｃ , 1.50
;調教者が헌신적なら全ソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:노출 , 1.30
ENDIF
;고양이혀では減少
SIF TALENT:PLAYER:124
	TIMES SOURCE:쾌Ｃ , 0.75
;공주님소망には、정애と성행동と達成のソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 1.50
	TIMES SOURCE:성행동 , 1.50
	TIMES SOURCE:달성감 , 1.50
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	TFLAG:703 = 4
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷のＢ⇔調教者のＰの汚れが移動
STAIN:5 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:5
;奴隷のＶ⇔調教者の입の汚れが移動
STAIN:3 |= STAIN:PLAYER:0
STAIN:PLAYER:0 |= STAIN:3

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 7
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;Ｂ개발경험+1
A = 1
PRINTFORML %EXPNAME:15%+{A}
EXP:15 += A

;애정경험
IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ENDIF

;奴隷が고양이혀持ちの場合は、調教者に가학쾌락경험を追加
IF TALENT:TARGET:124
	EXP:32 += 1
	PRINTFORML %EXPNAME:32%＋１
ENDIF

;의존도ベクトル
TFLAG:33 = 2

;의존도補正値(主人かつ연모、음란、복종で1。친애、창녀、예속で2）
IF (TALENT:3 || TALENT:4 || TALENT:5) && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF (TALENT:6 || TALENT:7 || TALENT:8) && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;의존도補正値(반하기쉬움）
SIF TALENT:90 && ASSIPLAY == 0
	TFLAG:30 += 4

;의존도補正値(공주님소망）
SIF TALENT:199 && ASSIPLAY == 0
	TFLAG:30 += 2

;奉仕快楽フラグ
TFLAG:100 = 1

;消費時間5分
FLAG:24 -= 5

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;搾乳
;애무系派生コマンド
;-------------------------------------------------
@COM509
CALL SET_COLOR_STATUS,3
PRINTL 착유
RESETCOLOR
STR:0 = 搾乳
SELECTCOM = 509
CALL KOJO_MESSAGE_COM

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 20
LOSEBASE:1 += 100

SOURCE:쾌Ｂ = 100
SOURCE:정애 = 40
SOURCE:노출 = 100
SOURCE:불결 = 50
SOURCE:반발 = 100

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 200
SIF TALENT:84
	SOURCE:우울 += 200
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 150
;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
SIF TALENT:89
	SOURCE:우울 += 300
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 320
;調教者がＢ열등감の場合、快感のソースと아픔のソースと반감のソース追加
IF TALENT:PLAYER:89
	SOURCE:쾌Ｂ += 100
	SOURCE:아픔 += 500
	SOURCE:반발 += 140
ENDIF
;調教者が헌신적なら全ソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:정애 , 1.50
	TIMES SOURCE:성행동 , 1.50
	TIMES SOURCE:노출 , 1.50
ENDIF
;調教者が［유치］か［유아퇴행］
IF TALENT:PLAYER:300 || TALENT:PLAYER:301
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:정애 , 1.20
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷のＢ⇔調教者の指の汚れが移動
	STAIN:5 |= STAIN:PLAYER:1
	STAIN:PLAYER:1 |= STAIN:5

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 7
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;Ｂ개발경험+1
A = 1
PRINTFORML %EXPNAME:15%+{A}
EXP:15 += A

;애정경험
IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;消費時間5分
FLAG:24 -= 5

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;ダブル스마타
;奉仕、レズ系派生コマンド
;-------------------------------------------------
@COM510
CALL SET_COLOR_STATUS,3
PRINTL 더블 스마타
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

;すべての命令に共通の要素を考慮
;(순종が高いと命令に従いやすいなど)
CALL COM_ORDER

;ABL:욕망
IF ABL:1
	SIF S
		PRINT  +
	A += ABL:1 * 2
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 2,')
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	SIF S
		PRINT  +
	A += ABL:7 * 4
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	S = 1
ENDIF
;ABL:정액중독
IF ABL:16
	SIF S
		PRINT  +
	A += ABL:16 * 1
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 1,')
	S = 1
ENDIF

IF MARK:1
	SIF S
		PRINT  +
	A += MARK:1 * 2
	PRINTS MARKNAME:1
	PRINTV 'LV,MARK:1,'(,MARK:1 * 2,')
	S = 1
ENDIF

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	SIF S
		PRINT  +
	A += L * 3
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	S = 1
ENDIF

;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:85
	PRINTV '(,1,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:192
	PRINTV '(,5,')
	S = 5
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF
;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 6
	PRINTS TALENTNAME:34
	PRINTV '(,6,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:60
	PRINTV '(,5,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 20
	PRINTS TALENTNAME:91
	PRINTV '(,20,')
	S = 1
ENDIF
;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	S = 1
ENDIF
;영구발정
IF TALENT:178
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	S = 1
ENDIF
;연모
IF TALENT:3 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 3
	PRINTS TALENTNAME:3
	PRINTV '(,3,')
	S = 3
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 6
	PRINTS TALENTNAME:6
	PRINTV '(,6,')
	S = 6
ENDIF
;교제
IF TALENT:교제 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 2
	PRINT 교제
	PRINTV '(,2,')
	S = 2
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	SIF S
		PRINT  +
	A += 8
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	S = 1
ENDIF

;미약
IF TEQUIP:26
	SIF S
		PRINT  +
	A += 6
	PRINTS ITEMNAME:41
	PRINTV '(,6,')
	S = 1
ENDIF

Y = 0
;愛液の汚れ
SIF STAIN:PLAYER:2 & 1
	Y += 1
;精液の汚れ
SIF STAIN:PLAYER:2 & 4
	Y += 3
;애널の汚れ
SIF STAIN:PLAYER:2 & 8
	Y += 7
SIF STAIN:PLAYER:2 & 16
	Y += 15

SIF TALENT:151
	Y /= 3
SIF TALENT:152
	Y *= 2

;스마타では汚れの影響が少なめ
Y /= 3

;汚れあり
IF Y
	PRINT  -
	A -= Y
	;악취둔감
	IF TALENT:151
		PRINT 더러움있음、
		PRINTS TALENTNAME:151
	ELSEIF TALENT:152
		PRINT 더러움있음、
		PRINTS TALENTNAME:152
	ELSE
		PRINT 더러움있음
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

;合計を表示(25以上で実行)
PRINT  =
PRINTV A

V = 25
SIF A < V
	PRINT  <
SIF A == V
	PRINT  =
SIF A > V
	PRINT  >
PRINT 실행치
PRINTV V

WAIT

;実行できない
SIF A < V
	RETURN 0

TEQUIP:37 = 0
TEQUIP:38 = 0
TEQUIP:39 = 0
TEQUIP:40 = 83

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = ダブル스마타
SELECTCOM = 510
CALL KOJO_MESSAGE_COM

;実行者が奴隷であるフラグ
TFLAG:28 = 1

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1400

;ABL:調教者の기교をみる
IF ABL:2 == 0
	TIMES B , 1.00
ELSEIF ABL:2 == 1
	TIMES B , 1.20
ELSEIF ABL:2 == 2
	TIMES B , 1.40
ELSEIF ABL:2 == 3
	TIMES B , 1.60
ELSEIF ABL:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:助손の기교をみる
IF ABL:ASSI:2 == 0
	TIMES B , 1.00
ELSEIF ABL:ASSI:2 == 1
	TIMES B , 1.20
ELSEIF ABL:ASSI:2 == 2
	TIMES B , 1.40
ELSEIF ABL:ASSI:2 == 3
	TIMES B , 1.60
ELSEIF ABL:ASSI:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:봉사정신をみる
IF ABL:7 == 0
	TIMES B , 0.50
ELSEIF ABL:7 == 1
	TIMES B , 0.80
ELSEIF ABL:7 == 2
	TIMES B , 1.20
ELSEIF ABL:7 == 3
	TIMES B , 1.50
ELSEIF ABL:7 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 40
LOSEBASE:1 += 160

SOURCE:쾌Ｃ = 170
SOURCE:정애 = 100
SOURCE:성행동 = 300
SOURCE:달성감 = 100
SOURCE:굴종 = 600
SOURCE:일탈 = 200
SOURCE:반발 = 200

;上のほうで計算した汚れデータ
SOURCE:불결 = Y*10 + 60

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 600
SIF TALENT:84
	SOURCE:우울 += 600
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 350
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 450
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	TFLAG:703 = 5
	;射精先選択の可・不可
	TFLAG:704 = 0
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
;奴隷のＶ⇔調教者のＰの汚れが移動
STAIN:3 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:3
;助손のＶ⇔調教者のＰの汚れが移動
STAIN:ASSI:3 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:ASSI:3
;奴隷のＶ⇔助손のＶの汚れが移動
STAIN:3 |= STAIN:ASSI:3
STAIN:ASSI:3 |= STAIN:3

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 7
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;의존도ベクトル
P = NO:PLAYER
IF RELATION:P > 100
	TFLAG:33 = 2
ELSEIF RELATION:P < 100
	TFLAG:33 = 3
ELSE
	TFLAG:33 = 1
ENDIF

;의존도補正値(相性100↑かつ음란で2、창녀で4）
P = NO:PLAYER
IF TALENT:4 && RELATION:P > 100
	TFLAG:30 += 2
ELSEIF TALENT:7 && RELATION:P > 100
	TFLAG:30 += 4
ENDIF

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;奉仕快楽フラグ
TFLAG:100 = 1

;消費時間10分
FLAG:24 -= 10

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;二本フェラ(奴隷に二本舐めさせる)
;奉仕、レズ系派生コマンド
;-------------------------------------------------
@COM511
CALL SET_COLOR_STATUS,3
PRINTL 2개 펠라
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

;すべての命令に共通の要素を考慮
;(순종が高いと命令に従いやすいなど)
CALL COM_ORDER

;ABL:욕망
IF ABL:1
	SIF S
		PRINT  +
	A += ABL:1 * 1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 1,')
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	SIF S
		PRINT  +
	A += ABL:7 * 4
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	S = 1
ENDIF
;ABL:정액중독
IF ABL:16
	SIF S
		PRINT  +
	A += ABL:16 * 3
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 3,')
	S = 1
ENDIF

IF MARK:1
	SIF S
		PRINT  +
	A += MARK:1 * 1
	PRINTS MARKNAME:1
	PRINTV 'LV,MARK:1,'(,MARK:1 * 1,')
	S = 1
ENDIF

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	SIF S
		PRINT  +
	A += L * 1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 1,')
	S = 1
ENDIF

;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:85
	PRINTV '(,1,')
	S = 1
ENDIF
;악취둔감
IF TALENT:151
	SIF S
		PRINT  +
	A += 1
	PRINTS TALENTNAME:151
	PRINTV '(,1,')
	S = 1
ENDIF
;악취민감
IF TALENT:152
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:152
	PRINTV '(,3,')
	S = 1
ENDIF
;헌신적
IF TALENT:153
	SIF S
		PRINT  +
	A += 6
	PRINTS TALENTNAME:153
	PRINTV '(,6,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:171
	PRINTV '(,1,')
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:192
	PRINTV '(,12,')
	S = 1
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF
;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 3
	PRINTS TALENTNAME:35
	PRINTV '(,3,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:60
	PRINTV '(,10,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	S = 1
ENDIF
;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	S = 1
ENDIF
;영구발정
IF TALENT:178
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	S = 1
ENDIF
;음란
IF TALENT:4 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:4
	PRINTV '(,5,')
	S = 5
ENDIF
;창녀
IF TALENT:7 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 20
	PRINTS TALENTNAME:7
	PRINTV '(,10,')
	S = 10
ENDIF
;調教者が후타나리
IF TALENT:PLAYER:289
	SIF S
		PRINT  +
	A += 8
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	S = 1
ENDIF

Y = 0
;愛液の汚れ
SIF STAIN:PLAYER:2 & 1
	Y += 1
;精液の汚れ
SIF STAIN:PLAYER:2 & 4
	Y += 3
;애널の汚れ
SIF STAIN:PLAYER:2 & 8
	Y += 7
SIF STAIN:PLAYER:2 & 16
	Y += 15

SIF TALENT:151
	Y /= 3
SIF TALENT:152
	Y *= 2

;汚れあり
IF Y
	PRINT  -
	A -= Y
	;악취둔감
	IF TALENT:151
		PRINT 더러움있음、
		PRINTS TALENTNAME:151
	ELSEIF TALENT:152
		PRINT 더러움있음、
		PRINTS TALENTNAME:152
	ELSE
		PRINT 더러움있음
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

;合計を表示(32以上で実行)
PRINT  =
PRINTV A

V = 32
SIF A < V
	PRINT  <
SIF A == V
	PRINT  =
SIF A > V
	PRINT  >
PRINT 실행치
PRINTV V

WAIT

;実行できない
SIF A < V
	RETURN 0

TEQUIP:37 = 0
TEQUIP:38 = 0
TEQUIP:39 = 81
TEQUIP:40 = 0

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 二本フェラ
SELECTCOM = 511
CALL KOJO_MESSAGE_COM

;実行者が奴隷であるフラグ
TFLAG:28 = 1

;-------------------------------------------------
;射精ゲージチェック（主人）
;-------------------------------------------------
B = 750

;ABL:調教者の기교をみる
IF ABL:2 == 0
	TIMES B , 1.00
ELSEIF ABL:2 == 1
	TIMES B , 1.20
ELSEIF ABL:2 == 2
	TIMES B , 1.40
ELSEIF ABL:2 == 3
	TIMES B , 1.60
ELSEIF ABL:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:봉사정신をみる
IF ABL:7 == 0
	TIMES B , 0.50
ELSEIF ABL:7 == 1
	TIMES B , 0.80
ELSEIF ABL:7 == 2
	TIMES B , 1.20
ELSEIF ABL:7 == 3
	TIMES B , 1.50
ELSEIF ABL:7 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.40
ENDIF

;TALENT:혀놀림、고양이혀をみる
SIF TALENT:122 || TALENT:124
	TIMES B , 2.00

;プレイヤーのABL:Ｃ감각をみる
IF ABL:MASTER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:MASTER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:MASTER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:MASTER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:MASTER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

SIF TALENT:MASTER:287 || TALENT:MASTER:289  || TALENT:MASTER:290
	BASE:MASTER:2 += B

;-------------------------------------------------
;射精ゲージチェック（助손）
;-------------------------------------------------
B = 750

;ABL:調教者の기교をみる
IF ABL:2 == 0
	TIMES B , 1.00
ELSEIF ABL:2 == 1
	TIMES B , 1.20
ELSEIF ABL:2 == 2
	TIMES B , 1.40
ELSEIF ABL:2 == 3
	TIMES B , 1.60
ELSEIF ABL:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:봉사정신をみる
IF ABL:7 == 0
	TIMES B , 0.50
ELSEIF ABL:7 == 1
	TIMES B , 0.80
ELSEIF ABL:7 == 2
	TIMES B , 1.20
ELSEIF ABL:7 == 3
	TIMES B , 1.50
ELSEIF ABL:7 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.40
ENDIF

;TALENT:혀놀림、고양이혀をみる
SIF TALENT:122 || TALENT:124
	TIMES B , 2.00

;プレイヤーのABL:Ｃ감각をみる
IF ABL:ASSI:3 == 0
	TIMES B , 1.00
ELSEIF ABL:ASSI:3 == 1
	TIMES B , 1.50
ELSEIF ABL:ASSI:3 == 2
	TIMES B , 2.00
ELSEIF ABL:ASSI:3 == 3
	TIMES B , 2.50
ELSEIF ABL:ASSI:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

SIF TALENT:ASSI:287 || TALENT:ASSI:289  || TALENT:ASSI:290
	BASE:ASSI:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 80
LOSEBASE:1 += 250

SOURCE:정애 = 150
SOURCE:성행동 = 400
SOURCE:달성감 = 300
SOURCE:굴종 = 1000
SOURCE:일탈 = 500
SOURCE:반발 = 500

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 900
SIF TALENT:84
	SOURCE:우울 += 900
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 900
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 700
;-------------------------------------------------
;射精チェック（主人）
;-------------------------------------------------
S = BASE:MASTER:2
EJAC = MAXBASE:MASTER:2

;射精限界が来ている場合は、射精ゲージは強制的に0にする
IF CFLAG:MASTER:11 == 0
	S = 0
	BASE:MASTER:2 = 0
ENDIF

IF  S > EJAC * 2
	E = 2
ELSEIF S > EJAC
	E = 1
ELSE
	E = 0
ENDIF

;射精時に중독충족のソースを追加
;通常射精時
SIF E == 1
	A = 200
;大量射精時
SIF E == 2
	A = 500

IF E > 0
	;정액중독を見る
	IF ABL:16 == 1
		TIMES A , 0.00
	ELSEIF ABL:16 == 2
		TIMES A , 0.30
	ELSEIF ABL:16 == 3
		TIMES A , 0.60
	ELSEIF ABL:16 == 4
		TIMES A , 0.90
	ELSEIF ABL:16 == 5
		TIMES A , 1.20
	ELSEIF ABL:16 == 6
		TIMES A , 1.50
	ELSEIF ABL:16 == 7
		TIMES A , 1.80
	ELSEIF ABL:16 == 8
		TIMES A , 2.30
	ELSEIF ABL:16 == 9
		TIMES A , 3.00
	ELSEIF ABL:16 >= 10
		TIMES A , 5.00
	ENDIF
ENDIF

SOURCE:중독충족 += A

;射精後は再装填の時間を設ける
;通常射精時
SIF E == 1
	CFLAG:MASTER:24 = 3
;大量射精時
SIF E == 2
	CFLAG:MASTER:24 = 5

;大量射精
IF E == 2

	EXP:MASTER:3 += 2
	EXP:20 += 9
	PRINTL 대량사정
	PRINTL 정액경험＋９
	;精液汚れ
	STAIN:MASTER:2 |= 4

	BASE:MASTER:2 -= EJAC*2
	SIF BASE:MASTER:2 >= EJAC
		BASE:MASTER:2 = EJAC-1

	;입で射精させたフラグ
	TFLAG:0 = 2
;通常の射精
ELSEIF E == 1
	EXP:MASTER:3 += 1
	EXP:20 += 3
	PRINTL 사정
	PRINTL 정액경험＋３
	;精液汚れ
	STAIN:MASTER:2 |= 4

	BASE:MASTER:2 -= EJAC
	SIF BASE:MASTER:2 >= EJAC
		BASE:MASTER:2 = EJAC-1

	;입で射精させたフラグ
	TFLAG:0 = 1
ENDIF

;-------------------------------------------------
;射精チェック（助손）
;-------------------------------------------------
S = BASE:ASSI:2
EJAC = MAXBASE:ASSI:2

;射精限界が来ている場合は、射精ゲージは強制的に0にする
IF CFLAG:ASSI:11 == 0
	S = 0
	BASE:ASSI:2 = 0
ENDIF

IF  S > EJAC * 2
	E = 2
ELSEIF S > EJAC
	E = 1
ELSE
	E = 0
ENDIF

;射精時に중독충족のソースを追加
;通常射精時
SIF E == 1
	A = 200
;大量射精時
SIF E == 2
	A = 500

IF E > 0
	;정액중독を見る
	IF ABL:16 == 1
		TIMES A , 0.00
	ELSEIF ABL:16 == 2
		TIMES A , 0.30
	ELSEIF ABL:16 == 3
		TIMES A , 0.60
	ELSEIF ABL:16 == 4
		TIMES A , 0.90
	ELSEIF ABL:16 == 5
		TIMES A , 1.20
	ELSEIF ABL:16 == 6
		TIMES A , 1.50
	ELSEIF ABL:16 == 7
		TIMES A , 1.80
	ELSEIF ABL:16 == 8
		TIMES A , 2.30
	ELSEIF ABL:16 == 9
		TIMES A , 3.00
	ELSEIF ABL:16 >= 10
		TIMES A , 5.00
	ENDIF
ENDIF

SOURCE:중독충족 += A

;射精後は再装填の時間を設ける
;通常射精時
SIF E == 1
	CFLAG:ASSI:24 = 3
;大量射精時
SIF E == 2
	CFLAG:ASSI:24 = 5

;大量射精
IF E == 2
	EXP:ASSI:3 += 2
	EXP:20 += 3
	PRINTL 대량사정（조수）
	PRINTL 정액경험＋３
	;Ｐに精液汚れ
	STAIN:ASSI:2 |= 4

	BASE:ASSI:2 -= EJAC*2
	SIF BASE:ASSI:2 >= EJAC
		BASE:ASSI:2 = EJAC-1
	;助손が射精フラグ
	TFLAG:6 = 2
;通常の射精
ELSEIF E == 1
	EXP:ASSI:3 += 1
	EXP:20 += 1
	PRINTL 사정（조수）
	PRINTL 정액경험＋１
	;Ｐに精液汚れ

	STAIN:ASSI:2 |= 4

	BASE:ASSI:2 -= EJAC
	SIF BASE:ASSI:2 >= EJAC
		BASE:ASSI:2 = EJAC-1
	;助손が射精フラグ
	TFLAG:6 = 1
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷の입⇔主人のＰの汚れが移動
IF TALENT:MASTER:289 || TALENT:MASTER:290
	STAIN:0 |= STAIN:MASTER:2
	STAIN:MASTER:2 |= STAIN:0
ENDIF
;奴隷の입⇔助손のＰの汚れが移動
IF TALENT:ASSI:289 || TALENT:ASSI:290
	STAIN:0 |= STAIN:ASSI:2
	STAIN:ASSI:2 |= STAIN:0
ENDIF

;봉사정신ＬＶ２以上、기교ＬＶ２以上なら汚れをなめ取る（볼개그使用時は除く）
IF ABL:7 >= 2 && ABL:2 >= 2 && TEQUIP:20 == 0
	STAIN:MASTER:2 = 2
	STAIN:ASSI:2 = 2
	SIF E >= 1
		TFLAG:8 = 1
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;펠라경험
PRINTFORML %EXPNAME:22%＋２
EXP:22 += 2

;레즈경험
IF TALENT:290 == 0 && TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +10
	EXP:40 += 10
ELSEIF TALENT:290 == 0 && TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 1
	PRINTS EXPNAME:40
	PRINTL +5
	EXP:40 += 5
ELSEIF TALENT:290 == 0 && TALENT:MASTER:290 == 1 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +5
	EXP:40 += 5
ENDIF

;게이경험
IF TALENT:290 == 1 && TALENT:MASTER:290 == 1 && TALENT:ASSI:290 == 1
	PRINTS EXPNAME:41
	PRINTL +10
	EXP:41 += 10
ELSEIF TALENT:290 == 1 && TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 1
	PRINTS EXPNAME:41
	PRINTL +5
	EXP:41 += 5
ELSEIF TALENT:290 == 1 && TALENT:MASTER:290 == 1 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:41
	PRINTL +5
	EXP:41 += 5
ENDIF

;奴隷が고양이혀持ちの場合は、調教者に가학쾌락경험を追加
IF TALENT:TARGET:124
	EXP:32 += 1
	PRINTFORML %EXPNAME:32%＋１
ENDIF

;의존도ベクトル
P = NO:PLAYER
IF RELATION:P > 100
	TFLAG:33 = 2
ELSEIF RELATION:P < 100
	TFLAG:33 = 3
ELSE
	TFLAG:33 = 1
ENDIF

;의존도補正値(相性100↑かつ음란で2、창녀で4）
P = NO:PLAYER
IF TALENT:4 && RELATION:P > 100
	TFLAG:30 += 2
ELSEIF TALENT:7 && RELATION:P > 100
	TFLAG:30 += 4
ENDIF

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;奉仕快楽フラグ
TFLAG:100 = 1

;消費時間10分
FLAG:24 -= 10

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;主人の페니스を抜く（膣）
;セックス系派生コマンド
;-------------------------------------------------
@COM512
#DIM HOZONP
SELECTCOM = 512

IF TEQUIP:37 ==60
	CALL SET_COLOR_STATUS,3
	PRINTL 정상위 종료
	RESETCOLOR
	STR:0 = 정상위終了
ELSEIF TEQUIP:37 == 61
CALL SET_COLOR_STATUS,3
	PRINTL 후배위 종료
	RESETCOLOR
	STR:0 = 후배위終了
ELSEIF TEQUIP:37 == 63
	CALL SET_COLOR_STATUS,3
	PRINTL 기승위 종료
	RESETCOLOR
	STR:0 = 기승위終了
ELSEIF TEQUIP:37 == 68
	CALL SET_COLOR_STATUS,3
	PRINTL 대면좌위 종료
	RESETCOLOR
	STR:0 = 대면좌위終了
ELSEIF TEQUIP:37 == 69
	CALL SET_COLOR_STATUS,3
	PRINTL 배면좌위 종료
	RESETCOLOR
	STR:0 = 배면좌위終了
ELSEIF TEQUIP:37 == 72
	CALL SET_COLOR_STATUS,3
	PRINTL 속옷제끼고삽입 종료
	RESETCOLOR
	STR:0 = 속옷제끼고삽입終了
ELSEIF TEQUIP:37 == 185
	CALL SET_COLOR_STATUS,3
	PRINTL 조수를범한다 종료
	RESETCOLOR
	STR:0 = 조수를범한다終了
ENDIF

CALL KOJO_MESSAGE_COM

;体位の初期化
IF TEQUIP:37 == 185
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0

	;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
	HOZONP = PLAYER
	PLAYER = MASTER
	;-------------------------------------------------
	;射精ゲージチェック
	;-------------------------------------------------
	B = 1500

	;ABL:調教者の기교をみる
	IF ABL:PLAYER:2 == 0
		TIMES B , 1.00
	ELSEIF ABL:PLAYER:2 == 1
		TIMES B , 1.20
	ELSEIF ABL:PLAYER:2 == 2
		TIMES B , 1.40
	ELSEIF ABL:PLAYER:2 == 3
		TIMES B , 1.60
	ELSEIF ABL:PLAYER:2 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.00
	ENDIF

	;ABL:助손の순종をみる
	IF ABL:ASSI:0 == 0
		TIMES B , 0.80
	ELSEIF ABL:ASSI:0 == 1
		TIMES B , 0.90
	ELSEIF ABL:ASSI:0 == 2
		TIMES B , 1.00
	ELSEIF ABL:ASSI:0 == 3
		TIMES B , 1.10
	ELSEIF ABL:ASSI:0 == 4
		TIMES B , 1.20
	ELSE
		TIMES B , 1.30
	ENDIF

	;ABL:助손の욕망をみる
	IF ABL:ASSI:1 == 0
		TIMES B , 1.00
	ELSEIF ABL:ASSI:1 == 1
		TIMES B , 1.10
	ELSEIF ABL:ASSI:1 == 2
		TIMES B , 1.20
	ELSEIF ABL:ASSI:1 == 3
		TIMES B , 1.30
	ELSEIF ABL:ASSI:1 == 4
		TIMES B , 1.40
	ELSE
		TIMES B , 1.50
	ENDIF

	;助손のEXP:Ｖ경험をみる
	IF EXP:ASSI:0 < EXPLV:1
		TIMES B , 0.20
	ELSEIF EXP:ASSI:0 < EXPLV:2
		TIMES B , 0.50
	ELSEIF EXP:ASSI:0 < EXPLV:3
		TIMES B , 0.80
	ELSEIF EXP:ASSI:0 < EXPLV:4
		TIMES B , 1.00
	ELSEIF EXP:ASSI:0 < EXPLV:5
		TIMES B , 1.20
	ELSE
		TIMES B , 1.40
	ENDIF

	;プレイヤーのABL:Ｃ감각をみる
	IF ABL:PLAYER:3 == 0
		TIMES B , 1.00
	ELSEIF ABL:PLAYER:3 == 1
		TIMES B , 1.50
	ELSEIF ABL:PLAYER:3 == 2
		TIMES B , 2.00
	ELSEIF ABL:PLAYER:3 == 3
		TIMES B , 2.50
	ELSEIF ABL:PLAYER:3 == 4
		TIMES B , 3.50
	ELSE
		TIMES B , 5.00
	ENDIF

	;再装填処理中は射精ゲージは20分の1に
	SIF CFLAG:PLAYER:24 > 0
		B /= 20

	SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
		BASE:PLAYER:2 += B

	;-------------------------------------------------
	;ソース追加処理
	;-------------------------------------------------
	;消費체력、기력
	LOSEBASE:0 += 0
	LOSEBASE:1 += 250

	SOURCE:정애 = 200
	SOURCE:액체 = 100
	SOURCE:굴종 = 1500
	SOURCE:일탈 = 700
	SOURCE:반발 = 700

	;-------------------------------------------------
	;특수ソース処理
	;-------------------------------------------------
	;억압、저항持ちには、억울ソース追加
	SIF TALENT:82
		SOURCE:우울 += 900
	SIF TALENT:84
		SOURCE:우울 += 900

	;레이프소망には、達成、中毒、욕정ソース追加、일탈반감ソース低下
	IF TALENT:155
		SOURCE:달성감 += 500
		SOURCE:중독충족 += 500
		SOURCE:욕정 += 500
		SOURCE:일탈 -= 500
		SOURCE:반발 -= 500
	ENDIF
	;소악마には성행동と욕정ソース追加、일탈ソース低下
	IF TALENT:197
		SOURCE:성행동 += 150
		SOURCE:욕정 += 200
		SOURCE:일탈 -= 200
	ENDIF
	;공주님소망には、일탈ソース追加
	SIF TALENT:199
		SOURCE:일탈 += 500
	;성악は、일탈ソースゼロ
	SIF TALENT:35
		SOURCE:일탈 = 0
	;助손が처녀喪失をした場合、굴복と일탈を増加
	IF TALENT:ASSI:0 == 1
		TIMES SOURCE:굴종 , 20.00
		TIMES SOURCE:일탈 , 3.00
	ENDIF

	;助손と奴隷の相性によって、全体のソースが変化
	T = NO:TARGET
	A = NO:ASSI
	SOURCE:정애 *= RELATION:A
	SOURCE:액체 *= RELATION:A
	SOURCE:굴종 *= RELATION:A
	SOURCE:우울 *= RELATION:A
	SOURCE:일탈 *= RELATION:A
	SOURCE:반발 *= RELATION:A
	SOURCE:정애 /= 100
	SOURCE:액체 /= 100
	SOURCE:굴종 /= 100
	SOURCE:우울 /= 100
	SOURCE:일탈 /= 100
	SOURCE:반발 /= 100

	;-------------------------------------------------
	;射精チェック
	;-------------------------------------------------
	CALL SAMEN_CHECK

	;射精時の処理
	IF E >= 1
		;射精先タイプの設定
		TFLAG:703 = 6
		;射精先選択の可・不可
		TFLAG:704 = 0
		;汎用的な処理はこの関数で行う
		;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
		CALL SAMEN_SHOOT
	ENDIF

	;-------------------------------------------------
	;汚れの処理
	;-------------------------------------------------
	;射精に関係なく行われる処理はここから
	IF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
		;主人のＰ⇔助손のＶの汚れが移動
		STAIN:MASTER:2 |= STAIN:ASSI:3
		STAIN:ASSI:3 |= STAIN:MASTER:2
	ENDIF

	;-------------------------------------------------
	;経験の処理
	;-------------------------------------------------
	;助손が처녀の場合、助손と奴隷に이상경험付加
	T = NO:TARGET
	A = NO:ASSI
	IF TALENT:ASSI:0 == 1
		TALENT:ASSI:0 = 0
		CALL SET_COLOR_STATUS,2
		PRINTL ＜조수가 처녀＞
		RESETCOLOR
		IF RELATION:A > 100
			EXP:50 += 2
			PRINTFORML %EXPNAME:50%＋２
		ELSE
			EXP:50 += 1
			PRINTFORML %EXPNAME:50%＋１
		ENDIF
		EXP:ASSI:50 += 1
	ENDIF

	;助손のＶ경험
	EXP:ASSI:0 += 1

	;助손の레즈경험
	IF TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 0
		PRINTS EXPNAME:40
		PRINT +10
		PRINTFORML (%CALLNAME:ASSI%)
		EXP:ASSI:40 += 10
	ENDIF

	;의존도ベクトル
	TFLAG:33 = 5

	T = NO:TARGET
	A = NO:ASSI
	;의존도補正値(助손との相性100↑かつ음란で1、창녀で2）
	IF TALENT:4 && RELATION:A > 100
		TFLAG:30 += 1
	ELSEIF TALENT:7 && RELATION:A > 100
		TFLAG:30 += 2
	ENDIF

	;☆PLAYERを元に戻す
	PLAYER = HOZONP

	;消費時間10分
	FLAG:24 -= 10

	SIF !IS_AUTOTRAIN(SELECTCOM)
		TFLAG:301 += 10

	RETURN 1

ELSE
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1

SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

;처녀喪失時のテキスト用処理
SIF TFLAG:60 && (PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 66 || PREVCOM == 68 || PREVCOM == 69) && ((ASSIPLAY && TFLAG:50) || (ASSIPLAY == 0 && TFLAG:50 == 0)) && TFLAG:31
	TFLAG:31 = 2
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1500

;ABL:調教者の기교をみる
IF ABL:PLAYER:2 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:2 == 1
	TIMES B , 1.20
ELSEIF ABL:PLAYER:2 == 2
	TIMES B , 1.40
ELSEIF ABL:PLAYER:2 == 3
	TIMES B , 1.60
ELSEIF ABL:PLAYER:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:욕망をみる
IF ABL:1 == 0
	TIMES B , 1.00
ELSEIF ABL:1 == 1
	TIMES B , 1.10
ELSEIF ABL:1 == 2
	TIMES B , 1.20
ELSEIF ABL:1 == 3
	TIMES B , 1.30
ELSEIF ABL:1 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES B , 0.60
ELSEIF PALAM:4 < PALAMLV:2
	TIMES B , 0.80
ELSEIF PALAM:4 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:4 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES B , 1.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;EXP:Ｖ경험をみる
;처녀だと増える
SIF EXP:0 < EXPLV:1
	TIMES B , 1.50

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 50
LOSEBASE:1 += 100

SOURCE:쾌Ｖ = 400
SOURCE:정애 = 150
SOURCE:아픔 = 500
SOURCE:중독충족 = 200
SOURCE:노출 = 50
SOURCE:반발 = 300

;上のほうで計算した汚れデータ
SOURCE:불결 = Y*10 + 60

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 500
SIF TALENT:84
	SOURCE:우울 += 500
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 500
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

;처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:0 == 1
	SOURCE:아픔 += 2000
	SOURCE:반발 += 3000
ENDIF

;재생처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:1 == 1
	SOURCE:아픔 += 500
	SOURCE:반발 += 1000
ENDIF

;Vへの고통は先に処理しておく
;EXP:Ｖ경험をみる（처녀の반감は別途処理済みなので省略）
IF EXP:0 < EXPLV:1
	TIMES SOURCE:아픔 , 2.50
ELSEIF EXP:0 < EXPLV:2
	TIMES SOURCE:아픔 , 0.80
	TIMES SOURCE:반발 , 1.20
ELSEIF EXP:0 < EXPLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF EXP:0 < EXPLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF EXP:0 < EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES SOURCE:아픔 , 0.00
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 1.50
ELSEIF PALAM:4 < PALAMLV:2
	TIMES SOURCE:아픔 , 0.70
	TIMES SOURCE:반발 , 1.20
ELSEIF PALAM:4 < PALAMLV:3
	TIMES SOURCE:아픔 , 0.40
ELSEIF PALAM:4 < PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES SOURCE:아픔 , 0.10
ENDIF

;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF
;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;射精先タイプの設定
	;질내か迷ったけど折角なので外に
	TFLAG:703 = 5
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
;질내に破瓜の血の汚れを付加
SIF TALENT:0 == 1 || TALENT:1 == 1
	STAIN:6 |= 64
;奴隷の질내⇔調教者のＰの汚れが移動
STAIN:6 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:6

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;V経験
EXP:0 += 1
PRINTL Ｖ경험＋１

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1

;레즈경험
A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +4
	EXP:23 += 4
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(연모で1、친애で2）
IF TALENT:3 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:6 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;의존도補正値(반하기쉬움）
IF TALENT:90 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;의존도補正値(공주님소망）
IF TALENT:199 && ASSIPLAY == 0
	TFLAG:33 = 2
	TFLAG:30 += 2
ENDIF

;消費時間5分
FLAG:24 -= 5

RETURN 1


code:
;-------------------------------------------------
;主人の페니스を抜く（애널）
;セックス系派生コマンド
;-------------------------------------------------
@COM513
SELECTCOM = 513

IF TEQUIP:38 ==62
	CALL SET_COLOR_STATUS,3
	PRINTL 정상위Ａ 종료
	RESETCOLOR
	STR:0 = 정상위Ａ終了
ELSEIF TEQUIP:38 ==63
	CALL SET_COLOR_STATUS,3
	PRINTL 후배위Ａ 종료
	RESETCOLOR
	STR:0 = 후배위Ａ終了
ELSEIF TEQUIP:38 ==67
	CALL SET_COLOR_STATUS,3
	PRINTL 기승위Ａ 종료
	RESETCOLOR
	STR:0 = 기승위Ａ終了
ELSEIF TEQUIP:38 ==70
	CALL SET_COLOR_STATUS,3
	PRINTL 대면좌위Ａ 종료
	RESETCOLOR
	STR:0 = 대면좌위Ａ終了
ELSEIF TEQUIP:38 ==71
	CALL SET_COLOR_STATUS,3
	PRINTL 배면좌위Ａ 종료
	RESETCOLOR
	STR:0 = 배면좌위Ａ終了
ELSEIF TEQUIP:38 ==73
	CALL SET_COLOR_STATUS,3
	PRINTL 속옷제끼고삽입Ａ 종료
	RESETCOLOR
	STR:0 = 속옷제끼고삽입Ａ終了
ENDIF

CALL KOJO_MESSAGE_COM

;体位の初期化
TEQUIP:37 = 0
TEQUIP:38 = 0
TEQUIP:39 = 0
TEQUIP:40 = 0

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1500

;ABL:調教者の기교をみる
IF ABL:PLAYER:2 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:2 == 1
	TIMES B , 1.20
ELSEIF ABL:PLAYER:2 == 2
	TIMES B , 1.40
ELSEIF ABL:PLAYER:2 == 3
	TIMES B , 1.60
ELSEIF ABL:PLAYER:2 == 4
	TIMES B , 1.80
ELSE
	TIMES B , 2.00
ENDIF

;ABL:순종をみる
IF ABL:0 == 0
	TIMES B , 0.80
ELSEIF ABL:0 == 1
	TIMES B , 0.90
ELSEIF ABL:0 == 2
	TIMES B , 1.00
ELSEIF ABL:0 == 3
	TIMES B , 1.10
ELSEIF ABL:0 == 4
	TIMES B , 1.20
ELSE
	TIMES B , 1.30
ENDIF

;ABL:욕망をみる
IF ABL:1 == 0
	TIMES B , 1.00
ELSEIF ABL:1 == 1
	TIMES B , 1.10
ELSEIF ABL:1 == 2
	TIMES B , 1.20
ELSEIF ABL:1 == 3
	TIMES B , 1.30
ELSEIF ABL:1 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES B , 0.60
ELSEIF PALAM:4 < PALAMLV:2
	TIMES B , 0.80
ELSEIF PALAM:4 < PALAMLV:3
	TIMES B , 1.00
ELSEIF PALAM:4 < PALAMLV:4
	TIMES B , 1.20
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES B , 1.40
ENDIF

;プレイヤーのABL:Ｃ감각をみる
IF ABL:PLAYER:3 == 0
	TIMES B , 1.00
ELSEIF ABL:PLAYER:3 == 1
	TIMES B , 1.50
ELSEIF ABL:PLAYER:3 == 2
	TIMES B , 2.00
ELSEIF ABL:PLAYER:3 == 3
	TIMES B , 2.50
ELSEIF ABL:PLAYER:3 == 4
	TIMES B , 3.50
ELSE
	TIMES B , 5.00
ENDIF

;再装填処理中は射精ゲージは20分の1に
SIF CFLAG:PLAYER:24 > 0
	B /= 20

SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
	BASE:PLAYER:2 += B

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 80
LOSEBASE:1 += 120

SOURCE:쾌Ａ = 400
SOURCE:정애 = 100
SOURCE:아픔 = 800
SOURCE:중독충족 = 200
SOURCE:노출 = 60
SOURCE:일탈 = 200
SOURCE:반발 = 500

;上のほうで計算した汚れデータ
SOURCE:불결 = Y*10 + 60

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 700
SIF TALENT:84
	SOURCE:우울 += 700
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 500
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 1500
;공주님소망には、일탈のソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;Aへの고통は先に処理しておく
;EXP:Ａ경험をみる
IF EXP:1 < EXPLV:1
	TIMES SOURCE:아픔 , 3.00
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:1 < EXPLV:2
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:1 < EXPLV:3
	TIMES SOURCE:아픔 , 0.80
	TIMES SOURCE:반발 , 1.50
ELSEIF EXP:1 < EXPLV:4
	TIMES SOURCE:아픔 , 0.60
	TIMES SOURCE:반발 , 1.20
ELSEIF EXP:1 < EXPLV:5
	TIMES SOURCE:아픔 , 0.40
ELSEIF EXP:1 >= EXPLV:5
	TIMES SOURCE:아픔 , 0.20
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 2.00
ELSEIF PALAM:4 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.00
	TIMES SOURCE:반발 , 1.50
ELSEIF PALAM:4 < PALAMLV:3
	TIMES SOURCE:아픔 , 0.60
ELSEIF PALAM:4 < PALAMLV:4
	TIMES SOURCE:아픔 , 0.30
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES SOURCE:아픔 , 0.20
ENDIF

;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

;射精時の処理
IF E >= 1
	;질내か迷ったけど折角なので外に
	TFLAG:703 = 5
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
	;コマンドごとに固有の処理はこの下に書く
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
;奴隷のＡ⇔調教者のＰの汚れが移動
STAIN:4 |= STAIN:PLAYER:2
STAIN:PLAYER:2 |= STAIN:4

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;A経験
EXP:1 += 2
PRINTL Ａ경험＋２

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1

;레즈경험
A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;消費時間5分
FLAG:24 -= 5

RETURN 1


code:
;-------------------------------------------------
;主人の페니스を抜く（입가슴）
;奉仕系派生コマンド
;-------------------------------------------------
@COM514
SELECTCOM = 514

IF TEQUIP:39 ==81
	CALL SET_COLOR_STATUS,3
	PRINTL 펠라 종료
	RESETCOLOR
	STR:0 = フェラ終了
ELSEIF TEQUIP:39 ==82
	CALL SET_COLOR_STATUS,3
	PRINTL 파이즈리 종료
	RESETCOLOR
	STR:0 = 파이즈리終了
ELSEIF TEQUIP:39 ==87
	CALL SET_COLOR_STATUS,3
	PRINTL 세로파이즈리 종료
	RESETCOLOR
	STR:0 = 세로파이즈리終了
ELSEIF TEQUIP:39 ==88
	CALL SET_COLOR_STATUS,3
	PRINTL 파이즈리펠라 종료
	RESETCOLOR
	STR:0 = 파이즈리 펠라終了
ELSEIF TEQUIP:39 ==140
	CALL SET_COLOR_STATUS,3
	PRINTL 이라마치오 종료
	RESETCOLOR
	STR:0 = 이라마치오終了
ENDIF

CALL KOJO_MESSAGE_COM

;--------------------------------------------------
;입から抜く
;--------------------------------------------------
IF TEQUIP:39 == 81 || TEQUIP:39 == 140
	;実行者が奴隷であるフラグ
	TFLAG:28 = 1

	;-------------------------------------------------
	;射精ゲージチェック
	;-------------------------------------------------
	B = 1500

	;ABL:調教者の기교をみる
	IF ABL:2 == 0
		TIMES B , 1.00
	ELSEIF ABL:2 == 1
		TIMES B , 1.20
	ELSEIF ABL:2 == 2
		TIMES B , 1.40
	ELSEIF ABL:2 == 3
		TIMES B , 1.60
	ELSEIF ABL:2 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.00
	ENDIF

	;ABL:순종をみる
	IF ABL:0 == 0
		TIMES B , 0.80
	ELSEIF ABL:0 == 1
		TIMES B , 0.90
	ELSEIF ABL:0 == 2
		TIMES B , 1.00
	ELSEIF ABL:0 == 3
		TIMES B , 1.10
	ELSEIF ABL:0 == 4
		TIMES B , 1.20
	ELSE
		TIMES B , 1.30
	ENDIF

	;ABL:봉사정신をみる
	IF ABL:7 == 0
		TIMES B , 0.50
	ELSEIF ABL:7 == 1
		TIMES B , 0.80
	ELSEIF ABL:7 == 2
		TIMES B , 1.20
	ELSEIF ABL:7 == 3
		TIMES B , 1.50
	ELSEIF ABL:7 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.40
	ENDIF

	;TALENT:혀놀림、고양이혀をみる
	SIF TALENT:122 || TALENT:124
		TIMES B , 2.00

	;プレイヤーのABL:Ｃ감각をみる
	IF ABL:PLAYER:3 == 0
		TIMES B , 1.00
	ELSEIF ABL:PLAYER:3 == 1
		TIMES B , 1.50
	ELSEIF ABL:PLAYER:3 == 2
		TIMES B , 2.00
	ELSEIF ABL:PLAYER:3 == 3
		TIMES B , 2.50
	ELSEIF ABL:PLAYER:3 == 4
		TIMES B , 3.50
	ELSE
		TIMES B , 5.00
	ENDIF

	;再装填処理中は射精ゲージは20分の1に
	SIF CFLAG:PLAYER:24 > 0
		B /= 20

	SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
		BASE:PLAYER:2 += B

	;-------------------------------------------------
	;ソース追加処理
	;-------------------------------------------------
	;消費체력、기력
	LOSEBASE:0 += 10
	LOSEBASE:1 += 100

	SOURCE:정애 = 100
	SOURCE:성행동 = 300
	SOURCE:달성감 = 150
	SOURCE:굴종 = 700
	SOURCE:일탈 = 200
	SOURCE:반발 = 200

	;上のほうで計算した汚れデータ
	SOURCE:불결 = Y*10 + 60

	;-------------------------------------------------
	;특수ソース処理
	;-------------------------------------------------
	;억압、저항持ちには、억울ソース追加
	SIF TALENT:82
		SOURCE:우울 += 600
	SIF TALENT:84
		SOURCE:우울 += 600
	;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
	SIF TALENT:32
		SOURCE:우울 += 40
	;인간혐오には、반감ソース追加(全て100)
	SIF TALENT:33
		SOURCE:반발 += 100
	;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
	SIF TALENT:60
		SOURCE:불결 += 600
	;거절には、일탈ソース追加(저항억압の3/4目安)
	SIF TALENT:159
		SOURCE:일탈 += 450
	;-------------------------------------------------
	;射精チェック
	;-------------------------------------------------
	CALL SAMEN_CHECK

	;射精時の処理
	IF E >= 1
		;射精先タイプの設定
		TFLAG:703 = 4
		;射精先選択の可・不可
		TFLAG:704 = 1
		;汎用的な処理はこの関数で行う
		;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
		CALL SAMEN_SHOOT
	ENDIF

	;-------------------------------------------------
	;汚れの処理
	;-------------------------------------------------
	;射精に関係なく行われる処理はここから
	;奴隷の指⇔調教者のＰの汚れが移動
	STAIN:0 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:0

	;봉사정신ＬＶ２以上、기교ＬＶ２以上なら汚れをなめ取る（볼개그使用時は除く）
	IF ABL:7 >= 2 && ABL:2 >= 2 && TEQUIP:20 == 0
		STAIN:PLAYER:2 = 2
		SIF E >= 1
			TFLAG:8 = 1
	ENDIF

	;-------------------------------------------------
	;経験の処理
	;-------------------------------------------------
	;펠라경험
	PRINTFORML %EXPNAME:22%＋１
	EXP:22 += 1

	;레즈경험
	A = 7
	IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
		PRINTFORML %EXPNAME:40%+{A}
		EXP:40 += A
	ELSEIF TALENT:290 && TALENT:PLAYER:290
		PRINTFORML %EXPNAME:41%+{A}
		EXP:41 += A
	ENDIF

	;애정경험
	IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0
		PRINTS EXPNAME:23
		PRINTL +1
		EXP:23 += 1
	ENDIF

	;奴隷が고양이혀持ちの場合は、調教者に가학쾌락경험を追加
	IF TALENT:TARGET:124
		EXP:32 += 1
		PRINTFORML %EXPNAME:32%＋１
	ENDIF

	;의존도ベクトル
	TFLAG:33 = 1

	;의존도補正値(主人かつ연모、음란、복종で1。친애、창녀、예속で2）
	IF (TALENT:3 || TALENT:4 || TALENT:5) && ASSIPLAY == 0
		TFLAG:30 += 1
	ELSEIF (TALENT:6 || TALENT:7 || TALENT:8) && ASSIPLAY == 0
		TFLAG:30 += 2
	ENDIF

	;의존도補正値(반하기쉬움）
	IF TALENT:90 && ASSIPLAY == 0
		TFLAG:33 = 2
		TFLAG:30 += 2
	ENDIF

	TFLAG:100 = 1
;--------------------------------------------------
;가슴から抜く
;--------------------------------------------------
ELSE
	;実行者が奴隷であるフラグ
	TFLAG:28 = 1

	;-------------------------------------------------
	;射精ゲージチェック
	;-------------------------------------------------
	B = 2000

	;ABL:調教者の기교をみる
	IF ABL:2 == 0
		TIMES B , 1.00
	ELSEIF ABL:2 == 1
		TIMES B , 1.20
	ELSEIF ABL:2 == 2
		TIMES B , 1.40
	ELSEIF ABL:2 == 3
		TIMES B , 1.60
	ELSEIF ABL:2 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.00
	ENDIF

	;ABL:순종をみる
	IF ABL:0 == 0
		TIMES B , 0.80
	ELSEIF ABL:0 == 1
		TIMES B , 0.90
	ELSEIF ABL:0 == 2
		TIMES B , 1.00
	ELSEIF ABL:0 == 3
		TIMES B , 1.10
	ELSEIF ABL:0 == 4
		TIMES B , 1.20
	ELSE
		TIMES B , 1.30
	ENDIF

	;ABL:봉사정신をみる
	IF ABL:7 == 0
		TIMES B , 0.50
	ELSEIF ABL:7 == 1
		TIMES B , 0.80
	ELSEIF ABL:7 == 2
		TIMES B , 1.20
	ELSEIF ABL:7 == 3
		TIMES B , 1.50
	ELSEIF ABL:7 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.40
	ENDIF

	;プレイヤーのABL:Ｃ감각をみる
	IF ABL:PLAYER:3 == 0
		TIMES B , 1.00
	ELSEIF ABL:PLAYER:3 == 1
		TIMES B , 1.50
	ELSEIF ABL:PLAYER:3 == 2
		TIMES B , 2.00
	ELSEIF ABL:PLAYER:3 == 3
		TIMES B , 2.50
	ELSEIF ABL:PLAYER:3 == 4
		TIMES B , 3.50
	ELSE
		TIMES B , 5.00
	ENDIF

	;再装填処理中は射精ゲージは20分の1に
	SIF CFLAG:PLAYER:24 > 0
		B /= 20

	SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
		BASE:PLAYER:2 += B

	;-------------------------------------------------
	;ソース追加処理
	;-------------------------------------------------
	;消費체력、기력
	LOSEBASE:0 += 10
	LOSEBASE:1 += 100

	SOURCE:쾌Ｂ = 150
	SOURCE:정애 = 150
	SOURCE:성행동 = 400
	SOURCE:달성감 = 200
	SOURCE:굴종 = 1000
	SOURCE:일탈 = 400
	SOURCE:반발 = 400

	;上のほうで計算した汚れデータ
	SOURCE:불결 = Y*10 + 60

	;-------------------------------------------------
	;특수ソース処理
	;-------------------------------------------------
	;억압、저항持ちには、억울ソース追加
	SIF TALENT:82
		SOURCE:우울 += 800
	SIF TALENT:84
		SOURCE:우울 += 800
	;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
	SIF TALENT:32
		SOURCE:우울 += 40
	;인간혐오には、반감ソース追加(全て100)
	SIF TALENT:33
		SOURCE:반발 += 100
	;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
	SIF TALENT:60
		SOURCE:불결 += 100
	;거절には、일탈ソース追加(저항억압の3/4目安)
	SIF TALENT:159
		SOURCE:일탈 += 600
	;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
	SIF TALENT:89
		SOURCE:우울 += 1200

	;공주님소망には、정애と성행동と達成のソース増加
	IF TALENT:199
		TIMES SOURCE:정애 , 1.50
		TIMES SOURCE:성행동 , 1.50
		TIMES SOURCE:달성감 , 1.50
	ENDIF
	;-------------------------------------------------
	;射精チェック
	;-------------------------------------------------
	CALL SAMEN_CHECK

	;射精時の処理
	IF E >= 1
		;射精先タイプの設定
		TFLAG:703 = 4
		;射精先選択の可・不可
		TFLAG:704 = 1
		;汎用的な処理はこの関数で行う
		;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
		CALL SAMEN_SHOOT
	ENDIF

	;-------------------------------------------------
	;汚れの処理
	;-------------------------------------------------
	;奴隷のＢ⇔調教者のＰの汚れが移動
	STAIN:5 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:5

	;봉사정신ＬＶ２以上、기교ＬＶ２以上なら汚れをなめ取る（볼개그使用時は除く）
	IF ABL:7 >= 2 && ABL:2 >= 2 && TEQUIP:20 == 0
		STAIN:PLAYER:2 = 2
		SIF E >= 1
			TFLAG:8 = 1
	ENDIF

	;-------------------------------------------------
	;経験の処理
	;-------------------------------------------------
	;레즈경험
	A = 7
	IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
		PRINTFORML %EXPNAME:40%+{A}
		EXP:40 += A
	ELSEIF TALENT:290 && TALENT:PLAYER:290
		PRINTFORML %EXPNAME:41%+{A}
		EXP:41 += A
	ENDIF

	;애정경험
	IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0
		PRINTS EXPNAME:23
		PRINTL +1
		EXP:23 += 1
	ENDIF

	;의존도ベクトル
	TFLAG:33 = 1

	;의존도補正値(主人かつ연모、음란、복종で1。친애、창녀、예속で2）
	IF (TALENT:3 || TALENT:4 || TALENT:5) && ASSIPLAY == 0
		TFLAG:30 += 1
	ELSEIF (TALENT:6 || TALENT:7 || TALENT:8) && ASSIPLAY == 0
		TFLAG:30 += 2
	ENDIF

	;의존도補正値(반하기쉬움）
	IF TALENT:90 && ASSIPLAY == 0
		TFLAG:33 = 2
		TFLAG:30 += 2
	ENDIF

	;의존도補正値(공주님소망）
	IF TALENT:199 && ASSIPLAY == 0
		TFLAG:33 = 2
		TFLAG:30 += 2
	ENDIF

	TFLAG:100 = 1
ENDIF

;体位の初期化
TEQUIP:37 = 0
TEQUIP:38 = 0
TEQUIP:39 = 0
TEQUIP:40 = 0

;消費時間5分
FLAG:24 -= 5

RETURN 1


code:
;-------------------------------------------------
;主人の페니스を抜く（その他）
;奉仕系派生コマンド
;-------------------------------------------------
@COM515
SELECTCOM = 515

IF TEQUIP:40 ==80
	CALL SET_COLOR_STATUS,3
	PRINTL 수음 종료
	RESETCOLOR
	STR:0 = 수음終了
ELSEIF TEQUIP:40 ==83
	CALL SET_COLOR_STATUS,3
	PRINTL 스마타 종료
	RESETCOLOR
	STR:0 = 스마타終了
ELSEIF TEQUIP:40 ==85
	CALL SET_COLOR_STATUS,3
	PRINTL 풋잡 종료
	RESETCOLOR
	STR:0 = 풋잡終了
ENDIF

CALL KOJO_MESSAGE_COM
;--------------------------------------------------
;손から離す
;--------------------------------------------------
IF TEQUIP:40 == 80
	;実行者が奴隷であるフラグ
	TFLAG:28 = 1
	;-------------------------------------------------
	;射精ゲージチェック
	;-------------------------------------------------
	B = 500

	;ABL:調教者の기교をみる
	IF ABL:2 == 0
		TIMES B , 1.00
	ELSEIF ABL:2 == 1
		TIMES B , 1.20
	ELSEIF ABL:2 == 2
		TIMES B , 1.40
	ELSEIF ABL:2 == 3
		TIMES B , 1.60
	ELSEIF ABL:2 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.00
	ENDIF

	;ABL:순종をみる
	IF ABL:0 == 0
		TIMES B , 0.80
	ELSEIF ABL:0 == 1
		TIMES B , 0.90
	ELSEIF ABL:0 == 2
		TIMES B , 1.00
	ELSEIF ABL:0 == 3
		TIMES B , 1.10
	ELSEIF ABL:0 == 4
		TIMES B , 1.20
	ELSE
		TIMES B , 1.30
	ENDIF

	;ABL:봉사정신をみる
	IF ABL:7 == 0
		TIMES B , 0.50
	ELSEIF ABL:7 == 1
		TIMES B , 0.80
	ELSEIF ABL:7 == 2
		TIMES B , 1.20
	ELSEIF ABL:7 == 3
		TIMES B , 1.50
	ELSEIF ABL:7 == 4
		TIMES B , 1.80
	ELSE
		TIMES B , 2.40
	ENDIF

	;プレイヤーのABL:Ｃ감각をみる
	IF ABL:PLAYER:3 == 0
		TIMES B , 1.00
	ELSEIF ABL:PLAYER:3 == 1
		TIMES B , 1.50
	ELSEIF ABL:PLAYER:3 == 2
		TIMES B , 2.00
	ELSEIF ABL:PLAYER:3 == 3
		TIMES B , 2.50
	ELSEIF ABL:PLAYER:3 == 4
		TIMES B , 3.50
	ELSE
		TIMES B , 5.00
	ENDIF

	;再装填処理中は射精ゲージは20分の1に
	SIF CFLAG:PLAYER:24 > 0
		B /= 20

	SIF TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290
		BASE:PLAYER:2 += B

	;-------------------------------------------------
	;ソース追加処理
	;-------------------------------------------------
	;消費체력、기력
	LOSEBASE:0 += 10
	LOSEBASE:1 += 100

	SOURCE:정애 = 50
	SOURCE:성행동 = 250
	SOURCE:달성감 = 50
	SOURCE:굴종 = 350
	SOURCE:일탈 = 100
	SOURCE:반발 = 100

	;上のほうで計算した汚れデータ
	SOURCE:불결 = Y*10 + 60

	;-------------------------------------------------
	;특수ソース処理
	;-------------------------------------------------
	;억압、저항持ちには、억울ソース追加
	SIF TALENT:82
		SOURCE:우울 += 300
	SIF TALENT:84
		SOURCE:우울 += 300
	;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
	SIF TALENT:32
		SOURCE:우울 += 40
	;인간혐오には、반감ソース追加(全て100)
	SIF TALENT:33
		SOURCE:반발 += 100
	;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
	SIF TALENT:60
		SOURCE:불결 += 200
	;거절には、일탈ソース追加(저항억압の3/4目安)
	SIF TALENT:159
		SOURCE:일탈 += 225
	;-------------------------------------------------
	;射精チェック
	;-------------------------------------------------
	CALL SAMEN_CHECK

	;射精時の処理
	IF E >= 1
		;射精先タイプの設定
		TFLAG:703 = 3
		;射精先選択の可・不可
		TFLAG:704 = 1
		;汎用的な処理はこの関数で行う
		;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
		CALL SAMEN_SHOOT
	ENDIF

	;-------------------------------------------------
	;汚れの処理
	;-------------------------------------------------
	;射精に関係なく行われる処理はここから
	;奴隷の指⇔調教者のＰの汚れが移動
	STAIN:1 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:1

	;-------------------------------------------------
	;経験の処理
	;-------------------------------------------------
	;레즈경험
	A = 4
	IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
		PRINTFORML %EXPNAME:40%+{A}
		EXP:40 += A
	ELSEIF TALENT:290 && TALENT:PLAYER:290
		PRINTFORML %EXPNAME:41%+{A}
		EXP:41 += A
	ENDIF

	;의존도ベクトル
	TFLAG:33 = 1

	;의존도補正値(主人かつ연모、음란、복종で1。친애、창녀、예속で2）
	IF (TALENT:3 || TALENT:4 || TALENT:5) && ASSIPLAY == 0
		TFLAG:30 += 1
	ELSEIF (TALENT:6 || TALENT:7 || TALENT:8) && ASSIPLAY == 0
		TFLAG:30 += 2
	ENDIF

	;의존도補正値(반하기쉬움）
	IF TALENT:90 && ASSIPLAY == 0
		TFLAG:33 = 2
		TFLAG:30 += 2
	ENDIF

	;奉仕快楽フラグ
	TFLAG:100 = 1
ELSE
ENDIF
;体位の初期化
TEQUIP:37 = 0
TEQUIP:38 = 0
TEQUIP:39 = 0
TEQUIP:40 = 0

;消費時間5分
FLAG:24 -= 5

RETURN 1


code:
;-------------------------------------------------
;潮吹き
;특수な調教コマンド、レベル2
;-------------------------------------------------
@COM516
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL
PRINTL 분수
RESETCOLOR
STR:0 = 潮吹き
CALL KOJO_MESSAGE_COM

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 0
LOSEBASE:1 += 0

SOURCE:두려움 = 300
SOURCE:액체 += 10000
SOURCE:노출 = 600
SOURCE:굴종 = 800
SOURCE:일탈 = 500
SOURCE:반발 = 1000

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1300
SIF TALENT:84
	SOURCE:우울 += 1300
;부끄럼쟁이持ちには達成、노출、억울ソース追加
IF TALENT:85
	SOURCE:달성감 += 700
	SOURCE:노출 += 800
	SOURCE:우울 += 1000
ENDIF

;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1000
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、일탈ソース、반감ソース追加
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 150
		SOURCE:욕정 += 100
		SOURCE:노출 += 500
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 150
		SOURCE:욕정 += 100
		SOURCE:노출 += 500
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 150
	SOURCE:욕정 += 100
	SOURCE:노출 += 500
	SOURCE:굴종 += 300
	SOURCE:일탈 += 200
	SOURCE:반발 += 300
ENDIF

;調教者か助손が고무なら達成ソース追加、일탈반감ソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 150
		SOURCE:일탈 -= 300
		SOURCE:반발 -= 300
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 150
		SOURCE:일탈 -= 300
		SOURCE:반발 -= 300
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 150
	SOURCE:일탈 -= 300
	SOURCE:반발 -= 300
ENDIF

;場所によって일탈と노출のソースが上下
;촬영중
IF TEQUIP:28
	TIMES SOURCE:두려움 , 3.00
	TIMES SOURCE:일탈 , 3.00
;野外
ELSEIF TEQUIP:29
	TIMES SOURCE:두려움 , 2.50
	TIMES SOURCE:일탈 , 2.50
;실황플레이
ELSEIF TEQUIP:43
	TIMES SOURCE:두려움 , 2.00
	TIMES SOURCE:일탈 , 2.00
;鏡の前（수치플레이）
ELSEIF TEQUIP:30
	TIMES SOURCE:두려움 , 1.50
	TIMES SOURCE:일탈 , 1.50
;風呂場
ELSEIF TEQUIP:31
	TIMES SOURCE:두려움 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;방뇨경험
PRINTFORML %EXPNAME:31%＋２
EXP:31 += 2

;野外방뇨で이상경험
IF TEQUIP:29 && CFLAG:5 == 0
	PRINTFORML %EXPNAME:50%＋１
	EXP:50 += 1
	CFLAG:5 = 1
ENDIF

;이뇨제解除
IF TEQUIP:27
	TEQUIP:27 = 0
ENDIF

;의존도ベクトル
TFLAG:33 = 5

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

;陥落している奴隷は潮吹きすることでストレスが1減る
SIF IS_FALLEN(TARGET)
	CFLAG:10 -= 1
CFLAG:TARGET:10 = MAX(0,CFLAG:TARGET:10)

TFLAG:301 += 1

RETURN 1


code:
;-------------------------------------------------
;初回全裸
;특수な調教コマンド、レベル1
;-------------------------------------------------
@COM517
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL 첫 전라
RESETCOLOR
STR:0 = 初回全裸
CALL KOJO_MESSAGE_COM

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 0
LOSEBASE:1 += 0

SOURCE:두려움 = 2000
SOURCE:노출 = 3000
SOURCE:굴종 = 1500
SOURCE:일탈 = 2000
SOURCE:반발 = 2000

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;노출증*1000の욕정ソース追加
SIF ABL:8 >= 1
	SOURCE:욕정 += (ABL:8 * 1000)
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1000
SIF TALENT:84
	SOURCE:우울 += 1000
;겁쟁이は두려움ソース追加
SIF TALENT:겁쟁이
	SOURCE:두려움 += 2000
;부끄럼쟁이持ちには達成、노출、일탈、억울ソース追加
IF TALENT:85
	SOURCE:달성감 += 500
	SOURCE:노출 += 2000
	SOURCE:우울 += 500
	SOURCE:일탈 += 2000
ENDIF
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1500

;수치심없음持ちには두려움、達成、노출、일탈、억울ソース低下
IF TALENT:수치심없음
	TIMES SOURCE:달성감 , 0.50
	TIMES SOURCE:아픔 , 0.50
	TIMES SOURCE:노출 , 0.50
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF
;눈에띄고싶어함は일탈、抗鬱、반감のソース低下
IF TALENT:눈에띄고싶어함
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF
;교제は일탈、抗鬱、반감のソース低下
IF TALENT:교제
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF

;場所によって일탈と노출のソースが上下
;촬영중
IF TEQUIP:28
	TIMES SOURCE:두려움 , 3.00
	TIMES SOURCE:일탈 , 3.00
;野外
ELSEIF TEQUIP:29
	TIMES SOURCE:두려움 , 2.50
	TIMES SOURCE:일탈 , 2.50
;鏡の前（수치플레이）
ELSEIF TEQUIP:30
	TIMES SOURCE:두려움 , 1.50
	TIMES SOURCE:일탈 , 1.50
;風呂場
ELSEIF TEQUIP:31
	TIMES SOURCE:두려움 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF

;노출광は욕정2倍
SIF TALENT:노출광
	TIMES SOURCE:욕정 , 2.00

;今までに脱いできた度合いに応じて일탈반감抗鬱低下
;下半身노출済み
IF CFLAG:54 == 3
	TIMES SOURCE:우울 , 0.20
	TIMES SOURCE:일탈 , 0.20
	TIMES SOURCE:반발 , 0.20
;上半身노출済み
ELSEIF CFLAG:54 == 2
	TIMES SOURCE:우울 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
;下着姿経験済み
ELSEIF CFLAG:54 == 1
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ENDIF

;의존도による処理
;의존도が200上下するごとに0.1ずつ일탈반감抗鬱が減る
IF CFLAG:2 >= 2000 || CFLAG:2 <= -2000
	SOURCE:우울 = 0
	SOURCE:일탈 = 0
	SOURCE:반발 = 0
ELSEIF CFLAG:2 >= 1800 || CFLAG:2 <= -1800
	TIMES SOURCE:우울 , 0.10
	TIMES SOURCE:일탈 , 0.10
	TIMES SOURCE:반발 , 0.10
ELSEIF CFLAG:2 >= 1600 || CFLAG:2 <= -1600
	TIMES SOURCE:우울 , 0.20
	TIMES SOURCE:일탈 , 0.20
	TIMES SOURCE:반발 , 0.20
ELSEIF CFLAG:2 >= 1400 || CFLAG:2 <= -1400
	TIMES SOURCE:우울 , 0.30
	TIMES SOURCE:일탈 , 0.30
	TIMES SOURCE:반발 , 0.30
ELSEIF CFLAG:2 >= 1200 || CFLAG:2 <= -1200
	TIMES SOURCE:우울 , 0.40
	TIMES SOURCE:일탈 , 0.40
	TIMES SOURCE:반발 , 0.40
ELSEIF CFLAG:2 >= 1000 || CFLAG:2 <= -1000
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ELSEIF CFLAG:2 >= 800 || CFLAG:2 <= -800
	TIMES SOURCE:우울 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
ELSEIF CFLAG:2 >= 600 || CFLAG:2 <= -600
	TIMES SOURCE:우울 , 0.70
	TIMES SOURCE:일탈 , 0.70
	TIMES SOURCE:반발 , 0.70
ELSEIF CFLAG:2 >= 400 || CFLAG:2 <= -400
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ELSEIF CFLAG:2 >= 200 || CFLAG:2 <= -200
	TIMES SOURCE:우울 , 0.90
	TIMES SOURCE:일탈 , 0.90
	TIMES SOURCE:반발 , 0.90
ENDIF

CFLAG:54 = 4
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;野外初全裸で이상경험
IF TEQUIP:29
	PRINTFORML 야외에서 첫 전라　%EXPNAME:50%＋１
	EXP:50 += 1
ENDIF

;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

RETURN 1


code:
;-------------------------------------------------
;初回下半身노출
;특수な調教コマンド、レベル1
;-------------------------------------------------
@COM518
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL 첫 하반신노출
RESETCOLOR
STR:0 = 初回下半身노출
CALL KOJO_MESSAGE_COM

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 0
LOSEBASE:1 += 0

SOURCE:두려움 = 1600
SOURCE:노출 = 2400
SOURCE:굴종 = 1200
SOURCE:일탈 = 1600
SOURCE:반발 = 1600

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;노출증*800の욕정ソース追加
SIF ABL:8 >= 1
	SOURCE:욕정 += (ABL:8 * 800)
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 800
SIF TALENT:84
	SOURCE:우울 += 800
;겁쟁이は두려움ソース追加
SIF TALENT:겁쟁이
	SOURCE:두려움 += 1600
;부끄럼쟁이持ちには達成、노출、일탈、억울ソース追加
IF TALENT:85
	SOURCE:달성감 += 400
	SOURCE:노출 += 1600
	SOURCE:우울 += 400
	SOURCE:일탈 += 1600
ENDIF
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1200

;수치심없음持ちには두려움、達成、노출、일탈、억울ソース低下
IF TALENT:수치심없음
	TIMES SOURCE:달성감 , 0.50
	TIMES SOURCE:아픔 , 0.50
	TIMES SOURCE:노출 , 0.50
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF
;눈에띄고싶어함は일탈、抗鬱、반감のソース低下
IF TALENT:눈에띄고싶어함
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF
;교제は일탈、抗鬱、반감のソース低下
IF TALENT:교제
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF
;場所によって일탈と노출のソースが上下
;촬영중
IF TEQUIP:28
	TIMES SOURCE:두려움 , 3.00
	TIMES SOURCE:일탈 , 3.00
;野外
ELSEIF TEQUIP:29
	TIMES SOURCE:두려움 , 2.50
	TIMES SOURCE:일탈 , 2.50
;鏡の前（수치플레이）
ELSEIF TEQUIP:30
	TIMES SOURCE:두려움 , 1.50
	TIMES SOURCE:일탈 , 1.50
;風呂場
ELSEIF TEQUIP:31
	TIMES SOURCE:두려움 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF

;노출광は욕정2倍
SIF TALENT:노출광
	TIMES SOURCE:욕정 , 2.00

;今までに脱いできた度合いに応じて일탈반감抗鬱低下
;上半身노출済み
IF CFLAG:54 == 2
	TIMES SOURCE:우울 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
;下着姿経験済み
ELSEIF CFLAG:54 == 1
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ENDIF

;의존도による処理
;의존도が200上下するごとに0.1ずつ일탈반감抗鬱が減る
IF CFLAG:2 >= 2000 || CFLAG:2 <= -2000
	SOURCE:우울 = 0
	SOURCE:일탈 = 0
	SOURCE:반발 = 0
ELSEIF CFLAG:2 >= 1800 || CFLAG:2 <= -1800
	TIMES SOURCE:우울 , 0.10
	TIMES SOURCE:일탈 , 0.10
	TIMES SOURCE:반발 , 0.10
ELSEIF CFLAG:2 >= 1600 || CFLAG:2 <= -1600
	TIMES SOURCE:우울 , 0.20
	TIMES SOURCE:일탈 , 0.20
	TIMES SOURCE:반발 , 0.20
ELSEIF CFLAG:2 >= 1400 || CFLAG:2 <= -1400
	TIMES SOURCE:우울 , 0.30
	TIMES SOURCE:일탈 , 0.30
	TIMES SOURCE:반발 , 0.30
ELSEIF CFLAG:2 >= 1200 || CFLAG:2 <= -1200
	TIMES SOURCE:우울 , 0.40
	TIMES SOURCE:일탈 , 0.40
	TIMES SOURCE:반발 , 0.40
ELSEIF CFLAG:2 >= 1000 || CFLAG:2 <= -1000
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ELSEIF CFLAG:2 >= 800 || CFLAG:2 <= -800
	TIMES SOURCE:우울 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
ELSEIF CFLAG:2 >= 600 || CFLAG:2 <= -600
	TIMES SOURCE:우울 , 0.70
	TIMES SOURCE:일탈 , 0.70
	TIMES SOURCE:반발 , 0.70
ELSEIF CFLAG:2 >= 400 || CFLAG:2 <= -400
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ELSEIF CFLAG:2 >= 200 || CFLAG:2 <= -200
	TIMES SOURCE:우울 , 0.90
	TIMES SOURCE:일탈 , 0.90
	TIMES SOURCE:반발 , 0.90
ENDIF

CFLAG:54 = 3
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

RETURN 1


code:
;-------------------------------------------------
;初回上半身노출
;특수な調教コマンド、レベル1
;-------------------------------------------------
@COM519
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL 첫 상반신노출
RESETCOLOR
STR:0 = 初回上半身노출
CALL KOJO_MESSAGE_COM

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 0
LOSEBASE:1 += 0

SOURCE:두려움 = 800
SOURCE:노출 = 1200
SOURCE:굴종 = 600
SOURCE:일탈 = 800
SOURCE:반발 = 800

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;노출증*400の욕정ソース追加
SIF ABL:8 >= 1
	SOURCE:욕정 += (ABL:8 * 400)
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 400
SIF TALENT:84
	SOURCE:우울 += 400
;겁쟁이は두려움ソース追加
SIF TALENT:겁쟁이
	SOURCE:두려움 += 800
;부끄럼쟁이持ちには達成、노출、일탈、억울ソース追加
IF TALENT:85
	SOURCE:달성감 += 200
	SOURCE:노출 += 800
	SOURCE:우울 += 100
	SOURCE:일탈 += 800
ENDIF
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 600

;수치심없음持ちには두려움、達成、노출、일탈、억울ソース低下
IF TALENT:수치심없음
	TIMES SOURCE:달성감 , 0.50
	TIMES SOURCE:아픔 , 0.50
	TIMES SOURCE:노출 , 0.50
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF
;눈에띄고싶어함は일탈、抗鬱、반감のソース低下
IF TALENT:눈에띄고싶어함
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF
;교제は일탈、抗鬱、반감のソース低下
IF TALENT:교제
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF
;場所によって일탈と노출のソースが上下
;촬영중
IF TEQUIP:28
	TIMES SOURCE:두려움 , 3.00
	TIMES SOURCE:일탈 , 3.00
;野外
ELSEIF TEQUIP:29
	TIMES SOURCE:두려움 , 2.50
	TIMES SOURCE:일탈 , 2.50
;鏡の前（수치플레이）
ELSEIF TEQUIP:30
	TIMES SOURCE:두려움 , 1.50
	TIMES SOURCE:일탈 , 1.50
;風呂場
ELSEIF TEQUIP:31
	TIMES SOURCE:두려움 , 0.50
	TIMES SOURCE:일탈 , 0.50
ENDIF

;노출광は욕정2倍
SIF TALENT:노출광
	TIMES SOURCE:욕정 , 2.00

;今までに脱いできた度合いに応じて일탈반감抗鬱低下
;下着姿経験済み
IF CFLAG:54 == 1
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ENDIF

;의존도による処理
;의존도が200上下するごとに0.1ずつ일탈반감抗鬱が減る
IF CFLAG:2 >= 2000 || CFLAG:2 <= -2000
	SOURCE:우울 = 0
	SOURCE:일탈 = 0
	SOURCE:반발 = 0
ELSEIF CFLAG:2 >= 1800 || CFLAG:2 <= -1800
	TIMES SOURCE:우울 , 0.10
	TIMES SOURCE:일탈 , 0.10
	TIMES SOURCE:반발 , 0.10
ELSEIF CFLAG:2 >= 1600 || CFLAG:2 <= -1600
	TIMES SOURCE:우울 , 0.20
	TIMES SOURCE:일탈 , 0.20
	TIMES SOURCE:반발 , 0.20
ELSEIF CFLAG:2 >= 1400 || CFLAG:2 <= -1400
	TIMES SOURCE:우울 , 0.30
	TIMES SOURCE:일탈 , 0.30
	TIMES SOURCE:반발 , 0.30
ELSEIF CFLAG:2 >= 1200 || CFLAG:2 <= -1200
	TIMES SOURCE:우울 , 0.40
	TIMES SOURCE:일탈 , 0.40
	TIMES SOURCE:반발 , 0.40
ELSEIF CFLAG:2 >= 1000 || CFLAG:2 <= -1000
	TIMES SOURCE:우울 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ELSEIF CFLAG:2 >= 800 || CFLAG:2 <= -800
	TIMES SOURCE:우울 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
ELSEIF CFLAG:2 >= 600 || CFLAG:2 <= -600
	TIMES SOURCE:우울 , 0.70
	TIMES SOURCE:일탈 , 0.70
	TIMES SOURCE:반발 , 0.70
ELSEIF CFLAG:2 >= 400 || CFLAG:2 <= -400
	TIMES SOURCE:우울 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ELSEIF CFLAG:2 >= 200 || CFLAG:2 <= -200
	TIMES SOURCE:우울 , 0.90
	TIMES SOURCE:일탈 , 0.90
	TIMES SOURCE:반발 , 0.90
ENDIF

CFLAG:54 = 2
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;의존도ベクトル
TFLAG:33 = 1

;의존도補正値(복종で1、예속で2）
IF TALENT:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

RETURN 1