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

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

@EXIST_�L�������X�g1
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
@�L�������X�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, "���݂���L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "����")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g2
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "��l���ȊO�̃L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER || !CHECK_CHARA(ARG, "����")
	ELSE
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g3
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�ח����݃L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF !CHECK_CHARA(ARG, "����")
	ELSEIF CHECK_CHARA(ARG, "�ח�")
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g4
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�������ێ擾�L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "��������")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g6
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "��l���̎�݂�����L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "��݈���")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g7
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "��l���Ɏ�݂�����L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "��݈����")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g8
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "������������L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "��������")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g9
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "������������L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "��������")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g10
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����ɂ���L�������X�g")
CASE "����"
	SIF CHECK_CHARA(ARG, "����")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g11
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "��������L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "���������")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g12
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g12(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, "�D�P���L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "�D�P")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g13
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g13(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�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "�玙��")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

@EXIST_�L�������X�g14
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g14(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, "�q�����L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	SIF CHECK_CHARA(ARG, "�q����")
		CALLF MAKE_INT(V_NAME, 1)
ENDSELECT

;���������n

@EXIST_�L�������X�g31
#LOCALSIZE 1
#LOCALSSIZE 1

;�I�u�W�F�N�g�{��
@�L�������X�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, "�����ւ��\�L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
;�����ւ��邱�Ƃ��ł���
	IF ARG == MASTER
		CALLF MAKE_INT(V_NAME, 1)
	ELSEIF !CHECK_CHARA(ARG, "����") || !CHECK_CHARA(ARG, "����")
	ELSEIF FLAG:���Ԓ�~ == 1
		CALLF MAKE_INT(V_NAME, 1)
	ELSEIF ��������(ARG)
	ELSEIF CHECK_CHARA(ARG, "�ח�")
		CALLF MAKE_INT(V_NAME, 1)
	ELSEIF CHECK_CHARA(ARG, "��݈���")
	ELSEIF CHECK_CHARA(ARG, "��݈����")
		CALLF MAKE_INT(V_NAME, 1)
	ELSE
	ENDIF
ENDSELECT

@EXIST_�L�������X�g32
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "���i���͕�\�L�������X�g")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF CHECK_CHARA(ARG, "��݈���")
	ELSEIF CHECK_CHARA(ARG, "�ח�") || CHECK_CHARA(ARG, "��݈����")
		CALLF MAKE_INT(V_NAME, 1)
	ELSE
	ENDIF
ENDSELECT

@EXIST_�L�������X�g33
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "TARGET���X�g")
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����") || !CHECK_CHARA(ARG, "����")
	ELSE
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

;51�`�����i���o�[�^�C�g���̓o��L�������X�g�Ɏg�p���邱�Ƃ�
@EXIST_�L�������X�g51
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����ˈٓ`�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[����]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g52
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "���������^�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[����]], [[����]], [[������]], [[����]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g53
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "����������o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[����]], 	[[������]], [[�G����]], [[�J�i]], [[�����q]], [[�����]], [[����]], [[��`����]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
	[SKIPSTART]
	�ЂƂ肾���݂��������ł�����
	[[���e�P]]
	[SKIPEND]
ENDSELECT

@EXIST_�L�������X�g54
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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���o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[�����]], [[�G���[]], [[�H��]], [[����]], [[����]])
		CALLF MAKE_INT(V_NAME, 1)
		[SKIPSTART]
		[[�I�����W]]
		[SKIPEND]
	ENDIF
ENDSELECT

@EXIST_�L�������X�g55
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�������Y�k�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[����]], [[�H��]], [[���C�Y]], [[�A���X]], [[���L]], [[�}�C]], [[���q]], [[�_�Y]])
		CALLF MAKE_INT(V_NAME, 1)
		[SKIPSTART]
		[[�T��]]
		[SKIPEND]
	ENDIF
ENDSELECT

@EXIST_�L�������X�g56
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����g�����o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���[�~�A]], [[��d��]], [[�`���m]], [[����]], [[������]], [[�p�`�����[]], [[���]], [[���~���A]], [[�t����]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g57
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����d�X���o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���]], [[�`���m]], [[���e�B]], [[��]], [[�A���X]], [[�����[�v]], [[���i�T]], [[�����J]], [[��������]], [[�d��]], [[�H�X�q]], [[��]], [[��]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g58
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����i�鏴�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[��]], [[������]], [[�A���X]], [[���]], [[���~���A]], [[�d��]], [[�H�X�q]], [[���O��]], [[�~�X�e�B�A]], [[�d��]], [[�Ă�]], [[���]], [[�i��]], [[�P��]], [[���g]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g59
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�����ԉf�˓o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���]], [[�d��]], [[���]], [[�`���m]], [[���i�T]], [[�����J]], [[��������]], [[�~�X�e�B�A]], [[�Ă�]], [[��]], [[���f�B�X��]], [[�H��]], [[����]], [[�f�P]], [[�����[�v]], [[�����[�a]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g60
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�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, "�������_�^�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[�×t]], [[���q]], [[��]], [[�ɂƂ�]], [[��]], [[��]], [[���c]], [[�_�ގq]], [[�z�K�q]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g61
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g61(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, "�����n��a�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[��]], [[��]], [[��]], [[������]], [[�A���X]], [[�p�`�����[]], [[�ɂƂ�]], [[�L�X��]], [[���}��]], [[�p���X�B]], [[�E�V]], [[����]], [[���Ƃ�]], [[����]], [[���c]], [[������]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g62
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g62(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, "�������@�D�o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���c]], [[�i�Y�[����]], [[���P]], [[���]], [[�����T]], [[��]], [[���@]], [[�ʂ�]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g63
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g63(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��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���c]], [[�d��]], [[�H�X�q]], [[���q]], [[���P]], [[�F��]], [[�M]], [[�j����]], [[�z�s]], [[�_�q]], [[�ʂ�]], [[�}�~�]�E]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g64
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g64(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�j��o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���]], [[�`���m]], [[�킩�����P]], [[�؊�]], [[�e�T]], [[�فX]], [[����]], [[����]], [[�j����]], [[����]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g65
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g65(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��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[���c]], [[���]], [[����]], [[���]], [[�h���~�[]], [[�T�O��]], [[�N���E���s�[�X]], [[����]], [[Ͷ�è�]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

@EXIST_�L�������X�g66
#LOCALSIZE 1
#LOCALSSIZE 1

@�L�������X�g66(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�����o��L����")
CASE "SHOP�\��"
	CALLF MAKE_INT(V_NAME, 1)
CASE "����"
	IF ARG == MASTER
	ELSEIF !CHECK_CHARA(ARG, "����")
	ELSEIF GROUPMATCH(ARG, [[�얲]], [[������]], [[��]], [[�`���m]], [[�����o]], [[�l���m]], [[�����[�v]], [[������]], [[����]], [[���T]], [[��]], [[�B���]])
		CALLF MAKE_INT(V_NAME, 1)
	ENDIF
ENDSELECT

repo_name: akadiya/eratw

license: unknown


code:
;FileName_SHOP.ERB -------------------------------- Rev1.00
;�N���O���j���[��ʕ\��
;CALL		SYSTEM
;ARG		VOID
;RETURN		VOID
;COMMENT
;----------------------------------------------------------
@SHOW_SHOP
;�N���O��ʕ\�����t���O
TFLAG:100 = 0
;---------------------
;�N�����Ԏ����␳�A�Œᐇ�����Ԃ�4����
LOCAL:1 = CFLAG:MASTER:�A�Q���� - DAY * 1440
IF (TIME:3 >= LOCAL:1 && (TIME:3 - LOCAL:1) < 240) || (TIME:3 < 240 && (1440 + TIME:3 - LOCAL:1) < 240)
	PRINTL �������Ԃ��Z�����܂��B�Œ�ł�4���Ԉȏ�Q��K�v������܂�
	TIME:3 = ((LOCAL:1 / 60) + 4) * 60
	SIF (LOCAL:1 % 60)
		TIME:3 += 60
	SIF TIME:3 >= 1440
		TIME:3 -= 1440
	PRINTFORMW �N�����Ԃ��i%�����\��(TIME:3)%�j�ɐݒ肵�܂���
ENDIF
;---------------------
DRAWLINE
PRINTFORML {DAY}����(%GET_DAY()%)�@������:\\%TOSTR(MONEY,"#,###")%
PRINTL

CALL BASE_BAR(MASTER, "�̗�", 28, "��")
PRINTFORM �@�@
CALL BASE_BAR(MASTER, "�C��", 28, "��", "�u���s�v")
CALL BASE_BAR(MASTER, "TSP", 28, "���F")
PRINTFORM �@�@
SIF TALENT:MASTER:2 & 2
	CALL BASE_BAR(MASTER, "����", 28, "��")
PRINTFORML

;PRINT �̗�
;CALL PRINT_COLORBAR, BASE:MASTER:0,MAXBASE:MASTER:0,28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("��"), RESULT:1
;PRINTFORML  ({BASE:MASTER:�̗�,5}/{MAXBASE:MASTER:�̗�,5})
;PRINT �C��
;CALL PRINT_COLORBAR, BASE:MASTER:1,MAXBASE:MASTER:1,28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("��"), RESULT:1
;PRINTFORML  ({BASE:MASTER:1,5}/{MAXBASE:MASTER:1,5})

PRINTFORM ����ʒu�F%GET_MAPNAME(MAIN_MAP)%
IF FLAG:�C�⒆�f
	PRINTFORML �C�⒆
ELSE
	PRINTFORML
ENDIF
PRINTFORML �N�����ԁF%�����\��(TIME:3)%
PRINTFORML
CALL TW_TIPS
PRINTFORML

SETCOLOR 103,228,126
PRINTL �y���C�����j���[�z
RESETCOLOR
PRINTLC [100] - �ڂ��o�܂�
PRINTLC [102] - �Z���ݒ�
SIF CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()
	PRINTLC [110] - ��������z��
PRINTL
PRINTL

PRINTLC [101] - �\�͕\��
PRINTLC [103] - �X�L�}�ʐM�̔�
PRINTL
PRINTLC [105] - ���щ���
SIF FLAG:700
	PRINTLC [106] - �R���N�V����
PRINTL
PRINTL

SETCOLOR 103,228,126
PRINTL �y�V�X�e�����j���[�z
RESETCOLOR
PRINTLC [107] - �˗����Z�b�g
PRINTLC [700] - �ߑ����Z�b�g
PRINTL
PRINTLC [400] - OPTION

SIF SAVESTR:�{�̃o�[�W���� != eraTW_Version
	SETCOLOR C_RED
PRINTLC [500] - UPDATE
RESETCOLOR
PRINTLC [501] - MUSICROOM

PRINTL
PRINTL

PRINTLC [200] - SAVE
PRINTLC [300] - LOAD
PRINTL

SIF MONEY:2
	PRINTFORML [600] - �J���X�}���p

DRAWLINE

;FileName_SHOP.ERB -------------------------------- Rev1.00
;�N���O���j���[RESULT����
;CALL		SYSTEM
;ARG		VOID
;RETURN		VOID
;COMMENT
;----------------------------------------------------------
@USERSHOP
;�N��
IF RESULT == 100
	BEGIN TRAIN
	RETURN 1
;�\�͕\��
ELSEIF RESULT == 101
	DEBUGCLEAR
	CALL SHOW_CHARA_LIST("���݂���L�������X�g", "�̗͋C��", "�u���\���v�u�����ύX�v")
;	CALL SHOW_CHARADATA
;�R���N�V����
ELSEIF RESULT == 106 && FLAG:700 && !FLAG:�C�⒆�f
	CALL SHOW_COLLECTION
;�ʐM�̔�
ELSEIF RESULT == 103 && !FLAG:�C�⒆�f
	CALL ITEM_BUY
;�ݒ�
ELSEIF RESULT == 102 && !FLAG:�C�⒆�f
	CALL SCHEDULE
ELSEIF RESULT == 105 && !FLAG:�C�⒆�f
	CALL BONUS
ELSEIF RESULT == 107 && !FLAG:�C�⒆�f
	CALL IRAI_RESET
ELSEIF RESULT == 110 && CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()&& !FLAG:�C�⒆�f
	CALL SET_MAINHOME
;SAVE
ELSEIF RESULT == 200
	SAVEGAME
;LOAD
ELSEIF RESULT == 300
	LOADGAME
;OPTION
ELSEIF RESULT == 400
	CALL OPTION
ELSEIF RESULT == 500
	CALL UPDATE
ELSEIF RESULT == 501
	CALL SHOP_MUSICROOM
ELSEIF RESULT == 600
	CALL CM_BALANCE
ELSEIF RESULT == 700
	CALL RESET_ALL_CLOTHES
ENDIF

@TW_TIPS
SETCOLOR C_YELLOW
PRINTPLAIN TIPS:
PRINTDATA
	DATAFORM ���Ԓ�~�\�͎͂g���قǐ�������B
	DATAFORM ���Ƃ���������������ΒT���������ӂȃL�����ɗ��߁B
	DATAFORM ���͎����Ŕ�������Ă��炦��B
	DATAFORM ���݂�����肢�̌��ʂɂ���Ă͈ꕔ�̔���ɕ␳��������B���������ɂ��c
	DATAFORM �Ⴊ�~��ƍ앨�̈炿�������Ȃ�B
	DATAFORM �J���X�}�͍g���ق̃J�W�m�ȂǂŎg����ʉ݁B
	DATAFORM �����ނˌ������J���X�}�����̕��������B
	DATAFORM �ꕔ�̃L�����͌ŗL�̃R�}���h�����B
	DATAFORM �퓬�\�͂⋳�{���Ⴂ�ƍD���x���オ��Â炭�Ȃ�ꍇ������B
	DATAFORM ���������̂��Ƃ͐_���݂łǂ��ɂ��Ȃ�B
	DATAFORM �l���L��ł̓����_���L���������������邱�Ƃ��ł���B
	DATAFORM �����_���L�����͔\�͂����������オ�邪��x�ƍēo�ꂵ�Ȃ��B
	DATAFORM �֗~���h���Ȃ�����f���ɏo�����S�̕������肦�B
	DATAFORM ����t�]�������Ă���L����������B���߂Â��ɂȂ肽���Ȃ�N�����������炻���B
	DATAFORM �R�}���h���\������Ȃ��H�t�B���^���������Ă���̂����B
	DATAFORM �b�㐫�������Ɨl�X�ȃR�}���h���g�p�ł��Ȃ��Ȃ邪�����|����₷���Ȃ�B
	DATAFORM �L�����̎d���͎�`���̂ɏ������������肻��������`���Ȃ����̂�����B
	DATAFORM �����ɂ͐H�ނ��K�v�B
	DATAFORM �𒎂̕r�ɐ�������Ǝ����ł���B
	DATAFORM ���[�^�[�͉ƒ�؉��ō���B
	DATAFORM �J�W�m�ł�������V�ԂƉ�������N���オ��B
	DATAFORM ��������͓����x���̉��y�E�s������ɏ�������ʂ����B�������L�����ɂ͐g�̂��璇�ǂ��Ȃ�̂���B
	DATAFORM �R���N�V�����̃X�L�}�Ȃǂ͌����̓��t���ς��ƕ�[�����B���������������̂ŐϋɓI�Ɏg�����B
	DATAFORM ��������𖞂����Ȃ��Ɠ���Ȃ��ꏊ������B
	DATAFORM �׋���P���͒N���ƈꏏ�ɂ�������������I�B
ENDDATA
PRINTFORML