code:
;-------------------------------------------------
;펠라치오
;奉仕系コマンド、レベル2
;-------------------------------------------------
@COMNAME81

CALL COM_ABLE501
;밧줄使用中でなく、前回の調教が커닐링구스か펠라한다か69なら69に(但しﾌｪﾗ奉仕中はｸﾝﾆとかの所に69でるのでｽﾙｰ)
IF (PREVCOM == 1 || PREVCOM == 2 || PREVCOM == 501) && TEQUIP:19 == 0 && TEQUIP:39 != 81 && RESULT == 1
	;前回と今回の調教者が主人
	IF !ASSIPLAY && !TFLAG:50
		RESULTS = シックスナイン
		RETURN 9
	;前回と今回の調教者が助손
	ELSEIF ASSIPLAY && TFLAG:50
		RESULTS = ６９（助손）
		RETURN 8
	ENDIF
ENDIF

CALL COM_ABLE511
;前回の調教が二本フェラのとき二本フェラへ
IF PREVCOM == 511 && RESULT == 1
	RESULTS = 二本フェラ継続
	RETURN 7
ENDIF
;調教者が前回:助손で今回:主人か、前回:主人で今回:助손のとき
IF RESULT == 1
	;今回が主人調教＆前回調教が助손でフェラ
	IF !ASSIPLAY && TFLAG:50 && PREVCOM == 81
		RESULTS = 二本フェラ
		RETURN 6
	;今回助손調教で、主人にフェラ奉仕中
	ELSEIF ASSIPLAY && TEQUIP:39 == 81
		RESULTS = 二本フェラ
		RETURN 5
	ENDIF
ENDIF

CALL COM_ABLE500
;前回の調教が3Pのとき3Pへ
IF PREVCOM == 500 && RESULT == 1
	;助손が調教者の時は主人が同じ場所に挿入してないか確認
	IF ASSIPLAY && TEQUIP:39 == 0
		RESULTS = 3P継続(助Ｍ)
		RETURN 4
	ELSEIF !ASSIPLAY
		RESULTS = 3P継続(主Ｍ)
		RETURN 4
	ENDIF
ENDIF
;調教者が今回:助손のとき(助손Ｍ確定)
IF ASSIPLAY && RESULT == 1
	;主人への奉仕が정상위か후배위かＡのときは3Pへ
	IF TEQUIP:38 == 62 || TEQUIP:38 == 63 || TEQUIP:37 == 60 || TEQUIP:37 == 61
		SIF TEQUIP:38 == 62
			RESULTS = 3P(主正Ａ助Ｍ)
		SIF TEQUIP:38 == 63
			RESULTS = 3P(主後Ａ助Ｍ)
		SIF TEQUIP:37 == 60
			RESULTS = 3P(主正Ｖ助Ｍ)
		SIF TEQUIP:37 == 61
			RESULTS = 3P(主後Ｖ助Ｍ)
		RETURN 3
	ENDIF
ENDIF
;調教者が前回:助손で今回:主人(主人Ｍ確定)
IF !ASSIPLAY && TFLAG:50 && RESULT == 1
	;前回の調教が정상위か후배위かＡのときは3Pへ
	IF PREVCOM == 62 || PREVCOM == 63 || PREVCOM == 60 || PREVCOM == 61
		SIF PREVCOM == 62
			RESULTS = 3P(主Ｍ助正Ａ)
		SIF PREVCOM == 63
			RESULTS = 3P(主Ｍ助後Ａ)
		SIF PREVCOM == 60
			RESULTS = 3P(主Ｍ助正Ｖ)
		SIF PREVCOM == 61
			RESULTS = 3P(主Ｍ助後Ｖ)
		RETURN 2
	ENDIF
ENDIF

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

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

;シックスナインへ飛ぶ
IF RESULT == 8 || RESULT == 9
	JUMP COM501
;二本フェラへ飛ぶ
ELSEIF RESULT == 5 || RESULT == 6 || RESULT == 7
	JUMP COM511
;3Pへ飛ぶ
ELSEIF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 4
		TFLAG:42 = 1
	JUMP COM500
;他の体位中の時
ELSEIF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 81 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：펠라치오
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 펠라치오
		RESETCOLOR
ENDIF

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

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

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

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

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:85
	PRINTV '(,1,')
	S = 1
	RESETCOLOR
ENDIF
;악취둔감
IF TALENT:151
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 1
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:151
	PRINTV '(,1,')
	RESETCOLOR
	S = 1
ENDIF
;악취민감
IF TALENT:152
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:152
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;헌신적
IF TALENT:153
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 6
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:153
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:171
	PRINTV '(,1,')
	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 TEQUIP:50
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 100
	PRINTFORM 개구기使用中(100)
	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 -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	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 -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	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 += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 10
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	RESETCOLOR
	S = 10
ENDIF
;교제
IF TALENT:교제 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 3
	CALL SET_COLOR_STATUS,1
	PRINT 교제
	PRINTV '(,3,')
	RESETCOLOR
	S = 3
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	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

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

V = 24
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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 81
	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:39 = 81
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
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

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

TFLAG:301 = 10

RETURN 1

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

CALL SET_COLOR_STATUS,2
PRINTL ＜펠라 봉사중＞
RESETCOLOR

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

;実行者が奴隷であるフラグ
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

;☆굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF
;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;파이즈리
;奉仕系コマンド、レベル3
;-------------------------------------------------
@COMNAME82
CALL COM_ABLE508
;밧줄使用中でなく、前回の調教が커닐링구스か69か69ﾊﾟｲｽﾞﾘなら69ﾊﾟｲｽﾞﾘに(但しﾊﾟｲｽﾞﾘ中はｸﾝﾆとかの所に69ﾊﾟｲｽﾞﾘでるのでｽﾙｰ)
IF (PREVCOM == 1 || PREVCOM == 501 || PREVCOM == 508) && TEQUIP:19 == 0 && TEQUIP:39 != 82 && RESULT == 1
	;前回と今回の調教者が主人
	IF !ASSIPLAY && !TFLAG:50
		RESULTS = ６９파이즈리
		RETURN 3
	;前回と今回の調教者が助손
	ELSEIF ASSIPLAY && TFLAG:50
		RESULTS = ６９파이즈리（助손）
		RETURN 2
	ENDIF
ENDIF

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

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

;６９파이즈리へ飛ぶ
IF RESULT == 2 || RESULT == 3
	JUMP COM508
;他の体位中の時
ELSEIF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 82 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：파이즈리
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 파이즈리
	RESETCOLOR
ENDIF

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

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

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

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

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:85
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;악취둔감
IF TALENT:151
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 1
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:151
	PRINTV '(,1,')
	RESETCOLOR
	S = 1
ENDIF
;악취민감
IF TALENT:152
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:152
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;헌신적
IF TALENT:153
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 6
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:153
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	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 -= 3
	PRINTS TALENTNAME:34
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;성악
IF TALENT:35
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:60
	PRINTV '(,5,')
	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 -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	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 -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;Ｂ열등감
IF TALENT:89
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:89
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 5
	PRINTS TALENTNAME:90
	PRINTV '(,5,')
	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 += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 10
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	RESETCOLOR
	S = 10
ENDIF
;교제
IF TALENT:교제 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 3
	CALL SET_COLOR_STATUS,1
	PRINT 교제
	PRINTV '(,3,')
	RESETCOLOR
	S = 3
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	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以上で実行)
CALL SET_COLOR_STATUS,1
PRINT  =
PRINTV A
RESETCOLOR

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 82
	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:39 = 82
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
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

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

TFLAG:301 = 10

RETURN 1

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

CALL SET_COLOR_STATUS,2
PRINTL ＜파이즈리 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
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
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 100
;공주님소망には、정애と성행동と達成のソース増加
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

;Ｂ개발경험+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

;의존도補正値(主人かつ연모、음란、복종で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 += 4
ENDIF

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

TFLAG:100 = 1

;굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF
;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;스마타
;奉仕系コマンド、レベル1
;-------------------------------------------------
@COMNAME83
;
CALL COM_ABLE510
;調教者が主人で、前回の調教が조개맞대기(助손)かダブル스마타だとダブル스마타に
IF !ASSIPLAY && (PREVCOM == 510 || (TFLAG:50 && PREVCOM == 121))
	RESULTS = ダブル스마타
	RETURN 2
ENDIF

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

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

IF RESULT == 2
	;ダブル스마타へ
	JUMP COM510
;他の体位中の時
ELSEIF TEQUIP:40 > 0 && TEQUIP:40 != 83 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：스마타
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 스마타
	RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
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
;ABL:봉사정신
IF ABL:7
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:7 * 4
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:정액중독
IF ABL:16
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:16 * 1
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 1,')
	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:5 < PALAMLV:1
	L = 0
ELSEIF PALAM:5 < PALAMLV:2
	L = 1
ELSEIF PALAM:5 < PALAMLV:3
	L = 2
ELSEIF PALAM:5 < PALAMLV:4
	L = 3
ELSEIF PALAM:5 < 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:5
	PRINTV 'LV,L,'(,L * 3,')
	RESETCOLOR
	S = 1
ENDIF

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:85
	PRINTV '(,1,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	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 -= 5
	PRINTS TALENTNAME:192
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
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 -= 6
	PRINTS TALENTNAME:34
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;성악
IF TALENT:35
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:60
	PRINTV '(,5,')
	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 -= 20
	PRINTS TALENTNAME:91
	PRINTV '(,20,')
	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 -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	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 += 3
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:3
	PRINTV '(,3,')
	RESETCOLOR
	S = 3
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 6
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:6
	PRINTV '(,6,')
	RESETCOLOR
	S = 6
ENDIF
;교제
IF TALENT:교제 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 2
	CALL SET_COLOR_STATUS,1
	PRINT 교제
	PRINTV '(,2,')
	RESETCOLOR
	S = 2
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	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

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

;汚れあり
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

;合計を表示(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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:40 > 0 && TEQUIP:40 != 83
	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:40 = 83
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
TFLAG:28 = 1

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

;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 += 40
LOSEBASE:1 += 130

SOURCE:쾌Ｃ = 150
SOURCE:정애 = 80
SOURCE:성행동 = 250
SOURCE:달성감 = 50
SOURCE:굴종 = 500
SOURCE:일탈 = 120
SOURCE:반발 = 120

;上のほうで計算した汚れデータ
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:불결 += 300
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜스마타 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
TFLAG:28 = 1

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

;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 += 40
LOSEBASE:1 += 130

SOURCE:쾌Ｃ = 150
SOURCE:정애 = 80
SOURCE:성행동 = 250
SOURCE:달성감 = 50
SOURCE:굴종 = 500
SOURCE:일탈 = 120
SOURCE:반발 = 120

;上のほうで計算した汚れデータ
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:불결 += 300
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

;☆굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;거품마사지
;奉仕系コマンド、レベル3
;-------------------------------------------------
@COM84
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 * 1
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 1,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOr
	ENDIF
	A += ABL:7 * 4
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:정액중독
IF ABL:16
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:16 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 3,')
	RESETCOLOR
	S = 1
ENDIF

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

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:85
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;악취둔감
IF TALENT:151
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 1
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:151
	PRINTV '(,1,')
	RESETCOLOR
	S = 1
ENDIF
;악취민감
IF TALENT:152
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:152
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;헌신적
IF TALENT:153
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 6
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:153
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	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 -= 5
	PRINTS TALENTNAME:192
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
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 -= 3
	PRINTS TALENTNAME:34
	PRINTV '(,3,')
	RESETCOLOR
	S = 1
ENDIF
;성악
IF TALENT:35
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	RESETCOLOR
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:60
	PRINTV '(,5,')
	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 -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	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 -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;Ｂ열등감
IF TALENT:89
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 2
	PRINTS TALENTNAME:89
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 5
	PRINTS TALENTNAME:90
	PRINTV '(,5,')
	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 += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	RESETCOLOR
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 10
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	RESETCOLOR
	S = 10
ENDIF

;調教者が후타나리
IF TALENT:PLAYER:289
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:289
	PRINTV '(,8,')
	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以上で実行)
CALL SET_COLOR_STATUS,1
PRINT  =
PRINTV A
RESETCOLOR

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 거품마사지
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

;プレイヤーの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 += 50
LOSEBASE:1 += 180

SOURCE:쾌Ｃ = 200
SOURCE:쾌Ｂ = 200
SOURCE:정애 = 150
SOURCE:성행동 = 450
SOURCE:달성감 = 250
SOURCE:굴종 = 1200
SOURCE:일탈 = 600
SOURCE:반발 = 600

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1300
SIF TALENT:84
	SOURCE:우울 += 1300
;내향적には、억울ソース追加(基本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:일탈 += 1000
;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
SIF TALENT:89
	SOURCE:우울 += 300
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 100
;공주님소망には、정애と성행동と達成のソース増加
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:0 = 0
STAIN:1 = 0
STAIN:2 = 2
STAIN:3 = 1
STAIN:4 = 8
STAIN:5 = 0
STAIN:6 = 0

;調教者の汚れ
IF ASSIPLAY == 0
	STAIN:MASTER:0 = 0
	STAIN:MASTER:1 = 0
	STAIN:MASTER:2 = 2
	STAIN:MASTER:3 = 1
	STAIN:MASTER:4 = 8
	STAIN:MASTER:5 = 0
	STAIN:MASTER:6 = 0
ELSE
	STAIN:ASSI:0 = 0
	STAIN:ASSI:1 = 0
	STAIN:ASSI:2 = 2
	STAIN:ASSI:3 = 1
	STAIN:ASSI:4 = 8
	STAIN:ASSI:6 = 0
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

;Ｂ개발경험+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

;의존도補正値(主人かつ연모、음란、복종で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 += 4
ENDIF

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

TFLAG:100 = 1

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;풋잡
;奉仕系コマンド、レベル4
;-------------------------------------------------
@COMNAME85

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

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

;他の体位中の時
IF TEQUIP:40 > 0 && TEQUIP:40 != 85 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：풋잡
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 풋잡
	RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
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 * 1
	PRINTS ABLNAME:16
	PRINTV 'LV,ABL:16,'(,ABL:16 * 1,')
	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 '(,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 -= 1
	PRINTS TALENTNAME:152
	PRINTV '(,1,')
	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 '(,1,')
	S = 3
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 -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 10
	PRINTS TALENTNAME:35
	PRINTV '(,10,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 2
	PRINTS TALENTNAME:60
	PRINTV '(,2,')
	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: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:190
	SIF S
		PRINT  +
	A += 4
	PRINTS TALENTNAME:190
	PRINTV '(,4,')
	S = 4
ENDIF
;새드
IF TALENT:193
	SIF S
		PRINT  +
	A += 4
	PRINTS TALENTNAME:193
	PRINTV '(,4,')
	S = 4
ENDIF
;소악마
IF TALENT:197
	SIF S
		PRINT  +
	A += 4
	PRINTS TALENTNAME:197
	PRINTV '(,4,')
	S = 4
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

;풋잡では汚れがそれほど影響しない
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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF TEQUIP:40 > 0 && TEQUIP:40 != 85
	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:40 = 85
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
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

;プレイヤーの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 += 150

SOURCE:성행동 = 700
SOURCE:달성감 = 500
SOURCE:굴종 = 800
SOURCE:일탈 = 400
SOURCE:반발 = 400

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
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:불결 += 200
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 600
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜풋잡 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
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

;プレイヤーの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 += 150

SOURCE:성행동 = 700
SOURCE:달성감 = 500
SOURCE:굴종 = 800
SOURCE:일탈 = 400
SOURCE:반발 = 400

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
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:불결 += 200
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 600
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

;☆굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;발핥기강제
;奉仕系コマンド、レベル4
;-------------------------------------------------
@COM86
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

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 -= 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 -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 2
	PRINTS TALENTNAME:35
	PRINTV '(,2,')
	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: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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 발핥기강제
CALL KOJO_MESSAGE_COM

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

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

SOURCE:성행동 = 50
SOURCE:달성감 = 200
SOURCE:굴종 = 2000
SOURCE:불결 = 500
SOURCE:일탈 = 800
SOURCE:반발 = 800

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 750
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
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

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

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

TFLAG:100 = 1

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;세로파이즈리
;奉仕系コマンド、レベル3
;-------------------------------------------------
@COMNAME87

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

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

;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 87 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：세로파이즈리
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 세로파이즈리
	RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
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 '(,5,')
	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 += 5
	PRINTS TALENTNAME:90
	PRINTV '(,5,')
	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
	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: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:61
		PRINT 더러움있음、
		PRINTS TALENTNAME:151
	ELSEIF TALENT:62
		PRINT 더러움있음、
		PRINTS TALENTNAME:152
	ELSE
		PRINT 더러움있음
	ENDIF
	PRINTV '(,Y,')
	S = 1
ENDIF

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 87
	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:39 = 87
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
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

;プレイヤーの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 += 15
LOSEBASE:1 += 170

SOURCE:쾌Ｂ = 250
SOURCE:정애 = 200
SOURCE:성행동 = 350
SOURCE:달성감 = 250
SOURCE:굴종 = 1500
SOURCE:일탈 = 800
SOURCE:반발 = 800

;上のほうで計算した汚れデータ
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:불결 += 800
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
SIF TALENT:89
	SOURCE:우울 += 1500
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 100
;공주님소망には、정애と성행동と達成のソース増加
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
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
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

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

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜세로파이즈리 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
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

;プレイヤーの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 += 15
LOSEBASE:1 += 170

SOURCE:쾌Ｂ = 250
SOURCE:정애 = 200
SOURCE:성행동 = 350
SOURCE:달성감 = 250
SOURCE:굴종 = 1500
SOURCE:일탈 = 800
SOURCE:반발 = 800

;上のほうで計算した汚れデータ
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
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
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
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
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

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

TFLAG:100 = 1

;굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;파이즈리 펠라
;奉仕系コマンド、レベル3
;-------------------------------------------------
@COMNAME88

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

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

;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 88 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：파이즈리 펠라
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 파이즈리 펠라
	RESETCOLOR
ENDIF

;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
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 -= 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:89
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:89
	PRINTV '(,5,')
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	PRINT  +
	A += 5
	PRINTS TALENTNAME:90
	PRINTV '(,5,')
	S = 1
ENDIF
;공주님소망
IF TALENT:199
	PRINT  +
	A += 2
	PRINTS TALENTNAME:199
	PRINTV '(,2,')
	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: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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 88
	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:39 = 88
	;奉仕変更や開始ならば、EQUIP_COMで色々処理するのでここで終了。
	RETURN 1
ENDIF

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
TFLAG:28 = 1

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

;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 += 30
LOSEBASE:1 += 160

SOURCE:쾌Ｂ = 100
SOURCE:정애 = 250
SOURCE:성행동 = 500
SOURCE:달성감 = 300
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
;奴隷の입⇔調教者のＰの汚れが移動
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

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

TFLAG:100 = 1

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜파이즈리 펠라 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
TFLAG:28 = 1

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

;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 += 30
LOSEBASE:1 += 160

SOURCE:쾌Ｂ = 100
SOURCE:정애 = 250
SOURCE:성행동 = 500
SOURCE:달성감 = 300
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
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 100
;공주님소망には、정애と성행동と達成のソース増加
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: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

;Ｂ개발경험+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 = 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 += 4
ENDIF

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

TFLAG:100 = 1

;굴복각인Lv3でないか、반발각인がある場合は奉仕継続しない
IF MARK:2 != 3 || MARK:3 != 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1