code:
;-------------------------------------------------
;로터
;道具使用コマンド、レベル1
;-------------------------------------------------
@COM40
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------

CALL SET_COLOR_STATUS,3
PRINTL 로터
RESETCOLOR
STR:0 = 로터
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 250
SOURCE:노출 = 20
SOURCE:일탈 = 30
SOURCE:반발 = 30

;調教者か助손が도구지식持ちなら消費軽減
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 60
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50

;道具を使う調教では、調教者の도구지식によって、快感のソース増加
SIF TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｃ , 1.20
;調教者か助손が도구지식持ちなら快感のソース増加
IF ASSI >= 1
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 1
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

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

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

TFLAG:301 = 5

RETURN 1


code:
;-------------------------------------------------
;膣로터セット
;특수コマンド
;-------------------------------------------------
@COMNAME400
RESULTS = %COMNAME_CORE400()%
RETURN 0

@COM400
STR:0 = %COMNAME_CORE400()%
CALL SET_COLOR_STATUS,3
PRINTFORML %STR:0%
RESETCOLOR
CALL KOJO_MESSAGE_COM
TEQUIP:45 = TEQUIP:45 == 0 ? 1 # 0 ;動作中フラグもまとめて消す
TFLAG:301 = 1
LOSEBASE:체력 = 5
LOSEBASE:기력 = 5
IF ABL:Ｖ감각 > 3 && PALAM:욕정 < 4000
	SOURCE:두려움 = ABL:Ｖ감각 * 20
	SOURCE:욕정 = ABL:Ｖ감각 * 100
	SOURCE:노출 = ABL:Ｖ감각 * 30
	SOURCE:일탈 = ABL:Ｖ감각 * 10
ENDIF
RETURN 1

@COMNAME_CORE400()
#FUNCTIONS
RETURNF "질 로터 " + \@ TEQUIP:45 == 0 ? 삽입 # 인출 \@

;-------------------------------------------------
;クリ로터セット
;특수コマンド
;-------------------------------------------------
@COMNAME401
RESULTS = %COMNAME_CORE401()%
RETURN 0

@COM401
STR:0 = %COMNAME_CORE401()%
CALL SET_COLOR_STATUS,3
PRINTFORML %STR:0%
RESETCOLOR
CALL KOJO_MESSAGE_COM
TEQUIP:46 = TEQUIP:46 == 0 ? 1 # 0 ;動作中フラグもまとめて消す
TFLAG:301 = 1
LOSEBASE:체력 = 5
LOSEBASE:기력 = 5
IF ABL:Ｃ감각 > 3 && PALAM:욕정 < 4000
	SOURCE:두려움 = ABL:Ｃ감각 * 20
	SOURCE:욕정 = ABL:Ｃ감각 * 100
	SOURCE:노출 = ABL:Ｃ감각 * 30
	SOURCE:일탈 = ABL:Ｃ감각 * 10
ENDIF
RETURN 1

@COMNAME_CORE401()
#FUNCTIONS
RETURNF "클리 로터 " + \@ TEQUIP:46 == 0 ? 고정 # 해제 \@

;-------------------------------------------------
;애널로터セット
;특수コマンド
;-------------------------------------------------
@COMNAME402
RESULTS = %COMNAME_CORE402()%
RETURN 0

@COM402
STR:0 = %COMNAME_CORE402()%
CALL SET_COLOR_STATUS,3
PRINTFORML %STR:0%
RESETCOLOR
CALL KOJO_MESSAGE_COM
TEQUIP:47 = TEQUIP:47 == 0 ? 1 # 0 ;動作中フラグもまとめて消す
TFLAG:301 = 1
LOSEBASE:체력 = 5
LOSEBASE:기력 = 5
IF ABL:Ａ감각 > 3 && PALAM:욕정 < 4000
	SOURCE:두려움 = ABL:Ａ감각 * 20
	SOURCE:욕정 = ABL:Ａ감각 * 100
	SOURCE:노출 = ABL:Ａ감각 * 30
	SOURCE:일탈 = ABL:Ａ감각 * 10
ENDIF
RETURN 1

@COMNAME_CORE402()
#FUNCTIONS
RETURNF "애널 로터 " + \@ TEQUIP:47 == 0 ? 삽입 # 인출 \@

;-------------------------------------------------
;가슴로터セット
;특수コマンド
;-------------------------------------------------
@COMNAME403
RESULTS = %COMNAME_CORE403()%
RETURN 0

@COM403
STR:0 = %COMNAME_CORE403()%
CALL SET_COLOR_STATUS,3
PRINTFORML %STR:0%
RESETCOLOR
CALL KOJO_MESSAGE_COM
TEQUIP:48 = TEQUIP:48 == 0 ? 1 # 0 ;動作中フラグもまとめて消す
TFLAG:301 = 1
LOSEBASE:체력 = 5
LOSEBASE:기력 = 5
IF ABL:Ｂ감각 > 3 && PALAM:욕정 < 4000
	SOURCE:두려움 = ABL:Ｂ감각 * 20
	SOURCE:욕정 = ABL:Ｂ감각 * 100
	SOURCE:노출 = ABL:Ｂ감각 * 30
	SOURCE:일탈 = ABL:Ｂ감각 * 10
ENDIF
RETURN 1

@COMNAME_CORE403()
#FUNCTIONS
RETURNF "유두 로터 " + \@ TEQUIP:48 == 0 ? 고정 # 제거 \@

repo_name: Catalyst/B

license: unknown


code:
;-------------------------------------------------
;Ｅ마사지기
;道具使用コマンド、レベル2
;-------------------------------------------------
@COM41
CALL SET_COLOR_STATUS,3
PRINTL Ｅ마사지기
RESETCOLOR
STR:0 = Ｅ마사지기
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 500
SOURCE:노출 = 40
SOURCE:일탈 = 60
SOURCE:반발 = 60

;調教者か助손が도구지식持ちなら消費軽減
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 100
SIF TALENT:84
	SOURCE:우울 += 100
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 75

;調教者か助손が도구지식持ちなら快感のソース増加
IF ASSI >= 1
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 1
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

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

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

TFLAG:301 = 5

RETURN 1


code:
;-------------------------------------------------
;服を破る
;そのほかのコマンド
;-------------------------------------------------
@COMNAME410
IF !TEQUIP:25
	RESULTS = 옷을 찢는다
ELSE
	RESULTS = 服を引き裂く
ENDIF
RETURN 0

@COM410
#DIM index
#DIM layer

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

CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"순종",3)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"욕망",2)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"노출증",3)
CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"마조끼",2)

CALL COM_ORDER_CALC_VALUE_BY_MARK(A,"쾌락각인",2)
CALL COM_ORDER_CALC_VALUE_BY_MARK(A,"굴복각인",4)
CALL COM_ORDER_CALC_VALUE_BY_MARK(A,"치욕각인",3)
CALL COM_ORDER_CALC_VALUE_BY_MARK(A,"반발각인",-20)

CALL COM_ORDER_CALC_VALUE_TALENT(A,"처녀",-25)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"복종",15)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"예속",20)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"음란",8)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"창녀",15)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"동화",6)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"모판",12)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"꿋꿋함",-7)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"프라이드높음",-5)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"겁쟁이",3)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"얌전함",4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"감정풍부",-4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"감정부족",2)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"반항적",-7)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"내향적",4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"고결",-10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"보수적",-8)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"결벽성",-4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"정욕",6)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"정조관념",-5)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"억압",-7)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"해방",4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"저항",-9)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"부끄럼쟁이",-5)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"수치심없음",2)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"약점",4)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"굴복",5)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"레이프소망",6)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"거절",-10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"노출광",15)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"도착적",10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"마조",10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"공주님소망",-10)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"느슨함",2)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"후타나리",-20)
CALL COM_ORDER_CALC_VALUE_TALENT(A,"남자",5)

IF ABL:PLAYER:새드끼
	CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"새드끼",8,PLAYER)
ELSEIF ABL:MASTER:새드끼
	CALL COM_ORDER_CALC_VALUE_BY_ABL(A,"새드끼",7,MASTER)
ENDIF
IF TALENT:PLAYER:소악마
	CALL COM_ORDER_CALC_VALUE_TALENT(A,"소악마",10,PLAYER)
ELSEIF TALENT:MASTER:소악마
	CALL COM_ORDER_CALC_VALUE_TALENT(A,"소악마",9,MASTER)
ENDIF
CALL COM_ORDER_CALC_VALUE_TALENT(A,"무기력",-3,PLAYER)

CALL SHOW_COMORDER_RESULT(A,60)

;実行できない
IF RESULT < 0
	PRINTFORMW 하지만、%CALLNAME:TARGET%에게 격렬하게 저항당해서 찢을 수가 없었다。
	RETURN 0
ENDIF

PRINTL 옷을 찢는다
STR:0 = 옷을 찢는다
RESETCOLOR
;---------------------------------------
;対象の選択
;---------------------------------------
;EVENT_MESSAGEでやるのが本式だが、破る前の衣服名が欲しいのでこの段階でメッセージ表示
WHILE 1
	PRINTFORML 어느 옷을 찢습니까
	FOR index,WEARING_POSITION_COUNT,-1,-1
		IF IS_WEARING(index)
			SIF GET_CHARA_WEARING_CLOTH(index) == 0
				CONTINUE
			SIF (index) == 3 && IS_CHARA_ONEPIECE_UNDERWEARING()
				CONTINUE
			SIF (index) == 5 && IS_CHARA_ONEPIECE_OVERWEARING()
				CONTINUE
			SIF CLOTH_STATUS:index == 1 || GET_CHARA_CLOTH_MAKEHOLE(index) == -1
				SETCOLOR 128,128,128
			PRINTFORML [{index,2}] - %GET_CHARA_WEAR_NAME(index)%
			RESETCOLOR
		ENDIF
	NEXT
	PRINTFORML [ 9] - 취소
	SIF TEQUIP:25
		PRINTFORML [10] - 전부
	INPUT
	BREAKED_CLOTH_INDEX = RESULT
	SIF BREAKED_CLOTH_INDEX == 9
		RETURN 0
	SIF BREAKED_CLOTH_INDEX == 10 && IS_BREAKABLE_CLOTH_EXIST()
		BREAK
	SIF !INRANGE(BREAKED_CLOTH_INDEX,0,WEARING_POSITION_COUNT)
		CONTINUE
	SIF IS_CLOTH_BREAKABLE(BREAKED_CLOTH_INDEX)
		BREAK
WEND
IF BREAKED_CLOTH_INDEX == 10
	PRINTFORML %타겟호칭이% 입고있는 옷을 닥치는 대로 찢었다････。
	FOR index,0,WEARING_POSITION_COUNT
		SIF IS_CLOTH_BREAKABLE(index)
			CLOTH_STATUS:index = 1
	NEXT
	CLOTH_SET_DESCRIPT_TEXT = 너덜너덜한
ELSE
	IF !TEQUIP:25
		PRINTFORM %CALLNAME:TARGET%의 %조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(BREAKED_CLOTH_INDEX)"+"%"),"을")% 찢어발긴다
	ELSE
		PRINTFORM %CALLNAME:TARGET%의 %조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(BREAKED_CLOTH_INDEX)"+"%"),"을")%、촉수로 힘껏 잡아 찢는다
	ENDIF
	CLOTH_STATUS:BREAKED_CLOTH_INDEX = 1
	SELECTCASE BREAKED_CLOTH_INDEX
		CASE 6 ;전신 겉옷 - 両方表示
			SELECTCASE GET_TOP_TRANSPOSE_LEVEL()
				CASE 3
					THROW 옷의 조합이 부정합니다。
				CASE 0
					PRINTFORM 에、유두랑
				CASEELSE
					PRINTFORM 에、%조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(GET_TOP_TRANSPOSE_LEVEL() * 2 + 1)"+"%"),"와")%
			ENDSELECT
			SELECTCASE GET_BOTTOM_TRANSPOSE_LEVEL()
				CASE 3
					THROW 옷의 조합이 부정합니다。
				CASE 0
					PRINTFORM 비소를
				CASEELSE
					PRINTFORM %조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(GET_BOTTOM_TRANSPOSE_LEVEL() * 2)"+"%"),"을")%
			ENDSELECT
		CASE 0,3,5 ;上半身
			layer = (BREAKED_CLOTH_INDEX - 1) / 2
			SELECTCASE GET_TOP_TRANSPOSE_LEVEL()
				CASE IS > layer
					PRINTFORM
				CASE 0
					PRINTFORM 에、유두를
				CASEELSE
					PRINTFORM 에、%조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(GET_TOP_TRANSPOSE_LEVEL() * 2 + 1)"+"%"),"을")%
			ENDSELECT
		CASE 1,2,4 ;下半身
			layer = BREAKED_CLOTH_INDEX / 2
			SELECTCASE GET_BOTTOM_TRANSPOSE_LEVEL()
				CASE IS > layer
					PRINTFORM
				CASE 0
					PRINTFORM 에、비소를
				CASEELSE
					PRINTFORM 에、%조사선택(STRFORM("%"+"GET_CHARA_WEAR_NAME(GET_BOTTOM_TRANSPOSE_LEVEL() * 2)"+"%"),"을")%
			ENDSELECT
		CASEELSE
			THROW 부정한 PATTERN
	ENDSELECT
	PRINTFORML 노출시켰다
ENDIF
SELECTCOM = 410

CALL KOJO_MESSAGE_COM

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

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

SELECTCASE ABL:마조끼
	CASE IS < 3
		SOURCE:굴종 += 300
		SOURCE:반발 += 200
	CASE IS < 5
		SOURCE:굴종 += 400
		SOURCE:반발 += 100
	CASE IS < 7
		SOURCE:굴종 += 500
		SOURCE:반발 += 0
	CASEELSE
		SOURCE:굴종 += 600
		SOURCE:반발 -= 100
ENDSELECT
IF TALENT:마조
	SOURCE:굴종 += 200
	SOURCE:반발 /= 2
ENDIF
IF TALENT:멋쟁이
	SOURCE:우울 *= 2
	SOURCE:반발 *= 2
ENDIF
SOURCE:노출 += CALC_CHARA_RANGED_DATA("ABL",TARGET,"노출증","3,100|7,300|*,500")

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

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

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

TFLAG:301 = 10

RETURN 1

@IS_BREAKABLE_CLOTH_EXIST()
#FUNCTION
#DIM index
FOR index,0,WEARING_POSITION_COUNT
	SIF IS_CLOTH_BREAKABLE(index)
		BREAK
NEXT
RETURNF index != WEARING_POSITION_COUNT

@IS_CLOTH_BREAKABLE(clothPosition)
#FUNCTION
#DIM clothPosition
RETURNF IS_WEARING(clothPosition) && GET_CHARA_CLOTH_MAKEHOLE(clothPosition) != -1 && CLOTH_STATUS:clothPosition != 1


code:
;-------------------------------------------------
;클리캡
;道具使用コマンド、レベル2
;-------------------------------------------------
@COMNAME42
RESULTS = %COMNAME_CORE_42()%
RETURN 0

@COMNAME_CORE_42()
#FUNCTIONS
IF TEQUIP:25
	RETURNF "촉수클리고문"
ELSEIF IS_IN_SPECIAL_TRAIN_PLAYING()
	RETURNF "固定로터(クリ)"
ELSE
	RETURNF "電動클리캡"
ENDIF

@COM42
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
CALL SET_COLOR_STATUS,3
PRINTFORML %COMNAME_CORE_42()%
RESETCOLOR
STR:0 = %COMNAME_CORE_42()%

SIF TEQUIP:25
	SELECTCOM = 163
CALL KOJO_MESSAGE_COM

;着脱の処理
IF !IS_IN_SPECIAL_TRAIN_PLAYING()
	IF TEQUIP:11 == 0
		TEQUIP:11 = 1
	ELSE
		TEQUIP:11 = 0
	ENDIF
ELSE
	CALL SET_SP_TRAIN_WORKING_ONE_STATUS(-1,1)
ENDIF
;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 15
LOSEBASE:1 += 100

SOURCE:쾌Ｃ = 200
SOURCE:노출 = 20
SOURCE:일탈 = 30
SOURCE:반발 = 30

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 60
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;촉수클리고문なら、촉수体液が질に付く
SIF TEQUIP:25
	STAIN:3 |= 32

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

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

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

TFLAG:301 = 4

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM42
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜촉수클리고문 중＞
	RESETCOLOR
ELSEIF IS_SP_TRAIN_WORKING_ONE_ITEM(1)
	CALL SET_COLOR_STATUS,2
	PRINTL ＜클리로터 동작 중＞
	RESETCOLOR
ELSEIF GET_SP_TRAIN_WEARING_ITEMS(1) && !IS_SP_TRAIN_WORKING_ONE_ITEM(1)
	RETURN 0 ;何も加算しない
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜클리캡 장착 중＞
	RESETCOLOR
ENDIF

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

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

SOURCE:쾌Ｃ += 100
SOURCE:노출 += 10
SOURCE:일탈 += 15
SOURCE:반발 += 15

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ｃ개발경험+1
A = 1
PRINTFORML %EXPNAME:12%+{A}
EXP:12 += A

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

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

RETURN 1


code:
;-------------------------------------------------
;오나홀
;道具使用コマンド、レベル2
;-------------------------------------------------
@COM43
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
IF TEQUIP:25
	CALL SET_COLOR_STATUS,3
	PRINTL 촉수페니스고문
	RESETCOLOR
	STR:0 = 촉수페니스고문
	SELECTCOM = 169
ELSE
	PRINTL 오나홀
	STR:0 = 오나홀
ENDIF
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｃ = 200
SOURCE:노출 = 20
SOURCE:일탈 = 30
SOURCE:반발 = 30

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 60
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	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
;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;촉수페니스고문なら、촉수体液が페니스に付く
SIF TEQUIP:25
	STAIN:2 |= 32

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM43
;오나홀装備中
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜촉수페니스고문 중＞
	RESETCOLOR
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜오나홀 장착 중＞
	RESETCOLOR
ENDIF

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

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

SOURCE:쾌Ｃ += 100
SOURCE:노출 += 10
SOURCE:일탈 += 15
SOURCE:반발 += 15

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;촉수경험加算
SIF TEQUIP:25 == 1
	T += 1

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

RETURN 1


code:
;-------------------------------------------------
;바이브
;道具使用コマンド、レベル2
;-------------------------------------------------
@COMNAME44
RESULTS = %COMNAME_CORE_44()%
RETURN 0

@COMNAME_CORE_44()
#FUNCTIONS
IF TEQUIP:25
	RETURNF "촉수삽입"
ELSEIF IS_IN_SPECIAL_TRAIN_PLAYING()
	RETURNF "挿入로터(膣)"
ELSE
	RETURNF "바이브"
ENDIF

@COM44
;처녀を奪うかどうかの確認(특수調教中は질로터삽입に変化するので처녀喪失しない。よって飛ばす)
IF !IS_IN_SPECIAL_TRAIN_PLAYING()
	CALL CONFIRM_LOST_VIRGIN
	SIF RESULT == 0
		RETURN 0
ENDIF

;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
CALL SET_COLOR_STATUS,3
PRINTFORML %COMNAME_CORE_44()%
RESETCOLOR
STR:0 = %COMNAME_CORE_44()%
SIF TEQUIP:25
	SELECTCOM = 161
CALL KOJO_MESSAGE_COM

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

;着脱の処理
IF !IS_IN_SPECIAL_TRAIN_PLAYING()
	IF TEQUIP:13 == 0
		TEQUIP:13 = 1
		;촉수삽입は촉수の汚れを追加
		IF TEQUIP:25
			STAIN:3 |= 32
		ENDIF
	ELSE
		TEQUIP:13 = 0
	ENDIF
ELSE
	CALL SET_SP_TRAIN_WORKING_ONE_STATUS(-1,0)
ENDIF

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

SOURCE:쾌Ｖ = 250
SOURCE:아픔 = 50
SOURCE:노출 = 20
SOURCE:일탈 = 40
SOURCE:반발 = 40

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 80
SIF TALENT:84
	SOURCE:우울 += 80
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 80
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 60

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

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

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

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

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｖ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｖ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;촉수삽입なら、촉수体液が질내に付く
SIF TEQUIP:25
	STAIN:6 |= 32

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

;이상경험
IF TALENT:0 == 1 && TEQUIP:25 == 1
	EXP:50 += 2
	PRINTFORML %EXPNAME:50%＋２
ELSEIF TALENT:0 == 1
	EXP:50 += 1
	PRINTFORML %EXPNAME:50%＋１
ENDIF

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

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

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

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

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

TFLAG:301 = 4

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM44
;바이브挿入中

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

IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜촉수 삽입 중＞
	RESETCOLOR
ELSEIF IS_SP_TRAIN_WORKING_ONE_ITEM(0)
	CALL SET_COLOR_STATUS,2
	PRINTL ＜질로터 동작 중＞
	RESETCOLOR
ELSEIF GET_SP_TRAIN_WEARING_ITEMS(0) && !IS_SP_TRAIN_WORKING_ONE_ITEM(0)
	RETURN 0 ;何も加算しない
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜바이브 삽입중＞
	RESETCOLOR
ENDIF

LOSEBASE:0 += 7
LOSEBASE:1 += 35

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

SOURCE:쾌Ｖ += 125
SOURCE:노출 += 10
SOURCE:일탈 += 20

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｖ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｖ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｖ , 1.20
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 20
SIF TALENT:84
	SOURCE:우울 += 20

;Vへの고통は先に処理しておく
;EXP:Ｖ경험をみる（처녀はありえない）
A = 25
B = 20
IF EXP:0 < EXPLV:2
	TIMES A , 0.80
	TIMES B , 1.20
ELSEIF EXP:0 < EXPLV:3
	TIMES A , 0.40
ELSEIF EXP:0 < EXPLV:4
	TIMES A , 0.10
ELSEIF EXP:0 < EXPLV:5
	TIMES A , 0.00
ELSEIF EXP:0 >= EXPLV:5
	TIMES A , 0.00
ENDIF

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;자위実行時は経験＋１
IF SELECTCOM == 11
	EXP:0 += 2
	PRINTL Ｖ경험＋２
ELSE
	EXP:0 += 1
	PRINTL Ｖ경험＋１
ENDIF

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

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

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

RETURN 1


code:
;-------------------------------------------------
;애널바이브
;道具使用コマンド、レベル2
;-------------------------------------------------
@COMNAME45
RESULTS = %COMNAME_CORE_45()%
RETURN 0

@COMNAME_CORE_45()
#FUNCTIONS
IF TEQUIP:25
	RETURNF "애널촉수"
ELSEIF IS_IN_SPECIAL_TRAIN_PLAYING()
	RETURNF "挿入로터(애널)"
ELSE
	RETURNF "애널바이브"
ENDIF

@COM45
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
CALL SET_COLOR_STATUS,3
PRINTFORML %COMNAME_CORE_45()%
RESETCOLOR
STR:0 = %COMNAME_CORE_45()%

SIF TEQUIP:25
	SELECTCOM = 162
CALL KOJO_MESSAGE_COM

;着脱の処理
IF !IS_IN_SPECIAL_TRAIN_PLAYING()
	IF TEQUIP:14 == 0
		TEQUIP:14 = 1
		;애널촉수は촉수の汚れを追加
		IF TEQUIP:25
			STAIN:4 |= 32
		ENDIF
	ELSE
		TEQUIP:14 = 0
	ENDIF
ELSE
	CALL SET_SP_TRAIN_WORKING_ONE_STATUS(-1,2)
ENDIF
;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 80
LOSEBASE:1 += 200

SOURCE:쾌Ａ = 250
SOURCE:노출 = 50
SOURCE:굴종 = 50
SOURCE:일탈 = 50

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

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

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

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

;道具を使う調教では、調教者か助손の도구지식によって、快感のソース増加、불결のソース低下（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
		TIMES SOURCE:불결 , 0.50
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
		TIMES SOURCE:불결 , 0.50
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;애널촉수なら、촉수体液が애널に付く
SIF TEQUIP:25
	STAIN:4 |= 32

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

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

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

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

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

TFLAG:301 = 4

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM45
;애널바이브挿入中
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜애널촉수 삽입중＞
	RESETCOLOR
ELSEIF IS_SP_TRAIN_WORKING_ONE_ITEM(2)
	CALL SET_COLOR_STATUS,2
	PRINTL ＜애널로터 동작 중＞
	RESETCOLOR
ELSEIF GET_SP_TRAIN_WEARING_ITEMS(2) && !IS_SP_TRAIN_WORKING_ONE_ITEM(2)
	RETURN 0 ;何も加算しない
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜애널바이브 삽입중＞
	RESETCOLOR
ENDIF

LOSEBASE:0 += 20
LOSEBASE:1 += 50

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

SOURCE:쾌Ａ += 125
SOURCE:아픔 += 100
SOURCE:노출 += 25
SOURCE:일탈 += 25
SOURCE:반발 += 40

;道具を使う調教では、調教者か助손の도구지식によって、快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ａ , 1.20
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 35
SIF TALENT:84
	SOURCE:우울 += 35
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 100

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

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

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;자위実行時は経験＋１
IF SELECTCOM == 11
	EXP:1 += 2
	PRINTL Ａ경험＋２
ELSE
	EXP:1 += 1
	PRINTL Ａ경험＋１
ENDIF
;Ａ개발경험+1
A = 1
PRINTFORML %EXPNAME:14%+{A}
EXP:14 += A

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

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

RETURN 1


code:
;-------------------------------------------------
;애널비즈
;道具使用コマンド、レベル3
;-------------------------------------------------
@COM46
CALL SET_COLOR_STATUS,3
PRINTL 애널비즈
RESETCOLOR
STR:0 = 애널비즈
CALL KOJO_MESSAGE_COM

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

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

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

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

;装着時は快Aは下がる
SIF TEQUIP:15 == 1
	TIMES SOURCE:쾌Ａ , 0.80

;外す時は快Aは上がる
SIF TEQUIP:15 == 0
	TIMES SOURCE:쾌Ａ , 3.00

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

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

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

;道具を使う調教では、調教者か助손の도구지식によって、快感のソース増加、불결のソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
		TIMES SOURCE:불결 , 0.50
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
		TIMES SOURCE:불결 , 0.50
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1
	TIMES SOURCE:쾌Ａ , 1.20
	TIMES SOURCE:불결 , 0.50
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
IF TEQUIP:19 == 0
	EXP:1 += 1
	PRINTL Ａ경험＋１
	;Ａ개발경험+1
	A = 1
	PRINTFORML %EXPNAME:14%+{A}
	EXP:14 += A
ELSEIF TEQUIP:19 == 1
	EXP:1 += 2
	PRINTL Ａ경험＋２
	;Ａ개발경험+2
	A = 2
	PRINTFORML %EXPNAME:14%+{A}
	EXP:14 += A
ENDIF

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

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM46
;애널비즈挿入中

CALL SET_COLOR_STATUS,2
PRINTL ＜애널비즈 삽입 중＞
RESETCOLOR

LOSEBASE:0 += 40
LOSEBASE:1 += 95

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

SOURCE:쾌Ａ += 75
SOURCE:노출 += 25
SOURCE:굴종 += 25
SOURCE:일탈 += 25

;道具を使う調教では、調教者か助손の도구지식によって、快感のソース増加、불결のソース低下
IF ASSI >= 1
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ａ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1
	TIMES SOURCE:쾌Ａ , 1.20
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 35
SIF TALENT:84
	SOURCE:우울 += 35
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 100

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

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

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

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

RETURN 1


code:
;-------------------------------------------------
;유두캡
;道具使用コマンド、レベル2
;-------------------------------------------------
@COMNAME47
RESULTS = %COMNAME_CORE_47()%
RETURN 0

@COMNAME_CORE_47()
#FUNCTIONS
IF TEQUIP:25
	RETURNF "촉수유두고문"
ELSEIF IS_IN_SPECIAL_TRAIN_PLAYING()
	RETURNF "固定로터(가슴)"
ELSE
	RETURNF "유두캡"
ENDIF

@COM47
CALL SET_COLOR_STATUS,3
PRINTFORML %COMNAME_CORE_47()%
RESETCOLOR
STR:0 = %COMNAME_CORE_47()%
SIF TEQUIP:25
	SELECTCOM = 164
CALL KOJO_MESSAGE_COM

;着脱の処理
IF !IS_IN_SPECIAL_TRAIN_PLAYING()
	IF TEQUIP:16 == 0
		TEQUIP:16 = 1
		;촉수유두고문は촉수の汚れを追加
		IF TEQUIP:25
			STAIN:5 |= 32
		ENDIF
	ELSE
		TEQUIP:16 = 0
	ENDIF
ELSE
	CALL SET_SP_TRAIN_WORKING_ONE_STATUS(-1,3)
ENDIF

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

SOURCE:쾌Ｂ = 200
SOURCE:노출 = 20
SOURCE:일탈 = 30
SOURCE:반발 = 30

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 100

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;촉수유두고문なら、촉수体液が가슴に付く
SIF TEQUIP:25
	STAIN:5 |= 32

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

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

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

TFLAG:301 = 4

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM47
;유두캡装備中
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜촉수유두고문 중＞
	RESETCOLOR
ELSEIF IS_SP_TRAIN_WORKING_ONE_ITEM(3)
	CALL SET_COLOR_STATUS,2
	PRINTL ＜유두로터 동작 중＞
	RESETCOLOR
ELSEIF GET_SP_TRAIN_WEARING_ITEMS(3) && !IS_SP_TRAIN_WORKING_ONE_ITEM(3)
	RETURN 0 ;何も加算しない
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜유두캡 장착 중＞
	RESETCOLOR
ENDIF

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

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

SOURCE:쾌Ｂ += 100
SOURCE:노출 += 10
SOURCE:일탈 += 15
SOURCE:반발 += 15

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｂ , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ｂ개발경험+1
A = 1
PRINTFORML %EXPNAME:15%+{A}
EXP:15 += A

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

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


code:
;-------------------------------------------------
;유두로터
;道具使用コマンド、レベル2
;-------------------------------------------------
@COM48

CALL SET_COLOR_STATUS,3
PRINTL 유두로터
RESETCOLOR
STR:0 = 유두로터
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｂ = 250
SOURCE:노출 = 20
SOURCE:일탈 = 30
SOURCE:반발 = 30

;調教者か助손が도구지식持ちなら消費軽減
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
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50
;Ｂ열등감には、억울ソース追加
SIF TALENT:89
	SOURCE:우울 += 100

;道具を使う調教では、調教者の도구지식によって、快感のソース増加
SIF TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｂ , 1.20
;調教者か助손が도구지식持ちなら快感のソース増加
IF ASSI >= 1
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF
;-------------------------------------------------
;経験の処理
;-------------------------------------------------
A = 1
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	PRINTFORML %EXPNAME:40%+{A}
	EXP:40 += A
ELSEIF TALENT:290 && TALENT:PLAYER:290
	PRINTFORML %EXPNAME:41%+{A}
	EXP:41 += A
ENDIF

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

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

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

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

TFLAG:301 = 5

RETURN 1


code:
;-------------------------------------------------
;착유기
;道具使用コマンド、レベル3
;-------------------------------------------------
@COM49

IF TEQUIP:25
	CALL SET_COLOR_STATUS,3
	PRINTL 촉수착유
	RESETCOLOR
	STR:0 = 촉수착유
	SELECTCOM = 165
ELSE
	CALL SET_COLOR_STATUS,3
	PRINTL 착유기
	RESETCOLOR
	STR:0 = 착유기
ENDIF
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｂ = 200
SOURCE:아픔 = 100
SOURCE:중독충족 = 100
SOURCE:노출 = 30
SOURCE:굴종 = 100
SOURCE:일탈 = 100
SOURCE:반발 = 100

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

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

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

;道具を使う調教では、調教者の도구지식によって、快感のソース増加（촉수除く）
SIF TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｂ , 1.20
;調教者か助손が도구지식持ちなら快感のソース増加
IF ASSI >= 1 &&  TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 &&  TEQUIP:25 == 0
	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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;촉수착유なら、촉수体液が가슴に付く
SIF TEQUIP:25
	STAIN:5 |= 32

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

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

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

TFLAG:301 = 10

RETURN 1

;-------------------------------------------------
;装着継続の処理
;-------------------------------------------------
@EQUIP_COM49
;착유기装備中
IF TEQUIP:25
	CALL SET_COLOR_STATUS,2
	PRINTL ＜촉수착유 중＞
	RESETCOLOR
ELSE
	CALL SET_COLOR_STATUS,2
	PRINTL ＜착유기 장착 중＞
	RESETCOLOR
ENDIF

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

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

SOURCE:쾌Ｂ += 100
SOURCE:아픔 += 50
SOURCE:중독충족 += 50
SOURCE:노출 += 15
SOURCE:굴종 += 50
SOURCE:일탈 += 50
SOURCE:반발 += 50

;道具を使う調教では、調教者の도구지식によって、快感のソース増加（촉수除く）
SIF TALENT:PLAYER:128
	TIMES SOURCE:쾌Ｂ , 1.20
;調教者か助손が도구지식持ちなら快感のソース増加
IF ASSI >= 1 &&  TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｂ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 &&  TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Ｂ개발경험+1
A = 1
PRINTFORML %EXPNAME:15%+{A}
EXP:15 += A

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

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

RETURN 1


code:
;-------------------------------------------------
;애널애무
;애무系コマンド、レベル2
;-------------------------------------------------
@COM5
CALL SET_COLOR_STATUS,3
PRINTL 애널애무
RESETCOLOR
STR:0 = 애널애무
CALL KOJO_MESSAGE_COM
;-------------------------------------------------
;ソース追加処理
;-------------------------------------------------
;消費체력、기력
LOSEBASE:0 += 40
LOSEBASE:1 += 100

SOURCE:쾌Ａ = 100
SOURCE:아픔 = 100
SOURCE:굴종 = 100
SOURCE:일탈 = 80
SOURCE:반발 = 60

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 150
SIF TALENT:84
	SOURCE:우울 += 150
;내향적には、억울ソース追加
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加
SIF TALENT:60
	SOURCE:불결 += 300
;거절には、일탈ソース追加
SIF TALENT:159
	SOURCE:일탈 += 110
;Ａ거부には、불결ソース追加
SIF TALENT:156
	SOURCE:불결 += 450
;調教者が헌신적なら쾌Ａのソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ａ , 1.50
ENDIF
;공주님소망には、일탈のソース追加
SIF TALENT:199
	SOURCE:일탈 += 225

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

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
IF TEQUIP:25
	;奴隷のＡに촉수の汚れがつく
	STAIN:4 |= 32
ELSE
	;奴隷のＡ⇔調教者の指の汚れが移動
	STAIN:4 |= STAIN:PLAYER:1
	STAIN:PLAYER:1 |= STAIN:4
ENDIF

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

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

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

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

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

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

TFLAG:301 = 3

RETURN 1


code:
;-------------------------------------------------
;줄타기
;道具使用コマンド、レベル2
;-------------------------------------------------
@COM50
;-------------------------------------------------
;특수派生処理
;-------------------------------------------------
CALL SET_COLOR_STATUS,3
PRINTL 줄타기
RESETCOLOR
STR:0 = 줄타기
CALL KOJO_MESSAGE_COM

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

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

;調教者か助손が도구지식持ちなら消費軽減（촉수除く）
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 TALENT:105 == 1
	TIMES LOSEBASE:0 , 0.70
	TIMES LOSEBASE:1 , 0.70
ENDIF
;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;下半身노출で쾌Ｃと아픔、노출のソース追加
IF IS_CHARA_BOTTOMLESS()
	SOURCE:쾌Ｃ += 250
	SOURCE:쾌Ｖ += 20
	SOURCE:아픔 += 140
	SOURCE:노출 += 150
ENDIF

;긴박경험が高いと消費減少
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:82
	SOURCE:우울 += 60
SIF TALENT:84
	SOURCE:우울 += 60
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100

;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 50

;윤활に応じて아픔、쾌Ｃ、반발が増減
IF PALAM:4 == PALAMLV:0
	SOURCE:쾌Ｃ -= 300
	SOURCE:아픔 += 500
	SOURCE:반발 += 400
ELSEIF  PALAM:4 == PALAMLV:1
	SOURCE:쾌Ｃ -= 200
	SOURCE:아픔 += 200
	SOURCE:반발 += 200
ELSEIF  PALAM:4 == PALAMLV:2
	SOURCE:쾌Ｃ -= 50
	SOURCE:아픔 += 50
	SOURCE:반발 += 50
ELSEIF  PALAM:4 == PALAMLV:4
	TIMES SOURCE:쾌Ｃ , 1.30
	TIMES SOURCE:아픔 , 0.70
	TIMES SOURCE:반발 , 0.90
ELSEIF  PALAM:4 == PALAMLV:5
	TIMES SOURCE:쾌Ｃ , 1.50
	TIMES SOURCE:아픔 , 0.50
	TIMES SOURCE:반발 , 0.80
ELSEIF  PALAM:4 == PALAMLV:6
	TIMES SOURCE:쾌Ｃ , 1.60
	TIMES SOURCE:아픔 , 0.40
	TIMES SOURCE:반발 , 0.70
ELSEIF  PALAM:4 >= PALAMLV:7
	TIMES SOURCE:쾌Ｃ , 1.70
	TIMES SOURCE:아픔 , 0.30
	TIMES SOURCE:반발 , 0.60
ENDIF

;調教者か助손が도구지식持ちなら快感のソース増加（촉수除く）
IF ASSI >= 1 && TEQUIP:25 == 0
	IF TALENT:PLAYER:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:128 == 1
		TIMES SOURCE:쾌Ｃ , 1.20
	ENDIF
ELSEIF TALENT:PLAYER:128 == 1 && TEQUIP:25 == 0
	TIMES SOURCE:쾌Ｃ , 1.20
ENDIF

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

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

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;3P
;セックス系派生コマンド
;-------------------------------------------------
@COM500
CALL SET_COLOR_STATUS,3
PRINTL 3P
RESETCOLOR
STR:0 = 3P

;-------------------------------------------------
;挿入部位管理
;-------------------------------------------------
IF ASSIPLAY
	X = SELECTCOM
ELSE
	X = PREVCOM
ENDIF
;主人の挿入箇所設定
;Ｖ
SIF TEQUIP:37 > 0
	TFLAG:40 = 1
;Ａ
SIF TEQUIP:38 > 0
	TFLAG:40 = 2
;입
SIF TEQUIP:39 > 0
	TFLAG:40 = 3
;助손の挿入箇所設定（継続の場合はTFLAG:41に変更はない）
IF TFLAG:42 == 0
	SIF X == 60 || X == 61 || X == 66
		TFLAG:41 = 1
	SIF X == 62 || X == 63 || X == 67
		TFLAG:41 = 2
	SIF X == 81 || X == 140
		TFLAG:41 = 3
ENDIF
;直接コマンドを指定した場合(?)
;IF SELECTCOM == 64
;	TFLAG:40 = 1
;	TFLAG:41 = 2
;ELSEIF TFLAG:42 == 0
;
;	SIF SELECTCOM == 60 || SELECTCOM == 61 || SELECTCOM == 66
;		A = 1
;	SIF SELECTCOM == 62 || SELECTCOM == 63 || SELECTCOM == 67
;		A = 2
;	SIF SELECTCOM == 81 || SELECTCOM == 140
;		A = 3
;	SIF SELECTCOM == 60 || SELECTCOM == 61 || SELECTCOM == 66
;		B = 1
;	SIF SELECTCOM == 62 || SELECTCOM == 63 || SELECTCOM == 67
;		B = 2
;	SIF SELECTCOM == 81 || SELECTCOM == 140
;		B = 3
;	;前回コマンドが3Pでない
;	IF TFLAG:42 == 0
;		;今回調教者が助손=前回調教者が主人
;		IF ASSIPLAY
;			TFLAG:40 = B
;			TFLAG:41 = A
;		;今回調教者が主人=前回調教者が助손
;		ELSE
;			TFLAG:40 = A
;			TFLAG:41 = B
;		ENDIF
;前回コマンドが3Pである
;ELSE
;		;今回調教者が助손=前回調教者が主人
;		IF ASSIPLAY
;			;助손の使用部位が前回の主人と同じ場合
;			SIF A == TFLAG:40
;				TFLAG:40 = TFLAG:41
;			TFLAG:41 = A
;		ELSE
;			;主人の使用部位が前回の助손と同じ場合
;			SIF A == TFLAG:41
;				TFLAG:41 = TFLAG:40
;			TFLAG:40 = A
;		ENDIF
;	ENDIF
;ENDIF

IF !ASSIPLAY && ((TFLAG:50 && (PREVCOM == 60 || PREVCOM == 61 || PREVCOM == 62 || PREVCOM == 63 || PREVCOM == 81 || PREVCOM == 140)) || PREVCOM == 500)
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
	SELECTCASE SELECTCOM
		CASE 60,61
			TEQUIP:37 = SELECTCOM
		CASE 62,63
			TEQUIP:38 = SELECTCOM
		CASE 81
			TEQUIP:39 = SELECTCOM
	ENDSELECT
ENDIF

SELECTCOM = 500

CALL KOJO_MESSAGE_COM

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

SIF (TALENT:3 || TALENT:6) && ASSIPLAY == 0 && EXP:0 == 0 && TFLAG:40 == 1
	TFLAG:20 = 1

;-------------------------------------------------
;射精ゲージチェック（主人）
;-------------------------------------------------
B = 2500

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

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

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

;VとAに挿入時、PALAM:윤활をみる
IF TFLAG:40 <= 2
	IF PALAM:4 < PALAMLV:1
		TIMES B , 0.60
	ELSEIF PALAM:4 < PALAMLV:2
		TIMES B , 0.80
	ELSEIF PALAM:4 < PALAMLV:3
		TIMES B , 1.00
	ELSEIF PALAM:4 < PALAMLV:4
		TIMES B , 1.20
	ELSEIF PALAM:4 >= PALAMLV:4
		TIMES B , 1.40
	ENDIF
ENDIF

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

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

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

;-------------------------------------------------
;射精ゲージチェック（助손）
;-------------------------------------------------
B = 2500

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

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

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

;VとAに挿入時、PALAM:윤활をみる
IF TFLAG:41 <= 2
	IF PALAM:4 < PALAMLV:1
		TIMES B , 0.60
	ELSEIF PALAM:4 < PALAMLV:2
		TIMES B , 0.80
	ELSEIF PALAM:4 < PALAMLV:3
		TIMES B , 1.00
	ELSEIF PALAM:4 < PALAMLV:4
		TIMES B , 1.20
	ELSEIF PALAM:4 >= PALAMLV:4
		TIMES B , 1.40
	ENDIF
ENDIF

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

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

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

SOURCE:정애 = 300
SOURCE:성행동 = 100
SOURCE:중독충족 = 500
SOURCE:굴종 = 500
SOURCE:일탈 = 500
SOURCE:반발 = 500

;挿入している部位によって、ソースの数値が変化する
;Vに挿入している場合
IF TFLAG:40 == 1 || TFLAG:41 == 1
	SOURCE:쾌Ｖ += 400
	SOURCE:성행동 += 100
	SOURCE:아픔 += 500
ENDIF
;Aに挿入している場合
IF TFLAG:40 == 2 || TFLAG:41 == 2
	SOURCE:쾌Ａ += 400
	SOURCE:성행동 += 100
	SOURCE:아픔 += 800
ENDIF
;입に挿入している場合
IF TFLAG:40 == 3 || TFLAG:41 == 3
	SOURCE:성행동 += 420
	SOURCE:달성감 += 150
ENDIF

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 700
SIF TALENT:84
	SOURCE:우울 += 700
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 700
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 500
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

;Vに挿入している場合
IF TFLAG:40 == 1 || TFLAG:41 == 1
	;처녀だった場合は、고통のソースと반발のソースを追加する
	IF TALENT:0 == 1
		SOURCE:아픔 += 5500
		SOURCE:반발 += 3000
	ENDIF

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

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

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

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

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

;섹스중독を見る
IF ABL:18 == 1
	TIMES SOURCE:중독충족 , 0.00
ELSEIF ABL:18 == 2
	TIMES SOURCE:중독충족 , 0.30
ELSEIF ABL:18 == 3
	TIMES SOURCE:중독충족 , 0.60
ELSEIF ABL:18 == 4
	TIMES SOURCE:중독충족 , 0.90
ELSEIF ABL:18 == 5
	TIMES SOURCE:중독충족 , 1.20
ELSEIF ABL:18 == 6
	TIMES SOURCE:중독충족 , 1.50
ELSEIF ABL:18 == 7
	TIMES SOURCE:중독충족 , 1.80
ELSEIF ABL:18 == 8
	TIMES SOURCE:중독충족 , 2.30
ELSEIF ABL:18 == 9
	TIMES SOURCE:중독충족 , 3.00
ELSEIF ABL:18 >= 10
	TIMES SOURCE:중독충족 , 5.00
ENDIF

;-------------------------------------------------
;射精チェック１（主人）
;-------------------------------------------------
CALL SAMEN_CHECK_M

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

;-------------------------------------------------
;射精チェック２（助손）
;-------------------------------------------------
CALL SAMEN_CHECK_A

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
IF TFLAG:40 == 1
	;질내に破瓜の血の汚れを付加
	SIF TALENT:0 == 1 || TALENT:1 == 1
		STAIN:6 |= 64
	;奴隷の질내⇔主人のＰの汚れが移動
	IF TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290
		STAIN:6 |= STAIN:MASTER:2
		STAIN:MASTER:2 |= STAIN:6
	ENDIF
ELSEIF TFLAG:40 == 2
	;奴隷のＡ⇔主人のＰの汚れが移動
	IF TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290
		STAIN:4 |= STAIN:MASTER:2
		STAIN:MASTER:2 |= STAIN:4
	ENDIF
ELSEIF TFLAG:40 == 3
	;奴隷の입⇔主人のＰの汚れが移動
	IF TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290
		STAIN:0 |= STAIN:MASTER:2
		STAIN:MASTER:2 |= STAIN:0
	ENDIF
ENDIF

IF TFLAG:41 == 1
	;질내に破瓜の血の汚れを付加
	SIF TALENT:0 == 1 || TALENT:1 == 1
		STAIN:6 |= 64
	;奴隷の질내⇔助손のＰの汚れが移動
	IF TALENT:ASSI:289 || TALENT:ASSI:290
		STAIN:6 |= STAIN:ASSI:2
		STAIN:ASSI:2 |= STAIN:6
	ENDIF
ELSEIF TFLAG:41 == 2
	;奴隷のＡ⇔助손のＰの汚れが移動
	IF TALENT:ASSI:289 || TALENT:ASSI:290
		STAIN:4 |= STAIN:ASSI:2
		STAIN:ASSI:2 |= STAIN:4
	ENDIF
ELSEIF TFLAG:41 == 3
	;奴隷の입⇔助손のＰの汚れが移動
	IF TALENT:ASSI:289 || TALENT:ASSI:290
		STAIN:0 |= STAIN:ASSI:2
		STAIN:ASSI:2 |= STAIN:0
	ENDIF
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;Vに挿入している場合
IF TFLAG:40 == 1 || TFLAG:41 == 1
	EXP:0 += 1
	PRINTL Ｖ경험＋１
	;Ｖ개발경험+1
	A = 1
	PRINTFORML %EXPNAME:13%+{A}
	EXP:13 += A
ENDIF

;Aに挿入している場合
IF TFLAG:40 == 2 || TFLAG:41 == 2
	EXP:1 += 2
	PRINTL Ａ경험＋２
ENDIF

;성교경험
;VとAに挿入している場合（입に挿入していない場合）
IF TFLAG:40 != 3 && TFLAG:41 != 3
	EXP:4 += 2
	PRINTS EXPNAME:4
	PRINTL +2
ELSE
	EXP:4 += 1
	PRINTS EXPNAME:4
	PRINTL +1
ENDIF

;이상경험
IF (TFLAG:40 == 1 || TFLAG:41 == 1) && TALENT:0 == 1
	EXP:50 += 2
	PRINTFORML %EXPNAME:50%＋２
ENDIF

;레즈경험
IF TALENT:290 == 0 && TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +10
	EXP:40 += 10
ELSEIF TALENT:290 == 0 && TALENT:MASTER:290 == 0 && TALENT:ASSI:290 == 1
	PRINTS EXPNAME:40
	PRINTL +5
	EXP:40 += 5
ELSEIF TALENT:290 == 0 && TALENT:MASTER:290 == 1 && TALENT:ASSI:290 == 0
	PRINTS EXPNAME:40
	PRINTL +5
	EXP:40 += 5
ENDIF

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;シックスナイン
;애무・奉仕系派生コマンド
;-------------------------------------------------
@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 * 2
	PRINTS ABLNAME:1
	PRINTV 'LV,ABL:1,'(,ABL:1 * 2,')
	S = 1
ENDIF
;ABL:봉사정신
IF ABL:7
	SIF S
		PRINT  +
	A += ABL:7 * 4
	PRINTS ABLNAME:7
	PRINTV 'LV,ABL:7,'(,ABL:7 * 4,')
	S = 1
ENDIF

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

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

;부끄럼쟁이
IF TALENT:85
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:85
	PRINTV '(,3,')
	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:170
	SIF S
		PRINT  +
	A += 3
	PRINTS TALENTNAME:170
	PRINTV '(,3,')
	S = 1
ENDIF
;쾌감을부정（음란、창녀で無効）
IF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	PRINT  -
	A -= 3
	PRINTS TALENTNAME:171
	PRINTV '(,3,')
	S = 1
ENDIF
;여성혐오（연모、친애で無効）
IF TALENT: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 += 6
	PRINTS TALENTNAME:35
	PRINTV '(,6,')
	S = 1
ENDIF
;潔癖症
IF TALENT:60
	PRINT  -
	A -= 10
	PRINTS TALENTNAME:60
	PRINTV '(,10,')
	S = 1
ENDIF
;굴복
IF TALENT:88
	PRINT  +
	A += 10
	PRINTS TALENTNAME:88
	PRINTV '(,10,')
	S = 1
ENDIF
;철벽（陥落素質で無効）
IF TALENT:91 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 25
	PRINTS TALENTNAME:91
	PRINTV '(,25,')
	S = 1
ENDIF
;거절（陥落素質で無効）
IF TALENT:159 && (TALENT:3 == 0 && TALENT:4 == 0 && TALENT:5 == 0 && TALENT:6 == 0 && TALENT:7 == 0 && TALENT:8 == 0)
	PRINT  -
	A -= 8
	PRINTS TALENTNAME:159
	PRINTV '(,8,')
	S = 1
ENDIF
;반하기쉬움
IF TALENT:90
	PRINT  +
	A += 3
	PRINTS TALENTNAME:90
	PRINTV '(,3,')
	S = 1
ENDIF
;연모
IF TALENT:3 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINTS TALENTNAME:3
	PRINTV '(,5,')
	S = 5
ENDIF
;친애
IF TALENT:6 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINTS TALENTNAME:6
	PRINTV '(,10,')
	S = 10
ENDIF

;미약
IF TEQUIP:26
	SIF S
		PRINT  +
	A += 8
	PRINTS ITEMNAME:41
	PRINTV '(,8,')
	S = 1
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

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

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

WAIT

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

IF !ASSIPLAY && !TFLAG:50 == 9
	TEQUIP:37 = 0
	TEQUIP:38 = 0
	TEQUIP:39 = 81
	TEQUIP:40 = 0
ENDIF

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = シックスナイン
SELECTCOM = 501
CALL KOJO_MESSAGE_COM

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

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

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

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

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

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

SOURCE:쾌Ｃ = 100
SOURCE:정애 = 100
SOURCE:성행동 = 450
SOURCE:달성감 = 200
SOURCE:액체 = 80
SOURCE:노출 = 100
SOURCE:굴종 = 800
SOURCE:일탈 = 600
SOURCE:반발 = 600

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1000
SIF TALENT:84
	SOURCE:우울 += 1000
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 1000
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 750
;舌を使う調教では、調教者の혀놀림によって、快感のソース増加
SIF TALENT: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
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;奴隷の입⇔調教者のＶの汚れが移動（반인반요、후타나리、남자は페니스）
IF TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290
	STAIN:0 |= STAIN:PLAYER:2
	STAIN:PLAYER:2 |= STAIN:0
ELSE
	STAIN:0 |= STAIN:PLAYER:3
	STAIN:PLAYER:3 |= STAIN:0
ENDIF
;奴隷のＶ⇔調教者の입の汚れが移動（반인반요、후타나리、남자は페니스）
IF TALENT:287 || TALENT:289 || TALENT:290
	STAIN:2 |= STAIN:PLAYER:0
	STAIN:PLAYER:0 |= STAIN:2
ELSE
	STAIN:3 |= STAIN:PLAYER:0
	STAIN:PLAYER:0 |= STAIN:3
ENDIF

;-------------------------------------------------
;経験の処理
;-------------------------------------------------
;펠라경험（반인반요、후타나리、남자限定）
IF TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290
	PRINTFORML %EXPNAME:22%＋１
	EXP:22 += 1
ENDIF

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

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

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

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

;의존도補正値(主人かつ연모、음란、복종で1。친애、창녀、예속で2）
IF (TALENT:3 || TALENT:4 || TALENT:5) && ASSIPLAY == 0
	TFLAG:30 += 1
ELSEIF (TALENT:6 || TALENT:7 || TALENT:8) && ASSIPLAY == 0
	TFLAG:30 += 2
ENDIF

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

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;岩清水
;애무系派生コマンド
;-------------------------------------------------
@COM502
CALL SET_COLOR_STATUS,3
PRINTL 계곡수
RESETCOLOR
STR:0 = 岩清水
SELECTCOM = 502
CALL KOJO_MESSAGE_COM

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

SOURCE:쾌Ｃ = 150
SOURCE:두려움 = 100
SOURCE:액체 = 100
SOURCE:노출 = 150
SOURCE:일탈 = 300
SOURCE:반발 = 300

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
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:불결 += 400
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 400
;舌を使う調教では、調教者の혀놀림によって、快感のソース増加
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:
;-------------------------------------------------
;Gスポット刺激
;애무系派生コマンド
;-------------------------------------------------
@COM503
CALL SET_COLOR_STATUS,3
PRINTL G스팟자극
RESETCOLOR
STR:0 = Gスポット刺激
SELECTCOM = 503
CALL KOJO_MESSAGE_COM

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

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

SOURCE:쾌Ｖ = 180
SOURCE:아픔 = 20
SOURCE:액체 = 50
SOURCE:노출 = 80
SOURCE:일탈 = 100
SOURCE:반발 = 100

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 200
SIF TALENT:84
	SOURCE:우울 += 200
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 200
;調教者が헌신적なら全ソース増加
IF TALENT:PLAYER:153 == 1
	TIMES SOURCE:쾌Ｖ , 1.50
	TIMES SOURCE:아픔 , 1.50
	TIMES SOURCE:노출 , 1.30
ENDIF
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 150
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000
;처녀だった場合は、고통のソースと반발のソースを追加する
IF TALENT:0 == 1
	SOURCE:아픔 += 2000
	SOURCE:반발 += 3000
ENDIF

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

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

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

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;질내に破瓜の血の汚れを付加
SIF TALENT:0 == 1 || TALENT:1 == 1
	STAIN:6 |= 64
;奴隷の질내⇔調教者の指の汚れが移動
	STAIN:6 |= STAIN:PLAYER:1
	STAIN:PLAYER:1 |= STAIN:6

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

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

;레즈경험
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 = 1

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

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

TFLAG:301 = 10

RETURN 1


code:
;-------------------------------------------------
;乱れ牡丹
;セックス系派生コマンド
;-------------------------------------------------
@COM504
CALL SET_COLOR_STATUS,3
PRINTL 흐트러진 모란
RESETCOLOR
;-------------------------------------------------
;実行判定処理
;-------------------------------------------------
;밧줄で縛られている場合は無視（밧줄が無い時のみ実行判定を行う）
IF TEQUIP:44 == 0
	A = 0
	S = 0
	;すべての命令に共通の要素を考慮
	;(순종が高いと命令に従いやすいなど)
	CALL COM_ORDER

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

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

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

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

	;굴복
	IF TALENT: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 -= 30
		PRINTS TALENTNAME:91
		PRINTV '(,30,')
		S = 1
	ENDIF

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

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

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

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

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

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

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

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

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

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

	WAIT

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

;主人の場合
IF !ASSIPLAY
	TEQUIP:37 = 69
	TEQUIP:38 = 0
	TEQUIP:39 = 0
	TEQUIP:40 = 0
ENDIF

;-------------------------------------------------
;実行決定
;-------------------------------------------------
STR:0 = 乱れ牡丹
SELECTCOM = 504
CALL KOJO_MESSAGE_COM

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

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

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

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

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

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

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

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

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

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

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

SOURCE:쾌Ｃ = 400
SOURCE:쾌Ｖ = 400
SOURCE:정애 = 400
SOURCE:아픔 = 400
SOURCE:중독충족 = 700
SOURCE:노출 = 600
SOURCE:일탈 = 700
SOURCE:반발 = 1200

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

;-------------------------------------------------
;특수ソース処理
;-------------------------------------------------
;억압、저항持ちには、억울ソース追加
SIF TALENT:82
	SOURCE:우울 += 1300
SIF TALENT:84
	SOURCE:우울 += 1300
;내향적には、억울ソース追加(基本40 コミュニケーション含む場合増加)
SIF TALENT:32
	SOURCE:우울 += 40
;인간혐오には、반감ソース追加(全て100)
SIF TALENT:33
	SOURCE:반발 += 100
;潔癖症には、불결ソース追加(저항억압と同程度 Bだと0 Aだと2倍 他人に触れない場合0)
SIF TALENT:60
	SOURCE:불결 += 1300
;거절には、일탈ソース追加(저항억압の3/4目安)
SIF TALENT:159
	SOURCE:일탈 += 1000
;정조관념持ちで연모、친애持ち以外には常に반발のソースを追加する（セックス系のみ）
SIF TALENT:80 && (TALENT:3 == 0 && TALENT:6 == 0)
	SOURCE:반발 += 1000

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

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

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

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

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

;걸레녀には、中毒ソース追加、반감ソース減少
IF TALENT:158
	TIMES SOURCE:중독충족 , 2.50
	TIMES SOURCE:아픔 , 0.30
ENDIF
;공주님소망には、정애と중독충족ソース増加
IF TALENT:199
	TIMES SOURCE:정애 , 2.00
	TIMES SOURCE:중독충족 , 2.00
ENDIF
;-------------------------------------------------
;射精チェック
;-------------------------------------------------
CALL SAMEN_CHECK

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

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

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

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

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

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

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

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

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

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

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

TFLAG:301 = 10

RETURN 1