code:
@EVENT_NIGHT
#DIM prostitutionCount
#DIM vigilantCount
#DIM toiletCount
#DIM arbeitCount
#DIM invitationCount
;日が変わる前の夜イベント
;売春とか
;ターン終了時の関数は3種類あるので注意
;@EVENT_NIGHTのほか
;@EVENT_NEXTDAY (EVENT_S.ERB)
;@EVENTTURNEND (SESTEM.ERB)
$INPUT_LOOP2

prostitutionCount = 0
vigilantCount = 0
toiletCount = 0
arbeitCount = 0
invitationCount = 0

;旧クリア処理。一応残しておく
U = 0 ;自警団キャラ数(vigilantCount)未使用っぽい
V = 0 ;未使用
W = 0 ;유혹キャラ数(invitationCount)
X = 0 ;公衆便所キャラ数(toiletCount)
Y = 0 ;売春キャラ数(prostitutionCount)
Z = 0 ;バイトキャラ数(arbeitCount)Z = 0

REPEAT CHARANUM
;자동노역조건
;労役していない　스트레스가 70未満　체력が800이상　監禁されていない　入院していない
	SELECTCASE 1
		CASE IS_UNCONTACTABLE(COUNT)
			;連絡が取れないため何も표시せずスキップ
			CONTINUE
		CASE CFLAG:COUNT:12 == 0 && CFLAG:COUNT:25 == 0
			;労役設定がないためスキップ
			CONTINUE
		CASE CFLAG:COUNT:51 > 0
			PRINTFORML %조사처리(NAME:COUNT,"는")% 어딘가에 감금당했다････。
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE CFLAG:COUNT:53 > 0
			PRINTFORML %조사처리(NAME:COUNT,"는")% 입원 중이다････。
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE CFLAG:COUNT:10 >= 70
			PRINTFORML %조사처리(NAME:COUNT,"는")% 스트레스 때문에 오늘은 노역을 중지하고 쉬겠습니다.
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE BASE:COUNT:0 < 800
			PRINTFORML %조사처리(NAME:COUNT,"는")% 피로 때문에 오늘은 노역을 중지하고 쉬겠습니다.
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE EXTRA_WORK_IS_DOING(COUNT)
			PRINTFORML %조사처리(NAME:COUNT,"는")% %조사선택(STRFORM("%"+"FUNC_STR_INDEX_CALL(\"EXTRA_WORK_NAME\",CFLAG:COUNT:1100)"+"%"), "를")% 개시합니다
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE CFLAG:COUNT:1012 > 0
			PRINTFORML %조사처리(NAME:COUNT,"는")% %조사처리(NAME:(CFLAG:COUNT:1012),"를")% 유혹합니다
			CFLAG:COUNT:12 = 0
			CONTINUE
		CASE CFLAG:COUNT:12 == 1 || (CFLAG:COUNT:12 == 0 && CFLAG:COUNT:25 == 1)
			PRINTFORML %조사처리(NAME:COUNT,"는")% 매춘을 개시합니다
			CFLAG:COUNT:12 = 1
			prostitutionCount += 1
		CASE CFLAG:COUNT:12 == 4 || (CFLAG:COUNT:12 == 0 && CFLAG:COUNT:25 == 2)
			PRINTFORML %조사처리(NAME:COUNT,"는")% 공중변소를 개시합니다
			CFLAG:COUNT:12 = 4
			toiletCount += 1
		CASE CFLAG:COUNT:12 == 3 || (CFLAG:COUNT:12 == 0 && CFLAG:COUNT:25 == 3)
			PRINTFORML %조사처리(NAME:COUNT,"는")% 아르바이트를 개시합니다
			CFLAG:COUNT:12 = 3
			arbeitCount += 1
		CASE CFLAG:COUNT:12 == 5 || (CFLAG:COUNT:12 == 0 && CFLAG:COUNT:25 == 4)
			PRINTFORML %조사처리(NAME:COUNT,"는")% 자경단 활동을 개시합니다
			CFLAG:COUNT:12 = 5
			vigilantCount += 1
	ENDSELECT
	SIF CFLAG:COUNT:12 != 0 && COUNT == ASSI
		ASSI = -1
REND
PRINTW
;売春
PROSTITUTION_SYSTEM = 1
SIF prostitutionCount > 0
	CALL SHOW_PROSTITUTION_CUSTOMER
PROSTITUTION_SYSTEM = 0
;Y = 0
SIF toiletCount > 0
	CALL NIGHT_TOILET
SIF arbeitCount > 0
	CALL NIGHT_ARBEIT
;入院
REPEAT CHARANUM
	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE
	SETCOLOR 0XDDA0DD
	IF BASE:COUNT:0 < 0 && CFLAG:COUNT:51 == 0 && CFLAG:COUNT:53 == 0
		PRINTFORMW ……무리를 너무 많이 한 탓일까 %조사처리(NAME:COUNT,"이")% 꼼짝도 하지 않는다
		PRINTFORMW 어쩔 수 없이 병원에 입원시키기로 했다
		CFLAG:COUNT:53 = 2
		CFLAG:COUNT:12 = 0
		SIF ASSI == COUNT
			ASSI = -1
		SIF TARGET == COUNT
			TARGET = -1
	ENDIF
	RESETCOLOR
REND

IF ASSI >= 0
	IF TALENT:ASSI:치료 == 1 && TALENT:ASSI:마술기능 == 1 && TARGET == -1
		SETCOLOR  0, 255, 0
		PRINTFORMW (치료)(마술기능)%조사처리(CALLNAME:ASSI,"는")% 모두를 치료 마술로 회복했다！　(전원의 체력+200)
		RESETCOLOR
	ELSEIF TALENT:ASSI:치료 == 1 && TARGET == -1
		SETCOLOR  0, 255, 0
		PRINTFORMW (치료)%조사처리(CALLNAME:ASSI,"는")% 모두를 치료했다！　(전원의 체력+100)
		RESETCOLOR
	ENDIF

	IF TALENT:ASSI:고무 == 1 && TALENT:ASSI:마술기능 == 1 && TARGET == -1
		SETCOLOR  0, 255, 0
		PRINTFORMW (고무)(마술기능)%조사처리(CALLNAME:ASSI,"는")% 모두를 마법의 힘으로 격려했다！　(전원의 스트레스-2)
		RESETCOLOR
	ELSEIF TALENT:ASSI:고무 == 1 && TARGET == -1
		SETCOLOR  0, 255, 0
		PRINTFORMW (고무)%조사처리(CALLNAME:ASSI,"는")% 모두를 응원했다！　(전원의 스트레스-1)
		RESETCOLOR
	ENDIF
ENDIF

CALL DAILY_TENTACLE()

REPEAT CHARANUM
	SIF COUNT == MASTER
		CONTINUE
	SIF IS_UNCONTACTABLE(COUNT)
		CONTINUE
	IF ASSI >= 0
		IF TALENT:ASSI:치료 == 1 && TALENT:ASSI:마술기능 == 1 && TARGET == COUNT
			SETCOLOR  0, 255, 0
			PRINTFORMW (치료)(마술기능)%조사처리(CALLNAME:ASSI,"는")% 치료 마술을 발동했다！　(조교대상자의 체력+400、전원의 체력+200))
			RESETCOLOR
		ELSEIF TALENT:ASSI:치료 == 1 && TARGET == COUNT
			SETCOLOR  0, 255, 0
			PRINTFORMW (치료)%조사처리(CALLNAME:ASSI,"는")% 모두를 치료했다！　(조교대상자의 체력+200、전원의 체력+100)
			RESETCOLOR
		ENDIF

		IF TALENT:ASSI:고무 == 1 && TALENT:ASSI:마술기능 == 1 && TARGET == COUNT
			SETCOLOR  0, 255, 0
			PRINTFORMW (고무)(마술기능)%조사처리(CALLNAME:ASSI,"는")% 모두를 마법의 힘으로 격려했다！　(조교대상자의 스트레스-3、전원의 스트레스-2)
			RESETCOLOR
		ELSEIF TALENT:ASSI:고무 == 1 && TARGET == COUNT
			SETCOLOR  0, 255, 0
			PRINTFORMW (고무)%조사처리(CALLNAME:ASSI,"는")% 모두를 응원했다！　(조교대상자의 스트레스-2、전원의 스트레스-1)
			RESETCOLOR
		ENDIF
	ENDIF

	SIF CFLAG:COUNT:12 == 2
		CFLAG:COUNT:12 = 1
;使っていない
;	SIF CFLAG:COUNT:12 == 1
;		Y += 1
	SIF CFLAG:COUNT:1012 > 0
		invitationCount += 1
REND
DRAWLINE
;新売春システムに伴い一括표시はコメントアウト
;[IF 売春一括指示]
;	;子宮内結界の配布
;	CALL HANDOUT_CONTRACEPTIO_BARRIER
;[ENDIF]

SIF invitationCount > 0
	CALL INVITATION_RESULT
SIF COUNT_RULED_CHARAS("CFLAG:index:1000 == 15") > 0
	CALL TENTACLE_INVITATION

;旧売春処理はコメントアウトしました
;IF Y > 0
;	CALL NIGHT_PROSTITUTION
;	CALL NIGHT_PROSTITUTION_VISITOR_UP(Y)
;ELSE
;	CALL NIGHT_PROSTITUTION_VISITOR_DOWN(5)
;ENDIF

@GET_BASEWORK_NAME(workerChara)
#FUNCTIONS
#DIM workerChara
SELECTCASE 1
	CASE CFLAG:workerChara:12 == 0 && CFLAG:workerChara:25 == 0
		THROW 기본 노역이 설정되어 있지 않습니다　：　%NAME:workerChara%
	CASE CFLAG:workerChara:12 == 1 || (CFLAG:workerChara:12 == 0 && CFLAG:workerChara:25 == 1)
		RETURNF "매춘"
	CASE CFLAG:workerChara:12 == 2
		RETURNF "매춘후"
	CASE CFLAG:workerChara:12 == 4 || (CFLAG:workerChara:12 == 0 && CFLAG:workerChara:25 == 2)
		RETURNF "공중변소"
	CASE CFLAG:workerChara:12 == 3 || (CFLAG:workerChara:12 == 0 && CFLAG:workerChara:25 == 3)
		RETURNF "아르바이트"
	CASE CFLAG:workerChara:12 == 5 || (CFLAG:workerChara:12 == 0 && CFLAG:workerChara:25 == 4)
		RETURNF "자경단"
	CASEELSE
		THROW 노역설정이 부정합니다　：　%NAME:workerChara%:{CFLAG:workerChara:12},{CFLAG:workerChara:25}
ENDSELECT


code:
;EVENT_P、EVENT_PREGNANCY、임신関連のイベント
;---------------------------------------------------------
;中田氏・임신フラグチェック
;---------------------------------------------------------
@IN_VAGINA
REPEAT CHARANUM
	T = COUNT
	;주인의 中田氏による임신判定
	IF CFLAG:T:101 > 0
		P = 1
		CALL NAKADASHI_CHECK
	ENDIF
	;조수→노예への中田氏による임신判定
	IF CFLAG:T:103 > 0
		P = 2
		CALL NAKADASHI_CHECK
	ENDIF
	;노예→조수への中田氏による임신判定
	IF CFLAG:T:104 > 0
		P = 3
		CALL NAKADASHI_CHECK
	ENDIF
	;娼館やレンタル時に客に膣射された場合の임신判定
	IF CFLAG:T:105 > 0
		P = 4
		CALL NAKADASHI_CHECK
	ENDIF
REND

;임신確定時の処理
REPEAT CHARANUM
	T = COUNT
	;임신確定時の処理
	IF TALENT:T:임신 == 0 && CFLAG:T:102 != 0 && CFLAG:T:110 == 0
;임신期間リアル化　10か月266ターン
;		CFLAG:T:110 = DAY + 20 + RAND:6
		CFLAG:T:110 = DAY + 266 + RAND:3
		;父親が주인
		SIF CFLAG:T:102 == 1
			CFLAG:T:111 = NO:MASTER
		;父親が조수
		SIF CFLAG:T:102 == 2
			CFLAG:T:111 = NO:ASSI
		;父親が노예
		SIF CFLAG:T:102 == 3
			CFLAG:T:111 = NO:TARGET
		;父親が顧客
		SIF CFLAG:T:102 == 4
			CFLAG:T:111 = -1
	ENDIF
REND

@NAKADASHI_CHECK
;中出しされた精子量に応じて確率処理
;チェックするフラグ設定
F = 101 + P
SIF P == 1
	F = 101

;임신オフなら関数終了
SIF FLAG:151
	RETURN 0

;中だしされてないなら関数終了
SIF CFLAG:T:F == 0
	RETURN 0

;대상が男なら関数終了
IF TALENT:T:남자
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;대상が로봇소녀なら関数終了
IF TALENT:T:로봇소녀
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;대상が영체なら関数終了
IF TALENT:T:영체
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;대상が불임なら関数終了
IF TALENT:T:불임
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;임신が既に確定している場合は関数終了
IF CFLAG:T:110 > 0
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;임신中 아니면 육아중は関数終了
IF TALENT:T:임신 || TALENT:T:육아중
	CFLAG:T:F = 0
	RETURN 0
ENDIF

;排卵剤の有無による定数設定
C = 3 - (CFLAG:T:109 * 2)

IF CFLAG:T:F >= 50
	SIF RAND:((1 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ELSEIF CFLAG:T:F >= 30
	SIF RAND:((2 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ELSEIF CFLAG:T:F >= 20
	SIF RAND:((3 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ELSEIF CFLAG:T:F >= 15
	SIF RAND:((4 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ELSEIF CFLAG:T:F >= 5
	SIF RAND:((5 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ELSEIF CFLAG:T:F >= 1
	SIF RAND:((6 + TALENT:T:230 * 2) * C) == 0
		CFLAG:T:102 = P
ENDIF

;判定を行った膣射のリセット
CFLAG:T:F = 0

;임신処理
@GET_CHILD
REPEAT CHARANUM
;20121121
;	IF TALENT:COUNT:임신 == 0 && CFLAG:COUNT:102 > 0 && CFLAG:COUNT:110 <= DAY+15 && CFLAG:COUNT:12 == 0
;労役と임신は関係が無い
	IF TALENT:COUNT:임신 == 0 && CFLAG:COUNT:102 > 0 && CFLAG:COUNT:110 <= DAY+236
		T = COUNT
		A = CFLAG:T:111
		CALL GET_CHILD_MESSAGE
	ENDIF
REND

@GET_CHILD_MESSAGE
REPEAT CHARANUM
	SIF NO:COUNT == A
		C = COUNT
REND

DRAWLINE

;ＮＴＬ임신時の文を加筆してみる
IF TALENT:T:남친있음 && TALENT:밀회 != 1 && TALENT:T:ＮＴＬ
	;平日
	IF FLAG:8 == 0
		IF TALENT:T:초등학생 || TALENT:T:중학생 || TALENT:T:고등학생 || TALENT:T:대학생 || TALENT:T:교사
			PRINTFORMW 방과후－
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 학교에서 있었던 일이나 아무래도 좋은 말을 할 뿐인、그것만으로도 즐거운 사랑하는 남자친구와의 한때……
		ELSEIF TALENT:T:사회인
			PRINTFORMW 일이 끝난 후－
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 아무래도 좋은 잡담을 말할 뿐인데、그것만으로 행복할 정도로 사랑하는 남자친구와의 한때……
		ELSE
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 아무래도 좋은 잡담을 말할 뿐인데、그것만으로 행복할 정도로 사랑하는 남자친구와의 한때……
		ENDIF
	;휴일
	ELSE
		PRINTFORMW 휴일－
		PRINTFORM %조사처리(CALLNAME:T,"는")%
		CALL PARTNER_NAME, T
		PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 데이트를 하며 도중에 들른 카페에서 차를 즐기고 있었다
		PRINTFORMW 카페에 들리며 사랑하는 남자친구와의 즐거운 한때……
	ENDIF
	PRINTL
	PRINTFORM %조사처리(CALLNAME:T,"이")%
	CALL PARTNER_NAME, T
	PRINTFORML %조사만처리(PARTNER_NAME:T,"와")%의 시덥지 않은 이야기에 맞장구를 쳐주려던
	PRINTFORMW 그때、%조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
	PRINTL
	PRINTFORM 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 걱정하는
	CALL PARTNER_NAME, T
	PRINTFORMW 에게 말 한마디를 남기고、화장실로 뛰어들었다
	PRINTL
	PRINTFORML 메스꺼움의 원인……
	IF TALENT:T:초등학생
		PRINTFORML 초등학생인 %CALLNAME:T%의 안에서 단편적인 지식이 모여 가리키는 것
	ELSE
		PRINTFORML %마스터와%의 관계、늦어진 생리、구역질나는 기분
	ENDIF
	PRINTFORMW 세면대에서 구토에 견디던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
	PRINTL
	PRINTFORM 화장실을 나온 %조사처리(CALLNAME:T,"는")%
	CALL PARTNER_NAME, T
	PRINTFORML 에게 몸이 좋지않기 때문에 돌아간다고 말하고
	PRINTFORM 당황하는
	CALL PARTNER_NAME, T
	PRINTFORM %조사만처리(PARTNER_NAME:T,"를")% 남긴 채 카페를 뛰쳐나와、
	IF TALENT:T:초등학생
		PRINTFORMW 도망치듯 걸어갔다……
	ELSE
		PRINTFORMW 약국으로 발걸음을 옮겼다……
	ENDIF
	PRINTL
ELSEIF TALENT:T:남편있음 && TALENT:밀회 != 1 && TALENT:T:ＮＴＬ
	;平日
	IF FLAG:8 == 0
		IF TALENT:T:초등학생 || TALENT:T:중학생 || TALENT:T:고등학생 || TALENT:T:대학생 || TALENT:T:교사
			PRINTFORMW 방과후－
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 학교에서 있었던 일이나 아무래도 좋은 말을 할 뿐인、그것만으로도 즐거운 사랑하는 사람과의 한때……
		ELSEIF TALENT:T:사회인
			PRINTFORMW 일이 끝난 후－
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 아무래도 좋은 잡담을 말할 뿐인데、그것만으로 행복할 정도로 사랑하는 사람과의 한때……
		ELSE
			PRINTFORM 조금 시간을 낼 수 있었던 %조사처리(CALLNAME:T,"는")%
			CALL PARTNER_NAME, T
			PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 합류해서 들린 카페에서 차를 즐기고 있었다
			PRINTFORMW 아무래도 좋은 잡담을 말할 뿐인데、그것만으로 행복할 정도로 사랑하는 사람과의 한때……
		ENDIF
	;휴일
	ELSE
		PRINTFORMW 휴일－
		PRINTFORM %조사처리(CALLNAME:T,"는")%
		CALL PARTNER_NAME, T
		PRINTFORMW %조사만처리(PARTNER_NAME:T,"와")% 쇼필하러 나와서、도중에 들른 카페에서 차를 즐기고 있었다
		PRINTFORMW 차와 케이크、그리고 사랑하는 사람과의 대화를 즐기는 편안한 시간……
	ENDIF
	PRINTL
	PRINTFORM %조사처리(CALLNAME:T,"이")%
	CALL PARTNER_NAME, T
	PRINTFORML %조사만처리(PARTNER_NAME:T,"와")%와의 시덥지 않은 이야기에 맞장구를 쳐주려던
	PRINTFORMW 그때、%조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
	PRINTL
	PRINTFORM 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 걱정하는
	CALL PARTNER_NAME, T
	PRINTFORMW 에게 말 한마디를 남기고、화장실로 뛰어들었다
	PRINTL
	PRINTFORML 메스꺼움의 원인……
	IF TALENT:T:초등학생
		PRINTFORML 초등학생인 %CALLNAME:T%의 안에서 단편적인 지식이 모여 가리키는 것
	ELSE
		PRINTFORML %마스터와%의 관계、늦어진 생리、구역질나는 기분
	ENDIF
	PRINTFORMW 세면대에서 구토에 견디던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
	PRINTL
	PRINTFORM 화장실을 나온 %조사처리(CALLNAME:T,"는")%
	CALL PARTNER_NAME, T
	PRINTFORML 에게 몸이 좋지않기 때문에 먼저 돌아가는 것과 남은 물건들을 사달라고 부탁하고
	PRINTFORM 당황하는
	CALL PARTNER_NAME, T
	PRINTFORM %조사만처리(PARTNER_NAME:T,"를")% 남긴 채 카페를 뛰쳐나와、
	IF TALENT:T:초등학생
		PRINTFORMW 도망치듯 걸어갔다……
	ELSE
		PRINTFORMW 약국으로 발걸음을 옮겼다……
	ENDIF
	PRINTL
ELSEIF TALENT:T:좋아하는사람있음 && TALENT:밀회 != 1 && TALENT:T:ＮＴＬ
	PRINTFORMW %조사처리(CALLNAME:T,"는")% 자기 방에서 혼자 생각에 잠겨 있었다……
	PRINTL
	PRINTFORM 머릿속에 떠오른 건、
	CALL PARTNER_NAME, T
	PRINTFORMW 의 얼굴
	PRINTL
	PRINTFORML 지금의 자신으로는 어울리지 않을지도 모른다
	PRINTFORM 그래도 이따금、
	CALL PARTNER_NAME, T
	PRINTFORMW 의 얼굴이 머리를 스친다
	PRINTL
	PRINTFORML %CALLNAME:MASTER%에게서 풀려난다면……
	PRINTFORMW 그렇게 생각하던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
	PRINTL
	IF TALENT:T:초등학생
		PRINTFORML 초등학생인 %CALLNAME:T%의 안에서 단편적인 지식이 모여 가리키는 것
	ELSE
		PRINTFORML %마스터와%의 관계、늦어진 생리、구역질나는 기분
		PRINTFORML 갑작스러운 일에 입가를 누르고 세면대에 달려든 %CALLNAME:T%의 뇌리에 떠오르는 추측
	ENDIF
	PRINTFORMW 세면대에서 토하던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
;	PRINTL
;	PRINTL
;	PRINTFORMW それから少しして、%조사처리(CALLNAME:T,"는")% ふらつく足取りで家を出ると薬局を目指し歩いて行った……
	PRINTL
;ELSEIF TALENT:T:ＮＴＬ

ELSE
	CALL GET_CALENDER
	PRINTFORML {M}月 {D}日
	IF CFLAG:T:52 >= 1
		PRINTFORMW 감금당하고 있는 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
		PRINTL
		PRINTFORML 메스꺼움의 원인……
		PRINTFORML 최근의 성행위 경향、늦어진 생리、구역질나는 기분
		PRINTFORMW 감금되어 고독을 견디던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
	ELSEIF CFLAG:T:53 >= 1
		PRINTFORMW 병원에 입원해 있는 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
		PRINTL
		PRINTFORMW 『――양성입니다』
		PRINTFORML 입원한 경위를 아는 간호사는 우물쭈물 말했다
		PRINTFORMW %조사처리(CALLNAME:T,"는")% 그 설명을 마치 남일처럼 듣고 있었다……
	;平日
	ELSEIF FLAG:8 == 0
		IF TALENT:T:초등학생 || TALENT:T:중학생 || TALENT:T:고등학생 || TALENT:T:대학생
			PRINTFORMW 교실에서 수업을 듣고 있었던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
			PRINTL
			PRINTFORMW 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 걱정하는 교사에게 말 한마디를 남기고、화장실로 뛰어 들어갔다
		ELSEIF TALENT:T:교사
			PRINTFORMW 교실에서 수업을 진행하던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
			PRINTL
			PRINTFORMW 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 걱정하는 학생들에게 말 한마디를 남기고、화장실로 뛰어 들어갔다
		ELSEIF TALENT:T:사회인
			PRINTFORMW 업무를 진행하던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
			PRINTL
			PRINTFORMW 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 걱정하는 동료에게 말 한마디를 남기고、화장실로 뛰어 들어갔다
		ELSE
			PRINTFORMW 사소한 볼일을 처리하려고 거리를 걷던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
			PRINTL
			PRINTFORMW 갑작스러운 일에 당황하면서도 %조사처리(CALLNAME:T,"는")% 가까이 있는 화장실로 뛰어 들어갔다
		ENDIF
		PRINTL
		PRINTFORML 메스꺼움의 원인……
		PRINTFORML %마스터와%의 관계、늦어진 생리、구역질나는 기분
		PRINTFORMW 독실 안에서 구역질을 견디던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
	;휴일
	ELSE
		PRINTFORMW 자기 방에서 혼자 생각에 잠겨 있었던 %조사처리(CALLNAME:T,"를")% 급격한 역겨움과 메스꺼움이 엄습했다
		PRINTL
		IF TALENT:T:초등학생
			PRINTFORML 초등학생인 %CALLNAME:T%의 안에서 단편적인 지식이 모여 가리키는 것
		ELSE
			PRINTFORML %마스터와%의 관계、늦어진 생리、구역질나는 기분
		ENDIF
		PRINTFORML 갑작스러운 일에 입가를 누르고 세면대에 달려든 %CALLNAME:T%의 뇌리에 떠오르는 추측
		PRINTFORMW 세면대에서 토하던 %CALLNAME:T%의 얼굴에서 핏기가 가셨다……
	ENDIF
	PRINTL
ENDIF

PRINTFORMW %CALLNAME:T%의 모습이 이상하다……
IF CFLAG:T:111 != -1
	PRINTFORML %조사처리(CALLNAME:T,"는")% %CALLNAME:C%의 자식을 잉태한 모양이다
ELSE
	PRINTFORML %조사처리(CALLNAME:T,"는")% 이름도 모르는 남자의 자식을 잉태한 모양이다
ENDIF
PRINTS NAME:T
PRINT は
PRINT [
PRINTFORM %TALENTNAME:303%
PRINT ]
PRINTW した
TALENT:T:임신 = 1
CALL CHANGE_N_STATUS

;ここで일기への加筆処理
IF CFLAG:T:111 != -1
	CALL DIARY_SET,@"%조사처리(NAME:T,"가")% "+NAME:C+"의 자식을 임신했다."
ELSE
	CALL DIARY_SET,@"%조사처리(NAME:T,"가")% 이름도 모르는 남자의 자식을 임신했다"
ENDIF

@CHANGE_N_STATUS
;임신時のステータスの変化
;共通処理
;체력上限を減らす
IF MAXBASE:T:체력 > 1000
	CFLAG:T:임신의체력상한변화량 = 500
ELSEIF MAXBASE:T:체력 > 1
	CFLAG:T:임신의체력상한변화량 = MAXBASE:T:체력 / 2
ELSE
	CFLAG:T:임신의체력상한변화량 = 0
ENDIF
MAXBASE:T:체력 -= CFLAG:T:임신의체력상한변화량
CFLAG:T:스트레스치 += (500 - CFLAG:T:임신의체력상한변화량)/501
BASE:T:체력 = MAX(1, MAXBASE:T:체력);　체력が上限超えられないように

;乳がワンランクパワーアップする
;絶→貧　貧→普　普→巨　巨・爆→そのまま
IF TALENT:T:240 == 1
	PRINTFORMW %CALLNAME:T%의 가슴이
	PRINT [
	PRINTFORM %TALENTNAME:240%
	PRINT ]
	PRINT 에서
	PRINT [
	PRINTFORM %TALENTNAME:239%
	PRINT ]
	PRINTFORMW 정도로 커졌다
	TALENT:T:240 = 0
	TALENT:T:239 = 1
	CFLAG:T:임신의가슴변화 = 2
ELSEIF TALENT:T:239 == 1
	PRINTFORMW %CALLNAME:T%의 가슴이
	PRINT [
	PRINTFORM %TALENTNAME:239%
	PRINT ]
	PRINTW 에서 평범한 정도로 커졌다
	PRINTFORMW
	TALENT:T:239 = 0
	CFLAG:T:임신의가슴변화 = 0
ELSEIF TALENT:T:241 == 0 && TALENT:T:242 == 0
	PRINTFORMW %CALLNAME:T%의 가슴이 평범한 정도에서
	PRINT [
	PRINTFORM %TALENTNAME:241%
	PRINT ]
	PRINTW 정도로 커졌다
	PRINTFORMW
	TALENT:T:241 = 1
	CFLAG:T:임신의가슴변화 = 0
ELSEIF TALENT:T:241 || TALENT:T:242	;修正案　巨・爆の場合CFLAG:임신의가슴변화 = 1
	CFLAG:T:임신의가슴변화 = 1
ENDIF

;모유出るようになる
IF TALENT:T:299 == 0
	PRINTFORMW %조사처리(CALLNAME:T,"는")% 모유가 나오게 되었다
	PRINTFORMW
	TALENT:T:299 = 1
ENDIF

;스트레스値の処理
B = 100
;父親が주인
IF CFLAG:T:102 == 1
	;연모 아니면 친애
	SIF TALENT:T:3 || TALENT:T:6
		B -= 100
	;음란 아니면 창녀
	SIF TALENT:T:4 || TALENT:T:7
		B -= 40
	;복종 아니면 예속
	SIF TALENT:T:5 || TALENT:T:8
		B -= 70
	;동화 아니면 모판
	SIF TALENT:T:동화 || TALENT:T:모판
		B -= 50
;父親が노예または조수
ELSEIF CFLAG:T:102 == 2 || CFLAG:T:102 == 3
	;연모 아니면 친애
	SIF TALENT:T:3 || TALENT:T:6
		B -= 40
	;음란 아니면 창녀
	SIF TALENT:T:4 || TALENT:T:7
		B -= 70
	;복종 아니면 예속
	SIF TALENT:T:5 || TALENT:T:8
		B -= 60
	;동화 아니면 모판
	SIF TALENT:T:동화 || TALENT:T:모판
		B -= 70
;父親が顧客
ELSEIF CFLAG:T:102 == 4
	;연모 아니면 친애
	SIF TALENT:T:3 || TALENT:T:6
		B -= 10
	;음란 아니면 창녀
	SIF TALENT:T:4 || TALENT:T:7
		B -= 40
	;복종 아니면 예속
	SIF TALENT:T:5 || TALENT:T:8
		B -= 60
	;동화 아니면 모판
	SIF TALENT:T:동화 || TALENT:T:모판
		B -= 100
ENDIF

;相性による変動
IF A != -1
	IF RELATION:T:A != 0
		B *= RELATION:T:A
		B /= 100
	ENDIF
ENDIF

;その他素質による補正
;꿋꿋함
SIF TALENT:T:22
	B -= 10
;무관심
SIF TALENT:T:51
	B -= 5
;감정부족
SIF TALENT:T:52
	B -= 10
;낙관적
SIF TALENT:T:55
	B -= 5
;비관적
SIF TALENT:T:56
	B += 5
;정조관념
SIF TALENT:T:80
	B += 10
;정조무관심
SIF TALENT:T:81
	B -= 10

SIF B < 0
	B = 0

CFLAG:T:10 += B

;스트레스値の累積が100を超えた場合
IF CFLAG:T:10 >= 100 && TALENT:T:9 == 0
	PRINTFORMW %조사처리(CALLNAME:T,"는")% 임신을 나타내는 선이 뚜렷하게 드러난 검사약을 손에 든 채 멍한 표정을 짓고 있다
	PRINTFORMW %CALLNAME:T%의 안에서 무언가가 부서져 버린 것 같다.
	PRINTFORM %조사처리(CALLNAME:T,"는")% [
	PRINTFORM %TALENTNAME:9%
	PRINTW ]해버렸다
	PRINTL
;붕괴による素質の変化をコメントアウト
;	IF TALENT:T:3 || TALENT:T:4 || TALENT:T:5 || TALENT:T:6 || TALENT:T:7 || TALENT:T:8
;		PRINTFORM %조사처리(CALLNAME:T,"는")% [
;		SIF TALENT:T:3
;			PRINTFORM %TALENTNAME:3%
;		SIF TALENT:T:4
;			PRINTFORM %TALENTNAME:4%
;		SIF TALENT:T:5
;			PRINTFORM %TALENTNAME:5%
;		SIF TALENT:T:6
;			PRINTFORM %TALENTNAME:6%
;		SIF TALENT:T:7
;			PRINTFORM %TALENTNAME:7%
;		SIF TALENT:T:8
;			PRINTFORM %TALENTNAME:8%
;		PRINTW ]を失った
;		SIF TALENT:T:3
;			TALENT:T:3 = 0
;		SIF TALENT:T:4
;			TALENT:T:4 = 0
;		SIF TALENT:T:5
;			TALENT:T:5 = 0
;		SIF TALENT:T:6
;			TALENT:T:6 = 0
;		SIF TALENT:T:7
;			TALENT:T:7 = 0
;		SIF TALENT:T:8
;			TALENT:T:8 = 0
;	ENDIF

	CALL DIARY_SET,"임신한 사실을 견디지 못하고 "+NAME:T+"의 정신은 붕괴해버렸다."

	TALENT:T:붕괴 = 1
	V = TARGET
	TARGET = T
;	CALL EVENT_CHANGE_TALENT_HOUKAI		;	素質の変化
	TARGET = V
ENDIF

V = TARGET
TARGET = T
U = 0
IF ASSI
	IF ASSI == T
		U = 1
		W = ASSI
	ENDIF
ENDIF
;임신発깨우침時のイベント입上
TFLAG:13 = 11
CALL KOJO_MESSAGE_EVENT
TARGET = V
SIF U
	ASSI = W

;臨月到達
@REACH_FULL_TERM
PRINTFORML %조사처리(CALLNAME:C,"는")% 산월을 맞이했습니다
PRINTFORMW %조사처리(CALLNAME:C,"는")% 출산에 대비하여 육아실로 이동합니다
SIF TARGET == C
	TARGET = -1
SIF ASSI == C
	ASSI = -1

;出産
@CHILD_BIRTH
T = TARGET
REPEAT CHARANUM
	SIF NO:COUNT == CFLAG:C:111
		F = COUNT
REND
IF CFLAG:C:111 >= 0
	PRINTFORMW %조사처리(CALLNAME:C,"는")%、%CALLNAME:F%의 자식을 무사히 출산했습니다
ELSE
	PRINTFORMW %조사처리(CALLNAME:C,"는")% 자식을 무사히 출산했습니다
ENDIF

;ここで일기への加筆処理
IF CFLAG:C:111 != -1
	CALL DIARY_SET,@"%조사처리(NAME:C,"가")% "+NAME:F+"의 자식을 출산했다."
ELSE
	CALL DIARY_SET,@"%조사처리(NAME:C,"가")% 이름도 모르는 남자의 자식을 출산했다."
ENDIF

U = 0
IF ASSI >= 0
	SIF ASSI == C
		U = 1
ENDIF
TARGET = C
;出産時のイベント입上
TFLAG:13 = 12
CALL KOJO_MESSAGE_EVENT
TARGET = T
SIF U
	ASSI = C

;임신を失う
TALENT:C:임신 = 0
;출산경험を増やす
EXP:C:60 += 1

$INPUT_LOOP
;育児放棄をした場合
IF TALENT:C:9
	;育児放棄の際の赤子の処置
	A = 0
	REPEAT CHARANUM
		SIF TALENT:COUNT:임신 == 0 && (TALENT:COUNT:154 || TALENT:COUNT:155) && CFLAG:COUNT:12 == 0
			A += 1
	REND
	IF A > 0
		PRINTFORMW 태어난 아기를 다른 노예에게 맡길지 입양 보낼지 선택해주세요
		PRINTW
		CALL DISPLAY_COMMON , 14

		IF RESULT == 999
			PRINTFORMW %마스터는% 할 수 없이 아기를 입양보냈습니다
		ELSE
			PRINTFORMW %마스터는% %CALLNAME:RESULT%에게 유모를 시키기로 했습니다.
			;育児期間を設定する
			CFLAG:RESULT:110 = DAY+5
			IF TALENT:RESULT:육아중 == 0
				TALENT:RESULT:육아중 = 1
				SIF RESULT == TARGET
					TARGET = -1
				SIF RESULT == ASSI
					TARGET = -1
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW %마스터는% 할 수 없이 아기를 입양보냈습니다
	ENDIF
	;임신時に減った체력の最大値が回復
	MAXBASE:C:체력 += CFLAG:C:임신의체력상한변화량
	;임신時に大きくなった가슴のサイズを一段小さくする
	CALL REVERSE_B_SIZE
	CALL CLEAR_FLAG
;育児に入った場合
ELSE
	PRINTFORML %조사처리(CALLNAME:C,"는")% 육아실에서 육아를 시작했다
	CFLAG:C:101 = 0
	CFLAG:C:102 = 0
	CFLAG:C:103 = 0
	CFLAG:C:104 = 0
	CFLAG:C:105 = 0
	TALENT:C:육아중 = 1
	;연모･친애持ちで父親が주인
	IF (TALENT:C:3 || TALENT:C:6) && CFLAG:C:111 == NO:MASTER && TALENT:C:모성 == 0
		PRINT 아무래도
		PRINTFORM %조사처리(CALLNAME:C,"는")%[
		PRINTFORM %TALENTNAME:305%
		PRINTW ]에 눈을 뜬 모양이다
		TALENT:C:모성 = 1
	ENDIF
ENDIF

@CHILD_CARE_ROOM_SELECT
PRINTFORML %CALLNAME:C%의 모습을 보러 갑니까？
PRINTL [0] - 육아실에 간다
PRINTL [1] - 육아실에 가지 않는다
$INPUT_LOOP
INPUT
IF RESULT == 0
	TFLAG:700 = 1
	TFLAG:701 = DAY
	TFLAG:702 = TIME
	CALL CHILD_CARE_ROOM
ELSEIF RESULT == 1
	DRAWLINE
ELSE
	GOTO INPUT_LOOP
ENDIF

@CHILD_CARE_ROOM
CALL DISPLAY_COMMON , 15
SIF RESULT == 999
	RETURN 0

PRINTFORML %마스터는% %CALLNAME:RESULT%의 방으로 향했다
PRINTW
;育児室のイベント입上
A = TARGET
TARGET = RESULT
TFLAG:13 = 13
CALL KOJO_MESSAGE_EVENT
TARGET = A
PRINTL
RESTART

;親離れ
@DEPEARENT
PRINTFORML %CALLNAME:C%의 양육하던 자식이 독립했습니다
PRINTW
PRINTFORMW %조사처리(CALLNAME:C,"는")% 다시 조교가능하게 되었습니다
;임신時に減った체력の最大値が回復
MAXBASE:C:체력 += CFLAG:C:임신의체력상한변화량
TALENT:C:육아중 = 0
;임신時に大きくなった가슴のサイズを一段小さくする
CALL REVERSE_B_SIZE
SIF RESULT
	PRINTFORMW %CALLNAME:C%의 가슴은 모유를 주는 역할을 마치면서 작아졌습니다.
CALL CLEAR_FLAG

;親離れ時のイベント입上
A = TARGET
TARGET = C
TFLAG:13 = 14
CALL KOJO_MESSAGE_EVENT
TARGET = A

;임신まわりのフラグをリセット
@CLEAR_FLAG
CFLAG:C:101 = 0
CFLAG:C:102 = 0
CFLAG:C:103 = 0
CFLAG:C:104 = 0
CFLAG:C:105 = 0
CFLAG:C:110 = 0
CFLAG:C:111 = 0
CFLAG:C:임신의가슴변화 = 0
CFLAG:C:임신의체력상한변화량 = 0

;子育て終了or임신強制終了時の가슴サイズの縮小処理
@REVERSE_B_SIZE
IF CFLAG:C:임신의가슴변화 == 0
	;爆→巨　巨→普　普→貧　貧・絶→そのまま
	IF TALENT:C:폭유
		TALENT:C:폭유 = 0
		TALENT:C:거유 = 1
	ELSEIF TALENT:C:거유
		TALENT:C:거유 = 0
	ELSEIF TALENT:C:빈유 == 0 && TALENT:C:절벽 == 0
		TALENT:C:빈유 = 1
	ENDIF
	RETURN 1;小さくしました
ENDIF
RETURN 0;変化なし

;育児室にいるかの判定
@CHECK_CHILD_CARE
RETURN CHECK_CHILD_CARE_CORE(C)

@CHECK_CHILD_CARE_CORE(targetChara)
#FUNCTION
#DIM targetChara
SIF (TALENT:targetChara:임신 && CFLAG:targetChara:110 - 3 <= DAY) || TALENT:targetChara:육아중
	RETURNF 1

RETURNF 0

repo_name: Catalyst/B

license: unknown


code:
;EVENT_S.ERB、EVENT_SUB、追加処理及びサブイベント
;-------------------------------------------------
;日付が変わった時のイベント
;-------------------------------------------------
@EVENT_NEXTDAY
$INPUT_LOOP
;不思議の根持ちで정액経験が300이상で生える
IF TARGET >= 0
	IF TALENT:TARGET:288 == 1 && EXP:TARGET:20 >= 300 && TALENT:289 == 0 && TALENT:290 == 0
		DRAWLINE
		PRINTFORML ……아무래도 [신비한뿌리]의 효과가 나타날 것 같다
		PRINTFORMW %타겟이름을% [후타나리]로 할까요？
		PRINTL [0] - 한다
		PRINTL [1] - 하지 않는다
		INPUT
		IF RESULT == 0
			PRINTFORML %NAME:TARGET%의 [신비한뿌리]는 [후타나리]가 되었다
			TALENT:289 = 1
		ELSEIF RESULT == 1
			PRINTFORML %조사처리(NAME:TARGET,"은")% [신비한뿌리]를 잃었다
		ELSE
			GOTO INPUT_LOOP
		ENDIF
		DRAWLINE
		WAIT
		TALENT:TARGET:288 = 0
	ENDIF
ENDIF

$INPUT_LOOP_2
;구현持ちで레즈경험2500이상で生える
IF TARGET >= 0
	IF TALENT:TARGET:296 == 1 && EXP:TARGET:40 >= 2500 && TALENT:289 == 0 && TALENT:290 == 0
		DRAWLINE
		PRINTFORML ……아무래도 [구현]의 효과가 나타날 것 같다
		PRINTFORML %타겟이름을% [후타나리]로 할까요？
		PRINTL [0] - 하지 않는다
		PRINTL [1] - 하지 않는다
		INPUT
		IF RESULT == 0
			PRINTFORML %조사처리(NAME:TARGET,"은")% [구현]에 의해 [후타나리]가 되었다
			TALENT:289 = 1
		ELSEIF RESULT == 1
			PRINTFORML %조사처리(NAME:TARGET,"은")% [구현]을 잃었다
		ELSE
			GOTO INPUT_LOOP_2
		ENDIF
		DRAWLINE
		WAIT
		TALENT:TARGET:296 = 0
	ENDIF
ENDIF

;방뇨경험３００이상、Ｕ개발경험１００이상で오줌싸개버릇がつく
IF TARGET >= 0
	IF TALENT:127 == 0
		IF (TALENT:TARGET:유치 && EXP:TARGET:31 >= 100 && EXP:TARGET:16 >= 30) || (TALENT:TARGET:유치 == 0 && EXP:TARGET:31 >= 300 && EXP:TARGET:16 >= 100)
			PRINTFORMW （무･･･뭐야 이거？）
			PRINTFORM %타겟호칭은%
			SIF TALENT:TARGET:유치 && EXP:TARGET:31 >= 100 && EXP:TARGET:16 >= 30
			PRINTFORM 야뇨를
			SIF TALENT:TARGET:유치 == 0 && EXP:TARGET:31 >= 300 && EXP:TARGET:16 >= 100
			PRINTFORM 실수를
			PRINTFORMW 지려버린 것 같다……
			PRINTFORMW %타겟호칭은% [오줌싸개버릇]이 붙었다
			TALENT:TARGET:127 = 1
		ENDIF
	ENDIF
ENDIF

IF TARGET >= 0
	;반발각인３があり、또한유치である時に
	IF TALENT:TARGET:301 && MARK:3 == 3
		;욕망이 5또한순종が5또한마조끼が5또한이상경험が７이상になる
		SIF ABL:TARGET:1 >= 5 && ABL:TARGET:0 >= 5 && ABL:TARGET:9 >= 5 && EXP:TARGET:50 >= 7
			CALL EVENT_YOUJI
	;반발각인３があり、또한유치がない時
	ELSEIF TALENT:TARGET:301 == 0 && MARK:3 == 3
		;욕망이 5또한순종が5또한마조끼が5또한이상경험が９이상に加え노출５と오줌싸개버릇がある
		SIF ABL:TARGET:1 >= 5 && ABL:TARGET:0 >= 5 && ABL:TARGET:9 >= 5 && ABL:TARGET:8 >= 5 && EXP:TARGET:50 >= 9 && TALENT:127 == 1
			CALL EVENT_YOUJI
	ENDIF
ENDIF

;トロフィー機能が定義されていた場合、トロフィー獲得を行う
[IF TROPHY_DEFINE]
	CALL GET_TROPHY, TROPHY_TIME_NEXTDAY
[ENDIF]

;除外されたキャラを조수等から外す
CALL RESET_RELEASED_CHARA_SETTING()

;노예と道具の維持費の処理
;STARTモード限定でEASYでは20日、NORMALでは15日、HARDでは10日免除
;A = 300
;B = 25-FLAG:4*5
;REPEAT 25
;	SIF ITEM:COUNT
;		A += 50
;REND
;A += CHARANUM*200
;A -= 100
;労役中の노예は除く
;REPEAT CHARANUM
;	SIF CFLAG:COUNT:12 > 0
;		A -= 200
;REND
;IF FLAG:5 == 0 && A && DAY > B
;	PRINTFORML 노예と道具の維持費、生活費に${A}かかった……
;	MONEY -= A
;ENDIF

@EVENT_YOUJI
;유아퇴행
PRINTFORMW %CALLNAME:TARGET%의 모습이 이상하다……
PRINTFORMW %타겟호칭은% 가혹한 조교를 견디지 못하고【유아퇴행】해 버린 것 같다……
SIF TALENT:301
	TALENT:301 = 0
TALENT:300 = 1
MARK:3 = 0

;-------------------------------------------------
;朝になった時のイベント
;-------------------------------------------------
@EVENT_NEWDAY
;屋台の借金返済イベント
;SIF FLAG:23 == 1 && MONEY >= 100000
;	CALL RETURN_LOAN

;노예レンタルの期日が来た場合の노예返却処理
;REPEAT CHARANUM
;	IF CFLAG:COUNT:12 == 1 && CFLAG:COUNT:13 == DAY
;		A = COUNT
;		CALL RETURN_SLAVE
;	ENDIF
;REND

;娼館バイトが終わった場合の終了処理
;REPEAT CHARANUM
;	IF CFLAG:COUNT:12 == 2
;		A = COUNT
;		CALL END_PROSTITUTION
;	ENDIF
;REND

;売春キャラの相손リセット処理
;監禁キャラの返却処理(該当箇所　NIGHT_PROSTITUTION2.ERB.ERB　@REPAYMENT_PROSTITUTE)
REPEAT CHARANUM
	CFLAG:COUNT:14 = 0
	IF CFLAG:COUNT:52 > 0 && CFLAG:COUNT:51 >=1
		CFLAG:COUNT:51 -= 1
		IF CFLAG:COUNT:51 == 0
			CALL REPAYMENT_PROSTITUTE, (COUNT)
			PRINTL
			SETCOLOR 0XDDA0DD
			PRINTFORM %조사처리(NAME:COUNT,"는")% 『
			SETCOLOR 0xFFD700
			PRINTFORM %CUSTOMERNAME1:(CFLAG:COUNT:52)%
			RESETCOLOR
			SETCOLOR 0XDDA0DD
			PRINTFORMW 』에서 반환되었습니다！
			RESETCOLOR
			CUSTOMER:(CFLAG:COUNT:52):64 = 0
			CUSTOMER:(CFLAG:COUNT:52):12 = 0
			CFLAG:COUNT:52 = 0
			PRINTL
		ENDIF
	ENDIF
REND
;入院
REPEAT CHARANUM
	IF BASE:COUNT:0 < 0 && CFLAG:COUNT:51 == 0 && CFLAG:COUNT:53 == 0
		SETCOLOR 0XDDA0DD
		PRINTFORMW 심하게 능욕 당했는지 %조사처리(NAME:COUNT,"이")% 꼼짝도 하지 않는다
		PRINTFORMW 어쩔 수 없이 병원에 입원시키기로 했다
		CFLAG:COUNT:53 = 2
		CFLAG:COUNT:12 = 0
		SIF ASSI == COUNT
			ASSI = -1
		RESETCOLOR
		PRINTL
	ENDIF
REND

;全体の임신判定の処理
CALL IN_VAGINA

;全体の임신発깨우침時のイベント
CALL GET_CHILD

;배란유발제と子宮内피임결계の効果終了処理
REPEAT CHARANUM
	IF CFLAG:COUNT:108
		PRINTFORMW %CALLNAME:COUNT%의 자궁내피임결계 효과가 끊어진 것 같다
		CFLAG:COUNT:108 = 0
	ELSEIF CFLAG:COUNT:109
		PRINTFORMW %CALLNAME:COUNT%의 배란유발제 효과가 끊어진 것 같다
		CFLAG:COUNT:109 = 0
	ENDIF
REND

ITEM:냉정아로마 = 0
ITEM:흥분아로마 = 0
ITEM:촉수활성화약 = 0

;出産･育児室関連
REPEAT CHARANUM
	C = -1
	IF TALENT:COUNT:303
		;イベントなどで出産日をスキップした場合、即出産処理を行うように
		SIF CFLAG:COUNT:110 < DAY
			CFLAG:COUNT:110 = DAY
		;出産3日前からは臨月突入で조교不可に
		IF (CFLAG:COUNT:110 - 3) == DAY
			DRAWLINE
			C = COUNT
			CALL REACH_FULL_TERM
		;出産前日には育児室への訪問を問うイベント発生
		ELSEIF (CFLAG:COUNT:110 - 1) == DAY && TFLAG:701 != DAY
			DRAWLINE
			PRINTFORML %조사처리(CALLNAME:COUNT,"는")% 출산이 가까워진 것 같다……
			C = COUNT
			CALL CHILD_CARE_ROOM_SELECT
		;出産予定日なら出産
		ELSEIF CFLAG:COUNT:110 == DAY
			DRAWLINE
			C = COUNT
			CALL CHILD_BIRTH
		ENDIF
	ELSEIF TALENT:COUNT:304
		;出産後翌日には育児室への訪問を問うイベント発生
		IF (CFLAG:COUNT:110 + 3) == DAY && TFLAG:701 != DAY
			DRAWLINE
			PRINTFORML %CALLNAME:COUNT%의 출산 이후 하루가 지났습니다
			C = COUNT
			CALL CHILD_CARE_ROOM_SELECT
		;出産後3日には育児室への訪問を問うイベント発生
		ELSEIF (CFLAG:COUNT:110 + 3) == DAY && TFLAG:701 != DAY
			DRAWLINE
			PRINTFORML %CALLNAME:COUNT%의 출산 이후 사흘이 지났습니다
			C = COUNT
			CALL CHILD_CARE_ROOM_SELECT
		;출산 후 5일째에 조교가능하게
		ELSEIF (CFLAG:COUNT:110 + 5) <= DAY
			DRAWLINE
			C = COUNT
			CALL DEPEARENT
		ENDIF
	ENDIF
	SIF C >= 0
		COUNT = C
REND

;제모時のカウンタ回復
COUNT = 0
REPEAT CHARANUM
	SIF TALENT:COUNT:246 < 0
		TALENT:COUNT:246 += 1;246,무모
REND

;売春の客の朝処理(該当箇所　PROSTITUTION_CUSTOMER.ERB　@PROSTITUTION_CUSTOMER_MORNING)
;客の来訪するまでの日数-1
;客の入退場
CALL PROSTITUTION_CUSTOMER_MORNING

;入院キャラの経過処理
REPEAT CHARANUM
	IF CFLAG:COUNT:53 >= 1
		SETCOLOR 0XDDA0DD
		PRINTFORMW %NAME:COUNT%의 비용으로 10000엔이 들었습니다（대출 +10000엔）
		MONEY:1 += 10000
		SIF BASE:COUNT:0 == MAXBASE:COUNT:0
			CFLAG:COUNT:53 -= 1
		SIF CFLAG:COUNT:53 <= 0
			PRINTFORMW %조사처리(NAME:COUNT,"는")% 건강해져서 퇴원한 것 같습니다.
		RESETCOLOR
	ENDIF
REND

;-------------------------------------------------
;PCを選択式にしてみる
;-------------------------------------------------
;@START_CHARA_SELECT
;TFLAG:100 = 0
;
;REPEAT 100
;	TFLAG:COUNT = ITEMSALES:COUNT
;	ITEMSALES:COUNT = 0
;REND

;CALL CHARA_LIST
;REPEAT 30
;	A = COUNT + TFLAG:100 * 30 + 200
;	B = TFLAG:A
;		ITEMSALES:B = 1
;REND
;
;CALL START_CHARA_SHOW

;$INPUT_LOOP
;INPUT
;IF RESULT == 1
;	IF TFLAG:100 > 0
;		CALL CHARA_LIST
;		REPEAT 30
;			A = COUNT + TFLAG:100 * 30 + 200 - 30
;			B = TFLAG:A
;			ITEMSALES:B = 1
;		REND
;		TFLAG:100 -= 1
;	ENDIF
;	;バグ対策。キャラ上限を超えるとITEMSALES:0が登録されるので
;	ITEMSALES:0 = 0
;
;	CALL START_CHARA_SHOW
;	GOTO INPUT_LOOP
;ELSEIF RESULT == 9
;	;最大ページ数と比較、ページ数変動の際は
;	IF TFLAG:100 < 3
;		CALL CHARA_LIST
;		REPEAT 30
;			A = COUNT + TFLAG:100 * 30 + 200 + 30
;			B = TFLAG:A
;			ITEMSALES:B = 1
;		REND
;		TFLAG:100 += 1
;	ENDIF
	;バグ対策。キャラ上限を超えるとITEMSALES:0が登録されるので
;	ITEMSALES:0 = 0

;	CALL START_CHARA_SHOW
;	GOTO INPUT_LOOP
;ELSEIF RESULT == 0
;	CALL CHARA_BUY_AFTER
;ELSE
;	C = RESULT + 1 - 100
;	D = RESULT + 1000 - 100
;	E = RESULT + 5000 - 100
	;キャラがいない＝フラグ値が0なら再入力
;	SIF FLAG:D == 0
;		GOTO INPUT_LOOP
;	ADDCHARA C
;	DELCHARA 0
;	MASTER = 0
;	FLAG:D = 0
;	FLAG:E = 1

;	PRINTFORMW プレイヤーを「%NAME:MASTER%」に設定します
;	SIF NO:MASTER == 90
;		CALL CHARA_RANDOM_STATE_M
;	CALL CHARA_BUY_AFTER
;ENDIF

;@START_CHARA_SHOW
;DRAWLINE
;PRINTL ★★プレイヤーを変更できます★★
;PRINTL ★★キャラを 선택해주세요★★

;PRINT_SHOPITEM

;DRAWLINE
;PRINT 　page
;PRINTV TFLAG:100
;PRINT 　[1]前のページ
;PRINTC [0]変更하지 않는다
;PRINTC [9]後のページ
;PRINTL


code:
;EVENT_T.ERB、EVENT_TRAIN、조교時及び조교前後のイベント
@EVENTTRAIN
#PRI
EXP:피조교경험++
;残り時間の設定　通常180分　タクシー120分
IF FLAG:24 == 1
	FLAG:24 = 120
ELSE
	FLAG:24 = 180
ENDIF

;주인공の사정を0に
BASE:MASTER:2 = 0
;いちおう조교대상と조수も
BASE:TARGET:2 = 0
SIF ASSI >= 0
	BASE:ASSI:2 = 0
BASE:TARGET:3 = 0
BASE:MASTER:4 = 0
CLOTH_SET_DESCRIPT_TEXT =

;사정限界数の確保
REPEAT CHARANUM
	IF COUNT == MASTER
		CFLAG:COUNT:11 = 10
		SIF TALENT:COUNT:302 == 1
			CFLAG:COUNT:11 += 5
	ELSEIF COUNT == ASSI
		CFLAG:COUNT:11 = 10
	ELSEIF COUNT == TARGET
		CFLAG:COUNT:11 = 10
	ENDIF
REND

;사정後の充填時間をリセット
CFLAG:MASTER:24 = 0
CFLAG:TARGET:24 = 0
SIF ASSI >= 0
	CFLAG:ASSI:24 = 0

;사정フラグ、처녀상실フラグなどをリセット
REPEAT 200
	TFLAG:COUNT = 0
REND

;질내に질더러움を付加
SIF TALENT:290 == 0
	STAIN:6 |= 1
SIF TALENT:MASTER:290 == 0
	STAIN:MASTER:6 |= 1
IF ASSI >= 0
	SIF TALENT:ASSI:290 == 0
		STAIN:ASSI:6 |= 1
ENDIF

;콘돔自動装着設定のリセット
FLAG:98 = 0

;콘돔사정フラグをリセット
CFLAG:107 = 0

;조교자は誰か
IF ASSIPLAY == 0
	PLAYER = MASTER
ELSE
	PLAYER = ASSI
ENDIF

;영구발정は最初から윤활+3000
SIF TALENT:영구발정 == 1
	PALAM:4 = 3000
SIF TALENT:영구발정 == 1 && TALENT:젖기쉬움 == 1
	PALAM:4 = 10000
SIF TALENT:영구발정 == 1 && TALENT:젖기어려움 == 1
	PALAM:4 = 1000
;強制勃起判定
SIF TALENT:음핵피어스 == 1
	PALAM:0 = 5000
SIF TALENT:유두피어스 == 1
	PALAM:3 = 5000

;初回全裸判定

IF CFLAG:TARGET:54 <= 3 && FLAG:1 == 3
	DOTRAIN 517
;初回下着判定（オンナ）
ELSEIF CFLAG:TARGET:54 == 0 && FLAG:1 == 2
	DOTRAIN 520
;初回下着判定（남자）
ELSEIF CFLAG:TARGET:54 == 0 && FLAG:1 == 2
	DOTRAIN 520
ENDIF

@EVENTTURNEND
#PRI
;売却や조수化が可能になったか
SIF TARGET < 0
	RETURN 0
;순종+욕망이 6未満はダメ
SIF ABL:0+ABL:1 < 6
	RETURN 0
;순종4 미만이면、반항적인 캐릭터는 복종 예속이야 하고、꿋꿋하면 안 돼
SIF ABL:0 < 4 && ((TALENT:21 && TALENT:5 == 0 && TALENT:8 == 0) || TALENT:22)
	RETURN 0
;욕망 4未満、자제심、억압、저항
SIF ABL:1 < 4 && (TALENT:50 || TALENT:82 || TALENT:84)
	RETURN 0
;기교 3이거나 봉사정신 3이상이거나 마조끼 3이상이거나 ＣＶＢＡ 감각 합계가 8이상이거나 5이상이거나 욕망이 5이상
IF ABL:2 >= 3 || ABL:7 >= 3 || ABL:9 >= 3 || ABL:3+ABL:4+ABL:5+ABL:6 >= 8 || ABL:0 >= 5 || ABL:1 >= 5
	IF CFLAG:1 <= 0
;		PRINTFORMW %조사처리(NAME:TARGET,"이")% 売却可能になりました
		CFLAG:1 = 1
	ENDIF
ELSE
	RETURN 0
ENDIF

IF ABL:0+ABL:1+ABL:2+ABL:11 >= 12
	IF CFLAG:1 <= 1
		PRINTFORMW %조사처리(NAME:TARGET,"이")% 조수가능이 되었습니다
		CFLAG:1 = 2
	ENDIF
ENDIF

@EVENTTURNEND
IF IS_NIGHT()
	IF TARGET >= 0
		;스트레스値の加算
		CFLAG:TARGET:10 += 1
		SIF MARK:3 > 2
			CFLAG:TARGET:10 += 1
		;스트레스値100이상で붕괴を得る
		SIF CFLAG:TARGET:10 >= 100 && TALENT:9 == 0
			CALL COLLAPSE_MIND_TRAIN
	ENDIF

	IF ASSI >= 0
		IF TALENT:ASSI:211 && ITEM:41 == 0
			PRINTW [요괴여우]의 효과로 미약을 손에 넣었습니다
			ITEM:41 = 1
		ENDIF
	ENDIF

	REPEAT 100
		SIF ITEM:COUNT < 0
			ITEM:COUNT = 0
	REND
ENDIF
CALL AFTER_SPTRAIN_EVENT
RETURN 0

@ASSI_CHANGE
;[여우]또한기교LV5、Ｃ감각LV5で처녀
IF TALENT:ASSI:210 && (ABL:ASSI:2 >= 5 && ABL:ASSI:3 >= 5 && TALENT:ASSI:0)
	DRAWLINE
	PRINTFORML %조사처리(NAME:ASSI,"은")% [요괴여우]가 되었다
	DRAWLINE
	WAIT
	TALENT:ASSI:210 = 0
	TALENT:ASSI:211 = 1
ENDIF

$INPUT_LOOP
;[신비한뿌리]또한Ｃ감각LV5、정액中毒LV3이상
IF TALENT:ASSI:288 && (ABL:ASSI:3 >= 5 && ABL:ASSI:16 >= 3) && TALENT:ASSI:289 == 0 && TALENT:ASSI:290 == 0
	DRAWLINE
	PRINTFORML ……아무래도 [신비한뿌리]의 효과가 나타날 것 같다
	PRINTFORMW %조사처리(CALLNAME:ASSI,"를")% [후타나리]로 합니까？
	PRINTL [0] - 한다
	PRINTL [1] - 하지 않는다
	INPUT
	IF RESULT == 0
		PRINTFORML %NAME:ASSI%의 [신비한뿌리]는 [후타나리]가 되었다
		TALENT:ASSI:289 = 1
	ELSEIF RESULT == 1
		PRINTFORML %조사처리(NAME:ASSI,"은")% [신비한뿌리]를 잃었다
	ELSE
		GOTO INPUT_LOOP
	ENDIF
	DRAWLINE
	WAIT
	TALENT:ASSI:288 = 0
ENDIF

$INPUT_LOOP_2
;[구현]또한욕망LV5か레즈끼LV4이상
IF TALENT:ASSI:296 && (ABL:ASSI:1 >= 5 || ABL:ASSI:11 >= 4) && TALENT:ASSI:289 == 0 && TALENT:ASSI:290 == 0
	DRAWLINE
	PRINTFORML ……아무래도 [구현]의 효과가 나타날 것 같다
	PRINTFORML %조사처리(CALLNAME:ASSI,"를")% [후타나리]로 합니까？
	PRINTL [0] - 한다
	PRINTL [1] - 하지 않는다
	INPUT
	IF RESULT == 0
		PRINTFORML %조사처리(NAME:ASSI,"은")% [구현]에 의해 [후타나리]가 되었다
		TALENT:ASSI:289 = 1
	ELSEIF RESULT == 1
		PRINTFORML %조사처리(NAME:ASSI,"은")% [구현]을 잃었다
	ELSE
		GOTO INPUT_LOOP_2
	ENDIF
	DRAWLINE
	WAIT
	TALENT:ASSI:296 = 0
ENDIF

ISASSI:ASSI = 1

RETURN 0

@YOUJI
;조교자가 유치
IF TALENT:PLAYER:301
	PRINTS NAME:PLAYER
	PRINT %조사만처리(NAME:PLAYER,"이")% 젖을 빠는 동안
	PRINTS NAME:TARGET
	PRINTW %조사만처리(NAME:TARGET,"은")% 모유가 나오게 되었다
	TALENT:299 = 1
ENDIF

@EVENTCOMEND

IF EXP:0 == 0 && EXP:1 > 0 && TALENT:80 && CFLAG:100
	CFLAG:100 = 1
	PRINTW 정조를 지킬 수 있다면 뒷구멍쯤이야 괴롭혀져도 상관없다고 생각하는 모양이다……
ENDIF

;構ったフラグ
@EVENTCOMEND
#PRI
SIF PLAYER == MASTER
	CFLAG:TARGET:121 = 1

;조교で【붕괴】を得た場合のイベント
@COLLAPSE_MIND_TRAIN
PRINTFORMW %CALLNAME:TARGET%의 모습이 이상하다
PRINTFORMW 격렬한 조교에 의해 、%CALLNAME:TARGET%의 정신에 이상이 생긴 것 같다
PRINTFORMW %조사처리(NAME:TARGET,"은")% 【붕괴】해 버렸다
TALENT:붕괴 = 1
;붕괴による素質の変化をコメントアウト
;IF TALENT:3 || TALENT:4 || TALENT:5 || TALENT:6 || TALENT:7 || TALENT:8
;	PRINTFORM %타겟호칭은% [
;	SIF TALENT:3
;		PRINTS TALENTNAME:3
;	SIF TALENT:4
;		PRINTS TALENTNAME:4
;	SIF TALENT:5
;		PRINTS TALENTNAME:5
;	SIF TALENT:6
;		PRINTS TALENTNAME:6
;	SIF TALENT:7
;		PRINTS TALENTNAME:7
;	SIF TALENT:8
;		PRINTS TALENTNAME:8
;	PRINTW ]を失った
;	SIF TALENT:3
;		TALENT:3 = 0
;	SIF TALENT:4
;		TALENT:4 = 0
;	SIF TALENT:5
;		TALENT:5 = 0
;	SIF TALENT:6
;		TALENT:6 = 0
;	SIF TALENT:7
;		TALENT:7 = 0
;	SIF TALENT:8
;		TALENT:8 = 0
;ENDIF
;素質の変化
;CALL EVENT_CHANGE_TALENT_HOUKAI

CALL DIARY_SET,"격렬한 조교에 의해 "+NAME:TARGET+"의 정신이 망가졌다."

@EVENTEND
#LATER
PRINTL 조교를 종료합니다.

;조교後行為のチェック
CALL SELF_CHECK

;搾乳した모유の売却
CALL SELL_MILK

;조교時に録画したビデオを売却
CALL SELL_VIDEO

;조교時に촬영한 사진を売却
CALL SELL_PICTURE

;무슨 구슬을 얻었는가
CALL JUEL_CHECK

;부정의 구슬の打ち消しチェック
CALL DENIAL_CHECK

;トロフィー機能が定義されていた場合、トロフィー獲得を行う
[IF TROPHY_DEFINE]
	CALL GET_TROPHY, TROPHY_TIME_TRAINEND
[ENDIF]

;衣服ステータスを初期化
VARSET CLOTH_STATUS,0

BEGIN ABLUP

@JUEL_CHECK
REPEAT 15
	IF PALAM:COUNT < PALAMLV:1
		G = 0
	ELSEIF PALAM:COUNT < PALAMLV:1*3
		G = 1
	ELSEIF PALAM:COUNT < PALAMLV:2
		G = 2
	ELSEIF PALAM:COUNT < PALAMLV:2*3
		G = 10
	ELSEIF PALAM:COUNT < PALAMLV:3
		G = 20
	ELSEIF PALAM:COUNT < PALAMLV:3*2
		G = 100
	ELSEIF PALAM:COUNT < PALAMLV:4
		G = 200
	ELSEIF PALAM:COUNT < PALAMLV:5
		G = 1000
	ELSEIF PALAM:COUNT < PALAMLV:6
		G = 2000
	ELSEIF PALAM:COUNT < PALAMLV:7
		G = 3000
	ELSEIF PALAM:COUNT < PALAMLV:8
		G = 5000
	ELSEIF PALAM:COUNT < PALAMLV:9
		G = 8000
	ELSEIF PALAM:COUNT < 1000000
		G = 12000
	ELSEIF PALAM:COUNT < 5000000
		G = 25000
	ELSEIF PALAM:COUNT < 30000000
		G = 40000
	ELSEIF PALAM:COUNT < 100000000
		G = 60000
	ELSE
		G = 100000
	ENDIF

	IF COUNT == 0
		GOTJUEL:COUNT = G + EX:0 * 1000
	ELSEIF COUNT == 1
		GOTJUEL:COUNT = G + EX:1 * 1000
	ELSEIF COUNT == 2
		GOTJUEL:COUNT = G + EX:2 * 1000
	ELSEIF COUNT == 3
		GOTJUEL:COUNT = G + EX:3 * 1000
	ELSEIF COUNT < 12
		GOTJUEL:COUNT = G
	ELSE
		GOTJUEL:100 += G
	ENDIF
;学校조교の処理用
	IF FLAG:10 == 1
		SIF COUNT == 6 || COUNT == 10
			TFLAG:300 += (G / 2)
	ENDIF
REND

DRAWLINE
PRINTL 조교의 결과：
D = 0
REPEAT 15
	IF COUNT == 0
		D = 0
	ELSEIF COUNT == 1
		D = 1
	ELSEIF COUNT == 2
		D = 2
	ELSEIF COUNT == 3
		D = 3
	ELSEIF COUNT == 4
		D = 4
	ELSEIF COUNT == 5
		D = 5
	ELSEIF COUNT == 6
		D = 6
	ELSEIF COUNT == 7
		D = 7
	ELSEIF COUNT == 8
		D = 8
	ELSEIF COUNT == 9
		D = 9
	ELSEIF COUNT == 10
		D = 10
	ELSEIF COUNT == 11
		D = 11
	ELSEIF COUNT == 12
		D = 12
	ELSEIF COUNT == 13
		D = 13
	ELSEIF COUNT == 14
		D = 14
	ENDIF

	IF D == 12
		PRINTFORML %PALAMNAME:100%의 구슬×({JUEL:100}+{GOTJUEL:100})
		JUEL:100 += GOTJUEL:100
	ELSEIF D != 4 && D != 13 && D != 14
		PRINTFORML %PALAMNAME:D%의 구슬×({JUEL:D}+{GOTJUEL:D})
		JUEL:D += GOTJUEL:D
	ENDIF

REND

PRINTW 이상의 구슬을 얻었습니다

@DENIAL_CHECK
SIF JUEL:100 == 0
	RETURN 0

$LABEL_1
A = RAND:3 + 5
B = JUEL:100 / 2
SIF B == 0 && JUEL:100 > 0
	B = 1
SIF JUEL:A < B
	B = JUEL:A
JUEL:A -= B
JUEL:100 -= B

SIF B > 0
	PRINTFORML %PALAMNAME:A%의 구슬×{B}감소
SIF JUEL:100 > 0 && (JUEL:5 + JUEL:6 + JUEL:7) > 0
	GOTO LABEL_1

$LABEL_2
A = RAND:3 + 5
B = JUEL:100 / 2
SIF B == 0 && JUEL:100 > 0
	B = 1
SIF JUEL:A < B
	B = JUEL:A
JUEL:A -= B
JUEL:100 -= B
SIF B > 0
	PRINTFORML %PALAMNAME:A%의 구슬×{B}개 감소
SIF JUEL:100 > 0 && (JUEL:5 + JUEL:6 + JUEL:7) > 0
	GOTO LABEL_2

DRAWLINE
PRINTL 부정의 구슬이 다른 구슬을 부정했습니다
PRINTL 그 결과、
D = 0
REPEAT 13
	IF COUNT == 0
		D = 0
	ELSEIF COUNT == 1
		D = 1
	ELSEIF COUNT == 2
		D = 2
	ELSEIF COUNT == 3
		D = 3
	ELSEIF COUNT == 4
		D = 4
	ELSEIF COUNT == 5
		D = 5
	ELSEIF COUNT == 6
		D = 6
	ELSEIF COUNT == 7
		D = 7
	ELSEIF COUNT == 8
		D = 8
	ELSEIF COUNT == 9
		D = 9
	ELSEIF COUNT == 10
		D = 10
	ELSEIF COUNT == 11
		D = 11
	ELSEIF COUNT == 12
		D = 12
	ENDIF

	IF D == 12
		PRINTFORML %PALAMNAME:100%의 구슬×({JUEL:100})
	ELSEIF D != 4
		PRINTFORML %PALAMNAME:D%의 구슬×({JUEL:D})
	ENDIF

REND

PRINTW 이상으로 변했습니다