code:
@PROSTITUTION_CUSTOMER_MAKE,ARG:0,ARG:1
;売春の客を作成する関数
;定義された配列変数CUSTOMER,(客のNO),(項目)
;要素の最大値は200,100
;客は満足度に応じて少しづつ入れ替わっていく
;人数は最大で200人
;設定できる項目数は100個
;平日に5-6人、休日に10人程度になるように
;項目NO,数値によって客を定義
;0,客の特性　1,普通の客　2,불쾌な客　3,孕ませ好きの客　4,横暴な客　5,고통な客　6,特別な客　7,値切る客　8,追加行為を要求する客　9,悪評を流す客
;1,客の職業　0,会社員(ＯＬ）　1,おっさん（お姉さん）　2,浮浪者　3,学生　4,불량　5,ニート　6,主夫(주부)　7,ヤクザ　8,社長　9,乞食　10,モデル　11,ホスト　12,女王様　13,教頭　14,校長　15,体育교사　16,외국인～以降は項目参照
;2,客の性別　0,男　1,女　2,男女　3,両性　4,その他（初期男9割、女1割。両性は후타나리を想定。その他は촉수など性別不明。男女、その他は特別な客でしか出ない）
;3,客の接頭語0,なし1,陰気な　2,陽気な　3,セクハラ　4,기가셈な　5,気弱な　6,偉そうな　7,変態　8,ヲタクな　9,不審な　10,デブ　11,ヒョロい　12,ロリコン　13,真面目な　14,眼鏡の　15,イケメン（美人）　16,喪女　17,キチガイ　18,美しい　19,ムチムチ　20,怪しい　21,ヤバい～以降は項目参照
;4,客の裕福度　1～100で幅広く判定　50-60が標準、0が文無し、100が世界的富豪（通常は40～70に収まるように、10～20,90～100は通常では出ない。30,80～もレアくらいで）
;5,客の満足度　これが小さいと客は去る　裕福な客ほど満足度を要求
;6,客の来店頻度　何日に一度やってくるか　10～15程度
;7,客の来訪する日　5番で設定した数より小さな数をランダムで設定
;8,客の指名　0,指名しない　1,好みが合えば指名　2,必ず指名
;9,客の出入フラグ　これに-31～+31の値が入る　マイナスは一日おきに+1、プラスは一日おきに-1　-1か1になったタイミングで客が出入りする　それ以外の客は0が入る
;10,客の支払い金額　対応キャラに応じた金額が入る
;11,客の来店回数　今までの来店回数
;12,客の対応キャラ番号　あてっがたキャラの番号が入る
;13,客の対応キャラに対する好み　あてがったキャラへの好み
;14,客の指名相손番号　指名した相손の番号
;15,客の학력　客のクレームや強硬アタックに主に関係
;16,客の운동능력　客の強硬アタックに主に関係
;17,客の전투능력　客の強硬アタックに主に関係
;18,客の감성　客のクレームや強硬アタックなどに関係
;19,客の支払い総額
;21,가슴の嗜好　0,절벽　1,빈유　2,普通　3,거유　4,폭유
;22～23,髪の色の嗜好　0,栗　1,黒　2,灰　3,白　4,銀　5,水　6,青　7,緑　8,紫　9,ピンク　10,赤　11,金
;24～28,髪型の嗜好　0～21　TALENT380～401に対応
;29,立場の嗜好　0,초등학생　1,중학생　2,고등학생　3,대학생　4,교사　5,사회인（それ以外）
;30～31,魅力の嗜好　0,청초　1,쾌활　2,색기　3,어린애같음　4,쿨함　5,기가셈　6,무기력　7,보이쉬　8,천연　9,치유계　10,음험　11,전파계　12,애교　13,무뚝뚝함
;32,特徴の嗜好1　0,영애好き　1,외국인好き　2,남편있음好き　3,연예인好き　4,프린세스好き　5,메이드好き
;33,特徴の嗜好2　0,가난好き　1,불량好き　2,우등생好き　3,멋쟁이好き　4,유명인好き　5,眼鏡っ娘好き
;34,特徴の嗜好3　0,학생회장好き　1,성직자好き　2,오타쿠취미好き　3,AV녀好き　4,로봇소녀好き　5,고고함好き
;35,客の性癖1　0,奉仕　1,노출　2,새드　3,마조
;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
;37,客の性癖3　0,ノーマル　1,同性愛　2,바이（女性客は1or2のみ）
;38,客の性癖4　0,セックス　1,자위　2,母乳　3,精液
;39,客の行為回数
;40,客の行為の重さ　0,ソフト　1,ノーマル　2,ハード　3,変態
;41,客の今回の売春で得た満足度
;60,プレイ内容　プレイ内容はあらかじめ決めておく
;61,불쾌な客の性質　0,불결　1,醜悪　2,馬並
;62,고통な客の性質　0,近親者　1,知人　2,ストーカー
;63,監禁する客の日数
;64,監禁している相손の番号
;65,客が狙っている相손　キャラのNOを入れる　고통フラグ,特別フラグ　通常、一番最初に指名した相손のNO　以降この相손を必ず指名する
;70～79　70前回の相손、71その前の相손、というふうに過去10回分の相손を記録しておく（-1は相손なし、他はキャラNO）
;80～89　客のキャラに対する의존도の高いキャラ　上位10名（キャラNO）
;90～99　↑の의존도の値

;客のNO
LOCAL:0 = 0
;乱数生成用
LOCAL:1 = 0
;作成を開始する客NO
LOCAL:2 = ARG:0
;作成を終了する客NO
LOCAL:3 = ARG:1

FOR (LOCAL:0),(LOCAL:2),(LOCAL:3)
	;生成時に客の変数初期化
	FOR COUNT,0,100
		CUSTOMER:(LOCAL:0):COUNT = 0
	NEXT
	CUSTOMERNAME1:(LOCAL:0) =
	CUSTOMERNAME2:(LOCAL:0) =
	IF FLAG:1015 < 0
		;◎項目0,客の特性
		;1,普通の客は72%　2,불쾌な客4%　3,孕ませ好きな客4%　4,横暴な客4%、5,고통な客は4%　6特別な客1%　7,値切る客4%　8,追加行為を要求する客3%　9,悪評を流す客4%
		;불쾌な客と고통な客はストレスが2倍
		;孕ませ好きな客は임신の可能性があり
		;横暴な客は指名を拒否すると借金が増える
		;特別な客は何らかの特別なイベントが起こる
		LOCAL:1 = RAND:100
		IF LOCAL:1 <= 71
			CUSTOMER:(LOCAL:0):0 = 1
		ELSEIF LOCAL:1 <= 75
			CUSTOMER:(LOCAL:0):0 = 2
		ELSEIF LOCAL:1 <= 79
			CUSTOMER:(LOCAL:0):0 = 3
		ELSEIF LOCAL:1 <= 83
			CUSTOMER:(LOCAL:0):0 = 4
		ELSEIF LOCAL:1 <= 87
			CUSTOMER:(LOCAL:0):0 = 5
		ELSEIF LOCAL:1 <= 88
			CUSTOMER:(LOCAL:0):0 = 6
		ELSEIF LOCAL:1 <= 92
			CUSTOMER:(LOCAL:0):0 = 7
		ELSEIF LOCAL:1 <= 95
			CUSTOMER:(LOCAL:0):0 = 8
		ELSE
			CUSTOMER:(LOCAL:0):0 = 9
		ENDIF
	ELSEIF FLAG:1015 < 3
		;◎項目0,客の特性
		;1,普通の客は62%　2,불쾌な客5%　3,孕ませ好きな客5%　4,横暴な客5%、5,고통な客は5%　6特別な客3%　7,値切る客5%　8,追加行為を要求する客5%　9,悪評を流す客5%
		;불쾌な客と고통な客はストレスが2倍
		;孕ませ好きな客は임신の可能性があり
		;横暴な客は指名を拒否すると借金が増える
		;特別な客は何らかの特別なイベントが起こる
		LOCAL:1 = RAND:100
		IF LOCAL:1 <= 61
			CUSTOMER:(LOCAL:0):0 = 1
		ELSEIF LOCAL:1 <= 66
			CUSTOMER:(LOCAL:0):0 = 2
		ELSEIF LOCAL:1 <= 71
			CUSTOMER:(LOCAL:0):0 = 3
		ELSEIF LOCAL:1 <= 76
			CUSTOMER:(LOCAL:0):0 = 4
		ELSEIF LOCAL:1 <= 81
			CUSTOMER:(LOCAL:0):0 = 5
		ELSEIF LOCAL:1 <= 84
			CUSTOMER:(LOCAL:0):0 = 6
		ELSEIF LOCAL:1 <= 89
			CUSTOMER:(LOCAL:0):0 = 7
		ELSEIF LOCAL:1 <= 94
			CUSTOMER:(LOCAL:0):0 = 8
		ELSE
			CUSTOMER:(LOCAL:0):0 = 9
		ENDIF
	ELSEIF FLAG:1015 < 5
		;◎項目0,客の特性
		;1,普通の客は54%　2,불쾌な客6%　3,孕ませ好きな客5%　4,横暴な客6%、5,고통な客は5%　6特別な客5%　7,値切る客6%　8,追加行為を要求する客8%　9,悪評を流す客5%
		;불쾌な客と고통な客はストレスが2倍
		;孕ませ好きな客は임신の可能性があり
		;横暴な客は指名を拒否すると借金が増える
		;特別な客は何らかの特別なイベントが起こる
		LOCAL:1 = RAND:100
		IF LOCAL:1 <= 53
			CUSTOMER:(LOCAL:0):0 = 1
		ELSEIF LOCAL:1 <= 59
			CUSTOMER:(LOCAL:0):0 = 2
		ELSEIF LOCAL:1 <= 64
			CUSTOMER:(LOCAL:0):0 = 3
		ELSEIF LOCAL:1 <= 70
			CUSTOMER:(LOCAL:0):0 = 4
		ELSEIF LOCAL:1 <= 75
			CUSTOMER:(LOCAL:0):0 = 5
		ELSEIF LOCAL:1 <= 80
			CUSTOMER:(LOCAL:0):0 = 6
		ELSEIF LOCAL:1 <= 86
			CUSTOMER:(LOCAL:0):0 = 7
		ELSEIF LOCAL:1 <= 94
			CUSTOMER:(LOCAL:0):0 = 8
		ELSE
			CUSTOMER:(LOCAL:0):0 = 9
		ENDIF
	ELSE
		;◎項目0,客の特性
		;1,普通の客は46%　2,불쾌な客7%　3,孕ませ好きな客5%　4,横暴な客8%、5,고통な客は5%　6特別な客7%　7,値切る客9%　8,追加行為を要求する客8%　9,悪評を流す客5%
		;불쾌な客と고통な客はストレスが2倍
		;孕ませ好きな客は임신の可能性があり
		;横暴な客は指名を拒否すると借金が増える
		;特別な客は何らかの特別なイベントが起こる
		LOCAL:1 = RAND:100
		IF LOCAL:1 <= 45
			CUSTOMER:(LOCAL:0):0 = 1
		ELSEIF LOCAL:1 <= 52
			CUSTOMER:(LOCAL:0):0 = 2
		ELSEIF LOCAL:1 <= 57
			CUSTOMER:(LOCAL:0):0 = 3
		ELSEIF LOCAL:1 <= 65
			CUSTOMER:(LOCAL:0):0 = 4
		ELSEIF LOCAL:1 <= 70
			CUSTOMER:(LOCAL:0):0 = 5
		ELSEIF LOCAL:1 <= 77
			CUSTOMER:(LOCAL:0):0 = 6
		ELSEIF LOCAL:1 <= 86
			CUSTOMER:(LOCAL:0):0 = 7
		ELSEIF LOCAL:1 <= 94
			CUSTOMER:(LOCAL:0):0 = 8
		ELSE
			CUSTOMER:(LOCAL:0):0 = 9
		ENDIF
	ENDIF
	;◎項目1,客の職業
	;特別な客もここで独自に設定
	;5文字以内の職業を定義
	;0,会社員10%、1,おっさん10%、2,浮浪者6%、3,同級生3%、4,불량3%、5,ニート5%、6,主夫8%、7,ヤクザ4%、8,社長2%、9,乞食2%、10,モデル1%
	;11,ホスト1%、12,女王様1%、13,教頭1%、14,校長1%、15,体育교사1%　16,외국인1%,17,小説家、18,作曲家、19,연예인、20,俳優
	;21,評論家、22,教授、23,科学者、24,ダンサー、25,記者、26,声優、27,騎손、28,飛行士、29,理容師、30,調교사
	;31,弁護士、32,演出家、33,漫画家、34,画家、35,作家、36占い師、37,警備員、38,司法書士、39,政治家、40,キャバ嬢
	;41,税理士、42,美容師、43,棋士、44,大工、45,교사、46,초등학생、47,중학생、48,고등학생、49,대학생、50,自衛官、
	;51,巫女、52,神父、53,僧侶、54,脚本家、55,医師、56,ゲリラ、57,詩人、58,保育士、59,메이드、60,ＡＶ男優
	;61,アイドル、62,창녀、63,高級官僚、64,警察官、65,調理師、66,海女、67,レスラー、68,닌자、69,ゲーマー、70,用務員
	;71,格闘家、72,天才、73,戦闘員、74,おじさん
	LOCAL:1 = RAND:1050
	IF LOCAL:1 <= 99
		CUSTOMER:(LOCAL:0):1 = 0
	ELSEIF LOCAL:1 <= 199
		CUSTOMER:(LOCAL:0):1 = 1
		;おっさんは30%의 確率で孕ませ好きな客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):0 = 3
	ELSEIF LOCAL:1 <= 269
		CUSTOMER:(LOCAL:0):1 = 2
		;浮浪者は30%의 確率で불쾌な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):0 = 2
		;浮浪者は30%의 確率で一段階가난になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):4 -= 10
	ELSEIF LOCAL:1 <= 289
		CUSTOMER:(LOCAL:0):1 = 3
		;同級生は90%의 確率で고통な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 10
			CUSTOMER:(LOCAL:0):0 = 5
		;浮浪者は50%의 確率で一段階가난になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 -= 10
	ELSEIF LOCAL:1 <= 319
		CUSTOMER:(LOCAL:0):1 = 4
		;불량は30%의 確率で横暴な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):0 = 4
		;불량は50%의 確率で一段階가난になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 -= 10
	ELSEIF LOCAL:1 <= 369
		CUSTOMER:(LOCAL:0):1 = 5
		;ニートは50%의 確率で一段階가난になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 -= 10
	ELSEIF LOCAL:1 <= 449
		CUSTOMER:(LOCAL:0):1 = 6
	ELSEIF LOCAL:1 <= 489
		CUSTOMER:(LOCAL:0):1 = 7
		;ヤクザは50%의 確率で横暴な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):0 = 4
	ELSEIF LOCAL:1 <= 509
		CUSTOMER:(LOCAL:0):1 = 8
		;社長は一段階金持ちになる
		CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 529
		CUSTOMER:(LOCAL:0):1 = 9
		;乞食は50%의 確率で불쾌な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):0 = 2
		;乞食は二段階가난になる
		CUSTOMER:(LOCAL:0):4 -= 20
	ELSEIF LOCAL:1 <= 539
		CUSTOMER:(LOCAL:0):1 = 10
		;モデルは30%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 549
		CUSTOMER:(LOCAL:0):1 = 11
		;ホストは30%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 559
		CUSTOMER:(LOCAL:0):1 = 12
	ELSEIF LOCAL:1 <= 569
		CUSTOMER:(LOCAL:0):1 = 13
		;教頭は80%의 確率で고통な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 19
			CUSTOMER:(LOCAL:0):0 = 5
		;教頭は20%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 80
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 579
		CUSTOMER:(LOCAL:0):1 = 14
		;校長は80%의 確率で고통な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 19
			CUSTOMER:(LOCAL:0):0 = 5
		;校長は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 589
		CUSTOMER:(LOCAL:0):1 = 15
		;体育교사は80%의 確率で고통な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 19
			CUSTOMER:(LOCAL:0):0 = 5
	ELSEIF LOCAL:1 <= 599
	;외국인
		CUSTOMER:(LOCAL:0):1 = 16
	ELSEIF LOCAL:1 <= 619
	;小説家
		CUSTOMER:(LOCAL:0):1 = 17
	ELSEIF LOCAL:1 <= 629
	;作曲家
		CUSTOMER:(LOCAL:0):1 = 18
	ELSEIF LOCAL:1 <= 639
	;연예인
		CUSTOMER:(LOCAL:0):1 = 19
		;연예인は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 649
	;俳優
		CUSTOMER:(LOCAL:0):1 = 20
	ELSEIF LOCAL:1 <= 659
	;評論家
		CUSTOMER:(LOCAL:0):1 = 21
	ELSEIF LOCAL:1 <= 669
	;教授
		CUSTOMER:(LOCAL:0):1 = 22
	ELSEIF LOCAL:1 <= 679
	;科学者
		CUSTOMER:(LOCAL:0):1 = 23
	ELSEIF LOCAL:1 <= 689
	;ダンサー
		CUSTOMER:(LOCAL:0):1 = 24
	ELSEIF LOCAL:1 <= 694
	;記者
		CUSTOMER:(LOCAL:0):1 = 25
		;記者は80%의 確率で悪評を流す客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 19
			CUSTOMER:(LOCAL:0):0 = 9
	ELSEIF LOCAL:1 <= 699
	;声優
		CUSTOMER:(LOCAL:0):1 = 26
	ELSEIF LOCAL:1 <= 704
	;騎손
		CUSTOMER:(LOCAL:0):1 = 27
	ELSEIF LOCAL:1 <= 709
	;飛行士
		CUSTOMER:(LOCAL:0):1 = 28
	ELSEIF LOCAL:1 <= 714
	;理容師
		CUSTOMER:(LOCAL:0):1 = 29
	ELSEIF LOCAL:1 <= 724
	;調교사
		CUSTOMER:(LOCAL:0):1 = 30
	ELSEIF LOCAL:1 <= 734
	;弁護士
		CUSTOMER:(LOCAL:0):1 = 31
		;弁護士は80%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 20
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 739
	;演出家
		CUSTOMER:(LOCAL:0):1 = 32
	ELSEIF LOCAL:1 <= 744
	;漫画家
		CUSTOMER:(LOCAL:0):1 = 33
	ELSEIF LOCAL:1 <= 754
	;画家
		CUSTOMER:(LOCAL:0):1 = 34
	ELSEIF LOCAL:1 <= 764
	;作家
		CUSTOMER:(LOCAL:0):1 = 35
	ELSEIF LOCAL:1 <= 769
	;占い師
		CUSTOMER:(LOCAL:0):1 = 36
		;占い師は80%의 確率で悪評を流す客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 19
			CUSTOMER:(LOCAL:0):0 = 9
	ELSEIF LOCAL:1 <= 774
	;警備員
		CUSTOMER:(LOCAL:0):1 = 37
	ELSEIF LOCAL:1 <= 784
	;司法書士
		CUSTOMER:(LOCAL:0):1 = 38
	ELSEIF LOCAL:1 <= 789
	;政治家
		CUSTOMER:(LOCAL:0):1 = 39
		;政治家は必ず一段階金持ちになる
		CUSTOMER:(LOCAL:0):4 += 10
		;政治家は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 794
	;キャバ嬢
		CUSTOMER:(LOCAL:0):1 = 40
	ELSEIF LOCAL:1 <= 799
	;税理士
		CUSTOMER:(LOCAL:0):1 = 41
		;税理士は80%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 20
			CUSTOMER:(LOCAL:0):4 += 10
		;税理士は必ず値切る客になる
		CUSTOMER:(LOCAL:0):0 = 7
	ELSEIF LOCAL:1 <= 804
	;美容師
		CUSTOMER:(LOCAL:0):1 = 42
	ELSEIF LOCAL:1 <= 814
	;棋士
		CUSTOMER:(LOCAL:0):1 = 43
	ELSEIF LOCAL:1 <= 819
	;大工
		CUSTOMER:(LOCAL:0):1 = 44
	ELSEIF LOCAL:1 <= 824
	;교사
		CUSTOMER:(LOCAL:0):1 = 45
	ELSEIF LOCAL:1 <= 844
	;초등학생
		CUSTOMER:(LOCAL:0):1 = 46
		;초등학생は3段階가난になる
		CUSTOMER:(LOCAL:0):4 -= 30
	ELSEIF LOCAL:1 <= 849
	;중학생
		CUSTOMER:(LOCAL:0):1 = 47
		;중학생は2段階가난になる
		CUSTOMER:(LOCAL:0):4 -= 20
	ELSEIF LOCAL:1 <= 859
	;고등학생
		CUSTOMER:(LOCAL:0):1 = 48
		;고등학생は1段階가난になる
		CUSTOMER:(LOCAL:0):4 -= 10
	ELSEIF LOCAL:1 <= 869
	;대학생
		CUSTOMER:(LOCAL:0):1 = 49
	ELSEIF LOCAL:1 <= 889
	;自衛官
		CUSTOMER:(LOCAL:0):1 = 50
		;自衛官は30%의 確率で孕ませ好きな客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):0 = 3
	ELSEIF LOCAL:1 <= 894
	;巫女
		CUSTOMER:(LOCAL:0):1 = 51
	ELSEIF LOCAL:1 <= 899
	;神父
		CUSTOMER:(LOCAL:0):1 = 52
	ELSEIF LOCAL:1 <= 904
	;僧侶
		CUSTOMER:(LOCAL:0):1 = 53
	ELSEIF LOCAL:1 <= 909
	;脚本家
		CUSTOMER:(LOCAL:0):1 = 54
	ELSEIF LOCAL:1 <= 914
	;医師
		CUSTOMER:(LOCAL:0):1 = 55
		;医師は80%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 20
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 919
	;ゲリラ
		CUSTOMER:(LOCAL:0):1 = 56
		;ゲリラは50%의 確率で横暴な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):0 = 4
	ELSEIF LOCAL:1 <= 924
	;詩人
		CUSTOMER:(LOCAL:0):1 = 57
	ELSEIF LOCAL:1 <= 929
	;保育士
		CUSTOMER:(LOCAL:0):1 = 58
	ELSEIF LOCAL:1 <= 934
	;메이드
		CUSTOMER:(LOCAL:0):1 = 59
	ELSEIF LOCAL:1 <= 939
	;ＡＶ男優
		CUSTOMER:(LOCAL:0):1 = 60
	ELSEIF LOCAL:1 <= 944
	;アイドル
		CUSTOMER:(LOCAL:0):1 = 61
		;アイドルは50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 949
	;창녀
		CUSTOMER:(LOCAL:0):1 = 62
	ELSEIF LOCAL:1 <= 954
	;高級官僚
		CUSTOMER:(LOCAL:0):1 = 63
		;高級官僚は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
		;高級官僚は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 959
	;警察官
		CUSTOMER:(LOCAL:0):1 = 64
	ELSEIF LOCAL:1 <= 964
	;調理師
		CUSTOMER:(LOCAL:0):1 = 65
	ELSEIF LOCAL:1 <= 969
	;海女
		CUSTOMER:(LOCAL:0):1 = 66
	ELSEIF LOCAL:1 <= 974
	;レスラー
		CUSTOMER:(LOCAL:0):1 = 67
		;レスラーは50%의 確率で横暴な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):0 = 4
	ELSEIF LOCAL:1 <= 979
	;닌자
		CUSTOMER:(LOCAL:0):1 = 68
	ELSEIF LOCAL:1 <= 984
	;ゲーマー
		CUSTOMER:(LOCAL:0):1 = 69
	ELSEIF LOCAL:1 <= 989
	;用務員
		CUSTOMER:(LOCAL:0):1 = 70
	ELSEIF LOCAL:1 <= 999
	;格闘家
		CUSTOMER:(LOCAL:0):1 = 71
		;格闘家は50%의 確率で横暴な客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):0 = 4
	ELSEIF LOCAL:1 <= 1004
	;天才
		CUSTOMER:(LOCAL:0):1 = 72
		;天才は50%의 確率で一段階金持ちになる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 50
			CUSTOMER:(LOCAL:0):4 += 10
	ELSEIF LOCAL:1 <= 1009
	;戦闘員
		CUSTOMER:(LOCAL:0):1 = 73
		;戦闘員は横暴な客になる
		CUSTOMER:(LOCAL:0):0 = 4
	ELSE
	;おじさん
		CUSTOMER:(LOCAL:0):1 = 74
		;おじさんは30%의 確率で孕ませ好きな客になる
		LOCAL:1 = RAND:100
		SIF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):0 = 3
	ENDIF

	;特別な客の設定
	;特別な客は9文字まで
	;特別な客0,輪姦サークル　1,ガキども　2,高級セレブ　3,Ｃ・サイコレズ　4,山田さん　5,謎の集団　6,怪しげな宗教団体
	;7,暴走族の集団　8,レディースの集団　9,薬物研究者　10,촉수の怪人　11,大番長　12,鬼医者　13,性職者（神官、シスター）　14,女体芸術家
	;15,狩猟者

	IF CUSTOMER:(LOCAL:0):0 == 6
		LOCAL:1 = RAND:16
		CUSTOMER:(LOCAL:0):1 = LOCAL:1

	;特別な客の資金設定
	;特別な客はリスクが大きいかわりに金をたくさん持っている場合が多い
	;稀にしか出現しないことも踏まえここで金持ちをメインに出す
	;資金設定で40%(+5)40%(+6)10%(+4)10%(+7) されることを見込んで設定

	;輪姦サークルの資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 0
			CUSTOMER:(LOCAL:0):4 = 10
	;ガキどもの資金力は-3
		SIF CUSTOMER:(LOCAL:0):1 == 1
			CUSTOMER:(LOCAL:0):4 = -30
	;高級セレブの資金力は+2
		SIF CUSTOMER:(LOCAL:0):1 == 2
			CUSTOMER:(LOCAL:0):4 = 20
	;Ｃ・サイコレズの資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 3
			CUSTOMER:(LOCAL:0):4 = 10
	;山田さんの資金力は-1
		SIF CUSTOMER:(LOCAL:0):1 == 4
			CUSTOMER:(LOCAL:0):4 = -10
	;謎の集団の資金力は+3
		SIF CUSTOMER:(LOCAL:0):1 == 5
			CUSTOMER:(LOCAL:0):4 = 30
	;怪しげな宗教団体は+2
		SIF CUSTOMER:(LOCAL:0):1 == 6
			CUSTOMER:(LOCAL:0):4 = 20
	;暴走族の集団の資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 7
			CUSTOMER:(LOCAL:0):4 = 10
	;レディースの集団の資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 8
			CUSTOMER:(LOCAL:0):4 = 10
	;薬物研究者の資金力は+2
		SIF CUSTOMER:(LOCAL:0):1 == 9
			CUSTOMER:(LOCAL:0):4 = 20
	;촉수の怪人の資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 10
			CUSTOMER:(LOCAL:0):4 = 10
	;大番長の資金力は+2
		SIF CUSTOMER:(LOCAL:0):1 == 11
			CUSTOMER:(LOCAL:0):4 = 20
	;鬼医者の資金力は+2
		SIF CUSTOMER:(LOCAL:0):1 == 12
			CUSTOMER:(LOCAL:0):4 = 20
	;음란神父の資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 13
			CUSTOMER:(LOCAL:0):4 = 10
	;女体芸術家の資金力は+2
		SIF CUSTOMER:(LOCAL:0):1 == 14
			CUSTOMER:(LOCAL:0):4 = 20
	;狩猟者の資金力は+1
		SIF CUSTOMER:(LOCAL:0):1 == 15
			CUSTOMER:(LOCAL:0):4 = 10
	ENDIF
	;◎項目2,客の性別
	;90%의 確率で0,男、残りは1,女
	;特別な客の中で集団の客は2,男女
	;3,両性はいまのところナシ
	;4,その他は特別な客を想定
	LOCAL:1 = RAND:10
	SIF LOCAL:1 <= 8
		CUSTOMER:(LOCAL:0):2 = 0
	SIF LOCAL:1 == 9
		CUSTOMER:(LOCAL:0):2 = 1

	;◎項目3,客の接頭語
	;特別な客以外は接頭語がランダムで付与される
	;付与された接頭語によって嗜好に変化
	;1,陰気な　2,陽気な　3,セクハラ　4,기가셈な　5,気弱な　6,偉そうな（高慢な）　7,変態　8,ヲタクな　9,挙動不審　10,デブい
	;11,ヒョロい　12,ロリコン　13,真面目な　14,眼鏡の　15,イケメン（美人）　16,喪女　17,キチガイ　18,美しい　19,ムチムチ　20,怪しい
	;21,ヤバい　22,優しい　23,キモい　24,ニヤつく　25,不気味な　26,孤独な　27,洒落た　28,爽やかな　29,目の細い　30,迫力ある
	;31,可愛い　32,ダンディ　33,ハゲた　34,エロい　35,発情した　36,不思議な　37,츤데레　38,鬼畜　39,悪魔的　40,セクシー
	;41,へっぽこ　42,泣き虫　43,쿨함な　44,喧しい　45,切れ目の　46,温和な　47,ダークな　48,外道な　49,悪趣味な　50,倒錯した
	$SETTOU
	IF CUSTOMER:(LOCAL:0):0 == 6
		CUSTOMER:(LOCAL:0):3 = 0
	ELSE
		LOCAL:1 = RAND:50 + 1
		CUSTOMER:(LOCAL:0):3 = LOCAL:1
	ENDIF
	;気弱な客は横暴な客にならない
	SIF CUSTOMER:(LOCAL:0):3 == 5 && CUSTOMER:(LOCAL:0):0 == 4
		CUSTOMER:(LOCAL:0):0 = 1
	;デブな客は50%의 確率で불쾌な客に
	SIF CUSTOMER:(LOCAL:0):3 == 10 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 2
	;キチガイな客は50%의 確率で불쾌な客に
	SIF CUSTOMER:(LOCAL:0):3 == 10 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 2
	;イケメンな客は50%의 確率で普通の客に
	SIF CUSTOMER:(LOCAL:0):3 == 15 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 1
	;喪女は横暴な客にならない
	SIF CUSTOMER:(LOCAL:0):3 == 16 && CUSTOMER:(LOCAL:0):0 == 4
		CUSTOMER:(LOCAL:0):0 = 1
	;ヤバい客は50%의 確率で悪評を流す客に
	SIF CUSTOMER:(LOCAL:0):3 == 21 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 9
	;キモい客は50%의 確率で追加行為を要求する客に
	SIF CUSTOMER:(LOCAL:0):3 == 23 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 8
	;ニヤつく客は50%의 確率で値切る客に
	SIF CUSTOMER:(LOCAL:0):3 == 24 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 7
	;優しい客は50%의 確率で普通の客に
	SIF CUSTOMER:(LOCAL:0):3 == 22 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 1
	;迫力ある客は50%의 確率で横暴な客に
	SIF CUSTOMER:(LOCAL:0):3 == 30 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 4
	;ダンディな客は50%의 確率で普通の客に
	SIF CUSTOMER:(LOCAL:0):3 == 32 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 1
	;爽やかな客は50%의 確率で普通の客に
	SIF CUSTOMER:(LOCAL:0):3 == 28 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 1
	;へっぽこは金が少ない
	SIF CUSTOMER:(LOCAL:0):3 == 41
		CUSTOMER:(LOCAL:0):4 -= 10
	;温和な客は50%의 確率で普通の客に
	SIF CUSTOMER:(LOCAL:0):3 == 46 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 1
	;外道な客は50%의 確率で고통な客に
	SIF CUSTOMER:(LOCAL:0):3 == 48 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 5
	;悪趣味な客は50%의 確率で고통な客に
	SIF CUSTOMER:(LOCAL:0):3 == 49 && ( RAND:10 >= 6 )
		CUSTOMER:(LOCAL:0):0 = 5
	;喪所は男性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 16 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):3 == 16 && CUSTOMER:(LOCAL:0):2 == 4 )
		GOTO SETTOU
	;キモいは女性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 23 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 23 && CUSTOMER:(LOCAL:0):2 == 3 )
		GOTO SETTOU
	;ニヤつくは女性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 24 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 24 && CUSTOMER:(LOCAL:0):2 == 3 )
		GOTO SETTOU
	;可愛いは男性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 31 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):3 == 31 && CUSTOMER:(LOCAL:0):2 == 4 )
		GOTO SETTOU
	;ダンディは女性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 32 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 32 && CUSTOMER:(LOCAL:0):2 == 3 )
		GOTO SETTOU
	;ハゲは女性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 33 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 33 && CUSTOMER:(LOCAL:0):2 == 3 )
		GOTO SETTOU
	;セクシーは男性にはつかない
	SIF ( CUSTOMER:(LOCAL:0):3 == 40 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):3 == 40 && CUSTOMER:(LOCAL:0):2 == 4 )
		GOTO SETTOU
	;イケメン、美しい、優しい、洒落た、爽やか、可愛い、ダンディは불쾌な客にならない
	IF CUSTOMER:(LOCAL:0):3 == 15 ||  CUSTOMER:(LOCAL:0):3 == 18 || CUSTOMER:(LOCAL:0):3 == 22 || CUSTOMER:(LOCAL:0):3 == 27 || CUSTOMER:(LOCAL:0):3 == 28 || CUSTOMER:(LOCAL:0):3 == 31 || CUSTOMER:(LOCAL:0):3 == 32
		SIF CUSTOMER:(LOCAL:0):0 == 2
			CUSTOMER:(LOCAL:0):0 = 1
	ENDIF
	;性別最終決定
	;ここに来る段階ですでに9割男性であることに留意
	LOCAL:1 = RAND:10
	;主夫は90%女性
	SIF CUSTOMER:(LOCAL:0):1 == 6 && LOCAL:1 >= 1
		CUSTOMER:(LOCAL:0):2 = 1
	;ヤクザは80%男性
	SIF CUSTOMER:(LOCAL:0):1 == 7 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 0
	;モデルは80%女性
	SIF CUSTOMER:(LOCAL:0):1 == 10 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 1
	;ホストは80%女性
	SIF CUSTOMER:(LOCAL:0):1 == 11 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 1
	;教授は80%男性
	SIF CUSTOMER:(LOCAL:0):1 == 22 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 0
	;ダンサーは80%女性
	SIF CUSTOMER:(LOCAL:0):1 == 24 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 1
	;声優は80%女性
	SIF CUSTOMER:(LOCAL:0):1 == 26 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 1
	;大工は90%男性
	SIF CUSTOMER:(LOCAL:0):1 == 44 && LOCAL:1 >= 1
		CUSTOMER:(LOCAL:0):2 = 0
	;自衛官は90%男性
	SIF CUSTOMER:(LOCAL:0):1 == 50 && LOCAL:1 >= 1
		CUSTOMER:(LOCAL:0):2 = 0
	;僧侶は80%男性
	SIF CUSTOMER:(LOCAL:0):1 == 53 && LOCAL:1 >= 2
		CUSTOMER:(LOCAL:0):2 = 0
	;保育士は90%女性
	SIF CUSTOMER:(LOCAL:0):1 == 58 && LOCAL:1 >= 1
		CUSTOMER:(LOCAL:0):2 = 1
	;高級官僚は70%男性
	SIF CUSTOMER:(LOCAL:0):1 == 63 && LOCAL:1 >= 3
		CUSTOMER:(LOCAL:0):2 = 0
	;警察官は70%男性
	SIF CUSTOMER:(LOCAL:0):1 == 64 && LOCAL:1 >= 3
		CUSTOMER:(LOCAL:0):2 = 0
	;用務員は70%男性
	SIF CUSTOMER:(LOCAL:0):1 == 70 && LOCAL:1 >= 3
		CUSTOMER:(LOCAL:0):2 = 0
	;格闘家は70%男性
	SIF CUSTOMER:(LOCAL:0):1 == 71 && LOCAL:1 >= 3
		CUSTOMER:(LOCAL:0):2 = 0
	;戦闘員は70%男性
	SIF CUSTOMER:(LOCAL:0):1 == 73 && LOCAL:1 >= 3
		CUSTOMER:(LOCAL:0):2 = 0
	;女王様は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):2 = 1
	;キャバ嬢は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 40
		CUSTOMER:(LOCAL:0):2 = 1
	;巫女は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 51
		CUSTOMER:(LOCAL:0):2 = 1
	;메이드は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 59
		CUSTOMER:(LOCAL:0):2 = 1
	;アイドルは必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 61
		CUSTOMER:(LOCAL:0):2 = 1
	;창녀は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 62
		CUSTOMER:(LOCAL:0):2 = 1
	;海女は必ず女性
	SIF CUSTOMER:(LOCAL:0):1 == 66
		CUSTOMER:(LOCAL:0):2 = 1
	;おじさんは必ず男性
	SIF CUSTOMER:(LOCAL:0):1 == 74
		CUSTOMER:(LOCAL:0):2 = 0

	;女性は絶対に孕ませ好きの客にならない
	SIF CUSTOMER:(LOCAL:0):2 == 1 && CUSTOMER:(LOCAL:0):0 == 3
		CUSTOMER:(LOCAL:0):0 = 1
	;特別な客の設定
	;輪姦サークルは男女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):2 = 2
	;ガキどもは男女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):2 = 2
	;Ｃ・サイコレズは女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):2 = 1
	;山田さんは男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		CUSTOMER:(LOCAL:0):2 = 0
	;謎の集団は男女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):2 = 2
	;怪しげな宗教団体は男女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):2 = 2
	;暴走族の集団は男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):2 = 0
	;レディースの集団は女
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):2 = 1
	;薬物研究者はその他（薬に性別なし）
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):2 = 4
	;촉수の怪人はその他
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):2 = 4
	;大番長は男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):2 = 0
	;鬼医者は男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):2 = 0
	;女体芸術家は男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):2 = 0
	;狩猟者は男
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):2 = 0

	;@項目4,客の裕福度
	;10以下,文無し　11～20,超絶가난　21～30,激しく가난　31～40,가난　41～50,下流　51～60,上流　61～70,金持ち　71～80,大金持ち　81～90,富豪　91～,大富豪
	;7以上が頻出するとバランスが붕괴するので注意
	;80%で5-6,普通　10%で4,가난　10%で7,金持ち　それ以外は別の補正によるボーナスで到達
	LOCAL:1 = RAND:10
	IF LOCAL:1 == 9
		CUSTOMER:(LOCAL:0):4 += (56 + RAND:10)
	ELSEIF LOCAL:1 == 8
		CUSTOMER:(LOCAL:0):4 += (26 + RAND:10)
	ELSEIF LOCAL:1 >= 4
		CUSTOMER:(LOCAL:0):4 += (46 + RAND:10)
	ELSE
		CUSTOMER:(LOCAL:0):4 += (36 + RAND:10)
	ENDIF

	;◎項目5,客の初期満足度
	;初期値500～1500
	;不満な客は店の評判を下げる
	;客は好みで指名をして能力で満足を得る
	;好みが合わなければ不満を得るが、能力が低くても不満になる

	CUSTOMER:(LOCAL:0):5 = RAND:500 + 1000

	;◎項目6,客の来店頻度
	;10～15日おき
	;日数ごとに客は必ず来訪する
	;特別な客はさらに+10日
	;店の評判に応じてさらに増えたり減ったりする（-3～+3）

	CUSTOMER:(LOCAL:0):6 = RAND:5 + 10
	SIF CUSTOMER:(LOCAL:0):0 == 6
		 CUSTOMER:(LOCAL:0):6 += 10

	;◎項目7,客の来訪する日
	;（初期）その客の来店頻度の内部でランダム
	;何日後に客が来るか

	CUSTOMER:(LOCAL:0):7 = RAND:(CUSTOMER:(LOCAL:0):6) + 1

	;◎項目8,客の指名
	;その客が指名をするか
	;特別な客は必ず指名してくる
	;それ以外は職業や接頭語によって変動
	;0,指名しない　1,好みが合えば指名　2,必ず指名

	;おっさんは好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):8 = 1
	;浮浪者は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):1 == 2
		CUSTOMER:(LOCAL:0):8 = 1
	;ヤクザは好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):8 = 1
	;乞食は必ず指名
	SIF CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):8 = 2
	;ホストは好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):8 = 1
	;体育교사は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):8 = 1
	;デブい客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 10
		CUSTOMER:(LOCAL:0):8 = 1
	;ロリコン客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 12
		CUSTOMER:(LOCAL:0):8 = 1
	;キモい客は必ず指名
	SIF CUSTOMER:(LOCAL:0):3 == 23
		CUSTOMER:(LOCAL:0):8 = 2
	;ニヤつく客は必ず指名
	SIF CUSTOMER:(LOCAL:0):3 == 24
		CUSTOMER:(LOCAL:0):8 = 2
	;不気味な客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 25
		CUSTOMER:(LOCAL:0):8 = 1
	;孤独な客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 26
		CUSTOMER:(LOCAL:0):8 = 1
	;鬼畜な客は必ず指名
	SIF CUSTOMER:(LOCAL:0):3 == 38
		CUSTOMER:(LOCAL:0):8 = 2
	;悪魔的な客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 39
		CUSTOMER:(LOCAL:0):8 = 1
	;へっぽこ客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 41
		CUSTOMER:(LOCAL:0):8 = 1
	;喧しい客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 44
		CUSTOMER:(LOCAL:0):8 = 1
	;切れ目の客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 45
		CUSTOMER:(LOCAL:0):8 = 1
	;ダークな客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 46
		CUSTOMER:(LOCAL:0):8 = 1
	;外道な客は必ず指名
	SIF CUSTOMER:(LOCAL:0):3 == 48
		CUSTOMER:(LOCAL:0):8 = 2
	;倒錯した客は好みが合えば指名
	SIF CUSTOMER:(LOCAL:0):3 == 50
		CUSTOMER:(LOCAL:0):8 = 1

	;横暴な客は必ず指名（そして指名が通らなければ暴れる）
	SIF CUSTOMER:(LOCAL:0):0 == 4
		CUSTOMER:(LOCAL:0):8 = 2
	;고통な客は必ず指名（知り合い目当てでやってきている）
	SIF CUSTOMER:(LOCAL:0):0 == 5
		CUSTOMER:(LOCAL:0):8 = 2
	;特別な客は必ず指名
	SIF CUSTOMER:(LOCAL:0):0 == 6
		CUSTOMER:(LOCAL:0):8 = 2

	;◎項目9,客の出入りフラグ
	;客の退出フラグが立った時、+30を代入し新規客に-30を代入
	;一日おきに+1,-1,で0になった時に古い客は消え、新規客は項目7の値が減り始める
	;30日後に古い客が消え新しい客が来る
	;この値が正の数値であると客はいずれ消える

	;◎項目10,客の支払い金額
	;好みと裕福度で決定する

	;◎項目11,客の来店回数
	;イベント用にカウント

	;◎項目15,客の학력
	;◎項目16,客の운동능력
	;◎項目17,客の전투능력
	;◎項目18,客の감성
	;イベント用
	;ほとんど4～6　まれに3か7
	;職業で増減することがある
	;特別な客は個別に設定

	;학력
	LOCAL:1 = RAND:100
	IF LOCAL:1 <= 69
		CUSTOMER:(LOCAL:0):15 = RAND:3 + 4
	ELSE
		CUSTOMER:(LOCAL:0):15 = RAND:5 + 3
	ENDIF
	;真面目と眼鏡は학력+1
	SIF CUSTOMER:(LOCAL:0):3 == 13 || CUSTOMER:(LOCAL:0):3 == 14
		CUSTOMER:(LOCAL:0):15 += 1
	;教授は학력+2
	SIF CUSTOMER:(LOCAL:0):1 == 22
		CUSTOMER:(LOCAL:0):15 += 2
	;科学者は학력+1
	SIF CUSTOMER:(LOCAL:0):1 == 23
		CUSTOMER:(LOCAL:0):15 += 1
	;弁護士は학력+1
	SIF CUSTOMER:(LOCAL:0):1 == 31
		CUSTOMER:(LOCAL:0):15 += 1
	;司法書士は학력+1
	SIF CUSTOMER:(LOCAL:0):1 == 38
		CUSTOMER:(LOCAL:0):15 += 1
	;税理士は학력+1
	SIF CUSTOMER:(LOCAL:0):1 == 41
		CUSTOMER:(LOCAL:0):15 += 1
	;医師は학력+1
	SIF CUSTOMER:(LOCAL:0):1 == 55
		CUSTOMER:(LOCAL:0):15 += 1
	;天才は학력+3
	SIF CUSTOMER:(LOCAL:0):1 == 72
		CUSTOMER:(LOCAL:0):15 += 3

	;운동능력
	LOCAL:1 = RAND:100
	IF LOCAL:1 <= 69
		CUSTOMER:(LOCAL:0):16 = RAND:3 + 4
	ELSE
		CUSTOMER:(LOCAL:0):16 = RAND:5 + 3
	ENDIF
	;体育교사は운동능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):16 += 1
	;ダンサーは운동능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 24
		CUSTOMER:(LOCAL:0):16 += 1
	;騎손は운동능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 27
		CUSTOMER:(LOCAL:0):16 += 1
	;自衛官は운동능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 50
		CUSTOMER:(LOCAL:0):16 += 1
	;格闘家は운동능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 71
		CUSTOMER:(LOCAL:0):16 += 1

	;전투능력
	LOCAL:1 = RAND:100
	IF LOCAL:1 <= 69
		CUSTOMER:(LOCAL:0):17 = RAND:3 + 4
	ELSE
		CUSTOMER:(LOCAL:0):17 = RAND:5 + 3
	ENDIF
	;불량とヤクザは전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 4 || CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):17 += 1
	;警備員は전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 37
		CUSTOMER:(LOCAL:0):17 += 1
	;自衛官は전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 50
		CUSTOMER:(LOCAL:0):17 += 1
	;ゲリラは전투능력+2
	SIF CUSTOMER:(LOCAL:0):1 == 56
		CUSTOMER:(LOCAL:0):17 += 2
	;警察官は전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 64
		CUSTOMER:(LOCAL:0):17 += 1
	;닌자は전투능력+2
	SIF CUSTOMER:(LOCAL:0):1 == 68
		CUSTOMER:(LOCAL:0):17 += 2
	;レスラーは전투능력+2
	SIF CUSTOMER:(LOCAL:0):1 == 67
		CUSTOMER:(LOCAL:0):17 += 2
	;格闘家は전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 71
		CUSTOMER:(LOCAL:0):17 += 1
	;戦闘員は전투능력+1
	SIF CUSTOMER:(LOCAL:0):1 == 73
		CUSTOMER:(LOCAL:0):17 += 1

	;감성
	LOCAL:1 = RAND:100
	IF LOCAL:1 <= 69
		CUSTOMER:(LOCAL:0):18 = RAND:3 + 4
	ELSE
		CUSTOMER:(LOCAL:0):18 = RAND:5 + 3
	ENDIF

	;モデルは감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):18 += 1
	;ヲタクか喪女は감성-1
	SIF CUSTOMER:(LOCAL:0):3 == 8 || CUSTOMER:(LOCAL:0):3 == 16
		CUSTOMER:(LOCAL:0):18 -= 1
	;イケメンは감성+1
	SIF CUSTOMER:(LOCAL:0):3 == 15
		CUSTOMER:(LOCAL:0):18 += 1
	;作曲家は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 18
		CUSTOMER:(LOCAL:0):18 += 1
	;俳優は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 20
		CUSTOMER:(LOCAL:0):18 += 1
	;ダンサーは감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 24
		CUSTOMER:(LOCAL:0):18 += 1
	;画家は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 34
		CUSTOMER:(LOCAL:0):18 += 1
	;占い師は감성+2
	SIF CUSTOMER:(LOCAL:0):1 == 36
		CUSTOMER:(LOCAL:0):18 += 2
	;巫女は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 51
		CUSTOMER:(LOCAL:0):18 += 1
	;神父は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 52
		CUSTOMER:(LOCAL:0):18 += 1
	;僧侶は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 53
		CUSTOMER:(LOCAL:0):18 += 1
	;메이드は감성+1
	SIF CUSTOMER:(LOCAL:0):1 == 59
		CUSTOMER:(LOCAL:0):18 += 1
	;アイドルは감성+2
	SIF CUSTOMER:(LOCAL:0):1 == 61
		CUSTOMER:(LOCAL:0):18 += 1

	;特別な客

	;輪姦サークル ALL+1
	IF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):15 += 1
		CUSTOMER:(LOCAL:0):16 += 1
		CUSTOMER:(LOCAL:0):17 += 1
		CUSTOMER:(LOCAL:0):18 += 1
	;ガキども ALL4
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):15 = 4
		CUSTOMER:(LOCAL:0):16 = 4
		CUSTOMER:(LOCAL:0):17 = 4
		CUSTOMER:(LOCAL:0):18 = 4
	;高級セレブ 학력運動戦闘감성のどれかが8
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
		LOCAL:1 = RAND:4
		IF LOCAL:1 == 0
			CUSTOMER:(LOCAL:0):15 = 8
		ELSEIF LOCAL:1 == 1
			CUSTOMER:(LOCAL:0):16 = 8
		ELSEIF LOCAL:1 == 2
			CUSTOMER:(LOCAL:0):17 = 8
		ELSEIF LOCAL:1 == 3
			CUSTOMER:(LOCAL:0):18 = 8
		ENDIF
	;Ｃ・サイコレズ ALL +1
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):15 += 1
		CUSTOMER:(LOCAL:0):16 += 1
		CUSTOMER:(LOCAL:0):17 += 1
		CUSTOMER:(LOCAL:0):18 += 1
	;山田さん 학력5 운동능력3 戦闘力7 감성 1
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		CUSTOMER:(LOCAL:0):15 = 5
		CUSTOMER:(LOCAL:0):16 = 3
		CUSTOMER:(LOCAL:0):17 = 7
		CUSTOMER:(LOCAL:0):18 = 1
	;謎の集団 ALL8
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):15 = 8
		CUSTOMER:(LOCAL:0):16 = 8
		CUSTOMER:(LOCAL:0):17 = 8
		CUSTOMER:(LOCAL:0):18 = 8
	;怪しげな宗教団体 학력8 운동능력6 戦闘力 6 감성5
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):15 = 8
		CUSTOMER:(LOCAL:0):16 = 6
		CUSTOMER:(LOCAL:0):17 = 6
		CUSTOMER:(LOCAL:0):18 = 5
	;暴走族の集団 학력-1 운동능력+1 戦闘力 +2
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):15 -= 1
		CUSTOMER:(LOCAL:0):16 += 1
		CUSTOMER:(LOCAL:0):17 += 2
	;レディースの集団 학력-1 戦闘力 +2 감성 +1
	 ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):15 -= 1
		CUSTOMER:(LOCAL:0):17 += 2
		CUSTOMER:(LOCAL:0):18 += 1
	;薬物研究者 학력+2 戦闘力 +1
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):15 += 2
		CUSTOMER:(LOCAL:0):17 += 1
	;촉수の怪人 학력-2 운동능력+2 戦闘力+2 감성-2
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):15 -= 2
		CUSTOMER:(LOCAL:0):16 += 2
		CUSTOMER:(LOCAL:0):17 += 2
		CUSTOMER:(LOCAL:0):18 -= 2
	;大番長 학력5 운동능력9 戦闘力9 감성4
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):15 = 5
		CUSTOMER:(LOCAL:0):16 = 9
		CUSTOMER:(LOCAL:0):17 = 9
		CUSTOMER:(LOCAL:0):18 = 4
	;鬼医者 학력9 운동능력4 戦闘力6 감성6
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):15 = 9
		CUSTOMER:(LOCAL:0):16 = 4
		CUSTOMER:(LOCAL:0):17 = 6
		CUSTOMER:(LOCAL:0):18 = 6
	;性職者 학력+1 戦闘力-1 감성+2
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):15 += 1
		CUSTOMER:(LOCAL:0):17 -= 1
		CUSTOMER:(LOCAL:0):18 += 2
	;女体芸術家 감성+3
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):18 += 3
	;狩猟者 학력7 운동능력10 戦闘力9 감성4
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):15 = 7
		CUSTOMER:(LOCAL:0):16 = 10
		CUSTOMER:(LOCAL:0):17 = 9
		CUSTOMER:(LOCAL:0):18 = 4
	ENDIF

	;◎項目21,가슴の嗜好
	;-1,評価なし,0,절벽　1,빈유　2,普通　3,거유　4,폭유
	;30%의 確率で거유、25%で普通、20%で폭유、15%で빈유、10%で절벽
	;やはり거유が有利か
	;客の好みに大きめのボーナス
	;上下に一つ外れてもプラス、二つ外れるとマイナス
	LOCAL:1 = RAND:100
	IF LOCAL:1 >= 70
		CUSTOMER:(LOCAL:0):21 = 3
	ELSEIF LOCAL:1 >= 45
		CUSTOMER:(LOCAL:0):21 = 2
	ELSEIF LOCAL:1 >= 25
		CUSTOMER:(LOCAL:0):21 = 4
	ELSEIF LOCAL:1 >= 10
		CUSTOMER:(LOCAL:0):21 = 1
	ELSE
		CUSTOMER:(LOCAL:0):21 = 0
	ENDIF

	;◎項目22,髪色の嗜好1
	;◎項目23,髪色の嗜好2
	;好みにボーナス
	;完全にランダムで２つ設定、重複あり
	;0,栗　1,黒　2,灰　3,白　4,銀　5,水　6,青　7,緑　8,紫　9,ピンク　10,赤　11,金
	LOCAL:1 = RAND:12
	CUSTOMER:(LOCAL:0):22 = LOCAL:1
	LOCAL:1 = RAND:12
	CUSTOMER:(LOCAL:0):23 = LOCAL:1

	;◎項目24,髪型の嗜好1
	;◎項目25,髪型の嗜好2
	;◎項目26,髪型の嗜好3
	;◎項目27,髪型の嗜好4
	;◎項目28,髪型の嗜好5
	;好みにボーナス
	;完全にランダムで５つ設定、重複あり
	;0,장발　1,세미롱　2,숏컷　3,포니테일　4,트윈테일　5,사이드테일　6,세로롤　7,트윈링　8,댕기머리　9,단발
	;10,땋은머리　11,퐁파두르　12,포니업　13,사이드다운　14,만두머리　15,투사이드업　16,더블포니　17,가로롤　18,정리한머리　19,보브컷
	;20,시뇽　21,롱헤어
	LOCAL:1 = RAND:21
	CUSTOMER:(LOCAL:0):24 = LOCAL:1
	LOCAL:1 = RAND:21
	CUSTOMER:(LOCAL:0):25 = LOCAL:1
	LOCAL:1 = RAND:21
	CUSTOMER:(LOCAL:0):26 = LOCAL:1
	LOCAL:1 = RAND:21
	CUSTOMER:(LOCAL:0):27 = LOCAL:1
	LOCAL:1 = RAND:21
	CUSTOMER:(LOCAL:0):28 = LOCAL:1

	;◎項目29,立場の嗜好
	;0,초등학생　1,중학생　2,고등학생　3,대학생　4,교사　5,사회인（それ以外）
	;好みに大きな影響
	;基本はランダム
	;上下一つ外れてもプラス、二つ外れるとマイナス
	LOCAL:1 = RAND:6
	CUSTOMER:(LOCAL:0):29 = LOCAL:1

	;接頭語[ロリコン]は強制的に초등학생が好みになる
	SIF CUSTOMER:(LOCAL:0):3 == 12
		CUSTOMER:(LOCAL:0):29 = 0

	;초등학생、중학생好みの場合は가슴の嗜好を再設定
	;ロリコンはちっぱいが好み
	IF CUSTOMER:(LOCAL:0):29 == 0
		;초등학생好きは30%의 確率で절벽好き、25%의 確率で빈유好き、20%의 確率で普通好き、15%의 確率で거유好き、10%의 確率で폭유好き
		LOCAL:1 = RAND:100
		IF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):21 = 0
		ELSEIF LOCAL:1 >= 45
			CUSTOMER:(LOCAL:0):21 = 1
		ELSEIF LOCAL:1 >= 25
			CUSTOMER:(LOCAL:0):21 = 2
		ELSEIF LOCAL:1 >= 10
			CUSTOMER:(LOCAL:0):21 = 3
		ELSE
			CUSTOMER:(LOCAL:0):21 = 4
		ENDIF
	ELSEIF CUSTOMER:(LOCAL:0):29 == 1
		;중학생好きは30%의 確率で빈유好き、25%의 確率で普通好き、20%의 確率で절벽好き、15%의 確率で거유好き、10%의 確率で폭유好き
		LOCAL:1 = RAND:100
		IF LOCAL:1 >= 70
			CUSTOMER:(LOCAL:0):21 = 1
		ELSEIF LOCAL:1 >= 45
			CUSTOMER:(LOCAL:0):21 = 2
		ELSEIF LOCAL:1 >= 25
			CUSTOMER:(LOCAL:0):21 = 0
		ELSEIF LOCAL:1 >= 10
			CUSTOMER:(LOCAL:0):21 = 3
		ELSE
			CUSTOMER:(LOCAL:0):21 = 4
		ENDIF
	ENDIF

	;◎項目30,魅力の嗜好1
	;◎項目31,魅力の嗜好2
	;0,청초　1,쾌활　2,색기　3,어린애같음　4,쿨함　5,기가셈　6,무기력　7,보이쉬　8,천연　9,치유계　10,음험　11,전파계　12,애교　13,무뚝뚝함
	;好みに大きめの影響
	;完全にランダム
	LOCAL:1 = RAND:14
	CUSTOMER:(LOCAL:0):30 = LOCAL:1
	LOCAL:1 = RAND:14
	CUSTOMER:(LOCAL:0):31 = LOCAL:1

	;◎項目32,特徴の嗜好1
	;0,영애好き　1,외국인好き　2,남편있음好き　3,연예인好き　4,프린세스好き　5,메이드好き
	;メジャーなキャラ属性に対する好み
	;好みに影響
	;完全ランダム
	LOCAL:1 = RAND:6
	CUSTOMER:(LOCAL:0):32 = LOCAL:1

	;◎項目33,特徴の嗜好2
	;0,가난好き　1,불량好き　2,우등생好き　3,멋쟁이好き　4,유명인好き　5,眼鏡っ娘好き
	;キャラの雰囲気に係る属性への好み
	;好みに影響
	;完全ランダム
	LOCAL:1 = RAND:6
	CUSTOMER:(LOCAL:0):33 = LOCAL:1

	;◎項目34,特徴の嗜好3
	;0,학생회장好き　1,성직자好き　2,오타쿠취미好き　3,AV녀好き　4,로봇소녀好き　5,고고함好き
	;比較的マニアックな属性への好み
	;好みに影響
	;完全ランダム
	LOCAL:1 = RAND:6
	CUSTOMER:(LOCAL:0):34 = LOCAL:1

	;◎項目35,客の性癖1
	;0,奉仕　1,노출　2,새드　3,마조
	;客の基本的プレイへの満足度
	;これらの能力が高い奴隷をあてがうと満足度が大きく上がる
	;基本ランダム
	LOCAL:1 = RAND:4
	CUSTOMER:(LOCAL:0):35 = LOCAL:1

	;アイドルは노출好き（させる側だけど…）
	SIF CUSTOMER:(LOCAL:0):1 == 62
		CUSTOMER:(LOCAL:0):35 = 1
	;女王様は새드
	SIF CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):35 = 2
	;ガキどもは노출
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):35 = 1
	;高級セレブは노출
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
		CUSTOMER:(LOCAL:0):35 = 1
	;Ｃサイコレズは노출
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):35 = 1
	;レディースの集団は새드
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):35 = 2
	;性職者は奉仕
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):35 = 0
	;謎の集団は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;怪しげな宗教団体は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;薬物研究者は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;촉수の怪人は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;鬼医者は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;女体芸術家は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):35 = RAND:3
	;狩猟者は마조にならない
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):35 = RAND:3

	;◎項目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
	;客のＣＶＡＢの開発具合に対する満足度
	;0～5,Ｃ優先　6～11,Ｖ優先　12～17,Ａ優先　18～23,Ｂ優先
	;優先順位が高いほど開発されていると満足する
	;基本ランダム
	LOCAL:1 = RAND:24
	CUSTOMER:(LOCAL:0):36 = LOCAL:1

	SIF LOCAL:0 == 0
		CUSTOMER:(LOCAL:0):36 = -1
	;◎項目37,客の性癖3
	;0,ノーマル　1,同性愛　2,바이
	;客の性別に対する姿勢
	;ノーマル、レズ（ホモ）、バイ
	;ノーマル以外の客は、레즈끼、레즈중독、호모끼、게이중독を重視する
	;客の性別が男なら0か2のみ、客の性別が女なら1か2のみ（女の子優先主義）
	;男の客はノーマル率85%、バイ率15%
	;女の客はレズ率50%、バイ率50%
	;両性（후타나리？）はバイ100%
	;その他（촉수など）はノーマル
	;ここ男性客用の店なので、来る女も男は求めてないだろう的な…
	LOCAL:1 = RAND:100
	IF LOCAL:1 >= 15 && ( CUSTOMER:(LOCAL:0):2 == 0 )
		CUSTOMER:(LOCAL:0):37 = 0
	ELSEIF LOCAL:1 < 15 && ( CUSTOMER:(LOCAL:0):2 == 0 )
		CUSTOMER:(LOCAL:0):37 = 2
	ELSEIF LOCAL:1 >= 50 && ( CUSTOMER:(LOCAL:0):2 == 1 )
		CUSTOMER:(LOCAL:0):37 = 1
	ELSEIF LOCAL:1 < 50 && ( CUSTOMER:(LOCAL:0):2 == 1 )
		CUSTOMER:(LOCAL:0):37 = 2
	ELSE
		CUSTOMER:(LOCAL:0):37 = 0
	ENDIF

	;◎項目38,客の性癖4
	;0,セックス　1,자위　2,母乳　3,精液
	;客の中毒に対する満足度
	;各種中毒が高いと満足度が増す
	;基本ランダム
	LOCAL:1 = RAND:4
	CUSTOMER:(LOCAL:0):38 = LOCAL:1

	;女性客は絶対に精液好きにはならない
	SIF CUSTOMER:(LOCAL:0):2 == 1 && CUSTOMER:(LOCAL:0):38 == 3
		CUSTOMER:(LOCAL:0):38 = RAND:3
	;輪姦サークルはセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):38 = 0
	;高級セレブは자위
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):38 = 1
	;Ｃサイコレズはセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):38 = 0
	;山田さんは精液
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		CUSTOMER:(LOCAL:0):38 = 3
	;怪しげな宗教団体はセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):38 = 0
	;暴走族の集団はセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):38 = 0
	;レディースの集団は자위
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):38 = 1
	;촉수の怪人はセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):38 = 0
	;性職者は母乳
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):38 = 2
	;狩猟者はセックス
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):38 = 0

	;＠項目39,客の行為回数
	;標準3回　一回につき체력100消耗が基本
	;追加行為を要求する客は+2
	;個別に設定する客はここで設定
	CUSTOMER:(LOCAL:0):39 = 3
	SIF CUSTOMER:(LOCAL:0):0 == 8
		CUSTOMER:(LOCAL:0):39 += 2
	;特別な客の行為回数
	;輪姦サークルは18
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):39 = 18
	;ガキどもは2
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):39 = 2
	;高級セレブは5
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
		CUSTOMER:(LOCAL:0):39 = 5
	;Ｃサイコレズは4
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):39 = 4
	;山田さんは8
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		CUSTOMER:(LOCAL:0):39 = 8
	;謎の集団は0
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):39 = 0
	;怪しげな宗教団体は10
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):39 = 10
	;暴走族の集団は25
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):39 = 25
	;レディースの集団は17
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):39 = 17
	;薬物研究者は0
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):39 = 0
	;촉수の怪人は10
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):39 = 10
	;大番長は6
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):39 = 6
	;鬼医者は0
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):39 = 0
	;性職者は0
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):39 = 0
	;女体芸術家は0
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):39 = 0
	;狩猟者は5
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):39 = 5

	;＠項目40,プレイのハードさ
	;ハードな客ほど消耗が増える
	;消耗はノーマルで100%、ソフトは60%、ハードは130%、変態は160%
	;ノーマルが50%、ソフトとハードが20%、変態が10%
	;　0,ソフト　1,ノーマル　2,ハード　3,変態
	LOCAL:1 = RAND:100
	IF LOCAL:1 >= 50
		CUSTOMER:(LOCAL:0):40 = 1
	ELSEIF LOCAL:1 >= 30
		CUSTOMER:(LOCAL:0):40 = 0
	ELSEIF LOCAL:1 >= 10
		CUSTOMER:(LOCAL:0):40 = 2
	ELSE
		CUSTOMER:(LOCAL:0):40 = 3
	ENDIF
	;変態は+1
	SIF CUSTOMER:(LOCAL:0):3 == 7
		CUSTOMER:(LOCAL:0):40 += 1
	;優しいは-1
	SIF CUSTOMER:(LOCAL:0):3 == 22
		CUSTOMER:(LOCAL:0):40 -= 1
	;鬼畜は+1
	SIF CUSTOMER:(LOCAL:0):3 == 38
		CUSTOMER:(LOCAL:0):40 += 1
	;悪魔的は+1
	SIF CUSTOMER:(LOCAL:0):3 == 39
		CUSTOMER:(LOCAL:0):40 += 1
	;へっぽこは-1
	SIF CUSTOMER:(LOCAL:0):3 == 41
		CUSTOMER:(LOCAL:0):40 -= 1
	;温和は-1
	SIF CUSTOMER:(LOCAL:0):3 == 46
		CUSTOMER:(LOCAL:0):40 -= 1
	;外道は+1
	SIF CUSTOMER:(LOCAL:0):3 == 48
		CUSTOMER:(LOCAL:0):40 += 1
	;悪趣味は+1
	SIF CUSTOMER:(LOCAL:0):3 == 49
		CUSTOMER:(LOCAL:0):40 += 1
	;倒錯は+1
	SIF CUSTOMER:(LOCAL:0):3 == 50
		CUSTOMER:(LOCAL:0):40 += 1
	;女王様は+1
	SIF CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):40 += 1
	;輪姦サークルはノーマル
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):40 = 1
	;ガキどもははノーマル
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 1
		CUSTOMER:(LOCAL:0):40 = 1
	;高級セレブは変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
		CUSTOMER:(LOCAL:0):40 = 3
	;Ｃサイコレズは変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):40 = 3
	;山田さんは変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 4
		CUSTOMER:(LOCAL:0):40 = 3
	;謎の集団は変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):40 = 3
	;怪しげな宗教団体はノーマル
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):40 = 1
	;暴走族の集団はハード
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):40 = 2
	;レディースの集団は変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):40 = 3
	;薬物研究者は変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):40 = 3
	;촉수の怪人はハード
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):40 = 2
	;大番長はノーマル
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 11
		CUSTOMER:(LOCAL:0):40 = 1
	;鬼医者は変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):40 = 3
	;性職者はノーマル
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):40 = 1
	;女体芸術家は変態的
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):40 = 3
	;狩猟者はハード
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):40 = 5

	;◎項目61　불쾌な客の性質
	;0,불결　1,醜悪　2,馬並
	LOCAL:1 = RAND:3
	SIF CUSTOMER:(LOCAL:0):0 == 2
		CUSTOMER:(LOCAL:0):61 = LOCAL:1
	;女性が馬並になった場合はやり直す
	IF CUSTOMER:(LOCAL:0):61 == 2 && CUSTOMER:(LOCAL:0):2 == 1
		LOCAL:1 = RAND:2
		CUSTOMER:(LOCAL:0):61 = LOCAL:1
	ENDIF

	;馬並はＶかＡ好みに、ハードさ＋１
	LOCAL:1 = RAND:12 + 6
	SIF CUSTOMER:(LOCAL:0):0 == 2 && CUSTOMER:(LOCAL:0):61 == 2
		CUSTOMER:(LOCAL:0):36 = LOCAL:1
	SIF CUSTOMER:(LOCAL:0):0 == 2 && CUSTOMER:(LOCAL:0):61 == 2
		CUSTOMER:(LOCAL:0):40 += 1

	;◎項目62　고통な客の性質
	;0,近親者　1,知人　2,ストーカー
	;同率だと近親者率とストーカー率が高すぎるので近親者とストーカーを1/10に設定
	LOCAL:1 = RAND:10
	IF CUSTOMER:(LOCAL:0):0 == 5
		IF LOCAL:1 == 0
			CUSTOMER:(LOCAL:0):62 = 0
		ELSEIF LOCAL:1 == 1
			CUSTOMER:(LOCAL:0):62 = 2
		ELSE
			CUSTOMER:(LOCAL:0):62 = 1
		ENDIF
	ENDIF
	;Ｃサイコレズは必ずストーカー
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):62 = 2

	;ハードさが0以下は0にする
	SIF CUSTOMER:(LOCAL:0):40 <= 0
		CUSTOMER:(LOCAL:0):40 = 0
	;ハードさが3以上は3にする
	SIF CUSTOMER:(LOCAL:0):40 >= 3
		CUSTOMER:(LOCAL:0):40 = 3

	;◎項目63　連れ去る客の日数（現状特別な客のみの判定）
	;輪姦サークルは1日（つまりすぐに帰ってくる）
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 0
		CUSTOMER:(LOCAL:0):63 = 1
	;高級セレブは4日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 2
		CUSTOMER:(LOCAL:0):63 = 4
	;Ｃ・サイコレズは4日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 3
		CUSTOMER:(LOCAL:0):63 = 4
	;謎の集団は4日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 5
		CUSTOMER:(LOCAL:0):63 = 4
	;怪しげな宗教団体は8日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 6
		CUSTOMER:(LOCAL:0):63 = 8
	;暴走族の集団は1日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 7
		CUSTOMER:(LOCAL:0):63 = 1
	;レディースの集団は1日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 8
		CUSTOMER:(LOCAL:0):63 = 1
	;薬物研究者は4日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 9
		CUSTOMER:(LOCAL:0):63 = 4
	;촉수の怪人は8日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 10
		CUSTOMER:(LOCAL:0):63 = 8
	;鬼医者は6日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 12
		CUSTOMER:(LOCAL:0):63 = 6
	;性職者は2日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 13
		CUSTOMER:(LOCAL:0):63 = 2
	;女体芸術家は8日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 14
		CUSTOMER:(LOCAL:0):63 = 8
	;狩猟者は8日
	SIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):1 == 15
		CUSTOMER:(LOCAL:0):63 = 8

	;◎客の名前を文字変数CUSTOMERNAMEに代入
	;職業
	;1,客の職業　0,会社員(ＯＬ）　1,おっさん（お姉さん）　2,浮浪者　3,学生　4,불량　5,ニート　6,主夫(주부)　7,ヤクザ　8,社長　9,乞食　10,モデル
	;　11,ホスト　12,女王様　13,教頭　14,校長　15,体育교사　16,외국인
	;特別な客
	;　0,輪姦サークル　1,ガキども　2,高級セレブ　3,Ｃ・サイコレズ　4,山田さん　5,謎の集団　6,怪しげな宗教団体
	;　7,暴走族の集団　8,レディースの集団　9,薬物研究者　10,촉수の怪人　11,大番長　12,鬼医者　13,性職者（神官、シスター）　14,女体芸術家・Ｋ
	;　15,狩猟者・Ｙ
	;2,性別
	;　0,男　1,女　2,男女　3,両性　4,その他
	;3,接頭語
	;　1,陰気な　2,陽気な　3,セクハラ　4,기가셈な　5,気弱な　6,偉そうな（高慢な）　7,変態　8,ヲタクな　9,挙動不審　10,デブい
	;　11,ヒョロい　12,ロリコン　13,真面目な　14,眼鏡の　15,イケメン（美人）　16,喪女　17,キチガイ　18,美しい　19,ムチムチ　20,怪しい
	;　21,ヤバい　22,優しい　23,キモい　24,ニヤつく　25,不気味な　26,孤独な　27,洒落た　28,爽やかな　29,目の細い　30,迫力ある
	;　31,可愛い　32,ダンディ　33,ハゲた

	IF CUSTOMER:(LOCAL:0):0 != 6
		IF ( CUSTOMER:(LOCAL:0):1 == 0 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 0 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 会社員
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 0 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 0 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = ＯＬ
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 1 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 1 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = おっさん
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 1 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 1 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = お姉さん
		ELSEIF CUSTOMER:(LOCAL:0):1 == 2
			CUSTOMERNAME1:(LOCAL:0) = 浮浪者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 3
			CUSTOMERNAME1:(LOCAL:0) = 同級生
		ELSEIF CUSTOMER:(LOCAL:0):1 == 4
			CUSTOMERNAME1:(LOCAL:0) = 불량
		ELSEIF CUSTOMER:(LOCAL:0):1 == 5
			CUSTOMERNAME1:(LOCAL:0) = ニート
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 6 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 6 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 主夫
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 6 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 6 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 주부
		ELSEIF CUSTOMER:(LOCAL:0):1 == 7
			CUSTOMERNAME1:(LOCAL:0) = ヤクザ
		ELSEIF CUSTOMER:(LOCAL:0):1 == 8
			CUSTOMERNAME1:(LOCAL:0) = 社長
		ELSEIF CUSTOMER:(LOCAL:0):1 == 9
			CUSTOMERNAME1:(LOCAL:0) = 乞食
		ELSEIF CUSTOMER:(LOCAL:0):1 == 10
			CUSTOMERNAME1:(LOCAL:0) = モデル
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 11 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 11 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = ホスト
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 11 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 11 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = ホステス
		ELSEIF CUSTOMER:(LOCAL:0):1 == 12
			CUSTOMERNAME1:(LOCAL:0) = 女王様
		ELSEIF CUSTOMER:(LOCAL:0):1 == 13
			CUSTOMERNAME1:(LOCAL:0) = 教頭
		ELSEIF CUSTOMER:(LOCAL:0):1 == 14
			CUSTOMERNAME1:(LOCAL:0) = 校長
		ELSEIF CUSTOMER:(LOCAL:0):1 == 15
			CUSTOMERNAME1:(LOCAL:0) = 体育교사
		ELSEIF CUSTOMER:(LOCAL:0):1 == 16
			CUSTOMERNAME1:(LOCAL:0) = 외국인
		ELSEIF CUSTOMER:(LOCAL:0):1 == 17
			CUSTOMERNAME1:(LOCAL:0) = 小説家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 18
			CUSTOMERNAME1:(LOCAL:0) = 作曲家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 19
			CUSTOMERNAME1:(LOCAL:0) = 연예인
		ELSEIF CUSTOMER:(LOCAL:0):1 == 20
			CUSTOMERNAME1:(LOCAL:0) = 俳優
		ELSEIF CUSTOMER:(LOCAL:0):1 == 21
			CUSTOMERNAME1:(LOCAL:0) = 評論家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 22
			CUSTOMERNAME1:(LOCAL:0) = 教授
		ELSEIF CUSTOMER:(LOCAL:0):1 == 23
			CUSTOMERNAME1:(LOCAL:0) = 科学者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 24
			CUSTOMERNAME1:(LOCAL:0) = ダンサー
		ELSEIF CUSTOMER:(LOCAL:0):1 == 25
			CUSTOMERNAME1:(LOCAL:0) = 記者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 26
			CUSTOMERNAME1:(LOCAL:0) = 声優
		ELSEIF CUSTOMER:(LOCAL:0):1 == 27
			CUSTOMERNAME1:(LOCAL:0) = 騎손
		ELSEIF CUSTOMER:(LOCAL:0):1 == 28
			CUSTOMERNAME1:(LOCAL:0) = 飛行士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 29
			CUSTOMERNAME1:(LOCAL:0) = 理容師
		ELSEIF CUSTOMER:(LOCAL:0):1 == 30
			CUSTOMERNAME1:(LOCAL:0) = 調교사
		ELSEIF CUSTOMER:(LOCAL:0):1 == 31
			CUSTOMERNAME1:(LOCAL:0) = 弁護士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 32
			CUSTOMERNAME1:(LOCAL:0) = 演出家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 33
			CUSTOMERNAME1:(LOCAL:0) = 漫画家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 34
			CUSTOMERNAME1:(LOCAL:0) = 画家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 35
			CUSTOMERNAME1:(LOCAL:0) = 作家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 36
			CUSTOMERNAME1:(LOCAL:0) = 占い師
		ELSEIF CUSTOMER:(LOCAL:0):1 == 37
			CUSTOMERNAME1:(LOCAL:0) = 警備員
		ELSEIF CUSTOMER:(LOCAL:0):1 == 38
			CUSTOMERNAME1:(LOCAL:0) = 司法書士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 39
			CUSTOMERNAME1:(LOCAL:0) = 政治家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 40
			CUSTOMERNAME1:(LOCAL:0) = キャバ嬢
		ELSEIF CUSTOMER:(LOCAL:0):1 == 41
			CUSTOMERNAME1:(LOCAL:0) = 税理士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 42
			CUSTOMERNAME1:(LOCAL:0) = 美容師
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 43 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 43 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 棋士
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 43 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 43 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 女流棋士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 44
			CUSTOMERNAME1:(LOCAL:0) = 大工
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 45 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 45 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 교사
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 45 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 45 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 女교사
		ELSEIF CUSTOMER:(LOCAL:0):1 == 46
			CUSTOMERNAME1:(LOCAL:0) = 초등학생
		ELSEIF CUSTOMER:(LOCAL:0):1 == 47
			CUSTOMERNAME1:(LOCAL:0) = 중학생
		ELSEIF CUSTOMER:(LOCAL:0):1 == 48
			CUSTOMERNAME1:(LOCAL:0) = 고등학생
		ELSEIF CUSTOMER:(LOCAL:0):1 == 49
			CUSTOMERNAME1:(LOCAL:0) = 대학생
		ELSEIF CUSTOMER:(LOCAL:0):1 == 50
			CUSTOMERNAME1:(LOCAL:0) = 自衛官
		ELSEIF CUSTOMER:(LOCAL:0):1 == 51
			CUSTOMERNAME1:(LOCAL:0) = 巫女
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 52 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 52 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 神父
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 52 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 52 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = シスター
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 53 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 53 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 僧侶
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 53 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 53 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 尼僧
		ELSEIF CUSTOMER:(LOCAL:0):1 == 54
			CUSTOMERNAME1:(LOCAL:0) = 脚本家
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 55 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 55 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 医師
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 55 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 55 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 女医
		ELSEIF CUSTOMER:(LOCAL:0):1 == 56
			CUSTOMERNAME1:(LOCAL:0) = ゲリラ
		ELSEIF CUSTOMER:(LOCAL:0):1 == 57
			CUSTOMERNAME1:(LOCAL:0) = 詩人
		ELSEIF CUSTOMER:(LOCAL:0):1 == 58
			CUSTOMERNAME1:(LOCAL:0) = 保育士
		ELSEIF CUSTOMER:(LOCAL:0):1 == 59
			CUSTOMERNAME1:(LOCAL:0) = 메이드
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 60 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 60 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = ＡＶ男優
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 60 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 60 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = ＡＶ女優
		ELSEIF CUSTOMER:(LOCAL:0):1 == 61
			CUSTOMERNAME1:(LOCAL:0) = アイドル
		ELSEIF CUSTOMER:(LOCAL:0):1 == 62
			CUSTOMERNAME1:(LOCAL:0) = 창녀
		ELSEIF CUSTOMER:(LOCAL:0):1 == 63
			CUSTOMERNAME1:(LOCAL:0) = 高級官僚
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 64 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 64 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 警察官
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 64 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 64 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = 婦警
		ELSEIF CUSTOMER:(LOCAL:0):1 == 65
			CUSTOMERNAME1:(LOCAL:0) = 調理師
		ELSEIF CUSTOMER:(LOCAL:0):1 == 66
			CUSTOMERNAME1:(LOCAL:0) = 海女
		ELSEIF CUSTOMER:(LOCAL:0):1 == 67
			CUSTOMERNAME1:(LOCAL:0) = レスラー
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 68 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):1 == 68 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME1:(LOCAL:0) = 닌자
		ELSEIF ( CUSTOMER:(LOCAL:0):1 == 68 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):1 == 68 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME1:(LOCAL:0) = くノ一
		ELSEIF CUSTOMER:(LOCAL:0):1 == 69
			CUSTOMERNAME1:(LOCAL:0) = ゲーマー
		ELSEIF CUSTOMER:(LOCAL:0):1 == 70
			CUSTOMERNAME1:(LOCAL:0) = 用務員
		ELSEIF CUSTOMER:(LOCAL:0):1 == 71
			CUSTOMERNAME1:(LOCAL:0) = 格闘家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 72
			CUSTOMERNAME1:(LOCAL:0) = 天才
		ELSEIF CUSTOMER:(LOCAL:0):1 == 73
			CUSTOMERNAME1:(LOCAL:0) = 戦闘員
		ELSEIF CUSTOMER:(LOCAL:0):1 == 74
			CUSTOMERNAME1:(LOCAL:0) = おじさん
		ENDIF

		IF CUSTOMER:(LOCAL:0):3 == 1
			CUSTOMERNAME2:(LOCAL:0) = 陰気な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 2
			CUSTOMERNAME2:(LOCAL:0) = 陽気な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 3
			CUSTOMERNAME2:(LOCAL:0) = セクハラ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 4
			CUSTOMERNAME2:(LOCAL:0) = 기가셈な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 5
			CUSTOMERNAME2:(LOCAL:0) = 무기력な
		ELSEIF ( CUSTOMER:(LOCAL:0):3 == 6 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):3 == 6 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME2:(LOCAL:0) = 偉そうな
		ELSEIF ( CUSTOMER:(LOCAL:0):3 == 6 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 6 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME2:(LOCAL:0) = 高慢な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 7
			CUSTOMERNAME2:(LOCAL:0) = 変態
		ELSEIF CUSTOMER:(LOCAL:0):3 == 8
			CUSTOMERNAME2:(LOCAL:0) = ヲタクな
		ELSEIF CUSTOMER:(LOCAL:0):3 == 9
			CUSTOMERNAME2:(LOCAL:0) = 不審な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 10
			CUSTOMERNAME2:(LOCAL:0) = デブい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 11
			CUSTOMERNAME2:(LOCAL:0) = ヒョロい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 12
			CUSTOMERNAME2:(LOCAL:0) = ロリコン
		ELSEIF CUSTOMER:(LOCAL:0):3 == 13
			CUSTOMERNAME2:(LOCAL:0) = 真面目な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 14
			CUSTOMERNAME2:(LOCAL:0) = 眼鏡の
		ELSEIF ( CUSTOMER:(LOCAL:0):3 == 15 && CUSTOMER:(LOCAL:0):2 == 0 ) || ( CUSTOMER:(LOCAL:0):3 == 15 && CUSTOMER:(LOCAL:0):2 == 4 )
			CUSTOMERNAME2:(LOCAL:0) = イケメン
		ELSEIF ( CUSTOMER:(LOCAL:0):3 == 15 && CUSTOMER:(LOCAL:0):2 == 1 ) || ( CUSTOMER:(LOCAL:0):3 == 15 && CUSTOMER:(LOCAL:0):2 == 3 )
			CUSTOMERNAME2:(LOCAL:0) = 美人の
		ELSEIF CUSTOMER:(LOCAL:0):3 == 16
			CUSTOMERNAME2:(LOCAL:0) = 喪女
		ELSEIF CUSTOMER:(LOCAL:0):3 == 17
			CUSTOMERNAME2:(LOCAL:0) = キチガイ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 18
			CUSTOMERNAME2:(LOCAL:0) = 美しい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 19
			CUSTOMERNAME2:(LOCAL:0) = ムチムチ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 20
			CUSTOMERNAME2:(LOCAL:0) = 怪しい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 21
			CUSTOMERNAME2:(LOCAL:0) = ヤバイ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 22
			CUSTOMERNAME2:(LOCAL:0) = 優しい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 23
			CUSTOMERNAME2:(LOCAL:0) = キモい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 24
			CUSTOMERNAME2:(LOCAL:0) = ニヤつく
		ELSEIF CUSTOMER:(LOCAL:0):3 == 25
			CUSTOMERNAME2:(LOCAL:0) = 不気味な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 26
			CUSTOMERNAME2:(LOCAL:0) = 孤独な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 27
			CUSTOMERNAME2:(LOCAL:0) = 洒落た
		ELSEIF CUSTOMER:(LOCAL:0):3 == 28
			CUSTOMERNAME2:(LOCAL:0) = 爽やかな
		ELSEIF CUSTOMER:(LOCAL:0):3 == 29
			CUSTOMERNAME2:(LOCAL:0) = 目の細い
		ELSEIF CUSTOMER:(LOCAL:0):3 == 30
			CUSTOMERNAME2:(LOCAL:0) = 迫力ある
		ELSEIF CUSTOMER:(LOCAL:0):3 == 31
			CUSTOMERNAME2:(LOCAL:0) = 可愛い
		ELSEIF CUSTOMER:(LOCAL:0):3 == 32
			CUSTOMERNAME2:(LOCAL:0) = ダンディ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 33
			CUSTOMERNAME2:(LOCAL:0) = ハゲた
		ELSEIF CUSTOMER:(LOCAL:0):3 == 34
			CUSTOMERNAME2:(LOCAL:0) = エロい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 35
			CUSTOMERNAME2:(LOCAL:0) = 発情した
		ELSEIF CUSTOMER:(LOCAL:0):3 == 36
			CUSTOMERNAME2:(LOCAL:0) = 不思議な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 37
			CUSTOMERNAME2:(LOCAL:0) = 츤데레
		ELSEIF CUSTOMER:(LOCAL:0):3 == 38
			CUSTOMERNAME2:(LOCAL:0) = 鬼畜
		ELSEIF CUSTOMER:(LOCAL:0):3 == 39
			CUSTOMERNAME2:(LOCAL:0) = 悪魔的
		ELSEIF CUSTOMER:(LOCAL:0):3 == 40
			CUSTOMERNAME2:(LOCAL:0) = セクシー
		ELSEIF CUSTOMER:(LOCAL:0):3 == 41
			CUSTOMERNAME2:(LOCAL:0) = へっぽこ
		ELSEIF CUSTOMER:(LOCAL:0):3 == 42
			CUSTOMERNAME2:(LOCAL:0) = 泣き虫
		ELSEIF CUSTOMER:(LOCAL:0):3 == 43
			CUSTOMERNAME2:(LOCAL:0) = 쿨함な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 44
			CUSTOMERNAME2:(LOCAL:0) = 喧しい
		ELSEIF CUSTOMER:(LOCAL:0):3 == 45
			CUSTOMERNAME2:(LOCAL:0) = 切れ目の
		ELSEIF CUSTOMER:(LOCAL:0):3 == 46
			CUSTOMERNAME2:(LOCAL:0) = 温和な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 47
			CUSTOMERNAME2:(LOCAL:0) = ダークな
		ELSEIF CUSTOMER:(LOCAL:0):3 == 48
			CUSTOMERNAME2:(LOCAL:0) = 外道な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 49
			CUSTOMERNAME2:(LOCAL:0) = 悪趣味な
		ELSEIF CUSTOMER:(LOCAL:0):3 == 50
			CUSTOMERNAME2:(LOCAL:0) = 倒錯した
		ENDIF
	ELSEIF CUSTOMER:(LOCAL:0):0 == 6
		IF CUSTOMER:(LOCAL:0):1 == 0
			CUSTOMERNAME1:(LOCAL:0) = 輪姦サークル
		ELSEIF CUSTOMER:(LOCAL:0):1 == 1
			CUSTOMERNAME1:(LOCAL:0) = ガキども
		ELSEIF CUSTOMER:(LOCAL:0):1 == 2
			CUSTOMERNAME1:(LOCAL:0) = 高級セレブ
		ELSEIF CUSTOMER:(LOCAL:0):1 == 3
			CUSTOMERNAME1:(LOCAL:0) = Ｃ・サイコレズ
		ELSEIF CUSTOMER:(LOCAL:0):1 == 4
			CUSTOMERNAME1:(LOCAL:0) = 山田さん
		ELSEIF CUSTOMER:(LOCAL:0):1 == 5
			CUSTOMERNAME1:(LOCAL:0) = 謎の集団
		ELSEIF CUSTOMER:(LOCAL:0):1 == 6
			CUSTOMERNAME1:(LOCAL:0) = 怪しげな宗教団体
		ELSEIF CUSTOMER:(LOCAL:0):1 == 7
			CUSTOMERNAME1:(LOCAL:0) = 暴走族の集団
		ELSEIF CUSTOMER:(LOCAL:0):1 == 8
			CUSTOMERNAME1:(LOCAL:0) = レディースの集団
		ELSEIF CUSTOMER:(LOCAL:0):1 == 9
			CUSTOMERNAME1:(LOCAL:0) = 薬物研究者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 10
			CUSTOMERNAME1:(LOCAL:0) = 촉수の怪人
		ELSEIF CUSTOMER:(LOCAL:0):1 == 11
			CUSTOMERNAME1:(LOCAL:0) = 大番長
		ELSEIF CUSTOMER:(LOCAL:0):1 == 12
			CUSTOMERNAME1:(LOCAL:0) = 鬼医者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 13
			CUSTOMERNAME1:(LOCAL:0) = 性職者
		ELSEIF CUSTOMER:(LOCAL:0):1 == 14
			CUSTOMERNAME1:(LOCAL:0) = 女体芸術家
		ELSEIF CUSTOMER:(LOCAL:0):1 == 15
			CUSTOMERNAME1:(LOCAL:0) = 狩猟者
		ENDIF
	;◎裕福度のMAXは120、最小は1
	SIF CUSTOMER:(LOCAL:0):4 > 120
		CUSTOMER:(LOCAL:0):4 = 120
	SIF CUSTOMER:(LOCAL:0):4 < 1
		CUSTOMER:(LOCAL:0):4 = 1
	ENDIF

	;価格査定用客 LOCAL:0 == 0
	IF LOCAL:0 == 0
		CUSTOMER:(LOCAL:0):0 = 1
		CUSTOMER:(LOCAL:0):1 = 0
		CUSTOMER:(LOCAL:0):2 = 4
		CUSTOMER:(LOCAL:0):3 = 0
		CUSTOMER:(LOCAL:0):4 = 50
		CUSTOMER:(LOCAL:0):5 = 0
		CUSTOMER:(LOCAL:0):6 = 1000
		CUSTOMER:(LOCAL:0):7 = 1000
		CUSTOMER:(LOCAL:0):8 = 0
		CUSTOMER:(LOCAL:0):21 = -1
		CUSTOMER:(LOCAL:0):22 = -1
		CUSTOMER:(LOCAL:0):23 = -1
		CUSTOMER:(LOCAL:0):24 = -1
		CUSTOMER:(LOCAL:0):25 = -1
		CUSTOMER:(LOCAL:0):26 = -1
		CUSTOMER:(LOCAL:0):27 = -1
		CUSTOMER:(LOCAL:0):28 = -1
		CUSTOMER:(LOCAL:0):29 = -1
		CUSTOMER:(LOCAL:0):30 = -1
		CUSTOMER:(LOCAL:0):31 = -1
		CUSTOMER:(LOCAL:0):32 = -1
		CUSTOMER:(LOCAL:0):33 = -1
		CUSTOMER:(LOCAL:0):34 = -1
		CUSTOMER:(LOCAL:0):35 = -1
		CUSTOMER:(LOCAL:0):36 = -1
		CUSTOMER:(LOCAL:0):37 = -1
		CUSTOMER:(LOCAL:0):38 = -1
		CUSTOMER:(LOCAL:0):39 = -1
		CUSTOMER:(LOCAL:0):40 = -1
		CUSTOMER:(LOCAL:0):65 = -1
	ENDIF
NEXT

@PROSTITUTION_CUSTOMER_MORNING
	FOR COUNT,1,199
	;客の来訪までの日数-1
		SIF CUSTOMER:COUNT:9 >= 0
			CUSTOMER:COUNT:7 -= 1
		SIF CUSTOMER:COUNT:7 <= -1
			CUSTOMER:COUNT:7 = CUSTOMER:COUNT:6 + CUSTOMER:COUNT:7
	;客の出入りフラグの設定
	;フラグが1になった客は去る
		IF CUSTOMER:COUNT:9 > 1
			CUSTOMER:COUNT:9 -= 1
			IF CUSTOMER:COUNT:9 == 1
				CALL PROSTITUTION_CUSTOMER_MAKE,COUNT,(COUNT + 1)
				CUSTOMER:COUNT:9 = -31
			ENDIF
		ENDIF
	;フラグが-1になった客が入場
		IF CUSTOMER:COUNT:9 < -1
			CUSTOMER:COUNT:9 += 1
			IF CUSTOMER:COUNT:9 ==  -1
				CUSTOMER:COUNT:9 = 0
			ENDIF
		ENDIF

	NEXT

@PROSTITUTION_CUSTOMER_NIGHT
	FOR COUNT,1,199
	;客の満足度の判定
	;満足度が0を下回ると客の退出フラグが立つ
	SIF CUSTOMER:COUNT:5 < 0 && ( CUSTOMER:COUNT:9 <= 0 )
		CUSTOMER:COUNT:9 = 31
	;来訪した客のリセット
	SIF CUSTOMER:COUNT:7 == 0
		CUSTOMER:COUNT:7 = CUSTOMER:COUNT:6
	NEXT


code:
@SHOW_PROSTITUTION_CUSTOMER
;本日の客を表示
;変数PROSTITUTION_SYSTEMによって表示制御 0,項目の表示なし 1,売春の項目を表示
LOCAL:0 = 0
LOCAL:1 = 0
LOCAL:2 = 0
LOCAL:3 = 0
REPEAT CHARANUM
	SIF CFLAG:COUNT:12 == 1 &&  CFLAG:COUNT:51 == 0 && IS_PROSTITUTABLE(COUNT)
		LOCAL:99 += 1
REND
COUNT = 0

IF PROSTITUTION_SYSTEM == 1
	DRAWLINE
	PRINTL ≪現在の予約状況≫
ENDIF
SIF PROSTITUTION_SYSTEM == 0
	DRAWLINE

PRINT 　管理者

IF ASSI >= 1
	PRINTFORM [%NAME:ASSI%]
	SETCOLOR 0,255,0
	SIF TALENT:ASSI:교섭술
		PRINT （교섭술）
	SIF TALENT:ASSI:마술기능
		PRINT （마술기능）
	SIF TALENT:ASSI:파이터
		PRINT （파이터）
	RESETCOLOR
ELSE
	PRINTFORM なし
ENDIF
PRINTL
PRINTFORML 　店舗の인기　{FLAG:41}

IF PROSTITUTION_SYSTEM == 1
	PRINT 　◎本日の客
ELSEIF PROSTITUTION_SYSTEM == 0
	PRINT 　≪現在の予約状況≫
ENDIF

IF PROSTITUTION_SYSTEM == 1
	PRINT 備考　　　指名　　対応　　掲示金　　客のコメント
ENDIF
PRINTL
DRAWLINE

;客数定義
;基本人数を80人とし、後半30人を休日専用の客とする
;娼館인기が100上がるごとに人数が1人増える（最大199名）
;娼館인기が100下がるごとに人数が1人減る（最小50人）
IF FLAG:8 == 0
	LOCAL:0 = 80
	SIF FLAG:41 >= 100
		LOCAL:0 = 80 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:0 = 80 + (FLAG:41/100)
	SIF LOCAL:0 <= 50
		LOCAL:0 = 50
	SIF LOCAL:0 >= 199
		LOCAL:0 = 199
ELSE
	LOCAL:0 = 50
	SIF FLAG:41 >= 100
		LOCAL:0 = 50 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:0 = 50 + (FLAG:41/100)
	SIF LOCAL:0 <= 20
		LOCAL:0 = 20
	SIF LOCAL:0 >= 199
		LOCAL:0 = 199
ENDIF

FOR (LOCAL:1),1,(LOCAL:0)
	IF CUSTOMER:(LOCAL:1):7 == 0 && LOCAL:99 >= 1
		IF CUSTOMER:(LOCAL:1):2 == 0
			SETCOLOR 0x1E90FF
			PRINTFORM %UNICODE(0x2642)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 1
			SETCOLOR 0xFF69B4
			PRINTFORM %UNICODE(0x2640)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 2
			SETCOLOR 0xFF8C00
			PRINTFORM 集
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 3
			SETCOLOR 0xFF8C00
			PRINTFORM 両
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 4
			SETCOLOR 0xFF8C00
			PRINTFORM 謎
			RESETCOLOR
		ENDIF
		PRINT [
		SIF (LOCAL:1) <= 9
			PRINT
		SIF (LOCAL:1) <= 99
			PRINT
		PRINTFORM {(LOCAL:1)}]
		CALL SHOW_PROSTITUTION_CUSTOMER_NAME , LOCAL:1

		PRINTL
	ENDIF
NEXT
SIF LOCAL:99 == 0
	PRINTL 　≪本日は臨時休業とさせて頂きます≫
FOR (LOCAL:1),0,CHARANUM
	SIF CFLAG:(LOCAL:1):51 >= 1
		LOCAL:2 = 1
NEXT
IF LOCAL:2 == 1
;	DRAWLINE
;	PRINTL 　≪監禁されているキャラがいます≫
	DRAWLINE
ENDIF
FOR (LOCAL:1),1,199
	IF CUSTOMER:(LOCAL:1):64 >= 1 && CUSTOMER:(LOCAL:1):63 >= 1
		CUSTOMER:(LOCAL:1):12 = CUSTOMER:(LOCAL:1):64
		CFLAG:(CUSTOMER:(LOCAL:1):12):14 = LOCAL:1
		CUSTOMER:(LOCAL:1):13 = GET_PROSTITUTION_CUSTOMER_KONOMI(LOCAL:1 ,(CUSTOMER:(LOCAL:1):12))
		CUSTOMER:(LOCAL:1):10 = GET_PROSTITUTION_VALUE(LOCAL:1 ,(CUSTOMER:(LOCAL:1):12))
		IF CUSTOMER:(LOCAL:1):2 == 0
			SETCOLOR 0x1E90FF
			PRINTFORM %UNICODE(0x2642)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 1
			SETCOLOR 0xFF69B4
			PRINTFORM %UNICODE(0x2640)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 2
			SETCOLOR 0xFF8C00
			PRINTFORM 集
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 3
			SETCOLOR 0xFF8C00
			PRINTFORM 両
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 4
			SETCOLOR 0xFF8C00
			PRINTFORM 謎
			RESETCOLOR
		ENDIF
		PRINT [
		SIF (LOCAL:1) <= 9
			PRINT
		SIF (LOCAL:1) <= 99
			PRINT
		PRINTFORM {(LOCAL:1)}]
		CALL SHOW_PROSTITUTION_CUSTOMER_NAME , LOCAL:1
		PRINTL
	ENDIF
NEXT
DRAWLINE
IF PROSTITUTION_SYSTEM == 1 && LOCAL:99 >= 1
	PRINTL ≪売春するキャラを選択してください≫
	FOR COUNT,0,CHARANUM
		IF !IS_PROSTITUTABLE(COUNT)
			CONTINUE
		ELSE
			LOCAL:2 = COUNT + 200
			PRINTFORM 　[{LOCAL:2}]
		ENDIF

		STRLENFORM %NAME:COUNT%
		IF RESULT > 16
			PRINTFORM %CALLNAME:COUNT,16,LEFT%
		ELSE
			PRINTFORM %NAME:COUNT,16,LEFT%
		ENDIF
		CALL DISPLAY_SET19_ARGUMENT, COUNT
		PRINTL
	NEXT
	DRAWLINE
ENDIF
IF PROSTITUTION_SYSTEM == 1
	SIF LOCAL:99 >= 1
		PRINT [300] - 仕事を始める
	SIF LOCAL:99 == 0
		PRINT [300] - 時間を進める
	IF ASSI > 0
		PRINT
		SIF LOCAL:99 != 0
			PRINT [400]助손に割り当てをお願いする
	ENDIF
	PRINTL
ENDIF
SIF PROSTITUTION_SYSTEM == 0
	PRINTL [999] - ゲーム本編に戻る
$INPUT_LOOP
INPUT
IF RESULT == 0
	CALL SHOW_PROSTITUTION_CUSTOMER2 , 0
ELSEIF RESULT > 0 && RESULT < 200
	CALL SHOW_PROSTITUTION_CUSTOMER2 , RESULT
ELSEIF (RESULT - 200) <= (CHARANUM - 1)
	LOCAL:3 = RESULT - 200
	IF CFLAG:(LOCAL:3):12 == 1 && CFLAG:(LOCAL:3):51 == 0
		CALL PROSTITUTION_SELECT , LOCAL:3
		 LOCAL:3 = 0
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ELSEIF RESULT == 300 && PROSTITUTION_SYSTEM == 1
	CALL NIGHT_PROSTITUTION2
ELSEIF RESULT == 400 && PROSTITUTION_SYSTEM == 1 && LOCAL:99 != 0
	CALL PROSTITUTION_SELECT_JYOSYU
ELSEIF RESULT == 999 && PROSTITUTION_SYSTEM == 0
	BEGIN SHOP
ELSE
	GOTO INPUT_LOOP
ENDIF
LOCAL:99 = 0

;売春キャラのセレクト
@PROSTITUTION_SELECT, ARG
#DIM DYNAMIC KINGAKU,200
#DIM DYNAMIC sortMode = 0 ;0-番号順,1-金額順
#DIM sortedOrder,200
#DIM index
LOCAL:0 = 0
LOCAL:1 = 0
LOCAL:2 = ARG
LOCAL:3 = 0
IF FLAG:8 == 0
	LOCAL:0 = 80
	SIF FLAG:41 >= 100
		LOCAL:0 = 80 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:0 = 80 + (FLAG:41/100)
	SIF LOCAL:0 <= 50
		LOCAL:0 = 50
	SIF LOCAL:0 >= 199
		LOCAL:0 = 199
ELSE
	LOCAL:0 = 50
	SIF FLAG:41 >= 100
		LOCAL:0 = 50 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:0 = 50 + (FLAG:41/100)
	SIF LOCAL:0 <= 20
		LOCAL:0 = 20
	SIF LOCAL:0 >= 199
		LOCAL:0 = 199
ENDIF
PRINTFORML 相손をする客の番号を入力してください
PRINTFORML 客の『%NAME:(LOCAL:2)%』に対する提示金額は以下の通りです
;CALLF "INIT_LIST",sortedOrder
;FOR (LOCAL:1),1,(LOCAL:0)
;	;未実装
;NEXT
FOR (LOCAL:1),1,(LOCAL:0)
	KINGAKU:(LOCAL:1) = GET_PROSTITUTION_VALUE(LOCAL:1, LOCAL:2)
	IF CUSTOMER:(LOCAL:1):7 == 0
		PRINTFORM %"[" + TOSTR(LOCAL:1) + "]",5,LEFT%
		PRINTFORM %"(" + TOSTR(KINGAKU:(LOCAL:1)) + "円)",10,RIGHT%

		IF CUSTOMER:(LOCAL:1):2 == 0
			SETCOLOR 0x1E90FF
			PRINTFORM %UNICODE(0x2642)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 1
			SETCOLOR 0xFF69B4
			PRINTFORM %UNICODE(0x2640)%
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 2
			SETCOLOR 0xFF8C00
			PRINTFORM 集
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 3
			SETCOLOR 0xFF8C00
			PRINTFORM 両
			RESETCOLOR
		ELSEIF CUSTOMER:(LOCAL:1):2 == 4
			SETCOLOR 0xFF8C00
			PRINTFORM 謎
			RESETCOLOR
		ENDIF
		PRINTFORML %CUSTOMERNAME2:(LOCAL:1) + CUSTOMERNAME1:(LOCAL:1),20,LEFT%　%GET_CUSTOMER_TYPE_NAME(LOCAL:1,GET_CLAIREVOYANCE_LEVEL()),8,LEFT% %"(" + \@ CUSTOMER:(LOCAL:1):14 == 0 ? なし # %CALLNAME:(CUSTOMER:(LOCAL:1):14)% \@ + ")",12,LEFT% - %GET_CUSTOMER_TARGET_NAME(LOCAL:1),8,LEFT% \@ CUSTOMER:(LOCAL:1):12 == 0 ? #  : %TOSTR(GET_PROSTITUTION_VALUE(LOCAL:1,CUSTOMER:(LOCAL:1):12)) + "円",8,RIGHT% \@
	ENDIF
NEXT
PRINTL
PRINT [200] - 解除
;PRINT [300] - \@ sortMode = 0 ? 金額 # 番号 \@順で並び替え
PRINTL
PRINTL [999] - 돌아온다
$INPUT_LOOP
INPUT

LOCAL:3 = RESULT
;CFLAG:(キャラ番号):14 に客番号
;CUSTOMER:(客番号):12 にキャラ番号
;をいれることでコントロール
IF LOCAL:3 == 999
	CALL SHOW_PROSTITUTION_CUSTOMER
;解除
ELSEIF LOCAL:3 == 200
	CALL CLEAR_PROSTITUTE_SETTING(CFLAG:(LOCAL:2):14)
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSEIF LOCAL:3 >= 201
	GOTO INPUT_LOOP
;対応客のいないキャラを対応キャラのいない客につける
ELSEIF CUSTOMER:(LOCAL:3):7 == 0 && CFLAG:(LOCAL:2):14 == 0 && CUSTOMER:(LOCAL:3):12 == 0
	CALL SET_PROSTITUTE_SETTING(LOCAL:3,LOCAL:2)
	CALL SHOW_PROSTITUTION_CUSTOMER
;客の対応キャラとキャラの対応客がイコールなら両方リセット
ELSEIF CUSTOMER:(LOCAL:3):7 == 0 && CUSTOMER:(LOCAL:3):12 == LOCAL:2 && CFLAG:(LOCAL:2):14 == LOCAL:3
	CALL CLEAR_PROSTITUTE_SETTING(LOCAL:3)
	CALL SHOW_PROSTITUTION_CUSTOMER
;対応客のいるキャラが、対応キャラのいない客につける
ELSEIF CUSTOMER:(LOCAL:3):7 == 0 && CFLAG:(LOCAL:2):14 >= 1 && CUSTOMER:(LOCAL:3):12 == 0
	CALL CLEAR_PROSTITUTE_SETTING(CFLAG:(LOCAL:2):14)
	CALL SET_PROSTITUTE_SETTING(LOCAL:3,LOCAL:2)
	CALL SHOW_PROSTITUTION_CUSTOMER
;対応客のいるキャラが、対応キャラのいる客につける
ELSEIF CUSTOMER:(LOCAL:3):7 == 0 && CFLAG:(LOCAL:2):14 >= 1 && CUSTOMER:(LOCAL:3):12 >= 0
	CALL CLEAR_PROSTITUTE_SETTING(CFLAG:(LOCAL:2):14)
	CALL CLEAR_PROSTITUTE_SETTING(LOCAL:3)
	CALL SET_PROSTITUTE_SETTING(LOCAL:3,LOCAL:2)
	CALL SHOW_PROSTITUTION_CUSTOMER
;対応客のいないキャラが、対応キャラのいる客につける
ELSEIF CUSTOMER:(LOCAL:3):7 == 0 && CFLAG:(LOCAL:2):14 == 0 && CUSTOMER:(LOCAL:3):12 >= 0
	CALL CLEAR_PROSTITUTE_SETTING(LOCAL:3)
	CALL SET_PROSTITUTE_SETTING(LOCAL:3,LOCAL:2)
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSE
	GOTO INPUT_LOOP
ENDIF

@CLEAR_PROSTITUTE_SETTING(customerIndex)
#DIM customerIndex
CFLAG:(CUSTOMER:customerIndex:12):14 = 0
CUSTOMER:customerIndex:12 = 0
CUSTOMER:customerIndex:10 = 0
CUSTOMER:customerIndex:13 = 0

@SET_PROSTITUTE_SETTING(customerIndex,targetCharaIndex)
#DIM customerIndex
#DIM targetCharaIndex
CUSTOMER:customerIndex:12 = targetCharaIndex
CFLAG:targetCharaIndex:14 = customerIndex
;好みを代入する
CUSTOMER:customerIndex:13 = GET_PROSTITUTION_CUSTOMER_KONOMI(customerIndex, targetCharaIndex)
;価格査定関数を呼び出す
CUSTOMER:customerIndex:10 = GET_PROSTITUTION_VALUE(customerIndex, targetCharaIndex)

@PROSTITUTION_SELECT_JYOSYU
;助손の自動割り当て関数
;キャラ配置確認格納変数
#DIM DYNAMIC HAITI,100
;客NO
LOCAL:0 = 0
;창녀NO
LOCAL:1 = 0
;そのキャラの査定価格
LOCAL:2 = 0
;今までの最大の査定価格
LOCAL:3 = 0
LOCAL:4 = 0
LOCAL:5 = 0
LOCAL:6 = 0
LOCAL:7 = 0
LOCAL:8 = 0
;裕福度
LOCAL:99 = 120
IF FLAG:8 == 0
	LOCAL:9 = 80
	SIF FLAG:41 >= 100
		LOCAL:9 = 80 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:9 = 80 + (FLAG:41/100)
	SIF LOCAL:9 <= 50
		LOCAL:9 = 50
	SIF LOCAL:9 >= 199
		LOCAL:9 = 199
ELSE
	LOCAL:9 = 50
	SIF FLAG:41 >= 100
		LOCAL:9 = 50 + (FLAG:41/100)
	SIF FLAG:41 <= -100
		LOCAL:9 = 50 + (FLAG:41/100)
	SIF LOCAL:9 <= 20
		LOCAL:9 = 20
	SIF LOCAL:9 >= 199
		LOCAL:9 = 199
ENDIF
;キャラの対応をすべてリセット
FOR (LOCAL:1),1,CHARANUM
	IF CFLAG:(LOCAL:1):12 >= 1
		;客の対応キャラをリセット
		LOCAL:10 = CFLAG:(LOCAL:1):14
		CUSTOMER:(LOCAL:10):12 = 0
		CUSTOMER:(LOCAL:10):10 = 0
		CUSTOMER:(LOCAL:10):13 = 0
		;キャラの対応客をリセット
		CFLAG:(LOCAL:1):14 = 0
		LOCAL:10 = 0
	ENDIF
NEXT
LOCAL:1 = 0
;金額ループ
FOR (LOCAL:4),1,120
	;客ループ
	FOR (LOCAL:0),1,(LOCAL:9)
		IF CUSTOMER:(LOCAL:0):7 == 0 && CUSTOMER:(LOCAL:0):4 == LOCAL:99
			;キャラループ
			;査定価格が最大の数値をLOCAL:3に、査定価格をCFLAG:13に
			FOR (LOCAL:1),1,CHARANUM
				SIF !IS_PROSTITUTABLE(LOCAL:1)
					CONTINUE
				IF CFLAG:(LOCAL:1):12 == 1 && HAITI:(LOCAL:1) <= LOCAL:99 && CFLAG:(LOCAL:1):14 != -1 && CFLAG:(LOCAL:1):51 == 0
					;価格査定
					CFLAG:(LOCAL:1):14 = GET_PROSTITUTION_VALUE(LOCAL:0, LOCAL:1)
					LOCAL:2 = CFLAG:(LOCAL:1):14
					SIF LOCAL:2 >= LOCAL:3
						LOCAL:3 = LOCAL:2
				ENDIF
				LOCAL:2 = 0
			NEXT
			LOCAL:5 = FINDCHARA(CFLAG:14,LOCAL:3,0)
			IF CFLAG:(LOCAL:5):12 == 1
				CUSTOMER:(LOCAL:0):12 = LOCAL:5
				CUSTOMER:(LOCAL:0):10 = LOCAL:3
				CUSTOMER:(LOCAL:0):13 = GET_PROSTITUTION_CUSTOMER_KONOMI(LOCAL:0 ,LOCAL:5)
				HAITI:(LOCAL:5) = LOCAL:99
				CFLAG:(LOCAL:5):14 = -1
				LOCAL:3 = 0
			ENDIF
		ENDIF
	NEXT
	LOCAL:99 -= 1
NEXT
FOR (LOCAL:1),1,CHARANUM
	IF CFLAG:(LOCAL:1):12 >= 1
		CFLAG:(LOCAL:1):14 = 0
	ENDIF
NEXT
FOR (LOCAL:0),1,(LOCAL:9)
	IF CUSTOMER:(LOCAL:0):12 >= 1
		CFLAG:(CUSTOMER:(LOCAL:0):12):14 = LOCAL:0
	ENDIF
NEXT

CALL SHOW_PROSTITUTION_CUSTOMER

;客の個別表示関数
@SHOW_PROSTITUTION_CUSTOMER2,ARG
LOCAL:1 = ARG
LOCAL:2 = 0
IF ASSI >= 1
	LOCAL:3 = (ABL:ASSI:22)*2 + (ABL:ASSI:25)
	SIF TALENT:ASSI:마술기능
		LOCAL:3 += 3
	SIF TALENT:ASSI:우등생
		LOCAL:3 += 2
	SIF TALENT:ASSI:학생회장
		LOCAL:3 += 2
	SIF TALENT:ASSI:사교적
		LOCAL:3 += 3
	SIF TALENT:ASSI:정보통
		LOCAL:3 += 3
ELSE
	LOCAL:3 = 0
ENDIF
DRAWLINE
IF CUSTOMER:(LOCAL:1):2 == 0
	SETCOLOR 0x1E90FF
	PRINTFORM %UNICODE(0x2642)%
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 1
	SETCOLOR 0xFF69B4
	PRINTFORM %UNICODE(0x2640)%
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 2
	SETCOLOR 0xFF8C00
	PRINTFORM 集
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 3
	SETCOLOR 0xFF8C00
	PRINTFORM 両
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 4
	SETCOLOR 0xFF8C00
	PRINTFORM 謎
	RESETCOLOR
ENDIF
PRINTFORM [{(LOCAL:1)}]
PROSTITUTION_SYSTEM = 0
CALL SHOW_PROSTITUTION_CUSTOMER_NAME , LOCAL:1
PROSTITUTION_SYSTEM = 1
PRINTL
IF LOCAL:3 >= 18
	PRINT 特性
	IF CUSTOMER:(LOCAL:1):0 == 1
		PRINTL 普通の客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 2
		PRINTL 불쾌な客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 3
		PRINTL 孕ませ好きの客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 4
		PRINTL 横暴な客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 5
		PRINTL 고통な客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 6
		PRINTL 特別な客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 7
		PRINTL 値切る客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 8
		PRINTL 追加行為を要求する客
	ELSEIF CUSTOMER:(LOCAL:1):0 == 9
		PRINTL 悪評を流す客
	ENDIF
ENDIF
IF LOCAL:3 >= 22
	PRINT 裕福度
	IF CUSTOMER:(LOCAL:1):4 <= 10
		PRINTL 文無し
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 20
		PRINTL 超絶가난
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 30
		PRINTL 激しく가난
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 40
		PRINTL 가난
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 50
		PRINTL 下流
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 60
		PRINTL 上流
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 70
		PRINTL 金持ち
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 80
		PRINTL 大金持ち
	ELSEIF CUSTOMER:(LOCAL:1):4 <= 90
		PRINTL 富豪
	ELSEIF CUSTOMER:(LOCAL:1):4 >= 91
		PRINTL 大富豪
	ENDIF
ENDIF
IF LOCAL:3 >= 25
	PRINT 満足度
	PRINTFORML {CUSTOMER:(LOCAL:1):5}
	PRINT 来店頻度
	PRINTFORML {CUSTOMER:(LOCAL:1):6}日に１度
	PRINT 次の来店
	IF CUSTOMER:(LOCAL:1):7 == 0
		PRINTL 本日来店
	ELSEIF CUSTOMER:(LOCAL:1):7 == 1
		PRINTL 明日来店予定
	ELSEIF CUSTOMER:(LOCAL:1):7 >= 2
		PRINTFORML {CUSTOMER:(LOCAL:1):7}日後の予定
	ENDIF
	PRINT 指名
	IF CUSTOMER:(LOCAL:1):8 == 0
		PRINTL 指名しない
	ELSEIF CUSTOMER:(LOCAL:1):8 == 1
		PRINTL 好みが合えば指名する
	ELSEIF CUSTOMER:(LOCAL:1):8 == 2
		PRINTL 必ず指名する
	ENDIF
	PRINT 出入り
	PRINTFORML {CUSTOMER:(LOCAL:1):9}
ENDIF
PRINT 来店回数
PRINTFORML {CUSTOMER:(LOCAL:1):11}回

IF LOCAL:3 >= 20
	PRINT 학력
	PRINTFORML {CUSTOMER:(LOCAL:1):15}
	PRINT 운동능력
	PRINTFORML {CUSTOMER:(LOCAL:1):16}
	PRINT 전투능력
	PRINTFORML {CUSTOMER:(LOCAL:1):17}
	PRINT 감성
	PRINTFORML {CUSTOMER:(LOCAL:1):18}
ENDIF

IF LOCAL:3 >= 0
	PRINT 가슴の好み
	IF CUSTOMER:(LOCAL:1):21 == 0
		PRINTL 절벽好き
	ELSEIF CUSTOMER:(LOCAL:1):21 == 1
		PRINTL 빈유好き
	ELSEIF CUSTOMER:(LOCAL:1):21 == 2
		PRINTL 並乳好き
	ELSEIF CUSTOMER:(LOCAL:1):21 == 3
		PRINTL 거유好き
	ELSEIF CUSTOMER:(LOCAL:1):21 == 4
		PRINTL 폭유好き
	ENDIF
ENDIF

IF LOCAL:3 >= 15
	PRINT 髪色好み
	REPEAT 2
	LOCAL:2 = 22 + COUNT
	IF CUSTOMER:(LOCAL:1):(LOCAL:2) == 0
		PRINT 栗色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 1
		PRINT 黒色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 2
		PRINT 灰色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 3
		PRINT 白色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 4
		PRINT 銀色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 5
		PRINT 水色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 6
		PRINT 青色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 7
		PRINT 緑色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 8
		PRINT 紫色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 9
		PRINT ピンク
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 10
		PRINT 赤色
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 11
		PRINT 金色
	ENDIF
	REND
	PRINTL

	PRINT 髪型好み
	REPEAT 5
	LOCAL:2 = 24 + COUNT
	IF CUSTOMER:(LOCAL:1):(LOCAL:2) == 0
		PRINT 장발
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 1
		PRINT 세미롱
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 2
		PRINT ショート
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 3
		PRINT ポニー
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 4
		PRINT 트윈테일
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 5
		PRINT 사이드테일
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 6
		PRINT 세로롤
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 7
		PRINT 트윈링
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 8
		PRINT 댕기머리
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 9
		PRINT 단발
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 10
		PRINT おさげ
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 11
		PRINT 퐁파두르
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 12
		PRINT 포니업
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 13
		PRINT 사이드다운
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 14
		PRINT お団子
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 15
		PRINT 투사이드업
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 16
		PRINT 더블포니
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 17
		PRINT 가로롤
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 18
		PRINT 정리한머리
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 19
		PRINT 보브컷
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 20
		PRINT 시뇽
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 21
		PRINT ロング
	ENDIF
	REND
	PRINTL
ENDIF

IF LOCAL:3 >= 0
	PRINT 연령好み
	IF CUSTOMER:(LOCAL:1):29 == 0
		PRINTL 초등학생
	ELSEIF CUSTOMER:(LOCAL:1):29 == 1
		PRINTL 중학생
	ELSEIF CUSTOMER:(LOCAL:1):29 == 2
		PRINTL 고등학생
	ELSEIF CUSTOMER:(LOCAL:1):29 == 3
		PRINTL 대학생
	ELSEIF CUSTOMER:(LOCAL:1):29 == 4
		PRINTL 교사
	ELSEIF CUSTOMER:(LOCAL:1):29 == 5
		PRINTL 사회인・주부
	ENDIF
ENDIF

IF LOCAL:3 >= 13
PRINT 魅力好み
REPEAT 2
LOCAL:2 = 30 + COUNT
IF CUSTOMER:(LOCAL:1):(LOCAL:2) == 0
		PRINT 청초
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 1
		PRINT 쾌활
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 2
		PRINT 색기
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 3
		PRINT 어린애같음
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 4
		PRINT 쿨함
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 5
		PRINT 기가셈
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 6
		PRINT 무기력
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 7
		PRINT 보이쉬
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 8
		PRINT 천연
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 9
		PRINT 치유계
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 10
		PRINT 음험
	ELSEIF CUSTOMER:(LOCAL:1):(LOCAL:2) == 11
		PRINT 전파계
	ENDIF
	REND
	PRINTL
ENDIF

IF LOCAL:3 >= 18
	PRINT 特徴好み
	IF CUSTOMER:(LOCAL:1):32 == 0
		PRINT 영애好き
	ELSEIF CUSTOMER:(LOCAL:1):32 == 1
		PRINT 외국인好き
	ELSEIF CUSTOMER:(LOCAL:1):32 == 2
		PRINT 人妻好き
	ELSEIF CUSTOMER:(LOCAL:1):32 == 3
		PRINT 연예인好き
	ELSEIF CUSTOMER:(LOCAL:1):32 == 4
		PRINT 프린세스好き
	ELSEIF CUSTOMER:(LOCAL:1):32 == 5
		PRINT 메이드好き
	ENDIF
	IF CUSTOMER:(LOCAL:1):33 == 0
		PRINT 가난好き
	ELSEIF CUSTOMER:(LOCAL:1):33 == 1
		PRINT 불량好き
	ELSEIF CUSTOMER:(LOCAL:1):33 == 2
		PRINT 우등생好き
	ELSEIF CUSTOMER:(LOCAL:1):33 == 3
		PRINT 멋쟁이好き
	ELSEIF CUSTOMER:(LOCAL:1):33 == 4
		PRINT 유명인好き
	ELSEIF CUSTOMER:(LOCAL:1):33 == 5
		PRINT 眼鏡っ娘好き
	ENDIF
	IF CUSTOMER:(LOCAL:1):34 == 0
		PRINTL 학생회장好き
	ELSEIF CUSTOMER:(LOCAL:1):34 == 1
		PRINTL 성직자好き
	ELSEIF CUSTOMER:(LOCAL:1):34 == 2
		PRINTL 오타쿠취미好き
	ELSEIF CUSTOMER:(LOCAL:1):34 == 3
		PRINTL AV녀好き
	ELSEIF CUSTOMER:(LOCAL:1):34 == 4
		PRINTL 로봇소녀好き
	ELSEIF CUSTOMER:(LOCAL:1):34 == 5
		PRINTL 고고함好き
	ENDIF
ENDIF

IF LOCAL:3 >= 12
	PRINT 相손に求めるプレイ
	IF CUSTOMER:(LOCAL:1):35 == 0
		PRINTL 奉仕
	ELSEIF CUSTOMER:(LOCAL:1):35 == 1
		PRINTL 노출
	ELSEIF CUSTOMER:(LOCAL:1):35 == 2
		PRINTL 被虐
	ELSEIF CUSTOMER:(LOCAL:1):35 == 3
		PRINTL 嗜虐
	ENDIF
ENDIF

IF LOCAL:3 >= 25
	PRINT 好きな部位の順番
	IF CUSTOMER:(LOCAL:1):36 == 0
		PRINTL ＣＶＡＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 1
		PRINTL ＣＶＢＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 2
		PRINTL ＣＡＶＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 3
		PRINTL ＣＡＢＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 4
		PRINTL ＣＢＶＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 5
		PRINTL ＣＢＡＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 6
		PRINTL ＶＣＡＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 7
		PRINTL ＶＣＢＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 8
		PRINTL ＶＡＣＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 9
		PRINTL ＶＡＢＣ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 10
		PRINTL ＶＢＣＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 11
		PRINTL ＶＢＡＣ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 12
		PRINTL ＡＣＶＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 13
		PRINTL ＡＣＢＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 14
		PRINTL ＡＶＣＢ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 15
		PRINTL ＡＶＢＣ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 16
		PRINTL ＡＢＣＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 17
		PRINTL ＡＢＶＣ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 18
		PRINTL ＢＣＶＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 19
		PRINTL ＢＣＡＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 20
		PRINTL ＢＶＣＡ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 21
		PRINTL ＢＶＡＣ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 22
		PRINTL ＢＡＣＶ
	ELSEIF CUSTOMER:(LOCAL:1):36 == 23
		PRINTL ＢＡＶＣ
	ENDIF
ENDIF
IF LOCAL:3 >= 0
	PRINT 창녀の性別
	IF CUSTOMER:(LOCAL:1):37 == 0 && CUSTOMER:(LOCAL:1):2 == 0
		PRINTL 女だけ
	ELSEIF CUSTOMER:(LOCAL:1):37 == 0 && CUSTOMER:(LOCAL:1):2 == 1
		PRINTL 男だけ
	ELSEIF CUSTOMER:(LOCAL:1):37 == 1 && CUSTOMER:(LOCAL:1):2 == 0
		PRINTL ガチなので男性のみ
	ELSEIF CUSTOMER:(LOCAL:1):37 == 1 && CUSTOMER:(LOCAL:1):2 == 1
		PRINTL ガチなので女性のみ
	ELSEIF CUSTOMER:(LOCAL:1):37 == 2
		PRINTL 男でも女でもＯＫ
	ELSEIF CUSTOMER:(LOCAL:1):37 == 0 && CUSTOMER:(LOCAL:1):2 == 3
		PRINTL 	男がいいな
	ELSEIF CUSTOMER:(LOCAL:1):37 == 1 && CUSTOMER:(LOCAL:1):2 == 3
		PRINTL 	女の子がいいな
	ELSEIF CUSTOMER:(LOCAL:1):37 == 4
		PRINTL 女性のみ
	ENDIF
ENDIF

IF LOCAL:3 >= 14
	PRINT 好きなプレイ
	IF CUSTOMER:(LOCAL:1):38 == 0
		PRINTL セックス
	ELSEIF CUSTOMER:(LOCAL:1):38 == 1
		PRINTL 자위鑑賞
	ELSEIF CUSTOMER:(LOCAL:1):38 == 2
		PRINTL 母乳プレイ
	ELSEIF CUSTOMER:(LOCAL:1):38 == 3
		PRINTL 精液ぶっかけ
	ENDIF
ENDIF

IF LOCAL:3 >= 0
	IF  CUSTOMER:(LOCAL:1):0 == 2
		PRINT 불쾌な客の性質
		IF CUSTOMER:(LOCAL:1):61 == 0
			PRINTL 불결
		ELSEIF CUSTOMER:(LOCAL:1):61 == 1
			PRINTL 醜悪
		ELSEIF CUSTOMER:(LOCAL:1):61 == 2
			PRINTL 馬並
		ENDIF
	ENDIF

	LOCAL:2 = 0
	IF  CUSTOMER:(LOCAL:1):0 == 5
		PRINT 고통な客の性質
		IF CUSTOMER:(LOCAL:1):65 != 0
			LOCAL:2 = GETCHARA(CUSTOMER:(LOCAL:1):65)
			IF LOCAL:2 == -1
				PRINT
			ELSE
				PRINTFORM 『%NAME:(LOCAL:2)%』の
			ENDIF
		ENDIF
		IF CUSTOMER:(LOCAL:1):62 == 0
			PRINTL 近親者
		ELSEIF CUSTOMER:(LOCAL:1):62 == 1
			PRINTL 知人
		ELSEIF CUSTOMER:(LOCAL:1):62 == 2
			PRINTL ストーカー
		ENDIF
	ENDIF

	LOCAL:2 = 0
	IF  CUSTOMER:(LOCAL:1):0 == 6
		PRINT 特別な客
		IF CUSTOMER:(LOCAL:1):65 != 0
			LOCAL:2 = GETCHARA(CUSTOMER:(LOCAL:1):65)
			IF LOCAL:2 == -1
				PRINT
			ELSE
				PRINTFORM 『%NAME:(LOCAL:2)%』を
			ENDIF
		ENDIF
		PRINTL つけ狙う者
	ENDIF
ENDIF

DRAWLINE
PRINT [300] - 돌아온다
PRINT [400] - 次の項目
PRINTL [500] - 창녀を割り当てる
$INPUT_LOOP
INPUT
IF RESULT == 300
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSEIF RESULT == 400
	CALL SHOW_PROSTITUTION_CUSTOMER3,LOCAL:1
ELSEIF RESULT == 500
	CALL SET_PROSTITUTION_GIRL,LOCAL:1
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSE
	GOTO INPUT_LOOP
ENDIF

;客の個別表示関数2
@SHOW_PROSTITUTION_CUSTOMER3,ARG
LOCAL:1 = ARG
LOCAL:2 = 0
DRAWLINE
IF CUSTOMER:(LOCAL:1):2 == 0
	SETCOLOR 0x1E90FF
	PRINTFORM %UNICODE(0x2642)%
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 1
	SETCOLOR 0xFF69B4
	PRINTFORM %UNICODE(0x2640)%
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 2
	SETCOLOR 0xFF8C00
	PRINTFORM 集
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 3
	SETCOLOR 0xFF8C00
	PRINTFORM 両
	RESETCOLOR
ELSEIF CUSTOMER:(LOCAL:1):2 == 4
	SETCOLOR 0xFF8C00
	PRINTFORM 謎
	RESETCOLOR
ENDIF
PRINTFORM [{(LOCAL:1)}]
PROSTITUTION_SYSTEM = 0
CALL SHOW_PROSTITUTION_CUSTOMER_NAME , LOCAL:1
PROSTITUTION_SYSTEM = 1
PRINTL
IF LOCAL:3 >= 0
	PRINT 支払予定額
	PRINTFORML {CUSTOMER:(LOCAL:1):10}円
	PRINT 今までの支払総額
	PRINTFORML {CUSTOMER:(LOCAL:1):19}円
ENDIF
IF LOCAL:3 >= 28
	PRINT あてがわれているキャラへの好み
	PRINTFORML {CUSTOMER:(LOCAL:1):13}
ENDIF

IF LOCAL:3 >= 0
	PRINT 指名している相손
	IF CUSTOMER:(LOCAL:1):14 != 0
		PRINTFORML %NAME:(CUSTOMER:(LOCAL:1):14)%
	ELSE
		PRINTL 指名していない
	ENDIF
ENDIF

IF LOCAL:3 >= 18
	PRINT 行為回数
	PRINTFORML {CUSTOMER:(LOCAL:1):39}回
ENDIF

IF LOCAL:3 >= 22
	PRINT プレイの重さ
	SIF CUSTOMER:(LOCAL:1):40 == 0
		PRINTL ソフト
	SIF CUSTOMER:(LOCAL:1):40 == 1
		PRINTL ノーマル
	SIF CUSTOMER:(LOCAL:1):40 == 2
		PRINTL ハード
	SIF CUSTOMER:(LOCAL:1):40 == 3
		PRINTL 変態的
ENDIF

IF LOCAL:3 >= 28
	PRINT 監禁する日数
	PRINTFORML {CUSTOMER:(LOCAL:1):63}日
	PRINT 監禁している相손
	IF CUSTOMER:(LOCAL:1):64 != 0
		PRINTFORML %NAME:((CUSTOMER:(LOCAL:1):64))%
	ELSEIF CUSTOMER:(LOCAL:1):64 == 0
		PRINTFORML 監禁している相손はいない
	ENDIF
ENDIF

IF LOCAL:3 >= 0
	FOR LOCAL:2,0,10
	IF CUSTOMER:(LOCAL:1):(LOCAL:2+70) != 0
		SIF LOCAL:2+70 == 70
			PRINT 前回の相손
		SIF LOCAL:2+70 == 71
			PRINT ２回前の相손
		SIF LOCAL:2+70 == 72
			PRINT ３回前の相손
		SIF LOCAL:2+70 == 73
			PRINT ４回前の相손
		SIF LOCAL:2+70 == 74
			PRINT ５回前の相손
		SIF LOCAL:2+70 == 75
			PRINT ６回前の相손
		SIF LOCAL:2+70 == 76
			PRINT ７回前の相손
		SIF LOCAL:2+70 == 77
			PRINT ８回前の相손
		SIF LOCAL:2+70 == 78
			PRINT ９回前の相손
		SIF LOCAL:2+70 == 79
			PRINT １０回前の相손
		IF CUSTOMER:(LOCAL:1):(LOCAL:2+70) == -1
			PRINTL 相손はいなかった
		ELSE
			CSVNAME (CUSTOMER:(LOCAL:1):(LOCAL:2+70))
			PRINTFORML %RESULTS%
		ENDIF
	ENDIF
	NEXT
ENDIF

LOCAL:2 = 0

IF LOCAL:3 >= 25
	FOR LOCAL:2,0,10
	IF CUSTOMER:(LOCAL:1):(LOCAL:2+80) != 0
		SIF LOCAL:2+80 == 80
			PRINT １番目のお気に入り
		SIF LOCAL:2+80 == 81
			PRINT ２番目のお気に入り
		SIF LOCAL:2+80 == 82
			PRINT ３番目のお気に入り
		SIF LOCAL:2+80 == 83
			PRINT ４番目のお気に入り
		SIF LOCAL:2+80 == 84
			PRINT ５番目のお気に入り
		SIF LOCAL:2+80 == 85
			PRINT ６番目のお気に入り
		SIF LOCAL:2+80 == 86
			PRINT ７番目のお気に入り
		SIF LOCAL:2+80 == 87
			PRINT ８番目のお気に入り
		SIF LOCAL:2+80 == 88
			PRINT ９番目のお気に入り
		SIF LOCAL:2+80 == 89
			PRINT １０番目のお気に入り
		IF CUSTOMER:(LOCAL:1):(LOCAL:2+80) == -1
			PRINTL 相손はいなかった
		ELSE
			CSVNAME (CUSTOMER:(LOCAL:1):(LOCAL:2+80))
			PRINTFORML %RESULTS,16,LEFT%　　의존도({(CUSTOMER:(LOCAL:1):(LOCAL:2+90))})
		ENDIF
	ENDIF
	NEXT
	PRINTL
ENDIF

DRAWLINE
PRINT [300] - 前の項目へ
PRINT [400] - 돌아온다
PRINTL [500] - 창녀を割り当てる。
$INPUT_LOOP
INPUT
IF RESULT == 300
	CALL SHOW_PROSTITUTION_CUSTOMER2,LOCAL:1
ELSEIF RESULT == 400
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSEIF RESULT == 500
	CALL SET_PROSTITUTION_GIRL,LOCAL:1
	CALL SHOW_PROSTITUTION_CUSTOMER
ELSE
	GOTO INPUT_LOOP
ENDIF

;客の備考、名前、指名、対応、金額、コメント表示
@SHOW_PROSTITUTION_CUSTOMER_NAME,ARG

LOCAL:1 = ARG
LOCAL:2 = 0
LOCAL:3 = 0
LOCAL:4 = 0
LOCAL:5 = 0

IF CUSTOMER:(LOCAL:1):0 != 6
	PRINTFORM %CUSTOMERNAME2:(LOCAL:1)%
	PRINTFORM %CUSTOMERNAME1:(LOCAL:1)%
	;表示を合わせる
	STRLENFORM %CUSTOMERNAME2:(LOCAL:1)%%CUSTOMERNAME1:(LOCAL:1)%
	LOCAL:4 = 16 - RESULT

	FOR (LOCAL:3),0,(LOCAL:4)
		PRINT
	NEXT
ELSEIF CUSTOMER:(LOCAL:1):0 == 6
	SETCOLOR 0xFFD700
	PRINTFORM %CUSTOMERNAME1:(LOCAL:1),16,LEFT%
	RESETCOLOR
ENDIF
PRINT
IF PROSTITUTION_SYSTEM == 1

	LOCAL:5 = GET_CLAIREVOYANCE_LEVEL()

	PRINTFORM %GET_CUSTOMER_TYPE_NAME(LOCAL:1,LOCAL:5)%

	IF CUSTOMER:(LOCAL:1):64 >= 1
		PRINT 監禁中
	ELSE
		CALL PROSTITUTION_CUSTOMER_SIMEI , (LOCAL:1)
	ENDIF

	PRINTFORM %GET_SHORTED_STRING(GET_CUSTOMER_TARGET_NAME(LOCAL:1),6),6,LEFT%

	;金額の表示
	SIF CUSTOMER:(LOCAL:1):64 >= 1
		CUSTOMER:(LOCAL:1):10 = 0
	IF CUSTOMER:(LOCAL:1):10 == 0
		PRINTFORM
	ELSE
		PRINTFORM {CUSTOMER:(LOCAL:1):10,6}円
	ENDIF
	SIF CUSTOMER:(LOCAL:1):64 == 0
		PRINT
	;コメントの表示
	CALL CUSTOMER_KOMENTO , (LOCAL:1)
ENDIF

@GET_CUSTOMER_TYPE_NAME(index,clarevoyanceLevel)
#FUNCTIONS
#DIM index
#DIM clarevoyanceLevel
IF CUSTOMER:index:0 == 1
	RETURNF "普通の客"
ELSEIF CUSTOMER:index:0 == 2
	RETURNF "불쾌な客"
ELSEIF CUSTOMER:index:0 == 3
	RETURNF "避妊拒否"
ELSEIF CUSTOMER:index:0 == 4
	RETURNF "横暴な客"
ELSEIF CUSTOMER:index:0 == 5
	RETURNF "고통な客"
ELSEIF CUSTOMER:index:0 == 6
	RETURNF "ヤバイ客"
ELSEIF CUSTOMER:index:0 == 7 && clarevoyanceLevel >= 18
	RETURNF "値切る客"
ELSEIF CUSTOMER:index:0 == 8
	RETURNF "普通の客"
ELSEIF CUSTOMER:index:0 == 9 && clarevoyanceLevel >= 18
	RETURNF "悪評の客"
ELSE
	RETURNF "普通の客"
ENDIF

@GET_CUSTOMER_TARGET_NAME(index)
#FUNCTIONS
#DIM index
#DIM targetIndex
targetIndex = CUSTOMER:index:12
IF targetIndex != 0
	RETURNF CALLNAME:(targetIndex)
ELSE
	RETURNF "×"
ENDIF

@GET_CLAIREVOYANCE_LEVEL()
#FUNCTION
#DIM answer
IF ASSI >= 1
	answer = (ABL:ASSI:22)*2 + (ABL:ASSI:25)
	SIF TALENT:ASSI:마술기능
		answer += 3
	SIF TALENT:ASSI:우등생
		answer += 2
	SIF TALENT:ASSI:학생회장
		answer += 2
	SIF TALENT:ASSI:사교적
		answer += 3
	SIF TALENT:ASSI:정보통
		answer += 3
ELSE
	answer = 0
ENDIF
RETURNF answer

;客の指名決定関数
@PROSTITUTION_CUSTOMER_SIMEI , ARG
#DIM DYNAMIC SIMEI ,500
LOCAL:0 = ARG
;SIMEI,対象のキャラNO = 好みポイント
;LOCAL:0 = 客のNO
;LOCAL:1 = COUNT用
;LOCAL:2 = 好みポイント　SIMEI:キャラNO に代入する
;LOCAL:3 = その客の一番好みポイントが高いキャラNO
;CFLAG:13に好みポイントを入れ、FINDCHARAで指名キャラNOを呼び出す

LOCAL:1 = 0
LOCAL:2 = 0
LOCAL:3 = 0
LOCAL:4 = 0
FOR (LOCAL:1),0,CHARANUM
	IF CFLAG:(LOCAL:1):12 == 1 && CFLAG:(LOCAL:1):51 == 0
		CFLAG:(LOCAL:1):13 = GET_PROSTITUTION_CUSTOMER_KONOMI(LOCAL:0 ,LOCAL:1)
		;ただし素質と矛盾する場合は強制的にクリア
		SIMEI:(LOCAL:1) = CFLAG:(LOCAL:1):13
		;LOCAL:2に一番高かった好みポイントを代入
		SIF SIMEI:(LOCAL:1) >= (LOCAL:2)
			LOCAL:2 = SIMEI:(LOCAL:1)
;		PRINTFORM {CFLAG:(LOCAL:1):13}
	ENDIF
NEXT
LOCAL:3 = FINDCHARA(CFLAG:13,LOCAL:2,0)
;最初に来店した日に고통な客は対象キャラを記録しておく（고통な客フラグ、そのキャラの好み+80）
IF CUSTOMER:(LOCAL:0):0 == 5 && CUSTOMER:(LOCAL:0):11 == 0
	CUSTOMER:(LOCAL:0):65 = NO:(LOCAL:3)
;最初に来店した日に特別な客は対象キャラを記録しておく（特別な客フラグ、そのキャラの好み+80）
ELSEIF CUSTOMER:(LOCAL:0):0 == 6 && CUSTOMER:(LOCAL:0):11 == 0
	CUSTOMER:(LOCAL:0):65 = NO:(LOCAL:3)
;必ず指名する客はその都度対象キャラを記録する
ELSEIF CUSTOMER:(LOCAL:0):8 == 2 && CUSTOMER:(LOCAL:0):0 != 5 && CUSTOMER:(LOCAL:0):0 != 6
	CUSTOMER:(LOCAL:0):65 = NO:(LOCAL:3)
ENDIF

;고통な客と特別な客は必ずターゲットを指名する
IF CUSTOMER:(LOCAL:0):0 == 5 || CUSTOMER:(LOCAL:0):0 == 6 || CUSTOMER:(LOCAL:0):8 == 2
	LOCAL:4 = GETCHARA(CUSTOMER:(LOCAL:0):65)
	;そのキャラが削除されていたり、売春してなかったら指名しない
	SIF !(LOCAL:4 == -1 || CFLAG:(LOCAL:4):12 != 1 || CFLAG:(LOCAL:4):51 >= 1 || CFLAG:(LOCAL:4):53 >= 1 || IS_UNCONTACTABLE(LOCAL:4))
		CUSTOMER:(LOCAL:0):14 = LOCAL:4
;指名が決まっている客は指定継続
ELSEIF CUSTOMER:(LOCAL:0):14 >= 1
	;아무것도안한다
;好みによって指名する客は好み100以上
ELSEIF SIMEI:(LOCAL:3) >= 100 && CUSTOMER:(LOCAL:0):8 != 0
	CUSTOMER:(LOCAL:0):14 = LOCAL:3
;必ず指名する客の処理
ELSEIF CUSTOMER:(LOCAL:0):8 == 2 && ( LOCAL:3 != MASTER )
	CUSTOMER:(LOCAL:0):14 = LOCAL:3
ELSEIF SIMEI:(LOCAL:3) <= 99 || CUSTOMER:(LOCAL:0):8 == 0
	CUSTOMER:(LOCAL:0):14 = 0
ENDIF

;削除されているキャラを指名している場合は指名をクリア
SIF IS_UNCONTACTABLE(LOCAL:4)
	CUSTOMER:(LOCAL:0):14 = 0

;そもそも選択不可な組み合わせの場合は狙っている相손もクリア
IF !IS_CUSTOMER_SELECTABLE_CHARA(LOCAL:0,LOCAL:4)
	CUSTOMER:(LOCAL:0):14 = 0
	CUSTOMER:(LOCAL:0):65 = 0
ENDIF

;指名が決まっている客はここで指名
IF CUSTOMER:(LOCAL:0):14 >= 1
	PRINTFORM %CALLNAME:(CUSTOMER:(LOCAL:0):14),8,LEFT%
ELSE
	PRINT なし
ENDIF

;必ず指名する客の指名リセット
IF CUSTOMER:(LOCAL:0):8 == 2
	IF CUSTOMER:(LOCAL:0):0 != 5 && CUSTOMER:(LOCAL:0):0 != 6
		CUSTOMER:(LOCAL:0):65 = 0
	ENDIF
ENDIF

LOCAL:1 = 0
LOCAL:2 = 0

;客側をキーに売春キャラを設定する。
@SET_PROSTITUTION_GIRL(customerIndex)
#DIM customerIndex
#DIM index
PRINTFORML 誰をあてがいますか？
FOR index,0,CHARANUM
	SIF !IS_PROSTITUTABLE(index)
		CONTINUE
	PRINTFORML [{index,2,RIGHT}] - %"(" + TOSTR(GET_PROSTITUTION_VALUE(customerIndex,index)) + "円)",10,RIGHT%　%CALLNAME:index,20,LEFT%　: \@ CFLAG:index:14 > 0 ? %GET_CUSTOMER_NAME(CFLAG:index:14),10,LEFT% : %GET_CUSTOMER_TYPE_NAME(CFLAG:index:14,GET_CLAIREVOYANCE_LEVEL()),8,LEFT% - {GET_PROSTITUTION_VALUE(CFLAG:index:14,index),6,RIGHT}円 # × \@
NEXT
PRINTFORML [300] - 割り当てを外す
PRINTFORML [400] - 취소
WHILE 1
	INPUT
	index = RESULT
	IF RESULT == 300 || (index > 0 && index < CHARANUM && CFLAG:index:14 == customerIndex)
		CALL CLEAR_PROSTITUTE_SETTING(customerIndex)
		BREAK
	ELSEIF RESULT == 400
		BREAK
	ELSEIF RESULT < 300
		SIF CFLAG:index:14 > 0
			CALL CLEAR_PROSTITUTE_SETTING(CFLAG:index:14)
		SIF CUSTOMER:customerIndex:12 > 0
			CALL CLEAR_PROSTITUTE_SETTING(customerIndex)
		CALL SET_PROSTITUTE_SETTING(customerIndex,index)
		BREAK
	ELSE
		;아무것도안한다
	ENDIF
WEND
RETURN

@IS_PROSTITUTABLE(charaIndex)
#FUNCTION
#DIM charaIndex
RETURNF CFLAG:charaIndex:200 != 1 && !EXTRA_WORK_IS_DOING(charaIndex) && charaIndex != MASTER && BASE:charaIndex:0 > 500 && !TALENT:charaIndex:육아중 && !TALENT:charaIndex:정화 && CFLAG:charaIndex:12 == 1 && CFLAG:charaIndex:51 < 1 && CFLAG:charaIndex:1012 == 0 && !IS_FRIEND_TENTACLE_APPROCHING(charaIndex)

@GET_CUSTOMER_NAME(customerIndex)
#FUNCTIONS
#DIM customerIndex
RETURNF CUSTOMERNAME2:customerIndex + CUSTOMERNAME1:customerIndex

@IS_CUSTOMER_SELECTABLE_CHARA(customerIndex,charaIndex)
#FUNCTION
#DIM customerIndex
#DIM charaIndex
RETURNF !(TALENT:charaIndex:천애고독 && CUSTOMER:customerIndex:0 == 5 && CUSTOMER:customerIndex:62 == 0)

repo_name: Catalyst/B

license: unknown


code:
;###############################################################
;
;	売春システム用2次元変数定義
;						2016/011/26
;###############################################################

;客に割り振る変数
;2次元変数CUSTOMERを定義
;CUSTMER,(要素1),(要素2)
;セーブされる変数
;要素1　客のNO
;要素2　客の項目を定義
;代入される数値により客を決定する
;詳しくは\ERB\売春関フォルダのPROSTITUTION_CUSTOMER.ERBを参照

#DIM SAVEDATA CUSTOMER, 200,100
#DIMS SAVEDATA CUSTOMERNAME1, 200
#DIMS SAVEDATA CUSTOMERNAME2, 200

;売春システムコントロール用変数
#DIM PROSTITUTION_SYSTEM


code:
#DIMS SAVEDATA DIARY, 10000
#DIM SAVEDATA DIARY_COUNT, 1
#DIM NOW_DIARY_PAGE, 1

;4月始まり。4月がindex:0になる
#DIM CONST MONTH_DAY_LIST = 30,31,30,31,31,30,31,30,31,31,28,31


code:
;#DIM
;#DIMS

#DIMS NIGHT_PROSTITUTION_VISITOR_客タイプ

;NIGHT_PROSTITUTION_VISITOR

;休日日中の調教フラグ
#DIM SAVEDATA HOLIDAY_DAYTIME_TRAIN_ENABLED

;촉수유혹時の文章を簡略化
#DIM SAVEDATA IS_SKIP_TENTACLE_INVITATION

#DIM CONST ITEM_MAXCOUNT = 103

;マナ
#DIM SAVEDATA TENTACLE_MANA_POINT

;関係性の同居/非同居を意味するプレフィクス
#DIM CONST SAMEHOME_PREFIX = 10000

;警察でもみ消せる可能性。警察への駆け込みが起こるたびに上がっていく。駆け込みイベントの頭でもみ消せるかチェックし、失敗すると問答無用でゲームオーバー
;黒服や事務所の男への駆け込みならセーフ。またもみ消しでヤクザに依頼すると多目にあがる。金でもみ消す場合の金額が上がる。
;また、上がりすぎると警察系キャラのイベントが起きる。１日経過時に確率でダウン
#DIM SAVEDATA POLICE_UNHUSH_PER

;SHOP内でRESTARTしているので、駆け込みなどが複数回起きないようにする。
;SHOPの表示直前に1をセットし、SYSTEM.ERBのターン終了処理後に0にセット
#DIM SAVEDATA IS_TURNSTART

;各種イベント時に처녀を奪わず、애널で犯すフラグ。0ならOFF(常に膣)、1なら都度選択、2ならON(常に애널)
;添え字0が主人が犯す場合、添え字1が奴隷が犯す場合のパターン。
#DIM SAVEDATA FIRSTRAPE_TYPE,2

;1なら약점の調査途中でレイプする選択肢を発生させない(약점が判明するまで調査を続ける)、2なら강간可能になり次第강간を試みる。
#DIM SAVEDATA SEARCH_UNTIL_WEEKPOINT_FOUND

;#DIM CONST COMF_TYPE_


code:
;-------------------------------------------------------------------------------
;    BARカラー化 (eramegaten、eraMEIQ外伝より一部参照)
;-------------------------------------------------------------------------------
;    例  PRINTFORM %PRINT_COLORBAR(40,100,8,%UNICODE(0x2584)%,%UNICODE(0x2584)%,,0x404040,)%
;        [===     ]
;	引数はBARとほぼ一緒 + ARGSで描写文字の変更が可能(指定しない場合はBARと同じ仕様)
;	ARG:6はバー色(0xFFFFFF形式で指定),
;	ARG:7はバー背景色(0xFFFFFF形式で指定),
;	ARG:8はバーグラデーション幅(バー色数値に10進で四則演算)
;===============================================================================
@PRINT_COLORBAR(ARG, ARG:1, ARG:2, ARGS = "*", ARGS:1 = ".", ARG:3, ARG:4, ARG:5 = 0)
LOCAL:1 = ARG:1 / (ARG:2+ARG:2/32)
LOCAL:2 = GETCOLOR()
LOCAL:3 = COUNT

REPEAT ARG:2
ARG = ARG - LOCAL:1
IF ARG >= 0
	SETCOLOR ARG:3 - (ARG:5 * COUNT)
	PRINTFORM %ARGS%
ELSE
	SETCOLOR ARG:4
	PRINTFORM %ARGS:1%
ENDIF
REND
COUNT = LOCAL:3
SETCOLOR LOCAL:2

;-------------------------------------------------
;各種ゲージのバー表示汎用処理
;-------------------------------------------------
;ARG　……キャラ位置を指定
;ARG:1……基礎の番号を指定
;ARG:2……表示形式(0=PRINTFORM, 1=PRINTFORML, 2=表示しない, 3=PRINTFORM(後スペースなし))
;ARG:3……バーサイズ表示（0 ノーマル,　1 スリム）
;ARG:4……低기력時カラー (0 あり, 1 1以下で赤, 2 なし)
@LIFE_BAR, ARG, ARG:1, ARG:2, ARG:3
SIF STRLENS(BASENAME:(ARG:1)) <= 0
	RETURN 0

PRINTFORM %BASENAME:(ARG:1)%%UNICODE(0x208D)%
BASE:ARG:(ARG:1) = LIMIT(BASE:ARG:(ARG:1), 0, MAXBASE:ARG:(ARG:1))
IF ARG:3 == 1
	SELECTCASE FLAG:20
		CASE 2
			CALL PRINT_COLORBAR, BASE:ARG:(ARG:1), MAXBASE:ARG:(ARG:1), 10, UNICODE(0x2583), UNICODE(0x2583), 0xF09000, 0x504010, -256*9
		CASE 3,1
			CALL PRINT_COLORBAR, BASE:ARG:(ARG:1), MAXBASE:ARG:(ARG:1), 10, UNICODE(0x2583), UNICODE(0x2583), 0xCCFFFF, 0x205050, 327680
	ENDSELECT
ELSE
	SELECTCASE FLAG:20
		CASE 2
			CALL PRINT_COLORBAR, BASE:ARG:(ARG:1), MAXBASE:ARG:(ARG:1), 32, UNICODE(0x2585), UNICODE(0x2585), 0xFF8000, 0x504010, -256*4
		CASE 3,1
			CALL PRINT_COLORBAR, BASE:ARG:(ARG:1), MAXBASE:ARG:(ARG:1), 32, UNICODE(0x2585), UNICODE(0x2585), 0xCCFFCC, 0x205020, 327685
	ENDSELECT
ENDIF
	PRINTFORM %UNICODE(0x208E)%
IF ARG:2 == 1
	PRINTFORML 　{BASE:ARG:(ARG:1), 4}/{MAXBASE:ARG:(ARG:1), 4}
ELSEIF ARG:2 == 3
	PRINTFORM 　{BASE:ARG:(ARG:1), 4}/{MAXBASE:ARG:(ARG:1), 4}
ELSE
	PRINTFORM 　{BASE:ARG:(ARG:1), 4}/{MAXBASE:ARG:(ARG:1), 4}
ENDIF


code:
;年月日と曜日を取得するシンプルな関数
;GET_CALENDERの仕様に合わせて閏年は考慮しない
;ちなみにDAYが1=4/7(水)。曜日まで固定
@GET_YEAR(targetDate=-1)
#FUNCTION
#DIM targetDate
SIF targetDate < 0
	targetDate=DAY
RETURNF ((targetDate + 6) / 365) + 1

@GET_MONTH_NOLOOP(targetDate=-1)
#FUNCTION
#DIM targetDate
#DIM index
SIF targetDate < 0
	targetDate=DAY
targetDate += 6
FOR index,0,12
	SIF targetDate <= MONTH_DAY_LIST:index
		BREAK
	targetDate -= MONTH_DAY_LIST:index
NEXT
RETURNF index

@GET_MONTH(targetDate=-1)
#FUNCTION
#DIM targetDate
#DIM answer
answer = GET_MONTH_NOLOOP(targetDate)
RETURNF answer < 10 ? answer + 3 # answer - 9

@GET_DAY(targetDate=-1)
#FUNCTION
#DIM targetDate
#DIM index
SIF targetDate < 0
	targetDate=DAY
targetDate += 6
FOR index,0,12
	SIF targetDate <= MONTH_DAY_LIST:index
		BREAK
	targetDate -= MONTH_DAY_LIST:index
NEXT
RETURNF targetDate

;日曜日=0で0～6
@GET_WEEKCODE(targetDate=-1)
#FUNCTION
#DIM targetDate
SIF targetDate < 0
	targetDate=DAY
RETURNF (targetDate + 2) % 7

@IS_DAYTIME()
#FUNCTION
RETURNF TIME == 0

@IS_NIGHT()
#FUNCTION
RETURNF TIME == 1

@IS_HOLIDAY()
#FUNCTION
RETURNF FLAG:8 == 0