code:
;-------------------------------------------------
;조수를범하게한다
;助손によるコマンド、及びレズプレイ、レベル4
;-------------------------------------------------
@COM122
CALL SET_COLOR_STATUS,3
PRINTL 조수를 범하게 한다
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

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

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

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

;助손が처녀
IF TALENT:PLAYER:0 == 1
	PRINT  -
	A -= 15
	PRINT 조수가 처녀
	PRINTV '(,15,')
	S = 1
ENDIF

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 조수를범하게한다
CALL KOJO_MESSAGE_COM

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

;-------------------------------------------------
;射精ゲージチェック（후타나리の場合）
;-------------------------------------------------
B = 2000

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

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

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

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

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

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

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

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

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

;助손が처녀の場合、굴복일탈が倍化し、순종が2になる。ただし一度きり
IF TALENT:ASSI:0 == 1 && CFLAG:99 == 0
	TIMES SOURCE:달성감 , 3.00
	TIMES SOURCE:굴종 , 6.00
	TIMES SOURCE:일탈 , 3.00
	TALENT:ASSI:0 = 0
	PRINTL ＜조수가 처녀＞
	;이상경험追加（一回きり）
	EXP:50 += 1
	PRINTFORML %EXPNAME:50%＋１
	IF ABL:0 < 2
		PRINTFORML そして%ABLNAME:0%が2になった
		ABL:0 = 2
	ENDIF
	CFLAG:99 = 1
ENDIF
EXP:ASSI:0 += 1

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

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

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;足コキ
;助손によるコマンド、及びレズプレイ、レベル1
;-------------------------------------------------
@COM123
CALL SET_COLOR_STATUS,3
PRINTL 풋잡한다
RESETCOLOR
STR:0 = 足コキ
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 250
SOURCE:달성감 = 200
SOURCE:노출 = 300
SOURCE:굴종 = 300
SOURCE:일탈 = 350
SOURCE:반발 = 350

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

;고통を伴わない마조끼及び마조の処理は先にしておく
;마조끼を見る
IF ABL:9 == 0
	TIMES SOURCE:달성감 , 0.80
	TIMES SOURCE:굴종 , 0.80
	SOURCE:액체 += 0
	SOURCE:욕정 += 0
ELSEIF ABL:9 == 1
	TIMES SOURCE:달성감 , 1.00
	TIMES SOURCE:굴종 , 1.00
	SOURCE:액체 += 20
	SOURCE:욕정 += 30
ELSEIF ABL:9 == 2
	TIMES SOURCE:달성감 , 1.20
	TIMES SOURCE:굴종 , 1.20
	SOURCE:액체 += 40
	SOURCE:욕정 += 70
ELSEIF ABL:9 == 3
	TIMES SOURCE:달성감 , 1.40
	TIMES SOURCE:굴종 , 1.40
	SOURCE:액체 += 70
	SOURCE:욕정 += 120
ELSEIF ABL:9 == 4
	TIMES SOURCE:달성감 , 1.50
	TIMES SOURCE:굴종 , 1.50
	SOURCE:액체 += 110
	SOURCE:욕정 += 180
ELSEIF ABL:9 == 5
	TIMES SOURCE:달성감 , 1.70
	TIMES SOURCE:굴종 , 1.70
	SOURCE:액체 += 150
	SOURCE:욕정 += 250
ELSEIF ABL:9 == 6
	TIMES SOURCE:달성감 , 1.90
	TIMES SOURCE:굴종 , 1.90
	SOURCE:액체 += 200
	SOURCE:욕정 += 300
ELSEIF ABL:9 == 7
	TIMES SOURCE:달성감 , 2.10
	TIMES SOURCE:굴종 , 2.10
	SOURCE:액체 += 250
	SOURCE:욕정 += 350
ELSEIF ABL:9 == 8
	TIMES SOURCE:달성감 , 2.30
	TIMES SOURCE:굴종 , 2.30
	SOURCE:액체 += 300
	SOURCE:욕정 += 400
ELSEIF ABL:9 == 9
	TIMES SOURCE:달성감 , 2.50
	TIMES SOURCE:굴종 , 2.50
	SOURCE:액체 += 350
	SOURCE:욕정 += 450
ELSEIF ABL:9 >= 10
	TIMES SOURCE:달성감 , 3.00
	TIMES SOURCE:굴종 , 3.00
	SOURCE:액체 += 500
	SOURCE:욕정 += 500
ENDIF

;마조を見る
IF TALENT:194 == 1
	TIMES SOURCE:달성감 , 2.50
	TIMES SOURCE:굴종 , 2.50
	TIMES SOURCE:액체 , 1.20
	TIMES SOURCE:욕정 , 1.20
ENDIF

;도착적
SIF TALENT:190
	TIMES SOURCE:달성감 , 1.80

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

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

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

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

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

TFLAG:301 = 10

RETURN 1

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;더블펠라
;助손によるコマンド、及びレズプレイ、レベル2
;-------------------------------------------------
@COM124
CALL SET_COLOR_STATUS,3
PRINTL 더블펠라
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

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

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

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

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

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

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

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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 더블펠라
CALL KOJO_MESSAGE_COM

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

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

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

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

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

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

;助손のABL:기교をみる
IF ABL:ASSI:2 >= 2
	TIMES B , 1.00
ELSEIF ABL:ASSI:2 == 3
	TIMES B , 1.20
ELSEIF ABL:ASSI:2 == 4
	TIMES B , 1.50
ELSE
	TIMES B , 1.80
ENDIF

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

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

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

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

SOURCE:정애 = 100
SOURCE:성행동 = 400
SOURCE:달성감 = 200
SOURCE:굴종 = 600
SOURCE:일탈 = 200
SOURCE:반발 = 200

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

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

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

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

;助손の입⇔調教者のＰの汚れが移動
STAIN:ASSI:0 |= STAIN:MASTER:2
STAIN:MASTER:2 |= STAIN:ASSI:0

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

;奴隷と助손が共に女性でどちらかが정액중독を持っているとき、奴隷の입⇔助손の입の汚れが移動
IF TALENT:290 == 0 && TALENT:ASSI:290 == 0 && (ABL:16 >= 1 || ABL:ASSI:16 >= 1)
	STAIN:0 |= STAIN:ASSI:2
	STAIN:ASSI:0 |= STAIN:0
	SIF E >= 1
		TFLAG:8 = 3
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;射精に関係なく行われる処理はここから
PRINTFORML %EXPNAME:22%＋１
EXP:22 += 1

;マスターと奴隷のレズ
IF TALENT:290 == 0 && TALENT:MASTER:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
	A = NO:MASTER + 900
	CFLAG:A += 7
ENDIF

;助손と奴隷のレズ
IF TALENT:290 == 0 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
;	A = NO:ASSI + 900
;	CFLAG:A += 7
ENDIF

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

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

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

TFLAG:100 = 1

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;더블파이즈리
;助손によるコマンド、及びレズプレイ、レベル3
;-------------------------------------------------
@COM125
CALL SET_COLOR_STATUS,3
PRINTL 더블파이즈리
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

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

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

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

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

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

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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 더블파이즈리
CALL KOJO_MESSAGE_COM

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

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

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

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

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

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

;助손のABL:기교をみる
IF ABL:ASSI:2 >= 2
	TIMES B , 1.00
ELSEIF ABL:ASSI:2 == 3
	TIMES B , 1.20
ELSEIF ABL:ASSI:2 == 4
	TIMES B , 1.50
ELSE
	TIMES B , 1.80
ENDIF

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

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

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

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

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 800
SIF TALENT:84
	SOURCE:우울 += 800
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 600
;Ｂ열등감には、굴종、우울ソース大幅追加、노출ソース追加（乳を比較されるので）
IF TALENT:89
	SOURCE:노출 += 500
	SOURCE:굴종 += 1300
	SOURCE:우울 += 2000
ENDIF

;-------------------------------------------------
;射精チェック
;-------------------------------------------------
;射精するのは主人なので専用の関数を呼ぶ
CALL SAMEN_CHECK_M

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

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

;助손のＢ⇔調教者のＰの汚れが移動
STAIN:ASSI:5 |= STAIN:MASTER:2
STAIN:MASTER:2 |= STAIN:ASSI:5

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
IF TALENT:290 == 0 && TALENT:MASTER:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
ENDIF

IF TALENT:290 == 0 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +7
	EXP:40 += 7
ENDIF

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

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

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

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

TFLAG:100 = 1

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;서로가슴비비기
;助손によるコマンド、及びレズプレイ、レベル1
;-------------------------------------------------
@COM126
CALL SET_COLOR_STATUS,3
PRINTL 서로가슴비비기
RESETCOLOR
STR:0 = 서로가슴비비기
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｂ = 200
SOURCE:성행동 = 150
SOURCE:노출 = 50
SOURCE:불결 = 30
SOURCE:일탈 = 100
SOURCE:반발 = 200

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 150
SIF TALENT:84
	SOURCE:우울 += 150
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 100
;Ｂ열등감には、굴종、우울ソース大幅追加、노출ソース追加（乳を比較されるので）
IF TALENT:89
	SOURCE:노출 += 300
	SOURCE:굴종 += 850
	SOURCE:우울 += 1200
ENDIF
;調教者が［Ｂ열등감］
IF TALENT:PLAYER:89
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:성행동 , 1.50
	SOURCE:아픔 += 100
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 = 7
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;이라마치오
;ハードな調教コマンド、レベル2
;-------------------------------------------------
@COMNAME140
;3Pはフェラでも同じ項目がでるので省略
	;通常
	RESULTS = %TRAINNAME:140%
	RETURN 0

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

;他の体位中の時
IF (TEQUIP:39 > 0 || TEQUIP:40 > 0) && TEQUIP:39 != 140 && !ASSIPLAY
	CALL SET_COLOR_STATUS,3
	PRINTL 체위변경：이라마치오
	RESETCOLOR
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 이라마치오
	RESETCOLOR
ENDIF

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

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

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

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

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

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

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

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

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

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

CALL COM_ORDER_CALC_VALUE_BY_TEQUIP(A,"개구기",100)

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

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

WAIT

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

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

;-------------------------------------------------
;ここからは調教者が助손の時の処理
;-------------------------------------------------
;実行者が奴隷であるフラグ
TFLAG:28 = 1
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2000

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

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

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

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

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

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

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

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

SOURCE:성행동 = 500
SOURCE:아픔 = 200
SOURCE:굴종 = 1500
SOURCE:일탈 = 700
SOURCE:반발 = 700

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

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
;助손不可
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 900
SIF TALENT:84
	SOURCE:우울 += 900
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 900
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 700
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500
;ハードな調教では、調教者のＳＭ지식によって、성행동と아픔と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:성행동 , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
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

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

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

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

;애정경험(마조끼5以上限定）
IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0 && ABL:9 >= 5
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ENDIF

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

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

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

TFLAG:301 = 10

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

CALL SET_COLOR_STATUS,2
PRINTL ＜이라마치오 봉사중＞
RESETCOLOR

;☆一時的にPLAYERをMASTERに(HOZONPに元PLAYERを保存)
HOZONP = PLAYER
PLAYER = MASTER
;実行者が奴隷であるフラグ
TFLAG:28 = 1
;-------------------------------------------------
;射精ゲージチェック
;-------------------------------------------------
B = 2000

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

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

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

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

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

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

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

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

SOURCE:성행동 = 500
SOURCE:아픔 = 200
SOURCE:굴종 = 1500
SOURCE:일탈 = 700
SOURCE:반발 = 700

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

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 900
SIF TALENT:84
	SOURCE:우울 += 900
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 900
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 700
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500
;ハードな調教では、調教者のＳＭ지식によって、성행동と아픔と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:성행동 , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
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

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

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

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

;애정경험(마조끼5以上限定）
IF (TALENT:3 == 1 || TALENT:6 == 1) && ASSIPLAY == 0 && ABL:9 >= 5
	PRINTS EXPNAME:23
	PRINTL +1
	EXP:23 += 1
ENDIF

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

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

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

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

RETURN 1


code:
;-------------------------------------------------
;피스트퍽
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM141
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0

CALL SET_COLOR_STATUS,3
PRINTL 피스트퍽
RESETCOLOR
STR:0 = 피스트퍽
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｖ = 200
SOURCE:아픔 = 1500
SOURCE:노출 = 100
SOURCE:굴종 = 1200
SOURCE:일탈 = 1200
SOURCE:반발 = 1200

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
;助손不可
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	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
	TIMES SOURCE:반발 , 4.00
ELSEIF EXP:0 < EXPLV:2
	TIMES SOURCE:아픔 , 2.00
	TIMES SOURCE:반발 , 3.50
ELSEIF EXP:0 < EXPLV:3
	TIMES SOURCE:아픔 , 1.80
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:0 < EXPLV:4
	TIMES SOURCE:아픔 , 1.60
	TIMES SOURCE:반발 , 2.50
ELSEIF EXP:0 < EXPLV:5
	TIMES SOURCE:아픔 , 1.40
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 2.00
ENDIF

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

;ハードな調教では、調教者のＳＭ지식によって、快感と아픔と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ｖ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ｖ경험
EXP:0 += 25
PRINTL Ｖ경험＋２５

;이상경험の処理
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

;Ｖ확장경험
IF EXP:52 == 0 && EXP:53 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

EXP:52 += 5
PRINTL Ｖ확장경험＋5

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;애널피스트
;系コマンド、レベル
;-------------------------------------------------
@COM142
CALL SET_COLOR_STATUS,3
PRINTL 애널피스트
RESETCOLOR
STR:0 = 애널피스트
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ａ = 200
SOURCE:아픔 = 1500
SOURCE:노출 = 100
SOURCE:굴종 = 1200
SOURCE:일탈 = 1200
SOURCE:반발 = 1200

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1000
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 1000
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 1000

;フィストなどのAへの大きな고통は先に処理しておく
;EXP:Ａ경험をみる
IF EXP:1 < EXPLV:1
	TIMES SOURCE:아픔 , 3.00
	TIMES SOURCE:반발 , 4.00
ELSEIF EXP:1 < EXPLV:2
	TIMES SOURCE:아픔 , 2.50
	TIMES SOURCE:반발 , 3.50
ELSEIF EXP:1 < EXPLV:3
	TIMES SOURCE:아픔 , 2.40
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:1 < EXPLV:4
	TIMES SOURCE:아픔 , 2.00
	TIMES SOURCE:반발 , 2.50
ELSEIF EXP:1 < EXPLV:5
	TIMES SOURCE:아픔 , 1.80
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:1 >= EXPLV:5
	TIMES SOURCE:아픔 , 1.60
	TIMES SOURCE:반발 , 1.50
ENDIF

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

;ハードな調教では、調教者のＳＭ지식によって、快感と아픔と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ａ경험
EXP:1 += 25
PRINTL Ａ경험＋２５

;Ａ확장경험
IF EXP:52 == 0 && EXP:53 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

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

EXP:53 += 5
PRINTL Ａ확장경험＋5

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;양구멍피스트
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM143
;처녀を奪うかどうかの確認
CALL CONFIRM_LOST_VIRGIN
SIF RESULT == 0
	RETURN 0

CALL SET_COLOR_STATUS,3
PRINTL 양구멍피스트
RESETCOLOR
STR:0 = 양구멍피스트
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｖ = 200
SOURCE:쾌Ａ = 200
SOURCE:아픔 = 1800
SOURCE:노출 = 100
SOURCE:굴종 = 2000
SOURCE:일탈 = 2000
SOURCE:반발 = 2000

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 2000
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 1000
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 1500
;처녀だった場合は、고통のソースと반발のソースを追加する
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
	TIMES SOURCE:반발 , 4.00
ELSEIF EXP:0 < EXPLV:2
	TIMES SOURCE:아픔 , 2.00
	TIMES SOURCE:반발 , 3.50
ELSEIF EXP:0 < EXPLV:3
	TIMES SOURCE:아픔 , 1.80
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:0 < EXPLV:4
	TIMES SOURCE:아픔 , 1.60
	TIMES SOURCE:반발 , 2.50
ELSEIF EXP:0 < EXPLV:5
	TIMES SOURCE:아픔 , 1.40
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:반발 , 2.00
ENDIF

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

;フィストなどのAへの大きな고통は先に処理しておく
;EXP:Ａ경험をみる
IF EXP:1 < EXPLV:1
	TIMES SOURCE:아픔 , 3.00
	TIMES SOURCE:반발 , 4.00
ELSEIF EXP:1 < EXPLV:2
	TIMES SOURCE:아픔 , 2.50
	TIMES SOURCE:반발 , 3.50
ELSEIF EXP:1 < EXPLV:3
	TIMES SOURCE:아픔 , 2.40
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:1 < EXPLV:4
	TIMES SOURCE:아픔 , 2.00
	TIMES SOURCE:반발 , 2.50
ELSEIF EXP:1 < EXPLV:5
	TIMES SOURCE:아픔 , 1.80
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:1 >= EXPLV:5
	TIMES SOURCE:아픔 , 1.60
	TIMES SOURCE:반발 , 1.50
ENDIF

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

;ハードな調教では、調教者のＳＭ지식によって、快感と아픔と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ｖ , 1.20
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ｖ경험
EXP:0 += 25
PRINTL Ｖ경험＋２５

;Ａ경험
EXP:1 += 25
PRINTL Ａ경험＋２５

;이상경험の処理
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

;Ｖ,Ａ확장경험
IF EXP:52 == 0 && EXP:53 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

EXP:52 += 5
PRINTL Ｖ확장경험＋5

EXP:53 += 5
PRINTL Ａ확장경험＋5

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

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;방뇨
;ハードな調教コマンド、レベル2
;-------------------------------------------------
@COM144
CALL SET_COLOR_STATUS,3
PRINTL 방뇨
RESETCOLOR
STR:0 = 방뇨
CALL KOJO_MESSAGE_COM

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

SOURCE:두려움 = 200
SOURCE:노출 = 800
SOURCE:굴종 = 500
SOURCE:일탈 = 700
SOURCE:반발 = 700

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 900
SIF TALENT:84
	SOURCE:우울 += 900
;부끄럼쟁이持ちには達成、노출、억울ソース追加
IF TALENT:85
	SOURCE:달성감 += 700
	SOURCE:노출 += 700
	SOURCE:우울 += 700
ENDIF
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 600
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、일탈ソース、반감ソース追加
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 150
		SOURCE:욕정 += 100
		SOURCE:노출 += 500
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 150
		SOURCE:욕정 += 100
		SOURCE:노출 += 500
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 150
	SOURCE:욕정 += 100
	SOURCE:노출 += 500
	SOURCE:굴종 += 300
	SOURCE:일탈 += 200
	SOURCE:반발 += 300
ENDIF

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

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

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

;레즈경험
A = 1
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 TEQUIP:29 && CFLAG:5 == 0
	PRINTFORML %EXPNAME:50%＋１
	EXP:50 += 1
	CFLAG:5 = 1
ENDIF

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

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

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

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

TFLAG:301 = 6

RETURN 1


code:
;-------------------------------------------------
;애널봉사강제
;ハードな調教コマンド、レベル3
;-------------------------------------------------
@COM145
CALL SET_COLOR_STATUS,3
PRINTL 애널봉사강제
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

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

;반항적（복종、예속で無効）
IF TALENT:21 && (TALENT:5 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:21
	PRINTV '(,5,')
	S = 1
ENDIF
;프라이드높음
IF TALENT:25
	PRINT  -
	A -= 12
	PRINTS TALENTNAME:25
	PRINTV '(,12,')
	S = 1
ENDIF
;프라이드낮음
IF TALENT:27
	PRINT  +
	A += 2
	PRINTS TALENTNAME:27
	PRINTV '(,2,')
	S = 1
ENDIF
;저항
IF TALENT:84
	PRINT  -
	A -= 20
	PRINTS TALENTNAME:84
	PRINTV '(,20,')
	S = 1
ENDIF
;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:85
	PRINTV '(,1,')
	S = 1
ENDIF
;악취둔감
IF TALENT:151
	SIF S
		PRINT  +
	A += 2
	PRINTS TALENTNAME:151
	PRINTV '(,2,')
	S = 1
ENDIF
;악취민감
IF TALENT:152
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:152
	PRINTV '(,5,')
	S = 1
ENDIF
;헌신적
IF TALENT:153
	SIF S
		PRINT  +
	A += 4
	PRINTS TALENTNAME:153
	PRINTV '(,4,')
	S = 1
ENDIF
;더러움무시
IF TALENT:154
	SIF S
		PRINT  +
	A += 3
	PRINTS TALENTNAME:154
	PRINTV '(,3,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 1
	PRINTS TALENTNAME:171
	PRINTV '(,1,')
	S = 1
ENDIF
;도착적
IF TALENT:190
	SIF S
		PRINT  +
	A += 3
	PRINTS TALENTNAME:190
	PRINTV '(,3,')
	S = 1
ENDIF
;새드
IF TALENT:PLAYER:193
	SIF S
		PRINT  +
	A += 3
	PRINTS TALENTNAME:193
	PRINTV '(,3,')
	S = 1
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF
;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:34
	PRINTV '(,10,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 3
	PRINTS TALENTNAME:35
	PRINTV '(,3,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 20
	PRINTS TALENTNAME:60
	PRINTV '(,20,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	S = 1
ENDIF
;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:159
	PRINTV '(,10,')
	S = 1
ENDIF
;Ａ거부
IF TALENT:156
	PRINT  -
	A -= 20
	PRINTS TALENTNAME:156
	PRINTV '(,20,')
	S = 1
ENDIF
;영구발정
IF TALENT:178
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	S = 1
ENDIF
;연모
IF TALENT:3 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	S = 10
ENDIF

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

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

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

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 애널봉사강제
CALL KOJO_MESSAGE_COM

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

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

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

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

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

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

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

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

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

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

SOURCE:성행동 = 300
SOURCE:달성감 = 300
SOURCE:굴종 = 2500
SOURCE:우울 = 1000
SOURCE:일탈 = 1000
SOURCE:반발 = 1000

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

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

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷の입⇔調教者のＡの汚れが移動
STAIN:0 |= STAIN:PLAYER:4
STAIN:PLAYER:4 |= STAIN:0

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

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;관장기＋플러그
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM146
IF TEQUIP:25
	CALL SET_COLOR_STATUS,3
	PRINTL 촉수관장
	RESETCOLOR
	STR:0 = 촉수관장
	SELECTCOM = 167
ELSE
	CALL SET_COLOR_STATUS,3
	PRINTL 관장기＋플러그
	RESETCOLOR
	STR:0 = 관장기＋플러그
ENDIF
CALL KOJO_MESSAGE_COM

;着脱の処理
IF TEQUIP:21 == 0
	TEQUIP:21 = 1
	;촉수관장は촉수の汚れを追加
	IF TEQUIP:25
		STAIN:4 |= 32
	ENDIF
ELSE
	TEQUIP:21 = 0
	IF CFLAG:4 == 0
		EXP:50 += 1 + TEQUIP:29
		PRINTFORML %EXPNAME:50%+{1 + TEQUIP:29}
		CFLAG:4 = 1
	ENDIF
ENDIF

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

SOURCE:쾌Ａ = 300
SOURCE:아픔 = 500
SOURCE:노출 = 300
SOURCE:굴종 = 200
SOURCE:불결 = 500
SOURCE:일탈 = 500
SOURCE:반발 = 500

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

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

;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 TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;관장기＋플러그では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

IF TEQUIP:25
	SOURCE:중독충족  += ABL:촉수중독 * 100

	IF TALENT:모판
		TIMES LOSEBASE:0, 0.4
		TIMES LOSEBASE:1, 0.4
		TIMES SOURCE:우울 , 0.4
		TIMES SOURCE:일탈 , 0.4
		TIMES SOURCE:반발 , 0.4
	ELSEIF TALENT:동화
		TIMES LOSEBASE:0, 0.7
		TIMES LOSEBASE:1, 0.7
		TIMES SOURCE:우울 , 0.7
		TIMES SOURCE:일탈 , 0.7
		TIMES SOURCE:반발 , 0.7
	ELSEIF TALENT:기생
		TIMES LOSEBASE:0, 0.9
		TIMES LOSEBASE:1, 0.9
		TIMES SOURCE:우울 , 0.9
		TIMES SOURCE:일탈 , 0.9
		TIMES SOURCE:반발 , 0.9
	ENDIF
ENDIF

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

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

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM146
;浣腸＋애널플러그挿入中
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜관장촉수 삽입중＞
	RESETCOLOR
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜관장＋애널플러그 삽입중＞
	RESETCOLOR
ENDIF

LOSEBASE:0 += 45
LOSEBASE:1 += 110

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

SOURCE:쾌Ａ += 150
SOURCE:굴종 += 100
SOURCE:불결 += 250
SOURCE:일탈 += 250

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 250
SIF TALENT:84
	SOURCE:우울 += 250
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 700
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

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

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

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、불결のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;관장기＋플러그では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

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

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


code:
;-------------------------------------------------
;공기관장
;ハードな調教コマンド、レベル3
;-------------------------------------------------
@COM147
CALL SET_COLOR_STATUS,3
PRINTL 공기관장
RESETCOLOR
STR:0 = 공기관장
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ａ = 100
SOURCE:아픔 = 150
SOURCE:노출 = 100
SOURCE:굴종 = 50
SOURCE:일탈 = 100
SOURCE:반발 = 100

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

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

;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 TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;공기관장では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ａ경험
EXP:1 += 1
PRINTL Ａ경험＋１

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;확장벌룬
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM148
CALL SET_COLOR_STATUS,3
PRINTL 확장벌룬
RESETCOLOR
STR:0 = 확장벌룬
CALL KOJO_MESSAGE_COM

;着脱の処理
IF TEQUIP:22 == 0
	TEQUIP:22 = 1
ELSE
	TEQUIP:22 = 0
ENDIF

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

SOURCE:쾌Ａ = 200
SOURCE:아픔 = 800
SOURCE:노출 = 300
SOURCE:굴종 = 400
SOURCE:일탈 = 700
SOURCE:반발 = 700

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

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

;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 TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;확장벌룬では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:1 += 5
PRINTL Ａ경험＋５

IF EXP:52 == 0 && EXP:53 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

EXP:53 += 1
PRINTL Ａ확장경험＋1

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

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM148
;확장벌룬

CALL SET_COLOR_STATUS,2
PRINTL ＜확장벌룬 삽입중＞
RESETCOLOR

LOSEBASE:0 += 55
LOSEBASE:1 += 75

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

SOURCE:쾌Ａ += 100
SOURCE:노출 += 150
SOURCE:굴종 += 200
SOURCE:일탈 += 350

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 350
SIF TALENT:84
	SOURCE:우울 += 350
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 900
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

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

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

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、불결のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;확장벌룬では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:1 += 3
PRINTL Ａ경험＋３

EXP:53 += 1
PRINTL Ａ확장경험＋1

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

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


code:
;-------------------------------------------------
;애널전극
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM149
CALL SET_COLOR_STATUS,3
PRINTL 애널전극
RESETCOLOR
STR:0 = 애널전극
CALL KOJO_MESSAGE_COM

;着脱の処理
IF TEQUIP:23 == 0
	TEQUIP:23 = 1
ELSE
	TEQUIP:23 = 0
ENDIF

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

SOURCE:쾌Ａ = 500
SOURCE:아픔 = 1500
SOURCE:노출 = 300
SOURCE:굴종 = 800
SOURCE:일탈 = 1200
SOURCE:반발 = 1200

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1500
SIF TALENT:84
	SOURCE:우울 += 1500
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 3000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1200
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 4000
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 2500

;フィストなどのAへの大きな고통は先に処理しておく
;EXP:Ａ경험をみる
IF EXP:1 < EXPLV:1
	TIMES SOURCE:아픔 , 3.00
	TIMES SOURCE:반발 , 4.00
ELSEIF EXP:1 < EXPLV:2
	TIMES SOURCE:아픔 , 2.50
	TIMES SOURCE:반발 , 3.50
ELSEIF EXP:1 < EXPLV:3
	TIMES SOURCE:아픔 , 2.40
	TIMES SOURCE:반발 , 3.00
ELSEIF EXP:1 < EXPLV:4
	TIMES SOURCE:아픔 , 2.00
	TIMES SOURCE:반발 , 2.50
ELSEIF EXP:1 < EXPLV:5
	TIMES SOURCE:아픔 , 1.80
	TIMES SOURCE:반발 , 2.00
ELSEIF EXP:1 >= EXPLV:5
	TIMES SOURCE:아픔 , 1.60
	TIMES SOURCE:반발 , 1.50
ENDIF

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

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、불결のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;애널전극では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ａ경험
EXP:1 += 5
PRINTL Ａ경험＋５

;이상경험が5未満のとき、이상경험追加
IF EXP:50 < 5
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

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

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM149
;애널전극

CALL SET_COLOR_STATUS,2
PRINTL ＜애널전극 삽입중＞
RESETCOLOR

LOSEBASE:0 += 150
LOSEBASE:1 += 180

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:129 == 1
		TIMES LOSEBASE:0 , 0.70
		TIMES LOSEBASE:1 , 0.70
	ENDIF
ELSEIF TALENT:PLAYER:129 == 1 && TEQUIP:25 == 0
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

SOURCE:쾌Ａ += 250
SOURCE:굴종 += 400
SOURCE:일탈 += 600

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 600
SIF TALENT:84
	SOURCE:우울 += 600
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 1000
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 700

;フィストなどのAへの大きな고통は先に処理しておく
;EXP:Ａ경험をみる
A = 750
B = 600
IF EXP:1 < EXPLV:1
	TIMES A , 3.00
	TIMES B , 4.00
ELSEIF EXP:1 < EXPLV:2
	TIMES A , 2.50
	TIMES B , 3.50
ELSEIF EXP:1 < EXPLV:3
	TIMES A , 2.40
	TIMES B , 3.00
ELSEIF EXP:1 < EXPLV:4
	TIMES A , 2.00
	TIMES B , 2.50
ELSEIF EXP:1 < EXPLV:5
	TIMES A , 1.80
	TIMES B , 2.00
ELSEIF EXP:1 >= EXPLV:5
	TIMES A , 1.60
	TIMES B , 1.50
ENDIF

;PALAM:윤활をみる
IF PALAM:4 < PALAMLV:1
	TIMES A , 3.00
	TIMES B , 2.00
ELSEIF PALAM:4 < PALAMLV:2
	TIMES A , 2.50
	TIMES B , 1.50
ELSEIF PALAM:4 < PALAMLV:3
	TIMES A , 2.00
	TIMES B , 1.20
ELSEIF PALAM:4 < PALAMLV:4
	TIMES A , 1.50
ELSEIF PALAM:4 >= PALAMLV:4
	TIMES A , 1.00
ENDIF
SOURCE:아픔 += A
SOURCE:반발 += B

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、불결のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;애널전극では、調教者のＳＭ지식によって、快感ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ａ , 1.50
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ａ경험
EXP:1 += 5
PRINTL Ａ경험＋５

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

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

RETURN 1


code:
;-------------------------------------------------
;유방전극
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM150
CALL SET_COLOR_STATUS,3
PRINTL 유방전극
RESETCOLOR
STR:0 = 유방전극
CALL KOJO_MESSAGE_COM

;着脱の処理
IF TEQUIP:24 == 0
	TEQUIP:24 = 1
ELSE
	TEQUIP:24 = 0
ENDIF

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

SOURCE:쾌Ｂ = 500
SOURCE:아픔 = 1500
SOURCE:노출 = 300
SOURCE:굴종 = 800
SOURCE:일탈 = 1200
SOURCE:반발 = 1200

;調教者が도구지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1500
SIF TALENT:84
	SOURCE:우울 += 1500
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1200

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、반감のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:반발 , 0.75
ENDIF

;유방전극では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;이상경험が5未満のとき、이상경험追加
IF EXP:50 < 5
	EXP:50 += 1
	PRINTL 이상경험＋１
ENDIF

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

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM150
;유방전극

CALL SET_COLOR_STATUS,2
PRINTL ＜유방전극 장착중＞
RESETCOLOR

LOSEBASE:0 += 110
LOSEBASE:1 += 180

;調教者が도구지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

SOURCE:쾌Ｂ += 250
SOURCE:아픔 += 750
SOURCE:굴종 += 400
SOURCE:일탈 += 600
SOURCE:반발 += 600

;道具を使う調教では、調教者の도구지식によって、快感のソース増加、반감のソース低下（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:반발 , 0.75
ENDIF

;유방전극では、調教者のＳＭ지식によって、快感と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

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

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

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

RETURN 1


code:
;-------------------------------------------------
;뱀장어목욕
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM151
CALL SET_COLOR_STATUS,3
PRINTL 뱀장어목욕
RESETCOLOR
STR:0 = 뱀장어목욕
CALL KOJO_MESSAGE_COM

F = !TALENT:TARGET:남자 ;남자だったら最初から膣の判定に入らない
R = 1
;Vに道具を挿入している場合
IF TEQUIP:13
	F = 0
ELSE
	;V経験を伴うコマンドのフラグ(처녀膜再生対応)
	TFLAG:19 = 1
ENDIF

;Aに道具を挿入している場合
IF TEQUIP:14 || TEQUIP:15 || TEQUIP:21 || TEQUIP:22 || TEQUIP:23
	R = 0
ENDIF

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

SOURCE:쾌Ｃ = 100
SOURCE:쾌Ｂ = 100
SOURCE:아픔 = 1000
SOURCE:두려움 = 2000
SOURCE:굴종 = 1200
SOURCE:불결 = 800
SOURCE:일탈 = 1500
SOURCE:반발 = 1500
;Vに道具を挿入している場合
IF F > 0
	SOURCE:쾌Ｖ = 100
	SOURCE:아픔 += 500
	SOURCE:두려움 += 500
ENDIF
;Aに道具を挿入している場合
IF R > 0
	SOURCE:쾌Ａ = 100
	SOURCE:아픔 += 500
	SOURCE:두려움 += 500
ENDIF

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

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

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

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

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

;特にハードなコマンドでは、이상경험に応じて効果を減らす
IF EXP:50 < EXPLV:1
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:일탈 , 1.20
	TIMES SOURCE:반발 , 1.20
ELSEIF EXP:50 < EXPLV:2
	TIMES SOURCE:두려움 , 0.90
	TIMES SOURCE:일탈 , 0.90
	TIMES SOURCE:반발 , 0.90
ELSEIF EXP:50 < EXPLV:3
	TIMES SOURCE:두려움 , 0.80
	TIMES SOURCE:일탈 , 0.80
	TIMES SOURCE:반발 , 0.80
ELSEIF EXP:50 < EXPLV:4
	TIMES SOURCE:두려움 , 0.70
	TIMES SOURCE:일탈 , 0.70
	TIMES SOURCE:반발 , 0.70
ELSEIF EXP:50 < EXPLV:5
	TIMES SOURCE:두려움 , 0.60
	TIMES SOURCE:일탈 , 0.60
	TIMES SOURCE:반발 , 0.60
ELSE
	TIMES SOURCE:두려움 , 0.50
	TIMES SOURCE:일탈 , 0.50
	TIMES SOURCE:반발 , 0.50
ENDIF

;뱀장어목욕では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;粘液の汚れ
STAIN:1 = 32
STAIN:2 = 32
STAIN:3 = 32
SIF R > 0
	STAIN:4 = 32
STAIN:5 = 32
IF F > 0
	STAIN:6 = 32
	;질내に破瓜の血の汚れを付加
	SIF TALENT:0 == 1 || TALENT:1 == 1
		STAIN:6 |= 64
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;V経験
IF F > 0
	IF EXP:0 == 0
		EXP:50 += 2
		PRINTL 이상경험＋２
	ENDIF
	EXP:0 += 2
	PRINTL Ｖ경험＋２
ENDIF

;A経験
IF R > 0
	EXP:1 += 2
	PRINTL Ａ경험＋２
	STAIN:4 = 8
ENDIF

;이상경험が5未満のとき、이상경험追加
IF EXP:50 < 5
	EXP:50 += 2
	PRINTL 이상경험＋２
ENDIF

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;벌레목욕
;ハードな調教コマンド、レベル4
;-------------------------------------------------
@COM152
CALL SET_COLOR_STATUS,3
PRINTL 벌레목욕
RESETCOLOR
STR:0 = 벌레목욕
CALL KOJO_MESSAGE_COM

F = 1
;リグルとヤマメの場合は効果を変更する（蛍の妖怪と土蜘蛛の妖怪なので効き目は薄い）
;SIF NO:TARGET == 24 && NO:TARGET == 56
;	F = 0

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

	SOURCE:아픔 = 500
	SOURCE:두려움 = 5000
	SOURCE:굴종 = 2000
	SOURCE:불결 = 1000
	SOURCE:일탈 = 2500
	SOURCE:반발 = 2500
ELSE
	;消費체력、기력
	LOSEBASE:0 += 50
	LOSEBASE:1 += 100

	SOURCE:아픔 = 100
	SOURCE:굴종 = 100
	SOURCE:불결 = 20
	SOURCE:일탈 = 50
	SOURCE:반발 = 50
ENDIF

;調教者がＳＭ지식持ちなら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
IF F > 0
	;特にハードなコマンドでは、이상경험に応じて効果を減らす
	IF EXP:50 < EXPLV:1
		TIMES SOURCE:두려움 , 1.20
		TIMES SOURCE:일탈 , 1.20
		TIMES SOURCE:반발 , 1.20
	ELSEIF EXP:50 < EXPLV:2
		TIMES SOURCE:두려움 , 0.90
		TIMES SOURCE:일탈 , 0.90
		TIMES SOURCE:반발 , 0.90
	ELSEIF EXP:50 < EXPLV:3
		TIMES SOURCE:두려움 , 0.80
		TIMES SOURCE:일탈 , 0.80
		TIMES SOURCE:반발 , 0.80
	ELSEIF EXP:50 < EXPLV:4
		TIMES SOURCE:두려움 , 0.70
		TIMES SOURCE:일탈 , 0.70
		TIMES SOURCE:반발 , 0.70
	ELSEIF EXP:50 < EXPLV:5
		TIMES SOURCE:두려움 , 0.60
		TIMES SOURCE:일탈 , 0.60
		TIMES SOURCE:반발 , 0.60
	ELSE
		TIMES SOURCE:두려움 , 0.50
		TIMES SOURCE:일탈 , 0.50
		TIMES SOURCE:반발 , 0.50
	ENDIF
ENDIF

;벌레목욕では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;粘液の汚れ
STAIN:1 = 32
STAIN:2 = 32
STAIN:3 = 32
STAIN:4 = 32
STAIN:5 = 32
STAIN:6 = 32

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;이상경험が5未満のとき、이상경험追加
IF EXP:50 < 5 && F > 0
	EXP:50 += 2
	PRINTL 이상경험＋２
ENDIF

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;도게자강제
;ハードな調教コマンド、レベル2
;-------------------------------------------------
@COM153
CALL SET_COLOR_STATUS,3
IF IS_CHARA_NOOVERWEAR() && IS_CHARA_NOUNDERWEAR()
	PRINT 전라
ENDIF

PRINTL 도게자
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

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

;반항적（복종、예속で無効）
IF TALENT:21 && (TALENT:5 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:21
	PRINTV '(,5,')
	S = 1
ENDIF
;꿋꿋함
IF TALENT:22
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:22
	PRINTV '(,5,')
	S = 1
ENDIF
;건방짐
IF TALENT:26
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:26
	PRINTV '(,3,')
	S = 1
ENDIF
;프라이드높음
IF TALENT:25
	PRINT  -
	A -= 15
	PRINTS TALENTNAME:25
	PRINTV '(,15,')
	S = 1
ENDIF
;프라이드낮음
IF TALENT:27
	PRINT  +
	A += 8
	PRINTS TALENTNAME:27
	PRINTV '(,8,')
	S = 1
ENDIF
;해방
IF TALENT:83
	PRINT  +
	A += 3
	PRINTS TALENTNAME:83
	PRINTV '(,3,')
	S = 3
ENDIF
;저항
IF TALENT:84
	PRINT  -
	A -= 20
	PRINTS TALENTNAME:84
	PRINTV '(,20,')
	S = 1
ENDIF
;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:85
	PRINTV '(,3,')
	S = 3
ENDIF
;수치심없음
IF TALENT:86
	PRINT  +
	A += 3
	PRINTS TALENTNAME:86
	PRINTV '(,3,')
	S = 3
ENDIF

;약점
IF TALENT:87
	PRINT  +
	A += 8
	PRINTS TALENTNAME:87
	PRINTV '(,8,')
	S = 3
ENDIF
;도착적
IF TALENT:190
	SIF S
		PRINT  +
	A += 6
	PRINTS TALENTNAME:190
	PRINTV '(,6,')
	S = 1
ENDIF
;마조
IF TALENT:194
	PRINT  +
	A += 10
	PRINTS TALENTNAME:194
	PRINTV '(,10,')
	S = 1
ENDIF
;감정부족
IF TALENT:30
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	S = 1
ENDIF
;내향적
IF TALENT:32
	PRINT  +
	A += 3
	PRINTS TALENTNAME:32
	PRINTV '(,3,')
	S = 1
ENDIF
;고결（음란、창녀で無効）
IF TALENT:34 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 15
	PRINTS TALENTNAME:34
	PRINTV '(,15,')
	S = 1
ENDIF
;성악
IF TALENT:35
	PRINT  +
	A += 3
	PRINTS TALENTNAME:35
	PRINTV '(,3,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 15
	PRINTS TALENTNAME:88
	PRINTV '(,15,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 30
	PRINTS TALENTNAME:91
	PRINTV '(,30,')
	S = 1
ENDIF
;레이프소망
IF TALENT:155
	PRINT  +
	A += 4
	PRINTS TALENTNAME:155
	PRINTV '(,4,')
	S = 1
ENDIF

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

;영구발정
IF TALENT:178
	PRINT  +
	A += 50
	PRINTS TALENTNAME:178
	PRINTV '(,50,')
	S = 1
ENDIF
;복종
IF TALENT:5 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINTS TALENTNAME:5
	PRINTV '(,10,')
	S = 5
ENDIF
;예속
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 30
	PRINTS TALENTNAME:8
	PRINTV '(,30,')
	S = 10
ENDIF

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

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

WAIT

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

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 도게자강제
CALL KOJO_MESSAGE_COM

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

SOURCE:달성감 = 300
SOURCE:중독충족 = 100
SOURCE:굴종 = 2000
SOURCE:일탈 = 1200
SOURCE:반발 = 1200

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;全裸土下座
IF IS_CHARA_NOOVERWEAR() && IS_CHARA_NOUNDERWEAR()
	SOURCE:노출 += 500
	SOURCE:굴종 += 1000
	SOURCE:일탈 += 500
	SOURCE:반발 += 500
ENDIF

;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1000
SIF TALENT:84
	SOURCE:우울 += 1000
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 2000

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

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

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

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

TFLAG:301 = 2

RETURN 1