code:
@RAPE_TEST
#DIM LOOP_COUNTER							;ループカウント用変数(COUNT:0だと配列呼び出すのに使えないので)
#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 playType

;即강간にチャレンジ
CALL DISPLAY_COMMON , 12
SIF RESULT == 999
	RETURN 0

;대상が変更される
X = TARGET
TARGET = RESULT
PRINTFORML ……그날 밤、%마스터호칭은% %CALLNAME:TARGET%의 뒤를 밟았다.
IF ASSI >= 1
	PRINTFORML 아무도 신경쓰지 않는 낡은 빌딩 근처를 지나는 것을、조수인 %조수와% 함께 숨어서 기다렸다.
ELSE
	PRINTFORML 아무도 신경쓰지 않는 낡은 빌딩 근처를 지나는 것을 숨어서 기다렸다.
ENDIF
;감성の比較　주인이 勝ってれば不意を打って以降の判定に修正
;A = 0
;IF ABL:MASTER:감성 > ABL:감성
;	PRINTFORML %타겟호칭은% 何も気づかずにビルに近づいてくる……
;	A = RAND:3 + 1
;ELSE
;	PRINTFORML 何か気になる事でもあったのか、%타겟호칭은% 少し周りを気にしている様だ。
;ENDIF

SIF TALENT:정보통 == 1
	A -= 1
SIF TALENT:마술기능 == 1
	A -= 2
;감성の対抗判定
CALL COMPATITION, TARGET, 25, A, MASTER
IF RESULT == 0
	PRINTFORML %타겟호칭은% 아무것도 눈치채지 못하고 빌딩에 가까워져 온다……
	A = RAND:3 + 1
ELSE
	PRINTFORML 무엇인가 신경이 쓰이는 일이라도 있었는지 %타겟호칭은% 조금 주위를 신경쓰고 있는 것 같다.
ENDIF

SIF TALENT:실어증 == 1
	A += 1
SIF TALENT:아르바이트 == 1
	A += 1
SIF TALENT:고고함 == 1
	A += 1
SIF TALENT:레이프소망 == 1
	A += 2
SIF TALENT:맹인 == 1
	A += 2
SIF TALENT:친구많음 == 1
	A -= 1
SIF TALENT:파이터 == 1
	A -= 2
SIF TALENT:닌자 == 1
	A -= 2
SIF TALENT:탐정 == 1
	A -= 1
SIF TALENT:매드사이언티스트 == 1
	A -= 1
SIF TALENT:흡혈귀 == 1
	A -= 2

;運動の比較
PRINTFORMW ……%타겟이% 빌딩 근처를 지났을 때、%마스터호칭은% 숨은 장소에서 뛰쳐나와 덮치려고 했다.
;B = ABL:MASTER:운동능력 + A
;IF B >= ABL:운동능력

;運動+戦闘の対抗判定
;CALL COMPATITION, TARGET, 100, A, MASTER
;조수가 いる場合は조수と協力して강간するように
;ランダム要素の排除
;能力の1,2,9,10は過大に評価
LOCAL:0 = ABL:MASTER:운동능력 + (ABL:MASTER:전투능력*2) + ABL:MASTER:감성 + ITEM:흥분아로마 * 10
LOCAL:1 = ABL:TARGET:운동능력 + (ABL:TARGET:전투능력*2) + ABL:TARGET:감성 - ITEM:냉정아로마 * 10
SIF ABL:MASTER:운동능력 == 1
	LOCAL:0 -= 4
SIF ABL:MASTER:운동능력 == 2
	LOCAL:0 -= 2
SIF ABL:MASTER:운동능력 == 3
	LOCAL:0 -= 1
SIF ABL:MASTER:전투능력 == 1
	LOCAL:0 -= 8
SIF ABL:MASTER:전투능력 == 2
	LOCAL:0 -= 4
SIF ABL:MASTER:전투능력 == 3
	LOCAL:0 -= 2
SIF ABL:MASTER:감성 == 1
	LOCAL:0 -= 4
SIF ABL:MASTER:감성 == 2
	LOCAL:0 -= 2
SIF ABL:MASTER:운동능력 == 8
	LOCAL:0 += 1
SIF ABL:MASTER:운동능력 == 9
	LOCAL:0 += 2
SIF ABL:MASTER:운동능력 == 10
	LOCAL:0 += 5
SIF ABL:MASTER:전투능력 == 8
	LOCAL:0 += 2
SIF ABL:MASTER:전투능력 == 9
	LOCAL:0 += 4
SIF ABL:MASTER:전투능력 == 10
	LOCAL:0 += 10
SIF ABL:MASTER:감성 == 9
	LOCAL:0 += 2
SIF ABL:MASTER:감성 == 10
	LOCAL:0 += 5
SIF TALENT:MASTER:마술기능 == 1
	LOCAL:0 += 5
SIF TALENT:MASTER:격투기부 == 1
	LOCAL:0 += 1

SIF ABL:TARGET:운동능력 == 1
	LOCAL:1 -= 4
SIF ABL:TARGET:운동능력 == 2
	LOCAL:1 -= 2
SIF ABL:TARGET:운동능력 == 3
	LOCAL:1 -= 1
SIF ABL:TARGET:전투능력 == 1
	LOCAL:1 -= 8
SIF ABL:TARGET:전투능력 == 2
	LOCAL:1 -= 4
SIF ABL:TARGET:전투능력 == 3
	LOCAL:1 -= 2
SIF ABL:TARGET:감성 == 1
	LOCAL:1 -= 4
SIF ABL:TARGET:감성 == 2
	LOCAL:1 -= 2
SIF ABL:TARGET:운동능력 == 8
	LOCAL:1 += 1
SIF ABL:TARGET:운동능력 == 9
	LOCAL:1 += 2
SIF ABL:TARGET:운동능력 == 10
	LOCAL:1 += 5
SIF ABL:TARGET:전투능력 == 8
	LOCAL:1 += 2
SIF ABL:TARGET:전투능력 == 9
	LOCAL:1 += 4
SIF ABL:TARGET:전투능력 == 10
	LOCAL:1 += 10
SIF ABL:TARGET:감성 == 9
	LOCAL:1 += 2
SIF ABL:TARGET:감성 == 10
	LOCAL:1 += 5
SIF TALENT:TARGET:마술기능 == 1
	LOCAL:1 += 5
SIF TALENT:TARGET:흡혈귀 == 1
	LOCAL:1 += 2
SIF TALENT:TARGET:격투기부 == 1
	LOCAL:1 += 1
SIF TALENT:TARGET:닌자 == 1
	LOCAL:1 += 1
SIF TALENT:TARGET:파이터 == 1
	LOCAL:1 += 5

IF ASSI == -1
	LOCAL:3 = LOCAL:1 - LOCAL:0
ELSEIF ASSI >= 1
	LOCAL:2 = ABL:ASSI:운동능력 + (ABL:ASSI:전투능력*2) + ABL:ASSI:감성
	SIF ABL:ASSI:운동능력 == 9
		LOCAL:2 += 2
	SIF ABL:ASSI:운동능력 == 10
		LOCAL:2 += 5
	SIF ABL:ASSI:전투능력 == 9
		LOCAL:2 += 4
	SIF ABL:ASSI:전투능력 == 10
		LOCAL:2 += 10
	SIF ABL:ASSI:감성 == 9
		LOCAL:2 += 2
	SIF ABL:ASSI:감성 == 10
		LOCAL:2 += 5
	SIF TALENT:ASSI:마술기능 == 1
		LOCAL:2 += 5
	SIF TALENT:ASSI:흡혈귀 == 1
		LOCAL:2 += 2
	SIF TALENT:ASSI:격투기부 == 1
		LOCAL:2 += 1
	SIF TALENT:ASSI:닌자 == 1
		LOCAL:2 += 1
	SIF TALENT:ASSI:파이터 == 1
		LOCAL:2 += 5

	LOCAL:2 = LOCAL:2/3
	LOCAL:3 = LOCAL:1 - (LOCAL:0 + LOCAL:2)
ENDIF
PRINTL

PRINTFORML %CALLNAME:TARGET%의 강간저항력{LOCAL:1}
PRINTFORML %CALLNAME:MASTER%의 강간력{LOCAL:0}
SETCOLOR 0,255,0
SIF ASSI >= 1
	PRINTFORML %CALLNAME:ASSI%의 보조력{LOCAL:2}
RESETCOLOR
PRINTL
SIF LOCAL:3 <= 0
	PRINTFORMW 판정:{LOCAL:3}　성공
SIF LOCAL:3 >= 1
	PRINTFORMW 판정:{LOCAL:3}　실패

IF LOCAL:3 <= 0
		PRINTFORML 큰 소리를 지를 수 없도록 입을 막고 강제로 빌딩에 끌어 들여 방안에 던져 넣었다.

		SIF TALENT:청초 == 1
			PRINTFORML %타겟호칭은% 곤란한 얼굴로 다양하게 호소해 왔지만、물론 %CALLNAME:MASTER%에게 듣을 귀 따위 없다.
		SIF TALENT:쾌활 == 1 || TALENT:보이쉬 == 1 || TALENT:고결 == 1
			PRINTFORML %타겟호칭은% 화를 낸 모습으로 %CALLNAME:MASTER%에게 고함쳤지만、지금부터 그 다부진 마음을 꺾는 것을 생각하면서 흥분했다.
		SIF TALENT:성악 == 1
			PRINTFORML %타겟호칭은% 엷은 웃음을 띄운 채로、%마스터를% 비웃듯이 보고 있다.
		SIF TALENT:색기 == 1
			PRINTFORML %타겟호칭은% 곤란해 하고 있지만 그 모습마저 어딘가 요염해서 %마스터호칭은% 사타구니가 사나워지는 것을 느낌과 동시에 침을 삼켰다.
		SIF TALENT:천연 == 1 || TALENT:쿨함 == 1
			PRINTFORML %타겟호칭은% 딱딱한 표정으로 담담하게 정론을 고하고 있지만、물론 %CALLNAME:MASTER%에게 듣을 귀 따위 없다.
		SIF TALENT:어린애같음 == 1 || TALENT:치유계 == 1
			PRINTFORML %타겟호칭은% 다양하게 호소하고 있는 것 같지만 미묘하게 어긋나 있는 느낌이 든다.
		SIF TALENT:무기력 == 1
			PRINTFORML %타겟호칭은% 곤란한 얼굴로 다양하게 호소해 왔지만 소리가 너무 작아 %CALLNAME:MASTER%에게 들리지 않았다……
		SIF TALENT:기가셈 == 1
			PRINTFORML %타겟호칭은% 갑작스러운 폭거에 화를 내며 말대꾸한다. %마스터호칭은% 화가 치밀어 마음이 부러질 때까지 격렬하게 범할 것을 결심했다.

		PRINTFORML 이것저것 하는 동안에 %마스터호칭은% %타겟이름을% 궁지에 몰아붙이고 덮쳤다.
		IF TALENT:저항 == 1
			PRINTFORML 필사적으로 저항하려고 하는 %CALLNAME:TARGET%、그런 중에도 그녀는 남자에게 덮쳐지고 있다는 공포 때문인지 제대로 된 반항조차 하지 못하고 몸을 떨었다.
		ENDIF
		PRINTFORML 비명이 방 안에 울려퍼지지만 %CALLNAME:MASTER% 이외에 들을 수 있는 사람은 아무도 없다……。
		PRINTL ………………
		PRINTL …………
		PRINTW ……

		IF RAND:2 == 0
			PRINTFORML 땅바닥에 벌렁 나자빠져 양다리를 M자로 크게 벌려진、파렴치한 모습을 드러내고 있는 %CALLNAME:TARGET%。
			PRINTFORML %마스터호칭은% 다리를 껴안으면서 압박을 가해 %타겟이름을% 놓치지 않게 한다.
		ELSE
			PRINTFORML %마스터가% 등뒤에서 덮쳐 누르자 %타겟호칭은% 뒤얽히듯 벽에 짓눌렸다.
			PRINTFORML 옷이 벌어져 하반신이 노출되어 %CALLNAME:TARGET%의 하얀 엉덩이가 드러난다.
		ENDIF

		PRINTFORML 그리고 %마스터호칭은% 손을 뻗어 가슴과 허벅지, 엉덩이를 욕망 가는 대로 만지작거리기 시작했다.
		PRINTFORML 그때마다 %타겟호칭은% 몸부림치며 그 손아귀에서 벗어나려고 한다.
		PRINTFORMW 더 많은 빈틈을 보이는 목덜미나 귀, 입술에 키스비를 내리게 해 %CALLNAME:TARGET%의 성감을 높인 후
		PRINTFORML %CALLNAME:TARGET%에게 지친 징후가 보이자、이번에는 속옷을 내리고 비렬을 더듬었다.
		PRINTL 전희로 다소 민감해진 탓일까
		PRINTW 손가락 끝이 움직일 때마다 비명이나 울음소리에 섞여 헐떡이는 소리도 섞였다……。
		CALL SET_ACTUAL_FIRST_PLAY_TYPE(MASTER)
		playType = RESULT
		PRINTFORML 때가 무르익었다고 판단한 %마스터가% 페니스를 꺼냈다、%CALLNAME:TARGET%의 노출된 \@ playTYpe == 0 ? 균열 # 애널\@에 갖다댔다.
		PRINTFORML 소중한 장소에 뜨거운 무언가가 닿는 감촉에、%타겟호칭은% 움찔하고 몸을 떨었고 공포에 질렸다.
		PRINTFORML 그 귓가로、이걸로 범해주겠다고 속삭이며、쿠퍼액으로 미끈미끈해진 페니스를\@ playType == 0 ? 비순 # 애널 \@에 문지르자、비명을 지르며 몸을 비틀고 어떻게든 도망치려고 애쓴다.
		IF (TALENT:좋아하는사람있음 || TALENT:남친있음 || TALENT:남편있음) && TALENT:밀회 != 1
			PRINTFORML %타겟호칭은% 이 장소에는 없는 사랑하는 사람에게 도움을 요구하며 발버둥 쳤다.
		ELSEIF TALENT:미망인 && TALENT:밀회 != 1
			PRINTFORML %타겟호칭은% 이 세상에는 없는 사랑하는 사람에게 도움을 요구하며 발버둥 쳤다.
		ENDIF
		SIF TALENT:청초 == 1 || TALENT:무기력 == 1
			PRINTFORML %타겟호칭은% 울면서、울면서 그것만큼은 멈춰달라고 애걸한다……。
		SIF TALENT:천연 == 1 || TALENT:쾌활 == 1 || TALENT:보이쉬 == 1 || TALENT:기가셈 == 1 || TALENT:고결 == 1
			PRINTFORML %타겟호칭은% 아직 단념하지 않은 것인지、필사적으로 날뛰고는 있지만 쓸데없는 저항이다.
		SIF TALENT:성악 == 1
			PRINTFORML %타겟호칭은% 굴욕적인 표정으로 %마스터를% 노려보며 갖은 험담을 퍼붓고 있지만、그건 오히려 역효과를 냈다.
		SIF TALENT:색기 == 1
			PRINTFORML %타겟호칭은% 울면서 그것만큼은 멈춰달라고 애걸하지만、그건 오히려 %CALLNAME:MASTER%의 열정을 부추겼다.
		SIF TALENT:쿨함 == 1
			PRINTFORML %타겟호칭은% 차가운 표정으로 자신을 억누르는 %마스터를% 노려본다.
		SIF TALENT:어린애같음 == 1 || TALENT:치유계 == 1
			PRINTFORML %타겟호칭은% 겁먹고 울면서、%CALLNAME:MASTER%에게 자비를 구한다……。

		PRINTFORMW 모든 반응을 무시하고 %마스터가% 허리를 움직이자、%타겟호칭은% 비명을 올렸다……。
		IF playType == 0
			IF TALENT:처녀 == 1
				PRINTFORMW %CALLNAME:TARGET%의 다리 사이에서 붉은 핏줄기가 허벅지를 타고 흘러내렸다.
			ELSE
				PRINTFORMW 경험이 있다고는 해도 젖지도 않은 %CALLNAME:TARGET%의 비순은 %CALLNAME:MASTER%의 페니스를 찌걱찌걱하고 단단히 조여온다.
			ENDIF
			PRINTFORML %CALLNAME:TARGET%의 비명소리를 들으며 %마스터호칭은% 정신없이 허리를 흔든다.
			PRINTL 이윽고 허리를 빠르게 흔들며 질내사정을 고했다.
			IF TALENT:천연 == 1 || TALENT:쾌활 == 1 || TALENT:보이쉬 == 1 || TALENT:기가셈 == 1 || TALENT:고결 == 1
				PRINTFORMW %타겟호칭은% 안간힘을 다해 도망치려 하지만、%마스터호칭은% 이를 제압하고 가차 없이 가장 깊은 곳에 욕망을 풀어낸다.
			ELSE
				PRINTFORMW %타겟호칭은% 그만해 달라고 자비를 빌었지만、%마스터호칭은% 가차 없이 가장 깊은 곳에 욕망을 풀어낸다.
			ENDIF
			PRINTFORML 질내에 퍼지는 뜨거운 감각 때문에 질내사정 당했음을 싫어도 알게 된 %타겟호칭은% 울부짖었다.
			PRINTFORML %마스터호칭은% 빨리 빼달라는 간청을 들었지만、들은 척도 하지 않고 끝까지 정액을 싸질렀다.
			PRINTFORMW 만족한 얼굴로 페니스를 뽑자、%CALLNAME:TARGET%의 비렬에서、흰 액체가 꿀렁꿀렁 넘쳐흐른다.
		ELSE
			PRINTFORML 아직 딱 닫혀 있는 애널을、페니스로 비집고 들어갔다.
			PRINTFORML 확장은 커녕 개발조차 안 된 애널은 침입해 오는 이물을 밀어 내려고 꿈틀거린다.
			PRINTFORML 한편、%타겟호칭은% 배설하는 구멍을 범해지는 굴욕과 아픔 때문에 눈을 크게 뜬 채 울부짖고 있다.
			IF TALENT:천연 == 1 || TALENT:쾌활 == 1 || TALENT:보이쉬 == 1 || TALENT:기가셈 == 1 || TALENT:고결 == 1
				PRINTFORML 평상시의 %타겟과%는 완전히 다른 모습에 흥분한 %마스터호칭은% 가차 없이 격렬한 피스톤을 개시했다.
			ELSE
				PRINTFORML 연민을 부르는 %CALLNAME:TARGET%의 모습에 흥분한 %마스터호칭은% 가차 없이 격렬하게 그녀를 범하기 시작했다.
			ENDIF
			PRINTFORML 그 고통에 반응을 보인 %타겟호칭은% 도움을 요구하듯이 어디론가 손을 뻗으면서 도망치려고 한다.
			PRINTFORMW %마스터호칭은% 무의미한 노력을 짓밟듯이 체중을 걸쳐、그대로 가장 안쪽까지 도달한 페니스에서 뜨거운 정액을 싸질렀다････。
		ENDIF
		PRINTL
		IF TALENT:밀회 == 1
			PRINTFORML ････%타겟호칭은% 공허한 눈으로 흐느껴 울면서、%PARTNER_NAME_CORE(TARGET)%에게 용서를 구한다････。
			SELECTCASE 1
				CASE TALENT:남편있음 || TALENT:기혼 || TALENT:미망인
					PRINTFORML 아무래도 、%조사처리(PARTNER_NAME_CORE(TARGET),"과")% 남몰래 결혼했다고 한다. 즉 우연히、유부녀를 빼앗은 셈이다.
				CASE TALENT:남친있음
					PRINTFORML 아무래도 、%조사처리(PARTNER_NAME_CORE(TARGET),"과")% 남몰래 사귀고 있었나 보다. 즉 우연히、남자친구가 있는 여자를 빼앗은 셈이다.
				CASE TALENT:좋아하는사람있음
					PRINTFORML 아무래도 、%조사처리(PARTNER_NAME_CORE(TARGET),"을")% 남몰래 좋아하고 있었던 모양이다. 몰랐다고는 하나、그 순정을 유린한 셈이다.
			ENDSELECT
			PRINTFORM 거기에 욕망이 자극되었는지、
			TALENT:밀회 = -1
		ELSE
			PRINTFORM 끔찍하게 범해지고 훌쩍이는 %CALLNAME:TARGET%의 모습에 욕망이 자극되었는지、
		ENDIF
		PRINTFORML %CALLNAME:MASTER%의 페니스는 다시 딱딱해졌다.
		PRINTFORML 또 능욕당할 위험을 깨달은 %타겟호칭은% 잔뜩 겁먹었으나 그렇다고 저항할 만한 체력이나 기력이 남아있지는 않았다.
		PRINTFORML %마스터호칭은% 다시 그녀의 비렬에 페니스를 박아넣었다.
		PRINTL ………………
		PRINTL …………
		PRINTW ……
		PRINTFORML 그 후 몇 번이나 범해졌을까？
		PRINTFORML 유리구슬 같은 눈을 뜨고 %타겟호칭은% %CALLNAME:MASTER%에게 봉사하고 있다.
		IF TALENT:거유 == 1 || TALENT:폭유 == 1
			PRINTFORML 양쪽 가슴을 사용하여 %CALLNAME:MASTER%의 페니스를 품고 혀와 입을 사용해 봉사한다.
			PRINTW 품은 페니스를 입에서 떼내자 더럽혀진 얼굴에 또 정액이 쏟아졌다……。
		ELSE
			PRINTFORML 시키는 대로 마지못해 페니스를 혀로 핥거나 입으로 머금고 자극하고 있다.
			PRINTFORML 그러나 부족한 자극을 더 이상 봐줄 수 없는 %마스터호칭은% %CALLNAME:TARGET%의 머리를 잡고 앞뒤로 흔들었다.
			PRINTFORML 이윽고 몸을 떨면서 %CALLNAME:TARGET%의 입 안에 정액을 싸질렀다……。
			PRINTFORML 쓴맛과 더러움에 토해내려고 하지만、%마스터가% 용서할 리도 없어서 또 삼켜야 했다……。
		ENDIF
		PRINTFORML 만족한 %마스터호칭은% 옷이 무참하게 벌어지고 가슴도 입도 비렬도 정액 투성이인 채 망연해하는%CALLNAME:TARGET%의 모습을 사진에 담았다.
		PRINTFORML 앞으로도 이걸 이용해 불러낼 수 있을 것이다.
		PRINTFORMW 아직 %CALLNAME:TARGET%의 비극은 끝나지 않았다……

		CALL DIARY_SET,@"%타겟이름을% 범하여 굴복시켰다."

		;ステータス変更処理関係
		CFLAG:1000 = 5
		TALENT:강간 = 1
		;●ＮＴＬ取得
		SIF TALENT:좋아하는사람있음 || TALENT:남친있음 || TALENT:남편있음
			TALENT:ＮＴＬ = 1
		;●의존도
		CFLAG:2 = -500
		;●セックス回数
		SEX_COUNT = RAND:2 + 3
		SIF TALENT:수수께끼의매력 == 1
			SEX_COUNT += 1
		SIF TALENT:인기 == 1
			SEX_COUNT += 1
		SIF TALENT:멋쟁이 == 1
			SEX_COUNT += 1
		SIF TALENT:연예인 == 1
			SEX_COUNT += 1
		SIF TALENT:영애 == 1 || TALENT:프린세스 == 1
			SEX_COUNT += 1
		SIF TALENT:성직자 == 1
			SEX_COUNT += 1
		SIF TALENT:모성 == 1
			SEX_COUNT += 1
		SIF TALENT:좋아하는사람있음 == 1 || TALENT:남친있음 == 1 || TALENT:남편있음 == 1 || TALENT:미망인 == 1
			SEX_COUNT += 1
		SIF TALENT:메이드 == 1
			SEX_COUNT += 1
		;●奉仕回数（メインはセックスなので1～2回）
		SERVICE_COUNT = 1
		{
			SIF TALENT:수수께끼의매력 == 1 || TALENT:인기 == 1 || TALENT:연예인 == 1 || TALENT:영애 == 1 || TALENT:프린세스 == 1 ||
			TALENT:성직자 == 1 || TALENT:모성 == 1 ||
			TALENT:좋아하는사람있음 == 1 || TALENT:남친있음 == 1 || TALENT:남편있음 == 1 || TALENT:미망인 == 1 ||
			TALENT:메이드 == 1 || TALENT:혀놀림 == 1
		}
			SERVICE_COUNT += 1
		IF playType == 0
			;●이상경험取得
			EXP:50 += 2
			PRINTFORML 이상경험＋２
			;●처녀상실
			LOST_VIRGIN_FLAG = 0
			IF TALENT:처녀 == 1
				LOST_VIRGIN_FLAG = 1
				TALENT:처녀 = 0
			ENDIF
			;●V経験
			EXP:0 += SEX_COUNT
			PRINTFORML Ｖ경험＋{SEX_COUNT}
			;●절정경험
			TEMP = SEX_COUNT / 10
			EXP:2 += TEMP
			PRINTFORML 절정경험＋{TEMP}
			;●질사경험
			EXP:5 += SEX_COUNT
			PRINTFORML 질사경험＋{SEX_COUNT}
		ELSE
			;●이상경험取得
			EXP:50 += 3
			PRINTFORML 이상경험＋３
			;●A経験
			EXP:Ａ경험 += SEX_COUNT
			PRINTFORML Ａ경험＋{SEX_COUNT}
			;●절정경험
			TEMP = SEX_COUNT / 50
			EXP:2 += TEMP
			PRINTFORML 절정경험＋{TEMP}
			;●Ａ개발경험
			EXP:5 += SEX_COUNT / 2
			PRINTFORML Ａ개발경험＋{SEX_COUNT}
		ENDIF
		;●성교경험
		EXP:4 += SEX_COUNT
		PRINTFORML 성교경험＋{SEX_COUNT}
		;●정액경험
		EXP:20 += SEX_COUNT
		PRINTFORML 정액경험＋{SEX_COUNT}
		;●펠라경험
		TEMP =  SERVICE_COUNT
		EXP:22 += TEMP
		PRINTFORML 펠라경험＋{TEMP}
		;●피사경험
		EXP:63 += 1
		PRINTFORML 피사경험＋1

		;●굴복각인（肉体関係の素質で増減）
		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:(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:(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:(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:(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:TARGET%。
		SELECTCASE OBEDIENCE
			CASE IS  >= 4
				PRINTFORML 강간을 당했는데도 느껴버리고、또 %CALLNAME:MASTER%에게 호출당하기를 기대하는 자신을 깨달았다……
				PRINTFORMW %타겟호칭은% 【쾌락각인：3】、【굴복각인：3】을 얻었다
				MARK:1 = 3
				MARK:2 = 3
			CASE IS >= 2
				PRINTFORML 이야기 한 적도 없는 %CALLNAME:MASTER%에게 난폭하게 범해져 \@ playType == 0 ? 질내사정 # 애널사정 \@까지 당했음에도 불구하고、느껴버린 자신이 한심하다……
				PRINTFORMW %타겟호칭은% 【쾌락각인：2】、【굴복각인：2】를 얻었다
				MARK:1 = 2
				MARK:2 = 2
			CASE IS >= 0
				PRINTFORML %마스터를% 용서할 수 없다고 생각하면서도、\@ playType == 0 ? 질내사정 # 애널사정 \@ 당했을 때 느꼈던 감각이 묘하게 인상에 남았다……
				PRINTFORMW %타겟호칭은% 【쾌락각인：1】、【굴복각인：1】을 얻었다
				MARK:1 = 1
				MARK:2 = 1
			CASEELSE
				PRINTFORML 몇 번이고 박힌 \@ playType == 0 ? 질 # 애널 \@은 아프고、만지기만 해도 %CALLNAME:MASTER%의 더러운 정액이 흘러내린다. 생애 최악의 기분이다……。
		ENDSELECT
		PRINT 그리고
		SELECTCASE ANGER
			CASE IS  >= 4
				PRINTL 가라앉은 눈으로 허공을 노려보며 "죽여버리겠다", "경찰에 고소하겠다"라고 하는 등 끝없이 중얼거리고 있다……
				PRINTFORMW %타겟호칭은% 【고통각인：2】、【반발각인：3】을 얻었다
				IF TALENT:TARGET:거절 == 0
					PRINTFORMW %타겟호칭은% [거절]을 얻었다
					TALENT:거절 = 1
				ENDIF
				MARK:0 = 2
				MARK:3 = 3
				MARK:4 = 3
			CASE IS >= 2
				PRINTFORML 분노로 얼굴을 일그러뜨리고 분한 눈물을 팔로 감싸며 %마스터를% 절대로 용서하지 않겠다고 마음 속 깊이 다짐한다……
				PRINTFORMW %타겟호칭은% 【고통각인：2】、【반발각인：2】를 얻었다
				IF TALENT:TARGET:거절 == 0
					PRINTFORMW %타겟호칭은% [거절]을 얻었다
					TALENT:거절 = 1
				ENDIF
				MARK:0 = 2
				MARK:3 = 2
				MARK:4 = 2
			CASE IS >= 0
				PRINTFORML 분한 나머지 눈물이 핑 도는 것을 참고、%CALLNAME:MASTER%의 말하는 대로 되지 않기를 결심했다……
				PRINTFORMW %타겟호칭은% 【고통각인：2】、【반발각인：1】을 얻었다
				IF TALENT:TARGET:거절 == 0
					PRINTFORMW %타겟호칭은% [거절]을 얻었다
					TALENT:거절 = 1
				ENDIF
				MARK:0 = 2
				MARK:3 = 1
				MARK:4 = 1
			CASEELSE
				PRINTFORML %CALLNAME:MASTER%의 행위를 용서할 수는 없지만 아까의 짐승 같은 모습을 떠올리는 것만으로 무서워서 떨고 만다……
				PRINTFORMW %타겟호칭은% 【고통각인：2】을 얻었다
				IF TALENT:TARGET:거절 == 0
					PRINTFORMW %타겟호칭은% [거절]을 얻었다
					TALENT:거절 = 1
				ENDIF
				MARK:0 = 2
		ENDSELECT
		TALENT:TARGET:경계 = 0
;治安悪化
		FLAG:1015 += 1

;	ELSE
;		PRINTFORML ‥‥だが、%타겟호칭은% 、巧みに%CALLNAME:MASTER%의 손を振りほどき、突き飛ばすと、悲鳴を上げながら走り去ってしまった。
;		PRINTFORML このままではこちらの方が拙い事になる。
;		PRINTFORML %마스터호칭은% 逃げ出すしかなかった
;		TALENT:거절 = 1
;		CFLAG:1000 = 6
;	ENDIF
ELSEIF LOCAL:3 >= 5
	PRINTFORML ‥‥하지만、%타겟호칭은% 、예상보다 민첩한 동작으로 거리를 벌린 후 여유로운 표정으로 태세를 갖춘다.
	PRINTFORML 이 움직임、%CALLNAME:TARGET%의 역량을 오인했나…？
	PRINTFORML 결말이 나지 않다고 판단한 %마스터호칭은% 잽싸게 도망가기로 했다
	IF TALENT:TARGET:거절 == 0
		TALENT:거절 = 1
	ENDIF
	TALENT:TARGET:경계 += 3
	CFLAG:1000 = 4
ELSE
	PRINTFORML ‥‥하지만、%타겟호칭은% 생각외로 재빠르게 그 손을 떨쳐내고 비명을 올리면서 달려가 버렸다.
	PRINTFORML 이대로면 재수없는 상황에 빠진다.
	PRINTFORML %마스터호칭은% 도망갈 수 밖에 없었다.
	IF TALENT:TARGET:거절 == 0
		TALENT:거절 = 1
	ENDIF
	TALENT:TARGET:경계 += 2
	CFLAG:1000 = 4
ENDIF

IF CFLAG:1000 == 6
;治安悪化
	FLAG:1015 += 1
	PRINTFORML ‥‥충분히 도망치고 나서 %마스터호칭은% 숨을 정돈했다.
	PRINTFORML 결정적인 증거를 잡히지는 않았을 테지만、%타겟이% 아무것도 눈치채지 못했다고 생각할 수는 없다.
	PRINTFORMW 향후、%타겟과% 관련되는 것은 특히 신중하게 되는 편이 좋으리라…
	CALL DIARY_SET,@"%타겟호칭을% 덮치는 데 실패했다. 한동안 조심해야 한다."
	TALENT:TARGET:경계 += 1
	TARGET = X
ELSE
;	BEGIN TRAIN
	BEGIN TURNEND
ENDIF


code:
@RELEASE_LOVING_CHARA
CALL RELEASE_CHARA("와 헤어집니다","TALENT:index:교제")
SIF RESULT==-1
	RETURN -1
PRINTFORML %CALLNAME:RESULT%에게、이제 헤어지자고 고했다････。
SELECTCASE 1
	CASE TALENT:RESULT:ＮＴＲ > 0
		PRINTFORML %조사처리(NAME:RESULT,"는")% 그래、한마디만 말하고 별 반응을 보이지 않는다.
		PRINTFORML 신경은 쓰이지만････ 이제 상관없는 이야기다.
	CASE TALENT:RESULT:친애
		PRINTFORML %조사처리(NAME:RESULT,"는")% 갑작스런 이별의 말에 버리지 말아달라고 필사적으로 매달린다････。
		PRINTFORML %마스터는% 그걸 떨쳐버리고 %조사처리(NAME:RESULT,"를")% 남겨둔 채 떠났다.
	CASE TALENT:RESULT:연모
		PRINTFORML %조사처리(NAME:RESULT,"는")% 갑작스런 이별의 말이 믿기지 않아 뭔가 비위에 거슬리는 일을 했는가 하고 필사적으로 매달려온다････。
		PRINTFORML %마스터는% 그걸 떨쳐버리고 %조사처리(NAME:RESULT,"를")% 남겨둔 채 떠났다.
	CASEELSE
		PRINTFORML %조사처리(NAME:RESULT,"는")% 갑작스런 이별의 말이 믿기지 않아 하염없이 울고 있다････。
		PRINTFORML %마스터는% 그것을 일별도 하지 않고、%조사처리(NAME:RESULT,"를")% 남겨둔 채 떠났다.
ENDSELECT

@RELEASE_NOTLOVING_CHARA
CALL RELEASE_CHARA("를 풀어줍니다","IS_NOTLOVE_ATTACKING(index)")
SIF RESULT==-1
	RETURN -1
PRINTFORML %CALLNAME:RESULT%에게、이제 해방시켜 주겠다고 말했다.
SELECTCASE 1
	CASE TALENT:RESULT:창녀
		PRINTFORML %조사처리(NAME:RESULT,"는")% 이제 %CALLNAME:MASTER%에게 안길 수 없다는 사실을 받아들이지 못하고 울면서 고개를 젓는다････。
	CASE TALENT:RESULT:음란
		PRINTFORML %조사처리(NAME:RESULT,"는")% 자신의 신체에 질렸냐고 한탄한다････。
	CASE TALENT:RESULT:예속
		PRINTFORML %조사처리(NAME:RESULT,"는")% %CALLNAME:MASTER%의 말을 믿지 못하고 세상이 끝난 듯한 얼굴로 눈물을 흘린다････。
	CASE TALENT:RESULT:복종
		PRINTFORML %조사처리(NAME:RESULT,"는")% %CALLNAME:MASTER%의 말을 믿지 못하는 것 같아서 표정을 살피며 떠나간다････。
	CASE TALENT:RESULT:모판
		PRINTFORML %조사처리(NAME:RESULT,"는")% 이제 %CALLNAME:MASTER%의 촉수에게 범해지지 못한다는 사실을 깨닫고、평정을 잃은 채 보기 흉한 태도를 보인다････。
	CASE TALENT:RESULT:동화
		PRINTFORML %조사처리(NAME:RESULT,"는")% 촉수가 쑤시는 것을 억제할 방법이 없게 되었음을 깨닫고 필사적으로 %CALLNAME:MASTER%에게 매달린다････。
	CASEELSE
		PRINTFORML %조사처리(NAME:RESULT,"는")% %마스터가% 무슨 일을 꾸미고 있는지 의심하고 물끄러미 바라보고 있다････。
ENDSELECT

@RELEASE_CHARA(caption,funcValue)
#DIMS caption
#DIMS funcValue
#DIM selectedChara
FLAG:34 = 1
PRINTFORML 누구%caption%？
CALL DISPLAY_COMMON(1,,,,,,,funcValue)
SIF RESULT==999 || (CHARANUM - 1) < RESULT
	RETURN -1
selectedChara = RESULT
PRINTFORML %NAME:selectedChara%%caption%。정말 괜찮습니까？
PRINTFORML !%CALLNAME:selectedChara%와는 일체 관계를 가질 수 없게 됩니다!
PRINTBUTTON "[Y] - 네","Y"
PRINT
PRINTBUTTON "[N] - 아니오","N"
INPUTS
SIF RESULTS!="Y"
	RETURN -1
TALENT:selectedChara:방출 = 1
CALL RESET_RELEASED_CHARA_SETTING()
RETURN selectedChara

@RESET_RELEASED_CHARA_SETTING()
SIF IS_UNCONTACTABLE(ASSI)
	ASSI = -1
SIF IS_UNCONTACTABLE(TARGET)
	TARGET = -1

repo_name: Catalyst/B

license: unknown


code:
@SEARCH_FRIEND,ARG,ARG:1
#DIM DYNAMIC temp,5
#DIM index
;ARG:1 == 0は友人の存在確認+キャラ登録、1なら既に약점を握った友人がいるかどうか確認。2なら인계됨時の処理。3は0と同じだが、メッセージを表示しない。
A = 0
IF ARG:1 == 0 || ARG:1 == 3
	FOR I, 1005, 1010		;	1005 ～ 1009
		IF CFLAG:ARG:I != 0 && IS_CHARACTER_ADDABLE(CFLAG:ARG:I,ARG)
			X = CFLAG:ARG:I
			CALL GET_CHARANUM,X
			A = RESULT
			IF A == -1
				CALL SCENARIO_GET_CHARACTER, X
				B = CHARANUM - 1
				SIF ARG:1 == 0
					PRINTFORML %NAME:ARG%에게는 %조사처리(NAME:B,"라")%는 지인이 있는 모양이다‥‥
			ELSEIF CFLAG:A:1000 < 2
				CFLAG:A:1000 += 1
				IF ARG:1 == 0
					PRINTFORML %NAME:ARG%에게는 %조사처리(NAME:A,"라")%는 지인이 있는 모양이다‥‥
					PRINTFORML %NAME:A%의 정보를 얻었다。
				ENDIF
				CALL LOOK_PROFILE, A
				;	友人発見連鎖
				;	友人から情報が1に言った場合、発見しないとキャラが出てこない可能性があるため
				;SIF CFLAG:A:1000 == 1
				;	CALL SEARCH_FRIEND_CHAIN, A
			ENDIF
		ENDIF
	NEXT
ELSEIF ARG:1 == 1
	B = 0
	FOR index,0,5
		IF CFLAG:ARG:(1005 + index) != 0
			X = CFLAG:ARG:(1005 + index)
			CALL GET_CHARANUM,X
			A = RESULT
			IF A >= 0
				IF (TALENT:A:강간 || TALENT:A:협박) && RELATION:ARG:X > 100 && !IS_UNCONTACTABLE(A)
					B = 1
					temp:index = A
				ENDIF
			ENDIF
		ENDIF
	NEXT
	C = temp:0
	D = temp:1
	E = temp:2
	F = temp:3
	G = temp:4
	RETURN B
ELSE
	FOR index,0,5
		IF CFLAG:ARG:(1005 + index) != 0
			X = CFLAG:ARG:(1005 + index)
			CALL GET_CHARANUM,X
			A = RESULT
			SIF A == -1
				CALL SCENARIO_GET_CHARACTER, X
		ENDIF
	NEXT
ENDIF

;そのキャラ登録番号をAに代入するだけの関数
;@GET_CHARANUM,ARG
;A = -1
;REPEAT CHARANUM
;	SIF NO:COUNT == ARG
;		A = COUNT
;REND
;PRINTFORM X = {X}
;RETURN A

;友人発見
@SEARCH_FRIEND_CHAIN, ARG
FOR I, 1005, 1010		;	1005 ～ 1009
	IF CFLAG:ARG:I != 0 && IS_CHARACTER_ADDABLE(CFLAG:ARG:I,ARG)
		X = CFLAG:ARG:I
		CALL GET_CHARANUM,X
		A = RESULT
		IF A == -1
			CALL SCENARIO_GET_CHARACTER, X
			B = CHARANUM - 1
			PRINTFORML %NAME:ARG%에게는 %조사처리(NAME:B,"라")%는 지인이 있는 모양이다‥‥
		ENDIF
	ENDIF
NEXT

;与えられたキャラ同士が友人であるか判定する式中関数
;targetChara→friendCharaの関係のみが判定対象で、逆は考慮しない
@IS_FRIEND(targetChara,friendChara)
#FUNCTION
#DIM targetChara
#DIM friendChara
#DIM friendIndex
friendIndex = GET_FRIEND_INDEX(targetChara,friendChara)
RETURNF friendIndex >= 0 && CFLAG:targetChara:(friendIndex + 1025) >= 0

;与えられたキャラ同士の友人情報が格納されている相対位置を取得する関数。
;0オリジンなので、使用する場合は適宜加算が必要
;targetChara→friendCharaの関係のみが判定対象で、逆は考慮しない
@GET_FRIEND_INDEX(targetChara,friendChara)
#FUNCTION
#DIM targetChara
#DIM friendChara
RETURNF GET_FRIEND_INDEX_FROM_NO(targetChara,No:friendChara)

@GET_FRIEND_INDEX_FROM_NO(targetChara,friendNo)
#FUNCTION
#DIM targetChara
#DIM friendNo
#DIM index
FOR index,1005,1010
	SIF CFLAG:targetChara:index == friendNo
		RETURNF index - 1005
NEXT
RETURNF -1

;与えられたキャラ同士の関係性を取得する式中関数。friendCharaはindex指定
;targetChara→friendCharaの関係のみが取得対象で、逆は考慮しない
@GET_RELATIONSHIP_TEXT(targetChara,friendChara,isUseBloodRelative=0)
#FUNCTIONS
#DIM targetChara
#DIM friendChara
#DIM index
#DIM isUseBloodRelative
index = GET_FRIEND_INDEX(targetChara,friendChara)
IF index >= 0
	index += 1025
	IF CFLAG:targetChara:index >= 0
		RETURNF GET_RELATIONSHIP_TEXT_CORE(CFLAG:targetChara:index,TALENT:friendChara:남자,isUseBloodRelative)
	ELSE
		;そもそも呼ばない前提
		RETURNF "지인"
	ENDIF
ELSE
	index = GET_FRIEND_INDEX(friendChara,targetChara)
	IF index >= 0 && CFLAG:friendChara:index >= 0
		index += 1025
		RETURNF GET_RELATIONSHIP_TEXT_CORE(REVERSE_RELATION(CFLAG:friendChara:index),TALENT:friendChara:남자,isUseBloodRelative)
	ELSE
		RETURNF "지인"
	ENDIF
ENDIF

@GET_RELATIONSHIP_TEXT_CORE(relationshipCode,isMan=0,isUseBloodRelative=0)
#FUNCTIONS
#DIM relationshipCode
#DIM isUseBloodRelative
#DIMS bloodRealPrefix
#DIMS bloodLowPrefix
#DIM isMan
relationshipCode = ABS(relationshipCode)
bloodRealPrefix = \@ isUseBloodRelative ? 친 # \@
bloodLowPrefix = \@ isUseBloodRelative ? 의붓 # \@
SELECTCASE relationshipCode % SAMEHOME_PREFIX
	CASE 0
		RETURNF "친구"
	CASE 1
		RETURNF "절친"
	CASE 2
		RETURNF bloodRealPrefix + \@ isMan ? 오빠 # 언니 \@
	CASE 3
		RETURNF bloodLowPrefix + \@ isMan ? 오빠 # 언니 \@
	CASE 4
		RETURNF bloodRealPrefix + \@ isMan ? 남동생 # 여동생 \@
	CASE 5
		RETURNF bloodLowPrefix + \@ isMan ? 남동생 # 여동생 \@
	CASE 6
		RETURNF bloodRealPrefix + \@ isMan ? 아빠 # 엄마 \@
	CASE 7
		RETURNF bloodLowPrefix + \@ isMan ? 아빠 # 엄마 \@
	CASE 8
		RETURNF bloodRealPrefix + \@ isMan ? 아들 # 딸 \@
	CASE 9
		RETURNF bloodLowPrefix + \@ isMan ? 아들 # 딸 \@
	CASE 10
		RETURNF \@ isMan ? 삼촌 # 이모 \@
	CASE 11
		RETURNF \@ isMan ? 조카 # 조카딸 \@
	CASE 12
		RETURNF "친척"
	CASE 13
		RETURNF "제자"
	CASE 14
		RETURNF "은사"
	CASE 15
		RETURNF "선배"
	CASE 16
		RETURNF "후배"
	CASE 17
		RETURNF "모시는 주인"
	CASE 18
		RETURNF "자신의 수행원"
	CASE 19
		RETURNF "은밀하게 마음에 둔 사람"
	CASE 20
		RETURNF "연인"
	CASE 21
		RETURNF "소꿉친구"
	CASE 22
		RETURNF "동료"
	CASE 23
		RETURNF "라이벌"
	CASEELSE
		RETURNF "?RELATION"
ENDSELECT

@GET_RELATION_TYPE(targetChara,friendChara)
#FUNCTION
#DIM targetChara
#DIM friendChara
#DIM index
index = GET_FRIEND_INDEX(targetChara,friendChara)
RETURNF index < 0 ? -1 # ABS(CFLAG:targetChara:(1025+index)) % SAMEHOME_PREFIX

@IS_FAMILY(targetChara,friendChara)
#FUNCTION
#DIM targetChara
#DIM friendChara
#DIM index
index = GET_FRIEND_INDEX(targetChara,friendChara)
RETURNF index >= 0 && IS_FAMILY_CORE(ABS(CFLAG:targetChara:(1025+index)))

@IS_FAMILY_CORE(relationType)
#FUNCTION
#DIM relationType
#DIM FAMILY_LIST = 2,3,4,5,6,7,8,9
RETURNF FINDELEMENT(FAMILY_LIST,relationType % SAMEHOME_PREFIX,0) >= 0

@IS_SAMEHOME(targetChara,friendChara)
#FUNCTION
#DIM targetChara
#DIM friendChara
#DIM index
index = GET_FRIEND_INDEX(targetChara,friendChara)
RETURNF index >= 0 && ABS(CFLAG:targetChara:(1025+index)) >= SAMEHOME_PREFIX

;該当する番号のキャラが登録可能か判定する。1なら登録可能
@IS_CHARACTER_ADDABLE(targetNo,fromChara)
#FUNCTION
#DIM RULE_FUNCTION_INDEX = 50
#DIM targetNo
#DIM fromChara
#DIM index
index = GET_FRIEND_INDEX_FROM_NO(fromChara,targetNo) + 1025
RETURNF (CSVCSTR(targetNo,RULE_FUNCTION_INDEX) == "" || EVALUATE(CSVCSTR(targetNo,RULE_FUNCTION_INDEX),fromChara)) && CFLAG:fromChara:index >= 0


code:
@SEARCH_WEEKPOINT
#DIM daysCount
#DIM penalty
daysCount = DAY - SCHOOL_FIRST_GOING_DAY:GET_CHARA_GO_SCHOOL_INDEX(MASTER)
penalty = 0

CALL DISPLAY_COMMON , 10
SIF RESULT == 999
	RETURN 0

PRINTL ･･･････････････････････････････････････････････････････････････････････････････

E = 0
IF !IS_HOLIDAY() && RAND:2 == 0
	PRINT 昼休みに、
	E = 1
ELSEIF !IS_HOLIDAY()
	PRINT 放課後、
	E = 2
ELSE
	PRINT 休日、
ENDIF

PRINTFORML %NAME:C%의 약점を探すための調査を行った……

RESULT = 0
TRYCALLFORM SCENARIO_EVENT_CHARACTER_CONTACT_INTERCEPT_EVENT_{NO:C}("WEEKPOINT",C,-1,-1,daysCount)
SELECTCASE RESULT
	CASE IS > 1
		penalty = RESULT - 1
	CASE 1
		BEGIN TURNEND
	CASE 0
		;아무것도안한다
	CASE IS < 0
		penalty = RESULT
ENDSELECT

IF TALENT:C:사회인 || TALENT:C:주부
	IF E == 1
		PRINTFORM 昼食を食べに行く%CALLNAME:C%を、
		E = 1
	ELSEIF E == 2
		PRINTFORM 夕方、\@ TALENT:C:주부 ? 가사 # 仕事 \@をしている%CALLNAME:C%を
		E = 2
	ELSE
		PRINTFORM 休日にのんびりしている%CALLNAME:C%を
		E = 5
	ENDIF
ELSE
	IF E == 1
		PRINTFORM 昼食を食べに行く%CALLNAME:C%を、
		E = 1
	ELSEIF E == 2
		IF TALENT:C:귀가부 == 1
			PRINTFORM 帰ろうとしている%CALLNAME:C%を、
			E = 2
		ELSEIF TALENT:C:위원회 == 1
			PRINTFORM 위원회の仕事で忙しそうにしている%CALLNAME:C%を
			E = 3
		ELSE
			PRINTFORM 부활동動にいこうとしている%CALLNAME:C%を
			E = 4
		ENDIF
	ELSE
		PRINTFORM 休日にのんびりしている%CALLNAME:C%を
		E = 5
	ENDIF
ENDIF
PRINTL 怪しまれない程度に距離を置いて観察した。
PRINTL ………………
PRINTL …………
PRINTW ……

;非学生
IF TALENT:C:사회인 || TALENT:C:교사
	SELECTCASE E
		CASE 1
			PRINTDATA
				DATAFORM %CALLNAME:C%は、昼食をとりながら同僚たちと他愛もないおしゃべりをしている。
				DATAFORM %CALLNAME:C%は、昼食をとりながらパソコンを睨みつけている。
				DATAFORM %CALLNAME:C%は、昼食もとらずに仕事を続けているようだ
			ENDDATA
		CASE 2
			PRINTDATA
				DATAFORM %CALLNAME:C%は、時計を見ながらいそいそと帰り支度を始めている。
				DATAFORM %CALLNAME:C%は、夕日をまぶしそうに見ながら、仕事を続けている。
				DATAFORM %CALLNAME:C%は、夕方になっても脇目もふらずに仕事を続けている。
				DATAFORM %CALLNAME:C%は、時折時計を恨めしげに睨みつけながら、仕事を続けている。
			ENDDATA
		CASE 3
			PRINTDATA
				DATAFORM %CALLNAME:C%は、休日だからとのんびり過ごしているようだ。
				DATAFORM %CALLNAME:C%は、休日にもかかわらず、何か仕事を続けているようだ。
			ENDDATA
	ENDSELECT
ELSEIF TALENT:C:주부
	SELECTCASE E
		CASE 1
			PRINTDATA
				DATAFORM %CALLNAME:C%は、昼食は久々にどこかに食べに行こうと考えているようだ。
				DATAFORM %CALLNAME:C%は、昼食に何を作ろうかと考えているようだ。
				DATAFORM %CALLNAME:C%は、昼食もとらずに가사をしているようだ。
			ENDDATA
		CASE 2
			PRINTDATA
				DATAFORM %CALLNAME:C%は、夕飯の準備をしている。
				DATAFORM %CALLNAME:C%は、夫らしき誰かと電話で話をしている。
				DATAFORM %CALLNAME:C%は、주부仲間とおしゃべりに興じているようだ。
			ENDDATA
		CASE 3
			PRINTDATA
				DATAFORM %CALLNAME:C%は、夫と他愛ない話をしているようだ。
				DATAFORM %CALLNAME:C%は、久々に外食しようと夫と話しているようだ。
				DATAFORM %CALLNAME:C%は、가사で大忙しのようだ。
			ENDDATA
	ENDSELECT
ELSE
	;学生
	IF TALENT:C:남친있음 && TALENT:C:밀회 != 1 && TALENT:C:남자 != 1 && (E != 3 && E != 4)
		PRINTFORM %CALLNAME:C%は彼氏と
	ELSEIF TALENT:C:남편있음 && TALENT:C:밀회 != 1 && TALENT:C:남자 != 1 && (E != 3 && E != 4)
		PRINTFORM %CALLNAME:C%は夫と
	ELSEIF TALENT:C:친구많음 == 1
		PRINTFORM %CALLNAME:C%は多くの友人たちに囲まれて
	ELSEIF TALENT:C:고고함 == 1
		PRINTFORM %CALLNAME:C%は一人で
	ELSE
		PRINTFORM %CALLNAME:C%は友人と
	ENDIF
	;関心の確認
	B = RAND:10
	IF ABL:C:30 > B
	;勉強
		SIF E == 1
			PRINT 食事をし
		SIF E == 2
			PRINT 帰り途を歩き
		SIF E == 3
			PRINT 위원회の仕事をし
		SIF E == 4
			PRINT 부활동をし
		SIF E == 5
			PRINTL 도서관に向かったようだ。
		IF TALENT:C:고고함 == 0 && E != 5
			PRINTL ながら、試験や課題の事について話をしている様だ。
		ELSEIF E != 5
			PRINTL ながら、時々暗記帳など見ている様だ。
		ENDIF
	ELSE
		B -= ABL:C:30
		IF ABL:C:31 > B
			IF E == 1
				PRINT 食事をしながら
				IF TALENT:C:고고함 == 0 || (TALENT:C:고고함 && (TALENT:C:남친있음 || TALENT:C:남편있음) && TALENT:C:밀회 != 1)
					IF TALENT:C:귀가부 == 1
						PRINTL 何かだべっている。
					ELSEIF TALENT:C:위원회 == 1
						PRINTL 今後の위원회活動について相談をしている。
					ELSE
						PRINTL 부활동について相談をしている。
					ENDIF
				ELSE
					IF TALENT:C:귀가부 == 1
						PRINTL 何か雑誌を読んでいる。
					ELSEIF TALENT:C:위원회 == 1
						PRINTL 何か손帳を開いている。
					ELSE
						PRINTL 부활동に関わる本を開いている。
					ENDIF
				ENDIF
			ELSEIF E == 2
				PRINT 帰り途を歩いている。
			ELSEIF E == 3
				PRINT 위원회の仕事をしている。
			ELSEIF E == 4
				PRINT 부활동をしている。
			ELSEIF E == 5
				IF TALENT:C:귀가부 == 1
					PRINTL 遊びに行く様だ。
				ELSEIF TALENT:C:위원회 == 1
					PRINTL 学校に向かった。
					PRINTL 위원회の仕事でも残っていたのだろうか
				ELSE
					PRINTL 부활동の練習に向かった様だ。
				ENDIF
			ENDIF
		ELSE
			IF E == 1
				PRINT 食事をしながら、
				IF TALENT:C:고고함 == 0 || (TALENT:C:고고함 && (TALENT:C:남친있음 || TALENT:C:남편있음) && TALENT:C:밀회 != 1)
					PRINTL 帰りに遊びに行く相談をしている。
				ELSE
					PRINTL 何か雑誌を読んでいる。
				ENDIF
			ELSEIF E == 2
				IF TALENT:C:고고함 == 0 || (TALENT:C:고고함 && (TALENT:C:남친있음 || TALENT:C:남편있음) && TALENT:C:밀회 != 1)
					PRINTL 何処で寄り道をして遊ぶのか相談をしている。
				ELSE
					PRINTL 何かの店に入って行った。
				ENDIF
			ELSEIF E == 3
				PRINTL 위원회の仕事をしているが、目は窓の外を眺めている。
			ELSEIF E == 4
				PRINTL 부활동をしているが、意識は他所に行っている様だ。
			ELSEIF E == 5
				PRINTL 何処かへ遊びに行く様だ。
			ENDIF
		ENDIF
	ENDIF
ENDIF
;情報値の基本
A = 5
;감성の対抗判定
CALL COMPATITION, C, 25, 0, MASTER

;감성の比較
IF RESULT == 0
	A += 1
ELSE
	A -= 1
ENDIF

IF X != 6 && IS_NIGHT() && CFLAG:C:1002 == CFLAG:MASTER:1002 && TALENT:C:귀가부 == 0
;平日の放課後で、所属が同じ(귀가부除く)
	A += 2
ENDIF

SIF TALENT:C:눈에띄고싶어함 == 1
	A += 1
SIF TALENT:C:인기 == 1
	A += 1
SIF TALENT:C:고고함 == 1
	A -= 1
SIF TALENT:C:친구많음 == 1
	A += 1
SIF TALENT:C:좋아하는사람있음 == 1 && RAND:2 == 0
	A += 1
SIF TALENT:C:철벽 == 1
	A -= 5
SIF TALENT:C:느슨함 == 1
	A += 2
SIF TALENT:C:탐정 == 1
	A -= 2
SIF TALENT:C:닌자 == 1
	A -= 2
SIF TALENT:MASTER:경계 == 1
	A -= 2
A -= TALENT:C:경계
A:1 = 0
REPEAT CHARANUM
	SIF CFLAG:COUNT:1 == 2 && (TALENT:COUNT:탐정 || TALENT:COUNT:닌자)
		A:1 = 1
REND
SIF A:1 == 1
	A += 2

A += penalty
SIF A < 1
	A = 1

PRINTFORML 調査進展度{A}
CFLAG:C:1010 += A
IF ASSI >= 1
	CALL TUIKA_TYOUSA , ASSI , C
ENDIF

LOCAL = PROTECT_VALUE_WEEKPOINT(MASTER,C)

IF LOCAL < 0 || CFLAG:C:1010 >= 100
	CALL FOUND_WEEKPOINT(C)
ELSE
	IF CFLAG:C:1010 > 50 && TALENT:C:남자 != 1 && CFLAG:C:57 == 0
		SELECTCASE SEARCH_UNTIL_WEEKPOINT_FOUND
			CASE 0
				PRINTW 調査は順調だ。
				PRINTFORMW ここらで罠を仕掛けて、強引に약점を握る方法もあるかも知れないが……。
				PRINTFORML  [0]やってみよう
				PRINTFORML  [1]焦る事はない
				$INPUT_LOOP2
				INPUT
				IF RESULT == 0
					CALL SET_TRAP, C
				ELSEIF RESULT == 1
					PRINTW ……いや、順調に進んでいる時に焦る事はないだろう……
				ELSE
					GOTO INPUT_LOOP2
				ENDIF
			CASE 1
				PRINTFORMW あと少しで、%CALLNAME:C%의 약점を握れそうだ････。
			CASE 2
				PRINTFORMW 調査はこのくらいで十分だろう。
				PRINTFORMW 罠を用意して、%CALLNAME:C%의 약점を握りにいくとしよう････。
				CALL SET_TRAP, C
		ENDSELECT
	ELSEIF CFLAG:C:1010 > 40
		PRINTW 調査は確実に進んでいる
	ELSEIF CFLAG:C:1010 > 10
		PRINTW 調査は少しは進んだといえる
	ELSE
		PRINTW 調査は始まったばかりだ
	ENDIF
ENDIF
PRINTW
BEGIN TURNEND

@FOUND_WEEKPOINT(targetChara)
#DIM targetChara
CALL FIND_WEEKPOINT,targetChara
C = RESULT
PRINTFORMW ‥‥これで、%CALLNAME:C%は思うままに出来るだろう‥‥
CFLAG:C:1000 = 5
TALENT:C:협박 = 1
TALENT:C:경계 = 0

;ＮＴＬ取得
SIF TALENT:C:좋아하는사람있음 || TALENT:C:남친있음 || TALENT:C:남편있음
	TALENT:C:ＮＴＬ = 1

@PROTECT_VALUE_WEEKPOINT(researchChara,targetChara)
#FUNCTION
#DIM answer
#DIM researchChara
#DIM targetChara
answer = 100 - CFLAG:targetChara:1010 - (ABL:researchChara:학력 - ABL:targetChara:학력)*16 - (ABL:researchChara:감성 - ABL:targetChara:감성)*8
SIF TALENT:researchChara:마술기능
	answer -= 4
SIF TALENT:targetChara:마술기능
	answer += 4
RETURNF answer

@FIND_WEEKPOINT,ARG
TRYCCALLFORM  FIND_WEEKPOINT_{NO:ARG},ARG
CATCH
;弱点のでっちあげ(盗撮とかどうか？)
	PRINTFORML %NAME:ARG%의 調査をどれほど続けただろう。
	PRINTFORML 結論として%마스터호칭은%、%CALLNAME:ARG%については付け込む程の弱点はないと考えざるを得なかった。
	PRINTFORML と、なれば強引にでっちあげるしかないだろう。
	PRINTFORML %마스터호칭은%、その方向で準備を始めた。

;工事中
	IF TALENT:ARG:남자 != 1
		;彼氏、남편있음で非처녀
		IF RAND:4 == 0 && (TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && TALENT:ARG:처녀 != 1
			PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
			PRINTFORML %마스터호칭은%、その要所要所に遠隔操作出来る카메라を設置して行った。
			PRINTFORML その夜、카메라を回収し確認する。
			PRINTL ………………
			PRINTL …………
			PRINTW ……
			PRINTFORML 成果はなかなかの物だった。
			PRINTFORM 物陰で奉仕している%CALLNAME:ARG%、半裸、全裸で絡み合う姿。
			PRINTFORML これを、%CALLNAME:ARG%に送りつけてやるとしよう。
			PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
			CSTR:ARG:41 = Ｈの盗撮写真
		ELSEIF RAND:3 == 0
	;着替えの盗撮
			PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
			PRINTFORML %마스터호칭은%、その要所要所に遠隔操作出来る카메라を設置して行った。
			PRINTFORML その夜、카메라を回収し確認する。
			PRINTL ………………
			PRINTL …………
			PRINTW ……
			PRINTFORML 成果はなかなかの物だった。
			PRINTFORML 着替え、風呂……中にはほぼ全裸に近い物もある。
			PRINTFORML これを、%CALLNAME:ARG%に送りつけてやるとしよう。
			PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
			CSTR:ARG:41 = 着替えの盗撮写真
		ELSEIF RAND:2 == 0
	;痴漢の盗撮
			PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
			PRINTFORML %마스터호칭은%、借金取りの伝손を使い、%CALLNAME:ARG%が良く使う交通機関にチンピラを配置させた。
			PRINTL ………………
			PRINTL …………
			PRINTW ……
			PRINTFORML 成果はなかなかの物だった。
			PRINTFORML 전차の中、吊革につかまった%ARG는% 顔を伏せて、妙に周囲を気にしている。
			PRINTFORML チンピラが痴漢をしているのだが、犯人をなかなか見つけられずにいる様だ。
			IF GET_BOTTOM_TOUCH_LEVEL(ARG) >= 2
	;하반신 겉옷が、하카마、바지、부루마のどれか(스커트ではない)
				PRINTFORML %ARG는% 스커트を穿いておらず、直接下着に触れるのは難しいようだ。
				PRINTFORML チンピラは、服の上から執拗に尻を撫でまわし、指の先端で強く刺激する。
			ELSE
				PRINTFORML チンピラは스커트の中に손を入れ、下着の上から秘所を弄ぶ……
			ENDIF

			SIF TALENT:ARG:청초 == 1 || TALENT:ARG:무기력 == 1 || TALENT:ARG:치유계 == 1
				PRINTFORML %ARG는% 真っ赤になった顔で、秘所や尻を庇おうとしている。
			SIF TALENT:ARG:천연 == 1 || TALENT:ARG:쾌활 == 1 || TALENT:ARG:보이쉬 == 1 || TALENT:ARG:기가셈 == 1 || TALENT:ARG:고결 == 1
				PRINTFORML %ARG는% 、羞恥よりもむしろ怒りで顔を赤くして、周りを경계している。
			SIF TALENT:ARG:성악 == 1
				PRINTFORML %ARG는% こう言う事に慣れているのか、余裕の表情で笑っている。
			SIF TALENT:ARG:색기 == 1
				PRINTFORML %ARG는% こう言う事に慣れているのか、頬を赤らめながらも周囲を視線でけん制している。
			SIF TALENT:ARG:쿨함 == 1
				PRINTFORML %ARG는% 、冷たい表情で周りを경계しているが、やはり頬は微かに紅潮している。
			SIF TALENT:ARG:어린애같음 == 1
				PRINTFORML %ARG는% 、何が起きているのか分からないようで、怯えて周囲をきょろきょろしている。
			PRINTFORML 借金取りから話が行っているのだろう、チンピラは%CALLNAME:MASTER%に気がつくと、盗撮がしやすい様に空間を開ける。
			IF GET_BOTTOM_TOUCH_LEVEL(ARG) < 2
	;하반신 겉옷が、하카마、바지、부루마のどれでもない
				PRINTFORML さらにチンピラは、そっと%CALLNAME:ARG%의 下半身を覆う服を持ちあげ、下着を노출させて見せた。
			ENDIF
			PRINTFORML ……お陰で良い写真が撮れた。
			PRINTFORML これを、%CALLNAME:ARG%に送りつけてやるとしよう。
			PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
			CSTR:ARG:41 = 痴漢の盗撮写真
		ELSE
			IF ABL:ARG:24 >= 5 && ABL:ARG:24 >= ABL:ARG:23 && ABL:ARG:24 >= ABL:ARG:22
	;戦闘
				PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
				PRINTFORML %마스터호칭은%、借金取りの伝손を使い、%CALLNAME:ARG%にチンピラを絡ませた。
				PRINTL ………………
				PRINTL …………
				PRINTW ……
				PRINTFORML 成果はなかなかの物だった。
				PRINTFORML 予想通り%ARG는% チンピラに反撃しているようだ。
				PRINTFORML この証拠写真と、実際より怪我がひどいかのように偽装した診断書。
				PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
				CSTR:ARG:41 = 暴力行為の証拠写真
			ELSEIF ABL:ARG:22 >= 5 && ABL:ARG:22 >= ABL:ARG:23 && ABL:ARG:22 >= ABL:ARG:24
	;학력
				IF TALENT:ARG:교사 || TALENT:ARG:사회인
					PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
					PRINTFORML %마스터호칭은%、まず%CALLNAME:ARG%に汚職の噂を流した。
					PRINTFORML 無論、証拠もなしに信じる人間はほとんどいないが……
					PRINTL ………………
					PRINTL …………
					PRINTW ……
					PRINTFORML ……偽造した証拠写真を%CALLNAME:ARG%に送りつけた。
					PRINTFORML 本人に깨우침えは当然ないだろうが、本人がそういう噂があると知っていれば気にせずにはいられないだろう。
					PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
					CSTR:ARG:41 = 汚職の証拠写真(偽)
				ELSEIF TALENT:ARG:주부
					PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
					PRINTFORML %마스터호칭은%、まず%CALLNAME:ARG%に浮気の噂を流した。
					PRINTFORML 無論、証拠もなしに信じる人間はほとんどいないが……
					PRINTL ………………
					PRINTL …………
					PRINTW ……
					PRINTFORML ……偽造した浮気の証拠写真を%CALLNAME:ARG%に送りつけた。
					PRINTFORML 本人に깨우침えは当然ないだろうが、本人がそういう噂があると知っていれば気にせずにはいられないだろう。
					PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
					CSTR:ARG:41 = 浮気の証拠写真(偽)
				ELSE
					PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
					PRINTFORML %마스터호칭은%、まず%CALLNAME:ARG%にカンニングの噂を流した。
					PRINTFORML 無論、証拠もなしに信じる人間はほとんどいないが……
					PRINTL ………………
					PRINTL …………
					PRINTW ……
					PRINTFORML ……偽造したカンニングの証拠写真を%CALLNAME:ARG%に送りつけた。
					PRINTFORML 本人に깨우침えは当然ないだろうが、本人がそういう噂があると知っていれば気にせずにはいられないだろう。
					PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
					CSTR:ARG:41 = カンニングの証拠写真(偽)
				ENDIF
			ELSE
	;着替えの盗撮
				PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
				PRINTFORML %마스터호칭은%、その要所要所に遠隔操作出来る카메라を設置して行った。
				PRINTFORML その夜、카메라を回収し確認する。
				PRINTL ………………
				PRINTL …………
				PRINTW ……
				PRINTFORML 成果はなかなかの物だった。
				PRINTFORML 着替え、風呂……中にはほぼ全裸に近い物もある。
				PRINTFORML これを、%CALLNAME:ARG%に送りつけてやるとしよう。
				PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
				CSTR:ARG:41 = 着替えの盗撮写真
			ENDIF
		ENDIF
	ELSE
	;（男の약점用）奴隷を使った盗撮
	;前処理
		A:21 = 0
		A:22 = 0
		A:23 = 0
		A:24 = 0
		A:25 = 0
		A:26 = 0
		R:21 = RAND:5
		REPEAT CHARANUM
			IF TALENT:COUNT:음란 || TALENT:COUNT:복종 || TALENT:COUNT:창녀 || TALENT:COUNT:예속
				A:21 += 1
				IF RAND:2 == 0
					IF A:22 == 0
						A:22 = COUNT
					ELSEIF A:23 == 0
						A:23 = COUNT
					ELSEIF A:24 == 0
						A:24 = COUNT
					ELSEIF A:25 == 0
						A:25 = COUNT
					ELSEIF A:26 == 0
						A:26 = COUNT
					ENDIF
				ENDIF
			ENDIF
		REND
		IF R:21 == 0
			IF A:22 == 0
				A:21 = 0
			ELSE
				C = A:22
			ENDIF
		ELSEIF R:21 == 1
			IF A:23 == 0
				A:21 = 0
			ELSE
				C = A:23
			ENDIF
		ELSEIF R:21 == 2
			IF A:24 == 0
				A:21 = 0
			ELSE
				C = A:24
			ENDIF
		ELSEIF R:21 == 3
			IF A:25 == 0
				A:21 = 0
			ELSE
				C = A:25
			ENDIF
		ELSEIF R:21 == 4
			IF A:26 == 0
				A:21 = 0
			ELSE
				C = A:26
			ENDIF
		ENDIF
	;実際のコメント部
		PRINTFORML %CALLNAME:ARG%의 行動パターンは概ね分かっている。
		IF A:21 == 0
			PRINTFORML %마스터호칭은%、借金取りの伝손を使い、%CALLNAME:ARG%が良く使う交通機関に痴女を配置させた。
			PRINTL ………………
			PRINTL …………
			PRINTW ……
			PRINTFORML 成果はなかなかの物だった。
			PRINTFORML 전차の中、吊革につかまった%CALLNAME:ARG%의 そばに女が立つと、彼に気づかれないように가슴を肌蹴た。
			PRINTFORML %마스터호칭은%、%CALLNAME:ARG%의 손がちょうど女の가슴を揉んでいるような角度を見つけて写真を撮った。
		ELSE
			PRINTFORML %마스터호칭은%%CALLNAME:ARG%が良く使う交通機関に奴隷である%NAME:C%を配置させた。
			IF TALENT:ARG:처녀 != 1
				PRINTFORML 전차の中、吊革につかまった%CALLNAME:ARG%의 そばに%CALLNAME:C%が立つと、%마스터호칭이% 命令したとおりに스커트をたくし上げた。
				PRINTFORML %ARG는% 全く気づかないが、팬티を穿いていない%CALLNAME:C%의 秘部には바이브が蠢き、テラテラと輝く愛液が垂れてきている。
			ELSEIF ABL:ARG:Ａ감각 >= 2
				PRINTFORML 전차の中、吊革につかまった%CALLNAME:ARG%의 そばに%CALLNAME:C%が後ろ向きに立つと、%마스터호칭이% 命令したとおりに스커트をたくし上げた。
				PRINTFORML %ARG는% 全く気づかないが、팬티を穿いていない%CALLNAME:C%의 애널には바이브が蠢き、秘部からはテラテラと輝く愛液が垂れてきている。
			ELSE
				PRINTFORML 전차の中、吊革につかまった%CALLNAME:ARG%의 そばに%CALLNAME:C%が立つと、%마스터호칭이% 命令したとおりに가슴を肌蹴た。
				PRINTFORML %ARG는% 全く気づかないが、%CALLNAME:C%의 乳首は硬くしこっており、今すぐにも触れて欲しいとばかりに震えている。
			ENDIF
			PRINTFORML %마스터호칭은%%CALLNAME:ARG%がいかもに%CALLNAME:C%を弄んでいるかのような角度で写真を撮っていく。
		ENDIF
			PRINTFORML ……お陰で良い写真が撮れた。
			PRINTFORML これを、%CALLNAME:ARG%に送りつけてやるとしよう。
			PRINTL ……さらにえぐい物を持っている事を匂わせる손紙と一緒に送ってやれば……
			CSTR:ARG:41 = 痴漢現場の盗撮写真
	ENDIF
	CALL DIARY_SET,"「"+CSTR:ARG:41+"」を使用して、"+NAME:ARG+"を굴복させた。"
ENDCATCH
SIF TALENT:ARG:약점 == 0
	PRINTFORMW %NAME:ARG%의 [약점]を握った
TALENT:ARG:약점 = 1

RETURN ARG

@SET_TRAP,ARG
;罠にはめて輪姦
PRINTFORML %ARG이름을%罠に嵌める事にした。
PRINTFORML 借金取りの伝손を使い、チンピラをかき集める。
PRINTFORML 碌に金も出さずに動かせる人間だけに、ろくでなし揃いだが、これからを考えればその方が都合がいいだろう。
PRINTFORML ………………
PRINTFORML …………
PRINTFORMW ……
PRINTFORML -ある뒷골목の夜-
PRINTFORML %마스터호칭은%雑居ビルの陰に身を隠し、デジカメを片손に待ち続けていた。
PRINTFORML ……やがて、予定通り%CALLNAME:ARG%が姿を現す。
PRINTFORML 本来ならこんな人通りも無い、昼間でも薄暗い様な뒷골목を通ったりしないのだろうが、チンピラどもは上손く嫌がらせをしてくれた様だ。
PRINTFORML %마스터호칭이% 見守る中、通り過ぎようとした%CALLNAME:ARG%의 行く손を言いがかりをつけながらチンピラが塞ぐ。
PRINTFORML %ARG는% 迷惑そうに彼らに背を向けるが、そちらはとうに塞がれていた。
SIF TALENT:ARG:청초 == 1
	PRINTFORML %ARG는% 困った顔で、色々と訴えかけている様だが、勿論チンピラどもに聞く耳などない。
SIF TALENT:ARG:쾌활 == 1 || TALENT:ARG:보이쉬 == 1 || TALENT:ARG:고결 == 1
	PRINTFORML %ARG는% 腹を立てた様子でチンピラに怒鳴っているが、チンピラは却って面白がっている様だ。
SIF TALENT:ARG:성악 == 1
	PRINTFORML %ARG는% 薄ら笑いを浮かべたまま、ゆっくりとチンピラたちを見渡した。
SIF TALENT:ARG:색기 == 1
	PRINTFORML %ARG는% 困っているのだが、その姿さえ何処か色っぽく、チンピラ達が唾を飲み込む様子が손に取る様に分かる。
SIF TALENT:ARG:천연 == 1 || TALENT:ARG:쿨함 == 1
	PRINTFORML %ARG는% 固い表情で淡々と正論を告げているが、勿論チンピラどもに聞く耳などない。
SIF TALENT:ARG:어린애같음 == 1 || TALENT:ARG:치유계 == 1
	PRINTFORML %ARG는% 色々と訴えかけている様だが、微妙にずれている気がしないでもない。
SIF TALENT:ARG:무기력 == 1
	PRINTFORML %ARG는% 困った顔で、色々と訴えかけている様だが、声が小さすぎて相손にまともに届いているかどうか……
SIF TALENT:ARG:기가셈 == 1
	PRINTFORML %ARG는% あからさまな言いがかりに怒って言い返し、火に油を注いでいる。

PRINTFORML そんな事をするうちにもチンピラ達は、徐々に%CALLNAME:ARG%ににじり寄り、やがて一人が%CALLNAME:ARG%의 腕を掴んだ。
PRINTFORML そこからは、我先にと襲いかかるチンピラの群れと、引きずり倒される%CALLNAME:ARG%의 悲鳴が響いた。
PRINTFORML ………………
PRINTFORML …………
PRINTFORMW ……
LOCAL:3 = ABL:ARG:23 + (ABL:ARG:24*2) + ABL:ARG:25
SIF TALENT:ARG:마술기능
	LOCAL:3 += 3
SIF TALENT:ARG:흡혈귀
	LOCAL:3 += 2
SIF TALENT:ARG:요마
	LOCAL:3 += 2
SIF TALENT:ARG:파이터
	LOCAL:3 += 5
LOCAL:3 += TALENT:ARG:경계

SIF ABL:ARG:23 == 1
	LOCAL:3 -= 5
SIF ABL:ARG:23 == 2
	LOCAL:3 -= 3
SIF ABL:ARG:23 == 3
	LOCAL:3 -= 1
SIF ABL:ARG:23 == 8
	LOCAL:3 += 1
SIF ABL:ARG:23 == 9
	LOCAL:3 += 3
SIF ABL:ARG:23 == 10
	LOCAL:3 += 5
SIF ABL:ARG:24 == 1
	LOCAL:3 -= 12
SIF ABL:ARG:24 == 2
	LOCAL:3 -= 6
SIF ABL:ARG:24 == 3
	LOCAL:3 -= 3
SIF ABL:ARG:24 == 8
	LOCAL:3 += 3
SIF ABL:ARG:24 == 9
	LOCAL:3 += 6
SIF ABL:ARG:24 == 10
	LOCAL:3 += 12

IF LOCAL:3 < 30
;輪姦イベント
	PRINTFORM %CALLNAME:MASTER%의 ファインダーには、
	IF (TALENT:ARG:좋아하는사람있음 || TALENT:ARG:남친있음 || TALENT:ARG:남편있음) && TALENT:ARG:밀회 != 1
		PRINTFORML この場にはいない愛する人へ助けを求めもがく%CALLNAME:ARG%が映っていた。
	ELSE
		PRINTFORML 屈強な男達に組み伏せられ、必死にもがく%CALLNAME:ARG%が映っていた。
	ENDIF
	IF RAND:2 == 0
		PRINTFORML 地面に仰向けに押し付けられ、両足を大きくＭ字に開かれた破廉恥な姿の晒している%CALLNAME:ARG%。
		PRINTFORML その足や肩には、それぞれチンピラが取りついて押さえつけている。
		PRINTW 正面のチンピラは自分の페니스を唾で濡らしながら、割れ目に페니스をあてがっており、周囲の仲間たちは羨望の眼差しをそれを見ていた。
	ELSE
		PRINTFORML 雑居ビルの壁に押し付けられ、下半身をむき出しにされて、白い尻を露わにされた%CALLNAME:ARG%。
		PRINTFORML その腕に、チンピラが取りついて、壁に押し付ける様にして押さえつけている。
		PRINTW チンピラの一人が、背後からのしかかる様にしながら、自分の페니스を唾で濡らし、割れ目に페니스をあてがっており、周囲の仲間たちは羨望の眼差しをそれを見ていた。
	ENDIF
	SIF TALENT:ARG:청초 == 1 || TALENT:ARG:무기력 == 1
		PRINTFORML %ARG는% 泣きながら、それだけはやめてと哀願していた……。
	SIF TALENT:ARG:천연 == 1 || TALENT:ARG:쾌활 == 1 || TALENT:ARG:보이쉬 == 1 || TALENT:ARG:기가셈 == 1 || TALENT:ARG:고결 == 1
		PRINTFORML %ARG는% まだ諦めていないのか、必死に暴れてはいるが、多勢に無勢で如何ともしがたい様だ。
	SIF TALENT:ARG:성악 == 1
		PRINTFORML %ARG는% 屈辱の表情でチンピラ達を睨みつけながら罵詈雑言を浴びせているが、それはむしろ逆効果の様だ。
	SIF TALENT:ARG:색기 == 1
		PRINTFORML %ARG는% それだけはやめてと哀願しているが、むしろそれはチンピラ達を煽る効果しか持たない様だ。
	SIF TALENT:ARG:쿨함 == 1
		PRINTFORML %ARG는% 、冷たい表情で自分を押さえつけるチンピラを睨みつけている。
	SIF TALENT:ARG:어린애같음 == 1 || TALENT:ARG:치유계 == 1
		PRINTFORML %ARG는% 怯えて泣きながら、許しを乞うている……。
	PRINTFORML それら全てを無視して、チンピラが腰を進めると、%ARG는% 悲鳴を上げた……。
	IF TALENT:ARG:처녀 == 1
		PRINTFORML %CALLNAME:ARG%의 股間から、太股を伝って赤い筋が流れた。
	ENDIF
	PRINTFORML 順番待ちのチンピラ達の野卑な囃し声の中、最初のチンピラは%CALLNAME:ARG%의 様子など気にもせず、自分勝손に腰を振る。
	PRINTFORML やがて、チンピラはそのまま腰の速度を早めると、%CALLNAME:ARG%に射精しそうなのを伝えて来た。
	PRINTFORML %ARG는% 最後までせめて外でと哀願していたが、チンピラはそのまま一番奥へと욕망を解き放つ。
	PRINTFORML 満足した顔のチンピラが페니스を抜くと、%CALLNAME:ARG%의 秘裂から、ゴボリと白い物があふれた。
	PRINTFORML 啜り泣く%CALLNAME:ARG%의 姿に욕망を刺激されたのか、遅れたチンピラ達は我先にと、襲いかかった……
	PRINTFORML ………………
	PRINTFORML …………
	PRINTFORMW ……
	PRINTFORML 何回シャッターを切ったろうか？
	PRINTFORML ファインダーにはガラス玉の様な眼をした%CALLNAME:ARG%が男達に奉仕する姿が映っている。
	IF TALENT:ARG:거유 == 1 || TALENT:ARG:폭유 == 1
		PRINTL 両가슴を使って男の페니스を挟み、舌と입を使って奉仕をしている。
		PRINTL 挟んだ페니스を입から離すと、汚れた顔に、新しい精液が降り注いで行った……。
	ELSE
		PRINTL 両손にそれぞれ別の男の페니스を握り、입にも別の男の페니스を突っ込まれている。
		PRINTL やがて周囲のチンピラ達が身を震わせると、半裸の全身に新しい精液が降り注いで行った……。
	ENDIF
	PRINTFORML チンピラ達が立ち去り、取り残された%CALLNAME:ARG%의 無残な姿を写真に捕えた。
	PRINTFORMW ‥‥これで、%CALLNAME:C%は思うままに出来るだろう‥‥
	CFLAG:ARG:1000 = 5
	TALENT:ARG:협박 = 1
	SIF TALENT:ARG:약점 == 0
		PRINTFORMW %NAME:ARG%의 [약점]を握った
	TALENT:ARG:약점 = 1

	;ＮＴＬ取得
	SIF TALENT:ARG:좋아하는사람있음 || TALENT:ARG:남친있음 || TALENT:ARG:남편있음
		TALENT:ARG:ＮＴＬ = 1

	IF TALENT:ARG:처녀 == 1
		TALENT:ARG:처녀 = 0
		EXP:ARG:50 = 2
		PRINTFORML 이상경험＋2
	ELSE
		EXP:ARG:50 = 1
		PRINTFORML 이상경험＋１
	ENDIF
	;반발각인
	MARK:ARG:3 = 1
	MARK:ARG:4 = 1
		;의존도
	CFLAG:ARG:2 = -200
	;経験
	A = RAND:10 + 5
	SIF TALENT:ARG:수수께끼의매력 == 1
		A += 2
	SIF TALENT:ARG:인기 == 1
		A += 1
	SIF TALENT:ARG:멋쟁이 == 1
		A += 1
	SIF TALENT:ARG:연예인 == 1
		A += 1
	SIF TALENT:ARG:영애 == 1 || TALENT:ARG:프린세스 == 1
		A += 1
	SIF TALENT:ARG:성직자 == 1
		A += 1
	SIF TALENT:ARG:모성 == 1
		A += 1
	SIF TALENT:ARG:좋아하는사람있음 == 1 || TALENT:ARG:남친있음 == 1 || TALENT:ARG:남편있음 == 1
		A += 1
	SIF TALENT:ARG:메이드 == 1
		A += 1
	EXP:ARG:0 += A
	PRINTFORML Ｖ경험＋{A}
	B = A / 10
	EXP:ARG:2 += B
	PRINTFORML 절정경험＋{B}
	EXP:ARG:4 += A
	PRINTFORML 성교경험＋{A}
	B = A / 2
	EXP:ARG:5 += B
	PRINTFORML 질사경험＋{B}
	EXP:ARG:20 += A
	PRINTFORML 정액경험＋{A}
	EXP:ARG:42 += 1
	PRINTFORML 피윤간경험＋1
	EXP:ARG:22 += A
	PRINTFORML 펠라경험＋{A}
	CSTR:ARG:41 = 輪姦写真
	CALL DIARY_SET,NAME:ARG+"が輪姦されている写真を使って、"+NAME:ARG+"を굴복させた。"
	SIF TALENT:ARG:약점 == 0
		PRINTFORMW %NAME:ARG%의 [약점]を握った
	TALENT:ARG:약점 = 1
ELSE
	PRINTFORML しかし%마스터호칭이% ファインダー越しに見たものは、圧倒的な強さでチンピラの群れをなぎ倒す%CALLNAME:ARG%의 姿だった。
	PRINTFORML どうやら%조사처리(NAME:ARG,"은")% 想像以上に손ごわい相손のようだ……
	PRINTFORML この調子だとチンピラ共で%CALLNAME:ARG%의 相손をするのは荷が重そうだ。
	PRINTFORML これ以上この場にいると、チンピラたちとの関与を疑われる可能性がある……
	PRINTFORML 連中が時間稼ぎをしているうちにずらかるとしよう。
	PRINTFORML ………………
	PRINTFORML …………
	PRINTFORMW ……
	PRINTFORMW -%NAME:ARG%に対する謀略は失敗しました-
	CFLAG:ARG:57 = 1
	TALENT:ARG:경계 += 3
ENDIF
;治安悪化
FLAG:1015 += 1

;助손の追加調査
@TUIKA_TYOUSA ,ARG , ARG:1

LOCAL:0 = ABL:ARG:23 + ABL:ARG:24 + ABL:ARG:25 + 5
LOCAL:1 = ABL:(ARG:1):23 + ABL:(ARG:1):24 + ABL:(ARG:1):25
SIF TALENT:ARG:인간혐오 == 1
	LOCAL:0 -= 1
SIF TALENT:ARG:사교적 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:내향적 == 1
	LOCAL:0 -= 1
SIF TALENT:ARG:영체 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:마술기능 == 1
	LOCAL:0 += 2
SIF TALENT:ARG:교섭술 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:요괴여우 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:흡혈귀 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:정보통 == 1
	LOCAL:0 += 2
SIF TALENT:ARG:친구많음 == 1
	LOCAL:0 += 1
SIF TALENT:ARG:고고함 == 1
	LOCAL:0 -= 1
SIF TALENT:ARG:닌자 == 1
	LOCAL:0 += 2
SIF TALENT:ARG:탐정 == 1
	LOCAL:0 += 2

SIF TALENT:(ARG:1):감정부족 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):내향적 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):무관심 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):보수적 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):일선을넘지않음 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):Ｂ열등감 == 1
	LOCAL:1 -= 1
SIF TALENT:(ARG:1):반하기쉬움 == 1
	LOCAL:1 -= 1
SIF TALENT:(ARG:1):철벽 == 1
	LOCAL:1 += 5
SIF TALENT:(ARG:1):오줌싸개버릇 == 1
	LOCAL:1 -= 1
SIF TALENT:(ARG:1):거절 == 1
	LOCAL:1 += 2
SIF TALENT:(ARG:1):수수함 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):흡혈귀 == 1
	LOCAL:1 += 2
SIF TALENT:(ARG:1):인기 == 1
	LOCAL:1 -= 1
SIF TALENT:(ARG:1):불량 == 1
	LOCAL:1 += 1
SIF TALENT:(ARG:1):고고함 == 1
	LOCAL:1 += 2
SIF TALENT:(ARG:1):친구많음 == 1
	LOCAL:1 -= 1

LOCAL:2 = LOCAL:0 - LOCAL:1

SIF LOCAL:2 <= 1
	LOCAL:2 = 1

SETCOLOR 0,255,0
PRINTFORML 助손の追加調査によって調査が追加で『{LOCAL:2}』進行した
CFLAG:(ARG:1):1010 += LOCAL:2
RESETCOLOR


code:
@SEISAN
#DIM index
IF MONEY:1 > 0
	DRAWLINE
	PRINT 10일에 한 번 있는 정산일입니다.
	PRINTFORML 현재 대출은 {MONEY:1}엔
	IF FLAG:4 == 1
;EASY
		X = MONEY:1 / 15
	ELSEIF FLAG:4 == 2
;NORMAL
		X = MONEY:1 / 10
	ELSE
		X = MONEY:1 / 7
	ENDIF
	IF TALENT:MASTER:교섭술
		X = X*6/10
		SETCOLOR 255, 255, 100
			PRINTFORMW %NAME:MASTER%의 교섭술 덕분에 이자를 조금 깎았다
		RESETCOLOR
	ENDIF
	IF ASSI >= 1
		IF TALENT:ASSI:교섭술
			X = X*8/10
			SETCOLOR 0, 255, 0
			PRINTFORMW %NAME:ASSI%의 교섭술 덕분에 이자를 조금 깎았다
			RESETCOLOR
		ENDIF
	ENDIF
	MONEY:1 += X
	PRINTFORMW 이자가 {X}엔 붙어서、바뀐 대출금은 {MONEY:1}엔이 됩니다.
	PRINTFORML 함락 캐릭터에서 자금 입수
	REPEAT CHARANUM
		;陥落ヒロインからの資金入손
		IF (TALENT:COUNT:연모 == 1 || TALENT:COUNT:친애 == 1 || TALENT:COUNT:복종 == 1 || TALENT:COUNT:예속 == 1 || TALENT:COUNT:음란 == 1 || TALENT:COUNT:창녀 == 1) && !IS_UNCONTACTABLE(COUNT)
			IF TALENT:COUNT:중학생 == 1
				X = 1000
			ELSEIF TALENT:COUNT:교사 == 1 || TALENT:COUNT:사회인
				X = 20000
			ELSEIF TALENT:COUNT:주부
				X = 25000
			ELSEIF TALENT:COUNT:초등학생 == 1
				X = 500
			ELSE
				X = 10000
			ENDIF
			;연모계 함락2段階で2割増し。
			SIF TALENT:COUNT:친애 == 1
				TIMES X , 1.20
			;음란계 함락
			IF TALENT:COUNT:창녀 == 1
				TIMES X , 0.40
			ELSEIF TALENT:COUNT:음란 == 1
				TIMES X , 0.20
			ENDIF
			;복종계 함락
			IF TALENT:COUNT:예속 == 1
				TIMES X , 0.40
			ELSEIF TALENT:COUNT:복종 == 1
				TIMES X , 0.20
			ENDIF
			IF TALENT:COUNT:연예인 == 1
				TIMES X , 2.00
			ELSEIF TALENT:COUNT:아르바이트 == 1
				TIMES X , 1.50
			ENDIF
			;放置日数4日以下なら少しプラスされる
			SIF CFLAG:COUNT:122 <= 4
				TIMES X , 1.10
			SIF TALENT:COUNT:영애 == 1 || TALENT:COUNT:프린세스 == 1
				TIMES X , 2.00

			MONEY += X
			PRINTFORML %NAME:COUNT%에게서、{X}의 자금을 입수했습니다.
		ENDIF
	REND
	PRINTFORML 현재 소지금은 {MONEY}엔입니다.
	X:21 = MONEY:0
	SIF X:21 >= MONEY:1
		X:21 = MONEY:1
	PRINTFORML 얼마나 대출을 갚습니까?(0-{X:21})
;----------これまでの処理
;	$INPUT_LOOP
;	INPUT
;	IF RESULT < 0 || RESULT > MONEY
;		GOTO INPUT_LOOP
;	ELSE
;		MONEY -= RESULT
;		MONEY:1 -= RESULT
;		SIF RESULT >= 10000 && FLAG:1500 == 0
;			CALL EVENT_SEISAN
;		IF MONEY:2 < 10000
;			PRINTFORML 追加で借金をしますか？
;			PRINTFORML [0] YES
;			PRINTFORML [1] NO
;			$INPUT_LOOP2
;			INPUT
;			SIF RESULT != 0 && RESULT != 1
;				GOTO INPUT_LOOP2
;			IF RESULT == 0
;				X = 10000 - MONEY:2
;				PRINTFORML 幾ら借金をしますか？(0-{X})
;				$INPUT_LOOP3
;				INPUT
;				IF RESULT < 0 || RESULT > X
;					GOTO INPUT_LOOP3
;				ELSE
;					MONEY += RESULT
;					MONEY:1 += RESULT
;					MONEY:2 += RESULT
;					PRINTFORML 追加で借金をしました。
;				ENDIF
;			ENDIF
;		ENDIF
;		PRINTW 정산을 종료합니다.
;		FLAG:1100 = DAY
;		DRAWLINE
;	ENDIF
;----------新しい処理

	CALL INPUT_MANY(0,X:21)
	MONEY:0 -= RESULT
	MONEY:1 -= RESULT
	SIF RESULT >= 10000 && FLAG:1500 == 0
		CALL EVENT_SEISAN
	CALL EXTRA_DEBT
	PRINTW 정산을 종료합니다.
	DRAWLINE
ENDIF
FLAG:1100 = DAY
SIF DAY == 60
	CALL RELAXATION_ROOM
SIF DAY == 90
	CALL HARITUKE_DAI

@EVENT_SEISAN
;精算時１万이상一度に支払い 20121023
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTFORML 『형편은 점차 나아지고 있나？』
PRINTFORML 깡패 스타일의 남자는、%마스터가% 돌려준 돈을 확인하고 반가운 듯 그렇게 말했다.
IF FLAG:1500 == 0
	PRINTFORML 『네가 그럴 마음이 있다면、따로 돈을 벌 수 있는 일자리를 소개해 줄 수 있는데…… 어때？』
	PRINTFORML ……이 남자가 소개해 오는 이상 、 변변치 않은 건 확실하리라 、 그런데……？
	PRINTFORML [0]YES
	PRINTFORML [1]NO
	$INPUT_LOOP
	INPUT
	IF RESULT == 0
		PRINTFORML 『그렇지、그렇지！　뭐、그 이야기는……』
		PRINTFORMW -새로운 노역「공중변소 플레이」가 해방되었습니다-
		PRINTFORML 노예를 배치해 불특정 다수의 성욕의 배출구로 만들 수 있습니다.
		PRINTFORML 동시에 5명까지 구성할 수 있으며、매춘과 달리 확실하게 손님을 받을 수 있습니다.
		PRINTFORML 또 함락되지 않았어도 그럭저럭 수입이 들어옵니다.
		PRINTFORML 하지만 스트레스가 많이 쌓여서 일인당 효율은 적습니다.
		PRINTW
		FLAG:1500 = 1
	ELSEIF RESULT == 1
		PRINTFORML 『그려？ 뭐 됐어、돈만 제대로 갚아준다면、수단은 안 중요하지』
		PRINTFORMW 남자는 어깨를 움츠리며 그렇게 말하고는 떠나갔다.
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ENDIF

@RELAXATION_ROOM
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTFORML 『오랜만이구나… 요즘 장사는 어때？』
PRINTFORML 『슬슬 적당한 여자를 써서 돈을 벌 수 있게 되지 않았나？』
IF FLAG:42 == 0
	PRINTFORML 『오늘도 너에게 좋은 소식을 가져와 줬어。실은 조직에서 대규모 개수 공사를 하고 있어서』
	PRINTFORML 『그 김에 가게 쪽에 남은 빈방을、[릴랙제이션 룸]으로 리모델링해도 된다는 이야기가 나왔어』
	PRINTFORML 『이게 있으면 창녀의 스트레스가 쌓이기 어려워진다는 거다. 여자를 쓰는 장사에 이건 엄청나지.……』
	PRINTFORML 『뭐어… 이 이야기는 오늘 한정이니까、지금 당장 결정을 내려야겠지만』
	PRINTFORML 『30만엔 정도 들지만、이야기를 꺼낸 김에 이쪽에서 재건축해둘게…… 물론 개장할 거지？』
	PRINTFORML ……이 남자가 소개해 오는 이상 、 변변치 않은 건 확실하리라 、 그런데………？
	SIF MONEY >= 300000
		PRINTFORML [0]YES(현금으로 지불)
	PRINTFORML [1]YES(대출하여 지불)
	PRINTFORML [2]NO
	$INPUT_LOOP
	INPUT
	IF (MONEY >= 300000 && RESULT == 0) || RESULT == 1
		PRINTFORML 『그렇지、그렇지！　뭐、이 릴랙제이션 룸은 말이야……』
		PRINTFORMW -창관에 릴랙제이션 룸이 설치되었습니다-
		PRINTL
		PRINTFORML 매춘노역 중 노예의 스트레스 회복속도가 높아집니다.
		PRINTFORML 손님을 받지 않은 경우도 포함해、창관에서 노역을 한 경우에도 스트레스가 줄어듭니다.
		PRINTW
		IF RESULT==0
			MONEY -= 300000
		ELSE
			MONEY:1 += 300000
		ENDIF
		FLAG:42 = 1
	ELSEIF RESULT == 2
		PRINTFORML 『그려？ 뭐 됐어、돈만 제대로 갚아준다면、이쪽도 특별히 불만은 없거든』
		PRINTFORMW 남자는 어깨를 움츠리며 그렇게 말하고는 떠나갔다.
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ENDIF

@HARITUKE_DAI
PRINTL ………………
PRINTL …………
PRINTL ……
PRINTW ―귀축이므로 주의―
PRINTFORML 『오랜만이야. 빚 변제의 전망은 보이나？ %CALLNAME:MASTER%？』
PRINTFORML 『슬슬 가게도 궤도에 오르지 않았어？ 그야 부러운 일이고……』
IF ITEM:30 == 0
	PRINTFORML 『오늘도 너에게 좋은 소식을 가져와 줬어。좋은 아이템의 재고가 있거든』
	PRINTFORML 『조직에서 사용하고 있었는데、새 것을 들였으니 헌 것은 처분하게 된 사정이다』
	PRINTFORML 『이 [X자구속대] 말인데… 이건 창관에서 도망친 창녀들을 벌하기 위한 비장의 도구로 말이지』
	PRINTFORML 『이걸 사용하면 [극한조교]가 해방되니까、시간이 있는 한 계속 조교할 수 있어지는 거야』
	PRINTFORML 『어떤 반항마라도、이 형틀에 구속된 여자는 바로 순종하게되는 좋은 물건이야……』
	PRINTFORML 『50만엔 정도로 물려줄 수 있는데… 이것도 굉장히 싸게 파는거다』
	PRINTFORML 『어때？ 이걸로 여자를 길들이고 싶어졌지？』
	PRINTFORML ……이 남자가 소개해 오는 이상、변변치 않은 건 확실하리라、그런데……？
	SIF MONEY >= 500000
		PRINTFORML [0]YES(현금으로 지불)
	PRINTFORML [1]YES(대출하여 지불))
	PRINTFORML [2]NO
	$INPUT_LOOP
	INPUT
	IF (MONEY >= 500000 && RESULT == 0) || RESULT == 1
		PRINTFORML 『그렇지、그렇지！　뭐、이 Ｘ자구속대로 말할 것 같으면……』
		PRINTFORMW -[Ｘ자구속대]를 손에 넣었다-
		PRINTL
		PRINTFORML 노예를 이 도구로 구속하면 [극한조교] 커맨드가 출현합니다
		PRINTFORML 구속하고 움직임을 봉인하는 걸로、체력이 소진되어도 일방적으로 조교를 계속할 수 있습니다
		PRINTFORML 시간이 허락하는 한 조교를 계속할 수 있게 되겠지만 대신 조교가 긑나면 노예는 병원에서 보내게 됩니다
		PRINTFORML 이때다라고 말하는 타이밍에 사용하면 효과적이겠죠――
		PRINTW
		IF RESULT==0
			MONEY -= 500000
		ELSE
			MONEY:1 += 500000
		ENDIF
		ITEM:30 = 1
	ELSEIF RESULT == 2
		PRINTFORML 『그려？ 뭐 됐어、돈만 제대로 갚아준다면、이쪽도 특별히 불만은 없거든』
		PRINTFORMW 남자는 어깨를 움츠리며 그렇게 말하고는 떠나갔다.
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ENDIF

;各キャラの경계ダウン処理
@WARNING_DOWN
#DIM keepWarning
REPEAT CHARANUM
	SIF COUNT == MASTER
		CONTINUE
	SIF TALENT:COUNT:경계 < 0
		TALENT:COUNT:경계 = 0
	SIF TALENT:COUNT:경계 == 0
		CONTINUE
	keepWarning = CALC_CHARA_SINGLE_DATA("TALENT",COUNT,"처녀*5,겁쟁이*5,반항적*3,꿋꿋함*3,솔직*-3,얌전함*2,프라이드높음*-3,건방짐*-3,프라이드낮음*2,감정풍부*-2,감정부족*-2,사교적*-3,내향적*2,인간혐오*5,고결*3,성악*2,낙관적*-4,비관적*-3,저항*3,철벽*4,마술기능*5,레이프소망*-10,공주님소망*-3,느슨함*-4,수수함*-2,금단의지식*10,깨우침*10,고등학생*2,사회인*3,주부*2,교사*3,영애*-2,가난*-1,불량*3,우등생*3,유명인*4,연예인*4,성직자*5,정보통*4,친구많음*-3,고고함*3,프린세스*-10,닌자*10,탐정*7,메이드*4,파이터*3,도박사*4,성별위장*5")
	keepWarning += CALC_CHARA_RANGED_DATA("ABL",COUNT,"감성","3,1|5,3|7,5|*,7") + CALC_CHARA_RANGED_DATA("ABL",COUNT,"전투능력","3,1|5,2|7,3|*,4")
	keepWarning += CFLAG:COUNT:1020*2
	IF RAND:100 < keepWarning
		TALENT:COUNT:경계--
		CFLAG:COUNT:1020 = 0
	ELSE
		CFLAG:COUNT:1020++
	ENDIF
REND

@EXTRA_DEBT
#DIM index
#DIM DYNAMIC remainExtraDebt = 0
#DIM getMoneyValue
#DIM DYNAMIC addDebt = 0
#DIM addDebtPart
#DIM lines
SIF MONEY:12 == -1
	RETURN
FOR index,2,12
	remainExtraDebt += 10000 - MONEY:index
NEXT
SIF remainExtraDebt == 0
	RETURN
WHILE 1
	lines = LINECOUNT
	addDebt = 0
	PRINTFORML 추가로 대출합니까？
	PRINTFORML 단、기존에 빌린 대출금보다 더 높은 이율이 적용됩니다.
	PRINTFORML 이번 주차에서 더 이상 빚을 지지 않겠다면、-1을 입력해주세요
	CALL INPUT_MANY(-1,remainExtraDebt)
	SELECTCASE RESULT
		CASE -1
			PRINTFORML 이제 추가 대출 예정은 없습니까？
			PRINTFORML 주회할 때까지、추가 대출할 수 없습니다！
			PRINTFORML [0] YES
			PRINTFORML [1] NO
			WHILE 1
				INPUT
				SELECTCASE RESULT
					CASE 0
						MONEY:12 = -1
						BREAK
					CASE 1
						BREAK
					CASEELSE
						;아무것도안한다
				ENDSELECT
			WEND
			SIF RESULT == 0
				BREAK
		CASE 0
			BREAK
		CASEELSE
			getMoneyValue = RESULT
			FOR index,2,12
				addDebtPart = MIN(10000 - MONEY:index,getMoneyValue)
				SIF addDebtPart == 0
					CONTINUE
				getMoneyValue -= addDebtPart
				addDebt += addDebtPart * MAX((index - 1),1)
			NEXT
			SIF getMoneyValue > 0
				THROW 입력된 대출액이 부정합니다.
			getMoneyValue = RESULT
			PRINTFORML {getMoneyValue} 추가로 대출하면、대출액으로 {addDebt} 가산됩니다
			PRINTFORML 동의합니까？
			PRINTFORML [0] YES
			PRINTFORML [1] NO
			WHILE 1
				INPUT
				SELECTCASE RESULT
					CASE 0
						MONEY += getMoneyValue
						MONEY:1 += addDebt
						FOR index,2,12
							addDebtPart = MIN(10000 - MONEY:index,getMoneyValue)
							SIF addDebtPart == 0
								CONTINUE
							MONEY:index += addDebtPart
							getMoneyValue -= addDebtPart
						NEXT
						BREAK
					CASE 1
						BREAK
					CASEELSE
						;아무것도안한다
				ENDSELECT
			WEND
			SIF RESULT == 0
				BREAK
	ENDSELECT
	CLEARLINE LINECOUNT - lines
WEND
RETURN


code:
@SELECT_PROSTITUTION
;매춘
X = 0
CALL DISPLAY_COMMON, 4
SIF RESULT == 999
	RETURN 0

@SELECT_TOILET
;공중변소
X = 0
CALL DISPLAY_COMMON, 5
SIF RESULT == 999
	RETURN 0

@SELECT_PROSTITUTION_TYPE
PRINTFORML 설정할 매춘 종류를 선택해주세요.
PRINTFORML [0] 통상매춘
PRINTFORML [1] 공중변소
PRINTFORML [100]종료
$INPUT_LOOP
INPUT
IF RESULT == 0
	CALL SELECT_PROSTITUTION
ELSEIF RESULT == 1
	CALL SELECT_TOILET
ELSEIF RESULT != 100

ENDIF