code:
;-------------------------------------------------
;애무
;애무系コマンド　レベル2
;-------------------------------------------------
@COM0

CALL SET_COLOR_STATUS,3
PRINTL 애무
RESETCOLOR
STR:0 = 애무
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 80
SOURCE:쾌Ｂ = 60
SOURCE:정애 = 50
SOURCE:성행동 = 60
SOURCE:노출 = 20
SOURCE:불결 = 30
SOURCE:일탈 = 20
SOURCE:반발 = 20

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

;舌を使う調教では、調教者の혀놀림によって、快感のソース増加
IF TALENT:PLAYER:122
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:정애 , 1.50
ENDIF
;고양이혀は減少
IF TALENT:PLAYER:124
	TIMES SOURCE:쾌Ｃ , 0.75
	TIMES SOURCE:쾌Ｂ , 0.75
	TIMES SOURCE:정애 , 0.75
ENDIF
;調教者か助손が헌신적なら全ソース増加
IF ASSI >= 1
	IF TALENT:PLAYER:153 == 1
		TIMES SOURCE:쾌Ｃ , 1.50
		TIMES SOURCE:쾌Ｂ , 1.50
		TIMES SOURCE:정애 , 1.50
		TIMES SOURCE:성행동 , 1.50
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:153 == 1
		TIMES SOURCE:쾌Ｃ , 1.50
		TIMES SOURCE:쾌Ｂ , 1.50
		TIMES SOURCE:정애 , 1.50
		TIMES SOURCE:성행동 , 1.50
	ENDIF
ELSEIF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:정애 , 1.50
	TIMES SOURCE:성행동 , 1.50
ENDIF
;키스좋아함には、정애と성행동ソース増加
IF TALENT:157
	TIMES SOURCE:정애 , 1.50
	TIMES SOURCE:성행동 , 1.50
ENDIF
;공주님소망には、정애のソース増加
SIF TALENT:199
	TIMES SOURCE:정애 , 1.50

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
IF (STAIN:0 >= 2 && (STAIN:0 != 16 && STAIN:0 != 17) && ASSIPLAY == 0 && TALENT:MASTER:154 == 0) || TEQUIP:20
;奴隷の입の汚れがあるときキスはない（愛液と母乳よごれはＯＫ、더러움무시か助손調教時は問題なし）
;볼개그使用中もなし
	SOURCE:불결 = 0
	SOURCE:정애 /= 4
	SOURCE:액체 /= 2
ELSE
	;악취둔감
	SIF TALENT:151
		SOURCE:불결 /= 4
	;악취민감
	SIF TALENT:152
		SOURCE:불결 *= 3
	;프라이드높음
	SIF TALENT:25
		SOURCE:불결 *= 2
	IF STAIN:PLAYER:0
	;主人の입の汚れがあると불결150%
		SOURCE:불결 *= 3
		SOURCE:불결 /= 2
	ENDIF
	;奴隷の입⇔調教者の입の汚れが移動
	STAIN:0 |= STAIN:PLAYER:0
	STAIN:PLAYER:0 |= STAIN:0
ENDIF

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

;볼개그なしは키스경험+1
A = 1
SIF (STAIN:0 >= 2 && (STAIN:0 != 16 && STAIN:0 != 17) && ASSIPLAY == 0 && TALENT:MASTER:154 == 0) || TEQUIP:20
	A -= 1
IF A >= 1
	PRINTFORML %EXPNAME:24%+{A}
	EXP:24 += A
ENDIF
;調教者が고양이혀持ちの場合は、調教者に가학쾌락경험を追加
IF TALENT:PLAYER:124
	EXP:PLAYER:32 += 1
	PRINTFORML %CALLNAME:PLAYER%의 %EXPNAME:32%＋１
ENDIF

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

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

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

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

TFLAG:301 = 1

RETURN 1

;コマンドのカテゴリ。
@COM_TYPE_0()
#FUNCTION
RETURNF 0

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;커닐링구스
;애무系コマンド　レベル1
;-------------------------------------------------
@COMNAME1
;69判定
CALL COM_ABLE501
IF RESULT == 1 && TEQUIP:19 == 0
	;今回主人が調教者で、フェラで奉仕させてるなら69に
	IF !ASSIPLAY && TEQUIP:39 == 81
		RESULTS = シックスナイン
		RETURN 8
	ENDIF
	;前回と今回の調教者が主人で커닐링구스강제か69の時は69に
	IF !ASSIPLAY && !TFLAG:50 && (PREVCOM == 120 || PREVCOM == 501)
		RESULTS = シックスナイン
		RETURN 7
	ENDIF
	;前回と今回の調教者が助손でフェラか커닐링구스강제か69の時は69に
	IF (ASSIPLAY && TFLAG:50) && (PREVCOM == 81 || PREVCOM == 120 || PREVCOM == 501)
		RESULTS = ６９（助손）
		RETURN 6
	ENDIF
ENDIF
;６９파이즈리判定
CALL COM_ABLE508
IF RESULT == 1 && TEQUIP:19 == 0
	;今回主人が調教者で、파이즈리か세로파이즈리か파이즈리 펠라中なら69ﾊﾟｲｽﾞﾘに
	IF !ASSIPLAY && (TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88)
		RESULTS = ６９파이즈리
		RETURN 5
	ENDIF
	;前回と今回の調教者が助손でフェラか커닐링구스강제か69の時は69に
	IF (ASSIPLAY && TFLAG:50) && (PREVCOM == 82 || PREVCOM == 87 || PREVCOM == 88 || PREVCOM == 508)
		RESULTS = ６９파이즈리（助손）
		RETURN 3
	ENDIF
ENDIF
;수치플레이中なら、岩清水にランクアップ
CALL COM_ABLE502
IF TEQUIP:30 && RESULT == 1
	RESULTS = 岩清水
	RETURN 2
ENDIF
	;通常
	RESULTS = %TRAINNAME:1%
	RETURN 0

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

;シックスナインへ飛ぶ
IF RESULT == 6 || RESULT == 7 || RESULT == 8
	JUMP COM501
;６９파이즈리へ飛ぶ
ELSEIF RESULT == 3 || RESULT == 5
	JUMP COM508
;岩清水へ飛ぶ
ELSEIF RESULT == 2
	JUMP COM502
ELSE
	;通常
	CALL SET_COLOR_STATUS,3
	PRINTL 커닐링구스
	RESETCOLOR
ENDIF

STR:0 = 커닐링구스
CALL KOJO_MESSAGE_COM
;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 5
LOSEBASE:1 += 50

SOURCE:쾌Ｃ = 100
SOURCE:정액주입 = 60
SOURCE:노출 = 10
SOURCE:일탈 = 15
SOURCE:반발 = 15

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 40
SIF TALENT:84
	SOURCE:우울 += 40
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 40
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 40
;舌を使う調教では、調教者の혀놀림によって、快感のソース増加
SIF TALENT:PLAYER:122
	TIMES SOURCE:쾌Ｃ , 1.50
;調教者が헌신적なら全ソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:노출 , 1.30
ENDIF

;고양이혀では減少
SIF TALENT:PLAYER:124
	TIMES SOURCE:쾌Ｃ , 0.75

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 3
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:12%+{A}
EXP:12 += A

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;가슴자위
;애무系コマンド、レベル3
;-------------------------------------------------
@COMNAME10
;前回の調教が騎乗乳房자위の時、継続する
CALL COM_ABLE505
IF PREVCOM == 505 && RESULT == 1
	SIF TFLAG:40 == 1
		RESULTS = 騎乗乳房자위継続
	SIF TFLAG:40 == 2
		RESULTS = 騎乗Ａ가슴자위継続
	RETURN 4
ENDIF
;主人と기승위中なら
IF TEQUIP:37 == 66 && RESULT == 1
	RESULTS = 騎乗乳房자위
	RETURN 2
ENDIF
;主人と기승위Ａ中なら
IF TEQUIP:38 == 67 && RESULT == 1
	RESULTS = 騎乗Ａ乳房자위
	RETURN 3
ENDIF
;前回の調教者が助손で、기승위だったなら
IF ASSIPLAY && PREVCOM == 66 && TFLAG:60 && TFLAG:50 && RESULT == 1
	RESULTS = 騎乗乳房자위
	RETURN 2
ENDIF
;前回の調教者が助손で、기승위Ａだったなら
IF ASSIPLAY && PREVCOM == 67 && TFLAG:60 && TFLAG:50 && RESULT == 1
	RESULTS = 騎乗Ａ乳房자위
	RETURN 3
ENDIF
;前のプレイが정상위かつ調教者の기교3以上の場合、挿入Ｇスポ責めへ派生。(これは아무것도안한다の方へ移動)
;ELSEIF PREVCOM == 60 && ABL:PLAYER:2 >= 3
;	JUMP COM506

;ビデオ촬영중か実況中
IF TEQUIP:28 || TEQUIP:43
	RESULTS = 公開%TRAINNAME:10%
;通常
ELSE
	RESULTS = %TRAINNAME:10%
	RETURN 0
ENDIF

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

;騎乗乳房자위なら
IF RESULT == 2 || RESULT == 3 || RESULT == 4
	SIF RESULT == 2
		TFLAG:40 = 1
	SIF RESULT == 3
		TFLAG:40 = 2
	SIF RESULT == 4
		TFLAG:60 = 1
	JUMP COM505
ENDIF

IF TEQUIP:28
	CALL SET_COLOR_STATUS,3
	PRINT 공개
	RESETCOLOR
ENDIF
CALL SET_COLOR_STATUS,3
PRINTL 가슴자위
RESETCOLOR

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

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

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

;ABL:욕망
IF ABL:1
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:1 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:노출증
IF ABL:8
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:8 * 4
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:8
	PRINTV 'LV,ABL:8,'(,ABL:8 * 4,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:자위중독
IF ABL:15
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:15 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:15
	PRINTV 'LV,ABL:15,'(,ABL:15 * 3,')
	RESETCOLOR
	S = 1
ENDIF

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

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += L * 3
	CALL SET_COLOR_STATUS,1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	RESETCOLOR
	S = 1
ENDIF
;겁쟁이
IF TALENT:20
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:20
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;'자제심
IF TALENT:50
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5

	PRINTS TALENTNAME:50
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:85
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF
;수치심없음
IF TALENT:86
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 2
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:86
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;자위하기쉬움
IF TALENT:150
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:150
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감에솔직
IF TALENT:170
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:170
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:171
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF

;감정부족
IF TALENT:30
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	RESETCOLOR
	S = 1
ENDIF

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

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

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

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

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

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

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

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

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

;調教者か助손が소악마
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조교자가 %TALENTNAME:197%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조수가 %TALENTNAME:197%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 10
	PRINTFORM 조교자가 %TALENTNAME:197%
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF

;調教者か助손が고무
IF ASSI >= 1
	IF TALENT:PLAYER:286 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조교자가 %TALENTNAME:286%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:286 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조수가 %TALENTNAME:286%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF
ELSEIF TALENT:PLAYER:286 == 1
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 10
	PRINTFORM 조교자가 %TALENTNAME:286%
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF

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

;難易度上昇
;公開で+10
V = 33
SIF TEQUIP:28
	V += 10

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

WAIT

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

STR:0 = 가슴자위
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｂ = 100
SOURCE:성행동 = 40
SOURCE:두려움 = 100
SOURCE:중독충족 = 100
SOURCE:노출 = 200
SOURCE:굴종 = 400
SOURCE:일탈 = 150
SOURCE:반발 = 150
IF TEQUIP:28
	SOURCE:액체 = 50
	SOURCE:일탈 += 100
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;겁쟁이持ちは두려움、노출、우울、반감ソース追加、
IF TALENT:20
	SOURCE:두려움 += 150
	SOURCE:노출 += 100
	SOURCE:우울 += 150
	SOURCE:반발 += 200
ENDIF

;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 250
SIF TALENT:84
	SOURCE:우울 += 250
;부끄럼쟁이は두려움と노출のソース増加、일탈반감ソース追加
IF TALENT:20
	SOURCE:두려움 += 50
	SOURCE:노출 += 200
	SOURCE:일탈 += 200
	SOURCE:반발 += 200
ENDIF
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 250
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 180
;Ｂ열등감には、노출のソースと억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
IF TALENT:89
	SOURCE:노출 += 300
	SOURCE:우울 += 450
ENDIF
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、일탈ソース、반감ソース追加
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 60
		SOURCE:욕정 += 50
		SOURCE:노출 += 200
		SOURCE:굴종 += 200
		SOURCE:일탈 += 100
		SOURCE:반발 += 200
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 60
		SOURCE:욕정 += 50
		SOURCE:노출 += 200
		SOURCE:굴종 += 200
		SOURCE:일탈 += 100
		SOURCE:반발 += 200
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 60
	SOURCE:욕정 += 50
	SOURCE:노출 += 200
	SOURCE:굴종 += 200
	SOURCE:일탈 += 100
	SOURCE:반발 += 200
ENDIF

;調教者か助손が고무なら쾌Ｂ、達成ソース追加、일탈반감ソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:쾌Ｂ += 50
		SOURCE:달성감 += 50
		SOURCE:일탈 -= 50
		SOURCE:반발 -= 50
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:쾌Ｂ += 50
		SOURCE:달성감 += 50
		SOURCE:일탈 -= 50
		SOURCE:반발 -= 50
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:쾌Ｂ += 50
	SOURCE:달성감 += 50
	SOURCE:일탈 -= 50
	SOURCE:반발 -= 50
ENDIF
;中毒による중독충족のソースは先に処理しておく
;자위중독を見る
SIF ABL:15 == 1
	TIMES SOURCE:중독충족 , 0.00
SIF ABL:15 == 2
	TIMES SOURCE:중독충족 , 0.30
SIF ABL:15 == 3
	TIMES SOURCE:중독충족 , 0.60
SIF ABL:15 == 4
	TIMES SOURCE:중독충족 , 0.90
SIF ABL:15 == 5
	TIMES SOURCE:중독충족 , 1.20
SIF ABL:15 == 6
	TIMES SOURCE:중독충족 , 1.50
SIF ABL:15 == 7
	TIMES SOURCE:중독충족 , 1.80
SIF ABL:15 == 8
	TIMES SOURCE:중독충족 , 2.30
SIF ABL:15 == 9
	TIMES SOURCE:중독충족 , 3.00
SIF ABL:15 >= 10
	TIMES SOURCE:중독충족 , 5.00

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;ビデオ撮影時は経験にプラス
IF TEQUIP:28
	EXP:10 += 2
	PRINTL 자위경험＋２
	EXP:11 += 2
	PRINTL 조교자위경험＋２
ELSE
	EXP:10 += 1
	PRINTL 자위경험＋１
	EXP:11 += 1
	PRINTL 조교자위경험＋１
ENDIF

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

IF TEQUIP:28 && CFLAG:3 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
	CFLAG:3 = 1
ENDIF
IF TEQUIP:43 && CFLAG:3 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
	CFLAG:3 = 1
ENDIF

A = 3
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 = 3

;의존도補正値(복종で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


code:
;-------------------------------------------------
;스팽킹
;SM系コマンド、レベル1
;-------------------------------------------------
@COM100
CALL SET_COLOR_STATUS,3
PRINTL 스팽킹
RESETCOLOR
STR:0 = 스팽킹
CALL KOJO_MESSAGE_COM

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

SOURCE:아픔 = 450
SOURCE:두려움 = 400
SOURCE:일탈 = 50
SOURCE:반발 = 300

;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
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:33
	SOURCE:반발 += 100

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20

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

;의존도補正値(복종で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:
;-------------------------------------------------
;가슴스팽킹
;SM系コマンド、レベル1
;-------------------------------------------------
@COM101
CALL SET_COLOR_STATUS,3
PRINTL 가슴스팽킹
RESETCOLOR
STR:0 = 가슴스팽킹
CALL KOJO_MESSAGE_COM

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

SOURCE:아픔 = 450
SOURCE:두려움 = 400
SOURCE:일탈 = 50
SOURCE:반발 = 300

;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
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:33
	SOURCE:반발 += 100
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 500
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;마조끼に応じて快Bのソースを追加する
SOURCE:쾌Ｂ += 100*ABL:9

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
;乳スパキングでは、調教者のＢ열등감によって、아픔のソースと두려움のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:89
	TIMES SOURCE:아픔 , 1.50
	TIMES SOURCE:두려움 , 1.50
ENDIF
;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷のＢ⇔調教者の指の汚れが移動
STAIN:5 |= STAIN:PLAYER:1
STAIN:PLAYER:1 |= STAIN:5

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

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

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

;의존도補正値(복종で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:
;-------------------------------------------------
;채찍
;SM系コマンド、レベル2
;-------------------------------------------------
@COM102
CALL SET_COLOR_STATUS,3
PRINTL 채찍
RESETCOLOR
STR:0 = 채찍
CALL KOJO_MESSAGE_COM

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

SOURCE:아픔 = 1500
SOURCE:두려움 = 1200
SOURCE:일탈 = 100
SOURCE:반발 = 600

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20

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

;의존도補正値(복종で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:
;-------------------------------------------------
;양초
;SM系コマンド、レベル3
;-------------------------------------------------
@COM103
CALL SET_COLOR_STATUS,3
PRINTL 양초
RESETCOLOR
STR:0 = 양초
CALL KOJO_MESSAGE_COM

ITEM:46 -= 1

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

SOURCE:아픔 = 3000
SOURCE:두려움 = 4000
SOURCE:일탈 = 150
SOURCE:반발 = 300

;調教者か助손が도구지식持ちなら消費軽減
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20

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

;의존도補正値(복종で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:
;-------------------------------------------------
;바늘
;SM系コマンド、レベル4
;-------------------------------------------------
@COM104
CALL SET_COLOR_STATUS,3
PRINTL 바늘
RESETCOLOR
STR:0 = 바늘
CALL KOJO_MESSAGE_COM

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

SOURCE:아픔 = 5000
SOURCE:두려움 = 4000
SOURCE:일탈 = 500
SOURCE:반발 = 1200

;調教者か助손が바늘다루기なら아픔と두려움のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:123 == 1
		TIMES SOURCE:아픔 , 1.30
		TIMES SOURCE:두려움 , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:123 == 1
		TIMES SOURCE:아픔 , 1.30
		TIMES SOURCE:두려움 , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:123 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:아픔 , 1.30
	TIMES SOURCE:두려움 , 1.20
ENDIF
;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 900

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;아이마스크
;SM系コマンド、レベル1
;-------------------------------------------------
@COM105
CALL SET_COLOR_STATUS,3
PRINTL 아이마스크
RESETCOLOR
STR:0 = 아이마스크
CALL KOJO_MESSAGE_COM

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

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

SOURCE:두려움 = 700
SOURCE:노출 = 100
SOURCE:일탈 = 300
SOURCE:반발 = 600

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;아이마스크では、調教者のＳＭ지식によって、두려움のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 2
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 = 3

;의존도補正値(복종で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 = 1

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM105
CALL SET_COLOR_STATUS,2
PRINTL ＜아이마스크 장착중＞
RESETCOLOR

;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
LOSEBASE:0 += 0
LOSEBASE:1 += 30

SOURCE:두려움 += 350
SOURCE:노출 += 50
SOURCE:일탈 += 150
SOURCE:반발 += 300

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 100

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;아이마스크では、調教者のＳＭ지식によって、두려움のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 30
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체なら消費軽減(촉수除く)
IF TEQUIP:25 == 0 && TALENT:105
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;밧줄
;SM系コマンド、レベル3
;-------------------------------------------------
@COM106
IF TEQUIP:25
	CALL SET_COLOR_STATUS,3
	PRINTL 촉수긴박
	RESETCOLOR
	STR:0 = 촉수긴박
	SELECTCOM = 166
ELSE
	CALL SET_COLOR_STATUS,3
	PRINTL 밧줄
	RESETCOLOR
	STR:0 = 밧줄
ENDIF
CALL KOJO_MESSAGE_COM

;着脱の処理
IF TEQUIP:19 == 0
	TEQUIP:19 = 1
	;촉수긴박は촉수の汚れを追加
	IF TEQUIP:25
		STAIN:1 |= 32
		STAIN:5 |= 32
	ENDIF
ELSE
	TEQUIP:19 = 0
ENDIF

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

SOURCE:아픔 = 300
SOURCE:두려움 = 900
SOURCE:노출 = 200
SOURCE:굴종 = 250
SOURCE:일탈 = 300
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
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:51 += 5
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

;촉수소환時、촉수경험のリセットをする
SIF TEQUIP:25 == 1
	T = 0

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

;의존도補正値(복종で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_COM106
IF TEQUIP:25
	PRINTL ＜촉수 긴박중＞
	RESETCOLOR
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜긴박중＞
	RESETCOLOR
ENDIF

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

SOURCE:아픔 += 150
SOURCE:두려움 += 450
SOURCE:노출 += 100
SOURCE:굴종 += 125
SOURCE:일탈 += 150
SOURCE:반발 += 350

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 45
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

;촉수경험加算
SIF TEQUIP:25 == 1
	T += 1

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

RETURN 1


code:
;-------------------------------------------------
;볼개그
;SM系コマンド、レベル2
;-------------------------------------------------
@COM107
CALL SET_COLOR_STATUS,3
PRINTL 볼개그
RESETCOLOR
STR:0 = 볼개그
CALL KOJO_MESSAGE_COM

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

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

SOURCE:두려움 = 500
SOURCE:노출 = 200
SOURCE:굴종 = 150
SOURCE:일탈 = 100
SOURCE:반발 = 300

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;볼개그では、調教者のＳＭ지식によって、두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:노출 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 2
PRINTL 긴박경험＋２

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

;의존도補正値(복종で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_COM107
CALL SET_COLOR_STATUS,2
PRINTL ＜볼개그 장착중＞
RESETCOLOR

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

SOURCE:두려움 += 250
SOURCE:노출 += 150
SOURCE:굴종 += 75
SOURCE:일탈 += 50
SOURCE:반발 += 150

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 100

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;볼개그では、調教者のＳＭ지식によって、두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:노출 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 20
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;귀갑묶기
;SM系コマンド、レベル3
;밧줄と似ているが実行に高い기교かＳＭ지식が必要。継続中の아픔と消耗が少ない。両손は後ろに拘束。
;-------------------------------------------------
@COM108
CALL SET_COLOR_STATUS,3
PRINTL 귀갑묶기
RESETCOLOR
STR:0 = 귀갑묶기

CALL KOJO_MESSAGE_COM

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

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

SOURCE:달성감 = 100
SOURCE:아픔 = 50
SOURCE:두려움 = 300
SOURCE:노출 = 500
SOURCE:굴종 = 400
SOURCE:일탈 = 150
SOURCE:반발 = 300

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 8
PRINTL 긴박경험＋8

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM108
CALL SET_COLOR_STATUS,2
PRINTL ＜귀갑묶기 중＞
RESETCOLOR

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

SOURCE:아픔 += 200
SOURCE:두려움 += 100
SOURCE:중독충족 += 100
SOURCE:노출 += 500
SOURCE:굴종 += 400
SOURCE:일탈 += 150
SOURCE:반발 += 150

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 100

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;귀갑묶기では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 30
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 2
PRINTL 긴박경험＋２

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

RETURN 1


code:
;-------------------------------------------------
;전기안마
;SM系コマンド、レベル1
;両손で足を掴んで股間を踏みつけて刺激する
;-------------------------------------------------

@COM109
CALL SET_COLOR_STATUS,3
IF TEQUIP:13 == 1
	PRINT 바이브
ENDIF
PRINTL 전기안마
RESETCOLOR
STR:0 = 전기안마
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 200
SOURCE:아픔 = 150
SOURCE:중독충족 = 100
SOURCE:노출 = 50
SOURCE:굴종 = 200
SOURCE:일탈 = 250
SOURCE:반발 = 350

;바이브
IF TEQUIP:13
	SOURCE:쾌Ｖ += 150
	SOURCE:아픔 += 200
	SOURCE:굴종 += 200
	SOURCE:일탈 += 100
	SOURCE:반발 += 150
	TIMES SOURCE:쾌Ｃ , 0.70
	TIMES SOURCE:쾌Ｂ , 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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;下半身노출で쾌Ｃと쾌Ｖ아픔、노출のソース追加
IF IS_CHARA_BOTTOMLESS()
	TIMES SOURCE:쾌Ｃ , 1.20
	TIMES SOURCE:쾌Ｖ , 1.20
	SOURCE:아픔 += 50
	SOURCE:노출 += 150
ENDIF
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 400
SIF TALENT:84
	SOURCE:우울 += 400
;내향적には、억울ソース追加(基本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:일탈 += 300

;고통を伴わない마조끼及び마조の処理は先にしておく
;마조끼を見る
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

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 3
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:12%+{A}
EXP:12 += 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:
;-------------------------------------------------
;자위
;애무系コマンド、レベル3
;-------------------------------------------------
@COMNAME11
LOCALS =
IF TEQUIP:13 && TEQUIP:14
	LOCALS = 二穴바이브
ELSEIF TEQUIP:13
	LOCALS = 바이브
ELSEIF TEQUIP:14
	LOCALS = Ａ바이브
ENDIF
IF TEQUIP:28 || TEQUIP:43
	LOCALS = 公開%LOCALS%
ENDIF
IF TEQUIP:28 || TEQUIP:32 || TEQUIP:13 || TEQUIP:14 || TEQUIP:43
	LOCALS = %LOCALS%オナニー
ELSE
	LOCALS = %LOCALS%자위
ENDIF
RESULTS = %LOCALS%
RETURN 0

@COM11
;자위
;바이브、애널바이브、ビデオ撮影の時に内容変化

;ビデオ촬영중か실황플레이中なら公開オナニー
;샤워使用中なら샤워オナニー
;読心中なら読心オナニー
;바이브、애널바이브、或いは両方装備で바이브オナニー
IF TEQUIP:28 || TEQUIP:43
	CALL SET_COLOR_STATUS,3
	PRINT 공개
	RESETCOLOR
ENDIF
IF TEQUIP:32
	CALL SET_COLOR_STATUS,3
	PRINT 샤워
	RESETCOLOR
ENDIF
IF TEQUIP:13 && TEQUIP:14
	CALL SET_COLOR_STATUS,3
	PRINT 두 구멍 바이브
	RESETCOLOR
ELSEIF TEQUIP:13
	CALL SET_COLOR_STATUS,3
	PRINT 바이브
	RESETCOLOR
ELSEIF TEQUIP:14
	CALL SET_COLOR_STATUS,3
	PRINT 애널바이브
	RESETCOLOR
ENDIF

IF TEQUIP:28 || TEQUIP:32 || TEQUIP:13 || TEQUIP:14
	CALL SET_COLOR_STATUS,3
	PRINTL 자위
	RESETCOLOR
ELSE
	CALL SET_COLOR_STATUS,3
	PRINTL 자위
	RESETCOLOR
ENDIF

;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
A = 0
S = 0

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

;ABL:욕망
IF ABL:1
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:1 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 3,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:노출증
IF ABL:8
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:8 * 4
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:8
	PRINTV 'LV,ABL:8,'(,ABL:8 * 4,')
	RESETCOLOR
	S = 1
ENDIF
;ABL:자위중독
IF ABL:15
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += ABL:15 * 3
	CALL SET_COLOR_STATUS,1
	PRINTS ABLNAME:15
	PRINTV 'LV,ABL:15,'(,ABL:15 * 3,')
	RESETCOLOR
	S = 1
ENDIF

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

;PALAM:욕정
IF PALAM:6 < PALAMLV:1
	L = 0
ELSEIF PALAM:6 < PALAMLV:2
	L = 1
ELSEIF PALAM:6 < PALAMLV:3
	L = 2
ELSEIF PALAM:6 < PALAMLV:4
	L = 3
ELSEIF PALAM:6 < PALAMLV:5
	L = 4
ELSE
	L = 5
ENDIF
IF L
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += L * 3
	CALL SET_COLOR_STATUS,1
	PRINTS PALAMNAME:6
	PRINTV 'LV,L,'(,L * 3,')
	RESETCOLOR
	S = 1
ENDIF
;겁쟁이
IF TALENT:20
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:20
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;자제심
IF TALENT:50
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:50
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;부끄럼쟁이
IF TALENT:85
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:85
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF
;수치심없음
IF TALENT:86
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 2
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:86
	PRINTV '(,2,')
	RESETCOLOR
	S = 1
ENDIF
;자위하기쉬움
IF TALENT:150
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 8
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:150
	PRINTV '(,8,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감에솔직
IF TALENT:170
	IF S
		CALL SET_COLOR_STATUS,1
		PRINT  +
		RESETCOLOR
	ENDIF
	A += 5
	CALL SET_COLOR_STATUS,1
	PRINTS TALENTNAME:170
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	CALL SET_COLOR_STATUS,1
	PRINT  -
	A -= 5
	PRINTS TALENTNAME:171
	PRINTV '(,5,')
	RESETCOLOR
	S = 1
ENDIF

;감정부족
IF TALENT:30
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 4
	PRINTS TALENTNAME:30
	PRINTV '(,4,')
	RESETCOLOR
	S = 1
ENDIF

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

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

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

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

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

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

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

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

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

;調教者か助손が소악마
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조교자가 %TALENTNAME:197%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조수가 %TALENTNAME:197%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 10
	PRINTFORM 조교자가 %TALENTNAME:197%
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF

;調教者か助손が고무
IF ASSI >= 1
	IF TALENT:PLAYER:286 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조교자가 %TALENTNAME:286%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:286 == 1
		CALL SET_COLOR_STATUS,1
		PRINT  +
		A += 10
		PRINTFORM 조수가 %TALENTNAME:286%
		PRINTV '(,10,')
		RESETCOLOR
		S = 1
	ENDIF
ELSEIF TALENT:PLAYER:286 == 1
	CALL SET_COLOR_STATUS,1
	PRINT  +
	A += 10
	PRINTFORM 조교자가 %TALENTNAME:286%
	PRINTV '(,10,')
	RESETCOLOR
	S = 1
ENDIF

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

;難易度上昇
;公開で+10、바이브で+5、애널바이브で+5、샤워で＋3
V = 33
SIF TEQUIP:28
	V += 10
SIF TEQUIP:32
	V += 3
SIF TEQUIP:13
	V += 5
SIF TEQUIP:14
	V += 5

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

WAIT

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

STR:0 = 자위
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｃ = 100
SOURCE:쾌Ｂ = 60
SOURCE:성행동 = 100
SOURCE:두려움 = 200
SOURCE:중독충족 = 200
SOURCE:노출 = 400
SOURCE:굴종 = 500
SOURCE:일탈 = 300
SOURCE:반발 = 250
;바이브
IF TEQUIP:13
	SOURCE:굴종 += 100
	SOURCE:반발 += 100
	TIMES SOURCE:쾌Ｃ , 0.70
	TIMES SOURCE:쾌Ｂ , 0.70
ENDIF
;애널바이브
IF TEQUIP:14
	SOURCE:굴종 += 150
	SOURCE:반발 += 150
	TIMES SOURCE:쾌Ｃ , 0.70
	TIMES SOURCE:쾌Ｂ , 0.70
ENDIF
;샤워
IF TEQUIP:32
	SOURCE:쾌Ｃ += 50
	SOURCE:노출 += 100
	SOURCE:굴종 += 50
	SOURCE:반발 += 80
ENDIF
;ビデオ
IF TEQUIP:28
	SOURCE:노출 += 50
	SOURCE:욕정 += 100
	SOURCE:반발 += 200
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;겁쟁이持ちは두려움、노출、우울、반감ソース追加、
IF TALENT:20
	SOURCE:두려움 += 200
	SOURCE:노출 += 150
	SOURCE:우울 += 200
	SOURCE:반발 += 250
ENDIF
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 600
SIF TALENT:84
	SOURCE:우울 += 600
;부끄럼쟁이は두려움と노출のソース増加、일탈반감ソース追加
IF TALENT:20
	SOURCE:두려움 += 80
	SOURCE:노출 += 300
	SOURCE:일탈 += 300
	SOURCE:반발 += 300
ENDIF
;내향적には、억울ソース追加(基本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
;Ｂ열등감には、억울ソース追加(B調教時저항억압の1.5倍程度。B以外も同時な場合割合に応じて低下)
SIF TALENT:89
	SOURCE:우울 += 600
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、일탈ソース、반감ソース追加
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:달성감 += 80
		SOURCE:욕정 += 70
		SOURCE:노출 += 300
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:달성감 += 80
		SOURCE:욕정 += 70
		SOURCE:노출 += 300
		SOURCE:굴종 += 300
		SOURCE:일탈 += 200
		SOURCE:반발 += 300
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:달성감 += 80
	SOURCE:욕정 += 70
	SOURCE:노출 += 300
	SOURCE:굴종 += 300
	SOURCE:일탈 += 200
	SOURCE:반발 += 300
ENDIF

;調教者か助손が고무なら쾌ＣＢ、達成ソース追加、일탈반감ソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:197 == 1
		SOURCE:쾌Ｃ += 40
		SOURCE:쾌Ｂ += 40
		SOURCE:달성감 += 120
		SOURCE:일탈 -= 100
		SOURCE:반발 -= 100
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:197 == 1
		SOURCE:쾌Ｃ += 40
		SOURCE:쾌Ｂ += 40
		SOURCE:달성감 += 120
		SOURCE:일탈 -= 100
		SOURCE:반발 -= 100
	ENDIF
ELSEIF TALENT:PLAYER:197 == 1
	SOURCE:쾌Ｃ += 40
	SOURCE:쾌Ｂ += 40
	SOURCE:달성감 += 120
	SOURCE:일탈 -= 100
	SOURCE:반발 -= 100
ENDIF
;中毒による중독충족のソースは先に処理しておく
;자위중독を見る
IF ABL:15 == 1
	TIMES SOURCE:쾌Ｃ , 1.00
	TIMES SOURCE:쾌Ｖ , 1.00
	TIMES SOURCE:쾌Ａ , 1.00
	TIMES SOURCE:쾌Ｂ , 1.00
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:15 == 2
	TIMES SOURCE:쾌Ｃ , 1.10
	TIMES SOURCE:쾌Ｖ , 1.10
	TIMES SOURCE:쾌Ａ , 1.10
	TIMES SOURCE:쾌Ｂ , 1.10
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:15 == 3
	TIMES SOURCE:쾌Ｃ , 1.20
	TIMES SOURCE:쾌Ｖ , 1.20
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:쾌Ｂ , 1.20
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:15 == 4
	TIMES SOURCE:쾌Ｃ , 1.30
	TIMES SOURCE:쾌Ｖ , 1.30
	TIMES SOURCE:쾌Ａ , 1.30
	TIMES SOURCE:쾌Ｂ , 1.30
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:15 == 5
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:쾌Ｖ , 1.50
	TIMES SOURCE:쾌Ａ , 1.50
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:15 == 6
	TIMES SOURCE:쾌Ｃ , 1.70
	TIMES SOURCE:쾌Ｖ , 1.70
	TIMES SOURCE:쾌Ａ , 1.50
	TIMES SOURCE:쾌Ｂ , 1.50
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:15 == 7
	TIMES SOURCE:쾌Ｃ , 2.00
	TIMES SOURCE:쾌Ｖ , 2.00
	TIMES SOURCE:쾌Ａ , 1.70
	TIMES SOURCE:쾌Ｂ , 1.70
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:15 == 8
	TIMES SOURCE:쾌Ｃ , 2.30
	TIMES SOURCE:쾌Ｖ , 2.30
	TIMES SOURCE:쾌Ａ , 2.00
	TIMES SOURCE:쾌Ｂ , 2.00
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:15 == 9
	TIMES SOURCE:쾌Ｃ , 2.50
	TIMES SOURCE:쾌Ｖ , 2.50
	TIMES SOURCE:쾌Ａ , 2.50
	TIMES SOURCE:쾌Ｂ , 2.50
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:15 >= 10
	TIMES SOURCE:쾌Ｃ , 3.50
	TIMES SOURCE:쾌Ｖ , 3.50
	TIMES SOURCE:쾌Ａ , 3.50
	TIMES SOURCE:쾌Ｂ , 3.50
	TIMES SOURCE:중독충족 , 5.00
ENDIF

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

;奴隷の指⇔奴隷のＶの汚れが移動
STAIN:1 |= STAIN:3
STAIN:3 |= STAIN:1

;샤워オナニーの場合汚れをリセット、윤활更に半分。
IF TEQUIP:32 == 1
	STAIN:1 = 0
	STAIN:2 = 2
	STAIN:3 = 1
	STAIN:4 = 8
	PALAM:4 /= 2
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;ビデオ撮影時は経験にプラス
IF TEQUIP:28
	EXP:10 += 2
	PRINTL 자위경험＋２
	EXP:11 += 2
	PRINTL 조교자위경험＋２
ELSE
	EXP:10 += 1
	PRINTL 자위경험＋１
	EXP:11 += 1
	PRINTL 조교자위경험＋１
ENDIF
;公開オナニー時は이상경험付加
IF TEQUIP:28 && CFLAG:3 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
	CFLAG:3 = 1
ENDIF
IF TEQUIP:43 && CFLAG:3 == 0
	EXP:50 += 1
	PRINTL 이상경험＋１
	CFLAG:3 = 1
ENDIF

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

;撮影時の調教内容チェック
IF TEQUIP:13 && TEQUIP:14
	TFLAG:90 = 993
ELSEIF TEQUIP:13
	TFLAG:90 = 991
ELSEIF TEQUIP:14
	TFLAG:90 = 992
ELSEIF TEQUIP:32
	TFLAG:90 = 994
ENDIF

A = 3
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 = 3

;의존도補正値(복종で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


code:
;-------------------------------------------------
;Ｘ字형틀구속
;SM系コマンド、レベル3
;-------------------------------------------------
@COM110
CALL SET_COLOR_STATUS,3
PRINTL Ｘ자구속대
RESETCOLOR
STR:0 = Ｘ字형틀구속
CALL KOJO_MESSAGE_COM

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

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

SOURCE:두려움 = 1500
SOURCE:노출 = 600
SOURCE:굴종 = 400
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 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 = 3

;의존도補正値(복종で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_COM110
CALL SET_COLOR_STATUS,2
PRINTL ＜Ｘ자구속대 사용중＞
RESETCOLOR

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

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

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;형틀구속では、調教者のＳＭ지식によって、두려움と굴종ソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;밧줄속옷
;服の下から밧줄で縛る。両손は自由
;-------------------------------------------------
@COMNAME_111
RESULTS = %COMNAME_CORE_111()%
RETURN 0

@COMNAME_CORE_111()
#FUNCTIONS
RETURNF "밧줄속옷"

@COM111
PRINTFORML %COMNAME_CORE_111()%
RESETCOLOR
STR:0 = %COMNAME_CORE_111()%
CALL KOJO_MESSAGE_COM

;着脱の処理
TEQUIP:49 |= 1

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

SOURCE:아픔 = 200
SOURCE:두려움 = 600
SOURCE:노출 = 400
SOURCE:굴종 = 450
SOURCE:일탈 = 500
SOURCE:반발 = 800

;調教者か助손が도구지식持ちなら消費軽減
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 500

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 4
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 = 4

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM111
CALL SET_COLOR_STATUS,2
PRINTL ＜밧줄속옷 장착중＞
RESETCOLOR

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

SOURCE:아픔 += 100
SOURCE:두려움 += 500
SOURCE:노출 += 150
SOURCE:굴종 += 200
SOURCE:일탈 += 300
SOURCE:반발 += 500

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;밧줄では、調教者のＳＭ지식によって、두려움と아픔と굴종ソース増加（촉수除く）
IF TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 45
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
IF ASSI >= 1
	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
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;스팽킹
;SM系コマンド、レベル1
;-------------------------------------------------
@COM112
CALL SET_COLOR_STATUS,3
PRINTL 뺨때리기
RESETCOLOR
STR:0 = 뺨때리기
CALL KOJO_MESSAGE_COM

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

SOURCE:아픔 = 250
SOURCE:두려움 = 200
SOURCE:일탈 = 10
SOURCE:반발 = 200

;調教者か助손がＳＭ지식持ちなら消費軽減（촉수除く）
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:33
	SOURCE:반발 += 50

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 125

;고통のパラメータによる고통のソース増加は先に処理しておく
IF PALAM:10 < PALAMLV:1
	TIMES SOURCE:아픔 , 1.00
ELSEIF PALAM:10 < PALAMLV:2
	TIMES SOURCE:아픔 , 1.50
ELSEIF PALAM:10 < PALAMLV:3
	TIMES SOURCE:아픔 , 2.00
ELSEIF PALAM:10 < PALAMLV:4
	TIMES SOURCE:아픔 , 2.50
ELSEIF PALAM:10 >= PALAMLV:4
	TIMES SOURCE:아픔 , 3.00
ENDIF

;ＳＭ調教では、調教者のＳＭ지식によって、아픔のソース増加（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20

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

;의존도補正値(복종で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 = 0

RETURN 1


code:
;-------------------------------------------------
;수갑
;SM系コマンド、レベル2
;-------------------------------------------------
@COM113
CALL SET_COLOR_STATUS,3
PRINTL 수갑
RESETCOLOR
STR:0 = 수갑
CALL KOJO_MESSAGE_COM

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

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

SOURCE:아픔 = 100
SOURCE:두려움 = 600
SOURCE:노출 = 100
SOURCE:굴종 = 200
SOURCE:일탈 = 250
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;수갑では、調教者のＳＭ지식によって、아픔・두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 3
PRINTL 긴박경험＋３

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

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

;의존도補正値(복종で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_COM113
CALL SET_COLOR_STATUS,2
PRINTL ＜수갑 구속 중＞
RESETCOLOR

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

SOURCE:아픔 += 75
SOURCE:두려움 += 300
SOURCE:노출 += 75
SOURCE:굴종 += 100
SOURCE:일탈 += 125
SOURCE:반발 += 200

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 50

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;수갑では、調教者のＳＭ지식によって、아픔・두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 20
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;개구기
;SM系コマンド、レベル2
;-------------------------------------------------
@COM114
CALL SET_COLOR_STATUS,3
PRINTL 개구기
RESETCOLOR
STR:0 = 개구기
CALL KOJO_MESSAGE_COM

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

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

SOURCE:두려움 = 600
SOURCE:노출 = 250
SOURCE:굴종 = 250
SOURCE:일탈 = 200
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 200
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 325

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;볼개그では、調教者のＳＭ지식によって、두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 2
PRINTL 긴박경험＋２

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM114
CALL SET_COLOR_STATUS,2
PRINTL ＜개구기 장착 중＞
RESETCOLOR

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

SOURCE:두려움 += 350
SOURCE:노출 += 250
SOURCE:굴종 += 175
SOURCE:일탈 += 150
SOURCE:반발 += 250

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;볼개그では、調教者のＳＭ지식によって、두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 20
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;코훅
;SM系コマンド、レベル2
;-------------------------------------------------
@COM115
CALL SET_COLOR_STATUS,3
PRINTL 코훅
RESETCOLOR
STR:0 = 코훅
CALL KOJO_MESSAGE_COM

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

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

SOURCE:두려움 = 600
SOURCE:아픔 = 600
SOURCE:노출 = 300
SOURCE:굴종 = 300
SOURCE:일탈 = 300
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

;긴박경험が高いと消費減少
IF EXP:51 < EXPLV:3
	TIMES LOSEBASE:0 , 1.00
	TIMES LOSEBASE:1 , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES LOSEBASE:0 , 0.90
	TIMES LOSEBASE:1 , 0.90
ELSE
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;코훅では、調教者のＳＭ지식によって、두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 3
PRINTL 긴박경험＋３

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM115
CALL SET_COLOR_STATUS,2
PRINTL ＜코훅 장착 중＞
RESETCOLOR

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

SOURCE:두려움 += 300
SOURCE:아픔 += 400
SOURCE:노출 += 250
SOURCE:굴종 += 400
SOURCE:일탈 += 400
SOURCE:반발 += 300

;공주님소망には、일탈ソース追加
SIF TALENT:199
	SOURCE:일탈 += 200

;道具を使う調教では、調教者の도구지식によって、반감のソース低下（촉수除く）
SIF TEQUIP:25 == 0 && TALENT:PLAYER:128
	TIMES SOURCE:반발 , 0.80

;코훅では、調教者のＳＭ지식によって、아픔・두려움と굴종のソース増加（촉수除く）
IF TEQUIP:25 == 0 && TALENT:PLAYER:129
	TIMES SOURCE:아픔 , 1.20
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;긴박경험が高いと消費減少
A = 20
IF EXP:51 < EXPLV:3
	TIMES A , 1.00
ELSEIF EXP:51 < EXPLV:4
	TIMES A , 0.90
ELSE
	TIMES A , 0.70
ENDIF
LOSEBASE:1 += A

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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

;対象が유연한신체上손なら消費軽減
IF TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
EXP:51 += 1
PRINTL 긴박경험＋１

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

RETURN 1


code:
;-------------------------------------------------
;애널개장
;애무系コマンド、レベル2
;-------------------------------------------------
@COMNAME12
RESULTS = \@ !IS_BOTTOMFREE(15) ? 속옷제끼고 # \@%TRAINNAME:12%

@COM12
;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
A = 0
S = 0

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

CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"순종",2)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"욕망",4)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"Ａ감각",3)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"봉사정신",4)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"노출증",3)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"자위중독",3)

CALL COM_ORDER_CALC_VALUE_BY_MARK(A,"쾌락각인",2)

SIF PALAM:윤활 < PALAMLV:3
	CALL COM_ORDER_CALC_VALUE(A,"윤활不足",-5)
CALL COM_ORDER_CALC_VALUE_BY_PALAM(A,"욕정",3)

CALL COM_ORDER_CALC_VALUE_TALENT(A,"겁쟁이",-10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"부끄럼쟁이",-15)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"쾌감을부정",-5,,"!IS_SEXMIND(index)")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"남성혐오",-12,,"TALENT:PLAYER:남자 && !(IS_LOVING(index) && PLAYER == MASTER)")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"처녀",-15)

SIF EXP:Ａ경험 < EXPLV:2
	CALL COM_ORDER_CALC_VALUE(A,"Ａ경험不足",-15)

CALL COM_ORDER_CALC_VALUE_TALENT(A,"후타나리",-3,PLAYER)

CALL COM_ORDER_CALC_VALUE_TALENT(A,"감정부족",5)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"내향적",3)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"고결",-10,,"!IS_SEXMIND(index)")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"성악",3)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"굴복",10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"철벽",-25,,"!IS_FALLEN(index)")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"자위하기쉬움",8)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"거절",-10,,"!IS_FALLEN(index)")

CALL COM_ORDER_CALC_VALUE_BY_TEQUIP(A,"미약",5)

CALL COM_ORDER_CALC_VALUE_TALENT(A,"소악마",10,MASTER,"index == PLAYER")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"소악마",10,ASSI)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"고무",10,MASTER,"index == PLAYER")
CALL COM_ORDER_CALC_VALUE_TALENT(A,"고무",10,ASSI)

CALL SHOW_COMORDER_RESULT(A,18)

WAIT

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

CALL SET_COLOR_STATUS,3
PRINTFORML \@ !IS_BOTTOMFREE(15) ? 속옷제끼고 # \@%TRAINNAME:12%
RESETCOLOR
STR:0 = \@ !IS_BOTTOMFREE(15) ? 속옷제끼고 # \@%TRAINNAME:12%
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ａ = 43
SOURCE:달성감 = 30
SOURCE:두려움 = 130
SOURCE:노출 = 400
SOURCE:굴종 = 550
SOURCE:일탈 = 250
SOURCE:반발 = 250

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;겁쟁이持ちは두려움、노출、우울、반감ソース追加、
IF TALENT:겁쟁이
	SOURCE:두려움 += 150
	SOURCE:노출 += 200
	SOURCE:우울 += 250
	SOURCE:반발 += 300
ENDIF
;억압、저항持ちには、억울ソース追加
SIF TALENT:억압 || TALENT:저항
	SOURCE:우울 += 300
;부끄럼쟁이は두려움と노출のソース増加、일탈반감ソース追加
IF TALENT:부끄럼쟁이
	SOURCE:두려움 += 150
	SOURCE:노출 += 300
	SOURCE:일탈 += 300
	SOURCE:반발 += 300
ENDIF
;내향적には、억울ソース追加
SIF TALENT:내향적
	SOURCE:우울 += 50
;인간혐오には、반감ソース追加
SIF TALENT:인간혐오
	SOURCE:반발 += 100
;거절には、일탈ソース追加
SIF TALENT:거절
	SOURCE:일탈 += 230
;調教者か助손が소악마なら達成ソース、욕정ソース、노출ソース、굴종ソース、일탈ソース、반감ソース追加
IF TALENT:PLAYER:소악마 || (ASSI > 0 && TALENT:ASSI:소악마)
	SOURCE:달성감 += 60
	SOURCE:욕정 += 50
	SOURCE:노출 += 200
	SOURCE:굴종 += 200
	SOURCE:일탈 += 100
	SOURCE:반발 += 200
ENDIF

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

;처녀、정조관념
IF TALENT:처녀 || TALENT:정조관념
	TIMES SOURCE:두려움 , 1.20
	TIMES SOURCE:굴종 , 1.20
	TIMES SOURCE:반발 , 1.20
	SOURCE:노출 += 300
	IF TALENT:80
		TIMES SOURCE:노출 , 2.00
		TIMES SOURCE:일탈 , 2.00
	ENDIF
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷のＡ⇔指の汚れが移動 <-一旦なし。尻を掴んで広げるなら汚れないはず
;STAIN:애널 |= STAIN:손
;STAIN:손 |= STAIN:애널

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;노출증Lv3以上で자위경험加算
IF ABL:노출증 >= 3
	EXP:자위경험 += 1
	PRINTL 자위경험＋１
ENDIF

A = 1
CALL ADD_LES_OR_GAY_EXP(1)

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

;의존도補正値(복종で1、예속で2）
TFLAG:30 = GET_DEPENDENCE_VALUE()

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

TFLAG:301 = 2

RETURN 1


code:
;-------------------------------------------------
;커닐링구스강제
;助손によるコマンド、及びレズプレイ、レベル1
;-------------------------------------------------
@COMNAME120
;69判定
CALL COM_ABLE501
;前回と今回の調教者が同じ
IF (ASSIPLAY && TFLAG:50) || (ASSIPLAY == 0 && TFLAG:50 == 0)
	;밧줄使用中でなく、前回の調教が커닐링구스か펠라한다かシックスナインだとシックスナインに
	IF (PREVCOM == 1 || PREVCOM == 2 || PREVCOM == 501) && TEQUIP:19 == 0
		IF !ASSIPLAY
			RESULTS = シックスナイン
		ELSE
			RESULTS = ６９（助손）
		ENDIF
		RETURN 2
	ENDIF
ENDIF

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

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

;シックスナインへ飛ぶ
SIF RESULT == 2
	JUMP COM501

CALL SET_COLOR_STATUS,3
PRINTL 커닐링구스강제
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
A = 0
S = 0

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

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

IF MARK:1
	SIF S
		PRINT  +
	A += MARK:1 * 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 * 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 += 3
	PRINTS TALENTNAME:151
	PRINTV '(,3,')
	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: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 += 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

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

;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:달성감 = 150
SOURCE:굴종 = 500
SOURCE:일탈 = 200
SOURCE:반발 = 200

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

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

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

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷の입⇔調教者のＶの汚れが移動
STAIN:0 |= STAIN:PLAYER:3
STAIN:PLAYER:3 |= 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

;奴隷が고양이혀持ちの場合は、調教者に가학쾌락경험を追加
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

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

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

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

TFLAG:301 = 10

RETURN 1