code:
@SOURCE_CHECK
#DIM �L�X�}�[�N����
#DIM �~���s���x�㏸
#DIM �o��������
#DIM �̈ʕۑ�
#DIM �u�Z�b�N�X�ۑ�
#DIM ���ŕ␳
VARSET LOCAL
SELECTCOM = TFLAG:3
���ŕ␳ = 0

;����SELECTCOM�̎��Ԍo��
CALL TRACHECK_TIME

;-------------------------------------------------
;�g�̐ڐG�̌p���A����
;-------------------------------------------------
CALL TOUCH_SUCCESSION(TARGET)

;-------------------------------------------------
;TRYCALLFORM TOUCH_SUCCESSION_{SELECTCOM}(TARGET)
;TOUCH_SUCCESSION�ōs���Ă��鏈�����e�R�}���h�t�@�C���ɕ��U�����邱�ƂŁA�R�}���h�ǉ���e�Ղɂ�����
;-------------------------------------------------

IF !�J�E���^�[�s���R�}���h(SELECTCOM)
	;�J�E���^�[
	FOR LOCAL, 1, GET_TARGETNUM() + 1
		SIF TARGET:LOCAL <= 0
			CONTINUE
		CALL EVENT_COUNTER(TARGET:LOCAL,LOCAL)
		CALL EVENT_COUNTER_SOURCE(TARGET:LOCAL,LOCAL)
	NEXT
	;CALL EVENT_COUNTER_COMBINATION
ENDIF
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu != CFLAG:MASTER:���݈ʒu
		CONTINUE
	;�����t���O�̐ݒ�
	IF TEQUIP:LOCAL:�u�ڐG���� == 1
		TEQUIP:LOCAL:50 = MASTER
	ELSE
		TEQUIP:LOCAL:50 = -1
	ENDIF
	IF TEQUIP:LOCAL:�`�ڐG���� == 1
		TEQUIP:LOCAL:51 = MASTER
	ELSE
		TEQUIP:LOCAL:51 = -1
	ENDIF
	IF TEQUIP:LOCAL:�o�ڐG���� == 6
		TEQUIP:PLAYER:50 = LOCAL
	ELSE
		TEQUIP:PLAYER:50 = -1
	ENDIF
	IF TEQUIP:LOCAL:�o�ڐG���� == 7
		TEQUIP:PLAYER:51 = LOCAL
	ELSE
		TEQUIP:PLAYER:51 = -1
	ENDIF
NEXT

FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu != CFLAG:MASTER:���݈ʒu
		CONTINUE
	;�o�������ĂȂ��Ȃ�̈ʃ��Z�b�g
	IF TEQUIP:LOCAL:50 < 0 && TEQUIP:LOCAL:51 < 0
		TEQUIP:LOCAL:�̈� = 0
	;�u���𒆂��O��u�����Ȃ�TEQUIP�͕��A
	ELSEIF TEQUIP:LOCAL:50 >= 0 && TEQUIP:LOCAL:116
		TEQUIP:LOCAL:106 = TEQUIP:LOCAL:116
	;�`���𒆂��O��`�����Ȃ�TEQUIP�͕��A
	ELSEIF TEQUIP:LOCAL:51 >= 0 && TEQUIP:LOCAL:117
		TEQUIP:LOCAL:107 = TEQUIP:LOCAL:117
	ENDIF
	;���łɖu�N�x�̕ۑ�
	CFLAG:LOCAL:�u�N�x = BASE:LOCAL:�u�N
NEXT
;-------------------------------------------------
;@COM�̌Ăяo��
;-------------------------------------------------
;TARGET���Ƃ�COMF�ďo
CALL CALL_COM(TARGET)

�̈ʕۑ� = TEQUIP:�̈�
�u�Z�b�N�X�ۑ� = TEQUIP:�u�Z�b�N�X

TFLAG:�O��̃R�}���h���� = RESULT
;RESULT���|1�Ȃ�L�����Z������
SIF TFLAG:�O��̃R�}���h���� < 0
	RETURN 0
;RESULT��0�Ȃ�SOURCE�v�ZSKIP
SIF !TFLAG:�O��̃R�}���h����
	GOTO SOURCE_SKIP

FOR LOCAL,0,CHARANUM
	�L�X�}�[�N���� = 0
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	;���[�^�[�}��
	IF CFLAG:LOCAL:���[�^�[�}��
		SOURCE:LOCAL:���u += TIME_PROGRESS(TIME:1) * 10
		CFLAG:LOCAL:���[�^�[�}�� = MAX(CFLAG:LOCAL:���[�^�[�}�� - TIME_PROGRESS(TIME:1),0)
		IF CFLAG:LOCAL:���[�^�[�}�� == 0
			PRINTFORMW %CALLNAME:LOCAL%���������Ă������[�^�[�̓d�r���؂ꂽ
			IF TALENT:LOCAL:���� < 1
				EXP:LOCAL:�u�o�� += 9
			ELSE
				TFLAG:2 = 1
			ENDIF
		ENDIF
	ENDIF
	IF CFLAG:LOCAL:���[�^�[A�}��
		SOURCE:LOCAL:���` += TIME_PROGRESS(TIME:1) * 10
		CFLAG:LOCAL:���[�^�[A�}�� = MAX(CFLAG:LOCAL:���[�^�[A�}�� - TIME_PROGRESS(TIME:1),0)
		IF CFLAG:LOCAL:���[�^�[A�}�� == 0
			PRINTFORMW %CALLNAME:LOCAL%���������Ă������[�^�[�̓d�r���؂ꂽ
			EXP:LOCAL:�`�o�� += 9
		ENDIF
	ENDIF
	IF TFLAG:�L�X�}�[�N && LOCAL > 0 && !TFLAG:��� && !FLAG:70 && !CFLAG:LOCAL:����
		IF CFLAG:LOCAL:���݈ʒu == CFLAG:MASTER:���݈ʒu && TFLAG:�L�X�}�[�N != LOCAL
			PRINTFORMW %CALLNAME:LOCAL%��%CALLNAME:MASTER%�̃L�X�}�[�N������߂��c
			IF TALENT:LOCAL:����
				�L�X�}�[�N���� = 500
			ELSEIF TALENT:LOCAL:�v��
				�L�X�}�[�N���� = 300
			ENDIF
			�L�X�}�[�N���� = �L�X�}�[�N���� * (TALENT:LOCAL:�呀 + 2) / 2
			SOURCE:LOCAL:���� += �L�X�}�[�N����
		ENDIF
	ENDIF
;�͂��ĂȂ��ƘI�o������
	SIF EQUIP:LOCAL:6 == 0 && !TALENT:LOCAL:����
		SOURCE:LOCAL:�I�o += TIME_PROGRESS(TIME:1)

	SIF TEQUIP:LOCAL:����z��
		CALL EQUIP_COM11(LOCAL)
	SIF TEQUIP:LOCAL:������
		CALL EQUIP_COM12(LOCAL)
	SIF TEQUIP:LOCAL:�p���L�X
		CALL EQUIP_COM19(LOCAL)
	;�����n�͌�ōl����
	SIF LOCAL > 0 && !CFLAG:LOCAL:����
		CONTINUE
	;-------------------------------------------------
	;��l�A�����A�����҂̔\�͂̏���
	;-------------------------------------------------
	CALL SOURCE_SEX_CHECK(LOCAL)
	CALL PLAYER_SKILL_CHECK(LOCAL)

	;-------------------------------------------------
	;�Z�I�A�D���x�A���[�h�A�����̃`�F�b�N
	;-------------------------------------------------
	FOR LOCAL:1,0,100
		SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) *  MASTER_FAVOR_CHECK(LOCAL,LOCAL:1) * TECHNIQUE_CHECK(LOCAL,LOCAL:1) / 10000
		SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) *  MOOD_CHECK(LOCAL,LOCAL:1) * REASON_CHECK(LOCAL,LOCAL:1) / 10000
	NEXT

	;-------------------------------------------------
	;���ŏ[���̃`�F�b�N
	;-------------------------------------------------
	;���Ԓ���
	IF EXP_UP(22,LOCAL)
		FOR LOCAL:1,0,100
			;����,���s��,�~��,����,�I�o,���]
			SIF (LOCAL:1 >= 0 && LOCAL:1 <= 9) || LOCAL:1 == 11 || (LOCAL:1 >= 15 && LOCAL:1 <= 18)
				SOURCE:LOCAL:(LOCAL:1) = SOURCE:LOCAL:(LOCAL:1) * (100 + GET_REVISION(ABL:LOCAL:���Ԓ���, 500, 15)) / 100
		NEXT
	ENDIF
	;-------------------------------------------------
	;�o�C�u�ȂǕt�����ςȂ��A�C�e���̃`�F�b�N
	;-------------------------------------------------
	CALL EQUIP_CHECK(LOCAL)
	;-------------------------------------------------
	;�o�����Z
	;-------------------------------------------------
	CALL SOURCE_EXP(LOCAL)
	;-------------------------------------------------
	;����,����r���̏���
	;-------------------------------------------------
	CALL LOST_VIRGIN(LOCAL)
	CALL ����L�X���o���r��(LOCAL)
	;-------------------------------------------------
	;���b�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���b(LOCAL)
	;-------------------------------------------------
	;���u�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���u(LOCAL)
	;-------------------------------------------------
	;���`�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���`(LOCAL)
	;-------------------------------------------------
	;���a�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���a(LOCAL)
	;-------------------------------------------------
	;-------------------------------------------------
	;���l�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���l(LOCAL)
	;-------------------------------------------------
	;�^���b�̃\�[�X
	;-------------------------------------------------
	SIF !(TALENT:PLAYER:2 & 2)
	CALL SOURCE_�^���b(LOCAL)
	;-------------------------------------------------
	;�^���u�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�^���u(LOCAL)
	;-------------------------------------------------
	;�^���`�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�^���`(LOCAL)
	;-------------------------------------------------
	;�^���a�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�^���a(LOCAL)
	;-------------------------------------------------
	;�^���l�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�^���l(LOCAL)
	;-------------------------------------------------
NEXT
;-------------------------------------------------
;�����R�}���h�̘A�����s�ɂ��㉺�̏����i���y�n�j
;-------------------------------------------------
IF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && �A�����s()
	;UP:0,1,2,3�͐Ⓒ�ɗ��ނ̂Ő�ɏ������Ă���
	CUP:TARGET:���b /= 2
	CUP:TARGET:���u /= 2
	CUP:TARGET:���` /= 2
	CUP:TARGET:���a /= 2
	CUP:TARGET:���l /= 2
ENDIF
IF TCVAR:TARGET:�����
	TIMES CUP:TARGET:���b, 0.75
	TIMES CUP:TARGET:���u, 0.75
	TIMES CUP:TARGET:���`, 0.75
	TIMES CUP:TARGET:���a, 0.75
	TIMES CUP:TARGET:���l, 0.75
ENDIF
IF TEQUIP:TARGET:�ł炵���[�h
	TIMES CUP:TARGET:���b, 0.80
	TIMES CUP:TARGET:���u, 0.80
	TIMES CUP:TARGET:���`, 0.80
	TIMES CUP:TARGET:���a, 0.80
	TIMES CUP:TARGET:���l, 0.80
ENDIF
IF TCVAR:TARGET:�D��
	TIMES CUP:TARGET:���b, 0.70
	TIMES CUP:TARGET:���u, 0.70
	TIMES CUP:TARGET:���`, 0.70
	TIMES CUP:TARGET:���a, 0.70
	TIMES CUP:TARGET:���l, 0.70
ENDIF

FOR LOCAL,0,CHARANUM
	;�����n�͌�ōl����
	SIF LOCAL > 0 && !CFLAG:LOCAL:����
		CONTINUE
	;���̑��n�\�[�X�v�Z����
	CALL SOURCE_CVAB_EXTRA(LOCAL)

	BASE:LOCAL:�u�N = BASE:LOCAL:�u�N + CUP:LOCAL:���b / 5 + CUP:LOCAL:���u / 10 + CUP:LOCAL:���` / 10 + CUP:LOCAL:���a / 10
	;-------------------------------------------------
	;�Ⓒ����
	;-------------------------------------------------
	CALL ORGASM_ADD(LOCAL)
NEXT

;-------------------------------------------------
;�ː��`�F�b�N�i�ӂ��Ȃ�E�I�g�R�j
;-------------------------------------------------
;�v����
CALL EVENT_SHOOT

FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	;�����n�͌�ōl����
	SIF LOCAL > 0 && !CFLAG:LOCAL:����
		CONTINUE
	;-------------------------------------------------
	;�����Ώۂ̕����`�F�b�N
	;-------------------------------------------------
	CALL TARGET_MILK_CHECK(LOCAL)
	;-------------------------------------------------
	;���ŏ[���`�F�b�N
	;-------------------------------------------------
	;���t����,�S�˒���,��˒���
	IF FLAG:70 == 1 && CFLAG:TARGET:344 == 0
	ELSE
		IF EXP_UP(14,LOCAL)
			IF TALENT:MASTER:�Z�����t == 1
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:���t���� * EXP_UP(14,LOCAL), 500, 25)
			ELSE
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:���t���� * EXP_UP(14,LOCAL), 500, 50)
			ENDIF
			SOURCE:LOCAL:� = SOURCE:LOCAL:� * ���ŕ␳ / 100
			SOURCE:LOCAL:���s�� = SOURCE:LOCAL:���s�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�B�� = SOURCE:LOCAL:�B�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�~�� = SOURCE:LOCAL:�~�� * ���ŕ␳ / 100
			SOURCE:LOCAL:���� = SOURCE:LOCAL:���� * ���ŕ␳ / 100
			SOURCE:LOCAL:���] = SOURCE:LOCAL:���] * ���ŕ␳ / 100
		ENDIF
		IF EXP_UP(17,LOCAL)
			IF TALENT:MASTER:�Z�����t == 1
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:��˒��� * EXP_UP(17,LOCAL), 500, 25)
			ELSE
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:��˒��� * EXP_UP(17,LOCAL), 500, 50)
			ENDIF
			SIF TALENT:LOCAL:������ && TEQUIP:LOCAL:�̈� == 2
				���ŕ␳ = ���ŕ␳ * 11 / 10
			SOURCE:LOCAL:� = SOURCE:LOCAL:� * ���ŕ␳ / 100
			SOURCE:LOCAL:���s�� = SOURCE:LOCAL:���s�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�B�� = SOURCE:LOCAL:�B�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�~�� = SOURCE:LOCAL:�~�� * ���ŕ␳ / 100
			SOURCE:LOCAL:���� = SOURCE:LOCAL:���� * ���ŕ␳ / 100
			SOURCE:LOCAL:���] = SOURCE:LOCAL:���] * ���ŕ␳ / 100
		ENDIF
		IF EXP_UP(16,LOCAL)
			IF TALENT:MASTER:�Z�����t == 1
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:�S�˒��� * EXP_UP(16,LOCAL), 500, 25)
			ELSE
				���ŕ␳ = 100 + GET_REVISION(ABL:LOCAL:�S�˒��� * EXP_UP(16,LOCAL), 500, 50)
			ENDIF
			SIF TALENT:LOCAL:������ && TEQUIP:LOCAL:�̈� == 2
				���ŕ␳ = ���ŕ␳ * 11 / 10
			SIF CFLAG:LOCAL:�������� == 7
				���ŕ␳ = ���ŕ␳ * 12 / 10
			SOURCE:LOCAL:� = SOURCE:LOCAL:� * ���ŕ␳ / 100
			SOURCE:LOCAL:���s�� = SOURCE:LOCAL:���s�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�B�� = SOURCE:LOCAL:�B�� * ���ŕ␳ / 100
			SOURCE:LOCAL:�~�� = SOURCE:LOCAL:�~�� * ���ŕ␳ / 100
			SOURCE:LOCAL:���� = SOURCE:LOCAL:���� * ���ŕ␳ / 100
			SOURCE:LOCAL:���] = SOURCE:LOCAL:���] * ���ŕ␳ / 100
		ENDIF
	ENDIF
	;-------------------------------------------------
	;��������̕��A�O����
	;-------------------------------------------------
	CALL DRUNK_RECOVER_BEFORE(TARGET)
	;-------------------------------------------------
	;��̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�(LOCAL)
	;-------------------------------------------------
	;���s���̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���s��(LOCAL)
	;-------------------------------------------------
	;�B���̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�B��(LOCAL)
	;-------------------------------------------------
	;�ɂ݂̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���(LOCAL)
	;-------------------------------------------------
	;����̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���|(LOCAL)
	;-------------------------------------------------
	;�t�̂̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�t��(LOCAL)
	;-------------------------------------------------
	;�~��̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�~��(LOCAL)
	;-------------------------------------------------
	;�����̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_����(LOCAL)
	;-------------------------------------------------
	;�I�o�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�I�o(LOCAL)
	;-------------------------------------------------
	;���]�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���](LOCAL)

	;-------------------------------------------------
	;���y�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���y(LOCAL)
	;-------------------------------------------------
	;�����̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_����(LOCAL)
	;-------------------------------------------------
	;�󓮂̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_��(LOCAL)
	;-------------------------------------------------
	;�U�f�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�U�f(LOCAL)
	;-------------------------------------------------
	;�J�߂̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�J��(LOCAL)
	;-------------------------------------------------
	;�����̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_����(LOCAL)
	;-------------------------------------------------
	;��d�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_��d(LOCAL)
	;-------------------------------------------------
	;���v�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���v(LOCAL)
	;-------------------------------------------------
	;���s�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_���s(LOCAL)

	;-------------------------------------------------
	;�s���̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�s��(LOCAL)
	;-------------------------------------------------
	;�T���̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_�T��(LOCAL)
	;-------------------------------------------------
	;��E�̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_��E(LOCAL)
	;-------------------------------------------------
	;�����̃\�[�X
	;-------------------------------------------------
	CALL SOURCE_����(LOCAL)
	;-------------------------------------------------
	;�f���Ȃǂɂ��㉺�̏���
	;-------------------------------------------------
	CALL SOURCE_EXTRA(LOCAL)
	;-------------------------------------------------
	;�����[�x�̌�������
	;-------------------------------------------------
	CALL �����[�x����(LOCAL)
NEXT
;-------------------------------------------------
;�����R�}���h�̘A�����s�ɂ��㉺�̏���
;-------------------------------------------------
IF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && �A�����s()
	;UP:0,1,2�͐Ⓒ�ɗ��ނ̂Ő�ɏ������Ă���
	UP:�~�� /= 2
	UP:���� /= 2
	UP:���� /= 2
	UP:�K�� /= 2
	UP:�p�� /= 2
	UP:���| /= 2
	UP:��� /= 2
	UP:�D�� /= 2
	UP:�D�z /= 2
ENDIF

LOCAL:1 = 0
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	LOCAL:1 += CUP:LOCAL:�~�� / 5
	LOCAL:1 += MAX(5,(ABL:LOCAL:�}�]���C - 3)) * (CUP:LOCAL:��� + CUP:LOCAL:���) / 2
	LOCAL:1 += MAX(5,(ABL:LOCAL:�}�]���C - 1)) * CUP:LOCAL:�p�� / 2
	LOCAL:1 = MIN(500,LOCAL:1)
	BASE:LOCAL:�u�N = BASE:LOCAL:�u�N + LOCAL:1
	;�����n�͌�ōl����
	SIF LOCAL > 0 && !CFLAG:LOCAL:����
		CONTINUE
	;-------------------------------------------------
	;�̗́E�C�͂̌���
	;-------------------------------------------------
	CALL SOURCE_DOWNBASE(LOCAL)
	;-------------------------------------------------
	;��ɉ��y�o���A��d���y�o���̃`�F�b�N
	;-------------------------------------------------
	CALL EXP_GOT_CHECK(LOCAL)
NEXT

$SOURCE_SKIP
;-------------------------------------------------
;��������
;-------------------------------------------------
;CALL KOJO_MESSAGE_COM
CALL KOJO_MESSAGE_SEND("COMMAND",-1,TARGET,-1,-1)
;�}�G�@���ʌn�@�S������̎ː����A�̈ʂ��Ȃ��Ȃ�̂͂ǂ����Ă�
IF �u�Z�b�N�X�ۑ� != -1 && GROUPMATCH(�̈ʕۑ�,1,2,3,4,5) && !FLAG:�}���A�j���t�B���^ & �A�j���t�B���^_�}��
	SIF FLAG:�摜�\�� && FLAG:�}�G�\��
		PRINTL
	SELECTCASE �̈ʕۑ�
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_�����("�����_�}��")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_��w��("��w��_�}��")
	ENDSELECT
ENDIF

;�J�E���^�[
IF TARGET
	LOCAL:4 = TARGET
	DRAWLINE
	FOR LOCAL, 1, GET_TARGETNUM() + 1
		SIF TCVAR:(TARGET:LOCAL):30 > 1
			CONTINUE
		SIF TCVAR:(TARGET:LOCAL):20 && TFLAG:193 != 99 && !CFLAG:TARGET:�Y���Q��
			CALL KOJO_MESSAGE_SEND("COUNTER",2,TARGET:LOCAL,0,0)
	NEXT
	TARGET = LOCAL:4
ENDIF

;-------------------------------------------------
;��������̕��A����
;-------------------------------------------------
CALL DRUNK_RECOVER(TARGET)

;-------------------------------------------------
;EXP�擾�\��
;-------------------------------------------------
LOCAL:2 = 0
LOCAL:3 = 0
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu != CFLAG:MASTER:���݈ʒu
		CONTINUE
	SIF TCVAR:LOCAL:�\���J�b�g
		CONTINUE
	FOR LOCAL:1,0,100
		IF EXP_UP(LOCAL:1,LOCAL)
			�o�������� = EXP_UP(LOCAL:1,LOCAL)
			LOCAL:2 ++
			LOCAL:3 ++
			SIF LOCAL:2 == 1
				PRINTL
			IF LOCAL:1 == FLAG:���� && FLAG:���� && LOCAL == MASTER
				EXP:MASTER:(LOCAL:1) ++
				�o�������� ++
			ENDIF
			PRINTFORML %EXPNAME:(LOCAL:1)% +{�o��������}(%CALLNAME:LOCAL%)
			;���Ȃ��͖����o�o���𓾂Ȃ��悤��
			IF LOCAL:1 >= 0 && LOCAL:1 <= 3 && LOCAL && (FLAG:70 || CFLAG:�C�^�Y��)
				EXP:LOCAL:((LOCAL:1) + 60) += 1
			ENDIF
		ENDIF
	NEXT
	LOCAL:2 = 0
NEXT
SIF LOCAL:3
	WAIT
;-------------------------------------------------
;ABLUP
;-------------------------------------------------
IF !FLAG:ABLUP�ȗ�
	FOR LOCAL,0,CHARANUM
		SIF CFLAG:LOCAL:���݈ʒu != CFLAG:MASTER:���݈ʒu
			CONTINUE
		SIF TCVAR:LOCAL:�\���J�b�g
			CONTINUE
		CALL SOURCE_ABLUP(LOCAL)
	NEXT
ENDIF
;-------------------------------------------------
;�G��̎ː����̌���
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_E
CALL KOJO_MESSAGE_SEND("PALAM",5,TARGET,-1,-1)
;-------------------------------------------------
;�z��̐Ⓒ���̌���
;-------------------------------------------------
CALL MESSAGE_PALAMCNG_B2
CALL KOJO_MESSAGE_SEND("PALAM",2,TARGET,-1,-1)
;�}�G�@�}���ɐⒸ
IF NOWEX:�u�Ⓒ && �u�Z�b�N�X�ۑ� != -1 && GROUPMATCH(�̈ʕۑ�,1,2,3,4,5)
	IF !GETBIT(TCVAR:50,1)
		SELECTCASE �̈ʕۑ�
			CASE 1,3,4
				CALL PRINT_IMAGE_ANIMATION_�����("�����_�Ⓒ")
			CASE 2,5
				CALL PRINT_IMAGE_ANIMATION_��w��("��w��_�Ⓒ")
		ENDSELECT
	ENDIF
ENDIF
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_B

;-------------------------------------------------
;�z��̏ł炵���̌���
;-------------------------------------------------
IF (EX:TARGET:�b���~�� + EX:TARGET:�u���~�� + EX:TARGET:�`���~�� + EX:TARGET:�l���~�� + EX:TARGET:�a���~��) > 0 && TEQUIP:TARGET:�ł炵���[�h
	CALL KOJO_MESSAGE_SEND("PALAM",6,TARGET,-1,-1)
	;�E�t�t���n�������Z�b�g
	FOR LOCAL,10, 80
		SELECTCASE LOCAL
			CASE 18 TO 20, 25 TO 40, 49 TO 51
				CONTINUE
		ENDSELECT
		TEQUIP:TARGET:LOCAL = 0
	NEXT
ENDIF
;-------------------------------------------------
;�����҂̎ː����̌���
;-------------------------------------------------
CALL �ː��Ⓒ�\�L(MASTER)
CALL �ː��Ⓒ�\�L(TARGET)

;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_A
CALL KOJO_MESSAGE_SEND("PALAM",1,TARGET,-1,-1)

;�}�G�@�}���ː��@����ʌn��
IF GETBIT(TCVAR:50,1) && TEQUIP:�u�Z�b�N�X != -1 && !TCVAR:PLAYER:�R���h�[�� && GROUPMATCH(�̈ʕۑ�,1,2,3,4,5)
	SIF FLAG:�摜�\�� && FLAG:�}�G�\��
		PRINTL
	SELECTCASE �̈ʕۑ�
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_�����("�����_�ː�")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_��w��("��w��_�ː�")
	ENDSELECT
ENDIF

;-------------------------------------------------
;������̌���
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_C
CALL KOJO_MESSAGE_SEND("PALAM",3,TARGET,-1,-1)
;-------------------------------------------------
;�p�����[�^�ϓ��ɂ�����
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_PALAMCNG_D
CALL KOJO_MESSAGE_SEND("PALAM",4,TARGET,-1,-1)
;-------------------------------------------------
;����擾�̃`�F�b�N(�C�^�Y�����͋֎~)
;-------------------------------------------------
IF !CFLAG:TARGET:�C�^�Y��
	CALL MARK_GOT_CHECK(TARGET)
;-------------------------------------------------
;����擾�ɂ�����(�C�^�Y�����͋֎~)
;-------------------------------------------------
;DEBUG	CALL KOJO_MESSAGE_MARKCNG
	CALL KOJO_MESSAGE_SEND("MARK",-1,TARGET,-1,-1)
;-------------------------------------------------
;�������b�Z�[�W
;-------------------------------------------------
SIF NOWEX:����
	CALL TARGET_MILK_MESSAGE(TARGET)
;-------------------------------------------------
;�]���㏸�ɂ��[��R]�̏��Ń`�F�b�N(�C�^�Y�����͋֎~)
;-------------------------------------------------
	CALL JUJUN_UP_CHECK
ENDIF
RESETCOLOR
;-------------------------------------------------
;�����\�[�X�̕\��
;-------------------------------------------------
CALL SHOW_SOURCE
;-------------------------------------------------
;���l�ϓ��̕\��
;-------------------------------------------------
;����
R = NO:PLAYER
SIF RELATION:R != 0
	PRINTFORML ������{RELATION:R/100}.{RELATION:R%100}�{��

SIF TCVAR:TARGET:�D���ɂ���
	PRINTFORML ���M�΂ꒆ��

SIF SELECTCOM == 21
	PRINTFORML ���y�������Ȃ��z�̌��ʂ�%CALLNAME:MASTER%�̉�����ʑ�����
SIF SELECTCOM == 22
	PRINTFORML ���y�U���󂯂�z�̌��ʂŗD�z������

SIF SELECTCOM == PREVCOM && TFLAG:50 == TFLAG:151 && (SELECTCOM < 350 || SELECTCOM >= 500) && �A�����s()
	PRINTL ������R�}���h�A�����s��

;�C�͂O
SIF BASE:1 <= 0
	PRINTL ���C�͂O��
LOCAL:1 = 0
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	IF DOWNBASE:LOCAL:�̗�
		IF DOWNBASE:LOCAL:�̗� > 0
			SETCOLOR C_YELLOW
			SIF DOWNBASE:LOCAL:�̗� > 150
				SETCOLOR C_RED
			PRINTFORM �̗�-{DOWNBASE:LOCAL:�̗�}
		ELSE
			SETCOLOR C_GREEN
			PRINTFORM �̗�+{-DOWNBASE:LOCAL:�̗�}
		ENDIF
		LOCAL:1 ++
	ENDIF
	IF DOWNBASE:LOCAL:�C��
		IF DOWNBASE:LOCAL:�C�� > 0
			SETCOLOR C_YELLOW
			SIF DOWNBASE:LOCAL:�C�� > 150
				SETCOLOR C_RED
			PRINTFORM �C��-{DOWNBASE:LOCAL:�C��}
		ELSE
			SETCOLOR C_GREEN
			PRINTFORM �C��+{-DOWNBASE:LOCAL:�C��}
		ENDIF
		LOCAL:1 ++
	ENDIF
	RESETCOLOR
	SIF LOCAL:1
		PRINTFORML (%CALLNAME:LOCAL%)
	LOCAL:1 = 0
NEXT
SIF TIME_PROGRESS(TIME:1) > 0 && SELECTCOM != 400 && SELECTCOM != 402 && SELECTCOM != 604 && !CFLAG:MASTER:���ӂ�
	PRINTFORML +{TIME_PROGRESS(TIME:1)}��
SIF TIME_PROGRESS(TIME:1) >= 40
	TCVAR:TARGET:�Ȃ�ׂ������Ȃ� = 1
PRINTL

;-------------------------------------------------
;�p�����[�^�̏㏸���\���iDOWN�������Łj
;-------------------------------------------------
VARSET LOCAL
FOR LOCAL:1,0,CHARANUM
	SIF TCVAR:�\���J�b�g
		CONTINUE
	LOCAL:3 = 0
	FOR LOCAL,0,100
		SIF PALAMNAME:LOCAL == ""
			CONTINUE
		SIF CUP:(LOCAL:1):LOCAL - CDOWN:(LOCAL:1):LOCAL == 0
			CONTINUE
		IF !LOCAL:3
			PRINTL
			PRINTFORML %CALLNAME:(LOCAL:1)%
		ENDIF
		LOCAL:3 ++
		LOCAL:2 = CUP:(LOCAL:1):LOCAL - CDOWN:(LOCAL:1):LOCAL
		PRINTFORML %PALAMNAME:LOCAL,8,LEFT% {PALAM:(LOCAL:1):LOCAL,10,LEFT} + {CUP:(LOCAL:1):LOCAL,10,LEFT} =   {PALAM:(LOCAL:1):LOCAL + CUP:(LOCAL:1):LOCAL,10,LEFT}
		PALAM:(LOCAL:1):LOCAL += CUP:(LOCAL:1):LOCAL - CDOWN:(LOCAL:1):LOCAL
		CUP:(LOCAL:1):LOCAL = 0
		CDOWN:(LOCAL:1):LOCAL = 0
	NEXT
NEXT
PRINTL
IF GETBIT(TCVAR:50,1) && TEQUIP:�u�Z�b�N�X != -1 && !TCVAR:PLAYER:�R���h�[�� && GROUPMATCH(�̈ʕۑ�,1,2,3,4,5)
	SELECTCASE �̈ʕۑ�
		CASE 1,3,4
			CALL PRINT_IMAGE_ANIMATION_�ː���("�����_���o��")
		CASE 2,5
			CALL PRINT_IMAGE_ANIMATION_�ː���("��w��_���o��")
	ENDSELECT
	IF FLAG:�摜�\�� && FLAG:�}�G�\��
		WAIT
		PRINTL
	ENDIF
ENDIF
DRAWLINE
;-------------------------------------------------
;�~���s���x�㏸
;-------------------------------------------------
IF TCVAR:TARGET:�~���s���x�Ǘ� < GETPALAMLV(PALAM:�~��,15) && TARGET
	�~���s���x�㏸ = (GETPALAMLV(PALAM:�~��,15) - TCVAR:TARGET:�~���s���x�Ǘ�) * (30 + TCVAR:TARGET:���� * 20 + TCVAR:TARGET:�Z�� * 20)
	�~���s���x�㏸ = �~���s���f���␳(TARGET,�~���s���x�㏸)
	SIF TALENT:TARGET:�s������
		�~���s���x�㏸ *= 3
	CFLAG:TARGET:���܂��Ă�x = LIMIT(�~���s���x�㏸ + CFLAG:TARGET:���܂��Ă�x, 0, 1000)
	TCVAR:TARGET:�~���s���x�Ǘ� = GETPALAMLV(PALAM:�~��,15)
ENDIF
;-------------------------------------------------
;�D���x�㏸
;-------------------------------------------------
CALL FAVOR_CALC(TARGET)

;-------------------------------------------------
;�M���x�㏸�i�E�t�t�ȊO���㏸�ΏۃR�}���h���s���j
;-------------------------------------------------
SIF (TFLAG:98 && !CFLAG:TARGET:���ӂ�) && !CFLAG:TARGET:����
	CALL TRUST_CALC(TARGET)
;-------------------------------------------------
;�����[�x0�ɂ��o������
;-------------------------------------------------
SIF CFLAG:MASTER:�C�^�Y�� == 2 && (TCVAR:TARGET:�����[�x <= 0 || !��������(TARGET))
CALL ���������o(TARGET)

;-------------------------------------------------
;���������[�h�̉���
;-------------------------------------------------
IF TFLAG:102 == 3 && TFLAG:���������[�h
	TFLAG:����������|�C���g --
	IF TFLAG:����������|�C���g <= 0
		PRINTFORML %CALLNAME%�͖�������%CALLNAME:MASTER%�̑̂��痣�ꂽ�c
		CALL �����|����I��
		TFLAG:���������[�h = 0
		TCVAR:�������֎~���� = 90 + MAX(10 - ABL:�~�], 0) * 3 - MAX((CFLAG:�ϋɐ� + CFLAG:�p���炢) * 5, 30)
	ENDIF
ENDIF

;-------------------------------------------------
;�ϐ��̃��Z�b�g
;-------------------------------------------------
CVARSET TCVAR, GETNUM(TCVAR, "��d�t���O"), 0
CVARSET TCVAR, GETNUM(TCVAR, "�ː��Q�[�W������"), 0
CVARSET TCVAR, GETNUM(TCVAR, "�D�����o��"), 0
CVARSET TCVAR, GETNUM(TCVAR, "�������]���l"), 0
CVARSET TCVAR, GETNUM(TCVAR, "�����D�]���l"), 0
CVARSET TCVAR, GETNUM(TCVAR, "�������]���l"), 0
;-------------------------------------------------
;�����\�[�X�̕\���iDOWN�������Łj
;-------------------------------------------------
@SHOW_SOURCE
SIF TCVAR:�\���J�b�g
	RETURN 0
;PRINTL �@
SIF SOURCE:���b > 0
	PRINTFORM ���b({SOURCE:���b})
SIF SOURCE:���u > 0
	PRINTFORM ���u({SOURCE:���u})
SIF SOURCE:���` > 0
	PRINTFORM ���`({SOURCE:���`})
SIF SOURCE:���a > 0
	PRINTFORM ���a({SOURCE:���a})
SIF SOURCE:���l > 0
	PRINTFORM ���l({SOURCE:���l})
SIF SOURCE:� > 0
	PRINTFORM �({SOURCE:�})
SIF SOURCE:���s�� > 0
	PRINTFORM ���s��({SOURCE:���s��})
SIF SOURCE:�B�� > 0
	PRINTFORM �B����({SOURCE:�B��})
SIF SOURCE:��� > 0
	PRINTFORM �ɂ�({SOURCE:���})
SIF SOURCE:���| > 0
	PRINTFORM ����({SOURCE:���|})
SIF SOURCE:�t�� > 0
	PRINTFORM �t��({SOURCE:�t��})
SIF SOURCE:�~�� > 0
	PRINTFORM �~��({SOURCE:�~��})
SIF SOURCE:���� > 0
	PRINTFORM ����({SOURCE:����})
SIF SOURCE:�I�o > 0
	PRINTFORM �I�o({SOURCE:�I�o})
SIF SOURCE:���] > 0
	PRINTFORM ����({SOURCE:���]})
SIF SOURCE:���y > 0
	PRINTFORM ���y({SOURCE:���y})
SIF SOURCE:���� > 0
	PRINTFORM ����({SOURCE:����})
SIF SOURCE:���v > 0
	PRINTFORM ����({SOURCE:���v})
SIF SOURCE:�� > 0
	PRINTFORM ��({SOURCE:��})
SIF SOURCE:�s�� > 0
	PRINTFORM �s��({SOURCE:�s��})
SIF SOURCE:�T�� > 0
	PRINTFORM �T��({SOURCE:�T��})
SIF SOURCE:��E > 0
	PRINTFORM ��E({SOURCE:��E})
SIF SOURCE:���� > 0
	PRINTFORM ����({SOURCE:����})
PRINTL �@

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用色々改良パッチ/ERB/ステータス計算関連/SOURCE/SOURCE.ERB


code:
;FileName_SOURCE_CALLCOM.ERB ----------------------- Rev1.00
;@COM�ďo����
;CALL		USER
;ARG		�L����NO
;RETURN		VOID
;COMMENT	@COM���Ăяo���B�R���{�������������
;-----------------------------------------------------------
@CALL_COM(ARG)
;=== �E�t�t�n�R���{ ===
;�V�b�N�X�i�C��
IF (TEQUIP:ARG:���ڐG���� == 1 || TEQUIP:ARG:���ڐG���� == 2) && (TEQUIP:ARG:�o�ڐG���� == 4 || TEQUIP:ARG:�b�ڐG���� == 4) && (SELECTCOM == 1 || SELECTCOM == 81) && !FLAG:70
	TFLAG:50 = 1
;�␴��
ELSEIF TEQUIP:ARG:㵒p�v���C && SELECTCOM == 1
	TFLAG:50 = 2
;G�X�|�b�g�h��
ELSEIF SELECTCOM == 3 && PREVCOM == SELECTCOM && TFLAG:103 == ARG
	TFLAG:50 = 3
;���ꉲ�O
ELSEIF TEQUIP:ARG:㵒p�v���C && SELECTCOM == 68
	TFLAG:50 = 4
;����t�F��
ELSEIF (TEQUIP:ARG:�w�ڐG���� == 1 && TEQUIP:ARG:���Q == 1) || (TEQUIP:ARG:���ڐG���� == 1 && TEQUIP:ARG:�w�Q == 1)
	IF FLAG:70 == 1
	ELSE
		;�t�F��-���
		IF TEQUIP:ARG:�w�ڐG���� == 1
			TFLAG:194 = 0
		;���-�t�F��
		ELSE
			TFLAG:194 = 1
		ENDIF
		TFLAG:50 = 5
	ENDIF
;�}���f�X�|�b�g�ӂ߁A�q�{���ӂ߁A���ݑ}��
ELSEIF (SELECTCOM == 60 || SELECTCOM == 61 || SELECTCOM == 65 || SELECTCOM == 67 || SELECTCOM == 68)
;	IF TEQUIP:ARG:�̈� == TEQUIP:ARG:�̈ʂQ && TFLAG:103 == TARGET && TEQUIP:ARG:�S�Q == 1
;		IF SELECTCOM == 65 || RAND:2
;			TFLAG:50 = 7
;		ELSE
;			TFLAG:50 = 6
;		ENDIF
;	ENDIF
	;���ݑ}��
	IF TEQUIP:ARG:�u�ڐG���� == 1 && (MASTER_POSE(SET_V,SET_P,1) && MASTER_POSE(SET_V,SET_P,1) != ARG)
		TFLAG:50 = 13
	ENDIF
ELSEIF SELECTCOM == 72
	TFLAG:50 = 6
ELSEIF SELECTCOM == 73
	TFLAG:50 = 7
;�V�b�N�X�i�C���p�C�Y��
ELSEIF TEQUIP:ARG:�a�ڐG���� == 1 && (TEQUIP:ARG:�o�ڐG���� == 4 || TEQUIP:ARG:�b�ڐG���� == 4) && (SELECTCOM == 1 || SELECTCOM == 82)
	IF FLAG:70 == 1
	ELSE
	TFLAG:50 = 8
	ENDIF
;�_�u���t�F��
ELSEIF TEQUIP:ARG:���ڐG���� == 1 && (MASTER_POSE(SET_M,SET_P,1) && MASTER_POSE(SET_M,SET_P,1) != ARG )
	TFLAG:50 = 9
;�_�u���f��
ELSEIF TEQUIP:ARG:�b�ڐG���� == 1 && (MASTER_POSE(SET_C,SET_P,1) && MASTER_POSE(SET_C,SET_P,1) != ARG )
	TFLAG:50 = 10
;�_�u���p�C�Y��
ELSEIF TEQUIP:ARG:�a�ڐG���� == 1 && (MASTER_POSE(SET_B,SET_P,1) && MASTER_POSE(SET_B,SET_P,1) != ARG )
	IF FLAG:70 == 1
	ELSE
	TFLAG:50 = 11
	ENDIF
;�p�C�Y���t�F��
ELSEIF (TEQUIP:ARG:�a�ڐG���� == 1 && TEQUIP:ARG:���Q == 1) || (TEQUIP:ARG:���ڐG���� == 1 && TEQUIP:ARG:���Q == 1)
	TFLAG:50 = 12
;�r�󌋒��ӂ߁A�A�i���f�X�|�b�g�h��
ELSEIF (SELECTCOM == 62 || SELECTCOM == 63 || SELECTCOM == 66 || SELECTCOM == 69 || SELECTCOM == 70) && PREVCOM == SELECTCOM && TFLAG:103 == ARG
	IF SELECTCOM == 66 || RAND:2
		TFLAG:50 = 14
	ELSE
		TFLAG:50 = 15
	ENDIF
ELSEIF SELECTCOM == 74
	TFLAG:50 = 14
ELSEIF SELECTCOM == 75
	TFLAG:50 = 15
;ELSEIF SELECTCOM == 81 && TEQUIP:ARG:���Q == 1
;	TFLAG:50 = 16
;��w�ʃX�p���L���O
;ELSEIF SELECTCOM == 100 && TEQUIP:ARG:50 == PLAYER &&
;���񓯎��z��
ELSEIF SELECTCOM == 11 && TFLAG:103 == ARG && TEQUIP:ARG:����z��
	TFLAG:50 = 17
ENDIF

;=== ����n ===
;������
IF SELECTCOM == 302 && PREVCOM == 305
	TFLAG:50 = 60
;�����܂���
ELSEIF SELECTCOM == 402 && PREVCOM == 311
	TFLAG:50 = 61
;�f�R����[
ELSEIF SELECTCOM == 312 && PREVCOM == 309 && !FLAG:70
	TFLAG:50 = 62
ENDIF
;�����ƃL�X����
SIF SELECTCOM == 312 && PREVCOM == 312 && !TFLAG:151
	TFLAG:50 = 63

;=== �f�[�g�n ===
IF CHK_DATENOW(CFLAG:TARGET:�f�[�g��)
	;�������
	IF SELECTCOM == 603 && PREVCOM == 603
		TFLAG:50 = 80
	ENDIF
ENDIF

RESULT = 0
SIF TFLAG:�O��̃R�}���h���� <= 0
	TFLAG:50 = 0
IF TFLAG:50
	CALLFORM COM_ABLE{500 + TFLAG:50}
	IF RESULT
		TRYCALLFORM CAN_SCOM{TFLAG:50}(1)
		IF RESULT
			TRYCCALLFORM CAN_SCOM{TFLAG:50}
			CATCH
				PRINTFORML %STR:(1500 + TFLAG:50)%
			ENDCATCH
			STR:0 = %STR:(1500 + TFLAG:50)%
			TRYCALLFORM SCOM{TFLAG:50}
		ENDIF
	ENDIF
ENDIF
SIF RESULT
	RETURN RESULT
TFLAG:50 = 0
;LOCALS = %STR:(1000 + SELECTCOM)%
LOCALS = %TRAINNAME:(SELECTCOM)%
TRYCCALLFORM CAN_COM{SELECTCOM}
CATCH
	PRINTFORML %LOCALS%
ENDCATCH
STR:0 = %LOCALS%
CALL KOJO_MESSAGE_SEND("SUCCESS",-1,TARGET,-1,-1)
TRYCALLFORM COM{SELECTCOM}
RETURN RESULT

repo_name: akadiya/eratw

license: unknown


code:
@�����|����
#DIM �l�̋C�z
#DIM �����|���ꔻ��
#DIM �������l
#DIM �����|����l
#DIM �������D��

;MASTER�̈ʒu���猩�đ��̕����ɂ��ꂩ���邩�ǂ���
�l�̋C�z = 0
FOR LOCAL,1,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == CFLAG:MASTER:���݈ʒu
		CONTINUE
	SIF CAN_MOVE(CFLAG:MASTER:���݈ʒu, CFLAG:LOCAL:���݈ʒu) & 2
		�l�̋C�z ++
	;�����̏�
	SIF ROOMDATA:(CFLAG:MASTER:���݈ʒu % 100) & �ꏊ_�����̏�
		�l�̋C�z ++
NEXT

IF FLAG:�����|��
	�����|���ꔻ�� = 0
	�����|���ꔻ�� += ABL:TARGET:�퓬�\�� - ABL:MASTER:�퓬�\��
	�����|���ꔻ�� += TALENT:TARGET:�̌^ - TALENT:MASTER:�̌^
	IF CFLAG:TARGET:�p���炢 > 0
		�����|���ꔻ�� += 1
	ELSEIF CFLAG:TARGET:�p���炢 < 0
		�����|���ꔻ�� -= 1
	ENDIF
	IF CFLAG:TARGET:�U�f > 0
		�����|���ꔻ�� += 1
	ELSEIF CFLAG:TARGET:�U�f < 0
		�����|���ꔻ�� -= 1
	ENDIF
	IF CFLAG:TARGET:�ϋɐ� > 0
		�����|���ꔻ�� += 1
	ELSEIF CFLAG:TARGET:�ϋɐ� < 0
		�����|���ꔻ�� -= 1
	ENDIF
	IF CFLAG:TARGET:�^�` > 0
		�����|���ꔻ�� += 1
	ELSEIF CFLAG:TARGET:�^�` < 0
		�����|���ꔻ�� -= 1
	ENDIF
	IF GROUPMATCH(CFLAG:TARGET:���i�X��,1,3)
		�����|���ꔻ�� += 1
	ELSEIF GROUPMATCH(CFLAG:TARGET:���i�X��,2,4)
		�����|���ꔻ�� -= 1
	ENDIF
	;�����|���ꔻ�� += ABL:TARGET:�T�h���C + ABL:MASTER:�}�]���C
	;�����|���ꔻ�� -= TALENT:MASTER:�x�� + TALENT:MASTER:�ԓx + TALENT:MASTER:���� + TALENT:MASTER:�v���C�h + TALENT:MASTER:����z���Ȃ� + TALENT:MASTER:��R + TALENT:MASTER:�呀
	;�����|���ꔻ�� += (CFLAG:TARGET:��݈��� * 2) + (TALENT:TARGET:�T�h * 3) + (TALENT:MASTER:�}�] * 3) + (TCVAR:TARGET:���� * 3)
	IF CFLAG:TARGET:���܂��Ă�x < 600
		�����|���ꔻ�� = 0
	ELSEIF CFLAG:TARGET:���܂��Ă�x < 800
		�����|���ꔻ�� += 1
	ELSEIF CFLAG:TARGET:���܂��Ă�x < 1000
		�����|���ꔻ�� += 2
	ELSE
		�����|���ꔻ�� += 3
	ENDIF
ENDIF

IF CFLAG:���ӂ� == 1
	TFLAG:102 = 2
ELSEIF CFLAG:���ӂ� == 2
	TFLAG:102 = 3
ELSEIF TFLAG:102 == 3 && CFLAG:MASTER:���ӂ� == 2
	;���ɏ����ς݂Ȃ̂ŃX�L�b�v
ELSE
	TFLAG:102 = 1
ENDIF

IF !(TFLAG:102 == 3 && CFLAG:MASTER:���ӂ� == 2)
	TFLAG:���������[�h = 0
ENDIF

;������or�����|����̏���
;�f�[�g���͔������Ȃ�
IF !CHK_DATENOW(CFLAG:TARGET:�f�[�g��)
	;�������Ɖ����|����A�ǂ��炪�D�悵�Ď��s����邩�𔻒�B�����������m����
	IF (TALENT:MASTER:���� & 1) && (TALENT:���� & 1)
		�������l = ����������(TARGET)
	ELSE
		�������l = 0
	ENDIF
	�����|����l = ENDURE(TARGET)

	�������D�� = (�������l >= 1 && �������l > �����|����l + 40 && !(�����|����l >= 600 && BASE:���� <= 300))

	;���������D��̏ꍇ
	IF �������D��
		IF !CFLAG:���ӂ� && TFLAG:102 != 3 && �������l >= RAND:250 + 250 && TCVAR:�������֎~���� <= 0
			;���O�ł͕�������Ȃ�
			IF (!�l�̋C�z && INROOM(CFLAG:MASTER:���݈ʒu) && AT_HOME(MASTER)) || CFLAG:MASTER:���݈ʒu == OMANEKIBEYA()
				;�����ɂ���̂�1�l�݂̂̏ꍇ(�������͕����l�s��)
				IF GET_TARGETNUM() == 1
					PRINTL
					PRINTFORMW %CALLNAME:MASTER%��%CALLNAME%�ɕ������ꂽ�I
					CALL KOJO_MESSAGE_SEND("EVENT",10,TARGET,1,1)
					TFLAG:����������|�C���g = 2 + RAND:(MIN(ABL:�~�], 10) / 2 + 2) + MIN(CFLAG:���܂��Ă�x, 1000) / 200
					CFLAG:���ӂ� = 2
					CFLAG:MASTER:���ӂ� = 2
					TFLAG:102 = 3
					TFLAG:���������[�h = 1
				ENDIF
			ENDIF
		ENDIF
	;�����|���ꂪ�D��̏ꍇ
	ELSE
		IF ((!CFLAG:���ӂ� && TFLAG:102 != 3) || (TFLAG:102 == 3 && TFLAG:���������[�h)) && �����|����l >= RAND:300 + 300
			;���O�ł͉����|����Ȃ�
			IF (!�l�̋C�z && INROOM(CFLAG:MASTER:���݈ʒu) && AT_HOME(MASTER)) || CFLAG:MASTER:���݈ʒu == OMANEKIBEYA()
				;�����ɂ���̂�1�l�݂̂̏ꍇ�܂��͕����l�ɉ����|���ꂽ�Ƃ�
				IF GET_TARGETNUM() == 1 || ���������|����() == 1
					;�����|����Ȃ�����
					IF FLAG:�����|�� && �����|���ꔻ�� <= 0
						PRINTL
						PRINTFORML �ˑR%CALLNAME:TARGET%�ɕ������ꂽ�I
						PRINTFORM %CALLNAME:TARGET%��
						IF PALAM:TARGET:�~�� >= PALAMLV:10
							PRINT �M������
						ELSE
							PRINT ����
						ENDIF
						PRINTFORML ���Ō��߂Ă���
					;�f�B���C���P���|�����Ă��Ȃ�
					ELSEIF CFLAG:TARGET:�f�B���C > 0

					ELSE
						PRINTL
						PRINTFORMW %CALLNAME:MASTER%�͉����|���ꂽ�I
						;CALL KOJO_EVENT(12, TARGET)
						CALL KOJO_MESSAGE_SEND("EVENT",10,TARGET,1,0)
						FOR LOCAL, 1, GET_TARGETNUM() + 1
							CFLAG:(TARGET:LOCAL):���ӂ� = 2
						NEXT
						CFLAG:MASTER:���ӂ� = 2
						TFLAG:102 = 3
						TFLAG:���������[�h = 0
						TFLAG:�����|����J�n���� = TIME + DAY * 1440
					ENDIF
				ENDIF
				IF INROOM(CFLAG:MASTER:���݈ʒu) == 2
					CALL DATUI_SHOES(MASTER,0)
					CALL DATUI_SHOES(TARGET,0)
				ENDIF
			;���O(�A�ꍞ�ݏh�ƃ��u�z����)�ŉ����|��������𖞂������ꍇ
			ELSEIF CFLAG:MASTER:���݈ʒu != 260 && CFLAG:MASTER:���݈ʒu != 950
				PRINTL
				SELECTCASE CFLAG:TARGET:���܂��Ă�x
					CASE IS < 600
						PRINTFORML %CALLNAME:TARGET%�����������Ă���
						PRINTFORMW �ǂ����l�ڂɂ��Ȃ��ꏊ�֍s�������悤��
					CASE IS < 800
						PRINTFORMW %CALLNAME:TARGET%��%CALLNAME:MASTER%�Ɋ��Y���A��ڌ����Ō��߂Ă����c
					CASE IS < 1000
						PRINTFORML %CALLNAME:TARGET%��%CALLNAME:MASTER%�Ɋ��Y���A\@ BATHROOM(CFLAG:���݈ʒu) ? �����o���� # ���̏ォ�� \@�ҊԂ������ƕ��łĂ����c
						PRINTFORMW %CALLNAME:TARGET%�͗~��������ői�������Ă���
						IF TCVAR:TARGET:�U�f���� != TIME
							PALAM:TARGET:���� += 500
							TCVAR:TARGET:�U�f���� = TIME
						ENDIF
					CASEELSE
						PRINTFORML %CALLNAME:TARGET%��C�������%CALLNAME:MASTER%�ɂ��Ȃ��ꂩ����A%CALLNAME:MASTER%�̎������Ď����̂��������Ǝ������镔�ɓ������c
						PRINTFORMW %CALLNAME:TARGET%�͍������ɂł�%CALLNAME:MASTER%�ɕ����ꂽ���Ċ���Ȃ��l��
						IF TCVAR:TARGET:�U�f���� != TIME
							PALAM:TARGET:���� += 2000
							TCVAR:TARGET:�U�f���� = TIME
						ENDIF
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF

;���������|����̔���
@���������|����()
#FUNCTION
#DIM ����l
#DIM �L�����ʔ���l
#DIM �����␳
#DIM NUM_TARGET
����l = 0
NUM_TARGET = GET_TARGETNUM()
SIF NUM_TARGET <= 1
	RETURNF 0
FOR LOCAL, 1, NUM_TARGET + 1
	SIF CFLAG:(TARGET:LOCAL):���� != 1
		CONTINUE
	SIF ENDURE(TARGET:LOCAL) < 450
		RETURNF 0
	;�����ʂ�����L�����ʔ���l�ɓ����
	�L�����ʔ���l = ENDURE(TARGET:LOCAL)
	DEBUGPRINTFORML �␳�O�F({TARGET:LOCAL}) {ENDURE(TARGET:LOCAL)}
	;��������L�����ʔ���l��␳���Ă���
	;���Y���C�ł̕␳(3�����ɂ̓y�i���e�B)
	SIF ABL:(TARGET:LOCAL):���Y���C == 0
		TIMES �L�����ʔ���l, 0
	SIF ABL:(TARGET:LOCAL):���Y���C == 1
		TIMES �L�����ʔ���l, 0.50
	SIF ABL:(TARGET:LOCAL):���Y���C == 2
		TIMES �L�����ʔ���l, 0.80
	;3�ȏ�ł�(1+0.1*(���Y���C - 3))�{
	SIF ABL:(TARGET:LOCAL):���Y���C >= 3
		�L�����ʔ���l = �L�����ʔ���l * (100 + 10 * (ABL:(TARGET:LOCAL):���Y���C - 3)) / 100
	DEBUGPRINTFORML ���Y���C�␳��F({TARGET:LOCAL}) {�L�����ʔ���l}
	;���Y���łł̕␳ (1+0.1*���Y����)�{
	�L�����ʔ���l = �L�����ʔ���l * (100 + 10 * ABL:(TARGET:LOCAL):���Y����) / 100
	DEBUGPRINTFORML ���Y���ŕ␳��F({TARGET:LOCAL}) {�L�����ʔ���l}

	;�����ł̕␳
	;���̂����L����������ƈꏏ��MASTER�������|���₷��(���S�Ɏ)
	�����␳ = 0
	;�����̃L������T��e�L�����ɑ΂��đ����l�����Ă���
	FOR LOCAL:1, 1, NUM_TARGET + 1
		SIF CFLAG:(TARGET:(LOCAL:1)):���� != 1
			CONTINUE
		SIF LOCAL == LOCAL:1
			CONTINUE
		;�����␳ += RELATION:LOCAL:(LOCAL:2)
		;�ق�Ƃ�̈ꕶ�����ōς܂������񂾂���......
		;_Replace.csv��RELATION�̏����l�������Ȃ�(��)
		;�Ȃ̂ŋ���̍�Ƃ���0��100�Ƃ݂Ȃ�(�\�_)
		�����␳ += RELATION:(TARGET:LOCAL):(TARGET:(LOCAL:1))
		SIF RELATION:(TARGET:LOCAL):(TARGET:(LOCAL:1)) == 0
			�����␳ += 100
	NEXT
	;���ϒl���Ƃ�(�����_�ȉ��؎̂�) ���l��������(GET_TARGETNUM() - 1)�l�Ŋ���
	;0���Z����(�����Ǝv������)
	�����␳ /= NUM_TARGET - 1
	�L�����ʔ���l = �L�����ʔ���l * �����␳ / 100
	DEBUGPRINTFORML �����␳��F({(TARGET:LOCAL)}) {�L�����ʔ���l}
	;�␳��̃L�����ʔ���l��S�̂̔���l�ɓ����
	����l += �L�����ʔ���l
NEXT
;���ϒl���Ƃ�(�����_�ȉ��؎̂�)
;0���Z�����킢��
����l /= NUM_TARGET
DEBUGPRINTFORML ����l�F{����l}
;����l���ő傾�Ƃ��āA�m���́u(400+200*�����̐l��)����150�v�ɐݒ�(�l��������Ɠ�Փx�㏸)
SIF RAND:(400 + 200 * NUM_TARGET) + 450 <= ����l
	RETURNF 1
RETURNF 0

;==============================================================
;FileName_ATTITUDE.ERB ------------------------------- Rev1.00
;�����|��������
;CALL		USER
;ARG		�L����NO
;RETURN		0:�����|���s����, 1:�����|������
;COMMENT	���������n�֐��B�o���������B

;-----------------------------------------------------------
@ENDURE(ARG)
#FUNCTION
;�f���ɂ�蔻��ω�
LOCAL = CFLAG:ARG:���Ӕ���
LOCAL += (EX:ARG:�b���~�� + EX:ARG:�u���~�� + EX:ARG:�`���~�� + EX:ARG:�a���~�� + EX:ARG:�l���~��) * 20
;���������Ɖ����|���ꗦ�㏸
SIF SELECTCOM == 311
	LOCAL += 30
SIF TALENT:ARG:����
	LOCAL -= 50
SIF TALENT:ARG:����
	LOCAL = LOCAL + 50
SIF CFLAG:ARG:������ == 2
	LOCAL = LOCAL + 50
SIF CFLAG:ARG:������S��
	LOCAL -= 100
SIF TALENT:ARG:�x�� < 0 || TALENT:ARG:���� < 0 || TALENT:ARG:���֐S || TALENT:ARG:㵒p�S > 0
	LOCAL = LOCAL - 30
SIF TALENT:ARG:���I���� > 0 || TALENT:ARG:㵒p�S < 0
	LOCAL = LOCAL + 20
SIF TALENT:ARG:�����S || TALENT:ARG:���I���� < 0
	LOCAL = LOCAL - 20
SIF TALENT:ARG:�呀 < 0 || TALENT:ARG:������
	LOCAL = LOCAL + 20
SIF TALENT:ARG:�呀 > 0 || TALENT:ARG:����z���Ȃ�
	LOCAL -= 20
SIF OTOKOGIRAI(ARG) && !(TCVAR:ARG:���� || TCVAR:ARG:�Z��)
	LOCAL = LOCAL / 2
SIF TALENT:ARG:����z���Ȃ� && TALENT:ARG:����
	LOCAL = LOCAL * 12 / 5
SIF TALENT:ARG:���ʚn�D == 3 || MARK:ARG:�������� == 3
	LOCAL = 0
SIF TFLAG:120 && TFLAG:120 != ARG
	LOCAL = 0
SIF !SHIRAHU(ARG)
	LOCAL = 0
SIF CFLAG:ARG:�s�� == 5
	LOCAL = 0
SIF CFLAG:ARG:�f�B���C
	LOCAL = 0
SIF CFLAG:ARG:�Y���Q��
	LOCAL = 0
SELECTCASE CFLAG:ARG:���܂��Ă�x
	CASE IS >= 1000
		LOCAL *= 3
	CASE IS >= 800
		LOCAL = LOCAL * 3 / 2
	CASE IS >= 600
		LOCAL = LOCAL * 5 / 4
	CASE IS >= 500
	CASE IS >= 300
		LOCAL /= 2
	CASE IS >= 200
		LOCAL /= 4
	CASE IS >= 100
		LOCAL /= 10
	CASEELSE
		LOCAL = 0
ENDSELECT

;�̗͂Ɉˑ����ĉ����|��������

SELECTCASE BASE:ARG:�̗�
	CASE IS < 750
		LOCAL = 0
	CASE IS < 1000
		LOCAL /= 2
	CASE IS < 1500
		LOCAL = LOCAL * 3 / 4
	CASEELSE
ENDSELECT

SELECTCASE BASE:ARG:�C��
	CASE 0
		LOCAL = 0
	CASE IS < 500
		LOCAL /= 2
	CASEELSE
ENDSELECT

;�����Ɉˑ����ĉ����|��������
IF BASE:ARG:���� > 800
	LOCAL = LOCAL / 5
ELSEIF BASE:ARG:���� > 600
	LOCAL = LOCAL / 2
ELSE
	;Do Notting
ENDIF
SELECTCASE BASE:ARG:���[�h
	CASE IS < 200
		LOCAL = 0
	CASE 201 TO 400
		LOCAL /= 4
	CASE 401 TO 600
		LOCAL /= 2
	CASE 601 TO 800
	CASEELSE
		LOCAL = LOCAL * 6 / 5
ENDSELECT
SIF FLAG:�b�㐫��
	LOCAL = LOCAL * 2
SIF CFLAG:ARG:�u�`�M��
	LOCAL = 0
RETURNF LOCAL

;==============================================================
;����������
;==============================================================
@����������(ARG)
#FUNCTION
;�f���ɂ�蔻��ω�
LOCAL = CFLAG:ARG:���Ӕ���
SIF TALENT:ARG:����
	LOCAL = LOCAL + 50
SIF CFLAG:ARG:������S��
	LOCAL -= 100
;���������ƕ�����������㏸
SIF SELECTCOM == 311
	LOCAL += 30
SIF TALENT:ARG:�x�� < 0 || TALENT:ARG:���� < 0 || TALENT:ARG:���֐S || TALENT:ARG:㵒p�S > 0
	LOCAL = LOCAL - 30
SIF TALENT:ARG:���I���� > 0 || TALENT:ARG:㵒p�S < 0
	LOCAL = LOCAL + 20
SIF TALENT:ARG:�����S || TALENT:ARG:���I���� < 0
	LOCAL = LOCAL - 20
SIF TALENT:ARG:�呀 < 0 || TALENT:ARG:������
	LOCAL = LOCAL + 20
SIF TALENT:ARG:�呀 > 0 || TALENT:ARG:����z���Ȃ�
	LOCAL = LOCAL / 2
SIF OTOKOGIRAI(ARG)
	LOCAL = LOCAL / 2
SIF TALENT:ARG:���ʚn�D == 3 || MARK:ARG:�������� == 3
	LOCAL = 0
SIF TFLAG:120 && TFLAG:120 != ARG
	LOCAL = 0
SIF !SHIRAHU(ARG)
	LOCAL = 0
SIF CFLAG:ARG:�s�� == 5
	LOCAL = 0
SIF CFLAG:ARG:�f�B���C
	LOCAL = 0
SIF CFLAG:ARG:�Y���Q��
	LOCAL = 0
SELECTCASE CFLAG:ARG:���܂��Ă�x
	CASE IS >= 1000
		LOCAL *= 2
	CASE IS >= 800
		LOCAL = LOCAL * 7 / 5
	CASE IS >= 600
		LOCAL = LOCAL * 6 / 5
	CASE IS >= 400
	CASE IS >= 300
		LOCAL /= 2
	CASE IS >= 150
		LOCAL /= 4
	CASEELSE
		LOCAL = 0
ENDSELECT

;�̗͂Ɉˑ����ĉ����|��������
SELECTCASE BASE:ARG:�̗�
	CASE IS < 750
		LOCAL = 0
	CASE IS < 1000
		LOCAL /= 2
	CASE IS < 1500
		LOCAL = LOCAL * 3 / 4
	CASEELSE
ENDSELECT

SELECTCASE BASE:ARG:���[�h
	CASE IS < 200
		LOCAL = 0
	CASE 201 TO 500
		LOCAL = LOCAL * 2 / 3
	CASE 501 TO 800
	CASEELSE
		LOCAL = LOCAL * 3 / 2
ENDSELECT
SIF FLAG:�b�㐫��
	LOCAL = LOCAL * 2
RETURNF LOCAL

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用色々改良パッチ/ERB/ステータス計算関連/押し倒され.ERB


code:
;FileName_COMMON.ERB ------------------------------- Rev1.00
;�G�ߊǗ�
;CALL		USER
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@CHANGE_MONTH
#DIM ���݂�����
;���t�������ׂ����猎�ύX
IF DAY:3 > 31
	DAY:3 = 1
	DAY:2 ++
	;�~�̎��t
	IF DAY:2 > 4
		DAY:2 = 1
		FLAG:�N�n�ݕt�� = FLAG:�n��ݕt��
	ENDIF
	;�ĂɂȂ�����o�����^�C���t���O���Z�b�g
	SIF DAY:2 == 2
		CVARSET CFLAG, 383
	;��������
	SIF FLAG:�n��
		FLAG:�N�v = 1
	IF FLAG:������s
		FLAG:������s = 0
		PRINTFORMW ������s�̊������؂�܂����B
	ENDIF
	IF FLAG:�V���w��
		IF MONEY < 3000 && MONEY:2 < 10
			PRINTFORML �����Ȃ̂ŕ��X�B�V���̍w�ǂ��~���܂��B
		ELSE
			PRINTL
			PRINTFORML �����X�B�V���̍w�ǂ𑱂��܂����H�i���z��3000 or 10�J���X�}�j
			CALL ASK_M("���",1,"�X�V�i��3000�j",MONEY >= 3000,"�X�V�i10�J���X�}�j",MONEY:2 >= 10)
			SELECTCASE RESULT
				CASE 0
					PRINTFORML �w�ǂ��~���܂��B
					FLAG:�V���w�� = 0
				CASE 1
					MONEY -= 3000
					PRINTFORML �������w�ǂ��܂��B
				CASE 2
					MONEY:2 -= 10
					PRINTFORML �������w�ǂ��܂��B
			ENDSELECT
		ENDIF
	ENDIF
	IF FLAG:���݂����_��
		���݂����� = 50
		SIF !MAIN_MAP
			���݂����� = 30
		IF MONEY:2 < ���݂�����
			PRINTFORML �J���X�}������Ȃ��̂ŁA���݂����_�񂪑ł��؂��܂���
			FLAG:���݂����_�� = 0
		ELSE
			PRINTFORML ���݂����_��𑱂��܂����H
			CALL ASK_YN
			IF !RESULT
				PRINTFORML �_����X�V���܂���
				MONEY:2 -= ���݂�����
			ELSE
				FLAG:���݂����_�� = 0
				PRINTFORML �_����I�����܂�
			ENDIF
		ENDIF
	ENDIF
ENDIF
;�ُ�l���Œ�C��
SIF DAY:3 < 1
	DAY:3 = 1
SIF DAY:2 < 1 || DAY:2 > 4
	DAY:2 = 1

;FileName_COMMON.ERB ------------------------------- Rev1.00
;���ԑъǗ�
;CALL		USER
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@CHANGE_TIMEZONE

;SELECTCASE TIME
;	CASE 240 TO 599
;		LOCAL = 1
;	CASE 600 TO 1139
;		LOCAL = 2
;	CASE 1140 TO 1440 , 0 TO 239
;		LOCAL = 3
;ENDSELECT

SELECTCASE TIME
	;AM4~6�@����
	CASE 240 TO 359
		LOCAL = 1
	;AM6~12�@���ߑO
	CASE 360 TO 719
		LOCAL = 2
	;PM12~3�@��
	CASE 720 TO 899
		LOCAL = 3
	;PM3~6�@��������
	CASE 900 TO 1079
		LOCAL = 4
	;PM6~8�@�[
	CASE 1080 TO 1199
		LOCAL = 5
	;PM8~11�@��
	CASE 1200 TO 1379
		LOCAL = 6
	;PM11~AM4�@�[��
	CASE 0 TO 239, IS >= 1380
		LOCAL = 7
ENDSELECT

IF LOCAL != TIME:2
	TIME:2 = LOCAL
	CALL CHANGE_WEATHER
	TRYCALLFORM MOB_PLACE_{MAIN_MAP}
	CALL TIMEZONE_MOVE
ENDIF

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�G�ߖ��擾
;CALL		USER
;ARG		�������Ȃ��ꍇDAY:2
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@GET_MONTH(ARG)
#FUNCTIONS
SIF !ARG
	ARG = DAY:2
SIF !STRLENS(LOCALS)
	SPLIT "���̌�/�t�̌�/�Ă̌�/�H�̌�/�~�̌�", "/", LOCALS
RETURNF LOCALS:(ARG)

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�V�C���擾
;CALL		USER
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@GET_WEATHER
#FUNCTIONS
#DIMS �\��_�ُ�C��,15
IF FLAG:�ُ�C��
	SPLIT " /�b�q��/�u�q��/�`�q��/�a�q��/�l�q��/�X�J�[�g/�p���c/���F�̕�/�䕗/�Ґ���", "/", �\��_�ُ�C��
	RETURNF �\��_�ُ�C��:(FLAG:�ُ�C��)
ENDIF
SIF !STRLENS(LOCALS)
	SPLIT "����/����/����/�܂�/�J/��J/���J/��/��/����/�א�/����/�݂���/�����", "/", LOCALS
RETURNF LOCALS:(TIME:5)

;-------------------------------------------------
;�֐���:GET_DAY
;�T�@�v:�j����\����������擾����֐�
;���@��:�������Ȃ��ꍇDAY
;�߂�l:�j����\��������(��/��/��/��/��/��/�y)
;���@�l:�����֐�
;-------------------------------------------------
@GET_DAY(ARG)
#FUNCTIONS
SIF !ARG
	ARG = DAY
SIF !STRLENS(LOCALS)
	SPLIT "��/��/��/��/��/��/�y", "/", LOCALS
RETURNF LOCALS:(ARG % 7)
;FileName_COMMON.ERB ------------------------------- Rev1.00
;�V�C�Ǘ�
;CALL		USER
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@CHANGE_WEATHER
#DIM �n��
#DIM ����p���c
#DIM ������
#DIM ���[�v�J�n
#DIM ���[�v�I��
#DIM ���[�v���Z
DEBUGPRINTL �yCHANGE_WEATHER�zCALL CHANGE_WATHER
;�V��Ǘ��Ƀ��b�Z�[�W�\�����������Ă��݂܂����񁄁��G
;���ӂӒ��͋�C��ǂޒ��x�̔\��
;�V��ω����Ȃ��Ă���������
�n�� = 0
IF CFLAG:MASTER:�f�[�g�� == 9
	�n�� = 1
ELSEIF CFLAG:MASTER:���݈ʒu == OMANEKIBEYA() && GROUPMATCH(CFLAG:MASTER:������, 36, 37, 38, 49, 60, 64, 83, 84)
	�n�� = 1
ENDIF
TIME:7 = 0
IF !�n��
	SELECTCASE FLAG:�ُ�C��
		CASE 7
			;�����ł����Ȃ��Ƃ܂��m�[�p�������ł��Ă��܂��Ǝv����
			DO
				CALL RAND_CHARASELECT("��l���ȊO�̃L�������X�g")
				������ = RESULT
				����p���c = �����̂ς��(������)
			LOOP !����p���c
			PRINTFORML �ނ�����%CALLNAME:������%��%PANTSNAME(����p���c)%���^��ł���
			CALL ASK_YN("�E��","�E���")
			IF !RESULT
				PRINTFORMW %CALLNAME:MASTER%��%CALLNAME:������%��%PANTSNAME(����p���c)%���E����
				CALL PANTS_GETTING(������, ����p���c)
			ELSE
				PRINTFORML %PANTSNAME(����p���c)%�͂��̂܂܂ǂ����֔��ōs����
			ENDIF
		CASE 8
			SETCOLOR 255,100,255
			FONTBOLD
			PRINTFORMW ���z���ɓ��F�̕����������I
			FOR LOCAL,1,CHARANUM
				IF !RAND:10
					PRINTFORML ���F�̕��𗁂т�%CALLNAME:LOCAL%�͂������ȋC���ɂȂ����c
					CFLAG:LOCAL:���܂��Ă�x += LIMIT((10 + RAND:20 + RAND:20 + RAND:20) * ABL:LOCAL:�~�],200,1000)
					SIF !TALENT:LOCAL:�񐶕�
						TCVAR:LOCAL:���� = 1
				ENDIF
			NEXT
			RESETCOLOR
			FONTREGULAR
	ENDSELECT
ENDIF

SIF FLAG:�ُ�C��
	RETURN
SIF TIME:5 > 15
	TIME:5 = 0
;�V��ω��m���i�W����50%�j
SELECTCASE TIME:5
	CASE 5
		LOCAL = 16
	CASE 9
		IF DAY:2 == 2
			LOCAL = 12
		ELSE
			LOCAL = 16
		ENDIF
	CASE IS >= 8
		IF DAY:2 == 4
			LOCAL = 24
		ELSEIF DAY:2 == 2
			LOCAL = 12
		ELSE
			LOCAL = 16
		ENDIF
	CASEELSE
		LOCAL = 24
ENDSELECT

IF RAND:LOCAL + 1 <= 12 && CFLAG:MASTER:���݈ʒu != �V�E
	;�V��ω������œ�������
	;TIME:7 = 0
	SELECTCASE TIME:5
		;����̎�
		CASE 0
			;20%�Ő��V�Ɉڍs
			IF RAND:5 == 0
				SETBIT TIME:5,0
			;20%�Ŕ��܂Ɉڍs
			ELSEIF RAND:5 == 0
				SETBIT TIME:5,1
				SIF !CFLAG:MASTER:���ӂ� && !�n��
					PRINTW �����܂��Ă���
			;5%�œ܂�Ɉڍs
			ELSEIF RAND:20 == 0
				TIME:5 = 3
				SIF !CFLAG:MASTER:���ӂ� && !�n��
					PRINTW �_���o�Ă���
			;��L�m���Ɉ���������Ȃ������琰��
			ELSE
				TIME:5 = 0
			ENDIF
		CASE 1
			;20%�Ő���Ɉڍs
			IF RAND:5 == 0
				CLEARBIT TIME:5,0
			;20%�Ŕ��܂Ɉڍs
			ELSEIF RAND:5 == 0
				TIME:5 = 2
				SIF !CFLAG:MASTER:���ӂ� && !�n��
					PRINTW �����܂��Ă���
			ENDIF
		;�܂�̎�
		CASE 2,3
			;25%�ŋ���or��̉�
			IF RAND:4 == 0
				INVERTBIT TIME:5,0
			ELSE
				;20%�Ő���Ɉڍs
				IF RAND:5 == 0
					TIME:5 = 0
					IF !CFLAG:MASTER:���ӂ� && !�n��
						IF TIME:2 >= 5 && TIME:2 <= 7
							PRINTW ���������Ă���
						ELSE
							PRINTW �����˂��Ă���
						ENDIF
					ENDIF
				;���܂Ȃ�10%�ŉJ����Ɉڍs
				ELSEIF TIME:5 == 2 && RAND:10 == 0
					IF DAY:2 == 4 && RAND:5
						TIME:5 = 8
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �Ⴊ�~���Ă����I
					ELSE
						TIME:5 = 4
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �J���~���Ă����I
					ENDIF
					;�X��10%�̊m���Ŗ��J,�א�Ɉڍs
					SIF RAND:10 == 0
						SETBIT TIME:5,1
				;�܂�Ȃ�30%�ŉJ�Ɉڍs
				ELSEIF TIME:5 == 3 && RAND:10 < 3
					IF DAY:2 == 4 && RAND:5
						TIME:5 = 8
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �Ⴊ�~���Ă����I
					ELSE
						TIME:5 = 4
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �J���~���Ă����I
					ENDIF
				ENDIF
			ENDIF
		;�J�̎�
		CASE 4,5,6,7
			;25%�ŋ���or��̉�
			IF RAND:4 == 0
				INVERTBIT TIME:5,0
				IF TIME:5 == 5
					PRINTW �y���~��ɂȂ����I
				ELSE
					PRINTW �J����܂���
				ENDIF
			ELSE
				;25%�œ܂�Ɉڍs
				IF RAND:4 == 0
					TIME:5 = 3
					SIF !CFLAG:MASTER:���ӂ� && !�n��
						PRINTW �J�����������悤��
					;�O�̂��ߑ������P������
					FOR LOCAL,0,CHARANUM
						SIF TEQUIP:LOCAL:201
							TEQUIP:LOCAL:201 = 0
					NEXT
				;�J�Ȃ�10%�Ŗ��J���݂���Ɉڍs
				ELSEIF TIME:5 == 4 && RAND:10 == 0
					IF DAY:2 == 4
						TIME:5 = 12
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �����Ⴊ�������Ă���
					ELSE
						TIME:5 = 6
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW ���H���ׂ����Ȃ��Ă���
					;�X��10%�̊m���Ŗ�,�����Ɉڍs
					SIF RAND:10 == 0
						SETBIT TIME:5,0
					ENDIF
				;10%�Ő���Ɉڍs
				ELSEIF RAND:10 == 0
					TIME:5 = 0
					IF !CFLAG:MASTER:���ӂ� && !�n��
						;��������Ȃ��Ƃ����m���Ɍ�����̂͋C�����悭�����閂�@
						IF TIME:2 >= 5 && TIME:2 <= 7
							PRINTW �ˑR���󂪍L�������I�����������邩������Ȃ�
						ELSE
							PRINTW �ˑR�����˂��Ă����I���������邩������Ȃ�
						ENDIF
					FOR LOCAL,0,CHARANUM
						SIF TEQUIP:LOCAL:201
							TEQUIP:LOCAL:201 = 0
					NEXT
					ENDIF
					;�X�ɒ�m���ŉ���
					SIF RAND:100 < 5
						TIME:5 = 1
					;�J���������������������o��
					TIME:7 = 1
				ENDIF
			ENDIF
		;��̎�
		CASE IS >= 8
			;��͓~�ȊO�~��Ȃ�
			IF DAY:2 != 4
				;�J�ɂȂ�
				CLEARBIT TIME:5,3
				SETBIT TIME:5,2
				SIF !CFLAG:MASTER:���ӂ� && !�n��
					PRINTW ��͉J�ɕς�����悤��
			;10%�ŋ���
			ELSEIF !GETBIT(TIME:5,0) && RAND:10 == 0
				SETBIT TIME:5,0
				PRINTW ���Ⴂ�Ă����I
			;50%�̊m���Ŏ�̉�
			ELSEIF GETBIT(TIME:5,0) && RAND:2
				CLEARBIT TIME:5,0
				PRINTW ����͎�܂����悤��

			ELSE
				;25%�œ܂�Ɉڍs
				IF RAND:4 == 0
					TIME:5 = 3
					SIF !CFLAG:MASTER:���ӂ� && !�n��
						PRINTW �Ⴊ��񂾂悤��
					FOR LOCAL,0,CHARANUM
						SIF TEQUIP:LOCAL:201
							TEQUIP:LOCAL:201 = 0
					NEXT
				;��Ȃ�10%�ōאႩ�݂���Ɉڍs
				ELSEIF TIME:5 == 8 && RAND:10 == 0
					IF RAND:2
						TIME:5 = 10
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW ��̌������ׂ����Ȃ��Ă���
					ELSE
						TIME:5 = 12
						SIF !CFLAG:MASTER:���ӂ� && !�n��
							PRINTW �����J���������Ă���
					ENDIF
					;�X��10%�̊m���Ŗ���,�����Ɉڍs
					SIF RAND:10 == 0
						SETBIT TIME:5,0
				;10%�Ő���Ɉڍs
				ELSEIF RAND:10 == 0
					TIME:5 = 0
					IF !CFLAG:MASTER:���ӂ� && !�n��
						IF TIME:2 >= 5 && TIME:2 <= 7
							PRINTW �ˑR���󂪍L�������I�_�C�������h�_�X�g�������邩������Ȃ�
						ELSE
							PRINTW �ˑR�����˂��Ă����I�_�C�������h�_�X�g�������邩������Ȃ�
						ENDIF
					FOR LOCAL,0,CHARANUM
						SIF TEQUIP:LOCAL:201
							TEQUIP:LOCAL:201 = 0
					NEXT
					ENDIF
					;�X�ɒ�m���ŉ���
					SIF RAND:100 < 5
						TIME:5 = 1
					;�ၨ���������������_�C�������h�_�X�g���o��
					TIME:7 = 2
				ENDIF
			ENDIF
		CASEELSE
			TIME:5 = RAND:5
	ENDSELECT
ENDIF
[SKIPSTART]
@���݋C���ݒ�
;���፷���T����
SELECTCASE TIME
	;PM11~AM4
	CASE 0 TO 299, IS >= 1380
		LOCAL = FLAG:62
	;AM5~7
	CASE 300 TO 479
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5)
	;AM8~9
	CASE 480 TO 599
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5 * 2)
	;AM10~11
	CASE 600 TO 719
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5 * 3)
	;PM12~2
	CASE 720 TO 899
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5 * 4)
	;PM3~5
	CASE 900 TO 1079
		LOCAL = FLAG:61
	;PM6~7
	CASE 1080 TO 1199
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5 * 4)
	;PM8~9
	CASE 1200 TO 1259
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5 * 2)
	;PM9~10
	CASE 1260 TO 1379
		LOCAL = FLAG:62 + ((FLAG:61 - FLAG:62) / 5)
ENDSELECT
;�����o�Ă��Ȃ��Ɖ��x�ቺ
SELECTCASE TIME
	;AM5~PM7
	CASE 300 TO 1199
		SIF TIME:5 > 1
			LOCAL -= ((FLAG:61 - FLAG:62) / 5)
ENDSELECT
;----------------------------------------------------------------
@�N�Ԋ�b�ō��C��(ARG, ARG:1)
#FUNCTION
;ARG   �w��̌�
;ARG:1 �w��̓�
SELECTCASE ARG
	CASE 1
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 17
			CASE 4, 5
				RETURNF 18
			CASE 6 TO 8
				RETURNF 19
			CASE 9 TO 11
				RETURNF 20
			CASE 12 TO 14
				RETURNF 21
			CASE 15 TO 18
				RETURNF 22
			CASE 19 TO 22
				RETURNF 23
			CASE 23 TO 27
				RETURNF 24
			CASE 28 TO 30
				RETURNF 25
		ENDSELECT
	CASE 2
		SELECTCASE ARG:1
			CASE 1, 2
				RETURNF 25
			CASE 3 TO 7
				RETURNF 26
			CASE 8 TO 13
				RETURNF 27
			CASE 14 TO 17
				RETURNF 28
			CASE 18 TO 22
				RETURNF 29
			CASE 23 TO 28
				RETURNF 30
			CASE 29, 30
				RETURNF 31
		ENDSELECT
	CASE 3
		SELECTCASE ARG:1
			CASE 1, 2
				RETURNF 31
			CASE 3, 4
				RETURNF 30
			CASE 5 TO 7
				RETURNF 29
			CASE 8 TO 10
				RETURNF 28
			CASE 11, 12
				RETURNF 27
			CASE 13, 14
				RETURNF 26
			CASE 15, 16
				RETURNF 25
			CASE 17 TO 19
				RETURNF 24
			CASE 20 TO 22
				RETURNF 23
			CASE 23, 24
				RETURNF 22
			CASE 25 TO 27
				RETURNF 21
			CASE 28, 29
				RETURNF 20
			CASE 30
				RETURNF 19
		ENDSELECT
	CASE 4
		SELECTCASE ARG:1
			CASE 1 TO 4
				RETURNF 19
			CASE 5 TO 7
				RETURNF 18
			CASE 8 TO 10
				RETURNF 17
			CASE 11, 12
				RETURNF 16
			CASE 13, 14
				RETURNF 15
			CASE 15, 16
				RETURNF 14
			CASE 17, 18
				RETURNF 13
			CASE 19, 20
				RETURNF 12
			CASE 21, 22
				RETURNF 11
			CASE 23 TO 25
				RETURNF 10
			CASE 26, 27
				RETURNF 9
			CASE 28, 29
				RETURNF 8
			CASE 30
				RETURNF 7
		ENDSELECT
	CASE 5
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 7
			CASE 4 TO 9
				RETURNF 6
			CASE 10 TO 14
				RETURNF 5
			CASE 15 TO 21
				RETURNF 4
			CASE 22 TO 28
				RETURNF 5
			CASE 29, 30
				RETURNF 6
		ENDSELECT
	CASE 6
		SELECTCASE ARG:1
			CASE 1 TO 6
				RETURNF 6
			CASE 7 TO 12
				RETURNF 7
			CASE 13, 14
				RETURNF 8
			CASE 15, 16
				RETURNF 9
			CASE 17, 18
				RETURNF 10
			CASE 19, 20
				RETURNF 11
			CASE 21, 22
				RETURNF 12
			CASE 23, 24
				RETURNF 13
			CASE 25, 26
				RETURNF 14
			CASE 27, 28
				RETURNF 15
			CASE 29
				RETURNF 16
			CASE 30
				RETURNF 17
		ENDSELECT
ENDSELECT

;----------------------------------------------------------------
@�N�Ԋ�b�Œ�C��(ARG, ARG:1)
#FUNCTION
;ARG   �w��̌�
;ARG:1 �w��̓�
SELECTCASE ARG
	CASE 1
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 11
			CASE 4 TO 6
				RETURNF 12
			CASE 7, 8
				RETURNF 13
			CASE 9 TO 11
				RETURNF 14
			CASE 12 TO 14
				RETURNF 15
			CASE 15 TO 17
				RETURNF 16
			CASE 18 TO 20
				RETURNF 17
			CASE 21 TO 23
				RETURNF 18
			CASE 24 TO 27
				RETURNF 19
			CASE 28 TO 30
				RETURNF 20
		ENDSELECT
	CASE 2
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 20
			CASE 4 TO 7
				RETURNF 21
			CASE 8 TO 10
				RETURNF 22
			CASE 11 TO 14
				RETURNF 23
			CASE 15 TO 22
				RETURNF 24
			CASE 23 TO 30
				RETURNF 25
		ENDSELECT
	CASE 3
		SELECTCASE ARG:1
			CASE 1 TO 5
				RETURNF 25
			CASE 6 TO 9
				RETURNF 24
			CASE 10 TO 12
				RETURNF 23
			CASE 13, 14
				RETURNF 22
			CASE 15 TO 17
				RETURNF 21
			CASE 18 TO 20
				RETURNF 20
			CASE 21 TO 23
				RETURNF 19
			CASE 24, 25
				RETURNF 18
			CASE 26
				RETURNF 17
			CASE 27, 28
				RETURNF 16
			CASE 29
				RETURNF 15
			CASE 30
				RETURNF 14
		ENDSELECT
	CASE 4
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 14
			CASE 4, 5
				RETURNF 13
			CASE 6, 7
				RETURNF 12
			CASE 8, 9
				RETURNF 11
			CASE 10, 11
				RETURNF 10
			CASE 12 TO 14
				RETURNF 9
			CASE 15 TO 17
				RETURNF 8
			CASE 18 TO 20
				RETURNF 7
			CASE 21 TO 23
				RETURNF 6
			CASE 24 TO 26
				RETURNF 5
			CASE 27 TO 29
				RETURNF 4
			CASE 30
				RETURNF 3
		ENDSELECT
	CASE 5
		SELECTCASE ARG:1
			CASE 1, 2
				RETURNF 3
			CASE 3 TO 6
				RETURNF 2
			CASE 7 TO 10
				RETURNF 1
			CASE 11 TO 13
				RETURNF 0
			CASE 14 TO 21
				RETURNF -1
			CASE 22 TO 30
				RETURNF 0
		ENDSELECT
	CASE 6
		SELECTCASE ARG:1
			CASE 1 TO 3
				RETURNF 0
			CASE 4 TO 6
				RETURNF 1
			CASE 7, 8
				RETURNF 2
			CASE 9, 10
				RETURNF 3
			CASE 11 TO 14
				RETURNF 4
			CASE 15, 16
				RETURNF 5
			CASE 17, 18
				RETURNF 6
			CASE 19, 20
				RETURNF 7
			CASE 21 TO 23
				RETURNF 8
			CASE 24, 25
				RETURNF 9
			CASE 26 TO 28
				RETURNF 10
			CASE 29, 30
				RETURNF 11
		ENDSELECT
ENDSELECT
[SKIPEND]

@TIMEZONE_MOVE
#DIMS �ړ��O
#DIMS �ړ���
FOR LOCAL,1,CHARANUM
	SIF RAND:3 > 0
		CONTINUE
	SIF �o�����(LOCAL) != 1
		CONTINUE
	SIF !CHARA_HOLIDAY(LOCAL)
		CONTINUE
	SIF CFLAG:LOCAL:������
		CONTINUE
	SIF CFLAG:LOCAL:���s || CHK_DATENOW(CFLAG:LOCAL:�f�[�g��)
		CONTINUE
	SIF !CFLAG:LOCAL:�O�^�[���ʒu
		CONTINUE
	SIF CFLAG:LOCAL:����
		CONTINUE
	IF CFLAG:MASTER:���݈ʒu == CFLAG:LOCAL:���݈ʒu
		LOCAL:1 = RAND:5
		IF TALENT:LOCAL:���� && LOCAL:1 < 3
			CONTINUE
		ELSEIF !LOCAL:1
			CONTINUE
		ENDIF
	ENDIF
	CALL �����t���O����(LOCAL)
;	CFLAG:LOCAL:���݈ʒu = CFLAG:LOCAL:�����ʒu
;	�ړ��O = %STR:(6000 + CFLAG:LOCAL:�O�^�[���ʒu / 10)%
;	SIF CFLAG:LOCAL:�O�^�[���ʒu == SUKIMA()
;		�ړ��O = ����
;	�ړ��� = %STR:(6000 + CFLAG:LOCAL:���݈ʒu / 10)%
;	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
;		�ړ��� = ����
;	SIF CFLAG:LOCAL:�O�^�[���ʒu != CFLAG:LOCAL:���݈ʒu && (CFLAG:MASTER:���݈ʒu / 100 == CFLAG:LOCAL:�O�^�[���ʒu / 100) && !AT_HOME() && CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()
;		PRINTFORML %CALLNAME:LOCAL%�́y%�ړ��O%�z����y%�ړ���%�z�Ɉړ�����
NEXT
;�L�����𓮂������̂�TARGET�Đݒ�
;CALL TARGETSET_CHACK

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用色々改良パッチ/ERB/日時天候管理.ERB


code:
��eraTW4.611�p�F�X���ǃp�b�`
��ҁFholy

�����ƌ����������̃p�b�`�Ƃ̏d�Ȃ�͂Ȃ������ł������͈͂��L���̂Ńp�b�`�̕��p�͂��C������
�F�X�C���p�b�`�Ɩ��O������킵���ł��ˁc

���������~�߈ړ�
OPTION�̎������~�ߎU����g�����ċ��_���ł̈ړ��ɂ��Ή����܂���
�������s�@�N�����͔������Ȃ��ȈՓI�Ȃ��̂ł�
USERCOM���烏���{�^���Ő؂�ւ����܂�
[�ړ�]�̕����������͓K�����ł��i���s���͔������܂���j
���Ȃ݂ɋ��_���ƊO�o��ł͌ʂɐݒ肳��܂�

���łɎ������~�ߎU���TSP���}�C�i�X�ɂł����̂��C��

���L�����ړ�����
TCVAR:�Ȃ�ׂ������Ȃ���ݒ�
���݂�
�E�O��ړ������L����
�E40���ȏ�̍s��������TARGET
�ɔ������A���̃^�[���݈̂ړ����܂���
�O�҂́u�`�ֈړ������v�L������ǂ���������ʂ̒n�_�i���̒n�_�j�ɂ��錻�ۂ�
��҂͗����i�y�H�ȊO�j�������L�������ړ����Ĉꏏ�ɐH�ׂ��Ȃ����ۂ���ɉ������܂�
���������V�󓙂̋����ړ����������Ă���ꍇ�����܂�

���łɃ������[���̘A��o���������Ȃ񂩂������������̂��C��

�������̏�
ROOMSETTING�Ɍ����̏��ݒ�
�����̏�ł͐l�̋C�z�����艟���|����Ȃ��Ȃ�܂��i��ɐl���̓X�j
�s�]�Ȃ�Ȃ��Ă����ł�
�Ƃ肠�����l�Ԃ̗��i�e�X�܁j�A���@�̐X�i�������j�A�n��i����j�ɐݒ肵�܂��������ɂ��������炨�肢���܂�

���h���R�}���h
�O��̃R�}���h�ɔh���R�}���h���\�������悤��
�R�}���h�Ɏ��s�����ꍇ�A�h�����Ȃ��悤��
�f�R����[�������ƃL�X���邪�h�����Ȃ��悤��

���Q�͎�Ɍ���p�ł�
�h���R�}���h�͌��㑤�̌��ʑ���𖳎�����̂Łc
�܂��A���ׂ̈�TFLAG:�O��R�}���h���ʂ𑝐݂��܂���
���ł�TFLAG.csv�ɍڂ��ĂȂ������t���O��ǋL

��USERCOM�t�B���^
���₷������
�������~�߈ړ����ז��Ȃ�����܂�

���ȉ��A�ׂ������ǁE�C��
���o�փL��������ƂɂȂ�Ȃ��悤��
���o��L�����ݒ��ʂŌ���̂���L�����Ƀ}�[�N��ݒ�
�����������[�^�[�𗿗�������A�ēx������悤��
������ɂ��COM���۔���t���O�����Z�b�g����Ȃ������̂��C��
��[����]�̔������N���b�N�łł���悤�ɉ���
��[�ނ������]�̑ҋ@���o���C��
��[�Ǐ�]��ASK���g���Č��₷�����L�����Z���ł���悤��
�����ꏊ�@�m�i��`���ƂƘb���j��MAP�Z�l�͂ق�̂�F��t���ė��K�҂𔻕ʂ��₷��
�����^�[��MASTER�̓��s��Ԃ��`�F�b�N����悤�Ɂi���s�l���̊֐���ݒ�j
��RECOVER�ɂ��񕜕\����100�����Ȃ�ȗ�����悤��
��TARGET���O��ƈႤ�̏ꍇ�A�����R�}���h�ł��A�����s���������Ȃ��悤��
����J�i����j�̕ω��ɉ����ă��b�Z�[�W��\������悤��

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用色々改良パッチ/readme.txt


code:
Rename.CSV�𐮔�
�L�����̖��O�Ŕԍ���u���ł���݂���
�g�p��
IF TALENT:[[�얲]]:���� == 1
�Ə�����
IF TALENT:1:���� == 1
�Ɠ����ɂȂ�

ROOMSETTING_9
�ꏊ_���C���牷������O
���_�n��C���p�b�`�ɓ���Y�ꂽ

MAP_09
�n��47���}�b�v����폜
���_�n��C���p�b�`�ŏ����Y�ꂽ

��ʈ˗�05_���P�ɂ�������
���_�l�����𔭐��������珜�O
�l���ł͒B���s�\�Ȃ���

COMF416 ���t����
Rename�̃e�X�g�Ƃ��Ēu��

JK�D��


code:
eraTW4.620proto�F�X�C���{��

 ERB��SHOP�֘A��BONUS2.ERB
	��		�@��UPDATE.ERB
	���C�x���g�֘A������o.ERB
	���X�e�[�^�X�v�Z�֘A��COUNTER��COUNTER_SOURCE.ERB
	���X�e�[�^�X�\���֘A��INFO.ERB
	��					��PRINT_STATE2.ERB
	������E���b�Z�[�W�֘A��EVENT_MESSAGE.ERB
						�@��EVENT_MESSAGE_COM_�Z�N�n��.ERB
						�@��EVENT_MESSAGE_�}���nCOM��EVENT_MESSAGE_���̑��}���n.ERB
												�@ ��EVENT_MESSAGE_�Ζʍ���&�w�ʍ���.ERB

244�X��>>708�̏C��(COUNTER_SOURCE.ERB
	�J�E���^�[�̂`�����p����SOURCE�ǉ��������ǋL���ꂽ�ۂɁA�ː��ӏ����Ԉ���Ă��̂�����
	���炢�����Ԑ��݃o�O�Ƃ��đ��݂������Ă����ۂ�
244�X��>>934�̏C��(PRINT_STATE2.ERB
	�����ł͍Č��o���Ȃ��������ǁA�����炭LOCALS�����������ĂȂ��̂������A�Ȃ̂ł������C��
244�X��>>946�̏C���{��(����o.ERB
	�ŏ��ɔ�������(Ver4.542)���ɁA�C�������悤�Ƃ��ďo���Ȃ������������A����Ɨ��R�����o�����̂ŏC��
	���ɒP���Ɍ����΁A���̓��ŏ��̊獇�킹���ɁA�˗��󋵂��m�F������@���ς����TARGET�������I�ɒu�������Ă�������
	���Ƃ�����C��������łɁA�������ȃC�x���g���������Ȃ��悤������Č���
245�X��>>333�C��(BONUS2.ERB
	�X�����w�E�ʂ��

�{�����̂P(UPDATE.ERB
	�L�������Z�b�g�����֐�����ӏ��ɑ��݂��Ă����̂ƁA�����炠������Q�[���J�n���ɂ��g���Ă��Ėʓ|���N�������������̂ŁA�A�b�v�f�[�g�p�ǉ��֐�����ύX���Ă݂�
�{�����̂Q(INFO.ERB
	�������̃C�^�Y���ŉ��s���Ȃ��̂ŁA�댯�����̕\�������ꍞ��ł������Ȏ��ɂȂ�̂��C��
�{�����̂R(EVENT_MESSAGE.ERB,EVENT_MESSAGE_COM_�Z�N�n��.ERB,EVENT_MESSAGE_���̑��}���n.ERB,EVENT_MESSAGE_�Ζʍ���&�w�ʍ���.ERB
	�n�̕�����ŋC�ɂȂ����Ƃ���ɁA�F�X������Č���
	���A�����悤�ȓ��e�̊֐����������݂�����Ă̂́A�ǂ��ɂ����������ǂ���������Ȃ�

�X�V���ԋ߂Ƌ��Ă����̂ŁA�o�����ɕۗ����Ă��Over�̃G���[�񍐂̏C���ƁA���̑��C�ɂȂ����_�Ɏ�����Ă݂�
���������A����֌W�A������ƂȂ�

�����āA�Ƃ��Ƃ�era�֘A��README��200�܂ōs����
���̂قƂ�ǂ�TW�Ȃ񂾂���A�O���������u�Ȃ����鎩���Ƃ��Ă͂悭�����Ă�Ȃ��Ǝv�����Ƃ�����

by������


code:
eraTW4.621�p����e���v���C�����l����C��

 �����Ƃ����Ă݂����l�̂��߂̂��ꂱ�ꄟ����֘A\����e���v����M_KOJO_KX_�����n�R�}���h.ERB
															��M_KOJO_KX_����n�R�}���h.ERB

�ƌ������ƂŁA�e���v���C���ƌl����̃o�O���o�����ȕ����̏C��
�e���v����TALENT:�����Ō��Ă����m��TCVAR:�j�Z�ɁA�A�i����������������!EXP:�`�o����TCVAR:�`�j�Z�ɕύX
�l�������́A��{�e���v���̏C���ɑ����Ă��܂����A�������̌���ł���ȊO�̕����Ɏ����ꂳ���Ă��������܂���
�����������Ă�������������ڍׂ��L���܂����A����ȊO�̌���̓e���v���̏C���Ɠ����Ȃ̂ŁA�񋓂͍T�������Ă��������܂�

era���@��ODv1.0+�C��Pv4�p���ь���Ver0.204
	�����Ȃ��̏ꍇ�̂݁A�w���ꏈ���r�����オ���݂��Ă���̂ŁA���ʂɎw�ł̏����r��������ݒ肵�Ă݂�

�A���X
	�Ǝ��̏����r���֐��̏C��

�G����
	�����r������A���ĂтɁA���|���t�F�����オ�\�������悤��
	���|���t�F���͊m���ɁA�����r������͍Đ����������̕���ŕ\���ł����̂͊m�F

�T�O��&&����&&����&&�فX&&����
	�J�E���^�[�̏����r������������

����&&����&&����&&�فX
	�t���C�v����̎�q���]�|���Ă���̂ŁA�ꎞ�I�ɕ\������Ȃ��悤��
	������������Ԃ����ǁA�ŏ�����\������ĂȂ��̂ŁA��͓���Ă܂���

���Ƃ��́A245�X��>>663�̏C��
��������́A���|���t�F���̌��㕪��ԈႦ�Ă��̂ŏC��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.621用口上テンプレ修正＆個人口上修正/README.TXT


code:
��eraTW4.621�p���яC���p�b�`
��ҁFholy

��ɃX��246��>>937�̃o�C�c�@�E�_�X�g����Ǝ��т�������o�O�̏C���ł�
�ǂ��܂Ŏd�l�ɂ��ėǂ��̂��悭������Ȃ������̂ŏ���Ɍ��߂܂���
���̃p�b�`������ꍇ�͑������v�ł������ӂ��Ă�������

�����݂̎d�l
�E�o�C�c�@�E�_�X�g���Ă�����܂łɉ�����Ă������т͈����p��
�E�؂�ւ��ł���^�C�v�̎��т́A������Ă����Έ����p��
�E��肫��^�C�v�̎��т͈����p��
�����񎞂ɃX�e�[�^�X�̃��Z�b�g��I�����Ă����݂�BASE,TALENT�ɂ͉e�����Ȃ�
�E�l���p���c�퐔�ƈ����E���فE�K�������E�L�X���̐l����������������̓��Z�b�g�����i�ʎ��l����D���x�E����̐l�����j
�E�؂�ւ��ł�����т������p������Ԃŉ�������𖞂����Ă��Ȃ��ƁA���Z�b�g���邱�Ƃ͂ł��邪�A�Ď擾����ɂ͍ēx��������𖞂����K�v������

��j
�D���x50000�˔j�{�[�i�X�y�ς���A�z�܂ł̍D���x���т����������ԂŃo�C�c�@�E�_�X�g
���ő�̗�+100�͎��Ȃ��i��������Ă���j
�@�y�ς���A�z�͎����Ă��邪�A��������Ƃ��ł���
�@�y�ς���A�z��������Ƃ�����x�D���x50000��B�����Ȃ��ƍĎ擾�͂ł��Ȃ�

���̏ꍇ�A�y�ς���A�z�؂�ւ����Ɍx�����o�܂��i���l�̎��т̓I�����W�F�ɂȂ��Ă܂��j

����
�E�뎚�C���i�D���x�`�`�l�{�[�i�X���D���x�`�`�˔j�{�[�i�X�j
�E�e���у��j���[�Ō��݂̏󋵂�\��

path: 原版+前人整合等各种readme/パッチ/eraTW4.621用実績修正パッチ/readme.txt


code:
Str
8823���󎺂ɕύX
8826�L���ǉ�

GETMAP_08
�C�z�@�m��804����811�ɕύX

MAP_08
�L���ǉ�
���֐�����

MAP_COMM_08
804��TFLAG:�}�b�v�؂�ւ� = 1�ɂȂ�悤�ɕύX

MOVEMENT_CAN_MOVE_08
�����ǉ��Ή�
���c���z�K�q�������ʂ蓹��������Ă���̂��C��
�R��������ꕔ�_�Г����ւ̓䒼�ʃ��[�g����
�ΔȂ��牏���ւ̒��ʃ��[�g����

PLACE_8
�����ǉ��ɑΉ�

ROOMSETTING_8
�����ǉ��ɑΉ�
�ꏊ_�����̏�ǉ�

SKIP_MOVE_08
�����ǉ��ɑΉ�
13,22�Ԃ����ʈ�������Ă���̂��C��(CAN_MOVE_08�Ɣ���)
���̑��S�̐���

MAP_09
7��8���}�b�v����폜

JK�D��

path: 原版+前人整合等各种readme/パッチ/eraTW4.621用拠点山頂修正パッチ/readme.txt


code:
��eraTW4.621�p���������ǉ��p�b�`

���܂�zip�̒��g�����ăs���Ɨ����̂ō��܂����B
�Ȃ����͓��{�ꂪ���ł͂���܂���̂ŕ\�����s�K�؂ȉӏ������邩������܂���B

���}�~�]�E�a���Z�b�g��L���X�P�b�g���݂����Ɏ��ۂɒ��ւ�����͂��܂���B�O���t�B�b�N���ς�邾���ł��B�������炸�B

�����C�O�z�X�g�K���ł�����Όf���̕��ɏ������߂Ȃ��悤�Ȃ̂Ńt�@�C�������グ�Ēu���܂��B

�摜�͑S�āuKaoru�v���̑f�ނ����H���č�������ł��B�f�ލ�җl�ɖ₢���킹�邱�Ƃ̂Ȃ��l�ɂ��肢���܂��B
�ȉ��A���p�K��̓]�ڂł��B
=======================================================================
http://gensoukyou.1000.tv/kiyaku.html

������Ă�������
�E���M�E�C���E���H
�E�Q�[���A���[�r�[�A�z�[���y�[�W�f�ނȂǂł̎g�p�B

������Ă͂����Ȃ�����
�E���Ɨ��p�i���l�܂ށj���̂����ɗ��ގ��ւ̗��p�i�F�X�ʓ|�Ȃ̂Łj
�E���̂܂܎��g�̐��삵���f�ނƂ��Ċۏグ
�E���ƃ\�t�g�̉����p�[�c����щ����C���X�g�E�����A�C�R���ȂǂɎg�p���邱��
=======================================================================

�얲�A�~�X�e�B�A�A���q�̊�G�͂��܂�zip���̕������̂܂܎g�p���Ă���܂��B
�摜���H�Ɏg�p�����\�t�g��krita�ł��B�t�@�C���T�C�Y��������Ƒ傫���C���c

///////////////////////////////////////////////////////////////////////////////////////////////////////

�얲�A�T�j�[�A���i�A�X�^�[�A�������A���A�~�X�e�B�A�A���ӁA�ɂƂ�A�p�`�����[�A���g�A�P��A�×t�A���q�A�����̕���������ǉ����܂��B
�����G�̕��̓{��}�[�N�ɐF���t���Ă��Ȃ��͕̂΂Ɏ��̋Z�p�s���̂ł��B�i������j

�b��I�ɓ���������ŕ����ς��悤�ɂ��Ă݂܂����B

�E�T�j�[�A���i�A�X�^�[�A���ӁA�ɂƂ�A�p�`�����[�A���g�A�P��͋G�߂��Ă̎���
�E�얲�A�������A�×t�A���q�A�����̓f�[�g����
�E���͌��݈ʒu���l���̎���
�E�~�X�e�B�A�͎d���̎���

�c���ꂼ��ߑ����ς��悤�ɐݒ肵�Ă���܂��B�~�X�e�B�A�Ƌ��q�̃X�e�[�W�ߑ��͎g�������v�����܂���ł����B�������Ƃ��l���܂����������@����Ȃ��Ȃ肷����̂Ń{�c�ɁB

�×t�Ə��q�̏Ƃ���ʏ����̓��K�l������p�������Q�l�ɂ��܂����B�ł����ʂ�@TARGET_BLUSH_EXCEPTION�g���������ǂ�������������Ȃ��c�@�Ȃ����q�̏Ƃ���ʂ�psd�ɕt���Ă��Ȃ������̂œ����̃A���X���ʗ����G����̗��p�ł��B

���܂��̂��Ƃ�͊Â���ڂ��Ƃ�񃂁[�h�z��ł��B�C���[�W�����Ă��邩������܂��񂪗ǂ���΃��l�[������Ȃ��`�ǉ�����Ȃ肵�Ďg���Ă��������B

path: 原版+前人整合等各种readme/パッチ/eraTW4.621用服装差分追加パッチ/readme.txt


code:
eraTW4.621�p��|���g���p�b�`

���������TARGET������f���������Ă���ꍇ�A��|���̂����ƃG�b�`�ɂȂ�܂��悤�ɂŕω�����f���������܂��B
���łɊ�|����M���x�֘A�̃o�O���C�����Ă��܂��B

���̃p�b�`�Ƌ����͋��炭���Ă��Ȃ��̂ł��̂܂ܓ���Ă����v�Ȃ͂��ł��B

�n�̕���X�e�[�^�X�\���������ԓ������Ȃ̂ł����Ƃ����\��������܂�����C�����Ă��������c�c�B

��A�ς�o���X���ύX�p�b�`�̐l

���l�Ȃ�ω�����ꏊ��2�Ƃ��������������Ǎ���
���ƈ������o��悤�ɂ��������ǂ��߂�˂���

path: 原版+前人整合等各种readme/パッチ/eraTW4.621用願掛け拡張パッチ/readme.txt


code:
TIME:2�ϐ��̍ו����ɑΉ����Ă��Ȃ����������̏C��
	�u�����v��TIME.txt
	�ʂ��A�Њۂ̉�b����ƁA���q�̓Y���Q����̋�TIME:2�Ŏw�肳��Ă����͈͂𓯂��͈͂ɂȂ�悤��TIME:0�ōĐݒ�

eratohoTW�T�N���G�f�B�^�p�L�[���[�h�w���v��TIME:2���Â��܂܂����ǁA���������킩��Ȃ��̂ŃX���[


code:
eraTW4.622�p ���Q�b�g�p���c�����\���p�b�`�@�쐬�� �m�E�B�X

�X�J�[�g�߂�����������A�p���c�������˂邩�ǂ���������鎞�A�܂������Ă��Ȃ��p���c���s���N�����ŕ\������邾���̃p�b�`�ł��B�p���c���D�ɂ��Ή��B
�m�[�p���̎����s���N�F�ŕ\�������̂͂킴�Ƃł��B�X�J�[�g���߂�������͂��ĂȂ������A����ȃv���~�A�����B

���̃p���c�������Ă��邩�ǂ����e�R�}���h�̐擪�ł��������m�F����Ƃ�����������ۂ����Ƃ����Ă���܂��B
�����̂ς�����I�����ۂɏ��L�m�F���ς܂���CFLAG�ɋL�^�A�Ƃ�����������Ă݂܂��������s�B�����Ă�p���c���s���N�F�ɕ\�����ꂽ�肻�̋t��������B�w��p���c��p�W���}�p���c�Ȃǂ͂��ւ���^�C�~���O���F�X���邩����ۂ��B

�����ƃX�}�[�g�Ȃ����������܂����琥��C�����΂��˂������܂��B

�E�g�p�����t���O
TFLAG:222,���̃p���c�����

path: 原版+前人整合等各种readme/パッチ/eraTW4.622用 未ゲットパンツ強調表示パッチ/れどめ.txt


code:
;�㔼�g����_�͂����s��
;�v�f����ID�ϊ��p�֐��̑��ۊm�F�p�֐�
;�ϊ��\�iID�Ɨv�f���̊֌W����ɕω����Ȃ��j�Ȃ�ݒu
;�󋵂ɂ���Ė��O���ς��悤�Ȃ͕̂s�\
@EXIST_�㔼�g����_�͂����s��_ID
#LOCALSIZE 1
#LOCALSSIZE 1

;�v�f����ID�ϊ��p�֐�
;�K�v�Ȃ�e�I�u�W�F�N�g�œ��l�ɍ쐬�̂���
@�㔼�g����_�͂����s��_ID(ARG:0, ARGS:0, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS V_NAME                  ;�쐬����ϐ���
#DIMS C_NAME, OBJ_ID_LAST + 1 ;�f�[�^�ێ�
#DIM  O_ID                    ;�Q�Ɨp
IF ARGS:0 == "RESET"
	VARSET C_NAME
	FOR O_ID, 1, OBJ_ID_LAST + 1
		C_NAME:O_ID = %GET_STR(, "�㔼�g����_�͂����s��", O_ID, "���O")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

@EXIST_�㔼�g����_�͂����s��1
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��1(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�u���W���[")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��1
ENDSELECT

@EXIST_�㔼�g����_�͂����s��2
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��2(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�T���V")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��2
ENDSELECT

@EXIST_�㔼�g����_�͂����s��3
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��3(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�X�|�[�c�u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��3
ENDSELECT

@EXIST_�㔼�g����_�͂����s��4
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��4(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�L���~�\�[��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��4
ENDSELECT

@EXIST_�㔼�g����_�͂����s��5
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��5(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�J�n�p")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��5
ENDSELECT

@EXIST_�㔼�g����_�͂����s��6
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��6(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�j�v���X�i���^�j")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��6
ENDSELECT

@EXIST_�㔼�g����_�͂����s��7
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��7(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�j�v���X�i�n�[�g�^�j")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��7
ENDSELECT

@EXIST_�㔼�g����_�͂����s��8
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��8(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�j�v���s�A�X")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��8
ENDSELECT

@EXIST_�㔼�g����_�͂����s��9
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��9(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�x���g�u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��9
ENDSELECT

@EXIST_�㔼�g����_�͂����s��10
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��10(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�s�V���c")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��10
ENDSELECT

@EXIST_�㔼�g����_�͂����s��11
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��11(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "���[�X�̃u���i���j")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��11
ENDSELECT

@EXIST_�㔼�g����_�͂����s��12
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��12(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "���[�X�̃u���i���j")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��12
ENDSELECT

@EXIST_�㔼�g����_�͂����s��13
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��13(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�Օ��̃u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��13
ENDSELECT

@EXIST_�㔼�g����_�͂����s��14
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��14(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�V�[�X���[�u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��14
ENDSELECT

@EXIST_�㔼�g����_�͂����s��15
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��15(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�g�b�v���X�u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��15
ENDSELECT

@EXIST_�㔼�g����_�͂����s��16
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��16(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�΂񂻂�����")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��16
ENDSELECT

@EXIST_�㔼�g����_�͂����s��17
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��17(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�呀�уu��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��17
ENDSELECT

@EXIST_�㔼�g����_�͂����s��18
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��18(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�G��u��")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��18
ENDSELECT

@EXIST_�㔼�g����_�͂����s��19
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��19(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�r�L�j�g�b�v")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��19
ENDSELECT

@EXIST_�㔼�g����_�͂����s��20
#LOCALSIZE 1
#LOCALSSIZE 1

@�㔼�g����_�͂����s��20(ARG, O_DATA, V_NAME)
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS O_DATA
#DIMS V_NAME
SELECTCASE O_DATA
CASE "���O"
	CALLF MAKE_STR(V_NAME, "�}�C�N���g�b�v")
CASE "��������"
	CALLF MAKE_STR(V_NAME, "�u�㔼�g�����P�v")
;�����������Ƃ̏Ɖ�p�A�㔼�g�����P��20
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4.622用カウンター脱衣関連勝手に魔改造パッチ修正版/ERB/OBJ/CLASS/CLOTHES/CLOTHES_上半身下着_はだけ不可.ERB