code:
@LOOK_AT
#DIM ��������
#DIM ���ߏ�
#DIMS �}����
#DIMS �}����2
#DIMS �\�����e
IF TARGET
	SIF !CFLAG:���ӂ�
		PRINT --
	;�^�[�Q�b�g�̏�ԕ\�L�E�V�`���G�[�V���������H
	PRINTFORM %CALLNAME:TARGET%�̏��
	IF !FLAG:�摜�\��
		PRINTBUTTON  "[�`�`�\��]", 816
	ELSE
		PRINTBUTTON  "[�摜�\��]", 816
		SIF FLAG:AA�\��
			PRINTBUTTON  "[�\���ݒ�]", 3100
	ENDIF
	IF CFLAG:���ӂ�
		IF FLAG:�}�G�\��
			PRINTBUTTON  "[�A�j���\��-ON-]", 817
		ELSE
			SETCOLOR C_L_GRAY
			PRINTBUTTON  "[�A�j���\��-OFF-]", 817
			RESETCOLOR
		ENDIF
	ENDIF
	PRINTL  ---------
	;PRINTL
	PRINT �y�㔼�g�z
	IF TEQUIP:1 == 0
		PRINT  �͂���
		SIF PALAM:�~�� >= PALAMLV:3
			PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%���u���Ă���
	ELSE
		;�O���̕�����\��
		FOR ��������, 17, 6, -1
			SIF GROUPMATCH(��������, 13, 12, 11)
				CONTINUE
			�\�����e '= LOOK_AT_CLOTHNAME(TARGET, ��������)
			SIF !STRLENS(�\�����e)
				CONTINUE
			PRINTFORM %�\�����e%
			BREAK
		NEXT
		IF TEQUIP:�㔼�g�͂������ > 0
			IF TALENT:�o�X�g�T�C�Y == 2
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET,1)%�����ڂ�o�Ă���
				;PRINTFORM  �͂��؂��΂���̋������ڂ�o�Ă���
			ELSEIF TALENT:�o�X�g�T�C�Y == 1
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET,1)%���܂�яo�Ă���
				;PRINTFORM  �L���ȋ������ڂ�o�Ă���
			ELSEIF TALENT:�o�X�g�T�C�Y == 0
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET,1)%���I��ɂȂ��Ă���
				;PRINTFORM  �`�̂��������I��ɂȂ��Ă���
			ELSEIF TALENT:�o�X�g�T�C�Y == -1
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET,1)%���I��ɂȂ��Ă���
				;PRINTFORM  ���U��ȋ����I��ɂȂ��Ă���
			ELSEIF TALENT:�o�X�g�T�C�Y == -2
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET,1)%���I��ɂȂ��Ă���
				;PRINTFORM  ���炵�����񂪘I��ɂȂ��Ă���
			ENDIF
			SIF EQUIP:TARGET:�{�f�B�[�X�[�c == 0 && PALAM:�~�� >= PALAMLV:5
				PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%���u���Ă���
		ELSE
			SIF EQUIP:TARGET:�{�f�B�[�X�[�c == 0 && PALAM:�~�� >= PALAMLV:5
				PRINTFORM  ���̏ォ��ł�%NIPPLE_DESCRIPTION(TARGET)%���u���Ă���̂��킩��
		ENDIF
	ENDIF
	IF TEQUIP:�j�v���L���b�v && TEQUIP:������
		PRINTFORM  �j�v���L���b�v��%NIPPLE_DESCRIPTION(TARGET)%�ɋz���t��%CALLNAME:MASTER%��%OPPAI_DESCRIPTION(TARGET)%�𝆂܂�Ă���
	ELSEIF TEQUIP:����z�� && TEQUIP:������
		IF ABL:MASTER:�� > 2
			PRINTFORM  %CALLNAME:MASTER%��%OPPAI_DESCRIPTION(TARGET)%�𝆂܂�Ȃ���%NIPPLE_DESCRIPTION(TARGET)%���r�߂��Ă���
		ELSE
			PRINTFORM  %CALLNAME:MASTER%��%OPPAI_DESCRIPTION(TARGET)%�𝆂܂�Ȃ���%NIPPLE_DESCRIPTION(TARGET)%���z���Ă���
		ENDIF
	ELSEIF TEQUIP:�j�v���L���b�v
		PRINTFORM  �j�v���L���b�v��%NIPPLE_DESCRIPTION(TARGET)%�ɋz���t���Ă���
	ELSEIF TEQUIP:����@
		PRINT  ����@��������z���グ�悤�Ƃ��Ă���
	ELSEIF TEQUIP:����z��
		IF ABL:MASTER:�� > 2
			PRINTFORM  %CALLNAME:MASTER%��%NIPPLE_DESCRIPTION(TARGET)%���r�߂��Ă���
		ELSE
			PRINTFORM  %CALLNAME:MASTER%��%NIPPLE_DESCRIPTION(TARGET)%���z���Ă���
		ENDIF
	ELSEIF TEQUIP:������
		PRINTFORM  %CALLNAME:MASTER%��%OPPAI_DESCRIPTION(TARGET)%�𝆂܂�Ă���
	ENDIF
	SIF CFLAG:���ɐ��t == 1
		PRINT  �������琸�t������Ă���
	SIF CFLAG:��ɐ��t == 1
		PRINT  ��ɐ��t���Ԃ��������Ă���
	SIF CFLAG:��ɐ��t == 1
		PRINT  �肪���t�܂݂�ɂȂ��Ă���
	PRINTL
	PRINT �y�����g�z
	;TEQUIP:�����g���ߏ� �����g���ߏ�(�r�b�g0=�X�J�[�g 1=���炵�� 2=���炵�s�� 3=���点�Ȃ������g�㒅)
	;	(�r�b�g���g�������Ȃ��l�p 0=�Ȃ� 1=�m�[�p���X�J�[�g 2=�p���e�B�̂� 3=�X�J�[�g+�p���e�B
	;	4=�X�p�b�c(����)�������̓m�[�p���Y�{�� 5=�X�J�[�g+�X�p�b�c 6=�Y�{��+�p���e�B 7=�t������(���̃o���A���g�ł͖���)�j
	;CFLAG:�p���c �p���c�t���O
	;0 �p���c�͂��Ă���
	;1 �p���c�͂��ĂȂ�

	;�����g���߂Ȃ��A�������̓p���c�͂��Ă��Ȃ�
	IF TEQUIP:�����g���ߏ� == 0 || CFLAG:�m�[�p�� > 0
	;	�����g���߂����邪�m�[�p���ł���
		IF CFLAG:�m�[�p�� && TEQUIP:�����g���ߏ� != 0
			���ߏ� = 0
	;		�㒅���㉺�Ȃ��ɂȂ��Ă��镞�𒅂Ă���ꍇ�A�����\������
	;		�Ȃ���΁A�X�J�[�g��Y�{����\������
	;		���ɋÂ������Ԃɂ��Ȃ��ĂȂ������̂Ń��[�v�𓝍�
			FOR ��������, 17, 4, -1
				SIF GROUPMATCH(��������, 15, 14, 8, 7)
					CONTINUE
				�\�����e '= LOOK_AT_CLOTHNAME(TARGET, ��������)
				SIF !STRLENS(�\�����e)
					CONTINUE
				PRINTFORM %�\�����e%
				BREAK
			NEXT
			;�p���c�͂͂��Ă��Ȃ��������Ȃ��̂ŕ\�����Ȃ�
			;PRINT  �i�p���c�͂��ĂȂ��j
			IF PREVCOM == 330
				IF PALAM:���� >= PALAMLV:5
					PRINT  �ڂ܂Ńr�V���r�V���ɔG��Ă���
				ELSEIF PALAM:���� >= PALAMLV:3
					PRINT  �p�������������ɂۂ�Ɛ��݂��o���Ă���
				ENDIF
				IF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
					PRINTFORM  ���o�����t�����Ղ��ՂƉ��𗧂ĂĈ�ꂩ�����Ă���
				ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
					PRINTFORM  ���o�����t�����ڂ�`���Đ��ꗎ���Ă���
				ENDIF
			ELSEIF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
				PRINTFORM  ���o��\@TALENT:MASTER:�Z�����t ? �Ђ̂悤�Ȑ��t�������ɎR�ɂȂ��Ă��� # ���t�������ɐ��t���܂������Ă���\@
			ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
				PRINTFORM  ���o��\@TALENT:MASTER:�Z�����t ? �Ђ̂悤�Ȑ��t�����ڂɂւ΂�t���Ă��� # ���t�����ڂ�`���Đ��ꗎ���Ă���\@
			ENDIF
		ELSEIF EQUIP:�����g�����P || EQUIP:�����g�����Q
			IF EQUIP:�����g�����Q
				�\�����e '= PANTSNAME(EQUIP:TARGET:�����g�����Q, TARGET)
				PRINTFORM %�\�����e%
				IF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
					PRINTFORM  %�\�����e%�͈�ꂩ���������t�ōő����S�ɗp���Ȃ��Ȃ�
				ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
					PRINTFORM  %�\�����e%�͐��t���z��������Ă��Ȃ�
				ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
					PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
				ELSEIF PALAM:���� >= PALAMLV:2
					PRINTFORM  %�\�����e%�������Ă���
				ENDIF
			ELSE
				�\�����e '= GET_STR(TARGET, "�����g����_���炵�s��", EQUIP:TARGET:�����g�����P, "���O")
				PRINTFORM %�\�����e%
				SELECTCASE �\�����e
				CASE "��", "�X�p�b�c"
					IF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
						PRINTFORM  %�\�����e%�͈�ꂩ���������t�ōő����S�ɗp���Ȃ��Ȃ�
					ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
						PRINTFORM  %�\�����e%�͐��t���z��������Ă��Ȃ�
					ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
						PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINTFORM  %�\�����e%�������Ă���
					ENDIF
				CASE "�O����", "�J�n�p"
					IF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
						PRINTFORM  %�\�����e%�͌����Ŕ�����A�������ɒ��蒼���ꂽ
					ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
						PRINTFORM  %�\�����e%�͂��͂�����������Ă��邾����
					ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:5
						PRINTFORM  %�\�����e%�������ꂩ�����Ă���
					ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
						PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINTFORM  %�\�����e%�������Ă���
					ENDIF
				CASE "�呀��", "���r�A�s�A�X", "�N���s�A�X"
					IF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
						IF �\�����e == "�呀��"
							PRINTFORM  %�\�����e%�͈�ꂩ���鐸�t���~�߂��Ȃ�
						ELSE
							PRINTFORM  %�\�����e%�͈�ꂩ���������t�Ō����Ȃ��Ȃ��Ă���
						ENDIF
					ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
						PRINTFORM  %�\�����e%�͈�ꂩ���������t���Ԃ牺���Ă���
					ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
						PRINTFORM  %�\�����e%�Ɏ����o���Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINTFORM  %�\�����e%�������Ă���
					ENDIF
				ENDSELECT
			ENDIF
		;�����g���߂��Ȃ�
		ELSE
			PRINT  �͂���
			SIF TEQUIP:�N���L���b�v
				PRINT  �N���L���b�v���N���g���X�ɋz���t���Ă���
			SIF TEQUIP:�I�i�z�[��
				PRINT  �y�j�X�ɃI�i�z�[�����n�����Ă���
			IF !CFLAG:���ӂ�
				IF CFLAG:TARGET:�S���ː�
					IF CFLAG:TARGET:�A�i���ː� == 1
						IF �[�U��(TARGET,1) >= 1000 || �[�U��(TARGET,2) >= 1000
							PRINT  �������琸�t�����΂��݂Ĕ�яo�Ă���
						ELSEIF �[�U��(TARGET,1) >= 100 || �[�U��(TARGET,2) >= 100
							PRINT  �������琸�t����̂悤�Ɉ��Ă���
						ELSEIF �[�U��(TARGET,1) >= 30 || �[�U��(TARGET,2) >= 30
							PRINT  �������琸�t�����Ă���
						ELSE
							PRINT  ������傩�琸�t������o�Ă���
						ENDIF
					ELSEIF EX:�����r���`�F�b�N
						PRINT  ��􂩂�j�Z��������̐��t�����ӂ�o�Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINT  ��􂩂琸�t�ƈ��t�̍����荇�����`�����ӂ�o�Ă���
					ELSE
						PRINT  ��􂩂琸�t������o�Ă���
					ENDIF
				ELSEIF CFLAG:TARGET:�A�i���ː� == 1
					PRINT  ��傩�琸�t������o�Ă���
				ELSEIF PALAM:���� >= PALAMLV:2
					IF PALAM:���� >= PALAMLV:6
						PRINTFORM  ��􂩂爤�t\@ EX:�����r���`�F�b�N? �̍��������j�Z��# \@���H���Ă���
					ELSEIF EX:�����r���`�F�b�N
						PRINT  ��􂩂�j�Z��������Ă���
					ELSEIF PALAM:���� >= PALAMLV:4
						PRINT  �����������t���`���Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINT  ��􂪈��t�Ŏ����Ă���
					ENDIF
				ENDIF
			ELSEIF PALAM:���� >= PALAMLV:2 && !(CFLAG:TARGET:�S���ː� == 1 || TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u)
				IF PALAM:���� >= PALAMLV:4
					PRINTFORM  ��􂩂爤�t\@ EX:�����r���`�F�b�N? �̍��������j�Z��# \@���H���Ă���
				ELSEIF EX:�����r���`�F�b�N
					PRINT  ��􂩂�j�Z��������Ă���
				ELSEIF PALAM:���� >= PALAMLV:3
					PRINTFORM  �����������t���`���Ă���
				ELSEIF PALAM:���� >= PALAMLV:2
					PRINTFORM  ��􂪈��t�Ŏ����Ă���
				ELSEIF TALENT:���� == 1
					PRINTFORM ���g�p�̂҂�����ƕ����������I��ɂȂ��Ă���
				ENDIF
			ENDIF
		ENDIF
		CALL LOOK_BELLY(TARGET)
	;�����g��������Ă���A���������t���Ă���
	ELSE
		���ߏ� = 0
	;	�㒅���㉺�Ȃ��ɂȂ��Ă��镞�𒅂Ă���ꍇ�A�����\������
	;	�Ȃ���΁A�X�J�[�g��Y�{����\������
	;	���ɋÂ������Ԃɂ��Ȃ��ĂȂ������̂Ń��[�v�𓝍�
		FOR ��������, 17, 4, -1
			SIF GROUPMATCH(��������, 15, 14, 8, 7)
				CONTINUE
			�\�����e '= LOOK_AT_CLOTHNAME(TARGET, ��������)
			SIF !STRLENS(�\�����e)
				CONTINUE
			PRINTFORM %�\�����e%
			BREAK
		NEXT
		IF !CFLAG:���ӂ�
			;�Ȃ񂩕�������Ă�����TEQUIP:�����g���ߏ� == 0�́��ŏ��������̂Ŏ��ɕ���
			;IF TEQUIP:�����g���ߏ� != 0
			;ENDIF
			IF PALAM:���� >= PALAMLV:5
				PRINT  �ڂ܂Ńr�V���r�V���ɔG��Ă���
			ELSEIF PALAM:���� >= PALAMLV:3
				PRINT  �p�������������ɂۂ�Ɛ��݂��o���Ă���
			ENDIF
			;���l
			IF TALENT:TARGET:100 == -5
				LOCAL = 200
			;�c���̌^�A�����̌^
			ELSEIF TALENT:TARGET:100 < 0
				LOCAL = 300
			;���g�ȏ�
			ELSEIF TALENT:TARGET:100 >= 1
				LOCAL = 500
			;���ʑ̌^
			ELSE
				LOCAL = 400
			ENDIF
			SIF EX:TARGET:�S�����t > LOCAL || EX:TARGET:�A�i�������t > LOCAL
				PRINTFORM  ���o��\@TALENT:MASTER:�Z�����t ? �Ђ̂悤�Ȑ��t�����ڂɂւ΂�t���Ă��� # ���t�����ڂ�`���Đ��ꗎ���Ă���\@
		;��������͂��ӂӒ�
		ELSEIF TEQUIP:�����g���ߏ� & 4
			IF PALAM:���� >= PALAMLV:5
				PRINT  �҉��̕������r�V���r�V���ɔG��Ă���
			ELSEIF PALAM:���� >= PALAMLV:3
				PRINT  �p�������������ɂۂ�Ɛ��݂��o���Ă���
			ENDIF
		ELSE
			PRINTFORM  ����グ���%HIP(TARGET)%���ی����ɂȂ��Ă���
			IF PALAM:���� >= PALAMLV:1 || CFLAG:TARGET:�A�i���ː� == 1 || CFLAG:TARGET:�S���ː� == 1 && !((CFLAG:TARGET:�A�i���ː� == 1 && CFLAG:TARGET:�S���ː� == 1) || TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u || TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��)
				;���ꉺ���g�����P���A���ŉ����g�����Q���i�V���Ƃǂ��Ȃ��ł�����
				;IF (EQUIP:�����g�����P || EQUIP:�����g�����Q)
				;�C�������݉��M;���Ă����ĂȂ�ł��������g�����P�����F����I����������܂���
				IF EQUIP:�����g�����Q
					�\�����e '= PANTSNAME(EQUIP:TARGET:�����g�����Q, TARGET)
					IF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
						PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
					ELSEIF PALAM:���� >= PALAMLV:2
						PRINTFORM  %�\�����e%�������Ă���
					ENDIF
				ELSE
					�\�����e '= GET_STR(TARGET, "�����g����_���炵�s��", EQUIP:TARGET:�����g�����P, "���O")
					SELECTCASE �\�����e
					CASE "��", "�X�p�b�c"
						IF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
							PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
						ELSEIF PALAM:���� >= PALAMLV:2
							PRINTFORM  %�\�����e%�������Ă���
						ENDIF
					CASE "�O����", "�J�n�p"
						IF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:5
							PRINTFORM  %�\�����e%�������ꂩ�����Ă���
						ELSEIF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
							PRINTFORM  %�\�����e%�ɐ��݂��o���Ă���
						ELSEIF PALAM:���� >= PALAMLV:2
							PRINTFORM  %�\�����e%�������Ă���
						ENDIF
					CASE "�呀��", "���r�A�s�A�X", "�N���s�A�X"
						IF CFLAG:TARGET:�S���ː� == 1 || CFLAG:TARGET:�A�i���ː� == 1 || PALAM:���� >= PALAMLV:3
							PRINTFORM  %�\�����e%�Ɏ����o���Ă���
						ELSEIF PALAM:���� >= PALAMLV:2
							PRINTFORM  %�\�����e%�������Ă���
						ENDIF
					ENDSELECT
				ENDIF
			ENDIF
			IF !EQUIP:�����g�����Q
			ELSEIF TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u || TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��
				PRINTFORM  %PANTSNAME(EQUIP:TARGET:�����g�����Q, TARGET)%�����炳��Ă���
			ELSEIF CFLAG:TARGET:�A�i���ː� == 1 && CFLAG:TARGET:�S���ː� == 1 && !(TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u || TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��)
				PRINTFORM  %PANTSNAME(EQUIP:TARGET:�����g�����Q, TARGET)%�ɑ傫�Ȑ��݂��o���Ă���
			ENDIF
			IF CFLAG:TARGET:�S���ː� == 1 && PALAM:���� >= PALAMLV:1 && !(TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u)  && (TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��)
				PRINT  ��􂩂琸�t�ƈ��t�̍����荇�����`�����ӂ�o�Ă���
			ELSEIF CFLAG:TARGET:�S���ː� == 1 && !(TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u || PALAM:���� >= PALAMLV:1) && (TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��)
				PRINT  ��􂩂琸�t������o�Ă���
			ELSEIF CFLAG:TARGET:�A�i���ː� == 1 && !(TEQUIP:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y || TEQUIP:���� || TEQUIP:�g���o���[�� || TEQUIP:�A�i���d��) && (TEQUIP:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u)
				PRINT  ��傩�琸�t������o�Ă���
			ENDIF
		ENDIF
		CALL LOOK_BELLY(TARGET)
	ENDIF

	IF (TCVAR:TARGET:V�}���Ǘ��t���O == PLAYER || TCVAR:TARGET:A�}���Ǘ��t���O == PLAYER) && TALENT:PLAYER:�`�� == 10
		PRINTL
		PRINT �}�����ꂽ�y�j�X�̌`�������ɕ����o�Ă���c
	ENDIF
	;================================
	SELECTCASE TEQUIP:TARGET:�̈�
		CASE 1
			�}���� = �����
		CASE 2
			�}���� = ��w��
		CASE 3
			�}���� = �R���
		CASE 4
			�}���� = �Ζʍ���
		CASE 5
			�}���� = �w�ʍ���
		CASE 6
			�}���� = �I�i�z�̂悤�Ȉ���
	ENDSELECT

	IF TEQUIP:TARGET:�u�Z�b�N�X == PLAYER || TEQUIP:�o�C�u
		PRINTL
		PRINT �y�S���z�@
		IF TCVAR:TARGET:V�}���Ǘ��t���O == PLAYER
			IF TCVAR:V�ɒ��o�����ꂽ�t���O
				PRINTFORM  %�}����%��\@ EX:�����r���`�F�b�N? �����S��# \@\@TALENT:MASTER:�Z�����t ?�Z���� # \@���t��{NOWEX:TARGET:�S�����t}�������܂�Ă���
			ELSEIF CFLAG:TARGET:�������� == 7
				PRINTFORM  %CALLNAME:MASTER%��%�}����%��\@ EX:�����r���`�F�b�N? �����S��# \@��t������Ă���
			ELSEIF SHIRAHU(TARGET) && TALENT:TARGET:����
				IF EX:�����r���`�F�b�N
					PRINTFORM  %CALLNAME:MASTER%��%�}����%�ŏ���������Ă���
				ELSE
					PRINTFORM  %CALLNAME:MASTER%��%�}����%�ň��������Ă���
				ENDIF
			ELSEIF CFLAG:���ӂ� == 2
				PRINTFORM  %CALLNAME:MASTER%��%�}����%��\@ EX:�����r���`�F�b�N? �����S��# \@�Ƃ���Ă���
			ELSE
				PRINTFORM  %CALLNAME:MASTER%��%�}����%��\@ EX:�����r���`�F�b�N? �����S��# \@�Ƃ���Ă���
			ENDIF
		ELSEIF TEQUIP:�o�C�u
			PRINT  �o�C�u���}������Ă���
		ENDIF
		SELECTCASE TEQUIP:�q�{
			CASE 1
 				SETCOLOR C_PINK
 					PRINT  �q�{���~��Ă���
 				RESETCOLOR
 				;���Z�b�g���Ȃ���Act_COM�s��[V]�܂Ńs���N�ɂȂ������ߒǉ�
			CASE 2
				FONTBOLD
 				SETCOLOR C_PINK
 					PRINT  �q�{���~��Ă���
 				RESETCOLOR
 				FONTREGULAR
		ENDSELECT
	ENDIF
	IF TEQUIP:TARGET:�`�Z�b�N�X == PLAYER || TEQUIP:�A�i���o�C�u || TEQUIP:�A�i���r�[�Y
		PRINTL
		PRINT �y�A�i���z
		IF TCVAR:TARGET:A�}���Ǘ��t���O == PLAYER
			IF TCVAR:A�ɒ��o�����ꂽ�t���O
				PRINTFORM  \@TALENT:MASTER:�Z�����t ?�Z���� # \@���t��{NOWEX:TARGET:�A�i�������t}�������܂�Ă���
			ELSEIF !FLAG:���Ԓ�~ && !CFLAG:���� && TALENT:TARGET:����
				PRINTFORM  %CALLNAME:MASTER%��%�}����%�ő}������Ă���
			ELSEIF CFLAG:���ӂ� == 2
				PRINTFORM  %CALLNAME:MASTER%��%�}����%�ŔƂ���Ă���
			ELSE
				PRINTFORM  %CALLNAME:MASTER%��%�}����%�ŔƂ���Ă���
			ENDIF
		ELSEIF TEQUIP:�A�i���o�C�u
			PRINT  �A�i���o�C�u���}������Ă���
		ELSEIF TEQUIP:�A�i���r�[�Y
			PRINT  �A�i���r�[�Y���}������Ă���
		ELSEIF TEQUIP:����
			PRINT  �v���O�ōǂ���Ă���
		ELSEIF TEQUIP:�g���o���[��
			PRINT  �o���[���Ŋg������Ă���
		ELSEIF TEQUIP:�A�i���d��
			PRINT  �d�ɂ��}������Ă���
		ENDIF
	ENDIF
	IF FLAG:AA�\�� && !FLAG:�摜�\��
		PRINTL �@
		CALL PRINT_AA(TARGET)
	ELSEIF FLAG:AA�\�� && FLAG:�摜�\��
		PRINTL �@
		CALL PRINT_TARGET_IMAGE(TARGET)
	ENDIF

	IF TEQUIP:PLAYER:�u�Z�b�N�X == TARGET || TEQUIP:PLAYER:�`�Z�b�N�X == TARGET
		SELECTCASE TEQUIP:MASTER:�̈�
			CASE 1
				�}����2 = ����ʂ�
			CASE 2
				�}����2 = ��w�ʂ�
			CASE 3
				�}����2 = �R��ʂ�
			CASE 4
				�}����2 = �Ζʍ��ʂ�
			CASE 5
				�}����2 = �w�ʍ��ʂ�
			CASE 6
				�}����2 = �I�i�z�̂悤�Ȉ�����
			CASEELSE
				�}����2 =
		ENDSELECT

		PRINTL
		PRINT �y�y�j�X�z
		IF TEQUIP:PLAYER:�u�Z�b�N�X == TARGET
			PRINTFORM %CALLNAME:PLAYER%���S����%�}����2%�}������Ă���
		ELSE
			PRINTFORM %CALLNAME:PLAYER%�̃A�i����%�}����2%�}������Ă���
		ENDIF
	ENDIF
ENDIF

@LOOK_AT_CLOTHNAME(C_ID, E_ID)
#FUNCTIONS
#DIM C_ID;�ΏۃL����
#DIM E_ID;�ΏۂƂȂ�EQUIP�̕���
SIF !EQUIP:C_ID:E_ID
	RETURNF
IF CSTR:C_ID:(50 + E_ID) != "" && !CFLAG:C_ID:�p�W���}
	RETURNF CSTR:C_ID:(50 + E_ID)
ELSEIF EQUIPNAME:E_ID == "�㔼�g�����P"
	RETURNF BRANAME(EQUIP:C_ID:E_ID, C_ID)
ELSEIF EQUIPNAME:E_ID == "�����g�����Q"
	RETURNF PANTSNAME(EQUIP:C_ID:E_ID, C_ID)
ELSE
	RETURNF CLOTHNAME(E_ID, EQUIP:C_ID:E_ID)
ENDIF

;�g�̕��� 1=V, 2=A, 3=VA 4= �q�{
@�[�U��(�L�����o�^�ԍ�, �g�̕���)
#FUNCTION
#DIM �L�����o�^�ԍ�
#DIM �g�̕���
#DIM ���t��
#DIM �g�̗e��

VARSET ���t��

;�Y�����ʂ̐��t�ʂ̎擾
SELECTCASE �g�̕���
	CASE 1
		���t�� = EX:�L�����o�^�ԍ�:�S�����t
	CASE 2
		���t�� = EX:�L�����o�^�ԍ�:�A�i�������t
	CASE 3
		���t�� = EX:�L�����o�^�ԍ�:�S�����t + EX:�L�����o�^�ԍ�:�A�i�������t
	CASE 4
		���t�� = EX:�L�����o�^�ԍ�:�q�{�����t
ENDSELECT

;�Y�����ʂ̗e�ʂ��擾
SELECTCASE TALENT:�L�����o�^�ԍ�:�̌^
	CASE -5
		�g�̗e�� = 300
	CASE -4 TO -2
		�g�̗e�� = 600
	CASE -1
		�g�̗e�� = 1000
	CASE 0
		�g�̗e�� = 1200
	CASE IS > 0
		�g�̗e�� = 1500
ENDSELECT

;�q�{�Ȃ�Ηe�ʔ���
IF �g�̕��� == 4
	�g�̗e�� /= 2
ENDIF
RETURNF 100 * ���t�� / �g�̗e��

;���`��
@LOOK_BELLY(ARG)
IF CFLAG:ARG:�D�P�o�ߓ��� >= 80
		PRINT  �o�Y���T���������͂͂������΂��肾
ELSEIF CFLAG:ARG:�D�P�o�ߓ��� >= 60
		PRINT  �������h���������͑傫���c���ł���
ELSEIF CFLAG:ARG:�D�P�o�ߓ��� >= 40
		PRINT  �����̖c��݂��ڗ����Ă���
ELSEIF CFLAG:ARG:�D�P�o�ߓ��� >= 30
		PRINT  �������c��݂͂��߂�
ELSEIF �[�U��(ARG,3) >= 1000
		PRINT  �ҊԂ��琸�t����̂悤�ɕ��o���Ă���
ELSEIF �[�U��(ARG,3) >= 200
		PRINT  �ٓ��ɐ��t�͎��܂�؂炸�A�Ƃ߂ǂȂ����o���Ă���
ELSEIF �[�U��(ARG,3) >= 100
		PRINT  �����͐��t�ŔD�w�̂悤�ɖc���ł���
ELSEIF �[�U��(ARG,3) >= 50
		PRINT  �����͐��t�ŏ����c���ł��܂��Ă���
ENDIF

path: 原版+前人整合等各种readme/パッチ/eraTW4.632_宴会会場修正パッチ/ERB/ステータス表示関連/Look.ERB


code:
@PRINT_STATE(�I�𒆃L����ID, �I�𒆃y�[�W�ԍ�, �������t���O)
#DIM �I�𒆃L����ID
#DIM �������t���O
#DIM REF �I�𒆃y�[�W�ԍ�
#DIM CONST �O�̃L������\�� = 4
#DIM CONST ���̃L������\�� = 6
#DIM CONST �߂�� = 5

$PRINT_LOOP
	DRAWLINEFORM ��
	PRINT ��
	PRINTS NAME:�I�𒆃L����ID
	PRINT (�D���x:
	CALL PRINT_RANK(CFLAG:�I�𒆃L����ID:2, "MAX_50000")
	PRINTFORM  {CFLAG:�I�𒆃L����ID:2} �M���x:
	CALL PRINT_RANK(CFLAG:�I�𒆃L����ID:�M���x, "MAX_20000")
	PRINTFORM  {CFLAG:�I�𒆃L����ID:�M���x})
	;MASTER�Ȃ�Ώ��������L��
	SIF �I�𒆃L����ID == MASTER
		PRINTFORM (%"������:\\" + TOSTR(MONEY,"#,###")%)
	IF NOTICE_CYCLE(�I�𒆃L����ID)
		IF �������t���O
			CALL CYCLE_PRINT(�I�𒆃L����ID)
		ELSE
			CALL CYCLE_PRINT����(�I�𒆃L����ID)
		ENDIF
		SETCOLOR C_AQUA
	ENDIF
	IF CFLAG:�I�𒆃L����ID:�q��Ē����� == 1
		PRINT �q��芮�S����
	ELSEIF CFLAG:�I�𒆃L����ID:������ == 2
		PRINT �댯�����g����
	ELSEIF CFLAG:�I�𒆃L����ID:������ == 1
		PRINT ���g����
	ELSEIF GETBIT(CFLAG:�I�𒆃L����ID:��������,1)
		PRINT ���ӎ擾
	ENDIF
	RESETCOLOR
	PRINTL �@
;*******************************************
;1�y�[�W��
;*******************************************
IF �I�𒆃y�[�W�ԍ� == 0
	PRINT �̗�
				CALL PRINT_COLORBAR, BASE:�I�𒆃L����ID:0, MAXBASE:�I�𒆃L����ID:0, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("��"), RESULT:1
				PRINTFORML  ({BASE:�I�𒆃L����ID:�̗�,5}/{MAXBASE:�I�𒆃L����ID:�̗�,5})
	PRINT �C��
				CALL PRINT_COLORBAR, BASE:�I�𒆃L����ID:1, MAXBASE:�I�𒆃L����ID:1, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("��"), RESULT:1
				PRINTFORML  ({BASE:�I�𒆃L����ID:�C��,5}/{MAXBASE:�I�𒆃L����ID:�C��,5})
	IF BASE:�I�𒆃L����ID:15
	PRINT ���C
				CALL PRINT_COLORBAR, BASE:�I�𒆃L����ID:15, MAXBASE:�I�𒆃L����ID:15, 28, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("��"), RESULT:1
				PRINTFORML  ({BASE:�I�𒆃L����ID:���C,5}/{MAXBASE:�I�𒆃L����ID:���C,5})
	ENDIF
	SELECTCASE CFLAG:�I�𒆃L����ID:���܂��Ă�x
		CASE 301 TO 500
			SETCOLOR C_YELLOW
		CASE IS >= 501
			SETCOLOR C_RED
	ENDSELECT
	SIF NOTICE_LUST(�I�𒆃L����ID)
		PRINTFORML �~���s���x�F{CFLAG:�I�𒆃L����ID:���܂��Ă�x / 10}��
	RESETCOLOR
	CALL SHOW_SIZE(�I�𒆃L����ID)
	IF !FLAG:�摜�\��
		PRINTL [99] �`�`�\��
	ELSE
		PRINTL [99] �摜�\��
	ENDIF
	IF FLAG:AA�\�� && !FLAG:�摜�\��
		CALL PRINT_AA(�I�𒆃L����ID)
	ELSEIF FLAG:AA�\�� && FLAG:�摜�\��
		CALL PRINT_STATE_IMAGE(�I�𒆃L����ID)
	ENDIF

	CALL PRINT_STATE_CLOTH(�I�𒆃L����ID)
	;����Ƃ������A�C�e�������Ǒ���2���������˂�
	IF �I�𒆃L����ID == MASTER
		PRINT ��
		CALL PRINTBUTTON_EX("����",167,TFLAG:167)
		PRINTL  ��---------------------------------------------------------------------------
		SIF !TFLAG:����\��
			CALL LIST_ITEM("�S��")
	ENDIF
	CALL PRINT_STATE_ABL(�I�𒆃L����ID)
	PRINTL
	CALL PRINT_STATE_TALENT(�I�𒆃L����ID)
	PRINTL
	IF �I�𒆃L����ID != MASTER
		PRINTL
		PRINT ��
		CALL PRINTBUTTON_EX("����",166,TFLAG:166)
		PRINTL  ��---------------------------------------------------------------------------
		;PRINT_MARK �I�𒆃L����ID
		CALL PRINT_����(�I�𒆃L����ID)
	ENDIF
;*******************************************
;2�y�[�W��
;*******************************************
ELSEIF �I�𒆃y�[�W�ԍ� == 1
	PRINTL
	CALL PRINT_STATE_EXP(�I�𒆃L����ID)
	PRINTL
	SIF �I�𒆃L����ID != MASTER && ( TALENT:�I�𒆃L����ID:�D�P || CFLAG:�I�𒆃L����ID:�q���l�� > 0)
		CALL �D�P�֘A(�I�𒆃L����ID)
	SIF �I�𒆃L����ID != MASTER && !�������t���O
		CALL PRINT_STATE_JUEL(�I�𒆃L����ID)
	SIF �������t���O
		CALL PRINT_STATE_EX(�I�𒆃L����ID)
	PRINTL
	SIF �I�𒆃L����ID
		CALL �p���c���W��(�I�𒆃L����ID)
;*******************************************
;3�y�[�W��
;*******************************************
ELSEIF �I�𒆃y�[�W�ԍ� == 2
	CALL PRINT_STATE_PERSONAL(�I�𒆃L����ID)
	CALL ���̏��(�I�𒆃L����ID)
	CALL SHOW_RELATION(�I�𒆃L����ID)
;*******************************************
;4�y�[�W��
;*******************************************
ELSEIF �I�𒆃y�[�W�ԍ� == 3
	IF !�I�𒆃L����ID
		CALL �\��
	ELSE
		CALL �ח������\��(�I�𒆃L����ID)
		CALL ���C�c����(�I�𒆃L����ID)
	ENDIF
ENDIF
IF �������t���O
	DRAWLINE
	IF �I�𒆃y�[�W�ԍ� > 0
		PRINTC [0] �O�̃y�[�W
	ELSE
		PRINTC �@
	ENDIF
	PRINTC �@
	IF �I�𒆃y�[�W�ԍ� < �ڍה\�͕\���ő�y�[�W�ԍ�
		PRINTC [1] ���̃y�[�W
	ELSE
		PRINTC �@
	ENDIF
	PRINTL
		PRINTC
		PRINTFORMC [{�߂��}] �߂�
	INPUT
	SELECTCASE RESULT
		CASE 0
		SIF �I�𒆃y�[�W�ԍ� > 0
			�I�𒆃y�[�W�ԍ� --
			GOTO PRINT_LOOP
		CASE 1
			SIF �I�𒆃y�[�W�ԍ� < �ڍה\�͕\���ő�y�[�W�ԍ�
				�I�𒆃y�[�W�ԍ� ++
				GOTO PRINT_LOOP
		CASE 160 TO 167
			TFLAG:RESULT = !TFLAG:RESULT
			GOTO PRINT_LOOP
		;���̕ӏ���������Ă�������
		CASE �O�̃L������\��
			IF !�������t���O
				�I�𒆃L����ID--
			ENDIF
			IF �I�𒆃L����ID < 0
				�I�𒆃L����ID = CHARANUM - 1
			ENDIF
			GOTO PRINT_LOOP
		CASE ���̃L������\��
			IF !�������t���O
				�I�𒆃L����ID++
			ENDIF
			IF �I�𒆃L����ID >= CHARANUM
				�I�𒆃L����ID = 0
			ENDIF
			GOTO PRINT_LOOP
		CASE �߂��
			RETURN 0
		CASE �`�`�\��
			FLAG:AA�\�� = !FLAG:AA�\��
			GOTO PRINT_LOOP
		CASEELSE
			RETURN 0
	ENDSELECT
ENDIF

@PRINT_STATE_CLOTH(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM ��������
PRINTL
PRINT ��
CALL PRINTBUTTON_EX("����", 161, TFLAG:161)
PRINTL  ��---------------------------------------------------------------------------
IF TFLAG:�����\��
	PRINTFORML
	RETURN
ENDIF
IF !EQUIP:�I�𒆃L����ID:0 && !TEQUIP:�I�𒆃L����ID:�����g���ߏ� && !TEQUIP:�I�𒆃L����ID:�㔼�g���ߏ�
	PRINTFORML ���S����
	RETURN
ENDIF
SIF CFLAG:�I�𒆃L����ID:�C�^�Y�� > 1
	PRINTFORML ����������
CALL SHOW_CLOTHES(�I�𒆃L����ID, "���݂̈ߑ�")

@PRINT_STATE_ABL(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM �\�����ڐ�
PRINT ��
CALL PRINTBUTTON_EX("�\��", 162, TFLAG:162)
PRINTL  ��---------------------------------------------------------------------------
IF !TFLAG:�\�͕\��
	�\�����ڐ� = 0
	FOR LOCAL, 0, 50
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF LOCAL > 50 && �I�𒆃L����ID != MASTER
			CONTINUE
		;�������֌W
		SIF GROUPMATCH(ABLNAME:LOCAL, "���Y���C", "���Y����") && !GETBIT(TALENT:�I�𒆃L����ID:2, 0)
			CONTINUE
		SIF GROUPMATCH(ABLNAME:LOCAL, "�z�����C", "�Q�C����") && GETBIT(TALENT:�I�𒆃L����ID:2, 0)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		IF LOCAL < 40
			CALL PRINT_RANK(ABL:�I�𒆃L����ID:LOCAL, "MAX_99")
		ELSE
			CALL PRINT_RANK(ABL:�I�𒆃L����ID:LOCAL, "MAX_6")
		ENDIF
		PRINTFORM  {ABL:�I�𒆃L����ID:LOCAL,5,LEFT}
		�\�����ڐ� ++
		SIF �\�����ڐ� % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL
PRINTL
PRINT ��
CALL PRINTBUTTON_EX("���Z",164,TFLAG:164)
PRINTL  ��---------------------------------------------------------------------------
�\�����ڐ� = 0
IF !TFLAG:164
	FOR LOCAL, 50, 60
		SIF !STRLENS(ABLNAME:LOCAL)
			CONTINUE
		SIF !(TALENT:�I�𒆃L����ID:2 & 1) && (LOCAL == 52 || LOCAL == 54)
			CONTINUE
		PRINTFORM %ABLNAME:LOCAL,12%:
		CALL PRINT_RANK(ABL:�I�𒆃L����ID:LOCAL, "MAX_6")
		PRINTFORM  {ABL:�I�𒆃L����ID:LOCAL,5,LEFT}
		�\�����ڐ� ++
		SIF �\�����ڐ� % 4 == 0
			PRINTL
	NEXT
ENDIF

@PRINT_STATE_EXP(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM �\�����ڐ�
PRINT ��
CALL PRINTBUTTON_EX("�o��",163,TFLAG:163)
PRINTL  ��---------------------------------------------------------------------------
�\�����ڐ� = 0
IF !TFLAG:�o���\��
	FOR LOCAL, 0, 100
		;EXP.CSV�ɓo�^����Ă��Ȃ����CONTINUE
		;SIF !STRLENS(EXPNAME:LOCAL)
		;	CONTINUE
		;���o����\�������Ȃ�
		SIF !EXP:�I�𒆃L����ID:LOCAL
			CONTINUE
		;�������֌W
		IF !(TALENT:�I�𒆃L����ID:2 & 1) && LOCAL == 51
			CONTINUE
		ELSEIF TALENT:�I�𒆃L����ID:2 & 1 && LOCAL == 52
			CONTINUE
		ENDIF
		PRINTFORM %EXPNAME:LOCAL,14%:{EXP:�I�𒆃L����ID:LOCAL,5,LEFT}
		�\�����ڐ� += 1
		SIF �\�����ڐ� % 4 == 0
			PRINTL
	NEXT
ENDIF
PRINTL

@PRINT_STATE_TALENT(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
PRINT ��
CALL PRINTBUTTON_EX("�f��",165,TFLAG:165)
PRINTL  ��---------------------------------------------------------------------------
IF !TFLAG:165
	LOCALS = ""
	;������300�H
	;;TALENT:200(�ėp�L����)�͕\�������Ȃ�
	FOR LOCAL, 0, 300
		IF STRLENS(GET_TALENTNAME(LOCAL, TALENT:�I�𒆃L����ID:LOCAL))
			;����
			SIF LOCAL == 1 && !(TALENT:�I�𒆃L����ID:���� & 2)
				CONTINUE
			;�j���
			IF LOCAL == 105 && (TALENT:�I�𒆃L����ID:���� == 2)
				SIF (TALENT:�I�𒆃L����ID:105 == -2) && (TALENT:�I�𒆃L����ID:���� == 2)
					CONTINUE
				SIF (TALENT:�I�𒆃L����ID:105 == 0) && (TALENT:�I�𒆃L����ID:���� == 2)
					PRINTFORM [����]
			ENDIF
			;�|���W�Z��ł鎞�����\��
			SIF LOCAL == GETNUM(TALENT, "�|���W") && !CFLAG:�I�𒆃L����ID:�_�ЍݏZ
				CONTINUE
			LOCALS += GET_TALENTNAME(LOCAL, TALENT:�I�𒆃L����ID:LOCAL)
			IF GROUPMATCH(LOCAL,0,3,73,74,75,76,77,78,122)
				SETCOLOR 255, 120, 200
				FONTBOLD
			ELSEIF LOCAL == 8
				SETCOLOR C_PINK
			ENDIF
			PRINTFORM [%GET_TALENTNAME(LOCAL,TALENT:�I�𒆃L����ID:LOCAL)%]
			RESETCOLOR
			FONTREGULAR
			IF STRLENS(LOCALS) > 50
				LOCALS = ""
				PRINTL
			ENDIF
		ENDIF
	NEXT
ENDIF

@PRINT_����(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
IF !TFLAG:166
	FOR LOCAL, 0, 6
		SIF !STRLENS(MARKNAME:LOCAL)
			CONTINUE
		PRINTFORM �@%MARKNAME:LOCAL,12%:
		IF LOCAL == 3
			SETCOLOR C_RED
			PRINTFORML %"�~" * (MARK:�I�𒆃L����ID:LOCAL)%
		ELSE
			SETCOLOR 255, 255, 0
			PRINTFORML %"��" * (MARK:�I�𒆃L����ID:LOCAL)%
		ENDIF
		RESETCOLOR
	NEXT
ELSE
	PRINTL
ENDIF

@PRINT_�A���t�@�x�b�g�]��(�I�𒆃L����ID,ARG,�\���X�e�[�^�X�ԍ�)
;ARG(1.�D���x 2.�M���x 3.���Z�y�ыZ�\ 4.���̑�ABL)
;�u�\���X�e�[�^�X�ԍ��v��ARG��3�܂���4�̂Ƃ��݂̂Ɏg�p
#DIM �I�𒆃L����ID
#DIM �\���X�e�[�^�X�ԍ�
IF ARG == 1
	IF CFLAG:�I�𒆃L����ID:2 >= 50000
		SETCOLOR C_P_PURPLE
		PRINT Ex
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 30000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 10000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 5000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 3000
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 1500
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 1000
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 500
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:�I�𒆃L����ID:2 >= 100
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 2
	IF CFLAG:�I�𒆃L����ID:�M���x >= 20000
		SETCOLOR C_P_PURPLE
		PRINT Ex
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 10000
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 3000
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 1000
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 500
		SETCOLOR C_RED
		PRINT  B
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 150
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 100
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 50
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF CFLAG:�I�𒆃L����ID:�M���x >= 10
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 3
	IF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 6
		SETCOLOR C_P_PURPLE
		PRINT Ex
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 5
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 4
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 3
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 2
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 1
		SETCOLOR C_YELLOW
		PRINT  D
	ELSE
		SETCOLOR C_GRAY
		PRINT  E
	ENDIF
	RESETCOLOR
	RETURN 0
ELSEIF ARG == 4
	IF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� == 99
		SETCOLOR C_P_PURPLE
		PRINT Ex
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 75
		SETCOLOR C_WHITE
		PRINT SS
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 50
		SETCOLOR C_WHITE
		PRINT  S
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 20
		SETCOLOR C_PINK
		PRINT  A
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 10
		SETCOLOR C_RED
		PRINT  B
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 5
		SETCOLOR C_ORANGE
		PRINT  C
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 3
		SETCOLOR C_YELLOW
		PRINT  D
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 2
		SETCOLOR C_GREEN
		PRINT  E
	ELSEIF ABL:�I�𒆃L����ID:�\���X�e�[�^�X�ԍ� >= 1
		SETCOLOR C_AQUA
		PRINT  F
	ELSE
		SETCOLOR C_GRAY
		PRINT  G
	ENDIF
	RESETCOLOR
	RETURN 0
ELSE
ENDIF

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.632_宴会会場修正パッチ/ERB/ステータス表示関連/PRINT_STATE.ERB

license: unknown


code:
@PRINT_STATE_JUEL(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM �\�����ڐ�

PRINTL
PRINTL �� ��� ��---------------------------------------------------------------------------
�\�����ڐ� = 0
FOR LOCAL, 0, 22
	;PALAM.CSV�ɖ��̂��o�^����Ă��Ȃ���CONTINUE
	SIF !STRLENS(PALAMNAME:LOCAL)
		CONTINUE
	;1000,1000000,�P�ʂŋ�؂�
	LOCALS = {JUEL:�I�𒆃L����ID:LOCAL}
	SIF JUEL:�I�𒆃L����ID:LOCAL > 1000000
		LOCALS = {JUEL:�I�𒆃L����ID:LOCAL / 1000}k
	SIF JUEL:�I�𒆃L����ID:LOCAL > 1000000000
		LOCALS = {JUEL:�I�𒆃L����ID:LOCAL / 1000000}m
	PRINTFORM %PALAMNAME:LOCAL,6%�̎�:%LOCALS,7,LEFT%
	�\�����ڐ� += 1
	;���sor�\���ʒu����
	SIF �\�����ڐ� % 4 == 0
		PRINTL
NEXT
;�ے�̎�
LOCALS = {JUEL:�I�𒆃L����ID:100}
SIF JUEL:�I�𒆃L����ID:100 > 1000000
	LOCALS = {JUEL:�I�𒆃L����ID:100 / 1000}k
PRINTFORM %PALAMNAME:100,6%�̎�:%LOCALS,7,LEFT%

@PRINT_STATE_EX(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM �\�����ڐ�

SIF EX:�I�𒆃L����ID:�b�Ⓒ + EX:�I�𒆃L����ID:�u�Ⓒ + EX:�I�𒆃L����ID:�`�Ⓒ + EX:�I�𒆃L����ID:�a�Ⓒ + EX:�I�𒆃L����ID:�l�Ⓒ + EX:�I�𒆃L����ID:���� + EX:�I�𒆃L����ID:�ː� == 0
	RETURN 0
�\�����ڐ� = 0
PRINTL
PRINTL �� �Ⓒ�� ��-----------------------------------------------------------------------
FOR LOCAL, 0, VARSIZE("EX")
	SIF !EX:�I�𒆃L����ID:LOCAL
		CONTINUE
	SIF !GROUPMATCH(EXNAME:LOCAL, "�b�Ⓒ", "�u�Ⓒ", "�`�Ⓒ", "�a�Ⓒ", "�l�Ⓒ", "����", "�ː�", "���A")
		CONTINUE
	PRINTFORM %EXNAME:LOCAL,12%:{EX:�I�𒆃L����ID:LOCAL,5,LEFT}
	�\�����ڐ� ++
	SIF �\�����ڐ� % 4 == 0
		PRINTL
NEXT

@PRINT_STATE_PERSONAL(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIMS KARADAMEATE
PRINTL
PRINTL �� �l��� ��-----------------------------------------------------------------------
PRINTL
IF �I�𒆃L����ID == MASTER
	IF CFLAG:MASTER:����
		PRINTFORML ����̏A�Q�����F%�����\��(CFLAG:MASTER:�A�Q���� - DAY * 1440)%
	ELSE
		PRINTFORML ����̏A�Q�����F%�����\��(CFLAG:MASTER:�A�Q���� + 1440 - DAY * 1440)%
	ENDIF
	PRINTFORML �N�������F%�����\��(TIME:3)%
	IF FLAG:�n��
		PRINTFORML
		CALL SHOW_NOUMIN
	ENDIF
ELSE
	PRINT �������ԑ�:
	SELECTCASE �I�𒆃L����ID
	CASE 1
		PRINTL 6�`13�� 14�`23��
	CASE 2
		PRINTL 5�`13�� 14�`24��
	CASE 3
		PRINTL 0�`10�� 17�`24��
	CASE 4
		PRINTL 0�`10�� 16�`24��
	CASE 5
		PRINTL 6�`24��
	CASE 6
		PRINTL 0�`2�� 8�`24��
	CASE 7
		PRINTL 0�`1�� 6�`13�� 14�`24��
	CASE 8
		PRINTL 0�`1�� 6�`13�� 14�`24��
	CASE 9
		PRINTL 0�`5�� 10�`13�� 14�`24��
	CASE 10
		PRINTL 0�`3�� 10�`24��
	CASEELSE
		IF CFLAG:�I�𒆃L����ID:�_�ЍݏZ || CFLAG:MASTER:���݈ʒu == OMANEKIBEYA()
			CALL �N�����ԕ\��(�I�𒆃L����ID)
		ELSE
			CALL �؍ݎ��ԕ\��(�I�𒆃L����ID)
		ENDIF
	ENDSELECT
	IF CFLAG:�I�𒆃L����ID:�悭�s���n�� >= 0
		PRINT �悭�s���n��F
		SELECTCASE CFLAG:�I�𒆃L����ID:�悭�s���n��
		CASE 0
			PRINTL ����_��
		CASE 1
			PRINTL ���@��
		CASE 2
			PRINTL �l�Ԃ̗�
		CASE 3
			PRINTL ���̌΁`�g����
		CASE 4
			PRINTL �����̒|��
		CASE 5
			PRINTL ���@�̐X
		CASE 6
			PRINTL �O�r�̐�`���E
		CASE 7
			PRINTL �d���̎R�i�R�[�j
		CASE 8
			PRINTL �d���̎R�i�R���j
		CASE 9
			PRINTL �n��
		ENDSELECT
	ENDIF
	IF CFLAG:�I�𒆃L����ID:����ʒu && !CFLAG:�I�𒆃L����ID:�_�ЍݏZ
		LOCAL = CFLAG:�I�𒆃L����ID:����ʒu / 10 + 6000
		PRINT ����ʒu�F
		PRINTFORML %STR:LOCAL%
	ELSEIF CFLAG:�I�𒆃L����ID:�_�ЍݏZ
		PRINT ����ʒu�F
		PRINTFORML %GET_MAPNAME(MAIN_MAP)%
	ENDIF
	PRINT �d�����F
	PRINTFORML %CSTR:�I�𒆃L����ID:�d�����%
	PRINT �@�E��@�F
	PRINTFORML %CSVCSTR(�I�𒆃L����ID, 2)%
ENDIF

PRINT ���o�n�D�F
IF GETBIT(CFLAG:�I�𒆃L����ID:332, 0)
	PRINTFORM ���Z������
ELSEIF GETBIT(CFLAG:�I�𒆃L����ID:332, 1)
	PRINTFORM ��������
ELSE
	PRINTFORM �����ʁ�
ENDIF
SIF GETBIT(CFLAG:�I�𒆃L����ID:332, 3)
	PRINTFORM ���h���ϐ���
SIF GETBIT(CFLAG:�I�𒆃L����ID:332, 4)
	PRINTFORM ���Ö��ϐ���
SIF GETBIT(CFLAG:�I�𒆃L����ID:332, 5)
	PRINTFORM �����T�r�ϐ���
SIF GETBIT(CFLAG:�I�𒆃L����ID:332, 6)
	PRINTFORM ���������ϐ���
PRINTL �@
PRINTL �D���Ȗ��F
CALL SHOW_TASTE(GET_STR(, "�L�����f�[�^", �I�𒆃L����ID, "�����F�D���Ȗ�"))
IF TALENT:�I�𒆃L����ID:�������o
	LOCALS = [���t]Lv{ABL:�I�𒆃L����ID:���t����*2 + 1, 2}
	;�V�X�e������6�����A�����̂�14����������肠��
	PRINTFORML �@%LOCALS, 20%
ENDIF
PRINTL �����Ȗ�:
CALL SHOW_TASTE(GET_STR(, "�L�����f�[�^", �I�𒆃L����ID, "�����F�����Ȗ�"))
PRINTL ������ʁF
CALL SHOW_TASTE(GET_TASTE_ASSIBONUS(�I�𒆃L����ID))

IF CFLAG:�I�𒆃L����ID:�D���ȑ̈�
	PRINT ��_�F
	SELECTCASE CFLAG:�I�𒆃L����ID:�D���ȑ̈�
	CASE 1
		PRINTL �����
	CASE 2
		PRINTL ��w��
	CASE 3
		PRINTL �R���
	CASE 4
		PRINTL �Ζʍ���
	CASE 5
		PRINTL �w�ʍ���
	CASE 6
		PRINTL ����ʃA�i��
	CASE 7
		PRINTL ��w�ʃA�i��
	CASE 8
		PRINTL �R��ʃA�i��
	CASE 9
		PRINTL �Ζʍ��ʃA�i��
	CASE 10
		PRINTL �w�ʍ��ʃA�i��
	ENDSELECT
	PRINTL �@
ENDIF

PRINTL �@
IF �I�𒆃L����ID == RANDOM_CHARANUM
	;����A���G�Ȏ푰����Ȃǂ͖�����
	PRINTL �� �L�����Љ� ��---------------------------------------------------------------------
	PRINTL
	PRINTFORML �`���u���`�@���푰�F�l�ԁ@���\�́F%CSTR:RANDOM_CHARANUM:15%
ELSEIF CSVCSTR(�I�𒆃L����ID, 10) != ""
	PRINTL �� �L�����Љ� ��---------------------------------------------------------------------
	PRINTL
	;�L�����Љ������̓W�J�ɂ���ĉ��ς������ꍇ�u@CHARA_INFO_KOJO_KX�v���g�p����
	TRYCALLFORM CHARA_INFO_KOJO_K{�I�𒆃L����ID}
	IF !RESULT
		FOR LOCAL,10,20
			SIF CSVCSTR(�I�𒆃L����ID, LOCAL) != ""
				PRINTFORML %CSVCSTR(�I�𒆃L����ID, LOCAL,)%
		NEXT
	ENDIF
ENDIF
IF �I�𒆃L����ID == MASTER && FLAG:�b�㐫��
	PRINTFORML �ǂ����悤���Ȃ��b�㐫�Ȃ���
	PRINTFORML
ENDIF
SETCOLOR C_YELLOW
IF CFLAG:�I�𒆃L����ID:�����p��
	SIF GETBIT (CFLAG:�I�𒆃L����ID:�����p��, 0)
		PRINTL �ȑO�̎���ŗ���ɂȂ������Ƃ�����
	SIF GETBIT (CFLAG:�I�𒆃L����ID:�����p��, 1)
		PRINTL �ȑO�̎���ŗ��l�ɂȂ������Ƃ�����
ENDIF
SETCOLOR C_PINK
IF �I�𒆃L����ID == MASTER
	IF TALENT:�I�𒆃L����ID:���l
		LOCAL:3 = 1
		FOR LOCAL:1 ,0 , CHARANUM
			IF IS_���l(LOCAL:1)
				SIF !(LOCAL:3 % 15)
					PRINTL
				LOCAL:3 ++
				PRINTFORM �m%CALLNAME:(LOCAL:1)%�n
			ENDIF
		NEXT
		PRINTL �Ɨ����ł���
	ENDIF
	IF FLAG:�s��������l��
		LOCAL:3 = 1
		FOR LOCAL, 0, FLAG:�s��������l��
			SIF !(LOCAL:3 % 15)
				PRINTL
			LOCAL:3 ++
			PRINTFORM �m%�A���̗��l:LOCAL%�n
		NEXT
		PRINTL �ƈ��̏�M�ɐg���ł�����
	ENDIF
ENDIF
SIF CFLAG:�I�𒆃L����ID:��������
	PRINTFORML �������t���������o��%CALLNAME:MASTER%�Ɨ����ɂȂ���

;���l�l���`�F�b�N
FOR LOCAL:1 ,0 , CHARANUM
	SIF IS_���l(LOCAL:1)
		LOCAL:3 ++
NEXT

IF TALENT:�I�𒆃L����ID:���l & LOCAL:3 > 50
	PRINTFORML ������%CALLNAME:MASTER%�̗��l�̈�l��
ELSEIF TALENT:�I�𒆃L����ID:���l & LOCAL:3 > 1
	PRINTFORML %CALLNAME:MASTER%�̗��l�̈�l��
ELSEIF TALENT:�I�𒆃L����ID:���l
	PRINTFORML %CALLNAME:MASTER%�̗��l��
ENDIF

SIF CFLAG:�I�𒆃L����ID:�������� & ����_�L�X
	PRINTFORML %CALLNAME:MASTER%�ɐO�������Ă���
IF CFLAG:�I�𒆃L����ID:�������� & ����_���ӂ�
	PRINTFORML %CALLNAME:MASTER%�ɑ̂������Ă���
ELSEIF CFLAG:�I�𒆃L����ID:�������������
	PRINTFORML �����ōs�ׂɋy��ł��܂������Ƃ͂��邪�A%CALLNAME:MASTER%�ɑ̂�����������͂Ȃ�
ENDIF
IF CFLAG:�I�𒆃L����ID:�q��Ē����� & TALENT:�I�𒆃L����ID:�����}��
	PRINTFORML �q��Ă���%CALLNAME:MASTER%�Ƃ�SEX��D�悷�������
ENDIF

SIF TALENT:�I�𒆃L����ID:���� && TALENT:�I�𒆃L����ID:�����}��
	PRINTFORML �ꉞ���������A���߂���ΊȒP�ɑ̂��J�����낤
IF CFLAG:�I�𒆃L����ID:�̖ړ���
	IF TALENT:�I�𒆃L����ID:�̌^ == -2
		KARADAMEATE = ���̗c��
	ELSEIF TALENT:�I�𒆃L����ID:�o�X�g�T�C�Y > 0
		KARADAMEATE = ���̖L����
	ELSEIF TALENT:�I�𒆃L����ID:���� > 0
		KARADAMEATE = �����q��Ȃ�
	ELSE
		KARADAMEATE = ���̐��X����
	ENDIF
	PRINTFORML %CALLNAME:MASTER%��%KARADAMEATE%���̂�_���Ă���
ENDIF
RESETCOLOR
IF TALENT:�I�𒆃L����ID:����
	IF TALENT:�I�𒆃L����ID:���m
		PRINTFORML %CALLNAME:�I�𒆃L����ID%��%CALLNAME:MASTER%�̂��ł���ɂȂ�Ɩ����Ɍ��߂Ă���
	ELSEIF !CFLAG:�I�𒆃L����ID:�������� & ����_���ӂ�
		IF TALENT:�I�𒆃L����ID:�呀 > 0
			PRINTFORML ���̊֌W�Ȃǂӂ�����Ȏ��ƍl���Ă���ɂ��ւ�炸�A%CALLNAME:�I�𒆃L����ID%�͐S�̉���ł�%CALLNAME:MASTER%�ƌ���肽���Ǝv���Ă���
		ELSE
			PRINTFORML %CALLNAME:MASTER%�������Ɏ�����Ȃ����Ƃɉ՗����ƕs���������Ă���
		ENDIF
	ENDIF
ENDIF

IF CFLAG:�I�𒆃L����ID:�o�����^�C��
	SELECTCASE CFLAG:�I�𒆃L����ID:�o�����^�C�� % 100
		CASE 1
			LOCALS = �u���b�N�T���_�[
		CASE 2
			LOCALS = ���ʂ̃`���R
		CASE 3
			LOCALS = �����`���R
		CASE 4
			LOCALS = ����`���R
	ENDSELECT
	PRINTFORML �o�����^�C����%LOCALS%�����ꂽ\@ CFLAG:�I�𒆃L����ID:�o�����^�C�� > 100? �i�ԗ�ρj# \@
ENDIF
@�؍ݎ��ԕ\��(�I�𒆃L����ID)
#DIM �I�𒆃L����ID

IF CFLAG:�I�𒆃L����ID:���K���� < CFLAG:�I�𒆃L����ID:�A���
	PRINTFORML {CFLAG:�I�𒆃L����ID:���K���� / 60}���`{CFLAG:�I�𒆃L����ID:�A��� / 60}��
ELSE
	PRINTFORML 0���`{CFLAG:�I�𒆃L����ID:�A��� / 60}�� {CFLAG:�I�𒆃L����ID:���K���� / 60}���`24��
ENDIF

@�N�����ԕ\��(�I�𒆃L����ID)
#DIM �I�𒆃L����ID

IF CFLAG:�I�𒆃L����ID:�N������ < CFLAG:�I�𒆃L����ID:�A�Q����
	PRINTFORML {CFLAG:�I�𒆃L����ID:�N������ / 60}���`{CFLAG:�I�𒆃L����ID:�A�Q���� / 60}��
ELSE
	PRINTFORML 0���`{CFLAG:�I�𒆃L����ID:�A�Q���� / 60}�� {CFLAG:�I�𒆃L����ID:�N������ / 60}���`24��
ENDIF

@���̏��(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
VARSET LOCALS
VARSET LOCAL
PRINTL
PRINTL �� ���̏�� ��-----------------------------------------------------------------------
PRINTL
PRINTL �y���z�@
PRINTFORM �t�@�[�X�g�L�X�����F
;IF !EXP:�I�𒆃L����ID:�L�X�o��
IF TALENT:�I�𒆃L����ID:�L�X���o��
	SELECTCASE CFLAG:�I�𒆃L����ID:�t�@�[�X�g�L�X�r���Ώ�
		CASE 0
			CALL COLORMESSAGE(@"�܂��N�ɂ��O�������Ă��Ȃ�",C_YELLOW,1)
		CASE 1
			CALL COLORMESSAGE(@"%CSTR:�I�𒆃L����ID:�t�@�[�X�g�L�X�r������%",C_PINK,1)
		CASE 2
			CALL COLORMESSAGE(@"�܂��N�ɂ��O�������Ă��Ȃ�",C_YELLOW,1)
			PRINTFORM �Ǝv���Ă��邪�A����
			CALL COLORMESSAGE(@"%CSTR:�I�𒆃L����ID:�t�@�[�X�g�L�X�r������%",C_PINK,1)
	ENDSELECT
ELSEIF CFLAG:�I�𒆃L����ID:�t�@�[�X�g�L�X�r���L�O��
	IF STRFIND(CSTR:�I�𒆃L����ID:�t�@�[�X�g�L�X�r������, "���a�q") > 0
		LOCAL = RESULT
		SPLIT CSTR:�I�𒆃L����ID:�t�@�[�X�g�L�X�r������, "���a�q", LOCALS
		CALL COLORMESSAGE(@"%LOCALS:0%",C_PINK,1)
		PRINTFORM �Ǝv���Ă��邪�A����
		CALL COLORMESSAGE(@"%LOCALS:1%",C_PINK,1)
		RESULT = LOCAL
		VARSET LOCALS
	ELSE
		CALL COLORMESSAGE(@"%CSTR:�I�𒆃L����ID:�t�@�[�X�g�L�X�r������%",C_PINK,1)
	ENDIF
ELSE
	CALL COLORMESSAGE(@"%CALLNAME:MASTER%�ɏo��O�Ɏ����Ă���",C_AQUA,1)
	;���Ǝv���񂾂��ǁc
ENDIF

SIF EXP:�I�𒆃L����ID:�L�X�o��
	PRINTFORML ���܂�{EXP:�I�𒆃L����ID:�L�X�o��}��̌��Â����o������
SIF CFLAG:�I�𒆃L����ID:�݌v����
	PRINTFORML ���܂�{CFLAG:�I�𒆃L����ID:�݌v����}�̐��t�����݊�����
IF EXP:�I�𒆃L����ID:�����o�� > 300 && ABL:�I�𒆃L����ID:���t���� >= 10
	PRINTFORML ���t�����݉��������Ŋ��S�ɔ����g�̂ɂȂ��Ă���
ELSEIF EXP:�I�𒆃L����ID:�����o�� > 150 && ABL:�I�𒆃L����ID:���t���� >= 5
	PRINTFORML ���t�𖡂키�Ɛg�̂��u���Ă��܂�
ELSEIF TALENT:�I�𒆃L����ID:�������o
	PRINTFORML ���t�̖��ɋ������ւ����Ȃ�
ELSEIF ABL:�I�𒆃L����ID:���t���� >= 3
	PRINTFORML ���t���R�Ȃ����ނ��Ƃ��o����
ENDIF
SIF GETBIT (CFLAG:�I�𒆃L����ID:�����p��, 6)
	PRINTFORML �ǂ�����Ί�����̂�%CALLNAME:MASTER%�ɒm��s������Ă���
IF �I�𒆃L����ID == MASTER
	IF ABL:�I�𒆃L����ID:�� >= 5
		PRINTFORML ��z������Z�ŏ����𗸂ɂ���
	ELSEIF ABL:�I�𒆃L����ID:�� >= 3
		PRINTFORML �I�݂Ȑ�g���ŏ������x�΂���
	ENDIF
ELSEIF EXP:�I�𒆃L����ID:�L�X�o��
	SELECTCASE ABL:�I�𒆃L����ID:�l���o
		CASE IS >= 10
			PRINTL ���x���Q�@���t������邾���Ő��~�Ɏx�z���ꂩ�˂Ȃ�
		CASE IS >= 5
			PRINTL ���x�ǍD�@���������Ƌt�炤���Ƃ��ł��Ȃ�
	ENDSELECT
ENDIF

PRINTL
PRINTL �y���z
SELECTCASE ABL:�I�𒆃L����ID:�a���o
	CASE IS >= 10
		PRINTL ���x���Q�@
	CASE IS >= 5
		PRINTL ���x�ǍD�@
ENDSELECT
IF TALENT:�I�𒆃L����ID:����
	PRINTL ���S�ɒ������������
	IF TALENT:�I�𒆃L����ID:�o�X�g�T�C�Y < 0
		PRINTL ��
	ELSE
		PRINTL ���[
	ENDIF
	PRINTFORML �́A�Ђƕ��ł��邾���ō����ӂ���قǂɂȂ��Ă���
ENDIF

SIF GETBIT (CFLAG:�I�𒆃L����ID:�����p��, 5)
	PRINTFORML �ǂ�����Ί�����̂�%CALLNAME:MASTER%�ɒm��s������Ă���
IF CFLAG:�I�𒆃L����ID:�݌v�Ԃ�����
	PRINTFORML ���܂�{CFLAG:�I�𒆃L����ID:�݌v�Ԃ�����}�̐��t�ɂ܂݂ꂽ�@
	SELECTCASE ABL:�I�𒆃L����ID:��
		CASE IS >= 5
			IF TALENT:�I�𒆃L����ID:�o�X�g�T�C�Y < 0
				PRINTFORML ���̋��́A�ő�������h�����邽�߂ɂ���
			ELSE
				PRINTFORML ���̓��[�́A�ő�����ƂȂ��Ă���
			ENDIF
		CASE IS >= 3
			IF TALENT:�I�𒆃L����ID:�o�X�g�T�C�Y < 0
				PRINTFORML ���̋��́A�j�����h������p��S���Ă���
			ELSE
				PRINTFORML ���̓��[�́A���t�������p���o������ł���
			ENDIF
	ENDSELECT
ENDIF

IF TALENT:�I�𒆃L����ID:����̎�
	;PRINTFORML \@ ABL:�I�𒆃L����ID:�������� >= 3 ? �Â݂̂���~���N�������Ղ�Ƌl�܂��Ă���# �h�����Ă��ΊÂ݂̂���~���N�����݂������낤\@
	PRINTFORML �h�����Ă��ΊÂ݂̂���~���N�����݂������낤
ENDIF
PRINTL

PRINTL �y�w�z
SELECTCASE ABL:�I�𒆃L����ID:�w
	CASE IS >= 5
		PRINT ����@
	CASE IS >= 3
		PRINT �B�l�@
ENDSELECT
IF �I�𒆃L����ID == MASTER
	IF ABL:�I�𒆃L����ID:�w >= 5
		PRINTFORML ���Ȃ₩�Ȏw�ł̈����͂����܂������𓠂������Ă��܂�
	ELSEIF ABL:�I�𒆃L����ID:�w >= 3
		PRINTFORML �I�݂Ȏw�ق��ŏ������x�΂���
	ENDIF
ENDIF
PRINTL
PRINTL �y�A�i���z
PRINTFORM �A�i�������r�������F
IF CSTR:�I�𒆃L����ID:�A�i�������r������ != ""
	CALL COLORMESSAGE(@"%CSTR:�I�𒆃L����ID:�A�i�������r������%",C_PINK,1)
ELSEIF !EXP:�I�𒆃L����ID:�`�����o��
	CALL COLORMESSAGE(@"�܂��N���󂯓���Ă��Ȃ�",C_YELLOW,1)
ELSE
	PRINTFORML
ENDIF
SELECTCASE ABL:�I�𒆃L����ID:�`���o
	CASE IS >= 10
		PRINT ���x���Q�@
	CASE IS >= 5
		PRINT ���x�ǍD�@
ENDSELECT
SIF GETBIT (CFLAG:�I�𒆃L����ID:�����p��, 4)
	PRINTFORML �ǂ�����Ί�����̂�%CALLNAME:MASTER%�ɒm��s������Ă���
IF �I�𒆃L����ID
	SELECTCASE �}���s��(�I�𒆃L����ID)
		CASE 3
			PRINTFORML �ƂĂ�%CALLNAME:MASTER%�̃y�j�X���󂯓������悤�ȃT�C�Y�ł͂Ȃ�
			LOCAL:6 ++
		CASE 2
			IF EXP:�I�𒆃L����ID:�`�o�� < 50 && TALENT:MASTER:�֒f�̒m��
				PRINTFORML ���������ق����Ȃ���%CALLNAME:MASTER%�̃y�j�X�͓���Ȃ����낤
				LOCAL:6 ++
			ELSEIF !TALENT:MASTER:�֒f�̒m��
				PRINTFORML %CALLNAME:MASTER%�̃y�j�X��}������͍̂����낤
				LOCAL:6 ++
			ENDIF
		CASE 1
			IF EXP:�I�𒆃L����ID:�`�o�� < 50 || !TALENT:MASTER:�֒f�̒m��
				PRINTFORML ���������ق����Ȃ���%CALLNAME:MASTER%�̃y�j�X�͓���Ȃ����낤
				LOCAL:6 ++
			ENDIF
		CASE -1
			IF ABL:�I�𒆃L����ID:�A�i�� < 2
				PRINTFORML %CALLNAME:MASTER%�̃y�j�X�ł��X�T�C�Y������Ȃ�
				LOCAL:6 ++
			ENDIF
		CASE -2
			IF ABL:�I�𒆃L����ID:�A�i�� < 3
				PRINTFORML �傫�߂��ē���Ă����܂�C�����悭�Ȃ��������c
				LOCAL:6 ++
			ENDIF
	ENDSELECT
	SELECTCASE ABL:�I�𒆃L����ID:�A�i��
		CASE IS >= 5
			PRINTL �ɏ㖼��
			PRINTFORML ���S��%CALLNAME:MASTER%�̃J�^�`�ɍ��ւ���ꂽ�A�i���͓��q�_��忂����ė��݂��Ă���
		CASE IS >= 3
			PRINTL ����
			PRINTFORML �g�����񂾍b�゠���đ�ϋ�̂������ɂȂ���
		CASE 2
			PRINTFORML %CALLNAME:MASTER%���󂯓���邱�ƂɊ��ꂫ���Ă���
		CASE 1
			PRINTL �ق���n�߂ċ���ǂ��Ȃ��Ă���
		CASE 0
			IF !CFLAG:�I�𒆃L����ID:�A�i�������r���L�O��
;				PRINTL ���J��
			ELSEIF EXP:�I�𒆃L����ID:�`�o�� < 20
					PRINTL �܂��ٕ����󂯓���邱�ƂɊ���Ă��Ȃ�
			ENDIF
	ENDSELECT
ENDIF
SIF CFLAG:�I�𒆃L����ID:�݌v�A�i�����t
	PRINTFORML ���܂�{CFLAG:�I�𒆃L����ID:�݌v�A�i�����t}�̐��t�𒍂����܂ꂽ

SELECTCASE ABL:�I�𒆃L����ID:��˒���
	CASE IS >= 10
		PRINTFORML �A�i�����ː������Ɛg�������Ȃ��ウ����
	CASE IS >= 7
		PRINTFORML �A�i�����ː������Ƒ��K����������
	CASE IS >= 3
		PRINTFORML �A�i�����ː������ƒ������u���Ă��܂�
ENDSELECT

IF ABL:�I�𒆃L����ID:�`���o >= 10 && CFLAG:�I�𒆃L����ID:���܂��Ă�x > 800 && �I�𒆃L����ID
	PRINTFORML %CALLNAME:MASTER%�ɕ�����邱�Ƃ�z�����K�����Ђ��Ђ��ƊJ���Ă���
ELSEIF ABL:�I�𒆃L����ID:�`���o >= 5 && CFLAG:�I�𒆃L����ID:���܂��Ă�x > 300 && �I�𒆃L����ID
	PRINTFORML %CALLNAME:MASTER%�ɕ����ꂽ���Ă����������Ă���
ENDIF

IF �[�U��(�I�𒆃L����ID,2) >= 1000
	PRINTFORML �l�O�̎ː��ɎN����A�����ǂ��납���̉��܂ł����t�Ŗ�������Ă���
ELSEIF �[�U��(�I�𒆃L����ID,2) >= 200
	PRINTFORML �����͐��q�Ŋ��S�ɖ��t�ɂȂ�A��傩�班���ÂR�ꂾ���Ă���
ELSEIF �[�U��(�I�𒆃L����ID,2) >= 100
	PRINTFORML �����d�݂�������قǂ̗ʂ̐��t�Ŋ��S�ɖ�������Ă���
ELSEIF �[�U��(�I�𒆃L����ID,2) >= 50
	PRINTFORML �����Ś삵�����̐��q��忂��Ă���
ELSEIF �[�U��(�I�𒆃L����ID,2) >= 20
	PRINTFORML �����Ő��q�����C�ɉj������Ă���
ENDIF

PRINTL
IF TALENT:�I�𒆃L����ID:2 & 1
	PRINTL �y�S�z
	PRINTFORM �����r�������F
	IF CFLAG:�I�𒆃L����ID:�����r���L�O��
		CALL COLORMESSAGE(@"%CSTR:�I�𒆃L����ID:�����r������%",C_PINK,1)
	ELSEIF !CSVTALENT(�I�𒆃L����ID, GETNUM(TALENT, "����")) && TALENT:�I�𒆃L����ID:���� == 1
		CALL COLORMESSAGE(@"���E�����ς��A�N���󂯓���Ă��Ȃ�",C_YELLOW,1)
	ELSEIF !CSVTALENT(�I�𒆃L����ID, GETNUM(TALENT, "����"))
		CALL COLORMESSAGE(@"%CALLNAME:MASTER%�ɏo��O�Ɏ����Ă���",C_AQUA,1)
	ELSE
		IF TALENT:�I�𒆃L����ID:���� == 1
			SIF ABL:�I�𒆃L����ID:�u���o >= 10 & (TALENT:LOCAL:150 || TALENT:LOCAL:151) && !TALENT:LOCAL:����
				LOCALS:0 = �ɂ�������炸�A�q�{�͊��S�Ɏ��Ƃ��Ĉ��΂ɉԊJ���Ă���
			SIF ABL:�I�𒆃L����ID:�u���o >= 5
				LOCALS:0 = �ɂ�������炸�A�h����^������Ηe�Ղ��Ⓒ����قǈ���ɊJ������Ă���
			CALL COLORMESSAGE(@"�܂��N��l�Ƃ��Ď󂯓��ꂽ���Ƃ��Ȃ�%LOCALS:0%",C_YELLOW,1)
		ELSEIF TALENT:�I�𒆃L����ID:���� == -1
			CALL COLORMESSAGE(@"���łɏ�����D���Ă��邱�ƂɋC�t���Ă��Ȃ�",C_PINK,1)
		ENDIF
	ENDIF

	SELECTCASE ABL:�I�𒆃L����ID:�u���o
		CASE IS >= 10
			PRINT ���x���Q�@
		CASE IS >= 5
			PRINT ���x�ǍD�@
	ENDSELECT
	IF �I�𒆃L����ID
		SELECTCASE �}���s��(�I�𒆃L����ID)
			CASE 3
				PRINTFORML �ƂĂ�%CALLNAME:MASTER%�̃y�j�X���󂯓������悤�ȃT�C�Y�ł͂Ȃ�
				LOCAL:5 ++
			CASE 2
				IF EXP:�I�𒆃L����ID:�u�o�� < 50 && TALENT:MASTER:�֒f�̒m��
					PRINTFORML ���������ق����Ȃ���%CALLNAME:MASTER%�̃y�j�X�͓���Ȃ����낤
					LOCAL:5 ++
				ELSEIF !TALENT:MASTER:�֒f�̒m��
					PRINTFORML %CALLNAME:MASTER%�̃y�j�X��}������͍̂����낤
					LOCAL:5 ++
				ENDIF
			CASE 1
				IF EXP:�I�𒆃L����ID:�u�o�� < 50 || !TALENT:MASTER:�֒f�̒m��
					PRINTFORML ���������ق����Ȃ���%CALLNAME:MASTER%�̃y�j�X�͓���Ȃ����낤
					LOCAL:5 ++
				ENDIF
			CASE -1
				IF ABL:�I�𒆃L����ID:�S < 2
					PRINTFORML %CALLNAME:MASTER%�̃y�j�X�ł��X�T�C�Y������Ȃ�
					LOCAL:5 ++
				ENDIF
			CASE -2
				IF ABL:�I�𒆃L����ID:�S < 3
					PRINTFORML �傫�߂��ē���Ă����܂�C�����悭�Ȃ��������c
					LOCAL:5 ++
				ENDIF
		ENDSELECT
		IF ABL:�I�𒆃L����ID:�u���o >= 10 && CFLAG:�I�𒆃L����ID:���܂��Ă�x > 800 && �I�𒆃L����ID
			PRINTFORML %CALLNAME:MASTER%�Ɋт���邱�Ƃ�z�����q�{������񂫂����u���Ă���
		ELSEIF ABL:�I�𒆃L����ID:�u���o >= 5 && CFLAG:�I�𒆃L����ID:���܂��Ă�x > 300 && �I�𒆃L����ID
			PRINTFORML %CALLNAME:MASTER%�ɕ����ꂽ���Ă����������Ă���
		ENDIF
		IF !LOCAL:5
			SELECTCASE ABL:�I�𒆃L����ID:�S
				CASE IS >= 5
					PRINTL �ɏ㖼��
					IF TALENT:�I�𒆃L����ID:���� == -1
						PRINTFORML ���l����������m��ʂ܂܁A%CALLNAME:MASTER%���x�΂��邽�߂����̌��Ɖ����Ă���
					ELSE
						PRINTFORML ���S��%CALLNAME:MASTER%�̃J�^�`�ɍ��ւ���ꂽ�S���͓��q�_��忂����ė��݂��Ă���
					ENDIF
				CASE IS >= 3
					PRINTL ����
					IF TALENT:�I�𒆃L����ID:���� == -1
						PRINTFORML �m��ʊԂ�%CALLNAME:MASTER%���C�����悭�����邽�߂̌��ɍ��ς����Ă��܂���
					ELSE
						PRINTFORML �g�����񂾍b�゠���đ�ϋ�̂������ɂȂ���
					ENDIF
				CASE 2
					PRINTFORML %CALLNAME:MASTER%���󂯓���邱�ƂɊ��ꂫ���Ă���
				CASE 1
					PRINTL �ق���n�߂ċ���ǂ��Ȃ��Ă���
				CASE 0
					;IF EXP:�I�𒆃L����ID:�u�o��
					IF TALENT:�I�𒆃L����ID:���� == 1
						PRINTL ����m��Ȃ����g�p���S
					ELSEIF EXP:�I�𒆃L����ID:�u�o�� < 10
						PRINTL ����m���l�̊K�i�����鋰��o��n�߂��΂�����S�͋��������݂��Ă���
					ELSEIF EXP:�I�𒆃L����ID:�u�o�� < 20
						PRINTL ���g�p�ɋ߂��S�͂܂��d�����c���Ă���
					ENDIF
			ENDSELECT
		ENDIF
	ENDIF

	SIF CFLAG:�I�𒆃L����ID:�݌v�S�����t
		PRINTFORML ���܂�{CFLAG:�I�𒆃L����ID:�݌v�S�����t}�̐��t�𒍂����܂ꂽ
	SELECTCASE ABL:�I�𒆃L����ID:�S�˒���
		CASE IS >= 10
			PRINTFORML �S���ː������ƊȒP�ɐⒸ���ɂ߂�
		CASE IS >= 7
			PRINTFORML �S���ː������Ƒ��K����������
		CASE IS >= 3
			PRINTFORML �S���ː������Ǝq�{���u���Ă��܂�
	ENDSELECT
	IF CFLAG:�I�𒆃L����ID:�q��Ē����� == 1
		PRINTFORML ��ɐ��t��~����������Ȏq�{�ɕ����A�������̐�SEX�����o���Ă���
	ENDIF
	SIF TALENT:�I�𒆃L����ID:�|���`�I����
		PRINTFORML �q�{�����˂����ƐⒸ����܂łɊJ������Ă���
	SIF CFLAG:�I�𒆃L����ID:������S��
		PRINTFORML %CALLNAME:MASTER%�ɖ�������o�����ꂽ���Ƃ�����
	SIF CFLAG:�I�𒆃L����ID:������ == 1
		PRINTFORML %CALLNAME:MASTER%�ɖ����Ă���ԂɃC�^�Y�����ꂽ���Ƃ�����
	SIF CFLAG:�I�𒆃L����ID:������ == 2
		PRINTFORML %CALLNAME:MASTER%�ɖ����Ă���ԂɔƂ��ꂽ���Ƃ�����
	IF CFLAG:�I�𒆃L����ID:�D���� == 2
		PRINTFORML %CALLNAME:MASTER%�ɐ����Ԃ�Ă���Ƃ����Ƃ��ꂽ���Ƃ�����
	ELSEIF CFLAG:�I�𒆃L����ID:�D���� == 1
		PRINTFORML %CALLNAME:MASTER%�ɐ����Ԃ�Ă���Ƃ����Ƃ��ꂽ���Ƃ����邪�C�Â��Ă��Ȃ�
	ENDIF

	IF �[�U��(�I�𒆃L����ID,1) >= 1000
		PRINTFORML �l�O�̎ː��ɎN����A�q��s�񂾂��̂悤�Ɋg������Ă���
	ELSEIF �[�U��(�I�𒆃L����ID,1) >= 200
		PRINTFORML �q�{��%CALLNAME:MASTER%�̐��t�Ŋg������A���܂�؂�Ȃ��������t���S��������Ă���
	ELSEIF �[�U��(�I�𒆃L����ID,1) >= 100
		PRINTFORML �S����%CALLNAME:MASTER%�̐��t�Ŋ��S�ɖ�������Ă���
	ELSEIF �[�U��(�I�𒆃L����ID,1) >= 50
		PRINTFORML �S���Ś삵�����̐��q��忂��Ă���
	ELSEIF �[�U��(�I�𒆃L����ID,1) >= 20
		PRINTFORML �S���Ő��q�����C�ɉj������Ă���
	ELSEIF CFLAG:�I�𒆃L����ID:�������� == 7 && FLAG:������������ && �D�P��(�I�𒆃L����ID)
		PRINTFORML �댯���̎q�{�͐��X�������q��p�ӂ��Ď󐸂�҂��Ă���
	ENDIF
	;PRINTFORML {EX:�I�𒆃L����ID:�q�{�����t}
	IF TALENT:�I�𒆃L����ID:�D�P
		IF CFLAG:�I�𒆃L����ID:�D�P�o�ߓ��� < 20
			PRINTFORML �������~�܂��Ă���
		ELSE
			PRINTFORML �q�{���ł�%CALLNAME:MASTER%�Ƃ̎q�������������ƈ���Ă���
			PRINTFORML ���ݔD�P{CFLAG:�I�𒆃L����ID:�D�P�o�ߓ���}���ڂ�
			CALL LOOK_BELLY(�I�𒆃L����ID)
			SIF INRANGE(CFLAG:�I�𒆃L����ID:�D�P�o�ߓ���,20,29)
					PRINT �܂������ڂɕω��͌����Ȃ�
		ENDIF
	ENDIF
ENDIF
PRINTL
SIF �I�𒆃L����ID == MASTER
	CALL ����՗�(MASTER)

@����՗�(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
#DIM �b���ʂ̑���
#DIM �b���ʂ̗�
#DIM �b���ʂ̎��
SIF !GETBIT(TALENT:�I�𒆃L����ID:2, 1)
	RETURN
PRINTL �y�j����z
SELECTCASE TALENT:�I�𒆃L����ID:�`��
CASE 1
	LOCALS = �q���̂悤�ȉ��炵��
CASE 2
	LOCALS = �n����
CASE 3
	LOCALS = ���̕ϓN���Ȃ�
CASE 4
	LOCALS = ��������
CASE 5
	LOCALS = �C�{���炯��
CASE 6
	LOCALS = �����
ENDSELECT
PRINTFORM %CALLNAME:�I�𒆃L����ID%��%LOCALS%�y�j�X�́A
LOCAL:1 = SUMCARRAY(CFLAG:LOCAL:�݌v����,       1, CHARANUM)
LOCAL:2 = SUMCARRAY(CFLAG:LOCAL:�݌v�Ԃ�����,   1, CHARANUM)
LOCAL:3 = SUMCARRAY(CFLAG:LOCAL:�݌v�S�����t,   1, CHARANUM)
LOCAL:4 = SUMCARRAY(CFLAG:LOCAL:�݌v�A�i�����t, 1, CHARANUM)
IF !TALENT:PLAYER:1
	PRINTFORML ���g�p��
ELSE
	SIF FLAG:������
		PRINTFORML ���܂ł�{FLAG:������}�l�̏������U�炵�A
	PRINTFORML ���������̌�����{LOCAL:1}�A���̂�{LOCAL:2}�A�S����{LOCAL:3}�A�A�i����{LOCAL:4}�̐��t��f���o���Ă���
	;�e�ː��V�`���̍ő�l����
	;�������Ƃ���ʂɏo�����V�`���̌���
	;�������Ƃ���ʂɏo��������̌���
	LOCAL:1 = MAXCARRAY(CFLAG:LOCAL:�݌v����,       1, CHARANUM)
	LOCAL:2 = MAXCARRAY(CFLAG:LOCAL:�݌v�Ԃ�����,   1, CHARANUM)
	LOCAL:3 = MAXCARRAY(CFLAG:LOCAL:�݌v�S�����t,   1, CHARANUM)
	LOCAL:4 = MAXCARRAY(CFLAG:LOCAL:�݌v�A�i�����t, 1, CHARANUM)
	�b���ʂ̗� = 0
	FOR LOCAL:0, 1, 5
		SIF �b���ʂ̗� > LOCAL:(LOCAL:0)
			CONTINUE
		�b���ʂ̎�� = LOCAL:0
		�b���ʂ̗�   = LOCAL:(LOCAL:0)
	NEXT
	SELECTCASE �b���ʂ̎��
	CASE 1
		�b���ʂ̑��� = FINDCHARA(CFLAG:LOCAL:�݌v����,       LOCAL:1, 1, CHARANUM)
		LOCALS = ����
	CASE 2
		�b���ʂ̑��� = FINDCHARA(CFLAG:LOCAL:�݌v�Ԃ�����,   LOCAL:2, 1, CHARANUM)
		LOCALS = ����
	CASE 3
		�b���ʂ̑��� = FINDCHARA(CFLAG:LOCAL:�݌v�S�����t,   LOCAL:3, 1, CHARANUM)
		LOCALS = �S��
	CASE 4
		�b���ʂ̑��� = FINDCHARA(CFLAG:LOCAL:�݌v�A�i�����t, LOCAL:4, 1, CHARANUM)
		LOCALS = �A�i��
	ENDSELECT
	PRINTFORML ����%CALLNAME:�b���ʂ̑���%��%LOCALS%�����C�ɓ��肾
ENDIF
SIF FLAG:�s������s�܂���
	PRINTFORML �s������ɛs�܂������F{FLAG:�s������s�܂���}�l
SIF TALENT:MASTER:�ޏ��s�܂�
	PRINTL �ޏ���s�܂�����������ȃy�j�X��
SIF TALENT:MASTER:�d���s�܂�
	PRINTL �d����s�܂����ƍߓI�ȃy�j�X��
SIF TALENT:MASTER:�d���s�܂�
	PRINTL �d����s�܂�������m�炸�̃y�j�X��
SIF TALENT:MASTER:�V��s�܂�
	PRINTL �V���s�܂����_���̃y�j�X��
SIF TALENT:MASTER:�S�s�܂�
	PRINTL �S��s�܂����S�����Ђ����y�j�X��
SIF TALENT:MASTER:�t�r�_�s�܂�
	PRINTL �t�r�_��s�܂����ߑ��̂Ȃ��y�j�X��
SIF TALENT:MASTER:�_��s�܂�
	PRINTL �_���s�܂����_��������ʃy�j�X��
SIF TALENT:MASTER:�H���s�܂�
	PRINTL �H���l����s�܂������𒴂���y�j�X��
SIF TALENT:MASTER:���\�s�܂�
	PRINTL �@�B���낤���H�삾�낤�������Ȃ鏭���ł��s�܂���l�q�𒴂����y�j�X��
SIF TALENT:MASTER:�Z�����t
	PRINTFORML ���������̐��𗭂ߍ��񂾃y�j�X�͂ނ��Ԃ�悤�ȗY�̏L��������Ă���
;MASTER���ߑł��ł����񂶂�Ȃ��H ���ƌl�I��Ƃ��Ăӂ��Ȃ�ɋʂ͂Ȃ�
SIF BASE:�I�𒆃L����ID:���� >= 1500 && !GETBIT(TALENT:�I�𒆃L����ID:����,0)
	PRINTL ��������Əd���A�X�ɂ͑�ʂ̐��q���~�����Ă���

@�D�P�֘A(ARG)
PRINTL
PRINTL �� �D�P�֘A ��-----------------------------------------------------------------------
;PRINTL
;PRINTFORM �O��̓��ː��� : {EX:ARG:14}
;PRINTL
PRINTFORM �D�P��o�ߎ���: {CFLAG:ARG:903}
;CFLAG:ARG:903 = 40
;PRINTL
;PRINTFORM ���o : {CFLAG:(ARG):910}
;PRINTL
;PRINTFORM �����o�D�P : {CFLAG:ARG:�����o�D�P}
PRINTL
PRINTFORM ���݈玙���q���� : {CFLAG:ARG:�玙�l��}
PRINTL
PRINTFORM ���݈玙�o�ߎ��� : {CFLAG:ARG:908}
PRINTFORML
PRINTFORM �@�@�@�@�q���̐� : {CFLAG:ARG:�q���l��}
PRINTFORML
IF CFLAG:ARG:�q���l��
	FOR LOCAL,1,11
		IF CHILDNAME:ARG:LOCAL != ""
			PRINTFORM ��{LOCAL}�q�F%CHILDNAME:ARG:LOCAL, 15, LEFT%�@\@ CHILD_SEX:ARG:LOCAL == 1 ? �� # �� \@
			CALL PRINT_DATE(CHILD_BIRTHDAY:ARG:LOCAL)
			PRINTFORM ({CHILD_BIRTHDAY:ARG:LOCAL}����)
			SELECTCASE CHILD_WEATHER:ARG:LOCAL
			CASE "�b�q��"
				PRINTFORM �݂�Ȃ̃N���g���X���q����
			CASE "�u�q��"
				PRINTFORM �݂�Ȃ̏����킪�q����
			CASE "�`�q��"
				PRINTFORM �݂�Ȃ���傪�q����
			CASE "�a�q��"
				PRINTFORM �݂�Ȃ̋����q����
			CASE "�l�q��"
				PRINTFORM �݂�Ȃ̐O���q����
			CASE "�X�J�[�g"
				PRINTFORM �X�J�[�g���߂����ē��ɂ���ƋC�����悭�Ȃ�
			CASE "�p���c"
				PRINTFORM �p���c����ь���
			CASEELSE
				PRINTFORM %CHILD_WEATHER:ARG:LOCAL%��
			ENDSELECT
			PRINTFORM ���ɐ��܂ꂽ�@
			IF DAY - CHILD_BIRTHDAY:ARG:LOCAL < 120
				IF CFLAG:ARG:�o�Y�o�ߓ� < CHILD_��b
					PRINTFORML �c����
				ELSEIF CFLAG:ARG:�o�Y�o�ߓ� < CHILD_�����O
					PRINTFORML �c����
				ELSE
					PRINTFORML �v�t��
				ENDIF
			ELSE
				PRINTFORML ����{(DAY - CHILD_BIRTHDAY:ARG:LOCAL) / 124}��
			ENDIF
		ENDIF
	NEXT
ENDIF

@�\��
#DIM �˗��ԍ�

PRINTL �� �\�� ��---------------------------------------------------------------------------
PRINTL
SELECTCASE FLAG:����
	CASE 1
		LOCALS = �I�i�j�[����
	CASE 2
		LOCALS = ���������i
	CASE 3
		LOCALS = �Č��J��
	CASE 4
		LOCALS = �K���J��
	CASE 5
		LOCALS = �����U��
	CASE 6
		LOCALS = �q���ɉh
ENDSELECT
IF FLAG:����
	PRINTFORML ���N�̕���: %LOCALS%
	PRINTL
ENDIF
IF FLAG:����J�Ãt���O
	IF FLAG:�J�n�� - DAY <= 0
		PRINT �{��
	ELSE
		PRINTFORM {FLAG:�J�n�� - DAY}����
	ENDIF
	CALL ����\��\��
	PRINTL
	PRINT ����K�́F
		SELECTCASE FLAG:����K��
			CASE IS >= 5000
				PRINT ����
			CASE IS >= 2500
				PRINT ��
			CASE IS >= 1500
				PRINT ��
			CASEELSE
				PRINT ��
		ENDSELECT

	SIF FLAG:36 > 0
		PRINTL �@�J�V���~
ENDIF
PRINTL
IF FLAG:�ݖ{�ԋp���� >= 2
	FOR LOCAL,1,5
		SIF ITEM:(100 + LOCAL)
			PRINTFORML �؂�Ă���{�F%ITEMNAME:(100 + LOCAL)%
	NEXT
	PRINTL
	IF  FLAG:�ݖ{�ԋp���� == 2
		PRINTFORML �ݖ{�̕ԋp���F�{��
	ELSE
		PRINTFORML �ݖ{�̕ԋp���F{FLAG:�ݖ{�ԋp���� - 2}����
	ENDIF
PRINTL
ENDIF

CALL SHOW_ALL_IRAI_SLOT

SELECTCASE CFLAG:MASTER:����
	CASE 4
		PRINT ���Ƃňꕨ��傫����
		IF CFLAG:MASTER:���͉�� == 6
			PRINTL �Ă���
		ELSE
			PRINTL ��
		ENDIF
		SIF CFLAG:MASTER:���͉�� < 6
			PRINTFORML ���͉�����ς܂ł���{CFLAG:MASTER:���͉��}��
	CASE 5
		PRINT ���Ƃňꕨ���{�ɂ�
		IF CFLAG:MASTER:���͉�� == 6
			PRINTL �Ă���
		ELSE
			PRINTL ��
		ENDIF
		SIF CFLAG:MASTER:���͉�� < 6
			PRINTFORML ���͉�����ς܂ł���{CFLAG:MASTER:���͉��}��
	CASE 6
		PRINT ���Ƃŏ��l�ɂȂ�
		IF CFLAG:MASTER:���͉�� == 3
			PRINTL �Ă���
		ELSE
			PRINTL ��
		ENDIF
		SIF CFLAG:MASTER:���͉�� < 3
			PRINTFORML ���͉�����ς܂ł���{CFLAG:MASTER:���͉��}��
	CASE 7
		PRINTL ���Ƃŏ��l���猳�ɖ߂���
		SIF CFLAG:MASTER:���͉�� < 3
			PRINTFORML ���͉�����ς܂ł���{CFLAG:MASTER:���͉��}��
ENDSELECT
SIF CFLAG:MASTER:����
	PRINTL

@�p���c���W��(�I�𒆃L����ID)
#DIM �I�𒆃L����ID
PRINTL �� �p���c���W�� ��-----------------------------------------------------------------
IF FLAG:�p���c���W�󋵃^�C�vB == 0
	CALL DISPLAY_COLLECTION(�I�𒆃L����ID)
	PRINTFORML �����F{RESULT:0,4}���@�@��ʁF{RESULT:1,2}��@�@�_�u��F{RESULT:0 - RESULT:1,4}��
ELSE
	CALL DISPLAY_COLLECTION_B(�I�𒆃L����ID)
	PRINTFORML �����F{RESULT:0,4}���@�@��ʁF{RESULT:1,2}/{RESULT:2}��@�@�_�u��F{RESULT:0 - RESULT:1,4}��
ENDIF

@���C�c����(C_ID)
#DIM C_ID
PRINT ��
CALL PRINTBUTTON_EX(@"%CALLNAME:C_ID%�̔c�����Ă���%CALLNAME:MASTER%�̓��̊֌W �i�����͌��F�j", 168, TFLAG:168)
PRINTL  ��------------------------------------------------------------
IF !TFLAG:���C��\��
	PRINTFORML
	FOR LOCAL,1,CHARANUM
		SIF LOCAL == C_ID
			CONTINUE
		IF GET_UWAKI_HISTORY(C_ID, LOCAL)
			SIF GET_UWAKI_HISTORY(C_ID, LOCAL) == 2
				SETCOLOR C_YELLOW
			PRINTFORMLC %CALLNAME:LOCAL%
		ENDIF
		RESETCOLOR
	NEXT
ENDIF

PRINTL �@

path: 原版+前人整合等各种readme/パッチ/eraTW4.632_宴会会場修正パッチ/ERB/ステータス表示関連/PRINT_STATE2.ERB


code:
;=============================================================================
;�g���E�̏d�E3�T�C�Y�̐�������
;=============================================================================
;�g���E�̏d�E3�T�C�Y�𐶐����A�ȉ��̕ϐ��Ɋi�[���܂��B
;BASE:20 �c �g�� = ��{�l + MAXBASE:10 + �f�� (mm)
;BASE:21 �c �̏d = (�f��:�I�g�R) ? (�g�� * 30) /100 # (�g�� * 28) /100 * �f�� + �o�X�g��3�� * 2 / 10��8��
;BASE:22 �c �o�X�g = ( �g�� * 100 / 22 - �g�� * 100 / �E�F�X�g ) / 10 + �f��
;BASE:23 �c �E�F�X�g = {�g��(mm) * 38}/100 (mm) = �g�� * 0.38 �Ő��l�����̕��σE�G�X�g�ɂȂ�Ƃ�
;BASE:24 �c �q�b�v = ( �g�� * 54 ) / 100 = �g�� * 0.54 * �f��
;���Ȃ݂�
;BASE:7 �c �N���g���X�̐����(0 �` 250)�A
;��̓I�ȃT�C�Y�́ABASE:7 * BASE:7 / 150(mm)�Ōv�Z����A416(mm)���ő�
;MAXBASE:20 �c �g���̌v�Z���̗����l�A�L�������Ƃ�.csv�ɐ��l��mm�P�ʂŋL������Ă���ƒ萔��
;MAXBASE:21 �c ���g�p
;MAXBASE:22 �c ���g�p
;MAXBASE:23 �c ���g�p
;MAXBASE:24 �c ���g�p
;CFLAG:508 �c �g�̑���t���O�A�ߋ��ł�"8"���g���Ă����̂ŁA500�ԑ�ɕύX
;CFLAG:509 �c �y�j�X����t���O�A��̃r�b�g�Ŕ��ʂ���΂������A�ʓ|
;CFLAG:3500 �c �D�P�ɂ��ǉ��T�C�Y
;CFLAG:3510 �` 3514 �c �q���̐��������ʁA���ɁA�g���A�̏d�A�o�X�g�A�E�G�X�g�A�q�b�v
;CFLAG:3510 �c [�c���^�c���ލs]���̐g��������
;CFLAG:3577 �c �q�������J�n��
;LOCAL:0 �` 4 �c �ŏI�v�Z���ʂ̈ꎞ�ۑ��p
;LOCAL:10 �` 14 �c �v�Z�r���̈ꎞ�ۑ��p
;LOCAL:20 �` 24 �c �O�̒l�̈ꎞ�ۑ��p
;LOCAL:30 �c ���̐g�������ʗp�ϐ�
;LOCAL:50 �` 54 �c �y�j�X�̌v�Z�p�ϐ�
;TALENT:130 :: �c���^�c���ލs
;�Z�o�����́A �g�����E�F�X�g���o�X�g���q�b�v���̏d �̏��ɎZ�o���܂��B
;
;������ ��� �Ăяo����ARG 0:���̂܂� 1:�L�����̓o�^�ԍ��L��
;������ ��� �L�����̓o�^�ԍ�
;
;--------------------------------------------------
;�g�̃T�C�Y�������� �����ŌĂяo�������擾
;--------------------------------------------------
@MAKE_SIZE, ARG, ARG:1
VARSET LOCAL,0
;�����l�̎擾 �Ăяo�����̏ꏊ�ɂ���ĕω�
LOCAL:99 = (ARG == 0) ? TARGET # ARG:1
;[�I�g�R][�ӂ��Ȃ�][�]�Ȃǂ����āA���łɐg�̑�������Ă��܂��Ė�����̂Ƃ��̔�����
;SIF (TALENT:(LOCAL:99):���� == 2 || TALENT:(LOCAL:99):121 || TALENT:(LOCAL:99):123) && CFLAG:(LOCAL:99):508 && CFLAG:(LOCAL:99):509 == 0
;	CALL MAKE_PENIS_SIZE, LOCAL:99

;�g�̑���t���O�������Ă���A�܂��́A�����������Ă���Ƃ��A�v�Z���Ȃ��Ŗ߂�
SIF CFLAG:(LOCAL:99):�g�̑��� != 2
	RETURN 0
;SIF CFLAG:(LOCAL:99):�g�̑��� || (MARK:(LOCAL:99):���� && CFLAG:(LOCAL:99):�g�̑���)
;	RETURN 0

;===�g���̎Z�o===
;�����l�����݂��Ȃ��ꍇ�͌v�Z���A����𐶊U�ɓn��g�p����B
SELECTCASE LOCAL:99
;	CASE 0
;		;���Ȃ�
	CASE 1
		;�얲
		LOCAL:10 = 1520
;	CASE 2
;		;��[����
;	CASE 3
;		;�J�i
;	CASE 4
;		;����
	CASE 5
		;�T�j�[
		LOCAL:10 = 990
	CASE 6
		;���i
		LOCAL:10 = 990
	CASE 7
		;�X�^�[
		LOCAL:10 = 990
	CASE 8
		;�����
		LOCAL:10 = 1430
	CASE 9
		;����
		LOCAL:10 = 1570
	CASE 10
		;��
		LOCAL:10 = 1250
	CASE 11
		;������
		LOCAL:10 = 1440
	CASE 12
		;���[�~�A
		LOCAL:10 = 1130
	CASE 13
		;��d��
		LOCAL:10 = 1280
	CASE 14
		;�`���m
		LOCAL:10 = 960
	CASE 15
		;���
		LOCAL:10 = 1610
	CASE 16
		;���~���A
		LOCAL:10 = 1350
	CASE 17
		;�A���X
		LOCAL:10 = 1530
	CASE 18
		;�����[�v
		LOCAL:10 = 1000
	CASE 19
		;�����[�a
		LOCAL:10 = 1000
	CASE 20
		;�����J
		LOCAL:10 = 1380
	CASE 21
		;��������
		LOCAL:10 = 1530
	CASE 22
		;���i�T
		LOCAL:10 = 1500
	CASE 23
		;�d��
		LOCAL:10 = 1460
	CASE 24
		;��
		LOCAL:10 = 1290
	CASE 25
		;��
		LOCAL:10 = 1630
	CASE 26
		;��
		LOCAL:10 = 1650
	CASE 27
		;���O��
		LOCAL:10 = 1350
	CASE 28
		;�~�X�e�B�A
		LOCAL:10 = 1400
	CASE 29
		;��
		LOCAL:10 = 1580
	CASE 30
		;�f�P
		LOCAL:10 = 1480
	CASE 31
		;���c
		LOCAL:10 = 1570
	CASE 32
		;�_�ގq
		LOCAL:10 = 1720
	CASE 33
		;�z�K�q
		LOCAL:10 = 1380
	CASE 34
		;�V�q
		LOCAL:10 = 1530
	CASE 35
		;�ߋ�
		LOCAL:10 = 1590
	CASE 36
		;����
		LOCAL:10 = 1570
	CASE 37
		;����
		LOCAL:10 = 1680
	CASE 38
		;������
		LOCAL:10 = 1420
	CASE 39
		;�i�Y�[����
		LOCAL:10 = 1360
	CASE 40
		;���P
		LOCAL:10 = 1460
	CASE 41
		;�ʂ�
		LOCAL:10 = 1440
	CASE 42
		;�͂���
		LOCAL:10 = 1540
	CASE 43
		;�ؐ�
		LOCAL:10 = 1580
;	CASE 44
;		;�G����
;	CASE 45
;		;�����q
;	CASE 46
;		;����
;	CASE 47
;		;����
;	CASE 48
;		;���C�Y
	CASE 49
		;���Ƃ�
		LOCAL:10 = 1480
	CASE 50
		;�t����
		LOCAL:10 = 1310
	CASE 51
		;�ɂƂ�
		LOCAL:10 = 1430
	CASE 52
		;���
		LOCAL:10 = 1620
	CASE 53
		;�Ă�
		LOCAL:10 = 1300
	CASE 54
		;�p�`�����[
		LOCAL:10 = 1480
	CASE 55
		;���@
		LOCAL:10 = 1640
	CASE 56
		;�_�q
		LOCAL:10 = 1560
	CASE 57
		;������
		LOCAL:10 = 1580
	CASE 58
		;����
		LOCAL:10 = 1630
	CASE 59
		;������
		LOCAL:10 = 1560
	CASE 60
		;�p���X�B
		LOCAL:10 = 1520
	CASE 61
		;���g
		LOCAL:10 = 1600
	CASE 62
		;�P��
		LOCAL:10 = 1560
	CASE 63
		;�e�T
		LOCAL:10 = 1600
	CASE 64
		;�E�V
		LOCAL:10 = 1770
	CASE 65
		;��
		LOCAL:10 = 1610
	CASE 66
		;�H�X�q
		LOCAL:10 = 1590
	CASE 67
		;�d��
		LOCAL:10 = 1620
	CASE 68
		;�H��
		LOCAL:10 = 1580
	CASE 69
		;�}�~�]�E
		LOCAL:10 = 1630
	CASE 70
		;����
		LOCAL:10 = 1420
	CASE 71
		;�j����
		;���1/10��
		LOCAL:10 = 1370
	CASE 72
		;�i��
		LOCAL:10 = 1670
	CASE 73
		;�؊�
		LOCAL:10 = 1520
	CASE 74
		;���e�B
		LOCAL:10 = 1590
	CASE 75
		;���f�B�X��
		LOCAL:10 = 750
	CASE 76
		;����
		LOCAL:10 = 1650
	CASE 77
		;�×t
		LOCAL:10 = 1460
	CASE 78
		;���q
		LOCAL:10 = 1510
	CASE 79
		;��
		LOCAL:10 = 1480
	CASE 80
		;����
		LOCAL:10 = 1430
	CASE 81
		;�@�q
		LOCAL:10 = 1570
	CASE 82
		;�����[
		LOCAL:10 = 1600
	CASE 83
		;�L�X��
		LOCAL:10 = 1220
	CASE 84
		;���}��
		LOCAL:10 = 1520
	CASE 85
		;���
		LOCAL:10 = 1560
	CASE 86
		;����
		LOCAL:10 = 1570
	CASE 87
		;��
		LOCAL:10 = 1660
	CASE 88
		;���q
		LOCAL:10 = 1340
	CASE 89
		;�F��
		LOCAL:10 = 1550
	CASE 90
		;�M
		LOCAL:10 = 1530
	CASE 91
		;�j����
		LOCAL:10 = 1570
	CASE 92
		;�z�s
		LOCAL:10 = 1420
	CASE 93
		;�킩�����P
		LOCAL:10 = 1490
	CASE 94
		;�فX
		LOCAL:10 = 1580
	CASE 95
		;����
		LOCAL:10 = 1540
	CASE 96
		;����
		LOCAL:10 = 1610
	CASE 97
		;����
		LOCAL:10 = 1470
	CASE 98
		;�˕P
		LOCAL:10 = 1630
	CASE 99
		;�L�P
		LOCAL:10 = 1590
	CASEELSE
		IF MAXBASE:(LOCAL:99):�g�� <= 0
			LOCAL:10 = 1 + RAND:70 + RAND:70 + RAND:70 + RAND:70 + RAND:70 + RAND:70 + RAND:50 + TALENT:(LOCAL:99):�o�X�g�T�C�Y *20
			MAXBASE:(LOCAL:99):�g�� = LOCAL:10
		ELSE
			LOCAL:10 = MAXBASE:(LOCAL:99):�g��
		ENDIF
		;�����l�{���ʂɂ���b���g���ł���(mm)
		;�c���^�c���ލs�̂Ƃ��͒j�����Ȃ�
		LOCAL:10 += (TALENT:(LOCAL:99):���� == 2 && TALENT:(LOCAL:99):�c���^�c���ލs == 0) ? 1500 # 1300

		;�̊i�f���ɂ��C��
		;�c���̌^
		IF TALENT:(LOCAL:99):�̌^ == -2
			LOCAL:10 += 356
			LOCAL:10 /= 2
		;�����̌^
		ELSEIF TALENT:(LOCAL:99):�̌^ == -1
			LOCAL:10 -= 170
		;���g
		ELSEIF TALENT:(LOCAL:99):�̌^ == 1
			LOCAL:10 += 250
		ENDIF
ENDSELECT

;�����ݒ�Őg����`�L�����ɗc���̌^�t�^����Ă���ꍇ
IF MAXBASE:(LOCAL:99):�g�� <= 0
	;�̊i�f���ɂ��C��
	;�c���̌^
	IF TALENT:(LOCAL:99):�̌^ == -2 && TALENT:(LOCAL:99):�̌^ != CSVTALENT(ARG:1, GETNUM(TALENT, "�̌^"))
		;���������̌^
		IF CSVTALENT(ARG:1, GETNUM(TALENT, "�̌^")) == -1
			LOCAL:10 += 479
			LOCAL:10 /= 2
		;�����ʏ�̌^�ȏ�
		ELSE
			LOCAL:10 += 356
			LOCAL:10 /= 2
		ENDIF
	ENDIF
ENDIF

IF TALENT:(LOCAL:99):�̌^ == -2
	LOCAL:10 += RAND:30 - RAND:30
ELSEIF TALENT:(LOCAL:99):�̌^ == -1
	LOCAL:10 += RAND:40 - RAND:40
ELSE
	LOCAL:10 += RAND:50 - RAND:50
ENDIF

;[SKIPSTART]
;-----------------------------------------------------------------------------
;;���X�ɐ�������
;IF FLAG:11 & 64
;	;[�c���^�c���ލs]�̐g�������A[�c���^�c���ލs]�ȊO�́ACFLAG:3510��0�̂܂�
;	IF TALENT:(LOCAL:99):�c���^�c���ލs
;		;���́A���߂�10���Ԃ́A�L�т�10�A����ȍ~��30
;		LOCAL:30 = (DAY - CFLAG:(LOCAL:99):3577 <= 10) ? 10 # 30
;		;���2�{�̕␳
;		LOCAL:30 /= 2
;		;�������A21���ڂŃX�g�b�v
;		SIF (DAY - CFLAG:(LOCAL:99):3577) > 20
;			LOCAL:30 = 0
;		CFLAG:(LOCAL:99):3510 += (TALENT:(LOCAL:99):����) ? 19 # LOCAL:30
;		CFLAG:(LOCAL:99):3510 += RAND:10
;		;����q�ɏo�����牺�̂悤�ɂȂ�
;		;CFLAG:(LOCAL:99):3510 = (TALENT:(LOCAL:99):����) ? 19 # (DAY - CFLAG:(LOCAL:99):77 <= 30) ? 10 # (DAY - CFLAG:(LOCAL:99):77 <= 40) ? 30 # 0
;		;���l�̌^
;		SIF TALENT:(LOCAL:99):100
;			CFLAG:(LOCAL:99):3510 /= 10
;		;���܂��20���ځA�����J�n���͐�������
;		SIF (DAY - CFLAG:(LOCAL:99):3577) == 0
;			CFLAG:(LOCAL:99):3510 = 0
;	ENDIF
;	;����[�c���^�c���ލs]�������l(���Ȃ킿�ACFLAG:3510 > 0 ���A�f��[�c���^�c���ލs]�Ȃ�)���A����A�܂��́A���l�̌^�A�����̌^�łȂ��̂��ȉ���ʂ�
;	SIF CFLAG:(LOCAL:99):3510 > 0 && TALENT:(LOCAL:99):�c���^�c���ލs == 0  && ( TALENT:(LOCAL:99):129 == 0 || TALENT:(LOCAL:99):127 == 0 || TALENT:(LOCAL:99):128 == 0)
;		CFLAG:(LOCAL:99):3510 -= 400
;	LOCAL:10 += CFLAG:(LOCAL:99):3510
;	;����[�c���^�c���ލs]�������l�͂����Ő����X�g�b�v
;	SIF CFLAG:(LOCAL:99):3510 > 0 && TALENT:(LOCAL:99):�c���^�c���ލs == 0
;		CFLAG:(LOCAL:99):3510 = 0
;;�j�A���A[�c���^�c���ލs]�̕␳
;ELSEIF TALENT:(LOCAL:99):���� && TALENT:(LOCAL:99):�c���^�c���ލs
;	LOCAL:10 += 150
;ENDIF
;-----------------------------------------------------------------------------
;[SKIPEND]

;�g������
BASE:(LOCAL:99):�g�� = LOCAL:10

;===�E�F�X�g�̎Z�o===
;�E�F�X�g�̊�b�l�Z�o
LOCAL:13 = (LOCAL:10 * (37 +TALENT:(LOCAL:99):�o�X�g�T�C�Y)) / 101

;===�o�X�g�̎Z�o===
;�A���_�[�o�X�g�Z�o
IF TALENT:(LOCAL:99):�̌^ == -2
	LOCAL:12 = LOCAL:13 +LOCAL:10 /27
ELSEIF TALENT:(LOCAL:99):�̌^ == -1
	LOCAL:12 = LOCAL:13 +LOCAL:10 /24
ELSEIF TALENT:(LOCAL:99):�̌^ <= 1
	LOCAL:12 = LOCAL:13 +LOCAL:10 /21
ELSE
	LOCAL:12 = LOCAL:13 +LOCAL:10 /22
ENDIF

;���n�f���Ŋ�b�l�ω� 110:��� 111:�n�� 112:���� 113:����
;�Ăяo�����̏ꏊ�ɂ���ĕω�
IF TALENT:(LOCAL:99):�o�X�g�T�C�Y == -2
	LOCAL:12 += LOCAL:13 /10
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == -1
	LOCAL:12 += LOCAL:13 /8
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 1
	LOCAL:12 += LOCAL:13 /5
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 2
	LOCAL:12 += LOCAL:13 /4
ELSE
	LOCAL:12 += LOCAL:13 /7
ENDIF

;�o�X�g�␳
IF TALENT:(LOCAL:99):�̌^ == -2
	LOCAL:2 = LOCAL:12 /20
ELSEIF TALENT:(LOCAL:99):�̌^ == -1
	LOCAL:2 = LOCAL:12 /18
ELSEIF TALENT:(LOCAL:99):�̌^ == 0
	LOCAL:2 = LOCAL:12 /16
ELSEIF TALENT:(LOCAL:99):�̌^ <= 1
	LOCAL:2 = LOCAL:12 /15
ENDIF

IF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 2
	LOCAL:2 = LOCAL:2 *125 /100
	LOCAL:2 += ABL:(LOCAL:99):�a���o *3
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 1
	LOCAL:2 = LOCAL:2 *110 /100
	LOCAL:2 += ABL:(LOCAL:99):�a���o *2
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 0
	LOCAL:2 += ABL:(LOCAL:99):�a���o *5 /3
ELSE
	LOCAL:2 += ABL:(LOCAL:99):�a���o
ENDIF

;�o�X�g����
BASE:(LOCAL:99):22 = LOCAL:12 +LOCAL:2

;�E�F�X�g�␳
IF TALENT:(LOCAL:99):�o�X�g�T�C�Y >= 0
	LOCAL:3 = LOCAL:2 /11
ELSE
	LOCAL:3 = LOCAL:2 /12
ENDIF
;�E�F�X�g����
BASE:(LOCAL:99):�E�F�X�g = LOCAL:13 +LOCAL:3

;�����Ɨc���͕␳
IF TALENT:(LOCAL:99):�̌^ == -2
	BASE:(LOCAL:99):�E�F�X�g += BASE:(LOCAL:99):�E�F�X�g /6
ELSEIF TALENT:(LOCAL:99):�̌^ == -1
	BASE:(LOCAL:99):�E�F�X�g += BASE:(LOCAL:99):�E�F�X�g /12
ENDIF
;===�q�b�v�̎Z�o===
;�q�b�v�̊�b�l�Z�o
LOCAL:14 = (LOCAL:10 * (53 +TALENT:(LOCAL:99):�o�X�g�T�C�Y)) / 100
;�����Ə��l�͂��傫�߂ɕ␳���Ă݂�
SIF TALENT:(LOCAL:99):�̌^ == -2 || TALENT:(LOCAL:99):�̌^ == -1
	TIMES LOCAL:14, 1.05

;�q�b�v����
;	LOCAL:3 = LOCAL:2 /4
IF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 2
	BASE:(LOCAL:99):24 = LOCAL:14 + LOCAL:2 /5
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 1
	BASE:(LOCAL:99):24 = LOCAL:14 + LOCAL:2 /5
ELSEIF TALENT:(LOCAL:99):�o�X�g�T�C�Y == 0
	BASE:(LOCAL:99):24 = LOCAL:14 + LOCAL:2 /6
ELSE
	BASE:(LOCAL:99):24 = LOCAL:14 + LOCAL:2 /7
ENDIF

;===�̏d�̎Z�o===
;�̏d�̊�b�l�Z�o(���l�I�g�R�����ʏ���)
IF TALENT:ARG:2 & 1
	LOCAL:11 = LOCAL:10 *LOCAL:10 *19 /101500
ELSE
	LOCAL:11 = LOCAL:10 *LOCAL:10 *21 /100000
ENDIF
;�o�X�g�ɂ��d�ʉ��Z
LOCAL:12 = 4 * LOCAL:12 * LOCAL:12 * LOCAL:12 / 1100000
LOCAL:12 /= 100
LOCAL:2 = 4 * LOCAL:2 * LOCAL:2 * LOCAL:2 / 1100000
LOCAL:2 /= 100

;���v
LOCAL:1 = LOCAL:11 + LOCAL:12 + LOCAL:2

;�̊i�f���ɂ��C��
;�c���̌^
IF TALENT:(LOCAL:99):�̌^ == -2
	TIMES LOCAL:1, 0.85
;�����̌^
ELSEIF TALENT:(LOCAL:99):�̌^ == -1
	TIMES LOCAL:1, 0.95
;���g
;ELSEIF TALENT:(LOCAL:99):�̌^ == 1
;	TIMES LOCAL:1, 1.25
ENDIF

;�f���ɂ��␳
;�@�B(�d��)
;SIF TALENT:(LOCAL:99):�@�B
;	TIMES LOCAL:1 , 1.50
;���(�ɂ߂Čy��)
;SIF TALENT:(LOCAL:99):���
;	TIMES LOCAL:1 , 0.60
;�S(�����d��)
;SIF TALENT:(LOCAL:99):�S
;	TIMES LOCAL:1, 1.10
;�_��(�����y��)
;SIF TALENT:(LOCAL:99):�_��
;	TIMES LOCAL:1 , 0.90

;�̏d����
BASE:(LOCAL:99):21 = LOCAL:1
;[�I�g�R][�ӂ��Ȃ�][�]�Ȃǂ�����
;SIF TALENT:(LOCAL:99):���� == 2 || TALENT:(LOCAL:99):121 || TALENT:(LOCAL:99):123
;	CALL MAKE_PENIS_SIZE, LOCAL:99

;�g�̑���t���O�𗧂Ă�
;CFLAG:(LOCAL:99):�g�̑��� = 1
;[�c���^�c���ލs]�����Ő��������݂̂���q(MARK:(LOCAL:99):���� == 0)�̓t���O��Q����
;SIF TALENT:(LOCAL:99):�c���^�c���ލs && MARK:(LOCAL:99):���� == 0
;	CFLAG:(LOCAL:99):�g�̑��� = 0

;--------------------------------------------------
;�D�P���ɑ�������E�F�X�g(����)�Ƒ̏d�𑀍삷��
;--------------------------------------------------
;LOCAL:0 ��� �t�Z�p�ϐ�
;LOCAL:1 ��� �����ۑ��p�ϐ�
;LOCAL:10 ��� �O��v���g���ۑ�
@MAKE_BABY_SIZE, ARG
LOCAL:10 = BASE:ARG:20
CFLAG:ARG:�g�̑��� = 0
CALL MAKE_SIZE, 1, ARG

;IF CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y
;	LOCAL:0 = (CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y * 100) / (LOCAL:10 / 15)
;	LOCAL:0 /= (20 - (CFLAG:ARG:77 - DAY) + 1)
;ENDIF

;LOCAL:1 = (13 + RAND:6)
;�D�P�����T�C�Y�������������Ȃ��悤�ɒ���
;LOCAL:1 = MAX(LOCAL:0, LOCAL:1)
;CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y = LOCAL:1 * (20 - (CFLAG:ARG:77 - DAY))
;CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y *= (BASE:ARG:20 / 15)
;CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y /= 100

;-------------------------------------------------
;�g���E�̏d�E3�T�C�Y�̕\������
;-------------------------------------------------
;�g���E�̏d�E3�T�C�Y��\�����܂�
;BASE:20 �c �g��
;BASE:21 �c �̏d
;BASE:22 �c �o�X�g
;BASE:23 �c �E�F�X�g
;BASE:24 �c �q�b�v
;LOCAL   �c �ϐ��̈ꎞ�ۑ��p
@SHOW_SIZE, ARG
IF CFLAG:ARG:�g�̑��� == 0 && ARG != NO:0
	PRINTL
	PRINTFORML �� �T�C�Y ��-------------------------------------------------------------------------
	PRINTL  ������
ELSE
	;�g���E�̏d�E3�T�C�Y�̐�������
	IF CFLAG:ARG:�g�̑��� == 2
		CALL MAKE_SIZE, 1, ARG
	ENDIF
	PRINTL
PRINT ��
CALL PRINTBUTTON_EX("[�T�C�Y]",160,TFLAG:160)
PRINTL ��------------------------------------------------------------------------
	IF !TFLAG:�T�C�Y�\��
	;SIF TALENT:MASTER:998 && (NO:ARG == 2048 || NO:ARG == 2049)
	;	PRINTFORM 	�����ς݂Ȃ�1:{MARK:ARG:����}
	;�v���C���[�͕s��
	IF ARG == NO:0
		PRINTFORM  �g��:???cm
	ELSEIF TALENT:ARG:�̌^ == -5
		PRINTFORM  �g��:{BASE:ARG:�g�� / 100}.{BASE:ARG:�g�� % 10}cm
	ELSE
		PRINTFORM  �g��:{BASE:ARG:�g�� / 10}.{BASE:ARG:�g�� % 10}cm
	ENDIF
	;�v���C���[�͕s��
	IF ARG == NO:0
		PRINTFORM    �̏d:??kg
	;�D�P�����̏ꍇ�\�����l�␳
	ELSEIF TALENT:ARG:�D�P
		IF TALENT:ARG:�̌^ == -5
			LOCAL:11 = BASE:ARG:�̏d + (CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y / 20) / 34
			PRINTFORM    �̏d:{BASE:ARG:�̏d /6 +(BASE:ARG:�̏d /24 *CFLAG:ARG:�D�P�o�ߓ��� /100)}g
			PRINTFORML  �D�P�O({BASE:ARG:�̏d / 6}g)
		ELSE
			LOCAL:11 = BASE:ARG:�̏d + (CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y * 10) / 34
			PRINTFORM    �̏d:{BASE:ARG:�̏d / 10 +(BASE:ARG:�̏d /40 *CFLAG:ARG:�D�P�o�ߓ��� /100)}.{LOCAL:11 % 10}kg
			PRINTFORML  �D�P�O({BASE:ARG:�̏d / 10}.{BASE:ARG:�̏d % 10}kg)
		ENDIF
	ELSE
		;���l�̑̏d�Ƃ�
		IF TALENT:ARG:�̌^ == -5
			PRINTFORM    �̏d:{BASE:ARG:�̏d / 6}g
		ELSE
			PRINTFORM    �̏d:{BASE:ARG:�̏d / 10}.{BASE:ARG:�̏d % 10}kg
		ENDIF
	ENDIF
	;[�I�g�R]�łȂ��v���C���[�͔�\���ł͂Ȃ��s��
	IF ARG == NO:0 && TALENT:ARG:���� != 2
		PRINTFORML    �a:??cm/ �v:??cm/ �g:??cm
	;[�I�g�R]������3�T�C�Y�͕\�����Ȃ�
	ELSEIF TALENT:ARG:���� != 2
		IF TALENT:ARG:�̌^ == -5
			PRINTFORM    �a:{BASE:ARG:�o�X�g / 100}.{BASE:ARG:�o�X�g % 10}cm
		ELSE
			PRINTFORM    �a:{BASE:ARG:�o�X�g / 10}.{BASE:ARG:�o�X�g % 10}cm
		ENDIF
		CALL PRINT_CUPSIZE , ARG
		;�D�P�����̏ꍇ�\�����l�␳
		IF TALENT:ARG:�D�P
			IF TALENT:ARG:�̌^ == -5
				LOCAL:13 = BASE:ARG:23 + CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y
				PRINTFORM / �v:{BASE:ARG:23 / 100 +(BASE:ARG:23 /200 *CFLAG:ARG:�D�P�o�ߓ��� /100)}.{LOCAL:13 % 10}cm
				PRINTFORM  �D�P�O({BASE:ARG:23 / 100}.{BASE:ARG:23 % 10}cm) /
			ELSE
				LOCAL:13 = BASE:ARG:23 + CFLAG:ARG:�D�P�ɂ��ǉ��T�C�Y
				PRINTFORM / �v:{BASE:ARG:23 / 10 +(BASE:ARG:23 /20 *CFLAG:ARG:�D�P�o�ߓ��� /100)}.{LOCAL:13 % 10}cm
				PRINTFORM  �D�P�O({BASE:ARG:23 / 10}.{BASE:ARG:23 % 10}cm) /
			ENDIF
		ELSE
			IF TALENT:ARG:�̌^ == -5
				PRINTFORM / �v:{BASE:ARG:23 / 100}.{BASE:ARG:23 % 10}cm /
			ELSE
				PRINTFORM / �v:{BASE:ARG:23 / 10}.{BASE:ARG:23 % 10}cm /
			ENDIF
		ENDIF
		IF TALENT:ARG:�̌^ == -5
			PRINTFORML  �g:{BASE:ARG:24 / 100}.{BASE:ARG:24 % 10}cm
		ELSE
			PRINTFORML  �g:{BASE:ARG:24 / 10}.{BASE:ARG:24 % 10}cm
		ENDIF
	ENDIF

	PRINTFORM  �̌^�F
	IF TALENT:ARG:�D�P & !TALENT:ARG:150 & !TALENT:ARG:151
		PRINTL �D�w�^
	ELSEIF TALENT:ARG:�D�P & (TALENT:ARG:150 || TALENT:ARG:151)
		PRINTL HANZAI�I�D�w�^
	ENDIF
	SIF BASE:ARG:�o�X�g >= 1000
		PRINT ���[�g�����^
	IF 0
	ELSEIF TALENT:ARG:�̌^ == -5
		IF TALENT:ARG:�o�X�g�T�C�Y > 0
			PRINTL �G���t�B�M���A
		ELSE
			PRINTL �l�`�T�C�Y
		ENDIF

	ELSEIF TALENT:ARG:�̌^ == -2 || TALENT:ARG:�̌^ == -1
		IF TALENT:ARG:�o�X�g�T�C�Y > 0
			PRINTL �g�����W�X�^�O���}�[
		ELSE
			PRINTL ����
		ENDIF
	ELSEIF (TALENT:ARG:150 || TALENT:ARG:151)
		IF TALENT:ARG:�o�X�g�T�C�Y == 2
			PRINTL ��������
		ELSEIF TALENT:ARG:�o�X�g�T�C�Y == 1
			PRINTL ��������
		ELSEIF TALENT:ARG:�o�X�g�T�C�Y == 0
			PRINTL �ӂ���݂���
		ELSE
			PRINTL �q���̌^
		ENDIF
	ELSE
		SIF TALENT:ARG:�̌^ > 0
			PRINT ���g
		IF TALENT:ARG:�̌^ == -2
			LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /27)) /25
		ELSEIF TALENT:ARG:�̌^ == -1
			LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /24)) /25
		ELSEIF TALENT:ARG:�̌^ <= 1
			LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /21)) /25
		ELSE
			LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /22)) /25
		ENDIF
		IF LOCAL > 20
			PRINTL ����
		ELSEIF LOCAL > 15
			PRINTL ����
		ELSEIF LOCAL > 12
			PRINTL ����
		ELSEIF LOCAL > 8
			PRINTL ����
		ELSEIF LOCAL > 4
			PRINTL ����
		ELSEIF LOCAL > 2
			PRINTL �n��
		ELSE
			PRINTL ���
		ENDIF
	ENDIF

	;[�I�g�R][�ӂ��Ȃ�][�]
	;IF TALENT:ARG:120 || TALENT:ARG:121 || TALENT:ARG:123
	;	;�y�j�X�̑傫���A�T�C�Y�\��
	;	PRINTFORM  �o
	;	SIF TALENT:ARG:123
	;		PRINTFORM (�)
	;	PRINTFORM :{BASE:ARG:15 / 10}.{BASE:ARG:15 % 10}cm �c
	;	VARSET LOCALS,""
	;	SPLIT "(-),(�}�C�N���y�j�X),(�|�[�N�r�b�c),(�e�`��),(��),(�}�O�i��),(����),(��R�̑�),(�H)",",",LOCALS
	;	LOCALS:0 = %LOCALS:(BASE:ARG:16)%
	;	PRINTFORML %LOCALS%
	;ENDIF

	;�N�����傫���l�p
	;IF BASE:ARG:7 > 0
	;	LOCAL = (BASE:ARG:7 * BASE:ARG:7) / 150
	;	;�N���̑傫��
	;	PRINTFORML  ��:{LOCAL / 10}.{LOCAL % 10}cm
	;ENDIF

	;CALL NEW_DRAWLINE
	ENDIF
	ENDIF
PRINTL

;�o�X�g�̃J�b�v�T�C�Y�����y�ѕ\������
@PRINT_CUPSIZE , ARG , ARG:1
VARSET LOCALS,""
SPLIT "(-) ,(AAA) ,(AA) ,(A) ,(B) ,(C) ,(D) ,(E) ,(F) ,(G) ,(H) ,(I) ,(J) ,(K) ,(L) ,(M) ,(N) ,(O) ,(P) ,(Q) ,(R) ,(S) ,(T) ,(U) ,(V) ,(W) ,(X) ,(Y) ,(Z) ,(Z+) ,(�K�i�O) ",",",LOCALS
IF TALENT:ARG:�̌^ == -2
	LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /27)) /25
ELSEIF TALENT:ARG:�̌^ == -1
	LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /24)) /25
ELSEIF TALENT:ARG:�̌^ <= 1
	LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /21)) /25
ELSE
	LOCAL = (BASE:ARG:�o�X�g - (BASE:ARG:�E�F�X�g + BASE:ARG:�g�� /22)) /25
ENDIF
;LOCAL = (BASE:ARG:22 - ((((BASE:ARG:20 * 100) / 22) - ((BASE:ARG:20 * 100) / BASE:ARG:23)) / 10)) / 25
;������ϐ����኱�s���R�Ȃ̂Ŗ������쐬
LOCAL = MAX(LOCAL , 1)
LOCAL = MIN(LOCAL , 30)
LOCALS:0 = %LOCALS:(LOCAL)%
;[�I�g�R]�łȂ��v���C���[�͔�\���ł͂Ȃ��s��
IF ARG == NO:0 && TALENT:ARG:���� != 2
	PRINTFORM �H
ELSE
	PRINTFORM %LOCALS:0%
ENDIF

path: 原版+前人整合等各种readme/パッチ/eraTW4.632_宴会会場修正パッチ/ERB/ステータス表示関連/SIZE.ERB