code:
;----------------------------------------------------------
;@COLOR(ARGS)
;----------------------------------------------------------
@COLOR, ARGS
#FUNCTION
SELECTCASE TOUPPER(ARGS)
	CASE "RED", "빨강", "赤"
		RETURNF 0xFF0000
	CASE "DARKRED"
		RETURNF 0x990000
	CASE "BLUE"
		RETURNF 0x0000FF
	CASE "P-RED", "PASTEL-RED", "파 빨강", "パ赤"
		RETURNF 0xC07070
	CASE "P_BLUE", "PASTEL-BLUE", "파 파랑", "パ青"
		RETURNF 0x7070C0
	CASE "P_GREEN", "PASTEL-GREEN", "파 초록", "パ緑"
		RETURNF 0x70C070
	CASE "MEDSPRINGGREEN"
		RETURNF 0x00FA9A
	CASE "GREEN","초록", "緑"
		RETURNF 0x00FF00
	CASE "P_PURPLE", "PASTEL-PURPLE", "파 유카리", "パ紫"
		RETURNF 0xC070C0
	CASE "P-YELLOW", "PASTEL-YELLOW", "파 노랑", "パ黄"
		RETURNF 0x505020
	CASE "P-BGREEN", "P_BLUEGREEN", "PASTEL-BLUEGREEN", "파 청록색", "パ青緑"
		RETURNF 0x205050
	CASE "WHITE", "흰색", "白"
		RETURNF 0xC0C0C0
	CASE "BLACK", "흑", "黒"
		RETURNF 0x000000
	CASE "AQUA", "물색", "水色"
		RETURNF 0x66FFFF
	CASE "GRAY", "회색", "灰色"
		RETURNF 0x404040
	CASE "LIGHT-GRAY", "명회색", "明灰色"
		RETURNF 0x777777
	CASE "PINK", "복숭아", "桃"
		RETURNF 0xFFCCFF
	CASE "DARK-PINK", "흑도", "黒桃"
		RETURNF 0x990099
	CASE "YELLOW", "노랑", "黄"
		RETURNF 0xFFFF00
	CASE "ORANGE","등","橙"
		RETURNF 0xFFA500
	CASE "CREAM"
		RETURNF 0xFFFFCC
ENDSELECT

@COLORMESSAGE(ARGS, 색, 표시형식, 폰트스타일)
;직전까지 사용하고 있던 색과 폰트를 보존해, 사용후는 그 쪽으로 복귀하도록(듯이)
;표시형식　0=통상　1=L　2=W
;폰트스타일　0=통상　1=굵은 글씨　2=이탤릭　4=부정선　8=밑줄
;(비트로 관리되고 있기 (위해)때문에 가령 3이라면 굵은 글씨＋이탤릭)
#DIM 현재지정의색
#DIM 현재지정의폰트스타일
#DIM 색
#DIM 폰트스타일
#DIM 표시형식

현재지정의색 = GETCOLOR()
현재지정의폰트스타일 = GETSTYLE()

SIF 폰트스타일
	FONTSTYLE 폰트스타일
SETCOLOR 색
SELECTCASE 표시형식
	CASE 0
	PRINTFORM %ARGS%
	CASE 1
	PRINTFORML %ARGS%
	CASE 2
	PRINTFORMW %ARGS%
ENDSELECT
SETCOLOR 현재지정의색
FONTSTYLE 현재지정의폰트스타일

;조건을 채우고 있었을 경우에 황색을 붙인다
@COND_COLORMESSAGE(COND,MESSAGE)
#DIM COND
#DIMS MESSAGE
SIF COND
	SETCOLOR C_YELLOW
PRINTFORML %MESSAGE%
RESETCOLOR

;-------------------------------------------------------------------------------
;    BAR의 색 달리하고 판
;-------------------------------------------------------------------------------
;    예  PRINTFORM %PRINT_COLORBAR(40,100,8, %UNICODE(0x2584)%, %UNICODE(0x2584)%, , 0x404040)%
;        [===     ]
;    인수는 BAR와 거의 함께 + ARGS로 묘사 문자의 변경이 가능(지정하지 않는 경우는 BAR와 같은 사양)
;    ARG:3은 바의 색(0 xFFFFFF 형식에서 지정), ARG:4는 바의 배경 색(0 xFFFFFF 형식에서 지정)
;===============================================================================
@PRINT_COLORBAR(ARG, ARG:1, ARG:2, ARGS = "*", ARGS:1 = ".", ARG:3, ARG:4)
#LOCALSIZE 5
LOCAL:1 = ARG * ARG:2 / ARG:1
LOCAL:2 = GETCOLOR()
FOR LOCAL, 1, ARG:2 + 1
	IF LOCAL:1 >= LOCAL
		IF !LOCAL:3
			SETCOLOR ARG:3
			LOCAL:3 = 1
		ENDIF
		PRINTFORM %ARGS%
	ELSE
		IF !LOCAL:4
			SETCOLOR ARG:4
			LOCAL:4 = 1
		ENDIF
		PRINTFORM %ARGS:1%
	ENDIF
NEXT
SETCOLOR LOCAL:2
VARSET LOCAL

;-------------------------------------------------
;커스텀 바용색세트 함수 @BARCOLORSET
;PRINT_COLORBAR의 ARG:3에 이용해, ARG;4에 RESULT를 사용한다
;-------------------------------------------------
@BARCOLORSET, ARGS
#FUNCTION
 ;LOCAL에 색을 대입
SELECTCASE ARGS
	CASE "빨강", "赤"
		RESULT:1 = 0x502020
		RETURNF 0xC07070
	CASE "엷은 빨간색", "薄赤"
		RESULT:1 = 0x803040
		RETURNF 0xF07090
	CASE "파랑", "青"
		RESULT:1 = 0x202050
		RETURNF 0x7070C0
	CASE "초록", "緑"
		RESULT:1 = 0x205020
		RETURNF 0x70C070
	CASE "유카리", "紫"
		RESULT:1 = 0x502050
		RETURNF 0xC070C0
	CASE "황색", "黄色"
		RESULT:1 = 0x505020
		RETURNF 0xC0C070
	CASE "청록색", "青緑"
		RESULT:1 = 0x205050
		RETURNF 0x70C0C0
	CASE "흰색", "白"
		RESULT:1 = 0x202020
		RETURNF 0xC0C0C0
	CASE "오렌지", "オレンジ"
		RESULT:1 = 0x504010
		RETURNF 0xFF8000
	CASE "물색", "水色"
		RESULT:1 = 0x203030
		RETURNF 0x5090FF
	CASE "EXTRA"
		RESULT:1 = 0x505020
		RETURNF 0xFFFFDD
	CASE "EXTRA2"
		RESULT:1 = 0x505020
		RETURNF 0xFFFFDD
	 ;흰색
	 CASEELSE
		RESULT:1 = 0x202020
		RETURNF 0xCCFFCC
ENDSELECT

;-------------------------------------------------
;하트 마크 함수 @HEART
;	인수 0：하트의 수(생략 하면(자) 1개)
;	인수 1：사용하는 폰트명(생략 하면(자) Verdana)
;솎아내기의 하트 마크를 표시합니다
;-------------------------------------------------
@HEART(ARG = 1, ARGS)
LOCALS = %GETFONT()%
SETFONT "Times New Roman"
PRINTFORM %UNICODE(0x2665) *ARG%
;PRINTFORM %UNICODE(0x2661) *ARG%
SETFONT LOCALS

@HEARTMARK(ARG, ARGS)
GETFONT
LOCAL = GETCOLOR()
SIF ARGS != "PLAIN"
	SETCOLOR C_H_PINK
SETFONT "Times New Roman"
;PRINTFORM %UNICODE(0x2665) * ARG%
PRINTFORM %UNICODE(0x2764) * ARG%

SETFONT RESULTS
SETCOLOR LOCAL

;하트 문자를 돌려준다
;폰트는 고려하고 있지 않다
@GET_HEART()
#FUNCTIONS
RETURNF UNICODE(0x2665)

;하트 문자로 사이에 둔다
@CLIP_HEART(캐릭터라인)
#FUNCTIONS
#DIMS 캐릭터라인
캐릭터라인 = %GET_HEART() + 캐릭터라인 + GET_HEART()%
RETURNF 캐릭터라인

;미노리코 말로부터 꿀꺽
;### 하트만 다른 색으로 PRINT하기 위한 함수 ##################
;캐릭터라인중에 포함되는"HPH"를 핫 핑크 칼라의 하트로서 PRINT 해, 그 이외의캐릭터라인은 통상의 색으로 보통으로 PRINT 한다
;ARGS "W"=PRINTSW로 표시. "L"=PRINTSL로 표시. "W"도"L"도 아니면 PRINTS로 표시
@HPH_PRINT, 대상캐릭터라인, ARGS
#DIMS 대상캐릭터라인
#DIM 출력문자수
#DIM HPH인데크스치

DO
	HPH인데크스치 = STRFIND(대상캐릭터라인, "HPH")

	;대상캐릭터라인이 HPH로 시작되지 않지만 뒤로 HPH가 있는 경우
	IF HPH인데크스치 >= 1
		;HPH의 직전까지 문자 표시
		LOCALS = %SUBSTRING(대상캐릭터라인, 0, HPH인데크스치)%
		PRINTS @"%LOCALS%"
		출력문자수 = STRLENS(LOCALS)
	;대상캐릭터라인이 HPH로 시작되는 경우
	ELSEIF HPH인데크스치 == 0
		LOCALS:1 = %GETFONT()%
		SETFONT "Times New Roman"
		LOCAL = GETCOLOR()
		SETCOLOR C_H_PINK
		PRINTFORM %UNICODE(0x2764)%
		SETCOLOR LOCAL
		SETFONT LOCALS:1
		출력문자수 = 3
	;HPH가 이제 없는 경우
	ELSE
		;여기서 ARGS에 의한 분기
		SELECTCASE ARGS
		CASE "W"
			PRINTSW @"%대상캐릭터라인%"
		CASE "L"
			PRINTSL @"%대상캐릭터라인%"
		CASEELSE
			PRINTS @"%대상캐릭터라인%"
		ENDSELECT
		BREAK
	ENDIF

	;표시 끝난 문자분을 삭제해 대상캐릭터라인을 갱신한다
	대상캐릭터라인 = %SUBSTRING(대상캐릭터라인, 출력문자수, -1)%

LOOP 1


code:
;*******************************************************************************************************
;キャラクター表示用関数群
;*******************************************************************************************************
@PRINT_TARGET_IMAGE(ターゲット)
#DIM REF ターゲット
#DIM 現在ターゲット
#DIM ターゲット人数
#DIM 表示番号
#DIM iSpaceSize
#DIMS sPrint_Text
#DIM SAVE_RESULT			;RESULTの保護
#DIM iPrintStart = 1		;描画を開始するTARGET配列番号
#DIM CHARA
#DIMS リソース名
#DIMS リソース名_マウスオーバー
#DIMS 表示形式, 1000
#DIMS 服装
#DIMS 特殊服装
#DIMS 特殊画像, 1000
#DIMS FaceType

SIF !ターゲット
	RETURN RESULT
SIF !FLAG:그림표시
	RETURN RESULT

SIF GETCONFIGS("描画インターフェース") == "WINAPI"
	THROW 描画インターフェースをTextRendererに変更して下さい

;RESULTの保護
SAVE_RESULT = RESULT

;ターゲット情報の取得
ターゲット人数 = GET_TARGETNUM()
現在ターゲット = FINDELEMENT(ターゲット,ターゲット:0,1)

;画像サイズ比セット
キャラ画像表示サイズ比 = 100 + isModifier
;画像表示数に合わせてサイズ比を調整
SIF MIN(FLAG:그림표시,ターゲット人数) * (デフォルトキャラ画像横幅 * キャラ画像表示サイズ比/100) > GETCONFIG("ウィンドウ幅")
	;切捨て保護のため先に掛け算
	キャラ画像表示サイズ比 =  100 * GETCONFIG("ウィンドウ幅") / MIN(FLAG:그림표시,ターゲット人数) / デフォルトキャラ画像横幅

;描画開始位置の決定
IF FLAG:그림표시 != 1
	IF 現在ターゲット >= (iPrintStart + FLAG:그림표시) || 現在ターゲット < iPrintStart
		;画面外
		iPrintStart = 現在ターゲット - (FLAG:그림표시 / 2)
	ELSEIF iPrintStart == 現在ターゲット
		;画面左端
		iPrintStart--
	ELSEIF (iPrintStart + FLAG:그림표시)-1 ==  現在ターゲット && ターゲット人数 > FLAG:그림표시
		;画面右端
		iPrintStart++
	ENDIF

	;始端終端
	iPrintStart = LIMIT(iPrintStart, 1, MAX(ターゲット人数-FLAG:그림표시+1, 1) )
ELSEIF FLAG:그림표시 == 1
	iPrintStart = 現在ターゲット
ENDIF
;-----------------
;テキストタグボタン
;-----------------
sPrint_Text =
<nobr>
FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
	SIF !ターゲット:LOCAL
		BREAK

	;左右幅合わせ　[名前]
	STRLENFORMU %CALLNAME:(ターゲット:LOCAL)%
	;[]分を足す
	RESULT += 1
	iSpaceSize = (デフォルトキャラ画像横幅 * キャラ画像表示サイズ比/GETCONFIG("フォントサイズ") - (RESULT*100)) / 2
	iSpaceSize = MAX(iSpaceSize, 0)

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

	IF ターゲット:LOCAL == ターゲット
		sPrint_Text += @""
		ELSEIF CFLAG:(ターゲット:LOCAL):동행
		sPrint_Text += @""
	ENDIF

	sPrint_Text += @"<button value='{1000+ターゲット:LOCAL}' title='ターゲット{LOCAL}'>[%CALLNAME:(ターゲット:LOCAL)%]</button>"

	SIF (ターゲット:LOCAL == ターゲット) || CFLAG:(ターゲット:LOCAL):동행
		sPrint_Text += @""

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

NEXT
HTML_PRINT sPrint_Text

;-----------------
;그림표시
;-----------------
FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
	CHARA = ターゲット:LOCAL
	SIF !CHARA
		BREAK
	RESULT = 0
	IF FLAG:그림표시
		IF TALENT:CHARA:스침 && !GCREATED(CFLAG:CHARA:モブ子素材CFLAG開始位置)
			CALL 모브코생성(CHARA, 0)
			CALL 모브코생성(CHARA, 1)
		ENDIF
		;形式をひとつずつ決めていく,表情変化は式内関数化し、マウスオーバー時はRESULTS:1を使用
		IF FLAG:스탠딩종류
			;表示形式 = 顔絵
			表示形式:LOCAL = %\@CFLAG:CHARA:대체적용 && CFLAG:CHARA:별도얼굴있음 ? 別顔 # 顔絵\@%
		ELSE
			;表示形式 = 立ち絵
			表示形式:LOCAL = %\@CFLAG:CHARA:대체적용 && CFLAG:CHARA:별도스탠딩있음 ? 別立ち # 立ち絵\@%
		ENDIF
		;DEBUGPRINTFORML %表示形式%
		IF 裸表示(CHARA)
			服装 = 裸
			特殊服装 =
		ELSE
			服装 = 服
			特殊服装 = %特殊服装(CHARA)%
		ENDIF

		服装 '= 服装 + 特殊服装

		特殊画像:LOCAL = %特殊画像(CHARA,服装)%

		FaceType = %GET_EX_FACETYPE(PREVCOM,CHARA, 服装, 表示形式:LOCAL,特殊画像:LOCAL)%

		リソース名 = %表示形式:LOCAL%_%服装%_%FaceType%_{CHARA}%特殊画像:LOCAL%
		リソース名 = %ChkBBresource(リソース名, CHARA)%
		リソース名_マウスオーバー = %表示形式:LOCAL%_%服装%_%RESULTS:1%_{CHARA}%特殊画像:LOCAL%
		リソース名_マウスオーバー = %ChkBBresource(リソース名_マウスオーバー, CHARA)%

		;リソースのチェック 見つからない場合は通常服装時のリソースに切り替え
		IF !SPRITECREATED(リソース名)
			リソース名 = %表示形式:LOCAL%_%服装%_%表情変化(CHARA)%_{CHARA}%特殊画像:LOCAL%
			;それでも見つからない場合は通常状態の通常顔に切り替え
			SIF !SPRITECREATED(リソース名) && 裸表示(CHARA)
			  リソース名 = %表示形式:LOCAL%_裸_通常_{CHARA}
			SIF !SPRITECREATED(リソース名)
			  リソース名 = %表示形式:LOCAL%_服_通常_{CHARA}
		ENDIF
		;時間停止時はマウスオーバー表示しない
		SIF FLAG:시간정지
			リソース名_マウスオーバー =
		;画像セット
		CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比, 1, @"{1000+CHARA}", @"ターゲット:{LOCAL}", リソース名_マウスオーバー)
	ENDIF
NEXT
CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

;-----------------
;照れ表示
;-----------------
FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
	CHARA = ターゲット:LOCAL
	SIF !CHARA
		BREAK
	IF FLAG:그림표시
		RESULT = 0
		;現在は文とマミゾウの5枚表情パターン用
		IF TARGET_BLUSH_EXCEPTION(CHARA)
			;すでに照れ状態
			CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
		ELSEIF BLUSH(CHARA)
			IF TALENT:CHARA:스침
				;モブ子表示用 今はまだない
			ELSEIF SPRITECREATED(@"%表示形式:LOCAL%_%特殊照れ(CHARA, 特殊服装)%照れ_{CHARA}%特殊画像:LOCAL%")
				リソース名 = %表示形式:LOCAL%_%特殊照れ(CHARA, 特殊服装)%照れ_{CHARA}%特殊画像:LOCAL%
				CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)
			ELSE
				CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
			ENDIF
		ELSE
			CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
		ENDIF
	ENDIF
NEXT
CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

;-----------------
;追加エフェクト(吐息、汗)
;-----------------
IF FLAG:追加エフェクト
	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		CHARA = ターゲット:LOCAL
		SIF !CHARA
			BREAK
			RESULT = 0
			IF EXHALATION(CHARA,表示形式:LOCAL)
				IF TALENT:CHARA:스침
					;モブ子表示用 今はまだない
				ELSE
					IF SPRITECREATED(@"%表示形式:LOCAL%_吐息_{CHARA}")
					リソース名 = %表示形式:LOCAL%_吐息_{CHARA}
					ELSEIF SPRITECREATED(@"%表示形式:LOCAL%_裸_吐息_{CHARA}")
					リソース名 = %表示形式:LOCAL%_裸_吐息_{CHARA}
					ELSE
					リソース名 = ダミー
					ENDIF
					CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)
				ENDIF
			ELSE
				CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
			ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		CHARA = ターゲット:LOCAL
		SIF !CHARA
			BREAK
			RESULT = 0
			IF SWEAT(CHARA,表示形式:LOCAL)
				IF TALENT:CHARA:스침
					;モブ子表示用 今はまだない
				ELSE
					IF SPRITECREATED(@"%表示形式:LOCAL%_汗_{CHARA}")
					リソース名 = %表示形式:LOCAL%_汗_{CHARA}
					ELSEIF SPRITECREATED(@"%表示形式:LOCAL%_裸_汗_{CHARA}")
					リソース名 = %表示形式:LOCAL%_裸_汗_{CHARA}
					ELSE
					リソース名 = ダミー
					ENDIF
					CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)
				ENDIF
			ELSE
				CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
			ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		CHARA = ターゲット:LOCAL
		SIF !CHARA
			BREAK
		IF TALENT:CHARA:모유체질 && 裸表示(CHARA)
			IF NOWEX:CHARA:분유 && SPRITECREATED(@"%表示形式:LOCAL%_母乳_{CHARA}")
			リソース名 = %表示形式:LOCAL%_母乳_{CHARA}
			ELSE
			リソース名 = ダミー
			ENDIF
			CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)
		ELSE
		CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
		ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		CHARA = ターゲット:LOCAL
		SIF !CHARA
			BREAK
		IF BASE:CHARA:무드 >= MAXBASE:CHARA:무드*8/10 && SPRITECREATED(@"%表示形式:LOCAL%_ハート_{CHARA}")
		リソース名 = %表示形式:LOCAL%_ハート_{CHARA}

		ELSEIF (MARK:CHARA:반발각인 > 0 || CFLAG:CHARA:빡침) && SPRITECREATED(@"%表示形式:LOCAL%_怒り_{CHARA}")
			リソース名 = %表示形式:LOCAL%_怒り_{CHARA}

		ELSEIF CFLAG:CHARA:수면 && SPRITECREATED(@"%表示形式:LOCAL%_수면_{CHARA}")
			リソース名 = %表示形式:LOCAL%_수면_{CHARA}

		ELSE
			リソース名 = ダミー
ENDIF

		CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)

	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF

;----------------------------------
;	時間停止時の処理
;上から背景色と同じ色を透過度入れて重ねる
;キャラとのブレンドは出来ないので背景色に合わせる
;----------------------------------
IF FLAG:시간정지

	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		SIF !ターゲット:LOCAL
			BREAK
		CALL 画像セット("時間停止", 0, 0, キャラ画像表示サイズ比)
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF

;----------------------------------
;	フレーム描画
;----------------------------------
IF FLAG:화상범위표시
	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		SIF !ターゲット:LOCAL
			BREAK
		IF TALENT:(ターゲット:LOCAL):기분 == -1
			CALL 画像セット("フレーム_怒り", 0, 0, キャラ画像表示サイズ比)
		ELSEIF TALENT:(ターゲット:LOCAL):기분 == 1
			CALL 画像セット("フレーム_笑顔", 0, 0, キャラ画像表示サイズ比)
		ELSE
			CALL 画像セット("フレーム_通常", 0, 0, キャラ画像表示サイズ比)
		ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF

CALL ピクセル自動改行(デフォルトキャラ画像横幅 * キャラ画像表示サイズ比 / 100)
CALL 画像描画終了

IF FLAG:화상설정 ;1041
	;-----------------
	;表示設定関連
	;-----------------
	sPrint_Text =

	sPrint_Text += @"<button value='3105' title='現在：\@FLAG:스탠딩종류?顔絵#立ち絵\@'>"
	sPrint_Text += @"스탠딩종류[\@FLAG:스탠딩종류?顔絵#立ち絵\@]　</button>"
	sPrint_Text += @"<button value='3103' title='現在：\@FLAG:그림표시위치?左寄せ#中央寄せ\@'>"
	sPrint_Text += @"表示位置[\@FLAG:그림표시위치?left#center\@]　</button>"
	sPrint_Text += @"<button value='3104' title='現在：\@FLAG:화상범위표시?ON#OFF\@'>"
	sPrint_Text += @"枠表示[\@FLAG:화상범위표시?ON#OFF\@]　</button>"
	sPrint_Text += @"<button value='3108' title='現在：\@FLAG:거유차이표시?ON#OFF\@'>"
	sPrint_Text += @"巨乳差分[\@FLAG:거유차이표시?ON#OFF\@]　</button>"
	sPrint_Text += @"<button value='3109' title='現在：\@FLAG:追加エフェクト?ON#OFF\@'>"
	sPrint_Text += @"エフェクト[\@FLAG:追加エフェクト?ON#OFF\@]　</button>"
	IF CFLAG:TARGET:별도얼굴있음 || CFLAG:TARGET:별도스탠딩있음
		sPrint_Text += @"<button value='3110' title='現在：\@CFLAG:TARGET:대체적용?ON#OFF\@'>"
		sPrint_Text += @"差分[\@CFLAG:TARGET:대체적용?ON#OFF\@]　</button>"
	ENDIF
	sPrint_Text += "
"

	;-----------------
	;表示人数の増減　＜＜＞＞でTARGETを横に移動
	;-----------------
	sPrint_Text += @"<button value='{1000+ターゲット:(MAX(現在ターゲット-1,1))}' title='ターゲット－'>＜＜</button>"
	sPrint_Text += @"<button value='3101' title='表示人数－'>[－]</button>"
	sPrint_Text += @"表示人数[{FLAG:그림표시}]"
	sPrint_Text += @"<button value='3102' title='表示人数＋'>[＋]</button>"
	sPrint_Text += @"<button value='{1000+ターゲット:(MIN(現在ターゲット+1,ターゲット人数+1))}' title='ターゲット＋'>＞＞</button>"

	sPrint_Text += @"<button value='3106' title='画像サイズ－'>[－]</button>"
	sPrint_Text += @"画像サイズ[{100 + isModifier}％]"
	sPrint_Text += @"<button value='3107' title='表示人数＋'>[＋]</button>"
	HTML_PRINT sPrint_Text
ENDIF

RESULT = SAVE_RESULT
RETURN RESULT

;表情の設定
;マウスオーバー時も同時に判定する
@表情変化(CHARA, 服装, 表示形式, 特殊画像)
#FUNCTIONS
#DIM CHARA
#DIMS 服装
#DIMS 表示形式
#DIMS 特殊画像

IF TALENT:CHARA:기분 == -1 || CFLAG:CHARA:빡침
	RESULTS:0 = 怒り
	LOCAL = -1
ELSEIF TALENT:CHARA:기분 == 1 || BASE:CHARA:무드 == MAXBASE:CHARA:무드 || TCVAR:CHARA:만취
	RESULTS:0 = 笑顔
	LOCAL = 1
ELSE
	RESULTS:0 = 通常
	LOCAL = 0
ENDIF
;5枚表情パターン用
IF TARGET_BLUSH_EXCEPTION(CHARA)
	RESULTS:1 = %RESULTS:0%
	IF CFLAG:CHARA:우후후 && !FLAG:시간정지
		RESULTS:0 = LOVE
		RESULTS:1 = 赤面
	ELSE
		RESULTS:0 = 赤面
	ENDIF
	RETURNF RESULTS:0
;수면用
ELSEIF CFLAG:CHARA:수면 && SPRITECREATED(@"%表示形式%_%服装%_수면_{CHARA}%特殊画像%")
		RESULTS:0 = 수면
		RESULTS:1 = 수면

	RETURNF RESULTS:0
ENDIF
;マウスオーバー時のRESULTS:1を設定
SIF CHECK_CHARA(CHARA, "陥落")
	LOCAL ++
SIF BATHROOM(CFLAG:CHARA:현재위치) && 목욕탕추방조건(CHARA)
	LOCAL --
SIF MARK:CHARA:반발각인
	LOCAL --
SIF BASE:CHARA:분노 >= 500
	LOCAL --
SIF BASE:CHARA:무드 >= 650
	LOCAL ++
SELECTCASE RESULTS:0
CASE "笑顔"
;	笑顔時は表情が固まらないように
;	IF LOCAL < 0
		RESULTS:1 = 通常
;	ELSE
;		RESULTS:1 = 笑顔
;	ENDIF
CASE "怒り"
	IF LOCAL > 0
		RESULTS:1 = 通常
	ELSE
		RESULTS:1 = 怒り
	ENDIF
CASEELSE
	IF LOCAL > 0
		RESULTS:1 = 笑顔
	ELSEIF LOCAL < 0
		RESULTS:1 = 怒り
	ELSE
		RESULTS:1 = 通常
	ENDIF
ENDSELECT
;発情用
IF TCVAR:CHARA:발정 && SPRITECREATED(@"%表示形式%_%服装%_発情_{CHARA}%特殊画像%")
	RESULTS:0 = 発情
	RESULTS:1 = 発情
ENDIF
;専用の特殊表情変化
IF CHARA == [[さとり]] && FLAG:스탠딩종류 && 服装 == "裸"
	;マウスオーバーのみ変化
	SELECTCASE RESULTS:1
	CASE "笑顔"
		RESULTS:1 = 裸笑顔
	CASE "怒り"
		RESULTS:1 = 裸怒り
	CASE "発情"
		RESULTS:1 = 裸発情
	CASEELSE
		RESULTS:1 = 裸通常
	ENDSELECT
ELSEIF CHARA == [[依姫]] && FLAG:스탠딩종류 && 服装 == "裸" && MARK:CHARA:쾌락각인 < 3 && PALAM:CHARA:욕정 < 200000 && !FLAG:시간정지
	SELECTCASE RESULTS:0
	CASE "笑顔"
		RESULTS:0 = 恥笑顔
	CASE "怒り"
		RESULTS:0 = 恥怒り
	CASE "発情"
		RESULTS:0 = 恥発情
	CASEELSE
		RESULTS:0 = 恥通常
	ENDSELECT
	SELECTCASE RESULTS:1
	CASE "笑顔"
		RESULTS:1 = 恥笑顔
	CASE "怒り"
		RESULTS:1 = 恥怒り
	CASE "発情"
		RESULTS:1 = 恥発情
	CASEELSE
		RESULTS:1 = 恥通常
	ENDSELECT
ENDIF

SIF SPRITECREATED(@"%表示形式%_%服装%_反発_{CHARA}%特殊画像%") && MARK:CHARA:3
	RESULTS:1 = 反発

RETURNF RESULTS:0

;赤面する条件
@BLUSH(ARG)
#FUNCTION

IF SPRITECREATED(@"顔絵_裸_発情_{ARG}")
	SIF TCVAR:ARG:발정
	RETURNF 0
ENDIF

SIF TCVAR:ARG:만취 || TCVAR:ARG:춘약 || TCVAR:ARG:발정
	RETURNF 1
SIF GETPALAMLV(PALAM:ARG:호의, 15) >= 10
	RETURNF 1
SIF GETPALAMLV(PALAM:ARG:욕정, 15) + CFLAG:ARG:욕구불만도 / 200 >= 8
	RETURNF 1
SIF CFLAG:ARG:우후후 && (GETPALAMLV(PALAM:ARG:욕정, 15) + CFLAG:ARG:욕구불만도 / 200 >= 5)
	RETURNF 1
RETURNF 0

;5枚表情パターン用
@TARGET_BLUSH_EXCEPTION(ARG)
#FUNCTION
SIF !BLUSH(ARG)
	RETURNF 0
SELECTCASE ARG
	CASE [[文]], [[マミゾウ]]
		SIF INRANGE(CFLAG:ARG:현재위치, 200, 299) && TEQUIP:ARG:하반신착의상황 && TEQUIP:ARG:상반신착의상황 && !BATHROOM(CFLAG:ARG:현재위치)
			RETURNF 1
ENDSELECT
SIF GROUPMATCH(CFLAG:ARG:모브얼굴패턴, 40, 41, 42)
	RETURNF 1
;SIF CFLAG:ARG:모브얼굴패턴 == 5
;	RETURNF 1
RETURNF 0

@裸表示(ARG)
#FUNCTION
SIF NUDITYCHECK(ARG) == 0 && SPRITECREATED(@"特別拡張_{ARG}")
	RETURNF 1

SIF !TEQUIP:ARG:상반신착의상황 && !SPRITECREATED(@"特別拡張_{ARG}")
	RETURNF 1

SIF BATHROOM(CFLAG:ARG:현재위치)
	RETURNF 1

RETURNF 0

;吐息の条件
@EXHALATION(ARG,表示形式)
#FUNCTION
#DIMS 表示形式
SIF FLAG:시간정지
	RETURNF 0
IF  !SPRITECREATED(@"%表示形式%_裸_吐息_{ARG}") &&  !SPRITECREATED(@"%表示形式%_吐息_{ARG}")
	RETURNF 0
ELSEIF !裸表示(ARG) && !SPRITECREATED(@"特別拡張_{ARG}")
	RETURNF 0
ENDIF

SIF PALAM:ARG:욕정 > 500000
	RETURNF 1

RETURNF 0

;汗の条件
@SWEAT(ARG,表示形式)
#FUNCTION
#DIM SPENT_TIME
#DIMS 表示形式

IF  !SPRITECREATED(@"%表示形式%_裸_汗_{ARG}") &&  !SPRITECREATED(@"%表示形式%_汗_{ARG}")
	RETURNF 0
ELSEIF !裸表示(ARG) && !SPRITECREATED(@"特別拡張_{ARG}")
	RETURNF 0
ENDIF

SIF UFUFU_START_TIME < 1
	RETURNF 0

SPENT_TIME = (TIME-UFUFU_START_TIME) / 60
IF SPENT_TIME < 0
	SPENT_TIME += 24
ENDIF

SIF SPENT_TIME > 0
	RETURNF 1

RETURNF 0

;キャラごとの特殊変化
@特殊服装(ARG)
#FUNCTIONS
LOCALS =
;同じ画像ファイルで拡張されているものはこっち
SELECTCASE ARG
CASE [[サニー]], [[ルナ]], [[スター]], [[お燐]], [[にとり]], [[パチュリー]], [[妹紅]], [[輝夜]], [[蓮子]], [[メリー]]
	;夏服
	SIF DAY:2 == 2
		LOCALS = 1
CASE [[魔理沙]]
	;デート中
	SIF FLAG:데이트상대 == ARG
		LOCALS = 1
CASE [[静葉]], [[穣子]], [[阿求]]
	;デート中
	SIF FLAG:데이트상대 == ARG
		LOCALS = 1
CASE [[紫]]
	;イブニングドレス
	SIF EQUIP:ARG:원피스 == 7
		LOCALS = 1
CASE [[ミスティア]]
	;仕事中
	SIF CFLAG:ARG:직종 == 44 && BASE:ARG:일량 > 0
		LOCALS = 1
CASE [[文]], [[マミゾウ]]
	;人里
	SIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = 1
CASE [[早苗]]
	;セーラー服
	SIF EQUIP:ARG:상반신윗도리1 == 2
		LOCALS = 1
CASE [[鈴仙]]
	;ブレザー『じゃない』とき
	SIF EQUIP:ARG:상반신윗도리1 != 4
		LOCALS = 1
CASE [[幽々子]]
	;日替わり
	SIF DAY:3 % 2 == 0
		LOCALS = 1
CASE [[幽香]]
	;パジャマ
	SIF EQUIP:ARG:상반신윗도리2 == 3
		LOCALS = 1
CASE [[映姫]]
	IF CFLAG:ARG:대체적용
		IF NUDITYCHECK(ARG) == 1
				LOCALS = _パンイチ
			SIF FLAG:스탠딩종류
				LOCALS = _半裸
		ELSEIF NUDITYCHECK(ARG) == 2
			LOCALS = _ブラ
			SIF FLAG:스탠딩종류
				LOCALS = _下着
		ELSEIF NUDITYCHECK(ARG) == 3
			LOCALS = _下着
		ELSEIF (BETWEENTIME(CFLAG:ARG:취침시간 - 180, CFLAG:ARG:기상시간 + 30) && CFLAG:현재위치 ==  CFLAG:ARG:초기위치) || CFLAG:ARG:수면
			LOCALS = _パジャマ
			;素敵なＴシャツセットからは、おはようからおやすみまで逃げられない
			SIF (BETWEENTIME(CFLAG:ARG:취침시간, CFLAG:ARG:기상시간) && CFLAG:현재위치 ==  CFLAG:ARG:초기위치) && !CFLAG:ARG:수면 && CFLAG:ARG:의상일시변경 == 62
				LOCALS = _変Ｔ
		ELSEIF CFLAG:ARG:의상일시변경 == 62
			LOCALS = _変Ｔ
		ELSE
			LOCALS =
		ENDIF
	;素敵なＴシャツセット
	ELSEIF CFLAG:ARG:의상일시변경 == 62
		LOCALS = 1
	ENDIF
CASE [[響子]]
;	SIF 未定？
;		LOCALS = 1
CASE [[大妖精]]
IF CFLAG:ARG:대체적용
	IF  NUDITYCHECK(ARG) == 1
			LOCALS = _パンイチ
		SIF FLAG:스탠딩종류
			LOCALS = _半裸
		ELSEIF NUDITYCHECK(ARG) == 2
			LOCALS = _ブラ
		SIF FLAG:스탠딩종류
			LOCALS = _下着
		ELSEIF NUDITYCHECK(ARG) == 3
			LOCALS = _下着
		ELSEIF (BETWEENTIME(CFLAG:ARG:취침시간-180, CFLAG:ARG:기상시간+30) && CFLAG:현재위치 ==  CFLAG:ARG:초기위치) || CFLAG:ARG:수면
			LOCALS = _パジャマ
		ELSE
			LOCALS =
	ENDIF
ENDIF
ENDSELECT
RETURNF LOCALS

@特殊画像(ARG,服装)
#FUNCTIONS
#DIMS 服装
LOCALS =
;差分画像ファイルで拡張されているものはこっち
;ただし5枚表情パターンは除く（現在は文とマミゾウ）
SELECTCASE ARG
CASE [[霊夢]]
	;デート中
	SIF FLAG:데이트상대 == ARG
		LOCALS = _2
CASE [[咲夜]]
	;人里
	SIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = _1
CASE [[レミリア]]
	;低カリスマ
	SIF CHARISMA_NOW() < 200
		LOCALS = _1
CASE [[アリス]]
	;現在は画像が用意されてるだけ
	SIF 0
		LOCALS = _2
CASE [[天子]]
	;偶数日
	SIF DAY:0 % 2 && FLAG:스탠딩종류
		LOCALS = _1
CASE [[ぬえ]]
	;偶数日
	SIF DAY:0 % 2 && FLAG:스탠딩종류
		LOCALS = _1
CASE [[慧音]]
	;満月の日の夜
	SIF DAY:3 == 15 && INRANGE(TIME:2, 5, 7)
		LOCALS = _2
CASE [[針妙丸]]
	;小槌使用時
	SIF (TALENT:71:체형 == 0 || TALENT:MASTER:체형 == -5) && FLAG:스탠딩종류
		LOCALS = _大
CASE [[ヘカーティア]]
	;黄,月にいるとき（夢の世界および自室は赤）
	IF INRANGE(CFLAG:ARG:현재위치, 1050, 1099)
		LOCALS = _2
	;青,人里にいるとき
	ELSEIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = _1
	;残りは赤
	ENDIF
CASE [[映姫]]
	IF TALENT:ARG:임신 && CFLAG:ARG:대체적용
		LOCALS = _1
	ELSE
		LOCALS =
	ENDIF
	CASE [[大妖精]]
	IF TALENT:ARG:임신 && 服装 !="服_パジャマ" && CFLAG:ARG:대체적용
			LOCALS = _1
	ELSE
			LOCALS =
	ENDIF
ENDSELECT
RETURNF LOCALS

;照れ画像が別にあるもの
@特殊照れ(ARG, 特殊服装)
#FUNCTIONS
#DIMS 特殊服装
LOCALS =
SELECTCASE ARG
CASE [[マミゾウ]]
	SIF !裸表示(ARG)
		LOCALS = 眼鏡
CASE [[魅魔]], [[ちゆり]], [[魔理沙]], [[ルーミア]], [[レミリア]], [[リリカ]], [[メルラン]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ルナサ]], [[橙]], [[藍]], [[リグル]], [[映姫]], [[神奈子]], [[天子]], [[こいし]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ナズーリン]], [[ぬえ]], [[エレン]], [[理香子]], [[明羅]], [[ルイズ]], [[にとり]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[白蓮]], [[神子]], [[妹紅]], [[勇儀]], [[幽々子]], [[慧音]], [[レティ]], [[一輪]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ムラサ]], [[星]], [[青娥]], [[雷鼓]], [[依姫]], [[豊姫]], [[神綺]], [[夢子]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ユキ]], [[鈴瑚]], [[サグメ]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ルナ]], [[静葉]], [[穣子]], [[響子]]
	IF 裸表示(ARG)
		LOCALS = 裸
	ELSEIF 特殊服装 == "1"
		LOCALS = 特殊
	ENDIF
ENDSELECT
RETURNF LOCALS
;=========================================================
;	ステータス画面の그림표시
;
;	iID		：キャラIDと同じリソース名を表示します
;	iSize	：フォントに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;=========================================================
@PRINT_STATE_IMAGE(iID,iSize=1000)
#DIM iID
#DIM iSize
#DIMS リソース名
#DIMS 表示形式
#DIM 固定表示サイズ

SIF !iID
	RETURN RESULT

キャラ画像表示サイズ比 = 100 + isModifier
IF FLAG:그림표시
	SELECTCASE iID
		CASE 1 TO CHARANUM - 1
			RESULT = 0
			IF TALENT:iID:스침 && !GCREATED(CFLAG:iID:モブ子素材CFLAG開始位置)
				CALL 모브코생성(iID,0)
				CALL 모브코생성(iID,1)
			ENDIF
			;形式をひとつずつ決めていく,能力表示画面では通常状態で表示
			IF FLAG:스탠딩종류
				表示形式 = %\@CFLAG:iID:대체적용 && CFLAG:iID:별도얼굴있음 ? 別顔 # 顔絵\@%
				固定表示サイズ = 90
			ELSE
				;表示形式 = 立ち絵
				表示形式 = %\@CFLAG:iID:대체적용 && CFLAG:iID:별도스탠딩있음 ? 別立ち # 立ち絵\@%
				固定表示サイズ = 100
			ENDIF
			リソース名 = %表示形式%_服_通常_{iID}
			;画像セット
			CALL 画像表示(リソース名, 0, 0, 0, 固定表示サイズ)
		CASEELSE
			CALL 画像表示("ダミー", 0, 0, 0, 固定表示サイズ)
	ENDSELECT

	IF FLAG:화상범위표시
		;IF TALENT:iID:기분 == -1
		;	CALL 画像セット("フレーム_怒り", 0, 0, 100)
		;ELSEIF TALENT:iID:기분 == 1
		;	CALL 画像セット("フレーム_笑顔", 0, 0, 100)
		;ELSE
			CALL 画像表示("フレーム_通常", 0, 0, 0, 固定表示サイズ)
		;ENDIF
	ENDIF
	CALL ピクセル自動改行(デフォルトキャラ画像横幅 * 固定表示サイズ / 100)
	CALL 画像描画終了
ENDIF
RETURN RESULT

;=========================================================
;	リソースの表示
;	表示後サイズに合わせて改行を行う
;	PRINT_IMG の拡張みたいな感じ　文中の挿絵的に使えると思う
;
;	sRes_Name	：リソースの名前文字列
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign
#DIMS sPrint_Text
#DIM iEnter_Con
#DIM iFont_Hei_mag

SIF GETCONFIGS("描画インターフェース") == "WINAPI"
	THROW 描画インターフェースをTextRendererに変更して下さい

SIF !FLAG:그림표시 || sRes_Name == ""
	RETURN RESULT

iEnter_Con = 0
iFont_Hei_mag = GETCONFIG("一行の高さ") * iSize*10 / GETCONFIG("フォントサイズ")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

HTML_PRINT @"
<nobr>"
iEnter_Con++

IF FLAG:시간정지
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

IF FLAG:화상범위표시
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

FOR LOCAL,iEnter_Con-1,(iSize/100)-1
	HTML_PRINT "
"
NEXT
RETURN RESULT

;=========================================================
;	AFTERTRAニー그림표시を関数化
;	オナバレックスなんかにも使う
;=========================================================
@PrintOnanismImage(C_ID)
#DIM C_ID
#DIMS ShownImage
#DIMS ShownImageBB

SIF !FLAG:그림표시
	RETURN RESULT

ShownImage = \@CFLAG:C_ID:대체적용 && CFLAG:C_ID:별도얼굴있음 ? 別顔 # 顔絵\@_裸_オナニー_{C_ID}

SIF !SPRITECREATED(ShownImage)
	ShownImage = 顔絵_裸_発情_{C_ID}

ShownImageBB = %ChkBBresource(ShownImage, C_ID)%

SIF SPRITECREATED(ShownImageBB)
	ShownImage = %ShownImageBB%

CALL 画像表示(ShownImage, 0, 0, 0, キャラ画像表示サイズ比, 1)

;=========================================================
;リソース名を"裸巨""服巨"に置換してスプライトを探す
;表示する前にこいつを噛ませることによって巨乳差分にできるなら置換する
;=========================================================
@ChkBBresource(rname, C_ID)
#FUNCTIONS
#DIMS rname
#DIMS test
#DIM C_ID

SIF TALENT:C_ID:가슴사이즈 <= 0
	RETURNF rname
SIF !FLAG:거유차이표시
	RETURNF rname

IF STRCOUNT(rname, "裸")
	test = %REPLACE(@"%rname%","裸","裸巨")%
ELSE
	test = %REPLACE(@"%rname%","服","服巨")%
ENDIF

SIF !SPRITECREATED(test)
	RETURNF rname

RETURNF test

;=========================================================
;	コマンドから追加表情を返却する
;=========================================================
@GET_EX_FACETYPE(ARG,CHARA, 服装, 表示形式,特殊画像)
#FUNCTIONS
#DIMS 服装
#DIMS 特殊画像
#DIMS 表示形式
#DIMS TEMPS,2
#DIMS Plain
#DIM CHARA

VARSET TEMPS

Plain = %表情変化(CHARA, 服装, 表示形式,特殊画像)%

IF !FLAG:追加エフェクト || FLAG:시간정지
	RETURNF Plain

ELSEIF SPRITECREATED(@"%表示形式%_%服装%_絶頂_{CHARA}%特殊画像%") && !CFLAG:CHARA:우후후 && !CFLAG:CHARA:장난 && 絶頂判定2(CHARA)
	RESULTS:1 = 絶頂
		RETURNF Plain

ELSEIF !CFLAG:CHARA:우후후
		RETURNF Plain

ENDIF

TEMPS:0 = %Plain%
TEMPS:1 = %RESULTS:1%

SIF IS_SEXING(CHARA) && !INRANGE(SELECTCOM,0,15)
GOTO SEXING

SELECTCASE ARG
	;愛撫系
	CASE 0 TO 15
		IF 絶頂判定(CHARA)  && SPRITECREATED(@"%表示形式%_%服装%_絶頂_{CHARA}%特殊画像%")
			TEMPS:0 = 絶頂
			TEMPS:1 = 愛撫
			IF RAND:3 == 0
			TEMPS:0 = 愛撫
			TEMPS:1 = 絶頂
			ENDIF
		ELSE
			TEMPS:0 = 愛撫
		ENDIF
	;性行系
	CASE 60 TO 79
		$SEXING
		IF 絶頂判定(CHARA)  && SPRITECREATED(@"%表示形式%_%服装%_絶頂_{CHARA}%特殊画像%")
			TEMPS:0 = 絶頂
			TEMPS:1 = 性行
			IF RAND:3 == 0
			TEMPS:0 = 性行
			TEMPS:1 = 絶頂
			ENDIF
		ELSE
			TEMPS:0 = 性行
		ENDIF
	;その他
	CASEELSE
		IF 絶頂判定(CHARA)  && SPRITECREATED(@"%表示形式%_%服装%_絶頂_{CHARA}%特殊画像%")
			TEMPS:0 = 絶頂
			TEMPS:1 = %PLAIN%
			IF RAND:3 == 0
			TEMPS:0 = %PLAIN%
			TEMPS:1 = 絶頂
			ENDIF
		ELSE

		ENDIF
ENDSELECT

RESULTS:1 = %TEMPS:1%

DEBUGPRINTFORML COM{ARG},CHARA{CHARA},S1%服装%,S2%表示形式%,表情1%TEMPS:0%,表情2%RESULTS:1%

RETURNF TEMPS:0

@NUDITYCHECK(ARG)
#FUNCTION
#DIM NUDITY
SIF ARG == -1
ARG = TARGET

NUDITY = 0

;全身下着
IF EQUIP:(ARG):9 > 0
NUDITY += 3

ELSEIF EQUIP:(ARG):10 > 0
NUDITY += 3

ELSE

    ;下半身下着
    IF EQUIP:(ARG):5 > 0
    NUDITY += 1

    ELSEIF EQUIP:(ARG):6 > 0
    NUDITY += 1

    ENDIF

    ;上半身下着
    IF EQUIP:(ARG):7 > 0
    NUDITY += 2

    ELSEIF EQUIP:(ARG):8 > 0
    NUDITY += 2

    ENDIF

ENDIF

;外衣
SIF EQUIP:(ARG):18 > 0
NUDITY += 20

;全身上着
IF EQUIP:(ARG):13 > 0
NUDITY += 9

ELSEIF EQUIP:(ARG):14 > 0
NUDITY += 9

ELSE

    ;上半身上着
    IF EQUIP:(ARG):16 > 0
    NUDITY += 5

    ELSEIF EQUIP:(ARG):17 > 0
    NUDITY += 5

    ENDIF

    ;下半身上着
    IF EQUIP:(ARG):11 > 0
    NUDITY += 4
    ELSEIF EQUIP:(ARG):12 > 0
    NUDITY += 4

    ;スカート
    ELSEIF EQUIP:(ARG):13 > 0
    NUDITY += 4

    ELSEIF EQUIP:(ARG):14 > 0
    NUDITY += 4
    ENDIF

ENDIF

RETURNF NUDITY

@IS_SEXING(ARG)
#FUNCTION
SIF !ARG
	ARG = TARGET

SIF TEQUIP:ARG:V섹스 == MASTER || TEQUIP:ARG:A섹스 == MASTER || TEQUIP:MASTER:V섹스 == ARG || TEQUIP:MASTER:A섹스 == ARG
	RETURNF 1

RETURNF 0

@絶頂判定(CHARA)
#FUNCTION
#DIM CHARA
RETURNF (NOWEX:CHARA:A절정 + NOWEX:CHARA:B절정 + NOWEX:CHARA:C절정 + NOWEX:CHARA:V절정 + NOWEX:CHARA:M절정)

@絶頂判定2(CHARA)
#FUNCTION
#DIM CHARA
	SIF EX:CHARA:무자각C절정 + EX:CHARA:무자각V절정 + EX:CHARA:무자각A절정 + EX:CHARA:무자각B절정 + EX:CHARA:무자각M절정 >= 20
		RETURNF 1

RETURNF 0

license: mit


code:
@LOOK_AT
#DIM 장비부위
#DIM 착의상황
#DIMS 삽입상황
#DIMS 삽입상황2
#DIMS 표시내용
CALL PRINTBUTTON_EX(TFLAG:LOOK비표시 ? "▽[＋][Look]----------" # "▼[－][Look]----------", 3003, TFLAG:LOOK비표시)
IF !FLAG:AA표시
	PRINTBUTTON "[표시 없음]", 816
ELSEIF FLAG:AA표시 && !FLAG:그림표시 ;KR판 구잔재. AA표시 삭제시 지워야 함.
	PRINTBUTTON  "[AA 표시]", 816
ELSE
	PRINTBUTTON "[그림 표시]", 816
	SIF FLAG:화상설정
		SETCOLOR C_ORANGE
	PRINTBUTTON "[표시 설정]", 3100
ENDIF
RESETCOLOR
IF CFLAG:우후후
	IF FLAG:삽화표시
		PRINTBUTTON  "[애니메이션 표시-ON-]", 817
	ELSE
		SETCOLOR C_L_GRAY
		PRINTBUTTON  "[애니메이션 표시-OFF-]", 817
		RESETCOLOR
	ENDIF
ENDIF
PRINTL
IF !TFLAG:LOOK비표시
	;TARGETが大勢居るときはヒマを持て余す
	CALL ANOTHERTARGET_TALK
	CALL 정경묘사
ENDIF
IF TARGET
	IF !TFLAG:LOOK비표시
		PRINT 【상반신】
		IF TEQUIP:1 == 0
			PRINT  알몸
			SIF PALAM:욕정 >= PALAMLV:3
				PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
		ELSE
			;바깥쪽의 옷으로부터 표시
			FOR 장비부위, 17, 6, -1
				SIF GROUPMATCH(장비부위, 15, 12, 11)
					CONTINUE
				표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
				SIF !STRLENS(표시내용)
					CONTINUE
				PRINTFORM %표시내용%
				BREAK
			NEXT
			IF TEQUIP:상반신탈의상태 > 0
				IF TALENT:가슴사이즈 == 2
					PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 비져 나왔다
					;PRINTFORM  터질 듯한 가슴이 비져 나왔다
				ELSEIF TALENT:가슴사이즈 == 1
					PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 툭 나왔다
					;PRINTFORM  풍만한 가슴이 비져 나왔다
				ELSEIF TALENT:가슴사이즈 == 0
					PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
					;PRINTFORM  모양 좋은 가슴이 드러나왔다
				ELSEIF TALENT:가슴사이즈 == -1
					PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
					;PRINTFORM  작은 축의 가슴이 드러나왔다
				ELSEIF TALENT:가슴사이즈 == -2
					PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
					;PRINTFORM  귀여운 유두가 드러나왔다
				ENDIF
				SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:5
					PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
			ELSE
				SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:(4 + 2 * (GET_INT(TARGET, "상반신속옷_탈의불가", EQUIP:TARGET:상반신속옷1, "옷감 두께")))
					PRINTFORM  옷 밖으로도 %NIPPLE_DESCRIPTION(TARGET)%가 발기한 것을 알 수 있다
			ENDIF
		ENDIF
		IF TEQUIP:유두캡 && TEQUIP:가슴주무르기
			PRINTFORM  유두캡이 %NIPPLE_DESCRIPTION(TARGET)%를 빨아내고 %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
		ELSEIF TEQUIP:유두빨기 && TEQUIP:가슴주무르기
			PRINTFORM  %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르는 상태로 %NIPPLE_DESCRIPTION(TARGET)%를 \@ ABL:MASTER:혀 > 2? 핥고 있다# 빨고 있다\@
		ELSEIF TEQUIP:유두캡
			PRINTFORM  유두캡이 %NIPPLE_DESCRIPTION(TARGET)%에 붙어 있다
		ELSEIF TEQUIP:착유기
			PRINT  착유기가 모유를 빨아들이고 있다
		ELSEIF TEQUIP:유두빨기
			PRINTFORM  %마스터가% %NIPPLE_DESCRIPTION(TARGET)%를 \@ ABL:MASTER:혀 > 2? 핥고 있다# 빨고 있다\@
		ELSEIF TEQUIP:가슴주무르기
			PRINTFORM  %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
		ENDIF
		SIF CFLAG:구내정액 == 1
			PRINT  입가에서 정액이 흐르고 있다
		SIF CFLAG:안면정액 == 1
			PRINT  얼굴에 정액이 뿌려져 있다
		SIF CFLAG:손에정액 == 1
			PRINT  손이 정액 범벅이다
		PRINTL
		PRINT 【하반신】
		;TEQUIP:하반신착의상황 아래 반신 착의상황(비트0=치마1=비켜 놓아 가능 2=비켜 놓아 불가 3=비켜 놓을 수 없는 하반신윗도리)
		;	(비트를 사용하고 싶지 않은 인용 0=이루어 1=노팬티 치마2=팬티뿐 3=치마+팬티
		;	4=스패츠(속옷) 혹은 노팬티 바지5=치마+스패츠 6=바지+팬티 7=풀 장비(이 바리안트에서는 무리))
		;CFLAG:팬티 팬티 플래그
		;0 팬티 입고 있다
		;1 팬티 입지 않다

		;하반신착의 이루어, 혹은 팬티 입지 않았다
		IF TEQUIP:하반신착의상황 == 0 || CFLAG:노팬티 > 0
		;	하반신착의가 있지만 노팬티이다
			IF CFLAG:노팬티 && TEQUIP:하반신착의상황 != 0
				착의상황 = 0
				FOR 장비부위, 15, 4, -1
					SIF GROUPMATCH(장비부위, 8, 7)
						CONTINUE
					표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
					SIF !STRLENS(표시내용)
						CONTINUE
					PRINTFORM %표시내용%
					BREAK
				NEXT
				;팬티는 입지 않지만 안보이기 때문에 표시하지 않는다
				;PRINT  (팬티 안 입음)
				IF PREVCOM == 330
					IF PALAM:윤활 >= PALAMLV:5
						PRINT  허벅지까지 축축하게 젖어있다
					ELSEIF PALAM:윤활 >= PALAMLV:3
						PRINT  부끄러운 부분에 덩그러니 얼룩이 져 있다
					ENDIF
					IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
						PRINTFORM  넘친 정액이 꿀럭꿀럭 소리와 함께 역류하고 있다
					ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
						PRINTFORM  넘친 정액이 허벅지를 타고 흘러떨어지고 있다
					ENDIF
				ELSEIF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
					PRINTFORM  넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 발 밑에 산을 이루고 있다 # 정액이 발 밑에 정액 웅덩이를 만들고 있다\@
				ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
					PRINTFORM  넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 허벅지에 들러붙어있다 # 정액이 허벅지를 타고 흘러떨어지고 있다\@
				ENDIF
			ELSEIF EQUIP:하반신속옷1 || EQUIP:하반신속옷2
				IF EQUIP:하반신속옷2
					표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
					PRINTFORM %표시내용%
					IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
						PRINTFORM  %표시내용%는 흘러넘치고 돌아간 정액으로 이제 완전하게 용무를 없음 않다
					ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
						PRINTFORM  %표시내용%는 정액을 흡수 다 할 수 있지 않았다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM  %표시내용%에 얼룩이 되어있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  %표시내용%가 습기차 있다
					ENDIF
				ELSE
					표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓기불가", EQUIP:TARGET:하반신속옷1, "이름")
					PRINTFORM %표시내용%
					SELECTCASE 표시내용
					CASE "샅바", "스패츠"
						IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
							PRINTFORM  %표시내용%는 넘쳐난 정액으로 이미 완전하게 용무를 없음 않다
						ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
							PRINTFORM  %표시내용%는 정액을 흡수 다 할 수 있지 않았다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 얼룩이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					CASE "마에바리", "반창고"
						IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
							PRINTFORM  %표시내용%는 보는 앞으로 벗겨져 하복부에 다시 폈다
						ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
							PRINTFORM  %표시내용%는 이미 걸리고 있을 뿐이다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
							PRINTFORM  %표시내용%가 벗겨져 가고 있다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 얼룩이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					CASE "정조대", "라비아 피어스", "클리 피어스"
						IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
							IF 표시내용 == "정조대"
								PRINTFORM  %표시내용%는 넘쳐나는 정액을 멈출 수 없다
							ELSE
								PRINTFORM  %표시내용%는 넘쳐난 정액으로 안보이게 되고 있다
							ENDIF
						ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
							PRINTFORM  %표시내용%는 넘쳐난 정액을 매달고 있다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 물방울이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					ENDSELECT
				ENDIF
			;하반신착의가 없다
			ELSE
				PRINT  알몸
				SIF TEQUIP:클리캡
					PRINT  클리캡이 클리토리스에 달라붙고 있다
				SIF TEQUIP:오나홀
					PRINT  페니스가 오나홀을 박고 있다
				IF !CFLAG:우후후
					IF CFLAG:TARGET:질내사정
						IF CFLAG:TARGET:애널사정 == 1
							IF 충전율(TARGET, 1) >= 1000 || 충전율(TARGET, 2) >= 1000
								PRINT  두 구멍으로부터 정액이 분화 같아 보여 날아오르며 있다
							ELSEIF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
								PRINT  두 구멍으로부터 정액이 폭포처럼 흘러넘치고 있다
							ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
								PRINT  두 구멍으로부터 정액이 흘러넘치고 있다
							ELSE
								PRINT  비렬과 항문으로부터 정액이 흘러나오고 있다
							ENDIF
						ELSEIF EX:처녀상실체크
							PRINT  비렬로부터 파과혈이 섞인 정액이 넘쳐 나오고 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINT  비렬로부터 정액과 애액의 서로 섞인 국물이 넘쳐 나오고 있다
						ELSE
							PRINT  비렬로부터 정액이 흘러나오고 있다
						ENDIF
					ELSEIF CFLAG:TARGET:애널사정 == 1
						PRINT  항문으로부터 정액이 흘러나오고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						IF PALAM:윤활 >= PALAMLV:6
							PRINTFORM  비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
						ELSEIF EX:처녀상실체크
							PRINT  비렬로부터 파과혈이 흐르고 있다
						ELSEIF PALAM:윤활 >= PALAMLV:4
							PRINT  허벅지를 애액이 타고 있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINT  비렬이 애액으로 습기차 있다
						ENDIF
					ENDIF
				ELSEIF PALAM:윤활 >= PALAMLV:2 && !(CFLAG:TARGET:질내사정 == 1 || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
					IF PALAM:윤활 >= PALAMLV:4
						PRINTFORM  비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
					ELSEIF EX:처녀상실체크
						PRINT  비렬로부터 파과혈이 흐르고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:3
						PRINTFORM  허벅지를 애액이 타고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  비렬이 애액으로 습기차 있다
					ELSEIF TALENT:처녀 == 1
						PRINTFORM 미사유기 딱 닫은 줄기가 이슬 악어 되어 있다
					ENDIF
				ENDIF
			ENDIF
			CALL LOOK_BELLY(TARGET)
		;하반신벌을 입고 있다, 한편 속옷도 붙이고 있다
		ELSE
			착의상황 = 0
		;	윗도리가 상하 연결이 되어 있는 옷을 입고 있는 경우, 그것을 표시한다
		;	없으면, 치마나 바지를 표시한다
		;	특별히 열중한 차례로도 되어 있지 않았기 때문에 루프를 통합
			FOR 장비부위, 15, 4, -1
				SIF GROUPMATCH(장비부위, 8, 7)
					CONTINUE
				표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
				SIF !STRLENS(표시내용)
					CONTINUE
				PRINTFORM %표시내용%
				BREAK
			NEXT
			IF !CFLAG:우후후
				;어쩐지 분기 들어갔지만 TEQUIP:하반신착의상황 == 0은↑으로 처리되므로 죽어 분기
				;IF TEQUIP:하반신착의상황 != 0
				;ENDIF
				IF PALAM:윤활 >= PALAMLV:5
					PRINT  넙적다리까지 흠뻑젖어(줄줄)에 젖고 있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINT  부끄러운 부분에 툭하고 얼룩이 되어있다
				ENDIF
				;난쟁이
				IF TALENT:TARGET:100 == -5
					LOCAL = 200
				;유아 체형, 작은 체형
				ELSEIF TALENT:TARGET:100 < 0
					LOCAL = 300
				;장신 이상
				ELSEIF TALENT:TARGET:100 >= 1
					LOCAL = 500
				;보통 체형
				ELSE
					LOCAL = 400
				ENDIF
				SIF EX:TARGET:질내정액 > LOCAL || EX:TARGET:애널내정액 > LOCAL
					PRINTFORM  넘쳐 나온\@TALENT:MASTER:농후정액 ?  풀과 같은 정액이 허벅지에 달라붙어 있는 # 정액이 허벅지를 타 늘어지고 떨어지고 있다\@
			;여기에서는 우후후 안
			ELSEIF TEQUIP:하반신착의상황 & 4
				IF PALAM:윤활 >= PALAMLV:5
					PRINT  가랑이의 부분이 흠뻑젖어(줄줄)에 젖고 있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINT  부끄러운 부분에 툭하고 얼룩이 되어있다
				ENDIF
			ELSE
				PRINTFORM  걷어 올릴 수 있는 %HIP(TARGET)%가 훤히 들여다 보이게 하고 있는
				IF PALAM:윤활 >= PALAMLV:1 || CFLAG:TARGET:애널사정 == 1 || CFLAG:TARGET:질내사정 == 1 && !((CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1) || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					;이것 하반신속옷1이 개미로 하반신속옷2가 없어라고 어떻게 됩니까
					;IF (EQUIP:하반신속옷1 || EQUIP:하반신속옷2)
					;수정을 시도 가필;해 두어입니다만 하반신속옷1을 실개 하는 선택지도 있어요
					IF EQUIP:하반신속옷2
						표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
						IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 얼룩이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					ELSE
						표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓기불가", EQUIP:TARGET:하반신속옷1, "이름")
						SELECTCASE 표시내용
						CASE "샅바", "스패츠"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM  %표시내용%에 얼룩이 되어있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM  %표시내용%가 습기차 있다
							ENDIF
						CASE "마에바리", "반창고"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
								PRINTFORM  %표시내용%가 벗겨져 가고 있다
							ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM  %표시내용%에 얼룩이 되어있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM  %표시내용%가 습기차 있다
							ENDIF
						CASE "정조대", "라비아 피어스", "클리 피어스"
							IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
								PRINTFORM  %표시내용%에 물방울이 되어있다
							ELSEIF PALAM:윤활 >= PALAMLV:2
								PRINTFORM  %표시내용%가 습기차 있다
							ENDIF
						ENDSELECT
					ENDIF
				ENDIF
				IF !EQUIP:하반신속옷2
				ELSEIF TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극
					PRINTFORM  %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%를 비켜 놓아지고 있다
				ELSEIF CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINTFORM  %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%에 큰 얼룩이 되어있다
				ENDIF
				IF CFLAG:TARGET:질내사정 == 1 && PALAM:윤활 >= PALAMLV:1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)  && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINT  비렬로부터 정액과 애액의 서로 섞인 국물이 넘쳐 나오고 있다
				ELSEIF CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || PALAM:윤활 >= PALAMLV:1) && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
					PRINT  비렬로부터 정액이 흘러나오고 있다
				ELSEIF CFLAG:TARGET:애널사정 == 1 && !(TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극) && (TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
					PRINT  항문으로부터 정액이 흘러나오고 있다
				ENDIF
			ENDIF
			CALL LOOK_BELLY(TARGET)
		ENDIF

		IF (TCVAR:TARGET:V삽입관리플래그 == PLAYER || TCVAR:TARGET:A삽입관리플래그 == PLAYER) && TALENT:PLAYER:형상 == 10
			PRINTL
			PRINT 삽입된 페니스의 형태가 복부에 떠오르고 있다…
		ENDIF
		;================================
		SELECTCASE TEQUIP:TARGET:체위
			CASE 1
				삽입상황 = 정상위
			CASE 2
				삽입상황 = 후배위
			CASE 3
				삽입상황 = 기승위
			CASE 4
				삽입상황 = 대면좌위
			CASE 5
				삽입상황 = 후배위
			CASE 6
				삽입상황 = 오나홀과 같이 취급해
		ENDSELECT

		IF TEQUIP:TARGET:V섹스 == PLAYER || TEQUIP:바이브
			PRINTL
			PRINT 【질내】
			IF TCVAR:TARGET:V삽입관리플래그 == PLAYER
				IF TCVAR:V에질내사정된플래그
					PRINTFORM  %삽입상황%로\@ EX:처녀상실체크?  처녀질에# \@\@TALENT:MASTER:농후정액 ? 농후한 # \@정액을{NOWEX:TARGET:질내정액}쏟아지고 있다
				ELSEIF CFLAG:TARGET:생리주기 == 7
					PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질에# \@교배되고 있다
				ELSEIF SHIRAHU(TARGET) && TALENT:TARGET:연모
					IF EX:처녀상실체크
						PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로 처녀를 바치고 있다
					ELSE
						PRINTFORM  %마스터와%%삽입상황%로 서로 사랑하고 있다
					ENDIF
				ELSEIF CFLAG:우후후 == 2
					PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
				ELSE
					PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
				ENDIF
			ELSEIF TEQUIP:바이브
				PRINT  바이브가 삽입되고 있다
			ENDIF
			SELECTCASE TEQUIP:자궁
				CASE 1
					SETCOLOR C_PINK
						PRINT  자궁이 내려와 있다
					RESETCOLOR
					;리셋하지 않으면 Act_COM행과 [V]까지 핑크가 되었기 때문에 추가
				CASE 2
					FONTBOLD
					SETCOLOR C_PINK
						PRINT  자궁이 내려와 있다
					RESETCOLOR
					FONTREGULAR
			ENDSELECT
		ENDIF
		IF TEQUIP:TARGET:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈
			PRINTL
			PRINT 【애널】
			IF TCVAR:TARGET:A삽입관리플래그 == PLAYER
				IF TCVAR:A에질내사정된플래그
					PRINTFORM  \@TALENT:MASTER:농후정액 ? 농후한 # \@정액을{NOWEX:TARGET:애널내정액}쏟아지고 있다
				ELSEIF !FLAG:시간정지 && !CFLAG:수면 && TALENT:TARGET:연모
					PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 삽입되고 있다
				ELSEIF CFLAG:우후후 == 2
					PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 범해지고 있다
				ELSE
					PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 범해지고 있다
				ENDIF
			ELSEIF TEQUIP:애널바이브
				PRINT  애널바이브가 삽입되고 있다
			ELSEIF TEQUIP:애널비즈
				PRINT  애널비즈가 삽입되고 있다
			ELSEIF TEQUIP:관장
				PRINT  플러그로 막혀 있다
			ELSEIF TEQUIP:확장벌룬
				PRINT  벌룬으로 확장되고 있다
			ELSEIF TEQUIP:애널전극
				PRINT  전극이 삽입되고 있다
			ENDIF
		ENDIF
		CALL LOOK_GIFT(TARGET)
	ENDIF
	IF FLAG:AA표시 && !FLAG:그림표시
		PRINTL
		CALL PRINT_AA(TARGET)
	ELSEIF FLAG:AA표시 && FLAG:그림표시
		SIF !TFLAG:LOOK비표시
			PRINTL
		CALL PRINT_TARGET_IMAGE(TARGET)
	ENDIF
	IF !TFLAG:LOOK비표시
		IF TEQUIP:PLAYER:V섹스 == TARGET || TEQUIP:PLAYER:A섹스 == TARGET
			SELECTCASE TEQUIP:MASTER:체위
				CASE 1
					삽입상황2 = 정상위로
				CASE 2
					삽입상황2 = 후배위로
				CASE 3
					삽입상황2 = 기승위로
				CASE 4
					삽입상황2 = 대면좌위로
				CASE 5
					삽입상황2 = 배면좌위로
				CASE 6
					삽입상황2 = 오나홀 같은 취급으로
				CASEELSE
					삽입상황2 =
			ENDSELECT

			PRINTL
			PRINT 【페니스】
			IF TEQUIP:PLAYER:V섹스 == TARGET
				PRINTFORM %CALLNAME:PLAYER%의 질내에 %삽입상황2% 삽입되고 있다
			ELSE
				PRINTFORM %CALLNAME:PLAYER%의 애널에 %삽입상황2% 삽입되고 있다
			ENDIF
		ENDIF
	ENDIF
ELSE
	IF !TFLAG:LOOK비표시
		;視点が大きくずれるのを防ぐためにTARGETがいないときの余白,パワプロみたいに小さい背景画でもあればいいんだけど
		FOR LOCAL, 1, 16
			PRINTL
		NEXT
	ENDIF
ENDIF

@LOOK_AT_CLOTHNAME(C_ID, E_ID)
#FUNCTIONS
#DIM C_ID;대상 캐릭터
#DIM E_ID;대상이 되는 EQUIP의 부위
SIF !EQUIP:C_ID:E_ID
	RETURNF
IF CSTR:C_ID:(50 + E_ID) != "" && !CFLAG:C_ID:파자마
	RETURNF CSTR:C_ID:(50 + E_ID)
ELSEIF EQUIPNAME:E_ID == "상반신속옷1"
	RETURNF BRANAME(EQUIP:C_ID:E_ID, C_ID)
ELSEIF EQUIPNAME:E_ID == "하반신속옷2"
	RETURNF PANTSNAME(EQUIP:C_ID:E_ID, C_ID)
ELSE
	RETURNF CLOTHNAME(E_ID, EQUIP:C_ID:E_ID)
ENDIF

;몸부위 1=V, 2=A, 3=VA 4= 자궁
@충전율(캐릭터등록번호, 몸부위)
#FUNCTION
#DIM 캐릭터등록번호
#DIM 몸부위
#DIM 정액량
#DIM 몸용량

VARSET 정액량

;해당 부위의 정액량의 취득
SELECTCASE 몸부위
	CASE 1
		정액량 = EX:캐릭터등록번호:질내정액
	CASE 2
		정액량 = EX:캐릭터등록번호:애널내정액
	CASE 3
		정액량 = EX:캐릭터등록번호:질내정액 + EX:캐릭터등록번호:애널내정액
	CASE 4
		정액량 = EX:캐릭터등록번호:자궁내정액
ENDSELECT

;해당 부위의 용량을 취득
SELECTCASE TALENT:캐릭터등록번호:체형
	CASE -5
		몸용량 = 300
	CASE -4 TO -2
		몸용량 = 600
	CASE -1
		몸용량 = 1000
	CASE 0
		몸용량 = 1200
	CASE IS > 0
		몸용량 = 1500
ENDSELECT

;자궁이라면 용량 반감
IF 몸부위 == 4
	몸용량 /= 2
ENDIF
RETURNF 100 * 정액량 / 몸용량

;배묘사
@LOOK_BELLY(ARG)
IF CFLAG:ARG:임신경과일수 >= 40
		PRINT  출산을 가까이 둔 배는 터질 것만 같다
ELSEIF CFLAG:ARG:임신경과일수 >= 30
		PRINT  생명을 숨어 배는 크게 부풀어 오르고 있다
ELSEIF CFLAG:ARG:임신경과일수 >= 20
		PRINT  배의 부푼 곳이 눈에 띄어 왔다
ELSEIF CFLAG:ARG:임신경과일수 >= 15
		PRINT  배가 부풀어 오르기 시작했다
ELSEIF 충전율(ARG, 3) >= 1000
		PRINT  고간으로부터 정액이 폭포처럼 분출하고 있다
ELSEIF 충전율(ARG, 3) >= 200
		PRINT  체내에 정액은 들어가 자르지 않고, 한없이 분출하고 있다
ELSEIF 충전율(ARG, 3) >= 100
		PRINT  배는 정액으로 임산부와 같이 부풀어 오르고 있다
ELSEIF 충전율(ARG, 3) >= 50
		PRINT  배는 정액으로 조금 부풀어 올라 버리고 있다
ENDIF


code:
;-------------------------------------------------
;함수명 :MOON_WATCH
;개요:어떤 달이 보일까를 돌려주는 함수
;ARG	DAY:3=날
;RETURN -1:월의 안보이는 상태, 0:달은 나와 있지 않은, 1:초생달, 2:이틀월, 3:초승달, 4:4~7 세월, 5:상현달, 6:9~12 세월, 7:십삼야, 8:음력 8월 14일 밤, 9:만월, 10:십육야, 11:17~22밤, 12:하현, 13:24~29밤, 14:30일월
;-------------------------------------------------
@MOON_WATCH(ARG)
#FUNCTION
;밤＋맑음＋옥외 or신사내의 실외
IF TIME:2 >= 5 && TIME:2 <= 7 && TIME:5 < 2 && MOON_WATCH_POINT(CFLAG:MASTER:현재위치)
	;달이 보이는 시간
	SELECTCASE ARG
	;초생달
	CASE 1,31
		RETURNF 1
	;이틀월(19시~20시)
	CASE 2
		SELECTCASE TIME:0
		CASE 1140 TO 1200
		RETURNF 2
		CASEELSE
		RETURNF 0
		ENDSELECT
	;초승달(19시~21시)
	CASE 3
		SELECTCASE TIME:0
		CASE 1140 TO 1260
		RETURNF 3
		CASEELSE
		RETURNF 0
		ENDSELECT
	;4, 5(19시~22시)
	CASE 4,5
		SELECTCASE TIME:0
		CASE 1140 TO 1320
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;6, 7(19시~23시)
	CASE 6,7
		SELECTCASE TIME:0
		CASE 1140 TO 1380
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;상현달(19시~24시)
	CASE 8
		SELECTCASE TIME:0
		CASE 1140 TO 1440
		RETURNF 5
		CASEELSE
		RETURNF 0
		ENDSELECT
	;9, 10(19시~25시)
	CASE 9,10
		SELECTCASE TIME:0
		CASE 0 TO 60,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;11, 12(19시~26시)
	CASE 11,12
		SELECTCASE TIME:0
		CASE 0 TO 120,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;십삼야(19시~27시)
	CASE 13
		SELECTCASE TIME:0
		CASE 0 TO 180,1140 TO 1440
		RETURNF 7
		CASEELSE
		RETURNF 0
		ENDSELECT
	;음력 8월 14일 밤(19시~27시 반)
	CASE 14
		SELECTCASE TIME:0
		CASE 0 TO 210,1140 TO 1440
		RETURNF 8
		CASEELSE
		RETURNF 0
		ENDSELECT
	;만월(19시~28시)
	CASE 15
		RETURNF 9
	;십육야(19시 반~28시)
	CASE 16
		SELECTCASE TIME:0
		CASE 0 TO 240,1170 TO 1440
		RETURNF 10
		CASEELSE
		RETURNF 0
		ENDSELECT
	;17, 18, 19(20시 반~28시)
	CASE 17,18,19
		SELECTCASE TIME:0
		CASE 0 TO 240,1230 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;20, 21, 22(22시 반~28시)
	CASE 20,21,22
		SELECTCASE TIME:0
		CASE 0 TO 240,1350 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;하현(24시~28시)
	CASE 23
		SELECTCASE TIME:0
		CASE 0 TO 240
		RETURNF 12
		CASEELSE
		RETURNF 0
		ENDSELECT
	;24, 25, 26(25시~28시)
	CASE 24,25,26
		SELECTCASE TIME:0
		CASE 60 TO 240
		RETURNF 13
		CASEELSE
		RETURNF 0
		ENDSELECT
	;27, 28, 29(26시~28시)
	CASE 27,28,29
		SELECTCASE TIME:0
		CASE 120 TO 240
		RETURNF 13
		CASEELSE
		ENDSELECT
	;30(27시 반~28시)
	CASE 30
		SELECTCASE TIME:0
		CASE 180 TO 240
		RETURNF 14
		CASEELSE
		RETURNF 0
		ENDSELECT
	ENDSELECT
	ELSE
	RETURNF -1
ENDIF

@NAME_MOON(MOON)
#FUNCTIONS
#DIM  MOON;MOON에는 DAY:3을 건네주는 것
#DIMS CONST NAME_MOON = "", "삭월", "신월", "초승달", "초승달", "상현달", "차가는 달", "십삼야", "음력 8월 14일 밤", "만월", "십육야", "기울어가는 달", "기울어가는 달", "하현달", "그믐달", "그믐달"

MOON = MAX(MOON_WATCH(MOON), 0)
SIF DAY:2 == 3 && MOON == 9
	RETURNF "보름 -중추의 명월- "
RETURNF NAME_MOON:MOON


code:
@PRINT_STATE_JUEL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

PRINTL
PRINTL □ 보주 □---------------------------------------------------------------------------
표시항목수 = 0
FOR LOCAL, 0, 22
	;PALAM.CSV에 명칭이 등록되지 않았으면 CONTINUE
	SIF !STRLENS(PALAMNAME:LOCAL)
		CONTINUE
	;1000, 1000000, 단위로 구분짓는다
	LOCALS = {JUEL:선택중캐릭터ID:LOCAL}
	SIF JUEL:선택중캐릭터ID:LOCAL > 1000000
		LOCALS = {JUEL:선택중캐릭터ID:LOCAL / 1000}k
	SIF JUEL:선택중캐릭터ID:LOCAL > 1000000000
		LOCALS = {JUEL:선택중캐릭터ID:LOCAL / 1000000}m
	PRINTFORM %PALAMNAME:LOCAL,6%의 구슬:%LOCALS, 7, LEFT%
	표시항목수 += 1
	;개행 or표시 위치 열려라
	SIF 표시항목수 % 4 == 0
		PRINTL
NEXT
;부정의 구슬
LOCALS = {JUEL:선택중캐릭터ID:100}
SIF JUEL:선택중캐릭터ID:100 > 1000000
	LOCALS = {JUEL:선택중캐릭터ID:100 / 1000}k
PRINTFORM %PALAMNAME:100,6%의 구슬:%LOCALS, 7, LEFT%

@PRINT_STATE_EX(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

SIF EX:선택중캐릭터ID:C절정 + EX:선택중캐릭터ID:V절정 + EX:선택중캐릭터ID:A절정 + EX:선택중캐릭터ID:B절정 + EX:선택중캐릭터ID:M절정 + EX:선택중캐릭터ID:분유 + EX:선택중캐릭터ID:사정 == 0
	RETURN 0
표시항목수 = 0
PRINTL
PRINTL □ 절정회수 □-----------------------------------------------------------------------
FOR LOCAL, 0, VARSIZE("EX")
	SIF !EX:선택중캐릭터ID:LOCAL
		CONTINUE
	SIF !GROUPMATCH(EXNAME:LOCAL, "C절정", "V절정", "A절정", "B절정", "M절정", "분유", "사정", "방뇨")
		CONTINUE
	PRINTFORM %EXNAME:LOCAL,12%:{EX:선택중캐릭터ID:LOCAL, 5, LEFT}
	표시항목수 ++
	SIF 표시항목수 % 4 == 0
		PRINTL
NEXT

@PRINT_STATE_PERSONAL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIMS KARADAMEATE
PRINTL
PRINTL □ 개인 정보 □-----------------------------------------------------------------------
PRINTL
IF 선택중캐릭터ID == MASTER
	IF CFLAG:MASTER:수면
		PRINTFORML 어제의 취침시각：%시각표시(CFLAG:MASTER:취침시간 - DAY * 1440)%
	ELSE
		PRINTFORML 어제의 취침시각：%시각표시(CFLAG:MASTER:취침시간 + 1440 - DAY * 1440)%
	ENDIF
	PRINTFORML 기상시각：%시각표시(TIME:3)%
	IF FLAG:지주
		PRINTFORML
		CALL SHOW_NOUMIN
	ENDIF
ELSE
	PRINT 활동시간대：
	SELECTCASE 선택중캐릭터ID
	CASE 1
		PRINTL 6～13시 14～23시
	CASE 2
		PRINTL 5～13시 14～24시
	CASE 3
		PRINTL 0～10시 17～24시
	CASE 4
		PRINTL 0～10시 16～24시
	CASE 5
		PRINTL 6～24시
	CASE 6
		PRINTL 0～2시 8～24시
	CASE 7
		PRINTL 0～1시 6～13시 14～24시
	CASE 8
		PRINTL 0～1시 6～13시 14～24시
	CASE 9
		PRINTL 0～5시 10～13시 14～24시
	CASE 10
		PRINTL 0～3시 10～24시
	CASEELSE
		IF CFLAG:선택중캐릭터ID:신사거주 || CFLAG:MASTER:현재위치 == OMANEKIBEYA()
			CALL 기상시간표시(선택중캐릭터ID)
		ELSE
			CALL 체류시간표시(선택중캐릭터ID)
		ENDIF
	ENDSELECT
	IF CFLAG:선택중캐릭터ID:자주가는지역 >= 0
		PRINTFORML 자주 가는 지역 : %GET_MAPNAME(CFLAG:선택중캐릭터ID:자주가는지역)%
	ENDIF
	IF CFLAG:선택중캐릭터ID:자택위치 && !CFLAG:선택중캐릭터ID:신사거주
		LOCAL = CFLAG:선택중캐릭터ID:자택위치 / 10 + 6000
		PRINT 자택 위치：
		PRINTFORML %STR:LOCAL%
	ELSEIF CFLAG:선택중캐릭터ID:신사거주
		PRINT 자택 위치：
		PRINTFORML %GET_MAPNAME(MAIN_MAP)%
	ENDIF
	PRINT 업무 정보：
	PRINTFORML %CSTR:선택중캐릭터ID:일정보%
	PRINT 　 직장　：
	PRINTFORML %CSVCSTR(선택중캐릭터ID, 2)%
ENDIF

PRINT 미각 기호：
IF GETBIT(CFLAG:선택중캐릭터ID:332, 0)
	PRINTFORM ＜진한 맛＞
ELSEIF GETBIT(CFLAG:선택중캐릭터ID:332, 1)
	PRINTFORM ＜담백한 맛＞
ELSE
	PRINTFORM ＜보통＞
ENDIF
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 3)
	PRINTFORM ＜매운맛 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 4)
	PRINTFORM ＜단맛 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 5)
	PRINTFORM ＜고추냉이 내성＞
SIF GETBIT(CFLAG:선택중캐릭터ID:332, 6)
	PRINTFORM ＜레몬 내성＞
PRINTL
PRINTL 좋아하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：좋아하는 맛"))
IF TALENT:선택중캐릭터ID:정애미각 ;KR판 고유기능 또는 구잔재
	LOCALS = [정액]Lv{ABL:선택중캐릭터ID:정액중독*2 + 1, 2}
	PRINTFORML 　%LOCALS, 20%
ENDIF
PRINTL 싫어하는 맛：
CALL SHOW_TASTE(GET_STR(, "캐릭터데이터", 선택중캐릭터ID, "요리：싫어하는 맛"))
PRINTL 조수 효과：
CALL SHOW_TASTE(GET_TASTE_ASSIBONUS(선택중캐릭터ID))
SIF 선택중캐릭터ID == MASTER && STRLENS(DISHNAME)
	CALL SHOW_DISHDATA

IF CFLAG:선택중캐릭터ID:좋아하는체위
	PRINT 약점：
	SELECTCASE CFLAG:선택중캐릭터ID:좋아하는체위
	CASE 1
		PRINTL 정상위
	CASE 2
		PRINTL 후배위
	CASE 3
		PRINTL 기승위
	CASE 4
		PRINTL 대면좌위
	CASE 5
		PRINTL 배면좌위
	CASE 6
		PRINTL 정상위 애널
	CASE 7
		PRINTL 후배위 애널
	CASE 8
		PRINTL 기승위 애널
	CASE 9
		PRINTL 대면좌위 애널
	CASE 10
		PRINTL 배면좌위 애널
	ENDSELECT
	PRINTL
ENDIF

PRINTL
IF 선택중캐릭터ID == RANDOM_CHARANUM
	;현상, 복잡한 종족 분기 등은 없음으로
	PRINTL □ 캐릭터 소개 □---------------------------------------------------------------------
	PRINTL
	PRINTFORML ∼모브 소녀∼　●종족：인간　●능력：%CSTR:RANDOM_CHARANUM:모브코능력%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필1%
	PRINTFORML %CSTR:RANDOM_CHARANUM:모브코프로필2%
ELSEIF CSVCSTR(선택중캐릭터ID, 10) != ""
	PRINTL □ 캐릭터 소개 □---------------------------------------------------------------------
	PRINTL
	;캐릭터 소개문을 말의 전개에 의해 개변하고 싶은 경우 「@CHARA_INFO_KOJO_KX」를 사용한다
	TRYCALLFORM CHARA_INFO_KOJO_K{선택중캐릭터ID}
	IF !RESULT
		FOR LOCAL, 10,20
			SIF CSVCSTR(선택중캐릭터ID, LOCAL) != ""
				PRINTFORML %CSVCSTR(선택중캐릭터ID, LOCAL, )%
		NEXT
	ENDIF
ENDIF
SETCOLOR C_YELLOW
IF 선택중캐릭터ID == MASTER && FLAG:생활능력무
	PRINTFORML 답이 없는 무능력자다
	PRINTFORML
ENDIF
SETCOLOR C_PINK
IF CFLAG:선택중캐릭터ID:인계
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 0)
		PRINTL 이전 회차에서 연모가 되었던 적이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 1)
		PRINTL 이전 회차에서 연인이 되었던 적이 있다
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 7)
		PRINTL 이전 회차에서 아내가 되었던 적이 있다
ENDIF
IF 선택중캐릭터ID == MASTER
	IF TALENT:선택중캐릭터ID:연인
		LOCAL:3 = 1
		FOR LOCAL:1 , 1 , CHARANUM
			IF TALENT:(LOCAL:1):연인
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM ［%CALLNAME:(LOCAL:1)%］
			ENDIF
		NEXT
		PRINTFORML 와 사랑하는 사이다
	ELSEIF IS_아내(선택중캐릭터ID)
		LOCAL:3 = 1
		FOR LOCAL:1, 1, CHARANUM
			IF IS_아내(LOCAL:1)
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM [%CALLNAME:(LOCAL:1)%]
			ENDIF
		NEXT
		PRINTFORML 와 부부 사이다
	ENDIF
ENDIF
SIF CFLAG:선택중캐릭터ID:깨끗한교제
	PRINTFORML 깨끗한 교제를 거쳐 %마스터와% 사랑하는 사이가 되었다
SIF CFLAG:선택중캐릭터ID:기정사실 & 합의_키스
	PRINTFORML %CALLNAME:MASTER%에 입술을 허락하고 있다
IF CFLAG:선택중캐릭터ID:기정사실 & 합의_우후후
	PRINTFORML %CALLNAME:MASTER%에 몸을 허락하고 있다
ELSEIF CFLAG:선택중캐릭터ID:대주고말았다
	PRINTFORML 분위기 타서 행위에 이른 적은 있지만, %CALLNAME:MASTER%에 몸을 허락할 맘은 없다
ENDIF
SIF TALENT:선택중캐릭터ID:처녀 && TALENT:선택중캐릭터ID:걸레
	PRINTFORML 일단 처녀지만, 요구받으면 간단하게 몸을 내줄 것이다
IF CFLAG:선택중캐릭터ID:몸목적
	IF TALENT:선택중캐릭터ID:체형 == -2
		KARADAMEATE = 그 어린
	ELSEIF TALENT:선택중캐릭터ID:가슴사이즈 > 0
		KARADAMEATE = 그 풍만한
	ELSEIF TALENT:선택중캐릭터ID:처녀 > 0
		KARADAMEATE = 그 때묻지 않은
	ELSE
		KARADAMEATE = 그 싱그러운
	ENDIF
	PRINTFORML %CALLNAME:MASTER%에게 %KARADAMEATE%몸을 노림받고 있다
ENDIF
RESETCOLOR
IF TALENT:선택중캐릭터ID:연모
	IF TALENT:선택중캐릭터ID:무지
		PRINTFORML %CALLNAME:선택중캐릭터ID%는 %CALLNAME:MASTER%의 색시가 되겠다고 남몰래 마음먹고 있다
	ELSEIF !CFLAG:선택중캐릭터ID:기정사실 & 합의_우후후
		IF TALENT:선택중캐릭터ID:정조 > 0
			PRINTFORML 육체 관계는 행실이 좋지 못한 짓이라고 여김에도 불구하고, %CALLNAME:선택중캐릭터ID%는 마음속으론 %마스터와% 몸을 섞고 싶다고 생각 중이다
		ELSE
			PRINTFORML %마스터가% 아직도 손을 대지 않는 데에 짜증과 불안을 느끼고 있다
		ENDIF
	ENDIF
ENDIF

IF TALENT:선택중캐릭터ID:임신소망
	IF !CFLAG:선택중캐릭터ID:안면
	ELSEIF CFLAG:선택중캐릭터ID:생해금 == 2
		PRINTFORML %CALLNAME:MASTER%의 아이를 갖고 싶다고 생각하고 있다.
	ELSE
		PRINTFORML 뚜렷하게 인식하고 있지는 않지만,%CALLNAME:MASTER%의 아이를 갖고 싶다고 느끼고 있다.
	ENDIF
ENDIF

IF CFLAG:선택중캐릭터ID:발렌타인
	SELECTCASE CFLAG:선택중캐릭터ID:발렌타인 % 100
		CASE 1
			LOCALS = 블랙썬더를
		CASE 2
			LOCALS = 평범한 초콜렛을
		CASE 3
			LOCALS = 고급 초콜렛을
		CASE 4
			LOCALS = 수제 초콜렛을
	ENDSELECT
	PRINTFORML 발렌타인에 %LOCALS% 준 \@ CFLAG:선택중캐릭터ID:발렌타인 > 100?  (답례 완료)# \@
ENDIF
PRINTFORML
PRINTL □ 탄막스킬 □---------------------------------------------------------------------
CALL DANMAKU_OPPONENT_STATUS(선택중캐릭터ID, 1)
@체류시간표시(선택중캐릭터ID)
#DIM 선택중캐릭터ID

IF CFLAG:선택중캐릭터ID:내방시간 < CFLAG:선택중캐릭터ID:귀가시간
	PRINTFORML {CFLAG:선택중캐릭터ID:내방시간 / 60}시～{CFLAG:선택중캐릭터ID:귀가시간 / 60}시
ELSE
	PRINTFORML 0시～{CFLAG:선택중캐릭터ID:귀가시간 / 60}시 {CFLAG:선택중캐릭터ID:내방시간 / 60}시～24시
ENDIF

@기상시간표시(선택중캐릭터ID)
#DIM 선택중캐릭터ID

IF CFLAG:선택중캐릭터ID:기상시간 < CFLAG:선택중캐릭터ID:취침시간
	PRINTFORML {CFLAG:선택중캐릭터ID:기상시간 / 60}시～{CFLAG:선택중캐릭터ID:취침시간 / 60}시
ELSE
	PRINTFORML 0시～{CFLAG:선택중캐릭터ID:취침시간 / 60}시 {CFLAG:선택중캐릭터ID:기상시간 / 60}시～24시
ENDIF

@육체정보(선택중캐릭터ID)
#DIM 선택중캐릭터ID
VARSET LOCALS
VARSET LOCAL
PRINTL
PRINTL □ 육체 정보 □-----------------------------------------------------------------------
PRINTL
PRINTL 【입】
PRINTFORM 첫키스 이력：
;IF !EXP:선택중캐릭터ID:키스경험
IF TALENT:선택중캐릭터ID:키스미경험
	SELECTCASE CFLAG:선택중캐릭터ID:첫키스상실대상
		CASE 0
			CALL COLORMESSAGE(@"아직 누구에게도 입술을 허락하지 않았다", C_YELLOW, 1)
		CASE 1
			CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
		CASE 2
			CALL COLORMESSAGE(@"아직 누구에게도 입술을 허락하지 않았다", C_YELLOW, 1)
			PRINTFORM 고 알고 있지만, 사실은
			CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
	ENDSELECT
ELSEIF CFLAG:선택중캐릭터ID:첫키스상실기념일
	IF STRFIND(CSTR:선택중캐릭터ID:첫키스상실이력, "\BR") > 0
		LOCAL = RESULT
		SPLIT CSTR:선택중캐릭터ID:첫키스상실이력, "\BR", LOCALS
		CALL COLORMESSAGE(@"%LOCALS:0%", C_PINK, 1)
		PRINTFORM 고 생각하고 있지만, 사실은
		CALL COLORMESSAGE(@"%LOCALS:1%", C_PINK, 1)
		RESULT = LOCAL
		VARSET LOCALS
	ELSE
		CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:첫키스상실이력%", C_PINK, 1)
	ENDIF
ELSE
	CALL COLORMESSAGE(@"%마스터를% 만나기 전에 잃었다", C_AQUA, 1)
	;라고 생각하는데…
ENDIF

SIF EXP:선택중캐릭터ID:키스경험
	PRINTFORML 지금까지 {EXP:선택중캐릭터ID:키스경험}회의 입맞춤을 경험했다
SIF CFLAG:선택중캐릭터ID:누계정음
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계정음}의 정액을 삼켰다
IF EXP:선택중캐릭터ID:정음경험 > 300 && ABL:선택중캐릭터ID:정액중독 >= 10
	PRINTFORML 정액을 삼키는 것만으로도 완전히 발정한 몸이 되었다
ELSEIF EXP:선택중캐릭터ID:정음경험 > 150 && ABL:선택중캐릭터ID:정액중독 >= 5
	PRINTFORML 정액을 맛보면 몸이 달아오른다
ELSEIF TALENT:선택중캐릭터ID:정애미각
	PRINTFORML 정액 맛에 흥분을 금치 못한다
ELSEIF ABL:선택중캐릭터ID:정액중독 >= 3
	PRINTFORML 정액을 저항감 없이 먹을 수 있다
ENDIF
SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 6)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당했다
IF 선택중캐릭터ID == MASTER
	IF ABL:선택중캐릭터ID:혀 >= 5
		PRINTFORML 탁월한 혀 기술로 소녀를 사로잡는다
	ELSEIF ABL:선택중캐릭터ID:혀 >= 3
		PRINTFORML 교묘한 혀놀림으로 소녀에게 기쁨을 준다
	ENDIF
ELSEIF EXP:선택중캐릭터ID:키스경험 ;KR판 오리지날 또는 구잔재
	SELECTCASE ABL:선택중캐릭터ID:M감각
		CASE IS >= 10
			PRINTL 감도 발군 입만 맞추어도 성욕에 지배당할지 모른다
		CASE IS >= 5
			PRINTL 감도 양호 혀를 넣으면 저항하지 못한다
	ENDSELECT
ENDIF
PRINTL
PRINTL 【가슴】
SELECTCASE ABL:선택중캐릭터ID:B감각
	CASE IS >= 10
		PRINTL 감도 발군
	CASE IS >= 5
		PRINTL 감도 양호
ENDSELECT
IF TALENT:선택중캐릭터ID:음유
	PRINTL 완전히 조교가 끝난
	IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
		PRINTL 가슴
	ELSE
		PRINTL 유방
	ENDIF
	PRINTFORML 은 한 번 어루만지기만 해도 몸을 가누지 못할 수준이다
ENDIF

SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 5)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
IF CFLAG:선택중캐릭터ID:누계뿌려짐
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계뿌려짐}의 정액에 범벅된
	SELECTCASE ABL:선택중캐릭터ID:가슴 ;KR판 구잔재 또는 오리지날
		CASE IS >= 5
			IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
				PRINTFORML 그 가슴은, 이제 성기를 자극하기 위해 존재한다
			ELSE
				PRINTFORML 그 유방은, 이제 성기로 변하고 말았다
			ENDIF
		CASE IS >= 3
			IF TALENT:선택중캐릭터ID:가슴사이즈 < 0
				PRINTFORML 그 가슴은, 남근을 자극하는 방법을 알고 있다
			ELSE
				PRINTFORML 그 유방은, 정액을 짜내는 방법을 단단히 익히고 있다
			ENDIF
	ENDSELECT
ENDIF

IF TALENT:선택중캐릭터ID:모유체질
	;PRINTFORML \@ ABL:선택중캐릭터ID:분유중독 >= 3 ? 단맛 나는 젖이 듬뿍 담겨 있다# 자극해주면 단맛 나는 젖이 배어나올 것이다\@
	PRINTFORML 자극해주면 단맛 나는 젖이 배어나올 것이다
ENDIF
SELECTCASE ABL:선택중캐릭터ID:가슴
	CASE IS >= 5
	CASE IS >= 3
ENDSELECT
PRINTL

PRINTL 【손가락】
SELECTCASE ABL:선택중캐릭터ID:손가락
	CASE IS >= 5
		PRINT 흉기
	CASE IS >= 3
		PRINT 달인
ENDSELECT
IF 선택중캐릭터ID == MASTER
	IF ABL:선택중캐릭터ID:손가락 >= 5
		PRINTFORML 낭창한 손가락의 애무는 금방 소녀를 황홀경에 빠트린다
	ELSEIF ABL:선택중캐릭터ID:손가락 >= 3
		PRINTFORML 교묘한 손가락질로 소녀에게 기쁨을 준다
	ENDIF
ENDIF
PRINTL
PRINTL 【애널】
PRINTFORM 애널처녀상실이력：
IF CSTR:선택중캐릭터ID:애널처녀상실이력 != ""
	CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:애널처녀상실이력%", C_PINK, 1)
ELSEIF !EXP:선택중캐릭터ID:A성교경험
	CALL COLORMESSAGE(@"아직 아무도 받아들이지 않았다", C_YELLOW, 1)
ELSE
	PRINTFORML
ENDIF
SELECTCASE ABL:선택중캐릭터ID:A감각
	CASE IS >= 10
		PRINT 감도 발군
	CASE IS >= 5
		PRINT 감도 양호
ENDSELECT
SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 4)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
IF 선택중캐릭터ID
	SELECTCASE 삽입불가(선택중캐릭터ID)
		CASE 3
			PRINTFORML 도저히 %CALLNAME:MASTER%의 페니스를 받아들일 만한 사이즈가 아니다
			LOCAL:6 ++
		CASE 2
			IF EXP:선택중캐릭터ID:A경험 < 50 && TALENT:MASTER:금단의지식
				PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
				LOCAL:6 ++
			ELSEIF !TALENT:MASTER:금단의지식
				PRINTFORML %CALLNAME:MASTER%의 페니스를 삽입하는 짓은 가혹할 것이다
				LOCAL:6 ++
			ENDIF
		CASE 1
			IF EXP:선택중캐릭터ID:A경험 < 50 || !TALENT:MASTER:금단의지식
				PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
				LOCAL:6 ++
			ENDIF
		CASE -1
			IF ABL:선택중캐릭터ID:애널 < 2
				PRINTFORML %CALLNAME:MASTER%의 페니스로는 다소 사이즈가 맞지 않는다
				LOCAL:6 ++
			ENDIF
		CASE -2
			IF ABL:선택중캐릭터ID:애널 < 3
				PRINTFORML 너무 커서 넣어봤자 별로 기분 좋지 않을 것 같다…
				LOCAL:6 ++
			ENDIF
	ENDSELECT
	SELECTCASE ABL:선택중캐릭터ID:애널
		CASE IS >= 5
			PRINTL 극상 명기
			PRINTFORML 완전히 %CALLNAME:MASTER%의 형태대로 다시 만들어진 애널은 살주름을 벌름거리며 엉겨든다
		CASE IS >= 3
			PRINTL 명기
			PRINTFORML 자주 쓴 보람이 있어 매우 박음직한 구멍이 되었다
		CASE 2
			PRINTFORML %마스터를% 받아들이는 데에 익숙해져버렸다
		CASE 1
			PRINTL 풀어지기 시작해 박을 맛이 나기 시작했다
		CASE 0
			IF !CFLAG:선택중캐릭터ID:애널처녀상실기념일
;				PRINTL 미개통
			ELSEIF EXP:선택중캐릭터ID:A경험 < 20
					PRINTL 아직 이물을 받아들이는 데에 익숙해지지 않았다
			ENDIF
	ENDSELECT
ENDIF
SIF CFLAG:선택중캐릭터ID:누계애널정액
	PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계애널정액}의 정액을 쏟아부었다

SELECTCASE ABL:선택중캐릭터ID:항내사정중독
	CASE IS >= 10 ;KR판 오리지날 또는 구잔재
		PRINTFORML 애널 내 사정 받으면 정신을 못 차리고 펄떡거린다
	CASE IS >= 7
		PRINTFORML 애널 내 사정 받으면 행복감을 느낀다
	CASE IS >= 3
		PRINTFORML 애널 내 사정 받으면 장내가 달아오른다
ENDSELECT

IF ABL:선택중캐릭터ID:A감각 >= 10 && CFLAG:선택중캐릭터ID:욕구불만도 > 800 && 선택중캐릭터ID
	;KR판 구잔재
	PRINTFORML %CALLNAME:MASTER%에 안기는 것을 상상해 항문이 실룩실룩 개폐하고 있다
ELSEIF ABL:선택중캐릭터ID:A감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID
	PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다
ENDIF

IF 충전율(선택중캐릭터ID, 2) >= 1000
	;KR판 구잔재
	PRINTFORML 인간세상 밖의 사정에 노출되어 직장은 커녕 그 안쪽까지도 정액으로 채워지고 있다
ELSEIF 충전율(선택중캐릭터ID, 2) >= 200
	;KR판 구잔재
	PRINTFORML 직장은 정자로 완전하게 만배가 되어, 항문으로부터 조금씩 빠지고 내고 있는
ELSEIF 충전율(선택중캐릭터ID, 2) >= 100
	PRINTFORML 직장은 중량감을 느낄 정도의 양의 정액으로 완전하게 채워지고 있다
ELSEIF 충전율(선택중캐릭터ID, 2) >= 50
	PRINTFORML 직장으로 엄청난 수의 정자가 꿈틀거리고 있는
ELSEIF 충전율(선택중캐릭터ID, 2) >= 20
	PRINTFORML 직장으로 정자가 건강하게 헤엄쳐 돌고 있다
ENDIF

PRINTL
IF TALENT:선택중캐릭터ID:2 & 1
	PRINTL 【질】
	PRINTFORM 처녀상실이력：
	IF CFLAG:선택중캐릭터ID:처녀상실기념일
		CALL COLORMESSAGE(@"%CSTR:선택중캐릭터ID:처녀상실이력%", C_PINK, 1)
	ELSEIF !CSVTALENT(선택중캐릭터ID, GETNUM(TALENT, "처녀")) && TALENT:선택중캐릭터ID:처녀 == 1
		CALL COLORMESSAGE(@"세계선이 바뀌고 아무도 받아들이지 않았다", C_YELLOW, 1)
	ELSEIF !CSVTALENT(선택중캐릭터ID, GETNUM(TALENT, "처녀"))
		CALL COLORMESSAGE(@"%마스터를% 만나기 전에 잃었다", C_AQUA, 1)
	ELSE
		IF TALENT:선택중캐릭터ID:처녀 == 1
			SIF ABL:선택중캐릭터ID:V감각 >= 10 & (TALENT:LOCAL:150 || TALENT:LOCAL:151) && !TALENT:LOCAL:초경 ;KR판 구잔재
				LOCALS:0 = 데도 불구하고, 자궁은 완전하게 암컷으로서 음란에 꽃 열려 있다
			SIF ABL:선택중캐릭터ID:V감각 >= 5
				LOCALS:0 = 데도 불구하고, 자극이 주어지면 용이하게 절정 할 만큼 추잡하게 개발되고 있다
			CALL COLORMESSAGE(@"아직 한 명도 받아들인 적이 없는 %LOCALS:0%", C_YELLOW, 1)
		ELSEIF TALENT:선택중캐릭터ID:처녀 == -1
			CALL COLORMESSAGE(@"벌써 처녀를 빼앗긴 사실을 깨닫지 못한", C_PINK, 1)
		ENDIF
	ENDIF

	SELECTCASE ABL:선택중캐릭터ID:V감각
		CASE IS >= 10
			PRINT 감도 발군
		CASE IS >= 5
			PRINT 감도 양호
	ENDSELECT
	SIF GETBIT (CFLAG:선택중캐릭터ID:인계, 3)
	PRINTFORML 어떡해야 느끼는지 %CALLNAME:MASTER%에게 속속들이 파악당한
	IF 선택중캐릭터ID
		SELECTCASE 삽입불가(선택중캐릭터ID)
			CASE 3
				PRINTFORML 도저히 %CALLNAME:MASTER%의 페니스를 받아들일 만한 사이즈가 아니다
				LOCAL:5 ++
			CASE 2
				IF EXP:선택중캐릭터ID:V경험 < 50 && TALENT:MASTER:금단의지식
					PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
					LOCAL:5 ++
				ELSEIF !TALENT:MASTER:금단의지식
					PRINTFORML %CALLNAME:MASTER%의 페니스를 삽입하는 짓은 가혹할 것이다
					LOCAL:5 ++
				ENDIF
			CASE 1
				IF EXP:선택중캐릭터ID:V경험 < 50 || !TALENT:MASTER:금단의지식
					PRINTFORML 좀 더 풀어놓지 않으면 %CALLNAME:MASTER%의 페니스는 들어가지 않을 것이다
					LOCAL:5 ++
				ENDIF
			CASE -1
				IF ABL:선택중캐릭터ID:질 < 2
					PRINTFORML %CALLNAME:MASTER%의 페니스로는 다소 사이즈가 맞지 않는다
					LOCAL:5 ++
				ENDIF
			CASE -2
				IF ABL:선택중캐릭터ID:질 < 3
					PRINTFORML 너무 커서 넣어봤자 별로 기분 좋지 않을 것 같다…
					LOCAL:5 ++
				ENDIF
		ENDSELECT
		IF ABL:선택중캐릭터ID:V감각 >= 10 && CFLAG:선택중캐릭터ID:욕구불만도 > 800 && 선택중캐릭터ID ;KR판 구잔재
			PRINTFORML %CALLNAME:MASTER%에 관철해지는 것을 상상해 자궁이 큐 응 두근 쑤시고 있다
		ELSEIF ABL:선택중캐릭터ID:V감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID ;KR판 구잔재
			PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다
		ENDIF
		IF !LOCAL:5
			SELECTCASE ABL:선택중캐릭터ID:질
				CASE IS >= 5
					PRINTL 극상 명기
					IF TALENT:선택중캐릭터ID:처녀 == -1
						PRINTFORML 당사자가 관련이 있지 못한 채, %마스터를% 기쁘게 하기 위할 뿐인 구멍으로 변했다
					ELSE
						PRINTFORML 완전하게 %CALLNAME:MASTER%의 모양에 다시 만들 수 있었던 질내는 고기주름을 벌름거릴 수 있어 관련되어 따라 온다
					ENDIF
				CASE IS >= 3
					PRINTL 명기
					IF TALENT:선택중캐릭터ID:처녀 == -1
						PRINTFORML 알지 못하는 새에 %마스터를% 기분 좋게 만들기 위한 구멍으로 재구성되었다
					ELSE
						PRINTFORML 사용한 보람이 있어 매우 맛 좋은 구멍이 되었다
					ENDIF
				CASE 2
					PRINTFORML %마스터를% 받아들이는 것에 익숙해지고 자르고 있다
				CASE 1
					PRINTL 자포자기해 처음으로 상태가 좋아져 왔다
				CASE 0
					;IF EXP:선택중캐릭터ID:V경험
					IF TALENT:선택중캐릭터ID:처녀 == 1
						PRINTL 성을 모르는 미사용의 질
					ELSEIF EXP:선택중캐릭터ID:V경험 < 10
						PRINTL 성을 알아 어른의 계단을 조심조심 오르기 시작한지 얼마 안된 질은 강하게 매달려 온다
					ELSEIF EXP:선택중캐릭터ID:V경험 < 20
						PRINTL 미사용에 가까운 질은 아직 딱딱함을 남기고 있다
					ENDIF
			ENDSELECT
		ENDIF
	ENDIF

	SIF CFLAG:선택중캐릭터ID:누계질내정액
		PRINTFORML 지금까지 {CFLAG:선택중캐릭터ID:누계질내정액}의 정액을 쏟아졌다
	SELECTCASE ABL:선택중캐릭터ID:질내사정중독
		CASE IS >= 10 ;KR판 구잔재
			PRINTFORML 질내사정 받으면 간단하게 절정에 이른다
		CASE IS >= 7
			PRINTFORML 질내사정 받으면 행복감을 느낀다
		CASE IS >= 3
			PRINTFORML 질내사정 받으면 자궁이 달아오른다
	ENDSELECT

	SIF ABL:선택중캐릭터ID:V감각 >= 5 && CFLAG:선택중캐릭터ID:욕구불만도 > 300 && 선택중캐릭터ID
			PRINTFORML %CALLNAME:MASTER%에 안기고 싶어서 근질근질하고 있다

	SIF CFLAG:선택중캐릭터ID:육아중해금 == 1 ;KR판 구잔재
		PRINTFORML 항상 정액을 갖고 싶어하는 음탕한 자궁에 져 무제한의 생 SEX 허가를 내고 있다

	PRINTFORML
	SIF TALENT:선택중캐릭터ID:포르치오성감 ;KR판 구잔재
		PRINTFORML 자궁을 찔리면 절정하기까지 개발되고 있다
	SIF CFLAG:선택중캐릭터ID:억지로질내사정
		PRINTFORML %CALLNAME:MASTER%에 억지로 질내사정되었던 적이 있다
	SIF CFLAG:선택중캐릭터ID:수면간 == 1
		PRINTFORML %CALLNAME:MASTER%에 자고 있는 동안에 장난 되었던 적이 있다
	SIF CFLAG:선택중캐릭터ID:수면간 == 2
		PRINTFORML %CALLNAME:MASTER%에 자고 있는 동안에 범해졌던 적이 있다
	IF CFLAG:선택중캐릭터ID:만취간 == 2
		PRINTFORML %CALLNAME:MASTER%에 취해 부서지고 있는 곳(중)을 범해졌던 적이 있다
	ELSEIF CFLAG:선택중캐릭터ID:만취간 == 1
		PRINTFORML %CALLNAME:MASTER%에 취해 부서지고 있는 곳(중)을 범해졌던 적이 있지만 눈치채지 않았다
	ENDIF

	IF 충전율(선택중캐릭터ID, 1) >= 1000
	;KR판 구잔재
		PRINTFORML 인외의 사정에 노출되어 아이를 잉태한 것과 같이 확장되고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 200
	;KR판 구잔재
		PRINTFORML 자궁은 %CALLNAME:MASTER%의 정액으로 확장되어 다 들어가지 못한 정액이 질구로부터 흘러넘치고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 100
		PRINTFORML 질내는 %CALLNAME:MASTER%의 정액으로 완전하게 채워지고 있다
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 50
		PRINTFORML 질내에서 엄청난 수의 정자가 꿈틀거리고 있는
	ELSEIF 충전율(선택중캐릭터ID, 1) >= 20
		PRINTFORML 질내에서 정자가 건강하게 헤엄쳐 돌고 있다
	ELSEIF CFLAG:선택중캐릭터ID:생리주기 == 7 && FLAG:생리주기가시화 && 임신가부(선택중캐릭터ID)
		PRINTFORML 위험일의 자궁은 싱싱한 난자를 준비해 수정을 기다리고 있다
	ENDIF
	IF 선택중캐릭터ID == MASTER && EX:선택중캐릭터ID:자궁내정액
		PRINTFORML %CALLNAME:MASTER%의 자궁 내 정액내역
		FOR LOCAL,1,CHARANUM
			SIF !TCVAR:LOCAL:씨받이양
				CONTINUE
			SIF TCVAR:LOCAL:씨받이양 > 100
				SETCOLOR C_YELLOW
			PRINTFORMLC %CALLNAME:LOCAL%{TCVAR:LOCAL:씨받이양}
			RESETCOLOR
		NEXT
		PRINTFORML
	ENDIF
	;PRINTFORML {EX:선택중캐릭터ID:자궁내정액}
	IF TALENT:선택중캐릭터ID:임신
		IF CFLAG:선택중캐릭터ID:임신경과일수 < 10
			PRINTFORML 생리가 멈춘 상태다
		ELSE
			PRINTFORML 자궁 내에서는 %마스터와%의 아이가 무럭무럭 크고 있다
			PRINTFORML 현재 임신 {CFLAG:선택중캐릭터ID:임신경과일수}일째다
			CALL LOOK_BELLY(선택중캐릭터ID)
			SIF INRANGE(CFLAG:선택중캐릭터ID:임신경과일수, 10,15)
					PRINT 아직 겉모습에서 변화는 찾아볼 수 없다
		ENDIF
	ENDIF
ENDIF

SIF 선택중캐릭터ID == MASTER
	CALL 응편력(MASTER)

@응편력(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 잠정1위의상대
#DIM 잠정1위의양
#DIM 잠정1위의종류
SIF !GETBIT(TALENT:선택중캐릭터ID:2, 1)
	RETURN
PRINTL 【남성기】
SELECTCASE TALENT:선택중캐릭터ID:형상
CASE 1
	LOCALS = 어린애 같이 깜찍한
CASE 2
	LOCALS = 허접한
CASE 3
	LOCALS = 별 특징 없는
CASE 4
	LOCALS = 빛이 나는
CASE 5
	LOCALS = 돌기투성이의
CASE 6
	LOCALS = 장대한
ENDSELECT
PRINTFORM %CALLNAME:선택중캐릭터ID%의 %LOCALS% 페니스는
LOCAL:1 = SUMCARRAY(CFLAG:LOCAL:누계정음,       1, CHARANUM)
LOCAL:2 = SUMCARRAY(CFLAG:LOCAL:누계뿌려짐,   1, CHARANUM)
LOCAL:3 = SUMCARRAY(CFLAG:LOCAL:누계질내정액,   1, CHARANUM)
LOCAL:4 = SUMCARRAY(CFLAG:LOCAL:누계애널정액, 1, CHARANUM)
IF !TALENT:PLAYER:1
	PRINTFORML 미사용이다
ELSE
	SIF FLAG:처녀식
		PRINTFORML 지금까지 {FLAG:처녀식}명의 처녀를 뚫고,
	PRINTFORML 소녀들의 입 안에다 {LOCAL:1}, 몸에다 {LOCAL:2}, 질내에다 {LOCAL:3}, 애널에다 {LOCAL:4}의 정액을 토해내왔다
	;각 사정 시츄의 최대치 조사
	;→무엇보다 대량으로 낸 시츄의 결정
	;→무엇보다 대량으로 낸 상대의 결정
	LOCAL:1 = MAXCARRAY(CFLAG:LOCAL:누계정음,       1, CHARANUM)
	LOCAL:2 = MAXCARRAY(CFLAG:LOCAL:누계뿌려짐,     1, CHARANUM)
	LOCAL:3 = MAXCARRAY(CFLAG:LOCAL:누계질내정액,   1, CHARANUM)
	LOCAL:4 = MAXCARRAY(CFLAG:LOCAL:누계애널정액,   1, CHARANUM)
	잠정1위의양 = 0
	FOR LOCAL:0, 1, 5
		SIF 잠정1위의양 > LOCAL:(LOCAL:0)
			CONTINUE
		잠정1위의종류 = LOCAL:0
		잠정1위의양   = LOCAL:(LOCAL:0)
	NEXT
	SELECTCASE 잠정1위의종류
	CASE 1
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계정음,       LOCAL:1, 1, CHARANUM)
		LOCALS = 입 안을
	CASE 2
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계뿌려짐,   LOCAL:2, 1, CHARANUM)
		LOCALS = 몸을
	CASE 3
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계질내정액,   LOCAL:3, 1, CHARANUM)
		LOCALS = 질내를
	CASE 4
		잠정1위의상대 = FINDCHARA(CFLAG:LOCAL:누계애널정액, LOCAL:4, 1, CHARANUM)
		LOCALS = 애널을
	ENDSELECT
	SIF 잠정1위의양 > 0
	PRINTFORML 특히 %CALLNAME:잠정1위의상대%의 %LOCALS%을 애호한다
ENDIF
SIF FLAG:스침잉태수
	PRINTFORML 스친 인연을 임신시킨 수：{FLAG:스침잉태수}명
SIF TALENT:MASTER:무녀잉태
	PRINTL 무녀를 임신시킨 천벌받을 페니스다
SIF TALENT:MASTER:요정잉태
	PRINTL 요정을 임신시킨 범죄적인 페니스다
SIF TALENT:MASTER:요괴잉태
	PRINTL 요괴를 임신시킨 겁 모르는 페니스다
SIF TALENT:MASTER:텐구잉태
	PRINTL 텐구를 임심시킨 신속의 페니스다
SIF TALENT:MASTER:오니잉태
	PRINTL 오니를 임신시킨 오니 잡는 페니스다
SIF TALENT:MASTER:츠쿠모가미잉태
	PRINTL 츠쿠모가미를 임신시킨 가리는 게 없는 페니스다
SIF TALENT:MASTER:신령잉태
	PRINTL 신령을 임신시킨 신도 두려워하지 않는 페니스다
SIF TALENT:MASTER:봉래잉태
	PRINTL 봉래인조차 임신시킨 시간을 초월한 페니스다
SIF TALENT:MASTER:만능잉태
	PRINTL 기계든 유령이든 간에 어떠한 소녀라도 임신시키는 인지를 초월한 페니스다
SIF TALENT:MASTER:농후정액
	PRINTFORML 며칠분의 정력을 모아둔 페니스는 숨막히는 수컷 냄새를 풍기고 있다
;MASTER 결정 치는 것으로 괜찮지 않아? 그리고 개인적 취미로 후타나리에게 불알은 없다
SIF BASE:선택중캐릭터ID:정력 >= 1500 && !GETBIT(TALENT:선택중캐릭터ID:성별, 0)
	PRINTL 묵직한 음낭에는 대량의 정자가 저장되어 있다

@임신관련(ARG)
PRINTL
PRINTL □ 임신 관련 □-----------------------------------------------------------------------
;PRINTL
;PRINTFORM 전회 체내 사정량 : {EX:ARG:14}
;PRINTL
PRINTFORM 임신 후 경과시간: {CFLAG:ARG:903}
;CFLAG:ARG:903 = 40
;PRINTL
;PRINTFORM 자각 : {CFLAG:(ARG):910}
;PRINTL
;PRINTFORM 무자각 임신 : {CFLAG:ARG:무자각임신}
PRINTL
PRINTFORM 현재 육아중 자식 수 : {CFLAG:ARG:육아인원수}
PRINTL
PRINTFORM 현재 육아 경과 시간 : {CFLAG:ARG:908}
PRINTFORML
PRINTFORM 　　　　　아이의 수 : {CFLAG:ARG:아이인원수}
PRINTFORML
IF CFLAG:ARG:아이인원수
	FOR LOCAL, 1,11
		IF CHILDNAME:ARG:LOCAL != ""
			PRINTFORM 제{LOCAL}자：%CHILDNAME:ARG:LOCAL, 15, LEFT%　\@ CHILD_SEX:ARG:LOCAL == 1 ?  ♀ # ♂ \@
			CALL PRINT_DATE(CHILD_BIRTHDAY:ARG:LOCAL)
			PRINTFORM ({CHILD_BIRTHDAY:ARG:LOCAL}일째)
			SELECTCASE CHILD_WEATHER:ARG:LOCAL
			CASE "C민감"
				PRINTFORM 모두의 클리토리스가 민감한
			CASE "V민감"
				PRINTFORM 모두의 여성기가 민감한
			CASE "A민감"
				PRINTFORM 모두의 항문이 민감한
			CASE "B민감"
				PRINTFORM 모두의 가슴이 민감한
			CASE "M민감"
				PRINTFORM 모두의 입술이 민감한
			CASE "치마"
				PRINTFORM 치마가 넘어가 머리에 닿으면 기분 좋아지는
			CASE "팬티"
				PRINTFORM 팬티가 오가는
			CASEELSE
				PRINTFORM %CHILD_WEATHER:ARG:LOCAL%의
			ENDSELECT
			PRINTFORM 날에 태어났다
			IF DAY - CHILD_BIRTHDAY:ARG:LOCAL < 120
				IF CFLAG:ARG:출산경과일 < CHILD_어휘
					PRINTFORML 유아기
				ELSEIF CFLAG:ARG:출산경과일 < CHILD_자립전
					PRINTFORML 유소기
				ELSE
					PRINTFORML 사춘기
				ENDIF
			ELSE
				PRINTFORML 현재 {(DAY - CHILD_BIRTHDAY:ARG:LOCAL) / 124}세
			ENDIF
		ENDIF
	NEXT
ENDIF

@예정
#DIM 의뢰번호

PRINTL □ 예정 □---------------------------------------------------------------------------
PRINTL
SELECTCASE FLAG:포부
	CASE 1
		LOCALS = 자위 장려
	CASE 2
		LOCALS = 동성애 추진
	CASE 3
		LOCALS = 암컷 구멍 개척
	CASE 4
		LOCALS = 항문개발
	CASE 5
		LOCALS = 유협진흥
	CASE 6
		LOCALS = 자손번영
	CASE 9
		LOCALS = 자손번영
ENDSELECT
IF FLAG:포부
	PRINTFORML 올해의 포부: %LOCALS%
	PRINTL
ENDIF
IF FLAG:연회개최플래그
	IF FLAG:개시일 - DAY <= 0
		PRINT 오늘
	ELSE
		PRINTFORM {FLAG:개시일 - DAY}일 후
	ENDIF
	CALL 연회예정표시
	PRINTL
	PRINT 연회규모：
		SELECTCASE FLAG:연회규모
			CASE IS >= 5000
				PRINT 특대
			CASE IS >= 2500
				PRINT 대
			CASE IS >= 1500
				PRINT 중
			CASEELSE
				PRINT 소
		ENDSELECT

	SIF FLAG:36 > 0
		PRINTL 　우천 중지
ENDIF
PRINTL
IF FLAG:대본반환기한 >= 2
	FOR LOCAL, 1,6
		SIF ITEM:(100 + LOCAL)
			PRINTFORML 빌린 책：%ITEMNAME:(100 + LOCAL)%
	NEXT
	PRINTL
	IF  FLAG:대본반환기한 == 2
		PRINTFORML 빌린 책 반환일：오늘
	ELSE
		PRINTFORML 빌린 책 반환일：{FLAG:대본반환기한 - 2}일 후
	ENDIF
PRINTL
ENDIF

CALL SHOW_ALL_IRAI_SLOT

SELECTCASE CFLAG:MASTER:요술망치
	CASE 4
		PRINT 요술망치로 양물을 크게
		IF CFLAG:MASTER:마력회수 == 6
			PRINTL 하고 있다
		ELSE
			PRINTL 했다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 6
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 5
		PRINT 요술망치로 양물을 두 개로 만들
		IF CFLAG:MASTER:마력회수 == 6
			PRINTL 고 있다
		ELSE
			PRINTL 었다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 6
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 6
		PRINT 요술망치로 난쟁이가
		IF CFLAG:MASTER:마력회수 == 3
			PRINTL 되고 있다
		ELSE
			PRINTL 되었다
		ENDIF
		SIF CFLAG:MASTER:마력회수 < 3
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
	CASE 7
		PRINTL 요술망치로 난쟁이로부터 원래대로 돌아왔다
		SIF CFLAG:MASTER:마력회수 < 3
			PRINTFORML 마력회수 완납까지 앞으로 {CFLAG:MASTER:마력회수}일
ENDSELECT
SIF CFLAG:MASTER:요술망치
	PRINTL

@팬티수집상황(선택중캐릭터ID)
#DIM 선택중캐릭터ID
PRINTL □ 팬티 수집 상황 □-----------------------------------------------------------------
IF FLAG:팬티수집상황타입B == 0
	CALL DISPLAY_COLLECTION(선택중캐릭터ID)
	PRINTFORML 총수：{RESULT:0, 4}장 종별：{RESULT:1, 2}종 중복：{RESULT:0 - RESULT:1, 4}장
ELSE
	CALL DISPLAY_COLLECTION_B(선택중캐릭터ID)
	PRINTFORML 총수：{RESULT:0, 4}장 종별：{RESULT:1, 2}/{RESULT:2}종 중복：{RESULT:0 - RESULT:1, 4}장
ENDIF

@바람기파악상황(C_ID)
#DIM C_ID
#DIM LINE_BREAK
LINE_BREAK = 0
PRINT □
CALL PRINTBUTTON_EX(@"%CALLNAME:C_ID%가 파악 중인 %CALLNAME:MASTER%의 육체 관계 (노란색은 공인)", 168, TFLAG:168)
PRINTL  □------------------------------------------------------------
IF !TFLAG:바람기력표시
	PRINTFORML
	FOR LOCAL, 1, CHARANUM
		SIF LOCAL == C_ID
			CONTINUE
		IF GET_UWAKI_HISTORY(C_ID, LOCAL)
			SIF GET_UWAKI_HISTORY(C_ID, LOCAL) == 2
				SETCOLOR C_YELLOW
			SIF LINEISEMPTY()
				PRINT
			PRINTFORMLC %CALLNAME:LOCAL%
			LINE_BREAK ++
			SIF LINE_BREAK % (PRINTCPERLINE() - 1) == 0
				PRINTL
		ENDIF
		RESETCOLOR
	NEXT
	SIF LINE_BREAK % (PRINTCPERLINE() - 1) != 0
		PRINTL
ENDIF


code:
@PRINT_STATE(선택중캐릭터ID, 선택중페이지번호, 조교중플래그)
#DIM 선택중캐릭터ID
#DIM 조교중플래그
#DIM REF 선택중페이지번호
#DIM CONST 이전캐릭터를표시 = 4
#DIM CONST 다음캐릭터를표시 = 6
#DIM CONST 돌아가요 = 5

$PRINT_LOOP
	DRAWLINEFORM ━
	PRINT ■
	PRINTS NAME:선택중캐릭터ID
	PRINT (호감도:
	CALL PRINT_RANK(CFLAG:선택중캐릭터ID:2, "MAX_50000")
	PRINTFORM  {CFLAG:선택중캐릭터ID:2} 신뢰도:
	CALL PRINT_RANK(CFLAG:선택중캐릭터ID:신뢰도, "MAX_20000")
	PRINTFORM  {CFLAG:선택중캐릭터ID:신뢰도})
	;MASTER라면 소지금을 기재
	SIF 선택중캐릭터ID == MASTER
		PRINTFORM (%"소지금:\\" + TOSTR(MONEY,"#,###")%)
	IF NOTICE_CYCLE(선택중캐릭터ID)
		IF 조교중플래그
			CALL CYCLE_PRINT(선택중캐릭터ID)
		ELSE
			CALL CYCLE_PRINT다음날(선택중캐릭터ID)
		ENDIF
		SETCOLOR C_AQUA
	ENDIF
	IF CFLAG:선택중캐릭터ID:생해금 == 2
		PRINT 위험일 생H해금
	ELSEIF CFLAG:선택중캐릭터ID:생해금 == 1
		PRINT 생H해금
	ELSEIF GETBIT(CFLAG:선택중캐릭터ID:기정사실, 1)
		PRINT 합의 취득
	ENDIF
	RESETCOLOR
	PRINTL
;*******************************************
;1페이지눈
;*******************************************
IF 선택중페이지번호 == 0
	PRINT 체력
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:0, MAXBASE:선택중캐릭터ID:0, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("빨강"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:체력, 5}/{MAXBASE:선택중캐릭터ID:체력, 5})
	PRINT 기력
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:1, MAXBASE:선택중캐릭터ID:1, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("초록"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:기력, 5}/{MAXBASE:선택중캐릭터ID:기력, 5})
	IF BASE:선택중캐릭터ID:15
	PRINT 술기운
				CALL PRINT_COLORBAR, BASE:선택중캐릭터ID:15, MAXBASE:선택중캐릭터ID:15, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("파랑"), RESULT:1
				PRINTFORML  ({BASE:선택중캐릭터ID:술기운, 5}/{MAXBASE:선택중캐릭터ID:술기운, 5})
	ENDIF
	SELECTCASE CFLAG:선택중캐릭터ID:욕구불만도
		CASE 301 TO 500
			SETCOLOR C_YELLOW
		CASE IS >= 501
			SETCOLOR C_RED
	ENDSELECT
	SIF NOTICE_LUST(선택중캐릭터ID)
		PRINTFORML 욕구 불만도：{CFLAG:선택중캐릭터ID:욕구불만도 / 10}\%
	RESETCOLOR
	CALL SHOW_SIZE(선택중캐릭터ID)
	IF !FLAG:그림표시 ;KR판 구잔재
		PRINTL [99] AA표시
	ELSE
		PRINTL [99] 그림표시
	ENDIF
	IF FLAG:AA표시 && !FLAG:그림표시
		CALL PRINT_AA(선택중캐릭터ID)
	ELSEIF FLAG:AA표시 && FLAG:그림표시
		CALL PRINT_STATE_IMAGE(선택중캐릭터ID)
	ENDIF

	CALL PRINT_STATE_CLOTH(선택중캐릭터ID)
	;도구라고 할까 아이템이지만 외가 2 문자이고
	IF 선택중캐릭터ID == MASTER
		PRINT □
		CALL PRINTBUTTON_EX("도구", 167, TFLAG:167)
		PRINTL  □---------------------------------------------------------------------------
		SIF !TFLAG:도구표시
			CALL LIST_ITEM("모두")
	ENDIF
	CALL PRINT_STATE_ABL(선택중캐릭터ID)
	PRINTL
	CALL PRINT_STATE_TALENT(선택중캐릭터ID)
	PRINTL
	IF 선택중캐릭터ID != MASTER
		PRINTL
		PRINT □
		CALL PRINTBUTTON_EX("각인", 166, TFLAG:166)
		PRINTL  □---------------------------------------------------------------------------
		;PRINT_MARK 선택중캐릭터ID
		CALL PRINT_각인(선택중캐릭터ID)
	ENDIF
;*******************************************
;2페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 1
	PRINTL
	CALL PRINT_STATE_EXP(선택중캐릭터ID)
	PRINTL
	SIF 선택중캐릭터ID != MASTER && ( TALENT:선택중캐릭터ID:임신 || CFLAG:선택중캐릭터ID:아이인원수 > 0)
		CALL 임신관련(선택중캐릭터ID)
	SIF 선택중캐릭터ID != MASTER && !조교중플래그
		CALL PRINT_STATE_JUEL(선택중캐릭터ID)
	SIF 조교중플래그
		CALL PRINT_STATE_EX(선택중캐릭터ID)
	PRINTL
	SIF 선택중캐릭터ID
		CALL 팬티수집상황(선택중캐릭터ID)
;*******************************************
;3페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 2
	CALL PRINT_STATE_PERSONAL(선택중캐릭터ID)
	CALL 육체정보(선택중캐릭터ID)
	CALL SHOW_RELATION(선택중캐릭터ID)
;*******************************************
;4페이지눈
;*******************************************
ELSEIF 선택중페이지번호 == 3
	IF !선택중캐릭터ID
		CALL 예정
	ELSE
		CALL 함락조건표시(선택중캐릭터ID)
		CALL 바람기파악상황(선택중캐릭터ID)
	ENDIF
ENDIF
IF 조교중플래그
	DRAWLINE
	IF 선택중페이지번호 > 0
		PRINTC [0] 이전페이지
	ELSE
		PRINTC
	ENDIF
	PRINTC
	IF 선택중페이지번호 < 상세능력표시최대페이지번호
		PRINTC [1] 다음페이지
	ELSE
		PRINTC
	ENDIF
	PRINTL
		PRINTC
		PRINTFORMC [{돌아가요}] 돌아간다
	INPUT
	SELECTCASE RESULT
		CASE 0
		SIF 선택중페이지번호 > 0
			선택중페이지번호 --
			GOTO PRINT_LOOP
		CASE 1
			SIF 선택중페이지번호 < 상세능력표시최대페이지번호
				선택중페이지번호 ++
				GOTO PRINT_LOOP
		CASE 160 TO 167
			TFLAG:RESULT = !TFLAG:RESULT
			GOTO PRINT_LOOP
		;이 근처 지워 버려서도 좋은가
		CASE 이전캐릭터를표시
			IF !조교중플래그
				선택중캐릭터ID--
			ENDIF
			IF 선택중캐릭터ID < 0
				선택중캐릭터ID = CHARANUM - 1
			ENDIF
			GOTO PRINT_LOOP
		CASE 다음캐릭터를표시
			IF !조교중플래그
				선택중캐릭터ID++
			ENDIF
			IF 선택중캐릭터ID >= CHARANUM
				선택중캐릭터ID = 0
			ENDIF
			GOTO PRINT_LOOP
		CASE 돌아가요
			RETURN 0
		CASE AA표시
			FLAG:AA표시 = !FLAG:AA표시
			GOTO PRINT_LOOP
		CASEELSE
			RETURN 0
	ENDSELECT
ENDIF

@PRINT_STATE_CLOTH(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 장비부위
PRINTL
PRINT □
CALL PRINTBUTTON_EX("복장", 161, TFLAG:161)
PRINTL  □---------------------------------------------------------------------------
IF TFLAG:복장표시
	PRINTFORML
	RETURN
ENDIF
IF !EQUIP:선택중캐릭터ID:0 && !TEQUIP:선택중캐릭터ID:하반신착의상황 && !TEQUIP:선택중캐릭터ID:상반신착의상황
	PRINTFORML ＜전라＞
	SIF INROOM(CFLAG:선택중캐릭터ID:현재위치) == 1
		RETURN
ENDIF
SIF CFLAG:선택중캐릭터ID:장난 > 1
	PRINTFORML ＜벌 무너뜨려＞
CALL SHOW_CLOTHES(선택중캐릭터ID, "현재의 의상")

@PRINT_STATE_ABL(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수
PRINT □
CALL PRINTBUTTON_EX("능력", 162, TFLAG:162)
PRINTL  □---------------------------------------------------------------------------
IF !TFLAG:능력표시
	표시항목수 = 0
	FOR LOCAL, 0, 50
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF LOCAL > 50 && 선택중캐릭터ID != MASTER
			CONTINUE
		;동성애 관계
		SIF GROUPMATCH(ABLNAME:LOCAL, "레즈끼", "레즈중독") && !GETBIT(TALENT:선택중캐릭터ID:2, 0)
			CONTINUE
		SIF GROUPMATCH(ABLNAME:LOCAL, "호모끼", "게이중독") && GETBIT(TALENT:선택중캐릭터ID:2, 0)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		IF LOCAL < 40
			CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_99")
		ELSE
			CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_6")
		ENDIF
		PRINTFORM  {ABL:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 ++
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL
PRINTL
PRINT □
CALL PRINTBUTTON_EX("성 기술", 164, TFLAG:164)
PRINTL  □---------------------------------------------------------------------------
표시항목수 = 0
IF !TFLAG:164
	FOR LOCAL, 50, 60
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF !(TALENT:선택중캐릭터ID:2 & 1) && (LOCAL == 52 || LOCAL == 54)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		CALL PRINT_RANK(ABL:선택중캐릭터ID:LOCAL, "MAX_6")
		PRINTFORM  {ABL:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 ++
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF

@PRINT_STATE_EXP(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수
PRINT □
CALL PRINTBUTTON_EX("경험", 163, TFLAG:163)
PRINTL  □---------------------------------------------------------------------------
표시항목수 = 0
IF !TFLAG:경험표시
	FOR LOCAL, 0, 100
		;EXP.CSV에 등록되지 않으면 CONTINUE
		;SIF !STRLENS(EXPNAME:LOCAL)
		;	CONTINUE
		;미경험을 표시시키지 않다
		SIF !EXP:선택중캐릭터ID:LOCAL
			CONTINUE
		;동성애 관계
		IF !(TALENT:선택중캐릭터ID:2 & 1) && LOCAL == 51
			CONTINUE
		ELSEIF TALENT:선택중캐릭터ID:2 & 1 && LOCAL == 52
			CONTINUE
		ENDIF
		PRINTFORM %EXPNAME:LOCAL,14%:{EXP:선택중캐릭터ID:LOCAL, 5, LEFT}
		표시항목수 += 1
		SIF 표시항목수 % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL

@PRINT_STATE_TALENT(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM TLNT_CNT, 6
#DIM TLNT_NO, 6, 100

VARSET TLNT_CNT
VARSET TLNT_NO

PRINT □
CALL PRINTBUTTON_EX("소질", 165, TFLAG:165)
PRINTL  □---------------------------------------------------------------------------
IF !TFLAG:165
	;TALENT:200(범용 캐릭터)는 표시시키지 않다
	FOR LOCAL, 0, 300
		SIF !STRLENS(GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL))
			CONTINUE
		LOCALS = {LOCAL}/
		IF GROUPMATCH(LOCAL, 90,91,132,164,165,166,189,190,191,192,193,194,195,196,197)
			;종족
			TLNT_NO:0:(TLNT_CNT:0) = LOCAL
			TLNT_CNT:0 ++
		ELSEIF GROUPMATCH(LOCAL, 0,1,3,4,5,6,7,8,9,60,70,72,73,74,75,76,77,78,82,83,122,142,152,183,184,185,250,256,257,258,259,260,261,262,263,264)
			;성적 특징
			TLNT_NO:1:(TLNT_CNT:1) = LOCAL
			TLNT_CNT:1 ++
		ELSEIF GROUPMATCH(LOCAL, 2,16,17,40,41,54,56,57,92,100,101,102,103,104,105,106,121,130,133,134,137,138,143,146,149)
			;몸 목표 특징
			TLNT_NO:2:(TLNT_CNT:2) = LOCAL
			TLNT_CNT:2 ++
		ELSEIF GROUPMATCH(LOCAL, 9,10,11,12,13,14,18,19,20,21,22,23,24,25,26,30,31,32,33,61,62,71,80,81,84,85,86,94,151,155)
			;정신적 특징
			TLNT_NO:3:(TLNT_CNT:3) = LOCAL
			TLNT_CNT:3 ++
		ELSEIF GROUPMATCH(LOCAL, 47,48,49,50,51,52,53,55,93,135,136,144,147,161,162,178,179)
			;기술적 특징
			TLNT_NO:4:(TLNT_CNT:4) = LOCAL
			TLNT_CNT:4 ++
		ELSE
			;그 외
			TLNT_NO:5:(TLNT_CNT:5) = LOCAL
			TLNT_CNT:5 ++
		ENDIF
	NEXT

	FOR LOCAL:2, 0, 6
		SELECTCASE LOCAL:2
			CASE 0
				PRINT 　 종 족 　：
			CASE 1
				PRINT 　성적 특징：
			CASE 2
				PRINT 신체적 특징：
			CASE 3
				PRINT 정신적 특징：
			CASE 4
				PRINT 기술적 특징：
			CASE 5
				PRINT 　그 외　：
		ENDSELECT
		LOCALS = ""
		SIF LOCAL:2 == 0 && TLNT_CNT:0 == 0
			CALL PRINT_종족추출(선택중캐릭터ID)
		FOR LOCAL:1, 0, TLNT_CNT:(LOCAL:2)
			LOCAL = TLNT_NO:(LOCAL:2):(LOCAL:1)
			;동정
			SIF LOCAL == 1 && !(TALENT:선택중캐릭터ID:성별 & 2)
				CONTINUE
			;남자 절벽
			IF LOCAL == 105 && (TALENT:선택중캐릭터ID:성별 == 2)
				SIF (TALENT:선택중캐릭터ID:105 == -2) && (TALENT:선택중캐릭터ID:성별 == 2)
					CONTINUE
				SIF (TALENT:선택중캐릭터ID:105 == 0) && (TALENT:선택중캐릭터ID:성별 == 2)
					PRINTFORM [보유]
			ENDIF
			;청소부는 살고 있는 때만 표시
			SIF LOCAL == GETNUM(TALENT, "청소부") && !CFLAG:선택중캐릭터ID:신사거주
				CONTINUE
			LOCALS += GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL)
			IF STRLENS(LOCALS) > 60
				LOCALS = " "
				PRINTL
				PRINT
			ENDIF
			;소질에 따라서는 색 바꾸고
			IF GROUPMATCH(LOCAL, 0,3,4,6,7,73,74,75,76,77,78,122,142)
				SETCOLOR 255, 120, 200
				FONTBOLD
			ELSEIF LOCAL == 8
				SETCOLOR C_PINK
			ENDIF
			PRINTFORM [%GET_TALENTNAME(LOCAL, TALENT:선택중캐릭터ID:LOCAL)%]
			RESETCOLOR
			FONTREGULAR
		NEXT
		SIF LOCALS != " "
			PRINTL
	NEXT
ENDIF

@PRINT_종족추출(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM TMP_RESULT
#DIMS STR_LIST, 10

VARSET STR_LIST
TMP_RESULT:0 = RESULT
LOCALS =  %CSVCSTR(선택중캐릭터ID, 10)%
IF STRFIND(LOCALS, "●") > -1
	SPLIT LOCALS, "●", STR_LIST
	FOR LOCAL, 0, RESULT
		IF STRFIND(STR_LIST:LOCAL, "종족：") > -1
			LOCALS:1 = %REPLACE(STR_LIST:LOCAL, "종족：", "")%
			LOCALS:1 = %REPLACE(LOCALS:1, "　", "")%
			PRINTFORM [%LOCALS:1%]
			BREAK
		ENDIF
	NEXT
ELSEIF 선택중캐릭터ID == [[소악마]]
	PRINTFORM [악마]
;ELSEIF TALENT:선택중캐릭터ID:스침 とどっちがいいんでしょうね？
ELSEIF 선택중캐릭터ID == RANDOM_CHARANUM
	PRINTFORM [%CSTR:선택중캐릭터ID:모브코종족%]
ENDIF
RESULT = TMP_RESULT:0

@PRINT_각인(선택중캐릭터ID)
#DIM 선택중캐릭터ID
IF !TFLAG:166
	FOR LOCAL, 0, 6
		SIF !STRLENS(MARKNAME:LOCAL)
			CONTINUE
		PRINTFORM 　%MARKNAME:LOCAL,12%:
		IF LOCAL == 3
			SETCOLOR C_RED
			PRINTFORML %"×" * (MARK:선택중캐릭터ID:LOCAL)%
		ELSE
			SETCOLOR 255, 255, 0
			PRINTFORML %"★" * (MARK:선택중캐릭터ID:LOCAL)%
		ENDIF
		RESETCOLOR
	NEXT
ELSE
	PRINTL
ENDIF

@PRINT_알파벳평가(선택중캐릭터ID, ARG, 표시신분번호)
;ARG(1. 호감도 2. 신뢰도 3. 성 기술 및 기능 4. 그 외 ABL)
;「표시신분번호」는 ARG가  3또는 4 때에만 사용
#DIM 선택중캐릭터ID
#DIM 표시신분번호
IF ARG == 1
	IF CFLAG:선택중캐릭터ID:2 >= 100000
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 50000
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 30000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 10000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 5000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 3000
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 1500
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 1000
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 500
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:선택중캐릭터ID:2 >= 100
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 2
	IF CFLAG:선택중캐릭터ID:신뢰도 >= 30000
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 20000
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 10000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 3000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 1000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 500
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 150
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 100
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 50
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:선택중캐릭터ID:신뢰도 >= 10
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 3
	IF ABL:선택중캐릭터ID:표시신분번호 == 7
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 6
		SETCOLOR C_BLUE
		PRINT Ex
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 5
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 4
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 3
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 2
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 == 1
		SETCOLOR C_YELLOW
		PRINT  D
	ELSE
		SETCOLOR C_GRAY
		PRINT  E
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 4
	IF ABL:선택중캐릭터ID:표시신분번호 == 99
		SETCOLOR C_P_PURPLE
		PRINT Ph
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 80
		SETCOLOR C_WHITE
		PRINT Ex
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 60
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 40
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 20
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 10
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 5
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 3
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 2
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF ABL:선택중캐릭터ID:표시신분번호 >= 1
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSE
ENDIF


code:
;-------------------------------------------------
;함수명 :GET_TALENTNAME
;개요:소질 나토리 이득 함수
;인수 :ARG:0…TALENT 등록 번호
;　　　:ARG:1…TALENT의 내용
;반환값:소질명
;비고:문중 함수
;소질의 이름을 돌려준다.
;-------------------------------------------------
@GET_TALENTNAME(ARG, ARG:1)
#FUNCTIONS
SELECTCASE ARG
	;처녀
	CASE 0
		IF ARG:1 == -1
			RETURNF "무자각비처녀"
		ELSEIF ARG:1
			RETURNF "처녀"
		ENDIF
	;동정
	CASE 1
		SIF !ARG:1
			RETURNF "동정"
	;성별
	CASE 2
		IF ARG:1 == 3
			RETURNF "후타나리"
		ELSEIF ARG:1 == 2
			RETURNF "남자"
		ENDIF
	;키스미경험
	CASE 6
		IF ARG:1 == -1
			RETURNF "키스미경험?"
		ELSEIF ARG:1 == 1
			RETURNF "키스미경험"
		ENDIF
	;;연인
	CASE 7
		IF GETBIT(ARG:1,1)
			RETURNF "아내"
		ELSEIF ARG:1 == 1
			RETURNF "연인"
		ENDIF

	;담력
	CASE 10
		IF ARG:1 == -1
			RETURNF "겁장이"
		ELSEIF ARG:1 == 1
			RETURNF "다부짐"
		ENDIF
	;태도
	CASE 11
		IF ARG:1 == -1
			RETURNF "솔직함"
		ELSEIF ARG:1 == 1
			RETURNF "반항적"
		ENDIF
	;응답
	CASE 12
		IF ARG:1 == -1
			RETURNF "얌전함"
		ELSEIF ARG:1 == 1
			RETURNF "거만함"
		ENDIF
	;자존심
	CASE 13
		IF ARG:1 == -1
			RETURNF "자존심 낮음"
		ELSEIF ARG:1 == 1
			RETURNF "자존심 높음"
		ENDIF
	;기분
	CASE 15
		IF ARG:1 == -1
			RETURNF "기분 나쁨"
		ELSEIF ARG:1 == 1
			RETURNF "기분 좋음"
		ENDIF
	;용모
	CASE 16
		IF ARG:1 == -1
			RETURNF "추악"
		ELSEIF ARG:1 == 1
			RETURNF "미형"
		ENDIF
	;연령
	CASE 17
		IF ARG:1 == -1
			RETURNF "아이"
		ELSEIF ARG:1 == 1
			RETURNF "중년"
		ELSEIF ARG:1 == 2
			RETURNF "노인"
		ENDIF
	;성적흥미
	CASE 23
		IF ARG:1 == -1
			RETURNF "보수적"
		ELSEIF ARG:1 == 1
			RETURNF "호기심"
		ENDIF
	;명랑／음침,
	CASE 24
		IF ARG:1 == -1
			RETURNF "음침함"
		ELSEIF ARG:1 == 1
			RETURNF "명랑함"
		ENDIF
	;정조 관념
	CASE 30
		IF ARG:1 == -1
			RETURNF "정조무관심"
		ELSEIF ARG:1 == 1
			RETURNF "정조관념"
		ENDIF
	;자기애
	CASE 31
		IF ARG:1 == -1
			RETURNF "억압"
		ELSEIF ARG:1 == 1
			RETURNF "해방"
		ENDIF
	;수치심
	CASE 33
		IF ARG:1 == -1
			RETURNF "수치심없음"
		ELSEIF ARG:1 == 1
			RETURNF "수줍음"
		ENDIF
	;통각
	CASE 40
		IF ARG:1 == -1
			RETURNF "고통에 강함"
		ELSEIF ARG:1 == 1
			RETURNF "고통에 약함"
		ENDIF
	;젖기쉬움
	CASE 41
		IF ARG:1 == -1
			RETURNF "젖기 어려움"
		ELSEIF ARG:1 == 1
			RETURNF "젖기 쉬움"
		ENDIF
	;습득속도
	CASE 50
		IF ARG:1 == -1
			RETURNF "습득 느림"
		ELSEIF ARG:1 == 1
			RETURNF "습득 빠름"
		ENDIF
	;낚시 채집 조제 Lv
	CASE 47, 48, 49
		IF ARG:1 > 0
			LOCALS = %TALENTNAME:ARG%
			LOCALS += TOSTR(ARG:1)
			RETURNF LOCALS
		ENDIF
	;악취내성
	CASE 61
		IF ARG:1 == -2
			RETURNF "결벽증"
		ELSEIF ARG:1 == -1
			RETURNF "악취 민감"
		ELSEIF ARG:1 == 1
			RETURNF "악취 둔감"
		ELSEIF ARG:1 == 2
			RETURNF "불결 무시"
		ENDIF
	;쾌감응답
	CASE 70
		IF ARG:1 == -1
			RETURNF "쾌감에 부정"
		ELSEIF ARG:1 == 1
			RETURNF "쾌감에 솔직"
		ENDIF
	;성별기호
	CASE 81
		IF ARG:1 == -1
			RETURNF "양도"
		ELSEIF ARG:1 == 3
			RETURNF "인간 불신"
		ELSEIF ARG:1 == 1
			RETURNF "남성기피"
		ELSEIF ARG:1 == 2
			RETURNF "여성기피"
		ENDIF
	;체형
	CASE 100
		IF ARG:1 == -5
			RETURNF "난쟁이"
		ELSEIF ARG:1 == -2
			RETURNF "유아 체형"
		ELSEIF ARG:1 == -1
			RETURNF "작은 체형"
		ELSEIF ARG:1 == 1
			RETURNF "장신"
		ELSEIF ARG:1 == 2
			RETURNF "거구"
		ELSEIF ARG:1 == 3
			RETURNF "거인"
		ENDIF
	;C감도
	CASE 101
		IF ARG:1 == -1
			RETURNF "C둔감"
		ELSEIF ARG:1 == 1
			RETURNF "C민감"
		ENDIF
	;V감도
	CASE 102
		IF ARG:1 == -1
			RETURNF "V둔감"
		ELSEIF ARG:1 == 1
			RETURNF "V민감"
		ENDIF
	;A감도
	CASE 103
		IF ARG:1 == -1
			RETURNF "A둔감"
		ELSEIF ARG:1 == 1
			RETURNF "A민감"
		ENDIF
	;B감도
	CASE 104
		IF ARG:1 == -1
			RETURNF "B둔감"
		ELSEIF ARG:1 == 1
			RETURNF "B민감"
		ENDIF
	;가슴사이즈
	CASE 105
		IF ARG:1 == -2
			RETURNF "절벽"
		ELSEIF ARG:1 == -1
			RETURNF "작은 가슴"
		;ELSEIF ARG:1 == 0
			;RETURNF "보유"
		ELSEIF ARG:1 == 1
			RETURNF "거유"
		ELSEIF ARG:1 == 2
			RETURNF "폭유"
		ENDIF
	;M감도
	CASE 106
		IF ARG:1 == -1
			RETURNF "M둔감"
		ELSEIF ARG:1 == 1
			RETURNF "M민감"
			ELSEIF ARG:1 == 2
			RETURNF "M과민"
		ENDIF
	;술내성
	CASE 121
		IF ARG:1 == -2
			RETURNF "술을 못함"
		ELSEIF ARG:1 == -1
			RETURNF "술에 약하다"
		ELSEIF ARG:1 == 1
			RETURNF "술에 강하다"
		ELSEIF ARG:1 == 2
			RETURNF "애주가"
		ELSEIF ARG:1 == 3
			RETURNF "술고래"
		ENDIF
	;회복속도
	CASE 130
		IF ARG:1 == -1
			RETURNF "회복 느림"
		ELSEIF ARG:1 == 1
			RETURNF "회복 빠름"
		ENDIF
	CASE 142
		SELECTCASE ARG:1
			CASE 1
				RETURNF "빗치"
		ENDSELECT
	CASE 143
		SELECTCASE ARG:1
			CASE 1
				RETURNF "동물귀"
			CASE 2
				RETURNF "토끼귀"
			CASE 3
				RETURNF "이누미미"
			CASE 4
				RETURNF "네코미미"
		ENDSELECT
	CASE 130
		IF ARG:1 == 1
			RETURNF "수유가능"
		ELSEIF ARG:1 == 2
			RETURNF "모유체질"
		ENDIF
	;음악지식
	CASE 161
		SELECTCASE ARG:1
			CASE 1
				RETURNF "악기지식"
			CASE 2
				RETURNF "가창지식"
			CASE 3
				RETURNF "무용지식"
		ENDSELECT
	;음감
	CASE 162
		IF ARG:1 == -1
			RETURNF "음치"
		ELSEIF ARG:1 == 1
			RETURNF "음감"
		ELSEIF ARG:1 == 2
			RETURNF "절대음감"
		ENDIF
	;한기선호
	CASE 164
		IF ARG:1 == 1
			RETURNF "한기선호"
		ELSEIF ARG:1 == 2
			RETURNF "설녀"
		ENDIF
	;채양보음／채음보양
	CASE 179
		IF GETBIT(ARG:1,0)&&GETBIT(ARG:1,2)
			RETURNF "채양보음"
		ELSEIF GETBIT(ARG:1,1)&&GETBIT(ARG:1,3)
			RETURNF "채음보양"
		ENDIF
	;섹프
	CASE 185
		IF ARG:1 == 1
			RETURNF "섹프"
		ELSEIF ARG:1 == 2
			RETURNF "정부"
		ENDIF
	;비생물
	CASE 192
		IF ARG:1 == 1
			RETURNF "비생물"
		ELSEIF ARG:1 == 2
			RETURNF "영체"
		ENDIF
	;신령
	CASE 193
		IF ARG:1 == 2
			RETURNF "사신"
		ELSEIF ARG:1 == 3
			RETURNF "염라"
		ENDIF
	;인간
	CASE 194
		IF ARG:1 == 1
			RETURNF "인간"
		ELSEIF ARG:1 == 2
			RETURNF "마법사"
		ELSEIF ARG:1 == 3
			RETURNF "무녀"
		ELSEIF ARG:1 == 4
			RETURNF "천인"
		ELSEIF ARG:1 == 5
			RETURNF "선인"
		ELSEIF ARG:1 == 6
			RETURNF "월인"
		ENDIF
	;형상
	CASE 250
		IF ARG:1 == 1
			RETURNF "유아 자지"
		ELSEIF ARG:1 == 2
			RETURNF "허접 자지"
		ELSEIF ARG:1 == 4
			RETURNF "반딧 자지"
		ELSEIF ARG:1 == 5
			RETURNF "돌기 자리"
		ELSEIF ARG:1 == 6
			RETURNF "거근"
		ELSEIF ARG:1 == 10
			RETURNF "초거근"
		ENDIF
	CASEELSE
		SIF ARG:1
			RETURNF @"%TALENTNAME:ARG%"
ENDSELECT


code:
@SHOW_RELATION(선택중캐릭터ID)
#DIM 선택중캐릭터ID
#DIM 표시항목수

표시항목수 = 0
PRINTL
PRINTL □ 궁합 □---------------------------------------------------------------------------
PRINTL
FOR LOCAL, 0, CHARANUM
	SIF !RELATION:선택중캐릭터ID:LOCAL
		CONTINUE
	PRINTFORM %CALLNAME:LOCAL, 14, RIGHT%
	PRINT ×
	;색의 선택
	SELECTCASE RELATION:선택중캐릭터ID:LOCAL
	CASE IS < 60
		SETCOLOR C_RED
	CASE IS < 100
		SETCOLOR 0xE9967A
	CASE 100
		SETCOLOR C_YELLOW
	CASE IS < 130
		SETCOLOR C_P_GREEN
	CASE IS < 200
		SETCOLOR C_GREEN
	CASEELSE
		SETCOLOR C_AQUA
	ENDSELECT
	PRINTFORM {RELATION:선택중캐릭터ID:LOCAL, 4 , RIGHT}\%
	RESETCOLOR
	표시항목수 ++
	SIF 표시항목수 % 3 == 0
		PRINTL
NEXT
PRINTL


code:
;-------------------------------------------------
;신장·체중·3 사이즈의 표시 처리
;-------------------------------------------------
;BASE:20…신장
;BASE:21…체중
;BASE:22…가슴
;BASE:23…웨스트
;BASE:24…히프
;MAXBASE:20…신장 계수
;MAXBASE:21…체중 계수
;MAXBASE:22…가슴 계수
;MAXBASE:23…웨스트 계수
;MAXBASE:24…히프 계수

@MAKE_SIZE, ARG
;신체 측정 플래그가 서 있는 경우는 계수를 생성
;신체 측정필 또한 미설정의 경우도 생성
;CSV에 기입되어 있지 않은 경우의 표준치는 1000
VARSET LOCAL
IF CFLAG:ARG:신체측정 == 2 || (CFLAG:ARG:신체측정 == 1 && (MAXBASE:ARG:신장 == 0 || MAXBASE:ARG:체중 == 0 || MAXBASE:ARG:가슴 == 0 || MAXBASE:ARG:웨스트 == 0 || MAXBASE:ARG:히프 == 0))
	FOR LOCAL, 20, 25
		MAXBASE:ARG:LOCAL = CSVBASE(ARG,LOCAL)
		SIF MAXBASE:ARG:LOCAL == 0
			MAXBASE:ARG:LOCAL = 1000
		MAXBASE:ARG:LOCAL = MAXBASE:ARG:LOCAL * RAND(950, 1050) / 1000
	NEXT
ENDIF

;===신장의 산출===
;기본치
BASE:ARG:신장 = (TALENT:ARG:성별 == 2) ? 1700 # 1500
BASE:ARG:신장 = BASE:ARG:신장 * MAXBASE:ARG:신장 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:신장, 0.80
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:신장, 0.90
ELSEIF TALENT:ARG:체형 == 1
	TIMES BASE:ARG:신장, 1.10
ELSEIF TALENT:ARG:체형 == 2
	TIMES BASE:ARG:신장, 1.20
ELSEIF TALENT:ARG:체형 == 3
	TIMES BASE:ARG:신장, 1.50
ENDIF

;===웨스트의 산출===
;기본치
BASE:ARG:웨스트 = BASE:ARG:신장 * 40 / 100
BASE:ARG:웨스트 = BASE:ARG:웨스트 * MAXBASE:ARG:웨스트 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:웨스트, 1.16
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:웨스트, 1.08
ENDIF

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:웨스트, 0.95

;===가슴의 산출===
;기본치
BASE:ARG:가슴 = BASE:ARG:신장 * 51 / 100
BASE:ARG:가슴 = BASE:ARG:가슴 * MAXBASE:ARG:가슴 / 1000

;가슴 사이즈 보정
IF TALENT:ARG:가슴사이즈 == -2
	TIMES BASE:ARG:가슴, 0.84
ELSEIF TALENT:ARG:가슴사이즈 == -1
	TIMES BASE:ARG:가슴, 0.92
ELSEIF TALENT:ARG:가슴사이즈 == 1
	TIMES BASE:ARG:가슴, 1.08
ELSEIF TALENT:ARG:가슴사이즈 == 2
	TIMES BASE:ARG:가슴, 1.16
ENDIF

;B감각에 의한 보정
BASE:ARG:가슴 = BASE:ARG:가슴 * (1000 + MIN(ABL:ARG:B감각, 100)) / 1000

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:가슴, 1.05

;언더 가슴 이하라면 보정
BASE:ARG:가슴 = MAX(BASE:ARG:신장 * 43 / 100, BASE:ARG:가슴)

;===히프의 산출===
;기본치
BASE:ARG:히프 = BASE:ARG:신장 * 53 / 100
BASE:ARG:히프 = BASE:ARG:히프 * MAXBASE:ARG:히프 / 1000

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:히프, 1.05

;===체중의 산출===
;기본치
BASE:ARG:체중 = BASE:ARG:신장 * BASE:ARG:신장 / 5000
BASE:ARG:체중 = BASE:ARG:체중 * MAXBASE:ARG:체중 / 1000

;체형 보정
IF TALENT:ARG:체형 == -2
	TIMES BASE:ARG:체중, 0.80
ELSEIF TALENT:ARG:체형 == -1
	TIMES BASE:ARG:체중, 0.90
ELSEIF TALENT:ARG:체형 == 1
	TIMES BASE:ARG:체중, 1.10
ELSEIF TALENT:ARG:체형 == 2
	TIMES BASE:ARG:체중, 1.20
ELSEIF TALENT:ARG:체형 == 3
	TIMES BASE:ARG:체중, 1.50
ELSEIF TALENT:ARG:체형 == 5
	TIMES BASE:ARG:체중, 10.00
ENDIF

;그 외 보정
SIF TALENT:ARG:매력
	TIMES BASE:ARG:체중, 0.95

@SHOW_SIZE, ARG
#DIM L_PENIS,20 ; P사이즈 계산용
;LOCAL:21…임신시의 체중의 계산치
;LOCAL:23…임신시의 웨스트의 계산치
VARSET LOCAL
CALL MAKE_SIZE, ARG
IF CFLAG:ARG:신체측정 == 0
	PRINTL
	PRINTFORML □ 사이즈 □-------------------------------------------------------------------------
	PRINTL  미측정
ELSE
	PRINTL
	PRINT □
	CALL PRINTBUTTON_EX("[사이즈]",160,TFLAG:160)
	PRINTL □------------------------------------------------------------------------
	IF !TFLAG:사이즈표시
		;플레이어의 신장·체중은 불명
		IF ARG == NO:0 && TALENT:ARG:성별 == 2
			PRINTFORM  신장:???cm  체중:??kg
		ELSE
			;신장
			CALL ShowScaleInCM(ARG, BASE:ARG:신장, "신장:")
			;체중
			IF TALENT:ARG:임신
				;신장 150 cm로 10 kg정도 증가
				LOCAL:21 = BASE:ARG:체중 + (BASE:ARG:신장 * BASE:ARG:신장 * CFLAG:ARG:임신경과일수 / 2250000)
					PRINTFORM    체중:{LOCAL:21 / 10}. {LOCAL:21 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@
					PRINTFORML  임신전({BASE:ARG:체중 / 10}. {BASE:ARG:체중 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@)
			ELSE
				;소인의 체중은 1/10^3
				PRINTFORML    체중:{BASE:ARG:체중 / 10}. {BASE:ARG:체중 % 10}\@ TALENT:ARG:체형 == -5? g# kg\@
			ENDIF
		ENDIF
		;[남자]가 아닌 플레이어는 비표시는 아니고 불명
		IF TALENT:ARG:성별 != 2
			;가슴
			CALL ShowScaleInCM(ARG, BASE:ARG:가슴, "   Ｂ:")
				PRINTFORM %LOCALS:0%
			CALL PRINT_CUPSIZE , ARG
			;웨스트
			IF TALENT:ARG:임신
				;신장 150 cm로 30 cm정도 증가
				LOCAL:23 = BASE:ARG:체중 + (BASE:ARG:신장 * CFLAG:ARG:임신경과일수 / 500)
				CALL ShowScaleInCM(ARG, LOCAL:23, "/ Ｗ:")
				CALL ShowScaleInCM(ARG, BASE:ARG:웨스트, " 임신전(")
				PRINTPLAIN )/
			ELSE
				CALL ShowScaleInCM(ARG, BASE:ARG:웨스트, "/ Ｗ:")
				PRINTFORM /
			ENDIF
			;히프
			CALL ShowScaleInCM(ARG, BASE:ARG:히프, "/ H:")
				PRINTFORML
			ENDIF
		IF HAS_PENIS(ARG)
			;Ｐ
			CALL GET_PENIS_SIZE, L_PENIS, ARG
			CALL ShowScaleInCM(ARG, L_PENIS:1, " Ｐ:")
			CALL ShowScaleInCM(ARG, L_PENIS:5, " 직경：")
			CALL ShowScaleInCM(ARG, L_PENIS:8, "  （평상시:")
			CALL ShowScaleInCM(ARG, L_PENIS:7, " 직경：")
			PRINTPLAIN )
			CALL ShowScaleInCM(ARG, L_PENIS:11, " 편옥직경：")
			PRINTFORML
		ENDIF
	ENDIF
ENDIF
PRINTL

@PRINT_CUPSIZE, ARG
;가슴의 컵 사이즈 생성
SPLIT "(-) ,(AAA) ,(AA) ,(A) ,(B) ,(C) ,(D) ,(E) ,(F) ,(G) ,(H) ,(I) ,(J) ,(K) ,(L) ,(M) ,(N) ,(O) ,(P) ,(Q) ,(R) ,(S) ,(T) ,(U) ,(V) ,(W) ,(X) ,(Y) ,(Z) ,(Z+) ,(규격외) ",",",LOCALS
;기본치
LOCAL = (BASE:ARG:가슴 - (BASE:ARG:신장 * 43 / 100)) / 25

;소인은 1/10
SIF TALENT:ARG:체형 == -5
	TIMES LOCAL, 0.10

;캐릭터라인 변수가 약간 부자유스러운 것으로 억지로 작성
LOCAL = LIMIT(LOCAL, 0, 30)
LOCALS:0 = %LOCALS:(LOCAL)%
PRINTFORM %LOCALS:0%

; ペニス各種サイズ取得 内容は各代入部分を参照
@GET_PENIS_SIZE(L_PENIS, ARG) ;TODO COMMON.ERB 이식 필요
#DIM REF L_PENIS,0
#DIM L_PSCALE

; 長さ用シード値
L_PENIS:0 = BASE:ARG:신장*100 + BASE:ARG:웨스트*10 + BASE:ARG:히프

; NOISE2()は平均付近の値が出やすいので、極端な値はレアな存在になる。そんな感じで数値を考える

; 형상の具体的なサイズのスケール感がいまいちわかってないので適当に書きました
; でもこうすると幼児체형＋형상=1のときちょっと不自然な感じになる。このTALENT:형상は絶対的な評価なのか見た目の割にはという意味なのかコレガワカラナイ
; とりあえずいろいろできる方（相対評価）でやっといた
IF TALENT:ARG:형상 == 1 ; 未成熟
	L_PSCALE = (NOISE2(L_PENIS:0, 25) + 45)
ELSEIF TALENT:ARG:형상 == 2 ; 租賃
	L_PSCALE = (NOISE2(L_PENIS:0, 30) + 70)
ELSEIF TALENT:ARG:형상 == 6 ; ごんぶと
	L_PSCALE = (NOISE2(L_PENIS:0, 100) + 175)
ELSEIF TALENT:ARG:형상 == 10 ; 馬並み
	L_PSCALE = (NOISE2(L_PENIS:0, 125) + 275)
ELSE ; 通常
	; 150cmの신장に対して10.0cm～17.5cmを限界としてみる
	L_PSCALE = (NOISE2(L_PENIS:0, 75) + 100)
ENDIF
; 長さ。신장に応じてリサイズ。150cmを境に拡大縮小
L_PENIS:1 = BASE:ARG:신장 * L_PSCALE / 1500

; 萎縮率 とりあえず25%～75%
L_PENIS:2 = NOISE2(L_PENIS:0 * 10 + 100, 50) + 25
; 萎縮後サイズ
L_PENIS:8 = L_PENIS:1 * L_PENIS:2 / 100

; 太さ用シード値
L_PENIS:9 = BASE:ARG:신장*1 + BASE:ARG:웨스트*100 + BASE:ARG:히프*10
; 太さ係数
L_PENIS:3 = (NOISE2(L_PENIS:9, 30) + 85)
; 太さ(周)
L_PENIS:4 = L_PENIS:1 * 80 * L_PENIS:3 / 10000
; 太さ(直径)
L_PENIS:5 = L_PENIS:4 * 1000000 / 3141592
; 平常時太さ(周)
L_PENIS:6 = L_PENIS:1 * 60 * L_PENIS:3 / 10000
; 平常時太さ(直径)
L_PENIS:7 = L_PENIS:6 * 1000000 / 3141592

;玉用シード値
L_PENIS:10 = BASE:ARG:신장*10 + BASE:ARG:웨스트*1 + BASE:ARG:히프*100
; 片玉直径 とりあえずちんちんの大きさに比例
L_PENIS:11 = L_PENIS:1 * 18 * (NOISE2(L_PENIS:10, 40) + 80) / 10000
; 袋横幅
L_PENIS:12 = L_PENIS:11 * 210 / 100

@ShowScaleInCM(C_ID, SIZE, ARGS)
#DIM C_ID
#DIM SIZE

PRINTFORM %ARGS%
IF TALENT:C_ID:체형 == -5
	PRINTFORM {SIZE / 100}.{SIZE % 100 / 10}{SIZE % 10}cm
ELSE
	PRINTFORM {SIZE / 10}.{SIZE % 10}cm
ENDIF