code:
@NIGHT_PROSTITUTION2
;FLAG:41は店の評判
;CFLAG:51 連れ去りフラグに使用
;客番号
LOCAL:0 = 0
;リピート回数
LOCAL:1 = 0
;以下状況に応じて使う

;LOCAL:0 客NO

;特別な客のカラー　0xFFD700
;客のカラー
;男
;IF CUSTOMER:(LOCAL:0):2 == 0
;	SETCOLOR 0x00FFFF
;女
;ELSEIF CUSTOMER:(LOCAL:0):2 == 1
;	SETCOLOR 0xFF69B4
;男女
;ELSEIF CUSTOMER:(LOCAL:0):2 == 2
;	SETCOLOR 0xFF8C00
;両性
;ELSEIF CUSTOMER:(LOCAL:0):2 == 3
;	SETCOLOR 0xFF8C00
;その他
;ELSEIF CUSTOMER:(LOCAL:0):2 == 4
;	SETCOLOR 0xFF8C00
;ENDIF
;事務的な強調表示のメッセージカラー　0XDDA0DD

;客数定義
;基本人数を80人とし、後半30人を休日専用の客とする
;娼館인기が100上がるごとに人数が1人増える（最大199名）
;娼館인기が100下がるごとに人数が1人減る（最小50人）

IF FLAG:8 == 0
	LOCAL:1 = 80
	SIF FLAG:41 >= 100
		LOCAL:1 = 80 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:1 = 80 + (FLAG:41/100)
	SIF LOCAL:1 <= 50
		LOCAL:1 = 50
	SIF LOCAL:1 >= 199
		LOCAL:1 = 199
ELSE
	LOCAL:1 = 50
	SIF FLAG:41 >= 100
		LOCAL:1 = 50 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:1 = 50 + (FLAG:41/100)
	SIF LOCAL:1 <= 20
		LOCAL:1 = 20
	SIF LOCAL:1 >= 199
		LOCAL:1 = 199
ENDIF

REPEAT CHARANUM
	SIF CFLAG:COUNT:12 == 1 &&  CFLAG:COUNT:51 == 0
		LOCAL:99 += 1
REND
COUNT = 0

;売春相손に対する処理
FOR (LOCAL:0),1,(LOCAL:1)
	IF CUSTOMER:(LOCAL:0):7 == 0 && LOCAL:99 >= 1
		;特別な客等は相손を決定する処理（連れ去り等）
		;特別な客のパターン　借金を増やす、対象を連れ去る、止めに入った助손を連れ去る、評判を悪化させる

		;相손がいない客の処理
		IF CUSTOMER:(LOCAL:0):12 <= 0
			PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は相손がいなかった
			;不満メッセージを表示
			SIF FLAG:161 == 1
				CALL PROSTITUTION_CUSTOMER_INAIMASSAGE ,(LOCAL:0)
			;特別な客、横暴な客の処理
			;横暴な客は暴れる
			IF CUSTOMER:(LOCAL:0):0 == 4
				CALL OUBOU_EJECT , LOCAL:0
			;輪姦サークルはクレームをつけ、助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
				CALL RINKAN_EJECT , LOCAL:0
			;ガキどもは簡単につまみ出せるが評判が悪化する
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
				CALL GAKI_EJECT , LOCAL:0
			;高級セレブはクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
				CALL SEREVU_EJECT , LOCAL:0
			;Ｃ・サイコレズはクレームをつけ、助손が対象だった場合は連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
				CALL REZU_EJECT , LOCAL:0
			;山田さんは暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				CALL YAMADA_EJECT , LOCAL:0
			;謎の集団は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
				CALL NAZO_EJECT , LOCAL:0
			;怪しげな宗教団体は対象を連れ去り、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
				CALL CULT_EJECT , LOCAL:0
			;暴走族の集団は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
				CALL BOUSOUZAOKU_EJECT , LOCAL:0
			;レディースの集団は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
				CALL REDEXSU_EJECT , LOCAL:0
			;薬物研究者はクレームをつけ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
				CALL MAD_EJECT , LOCAL:0
			;촉수の怪人は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
				CALL SYOKUSYU_EJECT , LOCAL:0
			;大番長は暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
				CALL DAIBANTYOU_EJECT , LOCAL:0
			;鬼医者はクレームをつけ、助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
				CALL ONIISYA_EJECT , LOCAL:0
			;性職者はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
				CALL SEISYOKUSYA_EJECT , LOCAL:0
			;女体芸術家はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
				CALL GEIJYUTUKA_EJECT , LOCAL:0
			;狩猟者はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
				CALL YANAGAWA_EJECT , LOCAL:0
			ENDIF
		;指名とは違う相손をあてがわれた客の処理
		ELSEIF CUSTOMER:(LOCAL:0):14 != CUSTOMER:(LOCAL:0):12 && CUSTOMER:(LOCAL:0):12 != 0 && CUSTOMER:(LOCAL:0):14 != 0
			PRINTL
			PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%의 指名した相손ではなかった
			;不満メッセージを表示
			SIF FLAG:161 == 1
				CALL PROSTITUTION_CUSTOMER_TIGAUMASSAGE ,(LOCAL:0)
			;고통な客、横暴な客、特別な客の処理
			;고통な客はクレームをつけ、好みが一定以下だった場合帰る
			IF CUSTOMER:(LOCAL:0):0 == 5
				CALL KUTUU_TIGAU , LOCAL:0
			;横暴な客は暴れ、好みが一定以下だった場合帰る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 4
				CALL OUBOU_TIGAU , LOCAL:0
			;特別な客の処理
			;輪姦サークルはクレームをつけ、助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
				CALL RINKAN_EJECT , LOCAL:0
			;ガキどもはクレームをつけ、評判を悪化させる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
				CALL GAKI_EJECT , LOCAL:0
			;高級セレブはクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
				CALL SEREVU_EJECT , LOCAL:0
			;Ｃ・サイコレズはクレームをつけ、助손が対象だった場合は連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
				CALL REZU_EJECT , LOCAL:0
			;山田さんは暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				CALL YAMADA_EJECT , LOCAL:0
			;謎の集団は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
				CALL NAZO_EJECT , LOCAL:0
			;怪しげな宗教団体は対象を連れ去り、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
				CALL CULT_EJECT , LOCAL:0
			;暴走族の集団は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
				CALL BOUSOUZAOKU_EJECT , LOCAL:0
			;レディースの集団は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
				CALL REDEXSU_EJECT , LOCAL:0
			;薬物研究者はクレームをつけ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
				CALL MAD_EJECT , LOCAL:0
			;촉수の怪人は暴れ、止めに入った場合は助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
				CALL SYOKUSYU_EJECT , LOCAL:0
			;大番長は暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
				CALL DAIBANTYOU_EJECT , LOCAL:0
			;鬼医者はクレームをつけ、助손を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
				CALL ONIISYA_EJECT , LOCAL:0
			;性職者はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
				CALL SEISYOKUSYA_EJECT , LOCAL:0
			;女体芸術家はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
				CALL GEIJYUTUKA_EJECT , LOCAL:0
			;狩猟者はクレームをつけ、対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
				CALL YANAGAWA_EJECT , LOCAL:0
			;それ以外の客は好みが一定以下だった場合帰る
			ELSE
				CALL TIGAU , LOCAL:0
			ENDIF
		;指名通りの相손をあてがわれた客の処理
		ELSEIF CUSTOMER:(LOCAL:0):14 == CUSTOMER:(LOCAL:0):12 && CUSTOMER:(LOCAL:0):12 != 0 && CUSTOMER:(LOCAL:0):14 != 0
			PRINTL
			;満足メッセージを表示
			SIF FLAG:161 == 1
				CALL PROSTITUTION_CUSTOMER_TIGAUMASSAGE ,(LOCAL:0)
			SETCOLOR 0xFFD700
			;特別な客のみ
			IF CUSTOMER:(LOCAL:0):0 == 6 && CFLAG:(CUSTOMER:(LOCAL:0):14):52 == 0
				;輪姦サークル、高級セレブ、Ｃサイコレズ、謎の集団、怪しげな宗教団体、暴走族の集団、薬物研究者、촉수の怪人、鬼医者、性職者、女体芸術家、狩猟者
				;は対象を連れ去る
				IF CUSTOMER:(LOCAL:0):1 == 0 || CUSTOMER:(LOCAL:0):1 == 2 || CUSTOMER:(LOCAL:0):1 == 3 || CUSTOMER:(LOCAL:0):1 == 5 || CUSTOMER:(LOCAL:0):1 == 6 || CUSTOMER:(LOCAL:0):1 == 7 || CUSTOMER:(LOCAL:0):1 == 9 || CUSTOMER:(LOCAL:0):1 == 10 || CUSTOMER:(LOCAL:0):1 == 12 || CUSTOMER:(LOCAL:0):1 == 13 || CUSTOMER:(LOCAL:0):1 == 14 || CUSTOMER:(LOCAL:0):1 == 15
					PRINTFORMW %CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):14)%を何処かへ連れ去っていった……
					CUSTOMER:(LOCAL:0):12 = (CUSTOMER:(LOCAL:0):14)
					CUSTOMER:(LOCAL:0):64 = (CUSTOMER:(LOCAL:0):14)
					CFLAG:(CUSTOMER:(LOCAL:0):14):51 = CUSTOMER:(LOCAL:0):63
					CFLAG:(CUSTOMER:(LOCAL:0):14):52 = LOCAL:0
				ENDIF
			ELSE
			;	CUSTOMER:(LOCAL:0):12 = 0
			ENDIF
			RESETCOLOR
		;指名しておらず、相손をあてがわれた場合の処理
		ELSEIF CUSTOMER:(LOCAL:0):14 == 0 && CUSTOMER:(LOCAL:0):12 != 0
			;고통な客、横暴な客、特別な客の処理
			;고통な客はクレームをつけ、好みが一定以下だった場合帰る
			IF CUSTOMER:(LOCAL:0):0 == 5
				CALL KUTUU_TIGAU , LOCAL:0
			;輪姦サークルは対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
				CALL RINKAN_EJECT , LOCAL:0
			;ガキどもは好み次第でクレームをつけ帰る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
				CALL GAKI_EJECT , LOCAL:0
			;高級セレブは対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
				CALL SEREVU_EJECT , LOCAL:0
			;Ｃ・サイコレズはクレームをつける
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
				CALL REZU_EJECT , LOCAL:0
			;山田さんは暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				CALL YAMADA_EJECT , LOCAL:0
			;謎の集団は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
				CALL NAZO_EJECT , LOCAL:0
			;怪しげな宗教団体は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
				CALL CULT_EJECT , LOCAL:0
			;暴走族の集団は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
				CALL BOUSOUZAOKU_EJECT , LOCAL:0
			;レディースの集団は暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
				CALL REDEXSU_EJECT , LOCAL:0
			;薬物研究者は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
				CALL MAD_EJECT , LOCAL:0
			;촉수の怪人は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
				CALL SYOKUSYU_EJECT , LOCAL:0
			;大番長は好み次第で暴れる
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
				CALL DAIBANTYOU_EJECT , LOCAL:0
			;鬼医者は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
				CALL ONIISYA_EJECT , LOCAL:0
			;性職者は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
				CALL SEISYOKUSYA_EJECT , LOCAL:0
			;女体芸術家は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
				CALL GEIJYUTUKA_EJECT , LOCAL:0
			;狩猟者は対象を連れ去る
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
				CALL YANAGAWA_EJECT , LOCAL:0
			ENDIF
		ENDIF
	ENDIF
NEXT
DRAWLINE
PRINTW

;売春行為の処理
FOR (LOCAL:0),1,199
	;売春相손がいるか、誰かを監禁しているか
	IF (CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):12 >= 1 && LOCAL:0 <= LOCAL:1 ) || (CUSTOMER:(LOCAL:0):64 >= 1)
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):52 >= 1 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORMW %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は今回の相손であった%CALLNAME:(CUSTOMER:(LOCAL:0):12)%を何者かに連れ去られ見失った…
			CUSTOMER:(LOCAL:0):12 = 0
			CUSTOMER:(LOCAL:0):14 = 0
			CUSTOMER:(LOCAL:0):10 = 0
			CONTINUE
		ENDIF
		IF CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):12 >= 1
			;불쾌な客、孕ませ好き、고통な客メッセージを表示
			;未設定
			IF CUSTOMER:(LOCAL:0):2 == 0
				SETCOLOR 0x00FFFF
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1
				SETCOLOR 0xFF69B4
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4
				SETCOLOR 0xFF8C00
			ENDIF

			IF CUSTOMER:(LOCAL:0):0 == 2 && CUSTOMER:(LOCAL:0):61 == 0
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は見るからに불결な容姿だった
				PRINTFORML こんな客の相손をするのは、随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ELSEIF CUSTOMER:(LOCAL:0):0 == 2 && CUSTOMER:(LOCAL:0):61 == 1
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%의 容姿は見るからに醜悪だった
				PRINTFORML こんな客の相손をするのは、随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ELSEIF CUSTOMER:(LOCAL:0):0 == 2 && CUSTOMER:(LOCAL:0):61 == 2
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は바지の中に野球のバットでも入れているのかと思われるほどの巨根の持ち主らしい
				PRINTFORML こんな客の相손をするのは、随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				SETCOLOR 0xFFD700
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%의 容姿は見るからに醜悪だった
				PRINTFORML こんな客の相손をするのは、随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ENDIF
			IF CUSTOMER:(LOCAL:0):0 == 3
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は何故か、콘돔の使用を強く거절していた
				PRINTFORML しかし、あらかじめ伝えられていたので拒否することはできない
				PRINTFORMW 임신しないことを祈るしかないだろう……
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は何故か、콘돔の使用を強く거절していた
				PRINTFORML しかし、あらかじめ伝えられていたので拒否することはできない
				PRINTFORMW 임신しないことを祈るしかないだろう……
			ENDIF
			IF CUSTOMER:(LOCAL:0):0 == 5 && CUSTOMER:(LOCAL:0):61 == 0 && CUSTOMER:(LOCAL:0):65 == NO:(CUSTOMER:(LOCAL:0):12)
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 身内だった
				PRINTFORML 知っている顔を相손をするのは%CALLNAME:(CUSTOMER:(LOCAL:0):12)%にとって随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ELSEIF CUSTOMER:(LOCAL:0):0 == 5 && CUSTOMER:(LOCAL:0):61 == 1 && CUSTOMER:(LOCAL:0):65 == NO:(CUSTOMER:(LOCAL:0):12)
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は最近%CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 周りをウロついているストーカーだった
				PRINTFORML このような客の相손をするのは%CALLNAME:(CUSTOMER:(LOCAL:0):12)%にとって随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ELSEIF CUSTOMER:(LOCAL:0):0 == 5 && CUSTOMER:(LOCAL:0):61 == 2 && CUSTOMER:(LOCAL:0):65 == NO:(CUSTOMER:(LOCAL:0):12)
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 知り合いだった
				PRINTFORML 知っている顔を相손をするのは%CALLNAME:(CUSTOMER:(LOCAL:0):12)%にとって随分と고통なことだろう
				PRINTFORMW だが契約したからには義務を果たさねばならない…
			ENDIF
			RESETCOLOR
			;あてがったキャラへの感想表示
			SIF FLAG:161 == 1
				CALL PROSTITUTION_CUSTOMER_ATEGAIMASSAGE ,(LOCAL:0)

			IF CUSTOMER:(LOCAL:0):0 == 6
				SETCOLOR 0xFFD700
			ELSEIF CUSTOMER:(LOCAL:0):2 == 0
				SETCOLOR 0x00FFFF
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1
				SETCOLOR 0xFF69B4
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4
				SETCOLOR 0xFF8C00
			ENDIF
			;ハード以上노출好きな客は屋外へ連れ出す
			IF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):64 >= 1
				CALL PLAY_KANKIN_CUSTOMER, LOCAL:0
			ELSEIF CUSTOMER:(LOCAL:0):35 == 1 && CUSTOMER:(LOCAL:0):40 >= 2
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%に개목걸이をつけて屋外へと消えていった
			ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
				PRINTFORML %CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%をＳＭルームへと連行していった
			ELSE
				PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とプレイルームへと消えていった
			ENDIF
			PRINTL

			IF CUSTOMER:(LOCAL:0):64 == 0
				;行為のハードさ、嗜好のメッセージ表示
				IF CUSTOMER:(LOCAL:0):40 == 0
					PRINTFORM 客は比較的ソフトな
				ELSEIF CUSTOMER:(LOCAL:0):40 == 1
					PRINTFORM 客は
				ELSEIF CUSTOMER:(LOCAL:0):40 == 2
					PRINTFORM 客はハードな
				ELSEIF CUSTOMER:(LOCAL:0):40 == 3
					PRINTFORM 客は変態的な
				ENDIF
				IF CUSTOMER:(LOCAL:0):35 == 0
					PRINTFORML 奉仕プレイが好みのようだ
				ELSEIF CUSTOMER:(LOCAL:0):35 == 1
					PRINTFORML 노출プレイが好みのようだ
				ELSEIF CUSTOMER:(LOCAL:0):35 == 2
					PRINTFORML 嗜虐プレイが好みのようだ
				ELSEIF CUSTOMER:(LOCAL:0):35 == 3
					PRINTFORML 被虐プレイが好みのようだ
				ENDIF
			ENDIF
			RESETCOLOR
			PRINTW
		ENDIF
		;売春メッセージを表示
		SIF FLAG:161 == 1
			CALL PROSTITUTION_CUSTOMER_MASSAGE ,(LOCAL:0)

		;追加行為を要求する客のメッセージを表示
		IF CUSTOMER:(LOCAL:0):0 == 8 || (CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4)
			IF CUSTOMER:(LOCAL:0):0 == 6
				SETCOLOR 0xFFD700
			ELSEIF CUSTOMER:(LOCAL:0):2 == 0
				SETCOLOR 0x00FFFF
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1
				SETCOLOR 0xFF69B4
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4
				SETCOLOR 0xFF8C00
			ENDIF
			PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は予定の時間が経過した後も執拗に追加のプレイを要求してきた
			PRINTFORML 応じなければ金を払わないと言っており、頑なに立場を変えようとはしなかった
			PRINTFORML こうなっては客の要求に応じるほかないだろう……
			PRINTW
			RESETCOLOR
		ENDIF

		;客に応じてキャラの체력の消費、経験追加、客の満足度増加、ストレスの増加、金の増加を行う
		;行為回数は追加行為を要求する客は5回、それ以外の客は3回（CUSTOMER:39）
		;체력の消耗はプレイのハードさによって決まる
		;消耗はノーマルで100%、ソフトは60%、ハードは130%、ベリーハードは160%
		;普通の客はおよそ180～800の範囲

		IF CUSTOMER:(LOCAL:0):64 >= 1
			PRINTFORML 『%NAME:(CUSTOMER:(LOCAL:0):12)%』の監禁状況
		ELSEIF	CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):12 >= 1
			PRINTFORML 『%NAME:(CUSTOMER:(LOCAL:0):12)%』の売春結果
		ENDIF
		PRINTL

		LOCAL:3 = 0 ;満足度の計算に使用
		LOCAL:4 = 0 ;Ｖ경험
		LOCAL:5 = 0 ;Ａ경험
		LOCAL:6 = 0 ;절정경험
		LOCAL:7 = 0 ;성교경험
		LOCAL:8 = 0 ;질사경험
		LOCAL:9 = 0 ;자위경험
		LOCAL:10 = 0 ;Ｃ개발경험
		LOCAL:11 = 0 ;Ｖ개발경험
		LOCAL:12 = 0 ;Ａ개발경험
		LOCAL:13 = 0 ;Ｂ개발경험
		LOCAL:14 = 0 ;Ｕ개발경험
		LOCAL:15 = 0 ;Ｍ개발경험
		LOCAL:16 = 0 ;정액경험
		LOCAL:17 = 0 ;봉사쾌락경험
		LOCAL:18 = 0 ;고통쾌락경험
		LOCAL:19 = 0 ;가학쾌락경험
		LOCAL:20 = 0 ;치욕쾌락경험
		LOCAL:21 = 0 ;펠라경험
		LOCAL:22 = 0 ;키스경험
		LOCAL:23 = 0 ;방뇨경험
		LOCAL:24 = 0 ;레즈경험
		LOCAL:25 = 0 ;게이경험
		LOCAL:26 = 0 ;이상경험
		LOCAL:27 = 0 ;긴박경험
		LOCAL:28 = 0 ;Ｖ확장경험
		LOCAL:29 = 0 ;Ａ확장경험
		LOCAL:30 = 0 ;요도확장경험
		LOCAL:31 = 0 ;분유경험
		LOCAL:32 = 0 ;피윤간경험
		LOCAL:33 = 0 ;촉수경험
		LOCAL:34 = 0 ;非輪姦経験
		LOCAL:35 = 0 ;수간경험
		LOCAL:36 = 0 ;野外全裸経験
		LOCAL:37 = 0 ;飲尿経験
		LOCAL:38 = 0 ;할례経験
		LOCAL:39 = 0 ;初回改造経験
		LOCAL:40 = 0 ;약물경험
		LOCAL:50 = 0 ;매춘경험
		LOCAL:51 = 0 ;[마조]フラグ
		LOCAL:52 = 0 ;[노출광]フラグ
		LOCAL:53 = 0 ;豊가슴フラグ
		LOCAL:54 = 0 ;[모유체질]フラグ
		LOCAL:55 = 0 ;[Ｃ민감]フラグ
		LOCAL:56 = 0 ;[Ｖ민감]フラグ
		LOCAL:57 = 0 ;[Ａ민감]フラグ
		LOCAL:58 = 0 ;[Ｂ민감]フラグ
		LOCAL:59 = 0 ;제모フラグ
		LOCAL:60 = 0 ;永久脱毛フラグ
		LOCAL:61 = 0 ;[할례]フラグ
		LOCAL:62 = 0 ;[유두피어스]フラグ
		LOCAL:63 = 0 ;[음핵피어스]フラグ
	;	LOCAL:64 = 0 ;할례フラグ
		LOCAL:65 = 0 ;음문フラグ
		LOCAL:66 = 0 ;타투フラグ
		LOCAL:67 = 0 ;문신フラグ
		LOCAL:68 = 0 ;낙인フラグ
		LOCAL:69 = 0 ;[예술작품]フラグ
		LOCAL:70 = 0 ;암캐フラグ
		LOCAL:71 = 0 ;암퇘지フラグ
		LOCAL:72 = 0 ;암소フラグ
		LOCAL:73 = 0 ;[젖기쉬움]フラグ
		LOCAL:74 = 0 ;[오줌싸개버릇]フラグ
		LOCAL:75 = 0 ;[마술기능]フラグ

		;매춘경험+1
		LOCAL:50 += 1

		;35,客の性癖1　0,奉仕　1,노출　2,새드　3,마조

		IF CUSTOMER:(LOCAL:0):35 == 0
		;키스경험、봉사쾌락경험
			LOCAL:22 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:17 += (CUSTOMER:(LOCAL:0):39)
			;奉仕に対する満足度は기교+(봉사정신*2)
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):2 + (ABL:(CUSTOMER:(LOCAL:0):12):7*2)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;相손が女でない場合は펠라경험、정액경험追加
			IF CUSTOMER:(LOCAL:0):2 != 1
				LOCAL:16 += (CUSTOMER:(LOCAL:0):39)
				LOCAL:21 += (CUSTOMER:(LOCAL:0):39)
			ENDIF
		ELSEIF CUSTOMER:(LOCAL:0):35 == 1
		;치욕쾌락경험、자위경험、절정경험、変態な客は방뇨경험
			LOCAL:20 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:9 += 2
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			SIF CUSTOMER:(LOCAL:0):40 == 3
				LOCAL:23 += 1
			;노출に対する満足度は노출증*2+봉사정신
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):7 + (ABL:(CUSTOMER:(LOCAL:0):12):8*2)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):35 == 2
		;고통쾌락경험、긴박경험、절정경험
			LOCAL:18 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:27 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			;새드に対する満足度は마조끼*3
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):9*3
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):35 == 3
		;가학쾌락경험
			LOCAL:19 += (CUSTOMER:(LOCAL:0):39)
			;마조に対する満足度は기교+(새드끼*2)
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):2 + (ABL:(CUSTOMER:(LOCAL:0):12):10*2)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;相손が女でない場合は정액경험追加
			IF CUSTOMER:(LOCAL:0):2 != 1
				LOCAL:16 += (CUSTOMER:(LOCAL:0):39)
			ENDIF
		ENDIF

		;36,客の性癖2
		;　 0,CVAB　 1,CVBA　 2,CAVB　 3,CABV　 4,CBVA　 5,CBAV
		;　 6,VCAB　 7,VCBA　 8,VACB　 9,VABC　10,VBCA　11,VBAC
		;　12,ACVB　13,ACBV　14,AVCB　15,AVBC　16,ABCV　17,ABVC
		;　18,BCVA　19,BCAV　20,BVCA　21,BVAC　22,BACV　23,BAVC
		;客の性癖が마조の場合はハードな経験の追加がない
		;それぞれ1番の開発経験+3、2番目の開発経験+1
		;1番最初の項目は行為回数分増加、2番目の項目は1回増加
		;客がハードな行為好きな場合は1番目の拡張経験+1（ＶＡのみ）、Ｃの時は尿道開発経験+1
		;客がベリーハードの行為好きな場合は1番目の拡張経験+2、二番目+1、（ＶＡのみ）Ｃの時は尿道開発経験+2、요도확장경험+1、방뇨경험+1
		;모유체질の場合は1番で분유경험+2 2番で+1
		;満足度は開発具合*15 *8 *4 *2 の順

		;1番目の判定
		IF CUSTOMER:(LOCAL:0):36 >= 0 && CUSTOMER:(LOCAL:0):36 <= 5
			LOCAL:10 += 3
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):3*15
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			IF CUSTOMER:(LOCAL:0):40 == 2 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:14 += 1
			ELSEIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:14 += 2
				LOCAL:30 += 1
				LOCAL:23 += 1
			ENDIF
		ELSEIF CUSTOMER:(LOCAL:0):36 >= 6 && CUSTOMER:(LOCAL:0):36 <= 11
			LOCAL:4 += 3
			LOCAL:11 += 3
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):4*15
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			IF CUSTOMER:(LOCAL:0):40 == 2 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:28 += 1
			ELSEIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:28 += 2
			ENDIF
		ELSEIF CUSTOMER:(LOCAL:0):36 >= 12 && CUSTOMER:(LOCAL:0):36 <= 17
			LOCAL:5 += 3
			LOCAL:12 += 3
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):5*15
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			IF CUSTOMER:(LOCAL:0):40 == 2 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:29 += 1
			ELSEIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:29 += 2
			ENDIF
		ELSEIF CUSTOMER:(LOCAL:0):36 >= 18 && CUSTOMER:(LOCAL:0):36 <= 23
			LOCAL:13 += 3
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):6*15
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 2
		ENDIF
		;2番目の判定
		IF CUSTOMER:(LOCAL:0):36 == 6 || CUSTOMER:(LOCAL:0):36 == 12 || CUSTOMER:(LOCAL:0):36 == 18 || CUSTOMER:(LOCAL:0):36 == 7 || CUSTOMER:(LOCAL:0):36 == 13 || CUSTOMER:(LOCAL:0):36 == 19
			LOCAL:10 += 1
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):3*8
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			SIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:14 += 1
		ELSEIF CUSTOMER:(LOCAL:0):36 == 0 || CUSTOMER:(LOCAL:0):36 == 1 || CUSTOMER:(LOCAL:0):36 == 14 || CUSTOMER:(LOCAL:0):36 == 20 || CUSTOMER:(LOCAL:0):36 == 15 || CUSTOMER:(LOCAL:0):36 == 21
			LOCAL:4 += 1
			LOCAL:11 += 1
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):4*8
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			SIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:28 += 1
		ELSEIF CUSTOMER:(LOCAL:0):36 == 2 || CUSTOMER:(LOCAL:0):36 == 8 || CUSTOMER:(LOCAL:0):36 == 3 || CUSTOMER:(LOCAL:0):36 == 9 || CUSTOMER:(LOCAL:0):36 == 22 || CUSTOMER:(LOCAL:0):36 == 23
			LOCAL:5 += 1
			LOCAL:12 += 1
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):5*8
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			SIF CUSTOMER:(LOCAL:0):40 == 3 && CUSTOMER:(LOCAL:0):35 <= 2
				LOCAL:29 += 1
		ELSEIF CUSTOMER:(LOCAL:0):36 == 4 || CUSTOMER:(LOCAL:0):36 == 10 || CUSTOMER:(LOCAL:0):36 == 16 || CUSTOMER:(LOCAL:0):36 == 5 || CUSTOMER:(LOCAL:0):36 == 11 || CUSTOMER:(LOCAL:0):36 == 17
			LOCAL:13 += 1
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):6*8
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 1
		ENDIF
		;3番目の判定（満足度のみ）
		IF CUSTOMER:(LOCAL:0):36 == 8 || CUSTOMER:(LOCAL:0):36 == 14 || CUSTOMER:(LOCAL:0):36 == 20 || CUSTOMER:(LOCAL:0):36 == 10 || CUSTOMER:(LOCAL:0):36 == 16 || CUSTOMER:(LOCAL:0):36 == 22
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):3*4
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 12 || CUSTOMER:(LOCAL:0):36 == 18 || CUSTOMER:(LOCAL:0):36 == 2 || CUSTOMER:(LOCAL:0):36 == 4 || CUSTOMER:(LOCAL:0):36 == 17 || CUSTOMER:(LOCAL:0):36 == 23
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):4*4
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 0 || CUSTOMER:(LOCAL:0):36 == 6 || CUSTOMER:(LOCAL:0):36 == 19 || CUSTOMER:(LOCAL:0):36 == 21 || CUSTOMER:(LOCAL:0):36 == 5 || CUSTOMER:(LOCAL:0):36 == 11
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):5*4
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 1 || CUSTOMER:(LOCAL:0):36 == 7 || CUSTOMER:(LOCAL:0):36 == 13 || CUSTOMER:(LOCAL:0):36 == 3 || CUSTOMER:(LOCAL:0):36 == 9 || CUSTOMER:(LOCAL:0):36 == 15
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):6*4
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ENDIF

		;4番目の判定（満足度のみ）
		IF CUSTOMER:(LOCAL:0):36 == 9 || CUSTOMER:(LOCAL:0):36 == 15 || CUSTOMER:(LOCAL:0):36 == 21 || CUSTOMER:(LOCAL:0):36 == 11 || CUSTOMER:(LOCAL:0):36 == 17 || CUSTOMER:(LOCAL:0):36 == 23
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):3*2
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 13 || CUSTOMER:(LOCAL:0):36 == 19 || CUSTOMER:(LOCAL:0):36 == 3 || CUSTOMER:(LOCAL:0):36 == 16 || CUSTOMER:(LOCAL:0):36 == 22 || CUSTOMER:(LOCAL:0):36 == 5
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):4*2
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 18 || CUSTOMER:(LOCAL:0):36 == 1 || CUSTOMER:(LOCAL:0):36 == 7 || CUSTOMER:(LOCAL:0):36 == 20 || CUSTOMER:(LOCAL:0):36 == 4 || CUSTOMER:(LOCAL:0):36 == 10
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):5*2
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ELSEIF CUSTOMER:(LOCAL:0):36 == 0 || CUSTOMER:(LOCAL:0):36 == 6 || CUSTOMER:(LOCAL:0):36 == 12 || CUSTOMER:(LOCAL:0):36 == 2 || CUSTOMER:(LOCAL:0):36 == 8 || CUSTOMER:(LOCAL:0):36 == 14
			LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):6*2
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ENDIF

		;37,客の性癖3　0,ノーマル　1,同性愛　2,바이
		;2,客の性別　0,男　1,女　2,男女　3,両性　4,その他
		;ノーマルの場合変化なし
		;男女の集団はボーナスをすべて半分にし、経験も半分にする
		;両性は女として扱う
		;その他はボーナスをすべて半分にし、레즈경험や게이경험の加算は行わない
		;레즈경험、게이경험を行為回数*2加算
		;客がガチの場合は레즈끼、호모끼の値に応じて満足度ボーナスorペナルティ（3でノーマルと同等）
		;0, -30　1, -20　2, -10　3, 0　4, +6　5, +12　6, +18　7, +24　8, +30　9, +36　10, +42
		;客が바이の場合はボーナスのみだがボーナスは半分
		;0, 0　1, +3　2, +6　3, +9　4, +12　5, +15　6, +18　7, +21　8, +24　9, +26　10, +30
		;레즈중독、게이중독は同性の場合満足度加算
		;0, 0　1, +10　2, +20　3, +30　4, +40　5, +50　6, +60　7, +70　8, +80　9, +90　10, +100

		IF CUSTOMER:(LOCAL:0):37 == 1
			;客が同性愛、男×男
			IF CUSTOMER:(LOCAL:0):2 == 0 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*6)-18
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 0
					LOCAL:3 -= 12
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 1
					LOCAL:3 -= 8
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 2
					LOCAL:3 -= 4
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*10
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、男女×男
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += (CUSTOMER:(LOCAL:0):39)
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*3)-9
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 0
					LOCAL:3 -= 6
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 1
					LOCAL:3 -= 4
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 2
					LOCAL:3 -= 2
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、その他×男
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*3)-9
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 0
					LOCAL:3 -= 6
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 1
					LOCAL:3 -= 4
				SIF ABL:(CUSTOMER:(LOCAL:0):12):20 == 2
					LOCAL:3 -= 2
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、女×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*6)-18
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 0
					LOCAL:3 -= 12
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 1
					LOCAL:3 -= 8
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 2
					LOCAL:3 -= 4
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*10
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、男女×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)-18
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 0
					LOCAL:3 -= 6
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 1
					LOCAL:3 -= 4
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 2
					LOCAL:3 -= 2
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、両性×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*6)-18
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 0
					LOCAL:3 -= 12
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 1
					LOCAL:3 -= 8
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 2
					LOCAL:3 -= 4
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*10
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が同性愛、その他×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)-18
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 0
					LOCAL:3 -= 6
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 1
					LOCAL:3 -= 4
				SIF ABL:(CUSTOMER:(LOCAL:0):12):11 == 2
					LOCAL:3 -= 2
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			ENDIF
		ELSEIF CUSTOMER:(LOCAL:0):37 == 2
			;客が바이、男×男
			IF CUSTOMER:(LOCAL:0):2 == 0 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、男女×男
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += (CUSTOMER:(LOCAL:0):39)
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、その他×男
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):20*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):21*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、女×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、男女×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、両性×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += (CUSTOMER:(LOCAL:0):39)*2
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			;客が바이、その他×女
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):11*3)
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
				LOCAL:3 = ABL:(CUSTOMER:(LOCAL:0):12):17*5
				CUSTOMER:(LOCAL:0):41 += LOCAL:3
			ENDIF
		ENDIF

		;38,客の性癖4　0,セックス　1,자위　2,母乳　3,精液
		;0,Ｖ경험、Ｖ개발경험、성교경험加算、절정경험加算、客が페니스がある場合정액경험も加算　相손が男だったらＶ경험をＡ경험に
		;1,자위경험、절정경험、치욕쾌락경험加算
		;2,Ｂ개발경험、분유경험、절정경험加算
		;3,정액경험加算
		;4,中毒レベルに対応して*10加算

		;セックスで相손にＶがある
		IF CUSTOMER:(LOCAL:0):38 == 0 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
			LOCAL:4 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:7 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:11 += (CUSTOMER:(LOCAL:0):39)
			SIF CUSTOMER:(LOCAL:0):2 ==0 || CUSTOMER:(LOCAL:0):2 ==2 || CUSTOMER:(LOCAL:0):2 ==3 || CUSTOMER:(LOCAL:0):2 ==4
				LOCAL:16 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):18*10)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		;セックスで相손が男
		ELSEIF CUSTOMER:(LOCAL:0):38 == 0 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
			LOCAL:5 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:7 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:12 += (CUSTOMER:(LOCAL:0):39)
			SIF CUSTOMER:(LOCAL:0):2 ==0 || CUSTOMER:(LOCAL:0):2 ==2 || CUSTOMER:(LOCAL:0):2 ==3 || CUSTOMER:(LOCAL:0):2 ==4
				LOCAL:16 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):18*10)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		;자위
		ELSEIF CUSTOMER:(LOCAL:0):38 == 1
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:9 += (CUSTOMER:(LOCAL:0):39)*2
			LOCAL:20 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):15*10)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		;母乳で相손が모유체질を持っている
		ELSEIF CUSTOMER:(LOCAL:0):38 == 2 && TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:13 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:31 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):19*10)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		;母乳で相손が모유체질を持っていない
		ELSEIF CUSTOMER:(LOCAL:0):38 == 2
			LOCAL:6 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:13 += (CUSTOMER:(LOCAL:0):39)
		;精液
		ELSEIF CUSTOMER:(LOCAL:0):38 == 3
			LOCAL:16 += (CUSTOMER:(LOCAL:0):39)
			LOCAL:3 = (ABL:(CUSTOMER:(LOCAL:0):12):16*10)
			CUSTOMER:(LOCAL:0):41 += LOCAL:3
		ENDIF

		;체력の計算
		IF CUSTOMER:(LOCAL:0):40 == 0
			LOCAL:3 =  60
		ELSEIF CUSTOMER:(LOCAL:0):40 == 1
			LOCAL:3 =  100
		ELSEIF CUSTOMER:(LOCAL:0):40 == 2
			LOCAL:3 =  130
		ELSEIF CUSTOMER:(LOCAL:0):40 == 3
			LOCAL:3 =  160
		ENDIF
		LOCAL:3 = CUSTOMER:(LOCAL:0):39 * LOCAL:3

		;特別な客の消耗、経験、특수素質取得処理
		;輪姦サークル
		IF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
			LOCAL:4 += 5
			LOCAL:5 += 3
			LOCAL:6 += 4
			LOCAL:7 += 4
			LOCAL:16 += 10
			LOCAL:21 += 4
			LOCAL:23 += 1
			LOCAL:34 += 1
			LOCAL:36 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += 5
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 2
		;ガキども
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
			LOCAL:6 += 2
			LOCAL:9 += 4
			LOCAL:17 += 3
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				LOCAL:25 += 2
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 2
		;高級セレブ
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
			LOCAL:4 += 2
			LOCAL:5 += 1
			LOCAL:6 += 3
			LOCAL:7 += 1
			LOCAL:9 += 5
			LOCAL:10 += 1
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:13 += 1
			LOCAL:17 += 3
			LOCAL:18 += 2
			LOCAL:20 += 1
			LOCAL:22 += 1
			LOCAL:23 += 2
			LOCAL:27 += 4
			LOCAL:37 += 1
			SIF CUSTOMER:(LOCAL:0):2 == 0
				LOCAL:16 += 2
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0 && CUSTOMER:(LOCAL:0):2 == 1
				LOCAL:24 += 3
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1 && CUSTOMER:(LOCAL:0):2 == 0
				LOCAL:25 += 3
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:53 += 2
			;高級セレブは의존도500で[마조]1000で[유두피어스]1500で[암캐]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:51 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1000
						LOCAL:62 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:70 += 1
				ENDIF
			REND
		;Ｃ・サイコレズ
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
			LOCAL:23 += 1
			LOCAL:6 += 2
			LOCAL:9 += 5
			LOCAL:10 += 1
			LOCAL:13 += 1
			LOCAL:15 += 1
			LOCAL:17 += 3
			LOCAL:20 += 2
			LOCAL:22 += 4
			LOCAL:23 += 1
			LOCAL:27 += 1
			LOCAL:37 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += 8
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 3
			;Ｃサイコレズは監禁初日に必ず제모する
			IF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 4
				LOCAL:10 += 9
				LOCAL:59 += 1
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 3
				LOCAL:23 += 8
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 2
				LOCAL:13 += 12
				LOCAL:10 += 4
				LOCAL:6 += 12
				LOCAL:8 += 20
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 1
				LOCAL:20 += 5
				LOCAL:23 += 2
				LOCAL:36 += 2

			ENDIF
			;Ｃサイコレズは最終日に의존도1000で[노출광]의존도1500で[암캐]取得
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12) && CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1000
						LOCAL:52 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:70 += 1
				ENDIF
			REND
		;山田さん
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		;謎の集団
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
			LOCAL:6 += 2
			LOCAL:9 = 0
			LOCAL:10 += 1
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:13 += 1
			LOCAL:14 += 1
			LOCAL:15 += 1
			LOCAL:27 += 1
			LOCAL:3 = 160
			IF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 4
				LOCAL:59 = 1
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 3
				LOCAL:4 += 2
				LOCAL:6 += 2
				LOCAL:3 += 120
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 2
				LOCAL:4 += 4
				LOCAL:6 += 25
				LOCAL:3 += 840
				LOCAL:23 += 5
			;謎の集団は監禁最終日に[음문]を+1する
			ELSEIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 1
				LOCAL:4 += 3
				LOCAL:6 += 12
				LOCAL:3 += 340
				LOCAL:23 += 3
				LOCAL:65 += 1
			ENDIF
			;謎の集団は의존도1500かつ[음문]が3段階以上ならば[마술기능]取得
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500 && TALENT:(CUSTOMER:(LOCAL:0):12):음문 >= 3
						LOCAL:75 += 1
				ENDIF
			REND
		;怪しげな宗教団体
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
			LOCAL:4 += 10
			LOCAL:5 += 5
			LOCAL:6 += 6
			LOCAL:7 += 15
			LOCAL:9 = 0
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:16 += 5
			LOCAL:27 += 1
			LOCAL:34 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 10
			;怪しげな宗教団体は의존도1500かつ[모유체질]ならば[암소]取得
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500 && TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
						LOCAL:72 += 1
				ENDIF
			REND
		;暴走族の集団
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
			LOCAL:4 += 8
			LOCAL:5 += 1
			LOCAL:6 += 2
			LOCAL:7 += 9
			LOCAL:9 = 0
			LOCAL:16 += 10
			LOCAL:18 += 5
			LOCAL:27 = 2
			LOCAL:34 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 2
			;暴走族の集団は의존도500で[마조]1500で[암퇘지]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:51 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:71 += 1
				ENDIF
			REND
		;レディースの集団
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
			LOCAL:4 += 3
			LOCAL:5 += 5
			LOCAL:6 += 3
			LOCAL:7 += 1
			LOCAL:9 += 2
			LOCAL:10 += 1
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:13 += 1
			LOCAL:14 += 1
			LOCAL:18 += 8
			LOCAL:20 += 1
			LOCAL:23 += 1
			LOCAL:27 += 2
			LOCAL:28 += 1
			LOCAL:29 += 1
			LOCAL:30 += 1
			LOCAL:37 += 1
			;監禁しているときは공원で全裸
			SIF CUSTOMER:(LOCAL:0):64 >= 1
				LOCAL:36 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				LOCAL:24 += 4
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 3
			;レディースの集団は対象への의존도÷5消耗が減る（最小200）
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					LOCAL:3 -=(CUSTOMER:(LOCAL:0):(COUNT+90))/5
				SIF LOCAL:3 <= 200
					LOCAL:3 = 200
				ENDIF
			REND
			;レディースの集団は의존도500で[마조]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:51 += 1
				ENDIF
			REND
		;薬物研究者
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
			LOCAL:23 += 3
			LOCAL:5 += 26
			LOCAL:6 += 34
			LOCAL:9 = 0
			LOCAL:10 += 1
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:13 += 1
			LOCAL:14 += 1
			LOCAL:15 += 1
			LOCAL:27 += 1
			LOCAL:40 += 2
			LOCAL:3 = LOCAL:6 * 20
			;薬物研究者は初日に[모유체질]
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 0 && CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 4
				LOCAL:54 += 1
			;薬物研究者1000で[젖기쉬움]1500で[Ｃ민감]2000で[Ｂ민감]2500で[Ｖ민감]3000で[Ａ민감]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1000
						LOCAL:73 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:55 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 2000
						LOCAL:56 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 2500
						LOCAL:57 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 3000
						LOCAL:58 += 1
				ENDIF
			REND
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 31
		;촉수の怪人
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
			LOCAL:4 += 4
			LOCAL:5 += 4
			LOCAL:6 += 4
			LOCAL:9 = 0
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:16 += 10
			LOCAL:18 += 2
			LOCAL:23 += 1
			LOCAL:27 += 2
			LOCAL:28 += 1
			LOCAL:29 += 1
			LOCAL:30 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 5
		;大番長
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
			LOCAL:4 += 5
			LOCAL:6 += 2
			LOCAL:7 += 5
			LOCAL:16 += 2
			LOCAL:17 += 1
			LOCAL:22 += 2
		;鬼医者
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
			LOCAL:5 += 2
			LOCAL:6 += 3
			LOCAL:9 = 0
			LOCAL:10 += 1
			LOCAL:11 += 1
			LOCAL:12 += 1
			LOCAL:13 += 1
			LOCAL:14 += 1
			LOCAL:18 += 5
			LOCAL:23 += 3
			LOCAL:27 += 1
			LOCAL:30 += 1
			LOCAL:40 += 1
			LOCAL:3 = (LOCAL:6 * 20) + 200
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:31 += 2
			;鬼医者は監禁初日に必ず제모する
			SIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 6
				LOCAL:59 += 1
			;鬼医者は의존도500で[할례]1000で[永久脱毛]1500で[오줌싸개버릇]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					IF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:38 += 1
						LOCAL:61 += 1
					ENDIF
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1000
						LOCAL:60 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:74 += 1
				ENDIF
			REND
		;性職者
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
			LOCAL:6 += 2
			LOCAL:9 += 1
			LOCAL:13 += 1
			LOCAL:15 += 1
			LOCAL:16 += 8
			LOCAL:17 += 5
			LOCAL:20 += 2
			LOCAL:22 += 3
			SIF CUSTOMER:(LOCAL:0):2 == 0
				LOCAL:16 += 2
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0 && CUSTOMER:(LOCAL:0):2 == 1
				LOCAL:24 += 2
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:53 += 8
			LOCAL:3 = 300
			;性職者は初回に対象を豊가슴する
			IF CUSTOMER:(LOCAL:0):11 == 1 && CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 2
				LOCAL:40 += 1
				LOCAL:53 += 1
			ENDIF
			;性職者は의존도500で[모유체질]1500で[암소]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:54 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:72 += 1
				ENDIF
			REND
		;女体芸術家
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
			LOCAL:5 += 4
			LOCAL:6 += 3
			LOCAL:9 = 0
			LOCAL:18 += 2
			LOCAL:20 += 2
			LOCAL:23 += 1
			LOCAL:27 += 2
			LOCAL:29 += 1
			LOCAL:3 = (LOCAL:6 * 20) + 150
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:53 += 1
			;女体芸術家は監禁初日に必ず제모する
			SIF CFLAG:(CUSTOMER:(LOCAL:0):12):51 == 6
				LOCAL:59 += 1
			;女体芸術家は의존도500で[永久脱毛]1500で[예술작품]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 500
						LOCAL:60 += 1
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:69 += 1
				ENDIF
			REND
		;狩猟者
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
			LOCAL:4 += 5
			LOCAL:5 += 2
			LOCAL:6 += 3
			LOCAL:7 += 7
			LOCAL:11 += 1
			LOCAL:16 += 5
			LOCAL:23 += 1
			LOCAL:27 += 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 1
				LOCAL:53 += 1
			;狩猟者は의존도1500で[암퇘지]
			REPEAT 10
				IF CUSTOMER:(LOCAL:0):(COUNT+80) == NO:(CUSTOMER:(LOCAL:0):12)
					SIF CUSTOMER:(LOCAL:0):(COUNT+90) >= 1500
						LOCAL:71 += 1
				ENDIF
			REND
		ENDIF

		;모유체질で噴経験がある場合、消費체력1.2倍
		SIF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 && LOCAL:31 >= 1
			TIMES LOCAL:3 , 1.20

		;체력の表示
		BASE:(CUSTOMER:(LOCAL:0):12):0 -= LOCAL:3
		PRINTFORML 체력-{LOCAL:3}

		;이상경험などの経験追加処理
		SETCOLOR 0XDDA0DD
		;客は必ず처녀を奪う（처녀喪失処理は最後）
		IF TALENT:(CUSTOMER:(LOCAL:0):12):처녀 == 1
			PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に[처녀]を奪われた…
			PRINTFORMW 売春で처녀喪失：%EXPNAME:50%＋2
			LOCAL:4 += 1
			LOCAL:26 += 2
		ENDIF
		;客は必ず재생처녀を奪う
		IF TALENT:(CUSTOMER:(LOCAL:0):12):재생처녀 == 1
			PRINTFORMW %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に[재생처녀]を奪われた…
			LOCAL:4 += 1
		ENDIF
		RESETCOLOR

		SETCOLOR 0xFFD700
		;[마조]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):마조 == 0 && LOCAL:51 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって厳しくしつけられた
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [마조]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):마조 = 1
		ENDIF

		;[노출광]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):노출광 == 0 && LOCAL:52 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [노출광]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):노출광 = 1
		ENDIF

		;豊가슴
		IF TALENT:(CUSTOMER:(LOCAL:0):12):폭유 == 0 && LOCAL:53 >= 1
			IF TALENT:(CUSTOMER:(LOCAL:0):12):절벽 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):절벽 = 0
				TALENT:(CUSTOMER:(LOCAL:0):12):빈유 = 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 [절벽]だった가슴は
				PRINTFORM [빈유]
				PRINTFORMDW になった
			ELSEIF TALENT:(CUSTOMER:(LOCAL:0):12):빈유 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):빈유 = 0
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 [빈유]だった가슴は
				PRINTFORM 普通の大きさ
				PRINTFORMDW になった
			ELSEIF TALENT:(CUSTOMER:(LOCAL:0):12):거유 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):거유 = 0
				TALENT:(CUSTOMER:(LOCAL:0):12):폭유 = 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 [거유]だった가슴は
				PRINTFORM [폭유]
				PRINTFORMDW になった
			ELSE
				TALENT:(CUSTOMER:(LOCAL:0):12):거유 = 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 普通の大きさだった가슴は
				PRINTFORM [거유]
				PRINTFORMDW になった
			ENDIF
		ENDIF

		;[모유체질]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 == 0 && LOCAL:54 >= 1 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [모유체질]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):모유체질 = 1
		ENDIF

		;[Ｃ민감]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):Ｃ민감 == 0 && LOCAL:55 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [Ｃ민감]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):Ｃ민감 = 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):Ｃ둔감 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):Ｃ둔감 = 0
		ENDIF

		;[Ｖ민감]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):Ｖ민감 == 0 && LOCAL:56 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [Ｖ민감]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):Ｖ민감 = 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):Ｖ둔감 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):Ｖ둔감 = 0
		ENDIF

		;[Ａ민감]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):Ａ민감 == 0 && LOCAL:57 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [Ａ민감]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):Ａ민감 = 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):Ａ둔감 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):Ａ둔감 = 0
		ENDIF

		;[Ｂ민감]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):Ｂ민감 == 0 && LOCAL:58 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [Ｂ민감]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):Ｂ민감 = 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):Ｂ둔감 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):Ｂ둔감 = 0
		ENDIF

		;[パイパン]取得（永久脱毛）
		IF TALENT:(CUSTOMER:(LOCAL:0):12):무모 <= 0 && LOCAL:60 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって永久除毛を施された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [パイパン]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):무모 = 2
		ENDIF

		;[パイパン]取得 （제모）
		IF TALENT:(CUSTOMER:(LOCAL:0):12):무모 <= 0 && LOCAL:59 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって제모された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [パイパン]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):무모 = 0
		ENDIF

		;[유두피어스]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):유두피어스 == 0 && LOCAL:62 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [유두피어스]
			PRINTFORMDW を施された
			TALENT:(CUSTOMER:(LOCAL:0):12):유두피어스 = 1
			LOCAL:39 += 1
		ENDIF

		;[할례]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):할례 == 0 && LOCAL:61 >= 1
			IF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1 || TALENT:(CUSTOMER:(LOCAL:0):12):후타나리 == 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって페니스の皮を除去され、常時剥き出しにされた
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [할례]
				PRINTFORMDW された
			ELSE
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によってクリトリスの皮を除去され、常時剥き出しにされた
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [할례]
				PRINTFORMDW された
			ENDIF

			TALENT:(CUSTOMER:(LOCAL:0):12):할례 = 1
			LOCAL:39 += 1
		ENDIF

		;[음문]取得
		IF LOCAL:65 >= 1 && TALENT:(CUSTOMER:(LOCAL:0):12):음문 == 0
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [음문]
			PRINTFORMDW を刻まれた
			TALENT:(CUSTOMER:(LOCAL:0):12):음문 = 1
			LOCAL:39 += 1
		ELSEIF LOCAL:65 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [음문]
			PRINTFORMDW はさらなる輝きを増した
			TALENT:(CUSTOMER:(LOCAL:0):12):음문 += 1
		ENDIF

		;[문신]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):문신 == 0 && LOCAL:67 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [문신]
			PRINTFORMDW を刻まれた
			TALENT:(CUSTOMER:(LOCAL:0):12):문신 = 1
			LOCAL:39 += 1
		ENDIF

		;[암캐]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암캐 == 0 && LOCAL:70 >= 1
			IF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [雄犬]
				PRINTFORMDW に躾けられた
			ELSE
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [암캐]
				PRINTFORMDW に躾けられた
			ENDIF
			TALENT:(CUSTOMER:(LOCAL:0):12):암캐 = 1
		ENDIF

		;[암퇘지]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암퇘지 == 0 && LOCAL:71 >= 1
			IF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [雄豚]
				PRINTFORMDW に躾けられた
			ELSE
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [암퇘지]
				PRINTFORMDW に躾けられた
			ENDIF
			TALENT:(CUSTOMER:(LOCAL:0):12):암퇘지 = 1
		ENDIF

		;[암소]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암소 == 0 && LOCAL:72 >= 1 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって取り返しのつかない調教を施された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [암소]
			PRINTFORMDW に躾けられた
			TALENT:(CUSTOMER:(LOCAL:0):12):암소 = 1
		ENDIF

		;[암캐]を取得したら[음핵피어스]を取得する
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암캐 == 1 && TALENT:(CUSTOMER:(LOCAL:0):12):316 == 0
			IF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1 || TALENT:(CUSTOMER:(LOCAL:0):12):후타나리 == 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって雄犬の証を刻まれた
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [陰茎ピアス]
				PRINTFORMDW を施された
			ELSE
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって암캐の証を刻まれた
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [음핵피어스]
				PRINTFORMDW を施された
			ENDIF
			TALENT:(CUSTOMER:(LOCAL:0):12):316 = 1
			LOCAL:39 += 1
		ENDIF

		;[암퇘지]を取得したら[낙인]を取得する
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암퇘지 == 1 && TALENT:(CUSTOMER:(LOCAL:0):12):낙인 == 0
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって家畜の証を刻まれた
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [낙인]
			PRINTFORMDW を施された
			TALENT:(CUSTOMER:(LOCAL:0):12):낙인 = 1
			LOCAL:39 += 1
		ENDIF

		;[암소]を取得したら[타투]を取得する
		IF TALENT:(CUSTOMER:(LOCAL:0):12):암소 == 1 && TALENT:(CUSTOMER:(LOCAL:0):12):타투 == 0
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって家畜の証を刻まれた
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [타투]
			PRINTFORMDW を施された
			TALENT:(CUSTOMER:(LOCAL:0):12):타투 = 1
			LOCAL:39 += 1
		ENDIF

		;[예술작품]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):예술작품 == 0 && LOCAL:69 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [예술작품]
			PRINTFORMDW に改造された
			TALENT:(CUSTOMER:(LOCAL:0):12):예술작품 = 1
			LOCAL:39 += 1
		ENDIF

		;[젖기쉬움]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):젖기쉬움 == 0 && LOCAL:73 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [젖기쉬움]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):젖기쉬움 = 1
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):젖기어려움 == 1
				TALENT:(CUSTOMER:(LOCAL:0):12):젖기어려움 = 0
		ENDIF

		;[오줌싸개버릇]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):오줌싸개버릇 == 0 && LOCAL:74 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [오줌싸개버릇]
			PRINTFORMDW になった
			TALENT:(CUSTOMER:(LOCAL:0):12):오줌싸개버릇 = 1
		ENDIF

		;[마술기능]取得
		IF TALENT:(CUSTOMER:(LOCAL:0):12):마술기능 == 0 && LOCAL:75 >= 1
			PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
			PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
			PRINTFORM [마술기능]
			PRINTFORMDW を습득した
			TALENT:(CUSTOMER:(LOCAL:0):12):마술기능 = 1
		ENDIF

		;[각인]取得
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):63 == 0
			IF LOCAL:61 >= 1 || LOCAL:62 >= 1 || LOCAL:63 >= 1 || LOCAL:65 >= 1 || LOCAL:66 >= 1 || LOCAL:67 >= 1 || LOCAL:68 >= 1 || LOCAL:69 >= 1 || LOCAL:70 >= 1 || LOCAL:71 >= 1 || LOCAL:72 >= 1
				PRINTFORMDL %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%によって肉体を改造された
				PRINTFORMD %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は
				PRINTFORM [각인]
				PRINTFORMDW を刻まれた
				TALENT:(CUSTOMER:(LOCAL:0):12):각인 = 1
			ENDIF
		ENDIF
		RESETCOLOR

		;孕ませ好きの客はＶ경험+5、Ｖ경험分질사경험追加、中田氏カウント追加
		IF CUSTOMER:(LOCAL:0):0 == 3 || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0 ) || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4 ) || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6 ) || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7 ) || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10 ) || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15 )
			SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
				LOCAL:4 += 5
			LOCAL:4 += 5
			LOCAL:8 += LOCAL:4
			SIF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				CFLAG:(CUSTOMER:(LOCAL:0):12):105 += LOCAL:8
		ENDIF

		;初拡張経験
		IF EXP:(CUSTOMER:(LOCAL:0):12):52 == 0 && EXP:(CUSTOMER:(LOCAL:0):12):53 == 0
			IF LOCAL:28 >= 1 && TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 0
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて질を拡張された…
				PRINTFORMDW 初拡張経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ELSEIF LOCAL:29 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて애널を拡張された…
				PRINTFORMDW 初拡張経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初公開オナニー経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):3 == 0
			IF CUSTOMER:(LOCAL:0):35 == 1  && LOCAL:9 >= 1 && LOCAL:20 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて公開オナニーをさせられた…
				PRINTFORMDW 初公開オナニー：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):3 = 1
			ENDIF
		ENDIF

		;初浣腸経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):4 == 0
			IF CUSTOMER:(LOCAL:0):40 == 3 && LOCAL:12 >= 1 && CUSTOMER:(LOCAL:0):36 >= 12 && CUSTOMER:(LOCAL:0):36 <= 17
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて浣腸された…
				PRINTFORMDW 初浣腸経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):4 = 1
			ENDIF
		ENDIF

		;初野外방뇨경험
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):5 == 0
			IF CUSTOMER:(LOCAL:0):35 == 1 && CUSTOMER:(LOCAL:0):40 == 3 && LOCAL:23 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて野外で방뇨させられた…
				PRINTFORMDW 初野外방뇨：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):5 = 1
			ENDIF
		ENDIF

		;初분유경험
		IF EXP:(CUSTOMER:(LOCAL:0):12):54 == 0
			IF LOCAL:31 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて母乳を噴射させられた…
				PRINTFORMDW 初분유경험：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初尿道経験
		IF EXP:(CUSTOMER:(LOCAL:0):12):16 == 0
			IF LOCAL:14 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて尿道を開発された…
				PRINTFORMDW 初尿道開発経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初요도확장경험
		IF EXP:(CUSTOMER:(LOCAL:0):12):59 == 0
			IF LOCAL:30 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて尿道を拡張された…
				PRINTFORMDW 初요도확장경험：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初촉수경험
		IF EXP:(CUSTOMER:(LOCAL:0):12):55 == 0
			IF LOCAL:33 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて촉수プレイをさせられた…
				PRINTFORMDW 初촉수경험：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初피윤간경험
		IF EXP:(CUSTOMER:(LOCAL:0):12):42 == 0
			IF LOCAL:34 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて輪姦された…
				PRINTFORMDW 初피윤간경험：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF

		;初수간경험
		IF EXP:(CUSTOMER:(LOCAL:0):12):43 == 0
			IF LOCAL:35 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて獣姦させられた…
				PRINTFORMDW 初수간경험：%EXPNAME:50%＋2
				LOCAL:26 += 2
			ENDIF
		ENDIF

		;初飲尿経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):61 == 0
			IF LOCAL:37 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて飲尿させられた…
				PRINTFORMDW 初飲尿経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):61 = 1
			ENDIF
		ENDIF

		;初野外全裸経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):60 == 0
			IF LOCAL:36 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に始めて野外で全裸にさせられた…
				PRINTFORMDW 初野外全裸経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):60 = 1
			ENDIF
		ENDIF

		;할례経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):62 == 0
			IF LOCAL:38 >= 1
				PRINTFORMDW 할례経験：%EXPNAME:50%＋1
				LOCAL:26 += 1
				CFLAG:(CUSTOMER:(LOCAL:0):12):62 = 1
			ENDIF
		ENDIF

		;改造経験
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):63 == 0
			IF LOCAL:39 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に初めて각인を刻み込まれた
				PRINTFORMDW 改造経験：%EXPNAME:50%＋{LOCAL:39}
				LOCAL:26 += LOCAL:39
				CFLAG:(CUSTOMER:(LOCAL:0):12):63 += LOCAL:39
			ENDIF
		ELSEIF LOCAL:39 >= 1
			PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%に新たな각인を刻み込まれた
			PRINTFORMDW 改造経験：%EXPNAME:50%＋{LOCAL:39}
			LOCAL:26 += LOCAL:39
			CFLAG:(CUSTOMER:(LOCAL:0):12):63 += LOCAL:39
		ENDIF

		;初売春
		IF EXP:(CUSTOMER:(LOCAL:0):12):57 == 0
			IF LOCAL:50 >= 1
				PRINTFORML %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は%CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%を相손に始めての売春をした…
				PRINTFORMDW 初売春：%EXPNAME:50%＋1
				LOCAL:26 += 1
			ENDIF
		ENDIF
		RESETCOLOR

		;남자はＶ경험をすべてＡ경험に変更、Ｖ개발경험はリセット
		IF TALENT:(CUSTOMER:(LOCAL:0):12):남자 == 1
			LOCAL:5 += LOCAL:4
			LOCAL:4 = 0
			LOCAL:8 = 0
			LOCAL:11 = 0
		ENDIF

		PRINTL

		;経験の追加と表示

		IF LOCAL:4 >= 1
			PRINTFORML %EXPNAME:0%+{LOCAL:4}
			EXP:(CUSTOMER:(LOCAL:0):12):0 += LOCAL:4
		ENDIF
		IF LOCAL:5 >= 1
			PRINTFORML %EXPNAME:1%+{LOCAL:5}
			EXP:(CUSTOMER:(LOCAL:0):12):1 += LOCAL:5
		ENDIF
		IF LOCAL:6 >= 1
			PRINTFORML %EXPNAME:2%+{LOCAL:6}
			EXP:(CUSTOMER:(LOCAL:0):12):2 += LOCAL:6
		ENDIF
		IF LOCAL:7 >= 1
			PRINTFORML %EXPNAME:4%+{LOCAL:7}
			EXP:(CUSTOMER:(LOCAL:0):12):4 += LOCAL:7
		ENDIF
		IF LOCAL:8 >= 1
			PRINTFORML %EXPNAME:5%+{LOCAL:8}
			EXP:(CUSTOMER:(LOCAL:0):12):5 += LOCAL:8
		ENDIF
		IF LOCAL:9 >= 1
			PRINTFORML %EXPNAME:10%+{LOCAL:9}
			EXP:(CUSTOMER:(LOCAL:0):12):10 += LOCAL:9
		ENDIF
		IF LOCAL:10 >= 1
			PRINTFORML %EXPNAME:12%+{LOCAL:10}
			EXP:(CUSTOMER:(LOCAL:0):12):12 += LOCAL:10
		ENDIF
		IF LOCAL:11 >= 1
			PRINTFORML %EXPNAME:13%+{LOCAL:11}
			EXP:(CUSTOMER:(LOCAL:0):12):13 += LOCAL:11
		ENDIF
		IF LOCAL:12 >= 1
			PRINTFORML %EXPNAME:14%+{LOCAL:12}
			EXP:(CUSTOMER:(LOCAL:0):12):14 += LOCAL:12
		ENDIF
		IF LOCAL:13 >= 1
			PRINTFORML %EXPNAME:15%+{LOCAL:13}
			EXP:(CUSTOMER:(LOCAL:0):12):15 += LOCAL:13
		ENDIF
		IF LOCAL:14 >= 1
			PRINTFORML %EXPNAME:16%+{LOCAL:14}
			EXP:(CUSTOMER:(LOCAL:0):12):16 += LOCAL:14
		ENDIF
		IF LOCAL:15 >= 1
			PRINTFORML %EXPNAME:17%+{LOCAL:15}
			EXP:(CUSTOMER:(LOCAL:0):12):17 += LOCAL:15
		ENDIF
		IF LOCAL:16 >= 1
			PRINTFORML %EXPNAME:20%+{LOCAL:16}
			EXP:(CUSTOMER:(LOCAL:0):12):20 += LOCAL:16
		ENDIF
		IF LOCAL:17 >= 1
			PRINTFORML %EXPNAME:21%+{LOCAL:17}
			EXP:(CUSTOMER:(LOCAL:0):12):21 += LOCAL:17
		ENDIF
		IF LOCAL:18 >= 1
			PRINTFORML %EXPNAME:30%+{LOCAL:18}
			EXP:(CUSTOMER:(LOCAL:0):12):30 += LOCAL:18
		ENDIF
		IF LOCAL:19 >= 1
			PRINTFORML %EXPNAME:32%+{LOCAL:19}
			EXP:(CUSTOMER:(LOCAL:0):12):32 += LOCAL:19
		ENDIF
		IF LOCAL:20 >= 1
			PRINTFORML %EXPNAME:33%+{LOCAL:20}
			EXP:(CUSTOMER:(LOCAL:0):33):12 += LOCAL:20
		ENDIF
		IF LOCAL:21 >= 1
			PRINTFORML %EXPNAME:22%+{LOCAL:21}
			EXP:(CUSTOMER:(LOCAL:0):12):22 += LOCAL:21
		ENDIF
		IF LOCAL:22 >= 1
			PRINTFORML %EXPNAME:24%+{LOCAL:22}
			EXP:(CUSTOMER:(LOCAL:0):12):24 += LOCAL:22
		ENDIF
		IF LOCAL:23 >= 1
			PRINTFORML %EXPNAME:31%+{LOCAL:23}
			EXP:(CUSTOMER:(LOCAL:0):12):31 += LOCAL:23
		ENDIF
		IF LOCAL:24 >= 1
			PRINTFORML %EXPNAME:40%+{LOCAL:24}
			EXP:(CUSTOMER:(LOCAL:0):12):40 += LOCAL:24
		ENDIF
		IF LOCAL:25 >= 1
			PRINTFORML %EXPNAME:41%+{LOCAL:25}
			EXP:(CUSTOMER:(LOCAL:0):12):41 += LOCAL:25
		ENDIF
		IF LOCAL:26 >= 1
			PRINTFORML %EXPNAME:50%+{LOCAL:26}
			EXP:(CUSTOMER:(LOCAL:0):12):50 += LOCAL:26
		ENDIF
		IF LOCAL:27 >= 1
			PRINTFORML %EXPNAME:51%+{LOCAL:27}
			EXP:(CUSTOMER:(LOCAL:0):12):51 += LOCAL:27
		ENDIF
		IF LOCAL:28 >= 1
			PRINTFORML %EXPNAME:52%+{LOCAL:28}
			EXP:(CUSTOMER:(LOCAL:0):12):52 += LOCAL:28
		ENDIF
		IF LOCAL:29 >= 1
			PRINTFORML %EXPNAME:53%+{LOCAL:29}
			EXP:(CUSTOMER:(LOCAL:0):12):53 += LOCAL:29
		ENDIF
		IF LOCAL:30 >= 1
			PRINTFORML %EXPNAME:59%+{LOCAL:30}
			EXP:(CUSTOMER:(LOCAL:0):12):59 += LOCAL:30
		ENDIF
		IF LOCAL:31 >= 1
			PRINTFORML %EXPNAME:54%+{LOCAL:31}
			EXP:(CUSTOMER:(LOCAL:0):12):54 += LOCAL:31
		ENDIF
		IF LOCAL:32 >= 1
			PRINTFORML %EXPNAME:42%+{LOCAL:32}
			EXP:(CUSTOMER:(LOCAL:0):12):42 += LOCAL:32
		ENDIF
		IF LOCAL:33 >= 1
			PRINTFORML %EXPNAME:55%+{LOCAL:33}
			EXP:(CUSTOMER:(LOCAL:0):12):55 += LOCAL:33
		ENDIF
		IF LOCAL:34 >= 1
			PRINTFORML %EXPNAME:42%+{LOCAL:34}
			EXP:(CUSTOMER:(LOCAL:0):12):42 += LOCAL:34
		ENDIF
		IF LOCAL:35 >= 1
			PRINTFORML %EXPNAME:43%+{LOCAL:35}
			EXP:(CUSTOMER:(LOCAL:0):12):43 += LOCAL:35
		ENDIF
		IF LOCAL:50 >= 1
			PRINTFORML %EXPNAME:57%+{LOCAL:50}
			EXP:(CUSTOMER:(LOCAL:0):12):57 += LOCAL:50
		ENDIF

		PRINTL
		;ストレスの処理
		LOCAL:3 = GET_PROSTITUTION_STRESS(LOCAL:0 ,(CUSTOMER:(LOCAL:0):12))
		;불쾌な客
		IF CUSTOMER:(LOCAL:0):0 == 2 ||  ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4 )
			PRINTFORML 불쾌な客:×200％
			LOCAL:3 *= 2
		ENDIF
		;고통な客
		IF CUSTOMER:(LOCAL:0):0 == 5 && CUSTOMER:(LOCAL:0):65 == NO:(CUSTOMER:(LOCAL:0):12)
			PRINTFORML 고통な客:×200％
			LOCAL:3 *= 2
		ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
			PRINTFORML 고통な客:×200％
			LOCAL:3 *= 2
		ENDIF
		;ガキども
		SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
			LOCAL:3 -= 12

		CFLAG:(CUSTOMER:(LOCAL:0):12):10 = MAX(CFLAG:(CUSTOMER:(LOCAL:0):12):10 + LOCAL:3,0)
		SIF LOCAL:3 >= 1
			PRINTFORML ストレス+{LOCAL:3} (現在値 {CFLAG:(CUSTOMER:(LOCAL:0):12):10})
		SIF LOCAL:3 <= -1
			PRINTFORML ストレス{LOCAL:3} (現在値 {CFLAG:(CUSTOMER:(LOCAL:0):12):10})

		;스트레스치100以上で붕괴を得る
		IF CFLAG:(CUSTOMER:(LOCAL:0):12):10 >= 100 && TALENT:(CUSTOMER:(LOCAL:0):12):붕괴 == 0
		;売春で【붕괴】を得た場合のイベント
			PRINTFORMW %CALLNAME:(CUSTOMER:(LOCAL:0):12)%의 모습이 이상하다
			IF CFLAG:(CUSTOMER:(LOCAL:0):12):51 >= 1
				PRINTFORMW 無理なプレイを強要されることへの拒否感から、정신에 이상이 생겨버린 것 같다
			ELSE
				PRINTFORMW 身体を売ることへの拒否感から、정신에 이상이 생겨버린 것 같다
			ENDIF
			PRINTFORMW %NAME:(CUSTOMER:(LOCAL:0):12)%は【붕괴】해 버렸다
			TALENT:(CUSTOMER:(LOCAL:0):12):붕괴 = 1
		ENDIF

		LOCAL:4 = 0
		;値切る客のメッセージを表示
		IF CUSTOMER:(LOCAL:0):0 == 7 || ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4 )
			IF CUSTOMER:(LOCAL:0):0 == 6
				SETCOLOR 0xFFD700
			ELSEIF CUSTOMER:(LOCAL:0):2 == 0
				SETCOLOR 0x00FFFF
			ELSEIF CUSTOMER:(LOCAL:0):2 == 1
				SETCOLOR 0xFF69B4
			ELSEIF CUSTOMER:(LOCAL:0):2 == 2
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 3
				SETCOLOR 0xFF8C00
			ELSEIF CUSTOMER:(LOCAL:0):2 == 4
				SETCOLOR 0xFF8C00
			ENDIF
			PRINTL
			PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%はいざ金の支払いとなると急にソワソワし始めた
			PRINTFORML 曰く、今月は金が無いからツケにしてくれないかとのこと
			PRINTFORMW そんな戯言はもちろん認めるわけにはいかないのだが…？
			PRINTL

			IF GET_CUSTOMER_NEGOTIATE_RESULT(LOCAL:0,CUSTOMER:(LOCAL:0):12) > 0
				PRINTFORMW %CALLNAME:(CUSTOMER:(LOCAL:0):12)%は客の要求を突っぱねて約束通りの金を払わせた
			ELSE
				PRINTFORMW しかし%CALLNAME:(CUSTOMER:(LOCAL:0):12)%は客に言いくるめられ、かなりの額を値切られてしまった……
				LOCAL:4 = 1
			ENDIF
			RESETCOLOR
		ENDIF
		PRINTL
		;客の金の支払い処理
		IF LOCAL:4 == 1 && (CUSTOMER:(LOCAL:0):10) >= 1 && CUSTOMER:(LOCAL:0):0 == 7 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORMW {CUSTOMER:(LOCAL:0):10/2}엔을 얻었다
			MONEY += (CUSTOMER:(LOCAL:0):10/2)
			CFLAG:(CUSTOMER:(LOCAL:0):12):181 += (CUSTOMER:(LOCAL:0):10/2)
			;支払い総額に支払った金額を追加
			CUSTOMER:(LOCAL:0):19 += (CUSTOMER:(LOCAL:0):10/2)
		ELSEIF CUSTOMER:(LOCAL:0):10 >= 1 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORMW {CUSTOMER:(LOCAL:0):10}엔을 얻었다
			MONEY += (CUSTOMER:(LOCAL:0):10)
			CFLAG:(CUSTOMER:(LOCAL:0):12):181 += (CUSTOMER:(LOCAL:0):10)
			;支払い総額に支払った金額を追加
			CUSTOMER:(LOCAL:0):19 += CUSTOMER:(LOCAL:0):10
		ENDIF

		IF TALENT:(CUSTOMER:(LOCAL:0):12):처녀 == 1
			CALL PROSTITUTION_ALBUM_LOSTVIRGIN(CUSTOMER:(LOCAL:0):12,(LOCAL:0))
		ELSE
			CALL PROSTITUTION_ALBUM(CUSTOMER:(LOCAL:0):12,(LOCAL:0))
		ENDIF

		;처녀の時は満足度を3倍にする
		IF TALENT:(CUSTOMER:(LOCAL:0):12):처녀 == 1
			TALENT:(CUSTOMER:(LOCAL:0):12):처녀 = 0
			TIMES CUSTOMER:(LOCAL:0):41 , 3.00
		ENDIF

		;재생처녀の時は満足度を1.2倍にする
		IF TALENT:(CUSTOMER:(LOCAL:0):12):재생처녀 == 1
			TALENT:(CUSTOMER:(LOCAL:0):12):재생처녀 = 0
			TIMES CUSTOMER:(LOCAL:0):41 , 1.20
		ENDIF

		;客の満足度＝プレイに付随する満足度*2＋好みの値-裕福度*5
		;マイナスになった場合は追加で-100のペナルティ

		CUSTOMER:(LOCAL:0):41 = (CUSTOMER:(LOCAL:0):41*2) + CUSTOMER:(LOCAL:0):13 - (CUSTOMER:(LOCAL:0):4*5)
		;PRINTFORMW 満足度 {CUSTOMER:(LOCAL:0):41}
		SIF CUSTOMER:(LOCAL:0):41 > 300
			CUSTOMER:(LOCAL:0):41 += 100
		SIF CUSTOMER:(LOCAL:0):41 > 100
			CUSTOMER:(LOCAL:0):41 += 100
		SIF CUSTOMER:(LOCAL:0):41 < 0
			CUSTOMER:(LOCAL:0):41 -= 100

		IF CUSTOMER:(LOCAL:0):41 >= 400 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイに大変満足したようだ
		ELSEIF CUSTOMER:(LOCAL:0):41 >= 200 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイに満足したようだ
		ELSEIF CUSTOMER:(LOCAL:0):41 <= -200 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイが大変不満だったようだ
		ELSEIF CUSTOMER:(LOCAL:0):41 <= -100 && CUSTOMER:(LOCAL:0):64 == 0
			PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイに不満があったようだ
		ELSEIF CUSTOMER:(LOCAL:0):41 <= 100 && CUSTOMER:(LOCAL:0):64 == 0
		;	PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイをイマイチだったと感じているようだ
		ELSEIF CUSTOMER:(LOCAL:0):64 == 0
		;	PRINTFORML 客は%CALLNAME:(CUSTOMER:(LOCAL:0):12)%とのプレイは普通だったと感じているようだ
		ENDIF
		PRINTL

		;監禁型は一日の満足度を監禁日数で割る
		SIF CUSTOMER:(LOCAL:0):64 >= 1
			CUSTOMER:(LOCAL:0):41 = CUSTOMER:(LOCAL:0):41 / CUSTOMER:(LOCAL:0):63

		IF CUSTOMER:(LOCAL:0):64 >= 1
			PRINT 監禁者による
		ELSE
			PRINT 客による
		ENDIF

;		SIF CUSTOMER:(LOCAL:0):41 >= 0
;			PRINTFORML 満足度　+{CUSTOMER:(LOCAL:0):41}
;		SIF CUSTOMER:(LOCAL:0):41 <= -1
;			PRINTFORML 満足度　{CUSTOMER:(LOCAL:0):41}
		CUSTOMER:(LOCAL:0):5 += CUSTOMER:(LOCAL:0):41
		LOCAL:2 = CUSTOMER:(LOCAL:0):41
		LOCAL:2 = LOCAL:2/4
		SIF LOCAL:2 >= 0
			PRINTFORML 店舗の인기　+{LOCAL:2}
		SIF LOCAL:2 <= -1
			PRINTFORML 店舗の인기　{LOCAL:2}
		FLAG:41 += LOCAL:2
		DRAWLINE
		PRINTW
	ENDIF
NEXT
PRINTW

;客の去る処理
FOR (LOCAL:0),1,(LOCAL:1)
	IF CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):12 <= 0 && LOCAL:99 >= 1
		;相손がいなかった客は店の評判と客の満足度が下がる
		;相손が得られなかった客は評判を10低下させる
		FLAG:41 -= 10
		;悪評を流す客は追加で50下げる
		IF CUSTOMER:(LOCAL:0):0 == 9 ||  ( CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4 )
			FLAG:41 -= 100
			SETCOLOR 0XDDA0DD
			PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は店の対応について不満を喚き散らしている
			PRINTW 店の評判が大きく下がった…… (店舗の인기-100)
			RESETCOLOR
		ELSE
;			PRINTL 客は相손を得られなかったことが不満のようだ
;			PRINTL 店の評判が下がった…
		ENDIF
		PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は去っていった……

		;満足度が裕福な客ほど下がる
		;裕福度*5低下
		CUSTOMER:(LOCAL:0):5 -= (CUSTOMER:(LOCAL:0):4*5)
		;来店回数+1
		CUSTOMER:(LOCAL:0):11 += 1
		;相손がいなかったことを記録（CUSTOMER:70に-1）
		CALL CUSTOMER_RAITENKIROKU ,(LOCAL:0)
		;指名のリセット
		CUSTOMER:(LOCAL:0):14 = 0
		;客の相손のリセット
		CUSTOMER:(LOCAL:0):12 = 0
		;好みのリセット
		CUSTOMER:(LOCAL:0):13 = 0
		;掲示金額のリセット
		CUSTOMER:(LOCAL:0):10 = 0
		;満足度のリセット
		CUSTOMER:(LOCAL:0):41 = 0
	ELSEIF CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):64 >= 1
		SETCOLOR 0XDDA0DD
		PRINTFORMW %CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):64)%を監禁している……
		RESETCOLOR
		;来店回数+1
		CUSTOMER:(LOCAL:0):11 += 1
		;相손を記録（CUSTOMER:70に-1）
		CALL CUSTOMER_RAITENKIROKU ,(LOCAL:0)
		;指名のリセット
		CUSTOMER:(LOCAL:0):14 = 0
		;客の창녀への의존도処理
		CALL CUSTOMER_OKINIIRI , (LOCAL:0)
		;あてがったキャラの状態をリセット
		CFLAG:(CUSTOMER:(LOCAL:0):12):13 = 0
		;客の相손のリセット
		CUSTOMER:(LOCAL:0):12 = 0
		;好みのリセット
		CUSTOMER:(LOCAL:0):13 = 0
		;掲示金額のリセット
		CUSTOMER:(LOCAL:0):10 = 0
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):64 >= 1
		SETCOLOR 0XDDA0DD
		PRINTFORMW %CUSTOMERNAME1:(LOCAL:0)%は%CALLNAME:(CUSTOMER:(LOCAL:0):64)%を監禁している……
		RESETCOLOR
	ELSEIF CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):12 >= 1 && LOCAL:99 >= 1
		PRINTFORML %CUSTOMERNAME2:(LOCAL:0)%%CUSTOMERNAME1:(LOCAL:0)%は去っていった……
		;来店回数+1
		CUSTOMER:(LOCAL:0):11 += 1
		;相손を記録（CUSTOMER:70に-1）
		CALL CUSTOMER_RAITENKIROKU ,(LOCAL:0)
		;指名のリセット
		CUSTOMER:(LOCAL:0):14 = 0
		;客の창녀への의존도処理
		CALL CUSTOMER_OKINIIRI , (LOCAL:0)
		;あてがったキャラの状態をリセット
		CFLAG:(CUSTOMER:(LOCAL:0):12):13 = 0
		;客の相손のリセット
		CUSTOMER:(LOCAL:0):12 = 0
		;好みのリセット
		CUSTOMER:(LOCAL:0):13 = 0
		;掲示金額のリセット
		CUSTOMER:(LOCAL:0):10 = 0
		;満足度のリセット
		CUSTOMER:(LOCAL:0):41 = 0
	ENDIF
NEXT
LOCAL:99 = 0
PRINTW

;特別な客の処理
;①相손がいない
;②相손が違った
;③相손が対象だった

@RINKAN_EJECT ,ARG
;誰でもいいから連れ去る
;①輪姦サークルはクレームをつけ、失敗したら助손を連れ去る
;②輪姦サークルはクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③輪姦サークルは対象を連れ去る
;ARG = 輪姦サークルの客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、輪姦サークルは1
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) == 1
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
			CASE 0
				PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-50)
				FLAG:41 -= 50
			CASEELSE
				PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、店の外へ連れ去られてしまった……
				CUSTOMER:(ARG):12 = ASSI
				CUSTOMER:(ARG):64 = ASSI
				CFLAG:ASSI:51 = CUSTOMER:(ARG):63
				CFLAG:ASSI:52 = ARG
				ASSI = -1
		ENDSELECT
	ELSE
		PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
		FLAG:41 -= 100
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@GAKI_EJECT ,ARG
;ガキどもに対応する処理
;追い出そうとするととにかく評判を悪化させる
;①ガキどもは簡単につまみ出せるがつまみ出すと評判が大きく悪化する
;②ガキどもはクレームをつけ、評判を大きく悪化させる
;③ガキどもは対象のストレスを回復させる
;ARG = ガキどもの客番号
SIF CUSTOMER:(ARG):12 >= 1
	LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことに文句を言っている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに文句を言っている
ENDIF
RESETCOLOR

IF LOCAL:3 >= 50 && CUSTOMER:(ARG):12 >= 1
	PRINTFORMW しかし%CALLNAME:(CUSTOMER:(ARG):12)%が相손ならばまんざらでもないのか、たいしたことはなかった…
ELSEIF LOCAL:3 <= 0 && CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は散々に悪態をつきながら、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-300)
	FLAG:41 -= 300
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1 && ASSI >= 1
	SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
		CASE 1
			PRINTFORMW %조수호칭은% ガキどもをおだてて事なきを得た…
		CASE 0
			PRINTFORMW %조수호칭은% なんとかなだめたが、ガキどもが騒いだせいで店の評判が下がってしまった(店舗の인기-150)
			FLAG:41 -= 150
		CASEELSE
			PRINTFORMW %조수호칭은% ガキどもに言い負かされてしまった…(店舗の인기-300)
			FLAG:41 -= 300
	ENDSELECT
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1
	CALL IS_ASSI_INTERCEPT()
	SETCOLOR 0xFFD700
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% ガキどもを店の外へつまみだしたが、うるさく騒がれたせいで店の評判が下がった…(店舗の인기-100)
				FLAG:41 -= 100
			CASE 0
				PRINTFORMW %조수호칭은% ガキどもを店の外へつまみだしたが、うるさく騒がれたせいで店の評判が下がった…(店舗の인기-200)
				FLAG:41 -= 200
			CASEELSE
				PRINTFORMW %조수호칭은% ガキどもに言い負かされてしまった…(店舗の인기-300)
				FLAG:41 -= 300
		ENDSELECT
	ELSE
	PRINTFORMW ガキどもが騒いだせいで、店の評判が下がった…(店舗の인기-300)
			FLAG:41 -= 300
	ENDIF
	RESETCOLOR
ELSE
	SETCOLOR 0xFFD700
	PRINTFORMW ガキどもが騒いだせいで、店の評判が下がった…(店舗の인기-300)
	RESETCOLOR
	FLAG:41 -= 300
ENDIF

@SEREVU_EJECT ,ARG
;高級セレブに対応する処理
;クレームをつけて誰かを連れ去る
;①高級セレブはクレームをつけ、失敗したら対象を連れ去る
;②高級セレブはクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③高級セレブは対象を連れ去る
;ARG = 高級セレブの客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、高級セレブは4
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
			CASE 0
				PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-50)
				FLAG:41 -= 50
			CASEELSE
				IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
					PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
					CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
					CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
					CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
					CFLAG:(CUSTOMER:(ARG):14):52 = ARG
				ELSE
					PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
					FLAG:41 -= 100
				ENDIF
		ENDSELECT
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
			FLAG:41 -= 100
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@REZU_EJECT ,ARG
;Ｃ・サイコレズに対応する処理
;クレームをつけて対象を連れ去る
;①Ｃ・サイコレズはクレームをつけ、助손が対象だった場合連れ去り、失敗したら対象を連れ去る
;②Ｃ・サイコレズはクレームをつけ、助손が対象だった場合連れ去り、失敗したら対象を連れ去る
;③Ｃ・サイコレズは対象を連れ去る

;ARG = Ｃ・サイコレズの客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、Ｃ・サイコレズは4
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

LOCAL:3 = CUSTOMER:(ARG):65
FOR LOCAL:1, 0, CHARANUM
	SIF NO:(LOCAL:1) == LOCAL:3
		LOCAL:4 = LOCAL:1
NEXT

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF ASSI == LOCAL:4
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%に抱きつかれ、そのまま店の外へ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ELSEIF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW PRINTFORMW %CALLNAME:ASSI%が説得すると、%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して何処かへ立ち去った……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW PRINTFORMW %CALLNAME:ASSI%がなんとか説得すると、%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して何処かへ立ち去った……(店舗の인기-100)
			FLAG:41 -= 100
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW ひとしきりクレームをつけた%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して何処かへ立ち去った……(店舗の인기-100)
			FLAG:41 -= 100
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF ASSI == LOCAL:4
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%に抱きつかれ、そのまま店の外へ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ELSEIF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-100)
			FLAG:41 -= 100
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%は%CUSTOMERNAME1:(ARG)%に抱き着かれ、そのままどこかへ連れ去られてしまった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
			FLAG:41 -= 100
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
	PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%は%CUSTOMERNAME1:(ARG)%に抱き着かれ、そのままどこかへ連れ去られてしまった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@YAMADA_EJECT ,ARG
;山田さんに対応する処理
;最低の客（불쾌、横暴、悪評、孕ませ、値切り）
;①山田さんは暴れる
;②山田さんはクレームをつけ、評判を大きく悪化させる
;③普通の売春処理へ（ただし불쾌な客）
;ARG = 山田さんの客番号
SIF CUSTOMER:(ARG):12 >= 1
	LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことに文句を言っている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに立腹して暴れている
ENDIF
RESETCOLOR

IF LOCAL:3 >= 80 && CUSTOMER:(ARG):12 >= 1
	SETCOLOR 0xFFD700
	PRINTFORMW しかし相손が%CALLNAME:(CUSTOMER:(ARG):12)%ならばまんざらでもないのか、たいしたことはなかった…
	RESETCOLOR
ELSEIF LOCAL:3 <= 30 && CUSTOMER:(ARG):12 >= 1
	SETCOLOR 0xFFD700
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は散々に悪態をつきながら、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-300)
	FLAG:41 -= 300
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
	RESETCOLOR
ELSEIF CUSTOMER:(ARG):12 >= 1 && ASSI >= 1
	SETCOLOR 0xFFD700
	IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
		PRINTFORMW %조수호칭은% 山田さんをなんとかなだめることに成功した
	ELSE
		PRINTFORMW %조수호칭은% 山田さんにボロクソに言い負かされてしまった…(店舗の인기-300)
		FLAG:41 -= 300
	ENDIF
	RESETCOLOR
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	SETCOLOR 0xFFD700
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_BATTLE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 暴れる山田さんを強制的に店の外へほうり出した…
			CASE 0
				PRINTFORMW %조수호칭은% 山田さんを強制的に退場させたが、店の備品が破壊されてしまった…(借金+15000)
				MONEY:1 += 15000
			CASEELSE
				PRINTFORMW %CALLNAME:ASSI%では山田さんにに対抗できず、店の備品が破壊されてしまった……(借金+30000)
				MONEY:1 += 30000
		ENDSELECT
	ELSE
		PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
		MONEY:1 += 30000
	ENDIF
	RESETCOLOR
ELSEIF CUSTOMER:(ARG):12 >= 1
	SETCOLOR 0xFFD700
	PRINTFORMW 山田さんは店のことをボロクソに批判している……(店舗の인기-300)
	FLAG:41 -= 300
	RESETCOLOR
ELSE
	SETCOLOR 0xFFD700
	PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
	MONEY:1 += 30000
	RESETCOLOR
ENDIF

@NAZO_EJECT ,ARG
;謎の集団に対応する処理
;なにがあっても対象を連れ去る
;①謎の集団は判定なしに対象を連れ去る
;②謎の集団は判定なしに対象を連れ去る（いなかった場合のみあてがったキャラを連れ去る）
;③謎の集団は対象を連れ去る
;ARG = 謎の集団の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、謎の集団は4
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は不思議なことに相손が%NAME:(CUSTOMER:(ARG):14)%でないことをまったく気にする様子が無い
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないと説明しているにもかかわらず、強引に店内に侵入してきた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CALLNAME:ASSI%が制止したにもかかわらず、%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去った……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CALLNAME:ASSI%が制止したにもかかわらず、%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を店の外へと連れ去った……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CALLNAME:ASSI%が制止したにもかかわらず、%CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去った……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
	CUSTOMER:(ARG):14 = 0
ENDIF
RESETCOLOR

@CULT_EJECT ,ARG
;怪しげな宗教団体に対応する処理
;誰でもいいから連れ去る
;①怪しげな宗教団体は対象を連れ去り、制止に失敗したら助손を連れ去る
;②怪しげな宗教団体は対象を連れ去り、制止に失敗したら助손を連れ去る（いなかった場合のみあてがったキャラを連れ去る）
;③怪しげな宗教団体は対象を連れ去る
;ARG = 怪しげな宗教団体の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、怪しげな宗教団体は8
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は不思議なことに相손が%NAME:(CUSTOMER:(ARG):14)%でないことをまったく気にする様子が無い
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないと説明しているにもかかわらず、強引に店内に侵入してきた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%を連れ去ろうとする%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%がうまく制止し撃退した……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 制止しようとした%조수호칭은% 逆に%CUSTOMERNAME1:(ARG)%に捕縛され、連中に何処かへ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%を連れ去ろうとする%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%がうまく制止し撃退した……
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 制止しようとした%조수호칭은% 逆に%CUSTOMERNAME1:(ARG)%に捕縛され、連中に何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
	CUSTOMER:(ARG):14 = 0
ENDIF
RESETCOLOR

@BOUSOUZAOKU_EJECT ,ARG
;暴走族の集団に対応する処理
;暴れて誰かを連れ去る
;①暴走族の集団は暴れ、制止に失敗したら助손を連れ去る（制止に成功したら退場）制止しなかったら対象を連れ去る
;②暴走族の集団は暴れ、制止に失敗したら助손を連れ去る（制止に成功したら退場）
;③暴走族の集団は対象を連れ去る
;ARG = 暴走族の集団の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、暴走族の集団は1
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことに腹を立てて暴れている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに腹を立て店内に押し入ってきた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が力づくで撃退し退散させた……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%に果敢にも立ち向かった%CALLNAME:ASSI%だったが、コテンパにやられてそのまま何処かへ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):12)%を強引に何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が力づくで撃退し退散させた……
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%に果敢にも立ち向かった%CALLNAME:ASSI%だったが、コテンパにやられてそのまま何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
		MONEY:1 += 30000
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):12)%を強引に何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSE
	PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
	MONEY:1 += 30000
ENDIF
RESETCOLOR

@REDEXSU_EJECT ,ARG
;レディースの集団に対応する処理
;暴れて対象を連れ去る
;①レディースの集団は暴れ、制止に失敗したら助손を連れ去る（制止に成功したら退場）制止しなかったら対象を連れ去る（いなかったらあてがったキャラをＳＭルームに連れ込む）
;②レディースの集団は暴れ、制止に失敗したら助손を連れ去る（制止に成功したら退場）制止しなかったら対象を連れ去る
;③レディースの集団は対象をＳＭルームに連れ込む
;ARG = レディースの集団の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、レディースの集団は1
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことに腹を立てて暴れている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに腹を立て店内に押し入ってきた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が力づくで撃退し退散させた……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%に果敢にも立ち向かった%CALLNAME:ASSI%だったが、コテンパにやられてそのまま何処かへ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、嫌がる%CALLNAME:(CUSTOMER:(ARG):14)%を強引に店の外へと連行していった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
			MONEY:1 += 30000
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が力づくで撃退し退散させた……
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 暴れる%CUSTOMERNAME1:(ARG)%に果敢にも立ち向かった%CALLNAME:ASSI%だったが、コテンパにやられてそのまま何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):14)%を強引に店の外へと連行していった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
			MONEY:1 += 30000
		ENDIF
	ENDIF
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):14)%を強引に店の外へと連行していった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
	MONEY:1 += 30000
ELSE
	PRINTFORMW %CUSTOMERNAME1:(ARG)%が暴れたせいで店の備品が破壊されてしまった……(借金+30000)
	MONEY:1 += 30000
ENDIF
RESETCOLOR

@MAD_EJECT ,ARG
;薬物研究者に対応させる処理
;誰でもいいから連れ去る
;①薬物研究者はクレームをつけ、失敗したら助손を連れ去る
;②薬物研究者はクレームをつけ、失敗したら助손を連れ去り、成功してもあてがったキャラを連れ去る
;③薬物研究者は対象を連れ去る
;ARG = 薬物研究者の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、薬物研究者は4
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%が突然%CALLNAME:ASSI%의 입元に薬品を散布すると、%조수호칭은% 意識を失ってしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		PRINTFORMW %CUSTOMERNAME1:(ARG)%が%CALLNAME:(CUSTOMER:(ARG):12)%に謎の薬品を嗅がせると%CALLNAME:(CUSTOMER:(ARG):12)%は一瞬で意識を失い、そのまま何処かへ連れ去られてしまった……
		CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
		CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
		CFLAG:(CUSTOMER:(ARG):12):52 = ARG
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%が突然%CALLNAME:ASSI%의 입元に薬品を散布すると、%조수호칭은% 意識を失ってしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は、薬物の影響か意識を失っている%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%が突然%CALLNAME:ASSI%의 입元に薬品を散布すると、%조수호칭은% 意識を失ってしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
		PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
		FLAG:41 -= 100
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は、薬物の影響か意識を失っている%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@SYOKUSYU_EJECT ,ARG
;촉수の怪人を退場させる処理
;誰でもいいから連れ去る
;①촉수の怪人は対象を連れ去り、制止に失敗したら助손を連れ去る
;②촉수の怪人は対象を連れ去り、制止に失敗したら助손を連れ去る（いなかった場合のみあてがったキャラを連れ去る）
;③촉수の怪人は対象を連れ去る
;ARG = 촉수の怪人の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、촉수の怪人は8
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことをまったく気にする様子が無い
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないにもかかわらず強引に店内に侵入してきた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%を連れ去ろうとする%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が攻撃し撃退した……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 制止しようとした%CALLNAME:ASSI%だったが逆に%CUSTOMERNAME1:(ARG)%に攻撃され、何処かへ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):14 = 0
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、強引にそのまま店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は嫌がる%CALLNAME:(CUSTOMER:(ARG):12)%を強引に何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW %CALLNAME:(CUSTOMER:(ARG):14)%を連れ去ろうとする%CUSTOMERNAME1:(ARG)%を%CALLNAME:ASSI%が攻撃し撃退した……
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW 制止しようとした%CALLNAME:ASSI%だったが逆に%CUSTOMERNAME1:(ARG)%に攻撃され、何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):12 = ASSI
			CUSTOMER:(ARG):64 = ASSI
			CFLAG:ASSI:51 = CUSTOMER:(ARG):63
			CFLAG:ASSI:52 = ARG
			ASSI = -1
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、強引にそのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
			CUSTOMER:(ARG):14 = 0
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、強引にそのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW %CUSTOMERNAME1:(ARG)%はいつのまにか姿を消していた……
	CUSTOMER:(ARG):14 = 0
ENDIF
RESETCOLOR

@ONIISYA_EJECT ,ARG
;鬼医者を退場させる処理
;①鬼医者はクレームをつけ、失敗したら助손を連れ去る
;②鬼医者はクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③鬼医者は対象を連れ去る
;ARG = 鬼医者の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、鬼医者は6
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
			CASE 0
				PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-50)
				FLAG:41 -= 50
			CASEELSE
				PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、店の外へ連れ去られてしまった……
				CUSTOMER:(ARG):12 = ASSI
				CUSTOMER:(ARG):64 = ASSI
				CFLAG:ASSI:51 = CUSTOMER:(ARG):63
				CFLAG:ASSI:52 = ARG
				ASSI = -1
		ENDSELECT
	ELSE
		PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
		FLAG:41 -= 100
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@DAIBANTYOU_EJECT ,ARG
;大番長を退場させる処理
;横暴な客で損害が大きく、強い
;①大番長は暴れる
;②大番長は暴れる
;③普通の売春処理へ（実は女に優しい上客）
;ARG = 大番長の客番号
SIF CUSTOMER:(ARG):12 >= 1
	LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことに立腹し暴れはじめた
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに立腹して暴れはじめた
ENDIF

IF LOCAL:3 >= 80 && CUSTOMER:(ARG):12 >= 1
	PRINTFORMW しかし相손が%CALLNAME:(CUSTOMER:(ARG):12)%ならばまんざらでもないのか、たいしたことはなかった…
ELSEIF LOCAL:3 <= 30 && CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は店を破壊しながら%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(借金+60000)
	MONEY:1 += 60000
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1 && ASSI >= 1
	IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
		PRINTFORMW %조수호칭은% 大番長を撃退することに成功した
	ELSE
		PRINTFORMW %CALLNAME:ASSI%では大番長に太刀打ちすることができず、店が大きく破壊された……(借金+60000)
		MONEY:1 += 60000
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_BATTLE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 大番長を撃退することに成功した
			CASE 0
				PRINTFORMW %조수호칭은% かろうじて大番長を撃退することに成功したが、店の備品が大量に破壊されてしまった……(借金+30000)
				MONEY:1 += 30000
			CASEELSE
				PRINTFORMW %CALLNAME:ASSI%では大番長に対処できず、店の備品が大量に破壊されてしまった……(借金+60000)
				MONEY:1 += 60000
		ENDSELECT
	ELSE
		PRINTFORMW %CALLNAME:ASSI%では大番長に太刀打ちすることができず、店が大きく破壊された……(借金+60000)
		MONEY:1 += 60000
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1
	IF LOCAL:3 >= 80
		PRINTFORMW しかし%CALLNAME:(CUSTOMER:(ARG):12)%が相손ならばまんざらでもないのか、たいしたことはなかった…
	ELSEIF LOCAL:3 <= 79
		PRINTFORMW %CUSTOMERNAME1:(ARG)%は店を破壊した後、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(借金+60000)
		MONEY:1 += 60000
		CFLAG:(CUSTOMER:(ARG):12):13 = 0
		CFLAG:(CUSTOMER:(ARG):12):14 = 0
		CUSTOMER:(ARG):12 = 0
		CUSTOMER:(ARG):14 = 0
	ENDIF
ELSE
	PRINTFORMW 大番長が怒って暴れたことで店が大きく破壊された……(借金+60000)
	MONEY:1 += 60000
ENDIF
RESETCOLOR

@SEISYOKUSYA_EJECT ,ARG
;性職者に対応させる処理
;①性職者はクレームをつけ、失敗したら対象を連れ去る
;②性職者はクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③性職者は対象を連れ去る
;ARG = 性職者の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、性職者は2
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
			CASE 0
				PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-50)
				FLAG:41 -= 50
			CASEELSE
				IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
					PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
					CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
					CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
					CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
					CFLAG:(CUSTOMER:(ARG):14):52 = ARG
				ELSE
					PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
					FLAG:41 -= 100
				ENDIF
		ENDSELECT
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
			FLAG:41 -= 100
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@GEIJYUTUKA_EJECT ,ARG
;女体芸術家に対応させる処理
;①女体芸術家はクレームをつけ、失敗したら対象を連れ去る
;②女体芸術家はクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③女体芸術家は対象を連れ去る
;ARG = 女体芸術家の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、女体芸術家は8
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14 && CUSTOMER:(ARG):14 != MASTER
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことにクレームをつけている
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
			CASE 1
				PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめて店の外へ退場させた…
			CASE 0
				PRINTFORMW %조수호칭은% 文句を言う客をなんとか店の外へ退場させたが、そのせいで店の評判が下がった…(店舗の인기-50)
				FLAG:41 -= 50
			CASEELSE
				IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
					PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
					CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
					CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
					CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
					CFLAG:(CUSTOMER:(ARG):14):52 = ARG
				ELSE
					PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
					FLAG:41 -= 100
				ENDIF
		ENDSELECT
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
			FLAG:41 -= 100
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1 && CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 客のクレームにうまく対処できなかったせいで、店の評判が下がった…(店舗の인기-100)
	FLAG:41 -= 100
ENDIF
RESETCOLOR

@YANAGAWA_EJECT ,ARG
;狩猟者に対応させる処理
;①狩猟者は暴れ、失敗したら対象を連れ去る
;②狩猟者はクレームをつけ、失敗したら対象を連れ去り、成功してもあてがったキャラを連れ去る
;③狩猟者は対象を連れ去る
;ARG = 狩猟者の客番号
;連れ去った相손の番号をCUSTOMER:64に記録
;連れ去る日数はCUSTOMER:63、狩猟者は8
;監禁される日数はCFLAG:51
;監禁されている相손はCFLAG:52

SETCOLOR 0xFFD700
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINT
ELSE
	PRINTFORML %CUSTOMERNAME1:(ARG)%は相손がいないことに立腹し暴れ始めた
ENDIF
IF ASSI >= 1 && CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 文句を言う客をうまく言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%にうまく言いくるめられ、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へ連れ去られてしまった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %조수호칭은% 文句を言う客をなんとか言いくるめたが、%CALLNAME:(CUSTOMER:(ARG):12)%は何処かへ連れ去られてしまった……(店舗の인기-100)
			FLAG:41 -= 100
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を放置して、%CALLNAME:(CUSTOMER:(ARG):14)%を店の外へと連れ去っていった……
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
			CUSTOMER:(ARG):14 = 0
		ELSE
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
			CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):12):52 = ARG
		ENDIF
	ENDIF
ELSEIF ASSI >= 1 && CUSTOMER:(ARG):14 >= 1 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	CALL IS_ASSI_INTERCEPT()
	IF RESULT == 0
		IF GET_CUSTOMER_BATTLE_RESULT(ARG) > 0
			PRINTFORMW %조수호칭은% 狩猟者を撃退することに成功した
		ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0
			PRINTFORMW %조수호칭은% %CUSTOMERNAME1:(ARG)%に敗北し、%CALLNAME:(CUSTOMER:(ARG):14)%を強引に連れ去られてしまった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %CALLNAME:ASSI%では狩猟者に太刀打ちすることができず、店が大きく破壊された……(借金+60000)
			MONEY:1 += 60000
		ENDIF
	ELSE
		IF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0
			PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
			CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
			CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
			CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
			CFLAG:(CUSTOMER:(ARG):14):52 = ARG
		ELSE
			PRINTFORMW %CALLNAME:ASSI%では狩猟者に太刀打ちすることができず、店が大きく破壊された……(借金+60000)
			MONEY:1 += 60000
		ENDIF
	ENDIF
ELSEIF CUSTOMER:(ARG):12 >= 1
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):12)%を何処かへ連れ去っていった……
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):12)
	CFLAG:(CUSTOMER:(ARG):12):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):12):52 = ARG
ELSEIF CFLAG:(CUSTOMER:(ARG):14):52 == 0 && CUSTOMER:(ARG):14 != 0 && IS_PROSTITUTABLE(CUSTOMER:ARG:14)
	PRINTFORMW %CUSTOMERNAME1:(ARG)%は%CALLNAME:(CUSTOMER:(ARG):14)%を探し出すと、そのまま店の外へ連れ去っていった……
	CUSTOMER:(ARG):12 = (CUSTOMER:(ARG):14)
	CUSTOMER:(ARG):64 = (CUSTOMER:(ARG):14)
	CFLAG:(CUSTOMER:(ARG):14):51 = CUSTOMER:(ARG):63
	CFLAG:(CUSTOMER:(ARG):14):52 = ARG
	CUSTOMER:(ARG):14 = 0
ELSE
	PRINTFORMW 狩猟者が怒って暴れたことで店が大きく破壊された……(借金+60000)
	MONEY:1 += 60000
ENDIF
RESETCOLOR

@OUBOU_EJECT ,ARG
;横暴な客の処理
SETCOLOR 0XDDA0DD
PRINTFORMW %CUSTOMERNAME2:(ARG)%%CUSTOMERNAME1:(ARG)%が暴れている
IF ASSI >= 1
	SELECTCASE GET_CUSTOMER_BATTLE_RESULT(ARG)
		CASE 1
			PRINTFORMW %조수호칭은% 暴れる客を強制的に店の外へほうり出した…
		CASE 0
			PRINTFORMW %조수호칭은% 暴れる客を退場させたが、店の備品が破壊された…（借金+5000円）
			MONEY:1 += 5000
		CASEELSE
			PRINTFORMW %CALLNAME:ASSI%では暴れる客に対処できず、店の備品が破壊された……（借金+10000円）
			MONEY:1 += 10000
	ENDSELECT
ELSE
	PRINTW 客が暴れて店の備品を破壊したことを弁償させられた……（借金+10000円）
	MONEY:1 += 10000
ENDIF
RESETCOLOR

@KUTUU_TIGAU ,ARG
SETCOLOR 0XDDA0DD
IF CUSTOMER:(ARG):12 >= 1 && CUSTOMER:(ARG):14 >= 1 && CUSTOMER:(ARG):12 != CUSTOMER:(ARG):14
	PRINTFORML %CUSTOMERNAME2:(ARG)%%CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
ENDIF
LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

;好み80以上なら問題なし、好み30以下なら絶対ダメ、それ以外は助손の判定
IF LOCAL:3 >= 80
	PRINTFORMW しかし相손が%CALLNAME:(CUSTOMER:(ARG):12)%ならばまんざらでもないのか、たいしたことはなかった…
ELSEIF LOCAL:3 <= 30
	PRINTFORMW 客は散々に悪態をつきながら、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-20)
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
	FLAG:41 -= 20
ELSEIF ASSI >= 1
	SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
		CASE 1
			PRINTFORMW %조수호칭은% 客のクレームに適切に対処し事なきを得た…
		CASE 0
			PRINTFORMW %조수호칭은% 客をなんとか説得したが、悪いイメージを与えてしまったようだ…(店舗の인기-10)
			FLAG:41 -= 10
		CASEELSE
			PRINTFORMW 客は%CALLNAME:ASSI%의 説得に納得せず、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-20)
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
			FLAG:41 -= 20
	ENDSELECT
ELSE
ENDIF
RESETCOLOR

@OUBOU_TIGAU ,ARG
SETCOLOR 0XDDA0DD
PRINTFORML %CUSTOMERNAME2:(ARG)%%CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

;好み80以上なら問題なし、好み30以下なら絶対ダメ、それ以外は助손の判定
IF LOCAL:3 >= 80
	PRINTFORMW しかし相손が%CALLNAME:(CUSTOMER:(ARG):12)%ならばまんざらでもないのか、たいしたことはなかった…
ELSEIF LOCAL:3 <= 30
	PRINTFORMW 客は店の備品を破壊しながら、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(借金+10000円)
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
	MONEY:1 += 10000
ELSEIF ASSI >= 1
	SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
		CASE 1
			PRINTFORMW %조수호칭은% 客のクレームに適切に対処し事なきを得た…
		CASE 0
			PRINTFORMW %조수호칭은% 客をなんとか説得したが、悪いイメージを与えてしまったようだ…(店舗の인기-10)
			FLAG:41 -= 10
		CASEELSE
			PRINTFORMW 客は店の備品を破壊しながら、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(借金+10000円)
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
			MONEY:1 += 10000
	ENDSELECT
ELSE
ENDIF
RESETCOLOR

@TIGAU ,ARG
SETCOLOR 0XDDA0DD
PRINTFORML %CUSTOMERNAME2:(ARG)%%CUSTOMERNAME1:(ARG)%は相손が%NAME:(CUSTOMER:(ARG):14)%でないことにクレームをつけている
LOCAL:3 = GET_PROSTITUTION_CUSTOMER_KONOMI(ARG ,CUSTOMER:(ARG):12)

;好み50以上なら問題なし、好み30以下なら絶対ダメ、それ以外は助손の判定
IF LOCAL:3 >= 50
	PRINTFORMW しかし相손が%CALLNAME:(CUSTOMER:(ARG):12)%ならばまんざらでもないのか、たいしたことはなかった…
ELSEIF LOCAL:3 <= 30
	PRINTFORMW 客は%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……
	CFLAG:(CUSTOMER:(ARG):12):13 = 0
	CFLAG:(CUSTOMER:(ARG):12):14 = 0
	CUSTOMER:(ARG):12 = 0
	CUSTOMER:(ARG):14 = 0
ELSEIF ASSI >= 1
	SELECTCASE GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
		CASE 1
			PRINTFORMW %CALLNAME:ASSI%が客のクレームに適切に対処し事なきを得た…
		CASE 0
			PRINTFORMW %CALLNAME:ASSI%が客をなんとか説得したが、悪いイメージを与えてしまったようだ…(店舗の인기-10)
			FLAG:41 -= 10
		CASEELSE
			PRINTFORMW 客は%CALLNAME:ASSI%의 説得に耳を貸さず、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-10)
			CFLAG:(CUSTOMER:(ARG):12):13 = 0
			CFLAG:(CUSTOMER:(ARG):12):14 = 0
			CUSTOMER:(ARG):12 = 0
			CUSTOMER:(ARG):14 = 0
			FLAG:41 -= 10
	ENDSELECT
ELSE
	IF GET_CUSTOMER_NEGOTIATE_RESULT(ARG)
		PRINTFORMW しかし%CALLNAME:(CUSTOMER:(ARG):12)%が誘ってみると、どうやらその気になったようだ…
	ELSE
		PRINTFORMW 客は%CALLNAME:(CUSTOMER:(ARG):12)%が誘ってみても耳を貸さず、%CALLNAME:(CUSTOMER:(ARG):12)%を放置してその場を立ち去った……(店舗の인기-10)
		CFLAG:(CUSTOMER:(ARG):12):13 = 0
		CFLAG:(CUSTOMER:(ARG):12):14 = 0
		CUSTOMER:(ARG):12 = 0
		CUSTOMER:(ARG):14 = 0
		FLAG:41 -= 10
	ENDIF
ENDIF
RESETCOLOR

@CUSTOMER_RAITENKIROKU ,ARG
;客が来店した際の過去10回分の記録を取っておく
;CUSTOMER:70～79 70が今回、71が前回というふうに
;相손の番号ではなくNOで入力、相손がいなかった場合は-1を入力
;LOCAL:0 == 客NO
LOCAL:0 = ARG
CUSTOMER:(LOCAL:0):79 = CUSTOMER:(LOCAL:0):78
CUSTOMER:(LOCAL:0):78 = CUSTOMER:(LOCAL:0):77
CUSTOMER:(LOCAL:0):77 = CUSTOMER:(LOCAL:0):76
CUSTOMER:(LOCAL:0):76 = CUSTOMER:(LOCAL:0):75
CUSTOMER:(LOCAL:0):75 = CUSTOMER:(LOCAL:0):74
CUSTOMER:(LOCAL:0):74 = CUSTOMER:(LOCAL:0):73
CUSTOMER:(LOCAL:0):73 = CUSTOMER:(LOCAL:0):72
CUSTOMER:(LOCAL:0):72 = CUSTOMER:(LOCAL:0):71
CUSTOMER:(LOCAL:0):71 = CUSTOMER:(LOCAL:0):70

IF  CUSTOMER:(LOCAL:0):12 <= 0
	CUSTOMER:(LOCAL:0):70 = -1
ELSE
	LOCAL:2 = CUSTOMER:(LOCAL:0):12
	CUSTOMER:(LOCAL:0):70 = NO:(LOCAL:2)
ENDIF

@CUSTOMER_OKINIIRI ,ARG
;客のお気に入りキャラリストとそのキャラへの의존도
;CUSTOMER:80～89へ의존도の高いキャラ順に창녀をリスト化する（창녀の番号ではなくNOで登録）
;CUSTOMER:90～99へその의존도の値を記録しておく
;80=90 81=91…　という順で対応
#DIM DYNAMIC OKINIIRI_LIST,10
#DIM DYNAMIC OKINIIRI_IZONDO,10
;客NO
LOCAL:0 = ARG
;창녀のNO
LOCAL:1 = CUSTOMER:(LOCAL:0):12
;今回の満足度
LOCAL:2 = CUSTOMER:(LOCAL:0):41

;バグチェック用
;PRINTFORML OKINIIRI_LIST:0　{OKINIIRI_LIST:0}
;PRINTFORML OKINIIRI_LIST:1　{OKINIIRI_LIST:1}
;PRINTFORML OKINIIRI_LIST:2　{OKINIIRI_LIST:2}
;PRINTFORML OKINIIRI_LIST:3　{OKINIIRI_LIST:3}
;PRINTFORML OKINIIRI_LIST:4　{OKINIIRI_LIST:4}
;PRINTFORML OKINIIRI_LIST:5　{OKINIIRI_LIST:5}
;PRINTFORML OKINIIRI_LIST:6　{OKINIIRI_LIST:6}
;PRINTFORML OKINIIRI_LIST:7　{OKINIIRI_LIST:7}
;PRINTFORML OKINIIRI_LIST:8　{OKINIIRI_LIST:8}
;PRINTFORMW OKINIIRI_LIST:9　{OKINIIRI_LIST:9}
;PRINTFORML OKINIIRI_IZONDO:0　{OKINIIRI_IZONDO:0}
;PRINTFORML OKINIIRI_IZONDO:1　{OKINIIRI_IZONDO:1}
;PRINTFORML OKINIIRI_IZONDO:2　{OKINIIRI_IZONDO:2}
;PRINTFORML OKINIIRI_IZONDO:3　{OKINIIRI_IZONDO:3}
;PRINTFORML OKINIIRI_IZONDO:4　{OKINIIRI_IZONDO:4}
;PRINTFORML OKINIIRI_IZONDO:5　{OKINIIRI_IZONDO:5}
;PRINTFORML OKINIIRI_IZONDO:6　{OKINIIRI_IZONDO:6}
;PRINTFORML OKINIIRI_IZONDO:7　{OKINIIRI_IZONDO:7}
;PRINTFORML OKINIIRI_IZONDO:8　{OKINIIRI_IZONDO:8}
;PRINTFORMW OKINIIRI_IZONDO:9　{OKINIIRI_IZONDO:9}
;PRINTFORML LOCAL:0　{LOCAL:0}
;PRINTFORML LOCAL:1　{LOCAL:1}
;PRINTFORML LOCAL:2　{LOCAL:2}
;PRINTFORMW LOCAL:3　{LOCAL:3}

OKINIIRI_LIST:0 = CUSTOMER:(LOCAL:0):80
OKINIIRI_LIST:1 = CUSTOMER:(LOCAL:0):81
OKINIIRI_LIST:2 = CUSTOMER:(LOCAL:0):82
OKINIIRI_LIST:3 = CUSTOMER:(LOCAL:0):83
OKINIIRI_LIST:4 = CUSTOMER:(LOCAL:0):84
OKINIIRI_LIST:5 = CUSTOMER:(LOCAL:0):85
OKINIIRI_LIST:6 = CUSTOMER:(LOCAL:0):86
OKINIIRI_LIST:7 = CUSTOMER:(LOCAL:0):87
OKINIIRI_LIST:8 = CUSTOMER:(LOCAL:0):88
OKINIIRI_LIST:9 = CUSTOMER:(LOCAL:0):89
OKINIIRI_IZONDO:0 = CUSTOMER:(LOCAL:0):90
OKINIIRI_IZONDO:1 = CUSTOMER:(LOCAL:0):91
OKINIIRI_IZONDO:2 = CUSTOMER:(LOCAL:0):92
OKINIIRI_IZONDO:3 = CUSTOMER:(LOCAL:0):93
OKINIIRI_IZONDO:4 = CUSTOMER:(LOCAL:0):94
OKINIIRI_IZONDO:5 = CUSTOMER:(LOCAL:0):95
OKINIIRI_IZONDO:6 = CUSTOMER:(LOCAL:0):96
OKINIIRI_IZONDO:7 = CUSTOMER:(LOCAL:0):97
OKINIIRI_IZONDO:8 = CUSTOMER:(LOCAL:0):98
OKINIIRI_IZONDO:9 = CUSTOMER:(LOCAL:0):99

;今回の売春相손がリストにいるかを確認
LOCAL:3 = NO:(LOCAL:1)

;いたら対応箇所に満足度を追加
IF OKINIIRI_LIST:0 == LOCAL:3
	OKINIIRI_IZONDO:0 += LOCAL:2
ELSEIF OKINIIRI_LIST:1 == LOCAL:3
	OKINIIRI_IZONDO:1 += LOCAL:2
ELSEIF OKINIIRI_LIST:2 == LOCAL:3
	OKINIIRI_IZONDO:2 += LOCAL:2
ELSEIF OKINIIRI_LIST:3 == LOCAL:3
	OKINIIRI_IZONDO:3 += LOCAL:2
ELSEIF OKINIIRI_LIST:4 == LOCAL:3
	OKINIIRI_IZONDO:4 += LOCAL:2
ELSEIF OKINIIRI_LIST:5 == LOCAL:3
	OKINIIRI_IZONDO:5 += LOCAL:2
ELSEIF OKINIIRI_LIST:6 == LOCAL:3
	OKINIIRI_IZONDO:6 += LOCAL:2
ELSEIF OKINIIRI_LIST:7 == LOCAL:3
	OKINIIRI_IZONDO:7 += LOCAL:2
ELSEIF OKINIIRI_LIST:8 == LOCAL:3
	OKINIIRI_IZONDO:8 += LOCAL:2
ELSEIF OKINIIRI_LIST:9 == LOCAL:3
	OKINIIRI_IZONDO:9 += LOCAL:2
ELSE
;いなかったら一番下の数値と比較してそれより多ければそこに代入
	IF OKINIIRI_IZONDO:9 < LOCAL:2
		OKINIIRI_IZONDO:9 = LOCAL:2
		OKINIIRI_LIST:9 = NO:(LOCAL:1)
	ENDIF
ENDIF

;一番下のキャラが一つ上のキャラと比較して의존도が大きければ一つづつあげていく

IF OKINIIRI_IZONDO:9 > OKINIIRI_IZONDO:8 || OKINIIRI_LIST:8 == 0
	SWAP OKINIIRI_LIST:9 , OKINIIRI_LIST:8
	SWAP OKINIIRI_IZONDO:9 , OKINIIRI_IZONDO:8
ENDIF
IF OKINIIRI_IZONDO:8 > OKINIIRI_IZONDO:7 || OKINIIRI_LIST:7 == 0
	SWAP OKINIIRI_LIST:8 , OKINIIRI_LIST:7
	SWAP OKINIIRI_IZONDO:8 , OKINIIRI_IZONDO:7
ENDIF
IF OKINIIRI_IZONDO:7 > OKINIIRI_IZONDO:6 || OKINIIRI_LIST:6 == 0
	SWAP OKINIIRI_LIST:7 , OKINIIRI_LIST:6
	SWAP OKINIIRI_IZONDO:7 , OKINIIRI_IZONDO:6
ENDIF
IF OKINIIRI_IZONDO:6 > OKINIIRI_IZONDO:5 || OKINIIRI_LIST:5 == 0
	SWAP OKINIIRI_LIST:6 , OKINIIRI_LIST:5
	SWAP OKINIIRI_IZONDO:6 , OKINIIRI_IZONDO:5
ENDIF
IF OKINIIRI_IZONDO:5 > OKINIIRI_IZONDO:4 || OKINIIRI_LIST:4 == 0
	SWAP OKINIIRI_LIST:5 , OKINIIRI_LIST:4
	SWAP OKINIIRI_IZONDO:5 , OKINIIRI_IZONDO:4
ENDIF
IF OKINIIRI_IZONDO:4 > OKINIIRI_IZONDO:3 || OKINIIRI_LIST:3 == 0
	SWAP OKINIIRI_LIST:4 , OKINIIRI_LIST:3
	SWAP OKINIIRI_IZONDO:4 , OKINIIRI_IZONDO:3
ENDIF
IF OKINIIRI_IZONDO:3 > OKINIIRI_IZONDO:2 || OKINIIRI_LIST:2 == 0
	SWAP OKINIIRI_LIST:3 , OKINIIRI_LIST:2
	SWAP OKINIIRI_IZONDO:3 , OKINIIRI_IZONDO:2
ENDIF
IF OKINIIRI_IZONDO:2 > OKINIIRI_IZONDO:1 || OKINIIRI_LIST:1 == 0
	SWAP OKINIIRI_LIST:2 , OKINIIRI_LIST:1
	SWAP OKINIIRI_IZONDO:2 , OKINIIRI_IZONDO:1
ENDIF
IF OKINIIRI_IZONDO:1 > OKINIIRI_IZONDO:0 || OKINIIRI_LIST:0 == 0
	SWAP OKINIIRI_LIST:1 , OKINIIRI_LIST:0
	SWAP OKINIIRI_IZONDO:1 , OKINIIRI_IZONDO:0
ENDIF

CUSTOMER:(LOCAL:0):80 = OKINIIRI_LIST:0
CUSTOMER:(LOCAL:0):81 = OKINIIRI_LIST:1
CUSTOMER:(LOCAL:0):82 = OKINIIRI_LIST:2
CUSTOMER:(LOCAL:0):83 = OKINIIRI_LIST:3
CUSTOMER:(LOCAL:0):84 = OKINIIRI_LIST:4
CUSTOMER:(LOCAL:0):85 = OKINIIRI_LIST:5
CUSTOMER:(LOCAL:0):86 = OKINIIRI_LIST:6
CUSTOMER:(LOCAL:0):87 = OKINIIRI_LIST:7
CUSTOMER:(LOCAL:0):88 = OKINIIRI_LIST:8
CUSTOMER:(LOCAL:0):88 = OKINIIRI_LIST:9
CUSTOMER:(LOCAL:0):90 = OKINIIRI_IZONDO:0
CUSTOMER:(LOCAL:0):91 = OKINIIRI_IZONDO:1
CUSTOMER:(LOCAL:0):92 = OKINIIRI_IZONDO:2
CUSTOMER:(LOCAL:0):93 = OKINIIRI_IZONDO:3
CUSTOMER:(LOCAL:0):94 = OKINIIRI_IZONDO:4
CUSTOMER:(LOCAL:0):95 = OKINIIRI_IZONDO:5
CUSTOMER:(LOCAL:0):96 = OKINIIRI_IZONDO:6
CUSTOMER:(LOCAL:0):97 = OKINIIRI_IZONDO:7
CUSTOMER:(LOCAL:0):98 = OKINIIRI_IZONDO:8
CUSTOMER:(LOCAL:0):99 = OKINIIRI_IZONDO:9

;返却処理
@REPAYMENT_PROSTITUTE ,ARG
;(LOCAL:0)客番号
LOCAL:0 = CFLAG:ARG:52
;返却メッセージ表示
SIF FLAG:161 == 1
	CALL REPAYMENT_CUSTOMER ,LOCAL:0 ,ARG

CUSTOMER:(LOCAL:0):10 = (GET_PROSTITUTION_VALUE(LOCAL:0, ARG))+((GET_PROSTITUTION_VALUE(LOCAL:0, ARG))*CUSTOMER:(LOCAL:0):63/2)
PRINTFORML {CUSTOMER:(LOCAL:0):10}엔을 얻었다
MONEY += (CUSTOMER:(LOCAL:0):10)
CUSTOMER:(LOCAL:0):19 += CUSTOMER:(LOCAL:0):10
CUSTOMER:(LOCAL:0):10 = 0

CUSTOMER:(LOCAL:0):41 = (CUSTOMER:(LOCAL:0):41)+(CUSTOMER:(LOCAL:0):41*CUSTOMER:(LOCAL:0):63/2)

SIF CUSTOMER:(LOCAL:0):41 >= 0
	PRINTFORML 満足度　+{CUSTOMER:(LOCAL:0):41}
SIF CUSTOMER:(LOCAL:0):41 <= -1
	PRINTFORML 満足度　{CUSTOMER:(LOCAL:0):41}

CUSTOMER:(LOCAL:0):5 += CUSTOMER:(LOCAL:0):41
LOCAL:2 = CUSTOMER:(LOCAL:0):41
LOCAL:2 = LOCAL:2/10
SIF LOCAL:2 >= 0
	PRINTFORMW 店舗の인기　+{LOCAL:2}
SIF LOCAL:2 <= -1
	PRINTFORMW 店舗の인기　{LOCAL:2}
FLAG:41 += LOCAL:2

;客の창녀への의존도処理
CALL CUSTOMER_OKINIIRI , (LOCAL:0)
;あてがったキャラの状態をリセット
CFLAG:(CUSTOMER:(LOCAL:0):12):13 = 0
;労役解除
CFLAG:(CUSTOMER:(LOCAL:0):12):12 = 0
;客の相손のリセット
CUSTOMER:(LOCAL:0):12 = 0
;満足度のリセット
CUSTOMER:(LOCAL:0):41 = 0
;好みのリセット
CUSTOMER:(LOCAL:0):13 = 0
;掲示金額のリセット
CUSTOMER:(LOCAL:0):10 = 0

@GET_CUSTOMER_NEGOTIATE_RESULT(customerIndex,negotiateChara = -1)
#FUNCTION
#DIM customerIndex
#DIM negotiateChara
#DIM customerValue
#DIM negotiateValue
#DIM maxHP
SIF negotiateChara == -1
	negotiateChara = ASSI
SIF negotiateChara == -1
	RETURNF 0
customerValue = (CUSTOMER:customerIndex:15*2) + CUSTOMER:customerIndex:16 + CUSTOMER:customerIndex:17 + (CUSTOMER:customerIndex:18*2)
negotiateValue = (ABL:negotiateChara:22*2) + ABL:negotiateChara:23 + ABL:negotiateChara:24 + (ABL:negotiateChara:25*2) + TALENT:negotiateChara:마술기능 * 4 + TALENT:negotiateChara:교섭술 * 3
; 스트레스치 50の時 negotiateValue x 100% (影響なし), 스트레스치 100の時 negotiateValue x 0%
negotiateValue = negotiateValue * (100 - MIN(CFLAG:negotiateChara:스트레스치 - 50,0) * 2) / 100
; 체력半分の時 negotiateValue x 100% (影響なし), 체력0の時 negotiateValue x 50%

maxHP = GET_CHARA_MAX_HP(negotiateChara)
negotiateValue = negotiateValue * MIN(BASE:negotiateChara:체력 * 2,maxHP) / maxHP
SIF negotiateValue == customerValue
	RETURNF 0
RETURNF (negotiateValue - customerValue) / ABS(negotiateValue - customerValue)

@GET_CUSTOMER_BATTLE_RESULT(customerIndex,battleChara = -1)
#FUNCTION
#DIM customerIndex
#DIM battleChara
#DIM customerValue
#DIM battleValue
#DIM maxHP
SIF battleChara == -1
	battleChara = ASSI
customerValue = CUSTOMER:customerIndex:15 + (CUSTOMER:customerIndex:16*2) + (CUSTOMER:customerIndex:17*2) + CUSTOMER:customerIndex:18
battleValue = ABL:battleChara:22 + (ABL:battleChara:23*2) + (ABL:battleChara:24*2) + ABL:battleChara:25 + TALENT:battleChara:마술기능 * 4 + TALENT:battleChara:파이터 * 3

; 체력半分の時 battleValue x 100% (影響なし), 체력0の時 battleValue x 0%
maxHP = GET_CHARA_MAX_HP(battleChara)
battleValue = battleValue * MIN(BASE:battleChara:체력 * 2,maxHP) / maxHP

; 스트레스치 50の時 battleValue x 100% (影響なし), 스트레스치 100の時 battleValue x 50%
battleValue = battleValue * (100 - MIN(CFLAG:battleChara:스트레스치 - 50,0)) / 100

SIF battleValue == customerValue
	RETURNF 0
RETURNF (battleValue - customerValue) / ABS(battleValue - customerValue)

@IS_ASSI_INTERCEPT()
#DIM originalColor
originalColor = GETCOLOR()
PRINTDL この連中は助손に対応させますか？
PRINT　（체력：
CALL PRINT_RULE_COLORED_STRING(TOSTR(BASE:ASSI:체력),ASSI,"BASE:ASSI:체력 < GET_CHARA_MAX_HP(ASSI) / 2",COLOR_FROMNAME("ORANGERED"))
PRINTFORM /{MAXBASE:ASSI:체력}、ストレス：
CALL PRINT_RULE_COLORED_STRING(TOSTR(CFLAG:ASSI:스트레스치),ASSI,"CFLAG:ASSI:스트레스치 < 50",COLOR_FROMNAME("ORANGERED"))
PRINTL )
SETCOLOR originalColor
PRINTDL [0] - 対応させる
PRINTDL [1] - 対応させない
WHILE 1
	INPUT
	SIF INRANGE(RESULT,0,2)
		RETURN RESULT
WEND

;汎用関数に移設すべき？
@GET_CHARA_MAX_HP(charaIndex)
#FUNCTION
#DIM charaIndex
#DIM answer
answer = MAXBASE:charaIndex:체력

SIF TALENT:charaIndex:임신
	answer += CFLAG:charaIndex:임신의체력상한변화량 ; 임신時に減った체력を含めて

; 他に最大체력が減らすの要素があるならここで対応

RETURNF answer

repo_name: Catalyst/B

license: unknown