code:
;-------------------------------------------------
;두 구멍 피스트
;하드한 조교 커맨드, 레벨 4
;-------------------------------------------------
@COM143
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
IF ABL:V감각 >= ABL:A감각
	TCVAR:TARGET:2 = 13
ELSE
	TCVAR:TARGET:2 = 12
ENDIF
;강도
TCVAR:TARGET:4 = 1800

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 500
	SOURCE:PLAYER:성행동=20
	SOURCE:PLAYER:강요=900
	SOURCE:쾌V = 200
	SOURCE:쾌A = 200
	SOURCE:고통 = 900

	;피스트등의 V에의 큰 고통은 먼저 처리해 둔다
	;EXP:V경험을 본다
	IF EXP:V경험 < EXPLV:1
		TIMES SOURCE:고통 , 2.50
	ELSEIF EXP:V경험 < EXPLV:2
		TIMES SOURCE:고통 , 2.00
	ELSEIF EXP:V경험 < EXPLV:3
		TIMES SOURCE:고통 , 1.80
	ELSEIF EXP:V경험 < EXPLV:4
		TIMES SOURCE:고통 , 1.60
	ELSEIF EXP:V경험 < EXPLV:5
		TIMES SOURCE:고통 , 1.40
	ELSEIF EXP:V경험 >= EXPLV:5
		TIMES SOURCE:고통 , 1.20
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 3.00
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 2.50
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 2.00
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 1.50
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 1.00
	ENDIF

	;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	IF EXP:A경험 < EXPLV:1
		TIMES SOURCE:고통 , 3.00
	ELSEIF EXP:A경험 < EXPLV:2
		TIMES SOURCE:고통 , 2.50
	ELSEIF EXP:A경험 < EXPLV:3
		TIMES SOURCE:고통 , 2.40
	ELSEIF EXP:A경험 < EXPLV:4
		TIMES SOURCE:고통 , 2.00
	ELSEIF EXP:A경험 < EXPLV:5
		TIMES SOURCE:고통 , 1.80
	ELSEIF EXP:A경험 >= EXPLV:5
		TIMES SOURCE:고통 , 1.60
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 3.00
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 2.50
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 2.00
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 1.50
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 1.00
	ENDIF

ELSE

	DOWNBASE:체력 += 500
	DOWNBASE:기력 += 300
	SOURCE:PLAYER:성행동=20
	SOURCE:PLAYER:강요=1800

	SOURCE:쾌V = 200
	SOURCE:쾌A = 200
	SOURCE:고통 = 1800
	SOURCE:노출 = 100
	SOURCE:굴종 = 2000
	SOURCE:일탈 = 2000
	SOURCE:반감 = 2000

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;피스트등의 V에의 큰 고통은 먼저 처리해 둔다
	;EXP:V경험을 본다
	IF EXP:V경험 < EXPLV:1
		TIMES SOURCE:고통 , 2.50
		TIMES SOURCE:반감 , 4.00
	ELSEIF EXP:V경험 < EXPLV:2
		TIMES SOURCE:고통 , 2.00
		TIMES SOURCE:반감 , 3.50
	ELSEIF EXP:V경험 < EXPLV:3
		TIMES SOURCE:고통 , 1.80
		TIMES SOURCE:반감 , 3.00
	ELSEIF EXP:V경험 < EXPLV:4
		TIMES SOURCE:고통 , 1.60
		TIMES SOURCE:반감 , 2.50
	ELSEIF EXP:V경험 < EXPLV:5
		TIMES SOURCE:고통 , 1.40
		TIMES SOURCE:반감 , 2.00
	ELSEIF EXP:V경험 >= EXPLV:5
		TIMES SOURCE:고통 , 1.20
		TIMES SOURCE:반감 , 2.00
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 3.00
		TIMES SOURCE:반감 , 2.00
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 2.50
		TIMES SOURCE:반감 , 1.50
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 2.00
		TIMES SOURCE:반감 , 1.20
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 1.50
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 1.00
	ENDIF

	;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	IF EXP:A경험 < EXPLV:1
		TIMES SOURCE:고통 , 3.00
		TIMES SOURCE:반감 , 4.00
	ELSEIF EXP:A경험 < EXPLV:2
		TIMES SOURCE:고통 , 2.50
		TIMES SOURCE:반감 , 3.50
	ELSEIF EXP:A경험 < EXPLV:3
		TIMES SOURCE:고통 , 2.40
		TIMES SOURCE:반감 , 3.00
	ELSEIF EXP:A경험 < EXPLV:4
		TIMES SOURCE:고통 , 2.00
		TIMES SOURCE:반감 , 2.50
	ELSEIF EXP:A경험 < EXPLV:5
		TIMES SOURCE:고통 , 1.80
		TIMES SOURCE:반감 , 2.00
	ELSEIF EXP:A경험 >= EXPLV:5
		TIMES SOURCE:고통 , 1.60
		TIMES SOURCE:반감 , 1.50
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 3.00
		TIMES SOURCE:반감 , 2.00
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 2.50
		TIMES SOURCE:반감 , 1.50
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 2.00
		TIMES SOURCE:반감 , 1.20
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 1.50
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 1.00
	ENDIF
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;V경험
EXP:V경험 += 24

;A경험
EXP:A경험 += 24

;V, A확장경험
IF !EXP:A확장경험 && !EXP:V확장경험 && !GETBIT(CFLAG:3, 5)
	EXP:이상경험 += 1
	SETBIT CFLAG:3, 5
ENDIF

EXP:A확장경험 += 5
EXP:V확장경험 += 5
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE143
;두 구멍 피스트
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(143)
	RETURN RESULT
;침대 룸이 아니면 안 돼
SIF !BEDROOM(CFLAG:PLAYER:현재위치)
	RETURN 0
;바이브 사용중은 불가
SIF TEQUIP:13
	RETURN 0
;애널바이브 사용중은 불가
SIF TEQUIP:14
	RETURN 0
;관장＋애널 플러그 사용중은 불가
SIF TEQUIP:21
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:15
	RETURN 0
;풍선 사용중은 불가
SIF TEQUIP:22
	RETURN 0
;전극 사용중은 불가
SIF TEQUIP:23
	RETURN 0
;남자라면 안 돼
SIF !(TALENT:2 & 1)
	RETURN 0
;ASSI의 경우, 순종 4이상이나 새드가 아니면 할 수 없다.
IF ASSIPLAY
	SIF ABL:ASSI:순종 < 4 && TALENT:ASSI:새드 == 0
		RETURN 0
ENDIF
IF FLAG:70 == 1
ELSE
	;일정한 V·A경험이 필요
	IF EXP:0 < 300 || EXP:1 < 300
		RETURN 0
	ENDIF
	;작은 체형이라면 순종이 4이상 또한 마조끼이 4이상 또한 확장경험 10이상이 아니면 실행할 수 없다
	IF TALENT:체형 < 0
		SIF ABL:순종 <= 3 || ABL:마조끼 <= 3 || EXP:V확장경험 < 10 || EXP:A확장경험 < 10
			RETURN 0
	ENDIF
ENDIF
;조교 대상이 난쟁이 체형의 경우는 주인이 금단의지식 소유가 아니면 안 돼
SIF ABS(TALENT:체형 - TALENT:PLAYER:체형) > 2 && TALENT:MASTER:금단의지식 == 0
	RETURN 0

;하반신착의
SIF TEQUIP:0 > 1
	RETURN 0
;샤워중은 안 돼
SIF TEQUIP:32
	RETURN 0
;목욕탕플레이중은 플레이매트가 없으면 안 돼
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;새댁플레이중은 안 돼
SIF TEQUIP:33
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF143 양구멍피스트_t.ERB


code:
;-------------------------------------------------
;확장벌룬
;하드한 조교 커맨드, 레벨 4
;-------------------------------------------------
@COM147
;착탈의처리
TEQUIP:확장벌룬 = !TEQUIP:확장벌룬

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 12
;강도
TCVAR:TARGET:4 = 1200

;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 150
	SOURCE:PLAYER:성행동=10
	SOURCE:PLAYER:강요=400
	SOURCE:쾌A = 200
	SOURCE:고통 = 400

	;A에의 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	IF EXP:A경험 < EXPLV:1
		TIMES SOURCE:고통 , 3.00
	ELSEIF EXP:A경험 < EXPLV:2
		TIMES SOURCE:고통 , 1.20
	ELSEIF EXP:A경험 < EXPLV:3
		TIMES SOURCE:고통 , 0.80
	ELSEIF EXP:A경험 < EXPLV:4
		TIMES SOURCE:고통 , 0.60
	ELSEIF EXP:A경험 < EXPLV:5
		TIMES SOURCE:고통 , 0.40
	ELSEIF EXP:A경험 >= EXPLV:5
		TIMES SOURCE:고통 , 0.20
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 1.20
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 1.00
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 0.60
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 0.30
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 0.20
	ENDIF

ELSE

	DOWNBASE:체력 += 150
	DOWNBASE:기력 += 200
	SOURCE:PLAYER:성행동=10
	SOURCE:PLAYER:강요=800

	SOURCE:쾌A = 200
	SOURCE:고통 = 800
	SOURCE:노출 = 300
	SOURCE:굴종 = 400
	SOURCE:일탈 = 700
	SOURCE:반감 = 700

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 700

	;A에의 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	IF EXP:A경험 < EXPLV:1
		TIMES SOURCE:고통 , 3.00
		TIMES SOURCE:반감 , 3.00
	ELSEIF EXP:A경험 < EXPLV:2
		TIMES SOURCE:고통 , 1.20
		TIMES SOURCE:반감 , 2.00
	ELSEIF EXP:A경험 < EXPLV:3
		TIMES SOURCE:고통 , 0.80
		TIMES SOURCE:반감 , 1.50
	ELSEIF EXP:A경험 < EXPLV:4
		TIMES SOURCE:고통 , 0.60
		TIMES SOURCE:반감 , 1.20
	ELSEIF EXP:A경험 < EXPLV:5
		TIMES SOURCE:고통 , 0.40
	ELSEIF EXP:A경험 >= EXPLV:5
		TIMES SOURCE:고통 , 0.20
	ENDIF

	;PALAM:윤활을 본다
	IF PALAM:윤활 < PALAMLV:1
		TIMES SOURCE:고통 , 1.20
		TIMES SOURCE:반감 , 2.00
	ELSEIF PALAM:윤활 < PALAMLV:2
		TIMES SOURCE:고통 , 1.00
		TIMES SOURCE:반감 , 1.50
	ELSEIF PALAM:윤활 < PALAMLV:3
		TIMES SOURCE:고통 , 0.60
	ELSEIF PALAM:윤활 < PALAMLV:4
		TIMES SOURCE:고통 , 0.30
	ELSEIF PALAM:윤활 >= PALAMLV:4
		TIMES SOURCE:고통 , 0.20
	ENDIF
ENDIF
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
STAIN:7 |= STAIN:4
STAIN:4 |= STAIN:7
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:A경험 += 4

IF !EXP:V확장경험 && !EXP:A확장경험 && !GETBIT(CFLAG:3, 5)
	EXP:이상경험 += 1
	SETBIT CFLAG:3, 5
ENDIF

EXP:A확장경험 += 1
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;장착 계속의 처리
;-------------------------------------------------
@EQUIP_COM147(ARG)
;확장벌룬

PRINTL ＜확장벌룬 삽입중＞

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 12
;강도
TCVAR:TARGET:4 = 600

IF FLAG:70 == 1
	BASE:MASTER:TSP -= 70
	SOURCE:ARG:쾌A += 100

	;A에의 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	LOCAL = 400
	IF EXP:ARG:A경험 < EXPLV:1
		TIMES LOCAL , 3.00
	ELSEIF EXP:ARG:A경험 < EXPLV:2
		TIMES LOCAL , 1.20
	ELSEIF EXP:ARG:A경험 < EXPLV:3
		TIMES LOCAL , 0.80
	ELSEIF EXP:ARG:A경험 < EXPLV:4
		TIMES LOCAL , 0.60
	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 , 1.20
	ELSEIF PALAM:ARG:윤활 < PALAMLV:2
		TIMES LOCAL , 1.00
	ELSEIF PALAM:ARG:윤활 < PALAMLV:3
		TIMES LOCAL , 0.60
	ELSEIF PALAM:ARG:윤활 < PALAMLV:4
		TIMES LOCAL , 0.30
	ELSEIF PALAM:ARG:윤활 >= PALAMLV:4
		TIMES LOCAL , 0.20
	ENDIF
	SOURCE:ARG:고통 += LOCAL

ELSE

	DOWNBASE:ARG:체력 += 75
	DOWNBASE:ARG:기력 += 100

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

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:ARG:자기애 < 0 || TALENT:ARG:저항
		SOURCE:ARG:울굴 += 350

	;A에의 고통은 먼저 처리해 둔다
	;EXP:A경험을 본다
	LOCAL = 400
	LOCAL:1 = 350
	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 , 1.20
		TIMES LOCAL:1 , 2.00
	ELSEIF PALAM:ARG:윤활 < PALAMLV:2
		TIMES LOCAL , 1.00
		TIMES LOCAL:1 , 1.50
	ELSEIF PALAM:ARG:윤활 < PALAMLV:3
		TIMES LOCAL , 0.60
	ELSEIF PALAM:ARG:윤활 < PALAMLV:4
		TIMES LOCAL , 0.30
	ELSEIF PALAM:ARG:윤활 >= PALAMLV:4
		TIMES LOCAL , 0.20
	ENDIF
	SOURCE:ARG:고통 += LOCAL
	SOURCE:ARG:반감 += LOCAL:1
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:ARG:A경험 += 1
EXP:ARG:A확장경험 += 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE147
;확장벌룬 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(147)
	RETURN RESULT
;하반신착의
SIF TEQUIP:0 > 1
	RETURN 0
;해제는 언제라도 가능
SIF TEQUIP:22
	RETURN 1
;아이템 을 가지고 있는인가, 아이템 없음 설정이 아니면 안 돼
SIF ITEM:8 == 0 && NOITEM == 0
	RETURN 0
;애널바이브 사용중은 불가
SIF TEQUIP:14
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:15
	RETURN 0
;보통 관장 사용중은 불가
SIF TEQUIP:21
	RETURN 0
;전극 사용중은 불가
SIF TEQUIP:23
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF147 확장벌룬_t.ERB

license: mit


code:
;-------------------------------------------------
;애널전극
;하드한 조교 커맨드, 레벨 4
;-------------------------------------------------
@COM148
;착탈의처리
TEQUIP:애널전극 = !TEQUIP:애널전극
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 12
;강도
TCVAR:TARGET:4 = 1000

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
BASE:MASTER:TSP -= 300
	SOURCE:PLAYER:성행동=25
	SOURCE:PLAYER:강요=750
SOURCE:쾌A = 500
SOURCE:고통 = 750

;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
;EXP:A경험을 본다
IF EXP:A경험 < EXPLV:1
	TIMES SOURCE:고통 , 3.00
ELSEIF EXP:A경험 < EXPLV:2
	TIMES SOURCE:고통 , 2.50
ELSEIF EXP:A경험 < EXPLV:3
	TIMES SOURCE:고통 , 2.40
ELSEIF EXP:A경험 < EXPLV:4
	TIMES SOURCE:고통 , 2.00
ELSEIF EXP:A경험 < EXPLV:5
	TIMES SOURCE:고통 , 1.80
ELSEIF EXP:A경험 >= EXPLV:5
	TIMES SOURCE:고통 , 1.60
ENDIF

;PALAM:윤활을 본다
IF PALAM:윤활 < PALAMLV:1
	TIMES SOURCE:고통 , 3.00
ELSEIF PALAM:윤활 < PALAMLV:2
	TIMES SOURCE:고통 , 2.50
ELSEIF PALAM:윤활 < PALAMLV:3
	TIMES SOURCE:고통 , 2.00
ELSEIF PALAM:윤활 < PALAMLV:4
	TIMES SOURCE:고통 , 1.50
ELSEIF PALAM:윤활 >= PALAMLV:4
	TIMES SOURCE:고통 , 1.00
ENDIF

ELSE

DOWNBASE:체력 += 300
DOWNBASE:기력 += 450
	SOURCE:PLAYER:성행동=25

	SOURCE:PLAYER:강요=1500
SOURCE:쾌A = 500
SOURCE:고통 = 1500
SOURCE:노출 = 300
SOURCE:굴종 = 800
SOURCE:일탈 = 1200
SOURCE:반감 = 1200

;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:자기애 < 0 || TALENT:저항
	SOURCE:울굴 += 1200

;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
;EXP:A경험을 본다
IF EXP:A경험 < EXPLV:1
	TIMES SOURCE:고통 , 3.00
	TIMES SOURCE:반감 , 4.00
ELSEIF EXP:A경험 < EXPLV:2
	TIMES SOURCE:고통 , 2.50
	TIMES SOURCE:반감 , 3.50
ELSEIF EXP:A경험 < EXPLV:3
	TIMES SOURCE:고통 , 2.40
	TIMES SOURCE:반감 , 3.00
ELSEIF EXP:A경험 < EXPLV:4
	TIMES SOURCE:고통 , 2.00
	TIMES SOURCE:반감 , 2.50
ELSEIF EXP:A경험 < EXPLV:5
	TIMES SOURCE:고통 , 1.80
	TIMES SOURCE:반감 , 2.00
ELSEIF EXP:A경험 >= EXPLV:5
	TIMES SOURCE:고통 , 1.60
	TIMES SOURCE:반감 , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:윤활 < PALAMLV:1
	TIMES SOURCE:고통 , 3.00
	TIMES SOURCE:반감 , 2.00
ELSEIF PALAM:윤활 < PALAMLV:2
	TIMES SOURCE:고통 , 2.50
	TIMES SOURCE:반감 , 1.50
ELSEIF PALAM:윤활 < PALAMLV:3
	TIMES SOURCE:고통 , 2.00
	TIMES SOURCE:반감 , 1.20
ELSEIF PALAM:윤활 < PALAMLV:4
	TIMES SOURCE:고통 , 1.50
ELSEIF PALAM:윤활 >= PALAMLV:4
	TIMES SOURCE:고통 , 1.00
ENDIF
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;A경험
EXP:A경험 += 4

SIF !GETBIT (CFLAG:3, 8)
	EXP:이상경험 += 1

;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;장착 계속의 처리
;-------------------------------------------------
@EQUIP_COM148(ARG)
;애널전극

PRINTL ＜애널전극 삽입중＞

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 12
;강도
TCVAR:TARGET:4 = 500

IF FLAG:70 == 1
BASE:MASTER:TSP -= 200
SOURCE:ARG:쾌A += 250

;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
;EXP:A경험을 본다
LOCAL = 750
LOCAL:1 = 600
IF EXP:ARG:A경험 < EXPLV:1
	TIMES LOCAL , 3.00
ELSEIF EXP:ARG:A경험 < EXPLV:2
	TIMES LOCAL , 2.50
ELSEIF EXP:ARG:A경험 < EXPLV:3
	TIMES LOCAL , 2.40
ELSEIF EXP:ARG:A경험 < EXPLV:4
	TIMES LOCAL , 2.00
ELSEIF EXP:ARG:A경험 < EXPLV:5
	TIMES LOCAL , 1.80
ELSEIF EXP:ARG:A경험 >= EXPLV:5
	TIMES LOCAL , 1.60
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES LOCAL , 3.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES LOCAL , 2.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES LOCAL , 2.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES LOCAL , 1.50
ELSEIF PALAM:ARG:윤활 >= PALAMLV:4
	TIMES LOCAL , 1.00
ENDIF
SOURCE:ARG:고통 += LOCAL

ELSE

DOWNBASE:ARG:체력 += 200
DOWNBASE:ARG:기력 += 250

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

;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:ARG:자기애 < 0 || TALENT:ARG:저항
	SOURCE:ARG:울굴 += 600

;피스트등의 A에의 큰 고통은 먼저 처리해 둔다
;EXP:A경험을 본다
LOCAL = 750
LOCAL:1 = 600
IF EXP:ARG:A경험 < EXPLV:1
	TIMES LOCAL , 3.00
	TIMES LOCAL:1 , 4.00
ELSEIF EXP:ARG:A경험 < EXPLV:2
	TIMES LOCAL , 2.50
	TIMES LOCAL:1 , 3.50
ELSEIF EXP:ARG:A경험 < EXPLV:3
	TIMES LOCAL , 2.40
	TIMES LOCAL:1 , 3.00
ELSEIF EXP:ARG:A경험 < EXPLV:4
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 2.50
ELSEIF EXP:ARG:A경험 < EXPLV:5
	TIMES LOCAL , 1.80
	TIMES LOCAL:1 , 2.00
ELSEIF EXP:ARG:A경험 >= EXPLV:5
	TIMES LOCAL , 1.60
	TIMES LOCAL:1 , 1.50
ENDIF

;PALAM:윤활을 본다
IF PALAM:ARG:윤활 < PALAMLV:1
	TIMES LOCAL , 3.00
	TIMES LOCAL:1 , 2.00
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES LOCAL , 2.50
	TIMES LOCAL:1 , 1.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES LOCAL , 2.00
	TIMES LOCAL:1 , 1.20
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES LOCAL , 1.50
ELSEIF PALAM:ARG:윤활 >= PALAMLV:4
	TIMES LOCAL , 1.00
ENDIF
SOURCE:ARG:고통 += LOCAL
SOURCE:ARG:반감 += LOCAL:1
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;A경험
EXP:ARG:A경험 += 1

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE148
;애널전극 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(148)
	RETURN RESULT
;하반신착의
SIF TEQUIP:0 > 1
	RETURN 0
;해제는 언제라도 가능
SIF TEQUIP:23
	RETURN 1
;아이템 을 가지고 있는인가, 아이템 없음 설정이 아니면 안 돼
SIF ITEM:24 == 0 && NOITEM == 0
	RETURN 0
;애널바이브 사용중은 불가
SIF TEQUIP:14
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:15
	RETURN 0
;보통 관장 사용중은 불가
SIF TEQUIP:21
	RETURN 0
;풍선 사용중은 불가
SIF TEQUIP:22
	RETURN 0
;목욕탕플레이중은 안 돼
SIF TEQUIP:31
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF148 애널전극_t.ERB


code:
;-------------------------------------------------
;비디오카메라
;특수 커맨드
;-------------------------------------------------
@COM183

;촬영자의 처리
$INPUT_LOOP
IF TEQUIP:MASTER:28 == 0
;	PRINTL 촬영자를 선택해 주세요 도중 변경은 할 수 없습니다
;	PRINTL (촬영자를 변경하는 경우, 한 번 촬영을 종료해 주세요)
;	PRINTL
;	PRINTFORML [0] 고정 카메라
;	PRINTFORML [1] %CALLNAME:MASTER%
;	SIF ASSI > 0
;	PRINTFORML [2] %CALLNAME:ASSI%
;	PRINTFORML
;	INPUT
;	TFLAG:105 = RESULT
;	IF RESULT == 0
;		PRINTFORML 카메라를 고정해 촬영합니다
;	ELSEIF RESULT == 1
;		PRINTFORML 촬영자는 %CALLNAME:MASTER%입니다
;	ELSEIF RESULT == 2 && ASSI > 0
;		PRINTFORML 촬영자는 %CALLNAME:ASSI%입니다
;	ELSE
;		GOTO INPUT_LOOP
;	ENDIF
	;비디오테잎
	ITEM:43 --
	;자동 보충
	IF !ITEM:43 && MONEY >= 500 && FLAG:1001
		MONEY -= 500
		ITEM:43 ++
	ENDIF
ENDIF

;착탈의처리
IF TEQUIP:MASTER:비디오촬영
;비디오촬영이 되고 있으면 종료시킨다
	TEQUIP:MASTER:비디오촬영 = 0
	PRINTW ★★★비디오촬영을 종료합니다★★★
ELSE
;비디오촬영하고 있지 않으면 초기화해 개시
;TODO 기동 조건을 작성한다
	TEQUIP:MASTER:비디오촬영 = 11
	TSTR:1 = /
	PRINTW ★★★비디오촬영을 개시합니다★★★
ENDIF
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER

RETURN 1
;-------------------------------------------------
;장착 계속의 처리
;-------------------------------------------------
@EQUIP_COM183(ARG)
;촬영 개시시는 카운트에 넣지 않는다

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:ARG:체력 += 0
DOWNBASE:ARG:기력 += 50

SOURCE:ARG:공포 += 1000
SOURCE:ARG:일탈 += 400
SOURCE:ARG:반감 += 700

;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:ARG:자기애 < 0 || TALENT:ARG:저항
	SOURCE:ARG:울굴 += 700

;고통을 수반하지 않는 마조끼 및 마조의 처리는 먼저 해 둔다
;마조끼를 본다
LOCAL = 1000
SELECTCASE ABL:ARG:마조끼
	CASE 0
		TIMES LOCAL , 0.80
		SOURCE:ARG:액체 += 0
		SOURCE:ARG:욕정 += 0
	CASE 1
		TIMES LOCAL , 1.00
		SOURCE:ARG:액체 += 20
		SOURCE:ARG:욕정 += 30
	CASE 2
		TIMES LOCAL , 1.20
		SOURCE:ARG:액체 += 40
		SOURCE:ARG:욕정 += 70
	CASE 3
		TIMES LOCAL , 1.40
		SOURCE:ARG:액체 += 70
		SOURCE:ARG:욕정 += 120
	CASE 4
		TIMES LOCAL , 1.50
		SOURCE:ARG:액체 += 110
		SOURCE:ARG:욕정 += 180
	CASE 5
		TIMES LOCAL , 1.70
		SOURCE:ARG:액체 += 150
		SOURCE:ARG:욕정 += 250
	CASE 6
		TIMES LOCAL , 1.90
		SOURCE:ARG:액체 += 200
		SOURCE:ARG:욕정 += 300
	CASE 7
		TIMES LOCAL , 2.10
		SOURCE:ARG:액체 += 250
		SOURCE:ARG:욕정 += 350
	CASE 8
		TIMES LOCAL , 2.30
		SOURCE:ARG:액체 += 300
		SOURCE:ARG:욕정 += 400
	CASE 9
		TIMES LOCAL , 2.50
		SOURCE:ARG:액체 += 350
		SOURCE:ARG:욕정 += 450
	CASEELSE
		TIMES LOCAL , 3.00
		SOURCE:ARG:액체 += 500
		SOURCE:ARG:욕정 += 500
ENDSELECT
SOURCE:ARG:노출 += LOCAL

;-------------------------------------------------
;비디오의 처리
;-------------------------------------------------
;촬영 개시 직후
SIF TEQUIP:MASTER:비디오촬영 == 11
	RETURN 1
LOCALS = {SELECTCOM}/
TSTR:1 += LOCALS
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;IF TFLAG:105 == 1
;	EXP:MASTER:촬영경험 += 1
;ELSEIF TFLAG:105 == 2
;	EXP:ASSI:촬영경험 += 1
;ENDIF
EXP:ARG:피사경험 += 1

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE183
;비디오촬영 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(183)
	RETURN RESULT
;해제는 언제라도 가능
SIF TEQUIP:28
	RETURN 1
;카메라와 테이프의 아이템 을 가지고 있는인가, 아이템 없음 설정이 아니면 안 돼
SIF (ITEM:18 == 0 || ITEM:43 == 0) && NOITEM == 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70 == 1
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF183 비디오카메라_t.ERB


code:
;-------------------------------------------------
;조수를 범한다
;특수 커맨드
;-------------------------------------------------
@COM185
PRINTL 조수를 범한다
;-------------------------------------------------
;실행 판정 처리
;-------------------------------------------------
A = 0
S = 0

;모든 명령에 공통의 요소를 고려
;(순종이 높다고 명령에 따르기 쉬운 등)
CALL COM_ORDER

;ABL:욕망
IF ABL:욕망
	SIF S
		PRINT  +
	A += ABL:욕망 * 2
	PRINT 욕망
	PRINTV 'LV, ABL:욕망, '(, ABL:욕망 * 2, ')
	S = 1
ENDIF

IF MARK:쾌락각인
	SIF S
		PRINT  +
	A += MARK:쾌락각인 * 2
	PRINT 쾌락각인
	PRINTV 'LV, MARK:쾌락각인, '(, MARK:쾌락각인 * 2, ')
	S = 1
ENDIF
;PALAM:욕정
IF GETPALAMLV(PALAM:욕정, 5)
	SIF S
		PRINT  +
	A += GETPALAMLV(PALAM:욕정, 5) * 2
	PRINT 욕정
	PRINTV 'LV, GETPALAMLV(PALAM:욕정, 5), '(, GETPALAMLV(PALAM:욕정, 5) * 2, ')
	S = 1
ENDIF
;조수의 ABL:노출벽
IF ABL:ASSI:노출벽
	SIF S
		PRINT  +
	A += ABL:ASSI:노출벽 * 2
	PRINT 조수의 노출벽
	PRINTV 'LV, ABL:ASSI:노출벽, '(, ABL:ASSI:노출벽 * 2, ')
	S = 1
ENDIF

;조수가 연모
IF TALENT:ASSI:연모 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 10
	PRINT 조수가 연모
	PRINTV '(, 10, ')
	S = 1
ENDIF

;조수가 친애
IF TALENT:ASSI:연모 > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 15
	PRINT 조수가 친애
	PRINTV '(, 15, ')
	S = 1
ENDIF

;조수가 처녀
IF TALENT:ASSI:처녀 == 1
	PRINT  -
	A -= 50
	PRINT 조수가 처녀
	PRINTV '(, 50, ')
	S = 1
ENDIF

;합계를 표시(40이상으로 실행)
PRINT  =
PRINTV A

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

WAIT

;실행할 수 없다
SIF A < V
	RETURN 0

;-------------------------------------------------
;실행 결정
;-------------------------------------------------
STR:0 = 조수를 범한다
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;TCVAR:0 사정 대상 플래그(비트 0=TARGET 1=PLAYER 2=MASTER 3=ASSI)
;TCVAR:1 예비 사정 대상 플래그(비트를 사용하고 싶지 않은 인용, CFLAG:100으로 번역됩니다)	(1=TARGET 2=PLAYER 3=MASTER 4=ASSI 5=TARGET+ASSI 6=MASTER+ASSI)
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수)

SETBIT TCVAR:MASTER:0, 3
TCVAR:MASTER:2 = 1
;강도
TCVAR:MASTER:4 = 1500

TEQUIP:ASSI:50 = MASTER

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:체력 += 0
DOWNBASE:기력 += 250

SOURCE:사랑 = 200
SOURCE:액체 = 100
SOURCE:굴종 = 1500
SOURCE:일탈 = 700
SOURCE:반감 = 700

;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:자기애 < 0 || TALENT:저항
	SOURCE:울굴 += 700

;조수가 처녀상실을 했을 경우, 굴복과 일탈을 증가
IF TALENT:ASSI:처녀 == 1
	TIMES SOURCE:일탈 , 20.00
	TIMES SOURCE:굴종 , 3.00
ENDIF

;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;사정에 관계없이 행해지는 처리는 여기에서
IF TALENT:MASTER:2 & 2
	;주인의 P⇔조수의 V의 더러움이 이동
	STAIN:MASTER:2 |= STAIN:ASSI:3
	STAIN:ASSI:3 |= STAIN:MASTER:2
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;조수의 V경험
EXP:ASSI:V경험 += 1

;조수의 레즈경험;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
SIF HETEROSEX(ASSI, MASTER) == 1
	EXP:ASSI:레즈경험 += 10

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE185
LOCAL = 0
;조수를 범하는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(185)
	RETURN RESULT
;조수가 없으면 안 돼
SIF ASSI < 1
	RETURN 0
;주인이 아니면 안 돼
SIF ASSIPLAY
	RETURN 0
;조수가 남자라면 안 돼
SIF !(TALENT:ASSI:2 & 1)
	RETURN 0
;체격 차이가 있는 경우는 주인이 금단의지식 소유가 아니면 안 돼
SIF ABS(TALENT:체형 - TALENT:ASSI:체형) > 2 && (TALENT:MASTER:금단의지식 == 0)
	RETURN 0
;주인이 남자, 반인반요, 후타나리, 혹은 페니스밴드가 없으면 안 돼
SIF !(TALENT:MASTER:2 & 2) && ITEM:PBAND == 0
	RETURN 0
;밧줄 사용 중이거나 순종이 3이상 없으면 안 돼
SIF TEQUIP:밧줄 == 0 && ABL:순종 < 3
	RETURN 0
;목욕탕플레이중은 플레이매트가 없으면 안 돼
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;새댁플레이중은 안 돼
SIF TEQUIP:33
	RETURN 0
;정지 중에는 불가
SIF FLAG:70 == 1
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF185 조수를범함_t.ERB


code:
;-------------------------------------------------
;배란유발제
;특수 커맨드
;-------------------------------------------------
@COM192
IF TCVAR:강제배란
	PRINTL 벌써 복용했다
	RETURN -1
ENDIF
ITEM:배란유발제 -= 1
TCVAR:강제배란 = 180
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1

ELSE

;조교자가 조합지식을 가지고 있으면 소비를 억제 당한다
IF TALENT:PLAYER:조합지식
	DOWNBASE:체력 += 200
	DOWNBASE:기력 += 200
ELSE
	DOWNBASE:체력 += 100
	DOWNBASE:기력 += 100
ENDIF
	SOURCE:일탈 = 1000
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;동성애  레즈라면 반환값 1 동성애자라면 반환값 2
IF FLAG:70 == 1
	IF HETEROSEX(TARGET,PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ELSE
	IF HETEROSEX(TARGET,PLAYER)
		EXP:(50 + HETEROSEX(TARGET,PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET,PLAYER)) += 1
	ENDIF
ENDIF
RETURN 1

@CAN_COM192(ARG)
SKIPDISP ARG
;-------------------------------------------------
;실행 판정 처리
;-------------------------------------------------
IF FLAG:70 == 1 || CFLAG:장난

ELSE
A = 0
S = 0

;모든 명령에 공통의 요소를 고려
;(순종이 높다고 명령에 따르기 쉬운 등)
CALL COM_ORDER

;ABL:욕망
IF ABL:욕망
	SIF S
		PRINT  +
	A += ABL:욕망 * 1
	PRINT 욕망
	PRINTV 'LV, ABL:욕망, '(, ABL:욕망 * 1, ')
	S = 1
ENDIF
;ABL:V감각
IF ABL:V감각
	SIF S
		PRINT  +
	A += ABL:V감각 * 2
	PRINT V감각
	PRINTV 'LV, ABL:V감각, '(, ABL:V감각 * 2, ')
	S = 1
ENDIF
;ABL:정액중독
IF ABL:정액중독
	SIF S
		PRINT  +
	A += ABL:정액중독 * 3
	PRINT 정액중독
	PRINTV 'LV, ABL:정액중독, '(, ABL:정액중독 * 3, ')
	S = 1
ENDIF

IF MARK:쾌락각인
	SIF S
		PRINT  +
	A += MARK:쾌락각인 * 1
	PRINT 쾌락각인
	PRINTV 'LV, MARK:쾌락각인, '(, MARK:쾌락각인 * 1, ')
	S = 1
ENDIF
;PALAM:욕정
IF GETPALAMLV(PALAM:욕정,5)
	SIF S
		PRINT  +
	A += GETPALAMLV(PALAM:욕정,5) * 1
	PRINT 욕정
	PRINTV 'LV, GETPALAMLV(PALAM:욕정, 5), '(, GETPALAMLV(PALAM:욕정, 5) * 1, ')
	S = 1
ENDIF
;수줍음
IF TALENT:수치심 > 0
	PRINT  -
	A -= 1
	PRINT 수치심
	PRINTV '(,1,')
	S = 1
ENDIF
;남성기피（연모, 친애로 무효）
IF OTOKOGIRAI(TARGET)
	PRINT  -
	A -= 12
	PRINT 남성기피
	PRINTV '(,12,')
	S = 1
ENDIF
;연모
IF TALENT:연모 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT 연모
	PRINTV '(,5,')
	S = 5
ENDIF
;애욕
IF TALENT:애욕 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT 애욕
	PRINTV '(,5,')
	S = 5
ENDIF
;친애
IF TALENT:연모 > 1 && ASSIPLAY == 0
	SIF S
		PRINT  +
	A += 5
	PRINT 친애
	PRINTV '(,5,')
	S = 5
ENDIF

;생 해금
IF CFLAG:생해금 == 2
	SIF S
		PRINT  +
	A += 5
	PRINT 질내사정 합의
	PRINTV '(,5,')
	S = 1
ELSE
	SIF S
		PRINT  -
	A -= 200
	PRINT 질내사정 미합의
	PRINTV '(,200,')
	S = 1
ENDIF

;조교자가 후타나리
IF (TALENT:PLAYER:2 & 3) == 3
	SIF S
		PRINT  +
	A += 8
	PRINT 후타나리
	PRINTV '(,8,')
	S = 1
ENDIF

;합계를 표시(100이상으로 실행)
PRINT  =
PRINTV A

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

WAIT
SKIPDISP 0
;실행 할 수 없다
SIF A < V
	RETURN 0
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE192
;배란유발제 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(192)
	RETURN RESULT
;정지중은 불가
SIF FLAG:70 == 1
	RETURN 0
; 아이템을 가지고 있지 않으면 안 돼
SIF ITEM:배란유발제 == 0
	RETURN 0
;약독내성이라면 안 돼
SIF TALENT:약독내성
	RETURN 0
SIF SHIRAHU(TARGET) && CFLAG:생해금 != 2
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF192 배란유발제_t.ERB


code:
;-------------------------------------------------
;펠라한다
;애무계 커맨드, 레벨 1
;-------------------------------------------------
@COM2
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;봉사 쾌락
TCVAR:PLAYER:108 = 1

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 4
;강도
TCVAR:TARGET:4 = 1000

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 50
	SOURCE:PLAYER:쾌M += 50
SOURCE:PLAYER:성행동 =7
	SOURCE:쾌C = 110
	;성기술보정
	SOURCE:PLAYER:성행동 +=MIN(ABL:PLAYER:혀 * 25,100)/20
	SOURCE:쾌C += MIN(ABL:PLAYER:혀 * 25,100)

	;조교자의 TALENT:혀놀림을 본다
	SIF TALENT:PLAYER:혀놀림
		TIMES SOURCE:쾌C , 1.50

	;조교자의 TALENT:고양이혀를 본다
	SIF TALENT:PLAYER:고양이혀
		TIMES SOURCE:쾌C , 0.75
	;노예의 P⇔조교자의 입의 더러움이 이동
	STAIN:2 |= STAIN:PLAYER:구
	STAIN:PLAYER:구 |= STAIN:2
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
	ENDIF
	;조교자가 고양이혀 소유의 경우는, 조교자에게 가학쾌락경험을 추가
	SIF TALENT:PLAYER:고양이혀
		EXP:PLAYER:가학쾌락경험 += 1
	EXP:PLAYER:펠라티오경험 ++
ELSE

	DOWNBASE:체력 += 5
	DOWNBASE:기력 += 50
	SOURCE:PLAYER:쾌M += 50

	SOURCE:PLAYER:성행동 =5
	SOURCE:쾌C = 110
	SOURCE:노출 = 20
	SOURCE:일탈 = 20
	SOURCE:반감 = 20

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 20

	;성기술보정
	IF ABL:PLAYER:혀 >= 4
		SOURCE:PLAYER:성행동 =5
		SOURCE:쾌C += 100
	ELSE
	SOURCE:PLAYER:성행동 +=ABL:PLAYER:혀
		SOURCE:쾌C += ABL:PLAYER:혀 * 25
	ENDIF

	;조교자의 TALENT:혀놀림을 본다
	SIF TALENT:PLAYER:혀놀림
		TIMES SOURCE:쾌C , 1.50

	;조교자의 TALENT:고양이혀를 본다
	SIF TALENT:PLAYER:고양이혀
		TIMES SOURCE:쾌C , 0.75
	;-------------------------------------------------
	;더러움의 처리
	;-------------------------------------------------
	;노예의 P⇔조교자의 입의 더러움이 이동
	STAIN:2 |= STAIN:PLAYER:구
	STAIN:PLAYER:구 |= STAIN:2

	;-------------------------------------------------
	;경험의 처리
	;-------------------------------------------------
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
	ENDIF
	;조교자가 고양이혀 소유의 경우는, 조교자에게 가학쾌락경험을 추가
	SIF TALENT:PLAYER:고양이혀
		EXP:PLAYER:가학쾌락경험 += 1
	EXP:PLAYER:펠라티오경험 ++
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE2
;펠라하는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(2)
	RETURN RESULT
;성기가 더러워져 있으면(자) PLAYER의 경우 펠라하고는 할 수 없다(조교자가 더러움 무시나 애액, P, 모유, 초콜렛의 얼룩이라면 OK)
SIF STAIN:2 >= 4 && (STAIN:2 != 18 && STAIN:2 != 19 && STAIN:2 != 128 && STAIN:2 != 129 && STAIN:2 != 130 && STAIN:2 != 131 && STAIN:2 != 144 && STAIN:2 != 145 && STAIN:2 != 146 && STAIN:2 != 147) && ASSIPLAY == 0 && TALENT:PLAYER:악취내성 < 2
	RETURN 0
;성기가 더러워져 있어 악취 민감으로 순종 3 이하의 ASSI의 경우 펠라는 할 수 없다(조교자가 더러움 무시나 애액, P, 모유, 초콜렛의 얼룩이라면 OK)
IF STAIN:2 >= 4 && (STAIN:2 != 18 && STAIN:2 != 19 && STAIN:2 != 128 && STAIN:2 != 129 && STAIN:2 != 130 && STAIN:2 != 131 && STAIN:2 != 144 && STAIN:2 != 145 && STAIN:2 != 146 && STAIN:2 != 147) && ASSIPLAY
	SIF ABL:ASSI:순종 <= 3 && TALENT:ASSI:악취내성 < 0
		RETURN 0
ENDIF
;고양이혀의 조교자의 경우는 기교 Lv2 이상 필요
SIF TALENT:PLAYER:고양이혀 && ABL:PLAYER:기교 < 2
	RETURN 0
;남자인가 양성이 아니면 안 돼
SIF !(HAS_PENIS(TARGET))
	RETURN 0

;하반신착의;바지는 불가가 되어 있지만, 바지라면 자지 낼 수 있어도 문제인이군요?
;SIF TEQUIP:0 & 4
	;RETURN 0
;오나홀사용중은 안 돼
SIF TEQUIP:12
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF2 펠라한다_t.ERB


code:
;-------------------------------------------------
;유혹한다
;커뮤니케이션 계 커맨드, 레벨 1
;-------------------------------------------------
@COM22
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = -1
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
DOWNBASE:기력 += 30

;SOURCE:PLAYER:쾌C = 50
SOURCE:PLAYER:노출 = 200
;TARGET에 노출 필요?
SOURCE:노출 = 100
;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;고통을 수반하지 않는 마조끼 및 매저키스트가 동반하는 처리는 먼저 해 둔다
;마조끼를 본다
SELECTCASE ABL:PLAYER:마조끼
	CASE 0
		TIMES SOURCE:PLAYER:노출 , 0.80
		SOURCE:PLAYER:액체 += 0
		SOURCE:PLAYER:욕정 += 0
	CASE 1
		TIMES SOURCE:PLAYER:노출 , 1.00
		SOURCE:PLAYER:액체 += 20
		SOURCE:PLAYER:욕정 += 30
	CASE 2
		TIMES SOURCE:PLAYER:노출 , 1.20
		SOURCE:PLAYER:액체 += 40
		SOURCE:PLAYER:욕정 += 70
	CASE 3
		TIMES SOURCE:PLAYER:노출 , 1.40
		SOURCE:PLAYER:액체 += 70
		SOURCE:PLAYER:욕정 += 120
	CASE 4
		TIMES SOURCE:PLAYER:노출 , 1.50
		SOURCE:PLAYER:액체 += 110
		SOURCE:PLAYER:욕정 += 180
	CASE 5
		TIMES SOURCE:PLAYER:노출 , 1.70
		SOURCE:PLAYER:액체 += 150
		SOURCE:PLAYER:욕정 += 250
	CASE 6
		TIMES SOURCE:PLAYER:노출 , 1.90
		SOURCE:PLAYER:액체 += 200
		SOURCE:PLAYER:욕정 += 300
	CASE 7
		TIMES SOURCE:PLAYER:노출 , 2.10
		SOURCE:PLAYER:액체 += 250
		SOURCE:PLAYER:욕정 += 350
	CASE 8
		TIMES SOURCE:PLAYER:노출 , 2.30
		SOURCE:PLAYER:액체 += 300
		SOURCE:PLAYER:욕정 += 400
	CASE 9
		TIMES SOURCE:PLAYER:노출 , 2.50
		SOURCE:PLAYER:액체 += 350
		SOURCE:PLAYER:욕정 += 450
	CASEELSE
		TIMES SOURCE:PLAYER:노출 , 3.00
		SOURCE:PLAYER:액체 += 500
		SOURCE:PLAYER:욕정 += 500
ENDSELECT

;마조를 본다
IF TALENT:PLAYER:마조
	TIMES SOURCE:PLAYER:노출 , 2.50
	TIMES SOURCE:PLAYER:액체 , 1.20
	TIMES SOURCE:PLAYER:욕정 , 1.20
ENDIF
RETURN 1

@COM_ABLE22
;권해 받는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(22)
	RETURN RESULT
SIF !TARGET
	RETURN 0
;수면간중
SIF CFLAG:장난 > 1
	RETURN 0
;시간정지중은 불가
SIF FLAG:70
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF22 유혹한다_t.ERB


code:
;-------------------------------------------------
;필로토크
;-------------------------------------------------
@COM23
#DIM 회복전체력
#DIM 회복전기력
#DIM 회복후체력
#DIM 회복후기력
#DIM 회복전정력
#DIM 회복후정력
#DIM 회복전체력2
#DIM 회복전기력2
#DIM 회복후체력2
#DIM 회복후기력2

;회화 누적치가 반응을 일으키는 최소의 물리량을 넘으면(자) 실패
IF TCVAR:302&&!TALENT:MASTER:달변
	PRINTFORML %CALLNAME:TARGET%에 말을 건네려고 했지만 말이 발견되지 않는다
	PRINTW 근처에 거북한 공기가 흘렀다…
	TIME += 10
	DOWNBASE:기력 += 100
	DOWNBASE:PLAYER:기력 += 100
	RETURN 1
ENDIF

;======회화로부터 코히˚헤˚======
;고정으로 획득하는 소스
SOURCE:환락 = 200

;ABL:친밀을 본다
IF ABL:친밀 <= 1
	SOURCE:환락 += (ABL:순종 * 40)
ELSEIF ABL:친밀 <= 3
	SOURCE:환락 += 200 + (ABL:순종 * 40)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 500 + (ABL:순종 * 40)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 750 + (ABL:순종 * 60)
ELSEIF ABL:친밀 <= 10
	SOURCE:환락 += 1000 + (ABL:순종 * 60)
ELSE
	SOURCE:환락 += 1600 + (ABL:순종 * 30)
ENDIF

;호감 도를 본다
IF CFLAG:2 <= 1000
	SOURCE:환락 += CFLAG:2
ELSEIF CFLAG:2 <= 5000
	SOURCE:환락 += 500 + (CFLAG:2 - 500) / 3
ELSE
	SOURCE:환락 += 2000 + (CFLAG:2 - 5000) / 5
ENDIF
SIF SOURCE:환락 < 0
	SOURCE:환락 = 0

SOURCE:수동 = 100 + 100 * ABL:순종
SOURCE:정복 = 100 + 100 * ABL:새드끼

;그러나 연모가 아니면 성공율이 내린다
LOCAL = RAND:(200 - TALENT:연모 * 100 - TALENT:사모 * 50)

IF LOCAL <= 20
	;대성공
	TFLAG:98 = 2
	EXP:PLAYER:회화경험 ++
	TFLAG:193 = 1
ELSEIF LOCAL >= 95
	;운이 나쁘면 실패
	TFLAG:호감도마이너스 = 2
	TFLAG:193 = -1
ENDIF

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF
SELECTCASE ABL:PLAYER:화술기능
	CASE 0
		TIMES SOURCE:환락 , 0.20
		TIMES SOURCE:정복 , 0.20
		TIMES SOURCE:수동 , 0.20
	CASE 1
		TIMES SOURCE:환락 , 0.40
		TIMES SOURCE:정복 , 0.40
		TIMES SOURCE:수동 , 0.40
	CASE 2
		TIMES SOURCE:환락 , 0.70
		TIMES SOURCE:정복 , 0.70
		TIMES SOURCE:수동 , 0.70
	CASE 3
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:정복 , 1.00
		TIMES SOURCE:수동 , 1.00
	CASE 4
		TIMES SOURCE:환락 , 1.20
		TIMES SOURCE:정복 , 1.20
		TIMES SOURCE:수동 , 1.20
	CASEELSE
		TIMES SOURCE:환락 , 1.50
		TIMES SOURCE:정복 , 1.50
		TIMES SOURCE:수동 , 1.50
ENDSELECT
;==================================
;회화 누적치
TCVAR:301 += 800 / (10 + ABL:PLAYER:화술기능)
회복전체력= BASE:PLAYER:체력
회복전기력= BASE:PLAYER:기력
회복전정력 = BASE:PLAYER:정력
회복전정력 = BASE:PLAYER:정력
회복전체력2 = BASE:체력
회복전기력2 = BASE:기력

CALL RECOVER_PERMIL(PLAYER, 20,"체력", 1)
CALL RECOVER_PERMIL(PLAYER, 50,"기력", 1)
CALL RECOVER_PERMIL(PLAYER, 50,"정력", 1)

CALL RECOVER_PERMIL(TARGET, 20,"체력", 1)
CALL RECOVER_PERMIL(TARGET, 50,"기력", 1)

IF TFLAG:193 == -1
	CALL RECOVER_PERMIL(PLAYER,-80,"기력", 1)
	CALL RECOVER_PERMIL(TARGET,-80,"기력", 1)
ENDIF

TIME += 30
회복후체력= BASE:PLAYER:체력
회복후기력= BASE:PLAYER:기력
회복후정력 = BASE:PLAYER:정력
회복후체력2 = BASE:체력
회복후기력2 = BASE:기력

DRAWLINE
PRINTFORML 체력+{ABS(회복후체력- 회복전체력)}(%CALLNAME:PLAYER%)
PRINTFORML 기력+{ABS(회복후기력- 회복전기력)}(%CALLNAME:PLAYER%)
PRINTFORML 정력+{ABS(회복후정력 - 회복전정력)}(%CALLNAME:PLAYER%)
PRINTFORML 체력+{ABS(회복후체력2 - 회복전체력2)}(%CALLNAME:TARGET%)
PRINTFORML 기력+{ABS(회복후기력2 - 회복전기력2)}(%CALLNAME:TARGET%)
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE23
;필로토크
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(150)
	RETURN RESULT
;상대가 지치지 않았다고 안 돼
SIF BASE:체력 > 1000
	RETURN 0

;시간정지중도 안 돼
SIF FLAG:70
	RETURN 0
;어쩐지 장착하고 있다고(면) 안 돼
FOR LOCAL, 11,25
	SIF TEQUIP:LOCAL
		RETURN 0
NEXT
;삽입중은 안 돼
SIF TEQUIP:50 != -1
	RETURN 0
SIF TEQUIP:51 != -1
	RETURN 0
;샤워중은 안 돼
SIF TEQUIP:32
	RETURN 0
;유두빨기 안은 안 돼
SIF TEQUIP:41
	RETURN 0
;젖 비비어 안은 안 돼
SIF TEQUIP:42
	RETURN 0
;계속키스
SIF TEQUIP:계속키스
	RETURN 0
;수면간중
SIF CFLAG:장난 > 1
	RETURN 0
;침대 룸이 아니면 안 돼
SIF !BEDROOM(CFLAG:PLAYER:현재위치)
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF23 필로토크_t.ERB


code:
;-------------------------------------------------
;攻守交替
;-------------------------------------------------
@COM24
VARSET LOCAL
CFLAG:MASTER:우후후 = 2
TFLAG:COMABLE관리 = 3
FOR LOCAL,1,CHARANUM
	IF CFLAG:MASTER:현재위치 == CFLAG:LOCAL:현재위치
		CFLAG:LOCAL:우후후 = 2
		LOCAL:1 ++
	ENDIF
NEXT
PRINTFORML %CALLNAME:TARGET%\@ LOCAL:1 > 1 ? 일행 #  \@ 에게 주도권을 양보했다
TIME += 5

RETURN 1

;-------------------------------------------------
;実行判定
;-------------------------------------------------
@COM_ABLE24
SIF !TFLAG:100
	RETURN 0
;一括管理
SIF GLOBAL_COMABLE(150)
	RETURN RESULT
;相手の욕정
SIF GETPALAMLV(PALAM:욕정,10) < 5
	RETURN 0
SIF TCVAR:억지로
	RETURN 0
;시간정지中も駄目
SIF !SHIRAHU(TARGET)
	RETURN 0
;なんか装着してるとダメ
FOR LOCAL,11,25
	SIF TEQUIP:LOCAL
		RETURN 0
NEXT
;挿入中は駄目
SIF TEQUIP:50 != -1
	RETURN 0
SIF TEQUIP:51 != -1
	RETURN 0
;샤워中はダメ
SIF TEQUIP:32
	RETURN 0
;유두빨기中はダメ
SIF TEQUIP:41
	RETURN 0
;乳揉み中はダメ
SIF TEQUIP:42
	RETURN 0
;계속키스
SIF TEQUIP:계속키스
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF24 공수교대.ERB


code:
;-------------------------------------------------
;손가락 삽입
;애무계 커맨드, 레벨 1
;-------------------------------------------------
@COM3
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;봉사 쾌락
TCVAR:PLAYER:108 = 1

;파과 억제
TFLAG:2 = 1

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 40
	IF !TALENT:처녀 || TALENT:처녀 == -1
		SOURCE:PLAYER:성행동=6
		SOURCE:쾌V = 120
		SOURCE:고통 = 10
	ELSE
		SOURCE:PLAYER:성행동=3
		SOURCE:쾌V = 60
		SOURCE:고통 = 5
	ENDIF
	IF TALENT:PLAYER:능숙한손가락
		SOURCE:PLAYER:성행동+=1
		SOURCE:쾌V += 20
	ENDIF
	SOURCE:PLAYER:성행동= ABL:PLAYER:손가락 /2
	SOURCE:쾌V += ABL:PLAYER:손가락 * 5
	;V에의 고통
	CALL PAIN_CHECK_V(TARGET)
	;노예의 질내⇔조교자의 손가락의 더러움이 이동
	STAIN:6 |= STAIN:PLAYER:1
	STAIN:PLAYER:1 |= STAIN:6
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
	EXP:V경험 ++
	EXP:PLAYER:수음경험 ++
ELSE

	DOWNBASE:체력 += 30
	DOWNBASE:기력 += 80

	IF !TALENT:처녀 || TALENT:처녀 == -1
		SOURCE:PLAYER:성행동= 6
		SOURCE:쾌V = 120
		SOURCE:고통 = 15
		SOURCE:노출 = 10
		SOURCE:일탈 = 20
		SOURCE:반감 = 20
	;V경험이 0때는 V경험을 수반하지 않는 것에 파생
	;V의 구슬은 들어가지 않지만, 쾌V가 높으면 길들여 있기 (위해)때문에 처녀상실시에 영향
	ELSE
		SOURCE:PLAYER:성행동= 3
		SOURCE:쾌V = 60
		SOURCE:고통 = 10
		SOURCE:노출 = 30
		SOURCE:일탈 = 30
		SOURCE:반감 = 30
	ENDIF

	IF TALENT:PLAYER:능숙한손가락
		SOURCE:PLAYER:성행동+= 1
		SOURCE:쾌V += 20
	ENDIF
	SOURCE:PLAYER:성행동+=  ABL:PLAYER:손가락/2
	SOURCE:쾌V += ABL:PLAYER:손가락 * 5
	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	IF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 20
		;처녀
		SIF TALENT:처녀
			SOURCE:울굴 += 10
	ENDIF
	;V에의 고통
	CALL PAIN_CHECK_V(TARGET)

	;-------------------------------------------------
	;더러움의 처리
	;-------------------------------------------------
	;노예의 질내⇔조교자의 손가락의 더러움이 이동
		STAIN:6 |= STAIN:PLAYER:1
		STAIN:PLAYER:1 |= STAIN:6
	;-------------------------------------------------
	;경험의 처리
	;-------------------------------------------------
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
	EXP:V경험 ++
	EXP:PLAYER:수음경험 ++
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE3
;손가락 삽입실행 판정
SIF !TFLAG:100
	RETURN 0

;일괄관리
SIF GLOBAL_COMABLE(3)
	RETURN RESULT
;남자라면 안 돼
SIF !(TALENT:2 & 1)
	RETURN 0
;시간정지중은 허가
IF FLAG:70 != 1
	;윤활 부족해, 순종 3 이하·레즈끼 3 이하의 ASSI의 경우 애널애무는 할 수 없다(새드라면 OK)
	IF PALAM:윤활 < PALAMLV:2 && ASSIPLAY
		SIF (ABL:ASSI:순종 <= 3 || ABL:ASSI:레즈끼 <= 3) && !TALENT:ASSI:새드
			RETURN 0
	ENDIF
ENDIF

;하반신착의
SIF TEQUIP:0 & 4
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF3 손가락삽입_t.ERB


code:
;-------------------------------------------------
;상대주도정상위
;섹스계 커맨드, 레벨 1
;-------------------------------------------------
@COM320
;-------------------------------------------------
;특수 파생 처리
;-------------------------------------------------

;침대가 없으면 립 정도에
SIF !BEDROOM(CFLAG:PLAYER:현재위치) && !(BATHROOM() && ITEM:20)
	TFLAG:193 = 1

;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER

;봉사 쾌락 플래그
TCVAR:PLAYER:108 = 1

CALL TOUCH_SET(SET_FROM_V, 1, TARGET)
TCVAR:PLAYER:2 = 1
TCVAR:PLAYER:동정상실 = 1
TEQUIP:TARGET:체위 = 1
TFLAG:MASTER의P삽입중 = 1
TEQUIP:50 = PLAYER

CSTR:PLAYER:10 += @"{TARGET}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:PLAYER:2 = 1
TCVAR:PLAYER:동정상실 = 1
;강도
TCVAR:PLAYER:4 = 800

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 13
;강도
TCVAR:TARGET:4 = 1500

;정상위 보정
;PLAYER가 TARGET의 질에 삽입하고 있다
SIF (BEDROOM(CFLAG:PLAYER:현재위치) || (BATHROOM() && ITEM:20)) && TEQUIP:50 == PLAYER
	TCVAR:PLAYER:4 += EXP:애정경험 * 5
SIF TCVAR:PLAYER:4 >= 3000
	TCVAR:PLAYER:4 = 3000

DOWNBASE:PLAYER:체력 += 30
DOWNBASE:PLAYER:기력 += 40

SOURCE:PLAYER:쾌C = 400

DOWNBASE:체력 += 40
DOWNBASE:기력 += 50

SOURCE:PLAYER:성행동+= 20
SOURCE:쾌V = 400
SOURCE:사랑 = 300
SOURCE:고통 = 500
SOURCE:노출 = 50
SIF TFLAG:193
	SOURCE:노출 = 300
;정상위 보정
IF BEDROOM(CFLAG:PLAYER:현재위치) && !ASSIPLAY
	SOURCE:PLAYER:성행동+= EXP:애정경험/20
	SOURCE:쾌V += EXP:애정경험
ENDIF
IF SOURCE:쾌V >= 1000
	SOURCE:PLAYER:성행동+= 50
	SOURCE:쾌V = 1000
ENDIF

;위 쪽으로 계산한 더러운 데이터
SOURCE:불결 = Y*10 + 60
CALL 특수소스처리
;V에의 고통은 먼저 처리해 둔다
CALL PAIN_CHECK_V(TARGET)
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;사정에 관계없이 행해지는 처리는 여기에서
CALL STAIN_질내P삽입
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:PLAYER:삽입경험 ++
EXP:V경험 ++
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2

IF HETEROSEX(TARGET, PLAYER)
	EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 4
	EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 4
ENDIF
EXP:V성교경험 ++
IF !ASSIPLAY
	EXP:애정경험 += TALENT:연모 * 3
	;처녀
	SIF TALENT:처녀 == 1 && TALENT:연모
		EXP:애정경험 += 10
ENDIF

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE320
SIF !TFLAG:100
	RETURN 0
SIF TCVAR:20 != 41
	RETURN 0
;조교자가 남자, 양성의 경우는 어느 정도 발기하고 있지 않으면 안 돼
SIF (TALENT:PLAYER:2 & 2) && BASE:PLAYER:발기 < 1000
	RETURN 0
;바이브 삽입중은 안 돼
SIF TEQUIP:13
	RETURN 0
;남자라면 안 돼
SIF !(TALENT:2 & 1)
	RETURN 0
;체격 차이가 있는 경우는 경험이 없으면 안 돼
SIF 삽입불가(TARGET) == 1 && EXP:V경험 < 50 && !TALENT:PLAYER:금단의지식
	RETURN 0
;한층 더 체격 차이가 있으면(자) 금단의지식이 필요
SIF 삽입불가(TARGET) == 2 && (!TALENT:PLAYER:금단의지식 || EXP:V경험 < 50)
	RETURN 0
SIF 삽입불가(TARGET) == 3
	RETURN 0
;조교자가 남자, 반인반요, 후타나리, 혹은 페니스밴드가 없으면 안 돼
SIF !(TALENT:PLAYER:2 & 2) && ITEM:PBAND == 0
	RETURN 0
;처녀로, 순종 4 이하·레즈끼 4 이하의 ASSI의 경우는 할 수 없다(새드라면 OK)
IF TALENT:처녀 && ASSIPLAY
	SIF (ABL:ASSI:순종 <= 4 || ABL:ASSI:레즈끼 <= 4) && TALENT:ASSI:새드 == 0
		RETURN 0
ENDIF
;시간정지중은 스킵
IF FLAG:70 != 1
	;처녀 또한 윤활 부족은 안 돼
	SIF PALAM:윤활 < PALAMLV:2 && TALENT:처녀 && TALENT:처녀 != -1
		RETURN 0
ENDIF

;하반신착의
SIF TEQUIP:0 & 4
	RETURN 0
;목욕탕플레이중은 플레이매트가 없으면 안 돼
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;후배위로부터는 안 돼
SIF TEQUIP:체위 == 5
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF320 상대주도정상위_t.ERB


path: ERB/커맨드관련/COMF/COMF323 상대주도후배위Ａ_t.ERB


code:
;-------------------------------------------------
;바이브
;도구 사용 커맨드, 레벨 2
;-------------------------------------------------
@COM44
;착탈의처리
TEQUIP:바이브 = !TEQUIP:바이브
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;봉사 쾌락 플래그
TCVAR:PLAYER:108 = 1

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 13
;강도
TCVAR:TARGET:4 = 900

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
SOURCE:PLAYER:성행동+= 10
	SOURCE:쾌V = 250
	SOURCE:고통 = 25

	;처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 1
		SOURCE:고통 += 1000
	ENDIF

	;재생 처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 2
		SOURCE:고통 += 250
	ENDIF

ELSE

	DOWNBASE:체력 += 30
	DOWNBASE:기력 += 100
SOURCE:PLAYER:성행동+= 10

	SOURCE:쾌V = 250
	SOURCE:고통 = 50
	SOURCE:노출 = 20
	SOURCE:일탈 = 40
	SOURCE:반감 = 40

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 40

	;처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 1
		SOURCE:고통 += 2000
		SOURCE:반감 += 3000
	ENDIF

	;재생 처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 2
		SOURCE:고통 += 500
		SOURCE:반감 += 1000
	ENDIF
ENDIF
;V에의 고통은 먼저 처리해 둔다
CALL PAIN_CHECK_V(TARGET)

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;삽입시는 V경험+
EXP:V경험 ++
IF FLAG:70 == 1
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ELSE
	;이상경험
	IF TALENT:처녀 == 1 && !GETBIT(CFLAG:3, 3)
		EXP:이상경험 ++
		SETBIT CFLAG:3, 3
	ENDIF

	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
	ENDIF
ENDIF
EXP:PLAYER:도구사용경험 ++

RETURN 1

;-------------------------------------------------
;장착 계속의 처리
;-------------------------------------------------
@EQUIP_COM44(ARG)
;바이브 삽입중
PRINTL ＜바이브 삽입중＞

CSTR:TARGET:10 += @"{PLAYER}/"
TCVAR:TARGET:2 = 13
TCVAR:TARGET:4 = 450

IF FLAG:70 == 1
BASE:MASTER:TSP -= 50
SOURCE:ARG:쾌V += 125

ELSE

DOWNBASE:ARG:체력 += 10
DOWNBASE:ARG:기력 += 50

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

;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:ARG:자기애 < 0 || TALENT:ARG:저항
	SOURCE:ARG:울굴 += 20

;V에의 고통은 먼저 처리해 둔다
;EXP:V경험을 본다(처녀는 있을 수 없다)
LOCAL = 25
LOCAL:1 = 20
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 , 1.20
	TIMES LOCAL:1 , 1.50
ELSEIF PALAM:ARG:윤활 < PALAMLV:2
	TIMES LOCAL , 0.70
	TIMES LOCAL:1 , 1.20
ELSEIF PALAM:ARG:윤활 < PALAMLV:3
	TIMES LOCAL , 0.40
ELSEIF PALAM:ARG:윤활 < PALAMLV:4
	TIMES LOCAL , 0.10
ELSEIF PALAM:ARG:윤활 >= PALAMLV:4
	TIMES LOCAL , 0.10
ENDIF
SOURCE:ARG:고통 += LOCAL
SOURCE:ARG:반감 += LOCAL:1

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;자위 실행시는 경험＋1
SIF EXP_UP(22, TARGET)
	EXP:ARG:V경험 += 1
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE44
;바이브 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(44)
	RETURN RESULT
;해제는 언제라도 가능
SIF TEQUIP:13
	RETURN 1
;남자라면 안 돼
SIF !(TALENT:2 & 1)
	RETURN 0
;아이템 을 가지고 있는인가, 아이템 없음 설정이 아니면 안 돼
SIF ITEM:4 == 0 && NOITEM == 0
	RETURN 0

;하반신착의
SIF TEQUIP:0 & 4
	RETURN 0
;처녀로, 순종 4 이하·레즈끼 4 이하의 ASSI의 경우 바이브는 할 수 없다(새드라면 OK)
IF TALENT:처녀 && ASSIPLAY
	SIF (ABL:ASSI:순종 <= 4 || ABL:ASSI:레즈끼 <= 4) && TALENT:ASSI:새드 == 0
		RETURN 0
ENDIF
;윤활 부족해, 순종 3 이하·레즈끼 3 이하의 ASSI의 경우 바이브는 할 수 없다(새드라면 OK)
IF PALAM:윤활 < PALAMLV:2 && ASSIPLAY
	SIF (ABL:ASSI:순종 <= 3 || ABL:ASSI:레즈끼 <= 3) && TALENT:ASSI:새드 == 0
		RETURN 0
ENDIF
RETURN 1

path: ERB/커맨드관련/COMF/COMF44 바이브_t.ERB


code:
;----------------------
;491:オナニーする
;----------------------
;練習に作ってみた簡易オナニー
@COM491
;P持ちでかつ精力か勃起が0だとシコれない。無勃起でイケる人はイケるけど当座は発散目的ということで
IF TALENT:PLAYER:2 != 1 && BASE:MASTER:발기 <=1
	PRINTFORMW 무스코가 풀이 죽어 힘이 나지 않는다
	RETURN -1

ELSEIF TALENT:PLAYER:2 != 1 &&  BASE:MASTER:정력 <=1
	PRINTFORMW 총알 조각으로 의지가 나오지 않는다
	RETURN -1

ELSE
	PRINTFORML %마스터는% 적당한 그늘을 찾아내 깨끗이 하기로 했다

ENDIF

;-------------------------------------------------
;COM別FLAGの設定(日常系317,腰を動かすから流用）
;-------------------------------------------------
;行為者
TCVAR:116 = PLAYER

CSTR:PLAYER:10 += @"{PLAYER}/"
;TCVAR:2 射精箇所フラグ（-1=コンドーム 1=膣内 2=アナル 3=手淫 4=口淫 5=パイズリ 6=素股 7=足コキ 8=体表 9=アナル奉仕 10=道具 11=触手 12=Ａ責め 13=Ｖ責め）
TCVAR:PLAYER:2 = 3
;強度
TCVAR:PLAYER:4 = 5000 + ABL:손가락 * 100

;-------------------------------------------------
;ソース追加処理。
;-------------------------------------------------
;消費体力、気力
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 30

ELSE

	DOWNBASE:0 += 200
	DOWNBASE:1 += 300

;精力が減少
;	SIF TALENT:PLAYER:2 != 1
;		BASE:MASTER:정력 -= 50

ENDIF
;勃起が減少
;SIF TALENT:PLAYER:2 != 1
;BASE:MASTER:발기 -=100

;先に時間経過
SIF FLAG:70 == 0
	TIME += 20

;快楽(313,胸愛撫から流用）

	SOURCE:0 = 1000
	IF ABL:PLAYER:손가락 >= 4
		SOURCE:0 += ABL:PLAYER:손가락 * 100
	ELSE
		SOURCE:0 += ABL:PLAYER:손가락 * 500
	ENDIF
	SOURCE:20 = 100
	SOURCE:15 = 50
	SOURCE:17 = 70

;各種経験
EXP:PLAYER:0 += 1
;EXP:PLAYER:10 += 1
;EXP:PLAYER:5 += 1
EXP:PLAYER:22 += 1
EXP:PLAYER:24 += 1

;P持ちなら射精経験
;SIF TALENT:PLAYER:2 != 1
;	EXP:PLAYER:11 += 1

RETURN 1

;-------------------------------------------------
;汚れの処理
;-------------------------------------------------
;あなたの指にあなたのPかVの汚れが移動
;ふたなりなら両方

IF TALENT:PLAYER:2 ==1
	STAIN:PLAYER:1 |= STAIN:PLAYER:3

ELSEIF TALENT:PLAYER:2 ==2
	STAIN:PLAYER:1 |= STAIN:PLAYER:2

ELSE
	STAIN:PLAYER:1 |= STAIN:PLAYER:2
	STAIN:PLAYER:1 |= STAIN:PLAYER:3

ENDIF

;-------------------------------------------------
;実行判定。80行目までと84行目はERB700からコピペ
;-------------------------------------------------
@COM_ABLE491
;目撃者がいると駄目
SIF TARGET > 0 && !FLAG:70
	RETURN 0
SIF !TFLAG:100
	RETURN 0
;一括管理
SIF GLOBAL_COMABLE(491)
	RETURN RESULT
;気力0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
SIF CFLAG:MASTER:지금바쁨
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF491 자위하기.ERB


code:
;-------------------------------------------------
;정상위
;섹스계 커맨드, 레벨 1
;-------------------------------------------------
@COM60
;-------------------------------------------------
;특수 파생 처리
;-------------------------------------------------

;전회의 조교가 3 P 때 3 P에
IF PREVCOM == 71
	CALL COM_ABLE71
	SIF RESULT == 1
		JUMP COM71
ENDIF
;침대가 없는 OR욕실에서 플레이매트가 없으면 립 정도에
SIF !BEDROOM(CFLAG:PLAYER:현재위치) && !(BATHROOM() && ITEM:20)
	TFLAG:193 = 1

;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;봉사 쾌락 플래그
TCVAR:PLAYER:108 = 1

CSTR:PLAYER:10 += @"{TARGET}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:PLAYER:2 = 1
TCVAR:PLAYER:동정상실 = 1
;강도
TCVAR:PLAYER:4 = 1500

CSTR:TARGET:10 += @"{PLAYER}/"
;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
TCVAR:TARGET:2 = 13
;강도
TCVAR:TARGET:4 = 1500

;신설정안
;강도 우선 2할
;TCVAR:PLAYER:4 = 300
;소스는 반강으로
;	SOURCE:쾌V = 200
;	SOURCE:고통 = 130(250)

DOWNBASE:PLAYER:체력 += 40
DOWNBASE:PLAYER:기력 += 40
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 100
	SOURCE:PLAYER:쾌C = 400
	SOURCE:PLAYER:성행동+= 20
	SOURCE:쾌V = 400
	SOURCE:고통 = 250

	;처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 1
		SOURCE:고통 += 1000
	ENDIF

	;재생 처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:처녀 == 2
		SOURCE:고통 += 250
	ENDIF

ELSE

	DOWNBASE:체력 += 50
	DOWNBASE:기력 += 60
	SOURCE:PLAYER:성행동+= 20

	SOURCE:PLAYER:쾌C = 400
	SOURCE:쾌V = 300
	SOURCE:사랑 = 150
	SOURCE:고통 = 500
	SOURCE:노출 = 50
	SIF TFLAG:193
		SOURCE:노출 = 300
	SOURCE:반감 = 300

	;정상위 보정
	;PLAYER가 TARGET의 질에 삽입하고 있다
	IF BEDROOM(CFLAG:PLAYER:현재위치) && TEQUIP:50 == PLAYER
		TCVAR:PLAYER:4 += EXP:애정경험 * 5
		SOURCE:쾌V += EXP:애정경험
		SIF SOURCE:쾌V >= 700
			SOURCE:쾌V = 700
		SIF TCVAR:PLAYER:4 >= 3000
			TCVAR:PLAYER:4 = 3000
	ENDIF

	;위 쪽으로 계산한 더러운 데이터
	SOURCE:불결 = Y*10 + 60
	CALL 특수소스처리
ENDIF
;V에의 고통은 먼저 처리해 둔다
CALL PAIN_CHECK_V(TARGET)
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;사정에 관계없이 행해지는 처리는 여기에서
CALL STAIN_질내P삽입

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:PLAYER:삽입경험 ++
EXP:V경험 ++
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
IF FLAG:70 == 1 || CFLAG:장난
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 4
	ENDIF
	IF CFLAG:PLAYER:장난 == 2
		EXP:PLAYER:수면간경험 += 1
		EXP:TARGET:수면간경험 += 1
	ENDIF
	SIF !CFLAG:장난
	EXP:PLAYER:시간경험 += 1
ELSE
	IF HETEROSEX(TARGET, PLAYER)
		EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 4
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 4
	ENDIF
	EXP:V성교경험 ++
	IF !ASSIPLAY
		EXP:애정경험 += TALENT:연모 * 2
		;처녀
		SIF TALENT:처녀 == 1 && TALENT:연모
			EXP:애정경험 += 10
	ENDIF
ENDIF
RETURN 1

@CAN_COM60(ARG)
;-------------------------------------------------
;실행 판정 처리
;-------------------------------------------------
CALL AUTO_SKIN_EQUIP
IF FLAG:70 == 1 || CFLAG:장난
	SKIPDISP ARG
	IF CFLAG:PLAYER:현재위치 == 10 || CFLAG:PLAYER:현재위치 == 40
		PRINTL 정상위로 범한다
	ELSEIF !BEDROOM(CFLAG:PLAYER:현재위치) && !(BATHROOM() && ITEM:20)
		PRINTL 대면입위로 범한다
	ELSE
		PRINTL 정상위로 범한다
	ENDIF
ELSE
	;밧줄로 묶여져 있을 경우는 무시(밧줄이 없을 때만 실행 판정을 실시한다)
	IF TEQUIP:밧줄 == 0
		SKIPDISP ARG
		IF CFLAG:PLAYER:현재위치 == 10 || CFLAG:PLAYER:현재위치 == 40
			PRINTL 정상위
		ELSEIF !BEDROOM(CFLAG:PLAYER:현재위치) && !(BATHROOM() && ITEM:20)
			PRINTL 대면입위
		ELSE
			PRINTL 정상위
		ENDIF
		A = 0
		S = 0
		;모든 명령에 공통의 요소를 고려
		;(순종이 높다고 명령에 따르기 쉬운 등)
		CALL COM_ORDER

		;ABL:욕망
		IF ABL:욕망
			SIF S
				PRINT  +
			A += ABL:욕망 * 3
			PRINT 욕망
			PRINTV 'LV, ABL:욕망, '(, ABL:욕망 * 3, ')
			S = 1
		ENDIF
		;ABL:V감각
		IF ABL:V감각
			SIF S
				PRINT  +
			A += ABL:V감각 * 2
			PRINT V감각
			PRINTV 'LV, ABL:V감각, '(, ABL:V감각 * 2, ')
			S = 1
		ENDIF
		;쾌락각인
		IF MARK:쾌락각인
			SIF S
				PRINT  +
			A += MARK:쾌락각인 * 3
			PRINT 쾌락각인
			PRINTV 'LV, MARK:쾌락각인, '(, MARK:쾌락각인 * 3, ')
			S = 1
		ENDIF
		;PALAM:윤활(의 부족)
		IF PALAM:윤활 < PALAMLV:3
			PRINT  -
			A -= 5
			PRINT 윤활 부족
			PRINTV '(, 5, ')
			S = 1
		ENDIF
		;PALAM:욕정
		IF GETPALAMLV(PALAM:욕정, 5)
			SIF S
				PRINT  +
			A += GETPALAMLV(PALAM:욕정, 5) * 3
			PRINT 욕정
			PRINTV 'LV, GETPALAMLV(PALAM:욕정, 5), '(, GETPALAMLV(PALAM:욕정, 5) * 3, ')
			S = 1
		ENDIF
		;수줍음
		IF TALENT:수치심 > 0
			PRINT  -
			A -= 2
			PRINT 수줍음
			PRINTV '(, 2, ')
			S = 1
		ENDIF
		;쾌감에 부정
		IF TALENT:쾌감응답 < 0 && !TALENT:연모
			PRINT  -
			A -= 5
			PRINT 쾌감에 부정
			PRINTV '(, 5, ')
			S = 1
		ENDIF
		;남성기피(연모, 친애로 무효)
		IF OTOKOGIRAI(TARGET)
			PRINT  -
			A -= 12
			PRINT 남성기피
			PRINTV '(, 12, ')
			S = 1
		ENDIF
		;연모
		IF TALENT:연모 && ASSIPLAY == 0
			SIF S
				PRINT  +
			A += 15
			PRINT 연모
			PRINTV '(, 15, ')
			S = 15
		ENDIF
		;친애
		IF TALENT:연모 > 1 && ASSIPLAY == 0
			SIF S
				PRINT  +
			A += 5
			PRINT 친애
			PRINTV '(, 5, ')
			S = 5
		ENDIF
		;처녀
		LOCAL = MAX(10,40 - EXP:V경험)
		IF TALENT:처녀
			PRINT  -
			A -= LOCAL
			PRINT 처녀
			PRINTV '(, LOCAL, ')
			S = 1
		;V경험
		ELSEIF EXP:V경험 < EXPLV:2
			PRINT  -
			A -= 15
			PRINT V경험
			PRINT 부족
			PRINTV '(, 15, ')
			S = 1
		ENDIF

		;조교자가 후타나리
		IF (TALENT:PLAYER:2 & 3) == 3
			SIF S
				PRINT  +
			A += 4
			PRINT 후타나리
			PRINTV '(, 4, ')
			S = 1
		ENDIF

		;미약
		IF TCVAR:춘약
			SIF S
				PRINT  +
			A += 6
			PRINT 춘약
			PRINTV '(, 6, ')
			S = 1
		ENDIF

		Y = 0
		;애액의 더러움
		SIF STAIN:PLAYER:2 & 1
			Y += 1
		;정액의 더러움
		SIF STAIN:PLAYER:2 & 4
			Y += 3
		;애널의 더러움
		SIF STAIN:PLAYER:2 & 8
			Y += 7
		SIF STAIN:PLAYER:2 & 16
			Y += 15
		Y = Y * (2 - TALENT:악취내성) / 2

		;서로 더러워져
		IF Y
			PRINT  -
			A -= Y
			PRINT 서로 더러워져
			;악취 둔감
			IF TALENT:악취내성 > 0
				PRINT , 악취 둔감
			ELSEIF TALENT:악취내성 < 0
				PRINT , 악취 민감
			ENDIF
			PRINTV '(, Y, ')
			S = 1
		ENDIF

		;합계를 표시(20이상으로 실행)
		PRINT  =
		PRINTV A

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

	ELSE
		SKIPDISP ARG
		IF !BEDROOM(CFLAG:PLAYER:현재위치) && !(BATHROOM() && ITEM:20)
			PRINTL 속박 대면입위
		ELSE
			PRINTL 속박 정상위
		ENDIF
	ENDIF
	WAIT
	SKIPDISP 0
	;실행할 수 없다
	SIF A < V
		RETURN 0

	;그외제원 판정
	IF ARG == 1
		SIF TFLAG:17 != TARGET
			TFLAG:16 = 0
		;첫체험 허락할까 판정
		IF GROUPMATCH(TALENT:TARGET:처녀, 1, -1)
			CALL LOST_VIRGIN_STOP(TARGET)
			SIF RESULT
				RETURN 0
		ENDIF
		;위험일 피임요구 판정
		CALL 피임요구(TARGET)
		IF TFLAG:16 && !(TEQUIP:PLAYER:콘돔 || TCVAR:피임약)
			TFLAG:16 -= 1
			RETURN 0
		ENDIF
	ENDIF
ENDIF
SKIPDISP 0
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE60
;정상위 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(60)
	RETURN RESULT
;조교자가 남자, 후타나리의 경우는 어느 정도 발기하고 있지 않으면 안 돼
SIF (TALENT:PLAYER:2 & 2) && BASE:PLAYER:발기 < 1000
	RETURN 0
;바이브 삽입중은 안 돼
SIF TEQUIP:13
	RETURN 0
;남자라면 안 돼
SIF !(TALENT:2 & 1)
	RETURN 0
;체격 차이가 있는 경우는 경험이 없으면 안 돼
SIF 삽입불가(TARGET) == 1 && EXP:V경험 < 50 && !TALENT:PLAYER:금단의지식
	RETURN 0
;한층 더 체격 차이가 있으면(자) 금단의지식이 필요
SIF 삽입불가(TARGET) == 2 && (!TALENT:PLAYER:금단의지식 || EXP:V경험 < 50)
	RETURN 0
SIF 삽입불가(TARGET) == 3
	RETURN 0
;조교자가 남자, 반인반요, 후타나리, 혹은 페니스밴드가 없으면 안 돼
SIF !(TALENT:PLAYER:2 & 2) && ITEM:PBAND == 0
	RETURN 0
;처녀로, 순종 4 이하·레즈끼 4 이하의 ASSI의 경우는 할 수 없다(새드라면 OK)
IF TALENT:처녀 && ASSIPLAY
	SIF (ABL:ASSI:순종 <= 4 || ABL:ASSI:레즈끼 <= 4) && TALENT:ASSI:새드 == 0
		RETURN 0
ENDIF
;시간정지중은 스킵
IF FLAG:70 != 1
	;처녀 또한 윤활 부족은 안 돼
	SIF PALAM:윤활 < PALAMLV:2 && TALENT:처녀 && TALENT:처녀 != -1
		RETURN 0
ENDIF

;하반신착의
SIF TEQUIP:0 & 4
	RETURN 0
;목욕탕플레이중은 플레이매트가 없으면 안 돼
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;후배위로부터는 안 돼
SIF TEQUIP:체위 == 5
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF60 정상위_t.ERB


code:
;-------------------------------------------------
;양구멍삽입
;섹스계 파생 커맨드
;-------------------------------------------------
@COM71
VARSET LOCAL
IF GROUPMATCH(TALENT:TARGET:처녀, 1, -1)
	CALL LOST_VIRGIN_STOP(TARGET)
	SIF RESULT
		RETURN 0
ENDIF
SIF SHIRAHU(TARGET)
	CALL 피임요구(TARGET)
IF TFLAG:16 && !(TEQUIP:PLAYER:콘돔 || TCVAR:피임약)
	TFLAG:16 -= 1
	RETURN 0
ENDIF

LOCAL:1 = MASTER_POSE(SET_V, SET_P, 1)
LOCAL:2 = MASTER_POSE(SET_A, SET_P, 1)
IF LOCAL:1
	LOCAL = LOCAL:1
ELSEIF LOCAL:2
	LOCAL = LOCAL:2
ENDIF
;LOCAL 두 구멍삽입 물러날 수 있는 사람
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자(이것 설정하는 것은 무리, 잠정적으로 했지만
TCVAR:116 = LOCAL
TCVAR:LOCAL:116 = PLAYER
;-------------------------------------------------
;삽입 부위 관리
;-------------------------------------------------
;PLAYER가 A, TARGET가 V삽입
IF LOCAL == LOCAL:2
	CSTR:10 += @"{LOCAL}/"
	;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
	TCVAR:2 = 1
	;강도
	TCVAR:4 = 1500

	CSTR:PLAYER:10 += @"{LOCAL}/"
	;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
	TCVAR:PLAYER:2 = 2
	;이미 A에 삽입중이니까 이것 필요한 구 없어?
	TCVAR:PLAYER:동정상실 = 1
	TCVAR:A상실발생 = 1
	;강도
	TCVAR:PLAYER:4 = 2500
;PLAYER가 V, TARGET가 A삽입
ELSE
	CSTR:PLAYER:10 += @"{LOCAL}/"
	;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
	TCVAR:PLAYER:2 = 1
	;강도
	TCVAR:PLAYER:4 = 1500

	CSTR:10 += @"{LOCAL}/"
	;TCVAR:2 사정장소 플래그(-1=콘돔 1=질내 2=애널 3=수음 4=펠라티오 5=파이즈리 6=가랑이 7=풋잡 8=체표 9=애널 봉사 10=도구 11=촉수 12=A고문 13=V 꾸짖고)
	TCVAR:2 = 2
	TCVAR:TARGET:동정상실 = 1
	TCVAR:LOCAL:A상실발생 = 1
	;강도
	TCVAR:4 = 2500
ENDIF
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 220
	SOURCE:PLAYER:쾌C = 400
	SOURCE:쾌C = 400
	SOURCE:성행동= 40
	SOURCE:LOCAL:쾌V = 400
	SOURCE:LOCAL:쾌A = 400
	SOURCE:LOCAL:고통 = 650

	;처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:LOCAL:처녀 == 1
		SOURCE:LOCAL:고통 += 2750
	ENDIF

	;재생 처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:LOCAL:처녀 == 2
		SOURCE:LOCAL:고통 += 1750
	ENDIF

	EXP:PLAYER:시간경험 += 1

ELSE

	DOWNBASE:체력 += 40
	DOWNBASE:기력 += 220
	SOURCE:PLAYER:쾌C = 400

	SOURCE:쾌C = 400
	SOURCE:성행동 = 500
	SOURCE:굴종 = 1000
	SOURCE:일탈 = 500
	SOURCE:반감 = 500

	DOWNBASE:LOCAL:체력 += 160
	DOWNBASE:LOCAL:기력 += 350

	SOURCE:LOCAL:쾌V = 400
	SOURCE:LOCAL:쾌A = 400
	SOURCE:LOCAL:사랑 = 300
	SOURCE:LOCAL:성행동 = 300
	SOURCE:LOCAL:고통 = 1300
	SOURCE:LOCAL:굴종 = 500
	SOURCE:LOCAL:일탈 = 500
	SOURCE:LOCAL:반감 = 500

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 500
	SIF TALENT:LOCAL:자기애 < 0 || TALENT:LOCAL:저항
		SOURCE:LOCAL:울굴 += 500

	;정조 관념 소유로 연모, 친애 가져 이외에는 항상 반발의 소스를 추가한다(섹스계만)
	SIF TALENT:LOCAL:정조 && !TALENT:LOCAL:연모
		SOURCE:LOCAL:반감 += 1000

	;처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:LOCAL:처녀 == 1
		SOURCE:LOCAL:고통 += 5500
		SOURCE:LOCAL:반감 += 3000
	ENDIF

	;재생 처녀였던 경우는, 고통의 소스와 반발의 소스를 추가한다
	IF TALENT:LOCAL:처녀 == 2
		SOURCE:LOCAL:고통 += 3500
		SOURCE:LOCAL:반감 += 1000
	ENDIF
ENDIF
;V에의 고통은 먼저 처리해 둔다
CALL PAIN_CHECK_V(LOCAL)
;A에의 고통은 먼저 처리해 둔다
CALL PAIN_CHECK_A(LOCAL)

;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;PLAYER가 V, TARGET가 A삽입
IF LOCAL == LOCAL:1
	;질내에 파과의 피의 더러움을 부가
	SIF TALENT:LOCAL:처녀 && TALENT:처녀 != -1
		STAIN:LOCAL:6 |= 64
	;LOCAL의 질내⇔주인의 P의 더러움이 이동
	IF TALENT:PLAYER:2 & 2
		STAIN:PLAYER:2 |= STAIN:LOCAL:6
		STAIN:PLAYER:2 |= STAIN:LOCAL:3
		STAIN:LOCAL:6 |= STAIN:PLAYER:2
		STAIN:LOCAL:3 |= STAIN:PLAYER:2
	ENDIF
	;LOCAL의 A⇔TARGET의 P의 더러움이 이동
	IF HAS_PENIS(TARGET)
		STAIN:2 |= STAIN:LOCAL:7
		STAIN:2 |= STAIN:LOCAL:4
		STAIN:LOCAL:7 |= STAIN:2
		STAIN:LOCAL:4 |= STAIN:2
	ENDIF
ELSE
	;질내에 파과의 피의 더러움을 부가
	SIF TALENT:LOCAL:처녀 && TALENT:처녀 != -1
		STAIN:LOCAL:6 |= 64
	;LOCAL의 질내⇔TARGET의 P의 더러움이 이동
	IF TALENT:PLAYER:2 & 2
		STAIN:2 |= STAIN:LOCAL:6
		STAIN:2 |= STAIN:LOCAL:3
		STAIN:LOCAL:6 |= STAIN:2
		STAIN:LOCAL:3 |= STAIN:2
	ENDIF
	;LOCAL의 A⇔PLAYER의 P의 더러움이 이동
	IF HAS_PENIS(TARGET)
		STAIN:PLAYER:2 |= STAIN:LOCAL:7
		STAIN:PLAYER:2 |= STAIN:LOCAL:4
		STAIN:LOCAL:7 |= STAIN:PLAYER:2
		STAIN:LOCAL:4 |= STAIN:PLAYER:2
	ENDIF
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:PLAYER:삽입경험 ++

;EXP:LOCAL:A경험 ++
EXP:LOCAL:V성교경험 ++
EXP:LOCAL:A성교경험 ++

EXP:삽입경험 ++

;이상경험
IF TALENT:LOCAL:처녀  && TALENT:처녀 != -1 && !GETBIT(CFLAG:3, 9)
	EXP:LOCAL:이상경험 += 2
	SETBIT CFLAG:LOCAL:3, 9
ENDIF

IF LOCAL == TARGET
	IF FLAG:70 == 1
		IF HETEROSEX(LOCAL, PLAYER)
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
		EXP:PLAYER:시간경험 += 1
	ELSE
		;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
		IF HETEROSEX(LOCAL, PLAYER)
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
			EXP:LOCAL:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
	ENDIF
ELSE
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF FLAG:70 == 1
		IF HETEROSEX(TARGET, PLAYER)
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
		IF HETEROSEX(LOCAL, PLAYER)
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
		EXP:PLAYER:시간경험 += 1
	ELSE
		IF HETEROSEX(TARGET, PLAYER)
			EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 3
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
		;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
		IF HETEROSEX(LOCAL, PLAYER)
			EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 3
			EXP:LOCAL:(50 + HETEROSEX(TARGET, PLAYER)) += 3
		ENDIF
		IF HETEROSEX(TARGET, LOCAL)
			EXP:(50 + HETEROSEX(TARGET, LOCAL)) += 3
			EXP:LOCAL:(50 + HETEROSEX(TARGET, LOCAL)) += 3
		ENDIF
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE71
;양구멍삽입 실행 판정
VARSET LOCAL
LOCAL = MASTER_POSE(SET_V, SET_P, 1)
LOCAL:1 = MASTER_POSE(SET_A, SET_P, 1)
IF LOCAL
	LOCAL:2 = LOCAL
ELSEIF LOCAL:1
	LOCAL:2 = LOCAL:1
ENDIF
SIF !TFLAG:100
	RETURN 0
SIF GLOBAL_COMABLE(71)
	RETURN RESULT
[SKIPSTART]
;바이브 삽입중은 안 돼
SIF TEQUIP:13
	RETURN 0
;애널바이브 삽입중은 안 돼
SIF TEQUIP:14
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:15
	RETURN 0
;보통 관장 사용중은 불가
SIF TEQUIP:21
	RETURN 0
;풍선 사용중은 불가
SIF TEQUIP:22
	RETURN 0
;전극 사용중은 불가
SIF TEQUIP:23
	RETURN 0
[SKIPEND]

;쌍창소유라면 혼자서 가능
IF TALENT:PLAYER:쌍창 == 1
	SIF BASE:PLAYER:발기 < 1000
	RETURN 0
	;자신이 삽입하고 있지 않으면 안 돼
	SIF !LOCAL:2
		RETURN 0
	RETURN 1
ELSE
	;TARGET가 남자, 양성의 경우는 어느 정도 발기하고 있지 않으면 안 돼
	SIF (HAS_PENIS(TARGET)) && BASE:발기 < 1000
		RETURN 0
	;TARGET 이외의누군가에게 삽입하고 있지 않으면 안 돼
	SIF !LOCAL:2 || LOCAL:2 == TARGET
		RETURN 0
	;상대가 처녀로, 순종 4 이하·레즈끼 4 이하의 경우는 할 수 없다(새드라면 OK)
	IF LOCAL:2 && TALENT:(LOCAL:2):처녀
		SIF (ABL:순종 <= 4 || ABL:레즈끼 <= 4) && TALENT:새드 == 0
			RETURN 0
	ENDIF
	;윤활 부족해, 순종 3 이하·레즈끼 3 이하의 ASSI의 경우는 할 수 없다(새드라면 OK)
	IF LOCAL:2 && PALAM:(LOCAL:2):윤활 < PALAMLV:2
		SIF (ABL:순종 <= 3 || ABL:레즈끼 <= 3) && TALENT:새드 == 0
			RETURN 0
	ENDIF
ENDIF
;남자라면 안 돼
SIF LOCAL:2 && !(TALENT:(LOCAL:2):2 & 1)
	RETURN 0
;페니스가 없으면 안 돼
SIF !(HAS_PENIS(TARGET)) && ITEM:PBAND == 0
	RETURN 0
;바이브 장착중은 안 돼
SIF TEQUIP:(LOCAL:2):13
	RETURN 0
;애널바이브 사용중은 불가
SIF TEQUIP:(LOCAL:2):14
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:(LOCAL:2):15
	RETURN 0
;보통 관장 사용중은 불가
SIF TEQUIP:(LOCAL:2):21
	RETURN 0
;풍선 사용중은 불가
SIF TEQUIP:(LOCAL:2):22
	RETURN 0
;전극 사용중은 불가
SIF TEQUIP:(LOCAL:2):23
	RETURN 0
;새댁플레이중은 안 돼
SIF TEQUIP:(LOCAL:2):33 || TEQUIP:33
	RETURN 0
;체격 차이가 있는 경우는 경험이 없으면 안 돼
SIF 삽입불가(TARGET) == 1 && EXP:A경험 < 50 && !TALENT:PLAYER:금단의지식
	RETURN 0
;한층 더 체격 차이가 있으면(자) 금단의지식이 필요
SIF 삽입불가(TARGET) == 2 && (!TALENT:PLAYER:금단의지식 || EXP:A경험 < 50)
	RETURN 0
SIF 삽입불가(TARGET) == 3
	RETURN 0
;시간정지중은 스킵
IF FLAG:70 != 1
	;일정한 A경험이 필요
	SIF EXP:(LOCAL:2):2 < EXPLV:3
		RETURN 0
ENDIF
;하반신착의
SIF TEQUIP:(LOCAL:2):0 > 1
	RETURN 0

RETURN 1

path: ERB/커맨드관련/COMF/COMF71 양구멍삽입_t.ERB


code:
;빠져 나간다
@COM850
#DIM 달래고판정
#DIM 빠져나갈수없다
달래고판정 = 0
빠져나갈수없다 = 0
IF TCVAR:마음대로해
	PRINTFORMW %마스터는% 바동바동 발버둥 쳤다
	IF RAND:100 < RAND:(50 + ABL:새드끼 * 20 + ABL:전투능력 * 20)
		PRINTFORMW 그러나 헛수고에 끝났다
		CALL KOJO_MESSAGE_SEND("EVENT", 10, TARGET, 3,1)
		DOWNBASE:MASTER:기력 += 50
		DOWNBASE:MASTER:체력 += 50
		SOURCE:가학 += 100
		TCVAR:기학플래그 = 1
		TIME += 5
		RETURN 1
	ENDIF
ELSEIF TFLAG:껴안기모드
	PRINTFORML %마스터는% %타겟을% 뿌리쳤다
	;그 외
	IF CFLAG:TARGET:성격경향 == 5 || !FLAG:카운터지문제어
		PRINTFORML %타겟은% 불만스럽게 하고 있다…
	;심약계
	ELSEIF CFLAG:TARGET:성격경향 == 1
		PRINTFORML %타겟은% 조금 슬픈 듯이 하고 있다…
	;강경세계
	ELSEIF CFLAG:TARGET:성격경향 == 2
		PRINTFORML %타겟은% 무정하네요라고 말해 웃었다…
	;솔직함계
	ELSEIF CFLAG:TARGET:성격경향 == 3
		PRINTFORML %타겟은% %CALLNAME:MASTER%의 반응을 즐기고 있는 것 같다…
	;진면목계
	ELSEIF CFLAG:TARGET:성격경향 == 4
		PRINTFORML %타겟은% %CALLNAME:MASTER%에, 본궤도에 올라 미안하다고 사과했다…
	ENDIF
ELSE
	FOR LOCAL, 1, CHARANUM
		IF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:현재위치 && CFLAG:LOCAL:욕구불만도 >= 500
			달래고판정 = LOCAL
			BREAK
		ENDIF
	NEXT
	IF !달래고판정
		PRINTFORML %마스터는% %CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ?  들 # \@을 달래 빠져 나갔다
	ELSE
		IF (TALENT:MASTER:성별 & 1) && (TALENT:성별 & 1) && TIME_PROGRESS(TFLAG:덮치기개시시간) >= 360
			PRINTFORMW %CALLNAME:달래고판정%는 조금 물건 충분하고 없을 것 같게 하면서도 %마스터를% 해방했다
			TFLAG:껴안기모드 = 0
			TCVAR:안아다하고금지시간 = 70 + MAX(10 - ABL:욕망, 0) * 3 - MAX((CFLAG:적극성 + CFLAG:수줍음) * 5, 30)
		ELSEIF !TALENT:MASTER:비동정 && TALENT:MASTER:2 & 2
			PRINTFORMW %CALLNAME:달래고판정%에 사정사정해졌다
			PRINTFORMW %CALLNAME:달래고판정%는 아무래도 %CALLNAME:MASTER%의 처음을 갖고 싶은 것 같다
			CFLAG:달래고판정:욕구불만도 += 50
			BASE:달래고판정:기력 -= 200
			TIME += 5
			RETURN 1
		ELSEIF TALENT:MASTER:처녀 || TALENT:달래고판정:처녀
			PRINTFORMW %CALLNAME:달래고판정%는 어색한 듯이 %마스터를% 해방했다
			BASE:달래고판정:기력 -= 100
			BASE:달래고판정:무드 = 0
		ELSE
			PRINTFORMW %CALLNAME:달래고판정%는 아직%마스터를% 해방할 생각은 없는 것 같다
			CALL KOJO_MESSAGE_SEND("EVENT", 10, 달래고판정, 3,2)
			DOWNBASE:MASTER:기력 += 100
			DOWNBASE:MASTER:체력 += 50
			TIME += 5
			RETURN 1
		ENDIF
	ENDIF
ENDIF

CALL 덮쳐지기종료

@덮쳐지기종료(ARGS)
FOR LOCAL, 0, CHARANUM
	IF CFLAG:LOCAL:우후후 == 2 || LOCAL == TARGET
		IF ARGS == "만족"
			CALL KOJO_MESSAGE_SEND("EVENT", 30, LOCAL, 2)
		ELSEIF ARGS == "지쳤다"
			CALL KOJO_MESSAGE_SEND("EVENT", 30, LOCAL, 1)
		;밀어넘어뜨려지고 모드 종료
		ELSEIF CFLAG:LOCAL:우후후 == 2 && LOCAL != 0 && !TFLAG:껴안기모드 && CFLAG:MASTER:현재위치 == CFLAG:LOCAL:현재위치
			CALL KOJO_MESSAGE_SEND("EVENT", 10, LOCAL, 2,0)
		;껴안기모드 만족 종료
		ELSEIF TFLAG:껴안기모드 && TARGET == LOCAL
			CALL KOJO_MESSAGE_SEND("EVENT", 10, LOCAL, 2,1)
		;껴안기모드 강제 종료
		ELSEIF TFLAG:102 == 1 && TARGET == LOCAL
			CALL KOJO_MESSAGE_SEND("EVENT", 10, LOCAL, 2,2)
		ENDIF
		SIF CFLAG:LOCAL:우후후 == 2
			CALL SET_DERAY(5, LOCAL)
		BASE:LOCAL:무드 = BASE:LOCAL:무드 / 2
		BASE:LOCAL:이성 = MIN(BASE:LOCAL:이성 + 300, MAXBASE:LOCAL:이성)
		CFLAG:LOCAL:우후후 = 0
		;우후후시 계 장비 리셋
		CALL ENDUFUFU(LOCAL)
	ENDIF
NEXT
TFLAG:102 = 1
TFLAG:106 = 0
;MASTER와의 접촉 위치를 리셋
CALL TOUCH_SET(0,0,0,1)
[SKIPSTART]
;(은)탈의 플래그를 오프
TEQUIP:2 = 0
TEQUIP:상반신탈의상태 = 0
;캐릭터 전원의 복재세팅
FOR LOCAL, 0, CHARANUM
	CALL CLOTHES_SETTING_TRAIN(LOCAL)
	;윗도리탈의가끝난상태 플래그를 오프
	TEQUIP:LOCAL:5 = 0
NEXT
[SKIPEND]

TIME += 5
RETURN 1

path: ERB/커맨드관련/COMF/COMF850 빠져나간다_t.ERB


code:
@붉은실발동
IF TALENT:MASTER:붉은실&&(RAND:20==0)
	SETCOLOR C_RED
	PRINTFORML %CALLNAME:MASTER%의 운명의 붉은 실이 빛나고 있습니다.
	SETCOLOR C_PINK
	PRINTFORML %타겟은% %CALLNAME:MASTER%에게서 운명을 느낀 듯하다.
	RESETCOLOR
	SIF !RELATION:TARGET:MASTER
		RELATION:TARGET:MASTER = 100
	RELATION:TARGET:MASTER += 20
	SIF !RELATION:MASTER:TARGET
		RELATION:MASTER:TARGET = 100
	RELATION:MASTER:TARGET += 20
ENDIF


code:
;-------------------------------------------------
;손을잡는다
;외출 커맨드
;-------------------------------------------------
@COM603
CALL SUC_FAIL(110, MIN(90 + GET_SUCCESS_RATE() / 5, 109))
SELECTCASE TFLAG:193
	;실패
	CASE -1
		SIF TFLAG:192 == -2
			RETURN 0
	;대성공
	CASE 1
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
	;성공
	CASE 0
ENDSELECT

;선제 발생시는 실패하지 않는다
;SIF TFLAG:102 == 3
;	TFLAG:193 = MAX(TFLAG:193, 0)
DOWNBASE:기력 += 50
DOWNBASE:MASTER:기력 += 50

;고정으로 획득하는 소스
SOURCE:환락 = 150
SOURCE:사랑 = 150
SOURCE:복종 = 100
SOURCE:반감 = 100
SOURCE:수동 = 100

;ABL:친밀을 본다
IF ABL:친밀 <= 3
	SOURCE:환락 += 150 + (ABL:친밀 * 50)
	SOURCE:사랑 += 180 + (ABL:친밀 * 40)
ELSEIF ABL:친밀 <= 5
	SOURCE:환락 += 500 + (ABL:친밀 * 50)
	SOURCE:사랑 += 450 + (ABL:친밀 * 30)
ELSEIF ABL:친밀 <= 8
	SOURCE:환락 += 800 + (ABL:친밀 * 50)
	SOURCE:사랑 += 700 + (ABL:친밀 * 50)
ELSEIF ABL:친밀 <= 11
	SOURCE:환락 += 1000 + (ABL:친밀 * 90)
	SOURCE:사랑 += 900 + (ABL:친밀 * 50)
ELSE
	SOURCE:환락 += 1800 + (ABL:친밀 * 40)
	SOURCE:사랑 += 2000 + (ABL:친밀 * 20)
ENDIF

;ABL:순종을 본다
IF ABL:순종 <= 3
	SOURCE:복종 += 100 + (ABL:순종 * 50)
	SOURCE:수동 += 170 + (ABL:순종 * 40)
ELSEIF ABL:순종 <= 5
	SOURCE:복종 += 300 + (ABL:순종 * 50)
	SOURCE:수동 += 350 + (ABL:순종 * 30)
ELSEIF ABL:순종 <= 8
	SOURCE:복종 += 500 + (ABL:순종 * 50)
	SOURCE:수동 += 600 + (ABL:순종 * 50)
ELSEIF ABL:순종 <= 11
	SOURCE:복종 += 800 + (ABL:순종 * 90)
	SOURCE:수동 += 700 + (ABL:순종 * 50)
ELSE
	SOURCE:복종 += 1500 + (ABL:순종 * 40)
	SOURCE:수동 += 1000 + (ABL:순종 * 20)
ENDIF

;호감 도를 본다
IF CFLAG:2 <= 500
	SOURCE:사랑 += CFLAG:2
ELSEIF CFLAG:2 <= 5000
	SOURCE:사랑 += 200 + (CFLAG:2 - 500) / 3
ELSE
	SOURCE:사랑 += 1000 + (CFLAG:2 - 5000) / 5
ENDIF
SIF SOURCE:환락 < 0
	SOURCE:환락 = 0

LOCAL = 0
;친밀이 낮으면 호감도 저하
IF ABL:친밀 == 0
	LOCAL -= 3
ELSEIF ABL:친밀 == 1
	LOCAL -= 2
ELSEIF ABL:친밀 == 2
	LOCAL -= 1
ENDIF
;순종이 낮으면 호감도 저하
IF ABL:순종 == 0
	LOCAL -= 5
ELSEIF ABL:순종 == 1
	LOCAL -= 3
ELSEIF ABL:순종 == 2
	LOCAL -= 1
ENDIF
;호감도가 낮으면 호감도 저하
IF CFLAG:2 <= 50
	LOCAL -= 3
ELSEIF CFLAG:2 <= 100
	LOCAL -= 2
ELSEIF CFLAG:2 <= 250
	LOCAL -= 1
ENDIF

SOURCE:욕정 = 50 + 150 * ABL:욕망
SOURCE:굴종 = 100 + 200 * ABL:마조끼

;호감도 변화
TFLAG:97 += LOCAL

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:사랑 , 0.50
	TIMES SOURCE:복종 , 0.50
	TIMES SOURCE:수동 , 1.50
	TIMES SOURCE:욕정 , 0.50
	TIMES SOURCE:반감 , 1.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:사랑 , 1.00
	TIMES SOURCE:복종 , 1.00
	TIMES SOURCE:수동 , 1.00
	TIMES SOURCE:욕정 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:사랑 , 2.00
	TIMES SOURCE:복종 , 1.50
	TIMES SOURCE:수동 , 2.00
	TIMES SOURCE:욕정 , 2.00
	TIMES SOURCE:반감 , 0.75
ENDIF
TIME += 10
CALL DATE_GOES_ON(1)
CALL 붉은실발동
EXP:MASTER:데이트경험 ++
EXP:TARGET:데이트경험 ++

RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;손을잡는다
@COM_ABLE603
;일괄관리
SIF GLOBAL_COMABLE(603)
	RETURN RESULT
;상대가 없다
SIF !TARGET
	RETURN 0
;데이트 도중 이외
SIF (CFLAG:현재위치 % 100) % 10 == 0
	RETURN 0
SIF CFLAG:MASTER:데이트중 == MAIN_MAP
	RETURN 0
;초대방
SIF CFLAG:MASTER:현재위치 == OMANEKIBEYA()
	RETURN 0
;전회 손을 잡았다
;SIF PREVCOM == 603
;	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/외출계/COMF603 손을잡는다_t.ERB


code:
;-------------------------------------------------
;산책한다
;외출 커맨드
;-------------------------------------------------
@COM604
#DIM 현재지점
#DIM 이동처지점
#DIM 소요시간, 11
#DIM 행선지
#DIM 특수쇼트컷
;散策する
VARSET LOCAL
DRAWLINEFORM ~

CALL DRAW_MAP("ODEKAKE")

DRAWLINEFORM ~
PRINTL 어디로 향합니까?
LOCAL = 6000 + (CFLAG:MASTER:현재위치 / 100) * 10
현재지점 = (CFLAG:MASTER:현재위치 - (CFLAG:MASTER:데이트중 * 100)) / 10
FOR LOCAL:2, 1, 10
	LOCAL ++
	;현재위치는 스킵
	IF (LOCAL - 6000) * 10 == CFLAG:MASTER:현재위치
		PRINT [0] -
		PRINTFORM %NAME_FROM_PLACE(LOCAL), 18, LEFT%
		SETCOLOR 0 , 255, 0
		PRINT 현재지
		RESETCOLOR
		LOCAL:3 ++
		SIF !(LOCAL:3 % 2)
			PRINTL
		CONTINUE
	ENDIF
	;지점명 미정도리가 되면 스킵
	SIF NAME_FROM_PLACE(LOCAL) == "" || LOCAL > 6000 + ((CFLAG:MASTER:현재위치 / 100) * 10) + 9
		CONTINUE
	소요시간:(LOCAL:2) = ABS(현재지점 - LOCAL:2) * 3
	;영원정내부
	SIF LOCAL == 6048
		소요시간:(LOCAL:2) = ABS(현재지점 - 5) * 3 + 3
	;몽환관
	SIF LOCAL == 6049
		소요시간:(LOCAL:2) = ABS(현재지점 - 7) * 3 + 3
	;지옥～영장원,Y字構造なので面倒な事に……
	IF INRANGE(CFLAG:MASTER:현재위치, 중유의길, 피안)
		SIF INRANGE(LOCAL, 6067, 6069)
			소요시간:(LOCAL:2) = ABS(현재지점 - LOCAL:2) * 3 - 6
	ELSEIF INRANGE(CFLAG:MASTER:현재위치, 백옥루정원, 백옥루)
		SIF INRANGE(LOCAL, 6067, 6069)
			소요시간:(LOCAL:2) = ABS(현재지점 - 4) * 3 + ABS(4 - LOCAL:2) * 3 - 6
	ELSEIF INRANGE(CFLAG:MASTER:현재위치, 지옥, 영장원)
		IF INRANGE(LOCAL, 6061, 6064)
			소요시간:(LOCAL:2) = ABS(현재지점 - LOCAL:2) * 3 - 6
		ELSEIF INRANGE(LOCAL, 6065, 6066)
			소요시간:(LOCAL:2) = ABS(현재지점 - 4) * 3 + ABS(4 - LOCAL:2) * 3 - 6
		ENDIF
	ENDIF
	특수쇼트컷 = 0
	;코마치의 능력
	IF FLAG:데이트상대 == [[코마치]]
		소요시간:(LOCAL:2) = (소요시간:(LOCAL:2) * 2) / 3
		특수쇼트컷 = 1
	ENDIF
	;와카사기히메의 부담
	SIF FLAG:데이트상대 == [[와카사기히메]] && !GETBIT (FLAG:풀장, 0)
		소요시간:(LOCAL:2) = (소요시간:(LOCAL:2) * 3) / 2
	;쇼트 컷 효과
	SELECTCASE LOCAL
		;미혹의 죽림
		CASE 6041 TO 6047
			IF SHORTCUT(6)
				소요시간:(LOCAL:2) = (소요시간:(LOCAL:2) * 2) / 3
				특수쇼트컷 = 2
			ENDIF
		;천계
		CASE 6081 TO 6085
			IF CFLAG:MASTER:현재위치 == 천계 && SHORTCUT(2)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
		CASE 6089
			IF SHORTCUT(2)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
		;명계
		CASE 6061, 6062
			IF INRANGE(CFLAG:MASTER:현재위치, 피안, 영장원) && SHORTCUT(3)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
			IF INRANGE(CFLAG:MASTER:현재위치, 지옥, 영장원) && SHORTCUT(7)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
		CASE 6064, 6065, 6066
			IF INRANGE(CFLAG:MASTER:현재위치, 중유의길, 삼도천) && SHORTCUT(3)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
		CASE 6067, 6068, 6069
			IF INRANGE(CFLAG:MASTER:현재위치, 중유의길, 삼도천) && SHORTCUT(7)
				소요시간:(LOCAL:2) = 소요시간:(LOCAL:2) / 2
				특수쇼트컷 = 2
			ENDIF
	ENDSELECT
	PRINTFORM [{LOCAL:2}] -
	PRINTFORM %NAME_FROM_PLACE(LOCAL)%
	PRINTFORM %" " *(20 - STRLENS(NAME_FROM_PLACE(LOCAL)))%
	SIF 소요시간:(LOCAL:2) < 10
		PRINT
	IF 특수쇼트컷 == 1
		SETCOLOR 250, 220, 180
	ELSEIF 특수쇼트컷 == 2
		SETCOLOR 100, 250, 140
	ENDIF
	PRINTFORM {소요시간:(LOCAL:2)}분
	RESETCOLOR
	LOCAL:3 ++
	SIF !(LOCAL:3 % 2)
		PRINTL
NEXT
SIF GROUPMATCH(CFLAG:MASTER:데이트중, 2, 4, 5, 6, 8, 9)
	PRINTL
IF CFLAG:MASTER:현재위치 == 천계 && (ABL:MASTER:교양 >= 2 || ABL:(FLAG:데이트상대):교양 >= 2)
	소요시간 = 10
	SIF SHORTCUT(2)
		소요시간 = 5
	PRINT [64] - 피안
	PRINTFORML {소요시간}분
ELSEIF CFLAG:MASTER:현재위치 == 무연총 && (ABL:MASTER:교양 >= 2 || ABL:(FLAG:데이트상대):교양 >= 2)
	소요시간 = 5
	SIF SHORTCUT(3)
		소요시간 = 3
	PRINT [65] - 명계
	PRINTFORML {소요시간}분
ENDIF
PRINTL [100] - 돌아간다　　　　　　　　　[99] - 다른 지역으로 이동
$INPUT_LOOP
INPUT
행선지 = RESULT * 10 + CFLAG:MASTER:데이트중 * 100
SIF RESULT == 100 || RESULT == 0
	RETURN -1
IF RESULT == 99
	DRAWLINE
	CALL OTHERREGIONS
	IF RESULT == 100
		RETURN -1
	ELSE
	ENDIF
	RETURN 1
ELSEIF RESULT == 64
	IF CFLAG:MASTER:현재위치 == 천계 && (ABL:MASTER:교양 >= 2 || ABL:(FLAG:데이트상대):교양 >= 2)
		CFLAG:MASTER:현재위치 = 피안
		CFLAG:MASTER:데이트중 = 6
		CFLAG:(FLAG:데이트상대):현재위치 = 피안
		CFLAG:(FLAG:데이트상대):데이트중 = 6
		IF FLAG:70
			BASE:MASTER:TSP -= 소요시간 * 2
		ELSE
			TIME += 소요시간
		ENDIF
		RETURN 1
	ELSE
		RETURN -1
	ENDIF
ELSEIF RESULT == 65
	IF CFLAG:MASTER:현재위치 == 무연총 && (ABL:MASTER:교양 >= 2 || ABL:(FLAG:데이트상대):교양 >= 2)
		CFLAG:MASTER:현재위치 = 백옥루정원
		CFLAG:MASTER:데이트중 = 6
		CFLAG:(FLAG:데이트상대):현재위치 = 백옥루정원
		CFLAG:(FLAG:데이트상대):데이트중 = 6
		IF FLAG:70
			BASE:MASTER:TSP -= 소요시간 * 2
		ELSE
			TIME += 소요시간
		ENDIF
		RETURN 1
	ELSE
		RETURN -1
	ENDIF
ELSEIF RESULT < 1 || RESULT > (LOCAL - (6000 + (CFLAG:MASTER:현재위치 / 100) * 10) + 1)
	CLEARLINE 1
	RESTART
ELSEIF NAME_FROM_PLACE(RESULT + 6000 + (CFLAG:MASTER:현재위치 / 100) * 10) == ""
	CLEARLINE 1
	RESTART
ENDIF

CALL SANSAKU_UNIQUEPLACE(행선지)
SIF RESULT == -1
	RESTART

이동처지점 = RESULT
행선지 = 이동처지점 * 10 + CFLAG:MASTER:데이트중 * 100
[IF_DEBUG]
PRINTFORML 이동처 지점은 {이동처지점}, 행선지는 {행선지}
[ENDIF]
FOR LOCAL, 0, CHARANUM
	SIF CHK_DATENOW(CFLAG:LOCAL:데이트중)
		CFLAG:LOCAL:현재위치 = 행선지
NEXT
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 소요시간:이동처지점 * 2
	IF TFLAG:운반
		BASE:MASTER:TSP -= 소요시간:이동처지점 / 3
		CFLAG:(TFLAG:운반):현재위치 = CFLAG:MASTER:현재위치
	ENDIF
ELSEIF GETBIT(FLAG:순간이동, 0) && BASE:MASTER:TSP > 소요시간:이동처지점 * 2 && !FLAG:데이트상대
	BASE:MASTER:TSP -= 소요시간:이동처지점 * 2
ELSE
	TIME += 소요시간:이동처지점
	SIF CHK_DATENOW(CFLAG:93:데이트중) && !GETBIT (FLAG:풀장, 0)
		BASE:MASTER:체력 = MAX(BASE:MASTER:체력 - 50,500)
	PRINTFORML {소요시간:이동처지점}분 걸려 %STR:(6000 + 행선지 / 10)%로 이동했다
ENDIF

RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;산책한다
@COM_ABLE604
SIF TFLAG:망상중
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(604)
	RETURN RESULT
;데이트중 이외
SIF AT_HOME(MASTER)
	RETURN 0
SIF CFLAG:우후후
	RETURN 0
;데이트 도중
SIF (CFLAG:현재위치 % 100) % 10
	RETURN 0
;망상중
SIF TFLAG:망상중 == 1
	RETURN 0
RETURN 1

@SANSAKU_UNIQUEPLACE(ARG)
#DIM 현재지점
#DIM 이동처지점

현재지점 = (CFLAG:MASTER:현재위치 - (CFLAG:MASTER:데이트중 * 100)) / 10
이동처지점 = (ARG - (CFLAG:MASTER:데이트중 * 100)) / 10

SELECTCASE ARG
	CASE 50
		IF ABL:MASTER:교양 < 1
			PRINTFORMW 미숙한 %CALLNAME:MASTER%에는 찾아낼 수가 없다…
			RETURN -1
		ENDIF
	CASE 피안, 백옥루정원, 백옥루, 천계
		IF ABL:MASTER:교양 < 1 && ABL:(FLAG:데이트상대):교양 < 1
			PRINTFORMW 좀 더 교양을 붙이지 않으면 위험하다
			CLEARLINE 2
			RETURN -1
		ENDIF
	CASE 달의도시, 와타츠키정, 옥토거리, 복숭아숲～모래사장, 고요의바다
		IF ABL:MASTER:교양 < 2 && ABL:(FLAG:데이트상대):교양 < 2
			PRINTFORMW 좀 더 교양을 붙이지 않으면 위험하다
			CLEARLINE 2
			RETURN -1
		ENDIF
	;세이자 하우스의 전
	CASE 740
		;본인은 들어갈 수 있는;연모가 있으면 들어갈 수 있어 줄 수 있는;전생에서 정사가 연모 or 연인이라면 장소는 안다
		IF ARG:1 == [[세이자]] || TALENT:[[세이자]]:연모 || GETBIT (CFLAG:[[세이자]]:인계, 0) || GETBIT (CFLAG:[[세이자]]:인계, 1)
		ELSE
			PRINTFORMW 어디에 있을지 모른다…
			RETURN -1
		ENDIF
	;카센하우스
	CASE 750
		;카센이 연모;본인은 들어갈 수 있다
		IF TALENT:[[카센]]:연모 || ARG:1 == [[카센]]
		;데이트상대가 텐시나 자신이 텐시
		ELSEIF FLAG:데이트상대 == [[텐시]] || ARG:1 == [[텐시]]
		;교양이 부족하면 가까스로 도착할 수 없다
		ELSEIF ABL:(ARG:1):교양 < 3
			PRINTFORMW 조금 전부터 저택과의 거리가 전혀 줄어들지 않는다……
			PRINTFORMW 같은 곳을 빙빙 돌아 있는 것과 같다
			RETURN -1
		;그 이외는 전투력 3이상 필요
		ELSEIF ABL:(ARG:1):전투능력 < 3 && !FLAG:70
			PRINTFORMW 뜰에 웅크리고 있던 경시하는 범이, %CALLNAME:MASTER%의 모습을 인정해 신음소리를 내 소리를 높였다
			PRINTFORMW 가까워지지 않는 것이 좋은 것 같다
			RETURN -1
		ENDIF
	CASE 480
		IF !FLAG:70 && !영원정침입허가()
			PRINTL 안쪽에 들어가려고 했지만, 입구에서 토끼들에게 제지당했다
			IF 현재지점 == 5
				RETURN -1
			ELSE
				RETURN 5
			ENDIF
		ENDIF
		SIF FLAG:70
			PRINTFORMW 무단으로 들어갔다
	CASE 혼숙여관, 러브호텔
		IF !FLAG:데이트상대
			PRINTW 혼자서 가도 어쩔 수 없다
			CLEARLINE 2
			RETURN -1
		ENDIF
		IF MONEY < 3000
			PRINTW 돈이 부족하다
			CLEARLINE 2
			RETURN -1
		ENDIF
		SIF !GETBIT(CFLAG:(FLAG:데이트상대):기정사실 , 1)
			CALL 껴안고((FLAG:데이트상대))
		IF TCVAR:(FLAG:데이트상대):껴안고첫회 >= 6 && !TCVAR:(FLAG:데이트상대):만취
				PRINTFORMW %CALLNAME:(FLAG:데이트상대)%에 들어가는 것을 거부되어 버렸다
				IF TCVAR:(FLAG:데이트상대):껴안고첫회 == 6
					PRINTFORMW 그러나 %CALLNAME:(FLAG:데이트상대)%는 꼭 싫지만은 않은 것 같다
					CLEARLINE 1
				ENDIF
			CLEARLINE 2
			RETURN -1
		ELSE
			PRINTL \3000걸립니다. 괜찮겠습니까?
			CALL ASK_YN
			IF RESULT == 0
				MONEY -= 3000
				IF TCVAR:(FLAG:데이트상대):만취
					PRINTFORMW %조사처리(CALLNAME:(FLAG:데이트상대),"가")% 몽롱해지고 있는 것을 말해 일로, %마스터는% 그녀를 %STR:(6000 + ARG / 10)%로 데리고 들어갔다
				ELSEIF CFLAG:(FLAG:데이트상대):패배자
					PRINTFORMW %마스터는% 싫어하는 %조사처리(CALLNAME:(FLAG:데이트상대),"를")% %STR:(6000 + ARG / 10)%로 끌어들였다
				ELSE
					PRINTFORMW %마스터는% %조사처리(CALLNAME:(FLAG:데이트상대),"와")% %STR:(6000 + ARG / 10)%에 들어갔다
				ENDIF
				RETURN 이동처지점
			ELSE
				CFLAG:(FLAG:데이트상대):우후후 = 0
				CFLAG:MASTER:우후후 = 0
				RETURN -1
			ENDIF
			CFLAG:(FLAG:데이트상대):우후후 = 0
			CFLAG:MASTER:우후후 = 0
		ENDIF
ENDSELECT

RETURN 이동처지점

path: ERB/커맨드관련/COMF/외출계/COMF604 산책한다_t.ERB


code:
;-------------------------------------------------
;지나치는길한다
;외출 커맨드
;-------------------------------------------------
@COM605
CALL SUC_FAIL()
SELECTCASE TFLAG:193
	;실패
	CASE -1
		SIF TFLAG:192 == -2
			RETURN 0
	;대성공
	CASE 1
		CALL 붉은실발동
		EXP:MASTER:회화경험 ++
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
	;성공
	CASE 0
ENDSELECT
;선제 발생시는 실패하지 않는다
SIF TCVAR:20
	TFLAG:193 = MAX(TFLAG:193, 0)
DOWNBASE:MASTER:기력 += 50
DOWNBASE:MASTER:체력 += 30
DOWNBASE:기력 += 30
DOWNBASE:체력 += 20

;고정으로 획득하는 소스
SOURCE:환락 = 500
SOURCE:사랑 = 300

;ABL:순종을 본다
IF ABL:순종 <= 1
	SOURCE:환락 += (ABL:순종 * 60)
	SOURCE:사랑 += (ABL:친밀 * 30)
ELSEIF ABL:순종 <= 3
	SOURCE:환락 += 200 + (ABL:순종 * 60)
	SOURCE:사랑 += 200 + (ABL:친밀 * 30)
ELSEIF ABL:순종 <= 5
	SOURCE:환락 += 500 + (ABL:순종 * 60)
	SOURCE:사랑 += 500 + (ABL:친밀 * 30)
ELSEIF ABL:순종 <= 8
	SOURCE:환락 += 750 + (ABL:순종 * 75)
	SOURCE:사랑 += 750 + (ABL:친밀 * 45)
ELSEIF ABL:순종 <= 11
	SOURCE:환락 += 1000 + (ABL:순종 * 75)
	SOURCE:사랑 += 1000 + (ABL:친밀 * 50)
ELSE
	SOURCE:환락 += 2000 + (ABL:순종 * 30)
	SOURCE:사랑 += 2000 + (ABL:친밀 * 20)
ENDIF

;호감 도를 본다
IF CFLAG:2 <= 500
	SOURCE:환락 += CFLAG:2
	SOURCE:사랑 += CFLAG:2
ELSEIF CFLAG:2 <= 5000
	SOURCE:환락 += 500 + (CFLAG:2 - 500) / 3
	SOURCE:사랑 += 300 + (CFLAG:2 - 300) / 3
ELSE
	SOURCE:환락 += 2000 + (CFLAG:2 - 5000) / 5
	SOURCE:사랑 += 1000 + (CFLAG:2 - 1000) / 5
ENDIF
SIF SOURCE:환락 < 0
	SOURCE:환락 = 0
SIF SOURCE:사랑 < 0
	SOURCE:사랑 = 0

SOURCE:수동 = 200 + 100 * ABL:순종
SOURCE:정복 = 200 + 100 * ABL:새드끼

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF

;지나치는 길 한 플래그
TCVAR:309 = 1440 * DAY + TIME
TIME += 10
CALL 붉은실발동
EXP:MASTER:데이트경험 ++
EXP:TARGET:데이트경험 ++

RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;지나치는길한다
@COM_ABLE605
;일괄관리
SIF GLOBAL_COMABLE(605)
	RETURN RESULT
;상대가 없다
SIF !TARGET
	RETURN 0
;데이트중 이외
SIF !CHK_DATENOW(CFLAG:12)
	RETURN 0
;데이트 도중 이외
SIF (CFLAG:현재위치 % 100) % 10 == 0
	RETURN 0
;초대방
SIF CFLAG:MASTER:현재위치 == OMANEKIBEYA()
	RETURN 0
;30분간격
SIF TIME_PROGRESS(TCVAR:309) < 30
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/외출계/COMF605 어디들른다_t.ERB


code:
;-------------------------------------------------
;식사(데이트)
;외출 커맨드
;-------------------------------------------------
@COM610
#DIM 회복전체력1
#DIM 회복전기력1
#DIM 회복후체력1
#DIM 회복후기력1
#DIM 회복전체력2
#DIM 회복전기력2
#DIM 회복후체력2
#DIM 회복후기력2

회복전체력1 = BASE:MASTER:체력
회복전기력1 = BASE:MASTER:기력
회복전체력2 = BASE:TARGET:체력
회복전기력2 = BASE:TARGET:기력
LOCAL = RAND:100
LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
SIF LOCAL:1 > 99
	LOCAL:1 = 99
IF LOCAL <= 9
	;10% 확률대성공
		EXP:MASTER:회화경험 ++
		;붉은실 KR판 고유
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		TFLAG:193 = 1
ELSEIF LOCAL >= LOCAL:1
	;10～1％で실패
	TFLAG:193 = -1
ELSE
	;残りは성공
	TFLAG:193 = 0
ENDIF
TFLAG:98 += 2

DOWNBASE:기력 += 10

;고정으로 획득하는 소스
SOURCE:환락 = 800
SOURCE:사랑 = 300

;ABL:욕망을 본다
IF ABL:욕망 <= 1
	SOURCE:환락 += (ABL:욕망 * 60)
ELSEIF ABL:욕망 <= 3
	SOURCE:환락 += 300 + (ABL:욕망 * 60)
ELSEIF ABL:욕망 <= 5
	SOURCE:환락 += 600 + (ABL:욕망 * 60)
ELSEIF ABL:욕망 <= 8
	SOURCE:환락 += 900 + (ABL:욕망 * 75)
ELSEIF ABL:욕망 <= 11
	SOURCE:환락 += 1500 + (ABL:욕망 * 75)
ELSE
	SOURCE:환락 += 2500 + (ABL:욕망 * 30)
ENDIF

;ABL:봉사정신을 본다
IF ABL:봉사정신 <= 1
	SOURCE:사랑 += (ABL:봉사정신 * 30)
ELSEIF ABL:봉사정신 <= 3
	SOURCE:사랑 += 200 + (ABL:봉사정신 * 30)
ELSEIF ABL:봉사정신 <= 5
	SOURCE:사랑 += 500 + (ABL:봉사정신 * 30)
ELSEIF ABL:봉사정신 <= 8
	SOURCE:사랑 += 700 + (ABL:봉사정신 * 45)
ELSEIF ABL:봉사정신 <= 11
	SOURCE:사랑 += 1200 + (ABL:봉사정신 * 45)
ELSE
	SOURCE:사랑 += 1800 + (ABL:봉사정신 * 20)
ENDIF

;호감 도를 본다
IF CFLAG:2 <= 500
	SOURCE:환락 += CFLAG:2
ELSEIF CFLAG:2 <= 5000
	SOURCE:환락 += 750 + (CFLAG:2 - 500) / 3
ELSE
	SOURCE:환락 += 2000 + (CFLAG:2 - 5000) / 4
ENDIF
SIF SOURCE:환락 < 0
	SOURCE:환락 = 0

SOURCE:수동 = 200 + 100 * ABL:순종
SOURCE:정복 = 200 + 100 * ABL:새드끼

IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.10
	TIMES SOURCE:사랑 , 0.10
	TIMES SOURCE:정복 , 0.50
	TIMES SOURCE:수동 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:사랑 , 1.00
	TIMES SOURCE:정복 , 1.00
	TIMES SOURCE:수동 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:사랑 , 1.50
	TIMES SOURCE:정복 , 2.00
	TIMES SOURCE:수동 , 2.00
ENDIF
SIF TALENT:대식가
	TIMES SOURCE:환락 , 1.50

CALL RECOVER_PERMIL(MASTER, 75,"체력")
CALL RECOVER_PERMIL(MASTER, 150,"기력")
CALL RECOVER_PERMIL(TARGET, 75,"체력")
CALL RECOVER_PERMIL(TARGET, 150,"기력")

TIME += 60
;붉은실 KR판 고유
CALL 붉은실발동
EXP:MASTER:데이트경험 ++
EXP:TARGET:데이트경험 ++
CALL 만복도상승(TARGET,"주식")
CALL 만복도상승(MASTER,"주식")
MONEY -= 3000
회복후체력1 = BASE:MASTER:체력
회복후기력1 = BASE:MASTER:기력
회복후체력2 = BASE:TARGET:체력
회복후기력2 = BASE:TARGET:기력
DRAWLINE
PRINTFORML 체력+{ABS(회복후체력1 - 회복전체력1)}(%CALLNAME:MASTER%)
PRINTFORML 기력+{ABS(회복후기력1 - 회복전기력1)}(%CALLNAME:MASTER%)
PRINTFORML 체력+{ABS(회복후체력2 - 회복전체력2)}(%CALLNAME:TARGET%)
PRINTFORML 기력+{ABS(회복후기력2 - 회복전기력2)}(%CALLNAME:TARGET%)
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;식사제의를한다
@COM_ABLE610
;일괄관리
SIF GLOBAL_COMABLE(610)
	RETURN RESULT
;상대가 없다
SIF !TARGET
	RETURN 0
;데이트중 이외
SIF !CHK_DATENOW(CFLAG:12)
	RETURN 0
SIF !DATE_PARTY(CFLAG:MASTER:현재위치)
	RETURN 0
SIF CFLAG:행동 == 5
	RETURN 0
;먹었던 바로 직후
SIF !TIME_PROGRESS(TCVAR:312)
	RETURN 0
SIF MONEY < 3000
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

;FileName_DATE_CMN.ERB ----------------------------- Rev1. 00
;데이트처 식사 가부
;CALL		USER
;ARG		현재위치
;RETURN		식사 장소 종류
;COMMENT
;-----------------------------------------------------------
@DATE_PARTY(ARG)
#FUNCTION
IF !IN_HOME(ARG)
	SELECTCASE ARG
		;특수 식사처
	;	CASE 230,340,350
	;		RETURNF ARG
		;%데이트 지점%의 연회에∼…
	;	CASE 450,650,740,830
	;		RETURNF 2
		;%데이트 지점%로 식사를∼…
		;CASE 상가거리, 죽림입구, 영원정, 백옥루, 옛지옥큰길
		;백옥루 or영원정 데, 데이트 안에 식사는 이상하지 않아?　(이)란 것으로, 가게가 있는 곳(중)에 마음대로 변경
		CASE 상가거리, 죽림입구, 중유의길, 옛지옥큰길
			IF (ARG == 죽림입구 && BASE:28:일량 > 3000 && CFLAG:28:행동 == 5)
				RETURNF 0
			ELSE
				RETURNF 1
			ENDIF
	ENDSELECT
ELSE
	;現在のところは死に分岐
	SELECTCASE ARG
		;지저 술집=옛지옥큰길
		CASE 933
			RETURNF 1
		;-포장마차=죽림입구
		;CASE 444
		;	SIF BASE:28:일량 <= 3000 && CFLAG:28:행동 == 5
		;		RETURNF 1
		;아직 없음=중유의길

		;마을 일품 요리점=상가거리
		CASE 218
			RETURNF 1
	ENDSELECT
ENDIF
RETURNF 0

path: ERB/커맨드관련/COMF/외출계/COMF610 식사（데이트）_t.ERB


code:
@COM613
;돈 벌어 한다
LOCAL = RAND:100
LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
SIF LOCAL:1 > 99
	LOCAL:1 = 99
IF LOCAL <= 9
	;10%로 대성공
	TFLAG:193 = 1
ELSEIF LOCAL >= LOCAL:1
	;10~1%로 실패
	TFLAG:193 = -1
ELSE
	;나머지는 성공
	TFLAG:193 = 0
ENDIF

DOWNBASE:MASTER:체력 += 50
DOWNBASE:MASTER:기력 += 100

;보수 계산
TFLAG:200 = 0
IF DATE_PARTTIME(CFLAG:MASTER:현재위치) > 99
	TFLAG:200 = (ABL:MASTER:기교 + 10) * (RAND:20 + 40) * 2
ELSE
	TFLAG:200 = (ABL:MASTER:기교 + 10) * (RAND:20 + 30) * DATE_PARTTIME(CFLAG:MASTER:현재위치)
ENDIF
SIF TFLAG:200 > 0
	MONEY += TFLAG:200

IF TARGET > 0 && !CFLAG:수면
	;고정으로 획득하는 소스
	SOURCE:환락 = 100
	SOURCE:반감 = 50

	;ABL:순종을 본다
	IF ABL:순종 <= 1

	ELSEIF ABL:순종 <= 3
		SOURCE:환락 += 100 + (ABL:순종 * 20)
	ELSEIF ABL:순종 <= 5
		SOURCE:환락 += 300 + (ABL:순종 * 30)
	ELSEIF ABL:순종 <= 8
		SOURCE:환락 += 600 + (ABL:순종 * 50)
	ELSEIF ABL:순종 <= 11
		SOURCE:환락 += 1000 + (ABL:순종 * 70)
	ELSE
		SOURCE:환락 += 2000 + (ABL:순종 * 50)
	ENDIF

	;호감 도를 본다
	IF CFLAG:2 <= 500
		SOURCE:환락 += CFLAG:2
	ELSEIF CFLAG:2 <= 5000
		SOURCE:환락 += 500 + (CFLAG:2 - 500) / 3
	ELSE
		SOURCE:환락 += 2000 + (CFLAG:2 - 5000) / 5
	ENDIF
	SIF SOURCE:환락 < 0
		SOURCE:환락 = 0

	SOURCE:정복 = 300 + 100 * ABL:새드끼

ENDIF
TIME += 60

RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;돈 벌어 한다
@COM_ABLE613
;일괄관리
SIF GLOBAL_COMABLE(613)
	RETURN RESULT
;데이트중 이외
SIF !CHK_DATENOW(CFLAG:MASTER:데이트중)
	RETURN 0
;데이트 도중
SIF (CFLAG:MASTER:현재위치 % 100) % 10
	RETURN 0
;현재위치에 금책 원래가 없다
SIF !DATE_PARTTIME(CFLAG:MASTER:현재위치)
	RETURN 0
;수면중
SIF CFLAG:MASTER:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 0

path: ERB/커맨드관련/COMF/외출계/COMF613 돈벌이한다_t.ERB


code:
;-------------------------------------------------
;식재료의 시장
;외출 커맨드
;-------------------------------------------------
@COM614
#DIM 구입품목
#DIM 가격
#DIM 구입상한
SIF !FLAG:일일이벤트 % 10
	PRINTL 오늘은 특매일 같다(표기 가격에서 50%를 뺍니다)
PRINTFORML 소지금:\\{MONEY}
CALL EX_SHOPPING("잡곡","피나 조. 가난한 사람의 음식", 48)
CALL EX_SHOPPING("묵은쌀","서민의 음식", 50)
CALL EX_SHOPPING("백미","부르주아의 음식", 47)
PRINTL [99] - 그만둔다
INPUT
SIF RESULT == 99
	RETURN -1
구입품목 = RESULT
가격 = ITEMPRICE:구입품목
SIF !FLAG:일일이벤트 % 10
	가격 /= 2

PRINTFORM 몇 개 사겠습니까?  1개　￥{가격}
IF CHK_DATENOW(CFLAG:TARGET:데이트중) && TARGET > 0
	구입상한 = ITEMSALES:구입품목 > 0 ?  MIN( ITEMSALES:구입품목, 10 ) # 10
ELSE
	구입상한 = ITEMSALES:구입품목 > 0 ?  MIN( ITEMSALES:구입품목, 5 ) # 5
ENDIF
PRINTFORML ({구입상한}개까지)
PRINTL [0] - 그만둔다
SIF 구입상한
	PRINT [1] - 1개
SIF 구입상한 >= 5
	PRINT [5] - 5개
SIF 구입상한 >= 10
	PRINT [10] - 10
SIF NOSAMES(구입상한, 0, 1, 5, 10 )
	PRINTFORM [{구입상한}] - {구입상한}개
$LOOP_INPUT
INPUT
IF RESULT < 1
	RETURN -1
ELSEIF RESULT > 5 && !(CHK_DATENOW(CFLAG:TARGET:데이트중) && TARGET > 0)
	PRINTL 혼자서는 그렇게 들 수 없다
	GOTO LOOP_INPUT
ELSEIF RESULT > 10
	PRINTL 그렇게 들 수 없다
	GOTO LOOP_INPUT
ELSEIF MONEY < 가격 * RESULT
	PRINTL 돈이 부족하다
	GOTO LOOP_INPUT
ELSEIF RESULT > 구입상한
	PRINTL 품절입니다
	GOTO LOOP_INPUT
ELSE
	MONEY -= 가격 * RESULT
	ITEM:구입품목 += RESULT
	ITEMSALES:구입품목 -= RESULT
	SIF ITEMSALES:구입품목 == 0
		ITEMSALES:구입품목 = -1	; 제고품절
	SETBIT TFLAG:일일일회, 2
	PRINTFORML {RESULT}개의 %ITEMNAME:구입품목%를 샀다
ENDIF

IF CHK_DATENOW(CFLAG:TARGET:데이트중) && TARGET > 0
	LOCAL = RAND:100
	LOCAL:1 = 90 + GET_SUCCESS_RATE() / 5
	SIF LOCAL:1 > 99
		LOCAL:1 = 99
	IF LOCAL <= 9
		;10%로 대성공
		EXP:MASTER:회화경험 ++
		;붉은실 KR판 고유기능
		CALL 붉은실발동
		EXP:MASTER:데이트경험 ++
		EXP:TARGET:데이트경험 ++
		TFLAG:193 = 1
	ELSEIF RESULT == 0
		;사지 않으면 실패
		TFLAG:193 = -1
	ELSE
		;나머지는 성공
		TFLAG:193 = 0
	ENDIF

	DOWNBASE:MASTER:기력 += 50
	DOWNBASE:MASTER:체력 += 30
	DOWNBASE:기력 += 30
	DOWNBASE:체력 += 20

	;고정으로 획득하는 소스
	SOURCE:환락 = 500
	SOURCE:사랑 = 200

	;ABL:순종을 본다
	IF ABL:순종 <= 1
		SOURCE:환락 += (ABL:순종 * 60)
		SOURCE:사랑 += (ABL:친밀 * 30)
	ELSEIF ABL:순종 <= 3
		SOURCE:환락 += 200 + (ABL:순종 * 60)
		SOURCE:사랑 += 150 + (ABL:친밀 * 30)
	ELSEIF ABL:순종 <= 5
		SOURCE:환락 += 400 + (ABL:순종 * 60)
		SOURCE:사랑 += 300 + (ABL:친밀 * 30)
	ELSEIF ABL:순종 <= 8
		SOURCE:환락 += 550 + (ABL:순종 * 75)
		SOURCE:사랑 += 450 + (ABL:친밀 * 45)
	ELSEIF ABL:순종 <= 11
		SOURCE:환락 += 800 + (ABL:순종 * 75)
		SOURCE:사랑 += 600 + (ABL:친밀 * 50)
	ELSE
		SOURCE:환락 += 1500 + (ABL:순종 * 30)
		SOURCE:사랑 += 1200 + (ABL:친밀 * 20)
	ENDIF

	;호감 도를 본다
	IF CFLAG:2 <= 500
		SOURCE:환락 += CFLAG:2
		SOURCE:사랑 += CFLAG:2
	ELSEIF CFLAG:2 <= 5000
		SOURCE:환락 += 500 + (CFLAG:2 - 500) / 3
		SOURCE:사랑 += 300 + (CFLAG:2 - 300) / 3
	ELSE
		SOURCE:환락 += 2000 + (CFLAG:2 - 5000) / 5
		SOURCE:사랑 += 1000 + (CFLAG:2 - 1000) / 5
	ENDIF
	SIF SOURCE:환락 < 0
		SOURCE:환락 = 0
	SIF SOURCE:사랑 < 0
		SOURCE:사랑 = 0

	SOURCE:수동 = 200 + 100 * ABL:순종
	SOURCE:정복 = 200 + 100 * ABL:새드끼

	IF TFLAG:193 == -1
		TIMES SOURCE:환락 , 0.10
		TIMES SOURCE:정복 , 0.50
		TIMES SOURCE:수동 , 0.50
	ELSEIF TFLAG:193 == 0
		TIMES SOURCE:환락 , 1.00
		TIMES SOURCE:정복 , 1.00
		TIMES SOURCE:수동 , 1.00
	ELSE
		TIMES SOURCE:환락 , 2.00
		TIMES SOURCE:정복 , 2.00
		TIMES SOURCE:수동 , 2.00
	ENDIF
	;KR판 붉은실 고유기능
	CALL 붉은실발동
	EXP:MASTER:데이트경험 ++
	EXP:TARGET:데이트경험 ++
ENDIF

TIME += 30
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;식재료의 시장
@COM_ABLE614
;일괄관리
SIF GLOBAL_COMABLE(614)
	RETURN RESULT
;물건을 살 수 없는 장소
SIF !KAIDASHI_SHOP(CFLAG:MASTER:현재위치)
	RETURN 0
;이제(벌써) 사고 있어
SIF GETBIT(TFLAG:일일일회, 2)
	RETURN 0
;수면중
SIF CFLAG:MASTER:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

;食材を買える場所を判定する関数
@KAIDASHI_SHOP(ARG)
#FUNCTION
;食料品店
SIF ARG == GET_MAP_REPLACEMENT(216)
	RETURNF 1
RETURNF 0

path: ERB/커맨드관련/COMF/외출계/COMF614 식재료장보기_t.ERB


code:
;-------------------------------------------------
;도시락을 먹는다
;외출 커맨드
;-------------------------------------------------
@COM615
#DIM 회복전체력1
#DIM 회복전기력1
#DIM 회복후체력1
#DIM 회복후기력1
#DIM 회복전체력2
#DIM 회복전기력2
#DIM 회복후체력2
#DIM 회복후기력2

회복전체력1 = BASE:MASTER:체력
회복전기력1 = BASE:MASTER:기력
회복전체력2 = BASE:TARGET:체력
회복전기력2 = BASE:TARGET:기력
LOCAL = RAND:3
LOCAL:1 = RAND:10
IF LOCAL > ABL:요리기능
	;요리가 서투르다면 실패
	TFLAG:193 = -1
	TFLAG:98 = -1
ELSEIF LOCAL:1 <= ABL:요리기능 - 2
	;요리가 능숙하면 대성공
	EXP:MASTER:회화경험 ++
	;붉은실 KR판 고유기능
	CALL 붉은실발동
	EXP:MASTER:데이트경험 ++
	EXP:TARGET:데이트경험 ++
	TFLAG:193 = 1
	TFLAG:98 = 5
ELSE
	;나머지는 성공
	TFLAG:193 = 0
	TFLAG:98 = 3
ENDIF

DOWNBASE:기력 += 50

;고정으로 획득하는 소스
SOURCE:환락 = 300
SOURCE:사랑 = 300
SOURCE:노출 = 100
SOURCE:반감 = 50

IF (ABL:친밀 + ABL:봉사정신) < 10
	LOCAL:2 = 1
	SOURCE:환락 += 1000 + (ABL:친밀 * 100)
	SOURCE:달성 += 500 + (ABL:친밀 * 50)
	SOURCE:사랑 += (ABL:친밀 * 30)
ELSEIF (ABL:친밀 + ABL:봉사정신) < 15
	LOCAL:2 = 2
	SOURCE:환락 += 2000 + (ABL:친밀 * 150)
	SOURCE:달성 += 1500 + (ABL:친밀 * 80)
	SOURCE:사랑 += 400 + (ABL:친밀 * 30)
ELSEIF (ABL:친밀 + ABL:봉사정신) < 25
	LOCAL:2 = 3
	SOURCE:환락 += 3000 + (ABL:친밀 * 200)
	SOURCE:달성 += 2000 + (ABL:친밀 * 100)
	SOURCE:사랑 += 600 + (ABL:친밀 * 40)
ELSE
	 LOCAL:2 = 5
	SOURCE:환락 += 5000 + (ABL:친밀 * 250)
	SOURCE:달성 += 3000 + (ABL:친밀 * 150)
	SOURCE:사랑 += 1800 + (ABL:친밀 * 30)
ENDIF

EXP:요리경험 += LOCAL:2
SIF TALENT:연모
	EXP:애정경험 += LOCAL:2

IF ABL:요리기능 < 2
	CALL RECOVER_PERMIL(TARGET, 40,"체력")
	CALL RECOVER_PERMIL(TARGET, 100,"기력")
	CALL RECOVER_PERMIL(MASTER, 40,"체력")
	CALL RECOVER_PERMIL(MASTER, 100,"기력")
ELSEIF ABL:요리기능 < 4
	BASE:체력 = MIN(BASE:체력 + MAXBASE:체력 / 15 , MAXBASE:체력)
	BASE:기력 = MIN(BASE:기력 + MAXBASE:기력 / 5 , MAXBASE:기력)
	BASE:MASTER:체력 = MIN(BASE:MASTER:체력 + MAXBASE:MASTER:체력 / 10 , MAXBASE:MASTER:체력)
	BASE:MASTER:기력 = MIN(BASE:MASTER:기력 + MAXBASE:MASTER:기력 / 5 , MAXBASE:MASTER:기력)
	BASE:MASTER:정력 = MIN(BASE:MASTER:정력 + MAXBASE:MASTER:정력 / 8 , MAXBASE:MASTER:정력)
ELSE
	BASE:체력 = MIN(BASE:체력 + MAXBASE:체력 / 8 , MAXBASE:체력)
	BASE:기력 = MIN(BASE:기력 + MAXBASE:기력 / 3 , MAXBASE:기력)
	BASE:MASTER:체력 = MIN(BASE:MASTER:체력 + MAXBASE:MASTER:체력 / 8 , MAXBASE:MASTER:체력)
	BASE:MASTER:기력 = MIN(BASE:MASTER:기력 + MAXBASE:MASTER:기력 / 3 , MAXBASE:MASTER:기력)
	BASE:MASTER:정력 = MIN(BASE:MASTER:정력 + MAXBASE:MASTER:정력 / 4 , MAXBASE:MASTER:정력)
ENDIF
IF TFLAG:193 == -1
	TIMES SOURCE:환락 , 0.50
	TIMES SOURCE:달성 , 0.50
	TIMES SOURCE:사랑 , 0.50
ELSEIF TFLAG:193 == 0
	TIMES SOURCE:환락 , 1.00
	TIMES SOURCE:달성 , 1.00
	TIMES SOURCE:사랑 , 1.00
ELSE
	TIMES SOURCE:환락 , 2.00
	TIMES SOURCE:달성 , 2.00
	TIMES SOURCE:사랑 , 2.00
ENDIF
TIME += 60
;붉은실 KR판 고유기능
CALL 붉은실발동
EXP:MASTER:데이트경험 ++
EXP:TARGET:데이트경험 ++
CALL 만복도상승(MASTER,"주식")
CALL 만복도상승(TARGET,"주식")

SETBIT TFLAG:일일일회, 1
회복후체력1 = BASE:MASTER:체력
회복후기력1 = BASE:MASTER:기력
회복후체력2 = BASE:TARGET:체력
회복후기력2 = BASE:TARGET:기력
DRAWLINE
PRINTFORML 체력+{ABS(회복후체력1 - 회복전체력1)}(%CALLNAME:MASTER%)
PRINTFORML 기력+{ABS(회복후기력1 - 회복전기력1)}(%CALLNAME:MASTER%)
PRINTFORML 체력+{ABS(회복후체력2 - 회복전체력2)}(%CALLNAME:TARGET%)
PRINTFORML 기력+{ABS(회복후기력2 - 회복전기력2)}(%CALLNAME:TARGET%)
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
;도시락
@COM_ABLE615
;일괄관리
SIF GLOBAL_COMABLE(615)
	RETURN RESULT
;상대가 없다
SIF !TARGET
	RETURN 0
;데이트중 이외
SIF !CHK_DATENOW(CFLAG:12)
	RETURN 0
;데이트 도중
SIF (CFLAG:현재위치 % 100) % 10
	RETURN 0
SIF !OBENTO(CFLAG:MASTER:현재위치)
	RETURN 0
;먹었던 바로 직후
SIF !TIME_PROGRESS(TCVAR:312)
	RETURN 0
SIF GETBIT(TFLAG:일일일회, 1)
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

;FileName_DATE_CMN.ERB ------------------------------- Rev1. 00
;도시락을 먹을 수 있는 장소
;CALL		USER
;ARG		현재위치
;RETURN		먹을 수 있다면 1
;COMMENT	장소를 추가했을 경우, CASE를 변경의 일
;-----------------------------------------------------------
@OBENTO(ARG)
#FUNCTION
IF !IN_HOME(ARG)
	SELECTCASE ARG
		CASE 지장길, 수양버들아래, 안개의호수, 현무의늪, 큰두꺼비의연못, 절경의언덕, 산의호수, 천계
			RETURNF 1
		;10=桜並木の鳥居
		CASE 무명의언덕, 고목의큰나무, 복숭아숲～모래사장, 10
			RETURNF 1
	ENDSELECT
ENDIF
RETURNF 0

path: ERB/커맨드관련/COMF/외출계/COMF615 도시락을먹는다_t.ERB