code:
;====================================================================
;KOJO�\�������Ǘ�
;@KOJO_MESSAGE_SEND
;ARGS   => ������ ("ENCOUNTER" "SP_EVENT" "EVENT" "COMMAND" "COUNTER" "PALAM" "MARK" "DIRECT" "ENDING"�j
;ARG:1 => ����^�C�~���O(�C�x���g�ԍ��APALAM�n�^�C�~���O�ԍ��ACOMMAND�ԍ���)
;ARG:2 => �����ҁi�����j�i���o�[
;ARG:3 => ���̑������������buffer
;ARG:4 => ���̑������������buffer2
;ARGS:1 => ������ver.����^�C�~���O(ARG:1�͖�������)
;ARGS:2 => ������ver.���̑������������(ARGS:1�����鎞�̂�)
;RESULTS�ɂ��ėp���Ɋւ��Ă͎d�l���ǂ߂Ȃ��̂Ŏ�芸�����x�^�ڐA
;====================================================================
@KOJO_MESSAGE_SEND( ARGS,ARG:1,ARG:2,ARG:3,ARG:4,ARGS:1,ARGS:2 )
SIF ARG:2 == MASTER && ARGS != "COMMAND"
	RETURN -1
RESULTS =
VARSET LOCAL
SELECTCASE ARGS
;------------------------------------------------------------
;�t�@�[�X�g�C���v���b�V�����nKOJO�o�����i���Ɍ����G�N�X�g���\���j
;------------------------------------------------------------
	CASE "ENCOUNTER"
		;TARGET�ɔ����Ґݒ�i���݂�TARGET��LOCAL�֑ޔ��j
		LOCAL = TARGET
		TARGET = ARG:2
		;���㑶�ݔ���
		TRYCALLFORM M_KOJO_K{NO:TARGET}
		;���㑶�݂��Ȃ��Ȃ�I��
		IF !RESULT
			TARGET = LOCAL
			RETURN 0
		ENDIF
		;����\���ݒ�Ȃ�\��
		IF FLAG:����e�L�X�g�ݒ� > 0
			SIF FLAG:����F
			TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
			TRYCALLFORM M_KOJO%RESULTS%_ENCOUNTER_K{NO:TARGET}
		ENDIF
		RESETCOLOR
		TARGET = LOCAL
;------------------------------------------------------------
;SP�C�x���g�nKOJO�o����
;------------------------------------------------------------
	CASE "SP_EVENT"
		;TARGET�ɔ����Ґݒ�i���݂�TARGET��LOCAL�֑ޔ��j
		LOCAL = TARGET
		TARGET = ARG:2
		;���㖢�\���Ȃ狤�ʌ����
		IF FLAG:����e�L�X�g�ݒ� <= 0
			;���ʌ���o��
			CALLFORM SPEVENT_MESSAGE_{ARG:1}(ARG:3,ARG:4)
			TARGET = LOCAL
			RETURN 0
		ENDIF
		RESULT = 0
		RESULTS =
		;TARGET�̔���
		;@M_KOJO_KX�ɂ�RESULTS���`����ƌ��オ��炸�N������
		SIF FLAG:����F
			TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
		TRYCALLFORM M_KOJO_K{NO:TARGET}
		RESETCOLOR
		;���オ���݂��Ȃ��Ȃ狤�ʌ����
		IF !RESULT
			;����\���ݒ�Ȃ狤�ʕ\��
			IF FLAG:����e�L�X�g�ݒ� > 0
				;���ʌ���o��
				CALLFORM SPEVENT_MESSAGE_{ARG:1}(ARG:3,ARG:4)
				TARGET = LOCAL
				RETURN 0
			ENDIF
		ENDIF
		;����\��
		IF FLAG:����e�L�X�g�ݒ� > 0
			;TARGET����o��
			;M_KOJO_KX��RESULTS���`����Ɛ؂�ւ���
			SIF FLAG:����F
				TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
			TRYCCALLFORM M_KOJO%RESULTS%_SPEVENT_K{NO:TARGET}_{ARG:1}(ARG:3,ARG:4)
			CATCH
				RESETCOLOR
				IF FLAG:����e�L�X�g�ݒ� > 0
					;���ʌ���o��
					CALLFORM SPEVENT_MESSAGE_{ARG:1}(ARG:3,ARG:4)
					TARGET = LOCAL
					RETURN 0
				ENDIF
			ENDCATCH
		ENDIF
		RESETCOLOR
		TARGET = LOCAL
;------------------------------------------------------------
;�C�x���g�nKOJO�o����
;------------------------------------------------------------
	CASE "EVENT"
		;TARGET�ɔ����Ґݒ�i���݂�TARGET��LOCAL�֑ޔ��j
		LOCAL = TARGET
		TARGET = ARG:2
		;���㖢�\���Ȃ狤�ʌ����
		IF FLAG:����e�L�X�g�ݒ� <= 0
			;���ʌ���o��
			TRYCALLFORM M_KOJO_EVENT_{ARG:1}(ARG:3,ARG:4)
			TARGET = LOCAL
			RETURN 0
		ENDIF
		RESULT = 0
		RESULTS =
		;TARGET�̔���
		;@M_KOJO_KX�ɂ�RESULTS���`����ƌ��オ��炸�N������
		TRYCALLFORM M_KOJO_K{NO:TARGET}
		;���オ���݂��Ȃ��Ȃ狤�ʌ����
		IF !RESULT || (FLAG:70 && !CFLAG:(NO:TARGET):���Ԓ�~����L) || (FLAG:�Ȃ肫�� && !CFLAG:(NO:TARGET):�Ȃ肫�����L)
			;����\���ݒ�Ȃ狤�ʕ\��
			IF FLAG:����e�L�X�g�ݒ� > 0
				;���ʌ���o��
				TRYCALLFORM M_KOJO_EVENT_{ARG:1}(ARG:3,ARG:4)
				TARGET = LOCAL
				RETURN 0
			ENDIF
		ENDIF
		;����\��
		IF FLAG:����e�L�X�g�ݒ� > 0
			;TARGET����o��
			SIF FLAG:����F
				TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
			IF ARGS:1 != ""
				TRYCALLFORM M_KOJO%RESULTS%_EVENT_K{NO:TARGET}_%ARGS:1%(ARGS:2,ARG:3,ARG:4)
			ELSE
				TRYCALLFORM M_KOJO%RESULTS%_EVENT_K{NO:TARGET}_{ARG:1}(ARG:3,ARG:4)
			ENDIF
		ENDIF
		RESETCOLOR
		TARGET = LOCAL
;------------------------------------------------------------
;�R�}���h�nKOJO�o����
;------------------------------------------------------------
	CASE "COMMAND"
		;�e�L�X�g�ݒ�
		IF FLAG:����e�L�X�g�ݒ� <= 0
			;��i�e�L�X�g�o��
			SIF FLAG:6 > 0
				CALL TRAIN_MESSAGE
			RETURN 0
		ENDIF
		;�{�[���M���O��
		IF TEQUIP:(ARG:2):20 && SELECTCOM != 107
			SIF FLAG:6 > 0
				CALL TRAIN_MESSAGE
		ELSEIF (FLAG:70 && !CFLAG:(ARG:2):���Ԓ�~����L) || (CFLAG:(ARG:2):�C�^�Y�� >= 1 && !CFLAG:(ARG:2):��������L) || (FLAG:�Ȃ肫�� && !CFLAG:(ARG:2):�Ȃ肫�����L)
			SIF FLAG:6 > 0
				CALL TRAIN_MESSAGE
		ELSE
			RESULT = 0
			RESULTS =
			;����̑��ݔ��� and RESULTS�ɕ�������
			TRYCALLFORM M_KOJO_K{NO:TARGET}
			IF !RESULT
				SIF FLAG:6 > 0
					CALL TRAIN_MESSAGE
				RETURN 0
			ENDIF
			;SIF FLAG:����F
				;TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
			IF TFLAG:50
				LOCAL = TFLAG:50
				LOCALS = SCOM
			ELSE
				LOCAL = SELECTCOM
				LOCALS = COM
			ENDIF
			TRYCCALLFORM M_KOJO%RESULTS%_MESSAGE_%LOCALS%_K{NO:TARGET}_{LOCAL}
			CATCH
				;���߂Ă��Ȃ��Ƃ���͔ėp�I�ȏ������\
				TRYCCALLFORM M_KOJO%RESULTS%_MESSAGE_COM_K{NO:TARGET}_00
				CATCH
					IF FLAG:6 > 0
						CALL TRAIN_MESSAGE
						RESETCOLOR
						RETURN 0
					ENDIF
				ENDCATCH
			ENDCATCH
		ENDIF
		RESETCOLOR
;------------------------------------------------------------
;�J�E���^�[�nKOJO�o����
;------------------------------------------------------------
	CASE "COUNTER"
		LOCAL = TARGET
		TARGET = ARG:2
		IF FLAG:����e�L�X�g�ݒ� <= 0
			IF FLAG:6 > 0
				CALL EVENT_COUNTER_MESSAGE
				TARGET = LOCAL
			ENDIF
			RETURN 0
		ENDIF

		;�{�[���M���O
		IF TEQUIP:(ARG:2):20 && FLAG:6 > 0
			CALL EVENT_COUNTER_MESSAGE
			TARGET = LOCAL
		ELSE
			RESULT = 0
			RESULTS =
			;����̑��ݔ��� and RESULTS�ɕ�������
			TRYCALLFORM M_KOJO_K{NO:TARGET}
			IF !RESULT || (FLAG:�Ȃ肫�� && !CFLAG:(ARG:2):�Ȃ肫�����L)
				SIF FLAG:6 > 0
					CALL EVENT_COUNTER_MESSAGE
				TARGET = LOCAL
				RESETCOLOR
				RETURN 0
			ENDIF
			TRYCCALLFORM M_KOJO%RESULTS%_MESSAGE_COUNTER_K{NO:TARGET}_{TCVAR:20}
				PRINTL
				PRINTL
			CATCH
				IF FLAG:6 > 0
					CALL EVENT_COUNTER_MESSAGE
					TARGET = LOCAL
					RESETCOLOR
					RETURN 0
				ENDIF
			ENDCATCH
			TARGET = LOCAL
		ENDIF
		RESETCOLOR
;------------------------------------------------------------
;�p�����[�^�nKOJO�o����
;------------------------------------------------------------
	CASE "PALAM"
		SELECTCASE ARG:1
		;==== �ː������� ============
			CASE 1
				VARSET LOCAL
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:6 > 0
						CALL PALAM_MESSAGE_A
					RETURN 0
				ENDIF
				FOR LOCAL, 0, GET_TARGETNUM() + 1
					SIF TARGET:LOCAL < 1
						CONTINUE
					;TARGET,TARGET:1,�c�̏��ɏo��
					SIF LOCAL > 0 && TARGET:LOCAL == TARGET
						CONTINUE
					;����o�͗p�̃t���O���Ȃ��Ɣ�΂�
					SIF !TCVAR:(TARGET:LOCAL):50
						CONTINUE
					LOCAL:1 = TARGET
					TARGET = TARGET:LOCAL
					RESULT = 0
					RESULTS =
					;����̑��ݔ��� and RESULTS�ɕ�������
					SIF FLAG:����F
						TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
					TRYCALLFORM M_KOJO_K{NO:TARGET}
					RESETCOLOR
					IF (!RESULT &&  FLAG:6 > 0) || (FLAG:70 && !CFLAG:(NO:TARGET):���Ԓ�~����L) || (FLAG:�Ȃ肫�� && !CFLAG:(NO:TARGET):�Ȃ肫�����L)
						CALL PALAM_MESSAGE_A
						TARGET = LOCAL:1
						RETURN 0
					ENDIF
					;�ː�����o�̓M�~�b�N
					CALL KOJO_MESSAGE_PALAMCNG_A2(LOCAL)
					SIF !RESULT
						LOCAL:2 ++
					TARGET = LOCAL:1
					;�R���h�[������͑Ώۈ�l�̂�
					SIF GETBIT(TFLAG:1,0)
						BREAK
				NEXT
		;==== �Ⓒ������ ============
			CASE 2
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:6 > 0
						CALL PALAM_MESSAGE_B
					RETURN 0
				ENDIF
				RESULT = 0
				RESULTS =
				;����̑��ݔ��� and RESULTS�ɕ�������
				SIF FLAG:����F
					TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
				TRYCALLFORM M_KOJO_K{NO:TARGET}
				RESETCOLOR
				IF (!RESULT &&  FLAG:6 > 0) || (FLAG:70 && !CFLAG:(NO:TARGET):���Ԓ�~����L) || (FLAG:�Ȃ肫�� && !CFLAG:(NO:TARGET):�Ȃ肫�����L)
					CALL PALAM_MESSAGE_B
					RETURN 0
				ENDIF
				IF CFLAG:(NO:TARGET):�C�^�Y��
					TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_B2_K{NO:TARGET}
					CATCH
						CALL PALAM_MESSAGE_B
					ENDCATCH
				ELSE
					TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_B_K{NO:TARGET}
					CATCH
						CALL PALAM_MESSAGE_B
					ENDCATCH
				ENDIF
				RESETCOLOR
		;==== ��������� ============
			CASE 3
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:6 > 0
						CALL PALAM_MESSAGE_C
					RETURN 0
				ENDIF
				RESULT = 0
				RESULTS =
				;����̑��ݔ��� and RESULTS�ɕ�������
				SIF FLAG:����F
				TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
				TRYCALLFORM M_KOJO_K{NO:TARGET}
				RESETCOLOR
				IF (!RESULT &&  FLAG:6 > 0) || (FLAG:70 && !CFLAG:(NO:TARGET):���Ԓ�~����L) || (FLAG:�Ȃ肫�� && !CFLAG:(NO:TARGET):�Ȃ肫�����L)
					CALL PALAM_MESSAGE_C
					RETURN 0
				ENDIF
				TRYCALLFORM M_KOJO_MESSAGE_PALAMCNG_C_K{NO:TARGET}
				RESETCOLOR
		;==== �p�����[�^�ϓ����� ====
			CASE 4
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:��i�e�L�X�g�ݒ� > 0
						CALL PALAM_MESSAGE_D
					RETURN 0
				ENDIF
				RESULT = 0
				RESULTS =
				;����̑��ݔ��� and RESULTS�ɕ�������
				SIF FLAG:����F
				TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
				TRYCALLFORM M_KOJO_K{NO:TARGET}
				RESETCOLOR
				IF (!RESULT &&  FLAG:6 > 0) || (FLAG:70 && !CFLAG:(NO:TARGET):���Ԓ�~����L) || (FLAG:�Ȃ肫�� && !CFLAG:(NO:TARGET):�Ȃ肫�����L)
					CALL PALAM_MESSAGE_D
					RETURN 0
				ENDIF
				TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
				TRYCALLFORM M_KOJO_MESSAGE_PALAMCNG_D_K{NO:TARGET}
				RESETCOLOR
		;==== �G��̎ː� ============
			CASE 5
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:��i�e�L�X�g�ݒ� > 0
						CALL PALAM_MESSAGE_E
					RETURN 0
				ENDIF
				RESULT = 0
				RESULTS =
				;����̑��ݔ��� and RESULTS�ɕ�������
				TRYCALLFORM M_KOJO_K{NO:TARGET}
				IF !RESULT && FLAG:��i�e�L�X�g�ݒ� > 0
					CALL PALAM_MESSAGE_E
					RETURN 0
				ENDIF
				TRYCALLFORM M_KOJO_MESSAGE_PALAMCNG_E_K{NO:TARGET}
		;==== �ł炵 ============
			CASE 6
				IF FLAG:����e�L�X�g�ݒ� <= 0
					SIF FLAG:��i�e�L�X�g�ݒ� > 0
						CALL PALAM_MESSAGE_F
					RETURN 0
				ENDIF
				RESULT = 0
				RESULTS =
				;����̑��ݔ��� and RESULTS�ɕ�������
				TRYCALLFORM M_KOJO_K{NO:TARGET}
				IF !RESULT && FLAG:��i�e�L�X�g�ݒ� > 0
					CALL PALAM_MESSAGE_F
					RETURN 0
				ENDIF
				TRYCALLFORM M_KOJO_MESSAGE_PALAMCNG_F_K{NO:TARGET}
		ENDSELECT
;	;����nKOJO�o����
	CASE "MARK"
		IF FLAG:����e�L�X�g�ݒ� <= 0
			SIF FLAG:��i�e�L�X�g�ݒ� > 0
				CALL MARK_MESSAGE
			RETURN 0
		ENDIF
		RESULT = 0
		RESULTS =
		;����̑��ݔ��� and RESULTS�ɕ�������
		SIF FLAG:����F
			TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
		TRYCALLFORM M_KOJO_K{NO:TARGET}
		RESETCOLOR
		IF !RESULT && FLAG:��i�e�L�X�g�ݒ� > 0
			CALL MARK_MESSAGE
			RETURN 0
		ENDIF
		TRYCALLFORM M_KOJO_MESSAGE_MARKCNG_K{NO:TARGET}
		RESETCOLOR
	;�R�}���h�n���ڌĂяo��
	CASE "DIRECT"
		SELECTCASE ARG:1
			CASE 351
				;�{�[���M���O
				IF TEQUIP:(ARG:2):20 && SELECTCOM != 107 && FLAG:��i�e�L�X�g�ݒ� > 0
					RETURN 1
				ELSE
					RESULT = 0
					RESULTS =

					IF FLAG:����e�L�X�g�ݒ� > 0
						IF FLAG:����F
							TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
						ELSE
							RESETCOLOR
						ENDIF
					ELSE
						RESETCOLOR
						RETURN 1
					ENDIF
					TRYCALLFORM M_KOJO_MESSAGE_COM_K{NO:TARGET}_351
					RESETCOLOR
				ENDIF
		ENDSELECT
	;��������I���ׂ̈�
	CASE "ENDING"
	SIF FLAG:����F
		TRYCALLFORM M_KOJO_COLOR_K{NO:TARGET}
		TRYCALLFORM M_KOJO_MESSAGE_ENDING_K{NO:TARGET}
		RESETCOLOR
ENDSELECT

;-------------------------------------------------
;@KOJO_MESSAGE_PALAMCNG_A2
;�ː�����o�͂̃M�~�b�N
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_A2(ARG)
;ARG W�t�F������TARGET�Ȃ�ARG=0�A��l�ڂȂ�ARG=1

;-------------------------------------------------
;�ː��Ώۂ���^�[�Q�b�g���񕡐��L����SCOMF�ː�
;-------------------------------------------------
IF MASTER_POSE(0,SET_P) != TARGET && !ARG
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_00(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_00(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�R���h�[��
;-------------------------------------------------
IF GETBIT(TCVAR:50,0)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_0(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_0(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�C���}�`�I
;-------------------------------------------------
IF GETBIT(TCVAR:50,23)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_23(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_23(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�V�b�N�X�i�C��
;-------------------------------------------------
IF GETBIT(TCVAR:50,22)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_22(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;�p�C�Y���t�F��
;-------------------------------------------------
IF GETBIT(TCVAR:50,21)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_21(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;����t�F��
;-------------------------------------------------
IF GETBIT(TCVAR:50,20)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_20(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;�A�i����d
;-------------------------------------------------
IF GETBIT(TCVAR:50,9)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_9(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;�A�x��
;-------------------------------------------------
IF GETBIT(TCVAR:50,8)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_8(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;���R�L
;-------------------------------------------------
IF GETBIT(TCVAR:50,7)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_7(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_7(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�f��
;-------------------------------------------------
IF GETBIT(TCVAR:50,6)
	TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_6(ARG)
		RETURN RESULT
	CATCH
	ENDCATCH
ENDIF
;-------------------------------------------------
;�p�C�Y��
;-------------------------------------------------
IF GETBIT(TCVAR:50,5)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_5(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_5(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�t�F���`�I
;-------------------------------------------------
IF GETBIT(TCVAR:50,4)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_4(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_4(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;���
;-------------------------------------------------
IF GETBIT(TCVAR:50,3)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_3(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_3(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�A�i��
;-------------------------------------------------
IF GETBIT(TCVAR:50,2)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_2(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_2(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
;-------------------------------------------------
;�S��
;-------------------------------------------------
IF GETBIT(TCVAR:50,1)
	IF CFLAG:(NO:TARGET):�C�^�Y��
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A2_K{NO:TARGET}_1(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ELSE
		TRYCCALLFORM M_KOJO_MESSAGE_PALAMCNG_A_K{NO:TARGET}_1(ARG)
			RETURN RESULT
		CATCH
		ENDCATCH
	ENDIF
ENDIF
CALL PALAM_MESSAGE_A
RESETCOLOR
RETURN 0

@SILENCE_TSTOP(ARG)
#FUNCTION
;���Ԓ�~���ɂ͒���Ȃ��L�������w��
SIF GROUPMATCH(ARG,39,41,54,86,87,88)
	RETURNF 1


code:
;-------------------------------------------------
;eraTheWorld 4.48用 たらこフラン口上 やった人:石川宿禰
;-------------------------------------------------
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

;**** Copyright ****************************************************************
;【金銭を伴う作品への転用を禁じる】

;eraに関わる宣伝行為について
;【支持しないと表明します】

;本口上の修正について（許可する行為のみ残してください）
;【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】

;本口上の加筆・改変について（許可する行為のみ残してください）
;【未記入部位加筆】【ランダム分岐加筆】【記入済部位加筆】【記入済部位コメントアウト】

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】

;本口上に対するその他但し書き
;【たらこ】
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:1500 フランちゃんがあなたとの生活から学ぶ性知識
;CFLAG:1500.1 射精目撃経験獲得
;	ちんちんをごしごしすると白いのが出るのね。しゃせーって言うんだね。
;CFLAG:1500.2 射精快楽経験
;	しゃせーって気持ちいいの？それじゃあもっとしゃせーさせてあげるねお兄様。
;	ふたなりフランちゃんが既にお射精の気持ち良さを知っている可能性に注意
;CFLAG:1500.3 膣内射精知識獲得
;	お兄様はフランのお腹の中でしゃせーしたいんだよね。なかだしっていうんだね。
;CFLAG:1500.4 ;ちょっぴり歪んだ性知識
;	『孕め』ってどんな意味？好きって意味なのね。

;TCVAR:350 一日一回まで
;TCVAR:350.1 畑の話題
;TCVAR:350.2 祭日の話題

;******************************************************************************

;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい

;### 口上存在判定 ###################################
@M_KOJO_K50(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K50_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAGやTALENTを利用する場合、キャラ番号が必須です

;眠姦口上有に1を入れると、眠姦時にコマンド口上が読み込まれるように
CFLAG:眠姦口上有 = 0
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K50

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K50
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAGを使う場合、キャラ番号の指定が必要になります
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K50
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
PRINTFORMW 「あっ！あなた！」
;より断定調によりペドペドしく
PRINTFORML 「あなた%CALLNAME:TARGET%のお兄様ねそうなのね！」
PRINTFORMW 「わ・か・る・わ・よ♪」
PRINTFORML 「だってお兄様の事だもの%UNICODE(0x2661)%」
PRINTFORMW 「うふふ♪」
PRINTFORML
PRINTFORMW 「ところで、あなたはだぁれ？」
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K50_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「お兄様。デートをしたらもう恋人なんだよ」
	PRINTFORML 「結婚をゼンテーにしたの恋人なんだよ」
	PRINTFORML 「だからね。ちゅーしちゃった%UNICODE(0x2661)%」
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K50_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORMW 「お兄様。たらこが来たら%CALLNAME:TARGET%の代わりに食べてくれる？」
		PRINTFORML 「%CALLNAME:TARGET%はお兄様の代わりにピーマン食べてあげる」
		PRINTFORML 「%CALLNAME:TARGET%、ピーマンなら平気だから…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「うふふ♪お兄様だーいすき！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふぇぇ…辛いのやだよぉ…」
		RETURN 1
	ENDIF

	;以下たらこOFF 没鎬
	;告白
	;PRINTFORMDL %CALLNAME:TARGET%の表情はいつになく、真剣な面持ちだ…
	;PRINTFORMDW 楽しくなかったという事も無い筈だが…
	;PRINTFORML
	;PRINTFORMW 「ねえ聞いて、お兄様」
	;PRINTFORML 「%CALLNAME:TARGET%はね」
	;PRINTFORMW 「%CALLNAME:TARGET%はねっ」
	;PRINTFORMW 「お兄様とけっこんする為に産まれてきたの」
	;PRINTFORMW 「%CALLNAME:TARGET%が決めたの」
	;PRINTFORMW 「…だからね」
	;PRINTFORMW 「だからねお兄様…」
	;PRINTFORMW 「%CALLNAME:TARGET%と結婚してください！」

	;はい
	;PRINTFORMDL %CALLNAME:TARGET%は黙ってあなたに抱き着いてきた
	;PRINTFORMW 「だいすき」

	;いいえ　ここでムードを暗くしない事
	;PRINTFORMDL %CALLNAME:TARGET%は目尻を潤ませながら頬を膨らませた
	;PRINTFORMW 「むーっ！」
	;PRINTFORMW 「お兄様のイジワル！！」
	;PRINTFORML 「『うん』って言うまで絶対！」
	;PRINTFORMW 「絶対諦めないんだから！！！」

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K50_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「うにーっ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふえぇ……たらこさん来ないよぉ……」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「たらこ来るもん……」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K50_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中に口上キャラと遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K50_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「おはよおにいさま」
			PRINTFORMW 「お兄様。夜はおはようだよ」
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW 「おはよおにいさま」
			PRINTFORMW 「お兄様。夜はおはようだよ」
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K50_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;添い寝で無理に起こしている状況。一時間で意識が途切れる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中
	;恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;移動時スルー
;==================================================
@M_KOJO_EVENT_K50_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;介入ムード変化
;==================================================
@M_KOJO_EVENT_K50_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;針妙丸が入ってきた
	;せっかくなのでスレ231>>488のネタ頂きます。感謝。
	;-------------------------------------------------
	IF ARG:1 == 71
		IF !RAND:3
			PRINTFORMDW ビクッ！！
			PRINTFORMDL %CALLNAME:TARGET%は小さな身体を強張らせた…
		ELSEIF !RAND:2
			PRINTFORML 「にゃっ！」
			PRINTFORMDL %CALLNAME:TARGET%は短く悲鳴を上げると%CALLNAME:MASTER%の後ろに隠れた…
		ELSE
			PRINTFORML 「%CALLNAME:TARGET%怖い…」
			PRINTFORMDL %CALLNAME:TARGET%は震える手で%CALLNAME:MASTER%に必死にしがみついてきた…
		ENDIF
	ENDIF
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K50_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K50_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K50_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;二人とも説教
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K50_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「お兄様。ぱんつは布だから得るものは無いのよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「お兄様待って、待ってお兄様、」
		PRINTFORML 「ぱんつは布よ。」
		PRINTFORMW 「布だから得るものは少ないのよ」
		;あなたは聞き、スルーした
		PRINTFORML 「待って、待ってお兄様。」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手にあなたが押し倒された
;==================================================
@M_KOJO_EVENT_K50_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「おーにいーさまっ！あっそびっましょっ！」
		SIF DISHNAME != ""
			PRINTFORMW 「まっだごっはんの真っ最中ー♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF GETBIT (CFLAG:1500,2) && BASE:MASTER:勃起 > 1000
			PRINTFORMW 「お兄様。しゃせーしなくていいの？」
		ELSEIF CFLAG:溜まってる度 >= 750
			PRINTFORML 「かまってくれないお兄様なんて、たらこなんだから」
			PRINTFORMDL %CALLNAME:TARGET%は自らの口元に小指を当て目を細めた
		ELSE
			PRINTFORMW 「もうおしまい？それじゃあ次は」
			PRINTFORMW 「お兄様。ご飯にする？お風呂にする？それとも、た・ら・こ？」
			PRINTFORMDL %CALLNAME:TARGET%は自らの口元に人差し指を当てながら訊ねてきた
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K50_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「何を見てるのお兄様？あたまのこれ？」
		PRINTFORMW 「しゃんぷーはっと」
		PRINTFORMW 「吸血鬼はこれが無いとお風呂が駄目なのよ。お姉様が言ってたからほんとよ」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K50_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K50_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMDL 「えへへ♪」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K50_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML 「美味しそうね」
		PRINTFORMW 「でも%CALLNAME:TARGET%は淑女な大人で良い子だから、勝手に手を出したりしないわ」
		PRINTFORML （ぐーっ）
		PRINTFORMDW %CALLNAME:TARGET%のカラダは正直だった…
		PRINTFORMDW %CALLNAME:MASTER%は仰々しく%CALLNAME:TARGET%に%DISHNAME%を献上し彼女の面目を大切にしてあげた
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K50_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FIRSTTIME(SELECTCOM)
			PRINTFORML 「お兄様。何、するの？」
			PRINTFORMW 「プロレスごっこ？柔道ごっこ？そ・れ・と・も…」
			PRINTFORMW 「弾幕ごっこ？」
			RETURN 1
		ENDIF
		;死に分岐
		;まとまりが悪い。
		IF GETBIT (CFLAG:1500,4)
			IF 充填率(TARGET,1)
				PRINTFORML 「また孕め孕めするの？」
			ELSE
				PRINTFORML 「お兄様。孕め孕めしたいの？」
			ENDIF
		ELSEIF GETBIT (CFLAG:1500,3)
			IF CFLAG:TARGET:溜まってる度 / 10 > 750
				PRINTFORML 「%CALLNAME:TARGET%、なかだしごっこがいいわ」
			ELSE
				PRINTFORML 「またなかだしごっこするの？」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;膣内射精経験がある
		IF GETBIT (CFLAG:1500,4)
			IF 充填率(TARGET,1)
			ELSE
			ENDIF
		;はじめてのなかだし
		ELSEIF 充填率(TARGET,1)
			PRINTFORMW 「ねえお兄様。『孕め』ってどんな意味？」
			PRINTFORMW 「好き？恋人の好きって意味なの？」
			PRINTFORML
			PRINTFORMW 「ふぅん」
			PRINTFORMW 「ぱっちぇが言ってたのと違うのね」
			PRINTFORML
			PRINTFORMW 「お兄様」
			PRINTFORMW 「%CALLNAME:TARGET%の好きも恋人の好きよ%UNICODE(0x2661)%」
			SETBIT CFLAG:1500,4
			RETURN 1
		;膣内射精した事無い分岐
		ELSE
			PRINTFORMW 「もういいの？お兄様」
			PRINTFORMW 「お兄様。%CALLNAME:TARGET%にはむぎゅむぎゅが足りないわ」
		ENDIF
	ENDIF
	;その他
	PRINTFORM
ENDIF
RETURN 1

;==================================================
;999 添い寝終了
;==================================================
@M_KOJO_EVENT_K50_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FIRSTTIME()
			PRINTFORMW 「セキニンとってねお兄様」
			PRINTFORML 「一緒のベッドで眠ると赤ちゃんが出来るのよって、ぱっちぇが教えてくれたわ」
			PRINTFORML 「でもお姉様と私には赤ちゃん出来ないのはどうしてなのかしら？」
			RETURN 1
		ELSEIF !SHIRAHU(TARGET)
			RETURN 1
		ELSE
			PRINTFORMW 「セキニンとってねお兄様」
			PRINTFORM [1] - はい
			PRINTFORML   [0] - いいえ
			INPUT
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW %CALLNAME:TARGET%はほっぺをぷくーっと膨らませた
			CASE 1
				PRINTFORMW %CALLNAME:TARGET%は表情を綻ばせた
				PRINTFORMW 「本当だからね？ゆびきりだからね？」
				PRINTFORMW 「お兄様とセキニン……えへへ♪」
				PRINTFORMW 「うそついたらたらこだからね」
			CASEELSE
				PRINTFORMW 「無効な入力よお兄様」
				PRINTFORMW 「たらこが来るんだから」
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K50_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「はわわ！」
		;PRINTFORML 「ね、ねぇ！お兄様、%CALLNAME:TARGET%のパンティ知らない？無くなっちゃったの」
		PRINTFORML 「ね！ねぇお兄様！%CALLNAME:TARGET%のおぱんつ知らない？…無くなっちゃったの」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精飲 精液中毒低 手で覆う
		IF ARG:1 == 1 || ARG:1 == 3
			PRINTFORML 「…！」
			PRINTFORML 「なにこれぇ…」
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORML 「……！けほっ！けほっ…うぇぇ…」
			PRINTFORML 「にがいよぉ…」
		ELSEIF ARG:1 == 4
			PRINTFORML 「にがぁい…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;精液経験ありぬぐい取り
		IF ARG:1 == 1
		;精液経験なしぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「いたぁ…何なの？おまたがずきずきするよぉ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ピル有無はフランちゃん気にしなそう
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORML 「お腹の中がたぽたぽするよぉ」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K50_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:無知
			PRINTFORML 「お兄様。たねつけせっくすしたいの？」
			PRINTFORML 「%CALLNAME:TARGET%よくわかんないけど…」
			PRINTFORMW 「お兄様がしたいなら、」
			PRINTFORMW 「いいよ。」
		ELSE
			PRINTFORML 「お兄様。たねつけせっくすしたいの？」
			PRINTFORML 「%CALLNAME:TARGET%ママになっていいの？」
			PRINTFORML 「%CALLNAME:TARGET%は、」
			PRINTFORMW 「いいよ。」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K50_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「えへへーお泊りお泊り」
		PRINTFORML 「お泊りなんだから%CALLNAME:TARGET%の事。放っておいちゃやぁよ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「駄目なの？それじゃあお兄様が%CALLNAME:TARGET%のお部屋にお泊りしてくれる？」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K50_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;部屋から出てデートは継続される為、お見送り感はあんまりない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K50_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML （おにいさまとデートしたい）
		PRINTFORML （デートして、一杯デートして、一杯一杯デートしてそれで…）
		PRINTFORMW （それでそれで）
		PRINTFORML
		PRINTFORMW 「それで…」
		PRINTFORML
		PRINTFORMW （%CALLNAME:TARGET%の作ったご飯食べて、）
		PRINTFORMW （おいしいね。って）
		PRINTFORML
		PRINTFORMW 「きゅーっ！」
		PRINTFORML （どうしよう）
		PRINTFORML （どうしようどうしよう！）
		PRINTFORMW 「おいしいねって！」
		PRINTFORMW （どうしようおいしいねってどうしよう）
		PRINTFORMDW %CALLNAME:TARGET%は枕に顔を埋めてバタ足をしている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;より幼く
		;PRINTFORML （おにいさまとデートしたい）
		PRINTFORML 「おでかけしたいな」
		PRINTFORML 「一緒におでかけしてなかよしで」
		PRINTFORMW 「それで」
		PRINTFORML 「それでそれで」
		PRINTFORML 「あさやけぞらに」
		PRINTFORMW 「またあした。って…」
		PRINTFORML
		PRINTFORML 「………」
		PRINTFORML
		PRINTFORMW 「お兄様、」
		PRINTFORMW 「またあした。」
		;来訪フラグが運任せなのは味気が無いか
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K50_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K50_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K50_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K50_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K50_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K50_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;どうせなら祝日参照があると良いな
			IF TALENT:恋人
				;出産後の展開に齟齬が出る恐れあり
				;PRINTFORML 「お兄様、おデートしましょ。」
				PRINTFORML 「お兄様。おでかけしましょ。」
				;PRINTFORMDL %CALLNAME:TARGET%はいつもよりちょっぴりおめかししている
			ELSE
				PRINTFORML 「おっにいっさまっ。あっそびっましょっ。」
				;PRINTFORML %CALLNAME:TARGET%はサイドテールを跳ねさせ笑顔で誘ってきた
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「おデートしましょっ♪そうしっましょっ♪」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
			PRINTFORML 「これからお仕事なの？」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K50_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORML 「お洋服脱ぐの？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMW 「うんいいよ」
					PRINTFORML 「はい、あ～ん」
					PRINTFORMDL ずぼぉ！
					PRINTFORML
					PRINTFORMDW %CALLNAME:TARGET%はぱんつを丸めると、%CALLNAME:MASTER%の口に詰め込んだ…
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K50_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「み”～～っ！！！」
		PRINTFORML 「ないて！…泣いて、ないもん…%CALLNAME:TARGET%…な”いて”ないもん”……」
		PRINTFORML 「ひっく、ひっく。」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K50_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K50_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K50_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文。
;デフォルトのものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K50_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/口上・メッセージ関連/個人口上/eTWたらこフラン/M_KOJO_K50_イベント.ERB

license: unknown