code:
;FileName_정사 발각. ERB --------------------------------- Rev1. 00
;정사의 발각
;CALL		USER
;ARG		0:입실 캐릭터 NO, 1:발각 상황(0:동실, 1:엿보기)
;RETURN		0:동실, 1:떠난다
;COMMENT
;-----------------------------------------------------------
@AFFAIR_DISCLOSURE(ARG, NOZOKI)
#DIM PREV_TARGET
#DIM IRAI_ABLE
#DIM NOZOKI
#DIM FORCE_STOP
#DIM FORCE_GETOUT

VARSET LOCAL
FORCE_STOP = 0
FORCE_GETOUT = 0

LOCAL:1 = IN_ROOM_MEMBER("MAX", CFLAG:MASTER:현재위치, "CFLAG", GETNUM(CFLAG, "우후후"))
SIF CFLAG:MASTER:장난
	LOCAL:1 = TARGET
IF LOCAL:1 && (CFLAG:(LOCAL:1):우후후 || CFLAG:(LOCAL:1):장난)
	DRAWLINE
	IF CFLAG:(LOCAL:1):장난
		PRINTFORMW %CALLNAME:ARG%에게 자고 있는 %CALLNAME:(LOCAL:1)%한테 장난질하는 순간을 목격당하고 말았다!
		IF !CFLAG:ARG:약점잡음 && CFLAG:(LOCAL:1):장난 == 2
			PRINTFORMW %CALLNAME:ARG%에게 약점을 잡혔다
		ELSE
			PRINTFORMW %ARG는% 기가 막히다는 표정을 짓고 있다
		ENDIF
		CALL TOUCH_SET(0,0,0,1)
		DRAWLINE
		FORCE_STOP = 1
		CFLAG:ARG:약점잡음 += 10
	ELSEIF TFLAG:102 == 3 && TFLAG:껴안기모드
		PRINTFORMW %CALLNAME:ARG%에게 %CALLNAME:(TFLAG:현재의TARGET)%와 알콩달콩 노는 모습을 목격당하고 말았다!
		PRINTFORMW %CALLNAME:(TFLAG:현재의TARGET)%는 아쉬운 눈치로 %CALLNAME:MASTER%에게서 멀어졌다…
		CALL UWAKI_RECORD(ARG, 0, TFLAG:현재의TARGET)
		TFLAG:껴안기모드 = 0
		TFLAG:102 = 1
		CALL 덮쳐지기종료
	ELSE
		IF NOZOKI
			PRINTFORMW 【%NAME_FROM_PLACE(CFLAG:ARG:현재위치)%】에 있던 %CALLNAME:ARG%에게 %CALLNAME:(TFLAG:현재의TARGET)%와의 정사를 목격당하고 말았다!
		ELSE
			PRINTFORMW %CALLNAME:(TFLAG:현재의TARGET)%와의 정사 현장에 %ARG가% 들어왔다!
		ENDIF
		CALL UWAKI_RECORD(ARG)
		;연인 사이(혹은 연인을 포함하는) 경우
		IF TALENT:MASTER:연인 && (IS_연인(TFLAG:현재의TARGET) || WITH_연인())
			;우연히 만났다
			IF !NOZOKI
				[SKIPSTART]
				;연모거나 어느 정도 사이가 좋다
				IF (CFLAG:ARG:6 > 1 || TALENT:ARG:연모)
					PRINTFORMW %ARG는% 어색해 하고 있다…
					PRINTL [0] 한꺼번에 덮친다
					PRINTL [1] 그만둔다
					$INPUT_EMBRACE
					INPUT
					IF RESULT == 0
						IF !NOZOKI
							PRINTFORMW %마스터가% 손짓하자 %ARG는% 기쁜 듯이 몸을 문질러왔다
							CFLAG:ARG:우후후 = CFLAG:(LOCAL:1):우후후
							CFLAG:ARG:동실 = 1
							;목격한 사람
							CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 4)
							;목격당한 사람(가장 지위가 높은 TARGET로 대표)
							CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 4)
						ENDIF
					ELSEIF RESULT == 1
						PRINTFORMW %ARG는% %마스터와% 눈이 마주치자 황망하게 그 자리를 떠났다…
						IF !NOZOKI
							;목격한 사람
							CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 3)
							;목격당한 사람(가장 지위가 높은 TARGET로 대표)
							CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 3)
						ENDIF
						IF CFLAG:ARG:현재위치 == CFLAG:ARG:전턴위치
							CALL GETOUT(ARG)
						ELSE
							CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
						ENDIF
						;캐릭터를 움직였으므로 TARGET재설정
						CALL TARGETSET_CHACK
						CFLAG:ARG:동실 = 0
						RETURN 1
					ELSE
						CLEARLINE 1
						GOTO INPUT_EMBRACE
					ENDIF
				;참전하는 만큼 사이는 좋지 않다
				ELSE
				[SKIPEND]
				;들어 온 쪽이 연인이었던 경우, 끼어들어 온다
;				IF TALENT:MASTER:연인 && TALENT:MASTER:연인 == TALENT:ARG:연인
				IF TALENT:MASTER:연인 && IS_연인(ARG)
					PRINTFORMW %ARG는% 질세라 %CALLNAME:MASTER%에 몸을 문질러왔다
					CFLAG:ARG:우후후 = CFLAG:(LOCAL:1):우후후
					;연인이 다른 여자라고 있으면 붙고 있으면(자), 이성 날아가도 이상하지 않고, 텐션 Max는 의미로 무드가 올라도 괜찮지 않을까와 생각하는 대로
					;BASE:ARG:무드 = MAXBASE:ARG:무드
					;BASE:ARG:이성 = 0
					;상기가 코멘트 아웃 되고 있지만, 그것이 원인의 버그가 나오고 있는 같기 때문에 덧붙여 씀
					;뭐, Max＆0으로 하는 것은 너무 과연 했던 생각이 들지 않는 것도 아니다
					SIF BASE:ARG:무드 < 300
						BASE:ARG:무드 = 300
					SIF BASE:ARG:이성 > 300
						BASE:ARG:이성 = 300
					;목격한 사람
					CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 2)
					CALL UWAKI_RECORD(ARG, 1)
					;목격당한 사람(가장 지위가 높은 TARGET로 대표)
					;CALL KOJO_EVENT(4, LOCAL:1, ARG)
					CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 2)
					CALL UWAKI_RECORD(LOCAL:1, 1)
					DRAWLINE
					RETURN 0
				;하고 있는 족이 연인이었던 경우, 서둘러 떠난다(연인이 섞이고 있는 많은 사람 플레이 또한 TARGET가 연인이 아닌 경우도 떠난다
				ELSE
					PRINTFORMW %ARG는% %마스터와% 눈이 마주치자 황망하게 그 자리를 떠났다…
					IF !NOZOKI
						;목격한 사람
						CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 3)
						;목격당한 사람(가장 지위가 높은 TARGET로 대표)
						CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 3)
					ENDIF
					IF CFLAG:ARG:현재위치 == CFLAG:ARG:전턴위치
						CALL GETOUT(ARG)
					ELSE
						CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
					ENDIF
					;캐릭터를 움직였으므로 TARGET재설정
					CALL TARGETSET_CHACK
					CFLAG:ARG:동실 = 0
					RETURN 1
				ENDIF
			;들여다 보았다
			ELSE
				PRINTFORMW %ARG는% 어색하게 외면하고 황망하게 그 자리를 떠났다…
				IF !NOZOKI
					;목격한 사람
					CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 3)
					;목격당한 사람(가장 지위가 높은 TARGET로 대표)
					CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 3)
				ENDIF
				IF CFLAG:ARG:현재위치 == CFLAG:ARG:전턴위치
					CALL GETOUT(ARG)
				ELSE
					CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
				ENDIF
				;캐릭터를 움직였으므로 TARGET재설정… 아무튼, 들여다 봐 어째서 괜찮을 것.
				CALL TARGETSET_CHACK
				CFLAG:ARG:동실 = 0
				RETURN 1
			ENDIF
		;여기에서 연인이 포함되지 않은 경우
		ELSEIF (TALENT:ARG:음란 || TALENT:ARG:걸레)
			PRINTFORMW %마스터가% 손짓하자 %ARG는% 기쁜 듯이 몸을 문질러왔다
			CFLAG:ARG:우후후 = CFLAG:(LOCAL:1):우후후
			CFLAG:ARG:동실 = 1
			;목격한 사람
			CALL KOJO_MESSAGE_SEND("EVENT",6,ARG,LOCAL:1,4)
			;목격당한 사람(가장 지위가 높은 TARGET로 대표)
			CALL KOJO_MESSAGE_SEND("EVENT",7,LOCAL:1,ARG,4)
		ELSEIF TALENT:ARG:무지 && !CFLAG:ARG:기정사실 & 합의_우후후
		;무지하고 우후후 미경험
			IF NOZOKI
				PRINTFORMW %ARG는% %NAME_FROM_PLACE(CFLAG:ARG:현재위치)%에서 %CALLNAME:MASTER%들의 행위를 \@ TALENT:ARG:수치심 > 0 ? 얼굴을 붉히면서도, 잡아먹을 듯이# 흥미롭게\@ 바라보고 있다……
			ELSE
				PRINTFORML %ARG는% %CALLNAME:MASTER%들이 무엇을 하고 있는지 \@ TALENT:ARG:수치심 > 0 ? 얼굴을 붉히면서 # 흥미진진한 기색으로\@ 물어보았다
				PRINTFORMW %CALLNAME:MASTER%들은 당황해서 %ARG를% 내쫓았다
				CALL GETOUT(ARG)
				CALL TARGETSET_CHACK
				CFLAG:ARG:동실 = 0
			ENDIF
		;그 캐릭터의 방에서 떡칠 경우
		ELSEIF CFLAG:ARG:초기위치 == CFLAG:MASTER:현재위치
			PRINTFORML 하필이면 자기 방이 떡방이 된 %ARG는% 분노에 미쳐 %CALLNAME:MASTER%들을 내쫓았다
			PRINTFORMW %CALLNAME:ARG%에게 약점을 잡혔다
			CALL GET_ANGRY
			FORCE_STOP = 1
			FORCE_GETOUT = 1
			CFLAG:ARG:약점잡음 += 20
			DRAWLINE
		ELSEIF CFLAG:ARG:행동 == 5 && CFLAG:MASTER:현재위치 == CFLAG:ARG:직장
			PRINTFORML 하필이면 직장이 떡방이 된 %ARG는% 분노에 미쳐 %CALLNAME:MASTER%들을 내쫓았다
			PRINTFORMW %CALLNAME:ARG%에게 약점을 잡혔다
			CALL GET_ANGRY
			FORCE_STOP = 1
			FORCE_GETOUT = 1
			CFLAG:ARG:약점잡음 += 20
			DRAWLINE
		ELSEIF CFLAG:ARG:태도 < 3 && PRIVATEROOM:(CFLAG:MASTER:현재위치 % 100) && PRIVATEROOM:(CFLAG:MASTER:현재위치 % 100) != TARGET
			SIF !CFLAG:ARG:약점잡음
				PRINTFORMW %CALLNAME:ARG%에게 약점을 잡혔다
			IF !NOZOKI
				;목격한 사람
				;CALL KOJO_EVENT(1, ARG, LOCAL:1)
				CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 1)
				;목격당한 사람(가장 지위가 높은 TARGET로 대표)
				;CALL KOJO_EVENT(2, LOCAL:1, ARG)
				CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 1)
			ENDIF
			CALL TOUCH_SET(0,0,0,1)
			DRAWLINE
			FORCE_STOP = 1
			CFLAG:ARG:약점잡음 += 10
			;근신 처분이라든지 약점이라든지의 처리를 넣을 예정
		ELSE
			IF !NOZOKI
				;태도만이라고 기정사실이라든지 보지 않은 것에 눈치채는, 의로 합의가 있는 경우에 강요해 오도록(듯이)
				IF TCVAR:MASTER:친해져 >= 3 && GETBIT(CFLAG:ARG:기정사실 , 1)
					PRINTFORMW %ARG는% 질세라 %CALLNAME:MASTER%에 몸을 문질러왔다
					CFLAG:ARG:우후후 = CFLAG:(LOCAL:1):우후후
					;일단, 덮치기 가능한 무드에
					;이성은 덮치기에 관계하고 있지 않지만, 이성적이라면 섞이려고 하지 않을 것이라고
					BASE:ARG:무드 = MAX(BASE:ARG:무드, 300)
					BASE:ARG:이성 = MIN(BASE:ARG:이성, 300)
					;목격한 사람
					CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 2)
					CALL UWAKI_RECORD(ARG, 1)
					;목격당한 사람(가장 지위가 높은 TARGET로 대표)
					CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 2)
					CALL UWAKI_RECORD(LOCAL:1, 1)
					DRAWLINE
					RETURN 0
				ELSE
					PRINTFORMW %ARG는% \@TALENT:ARG:연모 ? 언짢게 #어색하게 외면하고는 황망하게 \@ 그 자리를 떠났다…
					;목격한 사람
					CALL KOJO_MESSAGE_SEND("EVENT", 6, ARG, LOCAL:1, 3)
					;목격당한 사람(가장 지위가 높은 TARGET로 대표)
					CALL KOJO_MESSAGE_SEND("EVENT", 7, LOCAL:1, ARG, 3)
					IF CFLAG:ARG:현재위치 == CFLAG:ARG:전턴위치
						CALL GETOUT(ARG)
					ELSE
						CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
					ENDIF
					CALL TARGETSET_CHACK
					CFLAG:ARG:동실 = 0
					IF TALENT:ARG:연모
						TALENT:ARG:기분 = MIN(TALENT:ARG:기분, 0)
						BASE:ARG:분노 += MAXBASE:ARG:분노 / 2
						CFLAG:ARG:정사목격 = TARGET
					ENDIF
					RETURN 1
				ENDIF
			;들여다 봐졌을 경우
			ELSE
				PRINTFORMW %ARG는% \@TALENT:ARG:연모 ? 언짢은 눈치였다 #어색하게 외면했다 \@
				IF TALENT:ARG:연모 && !CFLAG:ARG:정사목격
					IF TCVAR:ARG:친해져 < 3
						TALENT:ARG:기분 = MIN(TALENT:ARG:기분, 0)
						BASE:ARG:분노 += MAXBASE:ARG:분노 / 4
					ENDIF
					CFLAG:ARG:정사목격 = TARGET
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
IF FORCE_STOP
	SIF CFLAG:MASTER:장난
		CALL SET_PRANK(0, TARGET, 2)
	FOR LOCAL, 0, CHARANUM
		CALL ENDUFUFU(LOCAL)
		SIF LOCAL == LOCAL:1 || LOCAL == ARG
			CONTINUE
		CALL GETOUT(LOCAL)
	NEXT
	TFLAG:106 = 0
	RETURN 0
ENDIF
;통상 만남
;이쪽으로부터도 보이는 위치에 있다, 혹은 동실
IF !CFLAG:ARG:수면 && (!NOZOKI || CAN_MOVE(CFLAG:MASTER:현재위치, CFLAG:ARG:현재위치) == 2) && !FLAG:70 && !CHK_DATENOW(CFLAG:ARG:데이트중) && TIME != TIME:3
	;데이트중에 우연히 만남
	IF CHK_DATENOW(CFLAG:MASTER:데이트중)
		IF !CFLAG:(NO:ARG):안면 && TALENT:ARG:스침
			PRINTFORMW %마스터는% %CALLNAME:ARG%에게 말을 걸어보았다
		ELSE
			PRINTFORMW 외출한 곳에서 %ARG와% 마주쳤다
		ENDIF
		IF CFLAG:(NO:ARG):안면 == 0
			CALL SYOTAIMEN(ARG)
		ELSE
			FOR LOCAL:4, 1, CHARANUM
				IF CHK_DATENOW(CFLAG:(LOCAL:4):데이트중)
					CALL KOJO_MESSAGE_SEND("EVENT", 1, ARG, 7, LOCAL:4)
					BREAK
				ELSEIF LOCAL:4 == CHARANUM - 1
					CALL KOJO_MESSAGE_SEND("EVENT", 1, ARG, 6,0)
				ENDIF
			NEXT
		ENDIF
	;조금 전부터 있는 것은 알고 있던지 아닌지
	ELSEIF CFLAG:ARG:전턴위치 == CFLAG:ARG:현재위치
		PRINTFORM %ARG가%
		PRINTFORM %NAME_FROM_PLACE(CFLAG:ARG:현재위치)%
		PRINTFORMW 에 있\@CAN_MOVE(CFLAG:MASTER:전턴위치, CFLAG:ARG:현재위치) == 2 ? 다 # 었다\@
		LOCAL:3 = 1
	;목욕해 왔을 경우
	ELSEIF CAN_MOVE(CFLAG:MASTER:전턴위치, CFLAG:ARG:전턴위치) < 2 && CFLAG:ARG:전턴위치 != CFLAG:MASTER:전턴위치 && BATHCHECK(CFLAG:MASTER:현재위치)
		PRINTFORMW %ARG가% 목욕탕에 들어왔다…
		IF 목욕탕추방조건(ARG)
			IF CFLAG:ARG:약점잡음 && HETEROSEX(MASTER, ARG)
				PRINTFORMW %마스터는% %CALLNAME:ARG%에게 반항 못한 채 목욕탕에서 내쫓겼다
				CFLAG:MASTER:현재위치 = KICKOUT()
				LOCAL:3 = 5
				CALL TARGETSET_CHACK
				CFLAG:ARG:동실 = 0
			ELSE
				PRINTFORMW %ARG는% %마스터와% 눈이 마주치자 황망하게 그 자리를 떠났다…
				CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
				CALL TARGETSET_CHACK
				CFLAG:ARG:동실 = 0
				LOCAL:3 = 4
			ENDIF
		ELSE
			PRINTFORMW %ARG는% %마스터와% 함께 들어가고 싶은 모양이다
			LOCAL:3 = 3
		ENDIF
	;화장실에 들어 왔을 경우
	ELSEIF CAN_MOVE(CFLAG:MASTER:전턴위치, CFLAG:ARG:전턴위치) < 2 && CFLAG:ARG:전턴위치 != CFLAG:MASTER:전턴위치 && IN_TOILET(CFLAG:MASTER:현재위치)
		PRINTW 누군가가 노크했다
		$TOILET_INPUT_LOOP
		PRINTL [0]사람 있어요―　[1]들어오시죠
		INPUT
		IF RESULT == 1
			PRINTFORM %ARG가%
			PRINTFORMS NAME_FROM_PLACE(CFLAG:ARG:현재위치)
			PRINTFORMW 에 들어왔다
			LOCAL:3 = 2
		ELSEIF RESULT == 0
			PRINTW 발소리가 멀어졌다
			CFLAG:ARG:현재위치 = CFLAG:ARG:전턴위치
			CALL TARGETSET_CHACK
			CFLAG:ARG:동실 = 0
			LOCAL:3 = 0
		ELSE
			GOTO TOILET_INPUT_LOOP
		ENDIF
	;ELSEIF CAN_MOVE(CFLAG:MASTER:전턴위치, CFLAG:ARG:전턴위치) < 2 && CFLAG:ARG:전턴위치 != CFLAG:MASTER:전턴위치
	;↑의 조건에서는 내방시에 초대면 말이 나오지 않는 경우가 있으므로 변경
	ELSEIF CFLAG:ARG:전턴위치 != CFLAG:MASTER:전턴위치
		IF CFLAG:ARG:전턴위치 != MAXROOM && CFLAG:ARG:전턴위치 != OMANEKIBEYA()
			PRINTFORMW %ARG가% %NAME_FROM_PLACE(CFLAG:ARG:현재위치)%에 왔다
		ENDIF
		LOCAL:3 = 2
	ENDIF
	IF !FLAG:70
		IF !NOZOKI && LOCAL:3
		;초대면
			IF CFLAG:(NO:ARG):안면 == 0 && CFLAG:ARG:현재위치 == CFLAG:MASTER:현재위치
				CALL SYOTAIMEN(ARG)
			ELSEIF CFLAG:ARG:정사목격 && CFLAG:(CFLAG:ARG:정사목격):현재위치 != CFLAG:ARG:현재위치
				PRINTFORMW %ARG가% 일전 %CALLNAME:(CFLAG:ARG:정사목격)%와의 사건에 대해 캐물었다…
				;CALL KOJO_EVENT(0, ARG, 2)
				CALL KOJO_MESSAGE_SEND("EVENT", 8, ARG, 1,0)
				CFLAG:ARG:정사목격 = 0
			ELSEIF CFLAG:ARG:정사목격 && CFLAG:(CFLAG:ARG:정사목격):현재위치 == CFLAG:ARG:현재위치
				PRINTFORMW %ARG는% 일전 사건에 대해 %마스터와% %CALLNAME:(CFLAG:ARG:정사목격)%에게 설교했다…
				CALL KOJO_MESSAGE_SEND("EVENT", 8, ARG, 2,0)
				CFLAG:ARG:정사목격 = 0
			ELSE
				;통상 만남 대사
				CALL KOJO_MESSAGE_SEND("EVENT", 1, ARG, LOCAL:3, 0)
			ENDIF
		ENDIF
		IF !TCVAR:ARG:오늘만났는지 && CFLAG:ARG:현재위치 == CFLAG:MASTER:현재위치
			TCVAR:ARG:오늘만났는지 = 1
			CFLAG:ARG:마지막에만난날 = DAY
			SIF TCVAR:ARG:어나더_평상복
				PRINTFORMW 오늘의 %ARG는% 여느 때와 복장이 다르다
			IF CFLAG:ARG:딸딸이들킴
				IF CFLAG:ARG:딸딸이들킴 == 1
					PRINTFORMW 요전날 자위 현장을 목격당한 %ARG는% 어색한 모양이다…
				ELSEIF CFLAG:ARG:딸딸이들킴 == 2
					PRINTFORMW 요전날 자위 현장을 목격당하고 뜻하지 않게 몸까지 허락하고 만 %ARG는% 어색한 모양이다…
				ELSEIF CFLAG:ARG:딸딸이들킴 == 3
					PRINTFORMW 요전날 자위 현장을 목격당했을 뿐더러 눈앞에서 요란하게 절정한 모습까지 보여주고 만 %ARG는% 어색한 모양이다…
				ENDIF
				CFLAG:ARG:딸딸이들킴 = 0
			ELSEIF TALENT:ARG:기분 == 1
				PRINTFORMW 뭔가 좋은 일이라도 있었는지 오늘의 %ARG는% 썩 기분이 좋다
			ELSEIF TALENT:ARG:기분 == -1
				PRINTFORMW 아무래도 오늘의 %ARG는% 심사가 꼬여 있는 모양이다…
			ENDIF
			IF CFLAG:ARG:욕구불만도 >= 500 && TALENT:MASTER:정욕감지
				SETCOLOR 255,100,255
				FONTBOLD
				PRINTFORMW 발딱!
				PRINTFORMW %마스터는% %ARG가% 성욕을 주체 못하고 있는 걸 알 수 있다……!
				RESETCOLOR
				FONTREGULAR
			ENDIF
			CALL SEASONAL(ARG)

			PREV_TARGET = TARGET
			TARGET = ARG
			CALL CAN_IRAI_START
			IRAI_ABLE = RESULT
			IF IRAI_ABLE && IRAI_CHARA_TO_PROGRESS(ARG) == "의뢰미수탁" && !FLAG:의뢰패스
				;CALL처의 판정으로 TARGET==CLIENT 전제의 처리가 많이 있으므로 일시 변경, 그대로 돌아오므로 퇴피해둔다
				CALL IRAI_START(ARG)
				TARGET = PREV_TARGET
			ELSEIF IRAI_ABLE && GROUPMATCH(IRAI_CHARA_TO_PROGRESS(ARG), "기한 마감", "보고 잊고")
				PRINTFORML %ARG는% %마스터가% 의뢰를 완수하지 못한 것을 책망했다
				;TFLAG:104의 사용법이 잘 모르겠어
				;TFLAG:104 = ARG
				CALL IRAI_REPORT(ARG)
				TARGET = PREV_TARGET
			ELSEIF TALENT:ARG:기분 >= 0 && BASE:MASTER:기력 > 0 && BASE:ARG:기력 > 0 && !CFLAG:MASTER:동행 && NEMUKE() < 720 && !수면시간(ARG)
				CALL OSASOI(ARG)
				SIF !RESULT
					TARGET = PREV_TARGET
			ELSE
				TARGET = PREV_TARGET
			ENDIF
		ENDIF
	ENDIF
ENDIF

@OSASOI(ARG)
#DIM 목적지
#DIM 자택지역
#DIM 현재지역

자택지역 = CFLAG:ARG:자택위치 / 100
현재지역 = GET_MAPID(CFLAG:MASTER:현재위치)

IF CHARA_HOLIDAY(ARG) && AT_HOME(MASTER) && TALENT:ARG:연모 && !RAND:5 && !GROUPMATCH(TIME:5, 5, 9)
	IF CFLAG:ARG:욕구불만도 >= (700 + TALENT:ARG:수치심 * 150) && !CFLAG:ARG:신사거주
		PRINTFORML %ARG가% 방에 오지 않겠느냐고 권유했다
		CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 3, 자택지역)
		CALL ASK_YN("간다","그만둔다")
		IF !RESULT
			PRINTFORML %CALLNAME:ARG%의 권유대로 %마스터는% 그녀의 방으로 갔다……
			CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 4, 자택지역)
			PRINTFORMW +{TIME_REQUIRED(현재지역, 자택지역)}분
			TIME += TIME_REQUIRED(현재지역, 자택지역)
			CFLAG:ARG:데이트중 = 자택지역
			CFLAG:MASTER:데이트중 = 자택지역
			FLAG:데이트상대 = ARG
			CFLAG:MASTER:동행 = 60
			CFLAG:ARG:동행 = 60
			TFLAG:데이트전호감도 = CFLAG:ARG:2
			TARGET = ARG
			CALL OMANEKI_ENTER(ARG)
			CALL TARGETSET_CHACK
			;유혹에 넘어갔는지 거절했는지를 RETURN으로 돌려주도록 했습니다
			RETURN 1
		ELSE
			PRINTFORMW %ARG는% 기분 탓인지 원망하는 눈치다
			CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 5, 자택지역)
			RETURN 0
		ENDIF
	ELSEIF !RAND:4 && CFLAG:ARG:자주가는지역 >= 0 && CFLAG:ARG:자주가는지역 != MAIN_MAP
		목적지 = CFLAG:ARG:자주가는지역
	ELSE
		목적지 = RAND:10
		SIF 목적지 == MAIN_MAP
			GOTO ODEKAKE_SHINAI
	ENDIF
	PRINTFORML %ARG가% %GET_MAPNAME(목적지)%에 가자고 권유했다
	CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 0, 목적지)
	CALL ASK_YN("간다","그만둔다")
	IF !RESULT
		CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 1, 목적지)
		CFLAG:MASTER:동행 = 60
		CFLAG:ARG:동행 = 60
		TFLAG:데이트전호감도 = CFLAG:ARG:2
		CALL SET_DATE(목적지, ARG)
		CALL TARGETSET_CHACK
		RETURN 1
	ELSE
		PRINTFORMW %ARG는% 아쉬운 눈치다
		CALL KOJO_MESSAGE_SEND("EVENT", 27, ARG, 2, 목적지)
		RETURN 0
	ENDIF
ENDIF
$ODEKAKE_SHINAI
RETURN 0

@UWAKI_RECORD(ARG, 공인, 바람기상대)
#DIM 바람기상대
#DIM 공인

SIF UWAKI_KNOWN:ARG:0 == ""
	UWAKI_KNOWN:ARG:0 = /
SIF UWAKI_ACCEPTED:ARG:0 == ""
	UWAKI_ACCEPTED:ARG:0 = /

IF 바람기상대
	LOCALS = %CALLNAME:바람기상대%
	SIF !STRCOUNT(UWAKI_KNOWN:ARG:0,LOCALS)
		UWAKI_KNOWN:ARG:0 = %UWAKI_KNOWN:ARG:0%%LOCALS%/
	SIF !STRCOUNT(UWAKI_ACCEPTED:ARG:0,LOCALS) && 공인
		UWAKI_ACCEPTED:ARG:0 = %UWAKI_ACCEPTED:ARG:0%%LOCALS%/
ELSE
	;제2 인수가 0의 경우, 당신과 같은 장소에 있는 캐릭터 전원 기록
	FOR LOCAL, 1, CHARANUM
		SIF LOCAL == ARG
			CONTINUE
		SIF CFLAG:LOCAL:현재위치 != CFLAG:MASTER:현재위치
			CONTINUE
		LOCALS = %CALLNAME:LOCAL%
		SIF !STRCOUNT(UWAKI_KNOWN:ARG:0,LOCALS)
			UWAKI_KNOWN:ARG:0 = %UWAKI_KNOWN:ARG:0%%LOCALS%/
		SIF !STRCOUNT(UWAKI_ACCEPTED:ARG:0,LOCALS) && 공인
			UWAKI_ACCEPTED:ARG:0 = %UWAKI_ACCEPTED:ARG:0%%LOCALS%/
	NEXT
ENDIF

@GET_UWAKI_HISTORY(ARG, 바람기상대)
;공인이라면 2를 돌려준다
#FUNCTION
#DIM 바람기상대
LOCALS = /%CALLNAME:바람기상대%/

IF STRCOUNT(UWAKI_ACCEPTED:ARG:0,LOCALS)
	RETURNF 2
ELSEIF STRCOUNT(UWAKI_KNOWN:ARG:0,LOCALS)
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

@SYOTAIMEN(ARG)
IF TALENT:ARG:스침 == 1
	SETBIT TFLAG:일일일회, 9
	IF TALENT:MASTER:매혹
		PRINTFORMW %ARG는% %CALLNAME:MASTER%에게 【매혹】당했다
		CALL COLORMESSAGE(@"호감도와 친밀이 올랐다",C_YELLOW,2,1)
		ABL:ARG:친밀 += 2
		CFLAG:ARG:호감도 += 300
	ENDIF
	IF TALENT:MASTER:수수께끼의매력
		PRINTFORMW %ARG는% %CALLNAME:MASTER%의 【수수께끼의매력】에 가슴이 크게 뛰는 것을 느꼈다
		CALL COLORMESSAGE(@"호감도와 친밀이 올랐다",C_YELLOW,2,1)
		ABL:ARG:친밀 += 2
		CFLAG:ARG:호감도 += 300
	ENDIF
ENDIF

CALL KOJO_MESSAGE_SEND("ENCOUNTER",0,ARG,1,0)
CFLAG:ARG:안면 = 1


code:
;바리안트의 초기설정입니다. 뉴 게임 개시시에 불립니다
@DEFAULT_OPTION
;난이도
FLAG:4 = 1

;말출력 플래그
FLAG:6 = 1
FLAG:7 = 2

FLAG:스킵무브 = 1
FLAG:ABLUP생략 = 1

;소모품자동구입
FLAG:1000 = 1

;랜덤 캐릭터, 커스텀 캐릭터 유효
FLAG:1001 = 3

;캐릭터 일람표시용 플래그
FLAG:1003 = 2
FLAG:1004 = 0

;아이템의 초기 재고 처리
ITEMSALES:잡곡 = 10
ITEMSALES:묵은쌀 = 10
ITEMSALES:백미 = 10
CALL ITEM_RANGE, "술집"
FOR LOCAL, RESULT:0, RESULT:1
	SIF ITEM_TYPES( LOCAL, "술집" ) && ITEMSALES:LOCAL == 0
		ITEMSALES:LOCAL = 5
NEXT
CALL ITEM_RANGE, "꽃집"
FOR LOCAL, 1 + RESULT:0, RESULT:1
	SIF ITEM_TYPES( LOCAL, "꽃집" )
		ITEMSALES:LOCAL = 3
NEXT

FOR LOCAL, 70,100
	ITEMSALES:LOCAL = -2
NEXT

PALAMLV:0 = 0
PALAMLV:1 = 100
PALAMLV:2 = 500
PALAMLV:3 = 3000
PALAMLV:4 = 10000
PALAMLV:5 = 30000
PALAMLV:6 = 60000
PALAMLV:7 = 100000
PALAMLV:8 = 150000
PALAMLV:9 = 250000
PALAMLV:10 = 400000
PALAMLV:11 = 600000
PALAMLV:12 = 900000
PALAMLV:13 = 1500000
PALAMLV:14 = 3000000
PALAMLV:15 = 5000000

EXPLV:0 = 0
EXPLV:1 = 1
EXPLV:2 = 4
EXPLV:3 = 20
EXPLV:4 = 50
EXPLV:5 = 200
EXPLV:6 = 500
EXPLV:7 = 1000
EXPLV:8 = 2000
EXPLV:9 = 3000
EXPLV:10 = 4000
EXPLV:11 = 5000
EXPLV:12 = 6000
EXPLV:13 = 7000

repo_name: purugi/eraTWKR

license: mit


code:
;COMABLE 일괄관리
@GLOBAL_COMABLE(ARG)
#FUNCTION
;커맨드필터
LOCALS = /{ARG}/
IF STRCOUNT(SAVESTR:0, LOCALS)
	RESULT = 0
	RETURNF 1
ENDIF
;일괄관리
SELECTCASE ARG
	;우후후
	CASE IS < 300
		IF TFLAG:102 != 2 || !TARGET
			RESULT = 0
			RETURNF 1
		ENDIF
	;의뢰실행은 TARGET없이 실행할 수 있도록(듯이) 예외 취급
	CASE 367
		IF GROUPMATCH(TFLAG:102, 2, 3)
			RESULT = 0
			RETURNF 1
		ENDIF
	;일상 커맨드
	CASE 300 TO 303, 305, 331 TO 336, 351 , 352 , 363 TO 399
		IF TFLAG:102 != 1 || !TARGET
			RESULT = 0
			RETURNF 1
		ENDIF
	;껴안기모드
	CASE 306 TO 311
		IF !TFLAG:껴안기모드 && (TFLAG:102 != 1 || !TARGET)
			RESULT = 0
			RETURNF 1
		ENDIF
	;소프트인 우후후
	CASE 310 TO 330, 350, 360, 361
		IF TARGET == 0
			RESULT = 0
			RETURNF 1
		ENDIF
		IF TFLAG:102 != 1 && FLAG:70 == 1 && CFLAG:TARGET:344 == 0
			RESULT = 0
			RETURNF 1
		ENDIF
		IF TFLAG:102 == 2
			RESULT = 0
			RETURNF 1
		ENDIF
		IF TFLAG:껴안기모드 && ARG != 350 && ARG != 360 && ARG != 361
			RESULT = 0
			RETURNF 1
		ENDIF
		;목욕탕에서는 가치에로가 되므로
		IF BATHCHECK(CFLAG:MASTER:현재위치) && CFLAG:우후후 != 2
			IF ARG != 350 && ARG != 351
				RESULT = 0
				RETURNF 1
			ENDIF
		ENDIF
	CASE 355
		IF FLAG:70 && CFLAG:TARGET:344 == 0 || CFLAG:MASTER:장난 || CFLAG:우후후 == 2
			RESULT = 0
			RETURNF 1
		ENDIF
	CASE 400 TO 499
	;단체 실행 가능 커맨드
		IF TFLAG:102 == 2 && ARG != 410 && ARG != 413
			RESULT = 0
			RETURNF 1
		ENDIF
	CASE 501 TO 559
	;우후후 파생
		IF TFLAG:102 != 2
			RESULT = 0
			RETURNF 1
		ENDIF
	CASE 560 TO 579
	;일상 파생
		IF TFLAG:102 == 2
			RESULT = 0
			RETURNF 1
		ENDIF
	CASE 580 TO 699
	;데이트
		IF !TFLAG:100
			RESULT = 0
			RETURNF 1
		ENDIF
		IF TFLAG:102 == 2
			RESULT = 0
			RETURNF 1
		ENDIF
	CASE 700 TO 799
	;자위 전용 커맨드
	;	IF TFLAG:102 != 2
	;		RESULT = 0
	;		RETURNF 1
	;	ENDIF
	;	IF ARG == 751 && (!CFLAG:PLAYER:지금바쁨)
	;		RESULT = 0
	;		RETURNF 1
	;	ELSEIF ARG != 751 && ((CFLAG:지금바쁨 != 1) || (TARGET > 0 && CFLAG:지금바쁨 != 1 && !FLAG:시간정지))
	IF !CFLAG:PLAYER:지금바쁨
			RESULT = 0
			RETURNF 1
		ENDIF
ENDSELECT

;비디오 처리(고정 카메라라면 제한 없음)
;촬영자가 조교중, 비디오 한 손에서는 여러 가지 제한된다
IF (TFLAG:105 == 1 && !ASSIPLAY) || (TFLAG:105 == 2 && ASSIPLAY)
	IF ARG == 0 || ARG == 3 || ARG == 5 || ARG == 6 || ARG == 7 || ARG == 8 || ARG == 9 || ARG == 21 || (ARG >= 40 && ARG <= 48) || ARG == 65 || ARG == 66 || (ARG >= 80 && ARG <= 87) || (ARG >= 100 && ARG <= 105) || (ARG >= 122 && ARG <= 125) || (ARG >= 140 && ARG <= 148 && ARG != 143) || (ARG >= 180 && ARG <= 189) || ARG == 503 || ARG == 504 || ARG == 510 || ARG == 511
		RETURNF 0
	ELSE
		RESULT = 0
		RETURNF 1
	ENDIF
;MASTER가 촬영중, 조수가 조교중
ELSEIF TFLAG:105 == 1 && ASSIPLAY
	IF ARG == 71 || ARG == 124 || ARG == 125 || ARG == 185
		RESULT = 0
		RETURNF 1
	ENDIF
;조수가 촬영중, MASTER가 조교중
ELSEIF TFLAG:105 == 2 && !ASSIPLAY
	IF ARG == 71 || ARG == 124 || ARG == 125 || ARG == 185 || ARG == 510 || ARG == 511
		RESULT = 0
		RETURNF 1
	ENDIF
ENDIF

;COMABLE 일괄관리
@GLOBAL_COMABLE2(ARG)
#FUNCTION
;커맨드필터
LOCALS = /{ARG}/
SIF STRCOUNT(SAVESTR:0, LOCALS)
	RETURNF 1

;일괄관리
SELECTCASE ARG
	;우후후
	CASE IS < 300
		SIF TFLAG:102 != 2 || !TARGET
			RETURNF 1
	;의뢰실행은 TARGET없이 실행할 수 있도록(듯이) 예외 취급
	CASE 367
		IF GROUPMATCH(TFLAG:102, 2, 3)
			RESULT = 0
			RETURNF 1
		ENDIF
	;일상 커맨드
	CASE 300 TO 303, 305, 331 TO 336, 351 , 352 , 363 TO 399
		SIF TFLAG:102 != 1 || !TARGET
			RETURNF 1
	;껴안기모드
	CASE 306 TO 311
		IF !TFLAG:껴안기모드 && (TFLAG:102 != 1 || !TARGET)
			RESULT = 0
			RETURNF 1
		ENDIF
	;소프트인 우후후
	CASE 310 TO 330, 350, 360, 361
		IF TARGET == 0
			RETURNF 1
		ENDIF
		IF TFLAG:102 != 1 && FLAG:70 == 1 && CFLAG:TARGET:344 == 0
			RETURNF 1
		ENDIF
		IF TFLAG:102 == 2
			RETURNF 1
		ENDIF
		IF TFLAG:껴안기모드 && ARG != 350 && ARG != 360 && ARG != 361
			RESULT = 0
			RETURNF 1
		ENDIF
		;목욕탕에서는 가치에로가 되므로
		IF BATHCHECK(CFLAG:MASTER:현재위치) && CFLAG:우후후 != 2
			IF ARG != 350 && ARG != 351
				RETURNF 1
			ENDIF
		ENDIF
	CASE 355
		IF FLAG:70 && CFLAG:TARGET:344 == 0 || CFLAG:MASTER:장난 || CFLAG:우후후 == 2
			RETURNF 1
		ENDIF
	CASE 400 TO 499
	;단체 실행 가능 커맨드
		IF TFLAG:102 == 2 && ARG != 410 && ARG != 413
			RETURNF 1
		ENDIF
	CASE 501 TO 559
	;우후후 파생
		IF TFLAG:102 != 2
			RETURNF 1
		ENDIF
	CASE 560 TO 579
	;일상 파생
		IF TFLAG:102 == 2
			RETURNF 1
		ENDIF
	CASE 580 TO 699
	;데이트
		IF !TFLAG:100
			RETURNF 1
		ENDIF
		IF TFLAG:102 == 2
			RETURNF 1
		ENDIF
ENDSELECT


code:
;-------------------------------------------------
;300접수대, 일상(상대가 필요)
;-------------------------------------------------
[SKIPSTART]
;대응 커맨드 불명
;허리를움직인다(A)
@COM_ABLE318
;실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(318)
	RETURN RESULT
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
;친해져 강도 2
SIF (TCVAR:MASTER:친해져 < 2) && CFLAG:수면 == 0
	RETURN 0
;착의
SIF TEQUIP:0 & 4
	RETURN 0
;수면중
SIF CFLAG:수면 && CFLAG:장난 < 2
	RETURN 0
;업무중
SIF CFLAG:행동 == 5
	RETURN 0
;데이트중
SIF CHK_DATENOW(CFLAG:데이트중) && CFLAG:현재위치 != OMANEKIBEYA()
	RETURN 0
;동침중
SIF CFLAG:동침중
	RETURN 0
SIF TCVAR:TARGET:101 != PLAYER
	RETURN 0
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
SIF GETBIT (TCVAR:26, 8)
	RETURN 0
SIF CFLAG:우후후 != 2
	RETURN 0
RETURN 1
[SKIPEND]

;저항한다
;이식제

;대응 커맨드 불명
;도망친다
@COM_ABLE362
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
;도망치는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(362)
	RETURN RESULT
;기력 0
SIF BASE:MASTER:기력 <= 0
	RETURN 0
SIF TFLAG:102 != 4
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;600접수대, 데이트
;-------------------------------------------------

;대응 커맨드 불명
;쇼핑 한다
@COM_ABLE611
;일괄관리
SIF GLOBAL_COMABLE(611)
	RETURN RESULT
;나가고 도중
SIF (CFLAG:MASTER:현재위치 % 100) % 10
	RETURN 0
;수면중
SIF CFLAG:MASTER:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1

;대응 커맨드 불명
;선물
@COM_ABLE612
;일괄관리
SIF GLOBAL_COMABLE(612)
	RETURN RESULT
;상대가 없다
SIF !TARGET
	RETURN 0
;데이트중 이외
SIF !CHK_DATENOW(CFLAG:12)
	RETURN 0
;데이트 도중
SIF (CFLAG:현재위치 % 100) % 10
	RETURN 0
;수면중
SIF CFLAG:수면
	RETURN 0
;시간정지중
SIF FLAG:70
	RETURN 0
RETURN 1


code:
@COM460
;망상 자위
VARSET LOCAL

IF FLAG == 70
	TCVAR:194 = 1
	RETURN 0
ELSEIF GET_TARGETNUM() > 0
	TCVAR:194 = 2
	RETURN 0
ELSE
	TCVAR:194 = 3
	$LOOP_MOUSOU
	FOR LOCAL, 1, CHARANUM
	SIF !CFLAG:LOCAL:출금
		PRINTFORMLC [{LOCAL}] %CALLNAME:LOCAL%
	NEXT
	PRINTL
	DRAWLINE
	PRINTL [900] 그만둔다
	PRINTL 누구를 떠올립니까?
	INPUT
	SELECTCASE RESULT
	CASE 1 TO CHARANUM - 1
		ADDCOPYCHARA RESULT
		CFLAG:MASTER:현재위치 = 260
		CFLAG:(CHARANUM - 1):현재위치 = 260
		CFLAG:(CHARANUM - 1):안면 = 1
		CFLAG:(CHARANUM - 1):2 = 100000
		CFLAG:(CHARANUM - 1):4 = 10000
		CFLAG:(CHARANUM - 1):생해금 = 2
		CFLAG:(CHARANUM - 1):동행 = 300
		CFLAG:TARGET:데이트중 = 2
		CFLAG:MASTER:데이트중 = 2
		TFLAG:망상중 = 1
		MARK:(CHARANUM - 1):쾌락각인 = 3
		MARK:(CHARANUM - 1):괘씸각인 = 3
		CFLAG:(CHARANUM - 1):우후후 = 0
		CFLAG:(CHARANUM - 1):수면 = 0
		CFLAG:(CHARANUM - 1):행동 = 0
		TALENT:(CHARANUM - 1):망상의산물 = 1
		BASE:(CHARANUM - 1):일량 = 0
		PRINTFORMW %CALLNAME:RESULT%과 섹스 합니다
		PRINTL 망상으로 팡팡 할거예요, 비처녀에게 설정해 둡니다만……
		PRINTL 처녀로 합니까?
		PRINTL [0]네 [1]아니오
		$INPUT_VIRGIN
		INPUT
		IF RESULT == 0
			PRINTW 상냥하게 해 주세요
			PRINTW 다만, V감각은 10이다
			TALENT:(CHARANUM - 1):처녀 = 1
			ABL:(CHARANUM - 1):V감각 = 10
			EXP:(CHARANUM - 1):정음경험 = 0
			EXP:(CHARANUM - 1):V성교경험 = 0
		ELSEIF RESULT == 1
			PRINTW 그대로 개시합니다
		ELSE
			GOTO INPUT_VIRGIN
		ENDIF
		PRINTL 그런데, 엉덩이의 구멍에 흥미는……
		PRINTL [0]있는 [1]없다
		$INPUT_ANUS
		INPUT
		IF RESULT == 0
			PRINTW 감각, 경험을 줍니다
			ABL:(CHARANUM - 1):A감각 = 10
			EXP:(CHARANUM - 1):A경험 = 100
			EXP:(CHARANUM - 1):A확장경험 = 50
		ELSEIF RESULT == 1
			PRINTW 그대로 개시합니다
		ELSE
			GOTO INPUT_ANUS
		ENDIF
		BEFORE_MOUSOU_EXP14 = EXP:MASTER:14
		BEFORE_MOUSOU_EXP15 = EXP:MASTER:15
		BEFORE_MOUSOU_EXP16 = EXP:MASTER:16
		BEFORE_MOUSOU_EXP20 = EXP:MASTER:20
		BEFORE_MOUSOU_EXP21 = EXP:MASTER:21
		BEFORE_MOUSOU_EXP24 = EXP:MASTER:24
		BEFORE_MOUSOU_EXP25 = EXP:MASTER:25
		BEFORE_MOUSOU_EXP27 = EXP:MASTER:27
		BEFORE_MOUSOU_EXP28 = EXP:MASTER:28
		BEFORE_MOUSOU_EXP29 = EXP:MASTER:29
		BEFORE_MOUSOU_EXP53 = EXP:MASTER:53
	CASE 900
		TCVAR:194 = 4
		RETURN 0
	CASEELSE
		GOTO LOOP_MOUSOU
	ENDSELECT
ENDIF

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE460
;망상 실행 판정
SIF !TFLAG:100
	RETURN 0
SIF CFLAG:MASTER:현재위치 != CFLAG:MASTER:311
	RETURN 0
;SIF GLOBAL_COMABLE(460)
	RETURN RESULT
SIF TFLAG:망상중
	RETURN 0
;기력 0에서는 불가
SIF BASE:MASTER:기력 <= 0
	RETURN 0
;할 수 있는 것은 낮 12시~밤 0시
SIF TIME:0 > 0 && TIME:0 < 720
	RETURN 0
RETURN 1


code:
@COM461
;망상 자위를 그만두는 용
VARSET LOCAL

STAIN:MASTER:구 = 0
STAIN:MASTER:4 = 8

IF TALENT:MASTER:2 == 2
	STAIN:MASTER:1 = 6
	STAIN:MASTER:2 = 6
	STAIN:MASTER:5 = 0
ELSEIF TALENT:MASTER:2 == 1
	STAIN:MASTER:1 = 1
	STAIN:MASTER:3 = 1
	STAIN:MASTER:5 = 1
ELSE
	STAIN:MASTER:1 = 7
	STAIN:MASTER:2 = 7
	STAIN:MASTER:3 = 7
	STAIN:MASTER:5 = 7
ENDIF

STAIN:구 = 0
STAIN:1 = 0
STAIN:2 = 2
STAIN:3 = 1
STAIN:4 = 8
STAIN:5 = 0
STAIN:6 = 1
STAIN:7 = 8

EXP:MASTER:14 = BEFORE_MOUSOU_EXP14
EXP:MASTER:15 = BEFORE_MOUSOU_EXP15
EXP:MASTER:16 = BEFORE_MOUSOU_EXP16
EXP:MASTER:20 = BEFORE_MOUSOU_EXP20
EXP:MASTER:21 = BEFORE_MOUSOU_EXP21
EXP:MASTER:24 = BEFORE_MOUSOU_EXP24
EXP:MASTER:25 = BEFORE_MOUSOU_EXP25
EXP:MASTER:27 = BEFORE_MOUSOU_EXP27
EXP:MASTER:28 = BEFORE_MOUSOU_EXP28
EXP:MASTER:29 = BEFORE_MOUSOU_EXP29
EXP:MASTER:53 = BEFORE_MOUSOU_EXP53

SIF BEFORE_MOUSOU_EXP29 == 0 && TALENT:MASTER:2 >= 2
	TALENT:MASTER:1 = 0
SIF BEFORE_MOUSOU_EXP20 == 0 && TALENT:MASTER:2 != 2
	TALENT:MASTER:0 = 1

TFLAG:망상중 = 2
CFLAG:(CHARANUM - 1):현재위치 = SUKIMA()
CFLAG:(CHARANUM - 1):동행 = 0
CFLAG:(CHARANUM - 1):출금 = 1
CFLAG:TARGET:데이트중 = MAIN_MAP
CFLAG:MASTER:데이트중 = MAIN_MAP

CFLAG:MASTER:현재위치 = CFLAG:MASTER:311
	FOR LOCAL, 1, CHARANUM
		SIF CFLAG:LOCAL:현재위치 == CFLAG:MASTER:311
			CFLAG:LOCAL:현재위치 = CFLAG:LOCAL:311
	NEXT

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
;제 정신을 차린다
@COM_ABLE461
;현실 귀환 실행 판정
SIF !TFLAG:100
	RETURN 0
SIF TFLAG:망상중 != 1
	RETURN 0
RETURN 1


code:
;-------------------------------------------------
;애무
;자위계 커맨드 레벨 2
;-------------------------------------------------
@COM700
PRINTFORML 애무 실행
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER

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

SOURCE:PLAYER:쾌C = 80
SOURCE:PLAYER:쾌B = 80
SOURCE:PLAYER:사랑 = 50
SOURCE:PLAYER:성행동 = 60
SOURCE:PLAYER:노출 = 20
SOURCE:PLAYER:불결 = 30
SOURCE:PLAYER:일탈 = 20
SOURCE:PLAYER:반감 = 20

;성기술보정
SOURCE:PLAYER:쾌C += ABL:PLAYER:손가락 * 5
SOURCE:PLAYER:쾌B += ABL:PLAYER:손가락 * 5

;혀를 사용하는 조교에서는, 조교자의 혀놀림에 의해, 쾌감의 소스 증가
IF TALENT:PLAYER:능숙한손가락
	TIMES SOURCE:PLAYER:쾌C , 1.50
	TIMES SOURCE:PLAYER:쾌B , 1.50
ENDIF

SIF TALENT:PLAYER:혀놀림
	TIMES SOURCE:PLAYER:사랑 , 1.50
;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;억압, 저항 소유에는, 억울소스 추가
SIF TALENT:PLAYER:자기애 < 0 || TALENT:PLAYER:저항
	SOURCE:PLAYER:울굴 += 20
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
IF (FIRSTTIME(312,1) || FIRSTTIME(20,1)) || (MASTER_POSE(SET_M, SET_M) != TARGET && MASTER_POSE(0,4)) || (STAIN:구 >= 2 && (STAIN:구 != 16 && STAIN:구 != 17) && ASSIPLAY == 0 && TALENT:MASTER:악취내성 < 2) || TEQUIP:20
;노예의 입의 더러움이 있을 때 키스는 없다(애액과 모유 얼룩은 OK, 더러움 무시나 조수 조교시는 문제 없음)
;볼개그 사용중도 없음
	SOURCE:PLAYER:불결 = 0
	SOURCE:PLAYER:사랑 /= 4
	SOURCE:PLAYER:액체 /= 2
ELSE
	;악취 둔감
	SIF TALENT:PLAYER:악취내성 > 0
		SOURCE:PLAYER:불결 /= 4
	;악취 민감
	SIF TALENT:PLAYER:악취내성 < 0
		SOURCE:PLAYER:불결 *= 3
	;자존심 높음
	SIF TALENT:PLAYER:자존심 > 0
		SOURCE:PLAYER:불결 *= 2
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;조교자가 고양이혀 소유의 경우는, 조교자에게 가학쾌락경험을 추가
SIF TALENT:PLAYER:고양이혀
	EXP:PLAYER:가학쾌락경험 += 1
;수음경험
EXP:PLAYER:수음경험 ++
;자위경험
CFLAG:PLAYER:자위했다 ++
SIF !FLAG:시간정지
	TIME += 5
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
@COM_ABLE700
;애무 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(700)
	RETURN RESULT
RETURN 1


path: ERB/커맨드관련/COMF/700 자위계/COMF703 손가락삽입_자위_t.ERB


path: ERB/커맨드관련/COMF/700 자위계/COMF708 보지벌리기_자위_t.ERB


path: ERB/커맨드관련/COMF/700 자위계/COMF712 가슴주무르기_자위_t.ERB


path: ERB/커맨드관련/COMF/700 자위계/COMF713 애널벌리기_자위_t.ERB


path: ERB/커맨드관련/COMF/700 자위계/COMF741 Ｅ마사지기_자위_t.ERB


path: ERB/커맨드관련/COMF/700 자위계/COMF745 애널바이브_자위_t.ERB


code:
;-------------------------------------------------
;자위 종료
;-------------------------------------------------
@COM751
;CALL ENDUFUFU(PLAYER)
IF FLAG:70 == 1
	;시간정지중은 복장 세트 하지 않는다
ELSEIF CFLAG:PLAYER:장난 > 1
	;(은)는만 안은 복장 세트 하지 않는다
ELSEIF LOCK:(CFLAG:PLAYER:311) && CFLAG:PLAYER:장난 < 2
	;장난 Lv1 이하라면 파자마 세트
	CALL CTRL_CLOTHES_SET(PLAYER, "현재 의상의 변경_파자마")
ELSE
	;장난 이외라면 평상복 세트
	CALL CTRL_CLOTHES_SET(PLAYER, "현재 의상의 변경_평상복")
	CFLAG:PLAYER:파자마 = 0
ENDIF

;복장을 TEQUIP에(↓로 하고 있기 때문에 삭제)

;우후후시 계 장비 리셋
;TEQUIP:ARG:10-TEQUIP:ARG:149를 초기화한다
;PLAYER:1을 카운트에 사용하는 것은 그만두자
VARSET TEQUIP:(PLAYER):0, 0, 10, 150

;사정 관계 리셋
IF TFLAG:102 < 2
	BASE:PLAYER:사정 = 0
	TCVAR:PLAYER:이기초 = 0
ENDIF
CFLAG:지금바쁨 = 0
TEQUIP:PLAYER:50 = -1
TEQUIP:PLAYER:51 = -1
TEQUIP:PLAYER:상반신은만상태 = 0
TEQUIP:PLAYER:하반신않고들해상태 = 0
TCVAR:PLAYER:억지로 = 0
IF !FLAG:70
	TFLAG:운반 = 0
	IF CFLAG:PLAYER:구내정액
		PRINTFORML %조교자는% 입속에 남아 있던 정액을\@ ABL:PLAYER:정액중독 > 2 ?  다 마신 # 토해냈다 \@
		CFLAG:PLAYER:구내정액 = 0
	ENDIF
	IF CFLAG:PLAYER:안면정액 || CFLAG:PLAYER:손에정액
		PRINTFORM %조교자는%
		IF CFLAG:PLAYER:안면정액 && !CFLAG:PLAYER:손에정액
			PRINTFORM 얼굴에 달라 붙었다
		ELSEIF !CFLAG:PLAYER:안면정액 && CFLAG:PLAYER:손에정액
			PRINTFORM 손에 달라붙었다
		ELSE
			PRINTFORM 얼굴과 부정한 짓을 하고 있다
		ENDIF
		PRINTFORM 정액을\@ ABL:PLAYER:정액중독 > 2 ?  입에 넣은 # 닦았다 \@
		CFLAG:PLAYER:안면정액 = 0
		CFLAG:PLAYER:손에정액 = 0
	ENDIF
ENDIF
TEQUIP:PLAYER:유두빨기자위 = 0
TEQUIP:PLAYER:가슴주무르기자위 = 0
TFLAG:106 = 0
;(은)는만 플래그를 오프
TEQUIP:PLAYER:2 = 0
TEQUIP:PLAYER:상반신은만상태 = 0
CALL CLOTHES_SETTING_TRAIN(PLAYER)
;윗도리탈의가끝난상태 플래그를 오프
TEQUIP:PLAYER:5 = 0
SIF !FLAG:시간정지
	TIME += 5
;자위경험
SIF CFLAG:PLAYER:자위했다 > 0
	EXP:PLAYER:자위경험 ++
CFLAG:PLAYER:자위했다 = 0
RETURN 1

;-------------------------------------------------
;실행 가능 판정
;-------------------------------------------------
@COM_ABLE751
;자위 종료 실행 판정
SIF !TFLAG:100
	RETURN 0
SIF TARGET > 0 && FLAG:70 && CFLAG:PLAYER:지금바쁨
	RETURN 1
;일괄관리
SIF GLOBAL_COMABLE(751)
	RETURN RESULT
RETURN 1


code:
;-------------------------------------------------
;애무
;애무계 커맨드 레벨 2
;-------------------------------------------------
@COM0

#DIM 키스한다

IF (FIRSTTIME(312,1) && FIRSTTIME(20,1)) || (MASTER_POSE(SET_M, SET_M) != TARGET && MASTER_POSE(0,4)) || (STAIN:구 >= 2 && (STAIN:구 != 16 && STAIN:구 != 17) && ASSIPLAY == 0 && TALENT:PLAYER:악취내성 < 2) || TEQUIP:20
;노예의 입의 더러움이 있을 때 키스는 없다(애액과 모유 얼룩은 OK, 더러움 무시나 조수 조교시는 문제 없음)
;볼개그 사용중도 없음
	키스한다 = 0
ELSEIF !CFLAG:기정사실 & 합의_키스
	키스한다 = 0
ELSE
	키스한다 = 1
ENDIF
;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;봉사 쾌락
TCVAR:PLAYER:108 = 1

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

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 20
	SOURCE:PLAYER:성행동 = 4
	SOURCE:쾌C = 40
	SOURCE:쾌B = 40
	;성기술보정

	SOURCE:PLAYER:성행동 += (ABL:PLAYER:손가락 * 4)/10
	SOURCE:쾌C += ABL:PLAYER:손가락 * 4
	SOURCE:쾌B += ABL:PLAYER:손가락 * 4
	;손가락을 사용하는 조교에서는, 조교자의 손가락 사용에 의해, 쾌감의 소스 증가
	IF TALENT:PLAYER:능숙한손가락
		TIMES SOURCE:쾌C , 1.50
		TIMES SOURCE:쾌B , 1.50
	ENDIF
	IF 키스한다
		SOURCE:PLAYER:성행동 = 1+(ABL:PLAYER:혀 * 3)/20
		SOURCE:쾌M = 20
		SOURCE:쾌M += ABL:PLAYER:혀 * 3
		 SIF TALENT:PLAYER:혀놀림
			TIMES SOURCE:쾌M , 1.50
		;키스경험
		EXP:PLAYER:키스경험 ++
		;노예의 입⇔조교자의 입의 더러움이 이동
		STAIN:구 |= STAIN:PLAYER:구
		STAIN:PLAYER:구 |= STAIN:구
	ENDIF
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	IF HETEROSEX(TARGET, PLAYER)
		EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 5
	ENDIF

	;조교자가 고양이혀 소유의 경우는, 조교자에게 가학쾌락경험을 추가
	SIF TALENT:PLAYER:고양이혀
		EXP:PLAYER:가학쾌락경험 += 1
	;경험
	EXP:PLAYER:수음경험 ++
ELSE

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

	SOURCE:PLAYER:성행동 = 4

	SOURCE:쾌C = 40
	SOURCE:쾌B = 40
	IF 키스한다
		SOURCE:PLAYER:성행동 += (20 + ABL:PLAYER:혀 * 3)/20
		SOURCE:쾌M = 20 + ABL:PLAYER:혀 * 3
		SOURCE:PLAYER:쾌M = 20 + ABL:TARGET:혀 * 3
	ENDIF

	SOURCE:사랑 = 50
	SOURCE:성행동 = 60
	SOURCE:노출 = 20
	SOURCE:불결 = 30
	SOURCE:일탈 = 20
	SOURCE:반감 = 20

	;성기술보정
	SOURCE:PLAYER:성행동 += (ABL:PLAYER:손가락 * 4)/10
	SOURCE:쾌C += ABL:PLAYER:손가락 * 4
	SOURCE:쾌B += ABL:PLAYER:손가락 * 4

	IF TALENT:PLAYER:능숙한손가락
		TIMES SOURCE:쾌C , 1.50
		TIMES SOURCE:쾌B , 1.50
	ENDIF
	SIF 키스한다 && TALENT:PLAYER:혀놀림
		TIMES SOURCE:쾌M , 1.50

	SIF TALENT:PLAYER:혀놀림
		TIMES SOURCE:사랑 , 1.50
	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;억압, 저항 소유에는, 억울소스 추가
	SIF TALENT:자기애 < 0 || TALENT:저항
		SOURCE:울굴 += 20
	;-------------------------------------------------
	;더러움의 처리
	;-------------------------------------------------
	IF !키스한다
		SOURCE:불결 = 0
		SOURCE:사랑 /= 4
		SOURCE:액체 /= 2
	ELSE
		;키스경험
		EXP:키스경험 ++
		EXP:PLAYER:키스경험 ++
		;악취 둔감
		SIF TALENT:악취내성 > 0
			SOURCE:불결 /= 4
		;악취 민감
		SIF TALENT:악취내성 < 0
			SOURCE:불결 *= 3
		;자존심 높음
		SIF TALENT:자존심 > 0
			SOURCE:불결 *= 2
		IF STAIN:PLAYER:구
		;주인의 입의 더러움이 있으면(자) 불결150%
			SOURCE:불결 *= 3
			SOURCE:불결 /= 2
		ENDIF
		;노예의 입⇔조교자의 입의 더러움이 이동
		STAIN:구 |= STAIN:PLAYER:구
		STAIN:PLAYER:구 |= STAIN:구
	ENDIF

	;-------------------------------------------------
	;경험의 처리
	;-------------------------------------------------
	;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
	CALL ADD_EXP_LESNIAN(5)

	;조교자가 고양이혀 소유의 경우는, 조교자에게 가학쾌락경험을 추가
	SIF TALENT:PLAYER:고양이혀
		EXP:PLAYER:가학쾌락경험 += 1
	;경험
	EXP:PLAYER:수음경험 ++
ENDIF
RETURN 1

;-------------------------------------------------
;애무 실행 판정
;-------------------------------------------------
@COM_ABLE0
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(0)
	RETURN RESULT
SIF !TARGET
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF0 애무_t.ERB


path: ERB/커맨드관련/COMF/COMF1 커닐링구스_t.ERB


path: ERB/커맨드관련/COMF/COMF10 유두빨기_t.ERB


path: ERB/커맨드관련/COMF/COMF100 스팽킹_t.ERB


path: ERB/커맨드관련/COMF/COMF101 채찍_t.ERB


path: ERB/커맨드관련/COMF/COMF102 양초_t.ERB


path: ERB/커맨드관련/COMF/COMF103 바늘_t.ERB


path: ERB/커맨드관련/COMF/COMF104 눈가리개_t.ERB


path: ERB/커맨드관련/COMF/COMF105 밧줄_t.ERB


path: ERB/커맨드관련/COMF/COMF106 볼개그_t.ERB


code:
;-------------------------------------------------
;구속
;SM계 커맨드, 레벨 1
;-------------------------------------------------
@COM107
IF CFLAG:억지로질내사정 == 1 && !TEQUIP:구속
	PRINTFORML 이전 억지로 질내사정된%타겟은% 무섭고 싫은 것 같다…
	PRINTFORML [0] 포기한다
	PRINTFORML [1] 이제(벌써) 하지 않기 때문에
	$LOOP
	INPUT
	IF RESULT == 0
		PRINTFORML %타겟이% 화내는 것도 지당해서, 구속을 포기했다
		RETURN -1
	ELSEIF RESULT == 1
		IF ABL:마조끼 >= 3 || (CFLAG:4 + ABL:PLAYER:화술기능 * 100) > 1500
			PRINTFORML 사정사정해 어떻게든%타겟을% 설득했다
			CFLAG:억지로질내사정 = 2
		ELSE
			PRINTFORML %조교자가% 뭐라고 하든, %타겟은% 용서(허락)해 주지 않았다…
			SOURCE:반감 += 10000
			BASE:무드 /= 2
			TFLAG:193 = 1
			RETURN -1
		ENDIF
	ELSE
		GOTO LOOP
	ENDIF
ELSEIF CFLAG:억지로질내사정 == 3 && !TEQUIP:구속
	PRINTFORML 도 들 까는 것도 또 구속하고 싶다고 말하기 시작한 %CALLNAME:PLAYER%에, %타겟은% 차가운 시선을 향했다
	CALL ASK_YN("미안해요",@"그런데도 구속된%타겟이% 좋아합니다")
	IF RESULT == 0
		PRINTFORML 위험을 헤아린%조교자는% 곧 바로 물러났다
		RETURN -1
	ELSEIF RESULT == 1
		IF ABL:마조끼 >= 3 || (CFLAG:4 + ABL:PLAYER:화술기능 * 100) > 3000
			PRINTFORML %타겟은% 왠지 그렇게 말하면서도, 마지막에는 구속시켜 주었다
			PRINTW 아주 쉽다!
		ELSE
			PRINTFORML %타겟은% 아무것도 말하지 않고 %CALLNAME:PLAYER%에 등을 돌려 옷을 입어 버렸다
			CUP:욕정 = 0
			SOURCE:반감 += 10000
			BASE:무드 = 0
			FOR LOCAL, 0, CHARANUM
				SIF CFLAG:우후후 == 2
					CALL SET_DERAY(5, LOCAL)
				CALL ENDUFUFU(LOCAL)
			NEXT
			TFLAG:106 = 0
			;PLAYER와의 접촉 위치를 리셋
			CALL TOUCH_SET(0,0,0,1)
			;(은)는만 플래그를 오프
			TEQUIP:2 = 0
			TEQUIP:상반신은만상태 = 0
			;캐릭터 전원의 복재세팅
			FOR LOCAL, 0, CHARANUM
				CALL CLOTHES_SETTING_TRAIN(LOCAL)
				;윗도리탈의가끝난상태 플래그를 오프
				TEQUIP:LOCAL:5 = 0
			NEXT
			TFLAG:193 = 1
			RETURN 1
		ENDIF
	ENDIF
ENDIF
;-------------------------------------------------
;착탈의처리
IF TEQUIP:구속
	TEQUIP:구속 = 0
	TCVAR:억지로 = 0
ELSE
	TEQUIP:구속 = 1
ENDIF

;-------------------------------------------------
;COM별 FLAG의 설정
;-------------------------------------------------
;행위자
TCVAR:116 = PLAYER
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:체력 += 10
DOWNBASE:기력 += 80
	SOURCE:PLAYER:강요=60

SOURCE:고통 = 60
SOURCE:공포 = 180
SOURCE:굴종 = 100
SOURCE:반감 = 350
;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;긴박경험이 높으면 소비 감소
IF EXP:긴박경험 < EXPLV:3
	TIMES DOWNBASE:체력 , 1.00
	TIMES DOWNBASE:기력 , 1.00
ELSEIF EXP:긴박경험 < EXPLV:4
	TIMES DOWNBASE:체력 , 0.90
	TIMES DOWNBASE:기력 , 0.90
ELSE
	TIMES DOWNBASE:체력 , 0.70
	TIMES DOWNBASE:기력 , 0.70
ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:긴박경험 += 1
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
;IF HETEROSEX(TARGET, PLAYER)
;	EXP:(50 + HETEROSEX(TARGET, PLAYER)) += 1
;	EXP:PLAYER:(50 + HETEROSEX(TARGET, PLAYER)) += 1
;ENDIF
RETURN 1
;-------------------------------------------------
;장착 계속의 처리
;-------------------------------------------------
@EQUIP_COM107(ARG)
PRINTL ＜구속중＞
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:ARG:체력 += 10

SOURCE:ARG:고통 += 30
SOURCE:ARG:공포 += 180
SOURCE:ARG:굴종 += 50
SOURCE:ARG:반감 += 200
;-------------------------------------------------
;특수소스처리
;-------------------------------------------------
;긴박경험이 높으면 소비 감소
LOCAL = 60
IF EXP:ARG:긴박경험 < EXPLV:3
	TIMES LOCAL , 1.00
ELSEIF EXP:ARG:긴박경험 < EXPLV:4
	TIMES LOCAL , 0.90
ELSE
	TIMES LOCAL , 0.70
ENDIF
DOWNBASE:ARG:기력 += LOCAL

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
EXP:ARG:긴박경험 ++
EXP:PLAYER:가학쾌락경험 += 1
RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE107
;구속플레이 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(107)
	RETURN RESULT
;아이템 을 가지고 있는인가, 아이템 없음 설정이 아니면 안 돼
SIF ITEM:27 == 0 && NOITEM == 0
	RETURN 0
;정지 중에는 불가
SIF FLAG:70
	RETURN 0
;밧줄로 묶고 있으면 안 돼
SIF TEQUIP:밧줄
	RETURN 0
;수면간중
SIF CFLAG:장난 > 1
	RETURN 0
;해제는 언제라도 가능
SIF TEQUIP:구속
	RETURN 1
RETURN 1

path: ERB/커맨드관련/COMF/COMF107 구속플레이_t.ERB


path: ERB/커맨드관련/COMF/COMF108 젖스팽킹_t.ERB


path: ERB/커맨드관련/COMF/COMF11 유두빨기_t.ERB


path: ERB/커맨드관련/COMF/COMF12 가슴주무르기_t.ERB


path: ERB/커맨드관련/COMF/COMF120 커닐링구스강제_t.ERB


path: ERB/커맨드관련/COMF/COMF121 짝맞추기_t.ERB


code:
;-------------------------------------------------
;조수를 범하게 한다
;조수에 의한 커맨드, 및 레즈비언 플레이, 레벨 4
;-------------------------------------------------
@COM122
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
;ABL:봉사정신
IF ABL:봉사정신
	SIF S
		PRINT  +
	A += ABL:봉사정신 * 4
	PRINT 봉사정신
	PRINTV 'LV, ABL:봉사정신, '(, ABL:봉사정신 * 4, ')
	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
;수줍음
IF TALENT:수치심 > 0
	PRINT  -
	A -= 1
	PRINT 수줍음
	PRINTV '(, 1, ')
	S = 1
ENDIF
;헌신적
IF TALENT:헌신적
	SIF S
		PRINT  +
	A += 6
	PRINT 헌신적
	PRINTV '(, 6, ')
	S = 1
ENDIF
;쾌감에 솔직
IF TALENT:쾌감응답 > 0
	SIF S
		PRINT  +
	A += 2
	PRINT 쾌감에 솔직
	PRINTV '(, 2, ')
	S = 1
ENDIF
;쾌감에 부정(음란, 창부로 무효)
IF TALENT:쾌감응답 < 0 && !TALENT:음란
	PRINT  -
	A -= 2
	PRINT 쾌감에 부정
	PRINTV '(, 2, ')
	S = 1
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 TALENT:PLAYER:처녀
	PRINT  -
	A -= 15
	PRINT 조수가 처녀
	PRINTV '(, 15, ')
	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 = TARGET
;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=촉수 12=A고문 13=V 꾸짖고)

SETBIT TCVAR:TARGET:0, 3
TCVAR:TARGET:2 = 1
;강도
TCVAR:TARGET:4 = 2000

TEQUIP:ASSI:50 = TARGET
;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:체력 += 50
DOWNBASE:기력 += 150
SOURCE:PLAYER:성행동=20
SOURCE:쾌C = 400
SOURCE:성행동 = 500
SOURCE:달성 = 400
SOURCE:굴종 = 700
SOURCE:일탈 = 500
SOURCE:반감 = 500

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

;조수가 처녀의 경우, 굴복 일탈이 배화해, 순종이 2가 된다. 다만 한번뿐
IF TALENT:PLAYER:처녀 == 1
	TIMES SOURCE:굴종 , 5.00
	TIMES SOURCE:일탈 , 3.00
	TALENT:PLAYER:처녀 = 0
	IF !GETBIT(CFLAG:3, 4)
		;이상경험 추가(일회뿐)
		EXP:이상경험 += 1
		SETBIT CFLAG:3, 4
	ENDIF
	IF ABL:순종 < 2
		PRINTFORML 그리고%ABLNAME:0%가 2가 되었다
		ABL:순종 = 2
	ENDIF
ENDIF
EXP:ASSI:V경험 += 1
;-------------------------------------------------
;더러움의 처리
;-------------------------------------------------
;사정에 관계없이 행해지는 처리는 여기에서
IF HAS_PENIS(TARGET)
	;노예의 P⇔조교자의 V의 더러움이 이동
	STAIN:2 |= STAIN:PLAYER:3
	STAIN:PLAYER:3 |= STAIN:2
ENDIF

;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;동성애 레즈비언이라면 반환값 1 동성애자라면 반환값 2
SIF HETEROSEX(TARGET, ASSI)
	EXP:(50 + HETEROSEX(TARGET, ASSI)) += 10

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE122
;조수를 범하게 하는 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(122)
	RETURN RESULT
;조수가 아니면 안 돼
SIF PLAYER != ASSI
	RETURN 0
;조수가 남자라면 안 돼
SIF !(TALENT:ASSI:2 & 1)
	RETURN 0
;체격 차이가 있는 경우는 주인이 금단의지식 소유가 아니면 안 돼
SIF ABS(TALENT:체형 - TALENT:ASSI:체형) > 2 && TALENT:MASTER:금단의지식 == 0
	RETURN 0
;남자, 반인반요, 후타나리, 혹은 페니스밴드가 없으면 안 돼
SIF !(HAS_PENIS(TARGET)) && ITEM:PBAND == 0
	RETURN 0
;오나홀사용중은 안 돼
SIF TEQUIP:12
	RETURN 0
;하반신속옷착의
SIF TEQUIP:0 & 4
	RETURN 0
;목욕탕플레이중은 플레이매트가 없으면 안 돼
IF TEQUIP:31
	SIF ITEM:20 == 0 && NOITEM == 0
		RETURN 0
ENDIF
;정지 중에는 불가
SIF FLAG:70 == 1
	RETURN 0
RETURN 1

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


path: ERB/커맨드관련/COMF/COMF123 풋잡_t.ERB


code:
;-------------------------------------------------
;풋잡한다
;조수에 의한 커맨드, 및 레즈비언 플레이, 레벨 1
;-------------------------------------------------
@COM123
;-------------------------------------------------
;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 = 7
;강도
TCVAR:TARGET:4 = 1000

TCVAR:PLAYER:기학플래그 = 1

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
DOWNBASE:체력 += 30
DOWNBASE:기력 += 150
SOURCE:PLAYER:성행동 =10

SOURCE:쾌C = 250
SOURCE:달성 = 200
SOURCE:노출 = 300
SOURCE:굴종 = 300
SOURCE:일탈 = 350
SOURCE:반감 = 350

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

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

;마조를 본다
IF TALENT:마조
	TIMES SOURCE:달성 , 2.50
	TIMES SOURCE:굴종 , 2.50
	TIMES SOURCE:액체 , 1.20
	TIMES SOURCE:욕정 , 1.20
ENDIF

;도착적
SIF TALENT:도착적
	TIMES SOURCE:달성 , 1.80

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

RETURN 1

;-------------------------------------------------
;실행 판정
;-------------------------------------------------
@COM_ABLE123
;풋잡 실행 판정
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(123)
	RETURN RESULT
;남자나 반인반요인가 양성이 아니면 안 돼
SIF !(HAS_PENIS(TARGET))
	RETURN 0
;하반신속옷착의
SIF TEQUIP:0 > 1
	RETURN 0
;정지 중에는 불가
SIF FLAG:70 == 1
	RETURN 0
RETURN 1

path: ERB/커맨드관련/COMF/COMF123 풋잡받는다_t.ERB


path: ERB/커맨드관련/COMF/COMF124 수음한다_t.ERB


path: ERB/커맨드관련/COMF/COMF125 애무시킨다_t.ERB


path: ERB/커맨드관련/COMF/COMF126 젖몸싸움_t.ERB


path: ERB/커맨드관련/COMF/COMF127 Ａ펄을넣는다_t.ERB


path: ERB/커맨드관련/COMF/COMF13 애널벌리기_t.ERB


path: ERB/커맨드관련/COMF/COMF130 정상위된다_t.ERB


path: ERB/커맨드관련/COMF/COMF131 후배위된다_t.ERB


path: ERB/커맨드관련/COMF/COMF132 대면좌위된다_t.ERB


path: ERB/커맨드관련/COMF/COMF133 배면좌위된다_t.ERB


path: ERB/커맨드관련/COMF/COMF140 이라마치오_t.ERB


code:
;-------------------------------------------------
;피스트성교
;하드한 조교 커맨드, 레벨 4
;-------------------------------------------------
@COM141
;-------------------------------------------------
;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 = 13
;강도
TCVAR:TARGET:4 = 1600

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

	;피스트등의 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

ELSE

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

	SOURCE:쾌V = 200
	SOURCE:고통 = 1500
	SOURCE:노출 = 100
	SOURCE:굴종 = 1200
	SOURCE:일탈 = 1200
	SOURCE:반감 = 1200

	;-------------------------------------------------
	;특수소스처리
	;-------------------------------------------------
	;피스트등의 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

ENDIF
;-------------------------------------------------
;경험의 처리
;-------------------------------------------------
;V경험
EXP:V경험 += 24
;V확장경험
IF !EXP:V확장경험 && !EXP:A확장경험 && !GETBIT(CFLAG:4 , 5)
	EXP:이상경험 ++
	SETBIT CFLAG:4, 5
ENDIF

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_ABLE141
;피스트성교
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(141)
	RETURN RESULT
;침대 룸이 아니면 안 돼
SIF !BEDROOM(CFLAG:PLAYER:현재위치)
	RETURN 0
;바이브 사용중은 불가
SIF TEQUIP:13
	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경험이 필요
	SIF EXP:0 < 150
		RETURN 0
	;작은 체형이라면 순종이 4이상 또한 마조끼이 4이상이 아니면 실행할 수 없다
	IF TALENT:체형 < 0
		SIF ABL:순종 <= 3 || ABL:마조끼 <= 3
			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/COMF141 피스트퍽_t.ERB


code:
;-------------------------------------------------
;애널피스트
;계 커맨드, 레벨
;-------------------------------------------------
@COM142
;-------------------------------------------------
;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 = 1600

;-------------------------------------------------
;소스 추가 처리
;-------------------------------------------------
;소비 체력, 기력
IF FLAG:70 == 1
	BASE:MASTER:TSP -= 300
	SOURCE:PLAYER:성행동=10
	SOURCE:PLAYER:강요=750
	SOURCE:쾌A = 200
	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:기력 += 150
	SOURCE:PLAYER:성행동=10
	SOURCE:PLAYER:강요=1500

	SOURCE:쾌A = 200
	SOURCE:고통 = 1500
	SOURCE:노출 = 100
	SOURCE:굴종 = 1200
	SOURCE:일탈 = 1200
	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경험 += 24

;A확장경험
IF !EXP:V확장경험 && !EXP:A확장경험 && !CFLAG:3 & 이상_확장
	EXP:이상경험 += 1
	CFLAG:3 |= 이상_확장
ENDIF

EXP:A확장경험 += 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_ABLE142
;애널피스트
SIF !TFLAG:100
	RETURN 0
;일괄관리
SIF GLOBAL_COMABLE(142)
	RETURN RESULT
;침대 룸이 아니면 안 돼
SIF !BEDROOM(CFLAG:PLAYER:현재위치)
	RETURN 0
;애널바이브 사용중은 불가
SIF TEQUIP:14
	RETURN 0
;관장＋애널 플러그 사용중은 불가
SIF TEQUIP:21
	RETURN 0
;ASSI의 경우, 순종 3이상이나 새드가 아니면 할 수 없다.
IF ASSIPLAY
	SIF ABL:ASSI:순종 < 4 && TALENT:ASSI:새드 == 0
	RETURN 0
ENDIF
IF FLAG:70 == 1
ELSE
;일정한 A경험이 필요
SIF EXP:1 < 150
	RETURN 0
;작은 체형이라면 순종이 4이상 또한 마조끼이 4이상이 아니면 실행할 수 없다
IF TALENT:체형 < 0
	SIF ABL:순종 <= 3 || ABL:마조끼 <= 3
		RETURN 0
ENDIF
ENDIF
;조교 대상이 난쟁이 체형의 경우는 주인이 금단의지식 소유가 아니면 안 돼
SIF ABS(TALENT:체형 - TALENT:PLAYER:체형) > 2 && TALENT:MASTER:금단의지식 == 0
	RETURN 0

;하반신착의
SIF TEQUIP:0 > 1
	RETURN 0
;애널비즈 사용중은 불가
SIF TEQUIP:15
	RETURN 0
;풍선 사용중은 불가
SIF TEQUIP:22
	RETURN 0
;전극 사용중은 불가
SIF TEQUIP:23
	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/COMF142 애널피스트_t.ERB


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


path: ERB/커맨드관련/COMF/COMF144 방뇨_t.ERB


path: ERB/커맨드관련/COMF/COMF145 애널봉사_t.ERB


path: ERB/커맨드관련/COMF/COMF146 관장기_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


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


path: ERB/커맨드관련/COMF/COMF150 가슴골을범함_t.ERB


path: ERB/커맨드관련/COMF/COMF180 로션_t.ERB


path: ERB/커맨드관련/COMF/COMF181 미약_t.ERB


path: ERB/커맨드관련/COMF/COMF182 이뇨제_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


path: ERB/커맨드관련/COMF/COMF184 야외플레이_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


path: ERB/커맨드관련/COMF/COMF186 수치플레이_t.ERB


path: ERB/커맨드관련/COMF/COMF187 욕실플레이_t.ERB


path: ERB/커맨드관련/COMF/COMF188 샤워_t.ERB


path: ERB/커맨드관련/COMF/COMF189 새댁플레이_t.ERB


path: ERB/커맨드관련/COMF/COMF19 키스_계속_t.ERB


path: ERB/커맨드관련/COMF/COMF190 에이프런을입힘_t.ERB


path: ERB/커맨드관련/COMF/COMF191 수면제_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


path: ERB/커맨드관련/COMF/COMF20 키스_t.ERB


path: ERB/커맨드관련/COMF/COMF21 아무것도안한다_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:
;-------------------------------------------------
;손가락 삽입
;애무계 커맨드, 레벨 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