code:
;-------------------------------------------------
;젖퍽
;セックス系コマンド、レベル1
;-------------------------------------------------
@COMNAME65

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

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

;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 65 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 봉사변경：젖퍽
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 젖퍽
	RESETCOLOR
ENDIF
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:44 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

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

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

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

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

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

	;Ｂ열등감
	IF TALENT:89
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 7
		PRINTS TALENTNAME:89
		PRINTV '(,7,')
		RESETCOLOR
		S = 1
	ENDIF

	;철벽（陥落素質で無効）
	IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 30
		PRINTS TALENTNAME:91
		PRINTV '(,30,')
		RESETCOLOR
		S = 1
	ENDIF
	;거절（陥落素質で無効）
	IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
		CALL SET_COLOR_STATUS,1
		PRINT  -
		A -= 10
		PRINTS TALENTNAME:159
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF
	;영구발정
	IF TALENT: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 += 4
		CALL SET_COLOR_STATUS,1
		PRINTS TALENTNAME:289
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

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

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

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

	WAIT

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

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

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1500

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

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

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

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

;調教対象のバストサイズを見る
;폭유
IF TALENT:242
	TIMES B , 1.50
;거유
ELSEIF TALENT:241
	TIMES B , 1.20
;빈유
ELSEIF TALENT:239
	TIMES B , 0.90
;절벽
ELSEIF TALENT:240
	TIMES B , 0.70
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 += 60
LOSEBASE:1 += 100

SOURCE:쾌Ｂ = 400
SOURCE:정애 = 100
SOURCE:아픔 = 400
SOURCE:중독충족 = 150
SOURCE:노출 = 40
SOURCE:일탈 = 150
SOURCE:반발 = 300

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 500
SIF TALENT:84
	SOURCE:우울 += 500
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 500
;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

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

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

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1

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

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 2
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 4
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

TFLAG:301 = 10

RETURN 1

;=================================================
;젖퍽継続の処理
;=================================================
@EQUIP_COM65
#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
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 1500

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

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

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

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

;調教対象のバストサイズを見る
;폭유
IF TALENT:242
	TIMES B , 1.50
;거유
ELSEIF TALENT:241
	TIMES B , 1.20
;빈유
ELSEIF TALENT:239
	TIMES B , 0.90
;절벽
ELSEIF TALENT:240
	TIMES B , 0.70
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 += 60
LOSEBASE:1 += 100

SOURCE:쾌Ｂ = 400
SOURCE:정애 = 100
SOURCE:아픔 = 400
SOURCE:중독충족 = 150
SOURCE:노출 = 40
SOURCE:일탈 = 150
SOURCE:반발 = 300

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 500
SIF TALENT:84
	SOURCE:우울 += 500
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 500
;中毒による중독충족のソースは先に処理しておく
;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

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

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

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1

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

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

;애정경험
IF TALENT:3 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 2
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 4
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

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

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

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

RETURN 1


code:
;-------------------------------------------------
;기승위
;セックス系コマンド、レベル2
;-------------------------------------------------
@COMNAME66

CALL COM_ABLE505
;기승위乳房継続は10가슴자위の方で表示する

;調教者が今回:助손で、前回調教が가슴자위
IF ASSIPLAY && PREVCOM == 10  && RESULT == 1
	RESULTS = 騎乗乳房자위
	RETURN 3
ENDIF
;調教者が今回:主人で、前回調教が가슴자위
IF !ASSIPLAY && PREVCOM == 10 && RESULT == 1
	RESULTS = 騎乗乳房자위
	RETURN 2
ENDIF
	;通常
	RESULTS = %TRAINNAME:66%
	RETURN 0
;=================================================
;=================================================
@COM66
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME66

;騎乗乳房자위なら
IF RESULT == 2 || RESULT == 3
	TFLAG:40 = 1
	JUMP COM505
;他の体位中の時
ELSEIF TEQUIP:37 > 0 && TEQUIP:37 != 66 && !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 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:Ｖ감각
IF ABL:4
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:4 * 2
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:4
	PRINTV 'LV,ABL:4,'(,ABL:4 * 2,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:봉사정신
IF ABL: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:18
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:18 * 1
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:18
	PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
	RESETCOLOR
	S = 1
ENDIF

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

;PALAM:윤활（の不足）
IF PALAM:4 < PALAMLV:3
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINT 윤활부족
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += L * 3
	CALL SET_COLOR_STATUS,1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	RESETCOLOR
	S = 1
ENDIF

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 2
	PRINTS TALENTNAME:85
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:171
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:192
	PRINTV '(,12,')
	RESETCOLOR
	S = 1
ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;기승위では汚れの影響が少なめ
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

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

V = 35
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:37 > 0 && TEQUIP:37 != 66
	STR:0 = 体位変更：기승위
ELSE
	;通常
	STR:0 = 기승위
ENDIF

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

CALL KOJO_MESSAGE_COM

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

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

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

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

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

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｖ = 500
SOURCE:정애 = 250
SOURCE:성행동 = 250
SOURCE:달성감 = 250
SOURCE:아픔 = 500
SOURCE:중독충족 = 350
SOURCE:노출 = 120
SOURCE:일탈 = 600
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750

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

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

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

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

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

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

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

;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += A
;이상경험
IF TALENT:0 == 1 && ASSIPLAY && TALENT:PLAYER:290 == 0
	EXP:50 += 3
	PRINTFORML %EXPNAME:50%＋３
ELSEIF TALENT:0 == 1
	EXP:50 += 2
	PRINTFORML %EXPNAME:50%＋２
ENDIF

;레즈경험
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 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +2
	EXP:23 += 2
ELSEIF TALENT:6 == 1 && ASSIPLAY == 0
	PRINTS EXPNAME:23
	PRINTL +4
	EXP:23 += 4
ENDIF

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

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

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

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

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

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

TFLAG:301 = 10

RETURN 1

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

CALL SET_COLOR_STATUS,2
PRINTL ＜기승위 성교중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

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

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

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

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｖ = 500
SOURCE:정애 = 250
SOURCE:성행동 = 250
SOURCE:달성감 = 250
SOURCE:아픔 = 500
SOURCE:중독충족 = 350
SOURCE:노출 = 120
SOURCE:일탈 = 600
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750

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

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

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

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

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

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

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

;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

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

;이상경험
IF TALENT:0 == 1 && ASSIPLAY && TALENT:PLAYER:290 == 0
	EXP:50 += 3
	PRINTFORML %EXPNAME:50%＋３
ELSEIF TALENT:0 == 1
	EXP:50 += 2
	PRINTFORML %EXPNAME:50%＋２
ENDIF

;레즈경험
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:13%+{A}
EXP:13 += A

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

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

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

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

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

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;기승위애널
;セックス系コマンド、レベル2
;-------------------------------------------------
@COMNAME67
;前回の調教が騎乗乳房자위の時、
CALL COM_ABLE505

;기승위乳房継続は10가슴자위の方で表示する

;調教者が今回:助손で、前回調教が가슴자위
IF ASSIPLAY && PREVCOM == 10 && RESULT == 1
	RESULTS = 騎乗Ａ乳房자위
	RETURN 3
ENDIF
;調教者が今回:主人で、前回調教が가슴자위
IF !ASSIPLAY && PREVCOM == 10 && RESULT == 1
	RESULTS = 騎乗Ａ乳房자위
	RETURN 2
ENDIF

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

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

;騎乗乳房자위なら
IF RESULT == 2 || RESULT == 3
	TFLAG:40 = 2
	JUMP COM505
;他の体位中の時
ELSEIF TEQUIP:38 > 0 && TEQUIP:38 != 67 && !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 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:Ａ감각
IF ABL:5
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:5 * 2
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:5
	PRINTV 'LV,ABL:5,'(,ABL:5 * 2,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:봉사정신
IF ABL: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:18
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:18 * 1
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:18
	PRINTV 'LV,ABL:18,'(,ABL:18 * 1,')
	RESETCOLOR
	S = 1
ENDIF

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

;PALAM:윤활（の不足）
IF PALAM:4 < PALAMLV:3
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINT 윤활부족
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += L * 3
	CALL SET_COLOR_STATUS,1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	RESETCOLOR
	S = 1
ENDIF

;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 2
	PRINTS TALENTNAME:85
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:171
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;남성혐오（연모、친애で無効）
IF TALENT:192 && TALENT:PLAYER:290 && ((TALENT:3 == 0 && TALENT:6 == 0) || PLAYER != MASTER)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:192
	PRINTV '(,12,')
	RESETCOLOR
	S = 1
ENDIF
	;감정부족
	IF TALENT:30
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 4
		PRINTS TALENTNAME:30
		PRINTV '(,4,')
		RESETCOLOR
		S = 1
	ENDIF

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

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

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

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

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

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

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

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

	;영구발정
	IF TALENT:178
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 50
		PRINTS TALENTNAME:178
		PRINTV '(,50,')
		RESETCOLOR
		S = 1
	ENDIF
;음란
IF TALENT:4 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 15
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:4
	PRINTV '(,15,')
	RESETCOLOR
	S = 15
ENDIF
;창녀
IF TALENT:7 && ASSIPLAY == 0
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 20
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:7
	PRINTV '(,20,')
	RESETCOLOR
	S = 20
ENDIF

;A経験
IF EXP:1 < EXPLV:2
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 30
	PRINTS EXPNAME:1
	PRINT 부족
	PRINTV '(,30,')
	RESETCOLOR
	S = 1
ENDIF

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

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

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

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

;기승위では汚れの影響が少なめ
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

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

V = 45
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:38 > 0 && TEQUIP:38 != 67
	STR:0 = 体位変更：기승위애널
ELSE
	;通常
	STR:0 = 기승위애널
ENDIF

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

CALL KOJO_MESSAGE_COM

;体位の処理
IF !ASSIPLAY
	;体位を記録
	TEQUIP:38 = 67
	;体位変更や挿入ならば、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.10
ELSEIF ABL:2 == 2
	TIMES B , 1.20
ELSEIF ABL:2 == 3
	TIMES B , 1.30
ELSEIF ABL:2 == 4
	TIMES B , 1.40
ELSE
	TIMES B , 1.50
ENDIF

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ａ = 500
SOURCE:정애 = 250
SOURCE:성행동 = 250
SOURCE:달성감 = 250
SOURCE:아픔 = 800
SOURCE:중독충족 = 350
SOURCE:노출 = 120
SOURCE:일탈 = 700
SOURCE:반발 = 900

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

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

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

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

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

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

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

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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ａ개발경험+1
A = 1
PRINTFORML %EXPNAME:14%+{A}
EXP:14 += A
;레즈경험
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
ENDIF

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

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

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

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

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

TFLAG:301 = 10

RETURN 1

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

CALL SET_COLOR_STATUS,2
PRINTL ＜기승위Ａ 성교중＞
RESETCOLOR

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

;実行者が奴隷であるフラグ
TFLAG:28 = 1
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2000

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ａ = 500
SOURCE:정애 = 250
SOURCE:성행동 = 250
SOURCE:달성감 = 250
SOURCE:아픔 = 800
SOURCE:중독충족 = 350
SOURCE:노출 = 120
SOURCE:일탈 = 700
SOURCE:반발 = 900

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

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

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

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

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

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

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

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;A経験
EXP:1 += 3
PRINTL Ａ경험＋３
;Ａ개발경험+1
A = 1
PRINTFORML %EXPNAME:14%+{A}
EXP:14 += A

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

;레즈경험
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
ENDIF

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

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

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

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

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

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

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

RETURN 1


code:
;-------------------------------------------------
;대면좌위
;セックス系コマンド、レベル3
;-------------------------------------------------
@COMNAME68
	;通常
	RESULTS = %TRAINNAME:68%
	RETURN 0

;=================================================
;=================================================
@COM68
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
;☆COMNAMEのRESULTで分岐
CALL COMNAME68

;他の体位中の時
IF TEQUIP:37 > 0 && TEQUIP:37 != 68 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：대면좌위
	RESETCOLOR
ELSE
	;通常
		CALL SET_COLOR_STATUS,3
		PRINTL 대면좌위
		RESETCOLOR
ENDIF
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:19 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	WAIT

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

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

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

CALL KOJO_MESSAGE_COM

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

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

;처녀喪失時のテキスト用処理
SIF TFLAG:60 && (PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 66 || PREVCOM == 68 || PREVCOM == 69) && ((ASSIPLAY && TFLAG:50) || (ASSIPLAY == 0 && TFLAG:50 == 0)) && TFLAG:31
	TFLAG:31 = 2

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｖ = 350
SOURCE:쾌Ｂ = 350
SOURCE:정애 = 350
SOURCE:아픔 = 500
SOURCE:중독충족 = 500
SOURCE:온순 = 300
SOURCE:일탈 = 500
SOURCE:반발 = 1000

;上のほうで計算した汚れデータ
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

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

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

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

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

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

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

;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += A
;레즈경험
A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

;의존도補正値(연모で2、친애で4）
IF TALENT:3 && ASSIPLAY == 0
	TFLAG:30 += 2
ELSEIF TALENT:6 && ASSIPLAY == 0
	TFLAG:30 += 4
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

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜대면좌위 성교중＞
RESETCOLOR

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

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

;처녀喪失時のテキスト用処理
SIF TFLAG:60 && (PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 66 || PREVCOM == 68 || PREVCOM == 69) && ((ASSIPLAY && TFLAG:50) || (ASSIPLAY == 0 && TFLAG:50 == 0)) && TFLAG:31
	TFLAG:31 = 2

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｖ = 350
SOURCE:쾌Ｂ = 350
SOURCE:정애 = 350
SOURCE:아픔 = 500
SOURCE:중독충족 = 500
SOURCE:온순 = 300
SOURCE:일탈 = 500
SOURCE:반발 = 1000

;上のほうで計算した汚れデータ
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

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

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

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

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

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

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

;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

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

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

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

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

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

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

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

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;배면좌위
;セックス系コマンド、レベル3
;-------------------------------------------------
@COMNAME69
CALL COM_ABLE504
;수치플레이中、乱れ牡丹にランクアップ
IF TEQUIP:30 && RESULT == 1
	RESULTS = 乱れ牡丹
	RETURN 2
ENDIF

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

;=================================================
;=================================================
@COM69
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0

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

IF RESULT == 2
	;乱れ牡丹へ
	JUMP COM504
;他の体位中の時
ELSEIF TEQUIP:37 > 0 && TEQUIP:37 != 69 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：배면좌위
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 배면좌위
	RESETCOLOR
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	WAIT

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

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

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

CALL KOJO_MESSAGE_COM

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

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｃ = 350
SOURCE:쾌Ｖ = 350
SOURCE:정애 = 350
SOURCE:아픔 = 400
SOURCE:중독충족 = 500
SOURCE:노출 = 200
SOURCE:일탈 = 500
SOURCE:반발 = 1000

;上のほうで計算した汚れデータ
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

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

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

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

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

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

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

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

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

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

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

;성교경험
EXP:4 += 1
PRINTS EXPNAME:4
PRINTL +1
;Ｖ개발경험+1
A = 1
PRINTFORML %EXPNAME:13%+{A}
EXP:13 += A
;레즈경험
A = 4
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

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

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

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

TFLAG:301 = 10

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

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

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;V経験を伴うコマンドのフラグ(처녀膜再生対応)
TFLAG:19 = 1
SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0
	TFLAG:20 = 1

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｃ = 350
SOURCE:쾌Ｖ = 350
SOURCE:정애 = 350
SOURCE:아픔 = 400
SOURCE:중독충족 = 500
SOURCE:노출 = 200
SOURCE:일탈 = 500
SOURCE:반발 = 1000

;上のほうで計算した汚れデータ
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:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;☆PLAYERを元に戻す
PLAYER = HOZONP

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

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

RETURN 1


code:
;-------------------------------------------------
;유두괴롭히기
;애무系コマンド、レベル1
;-------------------------------------------------
@COM7
CALL SET_COLOR_STATUS,3
PRINTL 유두괴롭히기
RESETCOLOR
STR:0 = 유두괴롭히기
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｂ = 80
SOURCE:정애 = 30
SOURCE:노출 = 10
SOURCE:불결 = 10
SOURCE:반발 = 10

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 30
SIF TALENT:84
	SOURCE:우울 += 30
;내향적には、억울ソース追加
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加
SIF TALENT:159
	SOURCE:일탈 += 20
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 100
;Ｂ열등감には、치정のソース追加
SIF TALENT:89
	SOURCE:노출 += 125
;공주님소망には、온순のソース追加
SIF TALENT:199
	SOURCE:온순 += 50

;調教者がＢ열등감の場合、快感のソースと아픔のソースと반감のソース追加
IF TALENT:PLAYER:89
	SOURCE:쾌Ｂ += 50
	SOURCE:아픔 += 100
	SOURCE:반발 += 60
ENDIF
;調教者が헌신적なら全ソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｂ , 1.50
ENDIF

;調教者が［유치］か［유아퇴행］か [유아]
IF TALENT:PLAYER:300 || TALENT:PLAYER:301 || TALENT:PLAYER:313
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:정애 , 1.20
ENDIF

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

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

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

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

TFLAG:301 = 10

RETURN 1