code:
;*************************************************************************************
;	�A���X�E�}�[�K�g���C�h�@����
;
;	�u�����Ƃ������̎��I�������v
;	�D���������Ă�̂Ń\�[�X�߂����ቘ���@���̂����������肷����Ď��̒��̃T�O�����񂪌����Ă�
;	�e���v���[�g����ɂ́y����z�����Ă�
;	�ǐ�����Ȃ�����Ă����
;	���l�����Ă�����s�\�ȕ��������Ǝv���̂ŁA�d�l�E��������ꗗ.txt�����邱�Ƃ��I�X�X�����܂�
;
;
;�E�킽���̂��񂪂����������傤���肷�����I�̐ݒ�H
;	�֌W���i�ނƑf���ɂȂ����Ⴄ������
;	�ϑz�G�������i�S���p�ꂾ������
;	���������ǎ��N��
;	����g��(���ȂɁ[)�̌����͌������Ȃ��@�܂莩�������I
;	�O���l���Ȃ̂ŊC�O�Ƃ̕������Ȃǂ���΂������i�C���[�W�I�ɃC�M���X�l�I��
;	��C�̈����ɍ���i�������L�����Ƃ��Ďg���Ă݂�j
;	��΋�����񐔑�����[��������ԉ����f��p�x�m���Ă��[�c�c��ʏ��q�Ȃ畁�ʂ�
;	�Ȃ�ł������Ă���镁�ʂ̎q�ƁA�Ȃɂ������Ă���Ȃ����l�ǂ����c�c�Ȃ�ł������Ă����A���X�������
;	�ꐫ�͍��߁A�Â₩��������̂����Ɂ@"�₵������"
;	����ɂȂ�ƒj��ʖڂɂ���T�^���킢
;
;�E�V�`���G�[�V�����v���C�A����g����7��ޗp�ӂ�����
;	�I�i�o���C�x���g�A���������������Ȃ��ƌ��킹����
;	�A���X�̎󂯍U�ߖϑz��7�� ���v14��
;	����g�����j���[
;	1�P�󂯁@2��񂱎󂯁@3�P����@4���C�󂯁@5���C�󂯁@6�������󂯁@7�U����
;	1�N��U�߁@2���C�U�߁@3�S�{�U�߁@4��񂱍U�߁@5�w�^���U�߁@6�����l(���l)�U�߁@7���t�U�߁H
;	���F�̖ϑz���g�����Ȃ��A���X
;	�����R�}���h(�G���n�̂��)���^�C�v�����ɂ��āA���Ƃł������V��(���ゾ���ς���)�Ɏg����悤�ɂ�����
;	���l���m�Ŗ�����������������Ƃ���������Ȃ��I�@�Ƃ肠���������_���b���ōU��4�A�U��3�p�^�[�����܂���
;	��{2�p�^�[�����e�L�X�g�����ő�����ς��邾���Ȃ̂ŘJ�͂��Ȃ��čςސ݌v�ɂȂ��Ă�͂��c�c
;
;	�����͐Q���ӂ�Ƃ������񂶂�Ȃ����ȁi�����c�c�ǂ��G���Ă�̂�///�j���N����ɋN�����Ȃ��݂����Ȃ�
;	�����܂��d�l�悭�킩���ĂȂ��̂Ō�ōl����
;
;�E�呀�ϔO�͕��ʂő��̏��Ɏ�o�����ĂĂ��\��Ȃ�
;	�Ō�ɖ߂��Ă���΂����Ǝv���Ă�
;	����1�Ԃ���Ȃ��Ⴤ�_���Ă����ʓ|����������
;	�a�܂Ȃ����x�Ɏ��i������Ɖ����񂶂�Ȃ�����
;	�}�X�^�[�ɑ��ɗ��l������ƃw�^���B������]
;
;�E�U���󂯂𑕂�����������
;	���킢��[�������킢
;
;
;*************************************************************************************
;	�����㏑����ł̗���������
;
;	�f�l�l���̂Ղ낮��ޓI�Ȃ���
;	�Ȃ�ׂ���Ŏ�o�����₷���悤��
;	�p�ꂪ�s���R�ł��C�ɂ��Ȃ��A�����������{�ꂷ��낤��
;	KISS�̌�����Y���ȁ��Y��ĂȂ����ǖ����ł����I
;	�֐����Ƃ��͓���K17����@�R�}���h�n�͖����ɒǉ�
;	SELECTCASE��switch�͈Ⴄ�i����
;	�e�L�X�g��̈ʒu�͂ł��邾���C���f���g���񂹗D��ŏ������l����@�ł���IF�Ƃ����Ȃ�RETURN�ŕԂ����Ⴄ
;	�֐����̕ϐ���static�H�O���Q�Ƃł��Ȃ����Ǖێ��͂����炵���̂ŏ������ɋC������
;	�O���[�o��������Ƃ����Ȃ�ׂ�17���āA�L�����ԍ����ς���Ă��Ή��ł���݌v�ɁB�O�̂��ߑ����l�ɖ��f�����Ȃ�����
;	���������łł��邾�����ȏC���@�\��������
;	�ϐ����̓��ɐ��li��������c�Ƃ�s���Ȃ�ׂ�����@���������O�ύX���邩���c�c
;
;	����I�Ȃ���
;	���Ȃ�(�v���C���[)�̌Ăѕ�
;	�䎌��	%K17_CNAME()%	���̂����Ăѕ������͂ŕς�����悤�ɂ��悤�������@���݂̎d�l�͊֌W�ł�����ƕς�邭�炢
;	�n�̕�	%CALLNAME:MASTER% %CALLNAME:TARGET%
;	�C�x���g�A���Ɉ�x�����ʂ�Ȃ��Ƃ���̓����_���v�f�T���߂Ɂ@�p�����[�^�[�̍��ق͂���
;	�t�ɉ��x���ʂ�Ƃ���RAND_SPLIT�ő����悤�Ɍ���������
;	�u���ȂɁ[�v�u�������v�Ђ炪�ȂŌ��킹�Ă݂�
;	�u�A�}��銿���g��������
;	�����Ȃ�ꍇ�Ȃ�ׂ�3�`4�s�̃u���b�N��������
;
;******************************************************************************
;		[�X�V����]
;-2016-
;08/30	Ver0.00				�ċx�ݍŏI���ɂȂ񂩎v��������Emuera�̕׋��J�n�@�ꃖ����Ƀ����[�X�ڎw��
;09/30	����				�������[�X�\��� �i�����߂ł��@���ʂʁA���j���܂Ńo�O���C�ɂȂ�ӏ��f�o�b�O
;10/03	���� Ver0.01		�������[�X
;10/08	���� Ver0.02		��ɃR�}���h�̏C���@�֌W���ō��l���̃q���g�\���ŃG���[��������s��C��
;10/14	���� Ver0.02�C��	�C�x���g.ERB�̂ݏC���p�b�`�@�X���ł̃G���[�񍐂��C��
;10/28	���� Ver0.03		��ɃR�}���h�ǉ�
;11/15	���� Ver0.03�C��	�p�b�`�Ή�
;11/25	���� Ver0.10		��ɂ��ӂӌn�̃R�}���h��ǉ�
;11/27	���� Ver0.10�C��	K17_ROUND��0���Z�C��
;11/28	���� Ver0.11		��ɏC���@�����ǉ�
;12/15	���� Ver0.12		�p���c�A���̐V�d�l�ɑΉ��@�R�}���h�����ǉ�
;12/25	���� Ver0.13		���C�Z���X�𐮗��@copyright���폜
;
;**** FlagManagement **********************************************************
;�{����ɂĕύX���Ă���CFLAG�ETCVAR���@����
;�{����������Ŏg�p���Ă���CFLAG�ETCVAR�� �O�̂���17�����Ă���
;�^�O�@M_KOJO_K17_�ǉ����C�u����.ERH�@�Q�Ɓ@�P���ɂ��̗v�f�ԍ����Ȃ�̃t���O���Y�ꂿ���Ȃ��悤�ɖ��O���Ă邾��
;
;
;	[TALENT]	[�^�O]						[����]						[���l]
;TALENT:17:11	K17C_TALENT_�ԓx			�ԓx						����A�C�x���g�ŕϓ�
;TALENT:17:13	K17C_TALENT_�v���C�h		�v���C�h					����A�C�x���g�ŕϓ�
;
;	[TFLAG]
;TFLAG:120		�L�X�}�[�N					�L�X�}�[�N�̃t���O			�{�̂Ŏg���Ă�����́A������Œǉ�����
;
;	[TCVAR]		[�^�O]						[����]						[���l]
;TCVAR:17:183	�L�X�L�����Z��
;TCVAR:17:350	K17C_TC_�f�[�g�C�x����		�f�[�g�C�x���g�ē��t���O	������
;TCVAR:17:351	K17C_TC_�f�[�g�C�x����		�f�[�g�C�x���g�ē��t���O	���肾���Ȃ牽�x�ł�
;TCVAR:17:352	K17C_TC_�����C�C�x���g		������					�ǂ��o���ꂽ�画��������܂��A�ŋ֎~
;TCVAR:17:353	K17C_TC_��C				������
;TCVAR:17:354	K17C_TC_���t�F��			������					�}�X�^�[����ɋN���Ă���ꍇ����΂����Ⴄ
;TCVAR:17:355	K17C_TC_�X�L���V�b�v		�����_���̐ݒ�				���񃉃��_����������ݒ肵�Ē��N������߂�͂�
;TCVAR:17:356	K17C_TC_���ӂӎ哱��		���ӂӊJ�n���̎哱��		�A���X����Ȃ�L����ID MASTER����Ȃ�-1 �I����0�ŏ�����
;TCVAR:17:357	K17C_TC_���܂��Ă�x		���܂��Ă�x�̈ꎞ�ۑ�		�����|�����A�A���X�̗��܂��Ă�x�@�����|�����MASTER�̐���
;TCVAR:17:358	K17C_TC_�l�`���t���O		�l�`�����������̃t���O		�S������Ɨ���
;TCVAR:17:359	K17C_TC_�^�C�v�ꎞ�ۑ�		�b���^�C�v�̈ꎞ�ۑ�		�b���^�C�v��؂�ւ����鎞�̈ꎞ�ۑ��@��ɍS���n
;TCVAR:17:360	K17C_TC_���o���J�E���g		MASTER�̎ː��J�E���g		1��̒��o���񐔂̃J�E���g
;
;	[CFLAG]		[�^�O]						[����]						[���l]
;CFLAG:17:11	��݈����					������Œǉ��_��			�I�i�o������o���Ă��_�� �������Ԃł������̃C�x���g���������Ă݂Ă���
;CFLAG:17:11	��݈���					������Œǉ��㉺			�X�L���V�b�v�ł��d�u���L�X�}�[�N�Ɠ����삠��
;CFLAG:17:13	�f�[�g��C�x���g�t���O		DATE_EVENT�ė��p�ɔ���		UPDATE�Ńo�O�C������ɂ��܂��i�A���X�̂�
;CFLAG:17:324	��ڌ�					�₢�l�ߗp					�A���X�����l�@�������̓}�X�^�[�ɗ��l�����Ȃ��ꍇ�̒m�荇���̂�

;CFLAG:17:1001	K17C_CF_�f���ω��t���O		�f���ω������邩�̃t���O	0�Ŗ��ݒ�(�ω�����) 1�ŕω�����@-1�ŕω��Ȃ�
;CFLAG:17:1002	K17C_CF_FK�}�X�^�[			�L�X�p�t���O				0�ł܂��@1�ł����@MASTER�p�@���łɃJ�E���g���Ă�
;CFLAG:17:1003	K17C_CF_FK�A���X			�L�X�p�t���O				0�ł܂��@1�ł����@�A���X�p�@���łɃJ�E���g���Ă�
;CFLAG:17:1004	K17C_CF_FK					�t�@�[�X�g�L�X�̃t���O		���݂��̏��������@�ǂ����������� 1�ŃA���X�@-1��MASTER�ł�������
;CFLAG:17:1005	K17C_CF_�f�[�g�C�x���g		�f�[�g�C�x���g�t���O		0�ł܂��@1�ł���
;CFLAG:17:1006	K17C_CF_�����C�x���g		�����C�x���g�t���O			0�ł܂��@1�ł����@���łɃJ�E���g
;CFLAG:17:1007	K17C_CF_���Ȏ擾			���Ȏ擾�t���O				0�ł܂��@1�ł���
;																		���Z�p�~�@���y����őΉ��@�g���ĂȂ��̂ŕ��C
;CFLAG:17:1009	K17C_CF_��C�C�x���g		��C�C�x���g				�����ݒ�t���O�@0�Ŗ�����-1�Ŕ����}���@���ꍇ�͂��łɃJ�E���g
;CFLAG:17:1010	K17C_CF_��C�D���x			��C�D���x					������Ƃ������܂��@�J�E���g����
;CFLAG:17:1011	K17C_CF_�l�`�䎌�\���ݒ�	�l�`�䎌�\���ݒ�			���㒆�ɐl�`�̑䎌��\�������邩�̐ݒ�@�C�x���g�Ƃ͖��֌W�@0�Ŗ��ݒ�@1�\���@-1��\��
;CFLAG:17:1012	K17C_CF_�I�i�o���ǉ��C�x	�I�i�o���ǉ��C�x�����t���O	0bit���ӏ܁@1bit���I�i�o���b�N�X
;CFLAG:17:1013	K17C_CF_�I�i�j�[�t���O		��I�i�j�[�̃t���O			�A���X�����䂤�ׂ͂����̂��݂ł����ˁ@�̃t���O�@�I�i�j�[���瑘�����������
;CFLAG:17:1014	K17C_CF_���F�B�C�x���g		���F�B�̃t���O				�V�݂����֌W���̃t���O ���̂����C�x���g���@�C�x���g�Ɋւ�炸�֌W������@�ۑ��̓C�x���g��orUPDATE
;CFLAG:17:1015	K17C_CF_�b��RT				�b��RELATION_TYPE			�O���[�o���ۑ����Ă����b���Ŏg��RT
;CFLAG:17:1016	K17C_CF_�b���^�C�v			�b���^�C�v					�O���[�o���ۑ����Ă����b���^�C�v�@�Ⓒ�Ƃ��܂����������łȂ�Ƃ�
;CFLAG:17:1017	K17C_CF_�b������			�b������					�O���[�o���ۑ����Ă����b�����ʁ@ABL�
;CFLAG:17:1018	K17C_CF_�^��			�p���c�v��or���Ԓ�~�̋^���l	�p���c�v��or���Ԓ�~�������̋^���@�J�E���g���Œ��܂�Ǝ��Ԓ�~�o���ɂȂ� 100�܂�
;CFLAG:17:1019	K17C_CF_�p���c�v��			�A���X�̃p���c�v��			�A���X�����g�̃p���c��v���������Ƃ����邩��ۑ�����
;
;CFLAG:17:1100	K17C_CF_RTF					�擾�t���O�ۑ�				RTF���񔻒�p�ۑ��p�@UPDATE�ōĐݒ肷��Ƃ��Ƃ��g��
;CFLAG:17:1101	K17C_CF_VER					�o�[�W�����ԍ�				����̃o�[�W������ۑ��@�X�V����̖Y��Ȃ��c�c�Y�ꂻ��
;CFLAG:17:1110	K17C_CF_�󂯊���			�ϑz�̊��ǃt���O			�󂯖ϑz	���ǃt���O�ǂ܂�Ă��Ȃ����̂���D��I�Ɂ@�ϑz��ނ̕K���A�ԂŎg������
;CFLAG:17:1111	K17C_CF_�U�ߊ���			�ϑz�̊��ǃt���O			�U�ߖϑz	�S�擾�Ŋ��S�����_��
;CFLAG:17:1120	K17C_CF_�b���^�C�v�I����	�o���^�C�v�̕ۑ�			1120�ԑ�+�^�C�v�ԍ��@�b���^�C�v�I���񐔂�ۑ��@10k�܂�
;
;
;	[CSTR] FIRSTTIME�œƎ��ɂԂ�����ł镶����@��{���񔻒�œǂݔ�΂��̂��߂Ȃ񂩂Ɏg��
;�f�[�g�C�x���g
;�����C�x���g
;�p���c�v��
;�I�i�o��
;�I�i�o���ӏ܏���
;�I�i�o���b�N�X����
;�C����					�_�Y�l�A���q����Ńv�`�C����
;�����|����				�A���X���}�X�^�[�������|��������
;�����|���b���^�C�v�I��
;�E��
;��C�C�x���g
;�X�L���V�b�v�e�ԍ�0�`8
;�R�}���h�ʏ폈���������@SELECTCOM+����i�I�����ł͂Ȃ��ʏ����ɓ�������������@���񎸔s�ȂǂŒe���ꂽ�ꍇ���l�����邽�߁j
;
;******************************************************************************
;### ���㑶�ݔ��� ###################################
@M_KOJO_K17(ARG)
;������RESULTS��ݒ肷��Ƒ��̓��L���������˂����܂�Ă����퓮�삷��
;RESULTS = _TEST_
;�Ɛݒ肷��ƁA"EVENT"�n�C�x���g����
;M_KOJO_TEST_EVENT_K17_1() �Ƃ��ŌĂ΂��c�c�͂��B�i���e�X�g�@�\�j
;������CFLAG��TALENT�𗘗p����ꍇ�A�L�����ԍ����K�{�ł�
;��������L��1������ƁA�������ɃR�}���h���オ�ǂݍ��܂��悤��

CFLAG:K17C_ID:��������L = 1
RETURN 1
;### ����F���� ###################################
@M_KOJO_COLOR_K17
SETCOLOR K17C_�A���XCOLOR
;������SETCOLOR���邱�ƂŌ���ɐF��t�����܂�
;��FSETCOLOR 0xC07070
;����������������������������������������������������
;"UPDATE����"
;����������������������������������������������������
@M_KOJO_UPDATE_K17
;����Ǝ���UPDATE�p
;ENCOUNTER��p�ɓƎ�����t���O���d���񂾏ꍇ���ɂǂ���
;UPDATE�����CFLAG���g���ꍇ�A�L�����ԍ��̎w�肪�K�v�ɂȂ�܂�
#DIM DYNAMIC TEMP=0
CALL COLORMESSAGE("�ϑz�G�������A���X�@�ݒ�EUPDATE�J�n",K17C_�A���XCOLOR,1)
;******************************************************
;�f���ύX�ݒ�
;******************************************************
IF CFLAG:K17C_ID:K17C_CF_�f���ω��t���O == 0
	PRINTL
	CALL CHOICE ("�{����ɂ��A���X�̑f���ω��������܂����H","�ω�������","�ω������Ȃ�")
	PRINTL
	SELECTCASE RESULT
		CASE 0
			CFLAG:K17C_ID:K17C_CF_�f���ω��t���O = 1
			PRINTFORMDL �ȍ~�̍s���ɂ���đf�����ς�邱�Ƃ�����܂�
		CASE 1
			CFLAG:K17C_ID:K17C_CF_�f���ω��t���O = -1
			PRINTFORMDL �ȍ~�A�{����ɂ��f���̕ω��͍s���܂���
	ENDSELECT
ENDIF

;******************************************************
;�l�`�ɂ��ā@�L�������������~����
;******************************************************
TEMP = K17_GET_DOLL(0)
SIF !TEMP
	CFLAG:K17C_ID:K17C_CF_�l�`�䎌�\���ݒ� = -1
SIF !(TEMP & K17C_��C)
	CFLAG:K17C_ID:K17C_CF_��C�C�x���g = -1

IF CFLAG:K17C_ID:K17C_CF_�l�`�䎌�\���ݒ� == 0
	PRINTL
	PRINTFORMDL ���̃A���X������ł͋H�ɐl�`�i\@K17_GET_DOLL(K17C_��C) ? ��C# \@�@\@K17_GET_DOLL(K17C_�H��) ? �H��#\@�j���������肵�܂�
	PRINTFORMD ����Ȋ�����
	TRYCALL K17_�l�`�䎌(K17C_��C,0)
	TRYCALL K17_�l�`�䎌(K17C_�H��,1)
	RESETCOLOR
	PRINTFORMDL ���݂̐ݒ�[�ۗ���-����܂�]
	PRINTL
	CALL CHOICE("�l�`�̑䎌��\�����܂����H","�Ƃ肠�����ۗ�","�����Ă��Ă�������","�ق点��")
	SELECTCASE RESULT
		CASE 0
			PRINTFORMDW �ۗ����܂����BUPDATE����Ƃ܂��I�������ł܂�
			SIF !FLAG:����F
				PRINTFORMW �Ȃ�����F�̐ݒ肪OFF���ƌ����������Ȃ��Ǝv���܂�
		CASE 1
			PRINTFORMDW ����悤�ɐݒ肵�܂���
			CFLAG:K17C_ID:K17C_CF_�l�`�䎌�\���ݒ� = 1
			SIF !FLAG:����F
				PRINTFORMW �Ȃ�����F�̐ݒ肪OFF���ƌ����������Ȃ��Ǝv���܂�
		CASE 2
			PRINTFORMDW �ق�悤�ɐݒ肵�܂���
			CFLAG:K17C_ID:K17C_CF_�l�`�䎌�\���ݒ� = -1
	ENDSELECT
ENDIF

;******************************************************
;���̌�����g�����߂̂����̃o�O������ɏC��
;******************************************************
;eraTW4.43�C���O�̃Z�[�u�f�[�^
;�f�[�g��C�x���g�t���O�o�O�C�� �񍐏C���ς�
;���C�̒l���������Ă������߁A�R�}���h�I������x�Ɏ��Ԃ������Ă����͗l
;�t���O�ł�3�܂ł����Ȃ�Ȃ��͂��Ȃ̂ŁA�Ƃ肠����4�ȏ�Ȃ�C��
IF CFLAG:K17C_ID:�f�[�g��C�x���g�t���O > 3
	PRINTFORM �u�f�[�g��C�x���g�t���O�o�O�����m...
	CFLAG:K17C_ID:�f�[�g��C�x���g�t���O = 0
	PRINTFORM ������...

	IF CFLAG:K17C_ID:K17C_CF_�f�[�g�C�x���g && (CFLAG:K17C_ID:�������� & ����_�L�X)
		SETBIT CFLAG:K17C_ID:�f�[�g��C�x���g�t���O , 0
		PRINTFORM 1�X�V...
	ENDIF
	IF CFLAG:K17C_ID:K17C_CF_�����C�x���g && (CFLAG:K17C_ID:�������� & ����_���l)
		SETBIT CFLAG:K17C_ID:�f�[�g��C�x���g�t���O , 1
		PRINTFORM 2�X�V...
	ENDIF

	PRINTFORMW �C�����܂����v
ENDIF

;������������H�Ȃ��
;�N��o�O�̏C��
;IF TALENT:MASTER:�N�� == -2
;	PRINTFORM �u�N��l�o�O�����m...
;	TALENT:MASTER:�N�� = 0
;	PRINTFORMW �C�����܂����v
;ENDIF
;
;;�̌^�o�O�̏C��
;IF TALENT:MASTER:�̌^ == -3
;	PRINTFORM �u�̌^���l�o�O�����m...
;	TALENT:MASTER:�̌^ = 0
;	PRINTFORMW �C�����܂����v
;ENDIF

;******************************************************
;�������Ă���̃��[�h���̑Ή�
;�Ƃ肠�����֌W���𑝌������ꍇ�͑Ή��ł���悤��
;******************************************************
;�ۑ��t���O�̍X�V
IF K17_RT_FG(K17C_ID) != CFLAG:K17C_ID:K17C_CF_RTF

	;�C�x���g�t���O�Đݒ�Ȃ񂩍I�������l����
	;�Z�[�u�f�[�^����L�X�R�}���h�I��������������T��
	IF !(FIRSTTIME(312,1,K17C_ID) || !FIRSTTIME(20,1,K17C_ID)) && !CFLAG:K17C_ID:K17C_CF_FK�}�X�^�[
		PRINTFORM �u����SELECTCOM FIRSTTIME�����m...
		CFLAG:K17C_ID:K17C_CF_FK�}�X�^�[ = 1
		PRINTFORMW �t���O���X�V���܂����v
	ENDIF

	PRINTFORM �u�ۑ��t���O�̍��ق����m...
	CFLAG:K17C_ID:K17C_CF_RTF = K17_RT_FG(K17C_ID)
	PRINTFORMW �t���O���X�V���܂����v
	PRINTFORML ����q���g��\�����܂�
	PRINTL
	TRYCALL K17_HINT()
	PRINTW
ENDIF
;******************************************************
;����̃o�[�W�����Ǘ�
;INT�Ȃ�ŏ����_��2��1���ڂƂ��邩��
;����ȐƎ�Ȃ��̂ł����̂��c�c�H�i����
;******************************************************
IF CFLAG:K17C_ID:K17C_CF_VER < K17C_VER

	PRINTFORM ����̃o�[�W�������ق����m�AUPDATE�A���Ȑf�f���J�n...

	;------------
	;Ver 0.02
	;------------
	IF CFLAG:K17C_ID:K17C_CF_VER < 002
		;�X�J�[�g�߂���ŗ^�������ǂ��������C�� ����e�X�g����
		;CSTR����w�蕶������������č폜�@/�؂�l��
		TEMP = K17_AUTO_SPLIT_NUM(CSTR:K17C_ID:0,"/","330����")

		;���ǁ���������������
		IF CFLAG:K17C_ID:�D���x <= 5000 && TEMP != -1
			;���ǂ�������
			CSTR:K17C_ID:0 = %K17_CHANGE_SPLIT(CSTR:K17C_ID:0,"/",TEMP)%/
			;�C���A�i�E���X
			CALL COLORMESSAGE("\n�R�}���h�F�X�J�[�g���߂���B�̊��ǂ𖢓ǂɍĐݒ肵�܂���...",K17C_�H��COLOR,1)
			CALL COLORMESSAGE("�������OVer����ς��܂����A�ēx�I�𒧐킵�Ă݂Ă�������...",K17C_�H��COLOR,1)
		ENDIF
	ENDIF
	;------------
	;Ver 0.03
	;------------
	IF CFLAG:K17C_ID:K17C_CF_VER < 003
		;�V�t���O�̏����ݒ�@���Ȃ��Ă��������ǈꉞ
		IF !CFLAG:K17C_ID:K17C_CF_�b��RT
			PRINTFORM \n�V�����ǉ����ꂽ�t���O�̏����ݒ�����܂�...
			CALL K17_SET_AUTO_PVOICE(-1,-1,K17C_��_���˂���n)
			PRINTFORMW �ݒ肵�܂���
		ENDIF
	ENDIF
	;------------
	;Ver 0.10
	;------------
	IF CFLAG:K17C_ID:K17C_CF_VER < 010
		;�V�t���O�̏����ݒ�@�b���^�C�v�̕ۑ�
		PRINTFORML \nVer0.10�̍X�V���s���܂�...
		IF CFLAG:K17C_ID:�������� & ����_���ӂ�
			PRINTFORM ���ӂӍ��ӂ����m...
			PRINTFORM \n�V�����ǉ����ꂽ�t���O�̏����ݒ�����܂�...
			CALL K17_SET_AUTO_PVOICE(,,K17C_��_���˂���n)
			PRINTFORMW �ݒ肵�܂���
		ENDIF
		;�Z�N�n��
		IF !FIRSTTIME("(313|315|316)����",1,K17C_ID)
			PRINTFORM �Z�N�n���R�}���h�̌o�������m...
			PRINTFORM \n�V�����ǉ����ꂽ�t���O�̏����ݒ�����܂�...
			CALL K17_SET_AUTO_PVOICE(,,K17C_��_���ӏP���n)
			PRINTFORMW �ݒ肵�܂���
		ENDIF
		;�I�i�o���b�N�X�o�����Ă�Ζ�����n�ۑ�
		IF !FIRSTTIME("�I�i�o���b�N�X����",1,K17C_ID)
			PRINTFORM �I�i�o���b�N�X�̌o�������m...
			PRINTFORM \n�V�����ǉ����ꂽ�t���O�̏����ݒ�����܂�...
			CALL K17_SET_AUTO_PVOICE(,,K17C_��_������n)
			PRINTFORMW �ݒ肵�܂���
		ENDIF
		;�����|���ꂽ���Ƃ���Ί�{��ۑ�
		IF !FIRSTTIME("�����|����",1,K17C_ID)
			PRINTFORM �����|����o�������m...
			PRINTFORM \n�V�����ǉ����ꂽ�t���O�̏����ݒ�����܂�...
			CALL K17_SET_AUTO_PVOICE(,,K17C_�U��_����`���n)
			PRINTFORMW �ݒ肵�܂���
		ENDIF

	ENDIF
	;------------
	;Ver 0.13
	;------------
	IF CFLAG:K17C_ID:K17C_CF_VER < 013
		;MIN���ŃC���N�������g���Ă����o�O������������
		;�o�����Ă��Ă��A�t���O�l�����Z����Ă��Ȃ��f�[�^�p
		IF CFLAG:K17C_ID:K17C_CF_��C�C�x���g == 0 && FIRSTTIME("��C�C�x���g",1,K17C_ID)
			PRINTFORM ��C�C�x���g�o�������m...
			CFLAG:K17C_ID:K17C_CF_��C�C�x���g++
			PRINTFORM \n�t���O�l�����Z���܂����A�����ԃo�O�����o�����\���󂠂�܂���ł���\n
		ENDIF

		IF CFLAG:K17C_ID:K17C_CF_�����C�x���g == 0 && FIRSTTIME("�����C�x���g",1,K17C_ID)
			PRINTFORM �����C�x���g�o�������m...
			CFLAG:K17C_ID:K17C_CF_�����C�x���g++
			PRINTFORM \n�t���O�l�����Z���܂����A�����ԃo�O�����o�����\���󂠂�܂���ł���\n

			IF K17_RT_FG(K17C_ID) != CFLAG:K17C_ID:K17C_CF_RTF
				PRINTFORM �u�ۑ��t���O�̍��ق����m...
				CFLAG:K17C_ID:K17C_CF_RTF = K17_RT_FG(K17C_ID)
				PRINTFORMW �t���O���X�V���܂����v
				PRINTFORML ����q���g��\�����܂�
				PRINTL
				TRYCALL K17_HINT()
				PRINTW
			ENDIF
		ENDIF

	ENDIF
	;------------
	;����o�[�W�����̍X�V
	;------------
	CFLAG:K17C_ID:K17C_CF_VER = K17C_VER
	PRINTFORMW ...�o�[�W�������X�V���܂���

ELSEIF CFLAG:K17C_ID:K17C_CF_VER  == K17C_VER
	PRINTFORML ���ݍŐV�o�[�W�����ł�
ELSE
	PRINTFORML �Z�[�u�f�[�^�ƌ���̃o�[�W��������v���܂���ł���
	PRINTFORML �Z�[�u�f�[�^�@Ver. {CFLAG:K17C_ID:K17C_CF_VER/100}.{CFLAG:K17C_ID:K17C_CF_VER%100/10}{CFLAG:K17C_ID:K17C_CF_VER%10}
	PRINTFORML ���݂̌���@�@Ver. {K17C_VER/100}.{K17C_VER%100/10}{K17C_VER%10}
ENDIF

CALL COLORMESSAGE(@"�ϑz�G�������A���X�@�ݒ�EUPDATE�I��",K17C_�A���XCOLOR,1)
;�Ȃ񂾂��̌v�Z�́i���� ������[�Ȃ񂩂����������߂Ȃ���������
PRINTFORMW Ver. {K17C_VER/100}.{K17C_VER%100/10}{K17C_VER%10}
RETURN 1

;����������������������������������������������������
;"ENCOUNTER"�n�C�x���g�i�G�N�X�g���\���j
;����������������������������������������������������
@M_KOJO_ENCOUNTER_K17
#DIM DYNAMIC iDoll,2	;�l�`�t���O

;���ΖʁA���A�̃^�C�~���O
;TALENT�̕ύX�͂����łǂ���
;******************************************************
;�l�`�ɂ��ā@�L�������������~����
;******************************************************
SIF !K17_GET_DOLL(K17C_��C)
	CFLAG:K17C_ID:K17C_CF_��C�C�x���g = -1
SIF !K17_GET_DOLL(0)
	CFLAG:K17C_ID:K17C_CF_�l�`�䎌�\���ݒ� = -1
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && !FLAG:���Ԓ�~

	PRINTL

	;�m�荇���̂Ȃ肫��@�h�b�y���M�����K�[���Ή�
	IF FLAG:�Ȃ肫�� && K17_GET_FRIENDS(FLAG:�Ȃ肫��)
		PRINTFORML �u%K17_GT()%�A%K17_CNAME()%�v
		PRINTFORML �u�c�c%K17_CNAME()%�A��ˁH�v
		PRINTFORMDL %CALLNAME:TARGET%�͂Ȃ�������������Ă���
		RETURN 1
	ENDIF

	;�n��Z���N�g�@�n��œ��ʂȉ�b�Ȃǂ����ŏ���
	;���@�̐X�`�l�`�̗m�ق܂Ł@���_�ł�����ǋL����
	;���@�̐X�񎩑�Ŗ��@�̐X�ŉ������
	IF MAIN_MAP != 5 && CFLAG:���݈ʒu >= �X�̓���� && CFLAG:���݈ʒu <= �l�`�̗m��

		;�l���ǂ����̔���
		IF !(TALENT:MASTER:�� || TALENT:MASTER:�d�� || TALENT:MASTER:�z���S ||TALENT:MASTER:������)
			PRINTFORML �u����H�@�c�c����ȏꏊ�܂ŗ���l�ԂȂ�Ē�������ˁv
		ELSE
			PRINTFORML �u����H�@�c�c����ȏꏊ�܂ŗ���l�c�c�d��������H�@��������ˁv
		ENDIF
		PRINTFORMDL ���ꂽ�̂́A���z���ł͒��������m���̊���̏���������
		PRINTFORMDL �����ʂ�悤�Ȕ������ɁA�X�����ƐL�т��肪�����ɐG���
		PRINTFORMDL �j�𗬂��悤�ɔ���\@ TIME:2 < 5 ? �z�̌��ɏƂ炳��� # ��������̒��ł� \@���߂��Č�����
		PRINTFORML �u���͂��̐X�ɏZ��ł���̂�����ǁc�c���������Ė��q������v
		PRINTFORML �u����ȂƂ����l�łӂ�ӂ�ƕ����Ă��Ă͊댯��v
		PRINTFORMDL �S�z����悤�ɂ��������āA�_�炩�����΂�
		PRINTFORMDL �����댯�ȐX�̒��ł��A����Ȕ��l�ȏ����Əo���Ȃ炻������������Ǝv����
		PRINTFORML �u�c�c�c�c�v
		PRINTW
		PRINTFORML �u�c�c���Ζʂ̑���ɑ΂��Đ����ƌy���ˁv
		PRINTFORMDL ���������Ď�������炷�ޏ����������Ƃ�Ă���悤�ɂ�������
		PRINTFORML �u���������������@�g�����x����Ȃ����Ƃˁv
		PRINTFORMDL ����Ȗ��@�g��������̂��낤���H
		PRINTFORML �u�ӂӂ��A���Ăǂ�������ˁv
		PRINTW

	;���@�̐X������̏ꍇ�ŋ��_�ŉ�����@�Ƃ肠�������u��
	ELSEIF MAIN_MAP == 5 && INRANGE(CFLAG:MASTER:���݈ʒu,500,599)

		PRINTFORML �u%K17_CNAME()%�A���������čŋ߂��̕ӂ�ɗ����l������c�c�v
		PRINTFORMDL ���ꂽ�̂́A���z���ł͒��������m���̊���̏���������
		PRINTFORMDL �����ʂ�悤�Ȕ������ɁA�X�����ƐL�т��肪�����ɐG���
		PRINTFORMDL �j�𗬂��悤�ɔ���\@ TIME:2 < 5 ? �z�̌��ɏƂ炳��� # ��������̒��ł� \@���߂��Č�����
		PRINTFORMDL �܂�ł悭�ł����l�`�̂悤���Ǝv�����玸��Ȃ̂��낤��
		PRINTFORMDL ����ɂ��Ă��悭�ł������Ă���
		PRINTW
		PRINTFORML �u�Ȃɂ����������Ƃł�������������H�v
		PRINTFORML �u�Ȃɂ��������炷���Ɍ����̂�B�����󋵂͕����Ă����Ă��D�]���Ȃ���v
		PRINTFORMDL �S�z����悤�ɂ��������āA�_�炩�����΂�
		;����
		IF CFLAG:K17C_ID:���݈ʒu == CFLAG:K17C_ID:�����ʒu
			PRINTFORML �u����Ƃ����͑f�l�ɂ͊댯�Ȃ��̂��u���Ă��邩��A��������������̂͂�߂Ȃ����v
		ELSE
			PRINTFORML �u���ɂ��̕ӂ�͊댯�ȏꏊ������C�����Ȃ����v
		ENDIF
		PRINTFORMDL �����댯�ȏꏊ�ł��A����Ȕ��l�ȏ����Ɖ��Ȃ炻������������Ǝv����
		PRINTFORML �u�c�c�c�c�v
		PRINTW
		PRINTFORML �u�c�c���Ζʂ̑���ɑ΂��Đ����ƌy���ˁv
		PRINTFORMDL ���������Ď�������炷�ޏ����������Ƃ�Ă���悤�ɂ�������
		PRINTFORML �u���������������@�g�����x����Ȃ����Ƃˁv
		PRINTFORMDL ����Ȗ��@�g��������̂��낤���H
		PRINTFORML �u�ӂӂ��A���Ăǂ�������ˁv

	;�l���L��
	ELSEIF CFLAG:MASTER:���݈ʒu == CFLAG:K17C_ID:�E�� && CFLAG:K17C_ID:�E�� == K17C_�E��_�l�`��
		;�l�`����
		IF !CHARA_HOLIDAY(K17C_ID) && BASE:17:�d���� && TCVAR:K17C_ID:�d���J�n <= TIME && TCVAR:K17C_ID:�d���I�� >= TIME
			PRINTFORMDL �l�W��ɖڂ����Ə����Ȑl�`�����s���Ă���
			PRINTFORMDL ���҂͐��m���̊���̏����ŁA�����Ă���l�`�������i�̂悤������
			PRINTFORMDL ���������ʂ�悤�Ȕ��̂��ׂ��w�����G�ɓ����ẮA
			PRINTFORMDL �L���L���ƌ��̎������߂��āA�����Ȑl�`�����邭��ƍI�݂ɗx���Ă���
			PRINTFORMDL ���΂炭���āA�l�`���g�R�g�R�Ɩڂ̑O�܂ŗ���ƁA
			PRINTFORMDL %CALLNAME:MASTER%�Ɍ������Ď��L�΂��Ă���
			TRYCALL K17_�l�`�䎌(K17C_��C,0)
			TRYCALL K17_�l�`�䎌(K17C_�H��,1)
			CFLAG:K17C_ID:K17C_CF_��C�D���x+=20
			PRINTFORMDL %CALLNAME:MASTER%�͐l�`�̎�Ɏw�ŐG��Ȃ��玩�ȏЉ������
			PRINTW
			PRINTFORMDL �悭�o�����l�`���A�Ԃ�Ԃ�Ƒ�ɘr��U���ď΂����悤�Ɍ�����
			PRINTFORMDL ����ɐl�`�𑀍삵�Ă鏗���̘r���ƂĂ��f���炵��
			PRINTFORMDL %CALLNAME:MASTER%�͂��΂炭�l�`�����������Ă���
			PRINTFORMDL �c�c
			PRINTFORMDL �c�c�c�c
			PRINTFORMDW �c�c�c�c�c�c
			PRINTL
			PRINTFORMDL �l�W�肪�ꎞ�I�ɓr�؂��݂̂āA�l�`�𑀂��Ă��������ӂƏ΂�������
			PRINTFORMDL �����ăX�J�[�g�̒[���y�������グ�����������V������
			PRINTFORMDL ����ȉ��Ȏp��%CALLNAME:MASTER%�͔���𑡂���
			PRINTW
		ENDIF

	;��}����
	;����g���ق̎��ꏊ���Ⴄ�̂ł��ꂼ�ꔻ�肵��
	ELSEIF (CFLAG:���݈ʒu == ��}���� && GET_MAPID(CFLAG:���݈ʒu) == 3 && MAIN_MAP != 3) || (MAIN_MAP == 3 && CFLAG:���݈ʒu == 310)

		PRINTFORML �u����ȃJ�r�L���ꏊ�ɗ���҂́A�͂����ēD�_���m�I�T���҂��c�c�H�v
		PRINTFORML �u�ǂ���ɂ��Ă��m���𓐂ނ͈̂ꏏ�ˁv
		PRINTFORMDL �����Ɓc�c�H�@�Ƃ肠�����D�_�ł͂Ȃ�
		PRINTFORMDL ����ɒm���͊w�K������̂��낤
		PRINTFORML �u���̊w�K���Ȃ��̂��A�悭�����ɗ���炵�����v
		PRINTFORMDL �x�����w�K������������������
		PRINTFORML �u�܂������Ȃ񂾂��ǁB�����w�K���Ⴀ�A���ɗ����Ȃ��̂�ˁv
		PRINTW
		;�ς��������񂩂���������ꍇ
		IF CFLAG:MASTER:���݈ʒu == CFLAG:54:���݈ʒu || CFLAG:MASTER:���݈ʒu == CFLAG:59:���݈ʒu
			PRINTFORMDL ���ق�A���ق�A�ƁA�킴�Ƃ炵���P��������
			PRINTFORML �u���߂�Ȃ����A�܌������������͂Ȃ������̂�����ǁc�c�v
			PRINTFORML �u�����̊Ǘ��҂͐F�X�Ɩ��Ȃ̂�v
		ENDIF
		PRINTFORML �u�܂�������c�c������ƁA�������ցv
		PRINTFORMDL �ޏ����菵�����Ė��f�ɂȂ�Ȃ����ȏꏊ�܂őޔ�����
		PRINTFORML �u�����ł��܂茩�����Ȃ��炪�����̂ŁA�����|���Ă��܂������Ǒ��ӂ͂Ȃ���v
		PRINTW
	ENDIF

	;�`�ėp�`
	;�ȉ��Ɍq����悤�Ɂ��������@�����ɍ���Ȃ������������\��

	PRINTFORMDL �C�Â��Ɩڂ̑O��l�`���ӂ�ӂ�Ɣ��ł���
	PRINTFORMDL %CALLNAME:MASTER%�͂��̌��i�ɂ��΂炭�ڂ�D���Ă��܂�
	PRINTFORML �u����A�l�`������Ȃɒ������̂�����v
	SIF MAIN_MAP!=5
		PRINTFORML �u�c�c����ɂ��Ă��ŋߐV�炪�܂����������ĉ\�ŕ��������ǁc�c�v
	PRINTFORMDL �Ȃ����l���݂����悤�ɂ��������ƌ�����
	PRINTFORMDL %CALLNAME:MASTER%�ْ͋����y�����ȏЉ������
	PRINTW
	PRINTFORML �u�Љ�x�ꂽ��ˁB���߂܂��Ď���%NAME:TARGET%�v
	PRINTFORML �u�s��h���@�g����v
	PRINTFORMDL �s��h�c�c�͂Ƃ������A���@�g���������̂�
	PRINTFORM �u���͐l�`�����ł�����̂�v

	;�ꉞ�L�������`�F�b�N���Ƃ��@��̂������
	TRYCALL K17_�l�`�䎌(K17C_��C,0)
	iDoll:0 = RESULT
	TRYCALL K17_�l�`�䎌(K17C_�H��,1)
	iDoll:1 = RESULT
	IF iDoll:0 && iDoll:1
		PRINTFORML �u���̎q��C�A�������͖H���B��낵���ˁv
	ELSEIF iDoll:0
		PRINTFORML �u���̎q��C�B��낵���ˁv
	ELSEIF iDoll:1
		PRINTFORML �u���̎q�͖H���B��낵���ˁv
	ELSE
		PRINTFORMDL ���������Ɛl�`��%CALLNAME:MASTER%�̖ڂ̑O�ɂ���Ă���
	ENDIF
	PRINTFORMDL �悭�ł��Ă��l�`���A�����Ă���悤�ɂ�������
	PRINTFORML �u���J�߂ɗa������h�B��������Ɛ���v
	PRINTFORMDL ���̎w����L�т����̎��H�@�ő����Ă���̂��낤���H
	PRINTFORML �u�܂����@�g���Ƃ��Ă���͔閧�ˁv
	PRINTFORMDL �����z�Ƃ����\��ŏЉ��%CALLNAME:TARGET%�́A
	PRINTFORMDL ���@�g���Ƃ��Ă̔\�͂�A��|����l�`�Ɍւ�������Ă���悤�Ɏf����
	PRINTFORMDL �ꌩ����Ɣ��R�I�Ȃ悤�ȑԓx�ɂ�������
	PRINTL
	PRINTFORMDL �����%CALLNAME:TARGET%�ɑ΂�%CALLNAME:MASTER%��
	PRINTL
	PRINTFORMDL [0]���ꂩ��ǂ��Ȃ邩�y���݂ɂȂ���
	PRINTFORMDL [1]�f���ɂȂ�%CALLNAME:TARGET%�����Ă݂����Ǝv����
	PRINTFORMDL [2]���̂܂܂̌ւ荂��%CALLNAME:TARGET%�ł��Ăق����Ǝv����
	PRINTFORMDL [3]���̑I�����̐�������Ǝv����
	$OPENING_INPUT_LOOP1
	INPUT
	PRINTL
	SELECTCASE RESULT
		CASE 0
			CFLAG:K17C_ID:K17C_CF_�f���ω��t���O = 0
			PRINTFORMDL ���ꂩ�璇�ǂ��Ȃ�̂��y���݂ɂȂ���
			PRINTW
		CASE 1
			CFLAG:K17C_ID:K17C_CF_�f���ω��t���O = 1
			PRINTFORMDL ���ꂩ�璇�ǂ��Ȃ��āA�f���ɂȂ�%CALLNAME:TARGET%�����Ă݂����Ǝv����
			PRINTW
		CASE 2
			CFLAG:K17C_ID:K17C_CF_�f���ω��t���O = -1
			PRINTFORMDL ���ꂩ�璇�ǂ��Ȃ����Ƃ��Ă��A%CALLNAME:TARGET%�͂����ƌւ荂���܂܂Ȃ񂾂낤
			PRINTW
		CASE 3
			PRINTFORMDL [0]��I�ԂƑf���ω�����̂܂ܕۗ�����܂� UPDATE�ň�x�����ύX�ł��܂�
			PRINTFORMDL [1]��I�Ԃƈȍ~�̍s���ɂ���đf�����ω�����A�ŌŒ肳��܂�
			PRINTFORMDL [2]��I�ԂƑf���͕ω��Ȃ��A�ŌŒ肳��܂�
			PRINTFORMDL �����̌����ڂ͂ǂ����I��ł��ς��܂���
			PRINTFORMDL �i�s��Փx���ς�邩�Ǝv���܂�
			;PRINTFORMDL �ǂ����ɂ�����炪���΃f����
			GOTO OPENING_INPUT_LOOP1
		CASEELSE
			GOTO OPENING_INPUT_LOOP1
	ENDSELECT
ENDIF
RETURN 1

;����������������������������������������������������
;"SP_EVENT"�n�C�x���g
;����������������������������������������������������
;==================================================
;�f�[�g�A��Ƀt�@�[�X�gKISS�i���ӂ��t���j
;��{�L�����Z�������A�t�@�[�X�g�L�X���I�����
;��x�ƌ����Ȃ��Ȃ�܂���
;�{����ł͋~�ς����c�c�͂�
;�e�X�g�����@�����s���܂�
;�����C�x���g�ƘA���J�n
;1�x�L�X�L�����Z��������I�����̓p�X����`��
;==================================================
@M_KOJO_SPEVENT_K17_1(ARG,ARG:1)
#DIM DYNAMIC �l�C = 0
#DIM DYNAMIC �X�L�b�v�J�E���g = 0
#DIM DYNAMIC MAX�D���x = 0
#DIM DYNAMIC ���lID = -1
#DIM DYNAMIC MAX�D���xID = -1
#DIM DYNAMIC ���� = 1
#DIM DYNAMIC iID_Count = 0

;������TARGET
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && !FLAG:���Ԓ�~

PRINTL
	IF FIRSTTIME("�f�[�g�C�x���g")
		;�������
		PRINTFORMW �u�˂��A������Ɓc�c�v
		PRINTFORMDL �Ȃ񂾂낤�H�@�ƁA�U��Ԃ��Ă݂��
		PRINTFORMDL %CALLNAME:TARGET%�������Ԃ�߁A�낢���܂ܑ�����
		PRINTFORML �u�����c�c����A�܂�������Ƃˁv
		PRINTFORML �u�����͈��%K17_CNAME()%�ɕt���������ł��傤�v
		PRINTFORML �u�����炿����Ǝ��ɂ��t�������Ȃ�����v
		PRINTFORMDL �c�c
		PRINTFORMDL �c�c�c�c
		PRINTFORMDW �c�c�c�c�c�c
		PRINTFORML �u������Ă����ˁA���Ɍ����f�[�g���Ă��ˁv
		PRINTFORML �u���Ƃ���Ȃ��Ƃ��Ċy�����̂�����v
		IF TCVAR:TARGET:�L�X�L�����Z�� == 1
			PRINTFORML �u%K17_CNAME()%�͂ǂ����������A�����Ɛu���Ă������������̂�v
			PRINTFORMDL �������A�y��������
			RESULT =0
		ELSE
			{
			CALL K17_CHOICE("�u"+K17_CNAME()+"�͂ǂ����������A�����Ɛu���Ă������������̂�v",
							"�������A�y��������","��������܂�c�c","����Ȃ��Ƃ��p���c��������")
			}
		ENDIF
	ELSE
		IF TCVAR:TARGET:�L�X�L�����Z�� == 1
			PRINTFORMW �u�˂��A�����͂ǂ��������c�c�H�v
			PRINTFORMDL �������A�y��������
			RESULT =0
		ELSE
			$DATE_INPUT_LOOP1
			CALL K17_CHOICE("�u�˂��A�����͂ǂ��������c�c�H�v","�������A�y��������","��������܂�c�c","����Ȃ��Ƃ��p���c��������")
		ENDIF
	ENDIF

	SELECTCASE RESULT
		CASE 0
			PRINTFORML �u�����A���肪�Ƃ��B�����y����������v
		CASE 1
			PRINTFORML �u�����A���Ⴂ����c�c�v
			PRINTFORML �u�c�c����ς�C�̖������v
			PRINTFORMDL %CALLNAME:TARGET%�������Ƃ茾���Ă������ܙz�Ƃ�����ɖ߂��Ă���
			PRINTFORML �u���߂�Ȃ����A�Ȃ�ł��Ȃ���v
			PRINTW
			TCVAR:TARGET:�L�X�L�����Z�� = 1
			TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
			RETURN 1
		CASEELSE
			�X�L�b�v�J�E���g++
			IF �X�L�b�v�J�E���g >= 3
				PRINTFORML �u����������c�c�v
				PRINTW
				TCVAR:TARGET:�L�X�L�����Z�� = 1
				TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
				RETURN 1
			ENDIF
			PRINTFORML �u%K17_RS("�^�ʖڂɓ����Ȃ�������/�����Ƙb�����Ȃ�����")%�v
			GOTO DATE_INPUT_LOOP1
	ENDSELECT

	PRINTFORMDL �Ȃ炱�̃f�[�g�͐����������Ǝv��
	PRINTW
	PRINTFORML �u���́c�c�N�Ƃł��f�[�g����킯����Ȃ���v
	PRINTFORML �u���̐X�œƂ�A�l�`�ƈꏏ�ɂ����Ɖ߂����Ă���񂾂Ǝv���Ă��c�c�v
	PRINTFORML �u�ł��ˁA�����f�G�Ȑl�Ɨ������Ă݂����A���Ă�����]���������̂�c�c�v
	PRINTFORMDL %CALLNAME:TARGET%�������A���Ƃ���������߂Ă���

	;�l�C�`�F�b�N ���łɗ��l���N���T���@�A���X�����܂����킢
	MAX�D���x = CFLAG:K17C_ID:�D���x
	MAX�D���xID = K17C_ID
	FOR iID_Count,1,CHARANUM
		;�o�ց@�A���X�ȊO������
		SIF CFLAG:iID_Count:�o�� || iID_Count == K17C_ID
			CONTINUE
		IF MAX�D���x <= CFLAG:iID_Count:�D���x
			MAX�D���x = CFLAG:iID_Count:�D���x
			MAX�D���xID = iID_Count
		ENDIF
		SIF CFLAG:K17C_ID:�D���x <= CFLAG:iID_Count:�D���x
			����++
		SIF TALENT:iID_Count:����
			�l�C += 3
		SIF TALENT:iID_Count:�v��
			�l�C += 1
		IF TALENT:iID_Count:���l
			���lID = iID_Count
			�l�C += 10
		ENDIF
	NEXT

	;MASTER�ɗ��l�����ăA���X�ł͂Ȃ��Ƃ�
	IF !(CFLAG:TARGET:�������� & ����_���l) && TALENT:MASTER:���l
		;�N�����l������
		IF K17_GET_FRIENDS(���lID)
			;���Q��
			PRINTFORML �u���ꂪ���ɂ������%K17_CNAME(���lID)%�̗��l���Ȃ�āc�c�v
			PRINTFORML �u������Ăǂ��������ƂȂ̂�����c�c�v
		;���̑��̐l
		ELSE
			PRINTFORML �u�Ȃ̂�%K17_CNAME()%�ɂ́A���ɗ��l�������Ƃ���ł���v
			PRINTFORML �u���������Ď��A�V�΂�Ă���̂�����H�v
		ENDIF

	;����ȊO
	ELSE
		;�ő�D���x���A���łɗ��l�Ȃ炱��
		IF MAX�D���xID == K17C_ID || TALENT:MASTER:���l == K17C_ID
			PRINTFORML �u�����ǂ��̐��%K17_CNAME()%�̈�Ԃł����邩�s���Ȃ́v
		ELSE
			;������c�c
			IF ���� <= 5
				PRINTFORML �u�Ȃ̂Ɏ��́A%K17_CNAME()%��{����}�Ԏ���ĂƂ���ł���c�c�v
			ELSE
				PRINTFORML �u���́A%K17_CNAME()%�̃n�[�����̈�����ĂƂ���ł���c�c�v
			ENDIF
		ENDIF

		;�l�C������
		SELECTCASE �l�C
			CASE IS >= 10
				PRINTFORML �u������%K17_CNAME()%�A�����ƃ��e��݂�������Ȃ��v
			CASE IS >= 4
				PRINTFORML �u������%K17_CNAME()%�A�F��Ȏq�Ɏ���o���Ă�݂�������Ȃ��v
			CASE IS >= 1
				PRINTFORML �u������%K17_CNAME()%�A���ɂ��C�ɂȂ閺�������ł���v
			CASE 0
				PRINTFORML �u%K17_CNAME()%�́A���̂���ȂɎ������ɍS��̂�����v
		ENDSELECT
	ENDIF

	IF �l�C != 0
		PRINTFORMDL �m���ɁA%CALLNAME:TARGET%�ɑ΂��ĕs�����������̂�������Ȃ�
		;�������I
		PRINTFORML �u���߂�Ȃ����A�ӂ߂Ă����͂Ȃ��̂�v
		PRINTFORML �u�����������ʓ|�������z�Ȃ̂�c�c�v

		IF TCVAR:TARGET:�L�X�L�����Z��==0
			$DATE_INPUT_LOOP2
			CALL K17_CHOICE("�u����ł��܂��A�U���Ă���邩����H�v","�������U��","�������ɁA�߂�ǂ�����","����Ȃ��Ƃ��p���c�ق���")
		ELSE
			PRINTFORML �u����ł��܂��A�U���Ă���邩����H�v
			PRINTFORMDL �������U��
			RESULT = 0
		ENDIF

		SELECTCASE RESULT
			CASE 0
				PRINTFORML �u��A���肪�Ƃ��B%K17_CNAME()%�̂₳�����ɊÂ��Ă��ˁv
			CASE 1
				PRINTFORML �u�c�c����ς�ʓ|��ˁv
				PRINTFORMDL %CALLNAME:TARGET%�������Ƃ茾���Ă������ܙz�Ƃ�����ɖ߂��Ă���
				PRINTFORML �u���߂�Ȃ����A�����U���Ă���Ȃ��Ă�����v
				PRINTW
				TCVAR:TARGET:�L�X�L�����Z�� = 1
				TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
				RETURN 1

			CASEELSE
				�X�L�b�v�J�E���g++
				IF �X�L�b�v�J�E���g >= 3
					PRINTFORML �u����������c�c�v
					PRINTW
					TCVAR:TARGET:�L�X�L�����Z�� = 1
					TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
					RETURN 1
				ENDIF
				PRINTFORML �u�^���ɘb���Ă����Ȃ񂾂��ǁv
				GOTO DATE_INPUT_LOOP2
		ENDSELECT
		PRINTFORML �u���Ⴀ�����ƌ�����ˁc�c�v
	ELSE
		PRINTFORMDL %CALLNAME:TARGET%����ԑ�؂�����A���ꂪ������O�̂��Ƃ��Ǝv��
		PRINTFORML �u���c�c�����A���肪�Ƃ��B%K17_CNAME()%�A��r�Ȃ̂ˁv
		PRINTFORML �u����A���Ⴀ�ˁA���̂ˁA%K17_CNAME()%�̋C�����ɉ������ˁv
	ENDIF

	PRINTW

	;�A���X����L�X
	CALL K17_FIRSTKISS_ALICE(TARGET)
	IF RESULT == 0
		;�����A���X����̃t�@�[�X�g�L�X�����Ă�����Ă����ꍇ
		SELECTCASE K17_GRT(TARGET)
			CASE IS >= K17C_����
				PRINTFORML �u�����Ă��c�c�v
			CASE IS >= K17C_�v��
				PRINTFORML �u�D����c�c�v
		ENDSELECT
		PRINTFORML �u����c�c%K17_HEART()%�v
		PRINTFORML �u������{CFLAG:K17C_ID:K17C_CF_FK�A���X}��ڂ̃L�X�ˁv
		PRINTW
	ENDIF

	IF TALENT:MASTER:�L�X���o�� && TALENT:TARGET:�L�X���o��
		PRINTFORML �u%K17_CNAME()%�̏��߂āA����������������ˁv
		PRINTFORML �u�������߂Ă�%K17_CNAME()%�ł悩�����c�c�v
		PRINTFORMDL ���݂��̋C�������ʂ����悤�ȋC�������c�c
		PRINTW
	ELSEIF TALENT:TARGET:�L�X���o��
		PRINTFORML �u���̏��߂Ă�v
		PRINTFORMDL %CALLNAME:TARGET%�̃L�X�͌����ڂƂ͗����ɏ��X��������
		PRINTW
	ELSEIF TALENT:MASTER:�L�X���o��
		PRINTFORML �u%K17_CNAME()%�̏��߂ĒD�����������ˁv
		PRINTFORMDL %CALLNAME:TARGET%�̃L�X�͂ƂĂ��D��������
		PRINTW
	ENDIF

	PRINTFORML �u�����炿���ƋC�����`���Ă������������̂�c�c�`�����������H�v
	PRINTFORMDL ���̑z���͐O����%CALLNAME:MASTER%�ɏ\���`������c�c
	PRINTW

	IF CFLAG:TARGET:��݈����
		PRINTFORML �u����������A����̌��~�ߗ���v
		PRINTFORMDL ���������Ύ�݂������Ă����C������
		PRINTW
	ELSE
		;�܂�U��
		SIF TALENT:TARGET:����
			PRINTFORML �u���ł��҂��Ă邩��c�c��ɗ��Ăˁv
		SIF TALENT:TARGET:�v��
			PRINTFORML �u���ł��҂��Ă邩��c�c��ɗ��Ȃ�����ˁv
	ENDIF

	IF �l�C == 0 && ���lID == -1
		PRINTFORML �u�c�c����A�o�����͍D���ˁv
	ELSEIF �l�C >= 1 && ���lID != -1
		PRINTFORML �u�c�c�N�ɂ������Ȃ���v
	ELSEIF �l�C >= 1
		PRINTFORML �u�c�c����A�o�����͂܂��܂��ˁv
	ENDIF

	;���l�����łɂ���ꍇ
	IF !(CFLAG:TARGET:�������� & ����_���l) && TALENT:MASTER:���l
		IF K17_GET_FRIENDS(���lID)
			PRINTFORML �u�c�c%K17_CNAME(���lID)%�ɂ��ˁv
		;���̑��̐l
		ELSEIF !(���lID == -1)
			PRINTFORML �u�c�c���l�ɂ����Ăˁv
		ENDIF
	ENDIF
	PRINTFORMDL %CALLNAME:TARGET%�͚����悤�Ɏ����řꂢ��

	;�����}�W������@���㑤����ĂԂ̂��l���ďI������
	TCVAR:TARGET:�L�X�L�����Z�� = 0
	CFLAG:K17C_ID:K17C_CF_�f�[�g�C�x���g =1
	SETBIT CFLAG:TARGET:�f�[�g��C�x���g�t���O,0
	TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x���� = 1
	CALL K17_RELATION_EV(K17C_RTF_����)
	SIF !RESULT
		PRINTW
ENDIF
RETURN 1

;==================================================
;�f�[�g�A��ɍ����i���l���t���j
;==================================================
@M_KOJO_SPEVENT_K17_2(ARG,ARG:1)
;������TARGET
#DIM EVck=0	;�f�[�g�C�x���g�ɍs���Ă����`�F�b�N
#DIM iRT=0
#DIM iRTF=0

EVck = 0
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && !FLAG:���Ԓ�~
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�������e
	;���̍������e�\����Ɏ󂯂邩�ǂ����̑I�𕪂��\������܂�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0

		;-------------------------------------------------
		;�f�[�g�C�x���g�O�ɍ����ɓ���ꍇ������̂Ő����
		;-------------------------------------------------
		IF !CFLAG:K17C_ID:K17C_CF_�f�[�g�C�x���g
			TCVAR:TARGET:�L�X�L�����Z�� = 1
			EVck=1
			CALL M_KOJO_SPEVENT_K17_1(TARGET)
			SETBIT CFLAG:ARG:�f�[�g��C�x���g�t���O , 0
		ENDIF

		;�e�평����
		CFLAG:K17C_ID:K17C_CF_�����C�x���g = MIN(CFLAG:K17C_ID:K17C_CF_�����C�x���g + 1,10000)
		iRT = K17_GRT(TARGET)
		iRTF = K17_RT_FG(TARGET)
		;-------------------------------------------------
		;����
		;-------------------------------------------------
		IF FIRSTTIME("�����C�x���g",1) && EVck==0
			;�������@�f�[�g�C�x���g�o�R����΂�
			PRINTFORML �u�c�c�i�悵���j�v
			PRINTFORMDL �Ȃ񂾂낤�A�}�Ɂc�c
			PRINTFORMDL %CALLNAME:TARGET%�����茝������č\���Ă���
			PRINTFORML �u�c�c���c�c�����`�`�`%K17_BLUSH()%�v
			PRINTFORMDL ���A������Ɍ�������Ǝ��܂Ő^���ԂɂȂ��Ę낢�Ă��܂�
			PRINTFORML �u�`�`�`�����A���������v
			PRINTFORMDL �����Ă��̂܂܂ۂ��ۂ��ƒ@���Ă���
			PRINTFORMDL �ɂ��͂Ȃ����A�Ȃ񂾂����炵��
			PRINTW
			CALLF FIRSTTIME("�����C�x���g")
		ENDIF

		;-------------------------------------------------
		;���ڈȍ~��������
		;-------------------------------------------------
		PRINTFORML �u��A������Ɓc�c���������āc�c�v
		PRINTFORMDL �ӂ��ɕ��݂��~��%CALLNAME:TARGET%�����߂�%CALLNAME:MASTER%��%K17_RS("�r/��")%�������񂹁A%K17_RS("���Ɋ�𖄂߂�/�������Ă���")%
		PRINTFORMDL ���̂܂ܓ�����������Ȃ���Â��Ă���
		PRINTW

		;MASTER�ɗ��l�����ăA���X�ł͂Ȃ��Ƃ��@�{�Ƃ���͂��Ȃ�
		IF !(CFLAG:TARGET:1 & 4) && TALENT:MASTER:���l
			SELECTCASE iRT
				CASE IS >= K17C_����
					IF K17_GET_FRIENDS(TALENT:MASTER:���l)
						PRINTFORML �u�c�c����Ȃ���%K17_CNAME(TALENT:MASTER:���l)%��%K17_RS("����/�\����Ȃ�")%���Ă킩���Ă�́v
					ELSE
						PRINTFORML �u�c�c����Ȃ���%K17_RS("���l/�{��")%��%K17_RS("����/�\����Ȃ�")%���Ă킩���Ă�́v
					ENDIF
					PRINTFORML �u�ł�%K17_CNAME()%�̂���%K17_RS("�D����/�����Ă�/��D����")%�̂�v
					PRINTFORML �u����%K17_RS("�n�[�����̖���/�n�[�����̈��/���l/��/����")%�ł�������A�����Ɗo���Ă����Ăˁc�c�v
					PRINTFORML �u�c�c�����Ă��v
				CASE IS >= K17C_�v��
					PRINTFORML �u����ς肻�́c�c����Ȃ���%K17_RS("�悭�Ȃ�/����/�����Ȃ�")%�̂�����c�c�v
					PRINTFORML �u�ł�%K17_RS("��߂��Ȃ���/�~�߂��Ȃ���")%�c�c�v
					PRINTFORML �u�c�c�D����v
			ENDSELECT
			PRINTFORMDL %CALLNAME:MASTER%�͋��ɖ��߂�%CALLNAME:TARGET%�̓��𕏂ő����邱�Ƃ����o���Ȃ�����

		ELSEIF TALENT:MASTER:���l == K17C_ID
			;���l���m
			PRINTFORML �u�ӂ��c�c���߂�Ȃ����B�����A���肪�Ƃ��A�ˁv
			PRINTFORML �u�����c�c�����c�c�����c�c�v
			PRINTFORMDL �Ȃ񂾂��������ĕ��ʂɊÂ���%CALLNAME:TARGET%���������ē��𕏂ŕt����
			PRINTFORML �u�������ė��l���m�ɂȂ����̂ɁA�܂������ƃf�[�g���Ă����̂ˁv
			SELECTCASE iRT
				CASE IS >= K17C_����
					PRINTFORML �u�˂�%K17_CNAME(0,1)%�@�D��%K17_HEART()%�@��D��%K17_HEART()%�@%K17_HEART()%�����Ă�%K17_HEART()%�v
					PRINTFORML �u�������A���������B�Ȃ�ł���ȂɎ��������Ă����̂�v
					PRINTFORML �u�{���ɂ������肪�Ƃ��A�����Ă��%K17_CNAME(MASTER,1)%�v
				CASE IS >= K17C_���獐��
					PRINTFORML �u%K17_RS()%����%K17_RS("�厖�ɂ���/��؂ɂ���/������/��������")%����āA���肪�Ƃ��v
					PRINTFORML �u�����Ă���v
				CASE IS >= K17C_�v�炤�ӂ�
					PRINTFORML �u%K17_CNAME()%���āA�{���Ɏ��̎��D����ˁc�c�H�v
					PRINTFORML �u������A���̂ق��������ƍD����v
				CASE IS >= K17C_�v��
					PRINTFORML �u�ӂӂ��c�c%K17_RS("���_�������/�����S������/���̎��悭�킩���Ă�̂�")%�v
					PRINTFORML �u����Ȃ��������Ă��Ɓv
			ENDSELECT
			PRINTFORMDL %CALLNAME:TARGET%�����ł���ĉ���肾����
			PRINTFORMDL %CALLNAME:MASTER%��%K17_RS("��D����/��������/��؂ȗ��l")%%CALLNAME:TARGET%�Ɗy�����ЂƎ����߂�����

		;-------------------------------------------------
		;���݂��܂��N�Ƃ��t�������ĂȂ��� �{���̎d�l
		;-------------------------------------------------
		ELSEIF !TALENT:MASTER:���l

			;-------------------------------------------------
			;�����@����
			;-------------------------------------------------
			IF CFLAG:K17C_ID:K17C_CF_�����C�x���g == 1
				PRINTFORML �u�˂��A���������āA�Ȃ�Ȃ̂�����c�c�H�v
				SIF iRTF & K17C_RTF_�L�X
					PRINTFORML �u�L�X�͂������c�c�v
				SIF iRTF & K17C_RTF_���ӂ�
					PRINTFORML �u�g�̂̊֌W���c�c���邵�c�c�v
				SIF !FIRSTTIME("�I�i�o��",1)
					PRINTFORML �u�ƂŁc�c�����A����ȂƂ�������ꂿ��������c�c�v

				PRINTFORMDL �������Ɂc�c���܂ł��݂��̊֌W���͂����肳���Ă��Ȃ���������Ȃ�
				PRINTFORML �u%K17_CNAME()%�����Ă܂��N�Ƃ��t�������ĂȂ���ł���v
				PRINTFORML �u�c�c�c�c�v
				PRINTFORMDL ���ꂫ�茾���Ď��̌��t��T���Ă���̂��A����Ƃ��҂��Ă���̂�
				PRINTFORMDL %CALLNAME:TARGET%�͖����̂܂ܘ낫%CALLNAME:MASTER%�̕��̐������������Ă���
				PRINTW
				SELECTCASE iRT
					CASE IS >= K17C_����
						PRINTFORML �u��������A���Ƃ����ƕt�������āc�c��c�c�v
						PRINTFORMDL ����グ��Ɛ^�������Ȗڂ�%CALLNAME:MASTER%�����ߍ����Ă���
						PRINTFORMW �u���c�c%K17_CNAME()%�������Ă�c�c�́v
						PRINTFORML �u����%K17_CNAME()%�Ȃ��̐����Ȃ�čl�����Ȃ���c�c�v

					CASE IS >= K17C_�v��
						PRINTFORML �u��������A���Ƃ����ƕt�������āc�c�������c�c�v
						PRINTFORMW �u�c�c%K17_CNAME()%�c�c�����c�c�D���c�c�Ȃ̂�c�c%K17_BLUSH(3)%�v
						PRINTFORMDL ���܂Ő^���Ԃɐ��߂ĉ�̖��悤�Ȑ��ł���������
						PRINTFORML �u%K17_CNAME()%�A���̂��Ƃ����ƐӔC���Ȃ����A��ˁc�c�v
				ENDSELECT
			;-------------------------------------------------
			;�����@���ڈȍ~�@�A���X���K���Ă����I
			;-------------------------------------------------
			ELSE
				PRINTFORML �u�ӂ��c�c����A�킩��Ȃ��H�@���ꂩ�猾�����Ɓc�c�v
				PRINTFORML �u%K17_CNAME()%�����l���܂ŉ��x�����Č������v
				PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�̕��֌�������ƁA�^�������ȓ��Ō��ߍ����Ă���
				SELECTCASE iRT
					CASE IS >= K17C_����

						PRINTFORMW �u%K17_CNAME()%�A�����Ă�%K17_HEART()%�v

						;����������@���ꂱ��d���ˁH
						PRINTDATADL
							DATAFORM �u%K17_CNAME()%�̂��߂ɖ������э���Ă�������v
							DATAFORM �u���́c�c�������Ȃ��Ƃ����āA�������Ă��\��Ȃ���v
							DATAFORM �u����%K17_CNAME()%�̉��Ŗڂ��o�܂������c�c�v
							DATAFORM �u�����ƖT�ɒu���āA���ł��ǂ��ł��ꏏ�ɋ��ė~�����́v
						ENDDATA
						PRINTFORML �u�����ϔO�����Ⴂ�Ȃ�����c�c�z���g�c�c�v

					CASE IS >= K17C_�v��

						PRINTFORMW �u%K17_CNAME()%�A�D������v
						PRINTFORML �u���ƕt�������ĉ������v
						PRINTFORML �u�ǁA�ǂ��H�@�Ƃꂸ�Ɍ����Ă�������v
				ENDSELECT

				;�R���I
				PRINTFORML �u�܂����ꂾ���҂�����Ă�񂾂���A�����ɓ�������Č����Ă�킯����Ȃ��̂�v
				PRINTFORML �u�ł��c�c�����Ɗo���Ă����Ăˁv

			ENDIF
		ENDIF

		;�t���O�`�F�b�N
		CALL K17_RELATION_EV(K17C_RTF_����)
		TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�����I�b�P�[�i���l���t���j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML �u�c�c�c�c�c�c�v
		PRINTFORML �u�c�c�����Ɓc�c�z���g�Ɏ��ł����́c�c�H�v
		PRINTFORMDL �������B%CALLNAME:TARGET%�Ɨ��l���m�ɂȂ�
		PRINTFORMDL �������������肾
		PRINTW
		PRINTFORML �u�킽���c�c�����I�@�����Ɖ����āA�Y��Ȗ��ɂȂ�I�v
		PRINTFORMDL ���ł��\�����Ǝv�����c�c
		PRINTFORML �u%K17_CNAME()%�ɑ����������l�ɂȂ肽���̂��v
		PRINTFORML �u���肪�Ƃ��A%K17_CNAME()%�B���A�撣�邩����v
		PRINTW
		PRINTFORML �u%K17_CNAME()%�A�����Ă���%K17_HEART()%�v
		PRINTFORMDL �����Ƌ��������l�q��%CALLNAME:MASTER%�ɏΊ�ŕ������Ă���%CALLNAME:TARGET%
		PRINTFORMDL ����͂���܂łɌ����ō��̏Ί炾����
		;�t���O�`�F�b�N
		CALL K17_RELATION_EV(K17C_RTF_���l)
		TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�������s
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2

		;�U��ꂽ�񐔂ɂ���ĕ���
		SELECTCASE CFLAG:K17C_ID:K17C_CF_�����C�x���g
			CASE IS >= 10
				PRINTFORML �u����10��ȏ�U��ꂿ����Ă�̂ˁc�c�v
				PRINTFORML �u�c�c�΂����c�c�v
				PRINTFORMDL ����%CALLNAME:TARGET%�̖ڂ���嗱�̗܂����Ă��܂����c�c
				PRINTFORML �u�c�c�c�c�ł��c�c��D���c�c�v
			CASE IS >= 5
				PRINTFORML �u�ӂ��c�c�c�c�v
				PRINTFORML �u�킩���Ă�c�c�c�c�킩���Ă邩��A�Ȃɂ�����Ȃ��Łc�c�v
				PRINTFORMDL %CALLNAME:TARGET%�͂��������Ċ����炵�Ă��܂��B�����ԗ�������ł���悤�Ɍ�����
			CASEELSE
				PRINTFORML �u�ӂ��c�c����A���v�v
				PRINTFORML �u���x�ł��A�^�b�N���āA��ΐU��������Ă��񂾂���c�c�v
				PRINTFORMDL ���������ċC��ɐU�镑��%CALLNAME:TARGET%�����A��������Ɩڂɗ܂�������ł���悤�Ɍ�����
		ENDSELECT
		PRINTFORMDL �����%CALLNAME:TARGET%�̎p��%CALLNAME:MASTER%�͂����錾�t���Ȃ������c�c
		TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
		PRINTW
		RETURN 1
	ENDIF

TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=1
ENDIF
RETURN 1

;==================================================
;�f�[�g�A��
;==================================================
@M_KOJO_SPEVENT_K17_3(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && !FLAG:���Ԓ�~
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�ʏ�A��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL = 1
	;-------------------------------------------------
	IF LOCAL && ARG == 0

		;�f�[�g�C�x���g���Ĕ���@SP�ē˓��͈�����
		IF TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����==0 && TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����==0 && !FLAG:���Ԓ�~
			CALL K17_DATE_EVENT_RELIEF(TARGET)
			IF TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����
				RETURN 1
			ENDIF
		ENDIF

		SELECTCASE K17_GRT(TARGET)
			CASE IS>=K17C_�v�炤�ӂ�
				PRINTFORML �u�����A�鎞�Ԃ��c�c�v
				PRINTFORML �u���c�ɂ�����c�c%K17_CNAME()%�Ƌ���ƁA���Ԍo�̂�������ˁv
				PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�Ɋ��Y���āA�Ȃ��Ȃ�%K17_RS("��/�g��/�r")%�𗣂������c�ɂ���ł���
			CASE IS>=K17C_�v��
				PRINTFORML �u��A�����͂ǂ������肪�Ƃ��v
				PRINTFORML �u%K17_CNAME()%�Ƃ��ĐF�X�Ɗy�����������v
				PRINTFORMDL �����N�[���Ɍ�����%CALLNAME:TARGET%���������A������%K17_RS("�炪�����Ԃ��悤�Ɍ�����/�q��������܂������Ȃ��ł���/�፷���������Ƃ肵�Ă���C������")%
			CASEELSE
				PRINTFORML �u��A�����l�v
				PRINTFORMDL �ɂׂ��Ȃ��D�u�Ƌ����Ă�����
		ENDSELECT

		;�߂��Ă����̂Ŕ���̂ݖ߂�
		;��x�ڔ��莸�s�i�ʏ�A��j���Ă��C�x���g�������ĂȂ���Γ������ł��C�x���g�����͂�
		;�������{�Ǝd�l�͍l������Ȃ��d���Ȃ���
		;�L�X�L�����Z�������ꍇ�������Ƃ��Ă݂Ȃ��A��������
		TCVAR:K17C_ID:K17C_TC_�f�[�g�C�x����=0

	ENDIF
	;-------------------------------------------------
	;������������C�x���g
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML �u�������ʂ�ԓx�����߂����Ă킯�ˁv
		PRINTFORML �u�܂��������q���Ȃ��̂�v
	ENDIF
	;-------------------------------------------------
	;��������2>1���x���_�E���C�x���g
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u�܂��A�y��_�ˁv
		PRINTFORML �u�܂��撣���č߂������̂�v
	ENDIF
	;-------------------------------------------------
	;��������3>2���x���_�E���C�x���g
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �u�����̂Ƃ���͕]�����Ă��邰��v
		PRINTFORML �u�ł����̒��x�őS�ċ����ꂽ�Ǝv��Ȃ����Ƃˁv
	ENDIF

ENDIF
PRINTW
RETURN 1

;����������������������������������������������������
;"EVENT"�n�C�x���g
;����������������������������������������������������
;==================================================
;�����ő���
;���s�������̂�RETURN����
;�d�����͂Ȃ���
;==================================================
@M_KOJO_EVENT_K17_1(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && CFLAG:K17C_ID:�s�� != 5

	PRINTL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;MASTER�������Ă���
	;�����񏈗�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF !TCVAR:TARGET:�����������

			;���ڂ��o�܂��������Ԃ��X�V����Ȃ��̂ň��A���������Ȃ�̂őޔ�
			IF CFLAG:TARGET:�����ʒu == CFLAG:MASTER:�����ʒu
				TCVAR:TARGET:����������� = 0
				CALL M_KOJO_EVENT_K17_2(1)
				CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O = 0
				RETURN 1
			ENDIF

			;�I�i�o����̑���
			IF CFLAG:TARGET:�I�i�o��
				PRINTFORML �u�����c�c���`�`�`�`%K17_BLUSH()%�v
				;�ӏ�or�I�i�o���b�N�X
				IF CFLAG:TARGET:�I�i�o�� > 1
					SELECTCASE K17_GRT(TARGET)
						CASE IS >= K17C_�v�炤�ӂ�
							PRINTFORML �u�c�c%K17_GT()%�A�ϑԂ���%K17_HEART()%�v
						CASEELSE
							PRINTFORML �u�c�c�c�c�ϑԂ�%K17_BLUSH()%�v
					ENDSELECT
				ENDIF
				PRINTW
				RETURN 1
			ENDIF

			;��I�i�j�[�㑘���@�v�灪
			IF CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O
				SELECTCASE K17_GRT(TARGET)
					CASE IS >= K17C_����
						PRINTFORML �u�c�c%K17_GT()%�c�c%K17_BLUSH()%�v
						PRINTFORML �i�܂�����Ȗϑz�����Ⴂ�܂����c�c���߂�Ȃ������j
					CASE IS >= K17C_�v��
						PRINTFORML �u�c�c%K17_GT()%�c�c%K17_BLUSH()%�v
						PRINTFORML �i���`�`�`%K17_BLUSH()%�@�����A�ӎ������Ⴄ�c�c�j
				ENDSELECT
				PRINTFORMDL �Ȃ񂾂�������%CALLNAME:TARGET%�́A�炪�₯�ɐԂ�����
				CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O = 0
				PRINTW
				RETURN 1
			ENDIF

			;�ʏ폈��
			SELECTCASE K17_GRT_EX(TARGET)
				CASE IS >= K17C_����
					PRINTFORML �u%K17_GT()%�A%K17_CNAME(MASTER,1)%�@������%K17_RS("�����ɗ��Ă��ꂽ/���������Ȃ���")%�̂�����%K17_HEART()%�v
				CASE IS >= K17C_�v�炤�ӂ�
					PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME(MASTER,1)%�@%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
				CASE IS >= K17C_�v��
					PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME()%�A%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
				CASEELSE
					PRINTFORML �u%K17_RS("����/��")%�A%K17_GT()%�v
			ENDSELECT

	;-------------------------------------------------
	;1������x�ɏo��
	;-------------------------------------------------
		ELSE
			;����ȏꏊ�̏���
			IF BATHCHECK(CFLAG:MASTER:���݈ʒu)
				PRINTFORMDL %CALLNAME:TARGET%�͗��̂�r�ŉB���Ă���
				RETURN 1
			ENDIF

			;�ʏ폈��
			PRINTFORMD %CALLNAME:TARGET%��
			SELECTCASE K17_GRT()
				CASE IS >= K17C_����
					PRINTFORMD �y�����U��
					PRINTFORMD %K17_RS("�E�B���N����/�Ί��������/�����Ƃ肵���\���")%
				CASE IS >= K17C_�v��
					PRINTFORMD �y���������
					PRINTFORMD %K17_RS("�����Ԗʂ���/�����Ƃꂽ�悤��/�ڂ������Ǝ�������炵")%
			ENDSELECT
			PRINTFORMDL %CALLNAME:MASTER%��%K17_RS("����Ă���/���A����/�߂Â��Ă���")%

		;������I�[
		ENDIF
	;MASTER�������Ă����I�[
	ENDIF
	;-------------------------------------------------
	;TARGET�������Ă���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !TCVAR:TARGET:����������� && CFLAG:17:�s�� != 5
			;�ʏ폈��
			SELECTCASE K17_GRT_EX(TARGET)
				CASE IS >= K17C_����
					PRINTFORML �u%K17_GT()%�A%K17_CNAME(MASTER,1)%�@%K17_RS("���������/���������Ȃ��ė��������")%%K17_HEART()%�v
				CASE IS >= K17C_�v�炤�ӂ�
					PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME(MASTER,1)%�@%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
				CASE IS >= K17C_�v��
					PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME()%�A%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
				CASEELSE
					PRINTFORML �u%K17_RS("����/��")%�A%K17_GT()%�v
			ENDSELECT

		ELSE
			;����ȏꏊ�̏���
			IF BATHCHECK(CFLAG:MASTER:���݈ʒu)
				PRINTFORMDL %CALLNAME:TARGET%�͗��̂�r�ŉB���Ă���
				RETURN 1
			ENDIF

			PRINTFORMD %CALLNAME:TARGET%��
			SELECTCASE K17_GRT()
				CASE IS >= K17C_����
					PRINTFORMD �y�����U��
					PRINTFORMD %K17_RS("�E�B���N����/�Ί��������/�����Ƃ肵���\���")%
				CASE IS >= K17C_�v��
					PRINTFORMD �y���������
					PRINTFORMD %K17_RS("�����Ԗʂ���/�����Ƃꂽ�悤��/�ڂ������Ǝ�������炵")%
			ENDSELECT
			PRINTFORMDL %CALLNAME:MASTER%��%K17_RS("����Ă���/���A����/�߂Â��Ă���")%
		ENDIF
	ENDIF
	;-------------------------------------------------
	;TARGET�����C�ɓ����Ă��Ĉꏏ�ɓ���
	;@���C�ǂ��o����������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �u������I�H�v
		PRINTFORMDL �����Ă����̂͗��p��%CALLNAME:TARGET%������
		PRINTFORML �u����%K17_CNAME()%���A�N���Ǝv���Ăт����肵����v
		PRINTFORMDL �g�̂�e�܂��Ă�����Ɋ���Ă���
		IF K17_CHECK_RANDOM_EVENT(TARGET) && !TCVAR:K17C_ID:K17C_TC_�����C�C�x���g
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA�^���ԂɂȂ��ē��D�ɐZ�����Ă��܂���
		ELSE
			PRINTFORMDL %K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
		ENDIF
	ENDIF
	;-------------------------------------------------
	;TARGET�����C�ɓ����Ă��ďo�čs����
	;@���C�ǂ��o������ !���� �L�X�O �ԓx2����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;���ǂ��Ȃ�O����
		PRINTFORML �u�b�b�I�H�I�H�@���A����b�I�v
		PRINTFORMDL �ˑR�����Ă����̂͗��p��%CALLNAME:TARGET%������

		;�����_���C�x�@���ӏ܁@�����Ȃ����̂Ŋ֐���
		IF K17_CHECK_RANDOM_EVENT(TARGET) && !TCVAR:K17C_ID:K17C_TC_�����C�C�x���g
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA���������Əo�čs����
		ELSE
			PRINTFORMDL �o�čs���ۂ�%K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
			TCVAR:K17C_ID:K17C_TC_�����C�C�x���g = 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;TARGET�����C�ɓ����Ă��Ēǂ��o���ꂽ
	;@���C�ǂ��o������==0 && ��� && HETEROSEX==1
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;���ǂ��Ȃ�O����
		PRINTFORML �u�b�b�I�H�I�H�@�ŁA�łĂ������I�v
		PRINTFORMDL ���ɋ����̂͗��p��%CALLNAME:TARGET%������
		PRINTFORMDL �Q�Ă��l�q�ŉ���U�肩�Ԃ��Ă���

		IF K17_CHECK_RANDOM_EVENT(TARGET) && !TCVAR:K17C_ID:K17C_TC_�����C�C�x���g
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA�ǂ��o���ꂽ
		ELSE
			PRINTFORMDL �ǂ��o�����ۂ�%K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
			TCVAR:K17C_ID:K17C_TC_�����C�C�x���g = 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�O�o��ő�������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		SELECTCASE K17_GRT_EX(TARGET)
			CASE IS >= K17C_����
				PRINTFORML �u%K17_GT()%�A%K17_CNAME(MASTER,1)%�@%K17_RS("�����������Ďv���Ă��爧�����������/���������Ȃ��Ďv���Ă��Ƃ����")%%K17_HEART()%�v
			CASE IS >= K17C_�v�炤�ӂ�
				PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME(MASTER,1)%�@%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
			CASE IS >= K17C_�v��
				PRINTFORML �u%K17_RS("�����c�c/")%%K17_GT()%�A%K17_CNAME()%�A%K17_RS("������������/�ŋ߂悭����/�܂�������")%�v
			CASEELSE
				PRINTFORML �u%K17_RS("����/��")%�A%K17_GT()%�v
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;���L�����ƃf�[�g���ɑ�������
	;ARG:1�Ƀf�[�g����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;���肪���l�ȏꍇ
		IF TALENT:MASTER:���l == FLAG:�f�[�g����
			PRINTFORML �u����c�c%K17_RS("�����/����")%�c�c�v

			IF K17_RT_FG(TARGET) & K17C_RTF_����
				;�f�[�g����ԕ��̂Ƃ�
				PRINTFORML �u���߂�Ȃ����A%K17_RS("���ז����������/���Z�����݂�����")%�v
				;�m�荇��������
				IF K17_GET_FRIENDS(FLAG:�f�[�g����)
					PRINTFORML �i������%K17_CNAME( FLAG:�f�[�g���� )%�ƃf�[�g�������̂ˁc�c�j
				ELSE
					PRINTFORML �i���̖����{���̖��������̂ˁc�c�j
				ENDIF
			ELSE
				PRINTFORML �u���ƁA���߂�Ȃ����v
			ENDIF

		;����ȊO
		ELSE
			PRINTFORML �u����c�c%K17_RS("�Ӂ[��/�ւ�/�ӂ�")%�c�c�v
			IF K17_RT_FG(TARGET) & K17C_RTF_����
				;�f�[�g����ԕ��̂Ƃ�
				PRINTFORML �u���߂�Ȃ����A%K17_RS("���ז����������/���Z�����݂�����")%�v
				;�m�荇��������
				IF K17_GET_FRIENDS(FLAG:�f�[�g����)
					PRINTFORML �i%K17_CNAME( FLAG:�f�[�g���� )%�Ƃ��f�[�g����̂ˁc�c�j
				ELSE
					PRINTFORML �i���̖����{���̖��Ȃ̂�����c�c�j
				ENDIF
			ELSE
				PRINTFORML �u���ƁA���ז���������ˁv
			ENDIF
		ENDIF

		IF K17_GET_FRIENDS(FLAG:�f�[�g����) && K17_RT_FG(TARGET) == 0
			;�A���X�Ƀt���O�������ĂȂ����@�f�[�g���肪�A���X�̒m�荇��
			SELECTCASE FLAG:�f�[�g����
				CASE K17C_������ID,K17C_�얲ID,K17C_���ID
					PRINTFORML �u%K17_CNAME(FLAG:�f�[�g����)%�ƒ��ǂ����Ă����Ăˁv
				CASE K17C_�H��ID,K17C_�p�`�����[ID,K17C_���f�B�X��ID
					PRINTFORML �u�C�����������%K17_CNAME(FLAG:�f�[�g����)%�ƒ��ǂ����Ă����Ăˁv
				CASE K17C_�_�YID,K17C_���qID,K17C_���C�YID,K17C_����ID
					PRINTFORML �i%K17_CNAME(FLAG:�f�[�g����)%���f�[�g�Ȃ�Ă���̂ˁc�c�j
					PRINTFORML �i����ς茋���Ƃ�����̂�����c�c�j
				CASEELSE
					PRINTFORML �i���̖��A�K��������������ˁc�c�j
			ENDSELECT
		ENDIF
	;���L�����ƃf�[�g���ɑ��������I�[
	ENDIF

PRINTW
ENDIF
RETURN 1

;==================================================
;���N�����Ƃ��i���͂悤����j
;==================================================
@M_KOJO_EVENT_K17_2(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�ʏ�N���i�莞�ɂȂ��ċN���铙�j
	;��_�ЍݏZ�L�����ŗ��疢���̏ꍇ�́A����ɕ����ɓ��荞��ł��Ă���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	PRINTL
		IF TALENT:TARGET:����

			SELECTCASE K17_GRT(TARGET)
				CASE IS >= K17C_����
					;���݈ʒu�Ń����_���C�x���g�U��@�������͐����ցi�댯�����j�Œǉ��C�x
					IF (K17_CHECK_RANDOM_EVENT() || K17_GRT(TARGET) >= K17C_���琶����) && TCVAR:K17C_ID:K17C_TC_���t�F��==0 && CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O == 0
						TRYCALL K17_���t�F���C�x���g(TARGET)
					ENDIF
					IF RESULT == 0
						IF !TCVAR:K17C_ID:K17C_TC_���t�F�� && !TCVAR:TARGET:�����������
							;�莞�N��
							IF TALENT:MASTER:���� >= 2
								PRINTFORM �u���͂悤�c�c���Ă�����ƁA%K17_RS("�Q�Ȃ��������/���A�o�Ă���/��A�Ђǂ��L�l��/�O�A���C�����ς���")%�c�c���������Ȃ����v
							ELSE
								PRINTFORM �u���͂悤�c�c���Ă�����ƁA%K17_RS("�Q�Ȃ��������/���A�o�Ă���/��A�Ђǂ��L�l��")%�c�c���������Ȃ����v
							ENDIF
							TRYCALL K17_�l�`�䎌(-1)
							PRINTFORMDL %CALLNAME:TARGET%�ɗD���������b����Ȃ��������n�܂���
							SIF CFLAG:MASTER:�����ʒu != CFLAG:TARGET:�����ʒu
								PRINTFORMDL �����ƈꏏ�ɏZ�ނ��ƂɂȂ����Ƃ��Ă��A�����������Ă����b���Ă����̂��낤
							PRINTW
							PRINTFORML �u����ł悵���Ɓc�c�͂��I���A�����%K17_HEART()%�v
						ELSE
							;�|��ċN�������Ȃǒ莞�ł͂Ȃ��ꍇ
							PRINTFORML �u�ӂ����c�c���͂悤�v
						ENDIF
					ENDIF
				CASEELSE
					IF !TCVAR:K17C_ID:K17C_TC_���t�F�� && !TCVAR:TARGET:�����������
						PRINTFORML �u���͂悤�A�������ˁc�c�v
						PRINTFORML �u%K17_CNAME()%�̐Q����āA�ӊO�Ɖ����̂ˁA�ӂӂ��v
					ELSE
						PRINTFORML �u�ӂ����c�c���͂悤�v
					ENDIF
			ENDSELECT
		ELSE
			PRINTFORML �u�����c�c�N������������c�c�v
			PRINTFORMDL ���������������Ă���񂾁A���̐l�́c�c
			PRINTFORML �u������Ƃ����l�`�̌�����A�ӂӂ��v
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�Y���Q�N��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;���̑�
	PRINTL
	TCVAR:K17C_ID:K17C_TC_���t�F�� = 1
ENDIF
RETURN 1

;==================================================
;��Q��Ƃ��i���₷�݌���j
;==================================================
@M_KOJO_EVENT_K17_3(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL

	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�����ɋA��i�莞�ɂȂ��ĐQ��j
	;������MASTER�Ɠ����ł��ł��Ⴄ�̂ŏ����ǉ�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1 && (CFLAG:TARGET:�����ʒu != CFLAG:MASTER:�����ʒu)
		SELECTCASE K17_GRT_EX(TARGET)
			CASE IS >= K17C_����
				PRINTFORML �u���c�ɂ�������ǁA%K17_RS("�A��Ȃ���/��ɂ�����/�A����")%�c�c�v

			CASE IS >= K17C_�v��
				PRINTFORML �u���ĂƁA���낻��%K17_RS("�A��Ȃ���/��ɂ�����/�A����")%�v
			CASEELSE
				PRINTFORML �u��A���Ⴀ�܂��v
		ENDSELECT

	ENDIF
	;-------------------------------------------------
	;�������ɂ��Ă���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE K17_GRT_EX(TARGET)
			CASE IS >= K17C_�v�炤�ӂ�
				PRINTFORML �u�c�c�ӂɂ�c�c�ӂ��c�c���߂�c�c�Ȃ����c�c������Ɩ�����v
				PRINTFORMDL %CALLNAME:TARGET%�͂��炤��A�ƏM�𑆂��Ȃ炪%CALLNAME:MASTER%�̐g�̂ɂ��Ȃ��ꂩ�����Ă���
			CASEELSE
				PRINTFORML �u�c�c�ӂ��c�c���Ǝ���A���낻�됇�����K�v�݂����ˁv
				PRINTFORMDL �����т����ݎE���d�����Ȃ񂾂�������Ɖ�������
		ENDSELECT
	ENDIF
	;-------------------------------------------------
	;�������i�N���Ă��Ȃ��̂ŉ�b�Ƃ������͐Q���H�j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3 || LOCAL:1 && ARG == 4
		SELECTCASE K17_GRT(TARGET)
			CASE IS >= K17C_���琶����
				PRINTFORML �u�c�c%K17_CNAME()%�c�c�A���ւցc�c%K17_RS("�D��/�����ƁA����/�����ƁA������")%�c�c�v
			CASE IS >= K17C_�v��
				PRINTFORML �u�c�c%K17_CNAME()%�c�c�A%K17_RS("�D��/������/�΂���")%�c�c�v
			CASEELSE
				PRINTFORML �u�c�c�c�c%K17_RS("�ӂɂ�/�����[/�ӂ�")%�c�c�c�c%K17_RS("��������/�V�����c�c�n�C/���ꂳ��")%�H�@�c�c�v
		ENDSELECT
		PRINTFORMDL ���i�̗l�q��肸����%K17_RS("�q�����ۂ�/���炵��/�f��������")%%CALLNAME:TARGET%���K�������ɖ����Ă���
	ENDIF
	;-------------------------------------------------
	;�C�^�Y����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;���㒆
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML �u���߂�Ȃ����A���������c�c�v
	ENDIF
	;-------------------------------------------------
	;MASTER���_�E���i�����܂ŉ^�΂��j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML �u������ƁI�H�@���C�Ȃ́c�c�H�v
	ENDIF
	;-------------------------------------------------
	;TARGET�������܂Ŗ߂��Ă���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;���̂܂ܒ��ւ��ĐQ��
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF !CFLAG:MASTER:����
				PRINTFORML �u�����Q��̂�c�c�v
				PRINTFORMDL ���ꂾ�������Ă������ƐQ���ɍs���Ă��܂���
			ELSE
				;�}�X�^�[���Q�Ă�ꍇ
				PRINTFORML �u�c�c�c�c�Q�Ă邩�v
				PRINTFORML �u�ӂӂ��A�Ȃ񂩉�����ˁc�c�v
			ENDIF
		ENDIF
		;-------------------------------------------------
		;��������ǂ��o���ꂽ
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML �u�����A�����q�͂����Q�鎞�Ԃ�
			PRINTFORML �u�o�Ă����A�o�Ă����v
		ENDIF
	ENDIF
	;-------------------------------------------------
	;��ݏZTARGET��MAIN_MAP�ŋx�e
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML �u���[��A���������x�܂��Ă��炤��ˁv
	ENDIF
	;���̑�
	PRINTW
ENDIF
RETURN 1

;==================================================
;�ړ������ꂿ����
;==================================================
@M_KOJO_EVENT_K17_4(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�����~�܂���
	;���̌㑘������ɐڑ�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMD %CALLNAME:TARGET%��
		SELECTCASE K17_GRT()
			CASE IS >= K17C_����
				PRINTFORMD �y�����U��
				PRINTFORMD %K17_RS("�E�B���N����/�Ί��������/�����Ƃ肵���\���")%
			CASE IS >= K17C_�v��
				PRINTFORMD �y���������
				PRINTFORMD %K17_RS("�����Ԗʂ���/�����Ƃꂽ�悤��/�ڂ������Ǝ�������炵")%
		ENDSELECT
		PRINTFORMDL %CALLNAME:MASTER%�Ɋ���Ă���
	ENDIF
	;-------------------------------------------------
	;�y����߂��Ēʂ�߂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMD %CALLNAME:TARGET%��
		SELECTCASE K17_GRT()
			CASE IS >= K17C_����
				PRINTFORMD %K17_RS("�y�����U����/�E�B���N����/�Ί��������")%
			CASE IS >= K17C_�v��
				PRINTFORMD %K17_RS("�y�����������/���炿�ƌ���/��߂�Ԃ�")%
		ENDSELECT
		PRINTFORMDL %CALLNAME:MASTER%����������
	ENDIF
	;-------------------------------------------------
	;�������Ēʂ�߂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMD %CALLNAME:TARGET%��
		SELECTCASE K17_GRT()
			CASE IS >= K17C_����
				PRINTFORMD %K17_RS("�M�������𑗂�/�����Ǝ����𑗂�/��������������")%
			CASE IS >= K17C_�v��
				PRINTFORMD %K17_RS("�ڔz������/���炿�ƌ���")%
		ENDSELECT
		PRINTFORMDL %CALLNAME:MASTER%����������
	ENDIF
ENDIF
RETURN 1

;==================================================
;���҉���Ń��[�h�ω�
;==================================================
@M_KOJO_EVENT_K17_5(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
;���ӂӒ��͂Ƃ肠������΂��ď������ꂽ�ق������\��
IF LOCAL && !CFLAG:���ӂ�

	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�m�荇���������Ă���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && K17_GET_FRIENDS(ARG)

		PRINTFORML �u���c�c%K17_GT()%�A%K17_CNAME(ARG)%�v

		;�A���X�����l�ȏꍇ
		IF TALENT:MASTER:���l == TARGET
			PRINTFORML �u�ʂɕςȂ��Ƃ͂��ĂȂ����B%K17_CNAME(ARG)%�A�������%K17_RS("��₩���Ȃ���/���炩��Ȃ���")%�v

		;���肪�}�X�^�[�̗��l�@�͂��c�c
		;�Ƃ肠���������ꍇ�����x�O�ȉ��͂Ȃ��݂���������Ă΂�Ȃ��͂��@�ǂ����ʂɍ��
		;���������������p�̂�����΂����̂�
		ELSEIF TALENT:MASTER:���l == ARG
			SELECTCASE ARG
				CASE K17C_�_�YID,K17C_���qID,K17C_���C�YID,K17C_����ID
					PRINTFORMDL %CALLNAME:TARGET%�͐����ǂ������オ��Ǝp���𐳂���
					PRINTFORML �u�c�c����%NAME:MASTER%����Ƃ��b���Ă��܂����v
					PRINTFORMDL �܂�ő��l�̂悤�Ȉ��������ꂽ
				CASEELSE
					PRINTFORML �u���Ⴂ���Ȃ���%K17_CNAME(ARG)%�A�ʂɕ��ʂɂ��b���Ă���������c�c�v
					PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:ARG%������ƈ�u���h�����悤�Ɍ�����
			ENDSELECT
		ENDIF
	;-------------------------------------------------
	;�m��Ȃ��l�������Ă���
	;-------------------------------------------------
	ELSE
		PRINTFORMDL ��u%CALLNAME:TARGET%��%CALLNAME:ARG%�������ƌ����
	ENDIF
	;-------------------------------------------------
	;���ʏ���
	;-------------------------------------------------
	SELECTCASE K17_GRT()
		CASE IS >= K17C_����
			PRINTFORML �u�c�c�����͓�l�����%K17_RS("�N�����Ȃ���/�Â��ȏꏊ/�������ł���Ƃ���")%�łˁc�c%K17_HEART()%�v
			PRINTFORMDL ����������%CALLNAME:MASTER%�Ɏ��ł����āA���Y���Ă���%CALLNAME:TARGET%�͗���Ă��܂���
		CASE IS >= K17C_�v��
			PRINTFORML �u�c�c%K17_RS("����/�\����Ȃ�/���c�ɂ���")%���ǁA�����܂łˁc�c�v
			PRINTFORMDL ����������%CALLNAME:MASTER%�Ɏ��ł����āA���Y���Ă���%CALLNAME:TARGET%�͗���Ă��܂���
		CASEELSE
			PRINTFORMDL %CALLNAME:TARGET%�͂ɂׂ��Ȃ������A�Ɨ��ꂽ
	ENDSELECT
	PRINTW
ENDIF
RETURN 1

;==================================================
;���ڌ�����
;==================================================
@M_KOJO_EVENT_K17_6(ARG,ARG:1)
;������TARGET
;ARG�ɏ����
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	PRINTL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���ڌ������i��ꍇ���x:��j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML �u�I�H�I�H�@%K17_RS("����/����/�Ȃ��")%�c�c�I�v
		PRINTFORMDL %CALLNAME:TARGET%���Ԗʂ��Ă�Ȃ�ȂƐk���Ȃ��痧���Ă���
		PRINTW
		;�m�荇��������
		SIF K17_GET_FRIENDS(ARG)
			PRINTFORML �i�₾�c�c%K17_CNAME(ARG)%������c�c����Ȃ��Ƃ���́c�c�j

		IF K17_GRT() >= K17C_�v��
			PRINTFORML �i%K17_CNAME()%���āA���������̂��D�݂Ȃ̂ˁc�c�j
			PRINTFORML �i�����Ă�A����������Ă���A�F�X�Ɓc�c�j
			PRINTFORML �i��΂��c�c����A���΂炭�ϑz�����肻���c�c�j
			PRINTW
		ENDIF
		PRINTFORML �u�I�z���A����ȏꏊ�ŁA���́A����ȁc�c�v
		PRINTFORML �u�Ƃɂ����C�����Ȃ������I�v
		PRINTFORMDL �^���ԂȊ������%CALLNAME:TARGET%�ɓ{���Ă��܂���

		;�v��ȏ��MASTER�ɗ��l�����Ȃ�or�A���X�����l
		SIF K17_GRT() >= K17C_�v�� && (!(CFLAG:MASTER:�������� & ����_���l) || CFLAG:TARGET:�������� & ����_���l)
			CFLAG:TARGET:��ڌ� = ARG

		;��݂����͂��Ȃ̂Ńv���C�h�Ƒԓx���������Ⴄ
		CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,1)
		CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�ԓx,1)
	ENDIF
	;-------------------------------------------------
	;�������ƎQ���i��ꍇ���x:���j
	;���l���m����ɂ͗����ł��Ȃ��݂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;-----------
		;�J�n���̎哱��
		;���܂��Ă�x�̈ꎞ�ۑ�
		;�����̂��ӂӏ�Ԃ��݂�
		;-----------
		IF CFLAG:MASTER:���ӂ� == 1
			;MASTER�哱��
			CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_��_����`���n
			TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = -1
			TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = CFLAG:TARGET:���܂��Ă�x
			TCVAR:K17C_ID:K17C_TC_���o���J�E���g = 0
		ELSE
			;�L�����哱��
			CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_�U��_���˂���n
			TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = TARGET
			TCVAR:K17C_ID:K17C_TC_���o���J�E���g = 0
			IF TALENT:MASTER:���� >= 2
				TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = BASE:MASTER:����
			ELSE
				TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = CFLAG:���܂��Ă�x
			ENDIF
		ENDIF

		;�m�荇��������
		SELECTCASE K17_GET_FRIENDS(ARG)
			;�C�����n
			CASE K17C_�얲ID,K17C_������ID,K17C_�p�`�����[ID,K17C_�H��ID,K17C_���ID,K17C_���f�B�X��ID
				PRINTFORML �u%K17_RS("���`��/���`/���`��")%�A%K17_CNAME(ARG)%�A�Ƃ��߂͂��߂�H�@�����������v

			;���h�n
			CASE K17C_����ID,K17C_���C�YID
				PRINTFORML �u%K17_RS("������/���߁[/���[")%�A�Ƃ��߂����Ⴞ�߂ł���A%K17_CNAME(ARG)%�v
				PRINTFORML �u���������Ă��炢�܂��v

			;�_�Y�l�@���q����
			CASE K17C_�_�YID,K17C_���qID

				;�A���X�����l�ȏꍇ
				IF TALENT:TARGET:���l
					IF FIRSTTIME(@"�C����{ARG}")
						;����
						PRINTFORML �u�����c�c����Ȃ��c�c%K17_CNAME(ARG)%�I�H�v
						PRINTFORMDL %CALLNAME:TARGET%�͒��������Ȃ蓮�h�����悤�ŁA����k�킹�Ȃ���Ȃ�Ƃ������Ă���
						PRINTW
						PRINTFORML �u�܂������c�c%K17_CNAME(ARG)%�ɂ�����o���Ă����̂ˁc�c�������c�c�v
						PRINTFORMDL %CALLNAME:ARG%�́w%CALLNAME:TARGET%\@ARG==K17C_�_�YID ? �����#\@�A�Ⴄ�́I�x�ƌ����󂵂Ă����c�c
						PRINTFORMDL �Ȃ񂾂���C����ς����c�c
						PRINTFORMDL �c�c
						PRINTFORMDL �c�c�c�c
						PRINTFORMDW �c�c�c�c�c�c
						;����ɑz�����ā@�e�q���Ƃ����C�Ƃ�����Ȋ����̂��ꂻ��
						PRINTFORML �u�܂�������c�c�ŁA������ď����c�c�A����ˁc�c�v
						PRINTFORMDL %CALLNAME:MASTER%�͑�������������ƝS���Ă��܂���
						PRINTFORML �u�܂��c�c��l�ŃR�\�R�\�����̂́c�c����A�����c�c�����Q��������v
						;PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:ARG%�ɑ΍R�ӎ�������悤������
						PRINTFORML �u�Ƃ������Ƃ��߂͋֎~�I�v
						PRINTW

					ELSE
						;���ڈȍ~
						PRINTFORML �u�����Ɓc�c�܂��c�c�Ȃ́c�c�v
						PRINTFORMDL %CALLNAME:TARGET%�������ꂽ�l�q�ł��ߑ���t���A%CALLNAME:MASTER%��%CALLNAME:ARG%�̊ԂɊ����ē����Ă���
						PRINTFORMDL %CALLNAME:ARG%�͂܂��w%CALLNAME:TARGET%\@ARG==K17C_�_�YID ? �����#\@�A�Ⴄ�́c�c�x�ƌ����󂵂Ă����c�c
						PRINTW
					ENDIF
				ELSE
					PRINTFORML �u�܂������c�c���ɂ������%K17_CNAME(ARG)%�ƈꏏ�ɂ��Ȃ�āc�c�v
				ENDIF
			;�m��Ȃ��l
			CASEELSE
				PRINTFORML �u�c�c���������Ă��炤���H�v
		ENDSELECT
		TRYCALL K17_�����J�n(ARG)
	ENDIF
	;-------------------------------------------------
	;�C�܂������ɗ�������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	;���Ă�������l�������ꍇ�A���������Ɨ�������i���l���������Ă��鑽�l���v���C����TARGET�����l�łȂ��ꍇ����������
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3

		PRINTFORML �u�����߂�Ȃ����A���ז����܂����c�c�v
		;�m�荇��������
		SIF K17_GET_FRIENDS(ARG)
			PRINTFORML �i�₾�c�c%K17_CNAME(ARG)%������c�c����Ȃ��Ƃ���́c�c�j
		;���l������
		SIF TALENT:ARG:���l
			PRINTFORML �i�܂����l���m�Ȃ񂾂���A�����������Ƃ�����ˁc�c�j

		;�v��ȏ��MASTER�ɗ��l�����Ȃ�or�A���X�����l
		SIF K17_GRT() >= K17C_�v�� && (!(CFLAG:MASTER:�������� & ����_���l) || CFLAG:TARGET:�������� & ����_���l)
			CFLAG:TARGET:��ڌ� = ARG

	ENDIF
	;-------------------------------------------------
	;MASTER�ɗU���ĎQ��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;���̑�
	PRINTW
ENDIF
RETURN 1

;==================================================
;�������ꂽ
;==================================================
@M_KOJO_EVENT_K17_7(ARG,ARG:1)
;������TARGET
;ARG�ɖڌ���
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�������ꂽ�i�ڌ��҂̓�ꍇ���x:��j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;�m�荇��������
		SELECTCASE K17_GET_FRIENDS(ARG)
			;�C�����n
			CASE K17C_�얲ID,K17C_������ID,K17C_�p�`�����[ID,K17C_�H��ID,K17C_���ID,K17C_���f�B�X��ID
				PRINTFORML �u%K17_CNAME(ARG)%�I�H�v
				PRINTFORML �u����c�c���́c�c�����ƁA���߂�c�c�v
			;���h�n
			CASE K17C_����ID,K17C_���C�YID,K17C_�_�YID,K17C_���qID
				PRINTFORML �u���I�H�@%K17_CNAME(ARG)%�I�H�v
				PRINTFORML �u����́A���́A�����Ɓc�c�v
				PRINTFORML �u�����A���߂�Ȃ����A�y���ł����c�c�v
			;���̑�
			CASEELSE
				PRINTFORML �u���I�H�@�c�c���́A���߂�Ȃ����v
		ENDSELECT
		;--------------
		;���ӂӂ��I�����ꂽ�ꍇ�̏���
		;--------------
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0

		;�t���O�ۑ�
		SIF CFLAG:�������� & ����_���ӂ�
			TRYCALL K17_RELATION_EV( K17C_RTF_���ӂ� )
	ENDIF
	;-------------------------------------------------
	;�ڌ��҂��������ƎQ���i�ڌ��҂̓�ꍇ���x:���j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;�m�荇��������
		SELECTCASE ARG
			;�C�����n
			CASE K17C_�얲ID,K17C_������ID,K17C_�p�`�����[ID,K17C_�H��ID,K17C_���ID,K17C_���f�B�X��ID
				PRINTFORML �u���c�c%K17_CNAME(ARG)%�H�v
				;���肪���l������@������c�c
				IF !TALENT:ARG:���l
					PRINTFORML �u���āc�c������ƁA���荞�܂Ȃ��́c�c%K17_CNAME(ARG)%�͂��������ˁv
				ENDIF

			;���h�n
			CASE K17C_����ID,K17C_���C�YID,K17C_�_�YID,K17C_���qID
				PRINTFORML �u���I�H�@%K17_CNAME(ARG)%�I�H�I�H�v
				PRINTFORML �u�����A%K17_CNAME(ARG)%���c�c�ꏏ�ɁI�H�@�́A�͂��A�ǂ����c�c�v

			CASEELSE
				PRINTFORML �u���I�H�@�т����肵����c�c�v
		ENDSELECT
		TRYCALL K17_�����J�n(ARG)
	ENDIF
	;-------------------------------------------------
	;�ڌ��҂���������i���l���m���肩
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		;�m�荇��������
		SELECTCASE K17_GET_FRIENDS(ARG)
			;�C�����n
			CASE K17C_�얲ID,K17C_������ID,K17C_�p�`�����[ID,K17C_�H��ID,K17C_���ID,K17C_���f�B�X��ID
				PRINTFORML �u�����A%K17_CNAME(ARG)%�c�c�v
				PRINTFORML �u�C������ꂿ�������ˁc�c�v
				PRINTFORML �u%K17_CNAME()%�A���x������%K17_CNAME(ARG)%���t�H���[���Ă�����̂�v
			;���h�n
			CASE K17C_����ID,K17C_���C�YID,K17C_�_�YID,K17C_���qID
				PRINTFORML �u���I�H�@%K17_CNAME(ARG)%�I�H�v
				PRINTFORML �u�c�c���΂�%K17_CNAME(ARG)%�ɋC�����킹�Ă��܂����̂͂܂�����ˁc�c�v
			;���̑�
			CASEELSE
				PRINTFORML �u���I�H�@�c�c�݁A����ꂿ�������ˁc�c�v
		ENDSELECT
		PRINTFORML �i���̂��Ƃ��A%K17_CNAME()%�̗�������́c�c���Ȃ񂾂���ˁj
	ENDIF
	;-------------------------------------------------
	;MASTER�ɗU���Ėڌ��҂��Q��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;���̑�
	PRINTW

ENDIF
RETURN 1

;==================================================
;�ڌ��������₢�l�߂�
;==================================================
@M_KOJO_EVENT_K17_8(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;MASTER�����₢�l��
	;CFLAG:TARGET:��ڌ�
	;�v��ȏ��MASTER�ɗ��l�����Ȃ�or�A���X�����l
	;�Q�����ĂȂ���������������Ƀ��A�P�[�X����Ȃ��ł�����
	;����N���Ȃ񂾁I�H�@�폜�\��n
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;����ȏさ�m�荇���̂Ƃ�
		IF (K17_GRT() >= K17C_���� || CFLAG:TARGET:�������� & ����_���l) && K17_GET_FRIENDS(CFLAG:TARGET:��ڌ�)
			PRINTFORML �u�˂��A��%K17_RS("�ɂ����O���������/�̎������ɂȂ��������/�����̂Ă�ꂿ�������")%�H�v
			PRINTFORMDL ������菭���v���l�߂��\��ł����Ȃ肻���؂�o����ĖʐH�����
			PRINTFORMDL ����Ȃ��Ƃ͌����ĂȂ�
			PRINTW
			;�R���I
			PRINTFORML �u�����A���߂�Ȃ����B�ӂ߂Ă���肶��Ȃ��̂�v
			PRINTFORML �u�������́A��������ɂ��Ă���Ȃ��̂��Ǝv���āc�c�v
			PRINTFORMDL ���������Ę낢���܂�%CALLNAME:MASTER%�̋��Ɋ�𖄂߂Ă��܂���
			PRINTFORML �u���߂�Ȃ����A�ʓ|���������Łc�c�v
			PRINTFORMDL %CALLNAME:MASTER%�͂��΂炭�̊ԁA%CALLNAME:TARGET%�̓��𕏂ő����邱�Ƃ����ł��Ȃ������c�c
			PRINTW
			PRINTFORML �u���̂ˁA%K17_CNAME(CFLAG:TARGET:��ڌ�)%�̑���ł��������A���̖��Ɏ�o�����ĂĂ������́c�c�v
			PRINTFORML �u�����ǎ���������Ă��ƁA�����Ɗo���Ă����Ă�ˁv
			PRINTFORMDL �Ō�Ί�������Ă��������Ă������A�������������Ă���悤�ɂ�������
			PRINTFORMDL %CALLNAME:MASTER%�͂�������%CALLNAME:TARGET%��厖�ɂ��悤�Ǝv����
		ELSE
			;���ӂӑO�@�����ޗ��Ɏg���܂���
			PRINTFORML �u���́[�c�c�ˁA���̑O�́c�c�v
			PRINTFORML �u����������Ɠ{�肷������A���߂�Ȃ����v
			PRINTFORMDL �悭�킩��Ȃ����A���^���Ԃɂ��Ȃ���t�Ɏӂ��Ă��܂���
			PRINTW
			PRINTFORMDL �i���߂�Ȃ����c�c%K17_CNAME()%�ł������Ȗϑz�����Ⴂ�܂����c�c�j
		ENDIF
	ENDIF
	;-------------------------------------------------
	;��l�Ƃ�����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML �u�������%K17_CNAME()%�A����%K17_CNAME(CFLAG:TARGET:��ڌ�)%������������v
		PRINTFORML �u�����A�ʂɓ{���Ă�킯����Ȃ��̂�v
		PRINTFORML �u�����c�c���́A�ꏊ���A�ˁB���ꂩ����C�����Ăˁv
		PRINTFORML �u�z���g�ɂ��ꂾ��������A����v
		PRINTFORMDL %CALLNAME:TARGET%�͐Ԃ��Ȃ�Ȃ��炻�ꂾ������I�ɍ�����Ƃ������Ɛ؂�グ�Ă��܂���
		PRINTFORMDL %CALLNAME:MASTER%�͂��������ꏊ���l���悤�Ǝv����
	ENDIF
	;���̑�
	PRINTW
ENDIF
RETURN 1

;==================================================
;�p���c�v�����ꂽ
;==================================================
@M_KOJO_EVENT_K17_9(ARG,ARG:1)
;������TARGET
;ARG:1 == 1		�����ꏊ�ɋ��ăp���c��������ꂽ
;ARG:1 == 2		�������ړ����Ƀp���c��������ꂽ
;--------------------------------------------------
#DIM DYNAMIC iDoll		;�l�`�t���O
#DIM DYNAMIC iPants_Num	;�A�����̃A���X�̃p���c����
VARSET iDoll
iPants_Num = 0
CFLAG:K17C_ID:K17C_CF_�p���c�v�� = MIN(CFLAG:K17C_ID:K17C_CF_�p���c�v��,9999)
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL

	;--------------------------------------------------
	;�������
	;--------------------------------------------------
	iPants_Num = K17_CHECK_�A���p���c(TARGET)
	IF FIRSTTIME("�p���c�v��")
		PRINTL
		PRINTFORML �u���[�āA�ȂɉB���Ă�̂�����c�c�v
		PRINTW
		;�莝���Ɏ����̃p���c�����邩����@�d�l�ύX�ɑΉ�
		IF iPants_Num
			PRINTFORML �u�₾�c�c������Ď��́c�c�����H�v
			PRINTFORML �u�ǂ�����āI�@�c�c����Ȃ�ł��I�H�v
			PRINTFORML �u�����c�c������Ă��������āc�c�v
			PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�ɋ^���̊፷���������l������ł���
			CFLAG:K17C_ID:K17C_CF_�p���c�v��++
		ELSE
			PRINTFORML �u����c�c������āc�c���̎q�̉����I�H�v
			PRINTFORML �u���H�@���I�H�@�Ȃ�ł���Ȃ��̎����Ă�́H�v
		ENDIF

		PRINTFORMDL �����Ɣl���邩�Ǝv�������A�ӊO�Ɨ�ÂȔ���������
		PRINTFORMDL �����������Ƃɂ͑a���񂾂낤��
		PRINTW
		PRINTFORML �u�c�c���̉����Ȃ�đ_�����̂�����H�v
		PRINTFORMDL ����Ⴀ�A�����āc�c�Ȃ��H
		PRINTFORMDL %CALLNAME:MASTER%�͂ǂ����ĉ������~�����̂��A�ꂩ��%CALLNAME:TARGET%�ɐ���������ꂽ
		PRINTFORMDL �c�c
		PRINTFORMDL �c�c�c�c
		PRINTFORMDW �c�c�c�c�c�c
		PRINTFORML �u�ցA�ւ��c�c�����Ԃ�Ƃ�����H�@���Ă��ˁv

		;�A���X�p���c����@�C�O�̐l�͉����h������ܗ����ł��Ȃ��炵���ł�
		IF iPants_Num
			PRINTFORML �u�Z�N�n���Ƃ����Ӗ��ł̓��A�N�V�������Ȃ��āA���߂�Ȃ����ˁv
			PRINTFORML �u����A�ӂ邱�Ƃł͂Ȃ���ˁB�c�c�܂�������ƍ������Ă�݂����v
		ENDIF
		PRINTFORML �u�c�c�Ƃ����������ɋꂵ�ނ�A�����̈Ⴂ������v
		PRINTFORML �u�Ƃ������l�̕��𓐂ނȂ�āA�낭�ȓz�ɂȂ�Ȃ���v
		PRINTFORML �u�Ƃɂ�������ȃC�^�Y���A������߂Ȃ����v

	;--------------------------------------------------
	;���ڈȍ~
	;--------------------------------------------------
	ELSE
		PRINTL
		PRINTFORML �u�܁[���A�Ȃɂ��B���Ă��ˁc�c�o���Ȃ����v
		PRINTW
		;�莝���Ɏ����̃p���c�������Ď��Ԓ�~�o�����Ă�Ƃ�
		IF iPants_Num && CFLAG:���Ԓ�~�o�� == 1

			;�A���X�p���c2��ڈȍ~
			PRINTFORML �u�܂�����c�c���̉�����ˁH�v

			;�v��O���ƃr���^
			IF K17_GRT(TARGET) < K17C_�v��
				PRINTFORML �u������߂Ȃ������Č������ł���I�v
				PRINTFORMDL �s�V�����@�ƕ���ł���H����Ă��܂���
				RETURN 1
			ELSE
				PRINTFORML �u�܂������A%K17_RS("���̏��̎q�ɂ�/����/�N�ɂł�/���܂�")%����ȃC�^�Y�����Ă�́H�v
				PRINTFORMDW ���ǂ��ǁc�c
				PRINTFORMDW �c�c�c�c���ǂ���
				PRINTFORMDW �c�c�c���ǂ��ǁc�c�c���ǂ���
				PRINTFORMDW %CALLNAME:MASTER%���̎q�ւ̐ڂ����������l�����c�c�I
			ENDIF

		;�A���X�̃p���c�����������Ƃ�
		ELSEIF iPants_Num
			PRINTFORML �u����c�c���́c�c�v
			PRINTFORML �u�����c�c������Ă��������āc�c�v
			PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�ɋ^���̊፷���������l������ł���
			CFLAG:K17C_ID:K17C_CF_�p���c�v��++
		;���̑��̃p���c
		ELSE
			PRINTFORML �u����ς�܂����̎q�̉����ˁv
		ENDIF
	ENDIF

	;--------------------------------------------------
	;���Ԓ�~�o�� �������傢�����ɂ����邩�l���� �Ƃ肠����20���ł����� ��邳�񑦃o���d���Ȃ���
	;���s�ƂȂ̂ŋ^���Ȃ��Ă��o����
	;--------------------------------------------------
	IF K17_CHECK_���Ԓ�~�o��(TARGET,20)
		PRINTFORML �u����Ɓc�c���ꎄ�̉����Ȃ񂾂��ǁc�c�v
		PRINTFORML �u�ԈႢ�Ȃ���B���������ăo���Ȃ��Ƃł��v�����̂�����H�v
		PRINTFORML �u���[�āA����͂ǂ�����ē��񂾂̂�����ˁc�c�H�v
		PRINTFORMDL ����͕���������Ȃ���Ȃ�Ȃ��悤��
		PRINTL
		PRINTFORMDW %CALLNAME:TARGET%�Ɏ��Ԓ�~�\�͂��o���Ă��܂����I
		PRINTW
		CALL K17_���Ԓ�~�o��
	ENDIF

	PRINTW
	PRINTFORML �u�Ƃ肠��������͖v����v
	PRINTFORML �u���ꂩ���%K17_CNAME()%�̌�����ς��Ȃ��Ƃˁv
	;�p���c�v���ŃA���X�̃v���C�h�Ƒԓx����������̂�
	CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,1)
	CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�ԓx,1)
	;�^������Βǉ��Ȃ��@�o���Ă�Ȃ���疢���łȂ�
	IF CFLAG:K17C_ID:K17C_CF_�^�� || (CFLAG:���Ԓ�~�o�� && K17_GRT(TARGET) < K17C_����)
		SIF RESULT == 0
			PRINTW
		RETURN 1
	ENDIF
	;--------------------------------------------------
	;�v��ȏ゠��Βǉ��C�x
	;--------------------------------------------------
	IF K17_GRT(TARGET) >= K17C_�v��
		PRINTFORML �u�܂������c�c����Ȃ��̂��~�����Ȃ�A������ł�������̂Ɂv
		PRINTFORMDL �Ȃ�c�c���Ɓc�c�I�H
		PRINTW
		PRINTFORML �u���i����l�`�̕�������Ă邩��A�ٖD�͓��ӂȂ̂�v
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMDL ���萻�I�@����͂�����
				PRINTFORMDL �������%CALLNAME:TARGET%�̗��������̂��~����
				PRINTFORML �u�͂��������I�H�@�V�i�Ɍ��܂��Ă�ł���I�v
				PRINTFORMDL ���ꂶ��Ӗ��Ȃ��I
			CASE 1
				PRINTFORML �u�������Ă���B�c�c�͂��A�ǂ����v
				PRINTFORMD �n���ꂽ�p���c�́A����Ό���ق�
				PRINTDATADL
					DATAFORM ���I�ɂł��Ă���
					DATAFORM �{���̂悤������
					DATAFORM ���炵���o��������
					DATAFORM �E�l���̍��߂�ꂽ���̂�����
				ENDDATA
				PRINTFORMDL �c�c�l�`�p����Ȃ����I
				iDoll = K17_GET_DOLL(0)
				IF iDoll && RAND:2
					iDoll = K17_GET_DOLL(-1)
					PRINTFORM �u���炻���%K17C_�l�`��:iDoll%�̂�v
					TRYCALL K17_�l�`�䎌(K17C_�l�`:iDoll,1,"�n�Y�J�V�[")
				ELSE
					PRINTFORM �u���炻���
					PRINTDATA
						DATAFORM �ϓ֐l�`
						DATAFORM �������l�`
						DATAFORM ���l�`
						DATAFORM �a���l�`
						DATAFORM �I�����l�`
						DATAFORM �I�����A���l�`
					ENDDATA
					PRINTFORML �̂�v
				ENDIF
				PRINTFORMDL �����ɍ���I
			CASE 2
				PRINTFORML �u�������Ă���B�͂��A�ǂ����v
				PRINTFORMD �n���ꂽ�̂�
				PRINTDATAD
					DATAFORM ��C�l�`
					DATAFORM �H���l�`
					DATAFORM �ϓ֐l�`
					DATAFORM �������l�`
					DATAFORM ���l�`
					DATAFORM �a���l�`
					DATAFORM �I�����l�`
					DATAFORM �I�����A���l�`
					DATAFORM �S���A�e�l�`
				ENDDATA
				PRINTFORMDL �̎h�J���{���ꂽ�n���J�`������
				PRINTFORMDL �c�c����͂���Ŋ��������ǂ�
				PRINTFORML �u����A�����������Ă���̂Ȃ炢����ł���H�@����܂��V�������v
				PRINTFORMDL �Ⴄ��������Ȃ�
		ENDSELECT
		PRINTW
	ENDIF
ENDIF
RETURN 1

;==================================================
;�����|����
;==================================================
@M_KOJO_EVENT_K17_10(ARG,ARG:1)
#DIM DYNAMIC iRT = 0
#DIM DYNAMIC iFriends = 0

;----------
;�A���X�ȊO��TARGET���擾�@�F�l�D��
;----------
iFriends = K17_GET_TARGETS_ID()
iRT = K17_GRT_EX(TARGET)
;--------------------------------------------------
;������TARGET
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL

	;-------------------------------------------------
	;MASTER�������|�����i�J�n���j
	;��l����
	;�����|���ꂽ�u�Ԃɂ͊������������ĂȂ��@���������o���ƍ��ӂ𓾂Ȃ�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------
		;�J�n���̕ۑ�
		;�b���^�C�v����
		;�J�n���̎哱��
		;���܂��Ă�x�̈ꎞ�ۑ�
		;-------------------------
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = TARGET
		TCVAR:K17C_ID:K17C_TC_���o���J�E���g = 0
		IF TALENT:MASTER:���� >= 2
			TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = BASE:MASTER:����
		ELSE
			TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = CFLAG:���܂��Ă�x
		ENDIF

		;-----------
		;���������[�h
		;-----------
		IF ARG:1 || CFLAG:K17C_ID:K17C_CF_�b���^�C�v == K17C_�U��_���˂���n
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_���˂���n)
			PRINTFORML �u�ӂӂ��c�c�Ȃ񂾂��Â������C���Ȃ́c�c%K17_RS("�ɂႣ/�ӂɂ�")%�`�v
			PRINTFORMDL %CALLNAME:TARGET%���Â���悤��%CALLNAME:MASTER%�ɎC�����ĕ����t���Ă���
			PRINTW
			RETURN 1
		ENDIF
		;-----------
		;��݈���̂��d�u��
		;-----------
		IF CFLAG:��݈��� || CFLAG:K17C_ID:K17C_CF_�b���^�C�v == K17C_�U��_������n
			PRINTFORMDL %CALLNAME:MASTER%��%CALLNAME:TARGET%�̊O������́A�z�����ł��Ȃ��������͂ŉ���������ꂽ
			PRINTFORML �u�ӂӂ��c�c�����Ă��d�u����c�c�o��͗ǂ�������c�c�H�v
			PRINTFORMDL ���������ŗd���ɚ�����%CALLNAME:TARGET%�̖ڂ͕��i�Ƃ͈Ⴂ�A%CALLNAME:MASTER%�������|���������c�c
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_������n)
			PRINTW
			RETURN 1
		ENDIF

		;-----------
		;�ʏ�J�E���^�[���ӂӏ���
		;-----------
		IF CFLAG:�������� & ����_���ӂ� && FIRSTTIME("�����|����",1)
			PRINTFORML �u�ˁA�˂��c�c�����́c�c���́c�c�����Ɓc�c�v
			PRINTFORMDL %CALLNAME:TARGET%�͂Ȃɂ����������Ƒ��������C�荇�킹�āA%CALLNAME:MASTER%���v��t���Ă���
			PRINTFORML �i�Ȃ��c�c�Ȃɂ�A�����Ȃ�D������Ɂc�c���邭���Ɂc�c�����c�c�j
			PRINTW
			PRINTFORML �u���A�����������̋C�Ȃ�A���ɂ����čl��������̂�c�c�v
			PRINTFORML �u���������Ă������Ȃ�ł�����˂��c�c�v
			PRINTFORMDL %CALLNAME:TARGET%�����������Ď��U��ƁA%CALLNAME:MASTER%�͖��@�̎��Ŕ�����
			PRINTFORMDL ���ߕt�����Ă���悤�Ɍ����邪����قǒɂ��Ȃ��A�ނ���D������܂�Ă���悤��%CALLNAME:MASTER%�͊�����
			PRINTFORML �u�ӂӂ��c�c�ǂ�������H�@�c�c�����A�ɂ��Ȃ��H�@���C�H�v
			PRINTW
			PRINTFORML �u�Ȃɏ΂��Ă�̂���A�������c�c�v
			PRINTFORMDL ����Ȃɉ��炵�������ɂȂ�P����̂������Ȃ��c�c
			PRINTFORML �u���f���Ă�ƐH�ׂ�ꂿ�Ⴄ�񂾂���c�c���A�����[���v
			PRINTFORMDL ���Ԃ�߂�%CALLNAME:TARGET%��%CALLNAME:MASTER%�́A�D�����Q���������邩�̂悤�ɉ����|���ꂽ
			CALLF FIRSTTIME("�����|����")
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_����`���n)
		;-----------
		;���Ӗ����ŃJ�E���^�[���ӂӏ���ɂ����ꍇ�@���������Ȃ��̂ŗ��܂��Ă�x���������ĂĂ������
		;-----------
		ELSEIF !(CFLAG:�������� & ����_���ӂ�) || CFLAG:���܂��Ă�x >= 500 || CFLAG:K17C_ID:K17C_CF_�b���^�C�v == K17C_�U��_���ӏP���n
			PRINTFORML �u�ӂ��[�c�c�ӂ��[�c�c�v
			PRINTFORML �u����ł��c�c������ł����\�A�䖝��������Ȃ̂�c�c%K17_CNAME()%�H�@�킩���Ă�́H�v
			PRINTFORMDL %CALLNAME:MASTER%�͉����������킩��Ȃ������ɁA�������͂ŉ����������Ă���
			PRINTFORMDL �g��������낤�ɂ��A���i�l�`�𑀍삵�Ă���̂ł��낤���̎���%CALLNAME:MASTER%�̐g�̂Ɋ����t���Ă��ē����Ȃ�
			PRINTW
			PRINTFORML �u���߂�Ȃ����A�|����Ȃ��Łc�c�ł��A�����}������Ȃ��̂�A���̋C���c�c�v
			PRINTFORML �u%K17_CNAME()%���c�c�����A�Ƃ���c�c�v
			PRINTFORMDL ���^���Ԃɐ��߂āA�z�ɔ������犾����܂���%CALLNAME:TARGET%��%CALLNAME:MASTER%�ɕ������Ԃ����Ă���
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_���ӏP���n)
		;-----------
		;���ڈȍ~�@�ʏ폈��
		;-----------
		ELSE
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_����`���n)
			iRT = K17_LOWER_LIMIT_RAND(iRT,K17C_�v��,K17C_����)
			SELECTCASE iRT
				CASE IS >= K17C_����
					;�䎌
					PRINTDATAL
						DATAFORM �u���̂ˁA�����Ɓc�c���́c�c%K17_RS("������/����������/������������")%�H%K17_RS("�@�˂��H/")%%K17_HEART()%�v
						DATAFORM �u%K17_CNAME()%�������%K17_RS("�~������/�����/��������")%�g�̂ɂ����̂�c�c�ӔC���Ȃ�����ˁc�c�v
						DATAFORM �u%K17_RS("���A�����Ⴄ/���A�P�����Ⴄ/���A�Ƃ����Ⴄ")%�c�c����c�c�v
					ENDDATA
					;��i
					PRINTDATAD
						DATAFORM %CALLNAME:MASTER%�͎���̐g�̂��C��t����悤�ɂ����v��t��%CALLNAME:TARGET%�ɁA
						DATAFORM %CALLNAME:MASTER%�̎�����A�����Ǝ����%K17_RS("��/�j/������")%�Ɋ񂹂�%CALLNAME:TARGET%��
						DATAFORM %CALLNAME:MASTER%�̕G�̏�Őg�̂�h�����āA%K17_RS("�Ҋ�/��")%���C��t����%CALLNAME:TARGET%�ɂ��̂܂�
					ENDDATA
					PRINTFORMDL %K17_RS("�D����/��������")%%K17_RS("�����t����|���ꂽ/�����t���ꂽ/�����|���ꂽ")%
				CASE IS >= K17C_�v��
					;�䎌
					PRINTDATAL
						DATAFORM �u�c�c����H�@�˂��H%K17_RS("�@�˂��H/")%%K17_HEART()%�v
						DATAFORM �u�c�c���A���Ȃ��́H�@���Ⴀ%K17_RS("������/��")%����c�c�v
						DATAFORM �u���A���邩��c�c%K17_RS("�����Ⴄ/���̋C�ɂ������Ⴄ")%����ˁc�c�v
					ENDDATA
					;��i
					PRINTDATAD
						DATAFORM %CALLNAME:MASTER%�̐g�̂Ɋ��Y��%CALLNAME:TARGET%�ɁA
						DATAFORM %CALLNAME:MASTER%�̎�����A%K17_RS("�D����/�������/�w�𗍂߂�")%����%CALLNAME:TARGET%��
						DATAFORM %CALLNAME:MASTER%��%K17_RS("�ڂ����肷�肷��/���ɓ����C��t����/�j����")%%CALLNAME:TARGET%�ɁA
					ENDDATA
					PRINTFORMDL %K17_RS("�D����/�_�炩��")%%K17_RS("�����t����|���ꂽ/�����t���ꂽ/�����|���ꂽ")%
				CASEELSE
					PRINTFORML �u�˂��c�c�����ł���H�@�Ȃ񂾂��c�c�͂܂��Ă�������������c�c������v
					PRINTFORMDL %CALLNAME:MASTER%��%CALLNAME:TARGET%��%K17_RS("�D����/��������")%�����|���ꂽ
			ENDSELECT
			PRINTFORML �u%K17_CNAME()%��%K17_RS("�����Ȃ�/����/����Ȑg�̂ɂ���")%�̂�A%K17_RS("���[��/�C�P�i��/��������")%%K17_RS("���@�g��/����")%���P�����Ⴄ�񂾂���c�c%K17_RS("�����[��/�ӂӂ�/�ӂ��ӂ��Ӂ`")%�v

		ENDIF

		;----------------------------
		;����
		;----------------------------
		IF iFriends
			PRINTW
			SELECTCASE iFriends
				CASE K17C_�얲ID,K17C_������ID,K17C_�p�`�����[ID,K17C_�H��ID,K17C_���ID,K17C_���f�B�X��ID
					;�A���X�����l�ȏꍇ
					IF TALENT:TARGET:���l
						PRINTFORML �u%K17_CNAME()%�A������%K17_CNAME(iFriends)%�������Ă����Ăˁv
					ENDIF
				CASE K17C_����ID,K17C_���C�YID,K17C_�_�YID,K17C_���qID
					IF TALENT:TARGET:���l
						PRINTFORML �u����͈ꏏ�ɂ��邯�ǁc�c����܂�%K17_CNAME(iFriends)%�Ɣ�ׂ��Ⴞ�߂�H�v
					ENDIF
				CASEELSE
					;�A���X�����l�ȏꍇ
					IF TALENT:TARGET:���l
						PRINTFORML �u%K17_CNAME()%�A�����Ƃ��̖��������Ă����Ăˁv
					ENDIF
			ENDSELECT
			TRYCALL K17_�����J�n(iFriends)
			CALL K17_SET_AUTO_PVOICE(iRT,-1,K17C_�U��_���˂���n)
		ENDIF
		PRINTW
		RETURN 1
	ENDIF

	;-------------------------------------------------
	;���������[�h����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2 && ARG:1 == 1
		PRINTFORML �u��`��������������c�c�ӂӂ��v
		PRINTW
		;�^�C�v���Z
		CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_�U��_���˂���n
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;���������[�h�����I��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2 && ARG:1 == 2
		PRINTFORML �u�Ȃ��A�Ȃɂ患�A����ȂɌ�����Ȃ��Ă���������Ȃ��c�c�v
		PRINTW
		;�^�C�v���Z
		CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_�U��_���˂���n
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�Ȃ��߂�ꂽ�i���ӂӏI�����j
	;�����|���ꂽ���ǂ����ɔ����o����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2 && !ARG:1 && !(CFLAG:�������� & ����_���ӂ�)
		PRINTFORML �u���c�c�͂��c�c���߂�Ȃ����A�C�̖�����c�c�v
		PRINTFORMDL %CALLNAME:MASTER%�ɋ��₳��Ă��܂���%CALLNAME:TARGET%�́A�ڂɗ܂𕂂��ׂĖڂ�w���Ă��܂���
		PRINTFORMDL ���Ȃ�̃V���b�N���󂯂Ă���悤������
		PRINTW
		;�^�C�v���Z
		CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_�U��_���˂���n
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0
		RETURN 1
	ENDIF

	;-------------------------------------------------
	;�Ȃ��߂�ꂽ�i�ʏ�I�����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;��݂܂��c���Ă邩����
		IF CFLAG:��݈���
			PRINTFORML �u�Ƃ肠��������̏��͂���ŋ����Ă������ˁc�c�v
			PRINTW
			RETURN 1
		ENDIF

		;���z��
		TRYCALL K17_���ӂӊ��z��( TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� , TCVAR:K17C_ID:K17C_TC_���܂��Ă�x )
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0
		;�^�C�v���Z
		CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_�U��_���˂���n
		PRINTW
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;����ő���
;==================================================
@M_KOJO_EVENT_K17_11(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�ǂ��o���ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;���ǂ��Ȃ�O����
		PRINTFORML �u�b�b�I�H�I�H�@�ŁA�łĂ������I�v
		PRINTFORMDL ���ɋ����̂͗��p��%CALLNAME:TARGET%������
		PRINTFORMDL �Q�Ă��l�q�ŉ���U�肩�Ԃ��Ă���

		IF !TCVAR:K17C_ID:K17C_TC_�����C�C�x���g && !CFLAG:MASTER:���s && K17_CHECK_RANDOM_EVENT(TARGET)
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA�ǂ��o���ꂽ
		ELSE
			PRINTFORMDL �o�čs���ۂ�%K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
			;�ǂ��o���͘A�ŋ֎~
			TCVAR:K17C_ID:K17C_TC_�����C�C�x���g = 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�ڂ��������i�ǂ��o����Ȃ��j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u������I�H�v
		PRINTFORMDL ���ɋ����̂͗��p��%CALLNAME:TARGET%������
		PRINTFORML �u����%K17_CNAME()%���A�N���Ǝv���Ăт����肵����v
		PRINTFORMDL �g�̂�e�܂��Ă�����Ɋ���Ă���
		IF !TCVAR:K17C_ID:K17C_TC_�����C�C�x���g && !CFLAG:MASTER:���s && K17_CHECK_RANDOM_EVENT(TARGET)
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA�^���ԂɂȂ��ē��D�ɐZ�����Ă��܂���
		ELSE
			PRINTFORMDL %K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
		ENDIF
	ENDIF

PRINTW
ENDIF
RETURN 1

;==================================================
;�Q���ɔE�э���
;==================================================
@M_KOJO_EVENT_K17_12(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL && !FLAG:���Ԓ�~
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�ǂ��o�����i�{��j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u�������%K17_CNAME()%�A�����{���Ă�́c�c�v
		PRINTFORML �u���݂�����₷���߂ɂ������͂����A���Ă��傤�����v
	ENDIF
	;-------------------------------------------------
	;�Q���ɐN���@�Q�Ă�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		TRYCALL K17_��C�C�x���g

		SELECTCASE K17_GRT()
			CASE IS >= K17C_���琶����
				PRINTFORML �u�c�c%K17_CNAME()%�c�c�A���ւցc�c%K17_RS("�D��/�����ƁA����/�����ƁA������")%�c�c�v
			CASE IS >= K17C_�v��
				PRINTFORML �u�c�c%K17_CNAME()%�c�c�A%K17_RS("�D��/������/�΂���")%�c�c�v
			CASEELSE
				PRINTFORML �u�c�c�c�c%K17_RS("�ӂɂ�/�����[/�ӂ�")%�c�c�c�c%K17_RS("��������/�V�����c�c�n�C/���ꂳ��")%�H�@�c�c�v
		ENDSELECT
		PRINTFORMDL ���i�̗l�q��肸����%K17_RS("�q�����ۂ�/���炵��/�f��������")%%CALLNAME:TARGET%���K�������ɖ����Ă���
	ENDIF
	;-------------------------------------------------
	;�Q���ɐN���i���肪����j�N����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		;TRYCALL K17_��C�C�x���g
		PRINTFORML �u���c�c�т����肵�����A�D�_���Ǝv�������v
		PRINTFORML �u�悩�������A%K17_CNAME()%�Łc�c�v
	ENDIF
	;-------------------------------------------------
	;�Q���ɐN���i���肪����E����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		TRYCALL K17_��C�C�x���g
		PRINTFORMDL ��قǔ��Ă���̂�%CALLNAME:TARGET%�͋N�������ɂȂ�
	ENDIF
	;-------------------------------------------------
	;�ǂ��o�����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		TRYCALL K17_��C�C�x���g
		PRINTFORMDL �������ɖڂ�������A�����т����ݎE���Ă���%CALLNAME:TARGET%������Ă���
		PRINTFORML �u�ȂɁc�c���������񂾂��ǁH�v
		PRINTFORML �u�������Ǎ��͋A���Ă��傤�����v
	ENDIF
	;-------------------------------------------------
	;�ǂ��o�����i����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		TRYCALL K17_��C�C�x���g
		PRINTFORMDL �������ɖڂ�������A�����т����ݎE���Ă���%CALLNAME:TARGET%������Ă���
		PRINTFORML �u�ȂɁc�c���������񂾂��ǁH�v
		PRINTFORML �u�������Ǎ��͋A���Ă��傤�����v
	ENDIF
PRINTW
ENDIF
RETURN 1

;==================================================
;���d����
;==================================================
@M_KOJO_EVENT_K17_13(ARG,ARG:1)
;������TARGET
;ARG:1�Ɏc���Ă���d����
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�d���J�n�i�E��ֈړ�����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:�E�� == K17C_�E��_�l�`��
			;�l�`��
			SELECTCASE K17_GRT_EX()
				CASE IS >= K17C_�v��
					PRINTFORML �u���ꂶ�Ⴀ�d�������邩��A�s���Ă����ˁA%K17_CNAME()%�v
				CASEELSE
					PRINTFORML �u����A���낻��d���̎��Ԃ�����s����ˁv
			ENDSELECT
			TRYCALL K17_�l�`�䎌(K17C_��C,0,"�K���o���]�[")
			TRYCALL K17_�l�`�䎌(K17C_�H��,1,"�I�[")
		ELSE
			;�Ǝ�
			SELECTCASE K17_GRT_EX()
				CASE IS >= K17C_�v��
					PRINTFORML �u���āA������Ƃ����̂��Ƃ�������Ȃ��Ɓc�c�܂��ˁA%K17_CNAME()%�v
				CASEELSE
					PRINTFORML �u����A���낻��Ǝ����Ȃ���c�c�s����ˁv
			ENDSELECT
			TRYCALL K17_�l�`�䎌(K17C_��C,0,"�J�W�@�X���]�[")
			TRYCALL K17_�l�`�䎌(K17C_�H��,1,"�I�[")
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�Ɩ���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:�E�� == K17C_�E��_�l�`�� && TIME <= 720
			;�l�`���@������
			;
			PRINTFORMDL �q�������̊������������Ă���
			SIF !(TCVAR:K17C_TC_�l�`�� & 8)
				PRINTFORML �u�����A������%K17_RS("�ǂ��Ȃ����Ⴄ�̂��ȁ`/�ǂ��Ȃ��ł��傤�`")%�H�v
		ELSE
			;�Ǝ����Еt��
			PRINTFORML �u%K17_RS("�ӂ�Ӂ[��/�ӂӁ`��/��`")%�c�c��v
			PRINTFORMDL %CALLNAME:TARGET%�̕@�̂��������Ă���
		ENDIF

	ENDIF
	;-------------------------------------------------
	;�d���I��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:�E�� == K17C_�E��_�l�`��
			;�l�`���Еt���I��
			PRINTFORML �u�͂����A���Ⴀ�܂���������y���݂ɂˁ`�v
			PRINTFORML �u�݂�ȁA����܂ł����q�ł���̂�v
			PRINTFORMDL %CALLNAME:TARGET%�͂܂��܂΂�ɂ����q�������ɁA���U���Ĉ��A���Ă���
		ELSE
			;�Ǝ����Еt��
			PRINTFORML �u%K17_RS("�ӂ�Ӂ[��/�ӂӁ`��/��`")%�c�c��v
			PRINTFORMDL %CALLNAME:TARGET%�̕@�̂��������Ă���
		ENDIF

	ENDIF

	PRINTW
ENDIF
RETURN 1

;==================================================
;�H���n
;==================================================
@M_KOJO_EVENT_K17_14(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;�����Ă����H����H�ׂ�ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		IF TCVAR:MASTER:�����̖� & 8
			;�h��
			PRINTFORML �u�����A�h�������%K17_RS("�΂��o�邩��/�オ���������Ȃ邩��/�A���Ă���")%�v�������v
		ELSEIF TCVAR:MASTER:�����̖� & 16
			;�Â�
			PRINTFORML �u���[��A������Ɓc�c���ɂ͊Â������݂����c�c�v
		ELSEIF TCVAR:MASTER:�����̖� & 32
			;�킳��
			PRINTFORML �u�Ȃ��c�c�܏o�Ă�������������v
		ELSEIF TCVAR:MASTER:�����̖� & 64
			;������
			PRINTFORML �u��`�`�A���A�_���ς���v
		ELSE
			;����
			PRINTFORML �u�����������܁A�ӂӂ���������������v
		ENDIF

		;���z
		IF TCVAR:MASTER:�����̖� >= 8
			;���t������@�A���X�͖��o����
			PRINTFORMDL ����ɐH�ׂ������Ɂc�c�Ђǂ���
		ELSE
			PRINTFORMDL ����ɐH�ׂ��Ă��܂����c�c
			PRINTFORML �u���߂�Ȃ����A����������������������c�c�v
			IF K17_GRT() >= K17C_�v��
				PRINTW
				PRINTFORML �u�c�c�ق�A��������Ⴂ�v
				TRYCALL K17_�Â₩��
			ENDIF
		ENDIF
	ENDIF
	PRINTW
ENDIF
RETURN 1

;==================================================
;MASTER�������|����
;==================================================
@M_KOJO_EVENT_K17_15(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL && !FLAG:���Ԓ�~ && !CFLAG:����
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�������i�����|���R�}���h�ɓ����H
	;MASTER�������|�����i�E�t�t�J�n���j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;�����I���i�E�t�t�I�����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2

		;���z��
		TRYCALL K17_���ӂӊ��z��( TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� , TCVAR:K17C_ID:K17C_TC_���܂��Ă�x )
		TCVAR:K17C_ID:K17C_TC_���ӂӎ哱�� = 0
		TCVAR:K17C_ID:K17C_TC_���܂��Ă�x = 0
		CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_��_���˂���n
	ENDIF
ENDIF
PRINTW
RETURN 1

;==================================================
;�Y���Q����
;==================================================
@M_KOJO_EVENT_K17_16(ARG,ARG:1)
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�Y���Q���n�߂��i�J�n���j(���݂���
	;�L���`�F�b�N
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;�Y���Q���I�������i�I�����j
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL M_KOJO_MESSAGE_COM_K17_����
		SIF !RESULT
			PRINTFORML �u��c�c�����I���Ȃ́H�v
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�Y���Qor���瓯���@�}�X�^�[�����N�����@����Q�Ă�or�N���Ă�
	;���̂܂�KOJO_MESSAGE_SEND("EVENT",2,TARGET,1,0)�֍s��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	;���̑�
	IF LOCAL:1 && ARG == 3
		IF CFLAG:TARGET:����
			SELECTCASE K17_GRT()
				CASE IS >= K17C_���琶����
					PRINTFORML �u�c�c%K17_CNAME()%�c�c�A���ւցc�c%K17_RS("�D��/�����ƁA����/�����ƁA������")%�c�c�v
				CASE IS >= K17C_�v��
					PRINTFORML �u�c�c%K17_CNAME()%�c�c�A%K17_RS("�D��/������/�΂���")%�c�c�v
				CASEELSE
					PRINTFORML �u�c�c�c�c%K17_RS("�ӂɂ�/�����[/�ӂ�")%�c�c�c�c%K17_RS("��������/�V�����c�c�n�C/���ꂳ��")%�H�@�c�c�v
			ENDSELECT
			PRINTFORMDL ���i�̗l�q��肸����%K17_RS("�q�����ۂ�/���炵��/�f��������")%%CALLNAME:TARGET%���K�������ɖ����Ă���
			;�Q�Ă��璩�t�F��off
			TCVAR:K17C_ID:K17C_TC_���t�F�� = 1
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;���~�ߏI����
;���Â炢�A���G�Ȃ�Ƃ�����
;==================================================
@M_KOJO_EVENT_K17_17(ARG,ARG:1)
#DIM iRT
;������TARGET
;�r���Ɩ��L����Ă��Ȃ����m�󋵂ɂ���Ă͘A���ŕ\�������̂Œ���
;ARG�Ɏː���
;ARG:1�Ɏː����
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
;�e�평����
;-------------
iRT = K17_GRT(TARGET)

IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;ARG=1�`3�͔r��
	;��̉���or�Ⓒ�@�C�^�Y�����ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2)
		IF ARG == 1
			PRINTFORML �u%K17_RS("�Ȃ�/�Ђ�/�񂭂�/�Ђ႟/")%�c�c�I�H�v
		ELSEIF ARG == 2
			PRINTFORML �u���`�`�`�`�`�I�I�I�@%K17_BLUSH(2)%�v
		ENDIF
		PRINTFORMDL %CALLNAME:TARGET%�͂Ƃ����Ɍ����������Đ����Ղ���
		IF K17_AP_FINISH() != ""
			CFLAG:K17C_ID:K17C_CF_�b���^�C�v = K17C_��_����`���n
			PRINTFORML �i%K17_AP_FINISH()%�j
		ENDIF
		;-------------------------------------------------
		;���Ԓ�~�o��
		;-------------------------------------------------
		IF CFLAG:���Ԓ�~�o��
			SELECTCASE iRT
				CASE IS >= K17C_�v�炤�ӂ�
					PRINTFORML �u�c�c���ʂɂ���΂����̂Ɂc�c�΂����v
				CASE IS >= K17C_�v��
					PRINTFORML �u�Ȃ��c�c�Ȃ�Ă��Ƃ���́c�c�v
				CASEELSE
					PRINTFORML �u�����c�c�Œ�c�c�v
			ENDSELECT
		;-------------------------------------------------
		;�^���Ȃ�
		;-------------------------------------------------
		ELSEIF !CFLAG:K17C_ID:K17C_CF_�^��
			;�����̃p���c�v�����o��
			SIF !FIRSTTIME("���Ԓ�~����")
				PRINTFORML �i�c�c%K17_CNAME()%�ɉ�ƁA�悭�����Ȃ�C������c�c�j
			PRINTFORML �i������āc�c���������Ď��̐g�́c�c%K17_CNAME()%�̂��Ƌ��߂Ă�c�c�́H�j
		ENDIF
		;���Ԓ�~�o���ۑ�
		CALLF FIRSTTIME("���Ԓ�~����")
	ENDIF

	;-------------------------------------------------
	;�p���c�����̂�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �u%K17_RS("�Ȃ�/����/�ӂ�")%�c�c�I�H�v
		IF CFLAG:���Ԓ�~�o��
			;��~�o��
			IF iRT >= K17C_����
				PRINTFORML �u�������c�c����Ȃɗ~���������炠����̂Ɂv
			ELSE
				PRINTFORML �u�܂��c�c����Ȃ��Ƃ���Ȃ�āc�c�v

			ENDIF
		ELSEIF CFLAG:K17C_CF_�p���c�v��
			;�v���o������@�F���I�ɂ̓p���c�𓐂ޔ\��
			IF iRT >= K17C_����
				PRINTFORML �u�������c�c����Ȃɗ~���������炠����̂Ɂv
			ELSE
				PRINTFORML �u�c�c�܂��C�^�Y��������ˁc�c�v
			ENDIF
			CFLAG:K17C_ID:K17C_CF_�^��++
		ELSE
			;�܂��v���͂���ĂȂ�
			;����
			IF FIRSTTIME("���Ԓ�~�p���c����")
				PRINTFORML �i%K17_RS("�p���c/����/�V���[�c")%���c�c�Ȃ��Ȃ����I�H�@���������Ɨ����Ă����ˁc�c�H�j
			ELSE
				PRINTFORML �i�܂�%K17_RS("�p���c/����/�V���[�c")%���c�c�Ȃ��Ȃ����I�H�@%K17_RS("���������Ɨ����Ă�����/�ǂ����ɗ��Ƃ�����")%�c�c�H�j
			ENDIF
			IF !CFLAG:K17C_CF_�^��
				;�^���Ȃ�
				PRINTFORML �i�₾�c�c%K17_CNAME()%�ɋC�Â���ĂȂ��c�c��ˁH�j
				PRINTW
				RETURN 1
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�y�����o�����ː��z
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;���t���Œᐸ�� ;���t���ō�����
		IF ARG:1 == 1 || ARG:1 == 4 || ARG:1 == 6
			PRINTFORML �u%K17_SPLIT_SHUFFLE(@"�c�c/%K17_RS("������/�񂮂�/�����")%/�c�c")%�v
		;���t���Œ�f���o�� ;�Z�����t�����t���Œ�f���o��
		ELSEIF ARG:1 == 2 || ARG == 5
			PRINTFORML �u%K17_SPLIT_SHUFFLE(@"�c�c/%K17_RS("������/����/������")%/�c�c")%�v
		;���t���Œ��ŕ���
		ELSEIF ARG:1 == 3
			PRINTFORML �u���ق����ق��c�c�v
		ENDIF
		IF CFLAG:���Ԓ�~�o��
			;��~�o��
			IF iRT >= K17C_����
				PRINTFORML �u�������c�c�Ȃ�Ă��Ƃ���́c�c�v
			ELSE
				PRINTFORML �u�܂��c�c����Ȃ��Ƃ���Ȃ�āc�c�v

			ENDIF
		ELSE
			;�܂��o���ĂȂ�
			PRINTFORML �i�c�c����ȋ}�Ɂc�c�Ȃ�Ȃ́H�j
			IF ABL:���t���� >= 3
				;����
				PRINTFORML �i������Ă܂����c�c���t�I�H%K17_RS(@"/�c�c%K17_CNAME()%�̂�ˁH")%�j
				CFLAG:K17C_CF_�^��++
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�y�����o��ʎː��z
	;�y�����o����ː��z
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 5 || ARG == 6)
		IF ARG:1 == 1
			;�c�t���������t�o��100���� ;�ʏ�ʂ������
			PRINTFORML �u���c�c�ȂɁc�c����c�c�v
			PRINTW
			RETURN 1
		ELSEIF ARG == 5 && ARG:1 == 2
			;���o���Ăʂ���
			IF CFLAG:���Ԓ�~�o��
				;��~�o��
				IF iRT >= K17C_����
					PRINTFORML �u�����Ȃ�c�c�����%K17_RS("���Ƃ��Ȃ���/�Ƃ���ɂ����Ȃ���")%����A�������c�c�v
				ELSE
					PRINTFORML �u����ȂƂ���ɂ�����Ȃ�āc�c�v
				ENDIF
			ELSE
				;���o��
				PRINTFORML �i�₾�c�c���ꐸ�t�c�c���%K17_RS(@"/�c�c%K17_CNAME()%�́H")%�j
				CFLAG:K17C_ID:K17C_CF_�^��++
			ENDIF
		ELSE
			;���t�r�߂Ƃ�
			PRINTFORML �u�c�c�c�c���v
			IF CFLAG:���Ԓ�~�o��
				;��~�o��
				IF iRT >= K17C_����
					PRINTFORML �u�����Ȃ�c�c����Ȃ��Ƃ��Ȃ��ł���A�������c�c%K17_RS("�؂��/�͂ނ�")%�v
					PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�Ɍ�������悤���r�߂Ƃ���
				ELSE
					PRINTFORML �u����ȂƂ���ɂ�����Ȃ�āc�c�񂭂��v
					PRINTFORML �u%K17_RS("�ϑԂ�/�΂���/�����ׂ�/������")%�c�c�v
				ENDIF
			ELSE
				;�r�߂�
				PRINTFORML �i�v�킸�r�߂���������ǁc�c����c�c���t�c�c�I�H�j
				CFLAG:K17C_ID:K17C_CF_�^��++
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�y�����o����ː��z
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
;	LOCAL:1 = 1
	;-------------------------------------------------
;	IF LOCAL:1 && ARG == 6
;		;�ʂ������
;		IF ARG:1 == 1
;			PRINTFORML �u���c�c�ȂɁc�c����c�c�v
;		;�r�߂Ƃ�
;		ELSEIF ARG:1 == 2
;			PRINTFORML �u�c�c�c�c���v
;			IF CFLAG:���Ԓ�~�o��
;				;��~�o��
;				IF iRT >= K17C_����
;					PRINTFORML �u�}�ɂ���Ȃ��Ƃ��Ȃ��ł���A�������c�c\@ARG:3?�؂��#\@�v
;				ELSE
;					PRINTFORML �u����ȂƂ���ɂ�����Ȃ�āc�c\@ARG:3?�񂭂�#\@�v
;				ENDIF
;			ELSE
;				;��~���o��
;				PRINTFORML �i�v�킸�r�߂���������ǁc�c����c�c���t�c�c�I�H�j
;				IF iMOB
;					PRINTFORML �i���������A���c�c����́c�c�j
;					PRINTFORMDL ��u%CALLNAME:TARGET%�͐��߁A���������Ȃ��悤�ɂ���낫���ƕӂ���x������
;					IF iRT >= K17C_����
;						PRINTFORML �i��A���c�c%K17_CNAME()%�ȊO�̐l�Ɂc�c%K17_RS("�q���ꂽ/�����ꂽ/���t������ꂽ")%�I�H�j
;					ENDIF
;					CFLAG:K17C_CF_�^�S�ËS = 1
;				ELSE
;					;���u�Ȃ�
;					CFLAG:K17C_ID:K17C_CF_�^��++
;				ENDIF
;			ENDIF
;		ENDIF
;	ENDIF
	;-------------------------------------------------
	;�y�����o�A�i���ː��z
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;�`���o0
		IF ARG:1 == 1
			PRINTFORML �i���Â��c�c�ȂɁc�c�}�Ɂc�c%K17_CALL_P(K17C_����A)%�j
			PRINTW
			RETURN 1
		;�\���ȊO
		ELSEIF ARG:1 == 2

			IF CFLAG:���Ԓ�~�o��
				;��~�o��
				IF iRT >= K17C_����
					PRINTFORML �u�}�ɂ���Ȃ��Ƃ��Ȃ��ł���A�������c�c�v
				ELSE
					PRINTFORML �u����Ȃ��Ƃ���Ȃ�āc�c�����c�c�v
				ENDIF
			ELSE
				;���o��
				PRINTFORML �i���̊��o�c�c%K17_CALL_P(K17C_����A)%�Ɂc�c�o���ꂽ�c�c�́H�j
				CFLAG:K17C_ID:K17C_CF_�^��++
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�y�����o�����r���z
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML �i���Â��c�c�ȂɁc�c�}�Ɂc�c�j
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�y�����o�S���ː��z
	;1�񏈏��S���ː��s���Ȃ�
	;2�񏈏��S���ː��s������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9 && (ARG:1 == 1 || ARG:1 == 2)
		PRINTFORML �u�Ȃ��c�c���`�`�`�`�`%K17_BLUSH(2)%�v
		PRINTFORML �i������āc�c�S���Ɂc�c�o���ꂽ�c�c�́H�j
		IF CFLAG:���Ԓ�~�o�� && iRT >= K17C_����
			;�o������̗���ȏ�
			IF CFLAG:������ >= 2
				;�����ւ��Ă�
				PRINTFORML �u����Ȃ��Ƃ��Ȃ��Ă��c�c���ʂɂ��Ȃ�����A�΂����v
				PRINTFORMDL %CALLNAME:TARGET%�͕ӂ���C�ɂ��āA���Ԃ�����
			ELSE
				;���ւ��ĂȂ�
				PRINTFORML �u����Ȃ��c�c����ɂ���Ȃ�āc�c�v
				PRINTFORMDL %CALLNAME:TARGET%�̋@���𑹂˂Ă��܂���
				CALL K17_MARK_��������(0)
			ENDIF
		ELSEIF CFLAG:���Ԓ�~�o��
			;�o������̗��疢��
			PRINTFORML �u�Ђ��c�c�Ђǂ��c�c����Ȃ��v
			PRINTFORMDL %CALLNAME:TARGET%�͉������Ȋ��%CALLNAME:MASTER%���ɂ݂���
		ELSE
			;���o��
			PRINTFORML �i�Ȃ��c�c���̊ԂɁI�H�j
			PRINTFORML �i�m��Ȃ��ԂɁA%K17_CNAME()%�Ɂc�c%K17_RS("���o��/�S���ː�/��t��")%���ꂽ�c�c�́H�j
			CFLAG:K17C_ID:K17C_CF_�^��++
		ENDIF

		;-----------------
		;�s���@�댯��������
		;-----------------
		IF ARG:1 == 1
			IF ESTRUS_CYCLE(TARGET) >= 100
				PRINTFORML �i���c�c������%K17_RS("�Ԃ����ł����Ⴄ/�D�P�����Ⴄ")%�c�c�j
			ELSE
				PRINTFORML �i�c�c������%K17_RS("�Ԃ����/�D�P")%���C����ˁc�c�H�j
			ENDIF
		ELSEIF ARG:1 == 2
			;�s������
			PRINTFORML �i�s������ł邩��c�c%K17_RS("�Ԃ����/�D�P")%��%K17_RS("���v/���C")%�c�c��ˁH�j
		ENDIF

	;�����o
	ELSEIF ARG:1 == 3
		PRINTFORML �i���c�c��c�c�������%K17_RS("����/�������")%�c�c�H�j
		IF !CFLAG:K17C_ID:K17C_CF_�^��
			PRINTFORML �i�Ⴄ�c�c�G��c�c�����A�����A���̐g�́A�����%K17_RS("�~��/����")%���Ă�c�c�́H�j
			SIF EQUIP:�����g�����P || EQUIP:�����g�����Q
				PRINTFORML �i�₾�c�c�����c�c���ꂿ�Ⴄ�c�c�j
		ENDIF
		PRINTW
		RETURN 1
	ENDIF

	;-------------------------------------------------
	;�^���@��~�o���̌㏈��
	;-------------------------------------------------
	IF CFLAG:K17C_ID:K17C_CF_�^�� && CFLAG:K17C_ID:K17C_CF_�p���c�v�� && !CFLAG:���Ԓ�~�o��
		;�p���c�v���o���ς�
		SELECTCASE CFLAG:K17C_ID:K17C_CF_�^��
			CASE IS <= 10
				PRINTFORML �i�c�c������Ă��������āA%K17_CNAME()%�ɃC�^�Y������Ă���́c�c�H�j
			CASE IS >= 10
				PRINTFORML �i������Ă���ς�c�c%K17_CNAME()%�ɃC�^�Y������Ă���Ă��ƂȂ̂ˁc�c�j
			CASE IS >= 40
				PRINTFORML �i���Ƃ؋��ˁc�c�������㩂��d�|�����c�c�j
		ENDSELECT
		CFLAG:K17C_ID:K17C_CF_�^�� = MIN(CFLAG:K17C_ID:K17C_CF_�^�� +5,100)
		SIF CFLAG:K17C_ID:K17C_CF_�^�� >= 10
			PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�̋^����[�߂�

	ELSEIF CFLAG:K17C_ID:K17C_CF_�^�� && !CFLAG:K17C_ID:K17C_CF_�p���c�v�� && !CFLAG:���Ԓ�~�o��
		;�p���c�v�����o���ŋ^��������
		PRINTFORML �i�����c�c�����c�c%K17_RS("�ǂ��������ƂȂ�/�Ȃɂ������ꂽ��/�Ȃɂ����ꂽ��")%�c�c�₾��%K17_RS("/����")%�c�c�j
		PRINTFORMDL %CALLNAME:TARGET%�͕s���������Ă���悤���c�c
		CFLAG:K17C_ID:K17C_CF_�^�� = MIN(CFLAG:K17C_ID:K17C_CF_�^�� +2,100)
		SIF CFLAG:K17C_ID:K17C_CF_�^�� >= 40
			PRINTFORML �i�Ɛl��߂܂���c�c������㩂��d�|�����j
	ENDIF
	;����ȉ��Ńo���Ă�Δ������� �C�^�Y���̐��������͂�
	SIF iRT < K17C_���� && CFLAG:���Ԓ�~�o��
		CALL K17_MARK_��������(1)
	CALLF FIRSTTIME("���Ԓ�~�C�^�Y��")
	PRINTW
ENDIF
RETURN 1
;==================================================
;�i�}�ł�点�뎞
;==================================================
@M_KOJO_EVENT_K17_18(ARG,ARG:1)
#DIM DYNAMIC iRT
iRT = K17_GRT()
;������TARGET
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;��D�v���䎌
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		SELECTCASE iRT
			CASE IS >= K17C_����
				PRINTFORML �u���c�c���̂ˁA�܂��Ԃ����o�����Ⴄ�̂́c�c%K17_RS("�����Ȃ�/�_������")%�Ǝv���́c�c�v
				PRINTFORML �u����ɂˁc�c�����ƁA���́c�c�v
				PRINTFORMDL %CALLNAME:TARGET%�͐^���ԂɂȂ�A%CALLNAME:MASTER%�Ɋ���񂹂Ě�����
				PRINTFORML �u����������̂͌�������Ȃ��́A�����炵�΂炭�c�c�������A����c�c�Ԃ����o�����Ⴄ�̂͂��߁A�Ȃ́c�c�v
				PRINTFORML �u������%K17_RS("�S��/��D")%���āc�c�v
			CASEELSE
				PRINTFORML �u���߂�%K17_RS("�S��/��D")%���āc�c�v
		ENDSELECT

	ENDIF
	;-------------------------------------------------
	;�f����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u���߂��c�c�Ԃ����o�����Ⴄ�患�c�c�v

	ENDIF
	;-------------------------------------------------
	;�f�����̂ɔS���Đ؂ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �u%K17_RS("�����/�₾��/�C����")%�A���Ⴀ�����A���������Ȃ�������v

	ENDIF
	;-------------------------------------------------
	;�댯���ȊO����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML �u�킩�����c�c���Ⴀ��Ȃ����ȊO�����A������ˁc�c�H�v
		PRINTFORML �i�����̂��Ȃ��c�c�j

	ENDIF
	;-------------------------------------------------
	;�댯������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML �u���A�Ԃ����c�c��肽���́H�v
		PRINTFORML �u���������������Ȃ�A�s�����ނ���c�c�v
		PRINTFORMDL %CALLNAME:MASTER%�͎q������肽���̂��ƃn�b�L���`�����c�c
		PRINTFORML �u�c�c�����c�c�킩�������A���Ⴀ�������ǁc�c�v
		PRINTFORML �u�o�����������A�{���ɎY�ނ���c�c�ˁv
		TRYCALL K17_RELATION_EV(K17C_RTF_������)

	ENDIF
ENDIF
PRINTL
RETURN 1
;==================================================
;�_�Е�炵�����F���ĖႤ
;==================================================
@M_KOJO_EVENT_K17_19(ARG,ARG:1)
;������ARG
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�F�߂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML �u���肪�Ƃ��A%K17_CNAME()%
		PRINTFORML �u�ƒ��͉Ǝ��̎�`�����c�c���v�A���\���ӂ�v
		PRINTFORML �u%K17_CNAME()%�̂��߂ɂ�����΂邩��A��낵���ˁv
		PRINTFORMDL %CALLNAME:TARGET%�͐V���Ȑ����ɖڂ��P�����A����������%CALLNAME:MASTER%�ɏΊ��������
		PRINTL
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�F�߂��Ȃ�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u���A�����c�c�c�O����v
		PRINTFORMDL %CALLNAME:TARGET%�͌��𗎂Ƃ��A���邩��Ɏc�O����������
		PRINTL
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;�A�
;==================================================
@M_KOJO_EVENT_K17_20(ARG,ARG:1)
;������LOCALS or RESULT
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�ʏ�A��@���₷�݌���œ���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;CALL M_KOJO_EVENT_K17_3(1)
		;PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�f�[�g���A��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL M_KOJO_SPEVENT_K17_3(0)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;���֐�ł�������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		CALL M_KOJO_SPEVENT_K17_3(0)
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;�ח��f���擾��
;==================================================
@M_KOJO_EVENT_K17_21(ARG,ARG:1)
;������ARG
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
IF LOCAL
	CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O = 1
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;����擾
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTL
		PRINTFORML �i����͂����A�F�߂邵���Ȃ��悤�ˁc�c�j
		PRINTFORML �i���@�g���Ƃ����낤�҂��A���s��c�c�j
		PRINTFORML �i%K17_CNAME()%�c�c�D����%K17_HEART()%�@��D��%K17_HEART()%�@�����Ă�%K17_HEART(2)%�j
		PRINTW

		;��������
		IF TALENT:����
			;����g���ݒ�:���˂���H
			PRINTFORMDL ���΂炭�x�b�h�̏�ŃW�^�o�^���Ă���%CALLNAME:TARGET%�����₪�āc�c
			PRINTFORML �u���c�c�ӂ��c�c�����c�c�c�c�v
			PRINTFORMDL ���鋰�閨��֎��L�΂��Ă���
			PRINTFORML �u����c�c�c�c�������c�c�c�c%CALLNAME:MASTER%�̂��ƍl����Ƃ��c�c�ӂɂႠ���v
			PRINTFORML �u�����Ⴄ�c�c�́H�@�c�c�c�c���āc�c����́c�c�Ƃ��Ă��c�c�v
			PRINTFORML �u�����Ⴂ�����́c�c�󂯓��ꂿ�Ⴄ�c�c�c�c�����ł�������Ă���c�c�v
			PRINTFORMDW %CALLNAME:TARGET%�͕��i����͍l�����Ȃ��悤�ȁA�������Ȃ��i�D�Ŏ��Ԃɒ^���Ă���
			PRINTFORML �u�����c�c���������c�c�C�N�`�`�`�`�����I�I�I�v
			PRINTW
		ELSE
			TRYCALL K17_H�ϑz_�b��(K17C_�U��_���˂���n)
			PRINTFORML �u%K17_�b����(K17C_�U��_���˂���n,6,1)%%K17_���y_�b����(K17C_�U��_���˂���n,8000,K17C_����V)%%K17_�b����(K17C_�U��_���˂���n,6,1,1)%�v
			PRINTFORML �u%K17_�b��_�Ⓒ(K17C_�U��_���˂���n,K17C_����V)%�v
			PRINTW
		ENDIF
		PRINTFORML �i�����c�c�悩������%K17_HEART()%�@�c�c���ǁc�c�m��Ȃ������c�c�j
		PRINTFORML �i�c�c�c�c�{���ɍD���ɂȂ����Ⴄ�ƁA�����ňԂ߂邾������؂Ȃ��Ȃ�̂ˁc�c�j
		;�o���l+�]�v��X�Ƃ����Ⴄ
		EXP:���Ԍo�� += 1
		EXP:�u�o�� += 1
		EXP:�a�o�� += 1
		EXP:�u�Ⓒ�o�� += 1
		EXP:���Ԍo�� += 1
		CFLAG:���܂��Ă�x /= 4
		CFLAG:���܂��Ă�x += 200

		;�ԓx��2�i�K������
		CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�ԓx,-2)
		SIF RESULT
			PRINTFORML �i�����Ƒf���ɂȂ��Ă�������ˁj
		;�t���O�ۑ�
		SIF (K17_RT_FG(TARGET) & K17C_RTF_����) && !(CFLAG:K17C_ID:K17C_CF_RTF & K17C_RTF_����)
			CALL K17_RELATION_EV(K17C_RTF_����)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�v��擾
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTL
		PRINTFORML �u�c�c�c�c�c�c�c�c%CALLNAME:MASTER%�̂��ƍD���c�c�Ȃ̂����v
		PRINTFORML �i����c�c���ɏo���Ă݂�ƁA�����������ǂ��ǂ�����j
		PRINTFORML �i����ς肻���������Ɓc�c�Ȃ́H�j
		PRINTW

		;��������
		IF TALENT:����
			;����g���ݒ�:�Ƃ���H
			PRINTFORMDL %CALLNAME:TARGET%�̓x�b�h�ɂ������ɂȂ�Ȃ��疍�𑫂̊Ԃɋ���
			PRINTFORMDL �ۓ����m�F���Ă�������̎肪�A���̊Ԃɂ�����炵�����𝆂�ł��܂��Ă���
			PRINTFORML �u�c�c�͂��͂��c�c�������c�c�c�c�v
			PRINTFORMDL ���K���ӂ�ӂ�ƐU���Ė��Ɍ҂������t���Ă���
			PRINTFORML �u����c�c���������c�c�c�c%CALLNAME:MASTER%�I�c�c���Ⴀ����v
			PRINTFORML �u���߂���c�c����ȁc�c��������c�c���������Ⴞ�߂��c�c�v
			PRINTFORML �u���܂���c�c���āc�c�c�c�܂����߁c�c�Ȃ񂾂�����c�c�v
			PRINTFORMDW %CALLNAME:TARGET%�͕��i����͍l�����Ȃ��悤�ȁA�������Ȃ��i�D�Ŏ��Ԃɒ^���Ă���
			PRINTFORML �u���߁c�c���߂��߂��c�c�C�����ꂿ�Ⴄ�`�`�����I�I�I�v
		ELSE
			TRYCALL K17_H�ϑz_�b��(K17C_��_���ӏP���n)
			PRINTFORML �u%K17_�b����(K17C_��_���ӏP���n,6,1)%%K17_���y_�b����(K17C_��_���ӏP���n,8000,K17C_����C)%%K17_�b����(K17C_��_���ӏP���n,6,1,1)%�v
			PRINTFORML �u%K17_�b��_�Ⓒ(K17C_��_���ӏP���n,K17C_����C)%�v
		ENDIF
		PRINTW
		PRINTFORML �i������������%K17_HEART()%�@�c�c�c�c���ǁc�c����c�c�j
		PRINTFORML �i�c�c�c�c���Ȍ�������c�c%CALLNAME:MASTER%�̂��ƃl�^�ɂ���������c�c�j
		;�o���l+�X�b�L��
		EXP:���Ԍo�� += 1
		EXP:�b�o�� += 1
		EXP:�a�o�� += 1
		EXP:�b�Ⓒ�o�� += 1
		EXP:���Ԍo�� += 1
		CFLAG:���܂��Ă�x /= 4
		;�ԓx��1�i�K������
		CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�ԓx,-1)
		SIF RESULT
			PRINTFORML �i������Ƃ͑f���ɂȂ��Ă��������ˁj
		;�t���O�ۑ�
		SIF K17_RT_FG(TARGET) & K17C_RTF_�v�� && !(CFLAG:K17C_ID:K17C_CF_RTF & K17C_RTF_�v��)
			CALL K17_RELATION_EV(K17C_RTF_�v��)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;���~�擾
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �i���߂��c�c�����c�c���̐l�̐g�̂Ȃ����ᐶ�����Ȃ��̂����j
		TRYCALL K17_H�ϑz_�b��(K17C_�U��_������n)
		PRINTFORML �u%K17_�b����(K17C_�U��_������n,6,1)%%K17_���y_�b����(K17C_�U��_������n,8000,K17C_����V)%%K17_�b����(K17C_�U��_������n,6,1,1)%�v
		PRINTFORML �u%K17_�b��_�Ⓒ(K17C_�U��_������n,K17C_����V)%�v
		PRINTW
		PRINTFORMDL �g�̂͊��S�ɗ��ɂȂ��Ă��܂��Ă����c�c
		;�t���O�ۑ�
		SIF K17_RT_FG(TARGET) & K17C_RTF_���� && !(CFLAG:K17C_ID:K17C_CF_RTF & K17C_RTF_����)
			CALL K17_RELATION_EV(K17C_RTF_����)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;���l�擾
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML �i�����Ȃ����Ƃ����Ďv���Ă�̂Ɋ��S�Ƀn�}���Ă��ˁc�c�j
		TRYCALL K17_H�ϑz_�b��(K17C_�U��_���˂���n,0)
		PRINTFORML �u%K17_�b����(K17C_�U��_���˂���n,6,1)%%K17_���y_�b����(K17C_�U��_���˂���n,8000,K17C_����C)%%K17_�b����(K17C_�U��_���˂���n,6,1,1)%�v
		PRINTFORMDL �������܂��S�Ƃ͕ʂɐg�̂�%CALLNAME:MASTER%�����߂Ă��܂��Ă����c�c
		;�t���O�ۑ�
		SIF K17_RT_FG(TARGET) & K17C_RTF_�v�� && !(CFLAG:K17C_ID:K17C_CF_RTF & K17C_RTF_�v��)
			CALL K17_RELATION_EV(K17C_RTF_�v��)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�Z�t���擾
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTL
		PRINTFORML �i�g�̂����̊֌W���Ă����̂��c�c�����c�c�̂��Ȃ��H�j
		TRYCALL K17_H�ϑz_�b��(K17C_��_���ӏP���n)
		PRINTFORMDL ���ł͔ے肵�Ă��A�ΏƂ����g�̂��u���͎~�ނ��Ƃ͂Ȃ������c�c
		;�t���O�ۑ�
		SIF K17_RT_FG(TARGET) & K17C_RTF_�v�� && !(CFLAG:K17C_ID:K17C_CF_RTF & K17C_RTF_�v��)
			CALL K17_RELATION_EV(K17C_RTF_�v��)
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;�����I�����Ɏ���
;==================================================
;�e���v���������߂�Ȃ��� �Ă��Ȃ񂩂�����ƊԈ���Ă�
;���Ԍo��100�̊i�̈Ⴂ�������Ȃ��ƁI�@������΂��I������΂��I�A���X�I
;
;	[�e���v��]
;ARG:0�Ɏ��ԏ󋵁@1�ʏ펩�ԁ@2���������ԁ@3���������t���ԁ@4���m�����@5�ח��f�����莩�Ԓ��ō��߁@6���Ԓ��ō��߁i�ח��Ȃ��j
;ARG:1�Ɏ��Ԏ�ށ@1�a�@2A�@6C�@7V�@8���ʎw�薳���@ARG==6�̎��@1�K���S�o�����@2�S�o�̂�

;	[���݂̎��l]
;ARG:0�Ɏ��ԏ󋵁@1�ʏ펩�ԁ@2���������ԁ@3���������t���ԁ@4���m�����@5�ח��f�����莩�Ԓ���4�ȏ�@6���Ԓ���4�ȏ�i�ח��֌W�Ȃ��j��������
;ARG:1�Ɏ��Ԏ��	ARG==5 1B�@2A�@3C�@4V�@5�Ȃ��@�e���x1or���o10�c�c���ʔԍ���ABL�̗v�f�ԍ��Ƃ͈Ⴄ�݂����@���o�������Ǝv���Ă��c�c
;					ARG==6�@1�K���S�o�����@2�S�o�̂�
;���m�͂܂����x
;--------------------------------------------------
@M_KOJO_EVENT_K17_22(ARG,ARG:1)
#DIM DYNAMIC iRand,2=0,0	;�ϑz��ނƖϑz
#DIM DYNAMIC iType = 0		;�b��TYPE
#DIM DYNAMIC ABLnum= -1		;���ʔԍ��@��������ABL�̔ԍ��ɕύX -1�̂܂܂��ƃX�L�b�v
VARSET LOCALS		;�I�v�V�����̌Ăі�������
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL

	;-------------------------------------------------
	;���m
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF ABL:���Ԓ��� >= 5
			;�ی�ҘA��
			PRINTFORML �i�c�c���ɂ����c�c�p�����������c�c�j
			PRINTFORML �i�ł���l�ɂȂ���Ă����������ƂȂ́c�c�H�j
		ELSE
			PRINTFORML �i�ȂɁc�c����c�c�Ȃɂ��ꂥ�c�c�C��������%K17_HEART()%�j
			PRINTFORMDL %CALLNAME:TARGET%�͖��m�̉��y�ɐg���ςˁA���x�������ɑł��Ђ�����Ă���c�c
		ENDIF
	RETURN 1
	ENDIF

	;-------------------------------------------------
	;���m���ԈȊO�@��������@�����͖ϑz�X�L�b�v
	;-------------------------------------------------
	IF ARG != 2 && ARG != 7
		PRINTFORML �u%K17_RS("���[��/���[��/")%�c�c�����́c�c�ǂ����悤������c�c�悵�v
		PRINTFORMDL %CALLNAME:TARGET%�͕z�c�ɓ|�ꍞ�ނƖڂ��҂��āA�ϑz�ɒ^��n�߂��c�c
		PRINTFORMDL �c�c
		PRINTFORMDL �c�c�c�c
		PRINTFORMDW �c�c�c�c�c�c
	ENDIF

	;-------------------------------------------------
	;���m���ԈȊO�Ŋח��Ȃ��Ƃ�
	;�v��t���O�����炱���ŗU��Ȃ��ƒN�ɂ����Ă��炦�Ȃ����A����΂ꂪ��΂�
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG != 4 && K17_GRT(TARGET) < K17C_�v��
		PRINTFORML �i�}���قŌ�����%K17_RS("���\����/�����{/�������Ȗ{")%�̏�ʎv���o���āc�c�j
		PRINTDATAL
			DATAFORM �i����c�c����Ȃ��Ɓc�c�����c�c�����Ȃ����Ă킩���Ă�̂ɂ��c�c�j
			DATAFORM �i�����c�c����ȗ~���c�c�Ȃ��Ȃ�΂����̂ɂ��c�c�j
			DATAFORM �i�����c�c����Ȃ��Ƃ΂����股�c�c���߂Ȃ̂ɂ��c�c�j
			DATAFORM �i�񂭂��c�c����ȂƂ��c�c��������ꂽ��c�c���߂Ȃ̂ɂ��c�c�j
		ENDDATA
		;�ł��������Ⴄ�r�N���b�r�N���b
		PRINTDATAL
			DATAFORM �i�ł������āc�c���ꌋ�\��������Ă�c�c�́A��˂��c�c�j
			DATAFORM �i�ł��g�́c�c����ɁA����������������Ă�c�c�j
			DATAFORM �i�ł��g�́c�c����Ɂc�c�Ԃ����c�c�~�������Ă�́c�c�H�j
			DATAFORM �i�ł�����c�c�C���������́c�c�����Ⴄ�̂��c�c�j
		ENDDATA
		PRINTFORML �i���낻��c�c%K17_RS("�C�P����/�Ⓒ�ł�����/�I��肻��")%�c�c�j
		PRINTFORML �u�c�c�����c�c%K17_RS("�����ィ/������/�������Ⴃ")%�c�c�c�c�v
		PRINTW
		PRINTFORMDL %CALLNAME:TARGET%��%K17_RS("��/�g��")%���҂���҂�����z������
		PRINTFORML �u�͂��c�c%K17_HEART()%�v
		PRINTFORMDL ��u�ْ������g�̂�������Ɨ͂������������
		PRINTFORML �i�c�c����c�c���܂ň�̉��x����Ă����̂�����c�c�j
		PRINTFORML �i�ł��c�c��߂��Ȃ��̂�ˁc�c�͂��c�c�j
		SIF TALENT:����
			PRINTFORML �i�o���Ȃ��̂ɂ���Ȃ��Ƃ΂������肭�Ȃ�c�c�j
		PRINTFORMDL %CALLNAME:TARGET%�������Ȍ�������
		RETURN 1
	ENDIF

	;-------------------------------------------------
	;���m���ԈȊO
	;�����������C���@�A���X�̖ϑz�ЂƂ肦����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG != 4 && ARG != 7
		iRand:0=RAND:K17C_�ϑz��ސ�
		iRand:1=RAND:K17C_�󂯖ϑz��
		;�����ȊO�͖ϑz��o��
		IF ARG != 2
			;�ϑz�̎��o���@CONVERT���Ă�����ۂ���������
			SELECTCASE K17_GRT(TARGET)
				CASE IS >= K17C_����
					;���炩��U�ߎ�
					;�ϑz���o���ЂŁ[�Ȃ���c�c�������Ƃ��߂��Ȃ�
					;PRINTFORML �i�c�c%K17_SEXY_CONVERT(K17_H�ϑz(iRand:0,iRand:1),13,K17_HEART())%�c�c�j
					PRINTFORML �i�c�c%K17_H�ϑz(iRand:0,iRand:1)%�c�c�j
					PRINTW
				CASE IS >= K17C_�v��
					;�v��͎󂯂̂�
					iRand:0=K17C_��
					PRINTFORML �i�c�c%K17_H�ϑz(iRand:0,iRand:1)%�c�c�j
					;PRINTFORML �i�c�c%K17_SEXY_CONVERT( K17_H�ϑz(iRand:0,iRand:1),13,K17_HEART())%�c�c�j
					PRINTW
			ENDSELECT
			;���ǂŕς�����ꍇ������̂ŕۑ�
			iRand:1 = RESULT
		ELSEIF ARG== 2

			;��������or�I�i�o������Ȃ珬�����󂯌Œ�
			SIF TALENT:TARGET:���� || CFLAG:TARGET:K17C_CF_�I�i�o���ǉ��C�x  == 0
				iRand:1 = K17C_��������
		ENDIF

		;�^�C�v����
		iType = K17_�b���^�C�v_H�ϑz(iRand:0,iRand:1)

		;-------------------------------------------------
		;����
		;�I�i�o��������
		;-------------------------------------------------
		IF ARG == 2
			;�����@����ȏ�Ȃ�Ń^�C�v�m��ł����Ă���������
			PRINTFORMDL �{�l�͋C�Â��Ă��Ȃ��̂��낤���A���̐������񂾂�Ƒ傫���Ȃ��Ă����c�c
			TRYCALL K17_H�ϑz_�b��(iType)

			;�K�^�␳+10%�@�֌W���␳+3%�@��
			IF K17_LUCKY_SUKEBE(55)
				TRYCALL K17_ONABARE(K17C_ID)
				RETURN 1
			ENDIF

			;�������ł��ӏ܂Ƒ卷�Ȃ����
			PRINTFORMDL ���낻��B����̂��A%CALLNAME:TARGET%���������%CALLNAME:MASTER%�̎�������Ă���̂ŁA�v�킸����Ԃ��Ă��܂���
			PRINTFORML �u�c�c�c�c�H�@�����v
			PRINTFORMDL %CALLNAME:TARGET%�������ɐk���Ȃ��炱����ɋC�Â��āA���^���Ԃɂ���
			PRINTW
			PRINTFORML �u�����A������ƁA�܂��Ă��A%K17_�b��_�Ⓒ(iType,-1,"\n�@�����Ȃ���")%�v
			PRINTFORMDL %CALLNAME:TARGET%�͍Q�Ă��l�q������������%K17_RS("���~�߂�ꂸ/�Ɋ������ꂸ/�ɑς���ꂸ")%�A�т��т����z������
			PRINTFORMDL �p�����������ɐg�̂��ۂ߂ĐⒸ���邪�A�̐S�ȏ���%CALLNAME:MASTER%����ی���������
			PRINTFORMDL �c�c
			PRINTFORMDL �c�c�c�c
			PRINTFORMDW �c�c�c�c�c�c

			;���Ȗ\�I����
			;�I�i�o���C�x���g������������
			IF FIRSTTIME("�I�i�o��")
				PRINTFORML �u�����Ɓc�c����͂��́c�c�v
				PRINTFORMDL %CALLNAME:TARGET%�͐Ⓒ����񕜂���Ƃ��ǂ���ǂ�ɂȂ��Đ������n�߂�
				PRINTFORML �u�c�c�������A�Ⴄ�̂悱��́v
				PRINTFORML �u���́c�c�l�`�̂ˁA�����H�@�����I�@����ł�����Ɓc�c�v
				PRINTFORMDL ���̌�����͋ꂵ���Ǝv�����c�c
				PRINTW
				PRINTFORMDL ����ɖ{���ɂ���ȁ@"����"�@�����Ă���Ƃ���Ȃ�A���Ђ����ƌ��Ă݂������̂�
				PRINTFORML �u�b�b�b�I�v
				PRINTFORML �i�o�A�o���Ă��ˁc�c�j
				PRINTW
				PRINTFORMDL ����ɂ��Ă�%CALLNAME:TARGET%�́@"�����M�S"�@�Ȃ悤��
				PRINTFORML �i���̎q�����āc�c���~����񂾂�����c�c�j
				PRINTFORML �i�����ň�l�����������Ⴄ���Ƃ����Ă�����c�c%K17_BLUSH()%�j
				PRINTFORML �i�����%K17_CNAME()%�ɂ��ӔC����񂾂���˂��c�c�j
				PRINTW
				PRINTFORMDL �����Ɓ@"�������\"�@���đ��̐l�ɂ������Ă����Ȃ���
				PRINTFORML �u���`�`�`�I�H�I�H�@���A����͔��\�ł���悤�Ȃ��̂�����c�c�I�v
				PRINTFORML �u�ȁA������I�@�����̌����Ȃ́I�v
				PRINTFORML �u�Ă������A�킩���ĂĂ�����錾���Ă�ł���I�H�v

			ELSE
				PRINTFORML �u�����c�c����c�c�����c�c�����[�v
				PRINTFORMDL �Ⓒ���I����%CALLNAME:TARGET%�̓V�[�c�𓪂܂Ŕ���Ă��܂��X���Ă���
				PRINTFORMDL %CALLNAME:TARGET%�͂���ς�@"�����M�S"�@������
				PRINTFORML �u�����A����c�c�v
			ENDIF

			PRINTFORMDW ���Ⴀ�A��̂ǂ�ȁ@"����"�@�����Ă����̂��A�����ƌ����ė~�����c�c
			PRINTFORMDL �c�c
			PRINTFORMDL �c�c�c�c
			PRINTFORMDW �c�c�c�c�c�c
			PRINTL
			PRINTFORMW �u%CALLNAME:TARGET%��%K17_RS("�ЂƂ肦����/����/���ȂɁ[/���̎q�̐g��")%���������Ă܂�����%K17_BLUSH(2)%�v
			PRINTFORML �u�����A�ň��̑䎌����v
			;�ӏ܂Ɠ���
			TRYCALL K17_�I�i�o���ǉ��C�x���g(2,iRand:1)

			PRINTFORMDL �Ȃ񂾂����炸%CALLNAME:TARGET%��������߂āA�����Ɠ��𕏂łȂ��疰��ɂ����c�c

			;CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O = 1
			RETURN 1

		;-------------------------------------------------
		;ARG==3,5,6�̃I�v�V�����I��
		;-------------------------------------------------
		ELSEIF ARG == 3
			;���o�����t
			LOCALS = %K17_CNAME()%�̐��t��
			ABLnum = K17C_����V
		ELSEIF ARG == 5
			;���ʕ`�ʂ���
			SELECTCASE ARG:1
				[SKIPSTART]
				CASE 1
					ABLnum = K17C_����B
				CASE 2
					ABLnum = K17C_����A
				CASE 3
					ABLnum = K17C_����C
				CASE 4
					ABLnum = K17C_����V
				[SKIPEND]
				CASE 1
					ABLnum = K17C_����C
				CASE 2
					ABLnum = K17C_����V
				CASE 3
					ABLnum = K17C_����A
				CASE 4
					ABLnum = K17C_����B
			ENDSELECT
		ELSEIF ARG == 6
			;�������Ⴀ��
			LOCALS +="���������"
			SELECTCASE ARG:1
				CASE 1
					LOCALS += K17_CALL_P(K17C_����A)+"��"+K17_CALL_P(K17C_����V)
				CASE 2
					ABLnum = K17C_����V
			ENDSELECT
		ENDIF

		;-------------------------------------------------
		;�b��
		;-------------------------------------------------
		TRYCALL K17_H�ϑz_�b��(iType,ARG==6 ? 1#0)

		;-------------------------------------------------
		;�Ⓒ����
		;-------------------------------------------------
		;����
		PRINTFORML �u%K17_�b����(iType,6,1)%%K17_���y_�b����(iType,8000,ABLnum)%%K17_�b����(iType,6,1,1)%�v
		PRINTFORML �u%K17_�b��_�Ⓒ(iType,ABLnum,LOCALS)%�v
		PRINTW

		;���z��
		PRINTFORML �u�͂��c�c%K17_HEART()%�v
		PRINTFORMDL �������Ⓒ����%CALLNAME:TARGET%�̐g�̂���͂�������ƁA������Ɖ������
		PRINTFORMDL �z�Ɏ�����r�����𐮂��Ă���
		PRINTFORML �i%K17_RS("�~���s��/���܂��Ă��/�����߂���")%������c�c�j
		SELECTCASE iType
			;��
			CASE K17C_��_���˂���n
				PRINTFORML �i����ȁA%K17_RS("���˂��肵/�M������/�Â�")%���Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			CASE K17C_��_���ӏP���n
				PRINTFORML �i����ȁA��������U����%K17_RS("�����/�Œ��ꒃ��/��")%���ꂿ�Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			CASE K17C_��_������n
				PRINTFORML �i����ȁA%K17_RS("�����/���\/��")%���ꂿ�Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			CASE K17C_��_����`���n
				PRINTFORML �i����ȁA%K17_RS("�D������/�Œ��ꒃ��/���\��")%���ꂿ�Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			;�U��
			CASE K17C_�U��_���˂���n
				PRINTFORML �i����ȁA��������%K17_RS("���˂���/�M��")%�����Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			CASE K17C_�U��_���ӏP���n,K17C_�U��_������n
				PRINTFORML �i����ȁA��������%K17_RS("�����/�Œ��ꒃ��/��")%�����Ⴄ%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
			CASE K17C_�U��_����`���n
				PRINTFORML �i����ȁA��������%K17_RS("���ꂿ�Ⴄ/�y���񂶂Ⴄ")%%K17_RS("�ϑz/�z��")%�Ȃ�āc�c�j
		ENDSELECT

		PRINTFORMDL %CALLNAME:TARGET%�͂��Ȃ�̎��Ȍ����Ɋׂ���
		SIF CFLAG:TARGET:�����ʒu != CFLAG:MASTER:�����ʒu
			CFLAG:K17C_ID:K17C_CF_�I�i�j�[�t���O = 1
	;���m�ȊO���ԏI�[
	ENDIF
ENDIF
RETURN 1
;==================================================
;����A�ꂾ��
;==================================================
@M_KOJO_EVENT_K17_23(ARG,ARG:1)
#DIM DYNAMIC iMOB = 0
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;�f��ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML �u������Ƒ҂��Ȃ����A���΂ɗ����N���֌W����Ȃ��ł���H�v
	ENDIF
	;-------------------------------------------------
	;�ꏏ�ɓ����Ă��ꂽ
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u�������̐l���đ��l�Ƃ����C����̍D����˂��c�c�v
		PRINTFORML �u����܂�W���W������̂͋֎~��v
		PRINTFORMDL �p�����������Ă���%CALLNAME:TARGET%���悻��%CALLNAME:MASTER%�͂������ƕ���E���ł��܂�
		PRINTFORML �u���A��ɓ����Ă��āv
		PRINTW
		PRINTFORMDL ����������%CALLNAME:MASTER%�͐�ɗ���ɓ��������A�Ȃ��Ȃ�%CALLNAME:TARGET%�������Ă��Ȃ�
		PRINTFORMDL ���x������������ƁA�悤�₭�p�����������ɐg�̂��B����%CALLNAME:TARGET%������Ă���

		;�A���X�̑��ɓ��s�҂����邩�`�F�b�N
		FOR i,1,CHARANUM
			SIF !TARGET:i
				BREAK

			IF (CFLAG:(TARGET:i):���s) && TARGET:i != K17C_ID
				iMOB = TARGET:i
				BREAK
			ENDIF
		NEXT

		;�A��o���͐�MASTER�����ړ�����̂����d�l�Ȃ̂ŁA���̈ʒu�ő�TARGET�����Ȃ������Ƃ�
		;�A���X�̈ʒu�ł͑�TARGET���l�����Ȃ�
		;�ݒ肵�ċC�Â������ǂ����C�ɑ��L��������ƁA����������ɓǂ܂�Ă����͂��Ȃ����ۂ�
		IF K17_CHECK_RANDOM_EVENT(TARGET,-1,0) && K17_GET_CHARA_POSNUM(MASTER) == 0 && !iMOB
			;����Ƃ�Ԃ�
			TRYCALL K17_�����C�C�x���g(TARGET)
			SIF RESULT
				PRINTFORMDL ���ꂾ��������ƁA�^���ԂɂȂ��ē��D�ɐZ�����Ă��܂���
		ENDIF
		IF !RESULT
			PRINTFORMDL %K17_RS(HIP(TARGET)+"/"+OPPAI_DESCRIPTION(TARGET,1)+"/"+THIGHS(TARGET))%���`�����ƌ�����
		ENDIF
	ENDIF

	PRINTW
ENDIF
RETURN 1
;==================================================
;���D
;==================================================
@M_KOJO_EVENT_K17_24(ARG,ARG:1)
;������LOCAL
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;����
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML �u���A���̂ˁA%K17_CNAME()%�Ƃ̐Ԃ����c�c\@EXP:�o�Y�o��?�܂�#\@���������݂����Ȃ́v
		PRINTFORMDL %CALLNAME:TARGET%�͊��������ɏΊ��%CALLNAME:MASTER%�����߂Ă���
	ENDIF
	;-------------------------------------------------
	;�v��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u�����Ɓc�c���́c�c���́c�c�ˁA\@EXP:�o�Y�o��?�܂�#\@�o����������A�݂����Ȃ́v
		PRINTFORMDL %CALLNAME:TARGET%�͕s������%CALLNAME:MASTER%�̕������߂邪�A�����Ɏ������O���Ă��܂�
	ENDIF
	;-------------------------------------------------
	;�ח��f������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;�l��͂���
		PRINTFORML �u�ǂ�����̂�A%K17_CNAME()%�̂�����\@EXP:�o�Y�o��?�܂�#\@�o��������������c�c�ǂ�����̂���v
		PRINTFORMDL %CALLNAME:TARGET%�͔D�P�ɕs���������Ă���悤��
		PRINTFORMDL %CALLNAME:MASTER%�͋��������ɂȂ��Ă��܂�%CALLNAME:TARGET%�̓��𕏂łāA�G�߂��������Ƃ����ł��Ȃ������c�c
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�����o
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML �i�Ȃ񂾂낤�c�c�ŋߑ̒������������c�c�悤�ȁj
		PRINTW
		RETURN 1
	ENDIF

	;�񍐊ח�����@�o�Y�o��������
	IF !EXP:�o�Y�o��
		PRINTW
		PRINTFORMDL �ǂ����o������Ȃ��Ă͂Ȃ�Ȃ��悤��
		PRINTFORML �u���A�Y�ނ�c�c�ł��A���߂Ă�����A������ƕs���Ȃ񂾂���ǁc�c�v
		PRINTFORMDL %CALLNAME:TARGET%�̂ق��͐�Ɋo�傪�ł��Ă���悤�ŁA�����������Ɏ����̕��𕏂łĂ���
		PRINTFORMDL ����Ȏp�����āA%CALLNAME:MASTER%��%CALLNAME:TARGET%��������߂Ă���
		PRINTFORML �u�Ђ႟���c�c�ǂ������́c�c�}�Ɂc�c���v��A�����ƌ��C�Ȏq���Y�ނ�v
	ELSE
		PRINTFORML �u���A�܂��Y�ނ��c�c%K17_CNAME()%�Ƃ̎q���Ȃ牽�l�ł��~�������́A�����ł��傤�H�v
		PRINTFORMDL �o�Y�o�����o�āA%CALLNAME:TARGET%�͕�e�ɂȂ�%K17_RS("���/�K��")%��m�����悤��
	ENDIF

ENDIF
PRINTW
RETURN 1
;==================================================
;�o�Y
;==================================================
@M_KOJO_EVENT_K17_25(ARG,ARG:1)
;������LOCAL
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;������
	;-------------------------------------------------
	;���� �v��
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && (ARG == 1 || ARG == 2)
		PRINTFORML �u���v��A���C�Ȏq���Y�߂���
		PRINTFORML �u�ق�A���āA���̎q�B%K17_RS("�ڌ�/����")%��%K17_CNAME()%���������v
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�ח��f������
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML �u�c�c�s��������ǁA���ꂩ�炱�̎q�͎���l�ň�ĂȂ���c�c�v
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�����o
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;���̑�
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;�I�i�o��
;09/20	�Ȃ񂩍��G���ȁ[�֐����\��n
;09/21	�����}�V�ɂȂ����͂��@�t���O�擾��K17_�I�i�o���ǉ��C�x���g�֐��ɂ�
;09/24	�������Ԓǉ� ARG:1�ɂČ���ꂽ�u�ԁA�ǂ��o���@���ƈꏏ
;==================================================
@M_KOJO_EVENT_K17_26(ARG,ARG:1)
#DIM Virgin = 0		;�܂�܂̈Ӗ��@�s�����藈���肷��̂ŕی삵�Ă���
#DIM iRand = 0		;�󂯖ϑz�̈ꎞ�󂯓n��
#DIM iType = 0		;�^�C�v�̕ۑ�
#DIM iRes = 0		;���񂩂ǂ������Ƃ�

;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;����ꂽ�u�� �ʏ�I�i�o��
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF FIRSTTIME("�I�i�o��",1) && ARG:1==0
				SELECTCASE K17_GRT(TARGET)

				;���ӂӌo���Ȃ�
					CASE IS<K17C_�v�炤�ӂ�
						PRINTFORML �u�I�H�I�H�c�c%K17_RS("�Ђ����`�`�`/���Ⴀ������/�ӂ�����������")%�H�v
					;���ӂ�+�L�X�o������
					CASEELSE
						PRINTFORML �u�c�c%K17_RS("�Ђ��/���႟/�ӂ�����/������")%�I�H�v
				ENDSELECT
				PRINTFORML �u�����c�c����c�c�����c�c�v
				PRINTFORMDL ���i�̗l�q����͑z���ł��Ȃ��悤�Ȑ��𕷂��Ă��܂���
				PRINTFORML �u�����Ɓc�c�������A�Ⴄ�̂悱��́v
				PRINTFORML �u���́c�c�l�`�̂ˁA�����H�@�����I�@����ł�����Ǝ肪�����Ȃ������̂�v
				PRINTFORMDL ���̌�����͋ꂵ���Ǝv�����c�c

			ELSEIF ARG:1==0
				SELECTCASE K17_GRT(TARGET)

					;���ӂӌo���Ȃ�
					CASE IS<K17C_�v�炤�ӂ�
						PRINTFORML �u�I�H�I�H�c�c%K17_RS("���`�`�`�`/���Ⴀ������/�ӂ�����������")%�H�v
					;���ӂ�+�L�X�o������
					CASEELSE
						PRINTFORML �u%K17_RS("�Ђ��/���႟/�ӂ�����/������")%�I�H�v
				ENDSELECT
				PRINTFORML �u�����c�c����c�c�����c�c�����c�c�܂��c�c�Ȃ́H�v
				PRINTFORMDL ���i�̗l�q����͑z���ł��Ȃ��悤�Ȑ��𕷂��Ă��܂���
				PRINTFORMDL %CALLNAME:TARGET%�͂���ς�@"�����M�S"�@������
				PRINTFORML �u�����A����c�c�v

			ENDIF

			;-------------------------------------------------
			;�ǉ��C�x
			;�������ԁ@����ꂽ�u��
			;-------------------------------------------------
			IF ARG:1==1
				;PRINTFORMDL ���낻��B����̂��A%CALLNAME:TARGET%���������%CALLNAME:MASTER%�̎�������Ă���̂ŁA�v�킸����Ԃ��Ă��܂���
				PRINTFORML �u�c�c�c�c�H�@�����v
				PRINTFORMDL %CALLNAME:TARGET%�������ɐk���Ȃ��炱����ɋC�Â��āA���^���Ԃɂ���
				PRINTW
				PRINTFORML �u�����A������ƁA�܂��Ă��A%K17_�b��_�Ⓒ(K17C_��_������n,-1,"\n�@�����Ȃ���")%�v
				PRINTFORMDL %CALLNAME:TARGET%�͍Q�Ă��l�q������������%K17_RS("���~�߂�ꂸ/�Ɋ������ꂸ/�ɑς���ꂸ")%�A�т��т����z������
				PRINTFORMDL �p�����������ɐg�̂��ۂ߂ĐⒸ���邪�A�̐S�ȏ���%CALLNAME:MASTER%����ی���������
				PRINTFORMDL �c�c
				PRINTFORMDL �c�c�c�c
				PRINTFORMDW �c�c�c�c�c�c
			ENDIF
			IF FIRSTTIME("�I�i�o��",1) && ARG:1==1
				PRINTFORML �u�����Ɓc�c����͂��́c�c�v
				PRINTFORMDL %CALLNAME:TARGET%�͐Ⓒ����񕜂���Ƃ��ǂ���ǂ�ɂȂ��Đ������n�߂�
				PRINTFORML �u�c�c�������A�Ⴄ�̂悱��́v
				PRINTFORML �u���́c�c�l�`�̂ˁA�����H�@�����I�@����ł�����Ɓc�c�v
				PRINTFORMDL ���̌�����͋ꂵ���Ǝv�����c�c
			ELSEIF ARG:1==1
				PRINTFORML �u�����c�c����c�c�����c�c�����[�v
				PRINTFORMDL �Ⓒ���I����%CALLNAME:TARGET%�̓V�[�c�𓪂܂Ŕ���Ă��܂��X���Ă���
				PRINTFORMDL %CALLNAME:TARGET%�͂���ς�@"�����M�S"�@������
				PRINTFORML �u�����A����c�c�v
			ENDIF

		RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;�������Ȃ�
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1==0
			IF FIRSTTIME("�I�i�o��",1)
				SELECTCASE K17_GRT(TARGET)
					CASE IS<K17C_�v�炤�ӂ�
						PRINTFORML �u������A�����Ɓc�c�����o�čs���Ȃ����b�I�v
					CASE IS < K17C_���琶����
						PRINTFORML �u�c�c�����%K17_BLUSH(2)%�@�p���������Ƃ��댩��ꂽ��c�c�v
						PRINTFORML �u��������%K17_CNAME()%�ɂ��ӔC�c�c����񂾂���ˁv
					CASE IS >= K17C_���琶����
						PRINTFORML �u�c�c���H�@�R�ł���c�c�z���g�ɋA�����Ⴄ�c�c�́H�v
				ENDSELECT
			ELSE
				;�����肵���肵���ȍ~
				PRINTFORML �u�ł��A�łĂ��ăb�I�c�c�c�c�����c�c�v
				SELECTCASE K17_GRT(TARGET)
					CASE IS<K17C_�v�炤�ӂ�
						PRINTFORML �u����ς�O�̂ň����ꂿ������̂�����c�c�v
					CASE IS < K17C_���琶����
						PRINTFORML �u�c�c�����c�c�R�c�c���������߂���������̂�����c�c�v
						PRINTFORML �u����Ƃ��O�̂ň����ꂿ������́c�c�H�v
					CASE IS >= K17C_���琶����
						PRINTFORML �u�c�c���H�@�R�ł���c�c�z���g�ɋA�����Ⴄ�c�c�́H�v
						PRINTFORML �u�����c�c�O����������̂ˁc�c�v
				ENDSELECT
			ENDIF
			PRINTFORML �u�΂��c�c�΂������I�v
			;����g�����΂�ăA���X�̃v���C�h��������
			CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,-1)
			RETURN 1
		ENDIF

		;-------------------------------------------------
		;�������Ȃ��@��������
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1==1
			IF FIRSTTIME("�I�i�o��",1)
				SELECTCASE K17_GRT(TARGET)
					CASE IS < K17C_���琶����
						PRINTFORML �u�c�c�����%K17_BLUSH(2)%�@�p���������Ƃ��댩��ꂽ��c�c�v
						PRINTFORML �u��������%K17_CNAME()%�ɂ��ӔC�c�c����񂾂���ˁv
					CASE IS >= K17C_���琶����
						PRINTFORML �u�c�c���H�@�R�ł���c�c�z���g�ɐQ���Ⴄ�c�c�́H�v
				ENDSELECT
			ELSE
				;�����肵���肵���ȍ~
				PRINTFORML �u�����I�H�c�c�c�c�����c�c�v
				SELECTCASE K17_GRT(TARGET)
					CASE IS < K17C_���琶����
						PRINTFORML �u�c�c�����c�c�R�c�c���������߂���������̂�����c�c�v
						PRINTFORML �u����Ƃ��O�̂ň����ꂿ������́c�c�H�v
					CASE IS >= K17C_���琶����
						PRINTFORML �u�c�c���H�@�R�ł���c�c�z���g�ɐQ���Ⴄ�c�c�́H�v
						PRINTFORML �u�����c�c�O����������̂ˁc�c�v
				ENDSELECT
			ENDIF
			PRINTFORML �u�΂��c�c�΂������c�c�v
			;����g�����΂�ăA���X�̃v���C�h��������
			CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,-1)
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;���̂܂ܑ��s
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;�����{�W�J���[�I�@�A���X�̏��̎q�̐g�̂̎d�g�݌�����I�ӏܕ�
			;���ĂĂ����邩��ǂ������̂܂�

			IF FIRSTTIME("�I�i�o��")
				PRINTFORML �u�݂��c�c������āc�c�H�v
				PRINTFORMDL ���́@"����"�@�������[�����猩�Ă݂���
				PRINTFORML �u�b�b�b�I�v
				PRINTFORML �i�o�A�o���Ă��ˁc�c�j
				PRINTW
				PRINTFORMDL ����ɂ��Ă�%CALLNAME:TARGET%�́@"�����M�S"�@�Ȃ悤��
				PRINTFORML �i���̎q�����āc�c���~����񂾂�����c�c�j
				PRINTFORML �i�����ň�l�����������Ⴄ���Ƃ����Ă�����c�c%K17_BLUSH()%�j
				SIF TALENT:K17C_ID:����
					PRINTFORML �i�����%K17_CNAME()%�ɂ��ӔC����񂾂���˂��c�c�j
				PRINTW
				PRINTFORMDL �����Ɓ@"�������\"�@���đ��̐l�ɂ������Ă����Ȃ���
				PRINTFORML �u���`�`�`�I�H�I�H�@���A����͔��\�ł���悤�Ȃ��̂�����c�c�I�v
				PRINTFORML �u�ȁA������I�@�����̌����Ȃ́I�v
				PRINTFORML �u�Ă������A�킩���ĂĂ�����錾���Ă�ł���I�H�v
				PRINTFORMDW ���Ⴀ�A���̂��Ƃ͔閧�ɂ��邩��c�c
				CALLF FIRSTTIME("�I�i�o���ӏ܏���")
			ELSEIF FIRSTTIME("�I�i�o���ӏ܏���")
				PRINTFORML �u�ق�ƂɁc�c���邾���c�c��H�v
				PRINTFORMDL ���̑O�Ɂc�c
			ELSE
				PRINTFORML �u�܂��c�c�܂��A�������́c�c�H�v
				PRINTFORMDL ���̑O�Ɂc�c
			ENDIF

			PRINTFORMDL �c�c
			PRINTFORMDL �c�c�c�c
			PRINTFORMDW �c�c�c�c�c�c
			PRINTL
			PRINTFORMW �u%CALLNAME:TARGET%��%K17_RS("�ЂƂ肦����/����/���ȂɁ[/�g��")%�������\�A�ςĂ�������%K17_BLUSH(2)%�v
			PRINTFORML �u�����A�Œ�̑䎌����v

			;�v�灪�ǉ��C�x
			TRYCALL K17_�I�i�o���ǉ��C�x���g(ARG,iRand)
			IF RESULT
				PRINTFORMDL �Ȃ񂾂����炸%CALLNAME:TARGET%����납����������߂Ă��܂���
				PRINTFORMDL ���X�k���Ă����g�̂��X�ɂт���ƒ��ˏオ����
				PRINTFORML �u�ق��c�c%K17_RS("�{���ɐG���/�{���ɂ����Ⴄ��/�{�Ԃ�����")%�́c�c�����A���߁c�c��H�v
				PRINTFORMDL �x�b�h�ɍ�����%CALLNAME:TARGET%��G�̏�ɒu����
				PRINTFORML �u�����A������%K17_RS("����/��������/���ė~����")%�́I�H�v
				PRINTFORMW �i����A��΂��c�c�߂��A�߂�������j

				;�Ƃ肠�������̂Ƃ��냉���_���@���̂����b���^�C�v�ɂ���ĕϓ�������
				SELECTCASE RAND:4
					CASE 0
						PRINTFORML �i�h�L�h�L���Ă�́c�c�o�����Ⴄ���j
						PRINTFORMDL %CALLNAME:TARGET%�̐S���̌ۓ����`����Ă���
					CASE 1
						PRINTFORML �i%K17_CNAME()%�̓����c�c���������Ⴄ���j
						PRINTFORMDL %CALLNAME:TARGET%�̂����������`����Ă���
					CASE 2
						PRINTFORML �i���K��%K17_CNAME()%�́c�c�d���́c�c�������Ă�j
						PRINTFORMDL %CALLNAME:TARGET%��%HIP(TARGET)%�̊��G���G����`����Ă���
					CASE 3
						PRINTFORML �i�g�̔M���Ȃ��Ă�c�c�̃o�����Ⴄ���j
						PRINTFORMDL %CALLNAME:TARGET%�̔M���Ȃ����̉����`����Ă���
				ENDSELECT

			;�v��ȏ�ǉ��C�x�I�[
			ENDIF

			IF K17_RT_FG() & K17C_RTF_���ӂ�
				PRINTFORML �i�c�c�c�c�����c�c�z���g�ɁA���Ȃ��c�c�́H�j
			ELSE
				PRINTFORML �u�����H�@��΁A���[�������A%K17_RS("�閧/����/�l�Ɍ������炾��")%�A������ˁc�c�H�v
			ENDIF
			;����g�����΂�ăA���X�̃v���C�h��������
			CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,-1)
			PRINTL
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;�ǂ��o��
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML �u�����c�c�Œ�I�@�ϑԁI�@�o�Ă����������I�v
			;�ǂ��o�����v���C�h�͕ۂ����
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;������Ⴄ
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;�����{�W�J���[�I�@�A���X�̏��̎q�̐g�̂̎d�g�݌�����I���Z��
			;��l����l�ł�������C����������
			;��l�ł��ȂɁ[�̌����������Ǝv���Ă܂���
			;�Ȃ̂ŃA���X�Ɋ��Ⴂ�����Ƃ�

			;�I�i�o���b�N�X����@�ӏ܂��܂�
			IF FIRSTTIME("�I�i�o��")
				PRINTFORML �u�ӂ��c�c�ӂ���c�c�ŁH�@���H�v
				PRINTFORMDL ���́@"����"�@�������[������ꏏ�ɂ���Ă݂���
				PRINTFORML �u�b�b�b�I�v
				PRINTFORML �i�����A������ăo���Ă�c�c�̂�ˁH�j
				PRINTW
				PRINTFORMDL ����ɂ��Ă�%CALLNAME:TARGET%�́@"�����M�S"�@�Ȃ悤��
				PRINTFORML �i���̎q�����āc�c���~����񂾂�����c�c�j
				PRINTFORML �i�����ň�l�����������Ⴄ���Ƃ����Ă�����c�c%K17_BLUSH()%�j
				SIF TALENT:K17C_ID:����
					PRINTFORML �i�����%K17_CNAME()%�ɂ��ӔC����񂾂���˂��c�c�j
				PRINTW
				PRINTFORMDL �����Ɓ@"�������\"�@���đ��̐l�ɂ������Ă����Ȃ���
				PRINTFORML �u���`�`�`�I�H�I�H�@���A����͔��\�ł���悤�Ȃ��̂�����c�c�I�v
				PRINTFORML �u�ȁA������I�@�����̌����Ȃ́I�v
				PRINTFORML �u�Ă������A�킩���ĂĂ�����錾���Ă�ł���I�H�v
				PRINTFORMDW ���Ⴀ�A���̂��Ƃ͔閧�ɂ��邩��c�c
				CALLF FIRSTTIME("�I�i�o���b�N�X����")
			ELSEIF FIRSTTIME("�I�i�o���b�N�X����")
				;�I�i�o���b�N�X�����A�ӏ܍ς�
				PRINTFORML �u�����H�@�����I�H�@�������I�H�v
				PRINTFORML �u�c�c�ꏏ�Ɂc�c���āc�c���́A�������������������c�c�́H�v
				PRINTFORMDL ���̑O�Ɂc�c

			ELSE
				;�I�i�o���b�N�X2��ڈȍ~
				PRINTFORML �u�܂��c�c�����Ⴄ�́c�c�H�v
				PRINTFORMDL ���̑O�Ɂc�c
			ENDIF
			PRINTFORMDL �c�c
			PRINTFORMDL �c�c�c�c
			PRINTFORMDW �c�c�c�c�c�c
			PRINTL
			PRINTFORMW �u%CALLNAME:TARGET%��%K17_RS("�ЂƂ肦����/����/���ȂɁ[/�g��")%�����A�ꏏ�ɂ��Ă�������%K17_HEART()%�v
			PRINTFORML �u���`�`�`�`%K17_BLUSH()%�v

			;�I�i�o���b�N�X�ς�����
			IF !(CFLAG:K17C_ID:K17C_CF_�I�i�o���ǉ��C�x & 2)
				iRand = K17C_��������
				iRes = 0
			ELSE
				iRes = 1
			ENDIF
			;�v�灪�ǉ��C�x
			TRYCALL K17_�I�i�o���ǉ��C�x���g(ARG,iRand)
			;�^�C�v����
			iType = K17_�b���^�C�v_H�ϑz(K17C_��,iRand)
			;�������@���疢���@������Œ�
			SIF iRes == 0 ||  K17_GRT() < K17C_����
				iType = K17C_��_������n

			PRINTFORMDL �Ȃ񂾂����炸%CALLNAME:TARGET%����납����������߂Ă��܂���
			PRINTFORMDL ���X�k���Ă����g�̂��X�ɂт���ƒ��ˏオ����

			;�󂯖ϑz�����̂܂܎�����
			SELECTCASE iType
				;--------------------
				;�U���󂯁@���C�󂯁@����̂ݏ������󂯂ł����Ȃ�@�d���Ȃ��˂�
				;--------------------
				CASE K17C_��_������n
					VARSET Virgin
					PRINTFORML �u�ق��c�c%K17_RS("�{���ɐG���/�{���ɂ����Ⴄ��/�{�Ԃ�����")%�́c�c�����A���߁c�c��H�v
					PRINTFORMDW �c�c
					PRINTFORML �u�������������c�c������H�v
					PRINTFORMDW �c�c�c�c�I�I
					PRINTFORMW �u���A���߂��A���������Ă��I �@�ˁH�v
					PRINTFORMW �u��������I�H�v
					PRINTFORMW �u�킩�����I�@�킩��������I�v
					PRINTFORMW �u%K17_RS("���/�����Ă�������/�����������Ă�������")%���I�@���ꂩ%K17_RS("����/���K/�f��/�����ς�")%�ł��I�@���Ă����邩����I�v
					PRINTFORMW �u%K17_RS("����/����")%���������������A%K17_RS("��߂�/����")%�����������������I�v
					PRINTFORMDL ������ϑz�̑����Ȃ񂾂낤���c�c
					SIF K17_GRT(TARGET) < K17C_����
						PRINTFORMW �u���Z����Ȃ��b�I�@���Z����Ȃ��̃b�I�v
					IF TALENT:TARGET:����
						PRINTFORML �u�킽���A���A�����Ȃ̂��I�v
						;�������厖�Ȃ��̂Ȃ̂Ŏ���Ă���
						Virgin = TALENT:TARGET:����
					ENDIF

					;�Ɣ����D�v��
					SIF TALENT:MASTER:���� >= 2 && (!CFLAG:TARGET:������ && ESTRUS_CYCLE(TARGET) != 15) || (CFLAG:TARGET:������ < 2 && ESTRUS_CYCLE(TARGET) == 150)
						PRINTFORML �u%K17_RS("��D/�S������")%���A���߂�%K17_RS("��D����/�S������")%�������������I�I�v
					;��MASTER�ł����������̂ł���ł����Ă�̂�
					PRINTFORML �u�ق�ƂɁc�c�}�ꂿ�Ⴄ�̂��߂��������������v

				;--------------------
				;�P�󂯁@��񂱎�
				;--------------------
				CASE K17C_��_���˂���n
					;���灪
					PRINTFORML �u�����c�c�Ă�����P��������ꂿ�Ⴄ���Ɓc�c�v���Ă��v
					PRINTFORML �u�ˁA�˂��c�c�ꏏ�ɂ��āc�c���́c�c���������c�c�����H�v
					PRINTFORMDW %CALLNAME:TARGET%���񂾓��ŁA�˂���悤�ɐ��������������U����
					PRINTFORMW �u�c�c���āc�c�v
					PRINTFORMW �u���Ă��c�c�����A�ˁH�@������A�˂�%K17_HEART()%�@�˂�%K17_HEART()%�v
					PRINTFORMDL ����ɂ��݂��̌ҊԂ��G�ꍇ���A%CALLNAME:TARGET%�̐��킩��A�������A�Ƃ���炵����������
					PRINTFORMW �u�����ɂ��Ă��炤�񂾂��炟�c�c�D���ɂ��āA�����̂�H�v
					;�Ɣ���
					IF TALENT:MASTER:���� >= 2
						PRINTFORML �u�������c�c������%K17_HEART()%�@�}���ꂿ�����%K17_HEART()%�v
					ELSE
						PRINTFORML �u�������c�c������%K17_HEART()%�@�������������%K17_HEART()%�v
					ENDIF

				;--------------------
				;�������󂯁@�P����
				;--------------------
				CASE K17C_��_���ӏP���n
					;�܂��Ƃ��C�ł���I�@�G�����l�̂悤�ɁI
					PRINTFORML �u�ӂ���c�c�܂��A���́A�����Ⴄ�C�ł���c�c�v
					PRINTFORMDL �����Ȃ���A%CALLNAME:TARGET%�̓`���`���ƃx�b�h�̕��Ɏ����𑗂��Ă���
					PRINTFORML �u������I�H�@����A������Ɓc�c%K17_BLUSH()%�v
					PRINTFORMDL %CALLNAME:MASTER%�͌y���G�ꂽ�����̂��肾�������A%CALLNAME:TARGET%�͐K�݂����ăx�b�h�ɍ����Ă��܂���
					PRINTFORMDL ����͂܂�A�U���Ă���̂��낤�c�c
					PRINTW
					PRINTFORML �u%K17_RS("���j������/���ɏo������/���\��")%�����珳�m���Ȃ��񂾂���ˁc�c�v
					PRINTFORML �u��΂�%K17_RS("�������肵�Ȃ�/�����Ȃ�")%������v
					PRINTFORMDL �����܂ōs���ƂȂ񂾂�������Ɖ���
					PRINTFORMDL ����ꂽ�ʂ�O��I�ɃV�Ă����悤

				;--------------------
				;���C��
				;--------------------
				CASE K17C_��_����`���n
					;�ӔC�Ƃ肦����
					PRINTFORML �u�c�c���́A%K17_RS("����/����")%����������́c�c�H�v
					PRINTFORML �u�킽�A���́c�c������ˁH�@�������c�c�v
					PRINTDATADL
						DATAFORM %CALLNAME:TARGET%�͔w��������ƁA\@TEQUIP:�����g���ߏ� & 1?%K17_GET_SKIRT(TARGET)%���߂�����#\@���K��˂��o���ǂɎ������
						DATAFORM %CALLNAME:TARGET%�͋����̃{�^�����O���ƁA�J�Ԃ������%CALLNAME:MASTER%���삢��
						DATAFORM %CALLNAME:TARGET%�̓x�b�h�ɐQ���ׂ�ƁA\@TEQUIP:�����g���ߏ� & 1?%K17_GET_SKIRT(TARGET)%���߂�����#\@%K17_RS("�������J����/�������l���ɊJ����/�Б��������グ�Č҂��J����")%
					ENDDATA
					PRINTFORML �u�ӔC��邩��c�c�D���ɂ��Ă�����H�v
					PRINTFORMDL ���̐��͐S�Ȃ������������ɕ��������c�c

			ENDSELECT

			PRINTL
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;����
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;�����r���A���疢���A����͂�������
			IF (TALENT:TARGET:���� == 0 && Virgin == 1) || K17_GRT(TARGET) < K17C_���� || iRes == 0
				IF TALENT:TARGET:���� == 0 && Virgin == 1
					;�����̂ǂ��ł�������������ꂽ�ꍇ
					PRINTFORML �u�c�c�c�c����ȁc�c�Ђǂ���c�c�������c�c�v
					PRINTFORML �u�ق�ƂɁc�c���߂Ă������̂Ɂc�c�������c�c�v
				ENDIF
				PRINTFORML �u������傾�����āc�c�������̂Ɂc�c�v
				PRINTFORML �u�Œ��c�c�������c�c�������c�c�v
				PRINTFORML �i�Ȃɂ��ŒႩ���āc�c�������c�c�C�����c�c�悩�����c�c����Ȃ��A�ł���c�c�j
				PRINTW
				PRINTFORMDL ����ς���߂����̂��낤��
				IF K17_GRT(TARGET) >= K17C_�v��
					PRINTFORML �u�c�c���c�c���͂����Ƃ��邱�ƁA������ˁH�v
					;�V�g��
				ELSE
					PRINTFORML �u�����o�Ă��āc�c�v
				ENDIF
				Virgin = 0

			;���̂��������Ŋ��z���v���C���[�ɐu���ă^�C�v�`���C�X�̎d����ς��邩
			ELSEIF K17_GRT(TARGET) >= K17C_����
				SELECTCASE iType
					CASE K17C_��_������n
						PRINTFORML �u�͂��͂��c�c����������%K17_HEART()%�v
						PRINTFORML �u�ł�����c�c�ȂɂȂ�����ǂ�����̂�c�c�v
						PRINTFORMDL ���݂��������������悤���c�c

					CASE K17C_��_���˂���n
						PRINTFORML �u�͂��͂��c�c�����c�c�v
						PRINTFORML �u�Ƃ��ꂿ�������%K17_HEART()%�v
						PRINTFORMDL �ʂ����ĔƂ��Ƃ͈�́c�c

					CASE K17C_��_���ӏP���n
						PRINTFORML �u�͂��͂��c�c�����܂�����%K17_HEART()%�v
						PRINTFORML �u������������c�c�������c�c�v
						PRINTFORMDL ���t�Ƃ͗����Ɋ��������������c�c

					CASE K17C_��_����`���n
						PRINTFORML �u�������������c�c�H�@�z���g�ɍD�����肵�Ă��ꂽ��ˁc�c�v
						PRINTFORML �u�ł��Ȃ񂩂�����Ɖ����������H�v
						PRINTFORMDL ����������%CALLNAME:MASTER%�����グ�Ă���%CALLNAME:TARGET%�͗d���ŉ�������
				ENDSELECT
			ENDIF

			;���Z�b�g���ăt���O�ۑ�
			CALL K17_SET_AUTO_PVOICE(,,iType)
			;����g�����΂�ăA���X�̃v���C�h �ԓx��������
			CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�v���C�h,-2)
			CALL K17_TALENT_UPDOWN(TARGET,K17C_TALENT_�ԓx,-2)
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 0

;==================================================
;���肩��f�[�g�̂��U��
;==================================================
@M_KOJO_EVENT_K17_27(ARG,ARG:1)
;������LOCAL
;ARG:1�͖ړI�n
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;�U������
		CASE 0
			IF CFLAG:K17C_ID:K17C_CF_�f�[�g�C�x���g && CFLAG:K17C_ID:K17C_CF_�����C�x���g
				PRINTFORML �u�˂��A�܂��ꏏ�Ƀf�[�g���܂��傤�H�v
			ELSEIF CFLAG:K17C_ID:K17C_CF_�f�[�g�C�x���g
				PRINTFORML �u�˂��A���₶��Ȃ�������A�܂��f�[�g���܂��傤�H�v
			ELSE
				PRINTFORML �u�˂��A���[���Ɓc�c���܂ɂ͊O�ɗV�тɍs���Ă݂Ȃ��H�v
			ENDIF
			PRINTL
		;�󂯂�
		CASE 1
			PRINTFORML �u���Ⴀ�����s���܂��傤�v
			PRINTW
		;�f����
		CASE 2
			PRINTFORML �u����A�����p���ł�������������H�@���Ⴀ�A�܂����x�ˁc�c�v
			PRINTW
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;�E�ߌ���
;==================================================
@M_KOJO_EVENT_K17_28(ARG,ARG:1)
#DIM DYNAMIC iRand = 0
;������TARGET
;ARG�ɒE�������I��
;ARG:1�iARG=3�̏ꍇ�݂̂���j�n�̕��̔���
;--------------------------------------------------
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
;���Ԓ�~
;�ʏ폈��
LOCAL = 1
;-------------
IF LOCAL && FLAG:���Ԓ�~
	RETURN 1
ENDIF
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
;�D����
;�ʏ폈��
LOCAL = 1
;-------------
IF LOCAL && TCVAR:TARGET:�D��
	PRINTFORML �u�c�c���[�c�c�����킟�c�c�E�����Ⴆ�c�c���͂͂��v
	PRINTFORML �i���ꂥ�c�c�����񂾂����c�c�����Ɓc�c�܂����������j
	PRINTW
	RETURN 1
ENDIF
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
;��������
;�ʏ폈��
LOCAL = 1
;-------------
IF LOCAL && CFLAG:����
	PRINTFORML �u%K17_SHUFFLE_�Q��(K17_RS("����/��/���/������"))%�v
	PRINTW
	RETURN 1
ENDIF
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
;���Ԓ�~�@�D���ȊO
;�ʏ폈���@���ӌn
LOCAL = 1
;-------------
IF LOCAL && !(CFLAG:K17C_CF_�b���^�C�v & K17C_�b��F_�P��)

	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;�S���ɂ���
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;------------------
			;�\���J�n
			;------------------
			PRINTFORML �u�S���c�c�E�����ꂿ������c�c�v

			;����@0�����Œ�
			IF FIRSTTIME("�E��-�S��")
				;���ʔ���
				IF TALENT:MASTER:���� == 2
					PRINTFORML �i�j�̐l�Ɂc�c����ȑS���������Ⴄ�Ȃ�āc�c�₾���p���������c�c�j
				ELSE
					PRINTFORML �i�����m�����c�c�ʂɌ����Ă��c�c���C�c�c����ˁc�c�H�j
				ENDIF
				iRand = 1
			ENDIF

		ENDIF
		;-------------------------------------------------
		CASE 1
		;�����p�ɂ���
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;------------------
			;�\���J�n
			;------------------
			PRINTFORML �u���c�c�E�����ꂿ������c�c�v

			;����@0�����Œ�
			IF FIRSTTIME("�E��-�����p")
				;���ʔ���
				IF TALENT:MASTER:���� == 2
					;���ɑS�����Ă邩����
					SIF FIRSTTIME("�E��-�S��",1)
						PRINTFORML �i�j�̐l�Ɂc�c�����܂Ō������Ⴄ�Ȃ�āc�c�₾���p���������c�c�j
				ELSE
					PRINTFORML �i�����m�����c�c�������炢�Ȃ�A�ʂɌ����Ă��c�c���C�c�c����ˁc�c�H�j
				ENDIF
				iRand = 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 2
		;���E��
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;------------------
			;�\���J�n
			;------------------
			PRINTFORML �u�����Ɓc�c���������E���́c�c�H�@�Ȃ񂾂��ςȊ�����v
			;����@0�����Œ�
			IF FIRSTTIME("�E��-���E��")
				;���ʔ���
				IF TALENT:MASTER:���� == 2
					PRINTFORML �i�j�̐l�Ɂc�c����Ȋi�D����ꂿ�Ⴄ�Ȃ�āc�c�p����������c�c�j
				ELSE
					PRINTFORML �i�����m�����c�c�������炢�Ȃ�A�ʂɌ����Ă��c�c���C�c�c����ˁc�c�H�j
				ENDIF
				iRand = 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		CASE 3
		;�p���c���傤����
		;�L���`�F�b�N�i=0, ��\���A1, �\���j
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMDL ��l�����E�������%CALLNAME:TARGET%��%CALLNAME:MASTER%�́A�p���c���~�����Ɠ`����

			;�p���c�v�����ɐ������󂯂Ă��邩����
			IF FIRSTTIME("�p���c�v��",1) && FIRSTTIME("�E��-�p���c�l��")
				PRINTFORML �u�����Ɓc�c���̉����Ȃ�ė~�����̂�����H�v
				PRINTFORMDL ����Ⴀ�A�����āc�c���[�Ɓc�c
				PRINTFORMDL %CALLNAME:MASTER%�͂ǂ����ĉ������~�����̂��A�ꂩ��%CALLNAME:TARGET%�ɐ���������ꂽ
				PRINTFORMDL �c�c
				PRINTFORMDL �c�c�c�c
				PRINTFORMDW �c�c�c�c�c�c
				PRINTFORML �u�ցA�ւ��c�c�����Ԃ�Ƃ�����H�@���Ă��ˁv
				PRINTW
			ELSE
				PRINTFORML �u����ς�c�c���́c�c�~�����񂾁c�c�v
				PRINTFORML �i���c�c������āc�c���̉����ŐF�X%K17_RS("�ϑz/�z��")%�����Ⴄ���Ă��ƂȂ񂾂�ˁj
				PRINTW
			ENDIF
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;�����ł�
				;�L���`�F�b�N�i=0, ��\���A1, �\���j
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORMDL �ǂ�����%CALLNAME:TARGET%��������~���������̂��낤���c�c
					PRINTFORML �u�Ɂc�c�l�`���̌����̂��߂�v
					PRINTFORMDL �����A�Ȃ�قǁB�@"�����ޗ�"�@�Ƃ����킯��
					;�I�i�o�����������茩��ꂽ���Ƃ����邩����
					IF FIRSTTIME("�I�i�o��",1)
						PRINTFORMDL ��������������āA%CALLNAME:TARGET%�͐^���ԂɂȂ��Ę낢�Ă��܂���
					ELSE
						PRINTFORMDL %CALLNAME:TARGET%��%CALLNAME:MASTER%�̉�������Ɏ��}�W�}�W�ƌ��ߊ��Ԃ�߂Ă���
					ENDIF
					PRINTFORML �i���߂�Ȃ����A�R���܂����B����c�c%K17_RS("���ȂɁ[/�ЂƂ肦����/�ϑz�ЂƂ肦����")%%K17_RS("�������Ⴄ/�Ɏg�����Ⴄ/�ōޗ��ɂ����Ⴄ")%�c�c�����j
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK�i���X
				;�L���`�F�b�N�i=0, ��\���A1, �\���j
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTDATAL
						DATAFORM �u����Łc�c�Ȃɂ���C�Ȃ̂�c�c%K17_RS("������/������/�ϑ�")%�c�c%K17_BLUSH()%�v
						DATAFORM �u�ʂɂ������ǁc�c�{�����������ɂ���񂾂���c�c�ˁH%K17_HEART()%�v
						DATAFORM �u�˂��A���������͂�������c�c���̂��Ƃ�������%K17_RS("�~��������/��������")%�H�@�ˁH%K17_HEART()%�v
					ENDDATA
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK�i�a�X
				;�L���`�F�b�N�i=0, ��\���A1, �\���j
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTDATAL
						DATAFORM �u���܂�ςȂ��ƂɎg������_���c�c%K17_RS("��/�Ȃ񂾂����/���炩��")%�c�c�v
						DATAFORM �u�܂��������ǁc�c���`�`�I�I�@�Ȃɓ����k�����Ƃ��Ă�̂���A%K17_RS("��߂�/�_����/����")%��������v
						DATAFORM �u����Ȃ��̂ŁA�����܂�%K17_RS("�K��/����")%�ɂȂ�Ȃ��ł���A�p���������c�c�v
					ENDDATA
				ENDIF
				;-------------------------------------------------
				CASE 3
				;���ł�
				;�L���`�F�b�N�i=0, ��\���A1, �\���j
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTDATAL
						DATAFORM �u%K17_RS("�_��/����/�₟")%��c�c�����肿���Ǝ���%K17_RS("�\���Ȃ���/������Ȃ���/�~������Ȃ���")%��c�c%K17_BLUSH()%�v
						DATAFORM �u��킸���̂܂܂��Ȃ�āc�c���΂ɂ������%K17_RS("�������/�C����/�c�c")%�v
					ENDDATA
				ENDIF
			ENDSELECT
			PRINTW
			RETURN 1
		ENDIF
	ENDSELECT

	;�Ǖ������`��
	IF ARG != 3
		;�I�o����@�p���炢�͎����Ă�����
		;�I�o�Ȍ���
		IF iRand == 0
			iRand = K17_LOWER_LIMIT_RAND(ABL:�I�o��,1,5)
		ELSE
			;����
			iRand = 0
		ENDIF
		SELECTCASE iRand
			CASE IS >= 5
				PRINTFORMDL %CALLNAME:TARGET%�͋���˂��o����%NIPPLE_DESCRIPTION(TARGET,1)%���������Ȃ���A�y���r���y���J���Č�����
				PRINTFORML �u���ꂩ��ǂ����ꂿ�Ⴄ�̂�����c�c��%K17_HEART()%�v
				PRINTW
				PRINTFORMDL %CALLNAME:TARGET%�͋r���J������グ���肵�āA%CALLNAME:MASTER%�Ɍ�������
				PRINTFORML �i�����%K17_RS("������/��������/�b�݂�����")%��Ō���ꂽ��c�c%K17_RS("������/�G��/���/�����������Ȃ�")%���Ⴄ�c�c�j
				PRINTFORMDL �����Ă����Ƃ肵���ڂ���%CALLNAME:MASTER%�Ɋ��Y���A������������ӏ����������Ē������Ă���
				PRINTFORMDL %CALLNAME:TARGET%�͋������Ă���̂��A�����r��

			CASE IS >= 3
				PRINTFORMDL %CALLNAME:TARGET%��%NIPPLE_DESCRIPTION(TARGET,1)%�͉B�����ɂ������A�r�͒p�����������ɕ��Ă���
				PRINTFORML �u�������A%K17_RS("�H������悤��/�Q�����b�݂����Ȋ��/�M���������")%����������A%K17_RS("������/������/�ϑ�")%%K17_HEART()%�v
				PRINTW
				PRINTFORMDL %CALLNAME:TARGET%���������ߑ������ƁA�������r���J����%CALLNAME:MASTER%�Ɍ������Ă���
				PRINTFORML �i%K17_RS("�������Ȋ�Ō��Ă�����/�������Ă��炦���/���a�����Ă�݂�����")%�c�c������Ɗy�����Ȃ��Ă���������c�c�j
				PRINTFORMDL ����������悤�Ƀ��U�ƍۂǂ��Ƃ�����`���`���ƌ����Ȃ���A�l�X�ȃ|�[�Y���Ƃ�
				PRINTFORMDL %CALLNAME:TARGET%�͋������Ă���̂��A�����r��

			CASE IS >= 1
				;���������Ă��邩����
				IF ARG != 1
					PRINTFORMDL %CALLNAME:TARGET%�͒p�����������ɋr����A���%OPPAI_DESCRIPTION(TARGET,1)%���B���Ă��邪�A�`���`����%NIPPLE_DESCRIPTION(TARGET,1)%�������B�ꂵ�Ă���
				ELSE
					IF TALENT:�o�X�g�T�C�Y >= 0
						PRINTFORMDL %CALLNAME:TARGET%�͒p�����������ɋr����A���%OPPAI_DESCRIPTION(TARGET,1)%���B���Ă��邪�A%K17_GET_CLOTHNAME_TOP_UNDER(TARGET)%�ō��ꂽ�J�Ԃ���������ƕ����яオ���Ă���
					ELSE
						PRINTFORMDL %CALLNAME:TARGET%�͒p�����������ɋr����A���%OPPAI_DESCRIPTION(TARGET,1)%���B���Ă��邪�A%K17_GET_CLOTHNAME_TOP_UNDER(TARGET)%�̌��Ԃ���`���`����%NIPPLE_DESCRIPTION(TARGET,1)%�������B�ꂵ�Ă���
					ENDIF
				ENDIF
				PRINTFORML �u%K17_RS("�݁A��/�́A�`��/�ȁA����")%�߂���c�c%K17_BLUSH()%�v
				PRINTW
				PRINTFORMDL %CALLNAME:TARGET%�͊��w��������Ɩڂ���A�p���������ɐk���Ȃ���������Ƌr���J����
				PRINTFORML �i�����c�c��%K17_RS("�����������/����������Ă�")%�c�c��ˁH�@�������c�c%K17_RS("�h�L�h�L��/������/�������ȋC���ɂȂ�")%���Ⴄ�j
				PRINTFORMDL %CALLNAME:TARGET%�ْ͋����Ă���̂��A�����r��
			CASEELSE
				PRINTFORMDL %CALLNAME:TARGET%�͒p�����������ɋr����A��ł��������%OPPAI_DESCRIPTION(TARGET,1)%���B���Ă���
				PRINTFORML �u����ς�A���́A�p���������c�c%K17_BLUSH()%�v
				PRINTW
				PRINTFORMDL %CALLNAME:MASTER%�͌˘f��%CALLNAME:TARGET%�̗��r��͂�ŁA���̂܂܊J������
				PRINTFORML �i����%K17_CALL_P(K17C_����V)%�c�c����ꂿ����Ă�c�c%K17_CNAME()%�A%K17_RS("������/��������/��������")%��Łc�c���Ă�c�c�j
				PRINTFORMDL %CALLNAME:TARGET%�ْ͋����Ă���̂��A�g�̂͐k�������r��
		ENDSELECT
	ENDIF
	PRINTW
	RETURN 1
ENDIF

;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
;���Ԓ�~�@�D���ȊO
;�ʏ폈���@�P���nor������t���O
LOCAL = 1
;-------------
IF LOCAL && CFLAG:K17C_CF_�b���^�C�v & K17C_�b��F_�P��
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0,1,2
		;�S���ɂ���
		;�����p�ɂ���
		;���E����
		;-------------------------------------------------
		PRINTFORMDL %CALLNAME:MASTER%��%K17_RS("������/�\���/�����悤�Ƃ���")%%CALLNAME:TARGET%��߂܂��A%K17_RS("�����/������/���\��")%����%K17_RS("�E������/������/������")%
		PRINTFORML �u%K17_RS("�c�c/�����A")%���̎q��\@TEQUIP:�S��||TEQUIP:��?�S������#�͂�����\@������E�����Ȃ�āc�c%K17_RS("�Œ�/�ϑ�/������")%��%K17_AP_DEC(1)%�v
		;-------------------------------------------------
		CASE 3
		;�p���c���傤����
		;-------------------------------------------------
		SELECTCASE ARG:1
			;-------------------------------------------------
			CASE 0
			;����
			;-------------------------------------------------
			PRINTFORML �u���A����Ȃ������c�c%K17_RS("�Œ�/�ϑ�/������")%��%K17_AP_DEC(1)%�v
			;-------------------------------------------------
			CASE 1,2
			;OK�i���X
			;OK (�a�X
			;-------------------------------------------------
			PRINTFORML �u%K17_RS("�D����/�����")%���Ȃ�����A%K17_RS("�Œ�/�ϑ�/������")%��%K17_AP_DEC(1)%�v
			;-------------------------------------------------
			CASE 3
			;����
			;-------------------------------------------------
			PRINTFORML �u�������c�c%K17_RS("�Œ�/�ϑ�/������")%��%K17_AP_DEC(1)%�v
		ENDSELECT
	ENDSELECT
	PRINTW
ENDIF
RETURN 1

;==================================================
;�{�����
;==================================================
@M_KOJO_EVENT_K17_29(ARG,ARG:1)
;������TARGET
;ARG��TARGET�̓x���ŕ���
;--------------------------------------------------
;�L���`�F�b�N�i=0, ��\���A1, �\���j
LOCAL = 1
;-------------
IF LOCAL && !FLAG:���Ԓ�~ && !CFLAG:TARGET:����
	PRINTL

	;-------------------------------------------------
	;���ӂӒ�
	;-------------------------------------------------
	;������t���O����
	IF CFLAG:TARGET:���ӂ�
		CALL K17_��������o��(TARGET)
		IF RESULT
			PRINTW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;�{�点�Ă��܂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		SELECTCASE K17_GRT()
			CASE IS >= K17C_�v��
				PRINTFORML �u�c�c���[��A�������%K17_RS("���q���/���")%�����ˁA���݂�����₵�܂��傤�v
				PRINTFORM �u��������%K17_RS("�{���ł������/�{��񂾂����")%�v
				TRYCALL K17_�l�`�䎌(-1,1,K17_RS("�o�J�W���l�[�m/�I�R���]�[/�v���v��"))
			CASEELSE
				PRINTFORM �u�c�c�������A������ƒ��q��肷����v
				TRYCALL K17_�l�`�䎌(-1,1,K17_RS("�o�J�W���l�[�m/�I�R���]�[/�v���v��"))
		ENDSELECT
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;�������Ă��܂���
	;�L���`�F�b�N�i=0, ��\���A1, �\���j
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML �u%K17_SPLIT_SHUFFLE(@"%K17_RS("�ӂ���/�Ђ���/������/��������/������","/",2)%/�c�c/�c�c/%RESULTS:1%")%�v
		TRYCALL K17_�l�`�䎌(-1,1,K17_RS("�A���X/�i�N�i��/�i�~�_�@�t�P/���V���V")+"�c�c")
		PRINTW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4590p_bugfix_m06/ERB/口上・メッセージ関連/個人口上/アリス/M_KOJO_K17_イベント.ERB