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

@SOURCE_EXTRA(ARG)
VARSET LOCAL

IF FLAG:호감신뢰상승률 > 0
	CUP:ARG:호의 = MIN(999999999, CUP:ARG:호의 * (1 + (FLAG:호감신뢰상승률 / 2)))
ENDIF

;-------------------------------------------------
;장비계(약등 )
;-------------------------------------------------
;미약
IF 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:복종 , 1.50
	TIMES CUP:ARG:욕정 , 2.00
	TIMES CUP:ARG:굴복 , 1.50
	TIMES CUP:ARG:불쾌 , 0.70
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 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 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 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 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

repo_name: purugi/eraTWKR

license: mit


code:
@SOURCE_CHECK
#DIM 키스마크반감
#DIM 욕구불만도상승
#DIM 경험증가량
#DIM 체위보존
#DIM V섹스보존
#DIM 중독보정
VARSET LOCAL
SELECTCOM = TFLAG:3
중독보정 = 0
;조교 SELECTCOM의 시간경과
CALL TRACHECK_TIME

;-------------------------------------------------
;몸 접촉의 계속, 해제
;-------------------------------------------------
CALL TOUCH_SUCCESSION(TARGET)

;-------------------------------------------------
;TRYCALLFORM TOUCH_SUCCESSION_{SELECTCOM}(TARGET)
;TOUCH_SUCCESSION로 가고 있는 처리를 각 커맨드 파일에 분산시키는 것으로, 커맨드 추가를 손쉽게 하고 싶다
;-------------------------------------------------

IF !카운터우타즈커맨드(SELECTCOM)
	;카운터
	FOR LOCAL, 1, GET_TARGETNUM() + 1
		SIF TARGET:LOCAL <= 0
			CONTINUE
		CALL EVENT_COUNTER(TARGET:LOCAL, LOCAL)
		CALL EVENT_COUNTER_SOURCE(TARGET:LOCAL, LOCAL)
	NEXT
	;CALL EVENT_COUNTER_COMBINATION
ENDIF
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
		CONTINUE
	;성교 플래그의 설정
	IF TEQUIP:LOCAL:V접촉부위 == 1
		TEQUIP:LOCAL:50 = MASTER
	ELSE
		TEQUIP:LOCAL:50 = -1
	ENDIF
	IF TEQUIP:LOCAL:A접촉부위 == 1
		TEQUIP:LOCAL:51 = MASTER
	ELSE
		TEQUIP:LOCAL:51 = -1
	ENDIF
	IF TEQUIP:LOCAL:P접촉부위 == 6
		TEQUIP:PLAYER:50 = LOCAL
	ELSE
		TEQUIP:PLAYER:50 = -1
	ENDIF
	IF TEQUIP:LOCAL:P접촉부위 == 7
		TEQUIP:PLAYER:51 = LOCAL
	ELSE
		TEQUIP:PLAYER:51 = -1
	ENDIF
NEXT

FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
		CONTINUE
	;P가 들어 있지 않으면 체위 리셋
	IF TEQUIP:LOCAL:50 < 0 && TEQUIP:LOCAL:51 < 0
		TEQUIP:LOCAL:체위 = 0
	;V성교중 또한 전회 V성교라면 TEQUIP는 복귀
	ELSEIF TEQUIP:LOCAL:50 >= 0 && TEQUIP:LOCAL:116
		TEQUIP:LOCAL:106 = TEQUIP:LOCAL:116
	;A성교중 또한 전회 A성교라면 TEQUIP는 복귀
	ELSEIF TEQUIP:LOCAL:51 >= 0 && TEQUIP:LOCAL:117
		TEQUIP:LOCAL:107 = TEQUIP:LOCAL:117
	ENDIF
	;내친 김에 발기도의 보존
	CFLAG:LOCAL:발기도 = BASE:LOCAL:발기
NEXT
;-------------------------------------------------
;카운터 탈의의 열매 처리
;-------------------------------------------------
CALL DATUI_LATE

;-------------------------------------------------
;@COM의 호출
;-------------------------------------------------
;TARGET 마다 COMF 호출
CALL CALL_COM(TARGET)

체위보존 = TEQUIP:체위
V섹스보존 = TEQUIP:V섹스

TFLAG:전회커맨드결과 = RESULT
;RESULT가-1이라면 캔슬 판정
SIF TFLAG:전회커맨드결과 < 0
	RETURN 0
;RESULT가 0이라면 SOURCE 계산 SKIP
SIF !TFLAG:전회커맨드결과
	GOTO SOURCE_SKIP

IF OAZUKE(TARGET)
	PRINTFORML 맡기고를 밥%타겟은% 불만 그렇다…
	SOURCE:반감 += 3000
	SOURCE:굴종 += 500
	SOURCE:복종 -= 1500
ENDIF

CALL PEARL_CHK_MASTER

FOR LOCAL, 0, CHARANUM
	키스마크반감 = 0
	SIF CFLAG:LOCAL:현재위치 == SUKIMA()
		CONTINUE
	;로터삽입
	IF CFLAG:LOCAL:로터삽입
		IF LOCAL!=MASTER&&CFLAG:LOCAL:현재위치==CFLAG:MASTER:현재위치&&!FLAG:시간정지&&!CFLAG:LOCAL:수면&&!CFLAG:LOCAL:우후후
			PRINTL 【로터삽입 중】
			PRINTFORML 로터가 삽입된 %CALLNAME:LOCAL%은 안절 부절 못하는 듯 하다.
		ENDIF
		SOURCE:LOCAL:쾌V += TIME_PROGRESS(TIME:1) * 5
		CFLAG:LOCAL:로터삽입 = MAX(CFLAG:LOCAL:로터삽입 - TIME_PROGRESS(TIME:1), 0)
		IF CFLAG:LOCAL:로터삽입 == 0
			PRINTFORMW %CALLNAME:LOCAL%가 장착하고 있던 로터의 전지가 끊어졌다
			IF TALENT:LOCAL:처녀 < 1
				EXP:LOCAL:V경험 += 9
			ELSE
				TFLAG:2 = 1
			ENDIF
		ENDIF
	ENDIF
	IF CFLAG:LOCAL:로터A삽입
		IF LOCAL!=MASTER&&CFLAG:LOCAL:현재위치==CFLAG:MASTER:현재위치&&!FLAG:시간정지&&!CFLAG:LOCAL:수면&&!CFLAG:LOCAL:우후후
			PRINTL 【로터A삽입 중】
			PRINTFORML 로터가 애널에 삽입된 %CALLNAME:LOCAL%은 안절 부절 못하는 듯 하다.
		ENDIF
		SOURCE:LOCAL:쾌A += TIME_PROGRESS(TIME:1) * 5
		CFLAG:LOCAL:로터A삽입 = MAX(CFLAG:LOCAL:로터A삽입 - TIME_PROGRESS(TIME:1), 0)
		IF CFLAG:LOCAL:로터A삽입 == 0
			PRINTFORMW %CALLNAME:LOCAL%가 장착하고 있던 로터의 전지가 끊어졌다
			EXP:LOCAL:A경험 += 9
		ENDIF

	ENDIF
	IF TFLAG:키스마크 && LOCAL > 0 && !TFLAG:붕대 && !FLAG:70 && !CFLAG:LOCAL:수면
		IF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치 && TFLAG:키스마크 != LOCAL
			PRINTFORMW %CALLNAME:LOCAL%는 %CALLNAME:MASTER%의 키스마크를 보고 비난했다…
			IF TALENT:LOCAL:연모
				키스마크반감 = 500
			ELSEIF TALENT:LOCAL:사모
				키스마크반감 = 300
			ENDIF
			키스마크반감 = 키스마크반감 * (TALENT:LOCAL:정조 + 2) / 2
			SOURCE:LOCAL:반감 += 키스마크반감
		ENDIF
	ENDIF
;입지 않으면 노출이 증가
	SIF !EQUIP:LOCAL:하반신속옷1 && !EQUIP:LOCAL:하반신속옷2 && !TALENT:LOCAL:음란
		SOURCE:LOCAL:노출 += TIME_PROGRESS(TIME:1)

	SIF TEQUIP:LOCAL:유두빨기
		CALL EQUIP_COM11(LOCAL)
	SIF TEQUIP:LOCAL:가슴주무르기
		CALL EQUIP_COM12(LOCAL)
	SIF TEQUIP:LOCAL:계속키스
		CALL EQUIP_COM19(LOCAL)
	;장착계는 다음에 생각한다
	SIF LOCAL > 0 && !CFLAG:LOCAL:동실
		CONTINUE
	;-------------------------------------------------
	;주인, 동성, 조교자의 능력의 처리
	;-------------------------------------------------
	CALL SOURCE_SEX_CHECK(LOCAL)
	CALL PLAYER_SKILL_CHECK(LOCAL)

	;-------------------------------------------------
	;기교, 호감도, 무드, 이성의 체크
	;-------------------------------------------------
	FOR LOCAL:1, 0,100
		SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) *  MASTER_FAVOR_CHECK(LOCAL, LOCAL:1) * TECHNIQUE_CHECK(LOCAL, LOCAL:1) / 10000
		SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) *  MOOD_CHECK(LOCAL, LOCAL:1) * REASON_CHECK(LOCAL, LOCAL:1) / 10000
	NEXT

	;-------------------------------------------------
	;중독 충족의 체크
	;-------------------------------------------------
	;자위중독
	IF EXP_UP(22, LOCAL)
		FOR LOCAL:1, 0,100
			;쾌감, 성행동, 욕정, 복종, 노출, 굴종
			SIF (LOCAL:1 >= 0 && LOCAL:1 <= 9) || LOCAL:1 == 11 || (LOCAL:1 >= 15 && LOCAL:1 <= 18)
				SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) * (100 + GET_REVISION(ABL:LOCAL:자위중독, 500, 15)) / 100
		NEXT
	ENDIF
	;-------------------------------------------------
	;바이브 등 붙이고 있을 뿐 아이템의 체크
	;-------------------------------------------------
	CALL EQUIP_CHECK(LOCAL)
	;-------------------------------------------------
	;경험 가산
	;-------------------------------------------------
	CALL SOURCE_EXP(LOCAL)
	;-------------------------------------------------
	;처녀, 동정상실의 처리
	;-------------------------------------------------
	CALL LOST_VIRGIN(LOCAL)
	CALL 동정키스미경험상실(LOCAL)
	;-------------------------------------------------
	;쾌C의 소스
	;-------------------------------------------------
	CALL SOURCE_쾌C(LOCAL)
	;-------------------------------------------------
	;쾌V의 소스
	;-------------------------------------------------
	CALL SOURCE_쾌V(LOCAL)
	;-------------------------------------------------
	;쾌A의 소스
	;-------------------------------------------------
	CALL SOURCE_쾌A(LOCAL)
	;-------------------------------------------------
	;쾌B의 소스
	;-------------------------------------------------
	CALL SOURCE_쾌B(LOCAL)
	;-------------------------------------------------
	;-------------------------------------------------
	;쾌M의 소스
	;-------------------------------------------------
	CALL SOURCE_쾌M(LOCAL)
	;-------------------------------------------------
	;여쾌C의 소스
	;-------------------------------------------------
	SIF !(TALENT:PLAYER:2 & 2)
	CALL SOURCE_여쾌C(LOCAL)
	;-------------------------------------------------
	;여쾌V의 소스
	;-------------------------------------------------
	CALL SOURCE_여쾌V(LOCAL)
	;-------------------------------------------------
	;여쾌A의 소스
	;-------------------------------------------------
	CALL SOURCE_여쾌A(LOCAL)
	;-------------------------------------------------
	;여쾌B의 소스
	;-------------------------------------------------
	CALL SOURCE_여쾌B(LOCAL)
	;-------------------------------------------------
	;여쾌M의 소스
	;-------------------------------------------------
	CALL SOURCE_여쾌M(LOCAL)
	;-------------------------------------------------
NEXT

;-------------------------------------------------
;같은 커맨드의 연속실행에 의한 상하의 처리(쾌락계)
;-------------------------------------------------
IF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && 연속실행()
	;UP:0, 1,2,3은 절정에 관련되므로 먼저 처리되어 있다
	CUP:TARGET:쾌C /= 2
	CUP:TARGET:쾌V /= 2
	CUP:TARGET:쾌A /= 2
	CUP:TARGET:쾌B /= 2
	CUP:TARGET:쾌M /= 2
ENDIF
IF TCVAR:TARGET:억지로
	TIMES CUP:TARGET:쾌C, 0.75
	TIMES CUP:TARGET:쾌V, 0.75
	TIMES CUP:TARGET:쾌A, 0.75
	TIMES CUP:TARGET:쾌B, 0.75
	TIMES CUP:TARGET:쾌M, 0.75
ENDIF
IF TEQUIP:TARGET:애태우기모드
	TIMES CUP:TARGET:쾌C, 0.90
	TIMES CUP:TARGET:쾌V, 0.90
	TIMES CUP:TARGET:쾌A, 0.90
	TIMES CUP:TARGET:쾌B, 0.90
	TIMES CUP:TARGET:쾌M, 0.90
ENDIF
IF TCVAR:TARGET:만취
	TIMES CUP:TARGET:쾌C, 0.70
	TIMES CUP:TARGET:쾌V, 0.70
	TIMES CUP:TARGET:쾌A, 0.70
	TIMES CUP:TARGET:쾌B, 0.70
	TIMES CUP:TARGET:쾌M, 0.70
ENDIF

FOR LOCAL, 0, CHARANUM
	;장착계는 다음에 생각한다
	SIF LOCAL > 0 && !CFLAG:LOCAL:동실
		CONTINUE
	;그 외계 소스 계산 처리
	CALL SOURCE_CVAB_EXTRA(LOCAL)

	BASE:LOCAL:발기 = BASE:LOCAL:발기 + CUP:LOCAL:쾌C / 5 + CUP:LOCAL:쾌V / 10 + CUP:LOCAL:쾌A / 10 + CUP:LOCAL:쾌B / 10
	;-------------------------------------------------
	;절정 처리
	;-------------------------------------------------
	CALL ORGASM_ADD(LOCAL)
NEXT

;-------------------------------------------------
;사정 체크(양성·남자)
;-------------------------------------------------
;요점 검토
CALL EVENT_SHOOT

FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 == SUKIMA()
		CONTINUE
	;장착계는 다음에 생각한다
	SIF LOCAL > 0 && !CFLAG:LOCAL:동실
		CONTINUE
	;-------------------------------------------------
	;조교 대상의 분유체크
	;-------------------------------------------------
	CALL TARGET_MILK_CHECK(LOCAL)
	;-------------------------------------------------
	;중독 충족 체크
	;-------------------------------------------------
	;정액중독, 질내사정중독, 항내사정중독
	IF FLAG:70 == 1 && CFLAG:TARGET:344 == 0
	ELSE
		IF EXP_UP(14, LOCAL)
			IF TALENT:MASTER:농후정액 == 1
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:정액중독 * EXP_UP(14, LOCAL), 500, 25)
			ELSE
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:정액중독 * EXP_UP(14, LOCAL), 500, 50)
			ENDIF
			SOURCE:LOCAL:사랑 = SOURCE:LOCAL:사랑 * 중독보정 / 100
			SOURCE:LOCAL:성행동 = SOURCE:LOCAL:성행동 * 중독보정 / 100
			SOURCE:LOCAL:달성 = SOURCE:LOCAL:달성 * 중독보정 / 100
			SOURCE:LOCAL:욕정 = SOURCE:LOCAL:욕정 * 중독보정 / 100
			SOURCE:LOCAL:복종 = SOURCE:LOCAL:복종 * 중독보정 / 100
			SOURCE:LOCAL:굴종 = SOURCE:LOCAL:굴종 * 중독보정 / 100
		ENDIF
		IF EXP_UP(17, LOCAL)
			IF TALENT:MASTER:농후정액 == 1
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:항내사정중독 * EXP_UP(17, LOCAL), 500, 25)
			ELSE
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:항내사정중독 * EXP_UP(17, LOCAL), 500, 50)
			ENDIF
			SIF TALENT:LOCAL:동물귀 && TEQUIP:LOCAL:체위 == 2
				중독보정 = 중독보정 * 11 / 10
			SOURCE:LOCAL:사랑 = SOURCE:LOCAL:사랑 * 중독보정 / 100
			SOURCE:LOCAL:성행동 = SOURCE:LOCAL:성행동 * 중독보정 / 100
			SOURCE:LOCAL:달성 = SOURCE:LOCAL:달성 * 중독보정 / 100
			SOURCE:LOCAL:욕정 = SOURCE:LOCAL:욕정 * 중독보정 / 100
			SOURCE:LOCAL:복종 = SOURCE:LOCAL:복종 * 중독보정 / 100
			SOURCE:LOCAL:굴종 = SOURCE:LOCAL:굴종 * 중독보정 / 100
		ENDIF
		IF EXP_UP(16, LOCAL)
			IF TALENT:MASTER:농후정액 == 1
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:질내사정중독 * EXP_UP(16, LOCAL), 500, 25)
			ELSE
				중독보정 = 100 + GET_REVISION(ABL:LOCAL:질내사정중독 * EXP_UP(16, LOCAL), 500, 50)
			ENDIF
			SIF TALENT:LOCAL:동물귀 && TEQUIP:LOCAL:체위 == 2
				중독보정 = 중독보정 * 11 / 10
			SIF CFLAG:LOCAL:생리주기 == 7
				중독보정 = 중독보정 * 12 / 10
			SOURCE:LOCAL:사랑 = SOURCE:LOCAL:사랑 * 중독보정 / 100
			SOURCE:LOCAL:성행동 = SOURCE:LOCAL:성행동 * 중독보정 / 100
			SOURCE:LOCAL:달성 = SOURCE:LOCAL:달성 * 중독보정 / 100
			SOURCE:LOCAL:욕정 = SOURCE:LOCAL:욕정 * 중독보정 / 100
			SOURCE:LOCAL:복종 = SOURCE:LOCAL:복종 * 중독보정 / 100
			SOURCE:LOCAL:굴종 = SOURCE:LOCAL:굴종 * 중독보정 / 100
		ENDIF
	ENDIF
	;-------------------------------------------------
	;수간으로부터의 복귀 사전 처리
	;-------------------------------------------------
	CALL DRUNK_RECOVER_BEFORE(TARGET)
	;-------------------------------------------------
	;사랑의 소스
	;-------------------------------------------------
	CALL SOURCE_사랑(LOCAL)
	;-------------------------------------------------
	;성행동의 소스
	;-------------------------------------------------
	CALL SOURCE_성행동(LOCAL)
	;-------------------------------------------------
	;달성의 소스
	;-------------------------------------------------
	CALL SOURCE_달성(LOCAL)
	;-------------------------------------------------
	;아픔의 소스
	;-------------------------------------------------
	CALL SOURCE_고통(LOCAL)
	;-------------------------------------------------
	;우려의 소스
	;-------------------------------------------------
	CALL SOURCE_공포(LOCAL)
	;-------------------------------------------------
	;액체의 소스
	;-------------------------------------------------
	CALL SOURCE_액체(LOCAL)
	;-------------------------------------------------
	;욕정의 소스
	;-------------------------------------------------
	CALL SOURCE_욕정(LOCAL)
	;-------------------------------------------------
	;복종의 소스
	;-------------------------------------------------
	CALL SOURCE_복종(LOCAL)
	;-------------------------------------------------
	;노출의 소스
	;-------------------------------------------------
	CALL SOURCE_노출(LOCAL)
	;-------------------------------------------------
	;굴종의 소스
	;-------------------------------------------------
	CALL SOURCE_굴종(LOCAL)

	;-------------------------------------------------
	;환락의 소스
	;-------------------------------------------------
	CALL SOURCE_환락(LOCAL)
	;-------------------------------------------------
	;정복의 소스
	;-------------------------------------------------
	CALL SOURCE_정복(LOCAL)
	;-------------------------------------------------
	;수동의 소스
	;-------------------------------------------------
	CALL SOURCE_수동(LOCAL)
	;-------------------------------------------------
	;유혹의 소스
	;-------------------------------------------------
	CALL SOURCE_유혹(LOCAL)
	;-------------------------------------------------
	;송구스러운 소스
	;-------------------------------------------------
	CALL SOURCE_송구스러운(LOCAL)
	;-------------------------------------------------
	;도발의 소스
	;-------------------------------------------------
	CALL SOURCE_도발(LOCAL)
	;-------------------------------------------------
	;봉사의 소스
	;-------------------------------------------------
	CALL SOURCE_봉사(LOCAL)
	;-------------------------------------------------
	;강요의 소스
	;-------------------------------------------------
	CALL SOURCE_강요(LOCAL)
	;-------------------------------------------------
	;가학의 소스
	;-------------------------------------------------
	CALL SOURCE_가학(LOCAL)

	;-------------------------------------------------
	;불결의 소스
	;-------------------------------------------------
	CALL SOURCE_불결(LOCAL)
	;-------------------------------------------------
	;울굴의 소스
	;-------------------------------------------------
	CALL SOURCE_울굴(LOCAL)
	;-------------------------------------------------
	;일탈의 소스
	;-------------------------------------------------
	CALL SOURCE_일탈(LOCAL)
	;-------------------------------------------------
	;반감의 소스
	;-------------------------------------------------
	CALL SOURCE_반감(LOCAL)
	;-------------------------------------------------
	;소질등에 의한 상하의 처리
	;-------------------------------------------------
	CALL SOURCE_EXTRA(LOCAL)
	;-------------------------------------------------
	;수면심도의 감소 처리
	;-------------------------------------------------
	CALL 수면심도감소(LOCAL)
NEXT
;-------------------------------------------------
;같은 커맨드의 연속실행에 의한 상하의 처리
;-------------------------------------------------
IF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && 연속실행()
	;UP:0, 1,2는 절정에 관련되므로 먼저 처리되어 있다
	UP:욕정 /= 2
	UP:복종 /= 2
	UP:굴복 /= 2
	UP:습득 /= 2
	UP:치정 /= 2
	UP:공포 /= 2
	UP:고통 /= 2
	UP:호의 /= 2
	UP:우월 /= 2
ENDIF

LOCAL:1 = 0
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 == SUKIMA()
		CONTINUE
	LOCAL:1 += CUP:LOCAL:욕정 / 5
	LOCAL:1 += MAX(5, (ABL:LOCAL:마조끼 - 3)) * (CUP:LOCAL:고통 + CUP:LOCAL:고통) / 2
	LOCAL:1 += MAX(5, (ABL:LOCAL:마조끼 - 1)) * CUP:LOCAL:치정 / 2
	LOCAL:1 = MIN(500, LOCAL:1)
	BASE:LOCAL:발기 = BASE:LOCAL:발기 + LOCAL:1
	;장착계는 다음에 생각한다
	SIF LOCAL > 0 && !CFLAG:LOCAL:동실
		CONTINUE
	;-------------------------------------------------
	;체력·기력의 감소
	;-------------------------------------------------
	CALL SOURCE_DOWNBASE(LOCAL)
	;-------------------------------------------------
	;고통쾌락경험, 봉사쾌락경험의 체크
	;-------------------------------------------------
	CALL EXP_GOT_CHECK(LOCAL)
NEXT

$SOURCE_SKIP
;-------------------------------------------------
;조교 말
;-------------------------------------------------
;CALL KOJO_MESSAGE_COM
CALL KOJO_MESSAGE_SEND("COMMAND",-1, TARGET,-1,-1)
;삽화 정면계 고무 있는 사정시, 체위도 없어지는 것은 어째서다
IF V섹스보존 != -1 && GROUPMATCH(체위보존, 1,2,3,4,5) && !FLAG:삽입애니메이션필터 & 아니메필터_삽입
	SIF FLAG:그림표시 && FLAG:삽화표시
		PRINTL
	SELECTCASE 체위보존
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_정상위("正常位_挿入")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_후배위("後背位_挿入")
	ENDSELECT
ENDIF

;카운터
IF TARGET
	LOCAL:4 = TARGET
	DRAWLINE
	FOR LOCAL, 1, GET_TARGETNUM() + 1
		SIF TCVAR:(TARGET:LOCAL):30 > 1
			CONTINUE
		SIF TCVAR:(TARGET:LOCAL):20 && TFLAG:193 != 99 && !CFLAG:TARGET:동침중
			CALL KOJO_MESSAGE_SEND("COUNTER", 2, TARGET:LOCAL, 0,0)
	NEXT
	TARGET = LOCAL:4
ENDIF

;-------------------------------------------------
;수간으로부터의 복귀 처리
;-------------------------------------------------
CALL DRUNK_RECOVER(TARGET)

;-------------------------------------------------
;EXP 취득 표시
;-------------------------------------------------
LOCAL:2 = 0
LOCAL:3 = 0
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
		CONTINUE
	SIF TCVAR:LOCAL:표시컷
		CONTINUE
	FOR LOCAL:1, 0,100
		IF EXP_UP(LOCAL:1, LOCAL)
			경험증가량 = EXP_UP(LOCAL:1, LOCAL)
			LOCAL:2 ++
			LOCAL:3 ++
			SIF LOCAL:2 == 1
				PRINTL
			IF LOCAL:1 == FLAG:가호 && FLAG:가호 && LOCAL == MASTER
				EXP:MASTER:(LOCAL:1) ++
				경험증가량 ++
			ENDIF
			PRINTFORML %EXPNAME:(LOCAL:1)% +{경험증가량}(%CALLNAME:LOCAL%)
			;당신은 무자각경험을 얻지 않게
			IF LOCAL:1 >= 0 && LOCAL:1 <= 3 && LOCAL && (FLAG:70 || CFLAG:장난)
				EXP:LOCAL:((LOCAL:1) + 60) += 1
			ENDIF
		ENDIF
	NEXT
	LOCAL:2 = 0
NEXT
SIF LOCAL:3
	WAIT
;-------------------------------------------------
;ABLUP
;-------------------------------------------------
IF !FLAG:ABLUP생략
	FOR LOCAL, 0, CHARANUM
		SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
			CONTINUE
		SIF TCVAR:LOCAL:표시컷
			CONTINUE
		CALL SOURCE_ABLUP(LOCAL)
	NEXT
ENDIF
;-------------------------------------------------
;촉수의 사정시의 말
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_E
CALL KOJO_MESSAGE_SEND("PALAM", 5, TARGET,-1,-1)
;-------------------------------------------------
;노예의 절정시의 말
;-------------------------------------------------
CALL MESSAGE_PALAMCNG_B2
CALL KOJO_MESSAGE_SEND("PALAM", 2, TARGET,-1,-1)
;삽화 삽입∨절정
IF NOWEX:V절정 && V섹스보존 != -1 && GROUPMATCH(체위보존, 1,2,3,4,5)
	IF !GETBIT(TCVAR:50, 1)
		SELECTCASE 체위보존
			CASE 1,3,4
				CALL PRINT_IMAGE_ANIMATION_정상위("正常位_絶頂")
			CASE 2,5
				CALL PRINT_IMAGE_ANIMATION_후배위("後背位_絶頂")
		ENDSELECT
	ENDIF
ENDIF
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_B

;-------------------------------------------------
;노예의 초조하게 해 때의 말
;-------------------------------------------------
IF (EX:TARGET:C절정직전 + EX:TARGET:V절정직전 + EX:TARGET:A절정직전 + EX:TARGET:M절정직전 + EX:TARGET:B절정직전) > 0 && TEQUIP:TARGET:애태우기모드
	CALL KOJO_MESSAGE_SEND("PALAM", 6, TARGET,-1,-1)
	;우후후시 계 장비 리셋
	FOR LOCAL, 10, 80
		SELECTCASE LOCAL
			CASE 18 TO 20, 25 TO 40, 49 TO 51
				CONTINUE
		ENDSELECT
		TEQUIP:TARGET:LOCAL = 0
	NEXT
ENDIF
;-------------------------------------------------
;조교자의 사정시의 말
;-------------------------------------------------
CALL 사정절정표기(MASTER)
CALL 사정절정표기(TARGET)

;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_A
CALL KOJO_MESSAGE_SEND("PALAM", 1, TARGET,-1,-1)

;삽화 삽입 사정 정상위 계열
IF GETBIT(TCVAR:50, 1) && TEQUIP:V섹스 != -1 && !TCVAR:PLAYER:콘돔 && GROUPMATCH(체위보존, 1,2,3,4,5)
	SIF FLAG:그림표시 && FLAG:삽화표시
		PRINTL
	SELECTCASE 체위보존
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_정상위("正常位_射精")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_후배위("後背位_射精")
	ENDSELECT
ENDIF

;-------------------------------------------------
;조교 후의 말
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_C
CALL KOJO_MESSAGE_SEND("PALAM", 3, TARGET,-1,-1)
;-------------------------------------------------
;파라미터 변동에 의한 말
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_D
CALL KOJO_MESSAGE_SEND("PALAM", 4, TARGET,-1,-1)
;-------------------------------------------------
;각인 취득의 체크(장난중은 금지)
;-------------------------------------------------
IF !CFLAG:TARGET:장난
	CALL MARK_GOT_CHECK(TARGET)
;-------------------------------------------------
;각인 취득에 의한 말(장난중은 금지)
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_MARKCNG
	CALL KOJO_MESSAGE_SEND("MARK",-1, TARGET,-1,-1)
;-------------------------------------------------
;분유메시지
;-------------------------------------------------
SIF NOWEX:분유
	CALL TARGET_MILK_MESSAGE(TARGET)
;-------------------------------------------------
;순종 상승에 의한[저항]의 소멸 체크(장난중은 금지)
;-------------------------------------------------
	CALL JUJUN_UP_CHECK
ENDIF
RESETCOLOR
;-------------------------------------------------
;조교 소스의 표시
;-------------------------------------------------
CALL SHOW_SOURCE
;-------------------------------------------------
;수치 변동의 표시
;-------------------------------------------------
SETCOLOR C_YELLOW
;궁합
R = NO:PLAYER
SIF RELATION:R != 0
	PRINTFORML ＜궁합{RELATION:R/100}. {RELATION:R%100}배＞

SIF TCVAR:TARGET:마음대로해
	PRINTFORML ＜희롱해지고 안＞

SIF SELECTCOM == 21
	PRINTFORML ＜【아무것도 하지 않는】의 효과로 %CALLNAME:MASTER%의 쾌입수량 증가＞
SIF SELECTCOM == 22
	PRINTFORML ＜【권해 받는】의 효과로 우월 증가＞

SIF TCVAR:커맨드C보정 && SOURCE:쾌C
	PRINTFORML ＜커맨드 보정에 의해 쾌C{ABS(TCVAR:커맨드C보정)}\%\@ TCVAR:커맨드C보정 > 0 ?  업# 다운\@＞
SIF TCVAR:커맨드B보정 && SOURCE:쾌B
	PRINTFORML ＜커맨드 보정에 의해 쾌B{ABS(TCVAR:커맨드B보정)}\%\@ TCVAR:커맨드B보정 > 0 ?  업# 다운\@＞
SIF TCVAR:커맨드V보정 && SOURCE:쾌V
	PRINTFORML ＜커맨드 보정에 의해 쾌V{ABS(TCVAR:커맨드V보정)}\%\@ TCVAR:커맨드V보정 > 0 ?  업# 다운\@＞
SIF TCVAR:커맨드A보정 && SOURCE:쾌A
	PRINTFORML ＜커맨드 보정에 의해 쾌A{ABS(TCVAR:커맨드A보정)}\%\@ TCVAR:커맨드A보정 > 0 ?  업# 다운\@＞
SIF TCVAR:커맨드M보정 && SOURCE:쾌M
	PRINTFORML ＜커맨드 보정에 의해 쾌M{ABS(TCVAR:커맨드M보정)}\%\@ TCVAR:커맨드M보정 > 0 ?  업# 다운\@＞
SIF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && 연속실행()
	PRINTL ＜동일 커맨드 연속실행＞
;기력 0
SIF BASE:1 <= 0
	PRINTL ★기력 0★
RESETCOLOR
LOCAL:1 = 0
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:현재위치 == SUKIMA()
		CONTINUE
	IF DOWNBASE:LOCAL:체력
		IF DOWNBASE:LOCAL:체력 > 0
			SETCOLOR C_YELLOW
			SIF DOWNBASE:LOCAL:체력 > 150
				SETCOLOR C_RED
			PRINTFORM 체력-{DOWNBASE:LOCAL:체력}
		ELSE
			SETCOLOR C_GREEN
			PRINTFORM 체력+{-DOWNBASE:LOCAL:체력}
		ENDIF
		LOCAL:1 ++
	ENDIF
	IF DOWNBASE:LOCAL:기력
		IF DOWNBASE:LOCAL:기력 > 0
			SETCOLOR C_YELLOW
			SIF DOWNBASE:LOCAL:기력 > 150
				SETCOLOR C_RED
			PRINTFORM 기력-{DOWNBASE:LOCAL:기력}
		ELSE
			SETCOLOR C_GREEN
			PRINTFORM 기력+{-DOWNBASE:LOCAL:기력}
		ENDIF
		LOCAL:1 ++
	ENDIF
	RESETCOLOR
	SIF LOCAL:1
		PRINTFORML (%CALLNAME:LOCAL%)
	LOCAL:1 = 0
NEXT
SIF TIME_PROGRESS(TIME:1) > 0 && SELECTCOM != 400 && SELECTCOM != 402 && SELECTCOM != 604; && !CFLAG:MASTER:우후후
	PRINTFORML +{TIME_PROGRESS(TIME:1)}분
SIF TIME_PROGRESS(TIME:1) >= 40
	TCVAR:TARGET:가능한한움직이지않는다 = 1
PRINTL

;-------------------------------------------------
;파라미터의 상승＆표시(DOWN도 여기서)
;-------------------------------------------------
VARSET LOCAL
FOR LOCAL:1, 0, CHARANUM
	SIF TCVAR:표시컷
		CONTINUE
	LOCAL:3 = 0
	FOR LOCAL, 0,100
		SIF PALAMNAME:LOCAL == ""
			CONTINUE
		SIF CUP:(LOCAL:1) :LOCAL - CDOWN:(LOCAL:1) :LOCAL == 0
			CONTINUE
		IF !LOCAL:3
			PRINTL
			PRINTFORML %CALLNAME:(LOCAL:1)%
		ENDIF
		LOCAL:3 ++
		LOCAL:2 = CUP:(LOCAL:1) :LOCAL - CDOWN:(LOCAL:1) :LOCAL
		PRINTFORML %PALAMNAME:LOCAL, 8, LEFT% {PALAM:(LOCAL:1) :LOCAL, 10, LEFT} + {CUP:(LOCAL:1) :LOCAL, 10, LEFT} =   {PALAM:(LOCAL:1) :LOCAL + CUP:(LOCAL:1) :LOCAL, 10, LEFT}
		PALAM:(LOCAL:1) :LOCAL += CUP:(LOCAL:1) :LOCAL - CDOWN:(LOCAL:1) :LOCAL
		CUP:(LOCAL:1) :LOCAL = 0
		CDOWN:(LOCAL:1) :LOCAL = 0
	NEXT
NEXT
PRINTL
IF GETBIT(TCVAR:50, 1) && TEQUIP:V섹스 != -1 && !TCVAR:PLAYER:콘돔 && GROUPMATCH(체위보존, 1,2,3,4,5)
	SELECTCASE 체위보존
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_사정후("正常位_中出し")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_사정후("後背位_中出し")
	ENDSELECT
	IF FLAG:그림표시 && FLAG:삽화표시
		WAIT
		PRINTL
	ENDIF
ENDIF
DRAWLINE
;-------------------------------------------------
;욕구불만도상승
;-------------------------------------------------
IF TCVAR:TARGET:욕구불만도관리 < GETPALAMLV(PALAM:욕정, 15) && TARGET
	욕구불만도상승 = (GETPALAMLV(PALAM:욕정, 15) - TCVAR:TARGET:욕구불만도관리) * (30 + TCVAR:TARGET:발정 * 20 + TCVAR:TARGET:춘약 * 20)
	욕구불만도상승 = 욕구불만소질보정(TARGET, 욕구불만도상승)
	SIF TALENT:TARGET:스침 == 1
		욕구불만도상승 *= 3
	CFLAG:TARGET:욕구불만도 = LIMIT(욕구불만도상승 + CFLAG:TARGET:욕구불만도, 0, 1000)
	TCVAR:TARGET:욕구불만도관리 = GETPALAMLV(PALAM:욕정, 15)
ENDIF
;-------------------------------------------------
;호감도 상승
;-------------------------------------------------
CALL FAVOR_CALC(TARGET)

;-------------------------------------------------
;신뢰도 상승(우후후 이외＆상승 대상 커맨드 실행시)
;-------------------------------------------------
SIF (TFLAG:98 && !CFLAG:TARGET:우후후) && !CFLAG:TARGET:수면
	CALL TRUST_CALC(TARGET)
;-------------------------------------------------
;수면심도 0에 의한 각성 처리
;-------------------------------------------------
SIF CFLAG:MASTER:장난 == 2 && (TCVAR:TARGET:수면심도 <= 0 || !수면시간(TARGET))
	CALL 수면간발각(TARGET)

;-------------------------------------------------
;껴안기모드의 해제
;-------------------------------------------------
IF TFLAG:102 == 3 && TFLAG:껴안기모드
	TFLAG:껴안기해방포인트 --
	IF TFLAG:껴안기해방포인트 <= 0
		PRINTFORML %CALLNAME%는 만족해 %CALLNAME:MASTER%의 몸으로부터 멀어졌다…
		CALL 덮쳐지기종료
		TFLAG:껴안기모드 = 0
		TCVAR:안아다하고금지시간 = 90 + MAX(10 - ABL:욕망, 0) * 3 - MAX((CFLAG:적극성 + CFLAG:수줍음) * 5, 30)
	ENDIF
ENDIF

;-------------------------------------------------
;변수의 리셋
;-------------------------------------------------
CVARSET TCVAR, GETNUM(TCVAR, "봉사플래그"), 0
CVARSET TCVAR, GETNUM(TCVAR, "사정게이지증가량"), 0
CVARSET TCVAR, GETNUM(TCVAR, "만취간들킴"), 0
CVARSET TCVAR, GETNUM(TCVAR, "요리총평가치"), 0
CVARSET TCVAR, GETNUM(TCVAR, "요리호평가치"), 0
CVARSET TCVAR, GETNUM(TCVAR, "요리악평가치"), 0
;-------------------------------------------------
;조교 소스의 표시(DOWN도 여기서)
;-------------------------------------------------
@SHOW_SOURCE
SIF TCVAR:표시컷
	RETURN 0
;PRINTL
SIF SOURCE:쾌C > 0
	PRINTFORM 쾌C({SOURCE:쾌C})
SIF SOURCE:쾌V > 0
	PRINTFORM 쾌V({SOURCE:쾌V})
SIF SOURCE:쾌A > 0
	PRINTFORM 쾌A({SOURCE:쾌A})
SIF SOURCE:쾌B > 0
	PRINTFORM 쾌B({SOURCE:쾌B})
SIF SOURCE:쾌M > 0
	PRINTFORM 쾌M({SOURCE:쾌M})
SIF SOURCE:사랑 > 0
	PRINTFORM 사랑({SOURCE:사랑})
SIF SOURCE:성행동 > 0
	PRINTFORM 성행동({SOURCE:성행동})
SIF SOURCE:달성 > 0
	PRINTFORM 달성감({SOURCE:달성})
SIF SOURCE:고통 > 0
	PRINTFORM 아픔({SOURCE:고통})
SIF SOURCE:공포 > 0
	PRINTFORM 우려({SOURCE:공포})
SIF SOURCE:액체 > 0
	PRINTFORM 액체({SOURCE:액체})
SIF SOURCE:욕정 > 0
	PRINTFORM 욕정({SOURCE:욕정})
SIF SOURCE:복종 > 0
	PRINTFORM 복종({SOURCE:복종})
SIF SOURCE:노출 > 0
	PRINTFORM 노출({SOURCE:노출})
SIF SOURCE:굴종 > 0
	PRINTFORM 굴복({SOURCE:굴종})
SIF SOURCE:환락 > 0
	PRINTFORM 환락({SOURCE:환락})
SIF SOURCE:정복 > 0
	PRINTFORM 정복({SOURCE:정복})
SIF SOURCE:강요 > 0
	PRINTFORM 정복({SOURCE:강요})
SIF SOURCE:수동 > 0
	PRINTFORM 수동({SOURCE:수동})
SIF SOURCE:불결 > 0
	PRINTFORM 불결({SOURCE:불결})
SIF SOURCE:울굴 > 0
	PRINTFORM 울굴({SOURCE:울굴})
SIF SOURCE:일탈 > 0
	PRINTFORM 일탈({SOURCE:일탈})
SIF SOURCE:반감 > 0
	PRINTFORM 반발({SOURCE:반감})
PRINTL

@OAZUKE(ARG)
#FUNCTION
SIF CFLAG:ARG:우후후 != 2
	RETURNF 0
SELECTCASE TCVAR:ARG:20
	CASE 41
	;정상위 V
		SIF SELECTCOM != 320
			RETURNF 1
	CASE 43
	;백 V
		SIF SELECTCOM != 322
			RETURNF 1
	CASE 44
	;백 A
		SIF SELECTCOM != 323
			RETURNF 1
ENDSELECT
RETURNF 0


code:
;---------------------------------------------------
;마이나스 SOURCE
;---------------------------------------------------
;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;불결의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_불결(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:불결

;ABL:순종을 본다
SELECTCASE ABL:ARG:순종
	CASE 0
		TIMES LOCAL , 1.50
	CASE 1 TO 3
		TIMES LOCAL , 1.30
	CASE 4 TO 6
		TIMES LOCAL , 1.00
	CASE 7 TO 9
		TIMES LOCAL , 0.75
	CASE 10 TO 12
		TIMES LOCAL , 0.50
	CASE 13 TO 15
		TIMES LOCAL , 0.25
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT
CUP:ARG:불쾌 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;울굴의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_울굴(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:울굴
;기분
LOCAL = LOCAL * (10 - 2 * TALENT:ARG:15) / 10
;함락 소질
IF TALENT:ARG:연모
	TIMES LOCAL , 0.25
ELSEIF TALENT:ARG:사모
	TIMES LOCAL , 0.75
ENDIF

;ABL:순종을 본다
SELECTCASE ABL:ARG:순종
	CASE 0
		TIMES LOCAL , 1.50
	CASE 1 TO 3
		TIMES LOCAL , 1.30
	CASE 4 TO 6
		TIMES LOCAL , 1.00
	CASE 7 TO 9
		TIMES LOCAL , 0.75
	CASE 10 TO 12
		TIMES LOCAL , 0.50
	CASE 13 TO 15
		TIMES LOCAL , 0.25
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT
;ABL:욕망을 본다
SELECTCASE ABL:ARG:욕망
	CASE 0
		TIMES LOCAL , 2.00
	CASE 1 TO 3
		TIMES LOCAL , 1.50
	CASE 4 TO 6
		TIMES LOCAL , 1.00
	CASE 7 TO 9
		TIMES LOCAL , 0.75
	CASE 10 TO 12
		TIMES LOCAL , 0.50
	CASE 13 TO 15
		TIMES LOCAL , 0.25
	CASEELSE
		TIMES LOCAL , 0.10
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:일탈 , 0.80
SIF TALENT:ARG:성적흥미 < 0
	TIMES SOURCE:ARG:일탈 , 2.00

LOCAL = SOURCE:ARG:일탈

;ABL:순종을 본다
SELECTCASE ABL:ARG:순종
	CASE 0
		TIMES LOCAL , 1.50
	CASE 1 TO 3
		TIMES LOCAL , 1.30
	CASE 4 TO 6
		TIMES LOCAL , 1.00
	CASE 7 TO 9
		TIMES LOCAL , 0.75
	CASE 10 TO 12
		TIMES LOCAL , 0.50
	CASE 13 TO 15
		TIMES LOCAL , 0.25
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT

;ABL:마조끼를 본다
SELECTCASE ABL:ARG:마조끼
	CASE 0
		TIMES LOCAL , 1.00
	CASE 1 TO 3
		TIMES LOCAL , 0.90
	CASE 3 TO 5
		TIMES LOCAL , 0.75
	CASE 6,7
		TIMES LOCAL , 0.60
	CASE 8,9
		TIMES LOCAL , 0.50
	CASE 10 TO 12
		TIMES LOCAL , 0.30
	CASE 13 TO 15
		TIMES LOCAL , 0.20
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT
CUP:ARG:반감 += LOCAL

;FileName_SOURCE1.ERB ------------------------------ Rev1. 00
;반감의 소스 처리
;CALL		USER
;ARG		캐릭터 NO
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@SOURCE_반감(ARG)
VARSET LOCAL
LOCAL = SOURCE:ARG:반감
;기분
LOCAL = LOCAL * (10 - 3 * TALENT:ARG:15) / 10
;상대 주도
SIF ARG != MASTER && CFLAG:ARG:우후후 == 2
	TIMES LOCAL, 0.3
SIF TALENT:ARG:스침 == 1
	LOCAL /= 2
SIF CFLAG:ARG:몸목적 && TFLAG:이성깎기
	LOCAL /= 2
;ABL:순종을 본다
LOCAL:1 = ABL:ARG:순종 + ABL:ARG:친밀
SELECTCASE LOCAL:1
	CASE 0
		TIMES LOCAL , 2.00
	CASE 1 TO 3
		TIMES LOCAL , 1.25
	CASE 4 TO 7
		TIMES LOCAL , 1.00
	CASE 8 TO 10
		TIMES LOCAL , 0.75
	CASE 11 TO 14
		TIMES LOCAL , 0.50
	CASE 15 TO 19
		TIMES LOCAL , 0.25
	CASE 20 TO 24
		TIMES LOCAL , 0.10
	CASEELSE
		TIMES LOCAL , 0.05
ENDSELECT

;ABL:봉사정신을 본다
SELECTCASE ABL:ARG:봉사정신
	CASE 0
		TIMES LOCAL , 1.00
	CASE 1 TO 3
		TIMES LOCAL , 0.90
	CASE 3 TO 5
		TIMES LOCAL , 0.75
	CASE 6,7
		TIMES LOCAL , 0.60
	CASE 8,9
		TIMES LOCAL , 0.50
	CASE 10 TO 12
		TIMES LOCAL , 0.30
	CASE 13 TO 15
		TIMES LOCAL , 0.20
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT

;ABL:마조끼를 본다
SELECTCASE ABL:ARG:마조끼
	CASE 0
		TIMES LOCAL , 1.00
	CASE 1 TO 3
		TIMES LOCAL , 0.90
	CASE 3 TO 5
		TIMES LOCAL , 0.75
	CASE 6,7
		TIMES LOCAL , 0.60
	CASE 8,9
		TIMES LOCAL , 0.50
	CASE 10 TO 12
		TIMES LOCAL , 0.30
	CASE 13 TO 15
		TIMES LOCAL , 0.20
	CASEELSE
		TIMES LOCAL , 0.10
ENDSELECT
CUP:ARG:반감 += LOCAL


code:
;사정 확정 후의 처리
@EJAC_CHECK_AFTER(캐릭터등록번호)
#DIM 캐릭터등록번호
#DIM 사정회수
#DIM 과잉사정

VARSET 사정회수
VARSET 과잉사정
;캐릭터등록번호 사정하는 사람
IF !TCVAR:캐릭터등록번호:이기초
	IF BASE:캐릭터등록번호:사정 > MAXBASE:캐릭터등록번호:사정
		IF BASE:캐릭터등록번호:발기 < 1000
			BASE:캐릭터등록번호:사정 = MAXBASE:캐릭터등록번호:사정 - 1
		ELSE
			TCVAR:캐릭터등록번호:이기초 = 1
		ENDIF
	ENDIF
	RETURN 0
ELSEIF TEQUIP:캐릭터등록번호:애태우기모드 && 캐릭터등록번호 != MASTER
	TCVAR:캐릭터등록번호:초조하게해회수 += 2
	RETURN 0
ENDIF

;사정(절정) 회수
사정회수 = MIN(BASE:캐릭터등록번호:사정 / MAXBASE:캐릭터등록번호:사정, (100 + BASE:캐릭터등록번호:정력) / 100)

IF NOWEX:캐릭터등록번호:사정량 > BASE:캐릭터등록번호:정력
	NOWEX:캐릭터등록번호:사정량 = (NOWEX:캐릭터등록번호:사정량 - BASE:캐릭터등록번호:정력) / 2 + BASE:캐릭터등록번호:정력
	과잉사정 = NOWEX:캐릭터등록번호:사정량 - BASE:캐릭터등록번호:정력
ENDIF

NOWEX:캐릭터등록번호:사정량 =BASE:캐릭터등록번호:사정 * 10 / (ABL:캐릭터등록번호:C감각 / 2 + 10) / 100

NOWEX:캐릭터등록번호:사정량 = NOWEX:캐릭터등록번호:사정량 * 10 / (ABL:캐릭터등록번호:C감각 / 2 + 10)

SIF 과잉사정&&!TALENT:캐릭터등록번호:절륜
	DOWNBASE:캐릭터등록번호:체력 += 과잉사정 * 3

BASE:캐릭터등록번호:정력 = MAX(0, BASE:캐릭터등록번호:정력 - NOWEX:캐릭터등록번호:사정량)

;SIF (TALENT:MASTER:절륜)
;	NOWEX:캐릭터등록번호:사정량=NOWEX:캐릭터등록번호:사정량*2
TCVAR:캐릭터등록번호:이기초 = 0
STAIN:캐릭터등록번호:P |= 4

;BASE의 처리
BASE:캐릭터등록번호:사정 = 0

CSTR:캐릭터등록번호:사정후처리용 = %CSTR:캐릭터등록번호:사정판정용%
TCVAR:캐릭터등록번호:사정한개소플래그 = TCVAR:캐릭터등록번호:사정장소

;이상경험, 사정경험, 정음경험
;여성기가 있는 경우?
SIF !EXP:캐릭터등록번호:사정경험 && TALENT:캐릭터등록번호:성별 & 1
	EXP:캐릭터등록번호:이상경험 += 1

EXP:캐릭터등록번호:절정경험 ++
MAXBASE:캐릭터등록번호:정력 += 사정회수*3;;정력증가
EXP:캐릭터등록번호:사정경험 += 사정회수

NOWEX:캐릭터등록번호:사정 += 사정회수
EX:캐릭터등록번호:사정 += 사정회수
TCVAR:캐릭터등록번호:초조하게해회수 = 0
TEQUIP:캐릭터등록번호:애태우기모드 = 0
SIF AT_HOME(캐릭터등록번호)
	YOGORE:(CFLAG:캐릭터등록번호:현재위치) += 사정회수 * 50

IF (!TALENT:캐릭터등록번호:절륜)
	DOWNBASE:캐릭터등록번호:체력 += LIMIT(NOWEX:캐릭터등록번호:사정량 / 8, 10, 100)
	DOWNBASE:캐릭터등록번호:기력 += LIMIT(NOWEX:캐릭터등록번호:사정량 / 4, 20, 200)
ENDIF

;MASTER가 아니면 BASE나 SOURCE등의 처리를 넣는다
SIF 캐릭터등록번호 == MASTER
	RETURN 0

IF EXP:캐릭터등록번호:사정경험 < EXPLV:1
	SOURCE:캐릭터등록번호:노출 += 5000 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 2500 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:불결 += 200 * (사정회수 + 1) / 2
ELSEIF EXP:캐릭터등록번호:사정경험 < EXPLV:2
	SOURCE:캐릭터등록번호:노출 += 2500 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 2000 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:불결 += 150 * (사정회수 + 1) / 2
ELSEIF EXP:캐릭터등록번호:사정경험 < EXPLV:3
	SOURCE:캐릭터등록번호:노출 += 1000 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 800 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:불결 += 100 * (사정회수 + 1) / 2
ELSEIF EXP:캐릭터등록번호:사정경험 < EXPLV:4
	SOURCE:캐릭터등록번호:노출 += 800 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 600 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:불결 += 50 * (사정회수 + 1) / 2
ELSEIF EXP:캐릭터등록번호:사정경험 < EXPLV:5
	SOURCE:캐릭터등록번호:노출 += 400 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 400 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:불결 += 10 * (사정회수 + 1) / 2
ELSE
	SOURCE:캐릭터등록번호:노출 += 200 * (사정회수 + 1) / 2
	SOURCE:캐릭터등록번호:굴종 += 250 * (사정회수 + 1) / 2
ENDIF

;-------------------------------------------------
;조교 대상의 사정 체크
;-------------------------------------------------
@TARGET_EJAC_CHECK(캐릭터등록번호)
#DIM 캐릭터등록번호

;남성기가 없으면 돌아간다
SIF !(TALENT:캐릭터등록번호:성별 & 2)
	RETURN 0

LOCAL = (CUP:캐릭터등록번호:쾌C + CUP:캐릭터등록번호:쾌V + CUP:캐릭터등록번호:쾌A + CUP:캐릭터등록번호:쾌B) / 4

;자제심
SIF TALENT:캐릭터등록번호:자제심
	LOCAL /= 2

;쾌감에 솔직
SIF TALENT:캐릭터등록번호:쾌감응답 > 0
	TIMES LOCAL , 1.20

;쾌감에 부정(음란, 창부로 무효)
SIF TALENT:캐릭터등록번호:쾌감응답 < 0 && !TALENT:캐릭터등록번호:음란
	TIMES LOCAL , 0.80

;미약
SIF TCVAR:캐릭터등록번호:춘약
	LOCAL *= 2

;이뇨제
SIF TCVAR:캐릭터등록번호:이뇨제
	LOCAL /= 2
;수면중
SIF CFLAG:캐릭터등록번호:수면
	LOCAL /= 2
BASE:캐릭터등록번호:사정 += LOCAL
SIF BASE:캐릭터등록번호:사정 > MAXBASE:캐릭터등록번호:사정
	BASE:캐릭터등록번호:사정 = MAXBASE:캐릭터등록번호:사정 - 1

;사정 처리의 캐릭터별 터미널
@SAMEN_SHOOT(사정한캐릭터번호)
#DIM 사정한캐릭터번호
#DIM 사정된캐릭터번호

FOR 사정된캐릭터번호, 0, CHARANUM
	SIF SAMEN_DIRECTION2(사정한캐릭터번호, 사정된캐릭터번호)
		CALL SAMEN_SHOOT2(사정한캐릭터번호, 사정된캐릭터번호)
NEXT

;부위별 처리
@SAMEN_SHOOT2(SENDER, RECEIVER)
#DIM SENDER
#DIM RECEIVER
#DIM 억지로반감
#DIM 억지로공포
#DIM 신뢰마이나스
#DIM 호감도마이너스
#DIM 욕구불만해소계수
#DIM 중독보너스
#DIM AblBonus
#DIM DecrementAmount

; 기술에 따른 사정량 배율
; 하단에도 같은 케이스문이 있는데, 개발 편의를 위해 걍 여기서 한번 더 돌리는거야!
; 방중술보다 먼저 처리되게 설계되어있어. 생명력(?) 소진 알고리즘이 방중술로 인해서 고장나는 버그가 있어서야!
; By Subroutineuser
AblBonus = BASE:SENDER:정력 / 50
DEBUGPRINTFORML "-SAMEN_SHOOT2.AblBonus: " + {AblBonus} + " (BEFORE HANDLE)"

; 만약 사정자가 절륜 소질을 가지고 있다면 25% 추가
IF TALENT:SENDER:절륜
	AblBonus += 25
ENDIF

;1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수
SELECTCASE TCVAR:SENDER:사정한개소플래그
	CASE 1
		AblBonus += ((ABL:SENDER:허리 + ABL:RECEIVER:질) * 2) + ((ABL:RECEIVER:기교 + ABL:SENDER:기교) / 2)
	CASE 2
		AblBonus += ((ABL:SENDER:허리 + ABL:RECEIVER:애널) * 2) + ((ABL:RECEIVER:기교 + ABL:SENDER:기교) / 2)
	CASE 3
		AblBonus += ((ABL:RECEIVER:손가락) + (ABL:RECEIVER:기교)) * 2
	CASE 4
		AblBonus += (ABL:RECEIVER:혀 * 2) + ABL:RECEIVER:기교
	CASE 5
		AblBonus += ABL:RECEIVER:기교
	CASE 6
		AblBonus += (ABL:RECEIVER:허리 * 2) + ABL:RECEIVER:기교
	CASE 7
		AblBonus += ABL:RECEIVER:기교
ENDSELECT

AblBonus = MAX(20, AblBonus)
NOWEX:SENDER:사정량 += (NOWEX:SENDER:사정량 * AblBonus) / 100

IF BASE:SENDER:정력 == 0
	SETCOLOR 150, 50, 50

	; 네 정력이 아니라 생명을 짜내고 있는데?
	IF BASE:SENDER:기력 > 0
		DecrementAmount = MAX(0, (NOWEX:SENDER:사정량 * 125) / 100)
		BASE:SENDER:기력 -= DecrementAmount
		PRINTFORML 이미 한계에 도달했다...! (기력 -{DecrementAmount})
	ELSE
		DecrementAmount = NOWEX:SENDER:사정량
		BASE:SENDER:체력 -= DecrementAmount
		PRINTFORML 더 이상 견실 수가 없다...! (체력 -{NOWEX:SENDER:사정량})
	ENDIF

	RESETCOLOR
ENDIF

BASE:SENDER:정력 = MAX(0, BASE:SENDER:정력 - NOWEX:SENDER:사정량)
DEBUGPRINTFORML "-SAMEN_SHOOT2.AblBonus: " + {AblBonus} + " (AFTER HANDLE)"
; End

;;방중술 및 채양/채음 처리
IF TALENT:SENDER:방중술
	MAXBASE:SENDER:기력++
	MAXBASE:RECEIVER:기력++
	BASE:SENDER:기력 = LIMIT(BASE:SENDER:기력 + 100, 0, MAXBASE:SENDER:기력)
	BASE:RECEIVER:기력 = LIMIT(BASE:RECEIVER:기력 + 100, 0, MAXBASE:RECEIVER:기력)
ENDIF
IF GETBIT(TALENT:SENDER:179,0)&&GETBIT(TALENT:SENDER:179,2)
	MAXBASE:SENDER:체력++
	MAXBASE:SENDER:체력++
	BASE:SENDER:체력 = LIMIT(BASE:SENDER:체력 + 100, 0, MAXBASE:SENDER:체력)
	BASE:RECEIVER:체력 = LIMIT(BASE:RECEIVER:체력 - 20, 0, MAXBASE:RECEIVER:체력)
ELSEIF GETBIT(TALENT:SENDER:179,1)&&GETBIT(TALENT:SENDER:179,3)
	MAXBASE:RECEIVER:체력++
	MAXBASE:RECEIVER:체력++
	BASE:SENDER:체력 = LIMIT(BASE:SENDER:체력 - 20, 0, MAXBASE:SENDER:체력)
	BASE:RECEIVER:체력 = LIMIT(BASE:RECEIVER:체력 + 100, 0, MAXBASE:RECEIVER:체력)
ENDIF

중독보너스 = 0
IF SENDER == MASTER && CFLAG:RECEIVER:우후후 == 2
	SOURCE:RECEIVER:달성 += NOWEX:SENDER:사정 * 150
	SOURCE:RECEIVER:정복 += NOWEX:SENDER:사정 * 150
	SIF !(NOWEX:RECEIVER:C절정 + NOWEX:RECEIVER:V절정 + NOWEX:RECEIVER:A절정 + NOWEX:RECEIVER:B절정 + NOWEX:RECEIVER:M절정)
		SOURCE:RECEIVER:정복 += NOWEX:SENDER:사정 * 100
ENDIF
IF TEQUIP:SENDER:콘돔
	;고무를 제외한다
	TEQUIP:SENDER:콘돔 = 0
	IF RECEIVER
		SELECTCASE TCVAR:SENDER:사정한개소플래그
			CASE 1
				CFLAG:RECEIVER:욕구불만도 += ABL:RECEIVER:질내사정중독 * NOWEX:SENDER:사정 * 15
			CASE 2
				CFLAG:RECEIVER:욕구불만도 += ABL:RECEIVER:항내사정중독 * NOWEX:SENDER:사정 * 15
		ENDSELECT
	ENDIF
	;접촉의 리셋
	CALL 삽입해제(RECEIVER)
	TFLAG:고무내 = NOWEX:SENDER:사정량
	IF CFLAG:RECEIVER:자동고무 && ITEM:콘돔 && SENDER == MASTER
		ITEM:콘돔 --
		TEQUIP:SENDER:콘돔 = 1
	ENDIF
ELSE

;TCVAR:12 사정장소 플래그(1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수)
SELECTCASE TCVAR:SENDER:사정한개소플래그
	;질내
	CASE 1
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 2
		EXP:RECEIVER:질내사정경험 += NOWEX:SENDER:사정 * 2
		STAIN:RECEIVER:V |= 4
		STAIN:RECEIVER:질내 |= 4
		TCVAR:RECEIVER:V에질내사정된플래그 = 2
		TCVAR:RECEIVER:V에질내사정한캐릭터의번호 = SENDER
		IF FLAG:시간정지 == 1
			CFLAG:RECEIVER:질내사정 = 2
		ELSE
			CFLAG:RECEIVER:질내사정 = 1
		ENDIF
		NOWEX:RECEIVER:질내정액 = NOWEX:SENDER:사정량
		EX:RECEIVER:질내정액 += NOWEX:RECEIVER:질내정액
		욕구불만해소계수 = 1000 / MIN(100 + ABL:RECEIVER:질내사정중독 * 10,200)
		CFLAG:RECEIVER:욕구불만도 -= SQRT(NOWEX:RECEIVER:질내정액) * 욕구불만해소계수
		CFLAG:RECEIVER:누계질내정액 += NOWEX:RECEIVER:질내정액
		;SIF !TCVAR:RECEIVER:피임약
		CALL SAMEN_SHOOT3(NOWEX:RECEIVER:질내정액 , SENDER, RECEIVER)
		IF FLAG:시간정지 == 0 && TCVAR:RECEIVER:만취 == 0 && !CFLAG:RECEIVER:수면
			TCVAR:RECEIVER:자각 = 1
			CFLAG:RECEIVER:자각사정 = 1
		ENDIF
		IF TCVAR:RECEIVER:억지로
			SELECTCASE ABL:RECEIVER:질내사정중독
				CASE IS < 3
					억지로반감 = 100000
					호감도마이너스 = NOWEX:SENDER:사정 * RAND:50 + NOWEX:SENDER:사정 * RAND:50
					신뢰마이나스 = NOWEX:SENDER:사정 * RAND:20 + NOWEX:SENDER:사정 * RAND:20
					억지로공포 = NOWEX:RECEIVER:질내정액 * 5
				CASE 3 TO 5
					억지로반감 = 50000
					호감도마이너스 = NOWEX:SENDER:사정 * RAND:30 + NOWEX:SENDER:사정 * RAND:30
					신뢰마이나스 = NOWEX:SENDER:사정 * RAND:15 + NOWEX:SENDER:사정 * RAND:15
					억지로공포 = NOWEX:RECEIVER:질내정액 * 3
				CASEELSE
					억지로반감 = 10000
					호감도마이너스 = NOWEX:SENDER:사정 * RAND:10 + NOWEX:SENDER:사정 * RAND:10
					신뢰마이나스 = NOWEX:SENDER:사정 * RAND:10 + NOWEX:SENDER:사정 * RAND:10
					억지로공포 = NOWEX:RECEIVER:질내정액
			ENDSELECT
			IF CFLAG:RECEIVER:생리주기 == 7
				억지로반감 *= 2
				억지로공포 *= 2
				호감도마이너스 *= 2
				신뢰마이나스 *= 2
			ENDIF
			IF CFLAG:RECEIVER:억지로질내사정 > 1
				억지로반감 *= 2
				억지로공포 *= 2
				호감도마이너스 *= 2
				신뢰마이나스 *= 2
			ENDIF
			SOURCE:RECEIVER:반감 += 억지로반감
			IF CFLAG:RECEIVER:억지로질내사정 > 1
				CFLAG:RECEIVER:억지로질내사정 = 3
			ELSE
				CFLAG:RECEIVER:억지로질내사정 = 1
			ENDIF
			TFLAG:호감도관리 -= 호감도마이너스
			CALL CHANGE_CFLAG(4, RECEIVER, 신뢰마이나스 * (-1))
		ENDIF

		;비디오
		IF TEQUIP:비디오촬영
			LOCALS = SV/
			TSTR:1 += LOCALS
		ENDIF
	;애널
	CASE 2
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 2
		EXP:RECEIVER:항내사정경험 += NOWEX:SENDER:사정 * 2
		STAIN:RECEIVER:A |= 4
		STAIN:RECEIVER:장내 |= 4
		;질내사정 표시용
		TCVAR:RECEIVER:A에질내사정된플래그 = 2
		TCVAR:RECEIVER:A에질내사정한캐릭터의번호 = SENDER
		IF FLAG:시간정지 == 1
			CFLAG:RECEIVER:애널사정 = 2
		ELSE
			CFLAG:RECEIVER:애널사정 = 1
		ENDIF
		NOWEX:RECEIVER:애널내정액 = NOWEX:SENDER:사정량
		EX:RECEIVER:애널내정액 += NOWEX:SENDER:사정량
		욕구불만해소계수 = 1000 / MIN(100 + ABL:RECEIVER:항내사정중독 * 10,200)
		CFLAG:RECEIVER:욕구불만도 -= SQRT(NOWEX:RECEIVER:애널내정액) * 욕구불만해소계수
		CFLAG:RECEIVER:누계애널정액 += NOWEX:SENDER:사정량
	;수음
	CASE 3
		EXP:RECEIVER:정음경험 += 1 + NOWEX:SENDER:사정
		STAIN:RECEIVER:손 |= 4
		IF FLAG:시간정지 == 1
			CFLAG:RECEIVER:손에정액 = 2
		ELSE
			CFLAG:RECEIVER:손에정액 = 1
		ENDIF
		IF ABL:RECEIVER:정액중독 > 2 && ABL:RECEIVER:기교 > 2
			EXP:RECEIVER:정음경험 ++
			CFLAG:RECEIVER:누계정음 += NOWEX:SENDER:사정량 / 2
			CFLAG:RECEIVER:욕구불만도 -= NOWEX:SENDER:사정량 * ABL:RECEIVER:정액중독 / 10 * (TALENT:RECEIVER:정애미각 + 1)
		ENDIF
		;접촉의 리셋
		TEQUIP:SENDER:손가락접촉부위 = 0
	;펠라티오
	CASE 4
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 3
		STAIN:RECEIVER:구 |= 4
		IF FLAG:시간정지 == 1
			CFLAG:RECEIVER:구내정액 = 2
		ELSE
			CFLAG:RECEIVER:구내정액 = 1
		ENDIF
		;이라마치오
		욕구불만해소계수 = 1000 / MIN(100 + ABL:RECEIVER:정액중독 * 10,200)
		IF TALENT:RECEIVER:정애미각
			SOURCE:RECEIVER:쾌M += NOWEX:SENDER:사정 * 10
			욕구불만해소계수 += 1
		ENDIF
		IF SELECTCOM == 140
			EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 3
			CFLAG:RECEIVER:누계정음 += NOWEX:SENDER:사정량
		ELSEIF  RAND:(MIN(60, EXP:RECEIVER:정음경험 + 1)) > 10 + RAND:30
			EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 3
			CFLAG:RECEIVER:누계정음 += NOWEX:SENDER:사정량
		ELSE
			EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정
			CFLAG:RECEIVER:누계정음 += NOWEX:SENDER:사정량 / 3
			욕구불만해소계수 /= 2
		ENDIF
		CFLAG:RECEIVER:욕구불만도 -= SQRT(NOWEX:SENDER:사정량) * 욕구불만해소계수 / 4
		;접촉의 리셋
		TEQUIP:SENDER:입접촉부위 = 0
	;파이즈리
	CASE 5
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 3
		CFLAG:RECEIVER:누계뿌려짐 += NOWEX:SENDER:사정량
		STAIN:RECEIVER:5 |= 4
		IF FLAG:시간정지 == 1
			CFLAG:RECEIVER:안면정액 = 2
		ELSE
			CFLAG:RECEIVER:안면정액 = 1
		ENDIF
		;TFLAG:특수COM = 12 에 해당하는 것이 CSV에 쓰여있지 않다
		;(1=식스나인 2=이와시미즈 3=G 스폿 자극 4=흐트러지고 모란 5=수음 펠라 6= 7= 8= 식스나인 파이즈리 13=교호 삽입 )
		;TFLAGS.txt라고 써 있는 것이 다르다(TFLAG:12 역강간계속 플래그(VA공통))
		;	→싫은 예감
		SIF TFLAG:특수COM == 12
			STAIN:RECEIVER:구 |= 4
		;접촉의 리셋
		TEQUIP:SENDER:B접촉부위 = 0
	;가랑이
	CASE 6
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정
		CFLAG:RECEIVER:누계뿌려짐 += NOWEX:SENDER:사정량
		STAIN:RECEIVER:V |= 4
		;접촉의 리셋
		TEQUIP:SENDER:C접촉부위 = 0
	;풋잡
	CASE 7
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정
		CFLAG:RECEIVER:누계뿌려짐 += NOWEX:SENDER:사정량
	;체표
	CASE 8
		EXP:RECEIVER:정음경험 += NOWEX:SENDER:사정 * 2
		CFLAG:RECEIVER:누계뿌려짐 += NOWEX:SENDER:사정량
ENDSELECT
SIF !FLAG:70
	CALL ADDICTION_SOURCE(RECEIVER, SENDER)

ENDIF
CFLAG:RECEIVER:욕구불만도 = LIMIT(CFLAG:RECEIVER:욕구불만도, 0, 1000)
CFLAG:SENDER:욕구불만도 = MAX(CFLAG:SENDER:욕구불만도 - NOWEX:SENDER:사정 * 50, 0)
;사정된 정자를 자궁내에 보내는 처리
@SAMEN_SHOOT3(사정한정액량, 사정한캐릭터, 사정된캐릭터)
#DIM 사정한정액량
#DIM 사정된캐릭터
#DIM 감산보정치
#DIM 가산치

;사용되지 않았다……
#DIM 사정한캐릭터

;73, 삽입자궁입구고문
;뒤로부터 덧쓰기되고 있지만 이것 의미 있어?
IF SELECTCOM == 73
	감산보정치 = 100
ELSE
	SELECTCASE TEQUIP:사정된캐릭터:자궁
	CASE 0
		감산보정치 = 150
	CASE 1
		감산보정치 = 120
	CASE 2
		감산보정치 = 100
ENDSELECT
ENDIF

;매우 수기 hold
SIF TCVAR:사정된캐릭터:카운터행동의파생 == 2 && TCVAR:사정된캐릭터:카운터행동 == 500
	감산보정치 -= 30

가산치 = 사정한정액량 - 감산보정치

IF !TALENT:사정된캐릭터:스침
	SELECTCASE EXP:사정된캐릭터:자궁구개발경험
		CASE IS >= 300
		CASE IS > 100
			가산치 = 가산치 * 2 / 3
		CASEELSE
			가산치 /= 2
	ENDSELECT
ENDIF

;계산 결과가 부라면 가산하지 않는다
IF 가산치 < 0
	RETURN 0
ENDIF
EX:사정된캐릭터:자궁내정액 += 가산치

;통상의 커맨드 밖에서 당신이 V에 냈을 때의 처리를 일괄로 하는 함수
;기본적으로 오나바렉스용
@ADD_SAMEN_V(ARG, 사정한정액량, 무자각)
#DIM 사정한정액량
#DIM 무자각

사정한정액량 = MIN(BASE:MASTER:정력, 사정한정액량)
BASE:MASTER:정력 -= 사정한정액량
;;

CALL SAMEN_SHOOT3(사정한정액량, MASTER, ARG)
SIF (TALENT:MASTER:절륜)
	사정한정액량=사정한정액량*2
EX:ARG:질내정액 += 사정한정액량
CFLAG:ARG:누계질내정액 += 사정한정액량

SIF !무자각
	TCVAR:ARG:자각 = 1

STAIN:ARG:V |= 4
STAIN:ARG:질내 |= 4

STAIN:MASTER:P |= 1
STAIN:MASTER:P |= 4

;통상의 커맨드 밖에서 당신이 A에 냈을 때의 처리를 일괄로 하는 함수
;기본적으로 오나바렉스용
@ADD_SAMEN_A(ARG, 사정한정액량)
#DIM 사정한정액량

사정한정액량 = MIN(BASE:MASTER:정력, 사정한정액량)
BASE:MASTER:정력 -= 사정한정액량

SIF (TALENT:MASTER:절륜)
	사정한정액량=사정한정액량*2

EX:ARG:애널내정액 += 사정한정액량
CFLAG:ARG:누계애널정액 += 사정한정액량

STAIN:ARG:A |= 4
STAIN:ARG:장내 |= 4

STAIN:MASTER:P |= 8
STAIN:MASTER:P |= 4

@ADDICTION_SOURCE(RECEIVER, SENDER)
#DIM RECEIVER
#DIM SENDER
#DIM AMOUNT
#DIMS REVISED_FLAG
#DIM REVISION
#DIM 중독레벨

SELECTCASE TCVAR:SENDER:사정한개소플래그
	CASE 1
		중독레벨 = ABL:RECEIVER:질내사정중독
		REVISED_FLAG = 질내사정보정
	CASE 2
		중독레벨 = ABL:RECEIVER:항내사정중독
		REVISED_FLAG = 항내사정보정
	CASE 4
		중독레벨 = ABL:RECEIVER:정액중독
		REVISED_FLAG = 구강사정보정
	CASEELSE
		RETURN
ENDSELECT

TCVAR:RECEIVER:REVISED_FLAG = NOWEX:SENDER:사정량 * (10 + 중독레벨)

IF TALENT:SENDER:농후정액
	REVISION = GET_REVISION(TCVAR:RECEIVER:REVISED_FLAG, 500, 1000)
ELSE
	REVISION = GET_REVISION(TCVAR:RECEIVER:REVISED_FLAG, 500, 2000)
ENDIF

;동시절정의 경우 증가
SIF SENDER == MASTER && SYNCED_ORGASM(RECEIVER)
	REVISION = REVISION * 5 / 4

SOURCE:RECEIVER:사랑 += REVISION * 2
SOURCE:RECEIVER:욕정 += REVISION * 2
SOURCE:RECEIVER:복종 += REVISION
SOURCE:RECEIVER:굴종 += REVISION

TCVAR:RECEIVER:REVISED_FLAG = REVISION

@ADDICTION_SHOW(ARG, 보정명, 대응중독)
#DIMS 대응중독
#DIMS 보정명
#DIM REVISION

LOCAL = FINDELEMENT(ABLNAME, 대응중독)

REVISION = TCVAR:ARG:보정명
SIF REVISION
	PRINTFORML %CALLNAME:ARG%（%ABLNAME:LOCAL%{ABL:ARG:대응중독}）:사랑+{REVISION * 2} 욕정+{REVISION * 2} 굴종+{REVISION} 복종+{REVISION}

@AUTO_SKIN_EQUIP
SIF !CFLAG:TARGET:자동고무
	RETURN
SIF !ITEM:콘돔
	RETURN
SIF TEQUIP:MASTER:콘돔
	RETURN

ITEM:콘돔 --
TEQUIP:MASTER:콘돔 = 1
PRINTFORML %마스터는% 콘돔을 착용했다. 나머지 {ITEM:콘돔}매


code:
@SAMEN_DIRECTION(ARG, ARG:1)
#FUNCTION
;ARG 사정하는 사람
;ARG:1 사정되는 사람
LOCALS = /{ARG:1}/
SIF STRCOUNT(CSTR:ARG:10, LOCALS)
	RETURNF 1

@SAMEN_DIRECTION2(ARG, ARG:1)
#FUNCTION
;ARG 사정하는 사람
;ARG:1 사정되는 사람
LOCALS = /{ARG:1}/
SIF STRCOUNT(CSTR:ARG:11, LOCALS)
	RETURNF 1

@EVENT_SHOOT
VARSET LOCAL
;TCVAR:2 사정장소 플래그(1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
;TCVAR:4 사정쾌감강도
;사정 전판정
FOR LOCAL, 0, CHARANUM
	SIF !(TALENT:LOCAL:2 & 2)
		CONTINUE
	;콘돔
	IF TEQUIP:LOCAL:콘돔
		TCVAR:LOCAL:콘돔 = 1
	ELSE
		TCVAR:LOCAL:콘돔 = 0
	ENDIF
	SIF LOCAL > 0
		CALL TARGET_EJAC_CHECK(LOCAL)
	;더블 펠라등의 두 사람째보정에 사용한다
	LOCAL:2 = 0
	FOR LOCAL:1, 0, CHARANUM
		IF LOCAL:1 == 0
			LOCAL:3 = 0
		ELSE
			SIF TARGET:(LOCAL:1) <= 0
				CONTINUE
			LOCAL:3 = TARGET:(LOCAL:1)
		ENDIF
		SIF SAMEN_DIRECTION(LOCAL, LOCAL:3)
			CALL EJAC_CHECK(LOCAL, LOCAL:3, LOCAL:2)
		LOCAL:2 ++
	NEXT
NEXT
;사정 처리
FOR LOCAL, 0, GET_TARGETNUM() + 1
	LOCAL:1 = TARGET:LOCAL
	SIF !LOCAL
		LOCAL:1 = MASTER
	;사정 처리
	SIF TCVAR:(LOCAL:1):사정쾌감강도
		CALL EJAC_CHECK_AFTER(LOCAL:1)
	SIF NOWEX:(LOCAL:1):사정
		CALL SAMEN_SHOOT(LOCAL:1)
NEXT

;필수는 아니지만 말표시를 알기 쉽게 하기 위해서 사정 상황을 TFLAG:1에 할당한다(현재 상태로서는 필수입니다)
;PLAYER로부터 사정 대상에의 질내~애널 봉사 사정까지는 TCVAR:12(=1~9)에 준거
SIF SAMEN_DIRECTION2(PLAYER, MASTER_POSE(0, SET_P))
	SETBIT TFLAG:1, TCVAR:PLAYER:12

FOR LOCAL, 1, CHARANUM
	IF SAMEN_DIRECTION2(PLAYER, LOCAL)
		SETBIT TCVAR:LOCAL:50, TCVAR:PLAYER:12
	ENDIF
NEXT

;수음 펠라
IF TFLAG:50 == 5 && NOWEX:PLAYER:사정
	SETBIT TFLAG:1, 20
	SETBIT TCVAR:50, 20
ENDIF
;파이즈리 펠라
IF TFLAG:50 == 12 && NOWEX:PLAYER:사정
	SETBIT TFLAG:1, 21
	SETBIT TCVAR:50, 21
ENDIF
;授乳プレイ
IF TFLAG:50 == 19 && NOWEX:PLAYER:사정
	SETBIT TFLAG:1,26
	SETBIT TCVAR:50,26
ENDIF
;거품춤으로 TARGET 사정
IF TCVAR:PLAYER:12 == 8
	SETBIT TFLAG:1, 8
	SETBIT TCVAR:50, 8
ENDIF
;식스나인
IF TFLAG:50 == 1 && (NOWEX:PLAYER:사정 || NOWEX:사정)
	SETBIT TFLAG:1, 22
	SETBIT TCVAR:50, 22
ENDIF
;이라마치오
IF SELECTCOM == 140 && NOWEX:PLAYER:사정
	SETBIT TFLAG:1, 23
	SETBIT TCVAR:50, 23
ENDIF
;자궁구 고문
IF TFLAG:50 == 7 && NOWEX:PLAYER:사정
	SETBIT TFLAG:1, 24
	SETBIT TCVAR:50, 24
ENDIF
SIF !GETBIT(TFLAG:일일일회, 8) && NOWEX:PLAYER:사정
	SETBIT TFLAG:일일일회, 8

@EJAC_CHECK(ARG, ARG:1, ARG:2)
#DIM 기교보정
#DIM 게이지증가량
#DIM 총계쾌락강도
#DIM P감도보정
#DIM 순종보정
#DIM 욕망보정
#DIM 봉사정신보정
#DIM 윤활보정
;ARG 사정하는 사람
;ARG:1 사정시키는 사람
;ARG:2 W펠라등에 있어서의 두 사람째보정
;-------------------------------------------------
;사정 게이지 체크
;-------------------------------------------------
;LOCAL:1~에 보정치를 처넣어 갑니다
;CFLAG:101 사정장소 플래그(1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=

;기교(공통)
LOCAL = ABL:(ARG:1):기교
기교보정 = 10 + GET_REVISION(LOCAL, 5 , 5)

;순종(공통)
LOCAL = 0
IF ARG:1 == MASTER
	LOCAL = 3
ELSE
	LOCAL = ABL:(ARG:1):순종
ENDIF
순종보정 = 10 + GET_REVISION(LOCAL, 3 , 5)

;봉사정신(봉사계)
LOCAL = 0
IF TCVAR:(ARG:1):108 && ARG == PLAYER
	LOCAL = ABL:(ARG:1):봉사정신
	봉사정신보정 = 10 + GET_REVISION(LOCAL, 10 , 5)
ELSE
	봉사정신보정 = 10
ENDIF

;욕망(성교계)
욕망보정 = 10
IF TCVAR:ARG:2 <= 2
	LOCAL = 0
	IF ARG:1 == MASTER
		LOCAL = 3
	ELSE
		LOCAL = ABL:(ARG:1):욕망
	ENDIF
	욕망보정 = 10 + GET_REVISION(LOCAL, 5 , 3)
ENDIF

;윤활
윤활보정 = 10
IF TCVAR:ARG:2 <= 2 || TCVAR:ARG:2 == 6
	IF PALAM:윤활 < PALAMLV:2
		윤활보정 = 2
	ELSEIF PALAM:윤활 < PALAMLV:3
		윤활보정 = 4
	ELSEIF PALAM:윤활 < PALAMLV:4
		윤활보정 = 6
	ELSEIF PALAM:윤활 < PALAMLV:7
		윤활보정 = 8
	ELSE
		윤활보정 = 10
	ENDIF
ENDIF

;플레이어의 C감각을 본다
P감도보정 = 10 + ABL:ARG:0 / 2

DEBUGPRINTFORML 보정 전쾌락강도{TCVAR:ARG:4}
DEBUGPRINTFORML 기교보정{기교보정}
DEBUGPRINTFORML 욕망보정{욕망보정}
DEBUGPRINTFORML 윤활보정{윤활보정}
DEBUGPRINTFORML 봉사정신보정{봉사정신보정}
DEBUGPRINTFORML P감도보정{P감도보정}
DEBUGPRINTFORML 부위보정{부위보정(ARG, ARG:1, ARG:2)}
총계쾌락강도 = TCVAR:ARG:4 * 기교보정 * 순종보정 * P감도보정 * 봉사정신보정 * 윤활보정 * 욕망보정 * 부위보정(ARG, ARG:1, ARG:2) / 10000000 * (ARG:2 + 1)

SIF CFLAG:ARG:우후후 != 2
	총계쾌락강도 = 총계쾌락강도 * (BASE:ARG:정력 + MAXBASE:ARG:정력) / (MAXBASE:ARG:정력 * 2)
SIF TCVAR:ARG:콘돔
	총계쾌락강도 = 총계쾌락강도 * 4 / 5
SIF TEQUIP:ARG:애태우기모드
	총계쾌락강도 = 총계쾌락강도 * 4 / 5
SIF TALENT:ARG:스침
	총계쾌락강도 = 총계쾌락강도 * 4 / 5
게이지증가량 = 총계쾌락강도

DEBUGPRINTFORML 보정 후 쾌락강도{총계쾌락강도}

SELECTCASE BASE:ARG:발기
	CASE IS < 300
		총계쾌락강도 /= 5
	CASE IS < 500
		총계쾌락강도 /= 4
	CASE IS < 1000
		총계쾌락강도 /= 3
	CASE IS < 1500
		총계쾌락강도 /= 2
	CASE 1500
		총계쾌락강도 = 총계쾌락강도 * 2 / 3
ENDSELECT
BASE:ARG:발기 = BASE:ARG:발기 + 총계쾌락강도 / 5

SELECTCASE BASE:ARG:발기
	CASE IS < 500
		게이지증가량 /= 5
	CASE IS < 1000
		게이지증가량 /= 3
	CASE IS < 1500
		게이지증가량 = 게이지증가량 / 5 * 2
	CASE 1500
		게이지증가량 /= 2
ENDSELECT
BASE:ARG:사정 += 게이지증가량

TCVAR:ARG:사정게이지증가량 = 게이지증가량

@부위보정(ARG, ARG:1, ARG:2)
;-------------------------------------------------
;LOCAL 보정전의 쾌락강도
;ARG 사정하는 사람
;ARG:1 사정시키는 사람
;ARG:2 W펠라등에 있어서의 두 사람째보정
;-------------------------------------------------
#FUNCTION

LOCAL = 10
;연모
SIF TALENT:(ARG:1):연모
	LOCAL += 2

SELECTCASE TCVAR:ARG:2
	;질
	CASE 1
		;처녀
		SIF EX:(ARG:1):처녀상실체크
			LOCAL += 8
		SIF TALENT:(ARG:1):음호
			LOCAL += 3
		SIF !FLAG:70
			LOCAL += ((ABL:(ARG:1):허리 + ABL:(ARG:1):질 * 2) / 2 - 3)
		SIF NOWEX:(ARG:1):V절정
			LOCAL += 1
		SIF 삽입불가(ARG:1) == -1 && ABL:(ARG:1):질 < 2
			LOCAL -= 2
		SIF 삽입불가(ARG:1) == -2 && ABL:(ARG:1):질 < 3
			LOCAL -= 5
	;애널
	CASE 2
		SIF !EXP:(ARG:1):A성교경험
			LOCAL += 8
		SIF TALENT:(ARG:1):항문광
			LOCAL += 3
		SIF !FLAG:70
			LOCAL += ((ABL:(ARG:1):허리 + ABL:(ARG:1):애널 * 2) / 2 - 3)
		SIF NOWEX:(ARG:1):A절정
			LOCAL += 1
		SIF 삽입불가(ARG:1) == -1 && ABL:(ARG:1):애널 < 2
			LOCAL -= 2
		SIF 삽입불가(ARG:1) == -2 && ABL:(ARG:1):애널 < 3
			LOCAL -= 5
	;수음
	CASE 3
		SIF TALENT:(ARG:1):능숙한손가락
			LOCAL += 2
		SIF !FLAG:70 && !CFLAG:장난
			LOCAL += (ABL:(ARG:1):손가락 - 2) / 2
	;펠라티오
	CASE 4
		SIF TALENT:(ARG:1):혀놀림
			LOCAL += 2
		SIF TALENT:(ARG:1):고양이혀
			LOCAL -= 2
		SIF !FLAG:70 && !CFLAG:(ARG:1):장난
			LOCAL += (ABL:(ARG:1):혀 - 2) / 2
		;파이즈리 펠라
		IF TFLAG:50 == 12
			LOCAL += TALENT:(ARG:1):가슴사이즈
			IF !FLAG:70 && !CFLAG:(ARG:1):장난
				SELECTCASE ABL:(ARG:1):가슴
					CASE 0 TO 1
						LOCAL = LOCAL - 6 + ABL:(ARG:1):가슴
					CASE IS >= 2
						LOCAL += (ABL:(ARG:1):가슴 - 2) / 2
				ENDSELECT
			ENDIF
		ENDIF
		;내친 김에 청소 플래그
		IF ABL:(ARG:1):봉사정신 >= 2 && ABL:(ARG:1):기교 >= 2 && TEQUIP:(ARG:1):볼개그 == 0 && EXP:(ARG:1):정음경험 > 20
			STAIN:ARG:2 = 2
			IF TFLAG:50 == 9 && ARG:1 == MASTER_POSE(SET_M, SET_P, 1)
				TFLAG:8 |= 2
			ELSEIF ARG:1 == TARGET
				TFLAG:8 |= 1
			ENDIF
		ENDIF
	;파이즈리
	CASE 5
		LOCAL += TALENT:(ARG:1):가슴사이즈
		IF !FLAG:70 && !CFLAG:(ARG:1):장난
			SELECTCASE ABL:(ARG:1):가슴
				CASE 0 TO 1
					LOCAL = LOCAL - 6 + ABL:(ARG:1):가슴
				CASE IS >= 2
					LOCAL += (ABL:(ARG:1):가슴 - 2) / 2
			ENDSELECT
		ENDIF
		;파이즈리 펠라
		IF TFLAG:50 == 12
			SIF TALENT:(ARG:1):혀놀림
				ARG += 2
			SIF TALENT:(ARG:1):고양이혀
				ARG -= 2
			LOCAL += (ABL:(ARG:1):혀 - 2) / 2
		ENDIF
		;청소 플래그
		IF ABL:(ARG:1):봉사정신 >= 2 && ABL:(ARG:1):기교 >= 2 && TEQUIP:(ARG:1):볼개그 == 0 && EXP:(ARG:1):정음경험 > 20
			STAIN:ARG:2 = 2
			IF ARG:1 == ASSI
				TFLAG:8 |= 2
			ELSEIF ARG:1 == TARGET
				TFLAG:8 |= 1
			ENDIF
		ENDIF
	;가랑이
	CASE 6
	;풋잡
	CASE 7
		SIF TALENT:(ARG:1):새드
			LOCAL += 2
	;체표(거품춤)
	CASE 8
	;애널 봉사
	CASE 9
		SIF TALENT:(ARG:1):혀놀림
			LOCAL += 2
		SIF TALENT:(ARG:1):고양이혀
			LOCAL -= 2
		SIF !FLAG:70
			LOCAL += (ABL:(ARG:1):혀 - 2) / 2
	;도구
	CASE 10
	;촉수
	CASE 11
	;A고문
	CASE 12
	;V고문
	CASE 13
ENDSELECT

RETURNF LOCAL


code:
@사정절정표기(ARG)
#DIM C절정회수
#DIM V절정회수
#DIM A절정회수
#DIM B절정회수
#DIM M절정회수
#DIM 동시절정보정
#DIM 개행판정
#DIM 접속판정
#DIMS 이름표기

IF ARG == MASTER
	이름표기 =
ELSE
	이름표기 = (%CALLNAME:ARG%)
ENDIF

;●---절정의 표기---●
IF NOWEX:ARG:오중절정
	동시절정보정 = 16
ELSEIF NOWEX:ARG:사중절정
	동시절정보정 = 8
ELSEIF NOWEX:ARG:삼중절정
	동시절정보정 = 4
ELSEIF NOWEX:ARG:이중절정
	동시절정보정 = 2
ELSE
	동시절정보정 = 1
ENDIF

C절정회수 = NOWEX:ARG:C절정 / 동시절정보정
V절정회수 = NOWEX:ARG:V절정 / 동시절정보정
A절정회수 = NOWEX:ARG:A절정 / 동시절정보정
B절정회수 = NOWEX:ARG:B절정 / 동시절정보정
M절정회수 = NOWEX:ARG:M절정 / 동시절정보정

SETCOLOR C_PINK
개행판정 = 0
LOCALS:0 =
LOCALS:1 =
LOCALS:2 =
IF C절정회수 > 2
	LOCALS:2 += "C"
ELSEIF C절정회수 > 1
	LOCALS:1 += "C"
ELSEIF C절정회수 > 0
	LOCALS:0 += "C"
ENDIF
IF V절정회수 > 2
	LOCALS:2 += "V"
ELSEIF V절정회수 > 1
	LOCALS:1 += "V"
ELSEIF V절정회수 > 0
	LOCALS:0 += "V"
ENDIF
IF A절정회수 > 2
	LOCALS:2 += "A"
ELSEIF A절정회수 > 1
	LOCALS:1 += "A"
ELSEIF A절정회수 > 0
	LOCALS:0 += "A"
ENDIF
IF B절정회수 > 2
	LOCALS:2 += "B"
ELSEIF B절정회수 > 1
	LOCALS:1 += "B"
ELSEIF B절정회수 > 0
	LOCALS:0 += "B"
ENDIF
IF M절정회수 > 2
	LOCALS:2 += "M"
ELSEIF M절정회수 > 1
	LOCALS:1 += "M"
ELSEIF M절정회수 > 0
	LOCALS:0 += "M"
ENDIF
IF LOCALS:0 != "" || LOCALS:1 != "" || LOCALS:2 != ""
	PRINT 《
	접속판정 = 0
	IF LOCALS:2 != ""
		PRINTFORM %LOCALS:2%초강 절정
		접속판정 = 1
	ENDIF
	IF LOCALS:1 != ""
		IF 접속판정
			PRINT /
		ENDIF
		PRINTFORM %LOCALS:1%강절정
		접속판정 = 1
	ENDIF
	IF LOCALS:0 != ""
		IF 접속판정
			PRINT /
		ENDIF
		PRINTFORM %LOCALS:0%절정
	ENDIF
	PRINT 》
	개행판정 = 1
ENDIF
SIF SYNCED_ORGASM(ARG) && !FLAG:70
	CALL COLORMESSAGE(@"＜동시절정＞（호감도, 소스 입수량 증가）",C_YELLOW)

;●---사정의 표기---●
SETCOLOR C_CREAM
IF NOWEX:ARG:사정
	PRINT 【
	SELECTCASE TCVAR:ARG:12
		CASE 1
			PRINT 질내
		CASE 2
			PRINT 항내
		CASE 4
			PRINT 입안
		CASE 5
			PRINT 유내
		CASE 12
			PRINT A고문
		CASE 13
			PRINT 질고문
	ENDSELECT
	SIF NOWEX:ARG:사정 > 2
		PRINT 초과
	SIF NOWEX:ARG:사정 > 1
		PRINT 대량
	SIF TALENT:ARG:농후정액
		PRINT 농후
	PRINT 사정】
	개행판정 = 1
ENDIF

RESETCOLOR

SIF 개행판정
	PRINTFORML %이름표기%

IF ARG == MASTER
	FOR LOCAL,1,CHARANUM
		CALL ADDICTION_SHOW(LOCAL, "질내사정보정", "질내사정중독")
		CALL ADDICTION_SHOW(LOCAL, "항내사정보정", "항내사정중독")
		CALL ADDICTION_SHOW(LOCAL, "구강사정보정", "정액중독")
	NEXT
ENDIF


code:
@STAIN_질내P삽입
IF !TEQUIP:PLAYER:콘돔
	;질내에 파과의 피의 더러움을 부가
	SIF TALENT:처녀 == 1 || TALENT:처녀 == 2
		STAIN:6 |= 64
	;노예의 질내⇔조교자의 P의 더러움이 이동
	STAIN:PLAYER:2 |= STAIN:3
	STAIN:PLAYER:2 |= STAIN:6
	STAIN:3 |= STAIN:PLAYER:2
	STAIN:6 |= STAIN:PLAYER:2
ENDIF

@STAIN_애널P삽입
IF !TEQUIP:PLAYER:콘돔
	;노예의 A⇔조교자의 P의 더러움이 이동
	STAIN:PLAYER:2 |= STAIN:4
	STAIN:PLAYER:2 |= STAIN:7
	STAIN:4 |= STAIN:PLAYER:2
	STAIN:7 |= STAIN:PLAYER:2
ENDIF


code:
@SOURCE_ABLUP(ARG)
IF ABL:ARG:전투능력 < 7
	IF EXP:ARG:전투경험 > EXPLV:(ABL:ARG:전투능력 + 3) || (EXP:ARG:전투경험 > 5 && ABL:ARG:전투능력 == 0)
		ABL:ARG:전투능력 ++
		PRINTFORMW %CALLNAME:ARG%의 전투능력이 LV{ABL:ARG:전투능력}이 되었습니다
	ENDIF
ENDIF
IF ABL:ARG:화술기능 < 7
	IF EXP:ARG:회화경험 > EXPLV:(ABL:ARG:화술기능 + 3)
		ABL:ARG:화술기능 ++
		PRINTFORMW %CALLNAME:ARG%의 화술기능이 LV{ABL:ARG:화술기능}이 되었습니다
	ENDIF
ENDIF

IF ABL:ARG:청소기능 < 7
	IF EXP:ARG:청소경험 > EXPLV:(ABL:ARG:청소기능 + 3)
		ABL:ARG:청소기능 ++
		PRINTFORMW %CALLNAME:ARG%의 청소기능이 LV{ABL:ARG:청소기능}이 되었습니다
	ENDIF
ENDIF
IF ABL:ARG:교양 < 7
	IF EXP:ARG:학습경험 > EXPLV:(ABL:ARG:교양 + 3) || (EXP:ARG:학습경험 > 5 && ABL:ARG:교양 == 0)
		ABL:ARG:교양 ++
		PRINTFORMW %CALLNAME:ARG%의 교양이 LV{ABL:ARG:교양}이 되었습니다
		SIF ABL:ARG:교양 == 1 && !ARG
			PRINTW 미약을 사용할 수 있게 되었습니다
	ENDIF
ENDIF
IF ABL:ARG:요리기능 < 7
	IF EXP:ARG:요리경험 > EXPLV:(ABL:ARG:요리기능 + 3) || (EXP:ARG:요리경험 > 5 && ABL:ARG:요리기능 == 0)
		ABL:ARG:요리기능 ++
		PRINTFORMW %CALLNAME:ARG%의 요리기능이 LV{ABL:ARG:요리기능}이 되었습니다
		IF ARG == MASTER && ABL:ARG:요리기능 >= 3 && !TALENT:MASTER:대식가
			PRINTFORMW %마스터는% 【대식가】를 얻었다
			TALENT:MASTER:대식가 = 1
		ENDIF
	ENDIF
ENDIF
IF TALENT:ARG:채집Lv < 6
	IF EXP:ARG:채집경험 > EXPLV:(TALENT:ARG:채집Lv + 3) || (EXP:ARG:채집경험 > 5 && TALENT:ARG:채집Lv == 0)
		TALENT:ARG:채집Lv ++
		PRINTFORMW %CALLNAME:ARG%의 채집Lv이 LV{TALENT:ARG:채집Lv}이 되었습니다
	ENDIF
ENDIF

IF ABL:ARG:음악기능 < 7
	IF (MAX(EXP:ARG:연주경험, EXP:ARG:가창경험, EXP:ARG:무도경험) > EXPLV:(ABL:ARG:음악기능 + 3) * 2) || (MAX(EXP:ARG:연주경험, EXP:ARG:가창경험, EXP:ARG:무도경험) > 20 && ABL:ARG:음악기능 == 0)
		ABL:ARG:음악기능 ++
		PRINTFORMW %CALLNAME:ARG%의 음악기능이 LV{ABL:ARG:음악기능}이 되었습니다
		SIF ARG == MASTER && ABL:ARG:음악기능 == 2
			PRINTW 바이올린을 사용할 수 있게 되었습니다

		[SKIPSTART]
		IF ABL:ARG:음악기능 != 2
		ELSEIF ARG == MASTER
			PRINTW 바이올린을 사용할 수 있게 되었습니다
		ELSEIF TALENT:ARG:음악지식
		ELSE
			;아마, 현상으로 경험을 쌓는 수단이 없다
			SELECTCASE MAX(EXP:ARG:연주경험, EXP:ARG:가창경험, EXP:ARG:무도경험)
			CASE EXP:ARG:연주경험
				PRINTFORMW 경험을 쌓은 %ARG는% 사람들 앞에서 악기의 연주를 할 수 있게 되었습니다
				TALENT:ARG:음악지식 = 1
			CASE EXP:ARG:가창경험
				PRINTFORMW 경험을 쌓은 %ARG는% 사람들 앞에서 노래를 공개 할 수가 있게 되었습니다
				TALENT:ARG:음악지식 = 2
			CASE EXP:ARG:무도경험
				PRINTFORMW 경험을 쌓은 %ARG는% 사람들 앞에서 춤을 공개 할 수가 있게 되었습니다
				TALENT:ARG:음악지식 = 3
			CASEELSE
		ENDIF
		[SKIPEND]
	ENDIF
ENDIF
IF ARG == MASTER && EXP:ARG:연주경험 >= 1000 && ABL:ARG:기교 >= 3 && !TALENT:ARG:음악지식 == 1
	PRINTFORMW %마스터는% 악기 연주에 조예가 깊어졌다
	PRINTFORMW %마스터는% [악기지식]을 얻었다
	TALENT:ARG:음악지식 = 1
ENDIF
IF ARG == MASTER && EXP:ARG:연주경험 >= 5000 && !TALENT:ARG:음감 == 1
	PRINTFORMW %CALLNAME:MASTER%의 음감은 꽤 단련할 수 있어 온 것 같다
	PRINTFORMW %마스터는% [상대 음감]을 얻었다
	TALENT:ARG:음감 = 1
ENDIF

IF TALENT:ARG:낚시Lv < 7
	IF EXP:ARG:낚시경험 > EXPLV:(TALENT:ARG:낚시Lv + 3) || (EXP:ARG:낚시경험 > 5 && TALENT:ARG:낚시Lv == 0)
		TALENT:ARG:낚시Lv ++
		PRINTFORMW %CALLNAME:ARG%의 낚시Lv이 LV{TALENT:ARG:낚시Lv}이 되었습니다
	ENDIF
ENDIF

IF TALENT:ARG:조제Lv < 6
	IF EXP:ARG:조제경험 > EXPLV:(TALENT:ARG:조제Lv + 3) || (EXP:ARG:조제경험 > 5 && TALENT:ARG:조제Lv == 0)
		TALENT:ARG:조제Lv ++
		PRINTFORMW %CALLNAME:ARG%의 조제Lv이 LV{TALENT:ARG:조제Lv}이 되었습니다
	ENDIF
ENDIF

IF ABL:ARG:손가락 < 7
	LOCAL = EXP:ARG:수음경험
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:능숙한손가락 * 2 + TALENT:ARG:습득속도
	IF LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:손가락 + 3) / 2; && EXP_UP(24, ARG)
		ABL:ARG:손가락 ++
		PRINTFORMW %CALLNAME:ARG%의 손가락이 능숙하게 되었다
		IF ABL:ARG:손가락 >= 5 && !TALENT:ARG:능숙한손가락
			PRINTFORMW %ARG는% [능숙한손가락]을 얻었다
			TALENT:ARG:능숙한손가락 = 1
		ENDIF
	ENDIF
ENDIF
IF ABL:ARG:혀 < 7
	LOCAL = EXP:ARG:펠라티오경험
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:혀놀림 * 2 + TALENT:ARG:습득속도
	IF  LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:혀 + 3); && EXP_UP(25, ARG)
		ABL:ARG:혀 ++
		PRINTFORMW %CALLNAME:ARG%의 혀가 능숙하게 되었다
		IF ABL:ARG:혀 >= 5 && !TALENT:ARG:혀놀림
			PRINTFORMW %ARG는% [혀놀림]을 얻었다
			TALENT:ARG:혀놀림 = 1
		ENDIF
	ENDIF
ENDIF
IF ABL:ARG:가슴 < 7
	LOCAL = EXP:ARG:파이즈리경험 * 2 +  EXP:ARG:B경험 / 5 + EXP:ARG:분유경험  / 4
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:가슴사이즈 + TALENT:ARG:습득속도
	SIF FLAG:포부 == 5
		LOCAL:1 ++
	SIF GETBIT (CFLAG:ARG:인계, 5)
		LOCAL:1 *= 4
	IF LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:가슴 + 3) && EXP:ARG:파이즈리경험 + EXP:ARG:분유경험  / 5 > EXPLV:(ABL:ARG:가슴 + 1); && EXP_UP(26, ARG)
		ABL:ARG:가슴 ++
		PRINTFORMW %CALLNAME:ARG%의 가슴을 사용한 성 기술의 기술이 늘어난 것 같다
		IF ABL:ARG:가슴 >= 5 && TALENT:ARG:2 != 2 && !TALENT:ARG:음유
			PRINTFORMW %ARG는% [음유]를 얻었다
			TALENT:ARG:음유 = 1
		ENDIF
	ENDIF
ENDIF
IF ABL:ARG:허리 < 7
	LOCAL = EXP:ARG:V성교경험 + EXP:ARG:A성교경험 + EXP:ARG:삽입경험
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:습득속도
	SIF GETBIT (CFLAG:ARG:인계, 3) || GETBIT (CFLAG:ARG:인계, 4)
		LOCAL:1 *= 4
	IF LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:허리 + 3)
		ABL:ARG:허리 ++
		PRINTFORMW %CALLNAME:ARG%의 허리 사용이 잘 되었다
	ENDIF
ENDIF
IF ABL:ARG:질 < 7
	;너무 넓히면(자) 헐렁헐렁이 되어 버려요
	LOCAL = EXP:ARG:V성교경험  * 2 +  EXP:ARG:V경험 / 5 + (EXP:ARG:V확장경험 <= 10 ?  EXP:ARG:V확장경험 * 5 # 100 - EXP:ARG:V확장경험 * 5)
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:습득속도
	SIF FLAG:포부 == 3
		LOCAL:1 ++
	SIF GETBIT (CFLAG:ARG:인계, 3)
		LOCAL:1 *= 4
	IF LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:질 + 3) && EXP:ARG:V성교경험 >  EXPLV:(ABL:ARG:질 + 1); && EXP_UP(20, ARG)
		ABL:ARG:질 ++
		PRINTFORMW %CALLNAME:ARG%의 성교 기술이 늘어난 것 같다
		IF ABL:ARG:질 >= 5 && TALENT:ARG:2 != 2 && !TALENT:ARG:음호
			PRINTFORMW %ARG는% [음호]를 얻었다
			TALENT:ARG:음호 = 1
		ENDIF
	ENDIF
ENDIF
IF ABL:ARG:애널 < 7
	LOCAL = EXP:ARG:A성교경험  * 2 +  EXP:ARG:A경험 / 5 + (EXP:ARG:A확장경험 <= 25 ?  EXP:ARG:A확장경험 * 2 # 100 - 2 * EXP:ARG:A확장경험)
	LOCAL:1 = 10 + ABL:ARG:기교 / 2 + TALENT:ARG:습득속도
	SIF FLAG:포부 == 4
		LOCAL:1 ++
	SIF GETBIT (CFLAG:ARG:인계, 4)
		LOCAL:1 *= 4
	IF LOCAL * LOCAL:1 / 10 > EXPLV:(ABL:ARG:애널 + 3) && EXP:ARG:A성교경험 > EXPLV:(ABL:ARG:애널 + 1); && EXP_UP(21, ARG)
		ABL:ARG:애널 ++
		PRINTFORMW %CALLNAME:ARG%의 애널을 이용한 성교 기술이 늘어난 것 같다
		IF ABL:ARG:애널 >= 5 && !TALENT:ARG:항문광
			PRINTFORMW %ARG는% [항문광]을 얻었다
			TALENT:ARG:항문광 = 1
		ENDIF
	ENDIF
ENDIF

IF !TALENT:ARG:조합지식 && TALENT:ARG:조제Lv >= 3 && ABL:ARG:교양 >= 3
	PRINTFORML %ARG는%【조합지식】을 얻었다
	TALENT:ARG:조합지식 = 1
ENDIF


code:
;-------------------------------------------------
;바이브 등 붙이고 있을 뿐 아이템의 체크
;-------------------------------------------------
@EQUIP_CHECK(ARG)
;클리캡 장착중
SIF TEQUIP:ARG:클리캡
	CALLFORM EQUIP_COM{COM클리캡}(ARG)

;오나홀 장착중
SIF TEQUIP:ARG:오나홀
	CALLFORM EQUIP_COM{COM오나홀}(ARG)

;바이브 장착중
SIF TEQUIP:ARG:바이브
	CALLFORM EQUIP_COM{COM바이브}(ARG)

;애널바이브 장착중
SIF TEQUIP:ARG:애널바이브
	CALLFORM EQUIP_COM{COM애널바이브}(ARG)

;애널비즈 사용중
SIF TEQUIP:ARG:애널비즈
	CALLFORM EQUIP_COM{COM애널비즈}(ARG)

;유두캡 장착중
SIF TEQUIP:ARG:유두캡
	CALLFORM EQUIP_COM{COM유두캡}(ARG)

;착유기 장착중
SIF TEQUIP:ARG:착유기
	CALLFORM EQUIP_COM{COM착유기}(ARG)

;눈가리개 장착중
SIF TEQUIP:ARG:눈가리개
	CALLFORM EQUIP_COM{COM눈가리개}(ARG)

;밧줄로 긴박중
SIF TEQUIP:ARG:밧줄
	CALLFORM EQUIP_COM{COM밧줄}(ARG)

;볼개그 장착중
SIF TEQUIP:ARG:볼개그
	CALLFORM EQUIP_COM{COM볼개그}(ARG)

;관장＋애널 플러그 장착중
SIF TEQUIP:ARG:관장
	CALLFORM EQUIP_COM{COM관장}(ARG)

;확장벌룬 장착중
SIF TEQUIP:ARG:확장벌룬
	CALLFORM EQUIP_COM{COM확장벌룬}(ARG)

;애널전극 장착중
SIF TEQUIP:ARG:애널전극
	CALLFORM EQUIP_COM{COM애널전극}(ARG)

;비디오촬영중
SIF ARG > 0 && TEQUIP:MASTER:비디오촬영
	CALLFORM EQUIP_COM{COM비디오촬영}(ARG)

;수치플레이중
;SIF TEQUIP:ARG:30
;	CALL EQUIP_COM186(ARG)

;목욕탕플레이중
SIF TEQUIP:ARG:목욕탕플레이
	CALLFORM EQUIP_COM{COM목욕탕플레이}(ARG)

;샤워 사용중
SIF TEQUIP:ARG:샤워
	CALLFORM EQUIP_COM{COM샤워}(ARG)

;새댁플레이중
SIF TEQUIP:ARG:새댁플레이
	CALLFORM EQUIP_COM{COM새댁플레이}(ARG)

;V삽입중
SIF TEQUIP:ARG:50 >= 0 && !SOURCE:ARG:쾌V
	CALL EQUIP_INCERT_V(ARG)

;A삽입중
SIF TEQUIP:ARG:51 >= 0 && !SOURCE:ARG:쾌A
	CALL EQUIP_INCERT_A(ARG)

;한우산을씀중
SIF TEQUIP:ARG:한우산을씀 && OUTROOF(CFLAG:ARG:현재위치) && ARG == TARGET
	CALLFORM EQUIP_COM{COM한우산을씀}(ARG)
RETURN 1


code:
;삽입 계속의 처리
@EQUIP_INCERT_V(ARG)
#DIM 간역

간역 = TEQUIP:ARG:50
;-------------------------------------------------
;행위자
;-------------------------------------------------
TCVAR:ARG:116 = 간역
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
;TCVAR:4 사정쾌감강도

CSTR:간역:10 = @"/{ARG}/"
TCVAR:간역:사정장소 = 1

CSTR:ARG:10 += @"{TEQUIP:ARG:50}/"
SIF TCVAR:ARG:사정장소 == 0 || TCVAR:ARG:사정장소 >= 8
	TCVAR:ARG:사정장소 = 13

IF ARG == MASTER
	PRINTFORML ＜%CALLNAME:간역%로부터 V인서트＞

	TCVAR:간역:사정쾌감강도 = 850
	TCVAR:ARG:사정쾌감강도 = 500 + (100 * ABL:ARG:V감각)

	DOWNBASE:간역:체력 += 15
	DOWNBASE:간역:기력 += 20
	DOWNBASE:ARG:체력 += 10
	DOWNBASE:ARG:기력 += 20
	SOURCE:ARG:쾌V += 200
	SOURCE:간역:쾌C += 200
	SOURCE:간역:사랑 += 25
	SOURCE:간역:성행동 += 250
	SOURCE:간역:달성 += 25
	SOURCE:간역:정복 += 500
	SOURCE:간역:일탈 += 50

ELSE
	PRINTFORML ＜%CALLNAME:ARG%에 V인서트＞

	TCVAR:간역:사정쾌감강도 = 700 + TEQUIP:ARG:자궁 * 100
	TCVAR:ARG:사정쾌감강도 = 750
	DOWNBASE:간역:체력 += 15
	DOWNBASE:간역:기력 += 20
	;시간정지중
	IF FLAG:70
		SOURCE:ARG:쾌V += 150
		CALL 삽입계속V고통처리(ARG)

	ELSE
		DOWNBASE:ARG:체력 += 10
		DOWNBASE:ARG:기력 += 20
		SIF TEQUIP:ARG:체위 == 6
			SOURCE:ARG:고통 += 300
		SIF TALENT:간역:형상 == 5
			SOURCE:ARG:고통 += 200
		SOURCE:ARG:쾌V += 150
		SOURCE:ARG:사랑 += 75
		SOURCE:ARG:노출 += 25
		SIF TCVAR:ARG:억지로
			SOURCE:ARG:반감 += 1000
		;체위 보너스
		IF TEQUIP:ARG:체위 == CFLAG:ARG:좋아하는체위
			SOURCE:ARG:사랑 += 100
			SOURCE:ARG:복종 += 50
		ENDIF
		CALL 삽입계속V고통처리(ARG)
	ENDIF

	IF CFLAG:ARG:우후후 == 2
		SOURCE:ARG:쾌V += 150
		SOURCE:ARG:사랑 += 100
		TCVAR:간역:사정쾌감강도 += 150
	ENDIF
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:간역:삽입경험 ++
EXP:ARG:V경험 ++
SIF !FLAG:70 && !CFLAG:ARG:장난
EXP:ARG:V성교경험 ++
SIF TEQUIP:ARG:체위 == 6
	EXP:ARG:V확장경험 ++
SIF FLAG:70 == 1
	EXP:MASTER:시간경험 += 1
IF CFLAG:MASTER:장난 == 2
	EXP:MASTER:수면간경험 += 1
	EXP:ARG:수면간경험 += 1
ENDIF
RETURN 1

@EQUIP_INCERT_A(ARG)
#DIM 간역

간역 = TEQUIP:ARG:51
;-------------------------------------------------
;행위자
;-------------------------------------------------
TCVAR:ARG:116 = 간역
;TCVAR:0 사정 대상 플래그(비트 0=TARGET 1=PLAYER 2=MASTER 3=ASSI 4=촉수 5=그 외)
;TCVAR:1 예비 사정 대상 플래그(비트를 사용하고 싶지 않은 인용, CFLAG:100으로 번역됩니다)
;	(1=TARGET 2=PLAYER 3=MASTER 4=ASSI 5=TARGET+ASSI 6=MASTER+ASSI -1=촉수 -2=그 외)
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
;TCVAR:4 사정쾌감강도
CSTR:간역:10 = @"/{ARG}/"
TCVAR:간역:사정장소 = 2

CSTR:ARG:10 += @"{TEQUIP:ARG:51}/"
SIF TCVAR:ARG:사정장소 == 0 || TCVAR:ARG:사정장소 >= 8
	TCVAR:ARG:사정장소 = 12

IF ARG == MASTER
	PRINTFORML ＜%CALLNAME:간역%로부터 A인서트＞

	TCVAR:간역:사정쾌감강도 = 850
	TCVAR:ARG:사정쾌감강도 = 500 + (100 * ABL:ARG:A감각)

	DOWNBASE:간역:체력 += 15
	DOWNBASE:간역:기력 += 20
	DOWNBASE:ARG:체력 += 20
	DOWNBASE:ARG:기력 += 20
	SOURCE:ARG:쾌A += 200
	SOURCE:간역:쾌C += 200
	SOURCE:간역:사랑 += 25
	SOURCE:간역:성행동 += 250
	SOURCE:간역:달성 += 25
	SOURCE:간역:정복 += 500
	SOURCE:간역:일탈 += 50

ELSE
	PRINTFORML ＜%CALLNAME:ARG%에 A인서트＞
	TCVAR:간역:사정쾌감강도 = 900
	TCVAR:ARG:사정쾌감강도 = 750
	DOWNBASE:간역:체력 += 15
	DOWNBASE:간역:기력 += 20
	;시간정지중
	IF FLAG:70
		SOURCE:ARG:쾌A += 200
		CALL 삽입계속A고통처리(ARG)

	ELSE
		DOWNBASE:ARG:체력 += 20
		DOWNBASE:ARG:기력 += 20
		SIF TALENT:간역:형상 == 5
			SOURCE:ARG:고통 += 300
		SOURCE:ARG:쾌A += 200
		SOURCE:ARG:사랑 += 50
		SOURCE:ARG:노출 += 30
		SOURCE:ARG:일탈 += 100
		SIF TEQUIP:ARG:체위 == 6
			SOURCE:ARG:고통 += 300
		;체위 보너스
		IF TEQUIP:ARG:체위 == CFLAG:ARG:좋아하는체위 - 5
			SOURCE:ARG:사랑 += 100
			SOURCE:ARG:복종 += 50
		ENDIF
		CALL 삽입계속A고통처리(ARG)
	ENDIF

	IF CFLAG:ARG:우후후 == 2
		SOURCE:ARG:쾌A += 150
		SOURCE:ARG:사랑 += 100
		TCVAR:간역:사정쾌감강도 += 150
	ENDIF
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:간역:삽입경험 ++
EXP:ARG:A경험 ++
SIF !FLAG:70 && !CFLAG:ARG:장난
	EXP:ARG:A성교경험 ++
SIF TEQUIP:ARG:체위 == 6
	EXP:ARG:A확장경험 ++
RETURN 1

@삽입계속V고통처리(ARG)
;EXP:V경험을 본다(처녀는 있을 수 없다)
LOCAL = 200
LOCAL:1 = 150
IF EXP:ARG:V경험 < EXPLV:2
	TIMES LOCAL , 0.80
	TIMES LOCAL:1 , 1.20
ELSEIF EXP:ARG:V경험 < EXPLV:3
	TIMES LOCAL , 0.40
ELSEIF EXP:ARG:V경험 < EXPLV:4
	TIMES LOCAL , 0.10
ELSEIF EXP:ARG:V경험 < EXPLV:5
	TIMES LOCAL , 0.00
ELSEIF EXP:ARG:V경험 >= EXPLV:5
	TIMES LOCAL , 0.00
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES LOCAL, 3.00
	TIMES LOCAL:1 , 3.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 2.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES LOCAL , 0.60
	TIMES LOCAL:1 , 1.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES LOCAL , 0.50
	TIMES LOCAL:1 , 1.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:5
	TIMES LOCAL , 0.10
	TIMES LOCAL:1 , 0.50
ELSEIF PALAM:ARG:윤활 >= PALAMLV:5
	TIMES LOCAL , 0.02
	TIMES LOCAL:1 , 0.30
ENDIF

SOURCE:ARG:고통 += LOCAL

SIF !FLAG:70
	SOURCE:ARG:반감 += LOCAL:1

@삽입계속A고통처리(ARG)
LOCAL = 400
LOCAL:1 = 250

;EXP:A경험을 본다
IF EXP:ARG:A경험 < EXPLV:1
	TIMES LOCAL , 3.00
	TIMES LOCAL:1 , 3.00
ELSEIF EXP:ARG:A경험 < EXPLV:2
	TIMES LOCAL , 1.20
	TIMES LOCAL:1 , 2.00
ELSEIF EXP:ARG:A경험 < EXPLV:3
	TIMES LOCAL , 0.80
	TIMES LOCAL:1 , 1.50
ELSEIF EXP:ARG:A경험 < EXPLV:4
	TIMES LOCAL , 0.60
	TIMES LOCAL:1 , 1.20
ELSEIF EXP:ARG:A경험 < EXPLV:5
	TIMES LOCAL , 0.40
ELSEIF EXP:ARG:A경험 >= EXPLV:5
	TIMES LOCAL , 0.20
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES LOCAL, 3.00
	TIMES LOCAL:1 , 3.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 2.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES LOCAL , 0.60
	TIMES LOCAL:1 , 1.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES LOCAL , 0.50
	TIMES LOCAL:1 , 1.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:5
	TIMES LOCAL , 0.30
	TIMES LOCAL:1 , 0.50
ELSEIF PALAM:ARG:윤활 >= PALAMLV:5
	TIMES LOCAL , 0.20
	TIMES LOCAL:1 , 0.30
ENDIF

SOURCE:ARG:고통 += LOCAL

SIF !FLAG:70 && !CFLAG:ARG:장난
	SOURCE:ARG:반감 += LOCAL:1

@삽입불가(ARG)
;-2 = 헐렁헐렁으로 기분 좋지 않은 -1 = 자극이 약한 1= 경험이 필요 2= 경험과 지식이 필요 3= 난쟁이오나홀
#FUNCTION
#DIM 당신의사이즈
#DIM 사이즈차이
IF ARG == PLAYER
	RETURNF 0
ENDIF

SELECTCASE TALENT:PLAYER:형상
	CASE 0,3,4
		당신의사이즈 = 0
	CASE 1
		당신의사이즈 = -1
	CASE 2
		당신의사이즈 = -2
	CASE 6
		당신의사이즈 = 1
	CASE 5,10
		당신의사이즈 = 2
ENDSELECT

사이즈차이 = (TALENT:PLAYER:체형 - TALENT:ARG:체형) * 2 + 당신의사이즈

SELECTCASE 사이즈차이
	CASE IS > 8
		RETURNF 3
	CASE 5 TO 7
		RETURNF 2
	CASE 3 TO 4
		RETURNF 1
	CASE -2 TO 2
		RETURNF 0
	CASE -3 TO -6
		RETURNF -1
	CASE IS < -6
		RETURNF -2
ENDSELECT