code:
;-------------------------------------------------
;바이브など付けっぱなしアイテムのチェック
;-------------------------------------------------
@EQUIP_CHECK
;着衣の処理
CALL EQUIP_CLOTHES

;主人のち○こ、膣に挿入中
SIF TEQUIP:37 > 0
	CALLFORM EQUIP_COM{TEQUIP:37}

;主人のち○こ、애널に挿入中
SIF TEQUIP:38 > 0
	CALLFORM EQUIP_COM{TEQUIP:38}

;主人のち○こ、입·가슴과접촉中
SIF TEQUIP:39 > 0
	CALLFORM EQUIP_COM{TEQUIP:39}

;主人のち○こ、신체부위접촉中
SIF TEQUIP:40 > 0
	CALLFORM EQUIP_COM{TEQUIP:40}

;클리캡装着中
SIF TEQUIP:11
	CALL EQUIP_COM42

;오나홀装着中
SIF TEQUIP:12
	CALL EQUIP_COM43

;바이브装着中
SIF TEQUIP:13
	CALL EQUIP_COM44

;애널바이브装着中
SIF TEQUIP:14
	CALL EQUIP_COM45

;애널비즈使用中
SIF TEQUIP:15
	CALL EQUIP_COM46

;유두캡装着中
SIF TEQUIP:16
	CALL EQUIP_COM47

;착유기装着中
SIF TEQUIP:17
	CALL EQUIP_COM49

;아이마스크装着中
SIF TEQUIP:18
	CALL EQUIP_COM105

;밧줄で緊縛中
SIF TEQUIP:19
	CALL EQUIP_COM106

;귀갑묶기中
SIF TEQUIP:42
	CALL EQUIP_COM108
;Ｘ字형틀구속中
SIF TEQUIP:44
	CALL EQUIP_COM110

;볼개그装着中
SIF TEQUIP:20
	CALL EQUIP_COM107

;浣腸＋애널플러그装着中
SIF TEQUIP:21
	CALL EQUIP_COM146

;확장벌룬装着中
SIF TEQUIP:22
	CALL EQUIP_COM148

;애널전극装着中
SIF TEQUIP:23
	CALL EQUIP_COM149

;유방전극装着中
SIF TEQUIP:24
	CALL EQUIP_COM150

;촉수調教中
SIF TEQUIP:25
	CALL EQUIP_COM160

;ビデオ촬영중
SIF TEQUIP:28
	CALL EQUIP_COM183

;야외플레이中
SIF TEQUIP:29 || IS_SP_TRAIN_OUTSIDE_PLAY()
	CALL EQUIP_COM184

;수치플레이中
SIF TEQUIP:30
	CALL EQUIP_COM186

;목욕탕플레이中
SIF TEQUIP:31
	CALL EQUIP_COM187

;샤워使用中
SIF TEQUIP:32
	CALL EQUIP_COM188

;신혼플레이中
SIF TEQUIP:33
	CALL EQUIP_COM189

;강정신약の効果発揮中／강정신약の反動処理
SIF TEQUIP:34
	CALL EQUIP_COM191

;촉수펠라中
SIF TEQUIP:36
	CALL EQUIP_COM168

;実況配信中
SIF TEQUIP:43
	CALL EQUIP_COM196

;로터挿入(膣)
SIF (GET_SP_TRAIN_WEARING_ITEMS(0) > 0) && (IS_SP_TRAIN_WORKING_ONE_ITEM(0) > 0)
	CALL EQUIP_COM44

;로터貼り付け(クリ)
SIF (GET_SP_TRAIN_WEARING_ITEMS(1) > 0) && (IS_SP_TRAIN_WORKING_ONE_ITEM(1) > 0)
	CALL EQUIP_COM42

;로터貼り付け(애널)
SIF (GET_SP_TRAIN_WEARING_ITEMS(2) > 0) && (IS_SP_TRAIN_WORKING_ONE_ITEM(2) > 0)
	CALL EQUIP_COM45

;로터貼り付け(가슴)
SIF (GET_SP_TRAIN_WEARING_ITEMS(3) > 0) && (IS_SP_TRAIN_WORKING_ONE_ITEM(3) > 0)
	CALL EQUIP_COM47

;밧줄속옷
SIF TEQUIP:49
	CALL EQUIP_COM111

;개구기
SIF TEQUIP:50
	CALL EQUIP_COM114

;수갑
SIF TEQUIP:51
	CALL EQUIP_COM113

;코훅
SIF TEQUIP:49
	CALL EQUIP_COM115

RETURN 1

;-------------------------------------------------
;主人による調教のボーナス
;-------------------------------------------------
@MASTER_SKILL_CHECK
;의존도ボーナス
IF ASSIPLAY == 0
	;正ベクトル
	IF CFLAG:2 >= 5000
		TIMES SOURCE:0 , 1.40
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:2 , 1.40
		TIMES SOURCE:3 , 1.40
		TIMES SOURCE:4 , 1.50

		TIMES SOURCE:16 , 0.50
		TIMES SOURCE:18 , 0.50
	ELSEIF CFLAG:2 >= 2000
		TIMES SOURCE:0 , 1.20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:2 , 1.20
		TIMES SOURCE:3 , 1.20
		TIMES SOURCE:4 , 1.30

		TIMES SOURCE:16 , 0.70
		TIMES SOURCE:18 , 0.70
	ELSEIF CFLAG:2 >= 1000
		TIMES SOURCE:0 , 1.10
		TIMES SOURCE:1 , 1.10
		TIMES SOURCE:2 , 1.10
		TIMES SOURCE:3 , 1.10
		TIMES SOURCE:4 , 1.20

		TIMES SOURCE:16 , 0.80
		TIMES SOURCE:18 , 0.80
	ELSEIF CFLAG:2 >= 500
		TIMES SOURCE:4 , 1.10

		TIMES SOURCE:16 , 0.90
		TIMES SOURCE:18 , 0.90
	;負ベクトル
	ELSEIF CFLAG:2 <= -5000
		TIMES SOURCE:8 , 1.40
		TIMES SOURCE:9 , 1.40
		TIMES SOURCE:14 , 1.50

		TIMES SOURCE:17 , 0.50
		TIMES SOURCE:18 , 0.50
	ELSEIF CFLAG:2 <= -2000
		TIMES SOURCE:8 , 1.20
		TIMES SOURCE:9 , 1.20
		TIMES SOURCE:14 , 1.30

		TIMES SOURCE:17 , 0.70
		TIMES SOURCE:18 , 0.70
	ELSEIF CFLAG:2 <= -1000
		TIMES SOURCE:8 , 1.10
		TIMES SOURCE:9 , 1.10
		TIMES SOURCE:14 , 1.20

		TIMES SOURCE:17 , 0.80
		TIMES SOURCE:18 , 0.80
	ELSEIF CFLAG:2 <= -500
		TIMES SOURCE:14 , 1.10

		TIMES SOURCE:17 , 0.90
		TIMES SOURCE:18 , 0.90
	ENDIF
ENDIF

;-------------------------------------------------
;처녀喪失時の処理
;-------------------------------------------------
@LOST_VIRGIN
IF TALENT:0 && TFLAG:19
	PRINTW 처녀喪失
	TALENT:0 = 0
	;처녀喪失フラグ(今回のコマンド)
	TFLAG:3 = 1
	;처녀喪失フラグ(今回の調教)
	TFLAG:31 = 1
	TFLAG:49 = 1
	;처녀喪失フラグ(ビデオ撮影)
	SIF TEQUIP:28
		TFLAG:39 = 1
	;정조관념+연모or친애（主人による처녀喪失のみ）
	IF TALENT:30 && TFLAG:19 && (TALENT:3 == 0 && TALENT:6 == 0)
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:18 , 0.50
	;정조관념
	ELSEIF TALENT:80
		TIMES SOURCE:4 , 0.60
		TIMES SOURCE:18 , 10.00
	;정조무관심
	ELSEIF TALENT:81
		TIMES SOURCE:4 , 0.60
		TIMES SOURCE:18 , 0.50
	ENDIF
	;손가락삽입の慣らしギミック処理
	IF PALAM:1 >= 80
		TIMES SOURCE:1 , 1.50
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:7 , 0.80
		TIMES SOURCE:18 , 0.80
	ELSEIF PALAM:1 >= 60
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:4 , 1.15
		TIMES SOURCE:7 , 0.85
		TIMES SOURCE:18 , 0.85
	ELSEIF PALAM:1 >= 40
		TIMES SOURCE:1 , 1.30
		TIMES SOURCE:4 , 1.10
		TIMES SOURCE:7 , 0.90
		TIMES SOURCE:18 , 0.90
	ELSEIF PALAM:1 >= 20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:4 , 1.05
		TIMES SOURCE:7 , 0.95
		TIMES SOURCE:18 , 0.95
	ENDIF
	;陥落素質による処理
	IF TFLAG:20
		;연모かつ相손が主人
		IF TALENT:3 && TFLAG:20
			PRINTFORML %타겟호칭은% %CALLNAME:MASTER%に처녀を捧げられた事に幸福を感じているようだ……
			TFLAG:150 = 2
			TIMES SOURCE:4 , 2.00
			TIMES SOURCE:18 , 0.30
		;친애かつ相손が主人
		ELSEIF TALENT:6 && TFLAG:20
			PRINTFORML %타겟호칭은% %마스터호칭이% 初めての相손である事にこの上ない幸せを感じているようだ……
			TFLAG:150 = 2
			TIMES SOURCE:4 , 2.00
			TIMES SOURCE:18 , 0.10
		ENDIF
		;行為によって、애정경험を加算する
		;정상위
		IF SELECTCOM == 60
			PRINTFORML %EXPNAME:23%+10
			EXP:23 += 10
		;후배위
		ELSEIF SELECTCOM == 61
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		;기승위
		ELSEIF SELECTCOM == 66
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		;대면좌위
		ELSEIF SELECTCOM == 68
			PRINTFORML %EXPNAME:23%+8
			EXP:23 += 8
		;배면좌위
		ELSEIF SELECTCOM == 69
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		;３Ｐ
		ELSEIF SELECTCOM == 500
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		;乱れ牡丹
		ELSEIF SELECTCOM == 504
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		;騎乗乳房자위
		ELSEIF SELECTCOM == 505
			PRINTFORML %EXPNAME:23%+5
			EXP:23 += 5
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;재생처녀喪失のチェック
;-------------------------------------------------
IF TALENT:1 && TFLAG:19
	PRINTW 재생처녀喪失
	TALENT:1 = 0
	;손가락삽입の慣らしギミック処理
	IF PALAM:1 >= 80
		TIMES SOURCE:7 , 0.80
	ELSEIF PALAM:1 >= 60
		TIMES SOURCE:7 , 0.85
	ELSEIF PALAM:1 >= 40
		TIMES SOURCE:7 , 0.90
	ELSEIF PALAM:1 >= 20
		TIMES SOURCE:7 , 0.95
	ENDIF
ENDIF

;-------------------------------------------------
;기교のチェック
;-------------------------------------------------
@TECHNIQUE_CHECK
;行為をしている者の기교をチェックする
;奴隷の場合
IF TFLAG:28 == 1
	;奴隷のABL:기교
	IF ABL:2 == 0
		TIMES SOURCE:0 , 0.50
		TIMES SOURCE:1 , 0.50
		TIMES SOURCE:2 , 0.50
		TIMES SOURCE:3 , 0.50
		TIMES SOURCE:5 , 0.50
	ELSEIF ABL:2 == 1
		TIMES SOURCE:0 , 0.60
		TIMES SOURCE:1 , 0.60
		TIMES SOURCE:2 , 0.60
		TIMES SOURCE:3 , 0.60
		TIMES SOURCE:5 , 0.55
	ELSEIF ABL:2 == 2
		TIMES SOURCE:0 , 0.80
		TIMES SOURCE:1 , 0.80
		TIMES SOURCE:2 , 0.80
		TIMES SOURCE:3 , 0.80
		TIMES SOURCE:5 , 0.70
	ELSEIF ABL:2 == 3
		TIMES SOURCE:0 , 1.00
		TIMES SOURCE:1 , 1.00
		TIMES SOURCE:2 , 1.00
		TIMES SOURCE:3 , 1.00
		TIMES SOURCE:5 , 0.90
	ELSEIF ABL:2 == 4
		TIMES SOURCE:0 , 1.20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:2 , 1.20
		TIMES SOURCE:3 , 1.20
		TIMES SOURCE:5 , 1.20
	ELSEIF ABL:2 == 5
		TIMES SOURCE:0 , 1.50
		TIMES SOURCE:1 , 1.50
		TIMES SOURCE:2 , 1.50
		TIMES SOURCE:3 , 1.50
		TIMES SOURCE:5 , 1.50
	ELSEIF ABL:2 == 6
		TIMES SOURCE:0 , 1.80
		TIMES SOURCE:1 , 1.80
		TIMES SOURCE:2 , 1.80
		TIMES SOURCE:3 , 1.80
		TIMES SOURCE:5 , 1.80
	ELSEIF ABL:2 == 7
		TIMES SOURCE:0 , 2.50
		TIMES SOURCE:1 , 2.50
		TIMES SOURCE:2 , 2.50
		TIMES SOURCE:3 , 2.50
		TIMES SOURCE:5 , 2.50
	ELSEIF ABL:2 == 8
		TIMES SOURCE:0 , 3.00
		TIMES SOURCE:1 , 3.00
		TIMES SOURCE:2 , 3.00
		TIMES SOURCE:3 , 3.00
		TIMES SOURCE:5 , 3.00
	ELSEIF ABL:2 == 9
		TIMES SOURCE:0 , 3.50
		TIMES SOURCE:1 , 3.50
		TIMES SOURCE:2 , 3.50
		TIMES SOURCE:3 , 3.50
		TIMES SOURCE:5 , 3.50
	ELSEIF ABL:2 == 10
		TIMES SOURCE:0 , 5.00
		TIMES SOURCE:1 , 5.00
		TIMES SOURCE:2 , 5.00
		TIMES SOURCE:3 , 5.00
		TIMES SOURCE:5 , 5.00
	ENDIF
;調教者の場合
ELSEIF TFLAG:28 == 0
;調教者のABL:기교
	IF ABL:PLAYER:2 == 0
		TIMES SOURCE:0 , 0.50
		TIMES SOURCE:1 , 0.50
		TIMES SOURCE:2 , 0.50
		TIMES SOURCE:3 , 0.50
	ELSEIF ABL:PLAYER:2 == 1
		TIMES SOURCE:0 , 0.60
		TIMES SOURCE:1 , 0.60
		TIMES SOURCE:2 , 0.60
		TIMES SOURCE:3 , 0.60
	ELSEIF ABL:PLAYER:2 == 2
		TIMES SOURCE:0 , 0.80
		TIMES SOURCE:1 , 0.80
		TIMES SOURCE:2 , 0.80
		TIMES SOURCE:3 , 0.80
	ELSEIF ABL:PLAYER:2 == 3
		TIMES SOURCE:0 , 1.00
		TIMES SOURCE:1 , 1.00
		TIMES SOURCE:2 , 1.00
		TIMES SOURCE:3 , 1.00
	ELSEIF ABL:PLAYER:2 == 4
		TIMES SOURCE:0 , 1.20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:2 , 1.20
		TIMES SOURCE:3 , 1.20
	ELSEIF ABL:PLAYER:2 == 5
		TIMES SOURCE:0 , 1.50
		TIMES SOURCE:1 , 1.50
		TIMES SOURCE:2 , 1.50
		TIMES SOURCE:3 , 1.50
	ELSEIF ABL:PLAYER:2 == 6
		TIMES SOURCE:0 , 1.80
		TIMES SOURCE:1 , 1.80
		TIMES SOURCE:2 , 1.80
		TIMES SOURCE:3 , 1.80
	ELSEIF ABL:PLAYER:2 == 7
		TIMES SOURCE:0 , 2.50
		TIMES SOURCE:1 , 2.50
		TIMES SOURCE:2 , 2.50
		TIMES SOURCE:3 , 2.50
	ELSEIF ABL:PLAYER:2 == 8
		TIMES SOURCE:0 , 3.00
		TIMES SOURCE:1 , 3.00
		TIMES SOURCE:2 , 3.00
		TIMES SOURCE:3 , 3.00
	ELSEIF ABL:PLAYER:2 == 9
		TIMES SOURCE:0 , 3.50
		TIMES SOURCE:1 , 3.50
		TIMES SOURCE:2 , 3.50
		TIMES SOURCE:3 , 3.50
	ELSEIF ABL:PLAYER:2 == 10
		TIMES SOURCE:0 , 5.00
		TIMES SOURCE:1 , 5.00
		TIMES SOURCE:2 , 5.00
		TIMES SOURCE:3 , 5.00
	ENDIF
	EXP:PLAYER:70 += 1
ENDIF

;-------------------------------------------------
;강정신약による絶頂キャンセル
;-------------------------------------------------
@ECST_CANCEL

;SOURCE.ERBの絶頂処理を流用

C = 0
V = 0
A = 0
B = 0

;絶頂Ｃ
IF UP:0 + PALAM:0 >= PALAMLV:4 * 4
	C = 4
	DOWN:0 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｃキャンセル
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4 * 3
	C = 3
	DOWN:0 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｃキャンセル
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4 * 2
	C = 2
	DOWN:0 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｃキャンセル
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4
	C = 1
	DOWN:0 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｃキャンセル
ENDIF
;DOWN:0で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:0 + PALAM:0 - DOWN:0 >= PALAMLV:4
	DOWN:0 = UP:0 + PALAM:0 - PALAMLV:4 + 1

;絶頂Ｖ
IF UP:1 + PALAM:1 >= PALAMLV:4 * 4
	V = 4
	DOWN:1 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｖキャンセル
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4 * 3
	V = 3
	DOWN:1 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｖキャンセル
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4 * 2
	V = 2
	DOWN:1 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｖキャンセル
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4
	V = 1
	DOWN:1 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｖキャンセル
ENDIF
;DOWN:1で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:1 + PALAM:1 - DOWN:1 >= PALAMLV:4
	DOWN:1 = UP:1 + PALAM:1 - PALAMLV:4 + 1

;絶頂Ａ
IF UP:2 + PALAM:2 >= PALAMLV:4 * 4
	A = 4
	DOWN:2 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ａキャンセル
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4 * 3
	A = 3
	DOWN:2 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ａキャンセル
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4 * 2
	A = 2
	DOWN:2 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ａキャンセル
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4
	A = 1
	DOWN:2 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ａキャンセル
ENDIF
;DOWN:2で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:2 + PALAM:2 - DOWN:2 >= PALAMLV:4
	DOWN:2 = UP:2 + PALAM:2 - PALAMLV:4 + 1

;絶頂Ｂ
IF UP:3 + PALAM:3 >= PALAMLV:4 * 4
	B = 4
	DOWN:3 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｂキャンセル
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4 * 3
	B = 3
	DOWN:3 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｂキャンセル
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4 * 2
	B = 2
	DOWN:3 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｂキャンセル
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4
	B = 1
	DOWN:3 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｂキャンセル
ENDIF
;DOWN:3で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:3 + PALAM:3 - DOWN:3 >= PALAMLV:4
	DOWN:3 = UP:3 + PALAM:3 - PALAMLV:4 + 1

;止められた絶頂回数をTFLAG:44～TFLAG:47に記録
TFLAG:44 += C
TFLAG:45 += V
TFLAG:46 += A
TFLAG:47 += B

;助손か主人が조합지식を持っていて、対象が[약독내성]をもっていないのなら効果が倍
IF ASSI >= 1
	IF TALENT:PLAYER:125 == 1
		TFLAG:44 += C
		TFLAG:45 += V
		TFLAG:46 += A
		TFLAG:47 += B
	ELSEIF ASSIPLAY == 0 && TALENT:ASSI:125 == 1
		TFLAG:44 += C
		TFLAG:45 += V
		TFLAG:46 += A
		TFLAG:47 += B
	ENDIF
ELSEIF TALENT:PLAYER:125 == 1
	TFLAG:44 += C
	TFLAG:45 += V
	TFLAG:46 += A
	TFLAG:47 += B
ENDIF

RETURN 1

;-------------------------------------------------
;絶頂処理
;-------------------------------------------------
@ORGASM_ADD
C = 0
V = 0
A = 0
B = 0

;강정신약の副作用を適用する
IF TEQUIP:34 == 1
	CALL REACT_DRUG
ENDIF

;絶頂Ｃ
IF UP:0 + PALAM:0 >= PALAMLV:4 * 4
	C = 4
	DOWN:0 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｃ
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4 * 3
	C = 3
	DOWN:0 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｃ
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4 * 2
	C = 2
	DOWN:0 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｃ
ELSEIF UP:0 + PALAM:0 >= PALAMLV:4
	C = 1
	DOWN:0 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｃ
ENDIF

;DOWN:0で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:0 + PALAM:0 - DOWN:0 >= PALAMLV:4
	DOWN:0 = UP:0 + PALAM:0 - PALAMLV:4 + 1

;絶頂Ｖ
IF UP:1 + PALAM:1 >= PALAMLV:4 * 4
	V = 4
	DOWN:1 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｖ
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4 * 3
	V = 3
	DOWN:1 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｖ
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4 * 2
	V = 2
	DOWN:1 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｖ
ELSEIF UP:1 + PALAM:1 >= PALAMLV:4
	V = 1
	DOWN:1 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｖ
ENDIF
;DOWN:1で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:1 + PALAM:1 - DOWN:1 >= PALAMLV:4
	DOWN:1 = UP:1 + PALAM:1 - PALAMLV:4 + 1

;絶頂Ａ
IF UP:2 + PALAM:2 >= PALAMLV:4 * 4
	A = 4
	DOWN:2 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ａ
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4 * 3
	A = 3
	DOWN:2 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ａ
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4 * 2
	A = 2
	DOWN:2 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ａ
ELSEIF UP:2 + PALAM:2 >= PALAMLV:4
	A = 1
	DOWN:2 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ａ
ENDIF
;DOWN:2で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:2 + PALAM:2 - DOWN:2 >= PALAMLV:4
	DOWN:2 = UP:2 + PALAM:2 - PALAMLV:4 + 1

;絶頂Ｂ
IF UP:3 + PALAM:3 >= PALAMLV:4 * 4
	B = 4
	DOWN:3 = (PALAMLV:4 * 4 - 1000)
	PRINTL 究極絶頂Ｂ
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4 * 3
	B = 3
	DOWN:3 = (PALAMLV:4 * 3 - 1000)
	PRINTL 超強絶頂Ｂ
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4 * 2
	B = 2
	DOWN:3 = (PALAMLV:4 * 2 - 1000)
	PRINTL 強絶頂Ｂ
ELSEIF UP:3 + PALAM:3 >= PALAMLV:4
	B = 1
	DOWN:3 = (PALAMLV:4 - 1000)
	PRINTL 絶頂Ｂ
ENDIF
;DOWN:3で下げても絶頂以上なら
;その値-1になるように調整（10000で絶頂なら9999）
SIF UP:3 + PALAM:3 - DOWN:3 >= PALAMLV:4
	DOWN:3 = UP:3 + PALAM:3 - PALAMLV:4 + 1

;-------------------------------------------------
;絶頂時の追加処理
;-------------------------------------------------
TFLAG:29 = C + V*2 + A*2 + B

;쾌락각인の処理
;絶頂の部位と強度の合計が一定以上で각인を取得する
R = C+V*2+A*2+B
;Rが4以上で쾌락각인３に相当
IF R >= 4 && MARK:1 < 3
	TFLAG:200 = 3
;Rが3以上で쾌락각인２に相当
ELSEIF R >= 3 && MARK:1 < 2
	TFLAG:200 = 2
;Rが2以上で쾌락각인１に相当
ELSEIF R >= 2 && MARK:1 < 1
	TFLAG:200 = 1
ENDIF

IF C && V && A && B
	IF C >= 4 && V >= 4 && A >= 4 && B >= 4
		PRINTL 究 極 四 重 絶 頂
	ELSEIF C >= 3 && V >= 3 && A >= 3 && B >= 3
		PRINTL 最 強 四 重 絶 頂
	ELSEIF C >= 2 && V >= 2 && A >= 2 && B >= 2
		PRINTL 強 力 四 重 絶 頂
	ELSE
		PRINTL 四 重 絶 頂
	ENDIF
	PRINTL (それぞれ8倍의 구슬が得られます)
	C *= 8
	V *= 8
	A *= 8
	B *= 8
ELSEIF C && V && A
	PRINTL Ｃ＆Ｖ＆Ａ絶頂
	PRINTL (それぞれ4倍의 구슬が得られます)
	C *= 4
	V *= 4
	A *= 4
ELSEIF B && V && A
	PRINTL Ｂ＆Ｖ＆Ａ絶頂
	PRINTL (それぞれ4倍의 구슬が得られます)
	B *= 4
	V *= 4
	A *= 4
ELSEIF C && B && A
	PRINTL Ｃ＆Ｂ＆Ａ絶頂
	PRINTL (それぞれ4倍의 구슬が得られます)
	C *= 4
	B *= 4
	A *= 4
ELSEIF C && V && B
	PRINTL Ｃ＆Ｖ＆Ｂ絶頂
	PRINTL (それぞれ4倍의 구슬が得られます)
	C *= 4
	V *= 4
	B *= 4
ELSEIF C && V
	PRINTL Ｃ＆Ｖ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	C *= 2
	V *= 2
ELSEIF C && A
	PRINTL Ｃ＆Ａ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	C *= 2
	A *= 2
ELSEIF V && A
	PRINTL Ｖ＆Ａ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	V *= 2
	A *= 2
ELSEIF C && B
	PRINTL Ｃ＆Ｂ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	C *= 2
	B *= 2
ELSEIF V && B
	PRINTL Ｖ＆Ｂ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	V *= 2
	B *= 2
ELSEIF A && B
	PRINTL Ａ＆Ｂ絶頂
	PRINTL (それぞれ2倍의 구슬が得られます)
	A *= 2
	B *= 2
ENDIF

IF C
	SOURCE:13 += 500 * C
	SOURCE:14 += 200 * C
	SOURCE:18 += 150 * C
	LOSEBASE:0 += 20
	LOSEBASE:1 += 10
ENDIF
IF V
	SOURCE:11 += 800 * V
	SOURCE:12 += 500 * V
	SOURCE:13 += 700 * V
	SOURCE:14 += 400 * V
	SOURCE:18 += 300 * V
	LOSEBASE:0 += 40
	LOSEBASE:1 += 20
ENDIF
IF A
	SOURCE:11 += 500 * A
	SOURCE:12 += 700 * A
	SOURCE:13 += 900 * A
	SOURCE:14 += 700 * A
	SOURCE:18 += 400 * A
	LOSEBASE:0 += 60
	LOSEBASE:1 += 30
ENDIF
IF B
	SOURCE:13 += 500 * B
	SOURCE:14 += 200 * B
	SOURCE:18 += 150 * B
	LOSEBASE:0 += 20
	LOSEBASE:1 += 10
ENDIF

;치욕쾌락경험
IF TFLAG:29 >= 1 && (TEQUIP:28 >= 1 || TEQUIP:29 >= 1)
	PRINTFORML %EXPNAME:33%+{TFLAG:29}
	EXP:33 += TFLAG:29
ENDIF

;絶頂による욕망ＬＶアップ
L = 0
SIF C >= 2 || B >= 2 || V || A
	L = 1
SIF V >= 2 || A >= 2
	L = 2
SIF (C >= 2 && B >= 2) || (C >= 2 && V) || (C >= 2 && A) || (B >= 2 && V) || (B >= 2 && A) && (V && A)
	L = 2
SIF (C && B && V) || (C && B && A) || (C && V && A) || (V && A && B)
	L = 3
SIF C && V && A && B
	L = 4
;자제심があると１下がる
SIF TALENT:50
	L -= 1

IF ABL:1 < L
	ABL:1 = L
	PRINT そして
	PRINTS ABLNAME:1
	PRINT がLV
	PRINTV L
	PRINTL になった
	;욕망の上昇による[억압]の消滅をチェック
	CALL YOKUBO_UP_CHECK
ENDIF

;NOWEXにデータを入れる（絶頂時입上に使う）
NOWEX:0 = C
NOWEX:1 = V
NOWEX:2 = A
NOWEX:3 = B

;絶頂回数を増やす
EX:0 += C
EX:1 += V
EX:2 += A
EX:3 += B

;절정경험を増やす
EXP:2 += C+V+A+B

RETURN 1

;-------------------------------------------------
;강정신약の副作用
;-------------------------------------------------
@REACT_DRUG
;仕様説明：
;@ECST_CANCELでEX:11～EX:14に記録してきた絶頂回数を해방します。
;パッチ詰め合わせではTFLAG:44～TFLAG:47を代わりに使用。内訳は
;TFLAG:44 = EX:11(Ｃ絶頂処理)の代わり、TFLAG:45 = EX:12(Ｖ絶頂処理)の代わり、
;TFLAG:46 = EX:13(Ａ絶頂処理)の代わり、TFLAG:47 = EX:14(Ｂ絶頂処理)の代わり
;記録してきた絶頂回数１回につき、該当する部位の快ソース（UP:0,1,2,3）を２倍にします。
;１回のコマンドでひとつの部位につき１回ずつこの倍化処理を行い、
;EX:11～EX:14の合計が０になったとき、反動が解除されます。
;-------------------------------------------------
;쾌Ｃの処理
IF TFLAG:44 > 0 && UP:0 > 0
	UP:0 *= 2
	TFLAG:44 -= 1
ENDIF
;쾌Ｖの処理
IF TFLAG:45 > 0 && UP:1 > 0
	UP:1 *= 2
	TFLAG:45 -= 1
ENDIF
;쾌Ａの処理
IF TFLAG:46 > 0 && UP:2 > 0
	UP:2 *= 2
	TFLAG:46 -= 1
ENDIF
;쾌Ｂの処理
IF TFLAG:47 > 0 && UP:3 > 0
	UP:3 *= 2
	TFLAG:47 -= 1
ENDIF
;反動の終了チェック
SIF TFLAG:44 + TFLAG:45 + TFLAG:46 + TFLAG:47 == 0
	TEQUIP:34 = 0

RETURN 1

;-------------------------------------------------
;調教対象の射精チェック
;-------------------------------------------------
@TARGET_EJAC_CHECK
SIF TALENT:289 == 0 && TALENT:290 == 0
	RETURN 0

A = UP:0 + UP:1 + UP:2 + UP:3

;자제심
SIF TALENT:50
	A /= 2

;쾌감에솔직
SIF TALENT:170
	TIMES A , 1.20

;쾌감을부정（음란、창녀で無効）
SIF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	TIMES A , 0.80

;미약
SIF TEQUIP:26
	A *= 2

;이뇨제
SIF TEQUIP:27
	A /= 2

;射精の再装填期間中は射精ゲージの増加は20分の1に
SIF CFLAG:TARGET:24 > 0
	A /= 20

;射精の限界が来ている場合は、射精ゲージの増加はしない
IF CFLAG:TARGET:11 == 0
	A = 0
	BASE:2 = 0
ENDIF

BASE:2 += A

S = BASE:2
EJAC = MAXBASE:2

IF  S > EJAC * 2
	E = 2
ELSEIF S > EJAC
	E = 1
ELSE
	E = 0
ENDIF

;大量射精
IF E == 2
	LOSEBASE:0 += 20
	LOSEBASE:1 += 100

	IF EXP:3 < EXPLV:1
		SOURCE:13 += 10000
		SOURCE:14 += 5000
		SOURCE:15 += 2000
	ELSEIF EXP:3 < EXPLV:2
		SOURCE:13 += 5000
		SOURCE:14 += 3000
		SOURCE:15 += 1500
	ELSEIF EXP:3 < EXPLV:3
		SOURCE:13 += 3000
		SOURCE:14 += 1500
		SOURCE:15 += 1000
	ELSEIF EXP:3 < EXPLV:4
		SOURCE:13 += 1500
		SOURCE:14 += 800
		SOURCE:15 += 700
	ELSEIF EXP:3 < EXPLV:5
		SOURCE:13 += 1000
		SOURCE:14 += 500
		SOURCE:15 += 400
	ELSE
		SOURCE:13 += 500
		SOURCE:14 += 300
	ENDIF

	PRINTS NAME:TARGET
	PRINTL 대량사정
	PRINTL 정액경험＋１
	PRINTL 사정経験＋２
	IF EXP:3 == 0 && TALENT:290 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:20 += 1
	EXP:3 += 2

	CALL IN_VAGINA_CHECK_T

	;Ｐに精液汚れ
	STAIN:2 |= 4

	BASE:2 -= EJAC*2
	SIF BASE:2 >= EJAC
		BASE:2 = EJAC-1

	;調教対象が射精フラグ
	TFLAG:10 = 2
	NOWEX:5 += 1
	EX:5 += 1
;通常の射精
ELSEIF E == 1
	LOSEBASE:1 += 40

	IF EXP:3 < EXPLV:1
		SOURCE:13 += 5000
		SOURCE:14 += 2500
		SOURCE:15 += 900
	ELSEIF EXP:3 < EXPLV:2
		SOURCE:13 += 2500
		SOURCE:14 += 2000
		SOURCE:15 += 700
	ELSEIF EXP:3 < EXPLV:3
		SOURCE:13 += 1000
		SOURCE:14 += 800
		SOURCE:15 += 500
	ELSEIF EXP:3 < EXPLV:4
		SOURCE:13 += 800
		SOURCE:14 += 600
		SOURCE:15 += 350
	ELSEIF EXP:3 < EXPLV:5
		SOURCE:13 += 400
		SOURCE:14 += 400
		SOURCE:15 += 200
	ELSE
		SOURCE:13 += 200
		SOURCE:14 += 250
	ENDIF

	PRINTS NAME:TARGET
	PRINTL 사정
	PRINTL 사정経験＋１
	IF EXP:3 == 0 && TALENT:290 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:3 += 1

	CALL IN_VAGINA_CHECK_T

	;Ｐに精液汚れ
	STAIN:2 |= 4

	BASE:2 -= EJAC
	SIF BASE:2 >= EJAC
		BASE:2 = EJAC-1

	;調教対象が射精フラグ
	TFLAG:10 = 1
	NOWEX:5 += 1
	EX:5 += 1
ENDIF

;射精には再装填の期間を設ける
;通常射精時
SIF E == 1
	CFLAG:TARGET:24 = 3
;大量射精時
SIF E == 2
	CFLAG:TARGET:24 = 5

;射精残弾減少
SIF E > 0
	CFLAG:TARGET:11 -= 1

;-------------------------------------------------
;調教対象の噴乳チェック
;-------------------------------------------------
@TARGET_MILK_CHECK
SIF TALENT:299 == 0
	RETURN 0

A = UP:0 / 5 + UP:1 / 5 + UP:2 / 5 + UP:3 * 3

;자제심
SIF TALENT:50
	A /= 2

;쾌감에솔직
SIF TALENT:170
	TIMES A , 1.20

;쾌감을부정（음란、창녀で無効）
SIF TALENT:171 && (TALENT:4 == 0 && TALENT:7 == 0)
	TIMES A , 0.80

;B敏感
SIF TALENT:238
	TIMES A , 1.20

;미약
SIF TEQUIP:26
	A *= 2

;이뇨제
SIF TEQUIP:27
	A /= 2

;調教者が유아퇴행
SIF TALENT:PLAYER:300
	TIMES A , 1.20

;調教者が유치
SIF TALENT:PLAYER:301
	TIMES A , 1.20

;절벽
SIF TALENT:240
	TIMES A , 0.30

;빈유
SIF TALENT:239
	TIMES A , 0.50

;거유
SIF TALENT:241
	TIMES A , 1.50

;폭유
SIF TALENT:242
	TIMES A , 1.80

;분유중독のレベルを見る
IF ABL:19 == 0
	TIMES A , 1.00
ELSEIF ABL:19 == 1
	TIMES A , 1.05
ELSEIF ABL:19 == 2
	TIMES A , 1.10
ELSEIF ABL:19 == 3
	TIMES A , 1.20
ELSEIF ABL:19 == 4
	TIMES A , 1.30
ELSEIF ABL:19 == 5
	TIMES A , 1.40
ELSEIF ABL:19 == 6
	TIMES A , 1.50
ELSEIF ABL:19 == 7
	TIMES A , 1.60
ELSEIF ABL:19 == 8
	TIMES A , 1.70
ELSEIF ABL:19 == 9
	TIMES A , 1.80
ELSE
	TIMES A , 2.00
ENDIF

A = 500 + A / 2
BASE:3 += A

S = BASE:3
EJAC = MAXBASE:3

IF  S > EJAC * 3
	E = 3
ELSEIF S > EJAC * 2
	E = 2
ELSEIF S > EJAC
	E = 1
ELSE
	E = 0
ENDIF
;最強噴乳
IF E >= 6
	LOSEBASE:0 += 50
	LOSEBASE:1 += 150

	IF EXP:54 < EXPLV:1
		SOURCE:13 += 20000
		SOURCE:14 += 15000
		SOURCE:15 += 6000
	ELSEIF EXP:54 < EXPLV:2
		SOURCE:13 += 10000
		SOURCE:14 += 6000
		SOURCE:15 += 4500
	ELSEIF EXP:54 < EXPLV:3
		SOURCE:13 += 6000
		SOURCE:14 += 3000
		SOURCE:15 += 1500
	ELSEIF EXP:54 < EXPLV:4
		SOURCE:13 += 3000
		SOURCE:14 += 1600
		SOURCE:15 += 1400
	ELSEIF EXP:54 < EXPLV:5
		SOURCE:13 += 2000
		SOURCE:14 += 1000
		SOURCE:15 += 800
	ELSE
		SOURCE:13 += 1000
		SOURCE:14 += 600
	ENDIF

	PRINTFORML %타겟이름은% 乳首から凄まじい量の母乳を噴出した
	PRINTL 분유경험＋４
	IF EXP:54 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:54 += 4
	;Ｂに母乳汚れ
	STAIN:5 |= 16

	BASE:3 -= EJAC*2
	SIF BASE:3 >= EJAC
		BASE:3 = EJAC-1

	;調教対象が噴乳フラグ
	TFLAG:11 += 4
	;착유기で母乳が集められているかチェック
	SIF TEQUIP:17
		TFLAG:35 += 4

	NOWEX:4 += 1
	EX:4 += 1
;超大量噴乳
ELSEIF E >= 4
	LOSEBASE:0 += 30
	LOSEBASE:1 += 120

	IF EXP:54 < EXPLV:1
		SOURCE:13 += 15000
		SOURCE:14 += 10000
		SOURCE:15 += 4000
	ELSEIF EXP:54 < EXPLV:2
		SOURCE:13 += 7500
		SOURCE:14 += 6000
		SOURCE:15 += 3000
	ELSEIF EXP:54 < EXPLV:3
		SOURCE:13 += 8000
		SOURCE:14 += 4000
		SOURCE:15 += 2000
	ELSEIF EXP:54 < EXPLV:4
		SOURCE:13 += 4000
		SOURCE:14 += 2400
		SOURCE:15 += 2100
	ELSEIF EXP:54 < EXPLV:5
		SOURCE:13 += 3000
		SOURCE:14 += 1500
		SOURCE:15 += 1200
	ELSE
		SOURCE:13 += 1400
		SOURCE:14 += 900
	ENDIF

	PRINTFORML %타겟이름은% 乳首から多量の母乳を噴出した
	PRINTL 분유경험＋4
	IF EXP:54 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:54 += 3
	;Ｂに母乳汚れ
	STAIN:5 |= 16

	BASE:3 -= EJAC*2
	SIF BASE:3 >= EJAC
		BASE:3 = EJAC-1

	;調教対象が噴乳フラグ
	TFLAG:11 += 3
	;착유기で母乳が集められているかチェック
	SIF TEQUIP:17
		TFLAG:35 += 3

	NOWEX:4 += 1
	EX:4 += 1

;大量噴乳
ELSEIF E >= 2
	LOSEBASE:0 += 20
	LOSEBASE:1 += 80

	IF EXP:54 < EXPLV:1
		SOURCE:13 += 10000
		SOURCE:14 += 5000
		SOURCE:15 += 2000
	ELSEIF EXP:54 < EXPLV:2
		SOURCE:13 += 5000
		SOURCE:14 += 4000
		SOURCE:15 += 1500
	ELSEIF EXP:54 < EXPLV:3
		SOURCE:13 += 3000
		SOURCE:14 += 1500
		SOURCE:15 += 1000
	ELSEIF EXP:54 < EXPLV:4
		SOURCE:13 += 1500
		SOURCE:14 += 800
		SOURCE:15 += 700
	ELSEIF EXP:54 < EXPLV:5
		SOURCE:13 += 1000
		SOURCE:14 += 500
		SOURCE:15 += 400
	ELSE
		SOURCE:13 += 500
		SOURCE:14 += 300
	ENDIF

	PRINTFORML %타겟이름은% 乳首から何度も母乳を噴出した
	PRINTL 분유경험＋２
	IF EXP:54 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:54 += 2
	;Ｂに母乳汚れ
	STAIN:5 |= 16

	BASE:3 -= EJAC*2
	SIF BASE:3 >= EJAC
		BASE:3 = EJAC-1

	;調教対象が噴乳フラグ
	TFLAG:11 += 2
	;착유기で母乳が集められているかチェック
	SIF TEQUIP:17
		TFLAG:35 += 2

	NOWEX:4 += 1
	EX:4 += 1
;通常の噴乳
ELSEIF E == 1
	LOSEBASE:1 += 40

	IF EXP:54 < EXPLV:1
		SOURCE:13 += 5000
		SOURCE:14 += 2500
		SOURCE:15 += 900
	ELSEIF EXP:54 < EXPLV:2
		SOURCE:13 += 2500
		SOURCE:14 += 2000
		SOURCE:15 += 700
	ELSEIF EXP:54 < EXPLV:3
		SOURCE:13 += 1000
		SOURCE:14 += 800
		SOURCE:15 += 500
	ELSEIF EXP:54 < EXPLV:4
		SOURCE:13 += 800
		SOURCE:14 += 600
		SOURCE:15 += 350
	ELSEIF EXP:54 < EXPLV:5
		SOURCE:13 += 400
		SOURCE:14 += 400
		SOURCE:15 += 200
	ELSE
		SOURCE:13 += 200
		SOURCE:14 += 250
	ENDIF

	PRINTFORML %타겟이름은% 乳首から母乳を垂れ流した
	PRINTL 분유경험＋１
	IF EXP:54 == 0
		EXP:50 += 1
		PRINTL 이상경험＋1
	ENDIF
	EXP:54 += 1
	;Ｂに母乳汚れ
	STAIN:5 |= 16

	BASE:3 -= EJAC
	SIF BASE:3 >= EJAC
		BASE:3 = EJAC-1

	;調教対象が噴乳フラグ
	TFLAG:11 += 1
	;착유기で母乳が集められているかチェック
	SIF TEQUIP:17
		TFLAG:35 += 1

	NOWEX:4 += 1
	EX:4 += 1
ENDIF

;-------------------------------------------------
;同性の場合のチェック
;-------------------------------------------------
@SOURCE_SEX_CHECK
SIF (TALENT:290 == 0 && TALENT:PLAYER:290) || (TALENT:290 && TALENT:PLAYER:290 == 0)
	RETURN 0

;レズ
IF TALENT:290 == 0 && TALENT:PLAYER:290 == 0
	;ABL:레즈끼をみる
	IF ABL:11 == 0
		TIMES SOURCE:16 , 1.30
		TIMES SOURCE:17 , 1.30
		TIMES SOURCE:18 , 1.30
	ELSEIF ABL:11 == 1
		TIMES SOURCE:6 , 1.10
		TIMES SOURCE:16 , 1.20
		TIMES SOURCE:17 , 1.20
		TIMES SOURCE:18 , 1.20
	ELSEIF ABL:11 == 2
		TIMES SOURCE:6 , 1.20
		TIMES SOURCE:14 , 0.90
		TIMES SOURCE:16 , 1.10
		TIMES SOURCE:17 , 1.10
		TIMES SOURCE:18 , 1.10
	ELSEIF ABL:11 == 3
		TIMES SOURCE:6 , 1.30
		TIMES SOURCE:14 , 0.95
	ELSEIF ABL:11 == 4
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.90
		TIMES SOURCE:17 , 0.90
	ELSEIF ABL:11 == 5
		TIMES SOURCE:6 , 1.50
		TIMES SOURCE:14 , 0.85
		TIMES SOURCE:17 , 0.80
	ELSEIF ABL:11 == 6
		TIMES SOURCE:6 , 1.60
		TIMES SOURCE:14 , 0.80
		TIMES SOURCE:17 , 0.70
	ELSEIF ABL:11 == 7
		TIMES SOURCE:6 , 1.70
		TIMES SOURCE:14 , 0.75
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:11 == 8
		TIMES SOURCE:6 , 1.80
		TIMES SOURCE:14 , 0.70
		TIMES SOURCE:17 , 0.50
	ELSEIF ABL:11 == 9
		TIMES SOURCE:6 , 1.90
		TIMES SOURCE:14 , 0.65
		TIMES SOURCE:17 , 0.40
	ELSE
		TIMES SOURCE:6 , 2.00
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:17 , 0.30
	ENDIF

	;ABL:레즈중독をみる
	IF ABL:17 == 1
		SOURCE:9 += 100
		TIMES SOURCE:0 , 1.10
		TIMES SOURCE:1 , 1.10
		TIMES SOURCE:2 , 1.10
		TIMES SOURCE:3 , 1.10
		TIMES SOURCE:6 , 1.10
		TIMES SOURCE:14 , 0.90
		TIMES SOURCE:15 , 0.90
		TIMES SOURCE:17 , 0.90
	ELSEIF ABL:17 == 2
		SOURCE:9 += 200
		TIMES SOURCE:0 , 1.20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:2 , 1.20
		TIMES SOURCE:3 , 1.20
		TIMES SOURCE:6 , 1.20
		TIMES SOURCE:14 , 0.80
		TIMES SOURCE:15 , 0.80
		TIMES SOURCE:17 , 0.80
	ELSEIF ABL:17 == 3
		SOURCE:9 += 350
		TIMES SOURCE:0 , 1.30
		TIMES SOURCE:1 , 1.30
		TIMES SOURCE:2 , 1.30
		TIMES SOURCE:3 , 1.30
		TIMES SOURCE:6 , 1.30
		TIMES SOURCE:14 , 0.70
		TIMES SOURCE:15 , 0.70
		TIMES SOURCE:17 , 0.70
	ELSEIF ABL:17 == 4
		SOURCE:7 += 500
		TIMES SOURCE:0 , 1.40
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:2 , 1.40
		TIMES SOURCE:3 , 1.40
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:15 , 0.60
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:17 == 5
		SOURCE:9 += 750
		TIMES SOURCE:0 , 1.40
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:2 , 1.40
		TIMES SOURCE:3 , 1.40
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:15 , 0.60
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:17 == 6
		SOURCE:9 += 1000
		TIMES SOURCE:0 , 1.50
		TIMES SOURCE:1 , 1.50
		TIMES SOURCE:2 , 1.50
		TIMES SOURCE:3 , 1.50
		TIMES SOURCE:6 , 1.50
		TIMES SOURCE:14 , 0.50
		TIMES SOURCE:15 , 0.50
		TIMES SOURCE:17 , 0.50
	ELSEIF ABL:17 == 7
		SOURCE:9 += 1200
		TIMES SOURCE:0 , 1.60
		TIMES SOURCE:1 , 1.60
		TIMES SOURCE:2 , 1.60
		TIMES SOURCE:3 , 1.60
		TIMES SOURCE:6 , 1.60
		TIMES SOURCE:14 , 0.40
		TIMES SOURCE:15 , 0.40
		TIMES SOURCE:17 , 0.40
	ELSEIF ABL:17 == 8
		SOURCE:9 += 1500
		TIMES SOURCE:0 , 1.70
		TIMES SOURCE:1 , 1.70
		TIMES SOURCE:2 , 1.70
		TIMES SOURCE:3 , 1.70
		TIMES SOURCE:6 , 1.70
		TIMES SOURCE:14 , 0.30
		TIMES SOURCE:15 , 0.30
		TIMES SOURCE:17 , 0.30
	ELSEIF ABL:17 == 9
		SOURCE:9 += 1800
		TIMES SOURCE:0 , 1.80
		TIMES SOURCE:1 , 1.80
		TIMES SOURCE:2 , 1.80
		TIMES SOURCE:3 , 1.80
		TIMES SOURCE:6 , 1.80
		TIMES SOURCE:14 , 0.20
		TIMES SOURCE:15 , 0.20
		TIMES SOURCE:17 , 0.20
	ELSEIF ABL:17 >= 10
		SOURCE:9 += 2500
		TIMES SOURCE:0 , 1.90
		TIMES SOURCE:1 , 1.90
		TIMES SOURCE:2 , 1.90
		TIMES SOURCE:3 , 1.90
		TIMES SOURCE:6 , 1.90
		TIMES SOURCE:14 , 0.10
		TIMES SOURCE:15 , 0.10
		TIMES SOURCE:17 , 0.10
	ENDIF

	;調教者のABL:레즈끼
	IF ABL:PLAYER:11 == 0 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.40
		TIMES SOURCE:6 , 0.40
	ELSEIF ABL:PLAYER:11 == 1 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.60
		TIMES SOURCE:6 , 0.60
	ELSEIF ABL:PLAYER:11 == 2 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.80
		TIMES SOURCE:6 , 0.80
	ELSEIF ABL:PLAYER:11 == 3
		TIMES SOURCE:4 , 1.00
		TIMES SOURCE:6 , 1.00
	ELSEIF ABL:PLAYER:11 == 4
		TIMES SOURCE:4 , 1.10
		TIMES SOURCE:6 , 1.10
	ELSEIF ABL:PLAYER:11 == 5
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:6 , 1.20
	ELSEIF ABL:PLAYER:11 == 6
		TIMES SOURCE:4 , 1.30
		TIMES SOURCE:6 , 1.30
	ELSEIF ABL:PLAYER:11 == 7
		TIMES SOURCE:4 , 1.40
		TIMES SOURCE:6 , 1.40
	ELSEIF ABL:PLAYER:11 == 8
		TIMES SOURCE:4 , 1.50
		TIMES SOURCE:6 , 1.50
	ELSEIF ABL:PLAYER:11 == 9
		TIMES SOURCE:4 , 1.60
		TIMES SOURCE:6 , 1.60
	ELSE
		TIMES SOURCE:4 , 1.70
		TIMES SOURCE:6 , 1.70
	ENDIF

	;調教者のABL:레즈중독
	IF ABL:PLAYER:17 == 1
		TIMES SOURCE:4 , 1.05
		TIMES SOURCE:5 , 1.05
		TIMES SOURCE:6 , 1.05
	ELSEIF ABL:PLAYER:17 == 2
		TIMES SOURCE:4 , 1.10
		TIMES SOURCE:5 , 1.10
		TIMES SOURCE:6 , 1.10
	ELSEIF ABL:PLAYER:17 == 3
		TIMES SOURCE:4 , 1.15
		TIMES SOURCE:5 , 1.15
		TIMES SOURCE:6 , 1.15
	ELSEIF ABL:PLAYER:17 == 4
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:5 , 1.20
		TIMES SOURCE:6 , 1.20
	ELSEIF ABL:PLAYER:17 == 5
		TIMES SOURCE:4 , 1.25
		TIMES SOURCE:5 , 1.25
		TIMES SOURCE:6 , 1.25
	ELSEIF ABL:PLAYER:17 == 6
		TIMES SOURCE:4 , 1.30
		TIMES SOURCE:5 , 1.30
		TIMES SOURCE:6 , 1.30
	ELSEIF ABL:PLAYER:17 == 7
		TIMES SOURCE:4 , 1.35
		TIMES SOURCE:5 , 1.35
		TIMES SOURCE:6 , 1.35
	ELSEIF ABL:PLAYER:17 == 8
		TIMES SOURCE:4 , 1.40
		TIMES SOURCE:5 , 1.40
		TIMES SOURCE:6 , 1.40
	ELSEIF ABL:PLAYER:17 == 9
		TIMES SOURCE:4 , 1.45
		TIMES SOURCE:5 , 1.45
		TIMES SOURCE:6 , 1.45
	ELSEIF ABL:PLAYER:17 >= 10
		TIMES SOURCE:4 , 1.50
		TIMES SOURCE:5 , 1.50
		TIMES SOURCE:6 , 1.50
	ENDIF

	;調教者の자제심
	IF TALENT:PLAYER:50
		TIMES SOURCE:5 , 0.50
		TIMES SOURCE:6 , 0.50
	ENDIF
ENDIF

;ゲイ
IF TALENT:290 && TALENT:PLAYER:290
	;ABL:호모끼をみる
IF ABL:20 == 0
		TIMES SOURCE:16 , 1.30
		TIMES SOURCE:17 , 1.30
		TIMES SOURCE:18 , 1.30
	ELSEIF ABL:20 == 1
		TIMES SOURCE:6 , 1.10
		TIMES SOURCE:16 , 1.20
		TIMES SOURCE:17 , 1.20
		TIMES SOURCE:18 , 1.20
	ELSEIF ABL:20 == 2
		TIMES SOURCE:6 , 1.20
		TIMES SOURCE:14 , 0.95
		TIMES SOURCE:16 , 1.10
		TIMES SOURCE:17 , 1.10
		TIMES SOURCE:18 , 1.10
	ELSEIF ABL:20 == 3
		TIMES SOURCE:6 , 1.30
		TIMES SOURCE:14 , 0.90
	ELSEIF ABL:20 == 4
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.85
		TIMES SOURCE:17 , 0.90
	ELSEIF ABL:20 == 5
		TIMES SOURCE:6 , 1.50
		TIMES SOURCE:14 , 0.80
		TIMES SOURCE:17 , 0.80
	ELSEIF ABL:20 == 6
		TIMES SOURCE:6 , 1.60
		TIMES SOURCE:14 , 0.75
		TIMES SOURCE:17 , 0.70
	ELSEIF ABL:20 == 7
		TIMES SOURCE:6 , 1.70
		TIMES SOURCE:14 , 0.70
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:20 == 8
		TIMES SOURCE:6 , 1.80
		TIMES SOURCE:14 , 0.65
		TIMES SOURCE:17 , 0.50
	ELSEIF ABL:20 == 9
		TIMES SOURCE:6 , 1.90
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:17 , 0.40
	ELSE
		TIMES SOURCE:6 , 2.00
		TIMES SOURCE:14 , 0.55
		TIMES SOURCE:17 , 0.30
	ENDIF

	;ABL:게이중독をみる
	IF ABL:21 == 1
		SOURCE:9 += 100
		TIMES SOURCE:0 , 1.10
		TIMES SOURCE:1 , 1.10
		TIMES SOURCE:2 , 1.10
		TIMES SOURCE:3 , 1.10
		TIMES SOURCE:6 , 1.10
		TIMES SOURCE:14 , 0.90
		TIMES SOURCE:15 , 0.90
		TIMES SOURCE:17 , 0.90
	ELSEIF ABL:21 == 2
		SOURCE:9 += 200
		TIMES SOURCE:0 , 1.20
		TIMES SOURCE:1 , 1.20
		TIMES SOURCE:2 , 1.20
		TIMES SOURCE:3 , 1.20
		TIMES SOURCE:6 , 1.20
		TIMES SOURCE:14 , 0.80
		TIMES SOURCE:15 , 0.80
		TIMES SOURCE:17 , 0.80
	ELSEIF ABL:21 == 3
		SOURCE:9 += 350
		TIMES SOURCE:0 , 1.30
		TIMES SOURCE:1 , 1.30
		TIMES SOURCE:2 , 1.30
		TIMES SOURCE:3 , 1.30
		TIMES SOURCE:6 , 1.30
		TIMES SOURCE:14 , 0.70
		TIMES SOURCE:15 , 0.70
		TIMES SOURCE:17 , 0.70
	ELSEIF ABL:21 == 4
		SOURCE:7 += 500
		TIMES SOURCE:0 , 1.40
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:2 , 1.40
		TIMES SOURCE:3 , 1.40
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:15 , 0.60
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:21 == 5
		SOURCE:9 += 750
		TIMES SOURCE:0 , 1.40
		TIMES SOURCE:1 , 1.40
		TIMES SOURCE:2 , 1.40
		TIMES SOURCE:3 , 1.40
		TIMES SOURCE:6 , 1.40
		TIMES SOURCE:14 , 0.60
		TIMES SOURCE:15 , 0.60
		TIMES SOURCE:17 , 0.60
	ELSEIF ABL:21 == 6
		SOURCE:9 += 1000
		TIMES SOURCE:0 , 1.50
		TIMES SOURCE:1 , 1.50
		TIMES SOURCE:2 , 1.50
		TIMES SOURCE:3 , 1.50
		TIMES SOURCE:6 , 1.50
		TIMES SOURCE:14 , 0.50
		TIMES SOURCE:15 , 0.50
		TIMES SOURCE:17 , 0.50
	ELSEIF ABL:21 == 7
		SOURCE:9 += 1200
		TIMES SOURCE:0 , 1.60
		TIMES SOURCE:1 , 1.60
		TIMES SOURCE:2 , 1.60
		TIMES SOURCE:3 , 1.60
		TIMES SOURCE:6 , 1.60
		TIMES SOURCE:14 , 0.40
		TIMES SOURCE:15 , 0.40
		TIMES SOURCE:17 , 0.40
	ELSEIF ABL:21 == 8
		SOURCE:9 += 1500
		TIMES SOURCE:0 , 1.70
		TIMES SOURCE:1 , 1.70
		TIMES SOURCE:2 , 1.70
		TIMES SOURCE:3 , 1.70
		TIMES SOURCE:6 , 1.70
		TIMES SOURCE:14 , 0.30
		TIMES SOURCE:15 , 0.30
		TIMES SOURCE:17 , 0.30
	ELSEIF ABL:21 == 9
		SOURCE:9 += 1800
		TIMES SOURCE:0 , 1.80
		TIMES SOURCE:1 , 1.80
		TIMES SOURCE:2 , 1.80
		TIMES SOURCE:3 , 1.80
		TIMES SOURCE:6 , 1.80
		TIMES SOURCE:14 , 0.20
		TIMES SOURCE:15 , 0.20
		TIMES SOURCE:17 , 0.20
	ELSEIF ABL:21 >= 10
		SOURCE:9 += 2500
		TIMES SOURCE:0 , 1.90
		TIMES SOURCE:1 , 1.90
		TIMES SOURCE:2 , 1.90
		TIMES SOURCE:3 , 1.90
		TIMES SOURCE:6 , 1.90
		TIMES SOURCE:14 , 0.10
		TIMES SOURCE:15 , 0.10
		TIMES SOURCE:17 , 0.10
	ENDIF

	;調教者のABL:호모끼
	IF ABL:PLAYER:20 == 0 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.40
		TIMES SOURCE:6 , 0.40
	ELSEIF ABL:PLAYER:20 == 1 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.60
		TIMES SOURCE:6 , 0.60
	ELSEIF ABL:PLAYER:20 == 2 || TALENT:PLAYER:바이
		TIMES SOURCE:4 , 0.80
		TIMES SOURCE:6 , 0.80
	ELSEIF ABL:PLAYER:20 == 3
		TIMES SOURCE:4 , 1.00
		TIMES SOURCE:6 , 1.00
	ELSEIF ABL:PLAYER:20 == 4
		TIMES SOURCE:4 , 1.10
		TIMES SOURCE:6 , 1.10
	ELSEIF ABL:PLAYER:20 == 5
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:6 , 1.20
	ELSEIF ABL:PLAYER:20 == 6
		TIMES SOURCE:4 , 1.30
		TIMES SOURCE:6 , 1.30
	ELSEIF ABL:PLAYER:20 == 7
		TIMES SOURCE:4 , 1.40
		TIMES SOURCE:6 , 1.40
	ELSEIF ABL:PLAYER:20 == 8
		TIMES SOURCE:4 , 1.50
		TIMES SOURCE:6 , 1.50
	ELSEIF ABL:PLAYER:20 == 9
		TIMES SOURCE:4 , 1.60
		TIMES SOURCE:6 , 1.60
	ELSE
		TIMES SOURCE:4 , 1.70
		TIMES SOURCE:6 , 1.70
	ENDIF

	;調教者のABL:게이중독
	IF ABL:PLAYER:21 == 1
		TIMES SOURCE:4 , 1.05
		TIMES SOURCE:5 , 1.05
		TIMES SOURCE:6 , 1.05
	ELSEIF ABL:PLAYER:21 == 2
		TIMES SOURCE:4 , 1.10
		TIMES SOURCE:5 , 1.10
		TIMES SOURCE:6 , 1.10
	ELSEIF ABL:PLAYER:21 == 3
		TIMES SOURCE:4 , 1.15
		TIMES SOURCE:5 , 1.15
		TIMES SOURCE:6 , 1.15
	ELSEIF ABL:PLAYER:21 == 4
		TIMES SOURCE:4 , 1.20
		TIMES SOURCE:5 , 1.20
		TIMES SOURCE:6 , 1.20
	ELSEIF ABL:PLAYER:21 == 5
		TIMES SOURCE:4 , 1.25
		TIMES SOURCE:5 , 1.25
		TIMES SOURCE:6 , 1.25
	ELSEIF ABL:PLAYER:21 == 6
		TIMES SOURCE:4 , 1.30
		TIMES SOURCE:5 , 1.30
		TIMES SOURCE:6 , 1.30
	ELSEIF ABL:PLAYER:21 == 7
		TIMES SOURCE:4 , 1.35
		TIMES SOURCE:5 , 1.35
		TIMES SOURCE:6 , 1.35
	ELSEIF ABL:PLAYER:21 == 8
		TIMES SOURCE:4 , 1.40
		TIMES SOURCE:5 , 1.40
		TIMES SOURCE:6 , 1.40
	ELSEIF ABL:PLAYER:21 == 9
		TIMES SOURCE:4 , 1.45
		TIMES SOURCE:5 , 1.45
		TIMES SOURCE:6 , 1.45
	ELSEIF ABL:PLAYER:21 >= 10
		TIMES SOURCE:4 , 1.50
		TIMES SOURCE:5 , 1.50
		TIMES SOURCE:6 , 1.50
	ENDIF

	;調教者の자제심
	IF TALENT:PLAYER:50
		TIMES SOURCE:5 , 0.50
		TIMES SOURCE:6 , 0.50
	ENDIF
ENDIF

@PLAYER_SKILL_CHECK
;調教者のTALENT:해방をみる
IF TALENT:PLAYER:83
	TIMES SOURCE:0 , 1.20
	TIMES SOURCE:1 , 1.20
	TIMES SOURCE:2 , 1.20
	TIMES SOURCE:3 , 1.20
	TIMES SOURCE:4 , 1.20
ENDIF
;調教者のTALENT:바이をみる
IF TALENT:PLAYER:191
	TIMES SOURCE:4 , 1.20
	TIMES SOURCE:5 , 1.20
	TIMES SOURCE:6 , 1.20
ENDIF
;調教者のTALENT:새드をみる
SIF TALENT:PLAYER:193
	TIMES SOURCE:8 , 1.50
;調教者のTALENT:소악마をみる
SIF TALENT:PLAYER:197
	TIMES SOURCE:13 , 1.50
;調教者のTALENT:수수께끼의매력をみる
IF TALENT:PLAYER:214
	TIMES SOURCE:15 , 0.50
	TIMES SOURCE:17 , 0.50

	TIMES SOURCE:0 , 1.20
	TIMES SOURCE:1 , 1.20
	TIMES SOURCE:2 , 1.20
	TIMES SOURCE:3 , 1.20
	TIMES SOURCE:5 , 1.20
	TIMES SOURCE:6 , 1.50
ENDIF

;-------------------------------------------------
;絶頂時の방뇨処理
;-------------------------------------------------
@ORGASM_ADD_URINE
SIF TFLAG:29 == 0
	RETURN 0

IF TFLAG:29 >= 7 && TEQUIP:27 && TALENT:127
	PRINTFORML %EXPNAME:31%＋５
	EXP:31 += 5
ELSEIF TFLAG:29 >= 7 && TEQUIP:27
	PRINTFORML %EXPNAME:31%＋４
	EXP:31 += 4
ELSEIF TFLAG:29 >= 7 && TALENT:127
	PRINTFORML %EXPNAME:31%＋３
	EXP:31 += 3
ELSEIF P >= 5 && TEQUIP:27 && TALENT:127
	PRINTFORML %EXPNAME:31%＋４
	EXP:31 += 4
ELSEIF TFLAG:29 >= 5 && TEQUIP:27
	PRINTFORML %EXPNAME:31%＋３
	EXP:31 += 3
ELSEIF TFLAG:29 >= 5 && TALENT:127
	PRINTFORML %EXPNAME:31%＋２
	EXP:31 += 2
ELSEIF TFLAG:29 >= 3 && TEQUIP:27 && TALENT:127
	PRINTFORML %EXPNAME:31%＋３
	EXP:31 += 3
ELSEIF TFLAG:29 >= 3 && TEQUIP:27
	PRINTFORML %EXPNAME:31%＋２
	EXP:31 += 2
ELSEIF TFLAG:29 >= 3 && TALENT:127
	PRINTFORML %EXPNAME:31%＋１
	EXP:31 += 1
ELSEIF TFLAG:29 >= 1 && TEQUIP:27 && TALENT:127
	PRINTFORML %EXPNAME:31%＋２
	EXP:31 += 2
ELSEIF TFLAG:29 >= 1 && TEQUIP:27
	PRINTFORML %EXPNAME:31%＋１
	EXP:31 += 1
ENDIF
SIF TEQUIP:27 && (TFLAG:29 >= 3 || TALENT:127)
	TEQUIP:27 = 0

;-------------------------------------------------
;각인取得のチェック
;-------------------------------------------------
@MARK_GOT_CHECK
;-------------------------------------------------
;고통각인
;-------------------------------------------------
IF UP:10 >= 2000 && UP:10 < 4000 && MARK:0 <= 0
	TFLAG:22 = 1
ELSEIF UP:10 >= 4000 && UP:10 < 8000 && MARK:0 <= 1
	TFLAG:22 = 2
	;꿋꿋함・감정부족の場合は고통각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:12 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ELSEIF UP:10 >= 8000 && MARK:0 <= 2
	TFLAG:22 = 3
	;꿋꿋함・감정부족の場合は고통각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:12 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ENDIF

;-------------------------------------------------
;쾌락각인
;-------------------------------------------------
IF TFLAG:200 == 1 && MARK:1 <= 0
	TFLAG:23 = 1
ELSEIF TFLAG:200 == 2 && MARK:1 <= 1
	TFLAG:23 = 2
ELSEIF TFLAG:200 == 3 && MARK:1 <= 2
	TFLAG:23 = 3
	;자제심・감정부족の場合は쾌락각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:20 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ENDIF

;-------------------------------------------------
;굴복각인
;-------------------------------------------------
A = UP:0 + UP:1 + UP:2 + UP:3

;快楽によるLvUPは10番+取得した굴복각인のレベルのTFLAGを与える
IF A >= 1000 && A < 2400 && MARK:1 > MARK:2 && MARK:2 <= 0
	TFLAG:24 = 11
ELSEIF A >= 2400 && A < 6000 && MARK:1 > MARK:2 && MARK:2 <= 1
	TFLAG:24 = 12
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ELSEIF A >= 6000 && MARK:1 > MARK:2 && MARK:2 <= 2
	TFLAG:24 = 13
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 <= 1 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ENDIF

A = UP:10 + UP:11

;고통と공포によるLvUPは20番+取得した굴복각인のレベルのTFLAGを与える
IF A >= 1000 && A < 2400 && MARK:2 <= 0
	TFLAG:24 = 21
ELSEIF A >= 2400 && A < 6000 && MARK:2 <= 1
	TFLAG:24 = 22
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ELSEIF A >= 6000 && MARK:2 <= 2
	TFLAG:24 = 23
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 <= 1 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ENDIF

A = UP:5 + UP:7

;온순と굴복によるLvUPは30番+取得した굴복각인のレベルのTFLAGを与える
IF A >= 1000 && A < 2400 && MARK:2 <= 0
	TFLAG:24 = 31
ELSEIF A >= 2400 && A < 6000 && MARK:2 <= 1
	TFLAG:24 = 32
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 == 0 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ELSEIF A >= 6000 && MARK:2 <= 2
	TFLAG:24 = 33
	;감정부족の場合は굴복각인による순종アップはなし
	IF ABL:0 <= 1 && TALENT:30 == 0
		TFLAG:25 = 1
	ENDIF
ENDIF

;-------------------------------------------------
;반발각인
;-------------------------------------------------
A = UP:12+UP:13
IF A >= 1000 && A < 2000 && MARK:4 <= 0 && TFLAG:150 == 0
	TFLAG:21 = 1
ELSEIF A >= 2000 && A < 5000 && MARK:4 <= 1 && TFLAG:150 == 0
	TFLAG:21 = 2
	;감정부족の場合は반발각인による순종ダウンはなし
	IF ABL:0 == 1 && TALENT:30 == 0
		TFLAG:25 = 1
	ELSEIF ABL:0 == 2 && TALENT:30 == 0
		TFLAG:25 = 2
	ENDIF
ELSEIF A >= 5000 && MARK:4 <= 2 && TFLAG:150 == 0
	TFLAG:21 = 3
	;감정부족の場合は반발각인による순종ダウンはなし
	IF ABL:0 > 0 && ABL:0 <= 2 && TALENT:30 == 0
		TFLAG:25 = 1
	ELSEIF ABL:0 == 3 && TALENT:30 == 0
		TFLAG:25 = 2
	ENDIF
ENDIF
TFLAG:150 = 0

;-------------------------------------------------
;치욕각인
;-------------------------------------------------
IF UP:9 >= 3000 && UP:9 < 6000 && MARK:5 <= 0
	TFLAG:18 = 1
ELSEIF UP:9 >= 6000 && UP:9 < 10000 && MARK:5 <= 1
	TFLAG:18 = 2
ELSEIF UP:9 >= 10000 && MARK:5 <= 2
	TFLAG:18 = 3
ENDIF
;-------------------------------------------------
;각인取得の処理
;-------------------------------------------------
@MARK_GOT_RESULT
;-------------------------------------------------
;고통각인
;-------------------------------------------------
IF TFLAG:22 == 1
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 고통각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:0 = 1
ELSEIF TFLAG:22 == 2
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 고통각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:0 = 2
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTW そして순종がLV1になった
		ABL:0 = 1
	ELSE
		WAIT
	ENDIF
ELSEIF TFLAG:22 == 3
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 고통각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:0 = 3
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTL そして순종がLV1になった
		ABL:0 = 1
	ENDIF
	IF TALENT:PLAYER:193
		PRINTFORML 【%조교자호칭이% 새드】
		PRINTFORMW %EXPNAME:50%＋２
		EXP:50 += 2
	ELSEIF TALENT:PLAYER:123 && SELECTCOM == 104
		PRINTFORML 【%조교자호칭이% 바늘다루기】
		PRINTFORMW %EXPNAME:50%＋２
		EXP:50 += 2
	ELSE
		PRINTFORMW %EXPNAME:50%＋１
		EXP:50 += 1
	ENDIF
ENDIF

;-------------------------------------------------
;쾌락각인
;-------------------------------------------------
IF TFLAG:23 == 1
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 쾌락각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:1 = 1
ELSEIF TFLAG:23 == 2
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 쾌락각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:1 = 2
ELSEIF TFLAG:23 == 3
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 쾌락각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:1 = 3
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTW そして순종がLV1になった
		ABL:0 = 1
	ELSE
		WAIT
	ENDIF
ENDIF

;-------------------------------------------------
;굴복각인
;-------------------------------------------------
;快楽による각인
IF TFLAG:24 == 11
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 1
ELSEIF TFLAG:24 == 12
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 2
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTW そして순종がLV1になった
		ABL:0 = 1
	ENDIF
ELSEIF TFLAG:24 == 13
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 3
	IF TFLAG:25 == 1 && ABL:0 <= 1
		PRINTW そして순종がLV2になった
		ABL:0 = 2
	ELSE
		WAIT
	ENDIF
;고통、공포による각인
ELSEIF TFLAG:24 == 21
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 1
ELSEIF TFLAG:24 == 22
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 2
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTW そして순종がLV1になった
		ABL:0 = 1
	ELSE
		WAIT
	ENDIF
ELSEIF TFLAG:24 == 23
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 3
	IF TFLAG:25 == 1  && ABL:0 <= 1
		PRINTW そして순종がLV2になった
		ABL:0 = 2
	ELSE
		WAIT
	ENDIF
;굴복、온순による각인
ELSEIF TFLAG:24 == 31
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 1
ELSEIF TFLAG:24 == 32
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 2
	IF TFLAG:25 == 1 && ABL:0 == 0
		PRINTW そして순종がLV1になった
		ABL:0 = 1
	ELSE
		WAIT
	ENDIF
ELSEIF TFLAG:24 == 33
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 굴복각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:2 = 3
	IF TFLAG:25 == 1 && ABL:0 <= 1
		PRINTW そして순종がLV2になった
		ABL:0 = 2
	ELSE
		WAIT
	ENDIF
ENDIF

;-------------------------------------------------
;반발각인
;-------------------------------------------------
IF TFLAG:21 == 1
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 반발각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:3 = 1
	MARK:4 = 1
ELSEIF TFLAG:21 == 2
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 반발각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:3 = 2
	MARK:4 = 2
	IF TFLAG:25 == 1
		PRINTW そして순종がLV0に下がった
		ABL:0 = 0
	ELSEIF TFLAG:25 == 2
		PRINTW そして순종がLV1に下がった
		ABL:0 = 1
	ELSE
		WAIT
	ENDIF
ELSEIF TFLAG:21 == 3
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 반발각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:3 = 3
	MARK:4 = 3
	IF TFLAG:25 == 1
		PRINTW そして순종がLV0に下がった
		ABL:0 = 0
	ELSEIF TFLAG:25 == 2
		PRINTW そして순종がLV2に下がった
		ABL:0 = 2
	ELSE
		WAIT
	ENDIF
ENDIF

;-------------------------------------------------
;치욕각인
;-------------------------------------------------
IF TFLAG:18 == 1
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 치욕각인LV1
	FONTREGULAR
	PRINTW を得た
	MARK:5 = 1
ELSEIF TFLAG:18 == 2
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 치욕각인LV2
	FONTREGULAR
	PRINTW を得た
	MARK:5 = 2
ELSEIF TFLAG:18 == 3
	PRINTFORM %타겟호칭은%
	FONTBOLD
	PRINT 치욕각인LV3
	FONTREGULAR
	PRINTW を得た
	MARK:5 = 3
ENDIF

;-------------------------------------------------
;순종の上昇による[저항]の消滅をチェック
;-------------------------------------------------
@JUJUN_UP_CHECK
IF ABL:0 >= 3 && TALENT:84
	PRINTS NAME:TARGET
	PRINT は[
	PRINTS TALENTNAME:84
	PRINTL ]を失った
	TALENT:84 = 0
	PRINTL 부정의 구슬が半分になった
	JUEL:100 /= 2
ENDIF

;-------------------------------------------------
;욕망の上昇による[억압]の消滅をチェック
;-------------------------------------------------
@YOKUBO_UP_CHECK
IF ABL:1 >= 3 && TALENT:82
	PRINTS NAME:TARGET
	PRINT は[
	PRINTS TALENTNAME:82
	PRINTL ]を失った
	TALENT:82 = 0
	PRINTL 부정의 구슬が半分になった
	JUEL:100 /= 2
ENDIF

;-------------------------------------------------
;고통쾌락경험、봉사쾌락경험のチェック
;-------------------------------------------------
@EXP_GOT_CHECK
;奉仕系である、奉仕快楽のチェック
A = UP:0+UP:1+UP:2+UP:3
E = 0

IF UP:6 < 100
	A = 0
ELSEIF UP:6 < 300
	A *= 2
ELSEIF UP:6 < 700
	A *= 3
ELSEIF UP:6 < 1500
	A *= 4
ELSE
	A *= 5
ENDIF

IF TFLAG:100
	IF A >= 12000
		E = 16
		TIMES UP:11 , 0.65
		TIMES UP:12 , 0.30
	ELSEIF A >= 8000
		E = 12
		TIMES UP:11 , 0.70
		TIMES UP:12 , 0.40
	ELSEIF A >= 5000
		E = 8
		TIMES UP:11 , 0.75
		TIMES UP:12 , 0.50
	ELSEIF A >= 3000
		E = 4
		TIMES UP:11 , 0.80
		TIMES UP:12 , 0.60
	ELSEIF A >= 2000
		E = 2
		TIMES UP:11 , 0.85
		TIMES UP:12 , 0.70
	ELSEIF A >= 1000
		E = 1
		TIMES UP:11 , 0.90
		TIMES UP:12 , 0.80
	ENDIF
	IF E
		PRINT 봉사쾌락경험+
		PRINTVL E
		EXP:21 += E
		TFLAG:26 = E
	ENDIF
ENDIF

;고통快楽のチェック
E = 0
IF UP:6 >= 3000 && UP:10 >= 2000
	E = 16
	TIMES UP:11 , 0.65
ELSEIF UP:6 >= 2500 && UP:10 >= 1500
	E = 12
	TIMES UP:11 , 0.70
ELSEIF UP:6 >= 1500 && UP:10 >= 1000
	E = 8
	TIMES UP:11 , 0.75
ELSEIF UP:6 >= 1000 && UP:10 >= 500
	E = 4
	TIMES UP:11 , 0.80
ELSEIF UP:6 >= 600 && UP:10 >= 300
	E = 2
	TIMES UP:11 , 0.85
ELSEIF UP:6 >= 300 && UP:10 >= 100
	E = 1
	TIMES UP:11 , 0.90
ENDIF
IF E > 0
	PRINT 고통쾌락경험+
	PRINTVL E
	EXP:30 += E
	TFLAG:27 = E
	;가학쾌락경험
	E = ABL:PLAYER:10+ABL:9
	E -= 1
	IF E > 0
		PRINTFORM %CALLNAME:PLAYER%의
		PRINT 가학쾌락경험+
		PRINTVL E
		EXP:PLAYER:32 += E
		TFLAG:28 = E
	ENDIF
ENDIF


code:
;パターンとしては、
; 1)誘い出され⇒拘束レイプ⇒강간ルート
; 2)미약を盛られて⇒저항できない････！⇒협박ルート
; 3)テクに焦らされて⇒もうどうなってもいい････⇒유혹ルート

@TRAP_FRIEND_RAPE
#DIM targetChara
#DIM slaveChara
#DIM slaveAttack
#DIM targetResist
#DIMS rapePlace
#DIM sexCount
#DIM playType

;対象を選択
PRINTFORML 誰を罠に掛けますか？
CALL SELECT_TRAP_CHARA(11)
SIF RESULT == -1
	RETURN -1
targetChara = RESULT
slaveChara = getChara(CFLAG:targetChara:1015)
rapePlace = \@ IS_GO_SAMESCHOOL(targetChara,slaveChara) ? 빈교실 # 폐허 \@

PRINTFORMW %CALLNAME:slaveChara%に命じて、인기のない%rapePlace%に%조사처리(NAME:targetChara,"을")% 呼び出した。

slaveAttack  = CALC_CHARA_RANGED_DATA("ABL",slaveChara,"학력","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",slaveChara,"운동능력","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",slaveChara,"성악*10,겁쟁이*-1,솔직,얌전함*-1,소악마,카리스마,인기,수수께끼의매력*5,무기력*-1,음험,애교,성직자*3,학생회장*4") + CFLAG:targetChara:1013 + ITEM:흥분아로마 * 10
targetResist = CALC_CHARA_RANGED_DATA("ABL",targetChara,"감성","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",targetChara,"운동능력","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"꿋꿋함,얌전함*-1,겁쟁이*-1,레이프소망*-10,도착적*5,쾌활,쿨함,기가셈,닌자*10,탐정*7,경계*2") - (RELATION:targetChara:(NO:slaveChara) / 10 - 10) - ITEM:냉정아로마 * 10

PRINTFORML
PRINTFORML %NAME:slaveChara%의 トラップ判定　：　{slaveAttack}
PRINTFORML %NAME:targetChara%의 対抗判定　：　{targetResist}
PRINTFORML

SELECTCASE slaveAttack - targetResist
	CASE IS <= 0
		PRINTFORMW ････しかし、いくら待っても%타겟캐릭은% 現れなかった。
		PRINTFORMW 偶然か、勘づかれたか。なんにせよ、方바늘を練り直す必要がありそうだ････。
		PRINTFORMW 結果　：　大失敗！
		CFLAG:targetChara:1015 = 0
		CFLAG:targetChara:1000 = 4
		CFLAG:targetChara:1013 = 0
		TALENT:targetChara:경계 += 4
	CASE IS < 5
		PRINTFORMW ････しかし、%CALLNAME:slaveChara%의 携帯に%NAME:targetChara%から電話が入った。
		PRINTFORMW なんでも、急用が入って出掛けなければならないらしい。
		PRINTFORMW ････しょうがない。また次の機会を待つとしよう。
		CFLAG:targetChara:1013 ++
		PRINTFORMW 結果　：　失敗！
	CASEELSE
		PRINTFORMW 結果　：　成功！
		PRINTFORMW ････%타겟캐릭은% ろくに경계もしないでのこのことやって来た。
		PRINTFORMW 心細いのかきょろきょろと回りを見回しながら、%CALLNAME:slaveChara%を呼んでいる。
		PRINTFORMW しかし誰も答えないため、いっそう心細そうだ････。
		PRINTFORMW 그리고、目的の%rapePlace%의 扉を開き････中が無人なのに首をかしげる。
		PRINTFORMW 次の瞬間、背後から薬品を嗅がされ、%NAME:targetChara%의 意識は闇に沈んでいった････。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW ････どれほど気絶していたのだろう。
		PRINTFORMW 微睡みの中を漂っていた%CALLNAME:targetChara%의 意識が、ぐちゅぐちゅ、という水音をとらえた。
		PRINTFORMW 夢うつつのまま、%타겟캐릭은%そちらへと目をやり････驚愕のあまり、目を見開く。
		PRINTFORM 音の正体は、%GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%である%NAME:slaveChara%が
		SELECTCASE 1
			CASE !TALENT:slaveChara:처녀 && ABL:slaveChara:Ｖ감각 >= 3
				PRINTFORMW 男に跨がり、快楽に蕩けきった表情で腰を振っている姿だったからだ。
			CASE ABL:slaveChara:Ａ감각 >= 3
				PRINTFORMW 男の太い페니스を애널で受け入れ、背徳の快楽に溺れて腰を振っている姿だったからだ。
			CASEELSE
				PRINTFORMW 男の페니스を可愛い입いっぱいに含み、恍惚の表情で舐めしゃぶっている姿だったからだ。
		ENDSELECT
		PRINTFORMW 思わずひっと声を漏らすと、それに気づいた男が立ち上がる。
		PRINTFORMW 逃げようとした四肢から、今度はガチャリと音がした。
		PRINTFORMW %CALLNAME:targetChara%의 손足には、既に冷たい金属の枷が填められ、身動き一つできない有り様だったのだ。
		PRINTFORMW 青ざめ、ガタガタと震えながら、今度は%CALLNAME:slaveChara%に助けを請う。
		PRINTFORM しかし%CALLNAME:slaveChara%は
		SELECTCASE 1
			CASE TALENT:slaveChara:음란
				PRINTFORMW 助けを求める%CALLNAME:targetChara%의 声など耳に入らないように男の腰にしがみつき、페니스をねだっている。
			CASE TALENT:slaveChara:창녀
				PRINTFORMW 艶やかに微笑むと%CALLNAME:targetChara%의 耳元に唇を寄せ、大丈夫、%GET_CALL_NAME(slaveChara,targetChara)%もすぐに気持ちよくなれるから安心して、と囁いた、
			CASE TALENT:slaveChara:복종
				PRINTFORMW 一瞬だけ辛そうな目をしたあとすぐに顔を背け、懸命に男の페니스を頬張っている。
			CASE TALENT:slaveChara:예속
				PRINTFORMW 淫らに微笑むと%CALLNAME:targetChara%의 耳元に唇を寄せ、大丈夫、%GET_CALL_NAME(slaveChara,targetChara)%もすぐにご主人様の素晴らしさがわかるよ、と囁いた。
		ENDSELECT
		PRINTFORMW 変わり果てた%CALLNAME:slaveChara%의 姿に、%CALLNAME:targetChara%의 表情が絶望に変わる。
		PRINTFORMW このとき、ようやく%타겟캐릭은%理解したのだ。
		PRINTFORMW 自分が%CALLNAME:slaveChara%に裏切られ、この男に売られたのだ、ということを。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW 拘束され、ろくな저항もできない%타겟호칭을%、%CALLNAME:slaveChara%と二人で責める。
		PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%、そして好きでもない男に敏感なところを責められ、%타겟캐릭은%ありえない現実に、ひたすら首を振って거절している。
		PRINTFORMW しかし身体は刺激に正直に反応し、秘所からとろりと愛液を溢れさせた。
		CALL SET_ACTUAL_FIRST_PLAY_TYPE(MASTER,slaveChara)
		playType = RESULT
		PRINTFORMW やがて頃合いだと判断し、%마스터호칭은%페니스を\@ playType == 0 ? 秘所 # 애널 \@にあてがう。
		IF (TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음) && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%この場にはいない愛する人へ助けを求めもがいた。
		ELSEIF TALENT:targetChara:미망인 && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%この世にはいない愛する人へ助けを求めもがいた。
		ELSEIF TALENT:targetChara:기혼 && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%かつて愛した人へ助けを求めもがいた。
		ELSE
			SIF TALENT:targetChara:청초 == 1 || TALENT:targetChara:무기력 == 1
				PRINTFORML %타겟캐릭은%泣きながら、それだけはやめてと哀願した。
			SIF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORML %타겟캐릭은%まだ諦めていないのか、ガチャガチャと拘束具を鳴らして저항した。
			SIF TALENT:targetChara:성악 == 1
				PRINTFORML %타겟캐릭은%屈辱の表情で%마스터호칭을% 睨みつけながら罵詈雑言を浴びせた。
			SIF TALENT:targetChara:색기 == 1
				PRINTFORML %타겟캐릭은%それだけはやめてと哀願してくた。
			SIF TALENT:targetChara:쿨함 == 1
				PRINTFORML %타겟캐릭은%、冷たい表情で自分を押さえつける%마스터호칭을% 睨みつけていた。
			SIF TALENT:targetChara:어린애같음 == 1 || TALENT:targetChara:치유계 == 1
				PRINTFORML %타겟캐릭은%怯えて泣きながら、%CALLNAME:MASTER%に許しを乞うた。
		ENDIF
		PRINTFORMW しかしそんなものを聞き入れる必要などない。
		PRINTFORMW 必死で身をよじる저항も、四肢を拘束されていては페니스を刺激するだけだ。
		PRINTFORMW 그리고、%마스터호칭이% 腰を進めると、%타겟캐릭은%あらん限りの悲鳴を上げた････。
		IF playType == 0
			IF TALENT:targetChara:처녀 == 1
				PRINTFORMW %CALLNAME:targetChara%의 股間から、太股を伝って赤い筋が流れた････。
			ENDIF
			PRINTFORMW %CALLNAME:targetChara%의 悲鳴を愉しみながら、その질내を存分に堪能する。
			PRINTFORMW %타겟캐릭은%犯されながら、助けを求めるように%CALLNAME:slaveChara%に손を伸ばす。
			PRINTFORM しかし%CALLNAME:slaveChara%は
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORMW 伸ばされた손に目もくれず、犯されている%타겟호칭을%オカズに자위に耽っている。
				CASE TALENT:slaveChara:창녀
					PRINTFORMW 伸ばされた손を掴むと、%CALLNAME:targetChara%의 耳元に唇を寄せ、次は、二人一緒に犯してもらおう、と囁いた。
				CASE TALENT:slaveChara:복종
					PRINTFORMW 取返しのつかないことをしてしまった、と顔を青ざめさせるだけで、何もできない。
				CASE TALENT:slaveChara:예속
					PRINTFORMW 伸ばされた손に自分の손をそっと添え、ご主人様に愉しんでもらえて、%GET_CALL_NAME(slaveChara,targetChara)%もすごく幸せでしょ、と囁いた。
			ENDSELECT
			PRINTFORMW もう、救いなんてない。%CALLNAME:slaveChara%의 信じられない姿にそれを悟り、何度目かの絶望に、涙を流す。
			PRINTFORMW 그리고、レイプされ強ばった질내は、%CALLNAME:MASTER%의 ものをギチギチに締め上げている。
			PRINTFORMW そのきつさに限界が近いことを悟った%마스터호칭은%ピストンのペースを上げ、질내に出してやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%一際激しく暴れるが、%마스터호칭은%容赦なく一番奥へと욕망を解き放つ。
			ELSE
				PRINTFORMW %타겟캐릭은%それだけは止めてと涙を流しながら許しを請うたが、%마스터호칭은%容赦なく一番奥へと욕망を解き放つ。
			ENDIF
			PRINTFORMW どくどくと질내に注がれる熱い感깨우침に、질내に出されたことを否が応にも認識させられ、絶望の呻きを漏らす。
			PRINTFORMW 一滴残らず注ぎ込み、満足した顔で페니스を引き抜くと、%CALLNAME:targetChara%의 秘裂から、ゴボリと白い物があふれた。
			PRINTFORML 질내を逆流する感깨우침にすすり泣く%CALLNAME:targetChara%。しかし、まだまだ陵辱は始まったばかりだ。
		ELSE
			PRINTFORMW %CALLNAME:targetChara%의 悲鳴を愉しみながら、そのきつい애널を存分に凌辱する。
			PRINTFORMW %타겟캐릭은%애널からの激痛に、助けを求めるように%CALLNAME:slaveChara%に손を伸ばす。
			PRINTFORM しかし%CALLNAME:slaveChara%は
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORMW 伸ばされた손を掴むと、それで자위を始める始末だ。
				CASE TALENT:slaveChara:창녀
					PRINTFORMW 伸ばされた손に自分の손をそっと添え、애널を犯して貰って、%GET_CALL_NAME(slaveChara,targetChara)%、すごく気持ちいいでしょ、と囁いた。
				CASE TALENT:slaveChara:복종
					PRINTFORMW 悲鳴が聞こえないよう両손で耳をふさぎ、首を振りながらじっとうずくまっているだけだ。
				CASE TALENT:slaveChara:예속
					PRINTFORMW 伸ばされた손には目もくれずに%타겟호칭을%抱きしめ、大丈夫だよ、%GET_CALL_NAME(slaveChara,targetChara)%もご主人様に可愛がって貰おう？　と囁いた。
			ENDSELECT
			PRINTFORMW もう、救いなんてない。%CALLNAME:slaveChara%의 信じられない姿にそれを悟り、何度目かの絶望に、涙を流す。
			PRINTFORMW それに心が折れたせいか。強張っていた括約筋が、ふっと緩む。
			PRINTFORMW 動きやすくなったのをいいことに、%마스터호칭은%ピストンのペースを上げ、腸内に注ぎ込んでやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%止めてくれ、と弱弱しく懇願するが、、%마스터호칭은%構わず一番奥へと욕망を解き放つ。
			ELSE
				PRINTFORMW %타겟캐릭은%いや、許してと涙を流しながら哀願するが、%마스터호칭은%構わず一番奥へと욕망を解き放つ。
			ENDIF
			PRINTFORMW 腸内に注がれる熱い感깨우침に、排泄の穴で犯されてしまったという受け入れがたい事実をつきつけられ、絶望の呻きを漏らす。
			PRINTFORMW 一滴残らず注ぎ込み、満足した顔で페니스を引き抜くと、%CALLNAME:targetChara%의 秘裂から、ゴボリと白い物があふれた。
			PRINTFORML 애널からごぽごぽと精液が零れるにすすり泣く%CALLNAME:targetChara%。しかし、まだまだ陵辱は始まったばかりだ。
		ENDIF
		PRINTFORML %타겟캐릭은%涙をこぼしながら、공포に顔をひきつらせて赦しを乞う。それを聞きながら、%마스터호칭은%再び彼女に페니스を捻じ込んでいった。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW あれから何度犯しただろうか？
		PRINTFORMW 途中から%CALLNAME:slaveChara%も加わって、代わる代わる%타겟호칭을%陵辱しつづけた。
		PRINTFORMW もはや、その瞳には光はなく、涙も涸れ果ててされるがままだ。
		PRINTFORMW 満足した%마스터호칭은%、服が無残にはだけ、가슴も입も\@ playType == 0 ? 秘裂 # 애널 \@も精液だらけな%CALLNAME:TARGET%의 姿を写真に撮った。
		PRINTFORMW これで今後も呼び出す事が出来るだろう。
		PRINTFORMW %CALLNAME:targetChara%의 悪夢は、終わらない････。
		PRINTFORML

		CALL DIARY_SET,NAME:slaveChara+"に仕掛けさせた罠で"+NAME:targetChara+"をレイプし、굴복させた。"

		CFLAG:targetChara:1000 = 5
		TALENT:targetChara:강간 = 1
		TALENT:targetChara:경계 = 0
		;●ＮＴＬ取得
		SIF TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음
			TALENT:targetChara:ＮＴＬ = 1
		;●セックス回数
		sexCount = RAND:2 + 3 + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"성악*10,고결*10,청초*5,쾌활,색기*3,보이쉬,천연*3,어린애같음,치유계*3,쿨함*3,무기력,기가셈,영애,우등생,유명인,학생회장,성직자*3,연예인*5,프린세스,메이드")
		IF playType == 0
			;●이상경험取得
			EXP:targetChara:50 += 3
			PRINTFORML 이상경험＋３
			;●처녀喪失
			IF TALENT:targetChara:처녀 == 1
				TALENT:targetChara:처녀 = 0
			ENDIF
			;●V経験
			EXP:targetChara:0 += sexCount
			PRINTFORML Ｖ경험＋{sexCount}
			;●질사경험
			EXP:targetChara:5 += sexCount
			PRINTFORML 질사경험＋{sexCount}
			;●절정경험
			EXP:targetChara:2 += sexCount / 10
			PRINTFORML 절정경험＋{EXP:targetChara:2}
		ELSE
			;●이상경험取得
			EXP:targetChara:50 += 4
			PRINTFORML 이상경험＋４
			;●A経験
			EXP:targetChara:Ａ경험 += sexCount
			PRINTFORML Ａ경험＋{sexCount}
			;●A開発経験
			EXP:targetChara:Ａ개발경험 += sexCount / 2
			PRINTFORML Ａ개발경험＋{sexCount / 2}
			;●절정경험
			EXP:targetChara:2 += sexCount / 50
			PRINTFORML 절정경험＋{EXP:targetChara:2}
		ENDIF
		;●펠라경험
		EXP:targetChara:22 += sexCount
		PRINTFORML 펠라경험＋{sexCount}
		;●의존도
		CFLAG:targetChara:2 = -500
		;●성교경험
		EXP:targetChara:4 += sexCount
		PRINTFORML 성교경험＋{sexCount}
		;●정액경험
		EXP:targetChara:20 += sexCount
		PRINTFORML 정액경험＋{sexCount}
		;●피사경험
		EXP:targetChara:63 += 1
		PRINTFORML 피사경험＋1

		;●각인　(손抜き)
		MARK:targetChara:굴복각인 = MIN(sexCount / 100,3)
		MARK:targetChara:반발각인 = MIN(sexCount / 100,3)
		MARK:targetChara:4        = MARK:targetChara:반발각인
ENDSELECT
DRAWLINE
RETURN

@TRAP_FRIEND_DRUG
#DIM targetChara
#DIM slaveChara
#DIM slaveAttack
#DIM targetResist
#DIM sexCount
#DIM playType

;対象を選択
PRINTFORML 誰に미약を盛りますか？
CALL SELECT_TRAP_CHARA(12)
SIF RESULT == -1
	RETURN -1
targetChara = RESULT
slaveChara = getChara(CFLAG:targetChara:1015)

IF !IS_SAMEHOME(targetChara,slaveChara)
	PRINTFORMW 理由をつけて、%NAME:slaveChara%의 家に%조사처리(NAME:targetChara,"을")% 連れこんだ。
	PRINTFORMW 그리고、%CALLNAME:slaveChara%に命じて、%NAME:targetChara%に出すジュースに미약を盛った････。
ELSE
	PRINTFORMW %타겟캐릭은%、自宅なのもあって気を緩め、リビングで%NAME:slaveChara%とふざけあっている。
	PRINTFORMW ････卓上のジュースに、%NAME:slaveChara%が미약を仕込んでいるのも知らずに。
ENDIF

slaveAttack  = CALC_CHARA_RANGED_DATA("ABL",slaveChara,"감성","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",slaveChara,"운동능력","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",slaveChara,"성악*10,겁쟁이*-5,솔직*-5,소악마*5,카리스마*3,인기*2,수수께끼의매력*5,무기력*-5,음험*5,애교") + CFLAG:targetChara:1013 + ITEM:흥분아로마 * 10
targetResist = CALC_CHARA_RANGED_DATA("ABL",targetChara,"감성","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",targetChara,"학력","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"반항적*3,꿋꿋함*3,얌전함*-3,겁쟁이*-3,프라이드높음*5,고결*3,자제심*5,호기심*-3,보수적*3,결벽성*3,정욕*-10,금욕*10,정조관념*7,정조무관심*-7,부끄럼쟁이*5,수치심없음*-5,레이프소망*-10,쾌감에솔직*-10,쾌감을부정*10,중독되기쉬움*-8,도착적*-3,쿨함,닌자*10,탐정*7,성직자*5,프린세스*3,경계") - (RELATION:targetChara:(NO:slaveChara) / 10 - 10) - ITEM:냉정아로마 * 10

PRINTFORML
PRINTFORML %NAME:slaveChara%의 トラップ判定　：　{slaveAttack}
PRINTFORML %NAME:targetChara%의 対抗判定　：　{targetResist}
PRINTFORML

SELECTCASE slaveAttack - targetResist
	CASE IS <= 0
		PRINTFORMW ････しかし、%타겟캐릭은% ジュースの匂いを嗅ぐなり、妙な匂いがする、と騒ぎ出した。
		PRINTFORMW 偶然か、勘づかれたか。なんにせよ、方바늘を練り直す必要がありそうだ････。
		PRINTFORMW 結果　：　大失敗！
		CFLAG:targetChara:1015 = 0
		CFLAG:targetChara:1000 = 4
		CFLAG:targetChara:1013 = 0
		TALENT:targetChara:경계 += 4
	CASE IS < 5
		PRINTFORMW ････しかし、どういうわけか%타겟캐릭은% 出されたジュースに손をつけなかった。
		PRINTFORMW しょうがない。また次の機会を待つとしよう。
		CFLAG:targetChara:1013 ++
		PRINTFORMW 結果　：　失敗！
	CASEELSE
		PRINTFORMW 結果　：　成功！
		PRINTFORMW ････%타겟캐릭은% 出されたジュースに何の疑いも持たず입をつけ、%NAME:slaveChara%とのお喋りに興じている。
		PRINTFORMW あの미약は即効性だ。おそらく10分も持たず、身体が疼き始めることだろう。
		PRINTFORMW それまでしばらく待つことにしよう。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW ････5分ほどすると、%타겟캐릭은% もじもじと身体をゆすり始めた。
		PRINTFORMW 頬にはほのかに赤みがさし、潤んだ瞳ではぁはぁと荒い呼吸を漏らしている。
		PRINTFORML
		PRINTFORMW ････そろそろ頃合いだろう。
		PRINTFORMW %CALLNAME:slaveChara%に合図をし、しばし席を外させる。
		PRINTFORMW 残された%타겟캐릭은%しばらくもじもじしていたが････やがて、きょろきょろ辺りを見回しながら、その指が秘所に延びていく。
		PRINTFORMW そして下着越しにそこに触れただけで、びくん、と跳ね上がった。
		PRINTFORMW すっかり淫らな牝の表情になった%타겟캐릭은%、もう一度、震える指で秘裂を撫であげる。
		PRINTFORMW んんっ、と声をあげそうになり････ここが\@ IS_SAMEHOME(targetChara,slaveChara) ? リビング # %CALLNAME:slaveChara%의 家 \@であることを思い出したのだろう。
		PRINTFORMW 慌てて입を左손で抑え、声を押し殺す。
		PRINTFORMW それなら그대로、秘裂をまさぐる右손も止めればよいのだが････我慢できないのだろう。
		PRINTFORMW 相変わらず右손は下着越しに秘裂をこすりあげ････むしろ、そのスピードも速くなっているようだ。
		PRINTFORMW しかし、下着越しでは満足できないのか、입から離した左손で今度は自分の가슴を揉み始め、さらに右손を下着の中に滑り込ませた。
		PRINTFORMW 直接秘裂をまさぐる、ぐちょぐちょ、という音が%CALLNAME:slaveChara%의 部屋に響く。
		PRINTFORMW 必死で喘ぎ声を噛み殺しながら、%타겟캐릭이% 絶頂を極めようとしたその瞬間。
		PRINTFORMW ぱしゃり！
		PRINTFORMW %CALLNAME:slaveChara%がシャッターを切る音がした。
		PRINTFORML
		PRINTFORMW 全部見られていた。あまつさえ、それを写真に撮られてしまった。
		PRINTFORMW それに気づいた%타겟캐릭이% 青ざめる。
		PRINTFORMW それを淫らな笑みで見下ろしながら、%타겟캐릭은%彼女の隣に腰を下ろし。
		IF IS_SAMEHOME(targetChara,slaveChara)
			PRINTFORMW 私がいるのにオナニー始めちゃうなんて、%GET_CALL_NAME(slaveChara,targetChara)%って変態なんだね、と囁いた。
		ELSE
			PRINTFORMW わざわざウチに来てまでオナニーするなんて、%GET_CALL_NAME(slaveChara,targetChara)%はエッチなんだね、と囁いた。
		ENDIF
		PRINTFORMW 違う、違うの、と부정する%CALLNAME:targetChara%。
		PRINTFORMW だが、%CALLNAME:slaveChara%が下着越しに触れただけで、くちゅりという水音と蕩けたような喘ぎ声を漏らす。
		PRINTFORMW 絶頂寸前まで高まった身体が、刺激を欲しているのは明らかだ。
		PRINTFORML
		PRINTFORML 我慢しなくていいよ、エッチな%GET_CALL_NAME(slaveChara,targetChara)%がオナニーしてイクところ、しっかり見ててあげるから。
		PRINTFORMW
		PRINTFORMW そう%CALLNAME:slaveChara%が囁くと、%타겟캐릭은%しばらくもじもじしていたが、やがて再び秘所と가슴に손を伸ばし、自らを汚し始める。
		PRINTFORMW %CALLNAME:slaveChara%はそんな%타겟호칭을%言葉で嬲りながら、その痴態をぱしゃぱしゃ、と撮影し続ける。
		PRINTFORMW そして時には、空いた손で%CALLNAME:targetChara%의 가슴を揉み、秘豆を摘まむ。その度に、%타겟캐릭은%腰を跳ねあげて歓喜の声を漏らす。
		PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 前で자위をし、責められ、あまつさえそれを写真に撮られてなお、感じている。
		PRINTFORMW ありえない現実に、%CALLNAME:targetChara%의 脳は焼ききれ、自らの손で絶頂を極めてしまうのだった････。
		PRINTFORML
		PRINTFORMW そろそろ出番のようだ。
		PRINTFORMW 絶頂し、くたり、と崩れ落ちる%CALLNAME:targetChara%。その耳元で、いいものを見せてもらったぞ、と囁いた。
		PRINTFORMW その声に現実を思い出したのだろう。%타겟캐릭은%がばっと跳ね起きようとして････イッた直後で腰が立たず、再び崩れ落ちる。
		PRINTFORMW なんで、と、震える声で呟く%CALLNAME:targetChara%。その声を無視して、%CALLNAME:slaveChara%が%CALLNAME:MASTER%に近寄ってきた。
		PRINTFORMW よくやったな、とその頭を撫でてやると、
		SELECTCASE 1
			CASE TALENT:slaveChara:음란
				PRINTFORMW ご褒美に精液をください、と페니스をねだってくる。
			CASE TALENT:slaveChara:창녀
				PRINTFORMW ご褒美に二人ともいっぱいイカせてください、と淫らに微笑んでいる。
			CASE TALENT:slaveChara:복종
				PRINTFORMW 一瞬だけ辛そうな目をしたあと、目を閉じてされるがままになっている。
			CASE TALENT:slaveChara:예속
				PRINTFORMW うれしそうに目を閉じ、うっとりと%CALLNAME:MASTER%に撫でられる感触を楽しんでいる。
		ENDSELECT
		PRINTFORML
		PRINTFORMW 変わり果てた%CALLNAME:slaveChara%의 姿に、%CALLNAME:targetChara%의 表情が絶望に変わる。
		PRINTFORMW このとき、ようやく%타겟캐릭은%理解したのだ。
		PRINTFORMW 自分が%CALLNAME:slaveChara%의 罠にはまり、この男に売られたのだ、ということを。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW %CALLNAME:slaveChara%의 ベッドに%타겟호칭을%横たえ、さらに미약を飲ませる。
		PRINTFORMW 今度は遅効性だが、先程より遥かに強力な薬だ。案の定、%타겟캐릭은%すぐにぼうっとし、発情しきった顔で가슴を上下させている、
		PRINTFORML
		PRINTFORMW ････さて。効果が出るまで、%CALLNAME:slaveChara%に褒美をくれてやろう。
		PRINTFORMW そう言うと、%CALLNAME:slaveChara%はここで？　と聞き返してきた。
		PRINTFORM が、先輩奴隷として손本を見せてやれ、と言うと、
		SELECTCASE 1
			CASE TALENT:slaveChara:음란
				PRINTFORMW もう待ちきれない、というようにいそいそと服を脱ぎ始めた。
			CASE TALENT:slaveChara:창녀
				PRINTFORMW %CALLNAME:targetChara%にエッチな牝奴隷になった私を見てね、と囁き、誘うように脱ぎ始めた。
			CASE TALENT:slaveChara:복종
				PRINTFORMW ちらりと辛そうな目で%타겟호칭을%見たが、순종に服を脱ぎ始めた。
			CASE TALENT:slaveChara:예속
				PRINTFORMW %GET_CALL_NAME(slaveChara,targetChara)%に奴隷らしいご奉仕の仕方を教えてあげるね、と囁き、服を脱ぎ始めた。
		ENDSELECT
		PRINTFORML
		PRINTFORMW そんな%CALLNAME:slaveChara%의 前に固く勃起した페니스を見せつけてやる。
		PRINTFORM すると、一連の%CALLNAME:targetChara%의 痴態に興奮したのだろう、
		SELECTCASE 1
			CASE !TALENT:slaveChara:처녀 && ABL:slaveChara:Ｖ감각 >= 3
				PRINTFORMW 前戯の必要もないほど濡れそぼった膣で易々と太い페니스を咥えこみ、自分から激しく腰を打ち付け始めた。
			CASE ABL:slaveChara:Ａ감각 >= 3
				PRINTFORMW ひくつく애널をその페니스で深々と差し貫き、そのまま自分で激しく腰を打ち付け始めた。
			CASEELSE
				PRINTFORMW 待ちきれない、というように입一杯に페니스を頬張り、うっとりとした顔で舐めしゃぶり始めた。
		ENDSELECT
		PRINTFORMW すっかり熟練した性技で淫らに奉仕する%GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 姿を、じっと見つめる%CALLNAME:targetChara%。
		PRINTFORMW いつの間にかその손は、再び自身の秘所に伸び、ぐちゅぐちゅといやらしい音を立てている。
		PRINTFORML
		PRINTFORMW やがて、獣のような絶叫をあげて、あっという間に%CALLNAME:slaveChara%が果てる。
		SELECTCASE 1
			CASE !TALENT:slaveChara:처녀 && ABL:slaveChara:Ｖ감각 >= 3
				PRINTFORMW 全身をびくん、びくんと震わせたあと、くたり、と脱力する%CALLNAME:slaveChara%。
				PRINTFORMW その動きで페니스がずるりと抜けると、抑えるもののなくなった膣から、ごぽり、と白濁液が溢れ出した。
			CASE ABL:slaveChara:Ａ감각 >= 3
				PRINTFORMW 肛門から駆け上ってくる禁断の快楽に身体をのけぞらせたあと、くたり、と脱力する%CALLNAME:slaveChara%。
				PRINTFORMW その動きで페니스がずるり、と抜けると、もはや閉じなくなった애널から、ごぼり、と白濁液が溢れた。
			CASEELSE
				PRINTFORMW びくびくと脈打つ페니스をその입の一番奥まで深々と咥えこみ、精液を受け止める。
				PRINTFORMW リスのように입を膨らませ、一滴も溢さないように精液をすする。それだけで絶頂してしまったらしく、%CALLNAME:slaveChara%의 背筋がびくんと震えた。
		ENDSELECT
		PRINTFORML
		PRINTFORMW それを見届けてから%마스터호칭은%、精液と%CALLNAME:slaveChara%의 体液でどろどろになった페니스を%CALLNAME:targetChara%의 眼前にかざして、입で掃除しろ、と命令した。
		PRINTFORMW %타겟캐릭은%咄嗟に首を振って거절するが、さっきの写真をばら蒔くぞ、と위협한다と、観念したようにおずおずと입を開く。
		PRINTFORMW そこに一気に페니스をねじこみ、ぐじゅぐじゅと膣のように抜き差しすると、%타겟캐릭은%拙い혀놀림ながら、懸命に페니스を舐めあげている。
		PRINTFORMW そしてその間も%CALLNAME:targetChara%의 右손は止まることなく、自身の身体に복종する快楽を刻み混んでいる。
		PRINTFORMW その初々しくも淫らな姿に興奮し、みるみるうちに%CALLNAME:MASTER%의 페니스は再び固さを取り戻していく････。
		PRINTFORML
		PRINTFORMW そろそろ、いいだろう。
		CALL SET_ACTUAL_FIRST_PLAY_TYPE(MASTER,slaveChara)
		playType = RESULT
		PRINTFORMW すっかり固くなった페니스を引き抜き、%CALLNAME:targetChara%의 \@ playType == 0 ? 膣입 # 애널 \@にあてがう。
		IF (TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음) && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%この場にはいない愛する人へと、力なく助けを求めるが、秘所は凌辱の期待にひくついている。
		ELSEIF TALENT:targetChara:미망인 && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%この世にはいない愛する人へと、力なく助けを求めるが、秘所からは愛液があふれ出している。
		ELSEIF TALENT:targetChara:기혼 && TALENT:targetChara:밀회 != 1
			PRINTFORML %타겟캐릭은%かつて愛した人へと力なく助けを求めるが、秘所は何かを待ち望むかのようにひくついている。
		ELSE
			SIF TALENT:targetChara:청초 == 1 || TALENT:targetChara:무기력 == 1
				PRINTFORML %타겟캐릭은%それだけはやめてと哀願しているが、입とは裏腹に秘所からはとろとろと愛液を溢れさせている。
			SIF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORML %타겟캐릭은%だめ、だめとうわ言のように呟きながら、期待に満ちた顔で페니스を見つめている。
			SIF TALENT:targetChara:성악 == 1
				PRINTFORML %타겟캐릭은%熱に浮かされた表情で매도してくるが、快楽に蕩けた表情ではむしろ滑稽だ。
			SIF TALENT:targetChara:색기 == 1
				PRINTFORML %타겟캐릭은%許してくださいと哀願しているが、秘所は凌辱の期待にひくついている．
			SIF TALENT:targetChara:쿨함 == 1
				PRINTFORML %타겟캐릭은%、普段からは想像もつかない熱っぽい表情で、いきりたった페니스を見つめている。
			SIF TALENT:targetChara:어린애같음 == 1 || TALENT:targetChara:치유계 == 1
				PRINTFORML %타겟캐릭은%ぼうっと宙を見つめながら、興奮のあまりはぁはぁと喘ぎ声を漏らしている。
		ENDIF
		PRINTFORMW 그리고、%마스터호칭이% 腰を進めると、濡れそぼった\@ playType == 0 ? 秘所 # 애널 \@を貫かれながら、%타겟캐릭은%感極まった悲鳴を上げた････。
		IF playType == 0
			IF TALENT:targetChara:처녀 == 1
				PRINTFORMW %CALLNAME:targetChara%의 股間から、太股を伝って赤い筋が流れた････。
			ENDIF
			PRINTFORMW %CALLNAME:targetChara%의 喘ぎ声を堪能しながら、その질내をえぐる。
			PRINTFORMW 미약の効果ですっかり敏感になった질내は、%마스터호칭이% 動くたびにびくん、びくんとひくつき、締め上げてくる。
			PRINTFORM それだけではなく、%CALLNAME:slaveChara%が
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORMW わざと見えるように%CALLNAME:targetChara%의 目の前で자위を行い、互いの痴態で興奮を高めている。
				CASE TALENT:slaveChara:창녀
					PRINTFORMW 興奮を隠さず%CALLNAME:targetChara%의 唇に舌を入れ、입内の隅々まで凌辱する。
				CASE TALENT:slaveChara:복종
					PRINTFORMW 謝罪の言葉を呟きながら、せめてもの贖罪ででもあるかのように勃起した乳首を핧아 올렸ている。
				CASE TALENT:slaveChara:예속
					PRINTFORMW %CALLNAME:targetChara%의 애널に指をねじ込み、腸壁越しに子宮입を責め立てている。
			ENDSELECT
			PRINTFORMW その刺激に耐えきれず、%타겟캐릭이% 髪を振り乱して悶えるたび、질내は別の生き物のようにうねる。
			PRINTFORMW そのうごめきに限界が近いことを悟った%마스터호칭은%ピストンのペースを上げ、질내に出してやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%それだけはやめてくれと暴れるが、快楽に蕩けた身体では何の저항にもならない。
			ELSE
				PRINTFORMW %타겟캐릭은%それだけは止めてと哀願するが、快楽に蕩けた表情では誘っているようにしか見えない。
			ENDIF
			PRINTFORMW 構わず、%마스터호칭은%容赦なく一番奥へと욕망を解き放った。
			PRINTFORMW どくどくと질내に注がれる熱い感깨우침に、질내に出されたことを感じ、%타겟캐릭은%びくんと背筋をのけぞらせる。
			PRINTFORMW どうやら、질내出しでイッってしまったようだ。
		ELSE
			PRINTFORMW %CALLNAME:targetChara%의 고통交じりの喘ぎ声を堪能しながら、まだきつい애널をえぐる。
			PRINTFORMW 미약が効いていてもさすがに未開発の애널を犯されるのは痛いのだろう。%마스터호칭이% 動くたび、涙を流しながらびくん、びくんと身体を跳ね上げる。
			PRINTFORM %CALLNAME:slaveChara%は
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORMW そんな彼女の입に페니스밴드を付けた自分の股間を押し付け、喉の奥まで犯している。
				CASE TALENT:slaveChara:창녀
					PRINTFORMW %CALLNAME:targetChara%의 가슴に吸い付き、甘噛みし、好きなように嬲り倒している。
				CASE TALENT:slaveChara:복종
					PRINTFORMW %CALLNAME:targetChara%의 秘所に顔をうずめ、고통を緩和するかのようにぺろぺろと핧아 올렸ている。
				CASE TALENT:slaveChara:예속
					PRINTFORMW %CALLNAME:targetChara%의 首筋を舐めながら、%CALLNAME:targetChara%의 耳元で음란、変態、と매도の言葉をささやいている。
			ENDSELECT
			PRINTFORMW その刺激に耐えきれず、%타겟캐릭이% 髪を振り乱して悶えるたび、腸内は別の生き物のようにうねる。
			PRINTFORMW 限界が近いことを悟った%마스터호칭은%ピストンのペースを上げ、腸内に出してやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%虚ろな目で喘ぎながら、いや、いやと弱弱しくかぶりをふった。
			ELSE
				PRINTFORMW %타겟캐릭은%やめて、やめてとうわ言のように呟きながら、애널で페니스をぎゅっと締め上げている。
			ENDIF
			PRINTFORMW 構わず、%마스터호칭은%容赦なく一番奥へと욕망を解き放った。
			PRINTFORMW どくどくと애널に注がれる熱い感깨우침に、不浄の穴に射精されたことを感じ、%타겟캐릭은%びくんと背筋をのけぞらせる。
			PRINTFORMW どうやら、初めて애널を犯され、射精されて、イッってしまったようだ。
		ENDIF
		PRINTFORMW 一滴残らず注ぎ込み、満足した顔で페니스を引き抜くと、%CALLNAME:targetChara%의 \@ playType == 0 ? 秘裂 # 애널 \@から、ゴボリと白い物があふれた。
		PRINTFORML \@ playType == 0 ? 질내 # 애널 \@を逆流する感깨우침に、再び絶頂する%CALLNAME:targetChara%。既にその瞳に光はなく、快楽に淀みきっていた････。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW あれから何度犯しただろうか？
		PRINTFORMW 途中から%CALLNAME:slaveChara%も加わって、미약を注ぎ足しつつ代わる代わる%타겟호칭을%陵辱しつづけた。
		PRINTFORMW 終わりない凌辱の末、しまいには\@ playType == 0 ? 膣と애널の両方に同時にねじ込まれ、 # 입を犯されながら애널を小突かれただけで \@髪を振り乱して快楽に絶叫するまでに変わり果ててしまう。
		PRINTFORMW すっかり淫靡な奴隷らしい姿になった%CALLNAME:targetChara%의 姿を、最後にぱしゃり、と写真に収めた。
		PRINTFORMW これで今後も呼び出す事が出来るだろう。
		PRINTFORMW %CALLNAME:targetChara%의 悪夢は、終わらない。
		PRINTFORML

		CALL DIARY_SET,NAME:slaveChara+"に미약を盛らせて、"+NAME:targetChara+"を굴복させた。"

		CFLAG:targetChara:1000 = 5
		TALENT:targetChara:협박 = 1
		TALENT:targetChara:약점 = 1
		TALENT:targetChara:경계 = 0
		;●ＮＴＬ取得
		SIF TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음
			TALENT:targetChara:ＮＴＬ = 1
		;●セックス回数
		sexCount = RAND:2 + 3 + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"솔직,얌전함,성악*10,고결*10,정조관념*2,정조무관심*7,쾌감에솔직*5,쾌감을부정*-5,청초*5,색기*7,천연*3,치유계*3,쿨함*5,무기력*5,기가셈,영애*3,우등생*3,학생회장*2,성직자*3,프린세스*3")
		IF playType == 0
			;●이상경험取得
			EXP:targetChara:50 += 3
			PRINTFORML 이상경험＋３
			;●처녀喪失
			SIF TALENT:targetChara:처녀 == 1
				TALENT:targetChara:처녀 = 0
			;●V経験
			EXP:targetChara:0 += sexCount
			PRINTFORML Ｖ경험＋{sexCount}
			;●A経験
			EXP:targetChara:1 += sexCount
			PRINTFORML Ａ경험＋{sexCount}
			;●질사경험
			EXP:targetChara:5 += sexCount
			PRINTFORML 질사경험＋{sexCount}
			;●절정경험
			EXP:targetChara:2 += sexCount / 10
			PRINTFORML 절정경험＋{sexCount / 10}
		ELSE
			;●이상경험取得
			EXP:targetChara:50 += 4
			PRINTFORML 이상경험＋４
			;●A経験
			EXP:targetChara:1 += sexCount
			PRINTFORML Ａ경험＋{sexCount}
			;●A開発経験
			EXP:targetChara:Ａ개발경험 += sexCount / 2
			PRINTFORML Ａ개발경험＋{sexCount / 2}
			;●절정경험
			EXP:targetChara:2 += sexCount / 40
			PRINTFORML 절정경험＋{sexCount / 40}
		ENDIF
		;●펠라경험
		EXP:targetChara:22 += sexCount
		PRINTFORML 펠라경험＋{sexCount}
		;●의존도
		CFLAG:targetChara:2 = -500
		;●성교경험
		EXP:targetChara:4 += sexCount
		PRINTFORML 성교경험＋{sexCount}
		;●정액경험
		EXP:targetChara:20 += sexCount
		PRINTFORML 정액경험＋{sexCount}
		;●피사경험
		EXP:targetChara:63 += 1
		PRINTFORML 피사경험＋1

		;●각인　(손抜き)
		MARK:targetChara:굴복각인 = MIN(sexCount / 100,3)
		MARK:targetChara:쾌락각인 = MIN(sexCount / 100,3)

		CSTR:targetChara:41= %\@ IS_SAMEHOME(targetChara,slaveChara) ? 自宅 # %CALLNAME:slaveChara%의 家 \@%で자위する姿
ENDSELECT
DRAWLINE
RETURN

@TRAP_FRINED_TRAIN
#DIM targetChara
#DIM slaveChara
#DIM slaveAttack
#DIM targetResist
#DIM sexCount
#DIM playType

;対象を選択
PRINTFORML 誰を快楽の虜にしますか？
CALL SELECT_TRAP_CHARA(13)
SIF RESULT == -1
	RETURN -1
targetChara = RESULT
slaveChara = getChara(CFLAG:targetChara:1015)

IF !IS_SAMEHOME(targetChara,slaveChara)
	PRINTFORMW 理由をつけて、%NAME:slaveChara%의 家に%조사처리(NAME:targetChara,"을")% 誘い出した････。
ELSE
	PRINTFORMW %타겟캐릭은%、自宅なのもあって気を緩め、%NAME:slaveChara%とふざけあっている。
ENDIF

slaveAttack  = CALC_CHARA_RANGED_DATA("ABL",slaveChara,"전투능력","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",slaveChara,"감성","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",slaveChara,"성악*10,고결*-10,겁쟁이*-5,솔직*5,얌전함*-5,충동적*3,도착적*5,바이*10,소악마*5,카리스마*3,인기*2,수수께끼의매력*5,헌신적,무기력*-5,음험*5,애교") + CFLAG:targetChara:1013 + ITEM:흥분아로마 * 10
targetResist = CALC_CHARA_RANGED_DATA("ABL",targetChara,"전투능력","3,1|7,3|*,5") + CALC_CHARA_RANGED_DATA("ABL",targetChara,"운동능력","3,1|7,2|*,3") + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"반항적*3,꿋꿋함*3,얌전함*-3,겁쟁이*-3,프라이드높음*7,고결*5,자제심*5,호기심*-3,보수적*3,결벽성*3,정욕*-10,금욕*10,정조관념*7,정조무관심*-7,억압*-3,해방*-5,철벽*20,부끄럼쟁이*8,수치심없음*-2,쾌감에솔직*-10,쾌감을부정*10,도착적*-6,바이*-3,쿨함,닌자*3,탐정*2,성직자*5,학생회장*5,경계") - (RELATION:targetChara:(NO:slaveChara) / 10 - 10) - ITEM:냉정아로마 * 10

PRINTFORML
PRINTFORML %NAME:slaveChara%의 トラップ判定　：　{slaveAttack}
PRINTFORML %NAME:targetChara%의 対抗判定　：　{targetResist}
PRINTFORML

SELECTCASE slaveAttack - targetResist
	CASE IS <= 0
		PRINTFORMW ････しかし、%타겟캐릭은% さりげなく경계しており、全く隙を見せなかった。
		PRINTFORMW 勘づかれたかもしれない。方바늘を練り直す必要がありそうだ････。
		PRINTFORMW 結果　：　大失敗！
		CFLAG:targetChara:1015 = 0
		CFLAG:targetChara:1000 = 4
		CFLAG:targetChara:1013 = 0
		TALENT:targetChara:경계 += 4
	CASE IS < 5
		IF IS_SAMEHOME(targetChara,slaveChara)
			PRINTFORMW ････しかし、%타겟캐릭은% 電話を受けると、慌てて帰ってしまった。
			PRINTFORMW なんでも、急用が入ってすぐに帰らなければならないらしい。
		ELSE
			PRINTFORMW ････しかし、%타겟캐릭은% 電話を受けると、慌てて出かけてしまった。
			PRINTFORMW なんでも、急用が入ったらしい。
		ENDIF
		PRINTFORMW ････しょうがない。また次の機会を待つとしよう。
		CFLAG:targetChara:1013 ++
		PRINTFORMW 結果　：　失敗！
	CASEELSE
		PRINTFORMW 結果　：　成功！
		PRINTFORMW %타겟캐릭은%寛いだ表情で、%CALLNAME:slaveChara%とお喋りに興じている。
		PRINTFORMW どうやら、@\ IS_SAMEHOME(targetChara,slaveChara) ? 自宅 # 気のおけない%CALLNAME:slaveChara%의 家 @\ということで、安心しているようだ。
		PRINTFORMW その%CALLNAME:slaveChara%が、懐に로터を忍ばせていることも知らずに････。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW 隙をみて、%CALLNAME:slaveChara%が%타겟호칭을%押し倒す。
		PRINTFORMW 冗談だと思ったのだろう。%타겟캐릭은%笑いながら、%CALLNAME:slaveChara%を押し退けようとする。
		PRINTFORMW その저항ともいえない저항をいなしながら、%CALLNAME:slaveChara%はにやりと笑み････巧みに%타겟호칭을%押さえつけると、その唇を奪った。
		PRINTFORMW 突然のことに目を見開き、暴れだす%CALLNAME:targetChara%。
		PRINTFORMW だが、%타겟캐릭이% 가슴に触れると、びくんと身体を震わせて、動きが止まる。
		PRINTFORMW 그대로、%CALLNAME:slaveChara%が%CALLNAME:targetChara%의 입腔を舐め回し、服の上から乳房を揉み始める。その손が動くたび、%CALLNAME:targetChara%의 腰が悩ましくくねり、저항する力が弱くなる。
		IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
			PRINTFORMW と････。
			PRINTFORMW 最後の기력を振り絞ったのだろう。%타겟캐릭이% 思いっきり%타겟호칭을%押し退けた。
			PRINTFORMW きゃっ、と悲鳴をあげ、尻餅をつく%CALLNAME:slaveChara%。
			PRINTFORMW しかし、%타겟캐릭은%逃げることもせず、上半身だけを起こしてはぁはぁと息を整えている。
			PRINTFORMW ････いや。発情し、紅く染まった頬を見れば、逃げないのではなく、逃げられないのだろう。
			PRINTFORMW なんで、と、怯えた目で%CALLNAME:slaveChara%を見る%CALLNAME:targetChara%。
			PRINTFORMW %CALLNAME:slaveChara%は起き上がり、ポケットから로터を取り出す。スイッチを入れながら、ふふ、と妖しく微笑んだ。
			PRINTFORML
			PRINTFORML なんでって、%GET_CALL_NAME(slaveChara,targetChara)%が可愛いから。
		ELSE
			PRINTFORMW ぷはっ、と満足した顔で%CALLNAME:slaveChara%が顔を上げた。%타겟캐릭은%ようやく해방された입ではぁはぁと、酸素を求めて荒い呼吸を繰り返している。
			PRINTFORMW 組み敷かれたまま、どうして････と漏らす%CALLNAME:targetChara%。その瞳は信じられないものを見たように、怯えている。
			PRINTFORMW だが、頬は既に紅く染まり、%CALLNAME:slaveChara%의 与える快楽に酔い始めていることが見てとれた。
			PRINTFORMW その%타겟호칭을%見下ろして、ふふ、と妖しく微笑む。ポケットから로터を取り出し、スイッチを入れながら、耳元で囁いた。
			PRINTFORML
			PRINTFORML どうしてって、%GET_CALL_NAME(slaveChara,targetChara)%が悪いんだよ？　だって、こんなにかわいいんだから。
		ENDIF
		PRINTFORMW
		PRINTFORMW そう言って、再び%타겟호칭을%押し倒す。
		PRINTFORMW %CALLNAME:targetChara%にはもはや、저항するだけの기력はなかった。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW %CALLNAME:slaveChara%의 舌が、再び%CALLNAME:targetChara%의 咥内を嬲る。それだけで身悶え、腰をくねらせる%CALLNAME:targetChara%。
		PRINTFORMW 空いた片손はするすると服の앞을 풀어헤쳐、乳房を露にする。その乳房を直接揉み、로터を押し当てる。
		PRINTFORMW %CALLNAME:slaveChara%に塞がれた입から、んんっ、と声が漏れる。
		PRINTFORMW そのまま%CALLNAME:slaveChara%が乳首を舐め、吸う。
		PRINTFORMW ああっ、と声を漏らし、その顔を押し退けようとする%CALLNAME:targetChara%。しかし、もう力が入らないのか、なんの저항にもなっていない。
		PRINTFORMW むしろ、%CALLNAME:slaveChara%의 頭を押し付けるだけに終わってしまう。
		PRINTFORMW 調子に乗った%CALLNAME:slaveChara%が乳首に軽く歯を立てると、%CALLNAME:slaveChara%はそれだけで背筋をぴんと伸ばし、びくんびくんと絶頂した。
		PRINTFORML
		PRINTFORMW \@ IS_SAMEHOME(targetChara,slaveChara) ? 自宅で # %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 家で、その \@%GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%にキスされ、가슴を嬲られ、あまつさえ、가슴だけで絶頂してしまった。
		PRINTFORMW 崩れ落ちてはぁ、はぁと荒い息を漏らしながら、その事実にショックを受ける%CALLNAME:targetChara%。
		PRINTFORMW そんな%타겟호칭을%見下ろしながら、가슴だけでイッちゃうなんて、%GET_CALL_NAME(slaveChara,targetChara)%ってエッチなんだね、と囁く%CALLNAME:slaveChara%。
		PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 信じられない言葉に、%타겟캐릭은%違う、違うと首を振る。%CALLNAME:slaveChara%はじゃあ、確かめてみようか、と、%CALLNAME:targetChara%의 秘所に触れた。
		PRINTFORMW 瞬間、はぁっという声とともに、びくんと背筋を震えさせる%CALLNAME:targetChara%。イッたばかりで敏感な身体が、刺激に過剰に反応し、%CALLNAME:targetChara%의 精神を追い詰める。
		PRINTFORMW 그대로、クリトリスに로터を押し当て、질내にするりと손を潜り込ませる。질내をぐじゅぐじゅと音をたてて、かき回し始める。
		PRINTFORMW 必死で입を抑え、喘ぎ声を漏らさないように耐えている。だが、その손の隙間から盛れてくる声は、紛れもなく、歓喜の喘ぎ声だ。
		PRINTFORMW 그리고、%타겟캐릭이% 二度目の絶頂を極めようとしたまさにその瞬間。
		PRINTFORMW %CALLNAME:slaveChara%의 손が、すっと引き抜かれた････。
		PRINTFORML
		PRINTFORMW 予想外の状況に、え、と狼狽える%CALLNAME:targetChara%。そんな%타겟호칭을%見下ろしながら、とぼけ顔でどうしたの、続き、して欲しかったの？　と訪ねる%CALLNAME:slaveChara%。
		PRINTFORMW とっさに違う、と首を振るが、%CALLNAME:slaveChara%は構わず、再び%CALLNAME:targetChara%의 가슴と膣に손を伸ばす。
		PRINTFORMW 元々、絶頂寸前でお預けされた身体だ。耐えられるはずもなく、あっという間に顔を歪め、快楽にのたうつ。
		PRINTFORML
		PRINTFORML その耳元で、%마스터호칭은%、なかなか愉しそうだな、とささやいた。
		PRINTFORMW
		PRINTFORMW 快楽に染まった顔を真っ青にして、%마스터호칭을% 見上げる%CALLNAME:targetChara%。
		PRINTFORMW なぜここに%마스터호칭이% いるのか理解できないのだろう。どうして････と、うわ言のように呟く。
		PRINTFORM 答える代わりに、%CALLNAME:slaveChara%に目で合図すると、
		SELECTCASE 1
			CASE TALENT:slaveChara:음란
				PRINTFORMW ご褒美、お願いしますね、と淫らに微笑み、再び%타겟호칭을%責め始める。
			CASE TALENT:slaveChara:창녀
				PRINTFORMW 大丈夫、一緒に気持ちよくなろう、と囁き、再び%타겟호칭을%責め始める。
			CASE TALENT:slaveChara:복종
				PRINTFORMW 一瞬だけ辛そうな目をしたあと、再び%타겟호칭을%責め始める。
			CASE TALENT:slaveChara:예속
				PRINTFORMW ご主人様の言う通りにしなきゃ、ダメだよ？　と囁き、再び%타겟호칭을%責め始める。
		ENDSELECT
		PRINTFORMW 火照った身体に注ぎ込まれる、信じがたいほどの快感。
		PRINTFORMW その快感にされるがままにのたうち、喘ぎ続ける身体。
		PRINTFORMW 그리고、それを%CALLNAME:MASTER%に見られている。その事実に混乱し、ダメ、やめてと暴れる%CALLNAME:targetChara%。
		PRINTFORMW しかし彼女の意思に反して、%CALLNAME:slaveChara%의 巧みな애무によりこの短期間で開発された身体は、再び絶頂を極めようとして････
		PRINTFORML
		PRINTFORML ････その寸前で、また、%CALLNAME:slaveChara%의 손が離れていった････。
		PRINTFORMW
		PRINTFORMW あぁ、と、切なげな吐息を漏らし。%CALLNAME:MASTER%의 ことを思い出して、俯く%CALLNAME:targetChara%。
		PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%はおろか、%CALLNAME:MASTER%にまで見られているのに、正体なく感じてしまった自分、そして更なる快感を、絶頂を期待してしまう自分が信じられず、首を振っている。
		PRINTFORMW その身体に、再び%CALLNAME:slaveChara%의 손が伸びる。そしてそれだけではなく、%CALLNAME:MASTER%의 손が伸びるのを見て、いや、触らないで、と力の入らない身体で暴れだす。
		PRINTFORMW それを抑え込み、%CALLNAME:slaveChara%は耳元で囁いた。
		PRINTFORML
		SELECTCASE 1
			CASE TALENT:slaveChara:음란
				PRINTFORML ダメだよ、%GET_CALL_NAME(slaveChara,targetChara)%が大人しくしてくれないと、ご褒美貰えなくなっちゃうんだから。
			CASE TALENT:slaveChara:창녀
				PRINTFORML 大丈夫、ご主人様の奴隷になれば、天国みたいに気持ちよくなれるから。
			CASE TALENT:slaveChara:복종
				PRINTFORML 저항しないで。流されれば、すぐ楽になれるから。
			CASE TALENT:slaveChara:예속
				PRINTFORML 大丈夫、ご主人様の奴隷になれば、幸せになれるから。
		ENDSELECT
		PRINTFORMW
		PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 信じられない言葉に、%CALLNAME:targetChara%의 表情が絶望に変わる。
		PRINTFORMW このとき、ようやく%타겟캐릭은%理解したのだ。
		PRINTFORMW 自分が%CALLNAME:slaveChara%의 罠にはまり、この男に売られたのだ、ということを。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW %CALLNAME:slaveChara%と二人がかりで、絶頂寸前まで追いやる。
		PRINTFORMW 그리고、寸前で責める손を止め、体の火照りがくすぶるまで休ませる。
		PRINTFORMW くすぶり始めたところで、再び全身を責め、絶頂寸前まで追いやる。
		PRINTFORMW 何回も、何十回もそれらを繰り返し、責め続ける。
		PRINTFORMW いつ終わるとも知れない快楽地獄。その中で翻弄され続ける%CALLNAME:targetChara%。その瞳に既に意思の光はなく、ガラス玉のような瞳で快楽に喘ぎ続けている。
		PRINTFORML
		PRINTFORML お願い。もう我慢できない。イカせてください。
		PRINTFORMW
		PRINTFORMW 嫌悪と거절の叫びは、既に絶頂を懇願する淫らな哀願へと変わり、それでも絶頂させてもらえない。
		PRINTFORMW 快楽に狂いそうな叫び声を上げる%CALLNAME:targetChara%。そこに、%CALLNAME:slaveChara%が囁きかける。
		PRINTFORML
		PRINTFORML イかせて欲しかったら、ちゃんとお願いしないとダメだよ。
		PRINTFORMW
		PRINTFORMW それと同時に%마스터호칭은%責め손を休め、代わりに大きく勃起した페니스を見せつけてやる。
		PRINTFORMW あぁ････と、熱に浮かされた目で페니스を見つめる%CALLNAME:targetChara%。
		PRINTFORMW だが、ギリギリで理性が勝ったらしく、はっと正気に戻って首を振った。
		PRINTFORMW それでも再び開いた目は、페니스に釘付けだ。
		PRINTFORMW 追い討ちをかけるように、%CALLNAME:slaveChara%が再び絶頂寸前まで追いやる。
		PRINTFORMW 背筋を震わせ、全身をビクビクと痙攣しながら、それでも絶頂できず悶える%CALLNAME:targetChara%。
		PRINTFORMW その眼前に페니스をかざしてやると、ふらふらと虚ろな目で追いかけている。
		PRINTFORML
		PRINTFORMW そんな彼女に、%CALLNAME:slaveChara%がさらに何事かを囁く。
		PRINTFORMW そのあまりの内容に驚き、そんな恥ずかしいこと、できない、と身体を震わせる%CALLNAME:targetChara%。
		PRINTFORMW 構わず、再び질내に指を差し入れ、かき回す。%타겟캐릭은%腰をはしたなく振り、正体なく喘ぎ続ける。
		PRINTFORMW それでも、イカせて貰えない。なんで、壊れちゃう、お願い、イカせて。狂ったように叫ぶ%CALLNAME:targetChara%。
		PRINTFORML
		PRINTFORML ダメだよ。ちゃんと奴隷になってお願いしないと、このまま一生イかせてもらえないよ？
		PRINTFORMW
		PRINTFORMW 一生････と、再び熱に浮かされた瞳で페니스を見つめる%CALLNAME:targetChara%。
		PRINTFORMW そしてのろのろと起き上がり、自分から足をＭ字に開く。그리고、長時間の애무にひくひくとうごめく秘所を、両손で開いて見せた。
		PRINTFORML
		PRINTFORML お願いします････。その、逞しい페니스で、私を奴隷にしてください。그리고、思いっきりイカせてください。
		PRINTFORMW
		PRINTFORMW 自ら恥ずかしい姿を晒しながら、복종の言葉を述べる%CALLNAME:targetChara%。
		CALL SET_ACTUAL_FIRST_PLAY_TYPE(MASTER,slaveChara)
		playType = RESULT
		PRINTFORMW その大きく開かれた\@ playType == 0 ? 膣입 # 애널 \@へと、%마스터호칭이% 페니스をあてがう。
		IF (TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음) && TALENT:targetChara:밀회 != 1
			PRINTFORML この場にはいない愛する人に許しを懇願しながら、とろりと新しい愛液を溢れさせる%CALLNAME:targetChara%。
		ELSEIF TALENT:targetChara:미망인 && TALENT:targetChara:밀회 != 1
			PRINTFORML この世にはいない愛する人に許しを懇願しながら、淫らなメスの本能に逆らえない%CALLNAME:targetChara%。
		ELSEIF TALENT:targetChara:기혼 && TALENT:targetChara:밀회 != 1
			PRINTFORML かつて愛した人の名を呟きながら、濡れそぼった秘所を開く%CALLNAME:targetChara%。
		ELSE
			SIF TALENT:targetChara:청초 == 1 || TALENT:targetChara:무기력 == 1 || TALENT:targetChara:치유계 == 1
				PRINTFORML ダメなのに････と呟きながら、凌辱の期待に膣肉をひくつかせる%CALLNAME:targetChara%。
			SIF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORML 普段の기가셈な態度は欠片もなく、凌辱の期待に背筋を震わせる%CALLNAME:targetChara%。
			SIF TALENT:targetChara:성악 == 1
				PRINTFORML 悪巧みをする余裕すらなくし、はぁはぁと熱っぽく페니스を見つめる%CALLNAME:targetChara%。
			SIF TALENT:targetChara:색기 == 1
				PRINTFORML 凌辱への期待に、この世のものとは思えないほどのなまめかしい表情で腰をくねらせる%CALLNAME:targetChara%．
			SIF TALENT:targetChara:쿨함 == 1
				PRINTFORML 普段の쿨함な顔からは想像もつかない蕩けた表情で、凌辱への期待に震える%CALLNAME:targetChara%。
			SIF TALENT:targetChara:어린애같음 == 1
				PRINTFORML 普段の어린애같음仕草からはかけ離れたメスの顔で、凌辱を懇願する%CALLNAME:targetChara%。
		ENDIF
		PRINTFORMW そのまま%마스터호칭이% 腰を進め、濡れそぼった秘所を貫くと、%타겟캐릭은%感極まった悲鳴を上げた････。
		IF playType == 0
			IF TALENT:targetChara:처녀 == 1
				PRINTFORMW %CALLNAME:targetChara%의 股間から、太股を伝って赤い筋が流れた････。
			ENDIF
			PRINTFORMW %CALLNAME:targetChara%의 歓喜の声を堪能しながら、その질내をえぐる。
			PRINTFORMW 長時間の責めに敏感になった질내は、%마스터호칭이% 動くたびに別の生き物のようにびくん、びくんとひくつき、締め上げてくる。
			PRINTFORMW さんざん寸止めされた%타겟캐릭은%、一突きごとに絶頂しているらしい。髪を振り乱して悶え、질내をびくびくとうねらせる。
			PRINTFORM %CALLNAME:slaveChara%は、
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORML そんな%CALLNAME:targetChara%의 姿にすっかり興奮し、次を待つかのように自分を慰めている。
				CASE TALENT:slaveChara:창녀
					PRINTFORML %CALLNAME:targetChara%의 見たこともない顔で、%CALLNAME:targetChara%의 後ろから애널に指を差し込み、容赦なく責めさいなみながら、肩越しに変態、変態と매도している。
				CASE TALENT:slaveChara:복종
					PRINTFORML そんな%CALLNAME:targetChara%의 姿に涙を流しながら、唇を重ね、舌を絡ませている。
				CASE TALENT:slaveChara:예속
					PRINTFORML %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%が自分と同じ%CALLNAME:MASTER%의 奴隷となったことに、嬉しそうに微笑んでいる。
			ENDSELECT
			PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 変わり果てた姿に、自分の将来を重ね、さらに興奮したのだろう。
			PRINTFORMW %CALLNAME:targetChara%의 秘所が、%CALLNAME:MASTER%의 페니스を、ぎゅっと締め上げる。
			PRINTFORMW そのきつさに限界が近いことを悟った%마스터호칭은%ピストンのペースを上げ、질내に出してやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%だめ、だめとうわ言のように叫ぶが、身体は질내射精の快楽を期待し、さらにきつく페니스を締め上げる。
			ELSE
				PRINTFORMW %타겟캐릭은%快楽に蕩けて何も考えられないのだろう。されるがままに狂ったように喘ぎ続ける。
			ENDIF
			PRINTFORMW 構わず、%마스터호칭은%一番奥へと욕망を解き放った。
			PRINTFORMW どくどくと注がれる熱い感깨우침に、질내に出されたことを感じ、%타겟캐릭은%びくんと背筋をのけぞらせる。
			PRINTFORMW どうやら、질내射精でイッってしまったようだ。
			PRINTFORMW 一滴残らず注ぎ込み、満足した顔で페니스を引き抜くと、%CALLNAME:targetChara%의 秘裂から、ゴボリと白い物があふれた。
			PRINTFORMW 질내を逆流する感깨우침に、再び絶頂する%CALLNAME:targetChara%。
		ELSE
			PRINTFORMW %CALLNAME:targetChara%의 苦しそうな喘ぎ声を堪能しながら、その애널をえぐる。
			PRINTFORMW 長時間の責めに완전히 느슨해진 애널は、まるで開発されきった膣のようにぐにぐにと蠢き。%CALLNAME:MASTER%의 페니스を責めたてる。
			PRINTFORMW さんざん寸止めされた%타겟캐릭은%、腸壁をえぐられるたびに絶頂しているらしい。背筋をのけぞらせ、白目を剥いて獣のような叫び声をあげている。
			PRINTFORM %CALLNAME:slaveChara%は、
			SELECTCASE 1
				CASE TALENT:slaveChara:음란
					PRINTFORML そんな%CALLNAME:targetChara%의 姿に興奮し、次の相손をせがみながら자위に耽っている。
				CASE TALENT:slaveChara:창녀
					PRINTFORML %CALLNAME:targetChara%의 耳たぶを핧아 올렸、耳の穴に舌を差し入れ、一秒の間もなく責めたて続けている。
				CASE TALENT:slaveChara:복종
					PRINTFORML そんな%CALLNAME:targetChara%의 はしたない姿に愕然としながら、彼女をぎゅっと抱きしめている。
				CASE TALENT:slaveChara:예속
					PRINTFORML 不浄の穴を抉られて喜ぶ%GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%を嘲りながら、主人に仕える歓びを囁いている。
			ENDSELECT
			PRINTFORMW %GET_RELATIONSHIP_TEXT(targetChara,slaveChara,0)%의 変わり果てた姿に、自分の将来を重ね、興奮したのだろう。
			PRINTFORMW %CALLNAME:targetChara%의 애널が、%CALLNAME:MASTER%의 페니스を、ぎゅっと締め上げる。
			PRINTFORMW そのきつさに限界が近いことを悟った%마스터호칭은%ピストンのペースを上げ、애널に出してやる、と%CALLNAME:targetChara%に告げた。
			IF TALENT:targetChara:천연 == 1 || TALENT:targetChara:쾌활 == 1 || TALENT:targetChara:보이쉬 == 1 || TALENT:targetChara:기가셈 == 1 || TALENT:targetChara:고결 == 1
				PRINTFORMW %타겟캐릭은%だめ、だめとうわ言のように叫ぶが、身体は질내射精の快楽を期待し、さらにきつく페니스を締め上げる。
			ELSE
				PRINTFORMW %타겟캐릭은%快楽に蕩けて何も考えられないのだろう。されるがままに狂ったように喘ぎ続ける。
			ENDIF
			PRINTFORMW 構わず、%마스터호칭은%一番奥へと욕망を解き放った。
			PRINTFORMW どくどくと注がれる熱い感깨우침に、질내に出されたことを感じ、%타겟캐릭은%びくんと背筋をのけぞらせる。
			PRINTFORMW どうやら、질내射精でイッってしまったようだ。
			PRINTFORMW 一滴残らず注ぎ込み、満足した顔で페니스を引き抜くと、%CALLNAME:targetChara%의 秘裂から、ゴボリと白い物があふれた。
			PRINTFORMW 질내を逆流する感깨우침に、再び絶頂する%CALLNAME:targetChara%。
		ENDIF
		PRINTFORMW この世のものとは思えない絶頂に蕩けきったその顔には、自ら望み、凌辱されてしまったという後悔、そして僅かながら、복종する悦びが確かに刻まれていた････。
		PRINTFORML
		PRINTFORML ････････････
		PRINTFORML ････････
		PRINTFORML ････
		PRINTFORMW
		PRINTFORMW あれから何度犯しただろうか？
		PRINTFORMW 途中から%CALLNAME:slaveChara%も加わって、代わる代わる%타겟호칭을%陵辱しつづけた。
		PRINTFORMW 終わりない凌辱の末、しまいには\@ playType == 0 ? 膣と애널の両方 # 입と애널 \@ に同時にねじ込まれ、快楽に髪を振り乱して絶叫するまでに変わり果ててしまう。
		PRINTFORMW 순종に%CALLNAME:MASTER%의 足元に這いつくばり、페니스へと奉仕する%CALLNAME:targetChara%。
		PRINTFORMW すっかり奴隷らしくなったその姿を、ぱしゃり、と카메라に納めた。
		PRINTFORMW これで今後も呼び出す事が出来るだろう。
		PRINTFORMW %CALLNAME:targetChara%의 悪夢は、終わらない。
		PRINTFORML

		CALL DIARY_SET,NAME:slaveChara+"に命じて、"+NAME:targetChara+"を快楽責めにし、굴복させた。"

		CFLAG:targetChara:1000 = 5
		TALENT:targetChara:유혹 = 1
		TALENT:targetChara:경계 = 0
		;●ＮＴＬ取得
		SIF TALENT:targetChara:좋아하는사람있음 || TALENT:targetChara:남친있음 || TALENT:targetChara:남편있음
			TALENT:targetChara:ＮＴＬ = 1
		;●セックス回数
		sexCount = RAND:2 + 3 + CALC_CHARA_SINGLE_DATA("TALENT",targetChara,"솔직,얌전함,성악*10,고결*10,정조관념*-2,정조무관심*10,쾌감에솔직*5,쾌감을부정*-5,청초*4,색기*8,천연*4,치유계*4,쿨함*6,무기력*6,기가셈*2,영애*4,우등생*2,학생회장*2,성직자*2,프린세스*4")
		IF playType == 0
			;●이상경험取得
			EXP:targetChara:50 += 3
			PRINTFORML 이상경험＋３
			;●처녀喪失
			IF TALENT:targetChara:처녀 == 1
				TALENT:targetChara:처녀 = 0
			ENDIF
			;●V経験
			EXP:targetChara:0 += sexCount
			PRINTFORML Ｖ경험＋{sexCount}
			;●A経験
			EXP:targetChara:1 += sexCount
			PRINTFORML Ａ경험＋{sexCount}
			;●질사경험
			EXP:targetChara:5 += sexCount
			PRINTFORML 질사경험＋{sexCount}
			;●절정경험
			EXP:targetChara:2 += sexCount / 10
			PRINTFORML 절정경험＋{sexCount / 10}
		ELSE
			;●A経験
			EXP:targetChara:1 += sexCount
			PRINTFORML Ａ경험＋{sexCount}
			;●Ａ개발경험
			EXP:targetChara:Ａ개발경험 += sexCount
			PRINTFORML Ａ개발경험＋{sexCount}
			;●절정경험
			EXP:targetChara:2 += sexCount / 30
			PRINTFORML 절정경험＋{sexCount / 30}
		ENDIF
		;●펠라경험
		EXP:targetChara:22 += sexCount
		PRINTFORML 펠라경험＋{sexCount}
		;●의존도
		CFLAG:targetChara:2 = -500
		;●성교경험
		EXP:targetChara:4 += sexCount
		PRINTFORML 성교경험＋{sexCount}
		;●정액경험
		EXP:targetChara:20 += sexCount
		PRINTFORML 정액경험＋{sexCount}
		;●피사경험
		EXP:targetChara:63 += 1
		PRINTFORML 피사경험＋1

		;●각인　(손抜き)
		MARK:targetChara:굴복각인 = MIN(sexCount / 100,3)
		MARK:targetChara:쾌락각인 = MIN(sexCount / 100,3)
ENDSELECT
DRAWLINE
RETURN

@SELECT_TRAP_CHARA(pattern)
#DIM pattern
#DIM targetList,100 ;とりあえず100。
#DIMS rule
#DIM index
rule = CFLAG:index:1000 == {pattern}
CALL GET_RANDOM_CHARAS(rule,targetList)
WHILE 1
	FOR index,0,varSize("targetList")
		SIF targetList:index < 0
			break
		PRINTFORML [{index,3}] - %NAME:(targetList:index)%
	NEXT
	PRINTFORML [100] 돌아온다
	INPUT
	SIF RESULT == 100
		RETURN -1
	SIF !INRANGE(RESULT,0,varSize("targetList")) || targetList:RESULT < 0
		continue
	break
WEND
RETURN targetList:RESULT

repo_name: Catalyst/B

license: unknown


code:
;ＴＳ약대상選択
;대상外のキャラならｰ1を返す処理を追加してください
@TS_CHENGE_CHK(ARG)
#FUNCTION
;何もないのはアレなのでとりあえずロボ子を数人入れておく
;マルチ
SIF ARG == 2608
	RETURNF -1
;セリオ
SIF ARG == 2615
	RETURNF -1
;イルファ
SIF ARG == 3512
	RETURNF -1
;ミルファ
SIF ARG == 3513
	RETURNF -1
;シルファ
SIF ARG == 3514
	RETURNF -1
;鈴木 まほ子
SIF ARG == 80000
	RETURNF -1
SIF IS_UNCONTACTABLE(ARG)
	RETURNF -1
RETURNF 0

;ＴＳ약実施
;個別処理がある場合やもっと詳しく変化を加えたい場合に追加・修正してください
@TS_CHENGE(ARG)
;早乙女 らんま
;IF ARG == 1601
;	PRINTFORM ＜なんと%NAME:ARG%が
;	;남자→女
;	IF TALENT:ARG:남자
;		NAME:ARG = 早乙女 らんま
;		CALLNAME:ARG = らんま
;		TALENT:ARG:남자 = 0
;		TALENT:ARG:거유 = 1
;		TALENT:ARG:절벽 = 0
;		TALENT:ARG:적발 = 1
;		TALENT:ARG:흑발 = 1
;		CFLAG:ARG:42 = 팬티
;		CFLAG:ARG:43 = 브래지어
;		CFLAG:ARG:44 = 스커트
;		CFLAG:ARG:45 = 블레이저
;	;女→남자
;	ELSE
;		NAME:ARG = 早乙女 乱馬
;		CALLNAME:ARG = 乱馬
;		TALENT:ARG:남자 = 1
;		TALENT:ARG:거유 = 0
;		TALENT:ARG:절벽 = 1
;		TALENT:ARG:적발 = 0
;		TALENT:ARG:흑발 = 0
;		CFLAG:ARG:42 = 트렁크
;		CFLAG:ARG:43 = 셔츠
;		CFLAG:ARG:44 = 바지
;		CFLAG:ARG:45 = 中華服
;	ENDIF
;	PRINTFORMW %NAME:ARG%になった＞
;汎用
;ELSE
	TALENT:ARG:빈유 = 0
	TALENT:ARG:절벽 = 0
	TALENT:ARG:거유 = 0
	TALENT:ARG:폭유 = 0
	;남자→女
	IF TALENT:ARG:남자
		TALENT:ARG:남자 = 0
		IF RAND:5 == 0 && !TALENT:ARG:초등학생 && !TALENT:ARG:중학생
			TALENT:ARG:폭유 = 1
		ELSEIF RAND:4 == 0 && !TALENT:ARG:초등학생
			TALENT:ARG:거유 = 1
		ELSEIF RAND:3 == 0
			;평유
		ELSEIF RAND:2 == 0
			TALENT:ARG:빈유 = 1
		ELSE
			TALENT:ARG:절벽 = 1
		ENDIF
		PRINTFORMW ＜무려 %조사처리(NAME:ARG,"이")% 여자로 변했다＞
	;女→남자
	ELSE
		TALENT:ARG:남자 = 1
		TALENT:ARG:절벽 = 1
		PRINTFORMW ＜무려 %조사처리(NAME:ARG,"이")% 남자로 변했다＞
	ENDIF
;ENDIF