code:
;================================================================
;ち○この状態リセット判定
;RETURNの値によって判断する
;0:EVENT_MESSAGE表示あり・ステ変動あり・継続する
;1:EVENT_MESSAGE表示なし・ステ変動あり・継続する
;2:EVENT_MESSAGE表示なし・ステ変動なし・継続する（3P等）
;3:EVENT_MESSAGE表示なし・ステ変動なし・継続なし（ﾀｰﾝ消費せずに継続を止める。스마타→ｸﾝﾆ等）
;================================================================
@UNEQUIP_CHECK(ARG = -1)
SELECTCASE ARG
	;커닐링구스
	CASE 1
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
			RETURN 3
		ENDIF
	;펠라한다
	CASE 2
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;손가락삽입
	CASE 3
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;애널핥기
	CASE 4
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;애널애무
	CASE 5
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;足扱なら継続終了
			SIF TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;조개벌리기
	CASE 9
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83
				RETURN 3
	;자위
	CASE 11
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83
				RETURN 3
	;키스
	CASE 20
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗ中なら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;아무것도안한다
	CASE 21
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;何かが継続中なら페니스を抜くので継続終了
			SIF TEQUIP:37 || TEQUIP:38 || TEQUIP:39 || TEQUIP:40
			RETURN 3
		ENDIF
	;회화
	CASE 22
		;ﾊﾟｲﾌｪﾗ中なら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;선물
	CASE 23
		;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
	;가사
	CASE 26
		;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		;수음・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 85
				RETURN 3
	;노래연습
	CASE 27
		;ﾊﾟｲﾌｪﾗ中なら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;벽쿵
	CASE 30
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;위협한다
	CASE 31
		;ﾊﾟｲﾌｪﾗ中なら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;바이브
	CASE 44
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
		ENDIF

	;줄타기
	CASE 50
		;가슴挿入なら継続終了
		SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
			RETURN 3
		;수음・스마타・足扱なら継続終了
		SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
			RETURN 3
	;정상위
	CASE 60
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;후배위
	CASE 61
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;정상위애널
	CASE 62
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;후배위애널
	CASE 63
		;조교자가 조수일 때、
		IF ASSIPLAY
			;足扱なら継続終了
			SIF TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;역강간
	CASE 64
		;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;젖퍽
	CASE 65
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;기승위
	CASE 66
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;기승위Ａ
	CASE 67
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;대면좌위
	CASE 68
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;배면좌위
	CASE 69
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;대면좌위A
	CASE 70
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;수음
	CASE 80
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;펠라치오
	CASE 81
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;파이즈리
	CASE 82
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
		ENDIF
	;스마타
	CASE 83
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;거품마사지
	CASE 84
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;풋잡
	CASE 85
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;足扱なら継続終了
			SIF TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;발핥기강제
	CASE 86
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;세로파이즈리
	CASE 87
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
		ENDIF
	;파이즈리 펠라
	CASE 88
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
		ENDIF
	;모유마시기
	CASE 89
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;足扱なら継続終了
			SIF TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;스팽킹
	CASE 100
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;足扱なら継続終了
			SIF TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;채찍
	CASE 102
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;바늘
	CASE 104
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;밧줄
	CASE 106
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3

	;귀갑묶기
	CASE 108
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3

	;전기안마
	CASE 109
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;Ｘ字형틀구속
	CASE 110
		;すべて継続終了
		SIF TEQUIP:37 == 60 || TEQUIP:37 == 61 || TEQUIP:37 == 66 || TEQUIP:37 == 68 || TEQUIP:37 == 69 || TEQUIP:37 == 72
			RETURN 3
		SIF TEQUIP:38 == 62 || TEQUIP:38 == 63 || TEQUIP:38 == 67 || TEQUIP:38 == 70 || TEQUIP:38 == 71 || TEQUIP:38 == 73
			RETURN 3
		SIF TEQUIP:39 == 65 || TEQUIP:39 == 81 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88 || TEQUIP:39 == 140
			RETURN 3
		SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
			RETURN 3
	;커닐링구스강제
	CASE 120
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;조개맞대기
	CASE 121
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;조수를범하게한다
	CASE 122
		;조교자가 조수일 때、
		IF ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;풋잡한다
	CASE 123
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;서로가슴비비기
	CASE 126
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음なら継続終了
			SIF TEQUIP:40 == 80
				RETURN 3
	;이라마치오
	CASE 140
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;피스트퍽
	CASE 141
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:39 == 83
				RETURN 3
		ENDIF
	;애널피스트
	CASE 142
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:39 == 83
				RETURN 3
		ENDIF
	;양구멍피스트
	CASE 143
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
	;애널봉사강제
	CASE 145
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;浣腸
	CASE 146
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;공기관장
	CASE 147
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;확장벌룬
	CASE 148
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;애널전극
	CASE 149
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;스마타なら継続終了
			SIF TEQUIP:40 == 83
				RETURN 3
		ENDIF
	;뱀장어목욕
	CASE 151
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;벌레목욕
	CASE 152
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;도게자강제
	CASE 153
		;조교자가 주인일 때、
		IF !ASSIPLAY
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
		ENDIF
		;조교자가 조수일 때、
		IF ASSIPLAY
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
		ENDIF
	;촉수소환
	CASE 160
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;미약
	CASE 181
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;이뇨제
	CASE 182
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;야외플레이
	CASE 184
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;목욕탕플레이
	CASE 187
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;수음・스마타・足扱なら継続終了
			SIF TEQUIP:40 == 80 || TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;신혼플레이
	CASE 189
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
	;강정신약
	CASE 191
			;ﾊﾟｲﾌｪﾗなら継続終了
			SIF TEQUIP:39 == 88
				RETURN 3
	;콘돔精飲(奴隷)
	CASE 192
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
	;정액키스
	CASE 194
			;가슴挿入なら継続終了
			SIF TEQUIP:39 == 65 || TEQUIP:39 == 82 || TEQUIP:39 == 87 || TEQUIP:39 == 88
				RETURN 3
			;ﾌｪﾗ中ならこのﾀｰﾝ効果消す（継続は維持）
			SIF TEQUIP:39 == 81
				RETURN 2
	;제모
	CASE 195
			;스마타・足扱なら継続終了
			SIF TEQUIP:40 == 83 || TEQUIP:40 == 85
				RETURN 3
	;3P
	CASE 500
		RETURN 2
	;シックスナイン
	CASE 501
		;조교자가 주인일 때はこのﾀｰﾝ効果消す（継続は維持）
		SIF !ASSIPLAY
			RETURN 2
	;乱れ牡丹
	CASE 504
		;조교자가 주인일 때はこのﾀｰﾝ効果消す（継続は維持）
		SIF !ASSIPLAY
			RETURN 2
	;騎乗乳房자위
	CASE 505
		;主人に기승위中はこのﾀｰﾝ効果消す（継続は維持）
		SIF TEQUIP:37 == 66 || TEQUIP:38 == 67
			RETURN 2
	;挿入Ｇスポ責め
	CASE 506
		;조교자가 주인일 때はこのﾀｰﾝ効果消す（継続は維持）
		SIF !ASSIPLAY
			RETURN 2
	;挿入子宮입責め
	CASE 507
		;조교자가 주인일 때はこのﾀｰﾝ効果消す（継続は維持）
		SIF !ASSIPLAY
			RETURN 2
	;６９파이즈리
	CASE 508
		;조교자가 주인일 때はこのﾀｰﾝ効果消す（継続は維持）
		SIF !ASSIPLAY
			RETURN 2
	;二本フェラ
	CASE 511
		RETURN 2
	;主人の페니스を抜く（膣）～その他
	CASE 512 to 515
		RETURN 3

	CASEELSE
		RETURN 0
ENDSELECT
RETURN 0


code:
@SHOW_USERCOM
Z = 0
;強制終了フラグが立っている場合、CALLTRAINを利用してEmuera側の入力処理をスキップ。なんか出るけど気にしたら負け
IF MEETING_CHARA_TRACKED == __INT_MAX__
	SELECTCOM:1 = 999
	CALLTRAIN 1
	RETURN
ENDIF
;コマンドを独自に표시する-------------------------------------------------------
;コマンド표시用フラグオン
TEQUIP:41 = 1
FOR LOCAL, 0, 1000
	;名前の長さが0の場合、ないものとみなす
	SIF STRLENS(TRAINNAME:LOCAL) == 0
		CONTINUE
	;COMABLEをチェック
	TRYCCALLFORM COM_ABLE{LOCAL}
		SIF RESULT == 0
			CONTINUE
	CATCH
	ENDCATCH
	;文字列の初期化の仕方はこれで良いものか…
	LOCALS =
	CALL UNEQUIP_CHECK(LOCAL)
	;現在계속中の行為が終了する場合は★を표시
	SIF RESULT == 3
		LOCALS = ★
	;@COMNAMEがある場合は読み込んで、RESULTSをコマンドとして표시する
	TRYCCALLFORM COMNAME{LOCAL}
		;RESULTが1なら、계속効果が消えるｺﾏﾝﾄﾞなので★を표시（페니스를 뽑는다等）
		;SIF RESULT == 1
		;	LOCALS = ★
		CALL COMMAND_COLOR_SET
		PRINTFORMC %LOCALS%%RESULTS%[{LOCAL,3}]
		RESETCOLOR
	CATCH
		CALL COMMAND_COLOR_SET
		PRINTFORMC %LOCALS%%TRAINNAME:LOCAL%[{LOCAL,3}]
		RESETCOLOR
	ENDCATCH

	;改行処理
	CALL CHECK_NEWLINE
NEXT
;一旦0に戻す(着衣 설정を표시させるため)
TEQUIP:41 = 0
;USERCOM표시の前に一度、改行する
PRINTL
;-----------------------------------------------------------------

A = 0
Z = 0
PRINTC 이력 표시[800]
CALL CHECK_NEWLINE
PRINTC 더러움표시[801]
CALL CHECK_NEWLINE
PRINTC 능력 표시[802]
CALL CHECK_NEWLINE
B = 11
D = 0
REPEAT 50
	C = B+COUNT
	;미약、이뇨제、비디오카메라、신혼플레이、수치플레이、강정신약使用時は除く
	SIF C == 26
		CONTINUE
	SIF C == 27
		CONTINUE
	SIF C == 28
		CONTINUE
	SIF C == 30
		CONTINUE
	SIF C == 33
		CONTINUE
	SIF C == 34
		CONTINUE
	SIF C == 42
		CONTINUE
	SIF C == 43
		CONTINUE
	;특수조교 중のアイテム装備時も除く
	SIF INRANGE(C,45,48)
		CONTINUE
	SIF C == 49 && IS_IN_SPECIAL_TRAIN_PLAYING() ;밧줄化粧は특수조교 중のみ除く
		CONTINUE
	SIF TEQUIP:C
		D = 1
REND
IF D == 0 && (!IS_IN_SPECIAL_TRAIN_PLAYING() || IS_SP_TRAIN_BEARABLE())
	PRINTC 의상 설정[803]
	CALL CHECK_NEWLINE
ENDIF
IF (TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290) || (TALENT:287 || TALENT:289 || TALENT:290)
	IF ITEM:45 > 0
		PRINTC 콘돔 설정[804]
		CALL CHECK_NEWLINE
	ENDIF
	PRINTC 자동 사정 장소 변경[805]
	CALL CHECK_NEWLINE
ENDIF
IF ASSIPLAY
	PRINTC 능력 표시(조수)[806]
	CALL CHECK_NEWLINE
ELSE
	PRINTC 능력 표시(マスター)[806]
	CALL CHECK_NEWLINE
ENDIF
IF TEQUIP:44 && TFLAG:55 == 0
	PRINTC 극한조교 개시[807]
ELSEIF TALENT:PLAYER:카리스마 && TFLAG:55 == 0
	PRINTC 극한조교 개시[807]
ELSEIF TFLAG:55 == 1 && BASE:0 >= 1
	PRINTC 극한조교 중지[807]
ENDIF
SIF D == 0 & IS_COSTUME_CHANGEABLE(TARGET)
	PRINTC 옷을 갑아입힌다[808]
CALL CHECK_NEWLINE
IF SP_TRAIN_MEETING_CHARA != 0
	SELECTCASE SP_TRAIN_MEETING_TYPE
		CASE 0
			PRINTC 도망치게 한다[809]
		CASE 1
			PRINTC 전화를 끊게 한다[809]
		CASEELSE
			THROW 부정한 TYPE입니다. : {SP_TRAIN_MEETING_TYPE}
	ENDSELECT
ELSEIF IS_IN_SPECIAL_TRAIN_READIED() && SP_TRAIN_MEETING_CHARA == 0
	PRINTC 　　이동한다[809]
ENDIF
PRINTFORMC 프로필 (\@TALENT:TARGET:교제 ? 恋人 # 노예 \@)[810]
SIF PLAYER == ASSI
	PRINTC 프로필 (조수)[811]
SIF PLAYER == MASTER
	PRINTC 프로필 (주인)[812]
CALL CHECK_NEWLINE
IF ASSI >= 0 && TFLAG:55 == 0
	IF ASSIPLAY && TEQUIP:25 == 0
		PRINTC 마스터와 교대[900]
	ELSEIF TEQUIP:25 == 0
		PRINTC 조수와 교대[900]
	ENDIF
	CALL CHECK_NEWLINE
ENDIF
CALL CHECK_NEWLINE
PRINTC 조교 종료[999]
IF PREVCOM >= 0
	PRINTL
	PRINT ＜전회 조교 커맨드:
	PRINTS STR:0
	SIF TFLAG:50
		PRINT (조수)
	PRINTL ＞
ENDIF

IF IS_IN_SPECIAL_TRAIN_PLAYING()
	PRINTL
	PRINTL
	CALL GET_SLAVE_REACTION()
ENDIF

@USERCOM
;★Xに入力値を代入
X = RESULT

IF RESULT == 800
	CALL SHOW_EQUIP
	RETURN 1
ELSEIF RESULT == 801
	CALL STAIN_INFO
	RETURN 1
ELSEIF RESULT == 802
	LOCAL:99 = TARGET
	CALL SHOW_INFO,(LOCAL:99)
	RETURN 1
ELSEIF RESULT == 803 && D == 0
	CALL CLOTHES_CHANGE
	;初回全裸判定
	IF CFLAG:54 <= 3 && IS_CHARA_TOPLESS() && IS_CHARA_BOTTOMLESS()
		DOTRAIN 517
	;初回下半身노출判定
	ELSEIF CFLAG:54 <= 2 && IS_CHARA_BOTTOMLESS()
		DOTRAIN 518
	;初回上半身노출判定
	ELSEIF CFLAG:54 <= 1 && !TALENT:남자 && IS_CHARA_TOPLESS() && !IS_CHARA_BOTTOMLESS()
		DOTRAIN 519
	;初回下着判定（オンナ）
	ELSEIF CFLAG:54 == 0 && !TALENT:남자 && IS_CHARA_UNDERWEAR() && IS_CHARA_NOOVERWEAR()
		DOTRAIN 520
	;初回下着判定（남자）
	ELSEIF CFLAG:54 == 0 && TALENT:남자 && IS_CHARA_UNDERWEAR() && IS_CHARA_NOOVERWEAR()
		DOTRAIN 520
	ENDIF
	RETURN 1
ELSEIF RESULT == 804 && ((TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290) || (TALENT:287 || TALENT:289 || TALENT:290))
	CALL CONDOM_SETTING
	RETURN 1
ELSEIF RESULT == 805 && ((TALENT:PLAYER:287 || TALENT:PLAYER:289 || TALENT:PLAYER:290) || (TALENT:287 || TALENT:289 || TALENT:290))
	CALL SAMENPLACE_SETTING ( 1 )
	RETURN 1
ELSEIF RESULT == 806
	PRINTSL NAME:PLAYER
	LOCAL:99 = PLAYER
	CALL SHOW_INFO,(LOCAL:99)
	WAIT
	RETURN 1
ELSEIF RESULT == 807 && TFLAG:55 == 0
	IF TEQUIP:44 == 1 || TALENT:PLAYER:카리스마
		PRINTL 극한조교 개시
		TFLAG:55 = 1
		RETURN 1
	ENDIF
ELSEIF RESULT == 807 && TFLAG:55 == 1
	IF BASE:0 >= 1
		PRINTL 극한조교 중지
		TFLAG:55 = 0
		IF BASE:0 < 500
			PRINTW （체력이 한계에 달했습니다　조교를 종료합니다）
			BEGIN AFTERTRAIN
		ENDIF
		RETURN 1
	ENDIF
ELSEIF RESULT == 808 && IS_COSTUME_CHANGEABLE(TARGET)
	CALL SELECT_COSTUME_SET
ELSEIF RESULT == 809 && SP_TRAIN_MEETING_CHARA != 0
	PRINTFORMW 이 이상 계속하면 정말 들킬지도 모른다････。
	SELECTCASE SP_TRAIN_MEETING_TYPE
		CASE 0
			PRINTFORMW %CALLNAME:TARGET%에게 눈치를 줘서 %조사처리(GET_SP_TRAIN_MEETING_CHARA_NAME(),"와")% 헤어지게 했다.
			SIF SP_TRAIN_MEETING_CHARA > 0
				TALENT:SP_TRAIN_MEETING_CHARA:경계 += MEETING_CHARA_TRACKED > 100 ? 2 # 1
		CASE 1
			PRINTFORMW %조사처리(CALLNAME:TARGET),"로")%부터 전화를 빼앗아 강제로 끊었다.
			SIF SP_TRAIN_MEETING_CHARA > 0
				TALENT:SP_TRAIN_MEETING_CHARA:경계 += 1
		CASEELSE
			THROW 부정한 TYPE입니다. : {SP_TRAIN_MEETING_TYPE}
	ENDSELECT
	SP_TRAIN_MEETING_TURNS = 0
	SP_TRAIN_MEETING_CHARA = 0
	MEETING_CHARA_TRACKED = 0
	SP_TRAIN_MEETING_TYPE = 0
ELSEIF RESULT == 809 && IS_IN_SPECIAL_TRAIN_READIED() && SP_TRAIN_MEETING_CHARA == 0
	CALL SP_TRAIN_MOVE_TO()
ELSEIF RESULT == 810 || (RESULT == 811 && ASSI > 0) || RESULT == 812
	CALL LOOK_PROFILE(EVALUATE(GET_BETWEEN_STRING("MASTER,ASSI,TARGET",",",812 - RESULT)),1)
ELSEIF RESULT == 900 && ASSI > 0 && TEQUIP:25 == 0 && TFLAG:55 == 0
	IF BASE:ASSI:체력 < 500
		PRINTFORMW 이 이상은 %조사처리(CALLNAME:ASSI,"이")% 위험하다････。
	ELSE
		IF ASSIPLAY
			ASSIPLAY = 0
			PLAYER = MASTER
		ELSE
			ASSIPLAY = 1
			PLAYER = ASSI
		ENDIF
	ENDIF
	RETURN 1
ELSEIF RESULT == 999
	SIF BASE:0 == 0 && TFLAG:57 >= 1
		BASE:0 -= TFLAG:57
	BEGIN AFTERTRAIN
	RETURN 1
ENDIF

;★入力した値のコマンドが存在するか確認
SIF ( X < 0 || X >= VARSIZE("TRAINNAME") || TRAINNAME:X == "" )
	RETURN 0
;★コマンド確認用フラグオン
TEQUIP:41 = 1
TRYCALLFORM COM_ABLE{X}
SIF RESULT == 0
	RETURN 0
;★存在するならそのコマンドを実行する
DOTRAIN X

RETURN 0

@EVENTCOMEND
;強制勃起の処理
SIF TALENT:음핵피어스 && PALAM:0 <= 5000
	PALAM:0 = 5000
SIF TALENT:유두피어스 && PALAM:3 <= 5000
	PALAM:3 = 5000

;気絶
IF BASE:0 <= 0 && TFLAG:56 == 0
	PRINTL
	PRINTFORM %타겟호칭은% 격렬한 조교에 의해 기절했습니다……
	TFLAG:56 = 1
ENDIF

IF GET_DO_AUTOTRAIN() >= 0
	DOTRAIN GET_DO_AUTOTRAIN()
	TFLAG:51 = 0
ENDIF
TFLAG:51 -= 1
SIF TFLAG:51 < 0
	TFLAG:51 = 0

;영구발정は勝손に濡れていく
IF TALENT:영구발정 && TALENT:남자 == 0
	PRINTL
	IF TALENT:젖기쉬움 == 1
		PALAM:4 += 1500
	ELSEIF TALENT:젖기어려움 == 1
		PALAM:4 += 500
	ELSE
		PALAM:4 += 1000
	ENDIF
	PRINTFORMW 발정한 %CALLNAME:TARGET%의 비렬에서 애액이 흘러내리고 있다…
ENDIF
IF PLAYER != MASTER && BASE:PLAYER:체력 <= 500
	PRINTFORMW 슬슬 %CALLNAME:ASSI%도 체력이 한계에 달했다. 교대해주자････。
	PLAYER = MASTER
	ASSIPLAY = 0
ENDIF

@GET_DO_AUTOTRAIN()
#FUNCTION
;음액대량분사
IF TFLAG:51 >= (13+TFLAG:54) && (EX:0 + EX:1 + EX:2 + EX:3) >=50 && TALENT:젖기어려움
	RETURNF 521
ELSEIF TFLAG:51 >= (8+TFLAG:54) && (EX:0 + EX:1 + EX:2 + EX:3) >=50
	RETURNF 521
;분수
ELSEIF TFLAG:51 >= (8+TFLAG:54) && TALENT:젖기어려움 == 0
	RETURNF 516
ELSEIF TFLAG:51 >= (6+TFLAG:54) && TALENT:젖기쉬움
	RETURNF 516
ELSEIF TFLAG:51 >= (13+TFLAG:54) && TALENT:젖기어려움
	RETURNF 516
ENDIF
RETURNF -1

@IS_AUTOTRAIN(trainIndex)
#FUNCTION
#DIM trainIndex
RETURNF GROUPMATCH(trainIndex,516,521) > 0

@GET_AUTOTRAIN_VIDEOPRICE(trainIndex)
#FUNCTION
#DIM trainIndex
SELECTCASE trainIndex
	CASE 516
		RETURNF 300
	CASE 521
		RETURNF 1000
	CASEELSE
		RETURNF 0
ENDSELECT

@SHOW_EQUIP
T = TARGET
CALL SHOW_INFO_JUEL
IF PREVCOM >= 0
	PRINT 전회 조교 커맨드:
	PRINTS STR:0
	SIF TFLAG:50
		PRINT (조수)
	PRINTL
ENDIF
SIF TEQUIP:26
	PRINTL [미약 효과 발휘중]
SIF TEQUIP:27
	PRINTL [이뇨제 효과 발휘중]
IF TEQUIP:34 == 1
	PRINTL [강정신약 반동중]
ELSEIF TEQUIP:34 > 1
	PRINTL [강정신약 효과 발휘중]
ENDIF

SIF TEQUIP:28
	PRINTFORML [비디오촬영 중({TFLAG:70 - 1}/10)]
SIF TEQUIP:43
	PRINTFORML [실황플레이 중]
SIF TEQUIP:29
	PRINTL [야외플레이 중]
SIF TEQUIP:30
	PRINTL [수치플레이 중]
SIF TEQUIP:31
	PRINTL [목욕탕플레이 중]
SIF TEQUIP:33
	PRINTL [신혼플레이 중]
SIF TEQUIP:25
	PRINTL [촉수 조교 중]

IF TEQUIP:13 && TEQUIP:25
	PRINTL [촉수삽입]
ELSEIF TEQUIP:13
	PRINTL [바이브 장착중]
ENDIF

IF TEQUIP:14 && TEQUIP:25
	PRINTL [애널촉수 삽입]
ELSEIF TEQUIP:14
	PRINTL [애널바이브 장착중]
ENDIF

IF TEQUIP:11 && TEQUIP:25
	PRINTL [촉수클리고문]
ELSEIF TEQUIP:11
	PRINTL [클리캡 장착중]
ENDIF

IF TEQUIP:16 && TEQUIP:25
	PRINTL [촉수유두고문]
ELSEIF TEQUIP:16
	PRINTL [유두캡 장착중]
ENDIF
IF TEQUIP:17 && TEQUIP:25
	PRINTL [촉수 착유]
ELSEIF TEQUIP:17
	PRINTL [착유기 장착중]
ENDIF
SIF TEQUIP:24
	PRINTL [유방전극 장착중]

IF TEQUIP:12 && TEQUIP:25
	PRINTL [촉수페니스고문]
ELSEIF TEQUIP:12
	PRINTL [오나홀 장착중]
ENDIF

IF TEQUIP:32
	PRINTL [샤워 사용 중]
ENDIF

IF TEQUIP:19 && TEQUIP:25
	PRINTL [촉수긴박]
ELSEIF TEQUIP:19
	PRINTL [밧줄긴박]
ELSEIF TEQUIP:42
	PRINTL [귀갑묶기중]
ELSEIF TEQUIP:44
	PRINTL [Ｘ자구속대]
ENDIF

IF TEQUIP:21 && TEQUIP:25
	PRINTL [촉수 관장]
ELSEIF TEQUIP:21
	PRINTL [관장＋애널플러그 장착중]
ENDIF

SIF TEQUIP:36
	PRINTL [촉수 구욕 중]

SIF TEQUIP:18
	PRINTL [아이마스크 장착중]
SIF TEQUIP:20
	PRINTL [볼개그 장착중]
SIF TEQUIP:15
	PRINTL [애널비즈 장착중]
SIF TEQUIP:22
	PRINTL [확장벌룬 장착중]
SIF TEQUIP:23
	PRINTL [애널전극 장착중]

SIF EX:0
	PRINTFORM Ｃ절정:{EX:0}回
SIF EX:1
	PRINTFORM Ｖ절정:{EX:1}回
SIF EX:2
	PRINTFORM Ａ절정:{EX:2}回
SIF EX:3
	PRINTFORM Ｂ절정:{EX:3}回
SIF EX:4
	PRINTFORM 　분유:{EX:4}回
SIF EX:5
	PRINTFORM 　사정:{EX:5}回
SIF EX:0 || EX:1 || EX:2 || EX:3 || EX:4 || EX:5
	PRINTL
WAIT

@CONDOM_SETTING
A = 0
B = 0
C = 0
T = 0
PRINTW 콘돔을 설정할 대상을 선택해주세요
PRINTL
REPEAT 3
	IF (TALENT:MASTER:287 || TALENT:MASTER:289 || TALENT:MASTER:290) && A == 0
		PRINTFORM [{COUNT}] %CALLNAME:MASTER%
		IF TEQUIP:MASTER:35 && (FLAG:98 & 4)
			PRINTL (장착 완료, 상비)
		ELSEIF TEQUIP:MASTER:35
			PRINTL (장착완료)
		ELSE
			PRINTL (미장착)
		ENDIF
			A = 1
	ELSEIF ASSI >= 0
		IF (TALENT:ASSI:287 || TALENT:ASSI:289 || TALENT:ASSI:290) && B == 0
			PRINTFORM [{COUNT}] %CALLNAME:ASSI%
			IF TEQUIP:ASSI:35 && (FLAG:98 & 2)
				PRINTL (장착 완료, 상비)
			ELSEIF TEQUIP:ASSI:35
				PRINTL (장착완료)
			ELSE
				PRINTL (미장착)
			ENDIF
			B = 1
		ENDIF
	ELSEIF (TALENT:287 || TALENT:289 || TALENT:290) && C == 0
		PRINTFORM [{COUNT}] %CALLNAME:TARGET%
		IF TEQUIP:TARGET:35 && (FLAG:98 & 1)
			PRINTL (장착 완료, 상비)
		ELSEIF TEQUIP:TARGET:35
			PRINTL (장착완료)
		ELSE
			PRINTL (미장착)
		ENDIF
			C = 1
	ENDIF
REND
PRINTL [100]돌아온다
$INPUT_LOOP
INPUT
IF RESULT == 0
	IF A == 1
		T = MASTER
	ELSEIF B == 1
		T = ASSI
	ELSEIF C == 1
		T = TARGET
	ENDIF
ELSEIF RESULT == 1
	IF B == 1
		T = ASSI
	ELSEIF C == 1
		T = TARGET
	ENDIF
ELSEIF RESULT == 2
	T = TARGET
ELSEIF RESULT == 100
	RETURN 0
ELSE
	GOTO INPUT_LOOP
ENDIF

PRINTL 콘돔의 설정을 해주세요
PRINTL
	PRINTFORM  설정대상：%CALLNAME:T%
	IF TEQUIP:T:35
		PRINT (장착완료
		IF (T == MASTER && (FLAG:98 & 4)) || (T == ASSI && (FLAG:98 & 2)) || (T == TARGET && (FLAG:98 & 1))
			PRINTL 、상비)
		ELSE
			PRINTL )
		ENDIF
	ELSE
		PRINTL (미장착)
	ENDIF
PRINTL [0]  콘돔을 항상 장착한다
PRINTL [1]  콘돔을 장착한다
PRINTL [2]  콘돔을 벗는다
PRINTL [100]돌아온다

$INPUT_LOOP_2
INPUT
IF RESULT == 0
	IF TEQUIP:T:35 == 0
		ITEM:45 -= 1
		TEQUIP:T:35 = 1
	ENDIF
	SIF T == MASTER
		FLAG:98 |= 4
	SIF T == ASSI
		FLAG:98 |= 2
	SIF T == TARGET
		FLAG:98 |= 1
	PRINTFORMW %조사처리(CALLNAME:T,"는")% 콘돔을 항상 장착하도록 했다
ELSEIF RESULT == 1
	IF TEQUIP:T:35 == 0
		PRINTFORMW %조사처리(CALLNAME:T,"는")% 콘돔을 장착했다
		ITEM:45 -= 1
		TEQUIP:T:35 = 1
	ELSEIF (T == MASTER && (FLAG:98 & 4)) || (T == ASSI && (FLAG:98 & 2)) || (T == TARGET && (FLAG:98 & 1))
		PRINTFORMW %조사처리(CALLNAME:T,"는")% 콘돔을 항상 사용하지 않도록 했다
		SIF T == MASTER
			FLAG:98 &= 3
		SIF T == ASSI
			FLAG:98 &= 5
		SIF T == TARGET
			FLAG:98 &= 6
	ELSE
		PRINTFORMW %조사처리(CALLNAME:T,"는")% 이미 콘돔을 장착했다
	ENDIF
ELSEIF RESULT == 2
	PRINTFORMW %조사처리(CALLNAME:T,"는")% 콘돔을 벗었다
	SIF T == MASTER
		FLAG:98 &= 3
	SIF T == ASSI
		FLAG:98 &= 5
	SIF T == TARGET
		FLAG:98 &= 6
ELSEIF RESULT == 100
	RETURN 0
ELSE
	GOTO INPUT_LOOP_2
ENDIF

@CHECK_NEWLINE
Z += 1
IF Z == PRINTCPERLINE()
	PRINTL
	Z = 0
ENDIF

repo_name: Catalyst/B

license: unknown


code:
;変数の書き換えなどを伴なうバージョンアップ用
;毎回SHOP画面で呼び出され、新しく@VERSION_UP_Xが追加されるとそれを読み込む。
;なお、初回개시時のバージョンをSYSTEM.ERBに持っているので、そこも適宜更新要。
@VERSION_UP
LOCAL:1 = 0
LOCAL = 1
RESULT = 0
WHILE LOCAL
	IF LOCAL:1 < FLAG:11000
		LOCAL:1 += 1
		CONTINUE
	ENDIF
	TRYCCALLFORM VERSION_UP_{LOCAL:1}
	LOCAL:1 += 1
	CATCH
		LOCAL = 0
	ENDCATCH
WEND
SIF RESULT
	PRINTW 버전업했습니다.세이브데이터를 덮어쓰세요.
;使い方
;関数名@VERSION_UP_XのXの部分に最新の番号を入れる。

@VERSION_UP_0
#DIM index
#DIM flagIndex
FLAG:11000 += 1
;ここで変数の処理を行う

PRINTFORMW 全キャラの衣服データを更新します。
FOR index,0,CHARANUM
	FOR flagIndex,40,47
		CFLAG:index:flagIndex = CSVCFLAG(NO:index,flagIndex)
	NEXT
	FOR flagIndex,47,50
		CFLAG:index:flagIndex = 0
	NEXT
	PRINTFORML 　　No.{index,3} : %조사처리(CALLNAME:index,"를")% 갱신완료
NEXT

PRINTFORMW 모든 캐릭터의 의복 데이터 갱신이 완료되었습니다.

RETURN 1

@VERSION_UP_1
FLAG:11000 += 1
;ここで変数の処理を行う
SIF OPENING_PATTERN != 0
	RETURN 1

SELECTCASE 1
	CASE TALENT:MASTER:수치심없음
		OPENING_PATTERN = 1
	CASE RELATION:MASTER:80009 == 50
		OPENING_PATTERN = 2
	CASEELSE
		OPENING_PATTERN = 0
ENDSELECT

RETURN 1

@VERSION_UP_2
#DIM index
FLAG:11000 += 1
;ここで変数の処理を行う
;学園番号・衣服セット情報の補正
REPEAT CHARANUM
	CFLAG:COUNT:1001 -= 99
	CFLAG:COUNT:39 = CSVCFLAG(NO:COUNT,39)
REND
;学園転入日のフラグ移設
FOR index,1,5
	SCHOOL_FIRST_GOING_DAY:index = FLAG:(index + 999)
	FLAG:(index + 999) = 0
NEXT
;キャラ固有フラグの移設
;絆
IF GETCHARA(205) > 0
	IF TALENT:GETCHARA(205):실종 || CFLAG:GETCHARA(205):201 > 20
		CHARA_EXTRA_FLAGS:205:0 = FLAG:1895
	ENDIF
ENDIF
;琴美
SELECTCASE FLAG:1896
	CASE 1
		CHARA_FIRST_FLAGS:311 = MAX(DAY,10) - 4
	CASE 2
		CHARA_FIRST_FLAGS:311 = MAX(DAY,10) - 4
		CHARA_APPEAR_FLAGS:311 = MAX(DAY,10) - 2
	CASEELSE
		CHARA_FIRST_FLAGS:311 = MAX(DAY,10) - 4
		CHARA_APPEAR_FLAGS:311 = MAX(DAY,10) - 2
		CHARA_EXTRA_FLAGS:311:0 = FLAG:1896 - 2
ENDSELECT
;有希、楓、かすみ
FOR index,0,3
	SELECTCASE FLAG:(1897 + index)
		CASE 1 ;確定イベント済
			CHARA_FIRST_FLAGS:(80005 - index) = MAX(DAY,10) - 4
		CASE IS >= 2 ;登場済
			CHARA_FIRST_FLAGS:(80005 - index) = MAX(DAY,10) - 4
			CHARA_APPEAR_FLAGS:(80005 - index) = FLAG:(1897 + index)
		CASE -1 ;경계イベント中
			CHARA_FIRST_FLAGS:(80005 - index) = MAX(DAY,10) - 2
			CHARA_APPEAR_FLAGS:(80005 - index) = MAX(DAY,10) - 4
			CHARA_WARNING_FLAGS:(80005 - index) = MAX(DAY,10) - 6
		CASE 0
			IF GETCHARA(80005 - index) == -1
				;イベント未개시。아무것도안한다
			ELSE
				;イベント終了済
				CHARA_FIRST_FLAGS:(80005 - index) = MAX(DAY,10) - 2
				CHARA_APPEAR_FLAGS:(80005 - index) = MAX(DAY,10) - 4
				CHARA_WARNING_FLAGS:(80005 - index) = -1
			ENDIF
	ENDSELECT
NEXT
;将来の誤動作防止のため、一応クリア
FOR index,1895,1900
	FLAG:index = 0
NEXT
SIF GETCHARA(12) != -1
	CFLAG:GETCHARA(12):1002 = CSVCFLAG(12,1002)
index = INIT_STR_LIST(ENDING_HISTORY_DATA,CHAR_ESC)
RETURN 1

@VERSION_UP_3
#DIM charaIndex
FLAG:11000 += 1
FOR charaIndex,0,CHARANUM
	IF TALENT:charaIndex:기혼 && !TALENT:charaIndex:남편있음
		TALENT:charaIndex:남편있음 = CSVTALENT(NO:charaIndex,264) ; TALENT 264 = 남편있음
		PRINTFORML 　　No.{charaIndex,3} :%조사처리(CALLNAME:index,"를")% [남편있음]으로 갱신（{TALENT:charaIndex:남편있음}）
	ELSEIF TALENT:charaIndex:남편있음 && !TALENT:charaIndex:기혼
		TALENT:charaIndex:기혼 = CSVTALENT(NO:charaIndex,515) ; TALENT 515 = 기혼
		PRINTFORML 　　No.{charaIndex,3} : %조사처리(CALLNAME:index,"를")% [기혼]으로 갱신（{TALENT:charaIndex:기혼}）
	ENDIF
NEXT
RETURN 1

@VERSION_UP_4
#DIM charaIndex
FLAG:11000 += 1
FOR charaIndex,0,CHARANUM
	IF TALENT:charaIndex:좋아하는사람있음 || TALENT:charaIndex:남친있음 || TALENT:charaIndex:남편있음 || TALENT:charaIndex:미망인 || TALENT:charaIndex:기혼
		;敢えてマジックナンバーのまま
		IF CSTR:charaIndex:13 == ""
			CSTR:charaIndex:14 = %CSVCSTR(NO:charaIndex,14)%
			SIF CSTR:charaIndex:13 != ""
				PRINTFORML 　　No.{charaIndex,3} : %CALLNAME:charaIndex% 의 [남친이름 등등]의 갱신（%CSTR:charaIndex:13%）
		ENDIF
	ENDIF
NEXT
RETURN 1

@VERSION_UP_5
#DIM charaIndex
FLAG:세이브데이터버젼 += 1
FOR charaIndex,0,CHARANUM
	IF TALENT:charaIndex:임신
		CFLAG:charaIndex:임신의체력상한변화량 = 500
		PRINTFORML 　　No.{charaIndex,3} : %CALLNAME:charaIndex% 의 [임신의체력상한변화량]을 갱신（{CFLAG:charaIndex:임신의체력상한변화량}）
	ELSE
		CFLAG:charaIndex:임신의체력상한변화량 = 0
		PRINTFORML 　　No.{charaIndex,3} : %CALLNAME:charaIndex% 의 [임신의체력상한변화량]을 갱신（{CFLAG:charaIndex:임신의체력상한변화량}）
	ENDIF
NEXT
RETURN 1

@VERSION_UP_6
#DIM charaIndex
FLAG:11000 += 1
FOR charaIndex,0,CHARANUM
	CSTR:charaIndex:남친의성 = %CSVCSTR(NO:charaIndex,GETNUM(CSTR,"남친의성"))%
	CSTR:charaIndex:남친이름 = %CSVCSTR(NO:charaIndex,GETNUM(CSTR,"남친이름"))%
	CSTR:charaIndex:남친애칭 = %CSVCSTR(NO:charaIndex,GETNUM(CSTR,"남친애칭"))%
	CFLAG:charaIndex:1016 = CSVCFLAG(NO:charaIndex,1016)
	CFLAG:charaIndex:1017 = CSVCFLAG(NO:charaIndex,1017)
NEXT
RETURN 1

@VERSION_UP_7
#DIM charaIndex
#DIM ret
FLAG:11000 += 1
ret = INIT_STR_LIST(ENDING_HISTORY_DATA,CHAR_ESC)
FOR charaIndex,0,CHARANUM
	CFLAG:charaIndex:195 = 0
	CFLAG:charaIndex:196 = 0
	CFLAG:charaIndex:197 = 0
	IF CFLAG:charaIndex:1100 != 0
		CFLAG:charaIndex:12 = 0
		CFLAG:charaIndex:25 = 0
	ENDIF
NEXT
TALENT:MASTER:고등학생 = 1
TALENT:MASTER:연령 = 16
RETURN 1

@VERSION_UP_8
#DIM charaIndex
FLAG:11000 += 1
FOR charaIndex,0,CHARANUM
	IF CFLAG:charaIndex:12 == 4 && !TALENT:charaIndex:바이
		CFLAG:charaIndex:12 = 0
		CFLAG:charaIndex:25 = 0
	ENDIF
NEXT
RETURN 1


code:
@VIDEO_EIKYOU ,ARG ,ARG:1
#DIM 영향력
VARSET LOCAL

;ビデオの金額에 의해 영향력増加
IF ARG:1 >= 2000
	영향력 = 75
ELSEIF ARG:1 >= 1000
	영향력 = 30
ELSE
	영향력 = 20
ENDIF

;ビデオの累積売却額
IF CFLAG:ARG:55 >= 100000
	영향력 += 75
ELSEIF CFLAG:ARG:55 >= 5000
	영향력 += 15
ELSE
	영향력 += 5
ENDIF

FOR LOCAL, 1, 200
	LOCAL:1 = 영향력
	;富裕層は影響を受けにくい
	IF CUSTOMER:LOCAL:4 > 60
		IF TALENT:ARG:예속
			LOCAL:1 /= 2
		ELSEIF TALENT:ARG:복종
			LOCAL:1 /= 5
		ELSEIF TALENT:ARG:창녀
			LOCAL:1 /= 10
		ELSEIF TALENT:ARG:음란
			LOCAL:1 /= 20
		ELSE
			LOCAL:1 = 0
		ENDIF
	ENDIF
	SiF RAND:1000 < LOCAL:1
		CALL VIDEO_EIKYOU_KOBETSU(LOCAL,ARG)

NEXT

@VIDEO_EIKYOU_KOBETSU ,ARG ,ARG:1
VARSET LOCAL

;普通の客以外は終了
SIF CUSTOMER:ARG:0 != 1
	RETURN 0

$LOOP_EIKYOU

;要素をランダムに選出し、客の好みと노예の素質が合致していればお気に入りに、そうでなければ취향이 変化
SELECTCASE RAND:12
	;魅力２
	CASE 11
		IF TALENT:(ARG:1):(470+CUSTOMER:ARG:31)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 14
				IF TALENT:(ARG:1):(470+LOCAL)
					CUSTOMER:ARG:31 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 취향이 「%TALENTNAME:(470+LOCAL)%」%조사만처리(TALENTNAME:(470+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;魅力１
	CASE 10
		IF TALENT:(ARG:1):(470+CUSTOMER:ARG:30)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 14
				IF TALENT:(ARG:1):(470+LOCAL)
					CUSTOMER:ARG:30 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 취향이 「%TALENTNAME:(470+LOCAL)%」%조사만처리(TALENTNAME:(470+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;입장
	CASE 9
		IF TALENT:(ARG:1):초등학생
			LOCAL = 0
		ELSEIF TALENT:(ARG:1):중학생
			LOCAL = 1
		ELSEIF TALENT:(ARG:1):고등학생
			LOCAL = 2
		ELSEIF TALENT:(ARG:1):대학생
			LOCAL = 3
		ELSEIF TALENT:(ARG:1):교사
			LOCAL = 4
		ELSE
			LOCAL = 5
		ENDIF
		IF CUSTOMER:ARG:29 == LOCAL
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			CUSTOMER:ARG:29 = LOCAL
			IF TALENT:(ARG:1):초등학생
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「초등학생」으로 변화.
			ELSEIF TALENT:(ARG:1):중학생
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「중학생」으로 변화.
			ELSEIF TALENT:(ARG:1):고등학생
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「고등학생」으로 변화.
			ELSEIF TALENT:(ARG:1):대학생
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「대학생」으로 변화.
			ELSEIF TALENT:(ARG:1):교사
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「교사」로 변화.
			ELSE
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 직업 취향이 「사회인」으로 변화.
			ENDIF
			RETURN 1
		ENDIF
	;髪型５
	CASE 8
		IF TALENT:(ARG:1):(380+CUSTOMER:ARG:28)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 22
				IF TALENT:(ARG:1):(380+LOCAL)
					CUSTOMER:ARG:28 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리모양 취향이 「%TALENTNAME:(380+LOCAL)%」%조사만처리(TALENTNAME:(380+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪型４
	CASE 7
		IF TALENT:(ARG:1):(380+CUSTOMER:ARG:27)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 22
				IF TALENT:(ARG:1):(380+LOCAL)
					CUSTOMER:ARG:27 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리모양 취향이 「%TALENTNAME:(380+LOCAL)%」%조사만처리(TALENTNAME:(380+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪型３
	CASE 6
		IF TALENT:(ARG:1):(380+CUSTOMER:ARG:26)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 22
				IF TALENT:(ARG:1):(380+LOCAL)
					CUSTOMER:ARG:26 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리모양 취향이 「%TALENTNAME:(380+LOCAL)%」%조사만처리(TALENTNAME:(380+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪型２
	CASE 5
		IF TALENT:(ARG:1):(380+CUSTOMER:ARG:25)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 22
				IF TALENT:(ARG:1):(380+LOCAL)
					CUSTOMER:ARG:25 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리모양 취향이 「%TALENTNAME:(380+LOCAL)%」%조사만처리(TALENTNAME:(380+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪型１
	CASE 4
		IF TALENT:(ARG:1):(380+CUSTOMER:ARG:24)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 22
				IF TALENT:(ARG:1):(380+LOCAL)
					CUSTOMER:ARG:24 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리모양 취향이 「%TALENTNAME:(380+LOCAL)%」%조사만처리(TALENTNAME:(380+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪色２
	CASE 3
		IF TALENT:(ARG:1):(360+CUSTOMER:ARG:23)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 12
				IF TALENT:(ARG:1):(360+LOCAL)
					CUSTOMER:ARG:23 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리색 취향이 「%TALENTNAME:(360+LOCAL)%」%조사만처리(TALENTNAME:(360+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;髪色１
	CASE 1
		IF TALENT:(ARG:1):(360+CUSTOMER:ARG:22)
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			FOR LOCAL, 0, 12
				IF TALENT:(ARG:1):(360+LOCAL)
					CUSTOMER:ARG:22 = LOCAL
					PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 머리색 취향이 「%TALENTNAME:(360+LOCAL)%」%조사만처리(TALENTNAME:(360+LOCAL),"로")% 변화.
				ENDIF
			NEXT
			RETURN 1
		ENDIF
	;가슴好み
	CASEELSE
		IF TALENT:(ARG:1):절벽
			LOCAL = 0
		ELSEIF TALENT:(ARG:1):빈유
			LOCAL = 1
		ELSEIF TALENT:(ARG:1):거유
			LOCAL = 3
		ELSEIF TALENT:(ARG:1):폭유
			LOCAL = 4
		ELSE
			LOCAL = 2
		ENDIF
		IF CUSTOMER:ARG:21 == LOCAL
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"이")% 마음에 든 모양이다.
		ELSE
			CUSTOMER:ARG:21 = LOCAL
			IF TALENT:(ARG:1):절벽
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 가슴 취향이 「절벽」으로 변화.
			ELSEIF TALENT:(ARG:1):빈유
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 가슴 취향이 「빈유」로 변화.
			ELSEIF TALENT:(ARG:1):거유
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 가슴 취향이 「거유」로 변화.
			ELSEIF TALENT:(ARG:1):폭유
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 가슴 취향이 「폭유」로 변화.
			ELSE
				PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 가슴 취향이 「평범」으로 변화.
			ENDIF
			RETURN 1
		ENDIF
ENDSELECT

;既に「好み」の場合
SELECTCASE RAND:10
	;ストーカー化
	CASE 0
		PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %CALLNAME:(ARG:1)%의 스토커가 되었다.
		CUSTOMER:ARG:0 = 5
		CUSTOMER:ARG:62 = 2
		CUSTOMER:ARG:65 = NO:(ARG:1)
	;行為の重さ増
	CASE 1
		IF CUSTOMER:ARG:40 < 3
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %조사처리(CUSTOMERNAME1:ARG,"는")% %조사처리(CALLNAME:(ARG:1),"와")% 한층 더 농후한 플레이를 하고 싶어졌다.
			CUSTOMER:ARG:40 += 1
		ENDIF
	;行為回数増
	CASE 2
		IF CUSTOMER:ARG:39 < 5
			PRINTFORML 비디오의 영향을 받은 %CUSTOMERNAME2:ARG% %CUSTOMERNAME1:ARG%의 행위횟수가 증가.
			CUSTOMER:ARG:39 += 1
		ENDIF
	;ひきなおし
	CASE 3
		GOTO LOOP_EIKYOU
	CASEELSE
		;何も起こらない
ENDSELECT


code:
@SEARCH_VILLAN, ARG
LOCAL = ABL:ARG:감성
SIF TALENT:ARG:불량
	LOCAL += 1
SIF TALENT:ARG:정보통
	LOCAL += 2
SIF TALENT:ARG:친구많음
	LOCAL += 1
SIF TALENT:ARG:고고함
	LOCAL -= 1
SIF TALENT:ARG:닌자
	LOCAL += 2
SIF TALENT:ARG:탐정
	LOCAL += 3
;現在の治安による修正
IF FLAG:1015 < 0
	LOCAL = 0
ELSEIF FLAG:1015 < 3
	LOCAL /= 2
ELSEIF FLAG:1015 >= 5
	LOCAL *= 2
ENDIF
FLAG:1016 += LOCAL
IF FLAG:1016 >= 100
	CALL EVENT_VIGILANTE, ARG
ELSE
	PRINTFORML %CALLNAME:ARG%의 경비를 할 때에는、아무 일도 일어나지 않았다.
ENDIF

;警備イベント
@EVENT_VIGILANTE, ARG
LOCAL = RAND:100
LOCAL:1 = 0;
PRINTFORMW 이벤트 발생！
IF FLAG:1015 < 3
	IF LOCAL <= 71
		LOCAL:1 = 1
	ELSEIF LOCAL <= 81
		LOCAL:1 = 2
	ELSEIF LOCAL <= 91
		LOCAL:1 = 3
	ELSE
		LOCAL:1 = 4
	ENDIF
ELSEIF FLAG:1015 < 5
	IF LOCAL <= 61
		LOCAL:1 = 1
	ELSEIF LOCAL <= 71
		LOCAL:1 = 2
	ELSEIF LOCAL <= 81
		LOCAL:1 = 3
	ELSEIF LOCAL <= 91
		LOCAL:1 = 4
	ELSE
		LOCAL:1 = 5
	ENDIF
ELSE
	IF LOCAL <= 51
		LOCAL:1 = 1
	ELSEIF LOCAL <= 61
		LOCAL:1 = 2
	ELSEIF LOCAL <= 71
		LOCAL:1 = 3
	ELSEIF LOCAL <= 81
		LOCAL:1 = 4
	ELSEIF LOCAL <= 91
		LOCAL:1 = 5
	ELSE
		LOCAL:1 = 6
	ENDIF
ENDIF

IF LOCAL:1 == 1
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 수상한 사람을 발견했다.
;난이도生成
	LOCAL = RAND:3 + 3
	LOCAL:1 = 10
ELSEIF LOCAL:1 == 2
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 도둑을 발견했다.
;난이도生成
	LOCAL = RAND:4 + 3
	LOCAL:1 = 20
ELSEIF LOCAL:1 == 3
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 폭한을 발견했다.
;난이도生成
	LOCAL = RAND:5 + 3
	LOCAL:1 = 30
ELSEIF LOCAL:1 == 4
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 강도를 발견했다.
;난이도生成
	LOCAL = RAND:5 + 4
	LOCAL:1 = 30
ELSEIF LOCAL:1 == 5
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 강도를 발견했다.　……근데 눈빛이 이상하다？
	PRINTFORMW 강도는 대형 나이프를 들고 날뛰기 시작했다！
;난이도生成
	LOCAL = RAND:6 + 4
	LOCAL:1 = 40
ELSEIF LOCAL:1 == 6
	PRINTFORMW %조사처리(CALLNAME:ARG,"는")% 수상한 사람을 발견했다. 핏발 선 눈으로 어수선하게 주위를 둘러보며、중얼중얼 의미를 알 수 없는 말로 투덜거린다.
	PRINTFORMW 불러 세우려 하자 품속에서 권총을 꺼내며……
;난이도生成
	LOCAL = RAND:6 + 5
	LOCAL:1 = 50
ENDIF

CALL COMBAT_VIGILANTE,ARG, LOCAL, LOCAL:1

@COMBAT_VIGILANTE, ARG:0, ARG:1, ARG:2
#DIMS CHECK_TALENT_STRING			;チェックするTALENTの文字列
#DIM TEMP											;一時的に数字を格納する
#DIM SEX_COUNT									;セックス回数
#DIM SERVICE_COUNT							;奉仕回数
#DIM ANGER											;반발각인の判定に使用
#DIM OBEDIENCE									;굴복각인の判定に使用
#DIM LOST_VIRGIN_FLAG						;처녀상실したかどうかのフラグ
;OBEDIENCEの判定の際、+判定されるTALENTのリスト
#DIMS CONST OBEDIENCE_PLUS_ARRAY = "젖기쉬움","혀놀림","헌신적","레이프소망","키스좋아함","걸레녀","쾌감에솔직","중독되기쉬움","즉각함락","음핵","음호","음항","음유","영구발정"
;OBEDIENCEの判定の際、-判定されるTALENTのリスト
#DIMS CONST OBEDIENCE_MINUS_ARRAY = "젖기어려움","거절","쾌감을부정"
;ANGERの判定の際、＋判定されるTALENTのリスト
#DIMS CONST ANGER_PLUS_ARRAY = "반항적", "꿋꿋함", "프라이드높음", "건방짐", "인간혐오", "고결", "성악", "자제심", "무관심", "저항", "철벽", "새드", "고고함"
;ANGERの判定の際、-判定されるTALENTのリスト
#DIMS CONST ANGER_MINUS_ARRAY = "겁쟁이","얌전함","프라이드낮음","츤데레","내향적","비관적","공주님소망","마조"
#DIM ARRAY_LENGTH							;配列を一斉チェックする際に要素数を記録する
#DIM LOOP_COUNTER

;LOCAL:1警備をしているヒロインの戦力、LOCAL:2エネミーの戦力
LOCAL = ARG:0
LOCAL:1 = ABL:LOCAL:전투능력
;常識外の能力値に対する補正
SIF LOCAL:1 < 4
	LOCAL:1 /= 2
SIF LOCAL:1 > 7
	LOCAL:1 *= 2
;タレント補正
SIF TALENT:LOCAL:파이터 == 1
	LOCAL:1 += 5
SIF TALENT:LOCAL:닌자 == 1
	LOCAL:1 += 3

LOCAL:2 = ARG:1
;常識外の能力値に対する補正
SIF LOCAL:2 < 4
	LOCAL:2 /= 2
SIF LOCAL:2 > 7
	LOCAL:2 *= 2
;タレント持ち
IF RAND:100 < ARG:2
;파이터
	IF RAND:5 < 3
		LOCAL:2 += 5
;닌자
	ELSEIF RAND:5 < 4
		LOCAL:2 += 3
;両方
	ELSE
		LOCAL:2 += 8
	ENDIF
ENDIF

IF LOCAL:1 >= LOCAL:2 + 2
;楽勝　逮捕
	PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 도망치려는 상대를 손쉽게 잡아 붙들었다.
	IF RAND:3 == 0
		PRINTFORMW 상대는 필사적으로 발버둥치지만 이미 늦었다.
	ELSEIF RAND:2 == 0
		PRINTFORMW 상대는 갖가지 엄포를 늘어 놓았지만 이 상황에선 아무런 설득력이 없다.
	ELSE
		PRINTFORMW 상대는 동정이라도 사려는 지 볼썽사납게 우는 소리를 하지만 이미 때는 늦었다.
	ENDIF
	PRINTFORMW 이윽고 경찰이 와서 범죄자를 인수해 갔다.
	PRINTFORMW 다소 소란스럽긴 했지만 범죄는 조금이라도 줄어들 것이다.
	PRINTFORMW -치안이 1개선되었다-
	FLAG:1015 -= 1
	IF FLAG:150 == 1
;NTR ONならば（リスクがあるので）
		LOCAL:3 = LOCAL:2 * 1000
		PRINTFORMW %CALLNAME:LOCAL%의 공로에 대해 {LOCAL:3}의 상여금이 나왔다……
		MONEY += LOCAL:3
	ENDIF
	RETURN 0
ELSEIF LOCAL:1 >= LOCAL:2
;辛勝 逮捕　체력消費
	PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 저항하는 상대를 고전하면서도 붙잡았다.
	IF RAND:3 == 0
		PRINTFORMW 상대는 필사적으로 발버둥치지만 이미 늦었다.
	ELSEIF RAND:2 == 0
		PRINTFORMW 상대는 갖가지 엄포를 늘어 놓았지만 이 상황에선 아무런 설득력이 없다.
	ELSE
		PRINTFORMW 상대는 동정이라도 사려는 지 볼썽사납게 우는 소리를 하지만 이미 때는 늦었다.
	ENDIF
	PRINTFORMW 이윽고 경찰이 와서 범죄자를 인수해 갔다.
	PRINTFORMW 다소 소란스럽긴 했지만 범죄는 조금이라도 줄어들 것이다.
	PRINTFORMW -치안이 1개선되었다-
	FLAG:1015 -= 1
	PRINTFORMW 그러나 범죄자의 저항에 여기저기 다치기도 한 모양이다.
	PRINTFORMW -체력을 소모했다-
	BASE:LOCAL:체력 -= 200
	IF FLAG:150 == 1
;NTR ONならば（リスクがあるので）
		LOCAL:3 = LOCAL:2 * 1000
		PRINTFORMW %CALLNAME:LOCAL%의 공로에 대해 {LOCAL:3}의 상여금이 나왔다……
		MONEY += LOCAL:3
	ENDIF
	RETURN 1
ELSEIF LOCAL:1 < LOCAL:2 - 2
;大敗　체력大消費、스트레스追加、NTR-ONなら凌辱
	PRINTFORMW %조사처리(CALLNAME:LOCAL,"를")% 앞둔 상대는 격렬하게 날뛰었다.
	PRINTFORMW 무리하게 진압하다가는 큰 부상을 입을 수 있다고 판단한 %조사처리(CALLNAME:LOCAL,"은")% 경찰이 올 때까지 시간을 끄는 데 전념했다.
	PRINTFORMW 그러나 진심으로 날뛰는 상대를 억누를 수 없었다……
	PRINTFORMW 저지하지 못하고、몇 번이나 구타당하며、마침내 %조사처리(CALLNAME:LOCAL,"은")% 바닥에 드러누웠다.
	IF FLAG:150 == 1
;NTR ONならば（リスクがあるので）
		PRINTFORMW 쓰러진 %조사처리(CALLNAME:LOCAL,"를")% 앞두고、상대는 한 번 꿀꺽하고 목을 울리고 흐트러진 옷에 손을 뻗어 단번에 찢었다.
		PRINTFORML %CALLNAME:LOCAL%が 고함을 지르지 못하도록 입을 억눌러 그늘로 끌고 간다.
		SIF TALENT:LOCAL:청초 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 울듯한 얼굴로 필사적으로 저항하지만、상대는 그 모습을 보고 오히려 흥분한 것 같다.
		SIF TALENT:LOCAL:쾌활 == 1 || TALENT:LOCAL:보이쉬 == 1 || TALENT:LOCAL:고결 == 1 || TALENT:LOCAL:기가셈 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 노골적인 분노를 드러내며 저항하고 매도하지만、상대는 그 모습을 보고 오히려 흥분한 것 같다.
		SIF TALENT:LOCAL:성악 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 고통으로 일그러진 표정이면서、그래도 비웃는 듯한 엷은 웃음을 지었다.
		SIF TALENT:LOCAL:색기 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 필사적으로 저항하는데 그 모습마저도 어딘지 요염해서 상대는 그 모양을 보고 침을 꿀꺽 삼켰다.
		SIF TALENT:LOCAL:천연 == 1 || TALENT:LOCAL:쿨함 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 아파서 표정을 일그러뜨리면서도 설교하듯 정론을 고하지만 물론 상대에게 듣는 귀는 없다.
		SIF TALENT:LOCAL:어린애같음 == 1 || TALENT:LOCAL:치유계 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 저항하면서도 여러 가지로 호소하고 있는 것 같지만 미묘하게 어긋나고 있는 것 같다.
		SIF TALENT:LOCAL:무기력 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 난처한 표정으로 이런저런 하소연을 하고 있지만 목소리가 너무 작아 상대방에게는 들리지도 않는 것 같다.
		PRINTFORML 하지만 부상을 입은 %CALLNAME:LOCAL%의 저항은 가볍게 제압당해 깔아뭉개졌다.
		PRINTFORML 비명소리는 흩어지며 누구에게도 닿지 않았다……。
		PRINTL ………………
		PRINTL …………
		PRINTW ……

		IF RAND:2 == 0
			PRINTFORML 땅바닥에 벌렁 나자빠져 양다리를 M자로 크게 벌려진、파렴치한 모습을 드러내고 있는 %CALLNAME:LOCAL%。
			PRINTFORML %조사처리(CALLNAME:LOCAL,"를")% 놓치지 않도록 남자는 다리를 움켜쥐면서 압력을 가하기 시작했다.
		ELSE
			PRINTFORML 남자가 등뒤에서 덮쳐 누르자 %조사처리(CALLNAME:LOCAL,"은")% 뒤얽히듯 벽에 짓눌렸다.
			PRINTFORML 옷이 벌어져 하반신이 노출되어 %CALLNAME:LOCAL%의 하얀 엉덩이가 드러난다.
		ENDIF
		PRINTFORML 그리고 남자는 손을 뻗어 가슴과 허벅지, 엉덩이를 욕망 가는 대로 만지작거리기 시작했다.
		PRINTFORML 그때마다 %조사처리(CALLNAME:LOCAL,"은")% 몸부림치며 그 손아귀에서 벗어나려고 한다.
		PRINTFORMW 더 많은 빈틈을 보이는 목덜미나 귀, 입술에 키스비를 내리게 해 %CALLNAME:LOCAL%의 성감을 높인 후
		PRINTFORML %CALLNAME:LOCAL%에게 지친 징후가 보이자、이번에는 속옷을 내리고 비렬을 더듬었다.
		PRINTL 전희로 다소 민감해진 탓일까
		PRINTW 손가락 끝이 움직일 때마다 비명이나 울음소리에 섞여 헐떡이는 소리도 섞였다……。
		PRINTFORML 남자는 적당하다고 판단했는지 페니스를 꺼냈다.
		PRINTFORML %CALLNAME:LOCAL%의 노출된 균열에 갖다대자、움찔하고 몸을 떨었다.
		PRINTFORML 쿠퍼액으로 미끈미끈한 페니스를 비순에 문지르니
		PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 비명을 지르며 어떻게든 도망치려고 애쓴다.
		SIF TALENT:LOCAL:청초 == 1 || TALENT:LOCAL:무기력 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 울면서 그것만은 하지말라고 애걸했다……。
		SIF TALENT:LOCAL:천연 == 1 || TALENT:LOCAL:쾌활 == 1 || TALENT:LOCAL:보이쉬 == 1 || TALENT:LOCAL:기가셈 == 1 || TALENT:LOCAL:고결 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 아직 포기하지 않고 필사적으로 날뛰고 있었지만 그것도 점점 허약해진다.
		SIF TALENT:LOCAL:성악 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 굴욕적인 표정으로 남자를 노려보며 욕설을 퍼붓고 있지만 오히려 역효과다.
		SIF TALENT:LOCAL:색기 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 그것만은 하지 말라고 애걸하지만 오히려 남자의 열정을 부추길 뿐이었다.
		SIF TALENT:LOCAL:쿨함 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 차가운 표정으로 자신을 억누르는 남자를 노려보고 있다.
		SIF TALENT:LOCAL:어린애같음 == 1 || TALENT:LOCAL:치유계 == 1
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 겁에 질려 울면서 남자에게 자비를 빌고 있다……。

		PRINTFORMW 모든 반응을 무시하고 남자가 허리를 움직이자 %조사처리(CALLNAME:LOCAL,"은")% 비명을 올렸다……。
		IF TALENT:처녀 == 1
			PRINTFORMW %CALLNAME:LOCAL%의 다리 사이에서 붉은 핏줄기가 허벅지를 타고 흘러내렸다.
		ELSE
			PRINTFORMW 경험이 있다고는 해도 젖지도 않은 %CALLNAME:LOCAL%의 비순은 남자의 페니스를 꽉 조였다.
		ENDIF
		PRINTFORML %CALLNAME:LOCAL%의 비명소리를 들으며 남자는 정신없이 허리를 흔든다.
		PRINTL 이윽고 허리를 빠르게 흔들며 질내사정을 고했다.
		IF TALENT:LOCAL:천연 == 1 || TALENT:LOCAL:쾌활 == 1 || TALENT:LOCAL:보이쉬 == 1 || TALENT:LOCAL:기가셈 == 1 || TALENT:LOCAL:고결 == 1
			PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 안간힘을 다해 도망치려 하지만 이를 제압한 남자는 가차 없이 가장 깊은 곳에 욕망을 풀어낸다.
		ELSE
			PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 그만해 달라고 자비를 빌었지만 남자는 자비 없이 맨 안쪽으로 욕망을 풀어헤친다
		ENDIF
		PRINTFORML 질내에 퍼지는 뜨거운 감각 때문에 질내사정 당했음을 싫어도 알게 된 %조사처리(CALLNAME:LOCAL,"은")% 울부짖었다.
		PRINTFORML 남자는 빨리 빼달라는 간청을 들었지만、들은 척도 하지 않고 끝까지 정액을 싸질렀다.
		PRINTFORMW 만족한 얼굴로 페니스를 뽑자、%CALLNAME:LOCAL%의 비렬에서、흰 액체가 꿀렁꿀렁 넘쳐흐른다.
		PRINTFORML %CALLNAME:MASTER%에게 사과하면서 흐느끼는 %CALLNAME:LOCAL%의 모습이 욕망을 자극했는지 남자의 페니스는 다시 딱딱해졌다.
		PRINTFORML 또 능욕당할 위험을 깨달은 %조사처리(CALLNAME:LOCAL,"은")% 잔뜩 겁먹었으나 그렇다고 저항할 만한 체력이나 기력이 남아있지는 않았다.
		PRINTFORML 남자는 다시 그녀의 비렬에 페니스를 박아넣었다.
		PRINTL ………………
		PRINTL …………
		PRINTW ……
		PRINTFORML 그 후 몇 번이나 범해졌을까？
		PRINTFORML 유리구슬 같은 눈을 뜨고 %조사처리(CALLNAME:LOCAL,"은")% 남자에게 봉사하고 있다.
		IF TALENT:LOCAL:거유 == 1 || TALENT:LOCAL:폭유 == 1
			PRINTFORML 양쪽 가슴을 사용하여 남자의 페니스를 품고 혀와 입을 사용해 봉사한다.
			PRINTW 품은 페니스를 입에서 떼내자 더럽혀진 얼굴에 또 정액이 쏟아졌다……。
		ELSE
			PRINTFORML 시키는 대로 마지못해 페니스를 혀로 핥거나 입으로 머금고 자극하고 있다.
			PRINTFORML 그러나 부족한 자극을 더 이상 봐줄 수 없는 남자는 %CALLNAME:LOCAL%의 머리를 잡고 앞뒤로 흔들었다.
			PRINTFORML 이윽고 몸을 떨면서 %CALLNAME:LOCAL%의 입 안에 정액을 싸질렀다……。
			PRINTFORML %조사처리(CALLNAME:LOCAL,"은")% 쓴맛과 더러움에 토해내려고 하지만 남자가 용서할 리도 없어서 또 삼켜야 했다……。
		ENDIF
		PRINTFORML 간신히 만족한 남자는 옷이 무참하게 벌어지고 가슴도 입도 비렬도 정액 투성이인 채 망연해하는 %CALLNAME:LOCAL%의 모습을 만족스럽게 내려다보았다.
		PRINTFORML 문득 떠올린 듯 사진을 촬영한다……。 어디선가 사이렌 소리가 들려온다。
		PRINTFORMW 남자는 황급히 바지를 올리더니 그림자 속으로 모습을 감추었다.
		;ステータス変更処理関係
		;●이상경험取得
		EXP:LOCAL:50 += 2
		PRINTFORML 이상경험＋２
		;●처녀상실
		LOST_VIRGIN_FLAG = 0
		IF TALENT:LOCAL:처녀 == 1
			LOST_VIRGIN_FLAG = 1
			TALENT:LOCAL:처녀 = 0
		ENDIF
		;●의존도
		CFLAG:LOCAL:2 = -100
		;●セックス回数
		SEX_COUNT = RAND:2 + 3
		SIF TALENT:LOCAL:수수께끼의매력 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:인기 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:멋쟁이 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:연예인 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:영애 == 1 || TALENT:LOCAL:프린세스 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:성직자 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:모성 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:좋아하는사람있음 == 1 || TALENT:LOCAL:남친있음 == 1 || TALENT:LOCAL:남편있음 == 1
			SEX_COUNT += 1
		SIF TALENT:LOCAL:메이드 == 1
			SEX_COUNT += 1
		;●奉仕回数（メインはセックスなので1～2回）
		SERVICE_COUNT = 1
		{
			SIF TALENT:LOCAL:수수께끼의매력 == 1 || TALENT:LOCAL:인기 == 1 || TALENT:LOCAL:연예인 == 1 || TALENT:LOCAL:영애 == 1 || TALENT:LOCAL:프린세스 == 1 ||
			TALENT:LOCAL:성직자 == 1 || TALENT:LOCAL:모성 == 1 || TALENT:LOCAL:좋아하는사람있음 == 1 || TALENT:LOCAL:남친있음 == 1 || TALENT:LOCAL:남편있음 == 1 ||
			TALENT:LOCAL:메이드 == 1 || TALENT:LOCAL:혀놀림 == 1
		}
			SERVICE_COUNT += 1
		;●V経験
		EXP:LOCAL:0 += SEX_COUNT
		PRINTFORML Ｖ경험＋{SEX_COUNT}
		;●절정경험
		TEMP = SEX_COUNT / 10
		EXP:LOCAL:2 += TEMP
		PRINTFORML 절정경험＋{TEMP}
		;●성교경험
		EXP:LOCAL:4 += SEX_COUNT
		PRINTFORML 성교경험＋{SEX_COUNT}
		;●질사경험
		EXP:LOCAL:5 += SEX_COUNT
		PRINTFORML 질사경험＋{SEX_COUNT}
		;●정액경험
		EXP:LOCAL:20 += SEX_COUNT
		PRINTFORML 정액경험＋{SEX_COUNT}
		;●펠라경험
		TEMP =  SERVICE_COUNT
		EXP:LOCAL:22 += TEMP
		PRINTFORML 펠라경험＋{TEMP}

		;●굴복각인（肉体関係の素質で増減）
		OBEDIENCE = 10
		;プラス要素
		ARRAY_LENGTH = VARSIZE("OBEDIENCE_PLUS_ARRAY")		;リストの要素数取得
		LOOP_COUNTER = 0
		FOR LOOP_COUNTER, 0, ARRAY_LENGTH, 1
			CHECK_TALENT_STRING = %OBEDIENCE_PLUS_ARRAY:LOOP_COUNTER%
			IF TALENT:LOCAL:(CHECK_TALENT_STRING)
				SELECTCASE CHECK_TALENT_STRING
					CASE "레이프소망","즉각함락","음핵","음호","음항","음유","영구발정"
						OBEDIENCE += 3
					CASEELSE
						OBEDIENCE += 1
				ENDSELECT
			ENDIF
		NEXT
		DEBUGPRINTFORML 플러스 보정 후 OBEDIENCE:{OBEDIENCE}
		;マイナス要素
		;リストの要素数取得
		ARRAY_LENGTH = VARSIZE("OBEDIENCE_MINUS_ARRAY")
		LOOP_COUNTER = 0
		FOR LOOP_COUNTER, 0, ARRAY_LENGTH, 1
			CHECK_TALENT_STRING = %OBEDIENCE_MINUS_ARRAY:LOOP_COUNTER%
			IF TALENT:LOCAL:(TALENT:CHECK_TALENT_STRING)
				SELECTCASE CHECK_TALENT_STRING
					CASE "거절"
						OBEDIENCE -= 3
					CASEELSE
						OBEDIENCE -= 1
				ENDSELECT
			ENDIF
		NEXT
		;犯した回数でマイナス（マスターのテク次第で＋？）
		OBEDIENCE -= SERVICE_COUNT * 2
		OBEDIENCE -= SEX_COUNT
		;レイプで처녀상실ならマイナス
		SIF LOST_VIRGIN_FLAG == 1
			OBEDIENCE -= 5
		DEBUGPRINTFORML 마이너스 보정 후 OBEDIENCE:{OBEDIENCE}

		;●반발각인（精神関係の素質で増減）
		;타겟の精神を基本10点とし、TALENT次第でプラスマイナス補正をかけ、犯した回数でマイナスし、その結果次第で分岐
		ANGER = 10
		;プラス要素
		;リストの要素数取得
		ARRAY_LENGTH = VARSIZE("ANGER_PLUS_ARRAY")
		LOOP_COUNTER = 0
		FOR LOOP_COUNTER, 0, ARRAY_LENGTH, 1
			CHECK_TALENT_STRING = %ANGER_PLUS_ARRAY:LOOP_COUNTER%
			IF TALENT:LOCAL:(CHECK_TALENT_STRING)
				SELECTCASE CHECK_TALENT_STRING
					CASE "철벽","새드"
						ANGER += 2
					CASEELSE
						ANGER += 1
				ENDSELECT
			ENDIF
		NEXT
		DEBUGPRINTFORML 플러스 보정 후 ANGER:{ANGER}
		;マイナス要素
		;リストの要素数取得
		ARRAY_LENGTH = VARSIZE("ANGER_MINUS_ARRAY")
		LOOP_COUNTER = 0
		FOR LOOP_COUNTER, 0, ARRAY_LENGTH, 1
			CHECK_TALENT_STRING = %ANGER_MINUS_ARRAY:LOOP_COUNTER%
			IF TALENT:LOCAL:(TALENT:CHECK_TALENT_STRING)
				SELECTCASE CHECK_TALENT_STRING
					CASE "공주님소망","마조"
						ANGER -= 2
					CASEELSE
						ANGER -= 1
				ENDSELECT
			ENDIF
		NEXT
		;犯した回数でマイナス
		ANGER -= SERVICE_COUNT * 2
		ANGER -= SEX_COUNT
		;レイプで처녀상실なら更にマイナス
		SIF LOST_VIRGIN_FLAG == 1
			ANGER -= 5
		DEBUGPRINTFORML 마이너스 보정 후 ANGER:{ANGER}

		;その後の被害者の様子という名の각인関係描写
		PRINTL ………………
		PRINTL …………
		PRINTW ……
		PRINTFORML 남자가 자취를 감춘 후에 겨우 정신을 차린 %CALLNAME:LOCAL%。
		SELECTCASE OBEDIENCE
			CASE IS  >= 4
				PRINTFORML 강간을 당했는데도 느껴버린 자신에게 혐오감을 느끼면서도 조금 전까지의 자신을 떠올리면 몸이 뜨거워지는 감각을 부정할 수 없었다.
				PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【레이프소망】을 얻었다.
				TALENT:LOCAL:레이프소망 = 1
				;こっそり脅されている
				CFLAG:LOCAL:117 = 4
				;ＮＴＲ陥落度
				CFLAG:TARGET:118 = -300
			CASE IS >= 2
				PRINTFORMW 만난적조차 없었던 남자에게 난폭하게 범해져 질내사정 당했음에도 느껴버린 자신에게 %조사처리(CALLNAME:LOCAL,"은")% 눈물을 흘렸다……
				;こっそり脅されている
				CFLAG:LOCAL:117 = 4
				;ＮＴＲ陥落度
				CFLAG:LOCAL:118 = -200
			CASE IS >= 0
				PRINTFORMW 남자를 용서할 수 없다고 생각하면서도 질내사정 당했을 때 느꼈던 감각이 묘하게 인상에 남았다……
				;こっそり脅されている
				CFLAG:LOCAL:117 = 4
				;ＮＴＲ陥落度
				CFLAG:LOCAL:118 = -100
			CASEELSE
				PRINTFORML 몇 번이고 박힌 비소는 아프고、만지기만 해도 정액이 흘러내린다. 생애 최악의 기분이다……。
		ENDSELECT
		PRINT 그리고
		SELECTCASE ANGER
			CASE IS  >= 4
				PRINTL 가라앉은 눈으로 허공을 노려보며 "죽여버리겠다", "경찰에 고소하겠다"라고 하는 등 끝없이 중얼거리고 있다……
				IF MARK:LOCAL:3 < 2
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【반발각인：2】를 얻었다
					MARK:LOCAL:3 = 2
					SIF MARK:LOCAL:4 < 2
						MARK:LOCAL:4 = 2
				ENDIF
				IF MARK:LOCAL:0 < 2
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【고통각인：2】를 얻었다
					MARK:LOCAL:0 = 2
				ENDIF
				IF TALENT:LOCAL:거절 == 0
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【거절】을 얻었다
					TALENT:LOCAL:거절 = 1
				ENDIF
			CASE IS >= 2
				PRINTFORML 분노로 얼굴을 일그러뜨리고 분한 눈물을 팔로 감싸며 마음속으로 복수를 맹세한다……
				IF MARK:LOCAL:3 < 1
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【반발각인：1】을 얻었다
					MARK:LOCAL:3 = 1
					SIF MARK:LOCAL:4 < 2
						MARK:LOCAL:4 = 1
				ENDIF
				IF MARK:LOCAL:0 < 2
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【고통각인：2】를 얻었다
					MARK:LOCAL:0 = 2
				ENDIF
			CASE IS >= 0
				PRINTFORML 분한 나머지 눈물이 핑 도는 것을 참고 남자가 말하는 대로 되지 않기를 결심했다……
				IF MARK:LOCAL:0 < 2
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【고통각인：2】를 얻었다
					MARK:LOCAL:0 = 2
				ENDIF
			CASEELSE
				PRINTFORML 남자를 용서할 수는 없지만 아까의 짐승 같은 모습을 떠올리는 것만으로 무서워서 떨고 만다……
				IF MARK:LOCAL:0 < 2
					PRINTFORMW %조사처리(CALLNAME:LOCAL,"은")% 【고통각인：2】를 얻었다
					MARK:LOCAL:0 = 2
				ENDIF
		ENDSELECT
	ELSE
		PRINTFORMW 쓰러진 %조사처리(CALLNAME:LOCAL,"를")% 앞두고、상대는 한 번 꿀꺽하고 목을 울리고 흐트러진 옷에 손을 뻗는다……
		PRINTFORMW 그 순간에 멀리서 사이렌 소리가 들리기 시작한다.
		PRINTFORMW 상대는 혀를 차며 도망쳤다……。
		PRINTFORMW -체력을 크게 소모했다-
		BASE:LOCAL:체력 -= 800
	ENDIF
	RETURN 3
ELSE
;敗北　逃げられた。체력消費、스트레스追加
	PRINTFORMW %조사처리(CALLNAME:LOCAL,"를")% 앞둔 상대는 격렬하게 날뛰었다.
	PRINTFORMW 무리하게 진압하다가는 큰 부상을 입을 수 있다고 판단한 %조사처리(CALLNAME:LOCAL,"은")% 경찰이 올 때까지 시간을 끄는 데 전념했다.
	PRINTFORMW 하지만 당연히 상대방도 시간이 걸리면 경찰이 온다는 것쯤은 알고 있다.
	PRINTFORMW 이윽고 포기한 상대는 가까이에 있는 물건을 %CALLNAME:LOCAL%에게 던지며、그것을 피하는 틈에 몸을 돌려 도망쳤다.
	PRINTFORMW 이제 겨우 경찰차의 사이렌이 들려온다.　%조사처리(CALLNAME:LOCAL,"은")% 피로감에 축 늘어졌다……。
	PRINTFORMW -체력을 소모했다-
	BASE:LOCAL:체력 -= 400
	RETURN 2
ENDIF