code:
;-------------------------------------------------
;初回下着姿
;특수な調教コマンド、レベル1
;-------------------------------------------------
@COM520
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL 첫 속옷차림
RESETCOLOR
STR:0 = 初回下着姿
CALL KOJO_MESSAGE_COM

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

SOURCE:두려움 = 400
SOURCE:노출 = 600
SOURCE:굴종 = 300
SOURCE:일탈 = 400
SOURCE:반발 = 400

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

;수치심없음持ちには두려움、達成、노출、일탈、억울ソース低下
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

;의존도による処理
;의존도が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 = 1
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;의존도ベクトル
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:
;-------------------------------------------------
;淫液大量噴射
;특수な調教コマンド、レベル4
;-------------------------------------------------
@COM521
PRINTW
CALL SET_COLOR_STATUS,3
PRINTL
PRINTL 음액대량분사
RESETCOLOR
STR:0 = 淫液大量噴射
CALL KOJO_MESSAGE_COM

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

SOURCE:두려움 = 600
SOURCE:중독충족 = 1000
SOURCE:액체 += 30000
SOURCE:노출 = 1500
SOURCE:굴종 = 2400
SOURCE:일탈 = 500
SOURCE:반발 = 1000

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

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

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

;野外방뇨で이상경험
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 += 3

RETURN 1

repo_name: Catalyst/B

license: unknown


code:
;=================================================
;정상위
;セックス系コマンド、レベル1
;=================================================
@COMNAME60
;RETURN 1は페니스抜く専用なので使わないこと
;前回の調教が3Pのとき3Pへ
CALL COM_ABLE500
IF PREVCOM == 500 && RESULT == 1
	;助손が調教者の時は主人が同じ場所に挿入してないか確認
	IF ASSIPLAY && TEQUIP:37 == 0
		RESULTS = 3P継続(助正Ｖ)
		RETURN 4
	ELSEIF !ASSIPLAY
		RESULTS = 3P継続(主正Ｖ)
		RETURN 4
	ENDIF
ENDIF
;調教者が今回:助손のとき(助손正Ｖ確定)
IF ASSIPLAY && RESULT == 1
	IF TEQUIP:38 == 62 || TEQUIP:38 == 63 || TEQUIP:39 == 81 || TEQUIP:39 == 140
		SIF TEQUIP:38 == 62
			RESULTS = 3P(主正Ａ助正Ｖ)
		SIF TEQUIP:38 == 63
			RESULTS = 3P(主後Ａ助正Ｖ)
		SIF TEQUIP:39 == 81
			RESULTS = 3P(主Ｍ助正Ｖ)
		SIF TEQUIP:39 == 140
			RESULTS = 3P(主Ｍ助正Ｖ)
		RETURN 3
	ENDIF
ENDIF
;調教者が前回:助손で今回:主人(主人正Ｖ確定)
IF !ASSIPLAY && TFLAG:50 && RESULT == 1
	IF PREVCOM == 62 || PREVCOM == 63 || PREVCOM == 81 || PREVCOM == 140
		SIF PREVCOM == 62
			RESULTS = 3P(主正Ｖ助正Ａ)
		SIF PREVCOM == 63
			RESULTS = 3P(主正Ｖ助後Ａ)
		SIF PREVCOM == 81
			RESULTS = 3P(主正Ｖ助Ｍ)
		SIF PREVCOM == 140
			RESULTS = 3P(主正Ｖ助Ｍ)
		RETURN 2
	ENDIF
ENDIF
;前回今回助손の時、前のプレイが정상위かつ調教者の기교3以上の場合、挿入Ｇスポ責めへ派生。
IF TFLAG:50 && ASSIPLAY && PREVCOM == 60 && ABL:PLAYER:2 >= 3
	RESULTS = 挿入Ｇスポ責め
	RETURN 5
ENDIF
;主人の時、정상위中かつ調教者の기교3以上の場合、挿入Ｇスポ責めへ派生。
IF !ASSIPLAY && TEQUIP:37 == 60 && ABL:PLAYER:2 >= 3
	RESULTS = 挿入Ｇスポ責め
	RETURN 5
ENDIF
	;通常
	RESULTS = %TRAINNAME:60%
	RETURN 0
;=================================================
;=================================================
@COM60
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME60

TFLAG:42 = 0
;3Pなら
IF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 4
		TFLAG:42 = 1
	JUMP COM500
;挿入Ｇスポ責めへ
ELSEIF RESULT == 5
	JUMP COM506
;他の体位中の時
ELSEIF TEQUIP:37 > 0 && TEQUIP:37 != 60 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：정상위
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 정상위
		RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:19 == 0 && TEQUIP:44 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

	;ABL:욕망
	IF ABL:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:1
		PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:Ｖ감각
	IF ABL:4
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:4 * 2
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:4
		PRINTV 'LV,ABL:4,'(,ABL:4 * 2,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:섹스중독
	IF ABL:18
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:18 * 1
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:18
		PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌락각인
	IF MARK:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += MARK:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS MARKNAME:1
		PRINTV 'LV,MARK:1,'(,MARK:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;PALAM:윤활（の不足）
	IF PALAM:4 < PALAMLV:3
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINT 윤활부족
		PRINTV '(,5,')
		RESETCOLOR
		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
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += L * 3
		CALL SET_COLOR_STATUS,1
		PRINTS PALAMNAME:6
		PRINTV 'LV,L,'(,L * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;부끄럼쟁이
	IF TALENT:85
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 2
		PRINTS TALENTNAME:85
		PRINTV '(,2,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌감을부정
	IF TALENT:171
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINTS TALENTNAME:171
		PRINTV '(,5,')
		RESETCOLOR
		S = 1
	ENDIF
	;남성혐오（연모、친애で無効）
	IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 12
		PRINTS TALENTNAME:192
		PRINTV '(,12,')
		RESETCOLOR
		S = 1
	ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

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

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

	;걸레녀
	IF TALENT:158
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 8
		PRINTS TALENTNAME:158
		PRINTV '(,8,')
		RESETCOLOR
		S = 1
	ENDIF

	;거절（陥落素質で無効）
	IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:159
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

	;공주님소망
	IF TALENT:199
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 5
		PRINTS TALENTNAME:199
		PRINTV '(,5,')
		RESETCOLOR
		S = 1
	ENDIF

	;영구발정
	IF TALENT:178
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 50
		PRINTS TALENTNAME:178
		PRINTV '(,50,')
		RESETCOLOR
		S = 1
	ENDIF

	;연모
	IF TALENT:3 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 15
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:3
		PRINTV '(,15,')
		RESETCOLOR
		S = 15
	ENDIF
	;친애
	IF TALENT:6 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 20
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:6
		PRINTV '(,20,')
		RESETCOLOR
		S = 20
	ENDIF
	;교제
	IF TALENT:교제 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 10
		CALL SET_COLOR_STATUS,1
		PRINT 교제
		PRINTV '(,10,')
		RESETCOLOR
		S = 10
	ENDIF

	;처녀
	IF TALENT:0
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 40
		PRINTS TALENTNAME:0
		PRINTV '(,40,')
		RESETCOLOR
		S = 1
	;V経験
	ELSEIF EXP:0 < EXPLV:2
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 15
		PRINTS EXPNAME:0
		PRINT 부족
		PRINTV '(,15,')
		RESETCOLOR
		S = 1
	ENDIF

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

	;미약
	IF TEQUIP:26
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 6
		CALL SET_COLOR_STATUS,1
		PRINTS ITEMNAME:41
		PRINTV '(,6,')
		RESETCOLOR
		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
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:151
			RESETCOLOR
		ELSEIF TALENT:152
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:152
			RESETCOLOR
		ELSE
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음
			RESETCOLOR
		ENDIF
		CALL SET_COLOR_STATUS,1
		PRINTV '(,Y,')
		RESETCOLOR
		S = 1
	ENDIF

	;合計を表示(20以上で実行)
	CALL SET_COLOR_STATUS,1
	PRINT  =
	PRINTV A
	RESETCOLOR

	V = 20
	IF A < V
		CALL SET_COLOR_STATUS,1
		PRINT  <
		RESETCOLOR
	ELSEIF A == V
		CALL SET_COLOR_STATUS,1
		PRINT  =
		RESETCOLOR
	ELSEIF A > V
		CALL SET_COLOR_STATUS,1
		PRINT  >
		RESETCOLOR
	ENDIF
	CALL SET_COLOR_STATUS,1
	PRINT 실행치
	PRINTV V
	RESETCOLOR

	WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:37 > 0 && TEQUIP:37 != 60
	STR:0 = 体位変更：정상위
ELSE
	;通常
	STR:0 = 정상위
ENDIF

;조교자가 주인일 때、継続を一旦消す
;입上で前の体位のテキストが出ないようにする。
IF !ASSIPLAY
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

CALL KOJO_MESSAGE_COM

;体位の処理
IF !ASSIPLAY
	;体位を記録
	TEQUIP:37 = 60
	;体位変更や挿入ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
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 = 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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ｖ개발경험+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 +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 += 4
ENDIF

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

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

TFLAG:301 = 10

RETURN 1
;=================================================
;정상위継続の処理
;=================================================
@EQUIP_COM60
#DIM HOZONP
;☆継続中ち○こをチェックする
CALL UNEQUIP_CHECK(SELECTCOM)
;☆RESULTが2か3なら継続効果ｽﾙｰ
IF RESULT == 2 || RESULT == 3
	;RESULTが3なら継続効果自体を停止する
	SIF RESULT == 3
		TEQUIP:37 = 0
	RETURN 1
ENDIF

CALL SET_COLOR_STATUS,2
PRINTL ＜정상위 성교중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;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 = 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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;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

;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += 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

;의존도ベクトル
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
;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;후배위
;セックス系コマンド、レベル1
;-------------------------------------------------
@COMNAME61
;前回の調教が3Pのとき3Pへ
CALL COM_ABLE500
IF PREVCOM == 500 && RESULT == 1
	;助손が調教者の時は主人が同じ場所に挿入してないか確認
	IF ASSIPLAY && TEQUIP:37 == 0
		RESULTS = 3P継続(助後Ｖ)
		RETURN 4
	ELSEIF !ASSIPLAY
		RESULTS = 3P継続(主後Ｖ)
		RETURN 4
	ENDIF
ENDIF
;調教者が今回:助손のとき(助손後Ｖ確定)
IF ASSIPLAY && RESULT == 1
	IF TEQUIP:38 == 62 || TEQUIP:38 == 63 || TEQUIP:39 == 81 || TEQUIP:39 == 140
		SIF TEQUIP:38 == 62
			RESULTS = 3P(主正Ａ助後Ｖ)
		SIF TEQUIP:38 == 63
			RESULTS = 3P(主後Ａ助後Ｖ)
		SIF TEQUIP:39 == 81
			RESULTS = 3P(主Ｍ助後Ｖ)
		SIF TEQUIP:39 == 140
			RESULTS = 3P(主Ｍ助後Ｖ)
		RETURN 3
	ENDIF
ENDIF
;調教者が前回:助손で今回:主人(主人後Ｖ確定)
IF !ASSIPLAY && TFLAG:50 && RESULT == 1
	IF PREVCOM == 62 || PREVCOM == 63 || PREVCOM == 81 || PREVCOM == 140
		SIF PREVCOM == 62
			RESULTS = 3P(主後Ｖ助正Ａ)
		SIF PREVCOM == 63
			RESULTS = 3P(主後Ｖ助後Ａ)
		SIF PREVCOM == 81
			RESULTS = 3P(主後Ｖ助Ｍ)
		SIF PREVCOM == 140
			RESULTS = 3P(主後Ｖ助Ｍ)
		RETURN 2
	ENDIF
ENDIF
;前回今回助손の時、前のプレイが후배위かつ調教者の기교3以上の場合、挿入Ｇスポ責めへ派生。
IF TFLAG:50 && ASSIPLAY && PREVCOM == 61 && ABL:PLAYER:2 >= 3
	RESULTS = 挿入子宮입責め
	RETURN 5
ENDIF
;主人の時、후배위中かつ調教者の기교3以上の場合、挿入Ｇスポ責めへ派生。
IF !ASSIPLAY && TEQUIP:37 == 61 && ABL:PLAYER:2 >= 3
	RESULTS = 挿入子宮입責め
	RETURN 5
ENDIF
	;通常
	RESULTS = %TRAINNAME:61%
	RETURN 0
;=================================================
;=================================================
@COM61
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0

;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME61

TFLAG:42 = 0
;3Pなら
IF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 4
		TFLAG:42 = 1
	JUMP COM500
;挿入子宮입責めへ
ELSEIF RESULT == 5
	JUMP COM507
;他の体位中の時
ELSEIF TEQUIP:37 > 0 && TEQUIP:37 != 61  && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：후배위
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 후배위
		RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:19 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

	;ABL:욕망
	IF ABL:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:1
		PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:Ｖ감각
	IF ABL:4
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:4 * 2
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:4
		PRINTV 'LV,ABL:4,'(,ABL:4 * 2,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:섹스중독
	IF ABL:18
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:18 * 1
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:18
		PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌락각인
	IF MARK:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += MARK:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS MARKNAME:1
		PRINTV 'LV,MARK:1,'(,MARK:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;PALAM:윤활（の不足）
	IF PALAM:4 < PALAMLV:3
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINT 윤활부족
		PRINTV '(,5,')
		RESETCOLOR
		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
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += L * 3
		CALL SET_COLOR_STATUS,1
		PRINTS PALAMNAME:6
		PRINTV 'LV,L,'(,L * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;부끄럼쟁이
	IF TALENT:85
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 2
		PRINTS TALENTNAME:85
		PRINTV '(,2,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌감을부정
	IF TALENT:171
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINTS TALENTNAME:171
		PRINTV '(,5,')
		RESETCOLOR
		S = 1
	ENDIF
	;남성혐오（연모、친애で無効）
	IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 12
		PRINTS TALENTNAME:192
		PRINTV '(,12,')
		RESETCOLOR
		S = 1
	ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

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

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

	;거절（陥落素質で無効）
	IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:159
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

	;걸레녀
	IF TALENT:158
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 8
		PRINTS TALENTNAME:158
		PRINTV '(,8,')
		RESETCOLOR
		S = 1
	ENDIF

	;영구발정
	IF TALENT:178
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 50
		PRINTS TALENTNAME:178
		PRINTV '(,50,')
		RESETCOLOR
		S = 1
	ENDIF

	;연모
	IF TALENT:3 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 15
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:3
		PRINTV '(,15,')
		RESETCOLOR
		S = 15
	ENDIF
	;친애
	IF TALENT:6 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 20
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:6
		PRINTV '(,20,')
		RESETCOLOR
		S = 20
	ENDIF
	;교제
	IF TALENT:교제 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 8
		CALL SET_COLOR_STATUS,1
		PRINT 교제
		PRINTV '(,8,')
		RESETCOLOR
		S = 8
	ENDIF
	;처녀
	IF TALENT:0
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 40
		PRINTS TALENTNAME:0
		PRINTV '(,40,')
		RESETCOLOR
		S = 1
	;V経験
	ELSEIF EXP:0 < EXPLV:2
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 15
		PRINTS EXPNAME:0
		PRINT 부족
		PRINTV '(,15,')
		RESETCOLOR
		S = 1
	ENDIF

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

	;미약
	IF TEQUIP:26
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 6
		CALL SET_COLOR_STATUS,1
		PRINTS ITEMNAME:41
		PRINTV '(,6,')
		RESETCOLOR
		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
		CALL SET_COLOR_STATUS,1
		PRINT  -
		RESETCOLOR
		A -= Y
		;악취둔감
		IF TALENT:151
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:151
			RESETCOLOR
		ELSEIF TALENT:152
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:152
			RESETCOLOR
		ELSE
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음
			RESETCOLOR
		ENDIF
		CALL SET_COLOR_STATUS,1
		PRINTV '(,Y,')
		RESETCOLOR
		S = 1
	ENDIF

	;合計を表示(22以上で実行)
	CALL SET_COLOR_STATUS,1
	PRINT  =
	PRINTV A
	RESETCOLOR

	V = 22
	IF A < V
		CALL SET_COLOR_STATUS,1
		PRINT  <
		RESETCOLOR
	ELSEIF A == V
		CALL SET_COLOR_STATUS,1
		PRINT  =
		RESETCOLOR
	ELSEIF A > V
		CALL SET_COLOR_STATUS,1
		PRINT  >
		RESETCOLOR
	ENDIF
	CALL SET_COLOR_STATUS,1
	PRINT 실행치
	PRINTV V
	RESETCOLOR

	WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:37 > 0 && TEQUIP:37 != 61
	STR:0 = 体位変更：후배위
ELSE
	;通常
	STR:0 = 후배위
ENDIF

;조교자가 주인일 때、継続を一旦消す
;입上で前の体位のテキストが出ないようにする。
IF !ASSIPLAY
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

CALL KOJO_MESSAGE_COM

;体位の処理
IF !ASSIPLAY
	;体位を記録
	TEQUIP:37 = 61
	;体位変更や挿入ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
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 = 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 += 50
LOSEBASE:1 += 100

SOURCE:쾌Ｖ = 400
SOURCE:정애 = 150
SOURCE:아픔 = 400
SOURCE:중독충족 = 150
SOURCE:노출 = 70
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:아픔 += 1500
	SOURCE:반발 += 3000
ENDIF

;재생처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:1 == 1
	SOURCE:아픔 += 300
	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
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ｖ개발경험+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 +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

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

TFLAG:301 = 10

RETURN 1
;=================================================
;후배위継続の処理
;=================================================
@EQUIP_COM61
#DIM HOZONP
;☆継続中ち○こをチェックする
CALL UNEQUIP_CHECK(SELECTCOM)
;☆RESULTが2か3なら継続効果ｽﾙｰ
IF RESULT == 2 || RESULT == 3
	;RESULTが3なら継続効果自体を停止する
	SIF RESULT == 3
		TEQUIP:37 = 0
	RETURN 1
ENDIF

CALL SET_COLOR_STATUS,2
PRINTL ＜후배위 성교중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER

;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 = 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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;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

;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += 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

;의존도ベクトル
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 += 4
ENDIF

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;정상위애널
;セックス系コマンド、レベル1
;-------------------------------------------------
@COMNAME62
;前回の調教が3Pのとき3Pへ
CALL COM_ABLE500
IF PREVCOM == 500 && RESULT == 1
	;助손が調教者の時は主人が同じ場所に挿入してないか確認
	IF ASSIPLAY && TEQUIP:38 == 0
		RESULTS = 3P継続(助正Ａ)
		RETURN 4
	ELSEIF !ASSIPLAY
		RESULTS = 3P継続(主正Ａ)
		RETURN 4
	ENDIF
ENDIF
;調教者が今回:助손のとき(助손正Ａ確定)
IF ASSIPLAY && RESULT == 1
	IF TEQUIP:37 == 60 || TEQUIP:37 == 61 || TEQUIP:37 == 66 || TEQUIP:39 == 81 || TEQUIP:39 == 140
		SIF TEQUIP:37 == 60
			RESULTS = 3P(主正Ｖ助正Ａ)
		SIF TEQUIP:37 == 61
			RESULTS = 3P(主後Ｖ助正Ａ)
		SIF TEQUIP:37 == 66
			RESULTS = 3P(主正Ｖ助正Ａ)
		SIF TEQUIP:39 == 81
			RESULTS = 3P(主Ｍ助正Ａ)
		SIF TEQUIP:39 == 140
			RESULTS = 3P(主Ｍ助正Ａ)
		RETURN 3
	ENDIF
ENDIF
;調教者が前回:助손で今回:主人(主人正Ａ確定)
IF !ASSIPLAY && TFLAG:50 && RESULT == 1
	;前回の調教が정상위か후배위か펠라치오か이라마치오のときは3Pへ
	IF PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 66 || PREVCOM == 81 || PREVCOM == 140
		SIF PREVCOM == 60
			RESULTS = 3P(主正Ａ助正Ｖ)
		SIF PREVCOM == 61
			RESULTS = 3P(主正Ａ助後Ｖ)
		SIF PREVCOM == 66
			RESULTS = 3P(主正Ａ助正Ｖ)
		SIF PREVCOM == 81
			RESULTS = 3P(主正Ａ助Ｍ)
		SIF PREVCOM == 140
			RESULTS = 3P(主正Ａ助Ｍ)
		RETURN 2
	ENDIF
ENDIF

	;通常
	RESULTS = %TRAINNAME:62%
	RETURN 0

;=================================================
;=================================================
@COM62
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME62

TFLAG:42 = 0
;3Pなら
IF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 4
		TFLAG:42 = 1
	JUMP COM500
;他の体位中の時
ELSEIF TEQUIP:38 > 0 && TEQUIP:38 != 62 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：정상위Ａ
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 정상위애널
		RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:19 == 0 && TEQUIP:44 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

	;ABL:욕망
	IF ABL:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:1
		PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:Ａ감각
	IF ABL:5
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:5 * 2
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:5
		PRINTV 'LV,ABL:5,'(,ABL:5 * 2,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:섹스중독
	IF ABL:18
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:18 * 1
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:18
		PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌락각인
	IF MARK:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += MARK:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS MARKNAME:1
		PRINTV 'LV,MARK:1,'(,MARK:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;PALAM:윤활（の不足）
	IF PALAM:4 < PALAMLV:3
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINT 윤활부족
		PRINTV '(,5,')
		RESETCOLOR
		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
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += L * 3
		CALL SET_COLOR_STATUS,1
		PRINTS PALAMNAME:6
		PRINTV 'LV,L,'(,L * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;부끄럼쟁이
	IF TALENT:85
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 2
		PRINTS TALENTNAME:85
		PRINTV '(,2,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌감을부정
	IF TALENT:171
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINTS TALENTNAME:171
		PRINTV '(,5,')
		RESETCOLOR
		S = 1
	ENDIF
	;남성혐오（연모、친애で無効）
	IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 12
		PRINTS TALENTNAME:192
		PRINTV '(,12,')
		RESETCOLOR
		S = 1
	ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

	;潔癖症
	IF TALENT:60
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:60
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

	;거절（陥落素質で無効）
	IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:159
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

	;Ａ거부
	IF TALENT:156
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 20
		PRINTS TALENTNAME:156
		PRINTV '(,20,')
		RESETCOLOR
		S = 1
	ENDIF

	;영구발정
	IF TALENT:178
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 50
		PRINTS TALENTNAME:178
		PRINTV '(,50,')
		RESETCOLOR
		S = 1
	ENDIF

	;음란
	IF TALENT:4 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 15
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:4
		PRINTV '(,15,')
		RESETCOLOR
		S = 15
	ENDIF
	;창녀
	IF TALENT:7 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 20
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:7
		PRINTV '(,20,')
		RESETCOLOR
		S = 20
	ENDIF
	;A経験
	IF EXP:1 < EXPLV:2
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 30
		PRINTS EXPNAME:1
		PRINT 부족
		PRINTV '(,30,')
		RESETCOLOR
		S = 1
	ENDIF

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

	;미약
	IF TEQUIP:26
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 6
		CALL SET_COLOR_STATUS,1
		PRINTS ITEMNAME:41
		PRINTV '(,6,')
		RESETCOLOR
		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
		CALL SET_COLOR_STATUS,1
		PRINT  -
		RESETCOLOR
		A -= Y
		;악취둔감
		IF TALENT:151
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:151
			RESETCOLOR
		ELSEIF TALENT:152
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:152
			RESETCOLOR
		ELSE
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음
			RESETCOLOR
		ENDIF
		CALL SET_COLOR_STATUS,1
		PRINTV '(,Y,')
		RESETCOLOR
		S = 1
	ENDIF

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

	V = 30
	IF A < V
		CALL SET_COLOR_STATUS,1
		PRINT  <
		RESETCOLOR
	ELSEIF A == V
		CALL SET_COLOR_STATUS,1
		PRINT  =
		RESETCOLOR
	ELSEIF A > V
		CALL SET_COLOR_STATUS,1
		PRINT  >
		RESETCOLOR
	ENDIF
	CALL SET_COLOR_STATUS,1
	PRINT 실행치
	PRINTV V
	RESETCOLOR

	WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:38 > 0 && TEQUIP:38 != 62
	STR:0 = 体位変更：정상위Ａ
ELSE
	;通常
	STR:0 = 정상위애널
ENDIF

;조교자가 주인일 때、継続を一旦消す
;입上で前の体位のテキストが出ないようにする。
IF !ASSIPLAY
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

CALL KOJO_MESSAGE_COM

;体位の処理
IF !ASSIPLAY
	;体位を記録
	TEQUIP:38 = 62
	;体位変更や挿入ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
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 = 2
	;射精先選択の可・不可
	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
;Ａ개발경험+1
A = 1
PRINTFORML %EXPNAME:14%+{A}
EXP:14 += 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:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

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

TFLAG:301 = 10

RETURN 1

;=================================================
;정상위A継続の処理
;=================================================
@EQUIP_COM62
#DIM HOZONP
;☆継続中ち○こをチェックする
CALL UNEQUIP_CHECK(SELECTCOM)
;☆RESULTが2か3なら継続効果ｽﾙｰ
IF RESULT == 2 || RESULT == 3
	;RESULTが3なら継続効果自体を停止する
	SIF RESULT == 3
		TEQUIP:38 = 0
	RETURN 1
ENDIF

CALL SET_COLOR_STATUS,2
PRINTL ＜정상위Ａ 성교중＞
RESETCOLOR

;☆一時的に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: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 = 2
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
	;コマンドごとに固有の処理はこの下に書く
ENDIF

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

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

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

;성교경험
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

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;후배위애널
;セックス系コマンド、レベル1
;-------------------------------------------------
@COMNAME63
;前回の調教が3Pのとき3Pへ
CALL COM_ABLE500
IF PREVCOM == 500 && RESULT == 1
	;助손が調教者の時は主人が同じ場所に挿入してないか確認
	IF ASSIPLAY && TEQUIP:38 == 0
		RESULTS = 3P継続(助後Ａ)
		RETURN 4
	ELSEIF !ASSIPLAY
		RESULTS = 3P継続(主後Ａ)
		RETURN 4
	ENDIF
ENDIF
;調教者が今回:助손のとき(助손後Ａ確定)
IF ASSIPLAY && RESULT == 1
	IF TEQUIP:37 == 60 || TEQUIP:37 == 61 || TEQUIP:37 == 66 || TEQUIP:39 == 81 || TEQUIP:39 == 140
		SIF TEQUIP:37 == 60
			RESULTS = 3P(主正Ｖ助後Ａ)
		SIF TEQUIP:37 == 61
			RESULTS = 3P(主後Ｖ助後Ａ)
		SIF TEQUIP:37 == 66
			RESULTS = 3P(主正Ｖ助後Ａ)
		SIF TEQUIP:39 == 81
			RESULTS = 3P(主Ｍ助後Ａ)
		SIF TEQUIP:39 == 140
			RESULTS = 3P(主Ｍ助後Ａ)
		RETURN 3
	ENDIF
ENDIF
;調教者が前回:助손で今回:主人(主人後Ａ確定)
IF !ASSIPLAY && TFLAG:50 && RESULT == 1
	;前回の調教が정상위か후배위か펠라치오か이라마치오のときは3Pへ
	IF PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 66 || PREVCOM == 81 || PREVCOM == 140
		SIF PREVCOM == 60
			RESULTS = 3P(主後Ａ助正Ｖ)
		SIF PREVCOM == 61
			RESULTS = 3P(主後Ａ助後Ｖ)
		SIF PREVCOM == 66
			RESULTS = 3P(主後Ａ助正Ｖ)
		SIF PREVCOM == 81
			RESULTS = 3P(主後Ａ助Ｍ)
		SIF PREVCOM == 140
			RESULTS = 3P(主後Ａ助Ｍ)
		RETURN 2
	ENDIF
ENDIF

	;通常
	RESULTS = %TRAINNAME:63%
	RETURN 0

;=================================================
;=================================================
@COM63
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME63

TFLAG:42 = 0
;3Pなら
IF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 4
		TFLAG:42 = 1
	JUMP COM500
;他の体位中の時
ELSEIF TEQUIP:38 > 0 && TEQUIP:38 != 63 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：후배위Ａ
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 후배위애널
		RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:19 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

	;ABL:욕망
	IF ABL:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:1
		PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:Ａ감각
	IF ABL:5
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:5 * 2
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:5
		PRINTV 'LV,ABL:5,'(,ABL:5 * 2,')
		RESETCOLOR
		S = 1
	ENDIF
	;ABL:섹스중독
	IF ABL:18
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += ABL:18 * 1
		CALL SET_COLOR_STATUS,1
		PRINTS ABLNAME:18
		PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌락각인
	IF MARK:1
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += MARK:1 * 3
		CALL SET_COLOR_STATUS,1
		PRINTS MARKNAME:1
		PRINTV 'LV,MARK:1,'(,MARK:1 * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;PALAM:윤활（の不足）
	IF PALAM:4 < PALAMLV:3
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINT 윤활부족
		PRINTV '(,5,')
		RESETCOLOR
		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
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += L * 3
		CALL SET_COLOR_STATUS,1
		PRINTS PALAMNAME:6
		PRINTV 'LV,L,'(,L * 3,')
		RESETCOLOR
		S = 1
	ENDIF
	;부끄럼쟁이
	IF TALENT:85
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 2
		PRINTS TALENTNAME:85
		PRINTV '(,2,')
		RESETCOLOR
		S = 1
	ENDIF
	;쾌감을부정
	IF TALENT:171
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 5
		PRINTS TALENTNAME:171
		PRINTV '(,5,')
		RESETCOLOR
		S = 1
	ENDIF
	;남성혐오（연모、친애で無効）
	IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 12
		PRINTS TALENTNAME:192
		PRINTV '(,12,')
		RESETCOLOR
		S = 1
	ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

	;潔癖症
	IF TALENT:60
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:60
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

	;거절（陥落素質で無効）
	IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:159
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF

	;Ａ거부
	IF TALENT:156
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 20
		PRINTS TALENTNAME:156
		PRINTV '(,20,')
		RESETCOLOR
		S = 1
	ENDIF

	;영구발정
	IF TALENT:178
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 50
		PRINTS TALENTNAME:178
		PRINTV '(,50,')
		RESETCOLOR
		S = 1
	ENDIF

	;음란
	IF TALENT:4 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 15
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:4
		PRINTV '(,15,')
		RESETCOLOR
		S = 15
	ENDIF
	;창녀
	IF TALENT:7 && ASSIPLAY == 0
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 20
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:7
		PRINTV '(,20,')
		RESETCOLOR
		S = 20
	ENDIF
	;A経験
	IF EXP:1 < EXPLV:2
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 30
		PRINTS EXPNAME:1
		PRINT 부족
		PRINTV '(,30,')
		RESETCOLOR
		S = 1
	ENDIF

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

	;미약
	IF TEQUIP:26
		IF S
			CALL SET_COLOR_STATUS,1
			PRINT  +
			RESETCOLOR
		ENDIF
		A += 6
		CALL SET_COLOR_STATUS,1
		PRINTS ITEMNAME:41
		PRINTV '(,6,')
		RESETCOLOR
		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
		CALL SET_COLOR_STATUS,1
		PRINT  -
		RESETCOLOR
		A -= Y
		;악취둔감
		IF TALENT:151
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:151
			RESETCOLOR
		ELSEIF TALENT:152
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음、
			PRINTS TALENTNAME:152
			RESETCOLOR
		ELSE
			CALL SET_COLOR_STATUS,1
			PRINT 더러움있음
			RESETCOLOR
		ENDIF
		CALL SET_COLOR_STATUS,1
		PRINTV '(,Y,')
		RESETCOLOR
		S = 1
	ENDIF

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

	V = 32
	IF A < V
		CALL SET_COLOR_STATUS,1
		PRINT  <
		RESETCOLOR
	ELSEIF A == V
		CALL SET_COLOR_STATUS,1
		PRINT  =
		RESETCOLOR
	ELSEIF A > V
		CALL SET_COLOR_STATUS,1
		PRINT  >
		RESETCOLOR
	ENDIF
	CALL SET_COLOR_STATUS,1
	PRINT 실행치
	PRINTV V
	RESETCOLOR

	WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:38 > 0 && TEQUIP:38 != 63
	STR:0 = 体位変更：후배위Ａ
ELSE
	;通常
	STR:0 = 후배위애널
ENDIF

;조교자가 주인일 때、継続を一旦消す
;입上で前の体位のテキストが出ないようにする。
IF !ASSIPLAY
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

CALL KOJO_MESSAGE_COM

;体位の処理
IF !ASSIPLAY
	;体位を記録
	TEQUIP:38 = 63
	;体位変更や挿入ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
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

;再装填処理中は射精ゲージは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:아픔 = 900
SOURCE:중독충족 = 250
SOURCE:노출 = 80
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 = 2
	;射精先選択の可・不可
	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
;Ａ개발경험+1
A = 1
PRINTFORML %EXPNAME:14%+{A}
EXP:14 += 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:5 && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF TALENT:8 && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

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

TFLAG:301 = 10

RETURN 1

;=================================================
;후배위Ａ継続の処理
;=================================================
@EQUIP_COM63
#DIM HOZONP
;☆継続中ち○こをチェックする
CALL UNEQUIP_CHECK(SELECTCOM)
;☆RESULTが2か3なら継続効果ｽﾙｰ
IF RESULT == 2 || RESULT == 3
	;RESULTが3なら継続効果自体を停止する
	SIF RESULT == 3
		TEQUIP:38 = 0
	RETURN 1
ENDIF

CALL SET_COLOR_STATUS,2
PRINTL ＜후배위Ａ 성교중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER

;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
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

;再装填処理中は射精ゲージは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:아픔 = 900
SOURCE:중독충족 = 250
SOURCE:노출 = 80
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 = 2
	;射精先選択の可・不可
	TFLAG:704 = 1
	;汎用的な処理はこの関数で行う
	;（射精ゲージの再計算や사정경험の上昇と共通部分の表示）
	CALL SAMEN_SHOOT
ENDIF

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

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

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

;성교경험
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

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;역강간
;セックス系コマンド、レベル1
;-------------------------------------------------
@COM64
CALL SET_COLOR_STATUS,3
PRINTL 역강간
RESETCOLOR

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

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

;ABL:욕망
IF ABL:1
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:1 * 2
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 2,')
	RESETCOLOR
	S = 1
ENDIF

IF MARK:1
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += MARK:1 * 2
	CALL SET_COLOR_STATUS,1
	PRINTS MARKNAME:1
	PRINTV 'LV,MARK:1,'(,MARK:1 * 2,')
	RESETCOLOR
	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
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += L * 2
	CALL SET_COLOR_STATUS,1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 2,')
	RESETCOLOR
	S = 1
ENDIF

;쾌감에솔직
IF TALENT:170
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 2
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:170
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 2
	PRINTS TALENTNAME:171
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF
;성악
IF TALENT:35
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 12
	PRINTS TALENTNAME:35
	PRINTV '(,12,')
	RESETCOLOR
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 30
	PRINTS TALENTNAME:91
	PRINTV '(,30,')
	RESETCOLOR
	S = 1
ENDIF
;걸레녀
IF TALENT:158
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 8
	PRINTS TALENTNAME:158
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;영구발정
IF TALENT:178
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	RESETCOLOR
	S = 1
ENDIF

;음란
IF TALENT:4 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:4
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
ENDIF
;창녀
IF TALENT:7 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 10
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:7
	PRINTV '(,10,')
	RESETCOLOR
	S = 10
ENDIF

;調教者が처녀
IF EXP:PLAYER:0 == 0
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 15
	PRINTFORM %조교자이름이% 처녀
	PRINTV '(,15,')
	RESETCOLOR
	S = 1
ENDIF

;調教者が정조관념
IF TALENT:PLAYER:180
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 10
	PRINTFORM %조교자이름이% 정조관념
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF

;調教者が정조무관심
IF TALENT:PLAYER:181
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 5
	PRINTFORM %조교자이름이% 정조무관심
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF

;調教者のABL:기교
IF ABL:PLAYER:2
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:PLAYER:2 * 4
	CALL SET_COLOR_STATUS,1
	PRINTFORM %NAME:PLAYER%의
	PRINTS ABLNAME:2
	PRINTV 'LV,ABL:PLAYER:2,'(,ABL:PLAYER:2 * 4,')
	RESETCOLOR
	S = 1
ENDIF

;合計を表示(15以上で実行)
CALL SET_COLOR_STATUS,1
PRINT  =
PRINTV A
RESETCOLOR

V = 15
IF A < V
	CALL SET_COLOR_STATUS,1
	PRINT  <
	RESETCOLOR
ELSEIF A == V
	CALL SET_COLOR_STATUS,1
	PRINT  =
	RESETCOLOR
ELSEIF A > V
	CALL SET_COLOR_STATUS,1
	PRINT  >
	RESETCOLOR
ENDIF
CALL SET_COLOR_STATUS,1
PRINT 실행치
PRINTV V
RESETCOLOR

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------

STR:0 = 역강간
CALL KOJO_MESSAGE_COM

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

;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

;助손のABL:V感깨우침をみる
IF ABL:PLAYER:4 == 0
	TIMES B , 0.50
ELSEIF ABL:PLAYER:4 == 1
	TIMES B , 0.80
ELSEIF ABL:PLAYER:4 == 2
	TIMES B , 1.00
ELSEIF ABL:PLAYER:4 == 3
	TIMES B , 1.20
ELSEIF ABL:PLAYER:4 == 4
	TIMES B , 1.50
ELSE
	TIMES B , 2.00
ENDIF

;助손のEXP:Ｖ경험をみる
IF EXP:PLAYER:0 < EXPLV:1
	TIMES B , 0.20
ELSEIF EXP:PLAYER:0 < EXPLV:2
	TIMES B , 0.50
ELSEIF EXP:PLAYER:0 < EXPLV:3
	TIMES B , 0.80
ELSEIF EXP:PLAYER:0 < EXPLV:4
	TIMES B , 1.00
ELSEIF EXP:PLAYER: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:1 += 40
LOSEBASE:1 += 220

SOURCE:쾌Ｃ = 400
SOURCE:성행동 = 500
SOURCE:굴종 = 1000
SOURCE:일탈 = 500
SOURCE:반발 = 500

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
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
;레이프소망には、達成、中毒、욕정ソース追加、일탈반감ソース低下
IF TALENT:155
	SOURCE:달성감 += 500
	SOURCE:중독충족 += 500
	SOURCE:욕정 += 500
	SOURCE:일탈 -= 200
	SOURCE:반발 -= 200
ENDIF
;소악마には성행동と욕정ソース追加、일탈ソース低下
IF TALENT:197
	SOURCE:성행동 += 150
	SOURCE:욕정 += 200
	SOURCE:일탈 -= 200
ENDIF
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;성악は、일탈ソースゼロ
SIF TALENT:35
	SOURCE:일탈 = 0
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 700
;調教者が처녀か재생처녀（一回のみ）
IF (TALENT:PLAYER:0 == 1 || TALENT:PLAYER:1 == 1) && CFLAG:8 == 0
	TIMES SOURCE:노출 , 20.00
	TIMES SOURCE:굴종 , 3.00
	TALENT:PLAYER:0 = 0
	PRINTFORML ＜%조교자호칭은% 처녀를 잃었다＞
	;이상경험追加
	EXP:50 += 1
	PRINTFORML %EXPNAME:50%＋１
	CFLAG:8 = 1
ENDIF

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF

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

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
IF TALENT:287 || TALENT:289 || TALENT:290
	;奴隷のＰ⇔調教者の질내の汚れが移動
	STAIN:2 |= STAIN:PLAYER:6
	STAIN:PLAYER:6 |= STAIN:2
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;調教者のV経験
EXP:PLAYER:0 += 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

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

TFLAG:301 = 10

RETURN 1