;※※※※※※※※※※※※※※※※※※※※※※※※※
;セクハラ系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;310,尻を撫でる
;TFLAG:193(1=不快(TALENT:臆病なら涙目) 2&&3=恥ずかしがる(TALENT:男嫌い兼MASTERが男なら、身をすくめる) 4=されるがまま)
;CFLAG:うふふ==2&&TCVAR:20(パンツ無し顔面騎乗(70=クンニ強制 71=フェラチオ強制 72=アナル奉仕) 35=スカート内見せつけ 52=素股)
;CFLAG:うふふ==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K122_310
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K122_310
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_310_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF TALENT:狂気
			SELECTCASE TFLAG:193
				;不快
				CASE 1
					PRINTFORML 「うわ、いきなり触らないでよ。気持ちわるー」
					PRINTFORMW 舞は不快そうに%CALLNAME:MASTER%の手を払った。
				;恥ずかしがる
				CASE 2,3
					PRINTFORML 「もー！イヤらしい手つきで触ってー%UNICODE(0x2764)%」
					PRINTFORMW 舞は珍しくはにかんだ笑みを浮かべている。
				;されるがまま
				CASE 4
					SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「ぷぷぷー！君もその辺のスケベ親父と同レベルだねー」
						PRINTFORMW 舞はニヤニヤしながら、なじるように%CALLNAME:MASTER%を見つめている。
					CASE 1
						PRINTFORML 「あははっ！%CALLNAME:MASTER%ってば痴漢みたい！」
						PRINTFORMW 舞はけらけらと乾いた笑い声をあげている。
					ENDSELECT
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE TFLAG:193
				;不快
				CASE 1
					PRINTFORML 「ひゃあっ！？い、いきなりやめてよ！」
					PRINTFORML 「もう……そういうの、痴漢っていうんだよ？」
					PRINTFORMW 舞は頬を膨らませて%CALLNAME:MASTER%に抗議している。
				;恥ずかしがる
				CASE 2,3
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「うぅぅ……は、恥ずかしいからやめてよぉ……」
						CASEELSE
							PRINTFORMW 「%CALLNAME:MASTER%のヘンタイ……」
					ENDSELECT
				;されるがまま
				CASE 4
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「えへへ…僕のお尻、どう？」
						CASEELSE
							PRINTFORML 「%CALLNAME:MASTER%って、お尻が好きなの？」
							PRINTFORMW 「好きなら……もっと触っても、大丈夫だよ？」
					ENDSELECT
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
				;不快
				CASE 1
					PRINTFORML 「ひぃぃっ！！へ、へんたいーっ！」
					PRINTFORMW 舞は%CALLNAME:MASTER%の手を振り払った。
				;恥ずかしがる
				CASE 2,3
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML 「や、やめてよ………」
							PRINTFORMW 舞は居心地悪げに身じろぎしている。
						CASEELSE
							PRINTFORMW 「うぅ…こんなことして、楽しいの……？」
					ENDSELECT
				;されるがまま
				CASE 4
					SELECTCASE RAND:2
						CASE 0
							PRINTFORML 「触りすぎないでよね……」
							PRINTFORMW 舞はじっとりと%CALLNAME:MASTER%を見つめている。
						CASEELSE
							PRINTFORMW 「なんというか……%CALLNAME:MASTER%って、変態だね……」
					ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
ENDIF

RETURN 1
;==================================================
;311,抱き付く
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:うふふ==2&&TCVAR:20(32=前から抱きつく 60=ディープキス 73=ぱふぱふ 74=乳合わせ 77=乳を吸わせる ＶＡ性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K122_311
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K122_311
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_311_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF TALENT:狂気
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「ちょうどいい抱き心地？へえ？ じゃあ、具合の方も確かめてみる？」
				PRINTFORMW 舞はちら、とスカートをめくって、%CALLNAME:MASTER%に妖しい笑みを見せた。
			CASE 1
				PRINTFORML 「ふふふっ、僕もぎゅってしていいー？」
				PRINTFORMW 舞は煽情的な笑みを浮かべて、%CALLNAME:MASTER%を上目遣いで見つめている。
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「えへへ…あったかくて、安心するなぁ…」
				PRINTFORMW %CALLNAME:MASTER%に抱きしめられ、舞はすっかり甘えきっている。
			CASE 1
				PRINTFORML 「%CALLNAME:MASTER%、もっと…ぎゅってして…？」
				PRINTFORMW 舞は甘えた声を上げて、%CALLNAME:MASTER%におねだりしている。
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「ふふふ、あったかーい♪」
				PRINTFORMW %CALLNAME:MASTER%に抱きしめられ、舞は無邪気に笑っている。
			CASE 1
				PRINTFORML 「里乃ともよくこうするんだー」
				PRINTFORMW %CALLNAME:MASTER%とハグをしあって、舞は少しくすぐったそうに笑っている。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;312,キスする
;TFLAG:193(99=拒絶(キス不可) 1=大成功 0=成功 -1=失敗)
;CFLAG:うふふ==2&&TCVAR:20(32=前から抱きつく 50=手淫 60=キス 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K122_312
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K122_312
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_312_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF TALENT:狂気
			PRINTFORML 「ちゅぷ、ちゅうぅ……%UNICODE(0x2764)%」
			PRINTFORMW 「ぷは……ふふっ、次はもっと深くする…？%UNICODE(0x2764)%」
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「あむ、ん、ちゅ……%UNICODE(0x2764)%」
				PRINTFORMW 「はぁ……これ以上したら、心臓が爆発しちゃいそう…%UNICODE(0x2764)%」
			CASE 1
				PRINTFORML 「ちゅ…ぺろ、んむぅ…%UNICODE(0x2764)%」
				PRINTFORMW 舞は恍惚とした表情で、%CALLNAME:MASTER%の口づけを受け入れている。
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「ちゅっ……」
				PRINTFORMW 「うぅん、やっぱり…こういうことって、恋人同士でするものじゃないの？」
			CASE 1
				PRINTFORML 「ちゅ、れろ、ちゅぅぅ……っ」
				PRINTFORMW 舞は少し遠慮がちに%CALLNAME:MASTER%のキスを受け入れている。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;CFLAG:うふふ==2&&TCVAR:20(27=谷間を見せる 33=胸を揉ませる 53=パイズリ(小分岐は地の文EVENT_MESSAGE_COM_セクハラ.ERB参照) 73=ぱふぱふ 77=乳を吸わせる 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;ABL:Ｂ感覚(2未満=性的には感じてない 5未満=多少感じてる 5以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;乳のサイズでも変わる場合があるので、地の文EVENT_MESSAGE_COM_セクハラ.ERB参照
;==================================================
@M_KOJO_MESSAGE_COM_K122_313
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_313_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
			PRINTFORML 
	ELSE
		IF ABL:Ｂ感覚 <= 1
			SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「あはは、くすぐったいよー」
				PRINTFORMW ……まだ舞は胸で感じることができないようだ。
			CASE 1
				PRINTFORML 「これ、本当に気持ちよくなるのー？」
				PRINTFORMW 舞は訝し気に%CALLNAME:MASTER%の手を見つめている。
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「……んっ、気持ちいいよ、%CALLNAME:MASTER%……」
				PRINTFORMW 舞は%CALLNAME:MASTER%を受け入れている。
			CASE 1
				PRINTFORML 「えへへ、もっと触っていいよー%UNICODE(0x2764)%」
				PRINTFORMW 舞は%CALLNAME:MASTER%が触りやすいように胸を張った。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;314,アナル愛撫
;CFLAG:うふふ==2&&TCVAR:20(72=アナル奉仕
;CFLAG:うふふ==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;ABL:Ａ感覚(2未満=受け入れられない 4未満=異物感に翻弄 4以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K122_314
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_314_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_314_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF ABL:Ａ感覚 <= 1
		PRINTFORML 「うひぃっ！？や、やめてよ！ ……というか汚くない？」
		PRINTFORMW 舞はドン引きーといった表情でこちらを見つめている。
	ELSEIF ABL:Ａ感覚 <= 3
		PRINTFORML 「ひゃっ…！こら、触んないでよー」
		PRINTFORMW 舞は少し頬を染め、じとっと%CALLNAME:MASTER%を睨んでいる。
	ELSE
		PRINTFORML 「あうぅ%UNICODE(0x2764)% お、お尻はダメだってばー%UNICODE(0x2764)%」
		PRINTFORMW 舞は敏感な尻穴を触られ、思わず感じてしまったようだ。
	ENDIF
ENDIF
RETURN 1
;==================================================
;315,クリ愛撫
;CFLAG:うふふ==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振り
;ABL:Ｃ感覚(4未満=くすぐったい 6未満=ちょっといいかも 6以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K122_315
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_315_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF ABL:Ｃ感覚 <= 3
		PRINTFORML 「ん、ふふふっ%UNICODE(0x2764)%」
		PRINTFORMW 舞は微笑みながら、こそばゆそうに体を捻った。
	ELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「いいよ、%CALLNAME:MASTER%……っ%UNICODE(0x2764)%」
			PRINTFORMW 舞は熱っぽい目つきをして、%CALLNAME:MASTER%の手を秘所に押し当てた……
		CASE 1
			PRINTFORML 「あぁっ%UNICODE(0x2764)% もう…そこばかりいじめないでよー%UNICODE(0x2764)%」
			PRINTFORMW %CALLNAME:MASTER%が指を動かすたびに、舞は体をビクッと反応させている。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;CFLAG:うふふ==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 87=Ａ挿入する 89=腰振りＡ
;TALENT:処女(指挿入れ連続時喪失注意、基本拒否ぎみ)
;ABL:Ｖ感覚(1未満=違和感に戸惑う 5未満=ちょっと気持ちいい 5以上＝カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K122_316
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_316_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_316_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:処女 == 1
		PRINTFORML 「ちょ、ちょっと待って！そんなに触られると怖いよ…」
		PRINTFORMW 舞は破瓜の可能性に怯えているようだ…。
	ELSEIF ABL:Ｖ感覚 < 1
		PRINTFORML 「なんか、思ったより気持ち良くないなぁ…」
		PRINTFORMW 舞はまだ膣で感じることができないようだ。
	ELSE
		PRINTFORML 「はあっ%UNICODE(0x2764)% あ、きもちいっ、もっと…っ%UNICODE(0x2764)%」
		PRINTFORMW %CALLNAME:MASTER%が指を動かすたびに、舞は感じきった声を上げた。
	ENDIF
ENDIF
RETURN 1
;==================================================
;317,腰を動かす
;ABL:Ｖ感覚(2未満=まだ気持ち良くない 5未満=ちょっと気持ちいい 5以上=カイカン
;==================================================
@M_KOJO_MESSAGE_COM_K122_317
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_317_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_317_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF ABL:Ｖ感覚 < 2
		PRINTFORML 「ん、うぅっ……ね、ねえ、もうちょっと、ゆっくり動いてくれない…？」
		PRINTFORMW 舞はまだ膣で感じることができないようだ。
	ELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「あっ、こ、これっ、すご…っ%UNICODE(0x2764)% おっ%UNICODE(0x2764)%」
			PRINTFORMW 何度も膣を擦られて、舞はもはや喘ぐことしかできないようだ。
		CASE 1
			PRINTFORML 「%CALLNAME:MASTER%、きもちいよっ%UNICODE(0x2764)% もっと、もっとっ%UNICODE(0x2764)%」
			PRINTFORMW %CALLNAME:MASTER%が動く度に、舞は尻を震わせて快楽を催促した。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;318,腰を動かす（Ａ）
;==================================================
@M_KOJO_MESSAGE_COM_K122_318
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_318_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_318_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF ABL:Ａ感覚 < 2
		PRINTFORML 「待って、ちょっと、痛い……っ」
		PRINTFORMW 尻穴を犯され、舞は苦しそうに顔を歪めている。
	ELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「おっ、おしりなのに、こんなに…っ%UNICODE(0x2764)% お、はあっ、だめ…っ%UNICODE(0x2764)%%UNICODE(0x2764)%」
			PRINTFORMW 舞は尻穴から伝ってくる快楽に夢中になっている。
		CASE 1
			PRINTFORML 「あっ、おしりきもちい…っ%UNICODE(0x2764)% あはっ、%CALLNAME:MASTER%、もっとしていいよ…っ%UNICODE(0x2764)%」
			PRINTFORMW 舞はアナルセックスの悦楽に満足気な笑みを浮かべている。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;330,スカートめくり
;TFLAG:193(-5=拒絶（ビンタ） -3=拒絶（つねり） -1=いやがる 0=いやがる（嬉しげ） 1=受け入れ)
;TFLAG:193=1&&ABL:露出癖(5以上=人目のある場所で、自らスカートをまくり上げる 4以下=人目のある場所でめくられるさいに弱い抵抗 3以上=人目のない場所で自らスカートをまくり上げる 3未満=弱い抵抗)
;TFLAG:400(1=デート先or地底のモブが反応する)
;後ろからピラリ、ではなく、前からペラって感じ（そうじゃなかったら、めくり上げようとするのを止めて即座にビンタとか無理、めくり上げられた後にしかならないしその状況ならビンタ食らうより普通に弾幕で一発ＫＯにならないほうがおかしい
;==================================================
@M_KOJO_MESSAGE_COM_K122_330
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K122_330_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K122_330_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
		SELECTCASE TFLAG:193
			;ビンタ
			CASE -5
				PRINTFORML 「うわっ！？ こ、この、変態めっ！」
				PRINTFORMW スカートをめくられた舞は、%CALLNAME:MASTER%に思いっきりビンタをかました。
			;つねられる
			CASE -3
				PRINTFORML 「僕のスカートを触ろうとした手はこれかー？」
				PRINTFORMW 舞はぎゅううっと%CALLNAME:MASTER%の手をつねった。
			;嫌がる
			CASE -1
				IF TALENT:狂気
					PRINTFORML 「やーん、エッチー☆ ……なんて、すると思った？」
					PRINTFORMW 舞は冷めた目で%CALLNAME:MASTER%を見つめている。
				ELSE
					SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「いや、ほんと何やってんの……？」
						PRINTFORMW 舞は心底ドン引きしたように%CALLNAME:MASTER%を見つめている。
					CASEELSE
						PRINTFORML 「うわぁっ！？ や、やめてよー！」
						PRINTFORMW スカートを押さえた舞は、顔を真っ赤にして抗議している。
					ENDSELECT
				ENDIF
			;嫌がる（嬉しげ）
			CASE 0
				SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「やったな？ スカートめくり、はんたーい！」
						PRINTFORMW 舞は若干笑いながら抗議してきた。
					CASEELSE
						PRINTFORML 「もー！%CALLNAME:MASTER%のエッチー！」
						PRINTFORMW 舞はスカートを押さえ、ちょっぴり笑いながら抗議してきた。
				ENDSELECT
			;成功
			CASE 1
				IF GET_TARGETNUM() == 1 && !DATE_HITOGOMI(CFLAG:PLAYER:現在位置) && !WITH_MOB()
					IF ABL:露出癖 > 3
						IF TALENT:狂気
							PRINTFORML 「そんなに見たいなら見せてあげるよ、ほら♪」
							PRINTFORMW 舞はにやにやしながら、自身のスカートをたくし上げた。
						ELSE
							PRINTFORML 「そんなに見たいの？し、仕方ないなぁ……」
							PRINTFORMW 舞は恥ずかしそうに頬を染めながら、遠慮がちにスカートをたくし上げた。
						ENDIF
					ELSE
						IF TALENT:狂気
							PRINTFORML 「あははっ、結構見えちゃったかな？」
							PRINTFORMW 舞は笑いながら、誘うようにスカートをひらひらさせている。
						ELSE
							PRINTFORML 「み、見えたでしょ？ 満足した？」
							PRINTFORMW 舞は恥ずかしそうに頬を染めながら、じっと%CALLNAME:MASTER%を見つめている。
						ENDIF
					ENDIF
				ELSE
					IF ABL:露出癖 > 5
						IF TALENT:狂気
							PRINTFORML 「そんなに見たいなら見せてあげるよ、ほら♪」
							PRINTFORMW 舞はにやにやしながら、自身のスカートをたくし上げた。
						ELSE
							PRINTFORML 「そんなに見たいの？し、仕方ないなぁ……」
							PRINTFORMW 舞は恥ずかしそうに頬を染めながら、遠慮がちにスカートをたくし上げた。
						ENDIF
					ELSE
						IF TALENT:狂気
							PRINTFORML 「あははっ、結構見えちゃったかな？」
							PRINTFORMW 舞は笑いながら、誘うようにスカートをひらひらさせている。
						ELSE
							PRINTFORML 「み、見えたでしょ？ 満足した？」
							PRINTFORMW 舞は恥ずかしそうに頬を染めながら、じっと%CALLNAME:MASTER%を見つめている。
						ENDIF
					ENDIF
				ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1