code:
;-------------------------------------------------
;���������
;-------------------------------------------------
@COM413
;�H�ނ��Ȃ�
IF !ITEM:48 && !ITEM:50 && !ITEM:47
	PRINTFORMW �H�ނ��Ȃ�
	RETURN -1
ENDIF
CALL COOKING_MENU
SIF !RESULT
	RETURN -1
IF TFLAG:194 == 1
	DOWNBASE:MASTER:�̗� = 50
	DOWNBASE:MASTER:�C�� = 50
	TIME += 15
	SIF CFLAG:���s
		CFLAG:���s += 15
ELSEIF TFLAG:194 == 2
	DOWNBASE:MASTER:�̗� = 100
	DOWNBASE:MASTER:�C�� = 100
	TIME += 45
	SIF CFLAG:���s
		CFLAG:���s += 45
ELSEIF TFLAG:194 == 3
	DOWNBASE:MASTER:�̗� = 100
	DOWNBASE:MASTER:�C�� = 100
	TIME += 45
	SIF CFLAG:���s
		CFLAG:���s += 45
ELSEIF TFLAG:194 == 4
	DOWNBASE:MASTER:�̗� = 150
	DOWNBASE:MASTER:�C�� = 150
	TIME += 45
	SIF CFLAG:���s
		CFLAG:���s += 45
ENDIF

IF TARGET > 0 && !CFLAG:���� && !FLAG:70
	IF TARGET && ABL:�e�� * 500 + ABL:�]�� * 500 + ABL:�����Z�\ * 1000 > CFLAG:310 - CFLAG:MASTER:310
		TFLAG:193 = 1
		EXP:�����o�� ++
	ELSE
		TFLAG:193 = 0
	ENDIF
	;�Œ�Ŋl������\�[�X
	SOURCE:���y = 200

	;�M��
	TFLAG:98 = 3

	;ABL:�]�����݂�
	IF ABL:�]�� <= 1
		SOURCE:���y += (ABL:�]�� * 60)
	ELSEIF ABL:�]�� <= 3
		SOURCE:���y += 200 + (ABL:�]�� * 60)
	ELSEIF ABL:�]�� <= 5
		SOURCE:���y += 500 + (ABL:�]�� * 60)
	ELSEIF ABL:�]�� <= 8
		SOURCE:���y += 750 + (ABL:�]�� * 75)
	ELSEIF ABL:�]�� <= 11
		SOURCE:���y += 1000 + (ABL:�]�� * 75)
	ELSE
		SOURCE:���y += 2000 + (ABL:�]�� * 30)
	ENDIF

	;�D���x���݂�
	IF CFLAG:2 <= 500
		SOURCE:���y += CFLAG:2
	ELSEIF CFLAG:2 <= 5000
		SOURCE:���y += 500 + (CFLAG:2 - 500) / 3
	ELSE
		SOURCE:���y += 2000 + (CFLAG:2 - 5000) / 5
	ENDIF
	SIF SOURCE:���y < 0
		SOURCE:���y = 0
ENDIF
TCVAR:MASTER:308 = 0
SIF TARGET < 1
	CALL MIX_MENU

SIF ITEM:102 && !RAND:2
	EXP:MASTER:�����o�� ++
DISHTIME = 1440 * DAY + TIME

STAIN:MASTER:0 = 0
STAIN:MASTER:1 = 0
CFLAG:MASTER:���ɐ��t = 0
CFLAG:MASTER:��ɐ��t = 0
CFLAG:MASTER:��ɐ��t = 0
IF TARGET
	STAIN:0 = 0
	STAIN:1 = 0
	CFLAG:���ɐ��t = 0
	CFLAG:��ɐ��t = 0
	CFLAG:��ɐ��t = 0
ENDIF

RETURN 1

@COOKING_MENU
PRINTL �������܂����H
CALL ASK_M("����ς��߂�",1,"�y�H",1,"��H",ABL:MASTER:�����Z�\ > 1,"�f�U�[�g",ABL:MASTER:�����Z�\ > 2,"�֒f�̗���",ABL:MASTER:�����Z�\ > 2, "�J�G������", ITEM:�J�G��)
SELECTCASE RESULT
CASE 1
	DISHTYPE = RESULT
	CALL INGREDIENT_CHOICE
	TFLAG:194 = 1
	CALL COOKING
	RETURN 1
CASE 2
	DISHTYPE = RESULT
	CALL INGREDIENT_CHOICE
	TFLAG:194 = 2
	CALL COOKING
	RETURN 1
CASE 3
	DISHTYPE = RESULT
	CALL INGREDIENT_CHOICE
	TFLAG:194 = 3
	CALL COOKING
	RETURN 1
CASE 4
	IF !ITEM:0
		PRINTFORMW �H�ނ�����܂���
		TIME += 5
		RETURN 0
	ENDIF

	ITEM:0 --
	DISHTYPE = 4
	CALL COOKING
	TFLAG:194 = FLAG:����
	RETURN 1
CASE 5
	DISHNAME = %FOOD_FROG:(RAND:MENUS_FROG)%
	DISHQUALITY = 1
	DISHTYPE = 2
	TFLAG:194 = 2
	ITEM:�J�G�� --
	CALL COOKING
	RETURN 1
CASE 0
	RETURN 0
ENDSELECT

;�������s�֐�
;�����˗��ɗ��p�ł���悤�ɍ쐬
;��ɌĂяo������DISHTYPE��DISHQUALITY�����߂Ă�������
;�H�ނ̏��������ɂ��܂��Ă�������
@COOKING(CHARA)
#DIM  CHARA ;�L������n���Ǝ�`���Ă����i�˗��p�ACOM413�͎��s��ɗ����o������̂ŕs�v�j
#DIMS CONST MENU_TYPE, 6 = "", "SNACK", "MAINDISH", "DESSERT", "FORBIDDEN", "FROG"
CALL SET_DISHNAME(MENU_TYPE:DISHTYPE)
PRINTFORMW %DISHNAME%�����܂�
SELECTCASE DISHTYPE
CASE 1
	;���l
	IF !RAND:20 && VISIT(66) && AT_HOME(MASTER) && CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()
		SETBIT FLAG:50,55
		CFLAG:66:���݈ʒu = CFLAG:MASTER:���݈ʒu
		PRINTFORML �������Ă�C�z��k������%CALLNAME:66%������Ă����c�c
	ENDIF
CASE 2
	;���l
	IF !RAND:10 && VISIT(66) && AT_HOME(MASTER) && CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()
		SETBIT FLAG:50,55
		CFLAG:66:���݈ʒu = CFLAG:MASTER:���݈ʒu
		PRINTFORML �������Ă�C�z��k������%CALLNAME:66%������Ă����c�c
	ENDIF
	EXP:MASTER:�����o�� ++
	SIF CHARA
		EXP:CHARA:�����o�� ++
CASE 3
CASE 4
CASE 5
	YOGORE:(CFLAG:MASTER:���݈ʒu) += 500
ENDSELECT
YOGORE:(CFLAG:MASTER:���݈ʒu) += 500
EXP:MASTER:�����o�� ++
SIF CHARA
	EXP:CHARA:�����o�� ++

;�������I�֐�
;�����̌����FLAG�ւ̋L�^�ADISHNAME����܂�
;DISHQUALITY�̐ݒ�͌Ăяo�����ōs������
@SET_DISHNAME(MENU_TYPE)
#DIMS MENU_TYPE
#DIM  FOOD_ID
SELECTCASE MENU_TYPE
CASE "SNACK"
	DISHTYPE = 1
	FLAG:���� = RAND:MENUS_SNACK + 1
	DISHNAME = %FOOD_SNACK:(FLAG:����)%
CASE "MAINDISH"
	DISHTYPE = 2
	FOOD_ID = RAND:MENUS_MAINDISH
	FLAG:���� = FOOD_ID + 10
	DISHNAME = %FOOD_MAINDISH:(FOOD_ID)%
	IF FESTIVAL_MENU() != ""
		DISHNAME = %FESTIVAL_MENU()%
		FLAG:���� = 999
		DISHTYPE = 5
	ENDIF
CASE "DESSERT"
	DISHTYPE = 3
	FOOD_ID = RAND:MENUS_DESSERT
	DISHNAME = %FOOD_DESSERT:(FOOD_ID)%
	FLAG:���� = FOOD_ID + 50
CASE "FORBIDDEN"
	DISHTYPE = 4
	DISHNAME = %FOOD_FORBIDDEN:(DAY:2)%
	FLAG:���� = 99 + DAY:2
CASE "FROG"
	DISHTYPE = 2
	DISHQUALITY = 1
	DISHNAME = %FOOD_FROG:(RAND:MENUS_FROG)%
ENDSELECT

@�H��(ARG)
#DIM ���͉񕜗�
#DIM �C�͉񕜗�
#DIM �̗͉񕜗�
#DIM ���͉񕜗�
#DIM �C�͉񕜗�
#DIM �̗͉񕜗�

;�񕜗���0.1%�P��

���͉񕜗� = 0
�C�͉񕜗� = 0
�̗͉񕜗� = 0
���͉񕜗� = 0
�C�͉񕜗� = 0
�̗͉񕜗� = 0

SELECTCASE DISHTYPE
	CASE 1
		�̗͉񕜗� = 65
		�C�͉񕜗� = 200
		���͉񕜗� = 50
		CALL �����x�㏸(ARG,"�y�H")
	CASE 2
		�̗͉񕜗� = 200
		�C�͉񕜗� = 300
		���͉񕜗� = 200
		CALL �����x�㏸(ARG,"��H")
	CASE 3
		�̗͉񕜗� = 50
		�C�͉񕜗� = 500
		���͉񕜗� = 50
		CALL �����x�㏸(ARG,"�f�U�[�g")
	CASE 4
		�̗͉񕜗� = 300
		�C�͉񕜗� = 300
		���͉񕜗� = 300
		CALL �����x�㏸(ARG,"��H")
		EXP:ARG:�b�o�� += 30
	CASE 5
		�̗͉񕜗� = 100
		�C�͉񕜗� = 150
		���͉񕜗� = 100
		CALL �����x�㏸(ARG,"��H")
ENDSELECT
�̗͉񕜗� = (MAXBASE:ARG:�̗� * �̗͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
�C�͉񕜗� = (MAXBASE:ARG:�C�� * �C�͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
���͉񕜗� = (MAXBASE:ARG:���� * ���͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10

CALL RECOVER(ARG,�̗͉񕜗�,"�̗�")
CALL RECOVER(ARG,�C�͉񕜗�,"�C��")
SIF ARG == MASTER
	CALL RECOVER(ARG,���͉񕜗�,"����")

@�����x�㏸(ARG,ARGS)
SELECTCASE ARGS
	CASE "�y�H"
		TCVAR:ARG:�󕠎��� = 1440 * DAY + TIME + 180
		SIF TALENT:ARG:���V
			TCVAR:ARG:�󕠎��� -= 30
	CASE "��H"
		TCVAR:ARG:�󕠎��� = 1440 * DAY + TIME + 360
		SIF TALENT:ARG:���V
			TCVAR:ARG:�󕠎��� -= 90
	CASE "�f�U�[�g"
		TCVAR:ARG:�f�U�[�g�󕠎��� = 1440 * DAY + TIME + 180
		SIF TALENT:ARG:���V
			TCVAR:ARG:�f�U�[�g�󕠎��� -= 30
ENDSELECT

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE413
;��~���͕s��
SIF FLAG:70 == 1
	RETURN 0
;�|�����s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(413)
	RETURN RESULT

;�~�[�Ȃ̂�
SIF !KITCHEN(CFLAG:MASTER:���݈ʒu)
	RETURN 0
;�C��0
SIF BASE:MASTER:�C�� <= 0
	RETURN 0
SIF CFLAG:���ӂ�
	RETURN 0
;�Y���Q��
SIF CFLAG:�Y���Q��
	RETURN 0
;�C�^�Y����
SIF CFLAG:MASTER:�C�^�Y��
	RETURN 0
;���ɗ���������Ă���
SIF DISHNAME != ""
	RETURN 0
RETURN 1

@HUNGER(ARG)
#FUNCTIONS
LOCAL = TCVAR:ARG:�󕠎��� - TIME:1
SELECTCASE LOCAL
	CASE IS > 270
	SETCOLOR C_GREEN
		RETURNF "����"
	CASE IS > 180
	SETCOLOR C_P_GREEN
		RETURNF "������"
	CASE IS > 0
	SETCOLOR C_P_YELLOW
		RETURNF "����"
	CASEELSE
		RETURNF "�H����"
ENDSELECT

@INGREDIENT_CHOICE
PRINTFORML �H�ނ�I��ł�������
CALL ASK_M("�G��",ITEM:48,"�Õ�",ITEM:50,"����",ITEM:47)
SELECTCASE RESULT
	CASE 0
		ITEM:48 --
	CASE 1
		ITEM:50 --
	CASE 2
		ITEM:47 --
ENDSELECT
DISHQUALITY = RESULT + 1

@RESET_DISH
DISHTIME = 0
DISHSPOIL = 0
FLAG:���� = 0
DISHQUALITY = 0
DISHTYPE = 0
DISHNAME =

path: 原版+前人整合等各种readme/パッチ/eraTW4.552食事バグ＆妊娠率修正パッチ2/ERB/コマンド関連/COMF/日常系/COMF413 料理を作る.ERB


code:
eraTW4.552�H���o�O���D�P���C���p�b�`

��PREGNANCY.ERB

�@�󐸔���̌v�Z����
	MIN(�[�U��(ARG,4),100) * ESTRUS_CYCLE(ARG) / 100 > RAND:�D�P�K�v�l
�@����
	EX:ARG:�q�{�����t * (MIN(�[�U��(ARG,4),100) / 100) > RAND:�D�P�K�v�l * 100 / MAX(1,ESTRUS_CYCLE(ARG))
�@�ɕύX�B

�E���t�␳ = �q�{�����t * �[�U��(%)
�E�D�P�K�v�l�␳ = �D�P�K�v�l / ESTRUS_CYCLE(%)
�EMAX(1, ...)�̓G���[�������p�F�c�t�� ESTRUS_CYCLE = 0

��COMF413 ���������.ERB

	�̗͉񕜗� = �̗͉񕜗� * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
	�C�͉񕜗� = �C�͉񕜗� * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
	���͉񕜗� = ���͉񕜗� * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
�@����
	�̗͉񕜗� = (MAXBASE:ARG:�̗� * �̗͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
	�C�͉񕜗� = (MAXBASE:ARG:�C�� * �C�͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
	���͉񕜗� = (MAXBASE:ARG:���� * ���͉񕜗� / 1000) * (ABL:MASTER:�����Z�\ + 5 + DISHQUALITY) / 10
�@�ɕύX�B

�Ehttp://jbbs.shitaraba.net/bbs/read.cgi/otaku/16783/1506009139/59

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.552食事バグ＆妊娠率修正パッチ2/eraTW4.552食事バグ＆妊娠率修正パッチreadme.txt

license: unknown


code:
-------------------------------------------------------------
��eraTW4.553�p ������さ�N���E���s�[�X����_2
�@�@�@�@�@�@�@�@�@�@�@�@�@���    holy
-------------------------------------------------------------
��������������������������������������������������������������������������
�@�@�ueraTW4.553�p ������さ�N���E���s�[�X����p�b�`�v�̍X�V�łł��@�@�@
�@�@�����������Ă�ۂ͕K����ɏ�L�̃p�b�`�����ĂĂ���ɂ��Ă��������@�@
��������������������������������������������������������������������������

���������
�E%UNICODE(0x2764)2%�ɂȂ��Ă��G���[�C��
�@�N���E���s�[�X�����%UNICODE(0x2764) * 2%�������̂����܂������ĂȂ������B
�@���Ȃ݂Ɂu�n�[�g�}�[�N�v�Ŏ����o�^���Ă�̂Ŋ֐�������قǂ���Ȃ��ł��B���F���ς��Ȃ����B

�E�����o�D�P���̏o�Y����C��
�@����{�����o�D�P�Ƃ������z���Ȃ������B

�E�f�[�g��b�C��
�@�����ԈႦ�ĂĔ������Ȃ������B���łɁi���X�\������Ȃ��������ǁj������Ɖ��M�����B

�E�I�i�j�[�I�����̕��ǉ�
�@����ƂȂ��Ƃ���㖡���Ⴄ�B

���N���E���s�[�X����
�E�f�[�g��b�ǉ������U�����򑝐�
�@����̂Ɠ����ł��B

�E�X�L���V�b�v��������ƕ�����M
�@�E�P���ǂ������B�������B�i�f�i�f���Ă����āB

path: 原版+前人整合等各种readme/パッチ/eraTW4.553用 小鈴口上＆クラウンピース口上_2/readme.txt


code:
-------------------------------------------------------------
��eraTW4.553�p ������さ�N���E���s�[�X����p�b�`
�@�@�@�@�@�@�@�@�@�@�@�@�@���    holy
-------------------------------------------------------------
���������
�ڍׂ͌���t�H���_����readme�����Ă�������
��ވ��̃l�^�o�����܂�ł��܂�
�Ƃ������l�^�o���łł��Ă��܂�
�N�����G���[�ȊO�債���f�o�b�O���ĂȂ��̂ŃG���[�₨�����ȂƂ���������񍐂��Ă�������
�������͕K��UPDATE���Ă�������

������t�@�C���ȊO�ɂ��ȉ��̃t�@�C���𓯍����Ă��܂�
�����̃p�b�`�͍l�����Ă���܂���,���C������������
�ECSV
����CSV�ł��B���D�݂ŁB�Ƃ����Ă����قǘM���Ă܂���
�Љ�ȊO��UPDATE���邾���ł��ύX�ł��܂�

�E�d���`��
����̎d���̂݁A������o���֌W��WAIT�������Ĕ��C�����܂���

�E���Ԓ�~����
�������ɋ��ʂ̌�����ĂԂ悤�ɂ��܂���

�E����e���v��
����ɔ����e���v�����ǋL���܂���

�R�}���h��[��ވ�]�̓R�}���h���ɑ䎌���g�ݍ��܂�Ă�̂ŐG��Ă܂���

���N���E���s�[�X����
��Ƀt���O�╪��̏C��
�ق�̂�����Ɖ��M

path: 原版+前人整合等各种readme/パッチ/eraTW4.553用 小鈴口上＆クラウンピース口上パッチ/readme.txt


code:
�{���_�g���ق̍g���ّ�����Α��A�p�m�ق���Α��ւ̈ړ����ʓ|�������̂ŉ��ǂ��܂���

JK�D��


code:
eraTW4.553�p�F�X�C��

 ERB��MOVEMENTS��BASE���R�ϓ�.ERB
 	���C�x���g�֘A��BEFORETRAIN.ERB
	���R�}���h�֘A��USERCOM_�R�}���h�\������.ERB
	��			�@��COMF��COMF88 �o�L���[���t�F��.ERB
	��					��COMF92 �`����ʂ����.ERB
	��					��COMF93 �`��w�ʂ����.ERB
	��					��COMF130 ����ʂ����.ERB
	��					��COMF131 ��w�ʂ����.ERB
	��					������n��COMF331 �����🹂��i�����j.ERB
	���X�e�[�^�X�v�Z�֘A��COUNTER��COUNTER_MESSAGE.ERB
	��					��SOURCE��SOURCE_POSE.ERB
	������E���b�Z�[�W�֘A��EVENT_MESSAGE_COM_�Z�N�n��.ERB
						�@��EVENT_MESSAGE_COM300.ERB
						�@��EVENT_MESSAGE_�}���nCOM��EVENT_MESSAGE_���̑��}���n.ERB
						�@��					�@ ��EVENT_MESSAGE_�����.ERB
						�@���l���ㄟ�H����M_KOJO_K68_����n�R�}���h.ERB

MASTER�󂯐����R�}���h���A�ʏ�or���ʂ̕\���ύX������悤�Ɂ��ӂ��Ȃ莞�N���������ƈ����ƕ\������悤��(USERCOM_�R�}���h�\������.ERB,COMF92 �`����ʂ����.ERB,COMF93 �`��w�ʂ����.ERBCOMF130 ����ʂ����.ERB,COMF131 ��w�ʂ����.ERB,COUNTER_MESSAGE.ERB
�o�L���[���t�F�����s���̃R�}���h�����t�F���`�I�ɂȂ��Ă��̂ŏC��(COMF88 �o�L���[���t�F��.ERB
	�N�����������Ȃ���ԂȂ񂾂��ǁA�ǂ����Ηǂ�������Ȃ��̂ŁA���ꂵ�����ǂ��̂܂܂�������
�ӂ��Ȃ�TARGET�ɑ}������Ă��ԂŃt�F���`�I����I�ԂƁAMASTER�ɂu�o�������͂���A�e�R�}���h�����s�����̂��C��(SOURCE_POSE.ERB
	@�}������(ARG)�̂������ł��A�{���ɂ��肪�Ƃ��������܂�
237�X��>>394�̏C��(BASE���R�ϓ�.ERB,BEFORETRAIN.ERB,COMF331 �����🹂��i�����j.ERB,M_KOJO_K68_����n�R�}���h.ERB
	�n�̕����������ɐ����򂪂Ȃ�������
	����򂪑��̓�ƈ����ONOFF�̈����������̂��ꗂ��o����
	������ǉ����ɁACOM�J�n����TARGET��ONOFF���ׂ�TFLAG:193���ATARGET�ȊO���������Ă�ON�ɂȂ��Ă���
	�����̕�����p���ۂ��̂ŁA�F�X�蒼�����Ă݂�
	�܂��A������ONOFF�X�C�b�`�������玞�Ԍo�ߌ����^�Ɂi�����炭�ꗂo�Ȃ���
	������t���O���i�K�X�C�b�`���ŁA�������M��Ƃ������������ɔh�������˂Ȃ������̂ŁA���Ő�������ʂ�2�ɂȂ�悤�Ɂ{����������TCVAR�t���O���쐬������ɓ�񐬌����Ȃ��l��

�H������̐l�ɘA���A����򕪊��ύX�����̂ŁA����������������ꂳ���Ē����܂���
���m�F�����肢���܂�

���Ƃ�����͖}�~�X�C���̂�

���A��������̈玙����i�n�̕������{���j�����Ă邯�ǁA�玙����֘A�ł܂�������������ۂ��̂ŁA���΂炭�ۗ����ׂ���

�����̎������Ŏ���֐����g���񂷎��ɖ�肪����Ƃ�������̂��[by�����܁i���Ƃ薅�g�}�~�]�E���㏑���j


code:
eraTW4.553�p�F�X�C��2

 ERB��MOVEMENTS��BASE���R�ϓ�.ERB
	���R�}���h�֘A��COMF������n��COMF334 �t�����킷.ERB
	���X�e�[�^�X�v�Z�֘A��TRACHECK_LOST_VIRGIN.ERB
	��					���D������.ERB
	��					��COUNTER��COUNTER_MESSAGE.ERB
	��					��SOURCE��SOURCE_EXTRA.ERB
	������E���b�Z�[�W�֘A��KOJO_MESSAGE.ERB
						�@��EVENT_MESSAGE_�}���nCOM��EVENT_MESSAGE_���̑��}���n.ERB

>>237�X��591�C��(TRACHECK_LOST_VIRGIN.ERB
>>237�X��616&&622&&725�C��
>>237�X��635�C��&&798���C��(KOJO_MESSAGE.ERB
>>237�X��740�C��(SOURCE_EXTRA.ERB,�D������.ERB,COMF334 �t�����킷.ERB,BASE���R�ϓ�.ERB

���b�Z�[�W�̉��s�����������������������C��(EVENT_MESSAGE_���̑��}���n.ERB,COUNTER_MESSAGE.ERB

����A�얲�A���ہA�d���A�e�����җl�́A�ύX�����̊m�F�����肢���܂�

���ƁA>>616�Ƃ�635�Ƃ�����Ɋm�F���ď���Ƀo�O�C���������ǃe���v������Ȃ������ꍇ�A�C�Â��Ȃ��Ƃ����邩���

>>563�͂���炵�������͂������񂾂��ǁA�ߕ��֘A�̎d�l���S������Ȃ��Ȃ����̂Ńp�X

by������


code:
eraTW4.560proto���\�[�X�����p�F�X�C��

 ERB��MOVEMENTS�������֘A��00�_�Є�ROOMSETTING_0.ERB
	���C�x���g�֘A��BEFORETRAIN.ERB
	���R�}���h�֘A��USERCOM_�R�}���h�\������.ERB

>>238�X��197�C��(USERCOM_�R�}���h�\������.ERB
	�����̃~�X�ł��A���݂܂���ł����A�^�ɐ\���󂠂�܂���
>>238�X��208�C��(BEFORETRAIN.ERB
	FLAG:32�ϊ������Ƃ��Ă��ȁ[�A���d�ϊ����ĂȂ���ȁ[�A�Ȃ�ł��[�A�Ńf�[�g�����̌��݈ʒu���ׂ���A�ϊ��O�̈ʒu���Ɣ���
	�N�����Ԃ�����J�n���x���ƁA�قƂ�ǂ̉���Ŕ�������\��������܂���
>>238�X��214���C��(ROOMSETTING_0.ERB
	�N�����Z�ݍ��񂾂�A�l���������悤�ɂȂ���Ă��������̉\��������̂ŁA�ꉞ�R�����g�A�E�g�݂̂Ɏ~�߂�

>>238�X��205,207�͂悭�킩��Ȃ��̂Ńp�X

���g����A�玙�n�ǉ����Ă���Ǝv�������ǁA�o�O���u�͂���ς胄�o���̂ŏC��

by������


code:
eraTW4.560proto�p OPTION���������p�b�`

�E�T�v
�@���̃p�b�`�́ueraTW�p_�D�ӁE�����Z�k�\���@�\�ǉ��p�b�`�v�ƁA
�@�ueraTW4.560proto�p �q��ăC�x���g�C���p�b�`���G��������Z�b�g Ver0.65�v�̃t�@�C���̋������������邽�߂̃p�b�`�ł��B
�@���̃p�b�`�𓱓�����ۂ́A�K����L�̂Q�p�b�`��K�p�����Ă��瓱�����Ă��������B
�@�@�@�@�@�@�@�@�@�@�@�@�@�@�P�P


code:
eraTW4.560proto�p �q��ăC�x���g�C���p�b�`

�E�C�����e
�@�@OPTION��FLAG:�q���`�ʂ�؂�ւ�����悤�ɕύX
�@�@ERB\�C�x���g�֘A\�D�P�֘A\�o�Y�o�߂Ɍ�b�E�����̌���Ăяo�����A
�@�@����e���v��\M_KOJO_KX_�玙�C�x���g�ɂ����E�A�w�E�����O�̌�����͕������Ȃ��������߂�����ǋL
�@�@ERB\�C�x���g�֘A\EVENTCOMEND�ƌ���e���v��\M_KOJO_KX_�玙�C�x���g�Ɍ���Ɠ��ꏈ����ǉ�
�@�@TCVAR:�q���󕠓x���������Ȓl�ɂȂ邱�Ƃ�����̂��C��
�@�@�c�����̎q�����N�����シ���Q�Ȃ��悤�ɕύX
�@�@�q���̏A�Q���ԂƉƑ��O�l�Ő�̎��ɂȂ��ĐQ�������ėp�I�ɂȂ�悤�ύX

���ڍׂȓ��e�͓����́u�ύX�ӏ��v�����m�F��������

path: 原版+前人整合等各种readme/パッチ/eraTW4.560proto用 子育てイベント修正パッチ＆エレン口上セット Ver0.65/Readme（パッチ分）.txt


code:
eraTW4.560proto�p �G��������Z�b�g Ver0.65
���o�����X�����ɕs����Ȃ��߁A���X�o�����X��������������܂���B
�@�u�o�����X������������v�A�Ǝv������K���K���˂�����ł�������
�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\

�P.������Ăǂ�Ȍ���H
�@�ӂ�ӂ�łς��ς��łۂ���ȃG�����A�悤�͕��ʂ̃G��������ł��B������񏃈��d�l�Ȃ̂�[���I
�@���Ȃ����j�ł��邱�ƑO��őg��ł���܂��B�����d�l�́c����ł�
�@��̓���n�A���ӂӂ͂Ȃ��������|�����Ɖ����|���ꎞ�ƏI����������������
�@�d�����ǉ�����Ă܂��A�͂��炫���̂������

�Q.�d���Ɋւ���
�@�����\�܁A�O�\����14���`19���ɐl���̍L��Ŗ��@�����o���c�Ƃ��܂�
�@TCVAR�𗘗p���ċq����ݒ肵�Ă��܂��B�q���ɉ����ĕ��͂����򂵂���A��`�����e���ω������肵�܂�
�@����ȊO�̓��ɂ��A��m���ł����Ö؂̑�����L�m�R�Q���n�ō̏W���s���܂�
�@������͖��@�̐X�����_�ɂ��Ă���Ƃ��̂ݔ������܂�

�R.�C�x���g�ɂ���

�@�E�G�����ɒ�q����
�@�@���Ȃ��̋��{��������x����A�G�����Ƃ��������e�������ɉ�b����Ƃ��܂ɔ������܂�
�@�@�׋��A�퓬�P���Ŗ��@�̏C�s���ł���悤�ɂȂ�܂�

�@�E�����̖�
�@�@���Ȃ��̗̑́A�������͋C�͂��Ⴍ�A�G�����Ƃ�����x�e�����Ɖ�b�����ۂɂ��܂ɔ������܂�
�@�@���Ȃ��̗̑͂ƋC�͂��傫���񕜂��܂��B�f�����b�g�����ł����������͒��

����ȊO�ɂ��������C�x���g������܂�

�S.���ꂩ��ǂ�����́H
�@��b�p�^�[���𑝂₵����A�����b�𑝂₵����A�C�x���g�𑝂₵����Ƃ��A�݂����ȁH
�@�H������͑�̏o�����̂Ŏ��͕s�@�����̕���Ƃ��ꏊ���Ƃ̉�b�𑝂₵����Ƃ��A�~�j�Q�[���I�Ȃ��̂����������Ȃ��c�c�@����Hera���Ă���ȃQ�[�������������H
�@��q�����C�x������낿���ƒǉ��������Ƃ���
�@
�T.�Q�l�ɂ����Ē���������⏕���������l�Ȃ�
�@�EeratohoYM �ėp�t����W�F�l���[�^�[v2.00proto
�@�@����쐬�̊�b���w�΂��Ă��������܂����@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@���ł���Ŋ�b���w�񂾂����āH����A�܂��A����
�@�EeratohoYM Mk-3���p�얲���㢂�����Ԃ�얲���ゖ5.01�
�@�@�[����n�̕������Q�l�ɂ����Ă��������܂���
�@�EeraTheWorld proto3.95�p Amazing! ���X�Ǐ��P����
�@�@������쐬�ɂ����ĉ�b�̍\����ATCVAR�EFIRSTTIME�̎g�����ȂǂƂĂ��Q�l�ɂ����Ă��������܂���
�@�EeraTheWorld proto4.00�p �e�T����Ver.��
�@�@�H������̍\�����Q�l�ɂ����Ă��������܂���
�@�EeraTW ���Ƃ�����̐l
�@�@�����ƋC���t���Ă��Ȃ������\���̃~�X���킴�킴�T���Ďw�E���Ă����������f���炵�������B�����オ��܂���
�@���̏���؂�Ă���\���グ�܂��I

�U.���M�C���ȂǂɊւ���
�@����t�H���_���̃��C�Z���X�����m�F������

�V.�X�V����
�@2017/11/15 Ver0.65
�@�@�����ǉ����ύX���C��
�@�@�܂������g���ĂȂ��������Ԍn�R�}���h�̃t�@�C�����폜
�@�@�玙�����̖{�̎�荞�݂ɂ��A����I�v�V�����̎q���̉��o���u�q���̐��ʁv�ɕύX

�@2017/9/8 Ver0.61
�@�@�����ǉ����ύX���C��
�@�@�q���̉��o�ɂ����Ďq���̐��ʂ�I���ł���悤��
�@�@������I�v�V�������l�G�����Ɗ�|���őI���\

�@2017/9/5 Ver0.60
�@�@���X�Ȃ��烉�C�Z���X�𓯍�
�@�@�����ǉ����ύX���C��
�@�@����I�v�V�����Ƃ��āu���S���[�h�v�Ɓu�q���̉��o�v��ǉ�
�@�@���ύX�̓G�����ƈꏏ�Ɋ�|�����邱�Ƃŉ\�ł�
�@�@����l����A�������ɖ���p���炢�l���̃e���b�v���o�Ă��̂��C��
�@�@���@�̔�I�̓�Փx���ꕔ�ύX
�@�@���ӂӎ��̂����C�x���g���玙���͔������Ȃ��悤�ɕύX

�@2017/8/14 Ver0.55
�@�@�����ǉ����ύX���C��
�@�@��q�����̃C�x���g���r������i�܂Ȃ��Ȃ��Ă����̂��C���B��q����ς݂̐l�͕׋�or�P������O�ɃA�v�f���Ă�������

�@2016/11/16 Ver0.5
�@�@�����ǉ����ύX���C��
�@�@�d���ɖ��@�̐X�̍̏W��ǉ��A���_�����@�̐X���o�����s��Ȃ����ɓV�C���ǂ��ƒ�m���Ŕ������܂�
�@�@������ɔ����o�����s������15����30���ɕύX
�@�@�e�y�i���e�B�̑啝�ɘa
�@�@��������l�ł���������+�A���t�@�ŉ����|����悤��

�@2016/02/28 Ver0.4
�@�@�����ǉ����ύX���C��
�@�@���݂̎d�l�ɍ��킹�Ċe�ӏ��̕ύX�i�o�|����Ȃǁj
�@�@�A�b�v�f�[�g���Ɉ�x����NAME�̕ύX���ł���悤��
�@�@�s���͈͂��g���B�ڂ����o���n�惁����
�@�@����ʒu�𖂖@�̐X������ɐݒ�

�@2015/08/19 Ver0.31
�@�@�����ǉ����ύX���C��

�@2015/06/18 Ver0.3
�@�@�����ǉ����ύX���C��
�@�@CSV���኱�C��
�@�@AA��ǉ����\��������ύX

�@2015/03/31 Ver0.21
�@�@�����ǉ����ύX���C��
�@�@����C�x���g�̒ǉ��A�ύX�ɂ��킹�ăt�@�C���ɒǋL

�@2015/03/19 Ver0.2
�@�@�����ǉ����ύX���C��
�@�@CSV�̃L�����Љ�����M
�@�@AA�̕\���������C�����ύX

�@2015/03/06 Ver0.18
�@�@�C�x���g�ŃG�����̃o�X�g�T�C�Y���ꎞ�I�ɏ㏸�����㌳�̃T�C�Y�ɖ߂�Ȃ��̂��C��
�@�@���ɃC�x���g���N�����Ă���l�p�ɃG�����ɑ�������΃o�X�g�T�C�Y���߂�悤�C���p�̍\����ǉ�
�@�@�i��������ǁA�������n���ɂȂ�܂��A���̂݁j
�@�@�����ǉ����ύX�A��ɐH���n

�@2015/03/01 Ver0.11
�@�@�����ǉ����ύX���C���A����n�͑�̖��܂�܂����B���̓f�[�g�n���c
�@�@�{�莞���Ί�Ȃ͕̂ςȂ̂œ{�莞��AA��ǉ��B����ł��߂�Ȃ���
�@�@���d�����̏������኱�ύX�A�L������؂�ւ��邽�тɃZ���t���o�Ȃ��悤�ɂ��܂����B���łɎd���I�����̃f�[�g���L�����Z���\�Ɂ@�@
�@�@MOVEMENT2���C���A�c�Ƃ�����肳�Ƃ�����̕��ɕύX���܂����B������̂ق����X�}�[�g�ł����A������������̂��Ƃ��ӂӋA��ł��f�[�g�A�����ɂȂ�̂�
�@�@���Ƃ�����̍�җl�ɂ��̏���؂�Ă���\���グ�܂�

�@2015/02/28 Ver0.1
�@�@�Ƃ肠���������[�X

�W.���Ƃ���
�@�O���A��҂ł�
�@����쐬�����󂢂��Ƃ������ĉ����ƍ�肪�Â�����ł����A�y����ł����ƍK���ł�
�@���̌����ʂ��ăG�������D���ɂȂ��Ă��ꂽ�l������݂����łƂĂ��������ł��B�G����������G����
�@�����Ⴄ����

path: 原版+前人整合等各种readme/パッチ/eraTW4.560proto用 子育てイベント修正パッチ＆エレン口上セット Ver0.65/Readme（口上分）.txt


code:
ERB
�EOPTION
�@79�`80�A179�`180�s�ڂ�FLAG:�q���`�ʂ̐؂�ւ��p�̍\����ǋL

�EEVENTCOMEND
�@321�`332�s�ڂ�CFLAG��TCVAR�Ɂu:LOCAL�v��ǉ�
�@321�s�ڂ́u%CHILDNAME:(TALENT:LOCAL:�玙��)%�v���u%CHILDNAME:LOCAL:(TALENT:LOCAL:�玙��)%�v�ɕύX
�@328�A336�A341�A371�s�ڂ�PRINTFORMDW���uPRINTFORML�v�ɕύX
�@335�A350�s�ڂɒʊw�����p��IF��ENDIF��ǉ�
�@364�A368�s�ڂ́uTIME:0 <= 1380�v���uTIME:0 <= CFLAG:LOCAL:�A�Q���ԁv�ɕύX
�@372�s�ڂɁuTCVAR:LOCAL:�q���󕠓x != 120 && �v��ǉ�
�@376�`378�A392�`394�A410�`412�s�ڂɌ���ƌ���Ăяo����ǉ�
�@384�A402�s�ڂ́uTIME:0 >= 1260�v���uTIME:0 >= CFLAG:LOCAL:�A�Q���� - 120�v�ɕύX
�@402�s�ڂɁu && CFLAG:LOCAL:�o�Y�o�ߓ� != CHILD_�����v��ǉ�

�E�o�Y�o��
�@65�`70�A74�`78�s�ڂɌ���Ăяo���Ƃ���Ɋ֌W���鏈����ǉ�

�ECOMF402 �A�Q
�@32�s�ڂ́uTIME:0 >= 1260�v���uTIME:0 >= CFLAG:�A�Q���� - 120�v�ɕύX
�@32�s�ڂɁu && !INRANGE(TIME, 460, 880)�v��ǉ�

�����Ƃ����Ă݂����l�̂��߂̂��ꂱ��
�EM_KOJO_KX_�玙�C�x���g
�@�ȉ��̊֐�����ь�����͕�����ǉ�
�@�@@M_KOJO_EVENT_KX_CHILD_RAISING_����
�@�@@M_KOJO_EVENT_KX_CHILD_RAISING_�A�w
�@�@@M_KOJO_EVENT_KX_CHILD_RAISING_�����O
�@�@@M_KOJO_EVENT_KX_CHILD_RAISING_OYASUMI
�@�@@M_KOJO_EVENT_KX_CHILD_RAISING_TOY(ARGS)

path: 原版+前人整合等各种readme/パッチ/eraTW4.560proto用 子育てイベント修正パッチ＆エレン口上セット Ver0.65/変更箇所.txt


code:
�F�X�Ƃp&�`�@�l�^�o���v�f�T����

�p�P�@�����|���Ȃ��񂾂���
�`�P�@���炩���l���t���Ă��Ȃ��ƕK�����ۂ���܂�
�@�@�@�i�ǋL�@Ver0.5��������l�Ȃ��ł��������𖞂����Ă���Ή����|����悤�ɂȂ�܂����j

�p�Q�@�Q�T���Ɏd���Ƃ��N���X�}�X�f�[�g�ł��Ȃ������
�`�Q�@�����𖞂����Ă���Ύd���I����ɂ��̂܂܃f�[�g�ł��܂�

�p�R�@�d������`�����ۂ̎d���ʂ����Ȃ�����
�`�R�@�Ăэ��݂͎d���ʂ��ʏ�̔����ł��A���̑��莞�Ԍo�߂��R�O����������

�p�S�@�L�O�Ŗ�����A�C�e�����ĂȂ�̖��ɗ��́H
�`�S�@��q�����̕׋��A�P���̌��ʂ��オ�鎖������܂��B�l�G���f�B���O�����������΁c�H

�p�T�@����CSV�Ɋւ��ĉ����ꌾ
�`�T�@�f�t�H���g�̔\�͂����܂�u�R���A�G�����W���i�[�C�v�����������̂Ōl�I�Ɏg�p���Ă�����̂ł��B
�@�@�@������Ɏd�グ�Ă��܂��B�@�ȉ��A�ύX���������Ɋւ��闝�R

�@�@�@���O�@�w�͂��炫���́x�����B�@�ӂ�ӂ킵�Ă��邩��ӂ�ӂ퓪�Ƃ���ꂽ�̂�
�@�@�@�@�@�@�ӂ�ӂ퓪�Ƃ���ꂽ����ӂ�ӂ킵�Ă���̂�
�@�@�@�@�@�@(�ǋL�@Ver0.3�ɂĖ�����ł��g���Ă���ӂ�ӂ�G�����ɕύX)
�@�@�@�C�́@���@�g���Ȃ̂�1100�͒Ⴂ�ƃp�`�����[��A���X�����Ďv��������
�@�@�@�@�@�@1100���ƒႷ���Ă��܂肫������Ⴄ�ӂӂł��Ȃ����c
�@�@�@�����@�|�{�␳���ӂ��␳����YM����
�@�@�@�C��@�ӂ��Ă������ɗ������鏊�Ȃǂ���B�G�����͍����̂��������ǐU����̂�����
�@�@�@�@�@�@�ł���������̂�����
�@�@�@�呀�ϔO�@������ۂ������\�ڈڂ肪�������ǐ��I�ȕ����͍d�����ȃC���[�W
�@�@�@�@�@�@�@�@�|�{�q���C���S�ʂɂ��������Ȃ��Ƃ����ǁ@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�Q�R���I�̊F�l�͂ǂ������āH�Q�R���I�͐��̊��o���Ⴄ���c
�@�@�@���g�I�@�w������`�x�ɂčs���|��Ă����W�[�������Ă���������B�G�����͐s�����^�C�v���Ǝv��
�@�@�@�������@����𐫓I�Ȃ��ƂŘM�Ԃ悤�Ȑ��i�Ƃ͎v���Ȃ����A�����|�M����悤�Ȋ��������Ȃ��̂�
�@�@�@�@�@�@�@�w������`�x�ł̓\�N���e�X�ɗ͋ƂŌ������𕷂����Ă�����
�@�@�@��ǁ@����A�܂��A����
�@�@�@�i���X�ȒǋL�@3/1�̍X�V�ɂĂ܂�����CSV�̗p
�@�@�@�@�@�@�@�@�@�@�{���ɍ��X�ł������̏���؂��TW�̐l�ɂ����\���グ�܂��j�@�@�@�@�@�@�@�@�@�@�@�@�@�@�iCSV�̗p�ɕ�����Ă����Y���{���N���ł��߂�Ȃ����c�j

�p�U�@�iAA�Ɋւ��āj�S���Ȃ̂ɂȂ�ŃX�J�[�g�͂��Ă�̂�
�`�U�@AA�̍쐬�Z�p���Ȃ��̂�c

�p�V�@�����������Ȃ��H
�`�V�@�l�^�ƕ��˂��Ȃ��̂�c

�p�W�@�L�����Љ�̕����ɂ����̗͂��ĉ��H
�`�W�@�P.�\����Ԉړ��D�������Ƃ��́`
�@�@�@�Q.���@�̎����Ɏ��s�����Ƃ��́`
�@�@�@�R.�Ód�C�h�~�V���[�Y�𗚂��Ă���Ƃ��ɗ��ɑł���ė��̃G�l���M�[���`
�@�@�@�S.���̑�
�@�@�@���D���Ȃ��̂�I��ł�������

�p�X�@��q����̃����b�g���ĉ��H
�`�X�@���󂾂Ɓu�����m���v���l���\�Ȃ��Ƃ��炢�ł��A�Ԃ����Ⴏ���Ȗ����B�l�G���f�B���O�����������΁c�H

�p�P�O�@�ُ�o�����オ��Ȃ��񂾂���
�`�P�O�@���l�����炾�ƋɈꕔ�̍s���ňُ�o�����オ��Ȃ��Ȃ�܂�

�p�P�P�@�����|�����Ƀe���e������������Ȃ��H���p���������Ȃ̂�
�`�P�P�@�����C�Ȃ蒅�ւ��Ȃ�ŗ���������͍̂\��Ȃ����Ǘ��΂ɃG�b�`�̎��Ƃ��Ǝv���Ă���̂�

�p�P�Q�@��q���肵���͂������ǂǂ�����΂����̂�������Ȃ��I
�`�P�Q�@��q���蒼��͂Ђ�����׋��A���@�̌P�����ł���悤�ɂȂ����炠����x�׋����Ă���P�����s���Ď��Z�̌o���Ɩ��@�𐬌��������o�����҂��ł����܂��傤�B�������Ă����΃C�x���g�̒i�K���i��ł����܂�

�p�P�R�@�q���̉��o���I���ɂ�����~���s���x���オ��Ȃ��Ȃ����͈̂��
�`�P�R�@�q���̖ڂ̑O�ŉ����|���Ă���̂́c�c�Ƃ������ƂŎq���̉��o���I���ɂ��Ă���ꍇ�͗~���s���x�ɃL���b�v������悤�ɂ��Ă��܂�
�@�@�@�@�q�����Q�Ă��邩�O�o���̂Ƃ��̓L���b�v���O��܂��̂ł��̎���_���܂��傤

�p�P�S�@�G������
�`�P�S�@���킢��

path: 原版+前人整合等各种readme/パッチ/eraTW4.560proto用 子育てイベント修正パッチ＆エレン口上セット Ver0.65/Ｑ&Ａ.txt


code:
eraTW4.561�p�d���J�nor�A�Q�\��+��

 ERB��ANOTHER_TALK.ERB

238�X��>>796�����Ďv�������̂ŁAANOTHERTALK�ŕ\�����Ă݂�
���������݂���L�������m�̉�b���A���S���Ă��̂ŏC��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用仕事開始or就寝予告+α/README.TXT


code:
-------------------------------------------------------------
��eraTW4.561�p�V�����L�����ƈ玙�֘A�Ƃ��C���p�b�`

�@�@�@�@�@�@�@�@�@�@�@�@�@���    holy
-------------------------------------------------------------

���F�X���������̂ŃZ�[�u�f�[�^�͎c���Ă����������悢�ł��傤
��eraTW4.561�p�\���ύX�p�b�`����荞��ł��܂�

���V�����̃L����
�E�قډ������ł�
�@CSV���畞�����Ɏ���܂ł��Ȃ�K���ɐݒ肵�Ă܂�
�@������̓񃖌��O�Ȃ̂Ő����悭�o���Ă܂���

�E�摜�͔߂������Ƃɂ���܂���
�@�_�~�[�i�^�����j��\������悤�ɂ��Ă��܂�
�@�莝���̉摜�ŉ������������Đl��1 TO 117��124�ɂ���Ȃ肵����Aresources�t�H���_�̊�܂��͗����G�t�@�C���ɒǋL���Ă�������

���q��
�EFLAG:�q���̐��ʂ�݂���OPTION����q���̐��ʂ�ݒ�ł���悤��
�@���܂ł��ꉞ���ʂ̃t���O�͂���܂��������m�ȕ\�L�͂���܂���ł���
�@�Ȃ��A�G����������͂��ߌ��㑤�łȂ�ʂɐݒ肷�邱�Ƃ��\�ł�
�@���Ȃ݂ɖ��O�̃����_���������������Ȃ��ł�

�E�o�Y���ɐ��܂ꂽ���̎q���̏���\��
�@�V���ɐ��N�����Ɛ��܂ꂽ���̓V�C��݂��܂���
�@���ʂ������ɐ��ʂƂ��Ĉ����܂��i�������łȂ����ʂ̃C�x���g�͕ω����܂��񂪁j

�EUPDATE�Ŋ��ɐ��܂ꂽ�q���̐��N�����Ɛ��ʂ�ݒ肵�܂�
�@����Ő��ʂ����߂���G���������͗�O�I�ɏ������Ă��܂�

�E�q���̒a�����ɂȂ�ƈ���̎n�܂�ɂ��m�点���\������܂�
�@���ݓ��ɃC�x���g�͂���܂���

�E�X�e�[�^�X��ʂŎq���̐�����юq���̏���\��
�@�ꉞ�N��͂���܂������z���̎���́i�N������̂����Łj�c��ł���̂ōׂ����Ƃ���͋C�ɂ��Ȃ�

������i�G��������j
�o�Y���̌�����Ő��ʂ̕ύX�����ł��܂�
���̍ۉ��l�ڂ̎q�������K�v�Ȃ̂ň�����ݒ�
�e���v���ɂ��ꉞ�������𖾋L

�G��������ł͕ʐl���M�Ƃ��Ďq���̐��ʕ�����ǋL���Ă��܂�
UPDATE�������܂Ŏg���Ă����t���O�ɏ]���悤�ɂ��Ă��܂�

�����̑�
�E�玙�C�x���g���͂��߁AAFTERTRAIN���̃C�x���g��DRAWLINE��ݒ�
�@��������\�������Ɛ؂�ڂ�������ɂ��������̂�
�@���ʂɕ\������镔��������܂����c�c

�E�����UPDATE����TARGET��ߑ�����悤�ɏC��
�@�����TARGET�ȗ��\�L���Ă����S

�E����݁`�����̑����ʒu���ݒ肳��ĂȂ������̂Őݒ�
�@�ȑO�C�������̂���荞�܂�ĂȂ������͗l

�E���o�������̔���_�Ђ̒����Ƌ�����V��ɐݒ�

�E�ړ������̗��܂藦�C��
�@����ˑ��ňړ�����L�����i���ƃ��}�������j���ړ��ł��Ȃ��Ȃ��Ă܂����i�Q���̌������͑|���ł��Ȃ��̂Łj

�E�𒎈����z���C��
�@�n�_�����\������Ȃ������o�O�̏C���ƁA�����F���I��F�ɂȂ��Ă��̂ŕύX

�E���������ۂɐH�ނ̎c����\��

�E@RECOVER������Ɖ���
�@�ω����Ȃ��ꍇ�Ƃ��Ȃ������̏�ɂ��Ȃ����͔�\��

�EDAY��N�����ɕϊ�����֐��Ƃ��̋t�̊֐��A�N�����j��\������֐��𑝐�
�@���ꂠ������q���̐��N��������Ȃ��ˁH���ĂȂ������ǋC�ɂ��Ȃ�
�@�g�����͂��肻���łȂ�����

�E@GET_MONTH�A@GET_DAY�Ɉ����ݒ�
�@�������Ȃ��ꍇ�͍��܂Œʂ�ł�

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用天空璋キャラと育児関連とか修正パッチ/readme.txt


code:
;===========================================================================
;	���\�[�X�\���֘A�Ŏg�p����֐��Q
;
;PRINT_TARGET_IMAGE				�^�[�Q�b�g�̉摜��l�����\���@AA�̏ꏊ�ŌĂ�
;PRINT_STATE_IMAGE				�X�e�[�^�X��ʂ̕\����p
;PRINT_IMAGE					�ǂ��ł��ĂׂΉ摜�\�����Ă����֐�
;PRINT_IMAGE_ANIMATION			�A�ԉ摜�A�j���[�V����
;PRINT_IMAGE_ANIMATION_�����	����ʂ̃A�j���[�V�����摜�\��
;PRINT_IMAGE_ANIMATION_��w��	��w�ʂ̃A�j���[�V�����摜�\��
;PRINT_IMAGE_ANIMATION_�ː���	�ː���̃A�j���[�V�����摜�\��
;
;===========================================================================

;=========================================================
;	�^�[�Q�b�g�̉摜��l�����\��
;	�e�L�X�g�^�O�ƃ{�^���t���摜�\������
;
;	pTARGET		�F���ɉ����l����TARGET�z�������΂���
;				�F�ǂ��łƂ��Ă��擪�A�h���X�ɂȂ�d�l�������ł�
;=========================================================
@PRINT_TARGET_IMAGE(pTARGET)
#DIM REF pTARGET

#DIM CONST kFontSize = 1000	;�t�H���g�T�C�Y�{��
#DIM iFont_Hei_mag			;1�s�����̔{��
#DIM iPrintCount = 0		;FOR�p �`��J�E���g
#DIM iSpaceSize				;�e�L�X�g�^�O�̍��E�����`�悵�Ȃ��͈�
#DIMS sTemp,3				;���A�\��̃e���|����
#DIMS sRes_name				;���\�[�X���i�[
#DIMS sSab_Res_name			;�}�E�X�I�[�o�[�̂ق�
#DIMS sPrint_Text			;HTML_PRINT���镶����TEMP
#DIM iTarget_Num = 0		;TARGET�z��ԍ�
#DIM iTarget_Con = 0		;TARGET�l��
#DIM iPrintStart = 1		;�`����J�n����TARGET�z��ԍ�
#DIM iEnter_Con = 0			;���s���@�摜�`��̏c���킹�Ɏg������
#DIM iAlignment				;�\��ω��̃o�����X
#DIM Save_RESULT			;RESULT�̕ی�
#DIMS sType					;�����G�̎��

SIF !pTARGET
	RETURN RESULT

SIF GETCONFIGS("�`��C���^�[�t�F�[�X") == "WINAPI"
	THROW �`��C���^�[�t�F�[�X��TextRenderer�ɕύX���ĉ�����

;RESULT�̕ی�
SAVE_RESULT = RESULT
iTarget_Con = GET_TARGETNUM()
iTarget_Num = FINDELEMENT(pTARGET,pTARGET:0,1)
sType = \@FLAG:�����G���?��G#�����G\@

;�t�H���g�T�C�Y�ƍ����Ƃ̔{�����@�l�̌ܓ�
iFont_Hei_mag = GETCONFIG("��s�̍���") * kFontSize*10 / GETCONFIG("�t�H���g�T�C�Y")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

IF FLAG:�摜�\���ݒ�
	;-----------------
	;�\���ݒ�֘A
	;-----------------
	sPrint_Text =

	sPrint_Text += @"<button value='3105' title='���݁F\@FLAG:�����G���?��G#�����G\@'>"
	sPrint_Text += @"�����G���[\@FLAG:�����G���?��G#�����G\@]�@</button>"
	sPrint_Text += @"<button value='3103' title='���݁F\@FLAG:�摜�\���ʒu?����#������\@'>"
	sPrint_Text += @"�\���ʒu[\@FLAG:�摜�\���ʒu?left#center\@]�@</button>"
	sPrint_Text += @"<button value='3104' title='���݁F\@FLAG:�摜�g�\��?ON#OFF\@'>"
	sPrint_Text += @"�g�\��[\@FLAG:�摜�g�\��?ON#OFF\@]</button>"
	sPrint_Text += "
"

	;-----------------
	;�\���l���̑����@����������TARGET�����Ɉړ�
	;-----------------
	sPrint_Text += @"<button value='{1000+pTARGET:(MAX(iTarget_Num-1,1))}' title='�^�[�Q�b�g�|'>����</button>"
	sPrint_Text += @"<button value='3101' title='�\���l���|'>[�|]</button>"
	sPrint_Text += @"�\���l��[{FLAG:�摜�\��}]"
	sPrint_Text += @"<button value='3102' title='�\���l���{'>[�{]</button>"
	sPrint_Text += @"<button value='{1000+pTARGET:(MIN(iTarget_Num+1,iTarget_Con+1))}' title='�^�[�Q�b�g�{'>����</button>"

	HTML_PRINT sPrint_Text
ENDIF

;�`��J�n�ʒu�̌���
IF FLAG:�摜�\�� != 1
	IF iTarget_Num >= (iPrintStart + FLAG:�摜�\��) || iTarget_Num < iPrintStart
		;��ʊO
		iPrintStart = iTarget_Num -1
	ELSEIF iPrintStart == iTarget_Num
		;��ʍ��[
		iPrintStart--
	ELSEIF (iPrintStart + FLAG:�摜�\��)-1 ==  iTarget_Num && iTarget_Con > FLAG:�摜�\��
		;��ʉE�[
		iPrintStart++
	ENDIF

	;�n�[�I�[
	iPrintStart = LIMIT(iPrintStart,1,MAX(iTarget_Con-FLAG:�摜�\��+1,FLAG:�摜�\��))
ELSEIF FLAG:�摜�\�� == 1
	iPrintStart = iTarget_Num
ENDIF

;-----------------
;�e�L�X�g�^�O�{�^��
;-----------------
sPrint_Text =
<nobr>
FOR iPrintCount,iPrintStart,FLAG:�摜�\��+iPrintStart
	SIF !pTARGET:iPrintCount
		BREAK

	;���E�����킹�@[���O] -120��[]��
	STRLENFORMU %CALLNAME:(pTARGET:iPrintCount)%
	iSpaceSize	=	iFont_Hei_mag-(RESULT*100)-120
	iSpaceSize	/=	2
	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

	SIF pTARGET == pTARGET:iPrintCount
		sPrint_Text += @""
	sPrint_Text += @"<button value='{1000+pTARGET:iPrintCount}' title='�^�[�Q�b�g{iPrintCount}'>[%CALLNAME:(pTARGET:iPrintCount)%]</button>"
	SIF pTARGET == pTARGET:iPrintCount
		sPrint_Text += @""

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

NEXT

HTML_PRINT sPrint_Text
iEnter_Con = 0

;-----------------
;�摜�\��
;-----------------
sPrint_Text =
<nobr>
FOR iPrintCount,iPrintStart,FLAG:�摜�\��+iPrintStart
	SIF !pTARGET:iPrintCount
		BREAK

	sPrint_Text += @"<button value='{1000+pTARGET:iPrintCount}' title='�^�[�Q�b�g{iPrintCount}'>"

	;-----------------
	;�ʏ탊�\�[�X����
	;-----------------
	SELECTCASE pTARGET:iPrintCount
		;-----------------
		;������CASE�Ƀ��\�[�X�t�@�C���ɒǉ������L����ID��ǋL����
		;����ւ������p�̃X�y�[�X(�t�@�C���ς���)
		;-----------------
		CASE 16
			;���~���A
			IF CHARISMA_NOW() >= 200
				;�Ƃ肠������{���[�g��200���
				sRes_name = {pTARGET:iPrintCount}
			ELSE
				sRes_name = {pTARGET:iPrintCount}_1
			ENDIF
		CASE 67
			;�d����p
			IF DAY:3 == 15 && INRANGE(TIME:2,5,7)
				sRes_name = {pTARGET:iPrintCount}_2
			ELSE
				sRes_name = {pTARGET:iPrintCount}
			ENDIF
		CASE 113
			;�ւ��s��p
			IF DAY:3 == 15 && INRANGE(TIME:2,5,19)
				;��
				sRes_name = {pTARGET:iPrintCount}_2
			;ELSEIF (((DAY:3 >= 1 && DAY:3 <= 3) || (DAY:3 >= 29 && DAY:3 <= 31)) && (TIME:2 <= 5 || TIME:2 >= 19)) || (CFLAG:113:���݈ʒu >= 1010 && CFLAG:113:���݈ʒu <= 1090)
			ELSEIF ((INRANGE(DAY:3,1,3) || INRANGE(DAY:3,29,31)) && !INRANGE(TIME:3/60,5,19)) || INRANGE(CFLAG:113:���݈ʒu,1010,1090)
				;��
				sRes_name = {pTARGET:iPrintCount}
			ELSE
				;��
				sRes_name = {pTARGET:iPrintCount}_1
			ENDIF
		CASE 1 TO CHARANUM - 1
			sRes_name = {pTARGET:iPrintCount}

		CASEELSE
			sPrint_Text += @"</button>"
			CONTINUE
	ENDSELECT

	;-----------------
	;�g�����\�[�X����
	;�����ɏ�������ǉ����ĕ�����ω�������
	;-----------------
	VARSET sTemp
	IF !TEQUIP:(pTARGET:iPrintCount):�����g���ߏ� && !TEQUIP:(pTARGET:iPrintCount):�㔼�g���ߏ�
		sTemp:0 = _��
	ELSE
		;-----------------
		;�������������ɏ���
		;-----------------
		SELECTCASE pTARGET:iPrintCount
			CASE 26
				;��
				IF EQUIP:(pTARGET:iPrintCount):�����s�[�X == 7
					;�C�u�j���O�h���X
					sTemp:0 = _��1
				ELSE
					;���̑�
					sTemp:0 = _��
				ENDIF
			CASE 31
				;���c
				IF EQUIP:(pTARGET:iPrintCount):�㔼�g�㒅�P == 2
					;�Z�[���[
					sTemp:0 = _��1
				ELSE
					sTemp:0 = _��
				ENDIF
			CASE 52
				;���
				IF EQUIP:(pTARGET:iPrintCount):�㔼�g�㒅�P == 4
					;�u���U�[����
					sTemp:0 = _��
				ELSE
					;�Ȃ�
					sTemp:0 = _��1
				ENDIF
			CASE 66
				;�H�X�q
				IF (DAY:3) % 2
					;�����͕̂ς��Ȃ��̂ň�����
					sTemp:0 = _��
				ELSE
					sTemp:0 = _��1
				ENDIF
			CASE 68
				;�H��
				IF EQUIP:68:�㔼�g�㒅�Q == 3
					;�p�W���}
					sTemp:0 = _��1
				ELSE
					sTemp:0 = _��
				ENDIF
			CASEELSE
				sTemp:0 = _��
		ENDSELECT
	ENDIF

	;-----------------
	;�\���\��ύX
	;�@���ȂǂŔ���
	;-----------------
	IF TALENT:(pTARGET:iPrintCount):�@�� == -1 || CFLAG:(pTARGET:iPrintCount):�u�`�M��
		sTemp:1 = _�{��
		iAlignment = -1

	{
	ELSEIF TALENT:(pTARGET:iPrintCount):�@�� == 1 ||
			BASE:(pTARGET:iPrintCount):���[�h == MAXBASE:(pTARGET:iPrintCount):���[�h ||
			TCVAR:(pTARGET:iPrintCount):�D��
	}
		sTemp:1 = _�Ί�
		iAlignment = 1
	ELSE
		sTemp:1 = _�ʏ�
		iAlignment = 0
	ENDIF

	;-----------------
	;�}�E�X�I�[�o�[�̕\���\��ύX
	;�ח��ȂǂŕύX
	;-----------------
	VARSET sSab_Res_name
	;-----------------
	;�Ί�\��
	;�ח�����
	;-----------------
	{
	IF TALENT:(pTARGET:iPrintCount):���l || TALENT:(pTARGET:iPrintCount):���� || TALENT:(pTARGET:iPrintCount):�v�� ||
		TALENT:(pTARGET:iPrintCount):�Z�t�� || TALENT:(pTARGET:iPrintCount):���~
	}
		iAlignment ++
	;-----------------
	;�{��\��
	;�ח��Ȃ��̕��C�ˌ�
	;�ח��Ȃ��̗��̏��������ꂭ�炢�����Ȃ�����
	;-----------------
	ELSEIF BATHCHECK(CFLAG:(pTARGET:iPrintCount):���݈ʒu) && ���C�ǂ��o������(pTARGET:iPrintCount)
		iAlignment --
	ENDIF
	;-----------------
	;�{��\��
	;�������� �{��Q�[�W
	;-----------------
	SIF MARK:(pTARGET:iPrintCount):��������
		iAlignment --
	SIF BASE:(pTARGET:iPrintCount):�{�� >= 500
		iAlignment --
	;-----------------
	;�Ί�\��
	;���[�h
	;-----------------
	SIF BASE:(pTARGET:iPrintCount):���[�h >= 650
		iAlignment ++

	;-----------------
	;�}�E�X�I�[�o�[�ω�
	;-----------------
	SELECTCASE iAlignment
		CASE IS >= 1
			sSab_Res_name = %sType%%sTemp:0%_�Ί�_%sRes_name%
			SIF sTemp:1 == "_�{��"
				sTemp:1 = _�ʏ�
		CASE IS < 0
			sSab_Res_name = %sType%%sTemp:0%_�{��_%sRes_name%
			SIF sTemp:1 == "_�Ί�"
				sTemp:1 = _�ʏ�
		CASEELSE
			sSab_Res_name = %sType%%sTemp:0%_�ʏ�_%sRes_name%
	ENDSELECT

	sRes_name = %sType%%sTemp:0%%sTemp:1%_%sRes_name%
	;-----------------
	;�^�O�Z�b�g
	;-----------------
	sPrint_Text += @""
	sPrint_Text += "</button>"

NEXT

HTML_PRINT sPrint_Text
iEnter_Con++

;----------------------------------
;	�Ƃ�\���@�ォ��d�˂�
;	��O���̕���p
;----------------------------------
IF FLAG:�����G���
	sPrint_Text =
<nobr>
	FOR iPrintCount,iPrintStart,FLAG:�摜�\��+iPrintStart
		SIF !pTARGET:iPrintCount
			BREAK
		;-----------------
		;�ʏ탊�\�[�X����
		;-----------------
		VARSET sTemp
		SELECTCASE pTARGET:iPrintCount
			;-----------------
			;������CASE�Ƀ��\�[�X�t�@�C���ɒǉ������L����ID��ǋL����
			;-----------------
			CASE 16
				;���~���A
				IF CHARISMA_NOW() >= 200
					;�Ƃ肠������{���[�g��200���
					sRes_name = {pTARGET:iPrintCount}
				ELSE
					sRes_name = {pTARGET:iPrintCount}_1
				ENDIF
			CASE 67
				;�d����p
				IF DAY:3 == 15 && INRANGE(TIME:2,5,7)
					sRes_name = {pTARGET:iPrintCount}_2
				ELSE
					sRes_name = {pTARGET:iPrintCount}
				ENDIF
			CASE 113
				;�ւ��s��p
				IF DAY:3 == 15 && INRANGE(TIME:2,5,19)
					sRes_name = {pTARGET:iPrintCount}_2
				ELSEIF ((INRANGE(DAY:3,1,3) || INRANGE(DAY:3,29,31)) && !INRANGE(TIME:3/60,5,19)) || INRANGE(CFLAG:113:���݈ʒu,1010,1090)
					sRes_name = {pTARGET:iPrintCount}
				ELSE
					sRes_name = {pTARGET:iPrintCount}_1
				ENDIF
			CASE 45,69,106
				;���K�l������p�@�����q�A�}�~�]�E�A俎q
				{
				IF EQUIP:(pTARGET:iPrintCount):�A�N�Z�T�� == 1 ||
					(TEQUIP:(pTARGET:iPrintCount):�����g���ߏ� && TEQUIP:(pTARGET:iPrintCount):�㔼�g���ߏ�)
				}
					;�ዾ���肩�����Ă鎞
					sTemp:1 = _�ዾ
				ELSE
					sTemp:1 =
					;俎q�@���Ȃ��̂Ŋዾ���O���Ȃ�
					SIF pTARGET:iPrintCount == 106
						sTemp:1 = _�ዾ
				ENDIF
				sRes_name = {pTARGET:iPrintCount}
			CASE 1 TO CHARANUM - 1
				sRes_name = {pTARGET:iPrintCount}

			CASEELSE
				sPrint_Text += @""
				sPrint_Text += @"ypos='-{iEnter_Con * iFont_Hei_mag / 10+1}'>"
				CONTINUE
		ENDSELECT
		;-----------------
		;�Ƃ�\��
		;-----------------
		{
		IF GETPALAMLV(PALAM:(pTARGET:iPrintCount):�~��, 15) + CFLAG:(pTARGET:iPrintCount):���܂��Ă�x / 100 >= 12 ||
			TCVAR:(pTARGET:iPrintCount):�D�� || TCVAR:(pTARGET:iPrintCount):�Z�� || TCVAR:(pTARGET:iPrintCount):����
		}

			IF GROUPMATCH(pTARGET:iPrintCount, 1, 11, 18, 29) && !TEQUIP:(pTARGET:iPrintCount):�����g���ߏ� && !TEQUIP:(pTARGET:iPrintCount):�㔼�g���ߏ�
				sTemp:0 = %sType%_�Ƃ�_��%sTemp:1%_%sRes_name%
			ELSE
				sTemp:0 = %sType%_�Ƃ�%sTemp:1%_%sRes_name%
			ENDIF
		ELSE
			;�Y����������Ń_�~�[�`�悵���Ⴄ
			sTemp:0 = �_�~�[
			sTemp:1 =
		ENDIF

		sPrint_Text += @""
	NEXT
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

;----------------------------------
;	���Ԓ�~���̏���
;�ォ��w�i�F�Ɠ����F�𓧉ߓx����ďd�˂�
;�L�����Ƃ̃u�����h�o���Ȃ��̂Ŕw�i�F�ɍ��킹��
;----------------------------------
IF FLAG:���Ԓ�~
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

;----------------------------------
;	�t���[���`��
;----------------------------------
IF FLAG:�摜�g�\��
	sPrint_Text =
<nobr>
	FOR iPrintCount,iPrintStart,FLAG:�摜�\��+iPrintStart
		SIF !pTARGET:iPrintCount
			BREAK
		IF TALENT:(pTARGET:iPrintCount):�@�� == -1
			sTemp = _�{��
		ELSEIF TALENT:(pTARGET:iPrintCount):�@�� == 1
			sTemp = _�Ί�
		ELSE
			sTemp = _�ʏ�
		ENDIF
		SIF pTARGET == pTARGET:iPrintCount
			sTemp = _�^�[�Q�b�g%sTemp%
		sPrint_Text += @""
	NEXT
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

FOR iPrintCount,iEnter_Con+1,(kFontSize/100)
	HTML_PRINT "
"
NEXT
RESULT = SAVE_RESULT
RETURN RESULT

;=========================================================
;	�X�e�[�^�X��ʂ̉摜�\��
;
;	iID		�F�L����ID�Ɠ������\�[�X����\�����܂�
;	iSize	�F�t�H���g�ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;=========================================================
@PRINT_STATE_IMAGE(iID,iSize=1000)
#DIM iID
#DIM iSize
#DIMS sPrint_Text
#DIM iFont_Hei_mag
#DIM iEnter_Con

SIF !iID
	RETURN RESULT

iFont_Hei_mag = GETCONFIG("��s�̍���") * iSize*10 / GETCONFIG("�t�H���g�T�C�Y")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

sPrint_Text =

SELECTCASE iID
CASE 1 TO CHARANUM - 1
	sPrint_Text += @""
CASEELSE
	sPrint_Text += @""
ENDSELECT

HTML_PRINT sPrint_Text
iEnter_Con = 1

IF FLAG:�摜�g�\��
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

FOR LOCAL,iEnter_Con+1,(iSize/100)
	HTML_PRINT "
"
NEXT
RETURN RESULT
;=========================================================
;	���\�[�X�̕\��
;	�\����T�C�Y�ɍ��킹�ĉ��s���s��
;	PRINT_IMG �̊g���݂����Ȋ����@�����̑}�G�I�Ɏg����Ǝv��
;
;	sRes_Name	�F���\�[�X�̖��O������
;	iSize		�F��s�̍����ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;	sAlign		�Falign�����@�ȗ��ō��񂹁@left, center, right�̎O�킪�w��ł��܂�
;=========================================================
@PRINT_IMAGE(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign
#DIMS sPrint_Text
#DIM iEnter_Con
#DIM iFont_Hei_mag

SIF GETCONFIGS("�`��C���^�[�t�F�[�X") == "WINAPI"
	THROW �`��C���^�[�t�F�[�X��TextRenderer�ɕύX���ĉ�����

SIF !FLAG:�摜�\�� || sRes_Name == ""
	RETURN RESULT

iEnter_Con = 0
iFont_Hei_mag = GETCONFIG("��s�̍���") * iSize*10 / GETCONFIG("�t�H���g�T�C�Y")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

HTML_PRINT @"
<nobr>"
iEnter_Con++

IF FLAG:���Ԓ�~
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

IF FLAG:�摜�g�\��
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

FOR LOCAL,iEnter_Con-1,(iSize/100)-1
	HTML_PRINT "
"
NEXT
RETURN RESULT

;=========================================================
;	�A�ԉ摜�A�j���[�V����
;
;	sRes_Name	�F���\�[�X�̖��O������@���̖��O�̌�ɘA�Ԑ�����t����
;	iStart		�F�J�n�ԍ�
;	iEnd		�F�J�n����̕`�文��
;	iAnime_Num	�F�S�̂̃A�j���[�V�����J��Ԃ��� �ȗ�0�ŃI�v�V�����ݒ肵���t���O�񐔂ɂȂ�܂�
;	iRollback	�F���[���o�b�N�����邩�t���O
;	iWait		�F1���̕\������
;	iSize		�F��s�̍����ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;	sAlign		�Falign�����@�ȗ��ō��񂹁@left, center, right�̎O�킪�w��ł��܂�
;=========================================================
@PRINT_IMAGE_ANIMATION(sRes_Name,iStart=0,iEnd=4,iAnime_Num=0,iRollback=1,iWait=100,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iStart
#DIM iEnd
#DIM iAnime_Num
#DIM iRollback
#DIM iWait
#DIM iSize
#DIMS sAlign

SIF !FLAG:�摜�\�� || sRes_Name == ""
	RETURN RESULT

SIF !FLAG:�A�j���[�V����
	RETURN RESULT

SIF !iAnime_Num
	iAnime_Num = FLAG:�A�j���[�V����

FOR LOCAL,0,iAnime_Num
	FOR LOCAL:1,iStart,(iStart+iEnd)
		CALL PRINT_IMAGE(@"%sRes_Name%{LOCAL:1}",iSize,sAlign)
		TWAIT iWait, 0
		CLEARLINE iSize/100
	NEXT

	;���[���o�b�N�����邩
	SIF !iRollback
		CONTINUE

	FOR LOCAL:1,(iStart+iEnd)-2,iStart-1,-1
		CALL PRINT_IMAGE(@"%sRes_Name%{LOCAL:1}",iSize,sAlign)
		TWAIT iWait, 0
		CLEARLINE iSize/100
	NEXT
NEXT
RETURN RESULT

;=========================================================
;	����ʂ̃A�j���[�V�����摜�\��
;
;	sRes_Name	�F�Ō�ɕ\������摜�̃��\�[�X��
;	iSize		�F��s�̍����ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;	sAlign		�Falign�����@�ȗ��ō��񂹁@left, center, right�̎O�킪�w��ł��܂�
;=========================================================
@PRINT_IMAGE_ANIMATION_�����(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIM iStart
#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name

SIF !FLAG:�摜�\�� || sRes_Name == "" || !FLAG:�}�G�\��
	RETURN RESULT

IF sRes_Name == "�����_�ː�"
	sPrint_Res_Name = %sRes_Name%_{FLAG:�ː��摜���}
ELSE
	sPrint_Res_Name = %sRes_Name%
ENDIF

IF !FLAG:�A�j���[�V����
	CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)
	RETURN RESULT
ENDIF

sAnime_Res_Name = �����_�}��_

IF sRes_Name == "�����_�ː�" || sRes_Name == "�����_�Ⓒ"
	iStart = 1
ELSE
	iStart= 0
ENDIF

CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,iStart,4-iStart,FLAG:�A�j���[�V����,1,,iSize,sAlign)
CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,iStart,4-iStart,1,0,,iSize,sAlign)

IF sRes_Name == "�����_�ː�"
	sAnime_Res_Name = �����_�ː�_{FLAG:�ː��摜���}_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,2,FLAG:�A�j���[�V����,0,,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,2,2,FLAG:�A�j���[�V����,1,,iSize,sAlign)
ENDIF
CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)

RETURN RESULT

;=========================================================
;	��w�ʂ̃A�j���[�V�����摜�\��
;	�R�}���ȂǕς�����̂ŕʂ�
;
;	sRes_Name	�F�Ō�ɕ\������摜�̃��\�[�X��
;	iSize		�F��s�̍����ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;	sAlign		�Falign�����@�ȗ��ō��񂹁@left, center, right�̎O�킪�w��ł��܂�
;=========================================================
@PRINT_IMAGE_ANIMATION_��w��(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name
#DIM iAnimeCon

SIF !FLAG:�摜�\�� || sRes_Name == "" || !FLAG:�}�G�\��
	RETURN RESULT

IF sRes_Name == "��w��_�ː�"
	sPrint_Res_Name = %sRes_Name%_{FLAG:�ː��摜���}
	SIF NOWEX:MASTER:�ː� > 1
		sPrint_Res_Name = %sRes_Name%_{FLAG:�ː��摜���}_9
ELSE
	sPrint_Res_Name = %sRes_Name%
ENDIF

IF !FLAG:�A�j���[�V����
	CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)
	RETURN RESULT
ENDIF

IF sRes_Name == "��w��_�}��"

	iAnimeCon = FLAG:�A�j���[�V����/2?FLAG:�A�j���[�V����/2#1
	CALL PRINT_IMAGE_ANIMATION("��w��_�}��_",0,6,iAnimeCon,1,,iSize,sAlign)

	iAnimeCon = (FLAG:�A�j���[�V����-iAnimeCon)?FLAG:�A�j���[�V����-iAnimeCon#1
	CALL PRINT_IMAGE_ANIMATION("��w��_�}��2_",0,12,iAnimeCon,0)
ELSE
	IF sRes_Name == "��w��_�Ⓒ"
		iAnimeCon = FLAG:�A�j���[�V����/2?FLAG:�A�j���[�V����/2#1
		CALL PRINT_IMAGE_ANIMATION("��w��_�}��2_",0,12,iAnimeCon,0)
	ENDIF

	CALL PRINT_IMAGE_ANIMATION("��w��_�Ⓒ_",0,4,FLAG:�A�j���[�V����,0)
	CALL PRINT_IMAGE_ANIMATION("��w��_�Ⓒ_",0,2,1,0)
ENDIF
IF sRes_Name == "��w��_�ː�"
	sAnime_Res_Name = ��w��_�ː�_{FLAG:�ː��摜���}_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,8,1,0,,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,6,2,FLAG:�A�j���[�V����,1,,iSize,sAlign)

	;��ʂȂ�ǉ���
	IF NOWEX:MASTER:�ː� > 1
		CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,8,2,FLAG:�A�j���[�V����,1,,iSize,sAlign)
	ENDIF

ENDIF
CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)

RETURN RESULT
;=========================================================
;	�ː���̃A�j���[�V�����摜�\��
;
;	sRes_Name	�F�Ō�ɕ\������摜�̃��\�[�X��
;	iSize		�F��s�̍����ɑ΂���T�C�Y�����l�@�c��@�c����ێ��@�ȗ���1000(10�{)
;	sAlign		�Falign�����@�ȗ��ō��񂹁@left, center, right�̎O�킪�w��ł��܂�
;=========================================================
@PRINT_IMAGE_ANIMATION_�ː���(sRes_Name="�����_���o��",iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIM iWait
#DIMS sAnime_Res_Name
#DIMS sType
#DIM SAVE_RESULT

SIF !FLAG:�摜�\�� || sRes_Name == "" || !FLAG:�}�G�\��
	RETURN RESULT

IF !FLAG:�A�j���[�V����
	CALL PRINT_IMAGE(sRes_Name,iSize,sAlign)
	RETURN RESULT
ENDIF
SAVE_RESULT = RESULT
SPLIT sRes_Name,"_",sType

IF sType == "��w��"
	sAnime_Res_Name = %sType%_�ː�_{FLAG:�ː��摜���}_\@NOWEX:MASTER:�ː�>1?9#7\@
ELSE
	sAnime_Res_Name = %sType%_�ː�_{FLAG:�ː��摜���}_3
ENDIF

iWait = 500
CALL PRINT_IMAGE(@"%sAnime_Res_Name%",iSize,sAlign)
sAnime_Res_Name = %sType%_�}��_
TWAIT iWait, 0
CLEARLINE iSize/100

iWait = 100
FOR LOCAL,3,0,-1
	CALL PRINT_IMAGE(@"%sAnime_Res_Name%{LOCAL}",iSize,sAlign)
	TWAIT iWait, 0
	CLEARLINE iSize/100
NEXT

;��w�ʂ̂݃A�j��
IF sType == "��w��"
	sAnime_Res_Name = %sType%_�ː���_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,2,1,0,iWait,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,2,2,0,0,iWait,iSize,sAlign)
ENDIF

CALL PRINT_IMAGE(sRes_Name,iSize,sAlign)

RESULT = SAVE_RESULT
RETURN RESULT

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用天空璋キャラ画像パッチ＋おまけ/02_おまけ/02_天空璋既存キャラANOTHER/IMAGE.ERB


path: 原版+前人整合等各种readme/パッチ/eraTW4.561用天空璋キャラ画像パッチ＋おまけ/02_おまけ/02_天空璋既存キャラANOTHER/顔.csv


code:
�g���邩������Ȃ����܂��摜�W

��01_�V�����V�K�L����ANOTHER
�V�����L�����̕ʃo�[�W�����ł�
�e�t�@�C�������C�����ď㏑������Ή摜�������ւ��܂�
���D�݂Ŏg���Ă�������

�E������
�@�u���I�v�u��I�v�t��
�@�����������C���ł��ǂ�������������Ȃ�

�E����
�@2:�m���a�n�p�̋����o�[�W����
�@3:�}�Ȃ��o�[�W����
�@4:�}�Ȃ��{�����o�[�W����
�@�����Ă鐬�����킢���Ȃ��H

�E�B���
�@�����G�F�{������EX�o�[�W����
�@�@��G�FEX�o�[�W����
�@���Ȃ݂�6�{�X�̍����Ă�o�[�W�������f�ނƂ��Ă͂��邯�Ǘ����G�ɂ͌����Ȃ��Ǝv���ăX���[�i�����Ă邵�j

��02
�V�����̎��@�L�����i�ƃ����[�z���C�g�j�̕ʃo�[�W�����ł�
�������]���̂��̂Ɠ����ł�
���D�݂Ŏg���Ă�������
�����G�㏑�����邾���ō����ւ��ł��܂����A
�I��G�͓�����"IMAGE.erb"��"��.erb"���e�㏑������K�v������܂��I�i�Ƃꕔ�����قȂ邽�߁j�i�`���m�����j

�������ƃ`���m�͋G�ߊ����o�߂��Ă���̂ŕ��ʂɎg���ƈ�a������܂���
�G�߂ɂ���Ē����ւ��͂�낤�Ǝv���΂ł��邯�ǂ߂�ǂ������̂Ŏ����ł���Ă�������

�������͖X�q�̍���������܂�

��03_����L����
�w����ǉ��L�������āx�ɂ������O���Ȃ��L�����R�l�ƃI�����W�̉摜�ł�
�I�����W�́m���a�n���������̂ł��̂܂܎������ꂽ���p�ɋ����Ă�o�[�W�����ł�
��������܂��L�����N�^�[�Ƃ��Ă͎�������Ă��܂���

�ȉ��O�̂���
�g�p���Ă���摜�̓��\�[�X�\���p�b�`�쐬�҂��񂪎g�p���Ă�����̂Ɠ���kaoru���̃t���[�f�ނł�
resouses���́u�摜����җl�̗��p�K��v�i�����\�[�X�\���p�b�`�쐬�҂��񂪍쐬�j�������Č䗗��������

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用天空璋キャラ画像パッチ＋おまけ/02_おまけ/おまけのreadme.txt


code:
eraTW4.561�{eraTW4.561�p�V�����L�����ƈ玙�֘A�Ƃ��C���p�b�`�@�p��resources�摜�ł�
���K���V�����L�����ǉ��̃p�b�`�����Ă�������
���wTW4.561�p��`���ƌ���{���C���p�b�`�x�̏C����������荞��ł��܂�

��01_�p�b�`
�V�����L�����̉摜�ƕ\�����邽�߂̏C���t�@�C���ł�
���̃t�H���_�ȉ������ĂĂ�������

��02_���܂�
�g���邩������Ȃ��摜�t�@�C���ł�
�ڍׂ͂��܂���readme�����Ă�������

�ȉ��O�̂���
�g�p���Ă���摜�̓��\�[�X�\���p�b�`�쐬�҂��񂪎g�p���Ă�����̂Ɠ���kaoru���̃t���[�f�ނł�
resouses���́u�摜����җl�̗��p�K��v�i�����\�[�X�\���p�b�`�쐬�҂��񂪍쐬�j�������Č䗗��������

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用天空璋キャラ画像パッチ＋おまけ/readme.txt


code:
-------------------------------------------------------------
��eraTW4.561�p�q��ăC�x���g���ǃp�b�`

�@�@�@�@�@�@�@�@�@�@�@�@�@���    holy
-------------------------------------------------------------

���weraTW4.561�p�V�����L�����ƈ玙�֘A�Ƃ��C���p�b�`�x��K�����ĂĂ��瓱�����ĉ�����

���玙�֘A�E����֘A
�E�f�C���[�C�x���g�w�q������̎莆�x�w�q�������q���Łx�Ɍ����݂��܂���
�@�w�q������̎莆�x�ɂ͌����p�C�x���g������悤�ɂ��܂���

�E�o�Y���̐��ʃo�O�C��
�@�X��238>>375�@�񍐂��肪�Ƃ��������܂�

�E�玙�C�x���g�����r���[�ɔ����Ă��̂őS������
�@WAIT�̎d��������

�E�q���`�ʃC�x���g�̌���Ăяo�����@����
�@����ɔ�������Ăяo���֐�������
�@�C�x���g����͕���������ł��Ăяo����悤�ɂȂ�ATARGET�ߑ��ƌ���F�������ł���Ă���܂�
�@������TRYCCALLFORM���g���n�̕������ς���^�C�v�̂��͎̂d�l���قȂ�̂őΉ����Ă܂���
�@�e���v���̕��ɂ����ߕ���ǋL���Ă����܂���

�E�G������������������C��
�@���т��ю�������Đ\���󂠂�܂���c�c

�E���q���ɒʂ����Ԃ�����ƕύX
�@���X�͉��̂����r���[�Ȏ��Ԃ��������ǖ�肠�����炲�߂�Ȃ����c�c

�E�q���̏A�Q���Ԃ��֐��Őݒ�
�@��e�̏A�Q���Ԃ�0���߂��Ă���ƕςɂȂ��Ă����̂Łi�����j

�E��̎��C�x���g����L�̎d�l�ɉ���
�@INRANGE(TIME,�`,�`)�����͎��q���ɍs���Ă鎞�Ԃ��ĉ��߂ł����ł���ˁH

�E�\�͕\���̎q�����̌뎚�C���A0�˂̎��͐����i�K��\�L
�@�X��238>>376�@�񍐂��肪�Ƃ��������܂�

�EInfo�Ɏq���`�ʒǋL
�@�q���ɐ��i�Ƃ���������c�c�i�߂�ǂ������j

�Etxt����m�[�g�̈玙�C�x���g�𓯍�

�����̑�
�E�f�C���[�C�x���g�e��̈ꕔWAIT�̉��ς�RETURN�l���C��
�@WAIT�͕��̏����₷������e��C�x���g���Őݒ�i���܂ł͋���WAIT������AWAIT�ʒu���o���o���������j

�E�I�i�o���C�x���g����TARGET�ߑ����ꕔ�o�O�C��
�@�A�i�j�[�̃t���O�Ƀ~�X��������

path: 原版+前人整合等各种readme/パッチ/eraTW4.561用子育てイベント改良パッチ/readme.txt


code:
eraTW4.570proto�p�m�[�p���擾�C��

 ERB���R�}���h�֘A��COMF���O�o�n��NASIKUZUSI.ERB

�ʏ�̃p���c�擾�̃m�[�p���擾�͒����Ă��̂ɁA�������A��̑��݂�������Y��Ă���
���Ɏ擾���Ă�H�@���͂łǂ���
�G���[�񍐂��ᖳ�����A�y����ł�݂��������A�����K�v�Ȃ����ۂ���

by������


code:
eraTW4.570proto�p����z���p���o�O�C��+��

 ERB���R�}���h�֘A��COMF������n��COMF350 �����|��.ERB
								��COMF365 ���_�Ђֈړ�.ERB
								��COMF464 ����n��Ԉړ�.ERB

238�X��>>917&&863�C��(COMF350 �����|��.ERB
	�c�c�Ă��A����A�O�ɂ��S���������̂𒼂����C������
	���z�֌W�́A�������_�ŋ������Ă邩��A�X�ɋ��z������̂͂��������̂ŁA�R�����g�A�E�g
238�X��>>886�ɂāA���Ă����n��ԓ���ړ�����肭�����ĂȂ����ۂ��̂��C�����Ă݂�(COMF365 ���_�Ђֈړ�.ERB,COMF464 ����n��Ԉړ�.ERB
	���̑O�݂��������ǁA�ǂ������{�z��̊֐�������Ȃ������̂Ŏ�����Ă܂���ł����ς݂܂���
	�����|���ꒆ�ɂ͓���ړ��o���Ȃ��悤�ɂ����Ă��܂�

���x�̎��Ȃ���A���̐l�Ƃ̃p�b�`�ƕ��p���鎞�͎��ȐӔC��

by������


code:
eraTW4.570proto�p�������ӂӌp���o�O�C��+��

 ERB��MOVEMENTS��MOVEMENT_SUB.ERB
	��		�@ ��SLEEP.ERB
	��SHOP�֘A��OPTION_COM_FILTER.ERB

239�X��>>184�C��(MOVEMENT_SUB.ERB,SLEEP.ERB
	�Ԃ����Ⴏ�A����ȑO�ɉ����|�����Č����v���C��z�肵�ĂȂ������̂������ł�
	���玞�̐��������ӂӏI���������A�����J�n���Ɉړ����Ċח������֌W�Ȃ������J�n���ɂ͋����I�ɂ��ӂӏI������悤��
	���������p�b�`�ȍ~�ɔ������Ă���������A���ꂷ���������Ԑ��ݓI�o�O��Ԃ��������ۂ��H
239�X��>>210�Ɋ֘A���āAUSERCOM�t�B���^�؂�ւ����A����\����831�ɂȂ��Ă��̂�801�ɏC��

�Ƃ肠�����A����morph���̏C���p�b�`�Ƃ͋����͂��Ȃ��������ǁA�����ʂ�O�X��936�ȊO�̃p�b�`�ƕ��p���鎞�͎��ȐӔC��
���ȐӔC��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.570proto用睡眠うふふ継続バグ修正+α/README.TXT


code:
2017/12/08
eraTW4.570proto�p����csv�C��+�ꊇ���������ύX

�E����
4.570�Ŕ��邪�����ɕύX���ꂽ��V�o���EV���o�͂��̂܂܂��������ߍ폜
���ł�C�o���EB�o����ǉ�(���X���Y�o���EC���o�EB���o�����邽�߈�a���͖����͂�)

NEWGAME/���񎞂̃L�����J�X�^���̈ꊇ��������morph�������������ʐݒ莞�Ǝ����悤�ȋ���������悤�ɕύX
�ꊇ�����E�ꊇ�񏈏��ȊO�̈ꊇ�����ɂ͎�������Ă��܂���
�ꊇ����
�����ݏ����Ȃ�X�L�b�v�A���ݔ񏈏���csv�ɏ���������ꍇ�������A���ݔ񏈏���csv�ɏ������Ȃ��ꍇ����������
�ꊇ�񏈏�
�����ݔ񏈏��Ȃ�X�L�b�v�A���ݏ�����csv�ɏ������Ȃ��ꍇ�������A���ݏ�����csv�ɏ���������ꍇ�񏈏�������

�E���C�Z���X�ȂǁH
�������ς��������ɂ��Ă͔z�z�E�����E���p�A�S�Ď��R�ƂȂ�܂�
���̑��̕����Ɋւ��Ă͂�����̃��C�Z���X���Q�Ƃ�������

path: 原版+前人整合等各种readme/パッチ/eraTW4.570p美鈴csv修正+一括処理挙動変更/eraTW4.570p美鈴csv修正+一括処理挙動変更.txt


code:
2017/12/08
eraTW4.570proto�p����csv�C��+�ꊇ���������ύXv2

�E����
4.570�Ŕ��邪�����ɕύX���ꂽ��V�o���EV���o�͂��̂܂܂��������ߍ폜
���ł�C�o���EB�o����ǉ�(���X���Y�o���EC���o�EB���o�����邽�߈�a���͖����͂�)

NEWGAME/���񎞂̃L�����J�X�^���̈ꊇ��������morph�������������ʐݒ�Ǝ����悤�ȋ���������悤�ɕύX
�ꊇ����
��csv�ɏ���������ꍇ�������Acsv�ɏ������Ȃ��ꍇ����������

�Ev2�ύX�_
�ꊇ�����̏���������ȗ���
�ꊇ�����ɃA�i�E���X�ǉ�
�������������𔺂����ߕ����I������ꍇ�͍ŏ��ɑI������K�v�����邽��
�ꊇ�񏈏����̋����ύX���������
��"���z�����͒���������o���L�x����"�Ƃ���񏈏��ł��������s�����������������

�E���C�Z���X�ȂǁH
�������ς��������ɂ��Ă͔z�z�E�����E���p�A�S�Ď��R�ƂȂ�܂�
���̑��̕����Ɋւ��Ă͂�����̃��C�Z���X���Q�Ƃ�������

path: 原版+前人整合等各种readme/パッチ/eraTW4.570p美鈴csv修正+一括処理挙動変更v2/eraTW4.570p美鈴csv修正+一括処理挙動変更v2.txt


code:
eraTW4.571�p �G��������Z�b�g Ver0.67
���o�����X�����ɕs����Ȃ��߁A���X�o�����X��������������܂���B
�@�u�o�����X������������v�A�Ǝv������K���K���˂�����ł�������
�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\�\

�P.������Ăǂ�Ȍ���H
�@�ӂ�ӂ�łς��ς��łۂ���ȃG�����A�悤�͕��ʂ̃G��������ł��B������񏃈��d�l�Ȃ̂�[���I
�@���Ȃ����j�ł��邱�ƑO��őg��ł���܂��B�����d�l�́c����ł�
�@��̓���n�A���ӂӂ͂Ȃ��������|�����Ɖ����|���ꎞ�ƏI����������������
�@�d�����ǉ�����Ă܂��A�͂��炫���̂������

�Q.�d���Ɋւ���
�@�����\�܁A�O�\����14���`19���ɐl���̍L��Ŗ��@�����o���c�Ƃ��܂�
�@TCVAR�𗘗p���ċq����ݒ肵�Ă��܂��B�q���ɉ����ĕ��͂����򂵂���A��`�����e���ω������肵�܂�
�@����ȊO�̓��ɂ��A��m���ł����Ö؂̑�����L�m�R�Q���n�ō̏W���s���܂�
�@������͖��@�̐X�����_�ɂ��Ă���Ƃ��̂ݔ������܂�

�R.�C�x���g�ɂ���

�@�E�G�����ɒ�q����
�@�@���Ȃ��̋��{��������x����A�G�����Ƃ��������e�������ɉ�b����Ƃ��܂ɔ������܂�
�@�@�׋��A�퓬�P���Ŗ��@�̏C�s���ł���悤�ɂȂ�܂�

�@�E�����̖�
�@�@���Ȃ��̗̑́A�������͋C�͂��Ⴍ�A�G�����Ƃ�����x�e�����Ɖ�b�����ۂɂ��܂ɔ������܂�
�@�@���Ȃ��̗̑͂ƋC�͂��傫���񕜂��܂��B�f�����b�g�����ł����������͒��

����ȊO�ɂ��������C�x���g������܂�

�S.���ꂩ��ǂ�����́H
�@��b�p�^�[���𑝂₵����A�����b�𑝂₵����A�C�x���g�𑝂₵����Ƃ��A�݂����ȁH
�@�H������͑�̏o�����̂Ŏ��͕s�@�����̕���Ƃ��ꏊ���Ƃ̉�b�𑝂₵����Ƃ��A�~�j�Q�[���I�Ȃ��̂����������Ȃ��c�c�@����Hera���Ă���ȃQ�[�������������H
�@��q�����C�x������낿���ƒǉ��������Ƃ���
�@
�T.�Q�l�ɂ����Ē���������⏕���������l�Ȃ�
�@�EeratohoYM �ėp�t����W�F�l���[�^�[v2.00proto
�@�@����쐬�̊�b���w�΂��Ă��������܂����@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@���ł���Ŋ�b���w�񂾂����āH����A�܂��A����
�@�EeratohoYM Mk-3���p�얲���㢂�����Ԃ�얲���ゖ5.01�
�@�@�[����n�̕������Q�l�ɂ����Ă��������܂���
�@�EeraTheWorld proto3.95�p Amazing! ���X�Ǐ��P����
�@�@������쐬�ɂ����ĉ�b�̍\����ATCVAR�EFIRSTTIME�̎g�����ȂǂƂĂ��Q�l�ɂ����Ă��������܂���
�@�EeraTheWorld proto4.00�p �e�T����Ver.��
�@�@�H������̍\�����Q�l�ɂ����Ă��������܂���
�@�EeraTW ���Ƃ�����̐l
�@�@�����ƋC���t���Ă��Ȃ������\���̃~�X���킴�킴�T���Ďw�E���Ă����������f���炵�������B�����オ��܂���
�@���̏���؂�Ă���\���グ�܂��I

�U.���M�C���ȂǂɊւ���
�@����t�H���_���̃��C�Z���X�����m�F������

�V.�X�V����
�@2018/1/7 Ver0.67
�@�@�����ǉ�
�@�@CFLAG:�q���̐��ʂ��uCHILD_SEX�v�Ɉڍs�A���̂��ߌ���I�v�V�����́u�q���̐��ʁv���폜
�@�@�玙���オ�Ăяo���ꂽ�ۂɃG���[��������̂��C��

�@2017/11/15 Ver0.65
�@�@�����ǉ����ύX���C��
�@�@�܂������g���ĂȂ��������Ԍn�R�}���h�̃t�@�C�����폜
�@�@�玙�����̖{�̎�荞�݂ɂ��A����I�v�V�����̎q���̉��o���u�q���̐��ʁv�ɕύX

�@2017/9/8 Ver0.61
�@�@�����ǉ����ύX���C��
�@�@�q���̉��o�ɂ����Ďq���̐��ʂ�I���ł���悤��
�@�@������I�v�V�������l�G�����Ɗ�|���őI���\

�@2017/9/5 Ver0.60
�@�@���X�Ȃ��烉�C�Z���X�𓯍�
�@�@�����ǉ����ύX���C��
�@�@����I�v�V�����Ƃ��āu���S���[�h�v�Ɓu�q���̉��o�v��ǉ�
�@�@���ύX�̓G�����ƈꏏ�Ɋ�|�����邱�Ƃŉ\�ł�
�@�@����l����A�������ɖ���p���炢�l���̃e���b�v���o�Ă��̂��C��
�@�@���@�̔�I�̓�Փx���ꕔ�ύX
�@�@���ӂӎ��̂����C�x���g���玙���͔������Ȃ��悤�ɕύX

�@2017/8/14 Ver0.55
�@�@�����ǉ����ύX���C��
�@�@��q�����̃C�x���g���r������i�܂Ȃ��Ȃ��Ă����̂��C���B��q����ς݂̐l�͕׋�or�P������O�ɃA�v�f���Ă�������

�@2016/11/16 Ver0.5
�@�@�����ǉ����ύX���C��
�@�@�d���ɖ��@�̐X�̍̏W��ǉ��A���_�����@�̐X���o�����s��Ȃ����ɓV�C���ǂ��ƒ�m���Ŕ������܂�
�@�@������ɔ����o�����s������15����30���ɕύX
�@�@�e�y�i���e�B�̑啝�ɘa
�@�@��������l�ł���������+�A���t�@�ŉ����|����悤��

�@2016/02/28 Ver0.4
�@�@�����ǉ����ύX���C��
�@�@���݂̎d�l�ɍ��킹�Ċe�ӏ��̕ύX�i�o�|����Ȃǁj
�@�@�A�b�v�f�[�g���Ɉ�x����NAME�̕ύX���ł���悤��
�@�@�s���͈͂��g���B�ڂ����o���n�惁����
�@�@����ʒu�𖂖@�̐X������ɐݒ�

�@2015/08/19 Ver0.31
�@�@�����ǉ����ύX���C��

�@2015/06/18 Ver0.3
�@�@�����ǉ����ύX���C��
�@�@CSV���኱�C��
�@�@AA��ǉ����\��������ύX

�@2015/03/31 Ver0.21
�@�@�����ǉ����ύX���C��
�@�@����C�x���g�̒ǉ��A�ύX�ɂ��킹�ăt�@�C���ɒǋL

�@2015/03/19 Ver0.2
�@�@�����ǉ����ύX���C��
�@�@CSV�̃L�����Љ�����M
�@�@AA�̕\���������C�����ύX

�@2015/03/06 Ver0.18
�@�@�C�x���g�ŃG�����̃o�X�g�T�C�Y���ꎞ�I�ɏ㏸�����㌳�̃T�C�Y�ɖ߂�Ȃ��̂��C��
�@�@���ɃC�x���g���N�����Ă���l�p�ɃG�����ɑ�������΃o�X�g�T�C�Y���߂�悤�C���p�̍\����ǉ�
�@�@�i��������ǁA�������n���ɂȂ�܂��A���̂݁j
�@�@�����ǉ����ύX�A��ɐH���n

�@2015/03/01 Ver0.11
�@�@�����ǉ����ύX���C���A����n�͑�̖��܂�܂����B���̓f�[�g�n���c
�@�@�{�莞���Ί�Ȃ͕̂ςȂ̂œ{�莞��AA��ǉ��B����ł��߂�Ȃ���
�@�@���d�����̏������኱�ύX�A�L������؂�ւ��邽�тɃZ���t���o�Ȃ��悤�ɂ��܂����B���łɎd���I�����̃f�[�g���L�����Z���\�Ɂ@�@
�@�@MOVEMENT2���C���A�c�Ƃ�����肳�Ƃ�����̕��ɕύX���܂����B������̂ق����X�}�[�g�ł����A������������̂��Ƃ��ӂӋA��ł��f�[�g�A�����ɂȂ�̂�
�@�@���Ƃ�����̍�җl�ɂ��̏���؂�Ă���\���グ�܂�

�@2015/02/28 Ver0.1
�@�@�Ƃ肠���������[�X

�W.���Ƃ���
�@�O���A��҂ł�
�@����쐬�����R�N�߂��̂ɉ����ƍ�肪�ςȌ���ł����A�y����ł����ƍK���ł�
�@���̌����ʂ��ăG�������D���ɂȂ��Ă��ꂽ�l������݂����łƂĂ��������ł��B�G����������G����
�@�����ƁA�܂����ꂾ���ł��A�͂�
�@�����Ⴄ����


path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 エレン口上セット Ver0.67/Ｑ&Ａ.txt


code:
����̏I���ɗ~���s�����ƃI�i������A�䖝���ĕ����Ă��炢�ɗ��邯��
�Z�t���Ȃ�I�i�j�[�������Ă��炢�ɂ���ė����������炵���񂶂�Ȃ������Ă��Ƃō쐬�B

[���e]
����̏I���̃I�i�j�[�^�C���ɂ�
���Ȃ��Ƃ̊֌W���ɂ���Ď��Ԃ��䖝���āA���Ȃ��̏Z��ł���Ƃ���ɖK�₷��m�����オ��܂��B

���~ > ���� > �Z�t���A���l > �v�� �̏��Ŋm��UP

�ꉞ����m�Fver : eraTW4.571

[�X�V����]
2018/01/08	�K���Ɋ���

[�����t�@�C���ύX�_�������p����]
AFTERTRA.ERB
404�s	ELSEIF CFLAG:LOCAL:���܂��Ă�x > ���Ԕ���臒l
�̉���
		LOCAL:1 = 0
		IF TALENT:LOCAL:���~
			LOCAL:1 = 5
		ELSEIF TALENT:LOCAL:����
			LOCAL:1 = 4
		ELSEIF TALENT:LOCAL:�Z�t��
			;���l������
			LOCAL:1 = 3
		ELSEIF TALENT:LOCAL:�v��
			LOCAL:1 = 2
		ENDIF
		IF TALENT:LOCAL:�����S && LOCAL:1 < 5
			LOCAL:1 += 1
		ENDIF
		IF CFLAG:LOCAL:�������� & ����_���ӂ� && !RAND:(7 - LOCAL:1)
��ǉ�

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 セフレとかだと自慰を我慢して会いに来る確率UPパッチ/readme.txt


code:
;������������������������������������������������������������������������
;�����I���̏���
;������������������������������������������������������������������������
@EVENTEND
#LATER
#DIM �ϓ��l

PRINTL ������I���܂���
PRINTFORML
;SIF STRLENS(TSTR:1)
;	CALL SELL_VIDEO

;�����t���O
CALL SET_SLEEP(1,MASTER,0)

CFLAG:MASTER:286 = 0
CFLAG:MASTER:287 = 0
CFLAG:MASTER:288 = 0
CFLAG:MASTER:289 = 0
CFLAG:MASTER:290 = 0
CFLAG:MASTER:�m�[�p�� = 0

;���݂�����������悤�Ƀt���O���Z�b�g
CLEARBIT FLAG:999, 1

;���o���t���O���Z�b�g
FOR LOCAL,1,CHARANUM
	CFLAG:LOCAL:286 = 0
	CFLAG:LOCAL:287 = 0
	CFLAG:LOCAL:288 = 0
	CFLAG:LOCAL:289 = 0
	CFLAG:LOCAL:290 = 0
	;��|���ɂ�銴�x�㏸����
	SIF GROUPMATCH(TCVAR:LOCAL:��|���␳,101,102,103,104,106)
		TALENT:LOCAL:(TCVAR:LOCAL:��|���␳) -= 1
	;�D���ȑ̈ʌ���
	SIF CFLAG:LOCAL:�D���ȑ̈� > 10
		CFLAG:LOCAL:�D���ȑ̈� = 0
	FOR COUNT,1,10
		SIF EXP:LOCAL:(COUNT + 100) > EXP:LOCAL:(CFLAG:LOCAL:�D���ȑ̈� + 100) + 50
			CFLAG:LOCAL:�D���ȑ̈� = COUNT
	NEXT
	;�p���c�t���O
	CFLAG:LOCAL:�m�[�p�� = 0
	CFLAG:LOCAL:�ߑ��ꎞ�ύX = 0
	SIF TCVAR:LOCAL:�{���̕���
		CFLAG:LOCAL:��{�����Z�b�g = TCVAR:LOCAL:�{���̕���
	SELECTCASE ABL:LOCAL:���t����
		CASE 0
			LOCAL:1 = 5
		CASE 1 TO 3
			LOCAL:1 = 7
		CASE 4 TO 7
			LOCAL:1 = 10
		CASEELSE
			LOCAL:1 = 20
	ENDSELECT
	SIF TALENT:MASTER:�Z�����t
		LOCAL:1 *= 2
	SETCOLOR 0xEE60EE
	IF EX:LOCAL:�S�����t > 200 || EX:LOCAL:�A�i�������t > 200
		PRINTFORM %CALLNAME:MASTER%�ɂ����Ղ蒍�����܂ꂽ���t�ŁA%CALLNAME:LOCAL%��
		IF EX:LOCAL:�S�����t > 200 && EX:LOCAL:�A�i�������t > 200
			PRINTL �S���ƃA�i�����M���u���Ă���c
			JUEL:LOCAL:���� += LOCAL:1 * (ABL:LOCAL:�S�˒��� + 1) * EX:LOCAL:�S�����t
			JUEL:LOCAL:�~�� += LOCAL:1 * (ABL:LOCAL:�S�˒��� + 1) * EX:LOCAL:�S�����t
			JUEL:LOCAL:���� += LOCAL:1 * (ABL:LOCAL:��˒��� + 1) * EX:LOCAL:�A�i�������t
			JUEL:LOCAL:�~�� += LOCAL:1 * (ABL:LOCAL:��˒��� + 1) * EX:LOCAL:�A�i�������t
		ELSEIF EX:LOCAL:�S�����t > 200
			PRINTL �S�����M���u���Ă���c
			JUEL:LOCAL:���� += LOCAL:1 * (ABL:LOCAL:�S�˒��� + 1) * EX:LOCAL:�S�����t
			JUEL:LOCAL:�~�� += LOCAL:1 * (ABL:LOCAL:�S�˒��� + 1) * EX:LOCAL:�S�����t
		ELSE
			PRINTL �A�i�����M���u���Ă���c
			JUEL:LOCAL:���� += LOCAL:1 * (ABL:LOCAL:��˒��� + 1) * EX:LOCAL:�A�i�������t
			JUEL:LOCAL:�~�� += LOCAL:1 * (ABL:LOCAL:��˒��� + 1) * EX:LOCAL:�A�i�������t
		ENDIF
	ENDIF
	IF (EX:LOCAL:20 + EX:LOCAL:21 + EX:LOCAL:22 + EX:LOCAL:23 + EX:LOCAL:24) > 0
		PRINTFORM %CALLNAME:LOCAL%��
		SIF EX:LOCAL:20
			PRINT �N���g���X
		SIF EX:LOCAL:20 && (EX:LOCAL:21 || EX:LOCAL:22 || EX:LOCAL:23 || EX:LOCAL:24)
			PRINT ��
		SIF EX:LOCAL:21
			PRINT �S��
		SIF EX:LOCAL:21 && (EX:LOCAL:22 || EX:LOCAL:23 || EX:LOCAL:24)
			PRINT ��
		SIF EX:LOCAL:22
			PRINT �A�i��
		SIF EX:LOCAL:22 && (EX:LOCAL:23 || EX:LOCAL:24)
			PRINT ��
		SIF EX:LOCAL:23
			PRINT ��
		SIF EX:LOCAL:23 && EX:LOCAL:24
			PRINT ��
		SIF EX:LOCAL:24
			PRINT �O
		PRINTFORMW ���u���ɖ�X�Ƃ��Ă���c
		CFLAG:LOCAL:���܂��Ă�x += (EX:LOCAL:20 + EX:LOCAL:21 + EX:LOCAL:22 + EX:LOCAL:23 + EX:LOCAL:24) * 100
	ENDIF
	IF (TALENT:LOCAL:150 || TALENT:LOCAL:151) && !TALENT:LOCAL:���� && EXP:LOCAL:�u�Ⓒ�o�� > MAX(0, 200 - CFLAG:LOCAL:�q��␳) && !RAND:(10 - MIN(9, CFLAG:LOCAL:�q��␳ / 30)) && EX:LOCAL:�S�����t
		PRINTFORML �c���g�̂��m��ɂ͑����������y���A%CALLNAME:LOCAL%���u���v�ւƕς��Ă����c�c
		PRINTFORMW %CALLNAME:LOCAL%�������}����
		PRINTFORMW %CALLNAME:LOCAL%�͎q��s�߂�g�̂ƂȂ���
		TALENT:LOCAL:���� = 1
	ENDIF
	IF ABL:LOCAL:���t���� < 3
		IF CFLAG:LOCAL:�݌v�Ԃ����� + CFLAG:LOCAL:�݌v���� * 3 +CFLAG:LOCAL:�݌v�S�����t + CFLAG:LOCAL:�݌v�A�i�����t >= 15000 * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10
			PRINTFORML ���x�ƂȂ����t�𒍂����܂ꂽ%CALLNAME:LOCAL%�̐g�̂́A%CALLNAME:MASTER%�̐��t�̖����o���Ă��܂����c
			PRINTL ����͖��ӎ��ł���������~������悤�ɂȂ邾�낤
			PRINTFORMW %CALLNAME:LOCAL%�̐��t���ł�3�ɂȂ���
			ABL:LOCAL:���t���� = 3
		ELSEIF CFLAG:LOCAL:�݌v�Ԃ����� + CFLAG:LOCAL:�݌v���� * 3 +CFLAG:LOCAL:�݌v�S�����t + CFLAG:LOCAL:�݌v�A�i�����t >= 7500 * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10 && ABL:LOCAL:���t���� < 2
			PRINTFORML %CALLNAME:LOCAL%�̐g�̂́A���t�ɓ���݂���c
			PRINTFORMW %CALLNAME:LOCAL%�̐��t���ł�2�ɂȂ���
			ABL:LOCAL:���t���� = 2
		ELSEIF CFLAG:LOCAL:�݌v�Ԃ����� + CFLAG:LOCAL:�݌v���� * 3 +CFLAG:LOCAL:�݌v�S�����t + CFLAG:LOCAL:�݌v�A�i�����t >= 3000 * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10 && !ABL:LOCAL:���t����
			PRINTFORML %CALLNAME:LOCAL%�̐g�̂́A���t�̖���m���Ă��܂����c
			PRINTFORMW %CALLNAME:LOCAL%�̐��t���ł�1�ɂȂ���
			ABL:LOCAL:���t���� = 1
		ENDIF
	ENDIF
	IF CFLAG:LOCAL:�݌v���� > 10000 * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10 && !TALENT:LOCAL:�������o
		PRINTFORML ���t�����܂��ꑱ����%CALLNAME:LOCAL%�̐g�̂́A���t�̖����̂��̂ɉx�т��o����悤�ɂȂ��Ă��܂����c
		PRINTFORMW %CALLNAME:LOCAL%�́y�������o�z�𓾂�
		TALENT:LOCAL:�������o = 1
	ENDIF
	IF ABL:LOCAL:���t���� >= 3
		IF CFLAG:LOCAL:�݌v�S�����t > 3000 * ABL:LOCAL:�S�˒��� * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10 &&  EX:LOCAL:�S�����t > 200 && ABL:LOCAL:�S�˒��� < 3
			PRINTFORMW %CALLNAME:LOCAL%�̛Z�S���ɐ��t�����ݓn���Ă䂭�c
			PRINTFORMW %CALLNAME:LOCAL%���S��\@ ABL:LOCAL:�S�˒��� ? ��苭��# \@%CALLNAME:MASTER%�̐��t��~����悤�ɂȂ���
			ABL:LOCAL:�S�˒��� ++
		ELSEIF CFLAG:LOCAL:�݌v�A�i�����t > 3000 * ABL:LOCAL:��˒��� * (10 - 2 * TALENT:LOCAL:���ł��₷��) / 10 && EX:LOCAL:�A�i�������t > 200 && ABL:LOCAL:��˒��� < 3
			PRINTFORMW %CALLNAME:LOCAL%�̒����ɐ��t�����ݓn���Ă䂭�c
			PRINTFORMW %CALLNAME:LOCAL%�̃A�i����\@ ABL:LOCAL:��˒��� ? ��苭��# \@%CALLNAME:MASTER%�̐��t��~����悤�ɂȂ���
			ABL:LOCAL:��˒��� ++
		ENDIF
	ENDIF
	RESETCOLOR
	IF FLAG:�D�P�X�C�b�` == 1
		SIF CFLAG:LOCAL:�D�P�o�ߓ��� == 0 && !FLAG:��D && !TCVAR:LOCAL:�s��
			CALL GET_CHILD(LOCAL)
	ELSE
	;
	ENDIF
	CALL �o�Y�o��(LOCAL)
	SIF CFLAG:LOCAL:600
		CFLAG:LOCAL:600 = 0
NEXT

FOR LOCAL,MINROOM(),MAXROOM
	YOGORE:LOCAL += RAND:50
NEXT
IF FLAG:����
	FLAG:���� = 0
	DRAWLINE
	PRINTFORMW �_�̉���̌��ʂ��؂ꂽ
ENDIF
IF FLAG:�ُ�C��
	FLAG:�ُ�C�� = 0
	DRAWLINE
	PRINTFORMW �ُ�C�ۂ͎��܂���
ENDIF

IF TFLAG:�o�����|��
	DRAWLINE
	PRINTFORML ����ł��������|���T�[�r�X������Ă���
	PRINTFORMW �c
	PRINTFORMW �c�c
	PRINTFORMW %GET_MAPNAME(MAIN_MAP)%�������ꂢ�ɂȂ����I
	FOR LOCAL,MINROOM(),MAXROOM
		YOGORE:LOCAL /= 4
	NEXT
ENDIF

[SKIPSTART]
;�˗��̊����؂���`�F�b�N
FOR LOCAL,1,6
	SIF !IRAI_SLOT:LOCAL
		CONTINUE
	SIF IRAI_DEADLINE:LOCAL > DAY
		CONTINUE
	DRAWLINE
	PRINTFORML %CALLNAME:(IRAI_SLOT_TO_CLIENT(LOCAL))%����̈˗��̊������؂ꂽ�c�c
	CALL COLORMESSAGE("�y�˗����s�z",C_YELLOW,2,1)
	CFLAG:(IRAI_CLIENT:LOCAL):�˗��� = 4
NEXT
[SKIPEND]

;�f�C���[
;SIF CFLAG:MASTER:���݈ʒu != OMANEKIBEYA() && CFLAG:MASTER:�f�[�g�� == MAIN_MAP
SIF CFLAG:MASTER:���݈ʒu == CFLAG:MASTER:�����ʒu
	CALL DAIRYEVENT
;���̊Ǘ�
CALL YASAI

;�ݖ{��
CALL BOOKLEND

CALL ��

CALL MOENY_HENDOU

MONEY:1 += MAXBASE:MASTER:TSP - BASE:MASTER:TSP
IF MONEY:1 >= 30000 && MAXBASE:MASTER:TSP == 2500
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂��Ɍ��i�������I
	MAXBASE:MASTER:TSP = 4000
ELSEIF MONEY:1 >= 10000 && MAXBASE:MASTER:TSP == 1500
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂̈������ō��ɏ�肭�Ȃ����I
	MAXBASE:MASTER:TSP = 2500
ELSEIF MONEY:1 >= 5000 && MAXBASE:MASTER:TSP == 800
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂̈��������Ȃ��肭�Ȃ����I
	MAXBASE:MASTER:TSP = 1500
ELSEIF MONEY:1 >= 1800 && MAXBASE:MASTER:TSP == 500
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂̈�������肭�Ȃ����I
	MAXBASE:MASTER:TSP = 800
ELSEIF MONEY:1 >= 500 && MAXBASE:MASTER:TSP == 200
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂̈�����������肭�Ȃ����I
	MAXBASE:MASTER:TSP = 500
ELSEIF MONEY:1 >= 150 && MAXBASE:MASTER:TSP == 100
	DRAWLINE
	PRINTFORML ���Ԓ�~�\�͂̈������͂��ɏ�肭�Ȃ����I
	MAXBASE:MASTER:TSP = 200
ENDIF

BASE:MASTER:TSP = MAXBASE:MASTER:TSP

IF TALENT:MASTER:2 & 2
	IF BASE:MASTER:���� == MAXBASE:MASTER:����
		FLAG:71 ++
		IF FLAG:71 >= 5 && !RAND:3
			DRAWLINE
			PRINTFORML �ŋߔ����ĂȂ������ł��񂿂�C���C������c�c�I
			PRINTFORML %CALLNAME:MASTER%�͕z�c�̒��ł̂����������
			CALL COLORMESSAGE("�X�g���X�ňꎞ�I�ɋC�͂̍ő�l����������",C_YELLOW,2,1)
			�ϓ��l = MIN(MAXBASE:MASTER:�C�� * 20 / 100, 500)
			CALL BUFF_BASE(MASTER,BASE_�C��,-�ϓ��l)
		ELSEIF FLAG:71 >= 3
			TALENT:MASTER:120 = 1
			PRINTL ���������΂����̂Ƃ��딲���Ă��Ȃ��c
		ENDIF
	ELSE
		FLAG:71 = 0
		TALENT:MASTER:120 = 0
	ENDIF
	IF BASE:MASTER:���� < MAXBASE:MASTER:���� * 2 / 10 && BASE:MASTER:�̗� > 500
		DRAWLINE
		PRINTFORML �����͂����ς��ː������Ȃ��c�c
		PRINTFORML %CALLNAME:MASTER%�͐S�n�悢���ӊ��̒��A�K���Ȗ���ɂ���
		CALL COLORMESSAGE("�ꎞ�I��TSP�ƋC�͂̍ő�l��������",C_YELLOW,2,1)
		�ϓ��l = MIN(MAXBASE:MASTER:�C�� / 10, 300)
		CALL BUFF_BASE(MASTER,BASE_�C��,�ϓ��l)
		�ϓ��l = MIN(MAXBASE:MASTER:TSP / 2, 500)
		CALL BUFF_BASE(MASTER,BASE_TSP,�ϓ��l)
	ENDIF
ENDIF

CALL ONANISM

SIF FLAG:�������拭�� > 0
	FLAG:�������拭�� --
;���̎�𓾂�ꂽ��
FOR LOCAL,0,CHARANUM
	SIF CFLAG:LOCAL:�o��
		CONTINUE
	CALL SOURCE_ABLUP(LOCAL)
	CALL JUEL_CHECK(LOCAL)
	CALL DENIAL_CHECK(LOCAL)
NEXT
BEGIN ABLUP

@JUEL_CHECK(ARG)
FOR LOCAL,0,100
	IF PALAM:ARG:LOCAL < PALAMLV:1
		LOCAL:1 = 0
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:1*3
		LOCAL:1 = 1
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:2
		LOCAL:1 = 2
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:2*3
		LOCAL:1 = 10
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:3
		LOCAL:1 = 20
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:3*2
		LOCAL:1 = 100
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:4
		LOCAL:1 = 200
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:5
		LOCAL:1 = 1000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:6
		LOCAL:1 = 2000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:7
		LOCAL:1 = 3000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:8
		LOCAL:1 = 5000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:9
		LOCAL:1 = 8000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:10
		LOCAL:1 = 12000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:11
		LOCAL:1 = 25000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:12
		LOCAL:1 = 40000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:13
		LOCAL:1 = 60000
	ELSEIF PALAM:ARG:LOCAL < PALAMLV:14
		LOCAL:1 = 100000
	ELSE
		LOCAL:1 = 150000
	ENDIF
	;�����n
	IF LOCAL >= 0 && LOCAL < 9
		GOTJUEL:ARG:LOCAL = LOCAL:1 + EX:ARG:LOCAL * 1000
	;���̑�
	ELSEIF LOCAL < 30
		GOTJUEL:ARG:LOCAL = LOCAL:1
	;�ے�̎�
	ELSEIF LOCAL == 30 || LOCAL == 31 || LOCAL == 32
		GOTJUEL:ARG:100 += LOCAL:1
	ENDIF
NEXT
JUEL:ARG:100 += GOTJUEL:ARG:100
FOR LOCAL,0,100
	SIF !STRLENS(PALAMNAME:LOCAL)
		CONTINUE
	SIF LOCAL != 9 &&LOCAL != 30 && LOCAL != 31 && LOCAL != 32
		JUEL:ARG:LOCAL += GOTJUEL:ARG:LOCAL
NEXT
@DENIAL_CHECK(ARG)
SIF JUEL:ARG:100 == 0
	RETURN 0
LOCAL = 1
WHILE LOCAL
	SIF !JUEL:ARG:�ے� || (!JUEL:ARG:���� && !JUEL:ARG:�~�� && !JUEL:ARG:����)
		BREAK
	LOCAL:1 = JUEL:ARG:�ے� == 1 ? 1 # JUEL:ARG:�ے� / 2
	;JUEL:10�`12�ŏ���
	LOCAL:2 = RAND:3 + 10
	SIF LOCAL:1 > JUEL:ARG:(LOCAL:2)
		LOCAL:1 = JUEL:ARG:(LOCAL:2)
	JUEL:ARG:�ے� -= LOCAL:1
	JUEL:ARG:(LOCAL:2) -= LOCAL:1
WEND
LOCAL = 1
WHILE LOCAL
	SIF !JUEL:ARG:�ے� || (!JUEL:ARG:�p�� && !JUEL:ARG:��� && !JUEL:ARG:���| && !JUEL:ARG:�D�� && !JUEL:ARG:�D�z)
		BREAK
	LOCAL:1 = JUEL:ARG:�ے� == 1 ? 1 # JUEL:ARG:�ے� / 2
	;JUEL:14�`16�ŏ���
	LOCAL:2 = RAND:5
	SELECTCASE LOCAL:2
		CASE 0
			LOCAL:2 = 14
		CASE 1
			LOCAL:2 = 15
		CASE 2
			LOCAL:2 = 16
		CASE 3
			LOCAL:2 = 20
		CASE 4
			LOCAL:2 = 21
	ENDSELECT
	SIF LOCAL:1 > JUEL:ARG:(LOCAL:2)
		LOCAL:1 = JUEL:ARG:(LOCAL:2)
	JUEL:ARG:�ے� -= LOCAL:1
	JUEL:ARG:(LOCAL:2) -= LOCAL:1
WEND

@ONANISM
#DIM �~���s���x
#DIM �����x
#DIM ���i�x
#DIM �����{��
#DIM ���ʎw��
#DIM �ǉ��u����
#DIM �ǉ��`����
#DIM ���ԃ^�C�v
#DIM ���Ԕ���臒l
VARSET LOCAL

FOR LOCAL,1,CHARANUM
	SIF CFLAG:LOCAL:�o��
		CONTINUE
	���ʎw�� = 0
	���ԃ^�C�v = 0
	�ǉ��u���� = 0
	�ǉ��`���� = 0
	���Ԕ���臒l = LIMIT(750 - 200 * TALENT:LOCAL:���Ԃ��₷�� - 100 * TALENT:LOCAL:�������� - 100 * TALENT:LOCAL:���Ȉ� + 200 * TALENT:LOCAL:�����S,500,999)
	���Ԕ���臒l -= 300 * TALENT:LOCAL:���ԋ���
	IF CFLAG:LOCAL:�I�i�o��
		PRINTFORML %CALLNAME:LOCAL%�͖��Ɋ�𖄂߂Ă΂��΂����Ă���c
	ELSEIF CFLAG:LOCAL:���܂��Ă�x > ���Ԕ���臒l
		LOCAL:1 = 0
		IF TALENT:LOCAL:���~
			LOCAL:1 = 5
		ELSEIF TALENT:LOCAL:����
			LOCAL:1 = 4
		ELSEIF TALENT:LOCAL:�Z�t��
			;���l������
			LOCAL:1 = 3
		ELSEIF TALENT:LOCAL:�v��
			LOCAL:1 = 2
		ENDIF
		IF TALENT:LOCAL:�����S && LOCAL:1 < 5
			LOCAL:1 += 1
		ENDIF
		IF CFLAG:LOCAL:�������� & ����_���ӂ� && !RAND:(7 - LOCAL:1)
			PRINTFORML %CALLNAME:LOCAL%�͑̂��u���ɖ�X�Ƃ��Ȃ�����A����%CALLNAME:MASTER%�ɕ����Ă��炨���ƍl���A�Ȃ������Ė���ɏA�����c�c
			���ԃ^�C�v = 7
			;CALL KOJO_MESSAGE_SEND("EVENT",22,LOCAL,7)
			CFLAG:LOCAL:���܂��Ă�x = LIMIT(CFLAG:LOCAL:���܂��Ă�x + 100, 0 ,1000)
			SIF !CFLAG:LOCAL:�_�ЍݏZ
				CFLAG:LOCAL:�������K = 1
		ELSEIF CFLAG:MASTER:���݈ʒu == CFLAG:LOCAL:�����ʒu
			PRINTFORML �钆�A%CALLNAME:MASTER%�͕����𕷂��Ėڂ��o�܂���
			PRINTFORML �c�c%CALLNAME:LOCAL%��%CALLNAME:MASTER%�̎������Ȃ��琺�������E���Ď��Ԃɒ^���Ă����c�c
			���ԃ^�C�v = 2
		ELSEIF ABL:LOCAL:���t���� > 2 && EX:LOCAL:�S�����t && !RAND:4
			PRINTFORML �䖝�ł��Ȃ��Ȃ���%CALLNAME:LOCAL%�́A�S���Ɏc��%CALLNAME:MASTER%�̐��t�����荞�ݓ���܂���悤�Ɏ��Ԃ������c�c
			���ԃ^�C�v = 3
		ELSEIF TALENT:LOCAL:���m
			LOCAL:1 = 0
			LOCAL:1 = EXP:���Ԍo�� - EXP:�������Ԍo��
			IF LOCAL:1 >= 120 - (MIN(ABL:�e��,6) * 10) && !FLAG:���m�����r���֎~
				PRINTFORMW �Ƃ��Ƃ�%CALLNAME:LOCAL%�͕ی�҂ɑ��k�����c�c
				PRINTFORMW %CALLNAME:LOCAL%�͖��m���������c�c
				TALENT:LOCAL:���m = 0
			ELSEIF LOCAL:1 >= 80 - (MIN(ABL:�e��,4) * 10)
				PRINTFORML %CALLNAME:LOCAL%�͎��Ԃ����ԂƂ킩��Ȃ��܂܎��Ԃɖv�����Ă���c�c
			ELSEIF LOCAL:1 >= 50 - (MIN(ABL:�e��,3) * 10)
				PRINTFORML %CALLNAME:LOCAL%�͊��̊p�ɂ��҂��������ĂȂ��獘��U��A�鏊���h�������c�c
			ELSEIF LOCAL:1 >= 30 - (MIN(ABL:�e��,2) * 10)
				PRINTFORML %CALLNAME:LOCAL%�͖{���҂ɋ��ݗc�������h�������c�c
			ELSEIF LOCAL:1 >= 15 - (MIN(ABL:�e��,1) * 10)
				PRINTFORML %CALLNAME:LOCAL%�͕׋����ɕM���ҊԂɓ��ĂāA�ՂɂՂɂ̊���ڂ��C�肠�����c�c
			ELSE
				PRINTFORML %CALLNAME:LOCAL%�͐Q���ɉ��ɂȂ�Ȃ��瑾�ڂ��C�荇�킹��X�Ƃ��Ă���c�c
			ENDIF
			���ԃ^�C�v = 4
		ELSEIF ABL:LOCAL:���Ԓ��� > 3 && (TALENT:LOCAL:�v�� || TALENT:LOCAL:���� || TALENT:LOCAL:���l || TALENT:LOCAL:���~ || TALENT:LOCAL:�Z�t��) && !RAND:3
			PRINTFORML �ǂ��ɂ��䖝�ł��Ȃ��Ȃ���%CALLNAME:LOCAL%�́A���ɐ��ݕt����%CALLNAME:MASTER%�̓�����k���Ȃ��猃�������Ԃ������c�c
			LOCAL:2 = RAND:5
			IF (TALENT:LOCAL:�b���x == 1 || ABL:LOCAL:�b���o >= 10) && LOCAL:2 == 4
				PRINTFORM �A�j��S�݁A���𕬏o���Ȃ�����ǁA�s�ׂɖv��������
				���ʎw�� = 0
			ELSEIF (TALENT:LOCAL:�u���x == 1 || ABL:LOCAL:�u���o >= 10) && LOCAL:2 == 3
				PRINTFORM ���قɎw��[�X�Ƒ}�����Ĉ��t��~���o����������
				���ʎw�� = 1
				�ǉ��u���� = 1
			ELSEIF (TALENT:LOCAL:�`���x == 1 || ABL:LOCAL:�`���o >= 10) && LOCAL:2 == 2
				PRINTFORM �鏊�����łȂ��K�������j�葱������
				���ʎw�� = 2
				�ǉ��`���� = 1
			ELSEIF (TALENT:LOCAL:�a���x == 1 || ABL:LOCAL:�a���o >= 10) && LOCAL:2 == 1
				IF TALENT:LOCAL:�o�X�g�T�C�Y >= 1
					PRINTFORM ����̖L���ȓ��[������ċz���グ�A
				ELSEIF TALENT:LOCAL:�o�X�g�T�C�Y <= -1
					PRINTFORM ���������Ȃŉ񂵂Ȃ�������������A
				ELSE
					PRINTFORM ���炩�ȓ��[�������Ɲ��݂������A
				ENDIF
				PRINTFORM ���x���Ⓒ���}�����
				���ʎw�� = 3
			ELSE
				;PRINTFORML �������A�ǂ�Ȃɉ����𓾂悤�Ƃ�%CALLNAME:MASTER%�ւ̑z���͎��܂邱�Ƃ͂Ȃ��A%CALLNAME:LOCAL%�͒��܂Ŗ�X�Ƃ������Ԃ��߂������c�c
				PRINTFORM �̒��ɋ����x�y�ɐg��k�킹�Ȃ����
			ENDIF
			IF TALENT:LOCAL:�v�� || TALENT:LOCAL:���� || TALENT:LOCAL:���l
				PRINTFORML �A%CALLNAME:MASTER%�ւ̑z���͎��܂邱�Ƃ͂Ȃ������c�c
			ELSE
				PRINTFORML �A�R���オ�����̂̔M�͎��܂�Ȃ������c�c
			ENDIF
			�ǉ��u���� = 1
			���ԃ^�C�v = 5
		ELSEIF ABL:LOCAL:���Ԓ��� > 3 && !RAND:2
			PRINTFORM ���͂�w�ł͖����ł��Ȃ��Ȃ���%CALLNAME:LOCAL%�́A�͓����甃�����߂��ߋ�
			IF ABL:LOCAL:�`���o >= 5
				IF TALENT:LOCAL:�呀 == -1 && TALENT:LOCAL:���� == 0
					PRINTFORM ���S�ƃA�k�X�̉��[���܂ř��������
					�ǉ��u���� = 1
				ELSEIF TALENT:LOCAL:�呀 == 1
					PRINTFORM ��鏊�����ɉ����t����
				ELSE
					PRINTFORM �Ŕ鏊�ƐK����M����
				ENDIF
				���ʎw�� = 2
				�ǉ��`���� = 1
			ELSE
				IF TALENT:LOCAL:�呀 == -1 && TALENT:LOCAL:���� == 0
					PRINTFORM ���S�̉��[���܂ř��������
					���ʎw�� = 1
					�ǉ��u���� = 1
				ELSEIF TALENT:LOCAL:�呀 == 1
					PRINTFORM ��鏊�ɉ����t����
					���ʎw�� = 0
				ELSE
					PRINTFORM �Ŕ鏊��M����
					���ʎw�� = 0
				ENDIF
			ENDIF
			PRINTFORML ���Ԃɒ^���Ă���c
			���ԃ^�C�v = 6
		ELSE
			PRINTFORML �̂��u����}������Ȃ��Ȃ���%CALLNAME:LOCAL%�́A�鏊������̎w�ŘM�����c
			���ԃ^�C�v = 1
		ENDIF
		CALL KOJO_MESSAGE_SEND("EVENT",22,LOCAL,���ԃ^�C�v,���ʎw��)
		SIF ���ԃ^�C�v == 7
			CONTINUE
		EXP:LOCAL:���Ԍo�� += ABL:LOCAL:���Ԓ��� * 2 + 1
		CALL COLORMESSAGE(@"���Ԍo���{{ABL:LOCAL:���Ԓ��� * 2 + 1}",C_PINK,1)
		SELECTCASE ABL:LOCAL:���Ԓ���
			CASE 0 TO 2
				�����{�� = 5
			CASE 3 TO 5
				�����{�� = 3
			CASEELSE
				�����{�� = 1
		ENDSELECT
		;��C
		CALL JUEL_UP_SPECIAL(LOCAL,"���b","�b���o",�����{��,1)
		;�p��
		CALL JUEL_UP_SPECIAL(LOCAL,"�p��","���Ԓ���",�����{�� * 2,1)
		;�~��
		CALL JUEL_UP_SPECIAL(LOCAL,"�~��","�~�]",�����{��,1)
		SIF �ǉ��u����
			CALL JUEL_UP_SPECIAL(LOCAL,"���u","�u���o",�����{��,1)
		SIF �ǉ��`����
			CALL JUEL_UP_SPECIAL(LOCAL,"���`","�`���o",�����{��,1)
		CFLAG:LOCAL:���܂��Ă�x /= 4
		PRINTFORML
	ENDIF
	;�܂��~�]�Ŋ�b�l�����߂�
	SELECTCASE ABL:LOCAL:�~�]
		CASE 0 TO 2
			�~���s���x = 10
		CASE 3 TO 5
			�~���s���x = 20
		CASE 6 TO 10
			�~���s���x = 30
		CASE 10 TO 15
			�~���s���x = 50
		CASEELSE
			�~���s���x = 80
	ENDSELECT

	�~���s���x += ABL:LOCAL:���Ԓ��� * 7 + (ABL:LOCAL:�S�˒��� + ABL:LOCAL:��˒���) * 3
	�~���s���x = �~���s���f���␳(LOCAL,�~���s���x)
	SELECTCASE �~���s���x
		CASE IS > 400
			�~���s���x = (�~���s���x - 400) / 10 + 400
		CASE IS > 200
			�~���s���x = (�~���s���x - 200) / 4 + 200
		CASE IS > 100
			�~���s���x = (�~���s���x - 100) / 2 + 100
	ENDSELECT
	SIF ���ԃ^�C�v
		�~���s���x = 0
	;���܂��Ă�x��0~1000�̊Ԃ�
	CFLAG:LOCAL:���܂��Ă�x = LIMIT(CFLAG:LOCAL:���܂��Ă�x + �~���s���x, 0, 1000)
	DEBUGPRINTFORML %CALLNAME:LOCAL%�̖����x�F{�����x}�@�~���s���㏸�l�F{�~���s���x}�@���܂��Ă�x�F{CFLAG:LOCAL:���܂��Ă�x}
NEXT

@DAIRYEVENT
;�Ƃ肠����30�����B
#DIM EVENT_DAY,30

CALL FISHER_YATES_SHAFFLE(30)
ARRAYCOPY "SHAFFLE_ARRAY" , "EVENT_DAY"

DRAWLINE
FOR LOCAL,0,30
	RESULT = 0
	TRYCALLFORM DAIRY_CONDITION_EV{EVENT_DAY:LOCAL}
	IF RESULT > 0
		DEBUGPRINTFORML �f�C���[�C�x���g{EVENT_DAY:LOCAL}������������
		DRAWLINE
		BREAK
	ENDIF
	SIF RESULT == -1
		DEBUGPRINTFORML �f�C���[�C�x���g{EVENT_DAY:LOCAL}�͔��������𖞂����Ȃ������񂾂�
NEXT
;PRINTFORMW
PRINTFORML

@�~���s���f���␳(ARG,ARG:1)
#FUNCTION
LOCAL = ARG:1
SIF TALENT:ARG:�����S
	LOCAL /= 2
SIF TALENT:ARG:���Ȉ� < 0
	LOCAL /= 2
SIF TALENT:ARG:���Ȉ� > 0
	LOCAL = LOCAL * 5 / 4
SIF TALENT:ARG:�c�t && !TALENT:ARG:����
	LOCAL /= 4
SIF TALENT:ARG:�D�P
	LOCAL /= 4
SIF TALENT:ARG:�玙��
	LOCAL /= 2
SIF CFLAG:ARG:�I�i�o��
	LOCAL /= 4
RETURNF LOCAL

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 ダウジング等修正/ERB/イベント関連/AFTERTRA.ERB


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RETURNF 0

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


code:
;-------------------------------------------------
;������K�˂�
;-------------------------------------------------
@COM697
#DIM �Ǝ�
#DIM ���i
#DIM ���C
#DIM �����̉���
FOR LOCAL,1,CHARANUM
	IF CFLAG:LOCAL:����ʒu == CFLAG:MASTER:���݈ʒu
		SIF CFLAG:LOCAL:�o��
			CONTINUE
		SIF LOCAL == TARGET
			CONTINUE
		SIF CFLAG:LOCAL:���݈ʒu != SUKIMA() || !VISIT(LOCAL) || CFLAG:LOCAL:���_���K || BASE:LOCAL:�̗� < 1000
			SETCOLOR C_GRAY
		PRINTFORML [{LOCAL}] %OMANEKI_PLACE(LOCAL)%
		RESETCOLOR
	ENDIF
NEXT
DRAWLINE
PRINTL [999] ��߂�
INPUT
SIF RESULT == 999
	RETURN -1
SIF CFLAG:RESULT:����ʒu != CFLAG:MASTER:���݈ʒu
	RETURN -1

�Ǝ� = RESULT

;�ʂ̎q�ƃf�[�g��
IF FLAG:�f�[�g����
	PRINTFORMW %CALLNAME:�Ǝ�%��%OMANEKI_PLACE(�Ǝ�)%�ɓ��낤�Ƃ������A%CALLNAME:(FLAG:�f�[�g����)%�Ɏv���������ɂ܂ꂽ
	RETURN -1
ENDIF

;�����ĂȂ����`�F�b�N
���C = 0
���i = 0
FOR LOCAL,1,CHARANUM
	IF LOCAL != �Ǝ� && CFLAG:LOCAL:���݈ʒu == CFLAG:MASTER:���݈ʒu
		SIF LOCAL == 60
			���i = 60
		SIF TALENT:LOCAL:���� && CFLAG:LOCAL:�M���x < 1000
			���C = LOCAL
	ENDIF
NEXT
;�p���X�B���o����4�l���Z��ł���n��a�͂��Ȃ��Փx������
;�A���L�������삯���Ă���̂œ�҂��Ă�Ƒ��
IF ���i || ���C
	PRINTFORM %OMANEKI_PLACE(�Ǝ�)%�ɓ��낤�Ƃ������A
	IF ���i
		PRINTFORMW �S�̂悤�Ȍ`����%CALLNAME:���i%�Ɏז����ꂽ
	ELSE
		PRINTFORMW ���b�Ȋ������%CALLNAME:���C%�ɌĂю~�߂�ꂽ
	ENDIF
	RETURN -1
ENDIF

IF TCVAR:�Ǝ�:����K��
	PRINTFORML �����͂�����߂Ă�����
	RETURN -1
ENDIF

SELECTCASE RAND:10
	CASE IS <= 1
		TFLAG:193 = 1
	CASE 2 TO 4
	;���Z
		TFLAG:193 = 2
	CASE 5,6,7
	;������Ƃ���
		TFLAG:193 = 3
	CASE 8,9
	;�グ�Ă��炦��
		TFLAG:193 = 4
ENDSELECT
SIF !TALENT:�Ǝ�:���� && !TALENT:�Ǝ�:�v�� && TFLAG:193 > 2
	TFLAG:193 --

SIF CFLAG:�Ǝ�:���݈ʒu != SUKIMA() || !VISIT(�Ǝ�) || CFLAG:�Ǝ�:���_���K || BASE:�Ǝ�:�̗� < 1000
	TFLAG:193 = 1

PRINTFORMW %CALLNAME:MASTER%��%OMANEKI_PLACE(�Ǝ�)%��K�˂�
TCVAR:�Ǝ�:����K�� = 1
[IF DEBUG]
IF FLAG:�e�X�g�v���C�p�I�i�o����������
	CALL ONABARE(�Ǝ�)
	GOTO OWARI
ENDIF
[ENDIF]

CALL IRAI_VISIT_HOME(�Ǝ�)
SIF RESULT
	GOTO OWARI

IF DAY:2 == 3 && (DAY:3 == 13 || DAY:3 == 15) && TFLAG:193 > 1
	PRINTFORML %CALLNAME:�Ǝ�%���o�Ă���
	PRINTFORMW �u�ڂ����ړ�����A�O�p�΂����Ƀ\�o������I�v%CALLNAME:MASTER%�͖L����F����
	IF ABL:�Ǝ�:���{ >= 5 || �Ǝ� == 77 || �Ǝ� == 78
		PRINTFORML %CALLNAME:�Ǝ�%�͂��َq�����ꂽ�I
		;�����������Ă��邨�َq�������_����
		SELECTCASE RAND:5
			CASE 0
				ITEM:120 ++
			CASE 1
				ITEM:212 ++
			CASE 2
				ITEM:213 ++
			CASE 3
				ITEM:216 ++
			CASEELSE
				ITEM:376 ++
		ENDSELECT
	ELSE
		PRINTFORML %CALLNAME:�Ǝ�%�͉��b�Ȋ�����Ă���c�ǂ����u�ڂ����ځv��m��Ȃ��悤��
		PRINTFORML %CALLNAME:�Ǝ�%�͖ق��Ĕ���߂Ă��܂���
		PRINTFORML %CALLNAME:MASTER%�͔߂����Ȃ���
	ENDIF
	TIME += 10
	RETURN 1
ENDIF

IF TFLAG:193 > 1 && CFLAG:�Ǝ�:���܂��Ă�x > 300
	IF RAND:(CFLAG:�Ǝ�:���܂��Ă�x + TFLAG:�K�^�␳ * 50) >= RAND:700
	;IF RAND:(CFLAG:�Ǝ�:���܂��Ă�x + TFLAG:�K�^�␳ * 50) >= 0
		CALL ONABARE(�Ǝ�)
		GOTO OWARI
	ELSEIF ITEM:�e���u�J�^���v
		ITEM:�e���u�J�^���v --
		SETCOLOR COLOR ("YELLOW")
		PRINTFORMW �e���u�J�^���v�������I
		RESETCOLOR
		CALL ONABARE(�Ǝ�)
		GOTO OWARI
	ENDIF
ENDIF
SELECTCASE TFLAG:193
	CASE 1
		IF CFLAG:MASTER:���݈ʒu == CFLAG:�Ǝ�:���݈ʒu
			PRINTFORMW �ڂ̑O�ɂ���%CALLNAME:�Ǝ�%����A����ɓ���Ȃƌ���ꂽ
		ELSE
			PRINTFORMW �Ԏ����Ȃ��c�@���炩�Q�Ă���̂��낤
		ENDIF
	CASE 2
		PRINTFORMW %CALLNAME:�Ǝ�%���o�Ă���
		IF !TALENT:�Ǝ�:���� && !TALENT:�Ǝ�:�v��
			PRINTFORM %CALLNAME:�Ǝ�%�͖��f�����ɁA
		ELSE
			PRINTFORM %CALLNAME:�Ǝ�%�͐\����Ȃ������ɁA
		ENDIF
		PRINTFORMW �����͎��Ԃ��Ȃ�����܂����x�ƌ�����
		PRINTFORM ������邩�����Ă݂�ƁA
		IF !RAND:2 && !GETBIT (TFLAG:������,5)
			PRINTFORMW ������%GET_MAPNAME(MAIN_MAP)%�ɍs������Ƃ̂��Ƃ�
			CFLAG:�Ǝ�:�������K = 1
			SETBIT TFLAG:������,5
		ELSE
			PRINTFORMW ������Ƃ킩��Ȃ��A�ƌ���ꂽ
		ENDIF
		CALL COM697_1(�Ǝ�)
		TIME += 5
	CASE 3
		PRINTFORML %CALLNAME:�Ǝ�%���o�Ă���
		PRINTFORML %CALLNAME:�Ǝ�%�ɉ�����Ȃ������痈���ƌ����ƁA���������Ȃ�Əグ�Ă��炦��
		PRINTFORMW �c
		PRINTFORMW �c�c
		PRINTFORMW �c�c�c
		PRINTFORMW %CALLNAME:�Ǝ�%�Ƃ��΂炭�k�΂���
		PRINTFORMW �ʂ�ہA������邩�����Ă݂�
		IF !RAND:2 && !GETBIT (TFLAG:������,5)
			PRINTFORMW ������%GET_MAPNAME(MAIN_MAP)%�ɍs������Ƃ̂��Ƃ�
			CFLAG:�Ǝ�:�������K = 1
			SETBIT TFLAG:������,5
		ELSE
			PRINTFORMW ������Ƃ킩��Ȃ��A�ƌ���ꂽ
		ENDIF
		CALL COM697_1(�Ǝ�)
		TIME += 27
	CASE 4
		PRINTFORMW %CALLNAME:�Ǝ�%���o�Ă���
		PRINTFORMW %CALLNAME:�Ǝ�%�͊����������c
		CALL ASK_YN("�f�[�g�ɗU��","���ז�����")
		IF !RESULT || !TALENT:�Ǝ�:����
			IF !RESULT
				PRINTFORMW %CALLNAME:�Ǝ�%���f�[�g�ɗU����
			ELSE
				PRINTFORML ���ז������ė~�����Ɗ�������A���ۂ���Ă��܂���
				PRINTFORMW ����Ƀf�[�g�Ȃ�ƒ�Ă���A%CALLNAME:MASTER%�͈������������Ȃ�����
			ENDIF
			CFLAG:MASTER:���s = 60
			CFLAG:�Ǝ�:���s = 60
			CFLAG:�Ǝ�:���݈ʒu = CFLAG:MASTER:���݈ʒu
			CFLAG:�Ǝ�:�f�[�g�� = CFLAG:MASTER:���݈ʒu / 100
			CFLAG:�Ǝ�:���_���K = 1
			FLAG:�f�[�g���� = �Ǝ�
			TFLAG:�f�[�g�O�D���x = CFLAG:�Ǝ�:2
		ELSE
			CFLAG:�Ǝ�:�f�[�g�� = CFLAG:MASTER:���݈ʒu / 100
			CALL OMANEKI_ENTER(�Ǝ�)
		ENDIF
ENDSELECT

$OWARI
TIME += 3
RETURN 1

@COM697_1(ARG)
#DIM ���yUP
#DIM ��UP
#DIM ����UP

;��b�̃R���p�`
TFLAG:98 = 5
;�Œ�Ŋl������\�[�X
���yUP = 200
��UP = 0
����UP = 0
;ABL:�e�����݂�
IF ABL:ARG:�e�� <= 1
	���yUP += (ABL:ARG:�]�� * 40)
ELSEIF ABL:ARG:�e�� <= 3
	���yUP += 200 + (ABL:ARG:�]�� * 40)
ELSEIF ABL:ARG:�e�� <= 5
	���yUP += 500 + (ABL:ARG:�]�� * 40)
ELSEIF ABL:ARG:�e�� <= 8
	���yUP += 750 + (ABL:ARG:�]�� * 60)
ELSEIF ABL:ARG:�e�� <= 10
	���yUP += 1000 + (ABL:ARG:�]�� * 60)
ELSE
	���yUP += 1600 + (ABL:ARG:�]�� * 30)
ENDIF

;�D���x���݂�
IF CFLAG:ARG:2 <= 1000
	���yUP += CFLAG:ARG:2
ELSEIF CFLAG:2 <= 5000
	���yUP += 500 + (CFLAG:ARG:2 - 500) / 3
ELSE
	���yUP += 2000 + (CFLAG:ARG:2 - 5000) / 5
ENDIF
SIF ���yUP < 0
	���yUP = 0

��UP = 100 + 100 * ABL:ARG:�]��
����UP = 100 + 100 * ABL:ARG:�T�h���C

SELECTCASE ABL:MASTER:�b�p�Z�\
	CASE 0
		TIMES ���yUP , 0.20
		TIMES ����UP , 0.20
		TIMES ��UP , 0.20
	CASE 1
		TIMES ���yUP , 0.40
		TIMES ����UP , 0.40
		TIMES ��UP , 0.40
	CASE 2
		TIMES ���yUP , 0.70
		TIMES ����UP , 0.70
		TIMES ��UP , 0.70
	CASE 3
		TIMES ���yUP , 1.00
		TIMES ����UP , 1.00
		TIMES ��UP , 1.00
	CASE 4
		TIMES ���yUP , 1.20
		TIMES ����UP , 1.20
		TIMES ��UP , 1.20
	CASEELSE
		TIMES ���yUP , 1.50
		TIMES ����UP , 1.50
		TIMES ��UP , 1.50
ENDSELECT

IF TFLAG:193 == 3
	TIMES ���yUP , 3.50
	TIMES ����UP , 3.50
	TIMES ��UP , 3.50
	TFLAG:�D���x�{�[�i�X = 200
ENDIF
SOURCE:ARG:���y = ���yUP
SOURCE:ARG:���� = ����UP
SOURCE:ARG:�� = ��UP

CALL FAVOR_CALC(ARG)
CALL TRUST_CALC(ARG)
TFLAG:�D���x�{�[�i�X = 0

;-------------------------------------------------
;���s�\����
;-------------------------------------------------
;������K�˂�
@COM_ABLE697
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(697)
	RETURN RESULT
SIF AT_HOME(MASTER)
	RETURN 0
;���Ԓ�~��
SIF FLAG:70
	RETURN 0
LOCAL:1 = 0
FOR LOCAL,1,CHARANUM
	SIF CFLAG:LOCAL:�o��
		CONTINUE
	SIF CFLAG:LOCAL:����ʒu == CFLAG:MASTER:���݈ʒu && !CFLAG:LOCAL:�_�ЍݏZ && LOCAL != TARGET; && (TALENT:LOCAL:�v�� || TALENT:LOCAL:����)
		LOCAL:1 ++
NEXT

SIF !LOCAL:1
	RETURN 0
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 ダウジング等修正/ERB/コマンド関連/COMF/外出系/COMF697 部屋を訪ねる.ERB


code:
@COM350
#DIM NUM_TARGET
;�����|��
NUM_TARGET = GET_TARGETNUM()
IF FLAG:�b�㐫��
	PRINTFORMW %CALLNAME:MASTER%�ɂ͂���ȓx���͂Ȃ�
	RETURN -1
ENDIF

IF FLAG:70
	;���Ԓ�~�͖������˔j
	FOR LOCAL,1, NUM_TARGET + 1
		CFLAG:(TARGET:LOCAL):���ӂ� = 1
	NEXT
ELSE
	;�����ɂ�钆�f����
	IF EYEWITNESS() == 1
		TFLAG:194 = 1
		TFLAG:�����|���Ȃ� ++
	ENDIF
	;MASTER�I�ɑ��l���͖���������
	IF NUM_TARGET > 1 && TCVAR:MASTER:��ꍇ�� < 2
		TFLAG:194 = 3
		TFLAG:�����|���Ȃ� ++
	ENDIF

	FOR LOCAL,1, NUM_TARGET + 1
		;�D��
		IF TCVAR:(TARGET:LOCAL):�D�� == 1
			CFLAG:(TARGET:LOCAL):���ӂ� = 1
			SIF CFLAG:(TARGET:LOCAL):�D���� < 2
				CFLAG:(TARGET:LOCAL):�D���� = 1
			IF INROOM(CFLAG:MASTER:���݈ʒu) == 2
				CALL DATUI_SHOES(LOCAL,0)
				CALL DATUI_SHOES(MASTER,0)
			ENDIF
		;���Ӗ��擾
		ELSEIF !GETBIT(CFLAG:(TARGET:LOCAL):�������� , 1)
			;���擾���Ƒ��l���͑ʖ�
			IF NUM_TARGET > 1
				TFLAG:194 = 3
				TFLAG:�����|���Ȃ� ++
				BREAK
			ELSE
				CALL ������((TARGET:LOCAL))
			ENDIF
		;���ӎ擾�ς�
		ELSE
			IF FLAG:�����f�[�g���� == TARGET:LOCAL
				GOTO OK
			ELSEIF TALENT:TARGET:�����}��
				GOTO OK
			ELSEIF CFLAG:TARGET:���ӂ�
				GOTO OK
			ELSEIF (BASE:(TARGET:LOCAL):���[�h < 300 || TCVAR:MASTER:��ꍇ�� < 2)
				TFLAG:194 = 4
				TFLAG:�����|���Ȃ� ++
			ELSE
				$OK
				CFLAG:(TARGET:LOCAL):���ӂ� = 1
				IF INROOM(CFLAG:MASTER:���݈ʒu) == 2
					CALL DATUI_SHOES(LOCAL,0)
					CALL DATUI_SHOES(MASTER,0)
				ENDIF
			ENDIF
		ENDIF
	NEXT
ENDIF

IF TFLAG:�����|���Ȃ�
	FOR LOCAL,1, NUM_TARGET + 1
		CALL ENDUFUFU(TARGET:LOCAL)
	NEXT
	DOWNBASE:MASTER:�C�� = 50
	BASE:TARGET:���[�h /= 2
ELSE
;�U����
;ELSEIF CFLAG:MASTER:���ӂ� == 1 && !FLAG:70
;	FOR LOCAL,0,CHARANUM
;		CFLAG:(TARGET:LOCAL):���ӂ� == 2
;	NEXT
;	TIME += 1
;	RETURN 1
	CFLAG:MASTER:���ӂ� = 1
	SIF !FLAG:70
		TIME += 1
ENDIF
RETURN 1

;�A�ꍞ�ݏh���u�z�ȊO�̏o������ł��ӂӂ��邽�߂̓������
@���ꂤ�ӂӏ���(ARG)
#FUNCTION
SELECTCASE ARG
	CASE 67
		SIF TCVAR:ARG:����C�x���g >= 4 && CFLAG:ARG:�s�� != 5 && GETBIT(CFLAG:ARG:�������� , 1) && TCVAR:ARG:��ꍇ�� >= 2 && CFLAG:ARG:���݈ʒu == ���q�� && GET_TARGETNUM() < 2
			RETURNF 1
ENDSELECT

;-------------------------------------------------
;���s����
;-------------------------------------------------
@COM_ABLE350
#DIM NUM_TARGET
;�ϑz�Ȃ̂őS�ʂ�
SIF TFLAG:�ϑz�� == 1 && CFLAG:���ӂ� != 1
	RETURN 1
;�����|�����s����
SIF !TFLAG:100
	RETURN 0
;�ꊇ�Ǘ�
SIF GLOBAL_COMABLE(350)
	RETURN RESULT
;���Ԓ�~���̓X�L�b�v
IF !FLAG:70
	;���l��
	NUM_TARGET = GET_TARGETNUM()
	SELECTCASE NUM_TARGET
	CASE 0
		RETURN 0
	CASE 1
	CASEELSE
		FOR LOCAL, 1, NUM_TARGET + 1
			;�S�L�����ɍ��ӂ��Ȃ��ƃ_��
			SIF !GETBIT(CFLAG:(TARGET:LOCAL):�������� , 1)
				RETURN 0
			;�Q�Ă�L����������ƃ_��
			SIF CFLAG:(TARGET:LOCAL):����
				RETURN 0
			;�����Ă�L����������Ƒʖ�
			SIF TCVAR:(TARGET:LOCAL):�D��
				RETURN 0
		NEXT
	ENDSELECT
	SIF TFLAG:�L�X�}�[�N != TARGET && TFLAG:�L�X�}�[�N
		RETURN 0
	;������
	SIF CFLAG:����
		RETURN 0
	;�Y���Q��
	SIF CFLAG:�Y���Q��
		RETURN 0
	;�d����
	SIF CFLAG:�s�� == 5 && !TCVAR:TARGET:�D��
		RETURN 0
	SIF TCVAR:�D���ɂ���
		RETURN 0
	;�f�[�g��
	SIF (CHK_DATENOW(CFLAG:MASTER:�f�[�g��) && CFLAG:���݈ʒu != �A�ꍞ�ݏh && CFLAG:���݈ʒu != ���u�z && CFLAG:���݈ʒu != OMANEKIBEYA()) && !���ꂤ�ӂӏ���(TARGET)
		RETURN 0
	;SIF MONEY < 3000 && (CFLAG:���݈ʒu == �A�ꍞ�ݏh || CFLAG:���݈ʒu == ���u�z)
		;RETURN 0
ENDIF
;�C��0
SIF BASE:MASTER:�C�� <= 0
	RETURN 0
RETURN 1

;�l�ڂ����邩�ǂ����Ԃ������֐�
;���Ă�L�����������1����u����2
@EYEWITNESS()
#FUNCTION
FOR LOCAL, 1, CHARANUM
	SIF CFLAG:LOCAL:���݈ʒu == CFLAG:MASTER:���݈ʒu
		CONTINUE
	SIF CAN_MOVE(CFLAG:LOCAL:���݈ʒu, CFLAG:MASTER:���݈ʒu) & 2
		RETURNF 1
NEXT
SIF WITH_MOB()
	RETURNF 2
SIF DATE_HITOGOMI()
	RETURNF 2

RETURNF 0

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 ダウジング等修正/ERB/コマンド関連/COMF/日常系/COMF350 押し倒す.ERB