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

;�v�f����ID�ϊ��p�֐�
;�K�v�Ȃ�e�I�u�W�F�N�g�œ��l�ɍ쐬�̂���
@�ߑ��Z�b�g_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(, "�ߑ��Z�b�g", O_ID, "���O")%
	NEXT
ELSE
	O_ID = FINDELEMENT(C_NAME, ESCAPE(ARGS:0), , , 1)
	CALLF MAKE_INT(V_NAME, O_ID)
ENDIF

;���ۊ֐�
;F�֐���TRYCALL�n���g���Ȃ��̂Œʏ�֐��ő��۔z���������Ⴄ
@EXIST_�ߑ��Z�b�g1
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
@�ߑ��Z�b�g1(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���Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�Y�{��"))
CASE "�㔼�g�����P"
;�����̓T���V������
	IF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
	ELSE
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�s�V���c"))
	ENDIF
CASE "�㔼�g�㒅�P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�P", "�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g2
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g2(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�X�J�[�g"))
CASE "�㔼�g�����P"
;�j�̖��̓u���W���[��t���Ȃ�
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�u���E�X"))
ENDSELECT

@EXIST_�ߑ��Z�b�g3
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g3(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�㔼�g�����P"
;�j�̖��̓u���W���[��t���Ȃ�
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�㔼�g�㒅�P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�P", "�V���c"))
CASE "�㔼�g�����P"
;�j�̖��̓u���W���[��t���Ȃ�
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�����g�����Q"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����Q", "�g�����N�X"))
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�W���P�b�g"))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�l�N�^�C"))
CASE "���̑��Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��Q", "�V�����_�[�o�b�O"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�X���b�N�X"))
CASE "�r������"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�r������", "�V���N�O���[�u"))
ENDSELECT

@EXIST_�ߑ��Z�b�g4
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g4(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "������"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "����"))
CASE "�㔼�g�����P"
;�j�̖��̓u���W���[��t���Ȃ�
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "���B��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g5
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g5(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, "�_���Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "���"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "��"))
CASE "�㔼�g�����P"
;�����̓T���V������
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "������"))
ENDSELECT

@EXIST_�ߑ��Z�b�g6
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g6(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, "�얱�߃Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "���"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
CASE "�㔼�g�����P"
;�����̓T���V������
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
CASE "�㔼�g�㒅�P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�P", "�얱�߁i��j"))
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "��ʂ���"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�얱�߁i���j"))
ENDSELECT

@EXIST_�ߑ��Z�b�g7
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g7(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, "�������Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "���"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
CASE "�㔼�g�����P"
;�����̓T���V������
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "����"))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "��"))
CASE "�O��"
	SIF DAY:2 == 3 || DAY:2 == 4
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�H�D"))
ENDSELECT

@EXIST_�ߑ��Z�b�g8
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g8(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "����"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
CASE "�㔼�g�����P"
	;�j��
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
CASE "�����g�����P"
	;�I�g�R
	SIF !GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����P", "��"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "����"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g9
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g9(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�u�[�c"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�㔼�g�����Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����Q", "�J���[�V���c"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "����"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "��"))
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�P�[�v�}���g"))
ENDSELECT

@EXIST_�ߑ��Z�b�g10
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g10(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, "���w���Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�u�[�c"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�����g�����P"
	SIF !GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����P", "��"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "����"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�s����"))
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "���{��"))
ENDSELECT

;MOB�ǉ�
@EXIST_�ߑ��Z�b�g11
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g11(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, "�����Z�b�g")
CASE "��{�ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)

;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "����"))
CASE "�㔼�g�����P"
;�j�̖��̓u���W���[��t���Ȃ�
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
ENDSELECT

;------------------------------------
;�p�W���}
;------------------------------------
@EXIST_�ߑ��Z�b�g31
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g31(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, "�p�W���}�i�@�فj�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "�@��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g32
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g32(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, "�p�W���}�i�l�O���W�F�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�����O�l�O���W�F"))
ENDSELECT

@EXIST_�ߑ��Z�b�g33
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g33(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, "�p�W���}�i�x�r�[�h�[���j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�x�r�[�h�[��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g34
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g34(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, "�p�W���}�i�Y�{���j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�p�W���}�Y�{��"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g35
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g35(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, "�p�W���}�i�X�J�[�g�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�p�W���}�X�J�[�g"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g36
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g36(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, "�p�W���}�i�Y�{���{�t�[�h�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�t�[�h"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�p�W���}�Y�{��"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g37
#LOCALSIZE 1
#LOCALSSIZE 1
;�Ƃ肠����������������U���ĂȂ�

@�ߑ��Z�b�g37(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, "�p�W���}�i�X�J�[�g�{�t�[�h�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�t�[�h"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�p�W���}�X�J�[�g"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g38
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g38(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, "�p�W���}�i�Y�{���{�L���b�v�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�i�C�g�L���b�v"))
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�p�W���}�Y�{��"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g39
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g39(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, "�p�W���}�i�X�J�[�g�{�L���b�v�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�i�C�g�L���b�v"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�p�W���}�X�J�[�g"))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�p�W���}�㒅"))
ENDSELECT

@EXIST_�ߑ��Z�b�g40
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g40(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, "�p�W���}�i�l�O���W�F�{�L���b�v�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�i�C�g�L���b�v"))
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�����O�l�O���W�F"))
ENDSELECT

@EXIST_�ߑ��Z�b�g41
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g41(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, "�p�W���}�i�x�r�[�h�[���{�L���b�v�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�i�C�g�L���b�v"))
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�x�r�[�h�[��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g42
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g42(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, "�p�W���}�i�����s�[�X�j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�����s�[�X"))
ENDSELECT

@EXIST_�ߑ��Z�b�g43
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g43(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, "�p�W���}�i�o�X�^�I���j�Z�b�g")
CASE "�p�W���}�Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�o�X�^�I��"))
ENDSELECT

;------------------------------------
;�R�X�v���ߑ�
;------------------------------------
@EXIST_�ߑ��Z�b�g50
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g50(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�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�A�N�Z�T��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�A�N�Z�T��", "�ዾ"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�K�[�^�[�X�g�b�L���O"))
CASE "�㔼�g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "���J���^�[�g���l�b�N"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�X�J�[�g"))
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "����"))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�x���g"))
ENDSELECT

@EXIST_�ߑ��Z�b�g51
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g51(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�h����Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�z���C�g�u����"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�K�[�^�[�X�g�b�L���O"))
CASE "�㔼�g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�G�v�����h���X"))
ENDSELECT

@EXIST_�ߑ��Z�b�g52
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g52(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�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�㔼�g�����Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����Q", "�r�L�j�g�b�v"))
CASE "�����g�����Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����Q", "�r�L�j�{�g��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g53
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g53(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���r�L�j�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�㔼�g�����Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����Q", "�}�C�N���u��"))
CASE "�����g�����Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����Q", "�}�C�N���{�g��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g54
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g54(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, "�슿���Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�㔼�g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�T���V"))
CASE "�����g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����P", "��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g55
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g55(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, "�o�j�[�K�[���Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�e���w�A�[�o���h"))
CASE "�r������"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�r������", "�J�t�X"))
CASE "���I�^�[�h"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���I�^�[�h", "�o�j�[�X�[�c�i���j"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�ԃ^�C�c"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�n�C�q�[��"))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�l�N�^�C"))
ENDSELECT

@EXIST_�ߑ��Z�b�g56
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g56(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�g�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�i�[�X�L���b�v"))
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�i�[�X��"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�p���e�B�X�g�b�L���O"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�i�[�X�T���_��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g57
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g57(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���^���Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�T���^�X"))
;�Ђ�
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�Ђ�"))
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�P�[�v"))
;�㔼�g�㒅
CASE "�㔼�g�㒅�P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�P", "�㒅"))
;�~�j�X�J�[�g
CASE "�X�J�[�g"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�~�j�X�J�[�g"))
;�u���W���[
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�Y�{��"
	SIF !GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�Y�{��"))
;�����̂ς��
;CASE "�����g�����Q"
;	CALLF MAKE_INT(V_NAME, �����̂ς��(ARG))
;�C��
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
;�����O�u�[�c
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�����O�u�[�c"))
ENDSELECT

@EXIST_�ߑ��Z�b�g58
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g58(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, "�e�j�X�E�F�A�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
;�T���o�C�U�[
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�T���o�C�U�["))
;�����u���E�X
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "�����u���E�X"))
CASE "�X�J�[�g"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�~�j�X�J�[�g"))
CASE "�Y�{��"
	SIF !GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�V���[�g�Y�{��"))
;�X�|�[�c�u��
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�X�|�[�c�u��"))
;�C��
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
;�C
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
ENDSELECT

@EXIST_�ߑ��Z�b�g59
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g59(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���W���Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
CASE "�����ւ�����"
	CALLF MAKE_STR(V_NAME, "�u�R�X�v���v")
;��������ߑ��ݒ�n
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�n������"))
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "�E����"))
CASE "���I�^�[�h"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���I�^�[�h", "����q"))
CASE "�r������"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�r������", "��b"))
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "��"))
ENDSELECT

@EXIST_�ߑ��Z�b�g60
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g60(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�V���c�Z�b�g")
CASE "�R�X�v���ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
;���C�V���c�i�B��̕����B���͑S�����j
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "���C�V���c"))
ENDSELECT

;------------------------------------
;�L��������ߑ��i�O������Q�Ɖ\�j
;------------------------------------
@EXIST_�ߑ��Z�b�g70
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g70(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���X�P�b�g���Z�b�g")
CASE "�L��������ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
;�L���X�P�b�g
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�L���X�P�b�g"))
;�p���v�X
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�p���v�X"))
;�C��
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
;���C�V���c
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "���C�V���c"))
;�n�[�t�p���c
CASE "�Y�{��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�Y�{��", "�n�[�t�p���c"))
;�X�p�b�c
CASE "�����g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����g�����P", "�X�p�b�c"))
;�u���W���[
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
;�l�N�^�C
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�l�N�^�C"))
;�V�����_�[�o�b�O
CASE "���̑��Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��Q", "�V�����_�[�o�b�O"))
;�X�[�c�W���P�b�g
CASE "�O��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�X�[�c�W���P�b�g"))
ENDSELECT

@EXIST_�ߑ��Z�b�g71
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g71(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, "���ǂ�򔄂�Z�b�g")
CASE "�L��������ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�}"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "���"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
;�����̂ς��
CASE "����"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("����", "����"))
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�r������"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�r������", "��b"))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�Â�"))
CASE "���̑��Q"
;�r�̃Q�[�g�����ۂ��A���͕�тő�p
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��Q", "���"))
ENDSELECT

@EXIST_�ߑ��Z�b�g72
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g72(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, "�}�~�]�E�a���Z�b�g")
CASE "�L��������ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
;������
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "������"))
;����
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "����"))
;����
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "����"))
;�����̂ς��
CASE "�㔼�g�����P"
	SIF GETBIT(TALENT:ARG:2, 0)
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "���̑��P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��P", "�L�Z��"))
CASE "���̑��Q"
	SIF DAY:2 == 4
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("���̑��Q", "�}�t���["))
;�ዾ
CASE "�A�N�Z�T��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�A�N�Z�T��", "�ዾ"))
;�H�D
CASE "�O��"
	SIF DAY:2 == 4 || DAY:2 == 3
		CALLF MAKE_INT(V_NAME, CLOTHES_ID("�O��", "�H�D"))
;����
CASE "�㔼�g�㒅�Q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�Q", "����"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�X�J�[�g"))
ENDSELECT

@EXIST_�ߑ��Z�b�g73
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g73(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, "��������Z�b�g")
CASE "�L��������ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "�X�q"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�㔼�g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�����s�[�X"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�����s�[�X", "�`���C�i�h���X"))
ENDSELECT

@EXIST_�ߑ��Z�b�g74
#LOCALSIZE 1
#LOCALSSIZE 1

@�ߑ��Z�b�g74(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, "�Z�[���[���c�Z�b�g")
CASE "�L��������ߑ��Z�b�g"
	CALLF MAKE_INT(V_NAME, 1)
;��������ߑ��ݒ�n
CASE "�X�q"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�q", "������"))
CASE "�C"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C", "�v�C"))
CASE "�C��"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�C��", "�C��"))
CASE "�㔼�g�����P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�����P", "�u���W���["))
CASE "�㔼�g�㒅�P"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�㔼�g�㒅�P", "�Z�[���[��"))
CASE "�X�J�[�g"
	CALLF MAKE_INT(V_NAME, CLOTHES_ID("�X�J�[�g", "�X�J�[�g"))
ENDSELECT

path: 原版+前人整合等各种readme/パッチ/eraTW4.622用カウンター脱衣関連勝手に魔改造パッチ修正版/ERB/OBJ/CLASS/衣装セット.ERB


code:
@TURN_RESET
;�����r��
FOR LOCAL, 0, CHARANUM
	SIF !TCVAR:LOCAL:�j�Z
		CONTINUE
	IF TCVAR:LOCAL:�j�Z == 1
		IF TALENT:LOCAL:���� == 1
			TALENT:LOCAL:���� = 0
			EX:LOCAL:�����r���`�F�b�N = 1
		ENDIF
		IF LOCAL && (FLAG:���Ԓ�~ || TCVAR:LOCAL:�D�� || CFLAG:LOCAL:����)
			TALENT:LOCAL:���� = -1
			EX:LOCAL:�����r���`�F�b�N = 1
			CFLAG:LOCAL:292 = 1
		ENDIF
	ENDIF
	IF TCVAR:LOCAL:�j�Z == 2 && TALENT:LOCAL:���� == 2
		TALENT:LOCAL:���� = 0
		EX:LOCAL:�����r���`�F�b�N = 2
	ENDIF
	IF TCVAR:LOCAL:�j�Z == -1 && TALENT:LOCAL:���� == -1
		TALENT:LOCAL:���� = 0
		EX:LOCAL:�����r���`�F�b�N = 1
	ENDIF
NEXT

;����r��
IF TALENT:MASTER:2 & 2
	SELECTCASE SELECTCOM
		CASE 60, 61, 65, 67, 68, 320, 322
			TALENT:MASTER:1 |= 1
		CASE 62, 63, 66, 69, 70, 323
			TALENT:MASTER:1 |= 2
	ENDSELECT
ENDIF
IF TALENT:2 & 2
	SELECTCASE SELECTCOM
		CASE 64
			TALENT:1 |= 1
		CASE 92, 93, 94
			TALENT:1 |= 2
		CASE 71
			IF MASTER_POSE(SET_V, SET_P, 1)
				TALENT:1 |= 2
			ELSE
				TALENT:1 |= 1
			ENDIF
	ENDSELECT
ENDIF

;��������
IF FLAG:���Ԓ�~ == 0
	FOR LOCAL, 1, CHARANUM
		SIF CFLAG:LOCAL:���ӂ� && !TCVAR:LOCAL:���� && !TCVAR:LOCAL:�Z�� && !TCVAR:LOCAL:�D�� && !CFLAG:MASTER:�C�^�Y�� && !TCVAR:LOCAL:�����
			SETBIT CFLAG:LOCAL:�������� , 1
	NEXT
ENDIF
;�L�X����
;���ӎ擾
SIF (SELECTCOM == 312 || SELECTCOM == 602) && TFLAG:193 != 99 && !CFLAG:MASTER:�C�^�Y��
		SETBIT CFLAG:��������, 0

;��������
;���l�擾
IF SELECTCOM == 352 && TFLAG:193
	SETBIT CFLAG:��������, 2
	SETBIT CFLAG:MASTER:��������, 2
	TALENT:MASTER:���l = NO:TARGET
	TALENT:���l = NO:TARGET
	;�Z�t���폜
	IF TALENT:TARGET:�Z�t�� == 1
		TALENT:TARGET:�Z�t�� = 0
	ENDIF
ENDIF

;�H��
SIF SELECTCOM == 414 || SELECTCOM == 415
	CALL RESET_DISH

;�J�E���^�[�E�߂̎�����
FOR LOCAL, 0, CHARANUM
	IF TCVAR:LOCAL:22
		CALL DATUI_BOTTOM_LATE(PLAYER, TCVAR:LOCAL:22)
	ELSEIF TCVAR:LOCAL:23
		CALL DATUI_BOTTOM_LATE(LOCAL, TCVAR:LOCAL:23)
	ELSEIF TCVAR:LOCAL:24
		CALL DATUI_TOP_LATE(PLAYER, TCVAR:LOCAL:24)
	ELSEIF TCVAR:LOCAL:25
		CALL DATUI_TOP_T_LATE(LOCAL, TCVAR:LOCAL:25)
	ENDIF
NEXT

;����������1�^�[���ۑ�
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	TCVAR:LOCAL:110 = TCVAR:LOCAL:10
	TCVAR:LOCAL:112 = TCVAR:LOCAL:12

	SIF TCVAR:LOCAL:102
		TCVAR:LOCAL:102 --
	SIF !TCVAR:LOCAL:102
		TCVAR:LOCAL:103 = -1
	SIF TCVAR:LOCAL:104
		TCVAR:LOCAL:104 --
	SIF !TCVAR:LOCAL:104
		TCVAR:LOCAL:105 = -1
	;�̈ʂ̕ۑ�
	FOR LOCAL:1, 1, 11
		TEQUIP:LOCAL:(110 + LOCAL:1) = TEQUIP:LOCAL:(100 + LOCAL:1)
	NEXT
	;�̐�����
	IF TCVAR:LOCAL:�̐�����
		TCVAR:LOCAL:�̐����� --
		SIF TCVAR:LOCAL:�̐����� == 0
			TCVAR:LOCAL:�̐� = 0
	ENDIF
	;�ʒu�֌W����
	IF TCVAR:LOCAL:�ʒu�֌W����
		TCVAR:LOCAL:�ʒu�֌W���� --
		SIF TCVAR:LOCAL:�ʒu�֌W���� == 0
			TCVAR:LOCAL:�ʒu�֌W = 0
	ENDIF
	;���łɎː������p������ϐ��̏�����
	CSTR:LOCAL:10 = /
	CSTR:LOCAL:11 = /
	;�����t���O
	IF FLAG:���Ԓ�~ == 1
	ELSE
		CALL CLOTHES_SETTING_TRAIN(LOCAL)
	ENDIF
	IF BATHROOM(CFLAG:LOCAL:���݈ʒu) && GET_MAPID(CFLAG:LOCAL:���݈ʒu) == MAIN_MAP
		;���C�t���O��MOVEMENT���ʏ����ֈړ����܂���
;		CFLAG:LOCAL:���C = 0
		RESET_STAIN LOCAL
		CFLAG:LOCAL:�S���ː� = 0
		CFLAG:LOCAL:�A�i���ː� = 0
		CFLAG:LOCAL:���ɐ��t = 0
		CFLAG:LOCAL:��ɐ��t = 0
		CFLAG:LOCAL:��ɐ��t = 0
	ELSEIF CFLAG:LOCAL:���C > 120 && !CFLAG:LOCAL:���ӂ�
		STAIN:LOCAL:�` |= ����_�A�i��
	ENDIF
NEXT
;BASE�̕ϓ�
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	;�u�N�x
	;���Z��
	CFLAG:LOCAL:�u�N�x�Q = BASE:LOCAL:�u�N
	BASE:LOCAL:�u�N = MIN(MAXBASE:LOCAL:�u�N, BASE:LOCAL:�u�N)
	IF NOWEX:LOCAL:�ː�
		IF !MASTER_POSE(SET_V, SET_P) && !MASTER_POSE(SET_A, 1)
			BASE:LOCAL:�u�N = BASE:LOCAL:�u�N * (ABL:LOCAL:�~�] + 1) * (BASE:LOCAL:���� + 200) / ((MAXBASE:LOCAL:���� + 200) * (ABL:LOCAL:�~�] + 10))
		ELSE
			BASE:LOCAL:�u�N = 1000
		ENDIF
	ENDIF
NEXT

SIF CFLAG:MASTER:���ӂ�
	CALL ���ӂӒ�����C�x���g

;�t���O�̃��Z�b�g
TFLAG:192 = 0
TFLAG:193 = 0
TFLAG:194 = 0
TSTR:2 =

;TCVAR�̃��Z�b�g
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == SUKIMA()
		CONTINUE
	FOR LOCAL:1, 0, 100
		TCVAR:LOCAL:(LOCAL:1) = 0
	NEXT
;�}������
	TCVAR:LOCAL:100 = TEQUIP:LOCAL:50
	TCVAR:LOCAL:101 = TEQUIP:LOCAL:51
NEXT

TFLAG:110 = TCVAR:MASTER:��ꍇ��

;FIRSTTIME��SELECTCOM���Ԃ�����
CALLF FIRSTTIME(SELECTCOM)
FOR LOCAL, 1, CHARANUM
	SIF EXP_UP(15, LOCAL)
		CALLF FIRSTTIME("����", 0, LOCAL)
NEXT
;�ː��ӏ�
FOR LOCAL:1, 0, 60
	IF GETBIT(TFLAG:1, LOCAL:1)
		LOCALS = "�ː�"{LOCAL:1}
		CALLF FIRSTTIME(LOCALS, 0, TARGET)
	ENDIF
NEXT
PREVCOM = SELECTCOM
;�h���R�}���h�̗���
TFLAG:151 = TFLAG:50
;�O���TARGET
IF TFLAG:�O��̃R�}���h���� > 0
	TFLAG:103 = TARGET
	TFLAG:150 = ASSIPLAY
ENDIF

;�o���l��\���p
FOR LOCAL, 0, CHARANUM
	SIF CFLAG:LOCAL:�o��
		CONTINUE
	;���݈ʒu�̕ۑ�
	CFLAG:LOCAL:�O�^�[���ʒu = CFLAG:LOCAL:���݈ʒu
	FOR LOCAL:1, 0, 100
		TCVAR:LOCAL:(400 + LOCAL:1) = EXP:LOCAL:(LOCAL:1)
	NEXT
NEXT
IF BATHCHECK(CFLAG:MASTER:���݈ʒu) && !FLAG:���Ԓ�~ && AT_HOME(MASTER)
	FOR LOCAL,1,CHARANUM
		SIF ���C�ǂ��o������(LOCAL) && CFLAG:LOCAL:���݈ʒu == CFLAG:MASTER:���݈ʒu
			CALL ���C����ǂ��o��(LOCAL)
	NEXT
ENDIF
;TFLAG�̃��Z�b�g
VARSET TFLAG, 0, 0, 100
TFLAG:400 = 0
TFLAG:�ړ��s�\���b�Z�[�W = 0
;�����ƋC�͂��������Ă���
IF !CFLAG:MASTER:����
	IF NEMUKE() >= 960
		BASE:MASTER:�̗� = MAX(BASE:MASTER:�̗� - 5 * TIME_PROGRESS(TIME:1) , 0)
		BASE:MASTER:�C�� = MAX(BASE:MASTER:�C�� - 10 * TIME_PROGRESS(TIME:1) , 0)
	ELSEIF NEMUKE() >= 840
		BASE:MASTER:�C�� = MAX(BASE:MASTER:�C�� - 2 * TIME_PROGRESS(TIME:1) , 0)
	ENDIF
ENDIF

@���ӂӒ�����C�x���g
#DIM �D�哱���m��
;���Ȃ��哱
IF CFLAG:TARGET:���ӂ� == 1 && CFLAG:���܂��Ă�x > 300
;�U��t�]
	IF SHIRAHU(TARGET) && TEQUIP:TARGET:�̈� == 3
		;���C�ȂقǊm�������������������
		;1/�m��
		�D�哱���m�� = 15
		�D�哱���m�� -= TALENT:TARGET:�x�� * 2
		�D�哱���m�� -= TALENT:TARGET:���� * 2
		�D�哱���m�� -= TALENT:TARGET:�v���C�h * 2
		�D�哱���m�� += TALENT:TARGET:�����S * 3
		�D�哱���m�� -= TALENT:TARGET:���I���� * 3
		�D�哱���m�� += TALENT:TARGET:㵒p�S * 2
		�D�哱���m�� -= TALENT:TARGET:�T�h * 5
		�D�哱���m�� += TALENT:TARGET:�}�] * 5

		;RAND�ɓn���̂ōŒ�l��1
		SIF �D�哱���m�� < 1
			�D�哱���m�� = 1
		IF !RAND(�D�哱���m��)
			CFLAG:MASTER:���ӂ� = 2
			TFLAG:COMABLE�Ǘ� = 3
			FOR LOCAL,1,CHARANUM
				IF CFLAG:MASTER:���݈ʒu == CFLAG:LOCAL:���݈ʒu
					CFLAG:LOCAL:���ӂ� = 2
					LOCAL:1 ++
				ENDIF
			NEXT
			PRINTFORML �C���t���ƁA%CALLNAME:TARGET%\@ LOCAL:1 > 1 ? �B #  \@�Ɏ哱����D���Ă���
		ENDIF
	ENDIF
;����哱
ELSEIF CFLAG:TARGET:���ӂ� == 2
	IF BASE:�C�� <= 0
		PRINTFORML %CALLNAME:TARGET%�͂�����Ɣ�ꂽ�ƌ�����%CALLNAME:MASTER%���������
		CALL �����|����I��("��ꂽ")
	ELSEIF CFLAG:���܂��Ă�x <= 0 && !TCVAR:TARGET:�D���ɂ���
		PRINTFORML %CALLNAME:TARGET%�͖��������悤��
		CALL KIGEN_CHANGE(TARGET,100,1)
		BASE:�{�� = 0
		CFLAG:�s�@�� = 0
		CALL ASK_M("�����o��",1,"�������͂܂��������ĂȂ�",1,"�����ƍU�߂�",ABL:�T�h���C >= 3)
		SELECTCASE RESULT
			CASE 0
				PRINTFORML %CALLNAME:TARGET%��%CALLNAME:MASTER%���������
				CALL �����|����I��("����")
			CASE 1
				PRINTFORML %CALLNAME:MASTER%��%CALLNAME:TARGET%�������|����
				CALL KOJO_MESSAGE_SEND("EVENT",30,TARGET,3)
				FOR LOCAL,0,CHARANUM
					CFLAG:(TARGET:LOCAL):���ӂ� = 1
					IF INROOM(CFLAG:MASTER:���݈ʒu) == 2
						CALL DATUI_SHOES(LOCAL,0)
						CALL DATUI_SHOES(MASTER,0)
					ENDIF
				NEXT
			CASE 2
				PRINTFORML %CALLNAME:TARGET%�͖ڂ��ׂ߁A����Ȃ����܂ł��Ă�����ƚ�����
				CALL KOJO_MESSAGE_SEND("EVENT",30,TARGET,4)
				TCVAR:TARGET:�D���ɂ��� = 1
		ENDSELECT
	ELSEIF OAZUKE(TARGET)
		PRINTFORML ����������H�����%CALLNAME:TARGET%�͕s���������c
		SOURCE:���� += 3000
		SOURCE:���] += 500
		SOURCE:���� -= 1500
	ENDIF
ENDIF

@���C�ǂ��o������(ARG)
#FUNCTION
SIF FLAG:70
	RETURNF 0
SIF !GETBIT(TALENT:MASTER:2,1) && HETEROSEX(MASTER,ARG)
	RETURNF 0
SIF TALENT:ARG:㵒p�S < 0 && ABL:ARG:�e�� >= 5
	RETURNF 0
SIF CFLAG:ARG:���ӂ�
	RETURNF 0
SIF CFLAG:ARG:�ԓx < 2
	RETURNF 1
SIF CFLAG:ARG:�������� < 1
	RETURNF 1
SIF !(TALENT:ARG:���� || TALENT:ARG:�Z�t��)
	RETURNF 1

RETURNF 0

@OAZUKE(ARG)
#FUNCTION
SELECTCASE TCVAR:ARG:20
	CASE 41
	;�����V
		SIF SELECTCOM != 320
			RETURNF 1
	CASE 43
	;�o�b�NV
		SIF SELECTCOM != 322
			RETURNF 1
	CASE 44
	;�o�b�NA
		SIF SELECTCOM != 323
			RETURNF 1
ENDSELECT
RETURNF 0

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.622用カウンター脱衣関連勝手に魔改造パッチ修正版/ERB/イベント関連/EVENTCOMEND2.ERB

license: unknown