code:
;************************************************************************
;명령어 실행시 캐릭터측에서 리액션을 반환하는 처리
;밀려서 넘어지는 것과는 관계가 없고, 카운터와 동렬로 취급되어 까다로웠으므로 분리
;************************************************************************
@EVENT_COUNTER_REACTION(ARG,ARG:1)
IF MASTER_POSE(SET_V,SET_P) == ARG && TCVAR:ARG:억지로
	LOCAL = RAND:2 + 1
	SELECTCASE LOCAL
		CASE 1
			TCVAR:ARG:21 = 1
		CASE 2
			TCVAR:ARG:21 = 2
	ENDSELECT
	TCVAR:ARG:20 = 506
;질삽입
ELSEIF MASTER_POSE(SET_V,SET_P) == ARG
	LOCAL = RAND:7 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ABL:ARG:질 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		;정말좋아 hold
		CASE 2
			SIF !TALENT:ARG:연모
				RETURN 0
			SIF TEQUIP:ARG:체위 == 1 || TEQUIP:ARG:체위 == 4
				TCVAR:ARG:21 = 2
		;성교 과시하고
		CASE 3
			SIF ABL:ARG:노출벽 < 2
				RETURN 0
			SIF TEQUIP:ARG:체위 == 3
				TCVAR:ARG:21 = 3
		CASE 4
			SIF EXP:ARG:자궁구개발경험 < 50 || TEQUIP:ARG:자궁
				RETURN 0
			SIF ABL:ARG:질 < 2
				RETURN 0
			TEQUIP:ARG:자궁 = 1
			TCVAR:ARG:21 = 4
		CASE 5
			SIF !TALENT:ARG:연모
				RETURN 0
			SIF ABL:ARG:V감각 < 5
				RETURN 0
			TCVAR:ARG:21 = 5
		CASE 6
			SIF EXP:ARG:자궁구개발경험 < 100
				RETURN 0
			SIF ABL:ARG:질 < 3
				RETURN 0
			SIF !TEQUIP:ARG:자궁
				RETURN 0
			TEQUIP:ARG:자궁 = 2
			TCVAR:ARG:21 = 6
		CASE 7
			SIF TEQUIP:ARG:손가락접촉부위
				RETURN 0
			SIF !TALENT:ARG:연모
				RETURN 0
			SIF TEQUIP:ARG:체위 != 3 && TEQUIP:ARG:체위 != 1
				RETURN 0
			TCVAR:ARG:21 = 7
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 500
;애널 삽입
ELSEIF MASTER_POSE(SET_A,SET_P) == ARG
	LOCAL = RAND:2 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ABL:ARG:애널 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		CASE 2
			SIF TEQUIP:ARG:손가락접촉부위
				RETURN 0
			SIF !TALENT:ARG:연모
				RETURN 0
			SIF TEQUIP:ARG:체위 != 3 && TEQUIP:ARG:체위 != 1
				RETURN 0
			TCVAR:ARG:21 = 7
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 501
;수음
ELSEIF MASTER_POSE(SET_YUBI, SET_P) == ARG
	LOCAL = RAND:3 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ABL:ARG:손가락 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		;구슬 비비어
		CASE 2
			SIF ABL:ARG:손가락 < 2
				RETURN 0
			SIF ARG == TARGET && SELECTCOM == 80
				TCVAR:ARG:21 = 2
		CASE 3
			SIF BASE:PLAYER:발기 < 1000
				RETURN 0
			SIF ARG == TARGET && SELECTCOM == 80
				TCVAR:ARG:21 = 3
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 502
;펠라치오
ELSEIF MASTER_POSE(SET_M,SET_P) == ARG
	LOCAL = RAND:3 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ABL:ARG:혀 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		;구슬 빨고
		CASE 2
			SIF ABL:ARG:혀 < 2
				RETURN 0
			SIF ABL:ARG:봉사정신 < 5
				RETURN 0
			SIF ARG == TARGET
				RETURN 0
			TCVAR:ARG:21 = 2
		;딥스로트
		CASE 3
			SIF ABL:ARG:혀 < 3
				RETURN 0
			SIF BASE:PLAYER:발기 < 1000
				RETURN 0
			SIF ARG == TARGET && SELECTCOM == 81
				TCVAR:ARG:21 = 3
		;펠라 자위
		CASE 4
			SIF ABL:ARG:노출벽 < 2
				RETURN 0
			TCVAR:ARG:21 = 4
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 503
;파이즈리
ELSEIF ARG == TARGET && SELECTCOM == 82
	LOCAL = RAND:4 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ARG == TARGET || SELECTCOM == 82
				RETURN 0
			SIF ABL:ARG:가슴 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		;세로 파이즈리
		CASE 2
			SIF ABL:ARG:가슴 < 3
				RETURN 0
			SIF TALENT:ARG:가슴사이즈 < 1
				RETURN 0
				TCVAR:ARG:21 = 2
		;노력해 골짜기를 만든다
		CASE 3
			SIF ABL:ARG:가슴 < 3
				RETURN 0
			SIF ARG == TARGET && SELECTCOM == 82
				TCVAR:ARG:21 = 3
		CASE 4
			SIF ABL:ARG:가슴 < 2
				RETURN 0
			SIF ABL:ARG:가슴 < 2
				RETURN 0
			SIF ABL:ARG:봉사정신 < 5
				RETURN 0
			TCVAR:ARG:21 = LOCAL
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 504
;가랑이
ELSEIF MASTER_POSE(SET_C,SET_P) == ARG
	LOCAL = RAND:2 + 1
	SELECTCASE LOCAL
		CASE 1
			SIF ABL:ARG:허리 < 2
				RETURN 0
			TCVAR:ARG:21 = 1
		;수음 추가
		CASE 2
			SIF ABL:ARG:허리 < 2
				RETURN 0
			SIF ABL:ARG:손가락 < 2
				RETURN 0
			SIF ARG == TARGET && SELECTCOM == 83
				TCVAR:ARG:21 = 2
	ENDSELECT
	SIF TCVAR:ARG:21
		TCVAR:ARG:20 = 505

;MASTER의 가슴이 부재중의 경우
;ELSEIF !MASTER_POSE(0, SET_B)
;	IF !TEQUIP:ARG:손가락접촉부위
;		TCVAR:ARG:21 = 1
;	ELSEIF !TEQUIP:ARG:입접촉부위
;		TCVAR:ARG:21 = 2
;	ENDIF
;	SIF TCVAR:ARG:21
;		TCVAR:ARG:20 = 510

ENDIF


code:
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;비TARGET 의존성 SOURCE
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_EXP(ARG)
VARSET LOCAL
SIF SOURCE:ARG:쾌C
	EXP:ARG:0 ++
SIF SOURCE:ARG:쾌V && (!TALENT:ARG:처녀 || TALENT:처녀 == -1|| !TFLAG:2)
	EXP:ARG:1 ++
SIF SOURCE:ARG:쾌A
	EXP:ARG:2 ++
SIF SOURCE:ARG:쾌B
	EXP:ARG:3 ++
SIF SOURCE:ARG:쾌M
	EXP:ARG:4 ++
SIF CFLAG:ARG:로터삽입 && EXP_UP(1, ARG) > 0
	EXP:ARG:1 --
SIF CFLAG:ARG:로터A삽입 && EXP_UP(2, ARG) > 0
	EXP:ARG:2 --
SIF TFLAG:펄삽입개수 && EXP_UP(2,MASTER) > 0 && ARG == MASTER
	EXP:MASTER:2 --
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;사랑의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_사랑(ARG)
VARSET LOCAL
SIF TCVAR:ARG:억지로
	SOURCE:ARG:사랑 /= 5
LOCAL = SOURCE:ARG:사랑
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 1.20
;ABL:순종을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:순종,1)
CUP:ARG:공순 += LOCAL

LOCAL = SOURCE:ARG:사랑
SIF FLAG:생활능력무 && !CFLAG:ARG:우후후
	LOCAL = LOCAL * 3 / 2

IF TALENT:ARG:스침 == 1
	TIMES LOCAL, 1.50
	SIF CFLAG:ARG:몸목적
		TIMES LOCAL, 2.00
ENDIF

;욕망을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:욕망,2)

CUP:ARG:욕정 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;성행동의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_성행동(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:성행동
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 1.50
;ABL:기교를 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:기교,1)

;ABL:봉사정신을 본다
SELECTCASE ABL:ARG:봉사정신
	CASE 0
		TIMES LOCAL , 0.60
	CASE 1
		TIMES LOCAL , 0.80
	CASE 2
		TIMES LOCAL , 1.00
	CASE 3
		TIMES LOCAL , 1.20
	CASE 4
		TIMES LOCAL , 1.40
	CASE 5
		TIMES LOCAL , 1.70
	CASE 6
		TIMES LOCAL , 2.00
	CASE 7
		TIMES LOCAL , 2.40
	CASE 8
		TIMES LOCAL , 2.80
	CASE 9
		TIMES LOCAL , 4.00
	CASEELSE
		TIMES LOCAL , 5.00
ENDSELECT
CUP:ARG:습득 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;달성의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_달성(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:달성
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 1.50
;ABL:순종을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:순종,1)

;ABL:봉사정신을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:봉사정신,1)

CUP:ARG:공순 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;고통의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_고통(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:고통
LOCAL:1 = SOURCE:ARG:고통
LOCAL:2 = SOURCE:ARG:고통 / 20

;마조끼
SELECTCASE ABL:ARG:마조끼
	CASE 0
		TIMES LOCAL:1 , 0.00
	CASE 1
		TIMES LOCAL:1 , 0.10
	CASE 2
		TIMES LOCAL:1 , 0.20
	CASE 3
		TIMES LOCAL:1 , 0.30
	CASE 4
		TIMES LOCAL:1 , 0.45
	CASE 5
		TIMES LOCAL:1 , 0.60
	CASE 6
		TIMES LOCAL:1 , 0.75
	CASE 7
		TIMES LOCAL:1 , 0.90
	CASE 8
		TIMES LOCAL:1 , 1.20
	CASE 9
		TIMES LOCAL:1 , 1.50
	CASEELSE
		TIMES LOCAL:1 , 3.00
ENDSELECT

;난쟁이 체형
IF TALENT:ARG:체형 < -2
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 0.75
ENDIF

;조교자가【새드】
SIF TALENT:PLAYER:새드
	TIMES LOCAL:1 , 2.50

;겁쟁이
SIF TALENT:ARG:담력 < 0
	TIMES LOCAL:2 , 2.00

;마조마음이 있으면(자) PALAM:욕정도 오른다
;그 때 조교자가【새드】라면 효과적
;고통에 응해 공포의 소스가 증가한다
CUP:ARG:고통 += LOCAL
CUP:ARG:욕정 += LOCAL:1
CUP:ARG:공포 += LOCAL:2

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;공포의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_공포(ARG)
VARSET LOCAL

LOCAL= SOURCE:ARG:공포
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.50
;ABL:순종을 본다(공포보다는 외포에 가깝다고 해석)
LOCAL = ABL보정(LOCAL,ABL:ARG:순종, )

CUP:ARG:공포 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;액체의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_액체(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:액체
;난쟁이 체형
IF TALENT:ARG:체형 < -2
	SIF SELECTCOM != 50 && SELECTCOM != 180
		TIMES LOCAL , 0.40
ENDIF

CUP:ARG:윤활 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;욕정의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_욕정(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:욕정
SIF WITH_MOB()
	TIMES LOCAL, 0.70
SIF TALENT:ARG:동물귀 && !TCVAR:ARG:발정
	TIMES LOCAL, 0.80
IF TALENT:ARG:츠쿠모가미
	LOCAL:1 = MIN(100, 80 + EXP:MASTER:도구사용경험 / 100)
	LOCAL = LOCAL * LOCAL:1 / 100
ENDIF
IF TALENT:ARG:스침 == 1
	TIMES LOCAL, 1.50
	SIF CFLAG:ARG:몸목적
		TIMES LOCAL, 2.00
ENDIF
;욕망을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:욕망,2)

CUP:ARG:욕정 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;공순의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_공순(ARG)
VARSET LOCAL
SIF FLAG:생활능력무
	SOURCE:ARG:공순 /= 2
LOCAL = SOURCE:ARG:공순
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.50
;ABL:순종을 본다
SELECTCASE ABL:ARG:순종
	CASE 0
		TIMES LOCAL , 0.50
	CASE 1
		TIMES LOCAL , 0.80
	CASE 2
		TIMES LOCAL , 1.00
	CASE 3
		TIMES LOCAL , 1.20
	CASE 4
		TIMES LOCAL , 1.40
	CASE 5
		TIMES LOCAL , 1.60
	CASE 6
		TIMES LOCAL , 1.80
	CASE 7
		TIMES LOCAL , 2.00
	CASE 8
		TIMES LOCAL , 2.40
	CASE 9
		TIMES LOCAL , 3.00
	CASEELSE
		TIMES LOCAL , 5.00
ENDSELECT
CUP:ARG:공순 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;노출의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_노출(ARG)
VARSET LOCAL
;수줍음과 수치심 없음은 여기서 처리
SIF TALENT:ARG:수치심 > 0
	TIMES SOURCE:ARG:노출 , 2.00
SIF TALENT:ARG:수치심 < 0
	TIMES SOURCE:ARG:노출 , 0.50
SIF WITH_MOB()
	TIMES SOURCE:ARG:노출 , 1.50
;윤활 업의 50%를 노출의 소스에 가세한다
;다만 액체 추가의 소스의 만큼은 당긴다
SOURCE:ARG:노출 += (CUP:ARG:윤활 - SOURCE:ARG:액체) / 2

LOCAL = SOURCE:ARG:노출
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.75
;ABL:노출벽을 본다
SELECTCASE ABL:ARG:노출벽
	CASE 0
		TIMES LOCAL , 0.00
	CASE 1
		TIMES LOCAL , 0.10
	CASE 2
		TIMES LOCAL , 0.20
	CASE 3
		TIMES LOCAL , 0.40
	CASE 4
		TIMES LOCAL , 0.60
	CASE 5
		TIMES LOCAL , 0.80
	CASE 6
		TIMES LOCAL , 1.00
	CASE 7
		TIMES LOCAL , 1.20
	CASE 8
		TIMES LOCAL , 1.40
	CASE 9
		TIMES LOCAL , 1.60
	CASEELSE
		TIMES LOCAL , 2.00
ENDSELECT
CUP:ARG:욕정 += LOCAL

LOCAL = SOURCE:ARG:노출

;PALAM:치정을 본다
;부끄러움을 느끼면 느낄수록 너무 부끄럽지 않게 된다
IF PALAM:ARG:치정 < PALAMLV:1
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:치정 < PALAMLV:2
	TIMES LOCAL , 0.90
ELSEIF PALAM:ARG:치정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:ARG:치정 < PALAMLV:4
	TIMES LOCAL , 0.70
ELSEIF PALAM:ARG:치정 >= PALAMLV:4
	TIMES LOCAL , 0.60
ENDIF

SIF LOCAL < 0
	LOCAL = 0
CUP:ARG:치정 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;굴종의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_굴종(ARG)
VARSET LOCAL
SIF FLAG:생활능력무
	SOURCE:ARG:굴종 /= 2
LOCAL = SOURCE:ARG:굴종
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.50
;ABL:순종을 본다
LOCAL = ABL보정(LOCAL,ABL:ARG:순종, 1)

;ABL:봉사정신을 본다
SELECTCASE ABL:ARG:봉사정신
	CASE 0
		TIMES LOCAL , 1.00
	CASE 1
		TIMES LOCAL , 1.50
	CASE 2
		TIMES LOCAL , 2.00
	CASE 3
		TIMES LOCAL , 2.50
	CASE 4
		TIMES LOCAL , 3.00
	CASE 5
		TIMES LOCAL , 3.50
	CASE 6
		TIMES LOCAL , 4.00
	CASE 7
		TIMES LOCAL , 4.50
	CASE 8
		TIMES LOCAL , 5.00
	CASE 9
		TIMES LOCAL , 5.50
	CASEELSE
		TIMES LOCAL , 7.00
ENDSELECT
CUP:ARG:굴복 += LOCAL

;---------------------------------------------------
;PLAYER에도 영향을 주는 SOURCE
;---------------------------------------------------
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;환락의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_환락(ARG)
VARSET LOCAL

LOCAL = SOURCE:ARG:환락
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 1.50
;연모
LOCAL = LOCAL * (10 + 5 * TALENT:ARG:연모) / 10
;사모
LOCAL = LOCAL * (10 + 3 * TALENT:ARG:사모) / 10
;기분
LOCAL = LOCAL * (10 + 2 * TALENT:ARG:기분) / 10
;미약
SIF TCVAR:ARG:미약
	LOCAL /= 5
;이뇨제
SIF TCVAR:ARG:이뇨제
	LOCAL /= 5

SIF WITH_MOB() && BASE:ARG:무드 < (MAXBASE:ARG:무드 / 2)
	TIMES LOCAL , 1.20
SIF CFLAG:ARG:데이트중
	TIMES LOCAL , 1.30

;ABL:친밀을 본다
IF LOCAL < 100000
	LOCAL = LOCAL * (ABL:ARG:친밀 * 5 + 100) / 100
ELSEIF LOCAL < 100000000
	LOCAL = LOCAL / 100 * (ABL:ARG:친밀 * 5 + 100)
ENDIF

;ABL:욕망을 본다
IF LOCAL < 100000
	LOCAL = LOCAL * (ABL:ARG:욕망 * 5 + 100) / 100
ELSEIF LOCAL < 100000000
	LOCAL = LOCAL / 100 * (ABL:ARG:욕망 * 5 + 100)
ENDIF

;호감 도를 본다
IF CFLAG:ARG:2 <= 10
	TIMES LOCAL , 0.50
ELSEIF CFLAG:ARG:2 <= 50
	TIMES LOCAL , 0.80
ELSEIF CFLAG:ARG:2 <= 100
	TIMES LOCAL , 1.00
ELSEIF CFLAG:ARG:2 <= 300
	TIMES LOCAL , 1.10
ELSEIF CFLAG:ARG:2 <= 500
	TIMES LOCAL , 1.20
ELSEIF CFLAG:ARG:2 <= 700
	TIMES LOCAL , 1.30
ELSEIF CFLAG:ARG:2 <= 1000
	TIMES LOCAL , 1.40
ELSEIF CFLAG:ARG:2 <= 3000
	TIMES LOCAL , 1.50
ELSEIF CFLAG:ARG:2 <= 5000
	TIMES LOCAL , 1.70
ELSEIF CFLAG:ARG:2 <= 500000
	IF LOCAL < 100000
		LOCAL = LOCAL * (CFLAG:ARG:2 / 50 + 100) / 100
	ELSEIF LOCAL < 10000000
		LOCAL = LOCAL / 100 * (CFLAG:ARG:2 / 50 + 100)
	ELSEIF LOCAL < 100000000
		IF CFLAG:ARG:2 <= 50000
			LOCAL = LOCAL / 100 * (CFLAG:ARG:2 / 50 + 100)
		ELSE
			LOCAL = 1000000000
		ENDIF
	ENDIF
ENDIF

CUP:ARG:호의 += LOCAL
CUP:PLAYER:욕정 += MIN(LOCAL / 10 , 100)

;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;정복의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_정복(ARG)
SIF TCVAR:ARG:마음대로해
	SOURCE:ARG:정복 += 10 * (ABL:ARG:새드끼 + 1)
SIF FLAG:생활능력무
	SOURCE:ARG:정복 *= 2

VARSET LOCAL
;지위에서 분기
IF CFLAG:ARG:310 > CFLAG:PLAYER:310
	;고위의 캐릭터
	LOCAL:1 = SOURCE:ARG:정복 / 4
	;ABL:욕망을 본다
	SELECTCASE ABL:ARG:욕망
		CASE 0
			TIMES LOCAL:1 , 0.10
		CASE 1,2
			TIMES LOCAL:1 , 0.15
		CASE 3,4
			TIMES LOCAL:1 , 0.20
		CASE 5,6,7
			TIMES LOCAL:1 , 0.25
		CASE 8,9
			TIMES LOCAL:1 , 0.30
		CASEELSE
			IF LOCAL:1 < 100000
				LOCAL:1 = LOCAL:1 * (ABL:ARG:욕망 * 5 + 15) / 100
			ELSEIF LOCAL:1 < 100000000
				LOCAL:1 = LOCAL:1 / 100 * (ABL:ARG:욕망 * 5 + 15)
			ENDIF
	ENDSELECT
	;ABL:새드끼를 본다
	IF LOCAL:1 < 100000
		LOCAL:1 = LOCAL:1 * (ABL:ARG:새드끼 * 30 + 100) / 100
	ELSEIF LOCAL:1 < 100000000
		LOCAL:1 = LOCAL:1 / 100 * (ABL:ARG:새드끼 * 30 + 100)
	ENDIF
ELSE
	;저위의 캐릭터
	LOCAL:2 = SOURCE:ARG:정복 / 2
	;ABL:친밀을 본다
	SELECTCASE ABL:ARG:친밀
		CASE 0
			TIMES LOCAL:2 , 0.10
		CASE 1
			TIMES LOCAL:2 , 0.15
		CASE 2
			TIMES LOCAL:2 , 0.20
		CASE 3
			TIMES LOCAL:2 , 0.25
		CASE 4
			TIMES LOCAL:2 , 0.30
		CASEELSE
			IF LOCAL:2 < 100000
				LOCAL:2 = LOCAL:2 * (ABL:ARG:친밀 * 5 + 15) / 100
			ELSEIF B < 100000000
				LOCAL:2 = LOCAL:2 / 100 * (ABL:ARG:친밀 * 5 + 15)
			ENDIF
	ENDSELECT
ENDIF

LOCAL = SOURCE:ARG:정복
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
;ABL:새드끼를 본다
SELECTCASE ABL:ARG:새드끼
	CASE 0
		TIMES LOCAL , 0.70
	CASE 1
		TIMES LOCAL , 1.00
	CASE 2
		TIMES LOCAL , 1.30
	CASE 3
		TIMES LOCAL , 1.70
	CASE 4
		TIMES LOCAL , 2.00
	CASEELSE
		IF LOCAL < 100000
			LOCAL = LOCAL * (ABL:ARG:새드끼 * 15 + 175) / 100
		ELSEIF LOCAL < 100000000
			LOCAL = LOCAL / 100 * (ABL:ARG:새드끼 * 15 + 175)
		ENDIF
ENDSELECT
SIF FLAG:생활능력무
	LOCAL *= 2
CUP:ARG:우월 += LOCAL
CUP:ARG:욕정 += LOCAL:1
CUP:PLAYER:굴복 += LOCAL:1
CUP:ARG:치정 += LOCAL:2

;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;수동의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_수동(ARG)
VARSET LOCAL
SIF FLAG:생활능력무
	SOURCE:ARG:수동 /= 2
IF CFLAG:ARG:310 > CFLAG:PLAYER:310
	;고위의 캐릭터
	LOCAL:1 = SOURCE:ARG:수동 / 3
	;ABL:욕망을 본다
	SELECTCASE ABL:ARG:욕망
		CASE 0
			TIMES LOCAL:1 , 0.30
		CASE 1
			TIMES LOCAL:1 , 0.35
		CASE 2
			TIMES LOCAL:1 , 0.40
		CASE 3
			TIMES LOCAL:1 , 0.45
		CASE 4
			TIMES LOCAL:1 , 0.50
		CASEELSE
			IF LOCAL:1 < 100000
				LOCAL:1 = LOCAL:1 * (ABL:ARG:욕망 * 10 + 10) / 100
			ELSEIF LOCAL:1 < 100000000
				LOCAL:1 = LOCAL:1 / 100 * (ABL:ARG:욕망 * 10 + 10)
			ENDIF
	ENDSELECT
ELSE
	LOCAL:2 = SOURCE:ARG:수동 / 2
	;ABL:봉사정신을 본다
	SELECTCASE ABL:ARG:봉사정신
		CASE 0
			TIMES LOCAL:2 , 0.30
		CASE 1
			TIMES LOCAL:2 , 0.35
		CASE 2
			TIMES LOCAL:2 , 0.40
		CASE 3
			TIMES LOCAL:2 , 0.45
		CASE 4
			TIMES LOCAL:2 , 0.50
		CASEELSE
			IF LOCAL:2 < 100000
				LOCAL:2 = LOCAL:2 * (ABL:ARG:봉사정신 * 10 + 10) / 100
			ELSEIF LOCAL:2 < 100000000
				LOCAL:2 = LOCAL:2 / 100 * (ABL:ARG:봉사정신 * 10 + 10)
			ENDIF
	ENDSELECT
ENDIF

LOCAL = SOURCE:ARG:수동
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.50
;ABL:친밀을 본다
IF LOCAL < 100000
	LOCAL = LOCAL * (ABL:ARG:친밀 * 10 + 70) / 100
ELSEIF LOCAL < 100000000
	LOCAL = LOCAL / 100 * (ABL:ARG:친밀 * 10 + 70)
ENDIF

CUP:ARG:호의 += LOCAL
CUP:ARG:굴복 += LOCAL:1
CUP:PLAYER:공순 += LOCAL:1
CUP:ARG:공순 += LOCAL:2

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;유혹의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_유혹(ARG)
SIF FLAG:생활능력무
	SOURCE:ARG:유혹 *= 2
SOURCE:ARG:유혹 = SOURCE:ARG:유혹 * GET_REVISION(ABL:ARG:욕망 + 2, 500, 10) / 100
LOCAL = SOURCE:ARG:유혹
LOCAL:1 = SOURCE:ARG:유혹
;상대 주도
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
	TIMES LOCAL:1, 2.00
ENDIF
CUP:ARG:우월 += LOCAL
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:욕망, 500, 20)) / 100
CUP:PLAYER:욕정 += LOCAL
LOCAL:1 = LOCAL:1 * (100 + GET_REVISION(ABL:PLAYER:순종, 500, 5)) / 100
CUP:PLAYER:공순 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;송구스러운 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_송구스러운(ARG)
SIF FLAG:생활능력무
	SOURCE:ARG:송구스러운 *= 2
SOURCE:ARG:송구스러운 = SOURCE:ARG:송구스러운 * GET_REVISION(ABL:ARG:새드끼 + 2, 500, 10) / 100
LOCAL = SOURCE:ARG:송구스러운
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:마조끼, 500, 20)) / 100
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:노출벽, 500, 20)) / 100

;PALAM:치정을 본다
;부끄러움을 느끼면 느낄수록 너무 부끄럽지 않게 된다
IF PALAM:PLAYER:치정 < PALAMLV:1
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:치정 < PALAMLV:2
	TIMES LOCAL , 0.90
ELSEIF PALAM:PLAYER:치정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:PLAYER:치정 < PALAMLV:4
	TIMES LOCAL , 0.70
ELSEIF PALAM:PLAYER:치정 >= PALAMLV:4
	TIMES LOCAL , 0.60
ENDIF
CUP:PLAYER:치정 += LOCAL
CUP:ARG:우월 += LOCAL / 2
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;도발의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_도발(ARG)
SIF FLAG:생활능력무
	SOURCE:ARG:도발 *= 2
SOURCE:ARG:도발 = SOURCE:ARG:도발 * GET_REVISION(ABL:ARG:새드끼 + 2, 500, 10) / 100
LOCAL = SOURCE:ARG:도발
LOCAL:1 = SOURCE:ARG:도발
;상대 주도
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
	TIMES LOCAL:1, 2.00
ENDIF

CUP:ARG:우월 += LOCAL
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:욕망, 500, 10)) / 100
CUP:PLAYER:욕정 += LOCAL
LOCAL:1 = LOCAL:1 * (100 + GET_REVISION(ABL:PLAYER:마조끼, 500, 5)) / 100
CUP:PLAYER:굴복 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;봉사의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_봉사(ARG)
SOURCE:ARG:봉사 = SOURCE:ARG:봉사 * GET_REVISION(ABL:ARG:기교 + ABL:ARG:봉사정신 + 2, 500, 10) / 100
LOCAL = SOURCE:ARG:봉사
LOCAL:1 = SOURCE:ARG:봉사
;상대 주도
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.75
	TIMES LOCAL:1, 0.75
ENDIF
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:욕망, 500, 10)) / 100
CUP:PLAYER:욕정 += LOCAL
LOCAL:1 = LOCAL:1 * (100 + GET_REVISION(ABL:PLAYER:마조끼, 500, 5)) / 100
CUP:PLAYER:굴복 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;강요의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_강요(ARG)
SIF FLAG:생활능력무
	SOURCE:ARG:강요 *= 2
SOURCE:ARG:강요 = SOURCE:ARG:강요 * GET_REVISION(ABL:ARG:새드끼 +ABL:ARG:욕망 + 2, 500, 10) / 100
LOCAL = SOURCE:ARG:강요
LOCAL:1 = SOURCE:ARG:강요
;상대 주도
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
	TIMES LOCAL:1, 2.00
ENDIF
CUP:ARG:우월 += LOCAL
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:봉사정신, 500, 5)) / 100
CUP:PLAYER:공순 += LOCAL
LOCAL:1 = LOCAL:1 * (100 + GET_REVISION(ABL:PLAYER:순종, 500, 10)) / 100
CUP:PLAYER:굴복 += LOCAL:1
CUP:PLAYER:공포 += LOCAL:1 / 2
;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;가학의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_가학(ARG)
SIF TCVAR:ARG:마음대로해
	SOURCE:ARG:가학 += 10 * (ABL:ARG:새드끼 + 1)
SIF FLAG:생활능력무
	SOURCE:ARG:가학 *= 2
SOURCE:ARG:가학 = SOURCE:ARG:가학 * GET_REVISION(ABL:ARG:새드끼 + ABL:ARG:욕망 + 2, 1000, 5) / 100
LOCAL = SOURCE:ARG:가학
LOCAL:1 = SOURCE:ARG:가학
;상대 주도
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 2.00
	TIMES LOCAL:1, 2.00
ENDIF
SIF ABL:ARG:새드끼 < ABL:MASTER:새드끼
	TIMES LOCAL, 0.75
CUP:ARG:우월 += LOCAL * 2
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:마조끼, 500, 10)) / 100
CUP:PLAYER:고통 += LOCAL
LOCAL = LOCAL * (100 + GET_REVISION(ABL:PLAYER:마조끼, 500, 5)) / 100
CUP:PLAYER:공포 += LOCAL
LOCAL:1 = LOCAL:1 * (100 + GET_REVISION(ABL:PLAYER:순종, 500, 10)) / 100
CUP:PLAYER:굴복 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;ARG= 보정이 걸리는 소스
;ARG:1= 참조하는 ABL치
;ARG:2= 보정의 종류
;-----------------------------------------------------------
@ABL보정(ARG, ARG:1, ARG:2)
#FUNCTION
IF ARG:2 == 1
	SELECTCASE ARG:1
		CASE 0
			TIMES ARG , 0.10
		CASE 1
			TIMES ARG , 0.30
		CASE 2
			TIMES ARG , 0.50
		CASE 3
			TIMES ARG , 1.00
		CASE 4
			TIMES ARG , 1.50
		CASE 5
			TIMES ARG , 2.00
		CASE 6
			TIMES ARG , 2.50
		CASE 7
			TIMES ARG , 3.00
		CASE 8
			TIMES ARG , 3.50
		CASE 9
			TIMES ARG , 4.00
		CASE 10
			TIMES ARG , 5.00
		CASEELSE
			TIMES ARG , 6.00
	ENDSELECT
ELSEIF ARG:2 == 2
	SELECTCASE ARG:1
		CASE 0
			TIMES ARG , 0.20
		CASE 1
			TIMES ARG , 0.40
		CASE 2
			TIMES ARG , 0.80
		CASE 3
			TIMES ARG , 1.20
		CASE 4
			TIMES ARG , 1.60
		CASE 5
			TIMES ARG , 2.00
		CASE 6
			TIMES ARG , 2.40
		CASE 7
			TIMES ARG , 2.80
		CASE 8
			TIMES ARG , 3.20
		CASE 9
			TIMES ARG , 3.60
		CASEELSE
			TIMES ARG , 5.00
	ENDSELECT
ENDIF
RETURNF ARG
;-------------------------------------------------
;함수명 :SOURCE_REVISION1
;쾌락계 SOURCE의 쾌락계 ABL에 의한 보정
;1/10된다
;-------------------------------------------------
@SOURCE_REVISION1(ARG)
#FUNCTION
SELECTCASE ARG
	CASE 0 TO 5
		RETURNF 10 + 7 * ARG
	CASE 6 TO 9
		RETURNF 30 + 4 * ARG
	CASE 10 TO 15
		RETURNF 45 + 2 * ARG
	CASE 16 TO 19
		RETURNF 70 + ARG
	CASE IS >= 20
		RETURNF 90
ENDSELECT

;-------------------------------------------------
;함수명 :SOURCE_REVISION2
;쾌락계 SOURCE에 의존하는 UP:욕망의 ABL:욕망에 의한 보정
;1/100된다
;-------------------------------------------------
@SOURCE_REVISION2(ARG)
#FUNCTION
SELECTCASE ARG
	CASE 0 TO 5
		RETURNF 25 + 7 * ARG
	CASE 6 TO 9
		RETURNF 45 + 3 * ARG
	CASE 10 TO 15
		RETURNF 60 + 2 * ARG
	CASE 16 TO 19
		RETURNF 80 + ARG
	CASE IS >= 20
		RETURNF 100
ENDSELECT

license: mit


code:
;FileName_SOURCE_CALLCOM.ERB ----------------------- Rev1.00
;@COM 호출 통괄
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT	@COM를 호출한다. 콤보 발생 판정도 여기
;-----------------------------------------------------------
@CALL_COM(ARG)
;=== 우후후계 콤보 ===

;파이즈리펠라
IF (TEQUIP:ARG:B접촉부위 == 1 && TEQUIP:ARG:입2 == 1) || (TEQUIP:ARG:입접촉부위 == 1 && TEQUIP:ARG:가슴2 == 1)
	TFLAG:50 = 12
;식스나인
ELSEIF (TEQUIP:ARG:입접촉부위 == 1 || TEQUIP:ARG:입접촉부위 == 2) && (TEQUIP:ARG:P접촉부위 == 4 || TEQUIP:ARG:C접촉부위 == 4) && (SELECTCOM == 1 || SELECTCOM == 81) && !FLAG:70
	TFLAG:50 = 1
;이와시미즈
ELSEIF TEQUIP:ARG:수치플레이 && SELECTCOM == 1
	TFLAG:50 = 2
;G 스폿 자극
ELSEIF SELECTCOM == 3 && PREVCOM == SELECTCOM && TFLAG:103 == ARG
	TFLAG:50 = 3
;흐트러지고 모란
ELSEIF TEQUIP:ARG:수치플레이 && SELECTCOM == 68
	TFLAG:50 = 4
;수음 펠라
ELSEIF (TEQUIP:ARG:손가락접촉부위 == 1 && TEQUIP:ARG:입2 == 1) || (TEQUIP:ARG:입접촉부위 == 1 && TEQUIP:ARG:손가락2 == 1)
	IF FLAG:70 == 1
	ELSE
		;페러 수음
		IF TEQUIP:ARG:손가락접촉부위 == 1
			TFLAG:194 = 0
		;수음-펠라
		ELSE
			TFLAG:194 = 1
		ENDIF
		TFLAG:50 = 5
	ENDIF
;삽입 G 스폿 꾸짖어 자궁구 꾸짖어 교호 삽입
ELSEIF (SELECTCOM == 60 || SELECTCOM == 61 || SELECTCOM == 65 || SELECTCOM == 67 || SELECTCOM == 68)
;	IF TEQUIP:ARG:체위 == TEQUIP:ARG:체위2 && TFLAG:103 == TARGET && TEQUIP:ARG:질2 == 1
;		IF SELECTCOM == 65 || RAND:2
;			TFLAG:50 = 7
;		ELSE
;			TFLAG:50 = 6
;		ENDIF
;	ENDIF
	;교호 삽입
	IF TEQUIP:ARG:V접촉부위 == 1 && (MASTER_POSE(SET_V, SET_P, 1) && MASTER_POSE(SET_V, SET_P, 1) != ARG)
		TFLAG:50 = 13
	ENDIF
;アナル交互挿入
ELSEIF (SELECTCOM == 62 || SELECTCOM == 63 || SELECTCOM == 66 || SELECTCOM == 69 || SELECTCOM == 70)
	;アナル交互挿入
	IF TEQUIP:ARG:A접촉부위 == 1 && (MASTER_POSE(SET_A,SET_P,1) && MASTER_POSE(SET_A,SET_P,1) != ARG)
		TFLAG:50 = 16
	ENDIF
ELSEIF SELECTCOM == 72
	TFLAG:50 = 6
ELSEIF SELECTCOM == 73
	TFLAG:50 = 7
;식스나인 파이즈리
ELSEIF TEQUIP:ARG:B접촉부위 == 1 && (TEQUIP:ARG:P접촉부위 == 4 || TEQUIP:ARG:C접촉부위 == 4) && (SELECTCOM == 1 || SELECTCOM == 82)
	IF FLAG:70 == 1
	ELSE
	TFLAG:50 = 8
	ENDIF
;더블 펠라
ELSEIF TEQUIP:ARG:입접촉부위 == 1 && (MASTER_POSE(SET_M, SET_P, 1) && MASTER_POSE(SET_M, SET_P, 1) != ARG )
	TFLAG:50 = 9
;더블 가랑이
ELSEIF TEQUIP:ARG:C접촉부위 == 1 && (MASTER_POSE(SET_C, SET_P, 1) && MASTER_POSE(SET_C, SET_P, 1) != ARG )
	TFLAG:50 = 10
;더블 파이즈리
ELSEIF TEQUIP:ARG:B접촉부위 == 1 && (MASTER_POSE(SET_B, SET_P, 1) && MASTER_POSE(SET_B, SET_P, 1) != ARG )
	IF FLAG:70 == 1
	ELSE
	TFLAG:50 = 11
	ENDIF
;S장 결장 꾸짖어 애널 G 스폿 자극
ELSEIF (SELECTCOM == 62 || SELECTCOM == 63 || SELECTCOM == 66 || SELECTCOM == 69 || SELECTCOM == 70) && PREVCOM == SELECTCOM && TFLAG:103 == ARG
	IF SELECTCOM == 66 || RAND:2
		TFLAG:50 = 14
	ELSE
		TFLAG:50 = 15
	ENDIF
ELSEIF SELECTCOM == 74
	TFLAG:50 = 14
ELSEIF SELECTCOM == 75
	TFLAG:50 = 15
;ELSEIF SELECTCOM == 81 && TEQUIP:ARG:입2 == 1
;	TFLAG:50 = 16
;후배위 스팬킹
;ELSEIF SELECTCOM == 100 && TEQUIP:ARG:50 == PLAYER &&
;수유 플레이
ELSEIF (SELECTCOM == 80 && TFLAG:103 == ARG && TEQUIP:ARG:유두빨기) || (TEQUIP:ARG:손가락접촉부위 == 1 && TFLAG:103 == ARG  && SELECTCOM == 11 && PREVCOM != 11)
	IF !FLAG:70
		;乳首吸い-手淫
		IF TEQUIP:ARG:손가락접촉부위 == 1
			TFLAG:194 = 0
		;手淫-乳首吸い
		ELSE
			TFLAG:194 = 1
		ENDIF
		TFLAG:50 = 19
	ENDIF
;유두동시빨기
ELSEIF SELECTCOM == 11 && TFLAG:103 == ARG && TEQUIP:ARG:유두빨기
	TFLAG:50 = 17
ENDIF

;=== 일상계 ===
;귀이개
IF SELECTCOM == 302 && PREVCOM == 305
	TFLAG:50 = 60
;다키마쿠라
ELSEIF SELECTCOM == 402 && PREVCOM == 311
	TFLAG:50 = 61
;이마 쪽―
ELSEIF SELECTCOM == 312 && PREVCOM == 309 && !FLAG:70
	TFLAG:50 = 62
ENDIF
;좀 더 키스한다
SIF SELECTCOM == 312 && PREVCOM == 312 && !TFLAG:151
	TFLAG:50 = 63

;=== 데이트계 ===
IF CHK_DATENOW(CFLAG:TARGET:데이트중)
	;손을 잡아 당긴다
	IF SELECTCOM == 603 && PREVCOM == 603
		TFLAG:50 = 80
	ENDIF
ENDIF

RESULT = 0
SIF TFLAG:전회커맨드결과 <= 0
	TFLAG:50 = 0
IF TFLAG:50
	CALLFORM COM_ABLE{500 + TFLAG:50}
	IF RESULT
		TRYCALLFORM CAN_SCOM{TFLAG:50}(1)
		IF RESULT
			TRYCCALLFORM CAN_SCOM{TFLAG:50}
			CATCH
				PRINTFORML %STR:(1500 + TFLAG:50)%
			ENDCATCH
			STR:0 = %STR:(1500 + TFLAG:50)%
			TRYCALLFORM SCOM{TFLAG:50}
		ENDIF
	ENDIF
ENDIF
SIF RESULT
	RETURN RESULT
TFLAG:50 = 0
;LOCALS = %STR:(1000 + SELECTCOM)%
LOCALS = %TRAINNAME:(SELECTCOM)%
TRYCCALLFORM CAN_COM{SELECTCOM}
CATCH
	PRINTFORML %LOCALS%
ENDCATCH
STR:0 = %LOCALS%
CALL KOJO_MESSAGE_SEND("SUCCESS",-1,TARGET,-1,-1)
TRYCALLFORM COM{SELECTCOM}
RETURN RESULT


code:
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;쾌C의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_쾌C(ARG)
VARSET LOCAL
;C민감과 C둔감은 여기서 처리
IF TALENT:ARG:C감도 == -1 && TALENT:MASTER:C둔감무시
ELSE
SOURCE:ARG:쾌C = SOURCE:ARG:쾌C * (2 + TALENT:ARG:C감도) / 2
ENDIF

;C감각
SOURCE:ARG:쾌C = SOURCE:ARG:쾌C * SOURCE_REVISION1(ABL:ARG:C감각) / 10
SIF FLAG:이상기상 == 1
	TIMES SOURCE:ARG:쾌C , 1.50
LOCAL = SOURCE:ARG:쾌C
;PALAM:욕정을 본다
IF PALAM:ARG:욕정 < PALAMLV:1
	TIMES LOCAL , 0.80
ELSEIF PALAM:ARG:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:욕정 < PALAMLV:5
	TIMES LOCAL , 1.20
ELSEIF PALAM:ARG:욕정 < PALAMLV:7
	TIMES LOCAL , 1.40
ELSEIF PALAM:ARG:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.60
ENDIF
CUP:ARG:쾌C += LOCAL

LOCAL = SOURCE:ARG:쾌C
;ABL:욕망을 본다
LOCAL = LOCAL * SOURCE_REVISION2(ABL:ARG:욕망) / 100

CUP:ARG:욕정 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;쾌V의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_쾌V(ARG)
VARSET LOCAL
;V민감과 V둔감은 여기서 처리
IF TALENT:ARG:V감도 == -1 && TALENT:MASTER:V둔감무시
ELSE
SOURCE:ARG:쾌V = SOURCE:ARG:쾌V * (2 + TALENT:ARG:V감도) / 2
ENDIF

;V감각
SOURCE:ARG:쾌V = SOURCE:ARG:쾌V * SOURCE_REVISION1(ABL:ARG:V감각) / 10
SIF FLAG:이상기상 == 2
	TIMES SOURCE:ARG:쾌V , 1.50
;EXP:V경험을 본다
IF EXP:ARG:V경험 < EXPLV:1
	TIMES SOURCE:ARG:쾌V , 0.30
ELSEIF EXP:ARG:V경험 < EXPLV:2
	TIMES SOURCE:ARG:쾌V , 0.50
ELSEIF EXP:ARG:V경험 < EXPLV:3
	TIMES SOURCE:ARG:쾌V , 0.80
ELSEIF EXP:ARG:V경험 < EXPLV:4
	TIMES SOURCE:ARG:쾌V , 1.00
ELSEIF EXP:ARG:V경험 < EXPLV:5
	TIMES SOURCE:ARG:쾌V , 1.20
ELSEIF EXP:ARG:V경험 >= EXPLV:5
	TIMES SOURCE:ARG:쾌V , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES SOURCE:ARG:쾌V , 0.10
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES SOURCE:ARG:쾌V , 0.30
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES SOURCE:ARG:쾌V , 0.40
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES SOURCE:ARG:쾌V , 0.75
ELSEIF PALAM:ARG:윤활 < PALAMLV:5
	TIMES SOURCE:ARG:쾌V , 0.90
ELSE
	TIMES SOURCE:ARG:쾌V , 1.00
ENDIF

LOCAL = SOURCE:ARG:쾌V
LOCAL:1 = SOURCE:ARG:쾌V

;PALAM:욕정을 본다
IF PALAM:ARG:욕정 < PALAMLV:1
	TIMES LOCAL , 0.60
ELSEIF PALAM:ARG:욕정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:ARG:욕정 < PALAMLV:5
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:ARG:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.50
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:ARG:욕망) / 100

;난쟁이 체형
IF TALENT:ARG:체형 < -2
	TIMES LOCAL , 0.80
	TIMES LOCAL:1 , 1.20
ENDIF

CUP:ARG:쾌V += LOCAL
CUP:ARG:욕정 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;쾌A의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_쾌A(ARG)
VARSET LOCAL

;A민감과 A둔감은 여기서 처리
IF TALENT:ARG:A감도 == -1 && TALENT:MASTER:A둔감무시
ELSE
SOURCE:ARG:쾌A = SOURCE:ARG:쾌A * (2 + TALENT:ARG:A감도) / 2
ENDIF
SIF FLAG:이상기상 == 3
	TIMES SOURCE:ARG:쾌A , 1.50
;A감각
SOURCE:ARG:쾌A = SOURCE:ARG:쾌A * SOURCE_REVISION1(ABL:ARG:A감각) / 10
;EXP:A경험을 본다
IF EXP:ARG:A경험 < EXPLV:1
	TIMES SOURCE:ARG:쾌A , 0.30
ELSEIF EXP:ARG:A경험 < EXPLV:2
	TIMES SOURCE:ARG:쾌A , 0.50
ELSEIF EXP:ARG:A경험 < EXPLV:3
	TIMES SOURCE:ARG:쾌A , 0.80
ELSEIF EXP:ARG:A경험 < EXPLV:4
	TIMES SOURCE:ARG:쾌A , 1.00
ELSEIF EXP:ARG:A경험 < EXPLV:5
	TIMES SOURCE:ARG:쾌A , 1.20
ELSEIF EXP:ARG:A경험 >= EXPLV:5
	TIMES SOURCE:ARG:쾌A , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES SOURCE:ARG:쾌A , 0.10
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES SOURCE:ARG:쾌A , 0.20
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES SOURCE:ARG:쾌A , 0.40
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES SOURCE:ARG:쾌A , 0.75
ELSEIF PALAM:ARG:윤활 < PALAMLV:5
	TIMES SOURCE:ARG:쾌A , 0.90
ELSE
	TIMES SOURCE:ARG:쾌A , 1.00
ENDIF

LOCAL = SOURCE:ARG:쾌A
LOCAL:1 = SOURCE:ARG:쾌A

;PALAM:욕정을 본다
;쾌A는 너무 PALAM:욕정에서는 차이가 나오지 않는다
IF PALAM:ARG:욕정 < PALAMLV:1
	TIMES LOCAL , 0.90
ELSEIF PALAM:ARG:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:욕정 < PALAMLV:5
	TIMES LOCAL , 1.10
ELSEIF PALAM:ARG:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:ARG:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.30
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:ARG:욕망) / 100

;난쟁이 체형
IF TALENT:ARG:체형 < -2
	TIMES LOCAL , 0.50
	TIMES LOCAL:1 , 1.50
ENDIF

;쾌A의 소스가 0이상으로 처녀로 정조 관념 때, 굴복의 소스를 3 분의 1으로 한다
IF EXP:ARG:V경험 == 0 && TALENT:ARG:정조 > 0 && SOURCE:ARG:쾌A > 0
	SOURCE:ARG:굴종 /= 3
ENDIF

CUP:ARG:쾌A += LOCAL
CUP:ARG:욕정 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;쾌B의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_쾌B(ARG)
VARSET LOCAL
;B민감과 B둔감은 여기서 처리
IF TALENT:ARG:B감도 == -1 && TALENT:MASTER:B둔감무시
ELSE
SOURCE:ARG:쾌B = SOURCE:ARG:쾌B * (2 + TALENT:ARG:B감도) / 2
ENDIF

;B감각
SOURCE:ARG:쾌B = SOURCE:ARG:쾌B * SOURCE_REVISION1(ABL:ARG:B감각) / 10
SIF FLAG:이상기상 == 4
	TIMES SOURCE:ARG:쾌B , 1.50
LOCAL = SOURCE:ARG:쾌B

;PALAM:욕정을 본다
IF PALAM:ARG:욕정 < PALAMLV:1
	TIMES LOCAL , 0.80
ELSEIF PALAM:ARG:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:욕정 < PALAMLV:5
	TIMES LOCAL , 1.20
ELSEIF PALAM:ARG:욕정 < PALAMLV:7
	TIMES LOCAL , 1.40
ELSEIF PALAM:ARG:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.60
ENDIF

CUP:ARG:쾌B += LOCAL

LOCAL = SOURCE:ARG:쾌B
;ABL:욕망을 본다
LOCAL = LOCAL * SOURCE_REVISION2(ABL:ARG:욕망) / 100

CUP:ARG:욕정 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;쾌M의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_쾌M(ARG)
VARSET LOCAL
;M민감과 M둔감은 여기서 처리
IF TALENT:ARG:M감도 == -1 && TALENT:MASTER:M둔감무시
ELSE
SOURCE:ARG:쾌M = SOURCE:ARG:쾌M * (2 + TALENT:ARG:M감도) / 2
ENDIF
SIF FLAG:이상기상 == 5
	TIMES SOURCE:ARG:쾌M , 2.50
;M감각
SOURCE:ARG:쾌M = SOURCE:ARG:쾌M * SOURCE_REVISION1(ABL:ARG:M감각) / 10
;EXP:M경험을 본다
IF EXP:ARG:M경험 < EXPLV:1
	TIMES SOURCE:ARG:쾌M , 0.25
ELSEIF EXP:ARG:M경험 < EXPLV:2
	TIMES SOURCE:ARG:쾌M , 0.50
ELSEIF EXP:ARG:M경험 < EXPLV:3
	TIMES SOURCE:ARG:쾌M , 1.00
ELSEIF EXP:ARG:M경험 < EXPLV:4
	TIMES SOURCE:ARG:쾌M , 2.00
ELSEIF EXP:ARG:M경험 < EXPLV:5
	TIMES SOURCE:ARG:쾌M , 3.00
ELSEIF EXP:ARG:M경험 >= EXPLV:5
	TIMES SOURCE:ARG:쾌M , 5.00
ENDIF

LOCAL = SOURCE:ARG:쾌M
LOCAL:1 = SOURCE:ARG:쾌M

;PALAM:욕정을 본다
IF PALAM:ARG:욕정 < PALAMLV:1
	TIMES LOCAL , 0.60
ELSEIF PALAM:ARG:욕정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:ARG:욕정 < PALAMLV:5
	TIMES LOCAL , 1.00
ELSEIF PALAM:ARG:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:ARG:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.50
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:ARG:욕망) / 100

CUP:ARG:쾌M += LOCAL
CUP:ARG:욕정 += LOCAL:1

;-----------------------------------------------------
;여쾌CVABM
;-----------------------------------------------------
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;여쾌C의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_여쾌C(ARG)
VARSET LOCAL
;C민감과 C둔감은 여기서 처리
IF TALENT:ARG:C감도 == -1 && TALENT:MASTER:C둔감무시
ELSE
SOURCE:ARG:여쾌C = SOURCE:ARG:여쾌C * (2 + TALENT:PLAYER:C감도) / 2
ENDIF

;C감각
SOURCE:ARG:여쾌C = SOURCE:ARG:여쾌C * SOURCE_REVISION1(ABL:PLAYER:C감각) / 10

LOCAL = SOURCE:ARG:여쾌C

SIF SELECTCOM == 21
	TIMES LOCAL , 1.40

;PALAM:욕정을 본다
IF PALAM:PLAYER:욕정 < PALAMLV:1
	TIMES LOCAL , 0.80
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:5
	TIMES LOCAL , 1.20
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:7
	TIMES LOCAL , 1.40
ELSEIF PALAM:PLAYER:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.60
ENDIF
CUP:PLAYER:쾌C += LOCAL
TCVAR:MASTER:4 += GET_REVISION2(LOCAL, 2000, 25000)

LOCAL:1 = SOURCE:ARG:여쾌C
;ABL:욕망을 본다
LOCAL:1 = LOCAL * SOURCE_REVISION2(ABL:PLAYER:욕망) / 100

CUP:PLAYER:욕정 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;여쾌V의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_여쾌V(ARG)
VARSET LOCAL
;V민감과 V둔감은 여기서 처리
IF TALENT:ARG:V감도 == -1 && TALENT:MASTER:V둔감무시
ELSE
SOURCE:ARG:여쾌V = SOURCE:ARG:여쾌V * (2 + TALENT:PLAYER:V감도) / 2
ENDIF

;V감각
SOURCE:ARG:여쾌V = SOURCE:ARG:여쾌V * SOURCE_REVISION1(ABL:PLAYER:V감각) / 10

SIF SELECTCOM == 21
	TIMES SOURCE:ARG:여쾌V , 1.40

;EXP:V경험을 본다
IF EXP:PLAYER:V경험 < EXPLV:1
	TIMES SOURCE:ARG:여쾌V , 0.30
ELSEIF EXP:PLAYER:V경험 < EXPLV:2
	TIMES SOURCE:ARG:여쾌V , 0.50
ELSEIF EXP:PLAYER:V경험 < EXPLV:3
	TIMES SOURCE:ARG:여쾌V , 0.80
ELSEIF EXP:PLAYER:V경험 < EXPLV:4
	TIMES SOURCE:ARG:여쾌V , 1.00
ELSEIF EXP:PLAYER:V경험 < EXPLV:5
	TIMES SOURCE:ARG:여쾌V , 1.20
ELSEIF EXP:PLAYER:V경험 >= EXPLV:5
	TIMES SOURCE:ARG:여쾌V , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:PLAYER:윤활 < PALAMLV:1
	TIMES SOURCE:ARG:여쾌V , 0.10
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:2
	TIMES SOURCE:ARG:여쾌V , 0.40
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:3
	TIMES SOURCE:ARG:여쾌V , 0.60
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:4
	TIMES SOURCE:ARG:여쾌V , 0.80
ELSEIF PALAM:PLAYER:윤활 >= PALAMLV:4
	TIMES SOURCE:ARG:여쾌V , 1.00
ENDIF

LOCAL = SOURCE:ARG:여쾌V
LOCAL:1 = SOURCE:ARG:여쾌V

;PALAM:욕정을 본다
IF PALAM:PLAYER:욕정 < PALAMLV:1
	TIMES LOCAL , 0.60
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:5
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:PLAYER:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.50
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:PLAYER:욕망) / 100

;난쟁이 체형
IF TALENT:PLAYER:체형 < -2
	TIMES LOCAL , 0.80
	TIMES LOCAL:1 , 1.20
ENDIF
TCVAR:MASTER:4 += GET_REVISION2(LOCAL, 1000, 30000)
CUP:PLAYER:쾌V += LOCAL
CUP:PLAYER:욕정 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;여쾌A의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_여쾌A(ARG)
VARSET LOCAL

;A민감과 A둔감은 여기서 처리
IF TALENT:ARG:A감도 == -1 && TALENT:MASTER:A둔감무시
ELSE
SOURCE:ARG:여쾌A = SOURCE:ARG:여쾌A * (2 + TALENT:PLAYER:A감도) / 2
ENDIF

;A감각
SOURCE:ARG:여쾌A = SOURCE:ARG:여쾌A * SOURCE_REVISION1(ABL:PLAYER:A감각) / 10

SIF SELECTCOM == 21
	TIMES SOURCE:ARG:여쾌A , 1.40
;EXP:A경험을 본다
IF EXP:PLAYER:A경험 < EXPLV:1
	TIMES SOURCE:ARG:여쾌A , 0.30
ELSEIF EXP:PLAYER:A경험 < EXPLV:2
	TIMES SOURCE:ARG:여쾌A , 0.50
ELSEIF EXP:PLAYER:A경험 < EXPLV:3
	TIMES SOURCE:ARG:여쾌A , 0.80
ELSEIF EXP:PLAYER:A경험 < EXPLV:4
	TIMES SOURCE:ARG:여쾌A , 1.00
ELSEIF EXP:PLAYER:A경험 < EXPLV:5
	TIMES SOURCE:ARG:여쾌A , 1.20
ELSEIF EXP:PLAYER:A경험 >= EXPLV:5
	TIMES SOURCE:ARG:여쾌A , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:PLAYER:윤활 < PALAMLV:1
	TIMES SOURCE:ARG:여쾌A , 0.40
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:2
	TIMES SOURCE:ARG:여쾌A , 0.60
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:3
	TIMES SOURCE:ARG:여쾌A , 0.80
ELSEIF PALAM:PLAYER:윤활 < PALAMLV:4
	TIMES SOURCE:ARG:여쾌A , 0.90
ELSEIF PALAM:PLAYER:윤활 >= PALAMLV:4
	TIMES SOURCE:ARG:여쾌A , 1.00
ENDIF

LOCAL = SOURCE:ARG:여쾌A
LOCAL:1 = SOURCE:ARG:여쾌A

;PALAM:욕정을 본다
;쾌A는 너무 PALAM:욕정에서는 차이가 나오지 않는다
IF PALAM:PLAYER:욕정 < PALAMLV:1
	TIMES LOCAL , 0.90
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:5
	TIMES LOCAL , 1.10
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:PLAYER:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.30
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:PLAYER:욕망) / 100

;난쟁이 체형
IF TALENT:PLAYER:체형 < -2
	TIMES LOCAL , 0.50
	TIMES LOCAL:1 , 1.50
ENDIF

TCVAR:MASTER:4 += GET_REVISION2(LOCAL, 2000, 30000)
CUP:PLAYER:쾌A += LOCAL
CUP:PLAYER:욕정 += LOCAL:1

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;여쾌B의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_여쾌B(ARG)
VARSET LOCAL
;B민감과 B둔감은 여기서 처리
IF TALENT:ARG:B감도 == -1 && TALENT:MASTER:B둔감무시
ELSE
SOURCE:ARG:여쾌B = SOURCE:ARG:여쾌B * (2 + TALENT:PLAYER:B감도) / 2
ENDIF

;B감각
SOURCE:ARG:여쾌B = SOURCE:ARG:여쾌B * SOURCE_REVISION1(ABL:PLAYER:B감각) / 10

LOCAL = SOURCE:ARG:여쾌B

SIF SELECTCOM == 21
	TIMES LOCAL , 1.40

;PALAM:욕정을 본다
IF PALAM:PLAYER:욕정 < PALAMLV:1
	TIMES LOCAL , 0.80
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:3
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:5
	TIMES LOCAL , 1.20
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:7
	TIMES LOCAL , 1.40
ELSEIF PALAM:PLAYER:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.60
ENDIF
LOCAL = SOURCE:ARG:여쾌B
;ABL:욕망을 본다
LOCAL = LOCAL * SOURCE_REVISION2(ABL:PLAYER:욕망) / 100

TCVAR:MASTER:4 += GET_REVISION2(LOCAL, 800, 30000)
CUP:PLAYER:쾌B += LOCAL
CUP:PLAYER:욕정 += LOCAL
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;여쾌M의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_여쾌M(ARG)
VARSET LOCAL
;M민감과 M둔감은 여기서 처리
IF TALENT:ARG:M감도 == -1 && TALENT:MASTER:M둔감무시
ELSE
SOURCE:ARG:여쾌M = SOURCE:ARG:여쾌M * (2 + TALENT:PLAYER:M감도) / 2
ENDIF

;M감각
SOURCE:ARG:여쾌M = SOURCE:ARG:여쾌M * SOURCE_REVISION1(ABL:PLAYER:M감각) / 10

SIF SELECTCOM == 21
	TIMES SOURCE:ARG:여쾌M , 1.40

;EXP:M경험을 본다
IF EXP:PLAYER:M경험 < EXPLV:1
	TIMES SOURCE:ARG:여쾌M , 0.30
ELSEIF EXP:PLAYER:M경험 < EXPLV:2
	TIMES SOURCE:ARG:여쾌M , 0.50
ELSEIF EXP:PLAYER:M경험 < EXPLV:3
	TIMES SOURCE:ARG:여쾌M , 0.80
ELSEIF EXP:PLAYER:M경험 < EXPLV:4
	TIMES SOURCE:ARG:여쾌M , 1.00
ELSEIF EXP:PLAYER:M경험 < EXPLV:5
	TIMES SOURCE:ARG:여쾌M , 1.20
ELSEIF EXP:PLAYER:M경험 >= EXPLV:5
	TIMES SOURCE:ARG:여쾌M , 1.50
ENDIF

LOCAL = SOURCE:ARG:여쾌M
LOCAL:1 = SOURCE:ARG:여쾌M

;PALAM:욕정을 본다
IF PALAM:PLAYER:욕정 < PALAMLV:1
	TIMES LOCAL , 0.60
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:3
	TIMES LOCAL , 0.80
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:5
	TIMES LOCAL , 1.00
ELSEIF PALAM:PLAYER:욕정 < PALAMLV:7
	TIMES LOCAL , 1.20
ELSEIF PALAM:PLAYER:욕정 >= PALAMLV:7
	TIMES LOCAL , 1.50
ENDIF

;ABL:욕망을 본다
LOCAL:1 = LOCAL:1 * SOURCE_REVISION2(ABL:PLAYER:욕망) / 100

;난쟁이 체형
IF TALENT:PLAYER:체형 < -2
	TIMES LOCAL , 0.80
	TIMES LOCAL:1 , 1.20
ENDIF
TCVAR:MASTER:4 += GET_REVISION2(LOCAL, 500, 20000)
CUP:PLAYER:쾌M += LOCAL
CUP:PLAYER:욕정 += LOCAL:1
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;그 외계 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_CVAB_EXTRA(ARG)
VARSET LOCAL
;-------------------------------------------------
;기력 0에 의한 상하의 처리(쾌락계)
;-------------------------------------------------
;IF BASE:ARG:기력 <= 0
;	;UP:0, 1,2,3은 절정에 관련되므로 먼저 처리되어 있다
;	CUP:ARG:쾌C /= 2
;	CUP:ARG:쾌V /= 2
;	CUP:ARG:쾌A /= 2
;	CUP:ARG:쾌B /= 2
;	CUP:ARG:쾌M /= 2
;ENDIF
;-------------------------------------------------
;궁합에 의한 상하의 처리(쾌락계)
;-------------------------------------------------
IF RELATION:ARG:R != 0
	CUP:ARG:쾌C *= RELATION:ARG:R
	CUP:ARG:쾌C /= 100
	CUP:ARG:쾌V *= RELATION:ARG:R
	CUP:ARG:쾌V /= 100
	CUP:ARG:쾌A *= RELATION:ARG:R
	CUP:ARG:쾌A /= 100
	CUP:ARG:쾌B *= RELATION:ARG:R
	CUP:ARG:쾌B /= 100
	CUP:ARG:쾌M *= RELATION:ARG:R
	CUP:ARG:쾌M /= 100
ENDIF
;-------------------------------------------------
;쾌감에 부정은, 쾌소스의 수치에 응해, 억울증가(음란해 무효)
;-------------------------------------------------
SIF TALENT:ARG:쾌감응답 < 0 && !TALENT:ARG:음란
	SOURCE:ARG:울굴 += (CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B)/10

;-------------------------------------------------
;소질등에 의한 상하의 처리(쾌락계)
;-------------------------------------------------
;미약
IF TCVAR:ARG:미약 || TCVAR:ARG:발정
	TIMES CUP:ARG:쾌C , 1.30
	TIMES CUP:ARG:쾌V , 1.30
	TIMES CUP:ARG:쾌A , 1.30
	TIMES CUP:ARG:쾌B , 1.30
	TIMES CUP:ARG:쾌M , 1.30
ENDIF
	;이뇨제
IF TCVAR:ARG:이뇨제
	TIMES CUP:ARG:쾌C , 0.70
	TIMES CUP:ARG:쾌V , 0.70
	TIMES CUP:ARG:쾌A , 0.70
	TIMES CUP:ARG:쾌B , 0.70
	TIMES CUP:ARG:쾌M , 0.70
ENDIF
;仙香玉兎、ガシングガーデン
IF IsInsenceValid(ARG)
	TIMES CUP:ARG:쾌C , 1.30
	TIMES CUP:ARG:쾌V , 1.30
	TIMES CUP:ARG:쾌A , 1.30
	TIMES CUP:ARG:쾌B , 1.30
	TIMES CUP:ARG:쾌M , 1.30
ELSEIF IsGardenValid(ARG)
	TIMES CUP:ARG:쾌C , 1.20
	TIMES CUP:ARG:쾌V , 1.20
	TIMES CUP:ARG:쾌A , 1.20
	TIMES CUP:ARG:쾌B , 1.20
	TIMES CUP:ARG:쾌M , 1.20
ENDIF

;-------------------------------------------------
;수면중의 상하의 처리(쾌락계)
;-------------------------------------------------
	;수면
IF CFLAG:ARG:수면
	TIMES CUP:ARG:쾌C , 0.50
	TIMES CUP:ARG:쾌V , 0.50
	TIMES CUP:ARG:쾌A , 0.50
	TIMES CUP:ARG:쾌B , 0.50
	TIMES CUP:ARG:쾌M , 0.50
ENDIF
;-------------------------------------------------
;함락 소질
;-------------------------------------------------
;음란
IF TALENT:ARG:음란
	TIMES CUP:ARG:쾌C , 1.20
	TIMES CUP:ARG:쾌V , 1.20
	TIMES CUP:ARG:쾌A , 1.20
	TIMES CUP:ARG:쾌B , 1.20
	TIMES CUP:ARG:쾌M , 1.10
ENDIF
;-------------------------------------------------
;소질
;-------------------------------------------------
;자제심
IF TALENT:ARG:자제심
	TIMES CUP:ARG:쾌C , 0.70
	TIMES CUP:ARG:쾌V , 0.90
	TIMES CUP:ARG:쾌A , 1.00
	TIMES CUP:ARG:쾌B , 0.70
	TIMES CUP:ARG:쾌M , 1.10
ENDIF
	;즉각함락
IF TALENT:ARG:즉각함락
	TIMES CUP:ARG:쾌C , 2.00
	TIMES CUP:ARG:쾌V , 2.00
	TIMES CUP:ARG:쾌A , 2.00
	TIMES CUP:ARG:쾌B , 2.00
	TIMES CUP:ARG:쾌M , 1.80
ENDIF
;자위중독
SIF TALENT:ARG:자위중독
	TIMES CUP:ARG:쾌C , 1.20
;음호
SIF TALENT:ARG:음호
	TIMES CUP:ARG:쾌V , 1.20
;항문광
SIF TALENT:ARG:항문광
	TIMES CUP:ARG:쾌A , 1.20
;음유
SIF TALENT:ARG:음유
	TIMES CUP:ARG:쾌B , 1.20
	;남자
IF !(TALENT:ARG:2 & 1)
	TIMES CUP:ARG:쾌A , 1.30
SIF TALENT:ARG:키스마
	TIMES CUP:ARG:쾌M , 1.30
ENDIF
;-------------------------------------------------
;커맨드
;-------------------------------------------------
;커맨드 보정
CUP:ARG:쾌C = CUP:ARG:쾌C * (100 + TCVAR:ARG:커맨드C보정) / 100
CUP:ARG:쾌V = CUP:ARG:쾌V * (100 + TCVAR:ARG:커맨드V보정) / 100
CUP:ARG:쾌A = CUP:ARG:쾌A * (100 + TCVAR:ARG:커맨드A보정) / 100
CUP:ARG:쾌B = CUP:ARG:쾌B * (100 + TCVAR:ARG:커맨드B보정) / 100
CUP:ARG:쾌M = CUP:ARG:쾌M * (100 + TCVAR:ARG:커맨드M보정) / 100

;-------------------------------------------------
;난이도에 의한 상하의 처리(쾌락계)
;-------------------------------------------------
CUP:ARG:쾌C = CUP:ARG:쾌C * (16 - 4 * FLAG:4) / 10
CUP:ARG:쾌V = CUP:ARG:쾌V * (16 - 4 * FLAG:4) / 10
CUP:ARG:쾌A = CUP:ARG:쾌A * (16 - 4 * FLAG:4) / 10
CUP:ARG:쾌B = CUP:ARG:쾌B * (16 - 4 * FLAG:4) / 10
CUP:ARG:쾌M = CUP:ARG:쾌M * (16 - 4 * FLAG:4) / 10
;-------------------------------------------------
;애액 처리
;-------------------------------------------------
LOCAL:1 = CUP:ARG:쾌C + CUP:ARG:쾌V + CUP:ARG:쾌A + CUP:ARG:쾌B + CUP:ARG:쾌M
;쾌C＋쾌V＋쾌A＋쾌B가 합해 100이상 상승이라면 그20%의 액체의 소스가 더해진다(남자는 안 돼)
IF LOCAL:1 > 100
	;젖기 쉬우면 젖기 어려운은 여기서 처리
	LOCAL:1 = LOCAL:1 * (10 + 5 * TALENT:ARG:젖기쉬움) / 10
	SOURCE:ARG:액체 += LOCAL:1 / 5
ENDIF


code:
;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;소질등에 의한 소스 변동 처리
;ARG		캐릭터 NO
;-----------------------------------------------------------

@SOURCE_EXTRA(ARG)
VARSET LOCAL

IF FLAG:호감신뢰상승률 > 0 ;KR판 고유기능
	CUP:ARG:호의 = MIN(999999999, CUP:ARG:호의 * (1 + (FLAG:호감신뢰상승률 / 2)))
ENDIF

;-------------------------------------------------
;장비계(약등 )
;-------------------------------------------------
;발정
IF TCVAR:ARG:발정
	TIMES CUP:ARG:공순 , 1.50
	TIMES CUP:ARG:욕정 , 2.00
	TIMES CUP:ARG:굴복 , 1.50
	TIMES CUP:ARG:불쾌 , 0.70
;미약
ELSEIF TCVAR:ARG:미약
	TIMES CUP:ARG:공순 , 1.20
	TIMES CUP:ARG:욕정 , 1.50
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:불쾌 , 0.75
ENDIF

;이뇨제
IF TCVAR:ARG:이뇨제
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:치정 , 1.20
	TIMES CUP:ARG:반감 , 1.50
	TIMES CUP:ARG:불쾌 , 1.20
ENDIF

;만취
IF TCVAR:ARG:만취
	TIMES CUP:ARG:공순 , 0.30
	TIMES CUP:ARG:욕정 , 0.75
	TIMES CUP:ARG:굴복 , 0.50
	TIMES CUP:ARG:치정 , 0.30
	TIMES CUP:ARG:공포 , 0.30
	TIMES CUP:ARG:호의 , 0.30
	TIMES CUP:ARG:반감 , 0.50
	TIMES CUP:ARG:불쾌 , 1.50
	TIMES CUP:ARG:억울 , 0.30
ENDIF
;仙香玉兎・ガシングガーデンは相乗
IF IsInsenceValid(ARG) && IsGardenValid(ARG)
	TIMES CUP:ARG:공순 , 1.30
	TIMES CUP:ARG:욕정 , 1.50
	TIMES CUP:ARG:굴복 , 1.30
	TIMES CUP:ARG:치정 , 0.80
	TIMES CUP:ARG:호의 , 1.10
	TIMES CUP:ARG:반감 , 0.50
	TIMES CUP:ARG:불쾌 , 0.50
	TIMES CUP:ARG:고통 , 0.80
	TIMES CUP:ARG:억울 , 0.40
ELSEIF IsInsenceValid(ARG)
	TIMES CUP:ARG:공순 , 1.20
	TIMES CUP:ARG:욕정 , 1.40
	TIMES CUP:ARG:굴복 , 1.10
	TIMES CUP:ARG:호의 , 1.10
	TIMES CUP:ARG:반감 , 0.60
	TIMES CUP:ARG:불쾌 , 0.50
	TIMES CUP:ARG:억울 , 0.50
ELSEIF IsGardenValid(ARG)
	TIMES CUP:ARG:욕정 , 1.40
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:치정 , 0.80
	TIMES CUP:ARG:반감 , 0.70
	TIMES CUP:ARG:불쾌 , 0.60
	TIMES CUP:ARG:고통 , 0.80
	TIMES CUP:ARG:억울 , 0.60
ENDIF

;-------------------------------------------------
;상황계(수면등 )
;-------------------------------------------------
;수면중
IF CFLAG:ARG:수면
	TIMES CUP:ARG:공순 , 0.10
	TIMES CUP:ARG:욕정 , 0.30
	TIMES CUP:ARG:굴복 , 0.10
	TIMES CUP:ARG:치정 , 0.00
	TIMES CUP:ARG:공포 , 0.30
	TIMES CUP:ARG:호의 , 0.10
	TIMES CUP:ARG:반감 , 0.20
	TIMES CUP:ARG:불쾌 , 1.50
	TIMES CUP:ARG:고통 , 0.60
	TIMES CUP:ARG:억울 , 0.50
	TIMES CUP:ARG:습득 , 0.10
ENDIF
;권유 접수
SIF SELECTCOM == 22
	TIMES CUP:ARG:우월, 2.00
;-------------------------------------------------
;함락 소질
;-------------------------------------------------
;연모
IF TALENT:ARG:연모 && ASSIPLAY == 0
	CUP:ARG:공순 = CUP:ARG:공순 * (10 + 5 * TALENT:ARG:연모) / 10
	CUP:ARG:굴복 = CUP:ARG:굴복 * (10 + 5 * TALENT:ARG:연모) / 10
	SIF CUP:ARG:호의 < 999999999
	CUP:ARG:호의 = CUP:ARG:호의 * (10 + 5 * TALENT:ARG:연모) / 10
	CUP:ARG:반감 = CUP:ARG:반감 * (10 - 8 * TALENT:ARG:연모) / 10
	CUP:ARG:불쾌 = CUP:ARG:불쾌 * (10 - 8 * TALENT:ARG:연모) / 10
	TIMES CUP:ARG:억울 , 0.50
;애욕
ELSEIF TALENT:ARG:애욕
	CUP:ARG:공순 = CUP:ARG:공순 * (10 + 2 * TALENT:ARG:애욕) / 10
	CUP:ARG:굴복 = CUP:ARG:굴복 * (10 + 2 * TALENT:ARG:애욕) / 10
	CUP:ARG:반감 = CUP:ARG:반감 * (10 - 7 * TALENT:ARG:애욕) / 10
	CUP:ARG:불쾌 = CUP:ARG:불쾌 * (10 - 7 * TALENT:ARG:애욕) / 10
	TIMES CUP:ARG:억울 , 0.40
ENDIF
;사모
IF TALENT:ARG:사모 && ASSIPLAY == 0
	CUP:ARG:공순 = CUP:ARG:공순 * 11 / 10
	CUP:ARG:굴복 = CUP:ARG:굴복 * 11 / 10
	SIF CUP:ARG:호의 < 999999999
	CUP:ARG:호의 = CUP:ARG:호의 * 11 / 10
	CUP:ARG:반감 = CUP:ARG:반감 * 5 / 10
	CUP:ARG:불쾌 = CUP:ARG:불쾌 * 5 / 10
ENDIF
;음란
IF TALENT:ARG:음란
	CUP:ARG:공순 = CUP:ARG:공순 * (10 + 2 * TALENT:ARG:음란) / 10
	CUP:ARG:굴복 = CUP:ARG:굴복 * (10 + 2 * TALENT:ARG:음란) / 10
	CUP:ARG:반감 = CUP:ARG:반감 * (10 - 2 * TALENT:ARG:음란) / 10
	CUP:ARG:불쾌 = CUP:ARG:불쾌 * (10 - 2 * TALENT:ARG:음란) / 10
	TIMES CUP:ARG:억울 , 0.40
ENDIF
;-------------------------------------------------
;소질
;-------------------------------------------------
;다부짐
IF TALENT:ARG:담력 > 0
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:공포 , 0.80
	TIMES CUP:ARG:호의 , 0.80
	TIMES CUP:ARG:반감 , 1.20
	TIMES CUP:ARG:억울 , 1.20
ENDIF
;겁쟁이
IF TALENT:ARG:담력 < 0
	TIMES CUP:ARG:공포 , 1.20
	TIMES CUP:ARG:반감 , 1.20
ENDIF
;반항적(연모로 무효)
IF TALENT:ARG:태도 > 0 && !TALENT:ARG:연모
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:호의 , 0.80
	TIMES CUP:ARG:반감 , 1.20
ENDIF
;솔직함
IF TALENT:ARG:태도 < 0
	TIMES CUP:ARG:공순 , 1.20
	TIMES CUP:ARG:반감 , 0.80
	SIF CUP:ARG:호의 < 999999999
		TIMES CUP:ARG:호의 , 1.50
ENDIF
;거만함
IF TALENT:ARG:응답 > 0
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:반감 , 1.20
ENDIF
;얌전하다
IF TALENT:ARG:응답 < 0
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:반감 , 0.80
ENDIF
;자존심 높음
IF TALENT:ARG:자존심 > 0
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:공포 , 0.80
	TIMES CUP:ARG:반감 , 1.20
ENDIF
;자존심 낮음
IF TALENT:ARG:자존심 < 0
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:공포 , 1.20
	TIMES CUP:ARG:반감 , 0.80
ENDIF
;츤데레
IF TALENT:ARG:츤데레
	;함락 소질이 있는 경우와 없는 경우로 변화한다
	IF TALENT:ARG:연모 || TALENT:ARG:음란 || TALENT:ARG:복종
		TIMES CUP:ARG:공순 , 1.20
		TIMES CUP:ARG:굴복 , 1.20
		TIMES CUP:ARG:반감 , 0.80
	ELSE
		TIMES CUP:ARG:공순 , 0.80
		TIMES CUP:ARG:굴복 , 0.80
		TIMES CUP:ARG:반감 , 1.20
	ENDIF
ENDIF

;자제심
IF TALENT:ARG:자제심
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:공포 , 0.80
	TIMES CUP:ARG:반감 , 1.20
ENDIF
;무관심
IF TALENT:ARG:무관심
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:호의 , 0.80
	TIMES CUP:ARG:공포 , 0.80
	TIMES CUP:ARG:반감 , 0.80
ENDIF
;감정결여
IF TALENT:ARG:감정결여
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:치정 , 0.80
	TIMES CUP:ARG:공포 , 0.80
	TIMES CUP:ARG:호의 , 0.80
	TIMES CUP:ARG:반감 , 0.80
	TIMES CUP:ARG:불쾌 , 0.80
	TIMES CUP:ARG:억울 , 0.80
ENDIF
;분노
IF CFLAG:ARG:빡침
	TIMES CUP:ARG:공순 , 0.50
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:굴복 , 0.50
	TIMES CUP:ARG:치정 , 0.80
	TIMES CUP:ARG:호의 , 0.50
	TIMES CUP:ARG:반감 , 1.50
	TIMES CUP:ARG:불쾌 , 1.50
	TIMES CUP:ARG:억울 , 1.50
ENDIF
;호기심
SIF TALENT:ARG:성적흥미 > 0
	TIMES CUP:ARG:습득 , 1.20
;보수적
SIF TALENT:ARG:성적흥미 < 0
	TIMES CUP:ARG:습득 , 0.80
;낙관적
SIF TALENT:ARG:명랑／음침 > 0
	TIMES CUP:ARG:억울 , 0.80
;비관적
SIF TALENT:ARG:명랑／음침 < 0
	TIMES CUP:ARG:억울 , 1.20
;눈에띄고싶어함
SIF TALENT:ARG:눈에띄고싶어함
	TIMES CUP:ARG:공순 , 1.20

;억압
IF TALENT:ARG:자기애 < 0
	TIMES CUP:ARG:욕정 , 0.80
	TIMES CUP:ARG:반감 , 1.20
	TIMES CUP:ARG:억울 , 1.20
ENDIF
;해방
IF TALENT:ARG:자기애 > 0
	TIMES CUP:ARG:욕정 , 1.20
	TIMES CUP:ARG:굴복 , 1.20
ENDIF
;저항
IF TALENT:ARG:저항
	TIMES CUP:ARG:공순 , 0.80
	TIMES CUP:ARG:반감 , 1.20
	TIMES CUP:ARG:억울 , 1.20
ENDIF

;통각
CUP:ARG:고통 = CUP:ARG:고통 * (10 + 2 * TALENT:ARG:통각) / 10

;습득속도
CUP:ARG:습득 = CUP:ARG:습득 * (10 + 2 * TALENT:ARG:습득속도) / 10

;헌신적
SIF TALENT:ARG:헌신적
	TIMES CUP:ARG:굴복 , 1.20

;쾌감에 솔직
SIF TALENT:ARG:쾌감응답 > 0
	TIMES CUP:ARG:욕정 , 1.20
;쾌감에 부정(음란, 창부로 무효)
SIF TALENT:ARG:쾌감응답 < 0 && !TALENT:ARG:음란
	TIMES CUP:ARG:욕정 , 0.80
;즉각함락
IF TALENT:ARG:즉각함락
	TIMES CUP:ARG:공순 , 2.00
	TIMES CUP:ARG:욕정 , 2.00
	TIMES CUP:ARG:굴복 , 2.00
	TIMES CUP:ARG:습득 , 2.00
	TIMES CUP:ARG:치정 , 2.00
	TIMES CUP:ARG:공포 , 2.00
	TIMES CUP:ARG:반감 , 0.50
	TIMES CUP:ARG:불쾌 , 0.50
	TIMES CUP:ARG:억울 , 0.50
ENDIF
;자위중독
SIF TALENT:ARG:자위중독
	TIMES CUP:ARG:욕정 , 1.20
;음호
SIF TALENT:ARG:음호
	TIMES CUP:ARG:공순 , 1.20
;항문광
SIF TALENT:ARG:항문광
	TIMES CUP:ARG:굴복 , 1.20
;음유
SIF TALENT:ARG:음유
	TIMES CUP:ARG:치정 , 1.20

SIF TALENT:ARG:키스마
	TIMES CUP:ARG:호의 , 1.10
;도착적
IF TALENT:ARG:도착적
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:치정 , 1.20
ENDIF
;걸레
IF TALENT:ARG:걸레
	TIMES CUP:ARG:욕정 , 1.20
	SIF CFLAG:ARG:우후후
		TIMES CUP:ARG:반감 , 0.25
ENDIF
;남성기피
IF OTOKOGIRAI(ARG)
	TIMES CUP:ARG:공순 , 0.70
	TIMES CUP:ARG:욕정 , 0.70
	TIMES CUP:ARG:굴복 , 0.70
	TIMES CUP:ARG:습득 , 0.70
	TIMES CUP:ARG:반감 , 1.30
	TIMES CUP:ARG:불쾌 , 1.30
	TIMES CUP:ARG:공포 , 1.30
ENDIF
;새드
IF TALENT:ARG:새드
	TIMES CUP:ARG:우월 , 2.00
	TIMES CUP:ARG:굴복 , 0.80
	TIMES CUP:ARG:공포 , 0.80
ENDIF
;마조
IF TALENT:ARG:마조
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:공포 , 1.20
	TIMES CUP:ARG:억울 , 0.80
ENDIF
IF TALENT:ARG:소악마
	TIMES CUP:ARG:우월 , 1.50
ENDIF
;망신
IF TALENT:ARG:망신
	TIMES CUP:ARG:굴복 , 1.20
	TIMES CUP:ARG:반감 , 0.80
ENDIF

;-------------------------------------------------
;그 외
;-------------------------------------------------
;고통각인
IF MARK:ARG:고통각인 == 3
	TIMES CUP:ARG:고통 , 1.30
	TIMES CUP:ARG:공포 , 1.30
ELSEIF MARK:ARG:고통각인 == 2
	TIMES CUP:ARG:고통 , 1.20
	TIMES CUP:ARG:공포 , 1.20
ELSEIF MARK:ARG:고통각인 == 1
	TIMES CUP:ARG:고통 , 1.10
	TIMES CUP:ARG:공포 , 1.10
ENDIF

;쾌락각인
IF MARK:ARG:쾌락각인 < MARK:ARG:시간각인
	SELECTCASE MARK:ARG:시간각인
		CASE 3
			TIMES CUP:ARG:욕정 , 1.30
			TIMES CUP:ARG:습득 , 1.30
		CASE 2
			TIMES CUP:ARG:욕정 , 1.20
			TIMES CUP:ARG:습득 , 1.20
		CASE 1
			TIMES CUP:ARG:욕정 , 1.10
			TIMES CUP:ARG:습득 , 1.10
	ENDSELECT
ELSE
	IF MARK:ARG:쾌락각인 == 3
		TIMES CUP:ARG:욕정 , 1.35
		TIMES CUP:ARG:습득 , 1.35
	ELSEIF MARK:ARG:쾌락각인 == 2
		TIMES CUP:ARG:욕정 , 1.25
		TIMES CUP:ARG:습득 , 1.25
	ELSEIF MARK:ARG:쾌락각인 == 1
		TIMES CUP:ARG:욕정 , 1.15
		TIMES CUP:ARG:습득 , 1.15
	ENDIF
ENDIF

;괘씸각인
IF MARK:ARG:괘씸각인 < MARK:ARG:시간각인
	SELECTCASE MARK:ARG:시간각인
		CASE 3
			TIMES CUP:ARG:공순 , 1.30
			TIMES CUP:ARG:굴복 , 1.30
			TIMES CUP:ARG:반감 , 0.50
		CASE 2
			TIMES CUP:ARG:공순 , 1.20
			TIMES CUP:ARG:굴복 , 1.20
			TIMES CUP:ARG:반감 , 0.70
		CASE 1
			TIMES CUP:ARG:공순 , 1.10
			TIMES CUP:ARG:굴복 , 1.10
			TIMES CUP:ARG:반감 , 0.90
	ENDSELECT
ELSE
	IF MARK:ARG:괘씸각인 == 3
		TIMES CUP:ARG:공순 , 1.35
		TIMES CUP:ARG:굴복 , 1.35
		TIMES CUP:ARG:반감 , 0.40
		TIMES CUP:ARG:호의, 1.30
	ELSEIF MARK:ARG:괘씸각인 == 2
		TIMES CUP:ARG:공순 , 1.25
		TIMES CUP:ARG:굴복 , 1.25
		TIMES CUP:ARG:반감 , 0.60
		TIMES CUP:ARG:호의, 1.20
	ELSEIF MARK:ARG:괘씸각인 == 1
		TIMES CUP:ARG:공순 , 1.15
		TIMES CUP:ARG:굴복 , 1.15
		TIMES CUP:ARG:반감 , 0.75
		TIMES CUP:ARG:호의, 1.10
	ENDIF
ENDIF

;반발각인
IF MARK:ARG:반발각인 == 3
	TIMES CUP:ARG:공순 , 0.10
	TIMES CUP:ARG:반감 , 3.00
	TIMES CUP:ARG:호의, 0.20
ELSEIF MARK:ARG:반발각인 == 2
	TIMES CUP:ARG:공순 , 0.40
	TIMES CUP:ARG:반감 , 2.00
	TIMES CUP:ARG:호의, 0.50
ELSEIF MARK:ARG:반발각인 == 1
	TIMES CUP:ARG:공순 , 0.75
	TIMES CUP:ARG:반감 , 1.50
	TIMES CUP:ARG:호의, 0.80
ENDIF

;-------------------------------------------------
;궁합에 의한 상하의 처리
;-------------------------------------------------
R = NO:PLAYER
IF RELATION:ARG:R != 0
	CUP:ARG:욕정 *= RELATION:ARG:R
	CUP:ARG:욕정 /= 100
	CUP:ARG:굴복 *= RELATION:ARG:R
	CUP:ARG:굴복 /= 100
	CUP:ARG:치정 *= RELATION:ARG:R
	CUP:ARG:치정 /= 100
	CUP:ARG:반감 *= 100
	CUP:ARG:반감 /= RELATION:ARG:R
	CUP:ARG:불쾌 *= 100
	CUP:ARG:불쾌 /= RELATION:ARG:R
	CUP:ARG:억울 *= 100
	CUP:ARG:억울 /= RELATION:ARG:R
ENDIF

;-------------------------------------------------
;기력 0에 의한 상하의 처리
;-------------------------------------------------
IF BASE:ARG:기력 <= 0
	;UP:0, 1,2는 절정에 관련되므로 먼저 처리되어 있다
	CUP:ARG:욕정 /= 2
	CUP:ARG:공순 /= 2
	CUP:ARG:굴복 /= 2
	CUP:ARG:습득 /= 2
	CUP:ARG:치정 /= 2
	CUP:ARG:공포 /= 2
	CUP:ARG:고통 /= 2
	IF !FLAG:70 && !CFLAG:장난
		DOWNBASE:ARG:체력 *= 2
		SIF ARG == TARGET
			DOWNBASE:ARG:체력 += 80
	ENDIF
ENDIF
;-------------------------------------------------
;상대 주도
;-------------------------------------------------
IF ARG != MASTER && CFLAG:ARG:우후후 == 2
	BASE:MASTER:체력 -= (DOWNBASE:ARG:체력 / 3) * 2
	BASE:MASTER:기력 -= (DOWNBASE:ARG:기력 / 3) * 2
	DOWNBASE:ARG:체력 = DOWNBASE:ARG:체력 / 3
	DOWNBASE:ARG:기력 = DOWNBASE:ARG:기력 / 3
ENDIF
;-------------------------------------------------
;마음대로해
;-------------------------------------------------
IF TCVAR:ARG:마음대로해
	TIMES CUP:ARG:공순 , 0.10
	TIMES CUP:ARG:굴복 , 0.10
	TIMES CUP:ARG:치정 , 0.50
	TIMES CUP:ARG:우월 , 1.50
	EXP:ARG:가학쾌락경험 ++
	DOWNBASE:MASTER:체력 += ABL:ARG:새드끼 * 5 + 10
	DOWNBASE:MASTER:기력 += ABL:ARG:새드끼 * 5 + 20
ENDIF
;-------------------------------------------------
;고통으로부터 오는 체력·기력의 감소
;-------------------------------------------------
LOCAL = CUP:ARG:고통 / 20
;ABL:마조끼를 본다
SELECTCASE ABL:ARG:마조끼
	CASE 0
		TIMES LOCAL , 1.00
	CASE 1
		TIMES LOCAL , 0.95
	CASE 2
		TIMES LOCAL , 0.90
	CASE 3
		TIMES LOCAL , 0.80
	CASE 4
		TIMES LOCAL , 0.65
	CASEELSE
		TIMES LOCAL , 0.50
ENDSELECT
;통각
LOCAL = LOCAL * (10 + TALENT:ARG:통각 * 2) / 10

DOWNBASE:ARG:체력 += LOCAL
DOWNBASE:ARG:기력 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1.00
;체력, 기력의 감소 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_DOWNBASE(ARG)
#DIM 술기운감소
IF ARG != NO:MASTER && TALENT:ARG:연인 && CFLAG:ARG:우후후
	DOWNBASE:ARG:체력 = (DOWNBASE:ARG:체력 / 10) * 7
	DOWNBASE:ARG:기력 = (DOWNBASE:ARG:기력 / 10) * 8
ENDIF

BASE:ARG:체력 = LIMIT(BASE:ARG:체력 - DOWNBASE:ARG:체력,0,MAXBASE:ARG:체력)
BASE:ARG:기력 = LIMIT(BASE:ARG:기력 - DOWNBASE:ARG:기력,0,MAXBASE:ARG:기력)
술기운감소 = 0
IF TCVAR:ARG:만취 && CFLAG:ARG:우후후 && !FLAG:70
	술기운감소 = DOWNBASE:ARG:체력 / 2 + DOWNBASE:ARG:기력 / 4
	술기운감소 = 술기운감소 * (5 + TALENT:ARG:술내성) / 5
	BASE:ARG:술기운 = MAX(0,BASE:ARG:술기운 - 술기운감소)
ENDIF
CALL ADD_TIRED(ARG, 12 * CULC_TIRED(DOWNBASE:ARG:체력) + 8 * CULC_TIRED(DOWNBASE:ARG:기력))


code:
;────────────────────────────────────
;애무, 성교등의 계속, 해제, 처리
;────────────────────────────────────
@SHOW_TOUCH
;(1=페니스2=클리토리스 3=지 4=구 5=흉 6=질 7=애널 8=다리)
FOR LOCAL, 1, GET_TARGETNUM() + 1
	SIF TARGET:LOCAL <= 0
		CONTINUE
	SELECTCASE TEQUIP:(TARGET:LOCAL):P접촉부위
		CASE 3
			PRINT 수음한다
		CASE 4
			PRINT 펠라한다
		CASE 6
			PRINT 역강간
		CASE 7
			PRINT 역애널
		CASE 8
			PRINT 풋잡한다
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):C접촉부위
		CASE 1
			PRINT 가랑이
		CASE 3
			PRINT 클리애무
		CASE 4
			PRINT 쿠니
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):손가락접촉부위
		CASE 1
			PRINT 수음
		CASE 5
			PRINT 가슴주무르기
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):입접촉부위
		CASE 1
			PRINT 펠라
		CASE 2
			PRINT 쿠니 시킨다
		CASE 4
			PRINT 키스
		CASE 7
			PRINT 애널 봉사
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):B접촉부위
		CASE 1
			PRINT 파이즈리
		CASE 3
			PRINT 가슴애무
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):V접촉부위
		CASE 1
			PRINT 성교
		CASE 3
			PRINT 손가락삽입
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):A접촉부위
		CASE 1
			PRINT 애널 섹스
		CASE 3
			PRINT 애널애무
		CASE 4
			PRINT 애널빨기
	ENDSELECT
	SELECTCASE TEQUIP:(TARGET:LOCAL):다리접촉부위
		CASE 1
			PRINT 풋잡
	ENDSELECT
	PRINTFORML (%CALLNAME:(TARGET:LOCAL)%)
NEXT
PRINTL

@TOUCH_SUCCESSION(ARG)
VARSET LOCAL
SELECTCASE SELECTCOM
	;애무손가락과 입을 리셋
	CASE 0
		CALL TOUCH_RESET_M(SET_YUBI)
		SIF !TEQUIP:ARG:계속키스
			CALL TOUCH_RESET_M(SET_M)
		;본래는 2개소 동시이지만, 시스템적으로는 한 개소 밖에 무리예요로, 고육지책
		IF !RAND:2
			CALL TOUCH_SET(SET_FROM_C,SET_YUBI,ARG)
		ELSE
			CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
		ENDIF
	;쿠니 성교 해제해 대상의 C에 입을 세트
	CASE 1
		CALL 삽입해제(ARG)
		CALL TOUCH_RESET_M(SET_YUBI)
		IF GETBIT(TALENT:ARG:성별,1)
			CALL TOUCH_SET(SET_FROM_P,SET_M,ARG)
		ELSE
			CALL TOUCH_SET(SET_FROM_C,SET_M,ARG)
		ENDIF
	;펠라하는 성교 해제해 대상의 C에 입을 세트
	CASE 2
		;성교 해제
		CALL 삽입해제(ARG)
		CALL TOUCH_SET(SET_FROM_P,SET_M,ARG)
	;지삽
	CASE 3
		IF TEQUIP:ARG:바이브
		;손가락 리셋
			CALL TOUCH_RESET_M(SET_YUBI)
		ELSE
			;손가락을 대상의 V에 세트
			CALL TOUCH_SET(SET_FROM_V,SET_YUBI,ARG)
		ENDIF
	;애널빨기
	CASE 4
		;성교 해제해 입을 대상의 A에 세트
		CALL 삽입해제(ARG)
		CALL TOUCH_RESET_M(SET_YUBI)
		CALL TOUCH_SET(SET_FROM_A,SET_M,ARG)
	;애널애무
	CASE 5
		IF TEQUIP:ARG:애널바이브 || TEQUIP:ARG:애널비즈 || TEQUIP:ARG:관장
			;손가락 리셋
			CALL TOUCH_RESET_M(SET_YUBI)
		ELSE
			CALL TOUCH_SET(SET_FROM_A,SET_YUBI,ARG)
		ENDIF
	;가슴애무
	CASE 6
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
	;유두고문
	CASE 7
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
	;음부개장
	CASE 8
		IF TEQUIP:ARG:A접촉부위 == 1 && TEQUIP:ARG:체위 == 2
			TEQUIP:ARG:체위 = 1
		ELSEIF TEQUIP:ARG:A접촉부위 == 1 && TEQUIP:ARG:체위 == 5
			TEQUIP:ARG:체위 = 4
		ELSEIF TEQUIP:ARG:A접촉부위 != 1
			CALL TOUCH_RESET_T(ARG)
		ENDIF
	;자위
	CASE 9
	;유두빨기
	CASE 10
		CALL TOUCH_SET(SET_FROM_B,SET_M,ARG)
;--------------------------------------
	CASE 11
		CALL TOUCH_SET(SET_FROM_B,SET_M,ARG)
;--------------------------------------
	;가슴주무르기
	CASE 12
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
	;애널개장
	CASE 13
		IF TEQUIP:ARG:V접촉부위 == 1 && TEQUIP:ARG:체위 == 1
			TEQUIP:ARG:체위 = 2
		ELSEIF TEQUIP:ARG:V접촉부위 == 1 && TEQUIP:ARG:체위 == 4
			TEQUIP:ARG:체위 = 5
		ELSEIF TEQUIP:ARG:V접촉부위 != 1
			CALL TOUCH_RESET_T(ARG)
		ENDIF
	;클리애무
	CASE 15
		;指を対象のＣにセット
		CALL TOUCH_SET(SET_FROM_C,SET_YUBI,ARG)
	;키스한다
	CASE 19,20
		CALL TOUCH_SET(SET_FROM_M,SET_M,ARG)
	;아무것도하지않는다
	CASE 21
	;권유 접수
	CASE 22
	;로터
	CASE 40
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:P접촉부위 = 0
	;E마사지기
	CASE 41
		CALL TOUCH_SET(0,0,0, SET_P)
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:P접촉부위 = 0
	;클리캡
	CASE 42
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:P접촉부위 = 0
	;오나홀
	CASE 43
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:P접촉부위 = 0
	;바이브
	CASE 44
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:V접촉부위 = 0
	;애널바이브
	CASE 45
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:A접촉부위 = 0
	;애널비즈
	CASE 46
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:A접촉부위 = 0
	;유두캡
	CASE 47
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:B접촉부위 = 0
	;착유기
	CASE 48
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:B접촉부위 = 0
	;유두로터
	CASE 49
		CALL TOUCH_RESET_M(SET_YUBI)
	;정상위
	CASE 60
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 1
	;후배위
	CASE 61
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 2
	;정상위애널
	CASE 62
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 1
	;후배위애널
	CASE 63, 323
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 2
	;역강간
	CASE 64
		CALL TOUCH_SET(SET_FROM_P,SET_V,ARG,1)
		TEQUIP:ARG:체위 = 3
	;기승위
	CASE 65
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 3
	;기승위애널
	CASE 66
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 3
	;대면좌위
	CASE 67
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 4
	;후배위
	CASE 68
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
		TEQUIP:ARG:체위 = 5
	;대면좌위애널
	CASE 69
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 4
	;후배위애널
	CASE 70
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
		TEQUIP:ARG:체위 = 5
	;양구멍삽입
	CASE 71
		IF TEQUIP:ARG:V접촉부위 == 1
			TEQUIP:ARG:A접촉부위 = 0
		ELSEIF TEQUIP:ARG:A접촉부위 == 1
			TEQUIP:ARG:V접촉부위 = 0
		ENDIF
	;삽입G스폿고문
	CASE 72
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG)
	;삽입 자궁
	CASE 73
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG)
	;S장결장고문
	CASE 74
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG)
	;AG스포
	CASE 75
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG)
	;난쟁이오나홀
	CASE 79
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 6
	;수음
	CASE 80
		CALL TOUCH_SET(SET_FROM_YUBI,SET_P,ARG)
	;펠라치오
	CASE 81
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_M,SET_P,ARG)
	;파이즈리
	CASE 82
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_B,SET_P,ARG)
	;가랑이
	CASE 83
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_C,SET_P,ARG)
	;거품춤
	CASE 84
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(0,0,0,1)
	;足コキ
	CASE 85
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_LEG,SET_P,ARG)
	;진공펠라
	CASE 88
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_M,SET_P,ARG)
	;애널애무된다
	CASE 90
		CALL TOUCH_SET(SET_FROM_YUBI,SET_A,ARG)
	;애널빨기된다
	CASE 91
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_M,SET_A,ARG)
	;A정상위된다
	CASE 92
		CALL TOUCH_SET(SET_FROM_P,SET_A,ARG)
		TEQUIP:MASTER:체위 = 1
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:V접촉부위 = 0
	;A후배위된다
	CASE 93
		CALL TOUCH_SET(SET_FROM_P,SET_A,ARG)
		TEQUIP:MASTER:체위 = 2
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:V접촉부위 = 0
	;A기승위한다
	CASE 94
		CALL TOUCH_SET(SET_FROM_P,SET_A,ARG)
		TEQUIP:MASTER:체위 = 3
		TEQUIP:ARG:C접촉부위 = 0
		TEQUIP:ARG:V접촉부위 = 0
	;스팬킹
	CASE 100
		CALL TOUCH_RESET_M(SET_YUBI)
	;편
	CASE 101
		CALL TOUCH_RESET_M(SET_YUBI)
	;초
	CASE 102
		CALL TOUCH_RESET_M(SET_YUBI)
	;침
	CASE 103
		CALL TOUCH_RESET_M(SET_YUBI)
	;눈가리개
	CASE 104
		CALL TOUCH_RESET_M(SET_YUBI)
	;젖스팬킹
	CASE 108
		CALL TOUCH_RESET_M(SET_YUBI)
	;커닐링구스강제
	CASE 120
		CALL TOUCH_SET(SET_FROM_M,SET_C,ARG)
	;짝맞추기놀이
	CASE 121
		CALL TOUCH_SET(SET_FROM_C,SET_C,ARG)
	;수음한다
	CASE 124
		CALL TOUCH_SET(SET_FROM_P,SET_YUBI,ARG)
	;애무시킨다
	CASE 125
		TEQUIP:ARG:손가락접촉부위 = 0
		TEQUIP:ARG:입접촉부위 = 0
	;젖치기
	CASE 126
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:ARG:손가락접촉부위 = 0
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
		CALL TOUCH_SET(SET_FROM_YUBI,5,ARG)
	;正常位받는다
	CASE 130
		CALL TOUCH_SET(SET_FROM_P,SET_V,ARG,1)
		TEQUIP:MASTER:체위 = 1
	;後背位받는다
	CASE 131
		CALL TOUCH_SET(SET_FROM_P,SET_V,ARG,1)
		TEQUIP:MASTER:체위 = 2
	;対面座位받는다
	CASE 132
		CALL TOUCH_SET(SET_FROM_P,SET_V,ARG,1)
		TEQUIP:MASTER:체위 = 4
	;背面座位받는다
	CASE 133
		CALL TOUCH_SET(SET_FROM_P,SET_V,ARG,1)
		TEQUIP:MASTER:체위 = 5
	;이라마치오
	CASE 140
		CALL TOUCH_SET(SET_FROM_M,SET_P,ARG)
	;피스트성교
	CASE 141
		CALL TOUCH_SET(SET_FROM_V,SET_YUBI,ARG)
	;애널피스트
	CASE 142
		CALL TOUCH_SET(SET_FROM_A,SET_YUBI,ARG)
	;양아나운서 피스트
	CASE 143
		TEQUIP:MASTER:V접촉부위 = 3
		TEQUIP:MASTER:A접촉부위 = 3
	;애널 봉사
	CASE 145
		CALL TOUCH_SET(SET_FROM_M,SET_A,ARG)
	;관장
	CASE 146
		CALL TOUCH_RESET_M(SET_YUBI)
	;확장벌룬
	CASE 147
		CALL TOUCH_RESET_M(SET_YUBI)
	;애널전극
	CASE 148
		CALL TOUCH_RESET_M(SET_YUBI)
		CALL TOUCH_SET(SET_FROM_A,1,ARG)
	;젖을 잡는다
	CASE 149
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
	;가슴의 골짜기를 범한다
	CASE 150
		CALL TOUCH_SET(SET_FROM_B,SET_P,ARG)

	;일상 성희롱
	;키스한다
	CASE 312
		CALL TOUCH_SET(SET_FROM_M,SET_M,ARG)
	;가슴애무
	CASE 313
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,ARG)
	;애널애무
	CASE 314
		CALL TOUCH_SET(SET_FROM_A,SET_YUBI,ARG)
	;구리 애무
	CASE 315
		IF GETBIT(TALENT:ARG:성별,1)
			CALL TOUCH_SET(SET_FROM_P,SET_YUBI,ARG)
		ELSE
			CALL TOUCH_SET(SET_FROM_C,SET_YUBI,ARG)
		ENDIF
	;지삽
	CASE 316
		CALL TOUCH_SET(SET_FROM_V,SET_YUBI,ARG)

	;상대주도정상위
	CASE 320
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 1
	;상대주도후배위
	CASE 322
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_V,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 2
	;상대주도후배위A
	CASE 323
		IF TEQUIP:ARG:P접촉부위 == 6 || TEQUIP:ARG:P접촉부위 == 7
			CALL 삽입해제(ARG)
		ENDIF
		CALL TOUCH_SET(SET_FROM_A,SET_P,ARG,1)
		TEQUIP:ARG:체위 = 2

	;애무(위)
	CASE 700
		CALL TOUCH_RESET_M(SET_YUBI)
	;셀프 펠라(위)
	CASE 702
		TEQUIP:MASTER:입접촉부위 = 1
		TEQUIP:MASTER:P접촉부위 = 4
	;지삽(위)
	CASE 703
		IF TEQUIP:ARG:바이브
		;손가락 리셋
			CALL TOUCH_RESET_M(SET_YUBI)
		ELSE
			;손가락을 대상의 V에 세트
			CALL TOUCH_SET(SET_FROM_V,SET_YUBI,MASTER)
		ENDIF
	;애널애무(위)
	CASE 705
		IF TEQUIP:ARG:애널바이브 || TEQUIP:ARG:애널비즈 || TEQUIP:ARG:관장
			;손가락 리셋
			CALL TOUCH_RESET_M(SET_YUBI)
		ELSE
			CALL TOUCH_SET(SET_FROM_A,SET_YUBI,MASTER)
		ENDIF
	;가슴애무(위)
	CASE 706
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,MASTER)
	;유두 꾸짖고(위)
	CASE 707
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,MASTER)
	;음부개장(위)
	CASE 708
		CALL TOUCH_RESET_T(MASTER)
	;수음(위)
	CASE 709
		CALL TOUCH_SET(SET_FROM_P,SET_YUBI,MASTER)
	;가슴주무르기(위)
	CASE 712
		CALL TOUCH_SET(SET_FROM_B,SET_YUBI,MASTER)
	;애널개장(위)
	CASE 713
		CALL TOUCH_RESET_T(MASTER)
	;로터(위)
	CASE 740
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:C접촉부위 = 0
		TEQUIP:MASTER:P접촉부위 = 0
	;E마사지기(위)
	CASE 741
		CALL TOUCH_SET(0,0,0,1)
		TEQUIP:MASTER:C접촉부위 = 0
		TEQUIP:MASTER:P접촉부위 = 0
	;클리캡(위)
	CASE 742
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:C접촉부위 = 0
		TEQUIP:MASTER:P접촉부위 = 0
	;오나홀(위)
	CASE 743
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:C접촉부위 = 0
		TEQUIP:MASTER:P접촉부위 = 0
	;바이브(위)
	CASE 744
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:V접촉부위 = 0
	;애널바이브(위)
	CASE 745
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:A접촉부위 = 0
	;애널비즈(위)
	CASE 746
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:A접촉부위 = 0
	;유두캡(위)
	CASE 747
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:B접촉부위 = 0
	;착유기(위)
	CASE 748
		CALL TOUCH_RESET_M(SET_YUBI)
		TEQUIP:MASTER:B접촉부위 = 0
	;유두로터(위)
	CASE 749

	CASE IS < 200
		CALL TOUCH_SET(0,0,0,1)
	CASE IS > 500
		CALL TOUCH_SET(0,0,0,1)
	;청소
	CASE 410
		CALL TOUCH_SET(0,0,0,1)
ENDSELECT

;MASTER와 TARGET의 접촉부위를 설정한다
@TOUCH_SET(ARG,ARG:1,ARG:2,ARG:3)
;ARG TARGET의 접촉부위(101=페니스 102=클리토리스 103=지 104=구 105=흉 106=질 107=애널 108=다리)
;ARG:1 MASTER의 접촉부위(1=페니스2=클리토리스 3=지 4=구 5=흉 6=질 7=애널 8=다리)
;ARG:2 대상의 캐릭터 번호
;ARG:3 진이라면 리셋 한다
VARSET LOCAL

IF ARG:3
	FOR LOCAL,1,CHARANUM
		FOR LOCAL:1,1,9
		;COM60~70의 경우, 입은 리셋 하지 않는다
			SIF LOCAL == ARG:2 && LOCAL:1 == 4 && TFLAG:3 >= 60 && TFLAG:3 <= 70
				CONTINUE
			TEQUIP:LOCAL:(100 + LOCAL:1) = 0
		NEXT
		;내친 김에 체위도 리셋
		TEQUIP:LOCAL:체위 = 0
	NEXT
ENDIF
SIF ARG <= 100
	RETURN 0
FOR LOCAL,1,CHARANUM
	FOR LOCAL:1,1,9
		SIF TEQUIP:LOCAL:(100 + LOCAL:1) == ARG:1
			TEQUIP:LOCAL:(100 + LOCAL:1) = 0
	NEXT
NEXT
TEQUIP:(ARG:2):ARG = ARG:1
;계속계 커맨드를 해제

IF MASTER_POSE(SET_M,SET_M) != ARG:2 && TEQUIP:(ARG:2):계속키스 && SELECTCOM != 0
	FOR LOCAL,1,CHARANUM
		TEQUIP:LOCAL:계속키스 = 0
	NEXT
	PRINTL ＜키스 해제＞
ENDIF

IF MASTER_POSE(SET_B,SET_YUBI) != ARG:2 && TEQUIP:(ARG:2):가슴주무르기
	FOR LOCAL,1,CHARANUM
		TEQUIP:LOCAL:가슴주무르기 = 0
	NEXT
	PRINTL ＜가슴주무르기 해제＞
ENDIF

IF MASTER_POSE(SET_B,SET_M) != ARG:2 && TEQUIP:(ARG:2):유두빨기 && SELECTCOM != 6 && SELECTCOM != 12
	FOR LOCAL,1,CHARANUM
		TEQUIP:LOCAL:유두빨기 = 0
	NEXT
	PRINTL ＜유두빨기 해제＞
ENDIF

;MASTER의 접촉부위를 리셋 한다
@TOUCH_RESET_M(ARG)
;ARG MASTER의 접촉부위(1=페니스2=클리토리스 3=지 4=구 5=흉 6=질 7=애널 8=다리)
FOR LOCAL, 1, GET_TARGETNUM() + 1
	SIF TARGET:LOCAL <= 0
		CONTINUE
	FOR LOCAL:1,1,9
		SIF TEQUIP:(TARGET:LOCAL):(100 + LOCAL:1) == ARG
				TEQUIP:(TARGET:LOCAL):(100 + LOCAL:1) = 0
	NEXT
NEXT

;TARGET의 접촉부위를 리셋 한다
@TOUCH_RESET_T(ARG)
FOR LOCAL,1,9
	TEQUIP:ARG:(100 + LOCAL) = 0
NEXT

@MASTER_POSE(ARG,ARG:1,ARG:2)
;ARG MASTER의 부위를 점유중의 TARGET:X의 부위(1=페니스2=클리토리스 3=지 4=구 5=흉 6=질 7=애널 8=다리)
;ARG 0이라면 누가 점유 하고 있을까 돌려준다
;ARG:1 MASTER의 부위(1=페니스2=클리토리스 3=지 4=구 5=흉 6=질 7=애널 8=다리)
;ARG:2 진이라면 전턴의 이력을 본다
;반환값 MASTER의 부위를 점유중의 TARGET:X가 있다면 그 캐릭터 번호를 돌려준다
;MASTER_POSE(SET_M, SET_P, 1)라면 전턴( 제3 인수)에 누군가가 MASTER의 페니스( 제2 인수)를 입( 제1 인수)으로 점유 하고 있었을 경우, 그 캐릭터 번호를 돌려준다
;ARG로 MASTER의 ARG:1에 접하고 있는 캐릭터를 돌려준다는 것
#FUNCTION
VARSET LOCAL
IF !ARG
	FOR LOCAL,1,CHARANUM
		SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
			CONTINUE
		FOR LOCAL:1,1,9
			SIF TEQUIP:LOCAL:(100 + LOCAL:1) == ARG:1
				RETURNF LOCAL
		NEXT
	NEXT
ENDIF
ARG:2 = ARG:2 ? 1 # 0
FOR LOCAL, 1, GET_TARGETNUM() + 1
	SIF TARGET:LOCAL <= 0
		CONTINUE
	SIF TEQUIP:(TARGET:LOCAL):(100 + ARG + 10 * ARG:2) == ARG:1
		RETURNF TARGET:LOCAL
NEXT

@삽입해제(ARG)
SIF TEQUIP:ARG:V접촉부위 == 1
	TEQUIP:ARG:V접촉부위 = 0
SIF TEQUIP:ARG:A접촉부위 == 1
	TEQUIP:ARG:A접촉부위 = 0
TEQUIP:ARG:C접촉부위 = 0
TEQUIP:ARG:P접촉부위 = 0
TEQUIP:ARG:입접촉부위 = 0
TEQUIP:ARG:V섹스 = -1
TEQUIP:ARG:A섹스 = -1
TEQUIP:ARG:체위 = 0