code:
eraTW4.571�o�j���p�ł�

�Eeratoho�����X��239��>>817��>>839�̏C��

�Eeratoho�����X��239��>>239�ɂ����[�v�����ӂ₷�C��

�E�A���X�̈����I�����オ���x���\�������̂��C��

repo_name: akadiya/eratw

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 ダウジング等修正/README.txt

license: unknown


code:
�P�D���[�U�[��`�̍L��ϐ��u���__�𒎁v���Z�[�u�����ϐ��ɂ���������
���C���}�b�v�ɓ������Ȃ��Ƃ���ROOMSETTING�ł́u���__�𒎁v�������������Ȃ�Ȃ��悤��

�Q�D�|�т̒n�_418�̖��̂̕\�L�Ɂu�́v�Ɓu�X�v�����݂��Ă��̂Łu�́v�ɓ���

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用 酒虫の瓶の移動等修正/readme.txt


code:
eraTW4.571�p�R���}�b�v�����f�[�g���C��

 ERB���C�x���g�֘A������.ERB

239�X��>>808�̏C��
�P�Ȃ铯�s��Ԃɂ���΂����񂶂�Ȃ��H�@�Ƃ��v���Ă���A�ȊO�ɑ厖������

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用山頂マップ守矢くじデート権修正/README.TXT


code:
eraTW4.571�p�����|�����s�C�͔񌸏��C��

 ERB���R�}���h�֘A��COMF������n��COMF350 �����|��.ERB

>>909�̏C��
	�Ă��A@COMX����RETURN 0����ƁASOURCE�ϓ��ǂ܂Ȃ��̂ɁADOWNBASE�ݒ肵�Ă邹��
	���A���[�h���炸�Ŏ��s���ċC�͌�������Ȃ�A�l�ڂ̑����Ƃ���╡���l�����|�����s��������񂶂�Ȃ��H�@���Ă��ƂŁA�X�Ɏ�����Ă݂�

�����ǂ���A239�X��>>851&&>>901�ȊO�Ƃ̃p�b�`���p�͎��ȐӔC��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用押し倒し失敗気力非減少修正/README.TXT


code:
���t������s���Ɉ�l�����\�[�X���Ⴆ�Ȃ��̂��C�����܂���
��F3�l�̑O�ŉ��t������s�����2�l�����\�[�X�����炸3�l�ڂ͉����N����Ȃ�

JK�D��

path: 原版+前人整合等各种readme/パッチ/eraTW4.571用演奏する修正パッチ/readme.txt


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

 ERB���R�}���h�֘A��COMF���O�o�n��COMF697 ������K�˂�.ERB
						������n��COMF350 �����|��.ERB

>>875�̃o�O�Q�C��(COMF697 ������K�˂�.ERB
	���炪�Ȃ��Ɠ���Ȃ��͂��̏ꏊ�ɓ����Ă鎞�_�ł��������A���Ď��ŐF�X���ׂĂ���ƌ������o����
	�X�N�V������Ȃ��ă��O������������Ƒ��������ł��Ă�����
>>885�̏C��(COMF350 �����|��.ERB
	�������m�̐V�֐��ݒu�ŁATFLAG�ύX�����������ĂȂ��������߂��ۂ�

>>879�̃o�O�Q�A>>880�̃o�O�C��
	�X�����w�E�ʂ��

by������


code:
eraTW4.571�p�F�X�C���Q

 CSV��TFLAG.csv

 ERB�����Ԓ�~����.ERB
	���C�x���g�֘A��AFTERTRA.ERB
	���X�e�[�^�X�v�Z�֘A��COUNTER��COUNTER_MESSAGE.ERB
	���X�e�[�^�X�\���֘A��INFO.ERB
	������E���b�Z�[�W�֘A��EVENT_MESSAGE_COM_�Z�N�n��.ERB

239�X��>>918�C��(���Ԓ�~����.ERB
	�����o�񏈏��̔��蕪��ʒu������Ă��̂�����
239�X��>>936������x�C��(COUNTER_MESSAGE.ERB,INFO.ERB,AFTERTRA.ERB
	>>936�̂���ȕ񍐂Œ����邩��I�@��������I
	��ځA�����Ƃ����C��v���C�A�����炭��l�ł��Ă̂����Ⴂ�Ǝv����
		�ꏏ�ɓ������L�����̓�ꍇ�����x3�ȏゾ�ƂȂ��������C��v���C�ɂȂ��Ă��̂łg���݂̂ɕύX
		�Ƃ���ł��̓�ꍇ�����x�̏����Ȃ�ł����񂾂����H
		������������������͂����Ǝv�����ǈӖ��s��
	��ځA�Č��ł��Ȃ������̂ŕ��u
	�O�ځA�����܂���J�E���^�[�̒n�̕��������ɁA����̂�肭��ŊԈႦ�Ă܂��������܂���
	�܂ځA��������A���������ǁA����ŔZ�����t�p�����Z�o���Ȃ��Ȃ�����
	�Z�ځA�p�X

239�X��>>943�C��(EVENT_MESSAGE_COM_�Z�N�n��.ERB

�����ǂ���A239�X��>>851&&>>901&&>>910�ȊO�Ƃ̃p�b�`���p�͎��ȐӔC��

������㏑������by������


code:
eraTW4.572�p

�j���[�Q�[���ōŏ��̋��_�ɔ���_�Ђ�I�񂾍ہA�𒎂̕r���ǂ��ɂ��������������C�����܂����B

path: 原版+前人整合等各种readme/パッチ/eraTW4.572用 酒瓶微修正パッチ＋る～こと口上＋穣子口上/README.txt


code:
eraTW4.572�pSPEVENT�n�̕�����ݏC��

 ERB������E���b�Z�[�W�֘A��KOJO_MESSAGE.ERB

 �����Ƃ����Ă݂����l�̂��߂̂��ꂱ�ꄟ����֘A������e���v����M_KOJO_KX_�C�x���g.ERB

����̃o�O�C���́A������Ƃ�₱�����̂ŕύX��������
�n�̕��֐���ǋL��������ǁA����I�ɕs�v�ƌ�����ꍇ�ł̓R�����g�A�E�g���Ă܂�
�Ȃ��A������n�̕������݂��Ă���OD�g����A�y�сA�A���X�p�`�F����ɂ͎�����Ă��܂���

[����]era���@��OvDr!!1.0+�C��Pv1�p�I�n���[���q��������+�C����M_KOJO_K88.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A����ɖ���

eraTW�p���J����������ver,0.03��M_KOJO_K11_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

era���@��ODv1.0+�C��Pv4�p���ь���Ver0.204��M_KOJO_K86.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A����ɖ���

eTW���炱�t������M_KOJO_K50_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���l;KX�̂܂܂ŕύX����ĂȂ�������K50�ɒ���

TW���˄�M_KOJO_K67_�C�x���g .ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

�G������M_KOJO_K44_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�T�O����M_KOJO_K110_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

���Ƃ�����
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���l;�Ⓒ������ɂȂ������݂��Ă�KX�̏C���c�c�A�ǉ������o���Ȃ��񂾂��Ȃ�

�ɂƂ脟M_KOJO_K51_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�}�~�]�E�������
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

�~�X�e�B�A��M_KOJO_K28_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A����ɖ���
	���l;RETURN 0��RETURN 1�ɕύX

��`���Ƅ�M_KOJO_K2_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

����??.v1.1��������M_KOJO_K80_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�e�T��M_KOJO_K63_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1�ɕύX

�ؐM_KOJO_K43_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1�ɕύX

����M_KOJO_K65_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

��������M_KOJO_K59_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

���P��M_KOJO_K40_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A����ɖ���
	���l;RETURN 0��RETURN 1�ɕύX

���鄟M_KOJO_K70_01_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�j���ۄ�M_KOJO_K71_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1�ɕύX

���ׄ�M_KOJO_K97_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1�ɕύX

�M��M_KOJO_K90_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

���c��M_KOJO_K31_�C�x���g.ERB
	��M_KOJO_K31_���[�U�֐�.ERB
	��M_KOJO_K31_�C�x���g_�V�i���I.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���l;�ŐV�o�[�W�����Ńt�@�C���\�����ς�����̂ɁA���̂܂܏㏑������Ď�荞�܂�Ă��邹���Ŋ֐��d�����������Ă����͗l
		�Ƃ肠�����A�ŐV�o�[�W�����ŏ��������̊֐��t�@�C�������I�[���X�L�b�v�Ŏb��Ή�
		�����荞�݊֘A�ł̂��ƂȂ̂ŁA�s�v�t�@�C���̍폜�́�eraTWk3.v6���ɂ��C�����܂�

�V�q��M_KOJO_K34_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1�ɕύX

������M_KOJO_K95_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�؊M_KOJO_K73_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

���鄟M_KOJO_K58_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�z�s��M_KOJO_K92_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

����M_KOJO_K29_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�R�����g�A�E�g�ǉ�

�فX��M_KOJO_K94_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

�����������
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�
	���I�@�玙�C�x���g���オ�������Ă܂����A�܂��r���ł�

������M_KOJO_K4_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�R�����g�A�E�g�ǉ�

�H����M_KOJO_K68_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

�d����M_KOJO_K23_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�R�����g�A�E�g�ǉ�

���ۄ�M_KOJO_K96_�C�x���g.ERB
	��M_KOJO_K96_�R�}���h.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�
	���l;�\�t�g�n�R�}���h����A[�L�X����]��[�������Ȃ�]���Ȃ������d���݂��Ă����̂ŒP��ɂ��Ă݂�

����M_KOJO_K25_�C�x���g.ERB
	SPEVENT�P�A�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

��償M_KOJO_K52_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�
	���l;RETURN 0��RETURN 1��

�얲��M_KOJO_K1_�C�x���g.ERB
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�R�����g�A�E�g�ǉ�
	SPEVENT�R�A�ǉ�

M_KOJO_K10_�C�x���g.ERB(��)
	SPEVENT�P�A�R�����g�A�E�g�ǉ�
	SPEVENT�Q�A�ǉ�
	SPEVENT�R�A�ǉ�

�V�X�e���ňꗥ�n�̕��Ăяo�����悤�ɂ��A���ɓƎ��H���ŏ�����Ă�������Ď��W���Ȃ��Ȃ肻���������̂ŁA�Ƃ肠�����قڑS�Ă̌���ɒǋL�A�������n�̕��Ɩ����������Ȍ���ɂ����Ă̓R�����g�A�E�g��ԂƂ����͋ƂőΉ����Ă݂�
���łɂ������̌���ɑ��݂����o�O�������C��

by������


code:
eraTW4.572�p�v�`�C��

 ERB��MOVEMENTS��MOVEMENT_SUB.ERB
	���C�x���g�֘A������.ERB
				�@���f�C���[�C�x���g��DAIRY_EV5 OPPAI.ERB

240�X��>>358�̏C��(����.ERB,MOVEMENT_SUB.ERB
	FLAG:FLAG:�����f�[�g����𗧂ĂƂ��Ȃ��ƘA���Ŏ���ƈ������ۂɃo�O�邩��Ɠ��ꂽ���u���A���C���}�b�v���Ɉړ��s�\�Ƃ���������ǂ�ł����ɍ��X�C�Â����̂Œ������Ă݂�
	���ƁA�ʏ�̓��s���Ƃ����Ƃ����ԂɏI���̂ŁA�����f�[�g���͎O���Ԉꏏ�ɋ����܂�
	���ꂩ��A���C���}�b�v�����f�[�g���Ɏd�����ԂɂȂ�����d���ɍs���܂�
	�����I�Ȗ��ł��̕ӂ�����΂����������̂߂�ǂ��������Ȃ̂Ŏd�l�ł�

240�X��>>359�̏C��(DAIRY_EV5 OPPAI.ERB
	RESULT�łȂ��Ƃ����Ȃ�������LOCAL�ɂȂ��Ă�����

�C�[�X7�̂����Ŏ��Ԃ��Ȃ�by������


code:
TW4.572�p����`�ʌĂяo���C��

����`�ʌĂяo���̃^�C�~���O��ENDUFUFU�̌�ɂȂ��Ă����߂Ɉߕ��֌W�̕`�ʂ��������������̂��C��

path: 原版+前人整合等各种readme/パッチ/eraTW4.572用事後描写呼び出し修正/readme.txt


code:
eraTW4.572�p�g���ً��_�Ǐ��ǉ�+�o�O�C���p�b�`

�E�T�v
�O�o�n�R�}���h�̓Ǐ������n�R�}���h�ɕύX���g���ً��_�̐}���قł��Ǐ��o����悤��
MESSAGE_COM�̃p�`�����[1/3����ŉ��̂����݈ʒu�����i�T�����ł��邩�𔻒肵�Ă����̂ŁA���̕������폜
�i�R�}���h���̃p�`�����[�`�ʂł͌��݈ʒu�Ŕ��肵�Ă��Ȃ����ߖ�薳���͂��j

�E�g�p�@
eraTW4.572�ɓK�p

�E���C�Z���X��
eraTW��҂ɋA��

path: 原版+前人整合等各种readme/パッチ/eraTW4.572用紅魔館拠点読書追加+バグ修正パッチ/readme.txt


code:
eraTW4.574�p�ړ��s�\���t�B���^�֘A�C��+��

 ERB��SHOP�֘A��OPTION.ERB
	���R�}���h�֘A��USERCOM.ERB

241�X��>>140,142,149�̏C��(USERCOM.ERB
241�X��>>144�ɑΉ�(OPTION.ERB

+��
�����I�����A�Q�Ă���L����������̂�}��(USERCOM.ERB
	�C�x���g����́A�Q�Ă��邱�ƑO��̏�������������A�ꊇ�łƂ΂��̂����

�ŋߔ�G����񎟂�SS�����ɂ���������by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.574用移動不可能＆フィルタ関連修正+α/README.TXT


code:
eraTW4.574�p�Ǐ��R�}���h�\�����C��+��

 ERB��SHOP�֘A��OPTION.ERB
	���R�}���h�֘A��COMF������n��COMF436 �Ǐ�.ERB

241�X��>>153�̏C��(COMF436 �Ǐ�.ERB

+��
�O��̃t�B���^�C���̖}�~�X�C��(OPTION.ERB
	�O�̎����ƁA��Ɍʐݒ肵�Ă���t�]���邾���������c�c�A�A�z���Ⴄ���i�����Ō�����

241�X��>>176�ɑ���
���X�A�f�[�g�p�������̂����p�Ɉڍs����������COMABLE�̕ύX���Ԃɍ����ĂȂ��������ۂ�

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.574用読書コマンド表示問題修正+α/README.TXT


code:
eraTW4.575�pBONUS�C���p�b�`+���܂�

�E�T�v
�_�q�Ȃǐl�ԑf���ƛs�܂����ёΏۂ̑f���̗�����ۗL���Ă���L������s�܂��Ă����щ������o���Ȃ����̏C��
���񎞎擾�ϛs�܂��n���т̕\��������Ȃ����̏C��
���\�s�܂��擾�ςł��y�ρz���\������Ȃ����̏C��
���\�s�܂��̉������������ɉ��������ɏC��
�g���Ă��Ȃ�������R�����g�A�E�g

�E���܂�
���񎞂̂��Ȃ��̃J�X�^�}�C�Y�@�\�ǉ��p�b�`(���l���T�Ɠ����d�l)
���Ȃ����]���p�ɂǂ���

�E�g�p�@
eraTW4.575�ɓK�p

�E���C�Z���X��
eraTW��҂ɋA��


code:
eraTW4.575�p�L�X�}�[�N�o�O�C��

 ERB���X�e�[�^�X�v�Z�֘A��SOURCE��SOURCE.ERB

241�X��>>334�̏C��(��)(SOURCE.ERB
	���A�Ȃ�ō��܂ł��ꔭ�o���ĂȂ������񂾁H
	>>337�̐��������������Ă����̂�}��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.575用キスマークバグ修正/README.TXT


code:
http://jbbs.shitaraba.net/bbs/read.cgi/otaku/16783/1518378600/

346�F ���Ȃ��̖��O����͂��Ă������� �F2018/02/22(��) 02:13:59 ID:dt1DcvZw
>>280�̃o�O�g�����玞�Ԍo�ߖ����Ń��[�h�����D���x�M���x�����~�]�D�ӗD�z�҂�����
�}�N���g���ĉ񂵂Ă���1���ōD���xG�M���xG�̓V�q���D���xA�M���xSS�ɂȂ���
���]���ȁH
����͂Ƃ������o�O�C��(�O�������o�O�C�������C������)

eraTW4.575�p���������R�}���h�o�O�C��
http://eratoho.dyndns.dk/cgi/upload.php?id=0010444&downf=org
�E�T�v
>>279>>280�̃o�O�C��
���ɂ��܂�����0�����ɂȂ��Ă���ꍇ��
eraTW4.575\ERB\SHOP�֘A��UPDATE.ERB�̓K���ȏꏊ�Ɉȉ��̓�s��}�����Q�[������UPDATE�����s
SIF ITEM:���܂��� < 0

ITEM:���܂��� = 0

�E�g�p�@
eraTW4.575\ERB\�R�}���h�֘A\COMF\����n�ɓK�p

�E���C�Z���X��
eraTW��҂ɋA��

347�F ���Ȃ��̖��O����͂��Ă������� �F2018/02/22(��) 02:16:32 ID:dt1DcvZw
���[�Ȃ񂩕ςȉ��s�����Ă�
�����
SIF ITEM:���܂��� < 0
ITEM:���܂��� = 0

path: 原版+前人整合等各种readme/パッチ/eraTW4.575用子宮表示＆あなた装備品表示＆料理関係修正パッチ/eraTW4.575用料理を作るコマンドバグ修正.txt


code:
�ELook.ERB
1.�q�{���~��Ă���@�̃��x��1��ԂŃs���N�A���x��2��Ԃő����s���N�ɂ���悤��
�����x��2���(�q�{�����ς��ς����Ă���ƌ���ꂽ���)�ł́A�q�{���t�B�j�b�V������K�v�������̂Ŕ��ʂ��₷�����邽��
2.Info�\���ʒu������(����Ԃ̑O������S�p�X�y�[�X���甼�p�X�y�[�X��,411�s�ڂɔ��p�X�y�[�X�ǉ�)

�EINFO.ERB
1.���[�^�[�A�A�i�����[�^�[�̕\�L�ʒu�E���@�𒲐��A���C���h���[�̒ǉ�
�����킹�ă^�[�Q�b�g�̑����i�̉��s�����̏C���A���C���h���[�̒ǉ�
2.�p���c�A���A�L�X�}�[�N�����l�ɕ\��

�ECOMF413 ���������.ERB
�X��241��346-347�̐l�̃p�b�`(eraTW4.575�p���������R�}���h�o�O�C��.txt�@�Q��)���܂݂܂�
�E�y�H�A��H�A�f�U�[�g�I����ɗ����L�����Z���̑I������ǉ�
�E���ƃJ�G���̗����̏������A��H�ŏ㏑������Ă����o�O�̏C��

�EFOOD.ERH
�֒f�̗����̖��̂��t���[�o�[�e�L�X�g�Ƃ̌덷�����Ȃ��Ȃ�悤�ɏC��

�E���C�Z���X��
eraTW��҂ɋA��

By �G�ѐ�

path: 原版+前人整合等各种readme/パッチ/eraTW4.575用子宮表示＆あなた装備品表示＆料理関係修正パッチ/変更点.txt


code:
eraTW4.575�p�\�͔�r�����|����o�����X�ύX+��

 ERB��MOVEMENTS��BASE���R�ϓ�.ERB
	��		 �@��JOB_�d���J�n�I������.ERB
	���X�e�[�^�X�v�Z�֘A�������|����.ERB

241�X��>>191�̏C��(�����|����.ERB
	�X�e�[�^�X�v��ɂ��o�����X��������ƘM���Ă݂�
	�L�����ɂ���ĉ����|���ɂ����Ȃ�����A����x�����d�v�ɂȂ�����
	�����A�o�����X�I�ɂ��ꂪ�ǂ����ǂ����͉���Ȃ�

+�����̂P
����󋵉��ŗ~���s���x���l��������̂��C��(BASE���R�ϓ�.ERB
	���܂��Ă�x�̌v�Z�ɁALIMIT���������ĂȂ���������

�{�����̂Q
241�X��>>273�̏C��(JOB_�d���J�n�I������.ERB
	���t��Ԃ̌`�e���ϐ��̈ʒu���������������̂ŏC��

�G���[�e���v���ɂȂ��̂��C���Ƃ��Ђ˂���Ă�Ȃ�(�����Ō�����

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.575用能力比較押し倒されバランス変更+α/README.TXT


code:
eraTW4.575�p����肨���n�̕��C��

 ERB������E���b�Z�[�W�֘A��EVENT_MESSAGE_COM300.ERB

241�X��>>505�̏C��(EVENT_MESSAGE_COM300.ERB
	��������肨������ۂ܂Ȃ��悤�ɂ��鏈�����Ȃ񂩂��������Ȃ��Ă��̂ŏC��
	COMF331��TFLAG:132�������Ă��̂��ATCVAR:�����򂨒��g�p�ɒN�����炽�߂��H���ۂ����ǁA���̂����n�̕��X���[���ꂽ�����ŁA����ł�̂Ɉ���łȂ��n�̕����o�Ă�

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.575用薬入りお茶地の文修正/README.TXT


code:
eraTW4.576�����̃p�b�`�ƂȂ�܂��B
�P���ɏ㏑�����Ă���������Γ����\�ł��B

\ERB\�X�e�[�^�X�v�Z�֘A\COUNTER\COUNTER_PUNISHMENT.ERB�@�Ƀo���G�[�V�����𑝂₵�܂����B
���Ȃ�����݂�����ꂽ�ۂɔ�������C�x���g�ł��B

���A�����֌W�͊��S�����Ƃ��܂��B

path: 原版+前人整合等各种readme/パッチ/eraTW4.576弱み握られ/れどめ.txt


code:
eraTW4.576�p�ς�o���X���ω��p�b�`

��������Ɛ����Ă���ς�̏o���X�����ω����܂��B
�X���Ƃ��Ă͗��炪�t���ƐF�C�̂���ς�𕁒ʂ������Ă���悤�ɂȂ�A����̏������t�����L�����͕��ʂ̉����o�ɂ����Ȃ�܂��B
�܂��e�ς�o���������ω������Ă��܂��B
���łɃh�����[�Y�i�ҋ󂫁j�̂��h�����[�Y�i�ҊJ���j�ɒ����Ă����܂����B

�ȈՓI�ȏo���X���͊ȈՂς�o����.txt�ɁA�o�������̓X�N���[�����ɏ����܂����B

��A�ς�o���X���ύX�p�b�`�̐l

@�����ς����
�@���m�łȂ����A
�@�@CFLAG:ARG:�������� & ����_���ӂ�=1�܂��͗���̏ꍇ�ŁA�������K=1�̎�
�@�@�܂��͗��炪�t���Ă��āA�z���C�g�f�[�A�o�����^�C���f�[�A�N���X�}�X�C�u�A�N���X�}�X�̎���1��Ԃ��܂�

�e�ς�o������&�o����

	�m�[�p��
		�������܂��͈����܂��͘I�o�Ȃ�8�ȏ��1/5

	�h�����[�Y
		1�A�����ς�̂Ƃ���1/3

	���܂���p���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�����m��1

	���ʃp���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�������̌^�ȉ������m��1

	���܂��܃p���c
		1�A�����ς�̂Ƃ���1/3

	�t�����p���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�������̌^�ȉ������m��1

	���n�̃p���c
		�������܂��͈����łȂ��Ƃ���1�A�����ς�̂Ƃ���1/3

	���[���O�p���c
		1�A�����ς�̂Ƃ���1/3

	���[���C�Y�p���c
		1/2�A�����1

	�n�C���O�p���c
		1/2�A�����1

	���[�X�̃p���e�B�i���j
		�������܂��͗��炩�A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�A����+�����ς��1�ƂȂ�

	���[�X�̃p���e�B�i���j
		�������܂��͗��炩�A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�A����+�����ς��1�ƂȂ�

	�s�o�b�N
		��������1/3�A�����1/2�@�����ς�̂Ƃ���1/2�A����+�����ς��1

	�R�p��
		��������1/2�A�����1

	���U�[�p���c
		�������܂��͗���܂��͈����ŃT�h���C��4�ȏ��1/3

	�Е��̃p���c
		1�A�����ς�̂Ƃ���1/3

	�V���[�c
		���ł�1

	�X�L�����e�B
		�Z�N�V�[�p���c�ǉ���ON�ł���Ƃ�1/2�A�����1

	�ӂ�ǂ�
		�Z�N�V�[�p���c�ǉ���ON�ł���Ƃ�1/3�A�����ς�̂Ƃ�1/4

	�f�X�g�����O
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�@����+�����ς��1�ƂȂ�

	�V�[�X���[�V���[�c
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�@����+�����ς��1�ƂȂ�

	�I�[�v���V���[�c
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/4
		����A�����ς�ł����1/3�A1/2�@����+�����ς��1�ƂȂ�

	�΂񂻂�����
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�c�t���c���^�c���ލs�������̌^�ȉ������m��1/3

	�h�����[�Y�i�ҊJ���j
		�Z�N�V�[�p���c�ǉ���ON�A�����܂��͘I�o�Ȃ�5�ȏ�܂��͖��m��1/4

path: 原版+前人整合等各种readme/パッチ/eraTW4.576用ぱんつ出現傾向変化パッチ/readme.txt


code:
�ȈՂς�o����

			 			���i	����	����	����+����
�������Əo�ɂ���
	�h�����[�Y	 			1	1/3	1	1/3
	���܂��܃p���c	 			1	1/3	1	1/3
	���n�̃p���c	   	 		1	1/3	1	1/3
	���[���O�p���c		 		1	1/3	1	1/3
	�Е��̃p���c             		1	1/3	1	1/3
	�ӂ�ǂ�		 		1/3	1/4	1/3	1/4

���炾�Əo�₷��
	���[���C�Y�p���c	 		1/2	1/2	1	1
	�n�C���O�p���c      	 		1/2	1/2	1	1
	�R�p��			 		1/2	1/2	1	1
	�X�L�����e�B		 		1/2	1/2	1	1

����⏟�����Əo�₷��
	���[�X�̃p���e�B�i���j   		1/3	1/2	1/2	1
	���[�X�̃p���e�B�i���j   		1/3	1/2	1/2	1
	�s�o�b�N		 		1/3	1/2	1/2	1
	�f�X�g�����O		 		1/3	1/2	1/2	1
	�V�[�X���[�V���[�c	 		1/3	1/2	1/2	1
	�I�[�v���V���[�c	 		1/4	1/2	1/3	1

�ς��Ȃ�(�q���n�͂����ɍs��)
	���܂���p���c		 		1	1	1	1
	���ʃp���c		 		1	1	1	1
	�t�����p���c		 		1       1	1	1
	�V���[�c			   	1	1	1	1
	���U�[�p���c				1/3	1/3	1/3	1/3
	�΂񂻂�����		 		1/3	1/3	1/3	1/3
	�h�����[�Y�i�ҋ󂫁j 	 		1/4	1/4	1/4	1/4

	�m�[�p��		 		1/5	1/5	1/5	1/5

path: 原版+前人整合等各种readme/パッチ/eraTW4.576用ぱんつ出現傾向変化パッチ/簡易ぱんつ出現傾向.txt


code:
eraTW4.576�p�ς�o���X���ω��p�b�`Ver1.1

��������Ɛ����Ă���ς�̏o���X�����ω����܂��B
�X���Ƃ��Ă͗��炪�t���ƐF�C�̂���ς�𕁒ʂ������Ă���悤�ɂȂ�A����̏������t�����L�����͕��ʂ̉����o�ɂ����Ȃ�܂��B
�܂��e�ς�o���������ω������Ă��܂��B
���łɃh�����[�Y�i�ҋ󂫁j�̂��h�����[�Y�i�ҊJ���j�ɒ����Ă����܂����B

�ȈՓI�ȏo���X���͊ȈՂς�o����.txt�ɁA�o�������̓X�N���[�����ɏ����܂����B

Ver1.1
�����ς����̗������K���@�\���Ă��Ȃ��̂�BEFORETRAIN.ERB�̊�|�����Z�b�g���ߑ��ݒ�̌��ɕύX

��A�ς�o���X���ύX�p�b�`�̐l

@�����ς����
�@���m�łȂ����A
�@�@CFLAG:ARG:�������� & ����_���ӂ�=1�܂��͗���̏ꍇ�ŁA�������K=1�̎�
�@�@�܂��͗��炪�t���Ă��āA�z���C�g�f�[�A�o�����^�C���f�[�A�N���X�}�X�C�u�A�N���X�}�X�̎���1��Ԃ��܂�

�e�ς�o������&�o����

	�m�[�p��
		�������܂��͈����܂��͘I�o�Ȃ�8�ȏ��1/5

	�h�����[�Y
		1�A�����ς�̂Ƃ���1/3

	���܂���p���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�����m��1

	���ʃp���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�������̌^�ȉ������m��1

	���܂��܃p���c
		1�A�����ς�̂Ƃ���1/3

	�t�����p���c
		�������܂��͈����łȂ����A�c�t���c���^�c���ލs�������̌^�ȉ������m��1

	���n�̃p���c
		�������܂��͈����łȂ��Ƃ���1�A�����ς�̂Ƃ���1/3

	���[���O�p���c
		1�A�����ς�̂Ƃ���1/3

	���[���C�Y�p���c
		1/2�A�����1

	�n�C���O�p���c
		1/2�A�����1

	���[�X�̃p���e�B�i���j
		�������܂��͗��炩�A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�A����+�����ς��1�ƂȂ�

	���[�X�̃p���e�B�i���j
		�������܂��͗��炩�A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�A����+�����ς��1�ƂȂ�

	�s�o�b�N
		��������1/3�A�����1/2�@�����ς�̂Ƃ���1/2�A����+�����ς��1

	�R�p��
		��������1/2�A�����1

	���U�[�p���c
		�������܂��͗���܂��͈����ŃT�h���C��4�ȏ��1/3

	�Е��̃p���c
		1�A�����ς�̂Ƃ���1/3

	�V���[�c
		���ł�1

	�X�L�����e�B
		�Z�N�V�[�p���c�ǉ���ON�ł���Ƃ�1/2�A�����1

	�ӂ�ǂ�
		�Z�N�V�[�p���c�ǉ���ON�ł���Ƃ�1/3�A�����ς�̂Ƃ�1/4

	�f�X�g�����O
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�@����+�����ς��1�ƂȂ�

	�V�[�X���[�V���[�c
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/3
		����A�����ς�ł����1/2�@����+�����ς��1�ƂȂ�

	�I�[�v���V���[�c
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�������܂��͗���܂��͈������A�c�t�ł��c���^�c���ލs�ł������̌^�ȉ��ł����m�ł��Ȃ��Ƃ���1/4
		����A�����ς�ł����1/3�A1/2�@����+�����ς��1�ƂȂ�

	�΂񂻂�����
		�Z�N�V�[�p���c�ǉ���ON�A�I�o�Ȃ�4�ȏ��
		�c�t���c���^�c���ލs�������̌^�ȉ������m��1/3

	�h�����[�Y�i�ҊJ���j
		�Z�N�V�[�p���c�ǉ���ON�A�����܂��͘I�o�Ȃ�5�ȏ�܂��͖��m��1/4

path: 原版+前人整合等各种readme/パッチ/eraTW4.576用ぱんつ出現傾向変化パッチVer1.1/readme.txt


path: 原版+前人整合等各种readme/パッチ/eraTW4.576用ぱんつ出現傾向変化パッチVer1.1/簡易ぱんつ出現傾向.txt


code:
eraTW4.576�p���D���C��

�쐬�x�[�X�FeraTW4.576

���̃p�b�`��INFO.ERB����������̂ō����m�F���ē������Ă�������

�E�o�O�C���̂�
�N�����Ȃ��ꏊ�ֈړ������Ƃ��Ƀp���c���D�t���O���N���A����Ă��Ȃ��̂��C��
�p�W���}���p���Ƀp���c���񂭂��˂邱�Ƃ��o���邽�̂ŁA�p�W���}���p���Ƀp�W���}�p���c��0�ɂ���悤�ɏC��

�E�R���N�V�����\���ύX
��L�̃o�O�C���ɉ������L�ύX
CFLAG�p���c�Ǘ����}�W�b�N�i���o�[��100����萔��`�ɕύX
�X�e�[�^�X�\���̃p���c���W�󋵂ɑ����ȂǕ\���̒ǉ��ƕ\�������ύX
�R���N�V�������������̈ʒu���킹�i���������[�X�̃p���e�B�̕��������������ߕ\���ʒu�����j


code:
Ver1.1
��EVET_MESSAGE_ORGASM.ERB
�D�P�̉\�����l���镪��@��ӏ��@�C��
�@|| !TALENT:(LOCAL:2):���m�@��

�@&& !TALENT:(LOCAL:2):���m�@��

--------------------------------------------------
Ver1.0
�����Ԓ�~����.ERB
�y�����o�S���ː��z
���m����ǉ�
�@���m && ���t�o�� < 100
�@���t�̈٘a���ɋC�t�������A���̊��G�Ȃ̂�������Ȃ�

�@�@�s������͂Ƃ肠�����ۗ��B�ӌ�����

�y�����o��ʎː��z
��ɂ������t�̐��̂ɋC�Â��Ȃ������c�t���疳�m��

�@�@�l����ł��ꗂ͐����Ȃ��͂�

��EVET_MESSAGE_ORGASM.ERB
��D�������Ƃɂق��Ƃ��Ă���悤���c
�@&& !TALENT:(LOCAL:2):���m�@�ǉ�

�D�P�̉\�����l���镪��@��ӏ�
�@|| !TALENT:(LOCAL:2):���m�@�ǉ�

�@�@�f���̑΍�Ăɏ]��������&&���Ƃǂ��Ȃ�񂾂����H�i���m

��AFTERTRA.ERB
���m�̎��ԃC�x���g�Ōo���E�\�͂𐳂������p�ł��Ă��Ȃ������s����C��
�@�Y���ϐ���LOCAL��ǉ�

������e���v��
�C�x���g�@�y�����o��ʎː��z�̒��߁@�c�t�𖳒m��

���̑��v�l�@�Č�
�J�E���^�[�n�̕��Ŗ��m���U���ė���ɂ��Ă̈ӌ������������A
���m�ł����ꂭ�炢�͂���Ă���Ǝv���̂ō���͕ύX����

�D�P�o�߂ւ̔������܂����e�͈͂Ȃ񂶂�Ȃ����Ȃ��Ԃ�c

�������m�p�b�`�̐l

path: 原版+前人整合等各种readme/パッチ/eraTW4.576用無知シチュ強化パッチVer1.1/reamde.txt


code:
USERCOM_�R�}���h�\������.ERB
366�˗��̕񍐁E�˗��𕷂���F�t��
377%NAME_IRAI_ACT()%�ɐF�t��

JK�D��


code:
�������֌W�͖������ł�

Str.CSV
8544,�����̉ƒǉ�

Chara121 ����.CSV
�t���O,�����ʒu,544�ɕύX

�eCHARAMOVE
���@�̐X�g�̈ړ��X����, 544�ǉ�

PLACE_���_����.ERB
@INROOM(ARG)�ɋ��n�������ǉ��@�G�����邽��

03�g����\MAP_03.ERB
@MAP_NEW_KOUMAKAN_2�̂P��01�ɏC��

05���@�̐X\GETMAP_05.ERB
�l�`�ّ̊O��S�̃}�b�v���֕ύX

05���@�̐X\MAP_05.ERB
���_�}�b�v�������Ŗ��q�K���������̂Ń}�b�v�����ȈՂɕ\��
���J���@�X��S�̃}�b�v�ɍ��킹��90�x��]
���łɃL�m�R�ɐF�t��
544�����̉ƒǉ�

05���@�̐X\MAP_COMM_05.ERB
@MAP_VIEWING_5(AA)��520�l�`�ّ̊O��S�̃}�b�v���֕ύX

05���@�̐X\MOVEMENT_CAN_MOVE_05.ERB
�����̉ƒǉ�

05���@�̐X\PLACE_5.ERB
�O�o�}�b�v�ɂ����鐬���̉Ƃ͍��܂Œʂ���������

05���@�̐X\ROOMSETTING_5.ERB
�����̉ƒǉ�

05���@�̐X\SKIP_MOVE5.ERB
�����̉ƒǉ�

JK�D��


code:
��eraTW4.580proto�p�ː_�o���p�b�`���ƃ��u�q
��ҁFholy

���̃p�b�`�Ƃ̕��p�͎��ȐӔC��

�������@�K����͕K��CSV-Chara�t�H���_�́wChara125 �s������x���폜���ĉ������@������

���ː_�o��
�������ł�

��resouce�摜�̓��u�q���l�L�����N�^�[�Ȃ�Ƃ��@�ł�����ۂ������������̂ł�
��kaoru�����ː_�o���Ƃ��ĕ`�������̂ł͂���܂���A���ӂ��Ă�������

�f����ߑ��͓K���ɐݒ肵�܂���
���ɂ������͂Ȃ��̂ŉ��ς͂����R��
����̓X���̓��e���l�����ĂƂ肠�������������@���E�������V�E�ɂ��܂���
��ɂ���Ď������Ȃ��̂ŋ��_�ɂ����ꍇ�͎���������܂���

���u�q�̔ԍ������炷�̂�DELCHARA�g���Ă��ł��������Ɠ������S�z

�����u�q
�L�����N�^�[�Ȃ�Ƃ��@�œK����4��ސ������܂���
���ւ��Ń����_���ɕω����܂�
�p�[�c�p�ӂ��ă��C���[�d�˂�Ƃ��͎����ɂ͕s�\�ł�
���������疳��Ȃ��̂ɂ������ǔ��̐F�͂������傢���ʉ����Ă��悩���������G
������肽���l�͎����ō���Ă�

�g�p���Ă���摜�̓L�����N�^�[�Ȃ�Ƃ��@��kaoru���̃t���[�f�ނ��g�p�������������̂ł�
���p�K��͑���kaoru���̑f�ނƓ������͂ł�
resouses���́u�摜����җl�̗��p�K��v�i�����\�[�X�\���p�b�`�쐬�҂��񂪍쐬�j�������Č䗗��������

path: 原版+前人整合等各种readme/パッチ/eraTW4.580proto用依神姉妹パッチあとモブ子/readme.txt


code:
��eraTW4.582�pMOVEMENT���傢�C��
��ҁFholy

���̃p�b�`�Ƃ̕��p�͎��ȐӔC��

�E�����������������Ă��o�O�C��
�@�����̈ړ����ɂ����{�����̉��~�ւ̌X���̋��������킳���Ĉړ���0%�ɂȂ��Ă܂���
�@�d�l����Ȃ���ł����߂�Ȃ���

�E���V�������鏈���C��
�@�S���ʈ��V�󂾂ƌ��ݒn�����V��ł������Ȃ��Ȃ��Ă܂���

�ړ�����������̎����Ȃ̂ɍ��̍��܂ŋC�Â��܂���ł���orz


code:
��eraTW4.582�p�J�E���^�[�w���ω��p�b�`
��ҁFholy

���̃p�b�`�Ƃ̕��p�͎��ȐӔC��

���T�v
�����|����v���C���̑���̍s����������x���R�Ȍ`�ő���ł�����ȁ[�Ǝv�����̂ō���Ă݂�
�m�g��C����n�Ə����������̍s�������₷���Ȃ�A�m��R����n�Ə����������̍s�������ɂ����Ȃ�܂�
���߂͔��X������̂ł����A�J��Ԃ��Ă����Ƃ���Ȃ�ɌX�����΂�܂�

���⑫�P
�m�T�h�n�����́m�g��C����n�Ɓm��R����n�̌��ʂ����]���Ă܂��i�m��R����n�������₷���Ȃ�j
TARGET�ɂ������ʂ͂���܂���
�\�[�X�́m�g��C����n�ƕς��܂���
�C�͂��[���̎��́m�Ȃ����܂܁n�ɂȂ��ĕ␳�̕ϓ����N����Ȃ��Ȃ�܂�

���⑫�Q
���˂��肳�ꂽ���́m�g��C����n���ł��Ȃ����܂���
�m����哱�~�~�ʁn�������g��C���Ă���Ƃ������߂ŁA���������������ꍇ�͒�R���Ă�������

�m�g��C����n�m��R����n�̒n�̕������M���܂���
�m��R����n�Ƃ����Ă��A��{�I��TW�̉����|����͍��ӂȊ֌W�ł̃��o�[�X�v���C�Ȃ̂�
�K���Ȓ�R�ł͂Ȃ��A��߂�����`���x�̃t���ɋ߂��ł�
�Ȃ񂩈Ⴄ�Ɗ������炲�߂�Ȃ���orz

path: 原版+前人整合等各种readme/パッチ/eraTW4.582用カウンター指向変化パッチ/readme.txt


code:
eraTW4.582�p�~���s�����E�˔j�C���v���X��

 CSV��CFLAG.csv

 ERB��MOVEMENTS��BASE���R�ϓ�.ERB
	���C�x���g�֘A��AFTERTRA.ERB
	��			�@������o.ERB
	������E���b�Z�[�W�֘A��KOJO_MESSAGE.ERB

 �����Ƃ����Ă݂����l�̂��߂̂��ꂱ�ꄟ����֘A������e���v����M_KOJO_KX_�C�x���g.ERB

242�X��>>632�̏C���i���Y����>>626���C���ɂȂ锤�j(BASE���R�ϓ�.ERB
	LOCAL��ARG���ԈႦ�Ă܂����A�܂��Ƃɂ܂��Ƃɂ܂��Ƃɐ\���󂠂�܂���ł���

�{�����̂P(����o.ERB,KOJO_MESSAGE.ERB,M_KOJO_KX_�C�x���g.ERB
	���������Ƀv���X���ĂȂ肫�莞���t���O����Œ���Ȃ��悤�ɂ��Ă݂�

�{�����̂Q(AFTERTRA.ERB
	��Ԏ��Ԃ́u������ɗ��邽�߉䖝�v�]�X�����A������Ă΂Ȃ��֌W�ŉ��s������Ȃ��̂Œǉ�

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.582用欲求不満限界突破修正プラスα/README.TXT


code:
��eraTW4.582�p��������o�O�C��
��ҁFholy

���̃p�b�`�Ƃ̕��p�͎��ȐӔC��

�E�ȑO���炿�傭���傭�������Ă����Ԃ�ςȈʒu�ɏo������o�O�̏C��
�����͑������莞�Ɍ��G���A���l�����Ă��Ȃ����������ŁA�v�Z���ɋ��_�G���A�����Z�o����Ă��܂��P�[�X��������������
�܂��A�o���n�悪�ꃖ�������Ȃ��̂ɂ��̒n��̏Z�l�łȂ��L�����i�����Ɩ����j��
���̒n�悪���_�ł���ꍇ�������肪�Z�o�ł��Ȃ���ԂɂȂ��Ă����̂ŁA�񖼂ɂ͂Ƃ肠�����_�ЃG���A�ɂ������݂��܂���

��������Œ������͂��I

path: 原版+前人整合等各种readme/パッチ/eraTW4.582用遭遇判定バグ修正/readme.txt


code:
eraTW4.610proto�p�����r���֘A�C��������

 ERB���R�}���h�֘A��COMF��COMF71 �񌊑}��.ERB
	��					��COMF92 �`����ʂ����.ERB
	��					��COMF93 �`��w�ʂ����.ERB
	��					��COMF94 �`�R��ʂ���.ERB
	���X�e�[�^�X�v�Z�֘A��TRACHECK_LOST_VIRGIN.ERB
	��					��COUNTER��COUNTER_SOURCE.ERB
	��					��SOURCE��SOURCE.ERB
	���X�e�[�^�X�\���֘A��PRINT_STATE2.ERB

���̂P�A�A�i�������r���֘A�C��(COMF71 �񌊑}��.ERB,COMF92 �`����ʂ����.ERB,COMF93 �`��w�ʂ����.ERB,COMF94 �`�R��ʂ���.ERB,TRACHECK_LOST_VIRGIN.ERB,COUNTER_SOURCE.ERB,SOURCE.ERB
	�O��A�񌊑}�����̔�TARGET�A�i���������C���͂������ǁA���̔����̑匳�̌������킩�����̂ŏC���������Ă݂�
	�Ƃ������A����A�i�������t�@�[�X�g�L�X�֐��A�Ȃ��SOURCE�̃L�������[�v����O��Ă��񂾂�A�����TARGET����ɂ�����𓾂Ȃ��킯����
	�Ƃ������ƂŁASOURCE�̃L�������[�v���Ɉړ����Ă݂�e�X�g
		�����炭�A�ȑO��MASTER�֘A�̓���r������SOURCE�O�ł���Ă����Ƃ̉e���Ȃ񂾂낤����
	���̉ߒ��ŁA�񌊑}�����ɃA�i�������r�����������Ȃ��Ȃ��Ă��̂����������̂ł��������C��

���̂Q�A�����r�������֘A�iTRACHECK_LOST_VIRGIN.ERB,SOURCE.ERB
	�����r���Ώۂ�MASTER��TARGET�̂݌�����ۂ������̂ŁA��������Ȃ��ꍇ��z�肵�Ď�����Č���i���̂Ƃ���񌊑}���ȊO�ł͔������Ȃ��Ǝv��
	�����D��Ώۂ�MASTER�ȊO�̏ꍇ�́A����n�̕��Ɏ�����Č���

���̂R�A�����r������\���֘A�iPRINT_STATE2.ERB
	�A�i�������r������������ꍇ�A�]���ȉ��s������̂��C��
	�ŏ�����񏈏��̃L�����ɁA��ʂ�̏����r��������ǉ�
		��ڂ͊��Ɏ����Ă܂��\��
		��ڂ́A�J�n���ɏ����ɂ����ꍇ�ɁA���ς���ď����ɂȂ�܂����\���A������D���ƒʏ�̗������\������܂�

���Ȃ݂ɁA����̉��ς�MASTER����TARGET�̃A�i�������r���������L�^�����悤�ɂȂ�܂�
����ȑO��MASTER����TARGET�i4.610proto||eraTW4.600proto�{eraTW4.600proto�p�F�X�C���{���g�p���j�ŃA�i���o�����������Ă��Ă��A����̃p�b�`������̏��A�i���}�����A�i�������r�������ɓo�^����܂�

by������


code:
eraTW4.610proto�p�K���ŏC��

 ERB���R�}���h�֘A��COMF������n��COMF310 �K�𕏂ł�.ERBCOMF71 �񌊑}��.ERB

�K���ł̐��۔���łƂ������Ă����Ƃ����Ă��̂ŁA�C��

by������


code:
�m���������n�̃o�O�C���p�b�`
�C���_
1.�f�U�[�g�Ƌ֒f�̗��������Ȃ��o�O
2.�ǉ��̑f�ނ��L�����Z���ł��Ȃ��o�O

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用_料理を作る修正/readme.txt


code:
��eraTW4.611�p�Z���ݒ����
��ҁFholy

�������v���낤���Ǒ��̃p�b�`�Ƃ̕��p�͎��ȐӔC��

�N�����Ԑݒ��ڊo�܂����v���ɂ��ĕ����݂Őݒ�ł���悤�ɂ��Ă݂܂���
�O�̂��悩������ꉞ���ǔł�SKIP�Ŏc���Ă�̂ł������g���Ă�������

���͓K���Ɍ��₷�����������
�ӂƋC�ɂȂ�����ł����m�����n�Z���ݒ�Ȃ̂��c�HOPTION����Ȃ�����H

���L�������C�N���ǃp�b�`���ꏏ�ɓ���Ă܂�
�@�ȉ��̓L�������C�N���ǃp�b�`��readme

����ɑf���ݒ莞�̕\���ƑI�ׂȂ��f���̐������ĉ��ǂ��܂���
�E�f���ݒ莞�̕\��
�܂Ƃ߂ĂP�y�[�W��

�E�I�ׂȂ��f��
���Ȃ��p�Ƃ���ȊO�p�𓝍�
�ςȕ����i���ʂ�bit�ɂ��ĂȂ�������@����ς���ꂽ��j���C��
�����������r���������C��
��ϐ���I�ׂ�悤�ɂ��Ă݂܂����B���㑤���ꗂ��o�邩���c�c
�Ƃ͂������ʂ���̌^�܂ŕς�����񂾂����ꂭ�炢���Ȃ��Ɣ��f
�ӐM���ς��������ӏ�����܂����ۗ�

�E��
NAME�����O�@CALLNAME���Ăі��̕\�L
�̗͋C��BAR��V����

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用住環境設定改良パッチ/readme.txt


code:
MAP_COMM_09
���u�z�ɓ����悤��ENDSELECT�̌��RETURNF 1��ǉ�

MAP_09
����24��MAP_CHIREIDEN_1����폜

JK�D��

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用拠点地底修正パッチ/readme.txt


code:
eraTW4.611�p�����|��&&�H���C��

 ERB���R�}���h�֘A��COMF������n��COMF414 �H�������.ERB
	������E���b�Z�[�W�֘A��EVENT_MESSAGE_COM400.ERB

244�X��>>480�̏C���iEVENT_MESSAGE_COM400.ERB
	�������Ȃ��������̏������p�����Ă����ۂ��H
	�������������܂����ɂ��B��Ă������Ȃ�

244�X��>>613�̏C���iCOMF414 �H�������.ERB
	�P�ɐ������ɋ��Ȃ����ď����������ƁA�Q�Ă�̂ɉ�b�o����������ꍇ������̂ł��������C��

by������

path: 原版+前人整合等各种readme/パッチ/eraTW4.611用睡姦掃除&&食事修正/README.TXT


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

 ERB��MOVEMENTS��JOB_�d���J�n�I������.ERB
	���R�}���h�֘A��COMF��COMF81 �t�F���`�I.ERB
	��					��COMF88 �o�L���[���t�F��.ERB
	��					������n��COMF312 �L�X����.ERB
	��							��COMF318 ���𓮂����i�`�j.ERB
	���X�e�[�^�X�v�Z�֘A��TRACHECK_LOST_VIRGIN.ERB
	������E���b�Z�[�W�֘A��EVENT_MESSAGE_COM_�Z�N�n��.ERB
						�@��EVENT_MESSAGE_COM80~.ERB

���̂P�A�d���J�n�����������[�h�t���O���������}�}�Ȃ̂��C���iJOB_�d���J�n�I������.ERB
	���������[�h�R�}���h�\����������炩�����̂Ŕ��o�A�����������͂�

���̂Q�A�l�o���̏������������������̂��C���iCOMF81 �t�F���`�I.ERB,COMF88 �o�L���[���t�F��.ERB,COMF312 �L�X����.ERB
	���`�a�b�u�l��SOURCE��ݒ肵�Ă����ƁASOURCE�v�Z���Ɏ����Ōo���{�P�����̂ɁA�e�R�}���h�ŋ����I�ɂl�o���{�P���Ă鏊�ׂŁA�R�}���h���s�̓x�ɁA�l�o�����{�Q�����Ƃ������ԂɂȂ��Ă����̂ŏC��
	�t�B�X�g�t�@�b�N�ɂ������悤�ȏ��������邯�ǁA���X�\������Ȃ��R�}���h�����G��Ȃ��Ă��ǂ����

���̂R�A�����|���ꒆ�̍��U��i�`�j���\������Ȃ������̂ŏC���{���iCOMF318 ���𓮂����i�`�j.ERB,EVENT_MESSAGE_COM_�Z�N�n��.ERB
	�\��������TCVAR�̔ԍ��ԈႦ�Ă܂����A�\���󂠂�܂���
	�c�c�Ȃ�ō�����Ƃ��ɂ͕��ʂɕ\������Ă��񂾂�H

���̂S�A�t�@�[�X�g�L�X�֘A�C���i���j�iTRACHECK_LOST_VIRGIN.ERB
	��eraTWk3.v6�������ɒ����ꂽ�Ƃ̂��ƂȂ̂ŁA�b��I�ȉ��C��
	�\���󂠂�܂���ł���

���̂T�A�N�������i�ƈ����j�̒n�̕��C���iEVENT_MESSAGE_COM_�Z�N�n��.ERB
	�󋵂ɂ���āA�ӂ��Ȃ�ɂ��Ă��Ă��N���g���X�M��ɂȂ��Ă��̂ŁA���������Ă݂�

���̂U�A�������̒n�̕��ɉ��s������ĂȂ��̂ŁA�ǉ��{�o�L���[���t�F���̒n�̕��ق�̂��傱���ƕύX�iEVENT_MESSAGE_COM80~.ERB

���ƁA�����֘A�ŕςȃo�O���o�����ǁA�Č�������Č��؂ł��Ȃ�
	��̓I�Ɍ����ƁA�̂��牽�x���������A���ӂӒ��ɓ����Ă����L�������o�čs������������������Ȃ����Č����A����
	�Ƃ肠�����A�Č����邽�߂ɁA���΂炭�M��񂷏���

by������


code:
0,�x�e�t���O
1,SYS_EVENT�N���t���O
2,�j�[�\�b�N�X���p
3,����̗L��
4,��Փx
5,�Q�[�����[�h
6,��i�e�L�X�g�ݒ�
7,����e�L�X�g�ݒ�
;�e�L�X�g��\�����Ȃ��ݒ莞		FLAG:6=0 FLAG:7=-1
;��i�e�L�X�g�̂ݐݒ莞		FLAG:6=1 FLAG:7=-1
;����e�L�X�g+��i�e�L�X�g�ݒ莞	FLAG:6=1 FLAG:7= 2
9,���ւ��C�x���g
10,�ח��l��
11,����
12,�{���̗݌v�D���x�㏸��

15,�Z�ݍ��݃L����
16,�󂫕����L����
17,���C�l��
18,���ӎD�g�p
19,������
20,����
;Str3000��Q��
21,�����I�v�V����
;(bit=0:���j���[�蓮����,1:�ٕ������s��,2:�򕨍����s��,10:�������t��_����,11:�������t��_�Z��,12:�������t��_����)

;����֌W---------
30,����J�Ãt���O,;(0=����Ȃ� 1=�얲�̋C����𐷂�)
31,����K��,;(�d���ʂƂ��Đݒ肳���)
32,������
33,�J�n����
34,�J�n��
35,�Q���l��
36,���V�󒆎~�t���O;(0=�Ȃ� 1=���~����)
37,���������
;-----------------

41,�˗��X���b�g�P
42,�˗��X���b�g�Q
43,�˗��X���b�g�R
44,�˗��X���b�g�S
45,�˗��X���b�g�T

;FLAG:50�`59 �e�K��҂̖K��t���O�@����������CFLAG:���_���K�Ɉڍs�����
;FLAG:50:bit�\�L:0������,1��݂�,2�傿���,3�H,4���,5���~���A,6�A���X,7���S��,8���S���A9-10-11�v���Y�����o�[�Y,12�d��,13-14-15���_��,16���O��,17�݂����[,18�����,19�f�P�l,20-21-22�R�̐_�l����,23�V�q,24�ߋ肳��,25-26-27�n��g,28�i�Y�[,29��������[��,30�ʂ�,31�͂��Ă�,32�ؐ�,33�G����,34�����q,35����,
;FLAG:50:bit�\�L:36����,37���C�Y,38���Ƃ�l,39�t���������,40�ɂƂ��,41���,42�Ă�,43�p�`�F,44�Ђ����,45�_�q�l,(46������,�Ӗ��Ȃ�),47�߁[���,48����,49�p���X�B,50��������,51�P�l,52�e�T,53�E�V,54��,55���l,56���[��,57�䂤�����,58�}�~�]�E,59����,(60�j���ہE�Ӗ��Ȃ�),61�i��,62�Ԕ؊�,63���e�B
;FLAG:51:bit�\�L:0���f�B,1����,2�×t,3���q,4��,5����,6�@�q,7�����[,8�L�X��,9���}��,10���,11�����T,12��,13���q,14�F��,15�ɂ��ɂ��,16�g�W,17�t�g,18�킩����,19�فX,20����,21����,22����,23�˕P,24�L�P,25���C�Z��,26���q,27�_�Y,28���q,29���L,30�}�C,31俎q,32����,33���,34�h���~�[,35�T�O��,
;FLAG:51:bit�\�L:36�N���E���s�[�X,37����,38�w�J,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63

70,���Ԓ�~
71,�I�i��
72,����
73,�f�[�g����
74,�A�C�e���w���ς�
75,�V���w��
76,���݂����_��
77,�s������s�܂���
80,�C��
81,�ō��C��
82,�Œ�C��
83,�~���m��
84,���g��
85,������s
86,�R���N�V�����X�L�}
87,C�X�L�}�����d�l

89,�ُ�C��
90,����
91,��ؖ��f�C���[
92,���10�A�K�`���L�����y�[��
93,���������i�i��
94,���������i�w����
95,���������i����
96,�P�ϋv�x

200,�C�⒆�f
;550�`559,�e�L�����̊�|���ɂ�闈�K�t���O
560,��|�����e
561,���͋�����
562,��|��
563,�d���\�l��
564,������T
565,������T2
566,���l���T
567,���l���T2

580,�q��F��
;601�`690,�e�K��҂̂΂�����t���O

700,�l���p���c�퐔
701,���щ����V�X�e��
702,���щ����V�X�e���Q

800,���P�̍앨
801,���P�̐A���Ă���̓���
802,���P�̐���x
803,���P�ɐ������Ȃ�����
804,���Q�̍앨
805,���Q�̐A���Ă���̓���
806,���Q�̐���x
807,���Q�ɐ������Ȃ�����

;����l���Ȃ��p
820,�n��
821,���d���̐���
822,�N�v
823,�_����Փx
824,�n��ݕt��
825,�N�n�ݕt��
826,�ԍω��؉�
827,���n�[����
828,�ݐώ��n�]��
829,�O����n�]��

;�g���J�W�m�֘A�t���O830-839
;�J�����w����VIP���[�������ɍ�������d�l�ł܂肫��Ȃ��ĕۗ���
830,�J�����w��

831,�J���X�}����
832,�J���X�}�l�C
833,�J���X�}�ϓ���
834,�J���X�}�ϓ��ݐ�
835,��������N
836,������
837,���l�C
838,���ϓ���
839,���ϓ��ݐ�
840,�O��J���X�}�ݒ茎
841,�J�W�m�K���

850,�|������
851,���̑̊i
852,�J�^���w����
853,�p���c�A��
860,��
861,�Ō�Ɏ����ɖK�ꂽ��
862,�����ł̗ݐύw���z
863,�����̗ݐϓ]�����v
864,�����̔��p���t���O
865,�������拭��
;900-910 ���u�D���x

998,�����f�[�g����
;�f�[�g����̃L�����ԍ��i�[
999,���݂����Ǝ����֌W
;bit�\�L 0:���݂����I����, 1:���݂���������������, 2:�����I����, 3:��������ւ��\
1000,�o�[�W�����A�b�v����
;1001�`1999,�I�v�V�����y�уo���A���g�����ݒ�
1001,���Օi�����w��
1002,�S�~�\��OFF
1003,�\�͕\���ꗗ
1004,�\�͕\���ڍ�
1005,���ł��Q����
1006,��D
1007,������������
1008,�X�e�\���p
1009,�e�X�g�v���C�p�I�i�o����������
1010,���܌o��
1011,�ݖ{
1012,�ݖ{�ԋp����
1013,�N�C�b�N�t�B���^;�ibit,0=onoff,1=V,2=A,3=����,4=�A�C�e��,5=��d,6=SM 7=�Z�N�n���j
1014,�����~�܂�
1015,�����|��
1016,�u�Ԉړ�
1017,�Z�ݍ��݃C�x���g
1018,AA�\��
1019,�ړ���\��
1020,���z
1021,�[�ˎ{��
1022,�v�[��
;(bit,0=���� 1=���� 2=�V�����[ 3=�s�v�c�ȖA)
1023,�o�֐l��
1024,�𗬗��K���[�h
1025,�D�P�X�C�b�`
1026,USERCOM�t�B���^
;�ibit,0=����\�� 1=�����ς��� 2=�\�͕\�� 3=�\�͕\���i�}�X�^�[�j4=�u�t�B���^ 5=�`�t�B���^ 6=�����t�B���^ 7=����t�B���^ 8=��d�t�B���^ 9=�H 10=�Z�N�n���t�B���^ 11=�R�}���h�t�B���^ 12=����\�� 13=�������~�߈ړ��j
1027,�E�ߑI��,;(1=�S�� 2=���E��)
1028,�@�m���[�h
1029,�p���c�D�_,;(1=���񂭂��˂� 2=����E��������)
1030,�Ȃ肫��
1031,����F
1032,Look�\���p���[
1033,Look�\���p����
1034,�\�͕\�L
1035,�J�E���^�[�n�̕�����
1036,�Z�N�V�[�p���c�ǉ�
1037,�X�L�b�v���[�u
1038,���E
1039,ABLUP�ȗ�
1040,�b�㐫��
1041,�摜�\���ݒ�,;ON/OFF
1042,�摜�\��,;ON/OFF ���\���l��
1043,�摜�\���ʒu,;PRINT_TARGET_IMAGE�̕`��align�l 0=center 1=left
1044,�A�j���[�V����,;�摜�A�j���[�V�����ݒ� ���J��Ԃ��� 0�`5
1045,�摜�g�\��,;�摜�ɘg�����邩 ON/OFF
1046,�ː��摜���,;0�`2�@0.�f��+���ʉ��@1.�f�ʂ̂݁@2.���ʉ��̂�
1047,�����G���,;0�ŗ����G 1�Ŋ�G
1048,�}�G�\��,;�}�G�̂�(����ʃA�j��)�̕\���ݒ�@AA�̑ւ�(�󐸂̂ق�)�ɂ͌����Ȃ����
1049,�}���A�j���t�B���^,;�}���A�j����\�����Ȃ��悤�ɂ���(bit 0=�}���� 1=�Ⓒ 2=�ː�)

1055,�Ǝ��A���t�B���^

1060,�ח��H���ω�
1061,�����֎~
1062,���m�����r���֎~
1063,�q���`��
1064,�D�ӗ����Z�k
1065,�q���̐���
;1100�`1299,�e�����̐l��


code:
2,�ː��ӏ�
3,�R���h�[��
4,�ː��������x

12,�ː������ӏ��t���O
;�i1=�S�� 2=�A�i�� 3=��� 4=���� 5=�p�C�Y�� 6=�f�� 7=���R�L 8=�̕\ 9=�A�i����d 10=���� 11=�G��j

15,�j�Z
16,
17,�`�j�Z
20,�J�E���^�[�s��
21,�J�E���^�[�s���̔h��

30,�J�E���^�[�s������t���O

40,��D
50,����o�͗p�ː��ӏ�
60,�\���J�b�g
61,����r��
62,�`�r������

100,V�}���Ǘ��t���O
101,A�}���Ǘ��t���O

;�i1�^�[�������j
102,V�ɒ��o�����ꂽ�t���O
104,A�ɒ��o�����ꂽ�t���O

103,V�ɒ��o�������L�����̔ԍ�
105,A�ɒ��o�������L�����̔ԍ�

106,���y���x
107,�C������
108,��d�t���O
109,�s��
111,�ː��Q�[�W������
112,�n�s�t���O
115,�u�N����
117,����
118,�ł炵��
120,�̐�
121,�̐�����
122,�ʒu�֌W
123,�ʒu�֌W����

130,��ꍇ��
131,��������擾�p
132,�{��
133,�D�����o��
134,�������֎~����
135,�s�����x

138,��
139,�����
140,�Z��
141,���A��
142,����
143,���ʂȂ���
;(0=�g��, 1= )
144,����
145,�D��
146,�҂���
147,�~���s���x�Ǘ�
148,�����򋭓x
;(0=�ʏ퐇���@1=�[�������@2=���ɐ[�������@3=����)
149,�����[�x
150,�����򂨒��g�p

160,�������]���l
161,�����D�]���l
162,�������]���l

170,��|���␳

180,���o
181,�����񂹏���
182,�����������
183,�L�X�L�����Z��
184,�˗��𕷂���
185,�Ȃ�ׂ������Ȃ�

190,���ւ�
191,�A�i�U�[���i��

200,�����
201,YARASERO_REASON

250,�q���󕠓x
251,�q���󕠃J�E���g

298,���t�Q��
299,���t����
300,��������
301,��b�݌v�l
302,��b�s�\
303,�X�L���V�b�v����
304,�����œ���
305,�H��

;306,�����̎���
;307,�����̑N�x

308,�����̖�
;(bit0=���� 0=�Z���� 1=���� 3=���h 4=���� 5=���T�r 6=������ 21=�Z�� 22=���A�� 23=����� 24=������)
309,��蓹����
310,�G������
;311,�y�H����
312,�󕠎���
313,�f�U�[�g�󕠎���
314,�L�X����
315,��`���Ȃ�
316,����
317,����C�x���g
318,�����������̉���
319,�A���֎~
320,�D���ɂ���
321,���ꂨ�d��
322,�d���̗L��
323,��`������
324,����
325,�d���J�n
326,�d���I��
327,������
328,�x�e��
329,����K��
330,�{���̕���
331,���x�㏸����
332,�U�f����

;TCVAR:350�`399 ����p�m�ۗ̈�

400,�b�o��
401,�u�o��
402,�`�o��
403,�a�o��
404,�l�o��
406,�b�Ⓒ�o��
407,�u�Ⓒ�o��
408,�`�Ⓒ�o��
409,�a�Ⓒ�o��
490,�l�Ⓒ�o��
;�Ⓒ�o��
410,�Ⓒ�o��
411,�ː��o��
412,�����o��
413,���A�o��
414,���t�o��
415,�����o��

;�s���o��
420,�u�����o��
421,�`�����o��
422,���Ԍo��
423,�������Ԍo��
424,����o��
425,�����o��
426,�p�C�Y���o��
427,�L�X�o��
428,����g�p�o��

;���_�o��
440,��d���y�o��
441,����o��
442,��ɉ��y�o��
443,�n�s���y�o��

;�����o��
450,�����o��
451,���Y�o��
452,�Q�C�o��
453,�ُ�o��
454,�u�g���o��
455,�`�g���o��
456,�ٔ��o��

;���̑�
470,���|�o��
471,��b�o��
472,�B�e�o��
473,��ʌo��
474,�퓬�o��
479,���t�o��


code:
1,�ː��ӏ�,; (�r�b�g 1=�S�� 2=�A�i�� 3=��� 4=���� 5=�p�C�Y�� 6=�f�� 7=���R�L 8=�̕\ 9=�A�i����d
2,�j�Z�}���t���O,;�i�����ŉ�V�𓾂��ꍇ�A�o����ϓ������Ȃ�)
3,SELECTCOM�ۑ�
4,�j�Z�t���O
5,�����|��

10,�u�}���p��
11,�`�}���p��
12,�t���C�v�p��
13,�D���x����Ȃ�

16,�}������

20,��������擾
21,��������擾
22,��ɍ���擾
23,���y����擾
24,��������擾
25,����]���ω�

40,Info�\����

50,����COM,;(1=�V�b�N�X�i�C�� 2=�␴�� 3=G�X�|�b�g�h�� 4=���ꉲ�O 5=����t�F�� 6= 7= 8= �V�b�N�X�i�C���p�C�Y�� 13=���ݑ}�� 17=���񓯎��z��)

60,MASTER�̌��g�p��
61,MASTER�̎�g�p��
62,MASTER�̂b�g�p��
63,MASTER�̂u�g�p��
64,MASTER�̂`�g�p��
65,MASTER�̂a�g�p��

70,�����|���Ȃ�

90,�������
91,���[�h�㏸�}��

95,�D���x�{�[�i�X
96,�D���x�}�C�i�X
97,�D���x�Ǘ�
98,�M���x�Ǘ�
99,�M���x�Ǘ����̂Q
100,������COMABLE�Ǘ�
101,�����������s�Ǘ�
102,COMABLE�Ǘ�
;(1=����ON 2=�E�t�tON 3=���肩�牟���|����)
103,�O�^�[����TARGET���
104,���݂�TARGET
;(0�Ȃ�w�肵�Ȃ�) TARGET�ύX�p�i�ύX���������肪�����Ă�j
105,�r�f�I�J����
;(0=�Œ�J���� 1=MASTER�B�e 2=����B�e)
106,MASTER�̂o�}����
107,���������[�h
108,����������|�C���g
109,�����|����J�n����
110,MASTER�̓�ꍇ��

117,�ϑz��
120,�L�X�}�[�N
121,�S����
122,���
123,���␳

131,����

140,���d�������x
141,�g�p�y��

150,�O���ASSIPLAY�̗���
151,�O��̓���COM
152,�O��̃_�u�������n�R�}���h�ɂ�����TARGET�ȊO�̎Q���ҁiLOCAL�j
153,�O��̃R�}���h����

160,�T�C�Y�\��
161,�����\��
162,�\�͕\��
163,�o���\��
164,���Z�\��
165,�f���\��
166,����\��
167,����\��

170,PALAM��\��
171,Status��\��
172,�\���A�C�e�����

192,����ɂ��COM���۔���
;(-2=�R�}���h�I���A-1���������s�A0=COM�ˑ��A1=��������0R�����听��
193,SELECTCOM�̕���
194,SOURCE�Ȃǂɉe�����Ȃ�SELECTCOM�̕���
195,�������ړ�
196,�|����
197,������
198,���Q
199,������
;(bit 1=�ٓ�2=�����o��3=�f�@ 4=���ʏ��i 5=����K��ɂ�闂�����K 6=�V�󑀍� 7=�e������ 8=�ː�����)
200,�A���o�C�g�ŉ҂������z
201,�����~��
202,�܂��Ȃ�
203,�K�^�␳
204,�L�������X�g
205,�^��
206,�������ړ����̂Q
207,�J����
;208,�P�ϋv�x
209,��O����t���O
210,��O���ꎞ��������
211,���n������t���O
212,���n�����򎞌�������
213,�p���c���D
214,�o�����|��
215,�f�[�g�O�D���x
216,���Ȃ��N��
;TIME:3+DAY * 1440
217,���[
218,�d��
219,�ړ��s�\���b�Z�[�W
220,�J�W�m���ꎞ�J���X�}
221,OPPAI

230,�X�J�[�g�߂��肷��
231,�G������
232,�}�b�v�؂�ւ�

300,���Ԍo��
301,

;500~603�͈����p�p�Ɏg�p
;500~603�͈����p�p�Ɏg�p
;�L���������������֌W��500�`630�܂ł͎g�p���iver4.600proto���݁j
;����������L�������̑����ɔ����Ďg�p�̈悪�L����͂�
;�����͍L��ϐ��ł���K�v���͔����̂�@�����ăj���[�Q�[������DIM��d�l�ύX���\


code:
;�֐��u����
;-------------------------------------------------
;�A�C�e���̔���@ITEMSTOCK
;�߂�l1 �A�C�e�������݂��Ȃ�
;�߂�l2 ����
;�߂�l3 ����������Ȃ�
;�߂�l4 �����𖞂����Ă��Ȃ�
;�߂�l5 ���ł�99�������Ă���
;-------------------------------------------------
@ITEMSTOCK(ARG)
#FUNCTION
SIF !STRLENS(ITEMNAME:ARG)
	RETURNF 1
SIF ITEMSALES:ARG == -2
	RETURNF 4
SIF ITEMSALES:ARG == -1
	RETURNF 2
SIF (MONEY < ITEMPRICE:ARG && !TFLAG:194) || (TFLAG:194 == 1 && MONEY < ITEMPRICE:ARG / 3)
	RETURNF 3
SIF ITEM:ARG >= 99
	RETURNF 5
RETURNF 0

;-------------------------------------------------
;�֐���:CHOICE
;�T�@�v:�Q�`�S���֐�
;���@��:ARGS:0�c������e
;      :ARGS:1�`4�c�I�����̕�����(3,4�ȗ���)
;�߂�l:���[�U���͌���(0�`3)
;�I�������̖����A�V���v���ȑI�����쐬�֐�
;����Ƃ��ł��g���邩������Ȃ�
;�Ƃ肠����4���܂ŁB���₵�Ă���������
;-------------------------------------------------
@CHOICE(ARGS:0, ARGS:1, ARGS:2, ARGS:3, ARGS:4)
PRINTSL ARGS:0
FOR LOCAL, 0, 4
	PRINTFORML [{LOCAL}] - %ARGS:(1 + LOCAL)%
	SIF LOCAL && !STRLENS(ARGS:(2 + LOCAL))
		BREAK
NEXT
$INPUT_LOOP
INPUT
SELECTCASE RESULT
	CASE 0 TO LOCAL - 1
	CASEELSE
		CALL SIMATTYAUOJISAN
		CLEARLINE 1
		GOTO INPUT_LOOP
ENDSELECT
RETURN RESULT
;-------------------------------------------------
;�I������\�������͌��ʂ�Ԃ��֐� �����𖞂����Ȃ��I�������O���[�\���ɂ��Ė����ɂ��邱�Ƃ��\
;�����ɃZ���t�Ə���(0�Ŗ����A��0�ŗL��)���w��B�ő�6�܂�
;�߂�l�͑I�������I�����̔ԍ�
;-------------------------------------------------
@ASK_M(ARGS:0, ARG:0, ARGS:1, ARG:1, ARGS:2, ARG:2, ARGS:3, ARG:3, ARGS:4, ARG:4, ARGS:5, ARG:5, ARGS:6, ARG:6)
CURRENTREDRAW
LOCAL:0 = RESULT
REDRAW 0
FOR LOCAL:0, 0, 7
	IF ARGS:(LOCAL:0) != ""
		IF ARG:(LOCAL:0)
			PRINTBUTTON @"{LOCAL:0, 2, RIGHT}[%ARGS:(LOCAL:0)%]", LOCAL:0
		ELSE
			SETCOLOR 0x606060
			PRINTPLAINFORM {LOCAL:0, 2, RIGHT}[%ARGS:(LOCAL:0)%]
			RESETCOLOR
		ENDIF
		PRINTL
	ENDIF
NEXT
$INPUT_LOOP
INPUT
IF RESULT < 0 || RESULT > 6 || ARGS:RESULT == "" || !ARG:RESULT
	CLEARLINE 1
	GOTO INPUT_LOOP
ENDIF
REDRAW LOCAL:0
RETURN RESULT
;-------------------------------------------------
;�����ƃJ���X�}�ǂ���ł�������I�����̂��߂̊֐�
;-------------------------------------------------
@PAY_YEN_OR_CM(ARG,ARG:1)
PRINTFORML [0] ��߂�
PRINTFORML [1] \\{ARG}�����@�@�i���݂̏������F\\{MONEY}�j
PRINTFORML [2] CM{ARG:1}�����@�i���݂̏����J���X�}�FCM{MONEY:2}�j
$INPUT_LOOP
INPUT
SELECTCASE RESULT
	CASE 0
	CASE 1
		IF MONEY < ARG
			PRINTFORMW ����������܂���
			GOTO INPUT_LOOP
		ENDIF
		MONEY -= ARG
	CASE 2
		IF MONEY < ARG:2
			PRINTFORMW �J���X�}������܂���
			GOTO INPUT_LOOP
		ENDIF
		MONEY -= ARG:2
	CASEELSE
		GOTO INPUT_LOOP
ENDSELECT
RETURN RESULT
;-------------------------------------------------
;�֐���:GET_REVISION
;�T�@�v:�ėp�␳�l�擾�֐�
;���@��:ARG:0�c�Q�Ƃ��鐔�l
;�߂�l:�␳��̒l
;���@�l:�����֐�
;���鐔�l���A����l�ɑQ�߂��Ă������l�ɕϊ��������Ƃ���
;�㏸�����������Ƃ����ɏ���ɒB����A�傫���Ƌt�ɂȂ��Ȃ�����܂ŋ߂Â��Ȃ�
;-------------------------------------------------
@GET_REVISION(ARG:0, ���, �㏸��)
#FUNCTION
#DIM ���
#DIM �㏸��
RETURNF ��� - �㏸�� * ��� / (�㏸�� + ARG:0)

;eg 10000,2000,20000����2000-2000*20000/30000

@GET_REVISION2(ARG:0, ���, �㏸��)
#FUNCTION
#DIM ���
#DIM �㏸��
RETURNF ��� * (ARG:0 + 1) / (�㏸�� + ARG:0 + 1)

;eg 5000*1001/1201

;-------------------------------------------------
;�֐���:PRINT_BASE
;�T�@�v:�ėp�␳�l�擾�֐�
;���@��:ARGS �o�[�̖��O
;		ARG:0�c�Q�Ƃ���L�����ԍ�
;       ARG:1�c�x�[�X�̔ԍ�
;       ARG:2�c�o�[�̒���
;BAR��\�����������Ƃ���
;-------------------------------------------------
@PRINT_BASE(ARGS,ARG:0,ARG:1,ARG:2)
PRINTFORM %ARGS,%
BAR BASE:ARG:(ARG:1),MAXBASE:ARG:(ARG:1),ARG:2
PRINTFORML ({BASE:ARG:(ARG:1)}/{MAXBASE:ARG:(ARG:1)})

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�������胉�C���\���֐�
;CALL		USER
;ARG		ARGS:�\�����C����, ARG:0 line_to_"-", ARG:1 ���C����
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@DRAW_INFORMATIONLINE(ARGS,ARG,ARG:1)
#DIMS EQUAL
#DIMS MINUS
EQUAL = =
MINUS = -
LOCAL = ARG:1

IF ARGS =="Info"
	SIF TFLAG:Info�\����
		RETURN
	TFLAG:Info�\���� = 1
ENDIF
SIF !ARG:1
	LOCAL = 150
IF ARG == 1
	PRINTSINGLEFORMS "-- %ARGS% " + "%(MINUS * MAX((LOCAL - STRLENS(ARGS)),0))%"
ELSE
	PRINTSINGLEFORMS "== %ARGS% " + "%(EQUAL * 150)%"
ENDIF
;-------------------------------------------------
;�Ⓒ���ȂǁA�`�Ƃa�Ƃc�Ɓc�݂����Ȋ����Łu�Ɓv�łȂ��ŗ񋓂��邽�߂̊֐�
;�����ɕ\�����镶����Ə���(0�Ŗ����A��0�ŗL��)���w��B�ő�5�܂�
;-------------------------------------------------
@PRINT_EMUNERATE(�\��:1,����:1,�\��:2,����:2,�\��:3,����:3,�\��:4,����:4,�\��:5,����:5)
#DIMS �\��,6
#DIM ����,6

SIF ����:1
	PRINTFORM %�\��:1%
SIF ����:1 && (����:2 || ����:3 || ����:4 || ����:5)
	PRINT ��
SIF ����:2
	PRINTFORM %�\��:2%
SIF ����:2 && (����:3 || ����:4 || ����:5)
	PRINT ��
SIF ����:3
	PRINTFORM %�\��:3%
SIF ����:3 && (����:4 || ����:5)
	PRINT ��
SIF ����:4
	PRINTFORM %�\��:4%
SIF ����:4 && ����:5
	PRINT ��
SIF ����:5
	PRINTFORM %�\��:5%
;-------------------------------------------------
;�����Ń��C�h���痬�p�����Ă��������܂����B���ӁB
;�P��1/�P��2/�c/�P��n �̏����ŏ����ꂽARGS:0�`�̒P��̂ǂꂩ�𓙊m���ŕԂ�
;(ARGS����������̂͊֐��Ȃǂ��˂����܂�邱�Ƃ�z�肵�Ă��邽��)
;�Q�͉����o�͂��Ȃ��I���Ƃ���
;�I�����̐���100�܂Ŋg���ARESULT�ޔ������ǉ�
;���I���������m���Ȃ�FOR-NEXT�g��Ȃ��Ă悢�Ǝv�����̂�RAND�ōς܂���
;-------------------------------------------------
@TEXTR(ARGS, ARGS:1, ARGS:2, ARGS:3, ARGS:4, ARGS:5, ARGS:6)
#FUNCTIONS
#DIM  L_RESULT               ;RESULT�ޔ�p
#DIMS DYNAMIC CHOICES        ;����
#DIMS DYNAMIC STR_ARRAY, 100 ;�I�����i�[�p�̈ꎞ�ϐ�
;�܂���ɂ܂Ƃ߂�
ARGS = %ARGS%\/%ARGS:1%\/%ARGS:2%\/%ARGS:3%\/%ARGS:4%\/%ARGS:5%\/%ARGS:6%
;�s�v��"/"�������
;���ARGS�������//����������o���Ĕ���̎ז��ɂȂ�̂�
;1.//�͒u���ō��
;2.�Ŗ�����/�Ȃ���iSPLIT��RAND�����̂܂܎g���s����j
ARGS '= REPLACE(ARGS, "\/+", "/")
SIF CHARATU(ARGS, STRLENSU(ARGS) - 1) == "/"
	ARGS '= SUBSTRINGU(ARGS, 0, STRLENSU(ARGS) - 1)
SPLIT ARGS, "/", STR_ARRAY
CHOICES '= STR_ARRAY:(RAND:RESULT)
SIF CHOICES == "�Q"
	CHOICES =
RESULT = L_RESULT
RETURNF CHOICES
;-------------------------------------------------
;���ǔ���֐�@ONCE
;�����Ŏg�p����֐��ł�
;ARGS�̓C�x���g�ԍ��AARG�͐^���Ə��񔻒���X�V���Ȃ��AARG:1�̓L�����o�^�ԍ��i�ȗ������TARGET,-1�Ȃ�MASTER�j
;{�C�x���g�ԍ�}/�@�Ƃ����������CSTR:1�ɂԂ�����ł����܂�
;-------------------------------------------------
@ONCE(ARGS,ARG, ARG:1)
#FUNCTION
;ARG:2�̕ϊ�
ARG:1 = ARG:1 ? ARG:1 # TARGET
ARG:1 = ARG:1 == -1 ? MASTER # ARG:1

SIF CSTR:(ARG:1):1 == ""
	CSTR:(ARG:1):1 = /

LOCALS = /%ARGS%/
IF STRCOUNT(CSTR:(ARG:1):1,LOCALS)
	RETURNF 0
ELSEIF ARG
	RETURNF 1
ENDIF
;���񔻒�X�V
CSTR:(ARG:1):1 = %CSTR:(ARG:1):1%%ARGS%/
RETURNF 1

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�t���O���Z�b�g����
;CALL		SYSTEM
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@EVENTTRAIN
FOR LOCAL,0,CHARANUM
	CSTR:LOCAL:1 =
NEXT

;-------------------------------------------------
;���ǔ���֐�@FIRSTTIME
;�����Ŏg�p����֐��ł��B
;ARGS�̓C�x���g�ԍ��AARG�͐^���Ə��񔻒���X�V���Ȃ��AARG:1�̓L�����o�^�ԍ��i�ȗ������TARGET,-1�Ȃ�MASTER�j
;{�C�x���g�ԍ�}/�@�Ƃ����������CSTR:0�ɂԂ�����ł����܂�
;-------------------------------------------------
@FIRSTTIME(ARGS,ARG, ARG:1)
#FUNCTION
;ARG:1�̕ϊ�
ARG:1 = ARG:1 ? ARG:1 # TARGET
ARG:1 = ARG:1 == -1 ? MASTER # ARG:1
SIF CSTR:(ARG:1):0 == ""
	CSTR:(ARG:1):0 = /

LOCALS = /%ARGS%/
IF STRCOUNT(CSTR:(ARG:1):0,LOCALS)
	RETURNF 0
ELSEIF ARG
	RETURNF 1
ENDIF
;���񔻒�X�V
CSTR:(ARG:1):0 = %CSTR:(ARG:1):0%%ARGS%/
RETURNF 1

;-------------------------------------------------
;�֐���:EXP_UP
;�T�@�v:�o���l�ϓ��`�F�b�N
;���@��:ARG:0�c�Q�Ƃ���EXP
;       ARG:1�c�Q�Ƃ���L�����ԍ�
;-------------------------------------------------
@EXP_UP(ARG,ARG:1)
#FUNCTION
RETURNF EXP:(ARG:1):ARG - TCVAR:(ARG:1):(400 + ARG)

;-------------------------------------------------
;�֐���:INVAGINA
;�T�@�v:V�ɉ��������Ă���̂���Ԃ�
;���@��:ARG:0�c�Q�Ƃ���L�����ԍ�
;�߂�l:0�Ȃ�
;�߂�l:1 �y�j�X
;�߂�l:2 �o�C�u
;-------------------------------------------------
@INVAGINA(ARG)
#FUNCTION
IF TEQUIP:ARG:50
	IF TALENT:PLAYER:2 & 2
		RETURNF 1
	ELSE
		RETURNF 3
	ENDIF
ELSEIF TEQUIP:ARG:�o�C�u
	RETURNF 2
ENDIF
;-------------------------------------------------
;�֐���:INANAL
;�T�@�v:A�ɉ��������Ă���̂���Ԃ�
;���@��:ARG:0�c�Q�Ƃ���L�����ԍ�
;�߂�l:0�Ȃ�
;�߂�l:1 �y�j�X
;�߂�l:2 �A�i���o�C�u
;�߂�l:3 �A�i���r�[�Y
;-------------------------------------------------
@INANAL(ARG)
#FUNCTION
IF TEQUIP:ARG:51
	RETURNF 1
ELSEIF TEQUIP:ARG:�A�i���o�C�u
	RETURNF 2
ELSEIF TEQUIP:ARG:�A�i���r�[�Y
	RETURNF 3
ENDIF
;-------------------------------------------------
;�֐���:HETEROSEX
;ARG��ARG:1�̐��ʂ��������ǂ�����Ԃ��ق�Ƃ�HOMOSEX�����ǌꊴ�������̂�
;������������̂��A�����Ȃ����̂�j�Ƃ���
;�߂�l0=�ِ�
;�߂�l1=����(���Y)
;�߂�l2=����(�Q�C)
;-------------------------------------------------
@HETEROSEX(ARG,ARG:1)
#FUNCTION
IF GETBIT(TALENT:ARG:2,0) == GETBIT(TALENT:(ARG:1):2,0)
	IF GETBIT(TALENT:ARG:2,0)
		RETURNF 1
	ELSE
		RETURNF 2
	ENDIF
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;�֐���:GET_TARGETNUM
;��������TARGET�̐���Ԃ�
;�����p�~����FOR-NEXT��r�����č�����
;-------------------------------------------------
@GET_TARGETNUM()
#FUNCTION
RETURNF MAX(0, FINDELEMENT(TARGET, 0) - 1)
;-------------------------------------------------
;�֐���:IN_ROOM_MEMBER
;�����̒��œ���v�f�ł̍Œ�E�ō������L�������擾
;ARGS MAX��MIN����I��
;ARG �����̔ԍ�
;ARGS:1 �ΏۂƂȂ�ϐ��̖��O
;ARG:1 �ϐ��̔ԍ�
;-------------------------------------------------
@IN_ROOM_MEMBER, ARGS, ARG, ARGS:1, ARG:1
#FUNCTION
VARSET LOCAL, 0
SELECTCASE ARGS:1
	CASE "CFLAG"
		FOR LOCAL, 1, CHARANUM
			SIF CFLAG:LOCAL:���݈ʒu != ARG
				CONTINUE
			IF LOCAL:3++ == 0
				LOCAL:1 = CFLAG:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MAX" && LOCAL:1 < CFLAG:LOCAL:(ARG:1)
				LOCAL:1 = CFLAG:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MIN" && LOCAL:1 > CFLAG:LOCAL:(ARG:1)
				LOCAL:1 = CFLAG:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF LOCAL:1 == CFLAG:LOCAL:(ARG:1) && RAND:2
				LOCAL:1 = CFLAG:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ENDIF
		NEXT
		RETURNF LOCAL:2
	CASE "TCVAR"
		FOR LOCAL, 1, CHARANUM
			SIF CFLAG:LOCAL:���݈ʒu != ARG
				CONTINUE
			IF LOCAL:3++ == 0
				LOCAL:1 = TCVAR:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MAX" && LOCAL:1 < TCVAR:LOCAL:(ARG:1)
				LOCAL:1 = TCVAR:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MIN" && LOCAL:1 > TCVAR:LOCAL:(ARG:1)
				LOCAL:1 = TCVAR:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF LOCAL:1 == TCVAR:LOCAL:(ARG:1) && RAND:2
				LOCAL:1 = TCVAR:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ENDIF
		NEXT
		RETURNF LOCAL:2
	CASE "ABL"
		FOR LOCAL, 1, CHARANUM
			SIF CFLAG:LOCAL:���݈ʒu != ARG
				CONTINUE
			IF LOCAL:3++ == 0
				LOCAL:1 = ABL:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MAX" && LOCAL:1 < ABL:LOCAL:(ARG:1)
				LOCAL:1 = ABL:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MIN" && LOCAL:1 > ABL:LOCAL:(ARG:1)
				LOCAL:1 = ABL:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF LOCAL:1 == ABL:LOCAL:(ARG:1) && RAND:2
				LOCAL:1 = ABL:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ENDIF
		NEXT
		RETURNF LOCAL:2
	CASE "TALENT"
		FOR LOCAL, 1, CHARANUM
			SIF CFLAG:LOCAL:���݈ʒu != ARG
				CONTINUE
			IF LOCAL:3++ == 0
				LOCAL:1 = TALENT:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MAX" && LOCAL:1 < TALENT:LOCAL:(ARG:1)
				LOCAL:1 = TALENT:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF ARGS == "MIN" && LOCAL:1 > TALENT:LOCAL:(ARG:1)
				LOCAL:1 = TALENT:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ELSEIF LOCAL:1 == TALENT:LOCAL:(ARG:1) && RAND:2
				LOCAL:1 = TALENT:LOCAL:(ARG:1)
				LOCAL:2 = LOCAL
			ENDIF
		NEXT
		RETURNF LOCAL:2
ENDSELECT
;FileName_COMMON.ERB ------------------------------- Rev1.00
;TARGET�Đݒ�֐�
;CALL		USER
;ARG		VOID
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
;
;���X�g�֐��ƃ\�[�g�֐����ł����̂ł��Ȃ�ȈՉ��ł�������
@TARGETSET_CHACK(OP)
#DIMS OP         ;SHOW_STATUS�͓����X�V�����ƃ}�Y�C�̂ŃX�L�b�v����p
#DIM  TARGET_CNT ;�^�[�Q�b�g�̐�
#DIM  L_ID       ;REF�΍�A�n������
#DIM  SWAP_ID    ;���݂�TARGET�w�菈���p�̈ꎞ�ϐ�
;���ӂӒ���TARGET�𓦂����i����o�Ƃ��ŃY�����Ⴄ�̂Łj
SIF !TFLAG:���݂�TARGET && (CFLAG:TARGET:���ӂ� || CFLAG:MASTER:������)
	TFLAG:���݂�TARGET = TARGET

CALL MAKE_CHARA_LIST("TARGET���X�g", L_ID, TARGET, TARGET_CNT)
SIF !TARGET_CNT
	RETURN
CALL SORT_LIST("�D���~��", TARGET, TARGET_CNT)

LOCAL:1 = TARGET
IF TFLAG:���݂�TARGET > 0
	LOCAL:1 = FINDELEMENT(TARGET, TFLAG:���݂�TARGET)
	IF LOCAL:1 == -1
		LOCAL:1 = 0
		TFLAG:���݂�TARGET = 0
	ENDIF
	LOCAL:1 = TARGET:(LOCAL:1)
ENDIF
ARRAYSHIFT TARGET, 1, LOCAL:1

SIF STRCOUNT(OP, "�u�����X�V�����v")
	RETURN

;�����m�F�̓��X�g���ł���Ă���̂ł����ł͕K�v�Ȃ�
FOR LOCAL, 1, 1 + TARGET_CNT
	CFLAG:(TARGET:LOCAL):���� = 1
NEXT

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�f�[�g�����i�s
;CALL		USER
;ARG		�i�߂鎞�ԁi10���P�ʁj
;RETURN		VOID
;COMMENT
;-----------------------------------------------------------
@DATE_GOES_ON(ARG)
IF (CFLAG:MASTER:���݈ʒu % 100) % 10 && !AT_HOME(MASTER) && CFLAG:MASTER:���݈ʒu != OMANEKIBEYA()
	IF (CFLAG:MASTER:���݈ʒu % 100 % 10) - ARG < 0
		LOCAL:1 = CFLAG:MASTER:���݈ʒu - (CFLAG:MASTER:���݈ʒu % 100 % 10)
	ELSE
		LOCAL:1 = CFLAG:���݈ʒu - ARG
	ENDIF
	FOR LOCAL,0,CHARANUM
		SIF CHK_DATENOW(CFLAG:LOCAL:�f�[�g��)
			CFLAG:LOCAL:���݈ʒu = LOCAL:1
	NEXT
ENDIF
;====================================================
@���Z�␳(ARG)
#FUNCTION
RETURNF 1 + (ABL:PLAYER:ARG - 2) / 10
;====================================================

;-------------------------------------------------
;�֐���:RECOVER
;�T�@�v:BASE�񕜏���
;���@��:ARGS
;		ARG:0�c�Q�Ƃ���L�����ԍ�
;		ARG:1�c�񕜗�
;       ARGS�c�x�[�X
;		ARGS:1	�\���t��
;-------------------------------------------------
@RECOVER(ARG,ARG:1,ARGS,ARGS:1)
#DIM  BASE_ID
BASE_ID = FINDELEMENT(BASENAME, ARGS)
BASE:ARG:(ARGS) = LIMIT(BASE:ARG:(ARGS) + ARG:1, 0, MAXBASE:ARG:(ARGS))
SIF ARG:1 > 0 && ARG:1 < 100
	RETURN
IF ARGS != "" && CFLAG:ARG:���݈ʒu == CFLAG:MASTER:���݈ʒu
	IF ARG:1 > 0
		CALL COLORMESSAGE(@"%BASENAME:BASE_ID%�{{ARG:1} �i%CALLNAME:ARG%�j(%ARGS:1%)",C_GREEN,1)
	ELSEIF ARG:1 < 0
		CALL COLORMESSAGE(@"%BASENAME:BASE_ID%�|{ARG:1 * -1} �i%CALLNAME:ARG%�j",C_RED,1)
	ENDIF
ENDIF

;-------------------------------------------------
;�֐���:RECOVER_PERMIL
;�T�@�v:BASE�����񕜏���
;���@��:ARGS
;		ARG:0�c�Q�Ƃ���L�����ԍ�
;       ARGS�c�x�[�X
;�񕜗ʂ�0.1%�P��
;-------------------------------------------------
@RECOVER_PERMIL(ARG,�񕜗�,ARGS,�񕜑��x�̉e��)
#DIM �񕜗�
#DIM �񕜑��x�̉e��
SIF !TALENT:ARG:2 & 2 && ARGS == "����"
	�񕜗� = 0
LOCAL = MAXBASE:ARG:(ARGS) * �񕜗� / 1000
SIF �񕜑��x�̉e��
	LOCAL = LOCAL * (TALENT:ARG:�񕜑��x + 4) / 4
BASE:ARG:(ARGS) = LIMIT(BASE:ARG:(ARGS) + LOCAL, 0, MAXBASE:ARG:(ARGS))

;-------------------------------------------------
;�֐���:BUFF_BASE
;�T�@�v:����BASE���ꎞ�I�ɋ���
;-------------------------------------------------
@BUFF_BASE(ARG,�����\��,�ϓ��l)
#DIM �ϓ��l
#DIM �����\��
SIF !TALENT:ARG:2 & 2 && �����\�� == 6
	�ϓ��l = 0
SIF �ϓ��l < 0 && ABS(�ϓ��l) > MAXBASE:ARG:�����\��
	�ϓ��l = MAXBASE:ARG:�����\�� * -1

MAXBASE:ARG:�����\�� += �ϓ��l
BASE:ARG:�����\�� += �ϓ��l
BUFF:ARG:�����\�� += �ϓ��l

;-------------------------------------------------
;�֐���:BUFF_RESET
;�T�@�v:�o�t�����S�Ƀ��Z�b�g
;-------------------------------------------------
@BUFF_RESET
FOR LOCAL,0,CHARANUM
	FOR LOCAL:1, 0, 16
		MAXBASE:LOCAL:(LOCAL:1) -= BUFF:LOCAL:(LOCAL:1)
		BASE:LOCAL:(LOCAL:1) -= BUFF:LOCAL:(LOCAL:1)
		BUFF:LOCAL:(LOCAL:1) = 0
	NEXT
NEXT

;-------------------------------------------------
;�֐���:CHANGE_CFLAG
;�T�@�v:���b�Z�[�W�t��CFLAG�ϓ�
;�}�C�i�X�ɂ͂Ȃ�Ȃ��悤�ɂȂ��Ă�̂Œ���
;-------------------------------------------------
@CHANGE_CFLAG(�ϓ��t���O,�Ώ�,�ϓ���)
#DIM �ϓ��t���O
#DIM �Ώ�
#DIM �ϓ���

CFLAG:�Ώ�:�ϓ��t���O = MAX(CFLAG:�Ώ�:�ϓ��t���O + �ϓ���, 0)
IF �ϓ��� > 0
	CALL COLORMESSAGE(@"%CFLAGNAME:�ϓ��t���O%�{{�ϓ���}�i%CALLNAME:�Ώ�%�j",C_YELLOW,2,1)
ELSE
	CALL COLORMESSAGE(@"%CFLAGNAME:�ϓ��t���O%�|{-�ϓ���}�i%CALLNAME:�Ώ�%�j",C_RED,2,1)
ENDIF
;-------------------------------------------------
;�֐���:SHIRAHU
;�T�@�v:���ʂɈӎ��������Ԃ��@2���ƃE�t�t��
;-------------------------------------------------
@SHIRAHU(ARG)
#FUNCTION
IF FLAG:70
	RETURNF 0
ELSEIF !CFLAG:ARG:���� && !CFLAG:ARG:�Y���Q�� && !TCVAR:ARG:�D�� && !CFLAG:ARG:����
	IF TFLAG:102 == 2
		RETURNF 2
	ELSE
		RETURNF 1
	ENDIF
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;�֐���:BETWEENTIME
;�T�@�v:TIME��ARG����ARG:1�܂ł̊ԂȂ̂��Ԃ��֐�
;-------------------------------------------------
@BETWEENTIME(ARG,ARG:1)
#FUNCTION
IF ARG < ARG:1
	IF TIME >= ARG && TIME < ARG:1
		RETURNF 1
	ELSE
		RETURNF 0
	ENDIF
ELSE
	IF TIME >= ARG || TIME < ARG:1
		RETURNF 1
	ELSE
		RETURNF 0
	ENDIF
ENDIF
;-------------------------------------------------
;�֐���:VISIT
;�T�@�v:���̃L�����̊������ԑт��ǂ�����Ԃ��֐�
;-------------------------------------------------
@VISIT(ARG)
#FUNCTION
RETURNF BETWEENTIME(CFLAG:ARG:���K����,CFLAG:ARG:�A���)
;-------------------------------------------------
;�֐���:��������
;�T�@�v:�Z�ݍ��݃L�������Q�Ă邩�ǂ�����Ԃ��֐��������̂�S���g����悤��
;�Q�Ă��1��Ԃ�
;-------------------------------------------------
@��������(ARG)
#FUNCTION
SIF ARG == MASTER
	RETURNF CFLAG:MASTER:����
IF CFLAG:ARG:����
	RETURNF 1
ELSEIF !BETWEENTIME(CFLAG:ARG:�N������, CFLAG:ARG:�A�Q����)
	RETURNF 1
ELSE
	RETURNF 0
ENDIF
;-------------------------------------------------
;�֐���:�q���̐�������
;�T�@�v:�L����ARG�̎q�����Q�Ă邩�ǂ�����Ԃ��֐�
;�Q�Ă��1��Ԃ�
;-------------------------------------------------
@�q���̐�������(ARG)
#FUNCTION
#DIM �q���̋N������
#DIM �q���̏A�Q����
SIF !TALENT:ARG:�玙��
	RETURNF 0
�q���̋N������ = CFLAG:ARG:�N������
�q���̏A�Q���� = CFLAG:ARG:�A�Q���� - 120 + (CFLAG:ARG:�A�Q���� - 120 < 0 ? 1440 # 0 )
IF !BETWEENTIME(�q���̋N������, �q���̏A�Q����)
	RETURNF 1
ELSE
	RETURNF 0
ENDIF
;-------------------------------------------------
;�֐���:WORKING
;�T�@�v:���̃L�����̎d�����ԑт��ǂ�����Ԃ��֐�
;-------------------------------------------------
@WORKING(ARG)
#FUNCTION
IF !SHIRAHU(ARG)
	RETURNF 0
ELSEIF !BETWEENTIME(TCVAR:ARG:�d���J�n,TCVAR:ARG:�d���I��)
	RETURNF 0
ELSEIF BASE:ARG:�d���� <= 0
	RETURNF 0
ELSEIF CHARA_HOLIDAY(ARG)
	RETURNF 0
ELSE
	RETURNF 1
ENDIF
;-------------------------------------------------
;�֐���:�A�����s
;�T�@�v:����R�}���h�A�����s�����ۃy�i���e�B���������邩
;�߂�l:0���ƃy�i���������Ȃ�
;-------------------------------------------------
@�A�����s()
#FUNCTION
SIF TARGET != TFLAG:103
	RETURNF 0
SELECTCASE PREVCOM
	CASE 1,60,61,65,67,68,300,304,410,604,621
		RETURNF 0
	CASEELSE
		RETURNF 1
ENDSELECT

;-------------------------------------------------
;�֐���:�J�E���^�[�s���R�}���h
;�߂�l:0�łȂ��ƃJ�E���^�[�s��
;-------------------------------------------------
@�J�E���^�[�s���R�}���h(ARG)
#FUNCTION
SELECTCASE ARG
	CASE 697 TO 699
		RETURNF 1
	CASEELSE
		RETURNF 0
ENDSELECT
;-------------------------------------------------
;�֐���:ENDUFUFU
;�T�@�v:���ӂӏI�������Z�b�g����
;-------------------------------------------------
@ENDUFUFU(ARG)
;���Ԓ�~���͕����Z�b�g���Ȃ�
;����������Ȃǂ͂��ׂă��Z�b�g�������ɂ���܂�
SIF !FLAG:70
	CALL CHANGE_CLOTHES(ARG, "�ߑ����Z�b�g")
;������TEQUIP��
CALL CLOTHES_SETTING_TRAIN(ARG)

;�E�t�t���n�������Z�b�g
;TEQUIP:ARG:10-TEQUIP:ARG:149������������
VARSET TEQUIP:ARG:0, 0, 10, 150
;FOR ARG:1,10,150
;	TEQUIP:ARG:(ARG:1) = 0
;NEXT

;�ː��֌W���Z�b�g
IF TFLAG:102 < 2
	BASE:ARG:�ː� = 0
	TCVAR:ARG:�C������ = 0
ENDIF
CFLAG:ARG:���ӂ� = 0
TEQUIP:ARG:50 = -1
TEQUIP:ARG:51 = -1
TEQUIP:ARG:�㔼�g�͂������ = 0
TEQUIP:ARG:�����g���炵��� = 0
TCVAR:ARG:����� = 0
TCVAR:ARG:�D���ɂ��� = 0

;�ꉞMASTER���������i���Ƃ��Ȃ��ƁA�I������������������\�������\��������̂�
IF CFLAG:MASTER:���ӂ�
	CFLAG:MASTER:���ӂ� = 0
	CALL CHANGE_CLOTHES(MASTER, "�ߑ����Z�b�g")
	CALL CLOTHES_SETTING_TRAIN(MASTER)
	VARSET TEQUIP:MASTER:0, 0, 10, 150
	TEQUIP:MASTER:50 = -1
	TEQUIP:MASTER:51 = -1
	TEQUIP:MASTER:�㔼�g�͂������ = 0
	TEQUIP:MASTER:�����g���炵��� = 0
ENDIF

IF CFLAG:����
	IF CFLAG:ARG:���ɐ��t
		PRINTFORML %CALLNAME:MASTER%��%CALLNAME:ARG%�̌��̒��Ɏc���Ă������t���n������
		CFLAG:ARG:���ɐ��t = 0
	ENDIF
	IF CFLAG:ARG:��ɐ��t || CFLAG:ARG:��ɐ��t
		PRINTFORM %CALLNAME:MASTER%��%CALLNAME:ARG%��
		IF CFLAG:ARG:��ɐ��t && !CFLAG:ARG:��ɐ��t
			PRINTFORM ��ɂւ΂����
		ELSEIF !CFLAG:ARG:��ɐ��t && CFLAG:ARG:��ɐ��t
			PRINTFORM ��ɂ��т����
		ELSE
			PRINTFORM ��Ǝ�������Ă���
		ENDIF
		PRINTFORML ���t��@���Ƃ���
		CFLAG:ARG:��ɐ��t = 0
		CFLAG:ARG:��ɐ��t = 0
	ENDIF
ENDIF
IF !FLAG:70
	TFLAG:�^�� = 0
	IF CFLAG:ARG:���ɐ��t
		PRINTFORML %CALLNAME:ARG%�͌��̒��Ɏc���Ă������t��\@ ABL:ARG:���t���� > 2 ? ���݊����� # �f���o���� \@
		CFLAG:ARG:���ɐ��t = 0
	ENDIF
	IF CFLAG:ARG:��ɐ��t || CFLAG:ARG:��ɐ��t
		PRINTFORM %CALLNAME:ARG%��
		IF CFLAG:ARG:��ɐ��t && !CFLAG:ARG:��ɐ��t
			PRINTFORM ��ɂւ΂����
		ELSEIF !CFLAG:ARG:��ɐ��t && CFLAG:ARG:��ɐ��t
			PRINTFORM ��ɂ��т����
		ELSE
			PRINTFORM ��Ǝ�������Ă���
		ENDIF
		PRINTFORML ���t��\@ ABL:ARG:���t���� > 2 ? ���Ɋ܂� # �@���� \@
		CFLAG:ARG:��ɐ��t = 0
		CFLAG:ARG:��ɐ��t = 0
	ENDIF
ENDIF
;-------------------------------------------------------------
;ARG�Ƃ��Ȃ��������������ꍇ�A���҂Ƀ��Y�i�Q�C�j�o����ǉ�����֐�
;-------------------------------------------------------------
@ADD_EXP_LESNIAN(UP_EXP,ARG,ARGS)
#DIM UP_EXP
#DIM SAMESEX

;���������ȗ������TARGET����
SIF !ARG
	ARG = TARGET
IF HETEROSEX(ARG,MASTER)
	SAMESEX = 50 + HETEROSEX(ARG,MASTER)
	EXP:SAMESEX += UP_EXP
	EXP:PLAYER:SAMESEX += UP_EXP
	IF ARGS != ""
		CALL COLORMESSAGE(@"%EXPNAME:SAMESEX%�{{UP_EXP}�i%CALLNAME:ARG%�j",C_YELLOW,2,1)
		CALL COLORMESSAGE(@"%EXPNAME:SAMESEX%�{{UP_EXP}�i%CALLNAME:MASTER%�j",C_YELLOW,2,1)
	ENDIF
ENDIF

;-------------------------------------------------
;�C�x���g�ȂǂŃL�����ꍇ�̏���
;-------------------------------------------------
@GET_ANGRY(ARG)
CFLAG:ARG:�s�@�� = 1
CFLAG:ARG:�u�`�M�� = 1
TALENT:ARG:�@�� = -1

;FileName_COMMON.ERB ------------------------------- Rev1.00
;�𐌂���Ԏ擾
;CALL		USER
;ARG		�L����No
;RETURN		�𐌂����_toSTR
;COMMENT
;-----------------------------------------------------------
@ALCOHOL_FACE(ARG)
#FUNCTIONS
SIF BASE:ARG:���C <= 2
	RETURNF "�@�f�ʁ@"
SELECTCASE BASE:ARG:���C
	CASE IS > (MAXBASE:ARG:���C / 10) * 8
		RETURNF "���ł���"
;	CASE IS > (MAXBASE:ARG:���C / 10) * 7
;		RETURNF "�ւׂꂯ"
	CASE IS > (MAXBASE:ARG:���C / 10) * 5
		RETURNF "�����ǂ�"
	CASE IS <= (MAXBASE:ARG:���C / 10) * 5
		RETURNF "�ق됌��"
ENDSELECT
;-------------------------------------------------
;�͂��^������ �̑I������\�������͌��ʂ�Ԃ��֐�
;���� 0=�m��I�����̕�����A1=�ے�I�����̕�����
;�߂�l 0=�͂��A1=������
;-------------------------------------------------
@ASK_YN(ARGS:0 = "��  ��", ARGS:1 = "������")
CURRENTREDRAW
LOCAL:0 = RESULT
REDRAW 0
PRINTBUTTON @" [%ARGS:0%]", 0
PRINTL
PRINTBUTTON @" [%ARGS:1%]", 1
PRINTL
$INPUT_LOOP
INPUT
IF RESULT != 0 && RESULT != 1
	CLEARLINE 1
	GOTO INPUT_LOOP
ENDIF
REDRAW LOCAL:0
RETURN RESULT
;-------------------------------------------------
;����ȋ@�\�����{�^�����쐬����֐�
;ARG�͓��͂���鐔���AARG:1��1��ݒ肷��ƊD�F�ɁA
;ARG:2��1��ݒ肷��ƃ{�^�������F�AARG:3��1��ݒ肷��ƃ{�^��������(�D�F)
;-------------------------------------------------
@PRINTBUTTON_EX(ARGS:0, ARG,ARG:1,ARG:2,ARG:3)
IF ARG:3
	SETCOLOR C_L_GRAY
	PRINTFORM %ARGS:0%
ELSE
	SIF ARG:2
		SETCOLOR C_YELLOW
	SIF ARG:1
		SETCOLOR C_L_GRAY
	PRINTBUTTON @"%ARGS:0%", ARG
ENDIF
RESETCOLOR
;-------------------------------------------------
;����ȋ@�\�����{�^�����쐬����֐�
;ARG�͓��͂���鐔���AARG:1��1��ݒ肷��ƊD�F�ɁA
;ARG:2��1��ݒ肷��ƃ{�^�������F�AARG:3��1��ݒ肷��ƃ{�^��������(�D�F)
;-------------------------------------------------
@PRINTBUTTON_EXC(ARGS:0, ARG,ARG:1,ARG:2,ARG:3)
IF ARG:3
	SETCOLOR C_L_GRAY
	PRINTFORMC %ARGS:0%
ELSE
	SIF ARG:2
		SETCOLOR C_YELLOW
	SIF ARG:1
		SETCOLOR C_L_GRAY
	PRINTBUTTONC @"%ARGS:0%", ARG
ENDIF
RESETCOLOR
;-------------------------------------------------
;Fisher-Yates�A���S���Y���ɂ��V���b�t���z��̍쐬
;��p�z��SHAFFLE_ARRAY���g�p
;���� 0:�z��̒����i0�`ARG:0-1�܂ł̃V���b�t���j
;-------------------------------------------------
@FISHER_YATES_SHAFFLE(ARG:0)
;�V���b�t���z��̏�����
SIF !INRANGE(ARG:0 , 1 , 499)
	THROW ����({ARG:0})���ُ�ł��B1�`499�͈̔͂Ŏw�肵�Ă��������B
VARSET SHAFFLE_ARRAY , 0
;SHAFFLE_ARRAY�̏�����
FOR LOCAL:0 , 0 , ARG:0
	SHAFFLE_ARRAY:(LOCAL:0) = LOCAL:0
NEXT

FOR LOCAL:0 , 0 , ARG:0 - 1
	LOCAL:1 = RAND(LOCAL:0 , ARG:0)
	SWAP SHAFFLE_ARRAY:(LOCAL:0), SHAFFLE_ARRAY:(LOCAL:1)
NEXT
;�I�[�p��-1���Z�b�g
SHAFFLE_ARRAY:(ARG:0) = -1
RETURN 0

@NEMUKE()
#FUNCTION
LOCAL =  TIME + 1440 * DAY - TFLAG:���Ȃ��N�� - TFLAG:198
RETURNF LOCAL

;-------------------------------------------------
;�����\��(ARG)
;�^����ꂽTIME��H��MM���\���ɕϊ�
;-------------------------------------------------
@�����\��(ARG)
#FUNCTIONS
#DIM HOUR
#DIM MINUTE
#DIMS ����
HOUR   = ARG / 60
MINUTE = ARG % 60
���� = %TOSTR(HOUR)%��%TOSTR(MINUTE,"00")%��
RETURNF ����
;-------------------------------------------------
;TIMESTOP(ARG)
;���̃L�����̎��Ԓ�~��Ԃ�Ԃ�
;0=���Ԓ�~�Ȃ��i�ӎ�����j�@1=���Ԓ�~���E����i�ӎ�����j�@2=���S�Ɏ~�߂��Ă�i�ӎ����Ȃ���ԁj
;-------------------------------------------------
@TIMESTOP(ARG)
#FUNCTION
;�����𗪂���TARGET
SIF !ARG
	ARG = TARGET
IF !FLAG:70
	LOCAL = 0
ELSEIF CFLAG:ARG:344 == 1
	LOCAL = 1
ELSE
	LOCAL = 2
ENDIF
RETURNF LOCAL

@KIGEN_CHANGE(ARG,�m��,�X��)
#DIM �m��
#DIM �X��
;�X����1�ɂ����+�̂݁A-1�ɂ����-�̂�
SIF TALENT:ARG:����R����
	�m�� /= 2
IF RAND:100 < �m��
	IF !�X��
		IF !RAND:2
			TALENT:ARG:�@�� ++
		ELSE
			TALENT:ARG:�@�� --
		ENDIF
	ELSE
		TALENT:ARG:�@�� += �X��
	ENDIF
ENDIF
TALENT:ARG:�@�� = LIMIT(TALENT:ARG:�@��,-1,1)

;-------------------------------------------------
;ARG���j�����ł��Ȃ����j�Ȃ�1
;ARG���������ł��Ȃ������Ȃ�2��Ԃ�
;���爤�~�����Ŗ���
;-------------------------------------------------
@OTOKOGIRAI(ARG)
#FUNCTION
;����
SIF TALENT:ARG:���ʚn�D == -1
	RETURNF 0
;����
SIF TALENT:ARG:����
	RETURNF 0
SIF TALENT:ARG:���~
	RETURNF 0
;�j����
IF TALENT:ARG:���ʚn�D & 1 && !(TALENT:PLAYER:2 & 1)
	RETURNF 1
;������
ELSEIF TALENT:ARG:���ʚn�D & 2 && !(TALENT:PLAYER:2 & 2)
	RETURNF 2
ENDIF
RETURNF 0

;-------------------------------------------------
;�L�����`�F�b�NF�֐�
;-------------------------------------------------
;�L�����N�^�[����������ɍ��v���Ă��邩�ǂ�����Ԃ�
;������TYPE���ƂɎw��
;�������������ɖ��O�����鎞�̓L�������X�g�N���X�֐��𑝐݂��邱�Ƃɂ���
;-------------------------------------------------
@CHECK_CHARA(C_ID, TYPE = "����")
#FUNCTION
#LOCALSIZE 1
#LOCALSSIZE 1
#DIMS DYNAMIC TYPE ;����^�C�v�ADYNAMIC�����̂ő��d�Ăяo���\
#DIM C_ID          ;�o�^�ԍ�
SELECTCASE TYPE
;��{����
CASE "����"
	RETURNF !CFLAG:C_ID:�o��
CASE "�ח�"
	RETURNF (TALENT:C_ID:�v�� || TALENT:C_ID:���� || TALENT:C_ID:���~ || TALENT:C_ID:���l || TALENT:C_ID:�Z�t��)
CASE "��݈���"
;C_ID��MASTER�̎�݂������Ă���
	RETURNF CFLAG:C_ID:��݈���
CASE "��݈����"
;C_ID��MASTER�Ɏ�݂������Ă���
	RETURNF CFLAG:C_ID:��݈����
CASE "��������"
	RETURNF (MARK:C_ID:�������� >= 1)
CASE "��������"
	RETURNF (MARK:C_ID:�������� >= 1)
CASE "�����o��"
	RETURNF (EXP:C_ID:�����o�� >= 1)
CASE "��������"
	RETURNF (CFLAG:C_ID:�������� >= 1)
CASE "����"
	RETURNF (CFLAG:C_ID:���݈ʒu == CFLAG:MASTER:���݈ʒu)
CASE "�S��"
	{
	SIF EQUIP:C_ID:�A�N�Z�T�� || EQUIP:C_ID:�X�q || EQUIP:C_ID:�C || EQUIP:C_ID:�C��
		 || EQUIP:C_ID:�����g�����P || EQUIP:C_ID:�����g�����Q
		 || EQUIP:C_ID:�㔼�g�����P || EQUIP:C_ID:�㔼�g�����Q
		 || EQUIP:C_ID:���I�^�[�h || EQUIP:C_ID:�{�f�B�[�X�[�c || EQUIP:C_ID:�����s�[�X || EQUIP:C_ID:����
		 || EQUIP:C_ID:�Y�{�� || EQUIP:C_ID:�����g�㒅 || EQUIP:C_ID:�X�J�[�g
		 || EQUIP:C_ID:�㔼�g�㒅�P || EQUIP:C_ID:�㔼�g�㒅�Q || EQUIP:C_ID:�O��
		 || EQUIP:C_ID:���̑��P || EQUIP:C_ID:���̑��Q || EQUIP:C_ID:���̑��R || EQUIP:C_ID:�r������
	}
		RETURNF 0
	RETURNF 1
CASE "�I���i"
	RETURNF TALENT:C_ID:���� == 1
CASE "�ӂ��Ȃ�"
	RETURNF TALENT:C_ID:���� == 3
CASE "�P���~�~"
	RETURNF TALENT:C_ID:������ != 0
CASE "�l�Ԏ�"
	RETURNF TALENT:C_ID:������ == 0
CASE "�񏈏�"
	SIF TALENT:C_ID:���� == 2
		RETURNF 0
	RETURNF GROUPMATCH(TALENT:C_ID:����, 0, -1)
CASEELSE
	THROW �s����TYPE%TYPE%
ENDSELECT

;-------------------------------------------------
;�L������r�֐�
;-------------------------------------------------
;�S�����K�{
;�X�}�[�g�Ƃ͒������R�s�y�S�������ł���
;-------------------------------------------------
@CHARA_COMPARE(VAR_NAME, VAR_ID, CHARA_A, TYPE, CHARA_B)
#FUNCTION
#DIMS VAR_NAME ;��r�ΏۃL�����ϐ�
#DIM  VAR_ID   ;��r�ΏۃL�����ϐ���ID
#DIM  CHARA_A  ;��r�ΏۃL����A�̓o�^�ԍ�
#DIMS TYPE     ;��r���e
#DIM  CHARA_B  ;��r�ΏۃL����B�̓o�^�ԍ�
SELECTCASE VAR_NAME
CASE "ABL"
	SELECTCASE TYPE
	CASE "=="
		RETURNF ABL:CHARA_A:VAR_ID == ABL:CHARA_B:VAR_ID
	CASE ">"
		RETURNF ABL:CHARA_A:VAR_ID > ABL:CHARA_B:VAR_ID
	CASE ">="
		RETURNF ABL:CHARA_A:VAR_ID >= ABL:CHARA_B:VAR_ID
	CASE "<"
		RETURNF ABL:CHARA_A:VAR_ID < ABL:CHARA_B:VAR_ID
	CASE "<="
		RETURNF ABL:CHARA_A:VAR_ID <= ABL:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "BASE"
	SELECTCASE TYPE
	CASE "=="
		RETURNF BASE:CHARA_A:VAR_ID == BASE:CHARA_B:VAR_ID
	CASE ">"
		RETURNF BASE:CHARA_A:VAR_ID > BASE:CHARA_B:VAR_ID
	CASE ">="
		RETURNF BASE:CHARA_A:VAR_ID >= BASE:CHARA_B:VAR_ID
	CASE "<"
		RETURNF BASE:CHARA_A:VAR_ID < BASE:CHARA_B:VAR_ID
	CASE "<="
		RETURNF BASE:CHARA_A:VAR_ID <= BASE:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "MAXBASE"
	SELECTCASE TYPE
	CASE "=="
		RETURNF MAXBASE:CHARA_A:VAR_ID == MAXBASE:CHARA_B:VAR_ID
	CASE ">"
		RETURNF MAXBASE:CHARA_A:VAR_ID > MAXBASE:CHARA_B:VAR_ID
	CASE ">="
		RETURNF MAXBASE:CHARA_A:VAR_ID >= MAXBASE:CHARA_B:VAR_ID
	CASE "<"
		RETURNF MAXBASE:CHARA_A:VAR_ID < MAXBASE:CHARA_B:VAR_ID
	CASE "<="
		RETURNF MAXBASE:CHARA_A:VAR_ID <= MAXBASE:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "EXP"
	SELECTCASE TYPE
	CASE "=="
		RETURNF EXP:CHARA_A:VAR_ID == EXP:CHARA_B:VAR_ID
	CASE ">"
		RETURNF EXP:CHARA_A:VAR_ID > EXP:CHARA_B:VAR_ID
	CASE ">="
		RETURNF EXP:CHARA_A:VAR_ID >= EXP:CHARA_B:VAR_ID
	CASE "<"
		RETURNF EXP:CHARA_A:VAR_ID < EXP:CHARA_B:VAR_ID
	CASE "<="
		RETURNF EXP:CHARA_A:VAR_ID <= EXP:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "CFLAG"
	SELECTCASE TYPE
	CASE "=="
		RETURNF CFLAG:CHARA_A:VAR_ID == CFLAG:CHARA_B:VAR_ID
	CASE ">"
		RETURNF CFLAG:CHARA_A:VAR_ID > CFLAG:CHARA_B:VAR_ID
	CASE ">="
		RETURNF CFLAG:CHARA_A:VAR_ID >= CFLAG:CHARA_B:VAR_ID
	CASE "<"
		RETURNF CFLAG:CHARA_A:VAR_ID < CFLAG:CHARA_B:VAR_ID
	CASE "<="
		RETURNF CFLAG:CHARA_A:VAR_ID <= CFLAG:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "PALAM"
	SELECTCASE TYPE
	CASE "=="
		RETURNF PALAM:CHARA_A:VAR_ID == PALAM:CHARA_B:VAR_ID
	CASE ">"
		RETURNF PALAM:CHARA_A:VAR_ID > PALAM:CHARA_B:VAR_ID
	CASE ">="
		RETURNF PALAM:CHARA_A:VAR_ID >= PALAM:CHARA_B:VAR_ID
	CASE "<"
		RETURNF PALAM:CHARA_A:VAR_ID < PALAM:CHARA_B:VAR_ID
	CASE "<="
		RETURNF PALAM:CHARA_A:VAR_ID <= PALAM:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "TALENT"
	SELECTCASE TYPE
	CASE "=="
		RETURNF TALENT:CHARA_A:VAR_ID == TALENT:CHARA_B:VAR_ID
	CASE ">"
		RETURNF TALENT:CHARA_A:VAR_ID > TALENT:CHARA_B:VAR_ID
	CASE ">="
		RETURNF TALENT:CHARA_A:VAR_ID >= TALENT:CHARA_B:VAR_ID
	CASE "<"
		RETURNF TALENT:CHARA_A:VAR_ID < TALENT:CHARA_B:VAR_ID
	CASE "<="
		RETURNF TALENT:CHARA_A:VAR_ID <= TALENT:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "TCVAR"
	SELECTCASE TYPE
	CASE "=="
		RETURNF TCVAR:CHARA_A:VAR_ID == TCVAR:CHARA_B:VAR_ID
	CASE ">"
		RETURNF TCVAR:CHARA_A:VAR_ID > TCVAR:CHARA_B:VAR_ID
	CASE ">="
		RETURNF TCVAR:CHARA_A:VAR_ID >= TCVAR:CHARA_B:VAR_ID
	CASE "<"
		RETURNF TCVAR:CHARA_A:VAR_ID < TCVAR:CHARA_B:VAR_ID
	CASE "<="
		RETURNF TCVAR:CHARA_A:VAR_ID <= TCVAR:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASE "MARK"
	SELECTCASE TYPE
	CASE "=="
		RETURNF MARK:CHARA_A:VAR_ID == MARK:CHARA_B:VAR_ID
	CASE ">"
		RETURNF MARK:CHARA_A:VAR_ID > MARK:CHARA_B:VAR_ID
	CASE ">="
		RETURNF MARK:CHARA_A:VAR_ID >= MARK:CHARA_B:VAR_ID
	CASE "<"
		RETURNF MARK:CHARA_A:VAR_ID < MARK:CHARA_B:VAR_ID
	CASE "<="
		RETURNF MARK:CHARA_A:VAR_ID <= MARK:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT

CASEELSE
	THROW �s����VAR_NAME�@%VAR_NAME%
ENDSELECT

[SKIPSTART]
�R�����R�s�y���Ēu������΍��ڂ��ӂ₹��
CASE "CVAR"
	SELECTCASE TYPE
	CASE "=="
		RETURNF CVAR:CHARA_A:VAR_ID == CVAR:CHARA_B:VAR_ID
	CASE ">"
		RETURNF CVAR:CHARA_A:VAR_ID > CVAR:CHARA_B:VAR_ID
	CASE ">="
		RETURNF CVAR:CHARA_A:VAR_ID >= CVAR:CHARA_B:VAR_ID
	CASE "<"
		RETURNF CVAR:CHARA_A:VAR_ID < CVAR:CHARA_B:VAR_ID
	CASE "<="
		RETURNF CVAR:CHARA_A:VAR_ID <= CVAR:CHARA_B:VAR_ID
	CASEELSE
		THROW �s����TYPE�@%TYPE%
	ENDSELECT
[SKIPEND]

;-------------------------------------------------
;�X�e�[�^�X�]���\���֐�
;-------------------------------------------------
;����@PRINT_�A���t�@�x�b�g�]��
;������]���Ώې��l�ɂ��邱�ƂŔėp����
;RANK_SCALE�̖��̂��킩��₷������
;-------------------------------------------------
@PRINT_RANK(VAR_VALUE, RANK_SCALE)
#DIM  VAR_VALUE  ;�]���Ώې��l
#DIMS RANK_SCALE ;�]���Ɏg�p����ړx�̎��
#DIM  RANK       ;�]�������N�A�����������قǗD�G
#DIM  RANK_NUM   ;�]���ړx�Ɋ܂܂��]���̎퐔
CALL CALC_RANK(VAR_VALUE, RANK_SCALE, RANK, RANK_NUM)
CALL PRINT_ALPHABET(RANK, RANK_NUM)

;-------------------------------------------------
;�X�e�[�^�X�]���Z�o�֐�
;-------------------------------------------------
;RANK_SCALE�ɂ��ƂÂ���VAR_VALUE�̕]�����s��
;REF�ɂ��RANK/RANK_NUM�Ƃ��ēn���ꂽ�����̐��l�𒼐ڏ���������
;-------------------------------------------------
@CALC_RANK(VAR_VALUE, RANK_SCALE, RANK, RANK_NUM)
#DIM      VAR_VALUE  ;�]���Ώې��l
#DIMS     RANK_SCALE ;�]���Ɏg�p����ړx�̎��
#DIM  REF RANK       ;�]�������N�A�����������قǗD�G
#DIM  REF RANK_NUM   ;�]���ړx�Ɋ܂܂��]���̎퐔
SELECTCASE RANK_SCALE
CASE "MAX_50000"
;�D���x�p
	RANK_NUM = 10
	SELECTCASE VAR_VALUE
	CASE IS >= 50000
		RANK = 0
	CASE IS >= 30000
		RANK = 1
	CASE IS >= 10000
		RANK = 2
	CASE IS >=  5000
		RANK = 3
	CASE IS >=  3000
		RANK = 4
	CASE IS >=  1500
		RANK = 5
	CASE IS >=  1000
		RANK = 6
	CASE IS >=   500
		RANK = 7
	CASE IS >=   100
		RANK = 8
	CASEELSE
		RANK = 9
	ENDSELECT
CASE "MAX_20000"
;�M���x�p
	RANK_NUM = 10
	SELECTCASE VAR_VALUE
	CASE IS >= 20000
		RANK = 0
	CASE IS >= 10000
		RANK = 1
	CASE IS >=  3000
		RANK = 2
	CASE IS >=  1000
		RANK = 3
	CASE IS >=   500
		RANK = 4
	CASE IS >=   150
		RANK = 5
	CASE IS >=   100
		RANK = 6
	CASE IS >=    50
		RANK = 7
	CASE IS >=    10
		RANK = 8
	CASEELSE
		RANK = 9
	ENDSELECT
CASE "MAX_99"
;�Z�p�n�ȊO��ABL
	;�������c�ɕ��ԂƔ��Ɍ��ɂ���������ňӐ}�I�ɃC���f���g���炵�Ă܂�
	RANK_NUM = 10
	SELECTCASE VAR_VALUE
	CASE IS >= 99
			RANK = 0
	CASE IS >= 75
			RANK = 1
	CASE IS >= 50
			RANK = 2
	CASE IS >= 20
			RANK = 3
	CASE IS >= 10
			RANK = 4
	CASE IS >=  5
			RANK = 5
	CASE IS >=  3
			RANK = 6
	CASE IS >=  2
			RANK = 7
	CASE IS >=  1
			RANK = 8
	CASEELSE
			RANK = 9
	ENDSELECT
CASE "MAX_6"
;�Z�\�nABL
	RANK_NUM = 7
	SELECTCASE VAR_VALUE
	CASE IS >= 6
			RANK = 0
	CASE IS >= 5
			RANK = 1
	CASE IS >= 4
			RANK = 2
	CASE IS >= 3
			RANK = 3
	CASE IS >= 2
			RANK = 4
	CASE IS >= 1
			RANK = 5
	CASEELSE
			RANK = 6
	ENDSELECT
CASEELSE
	THROW �s����RANK_SCALE %RANK_SCALE%
ENDSELECT

;-------------------------------------------------
;�����N�]���\���֐�
;-------------------------------------------------
;�����N�]��(�������������قǗD�G)�̓��e���A���t�@�x�b�g�\�L���ăJ���[�\������
;�`�����������Ă��ʂ�PRINT_RANK�łȂ��Ƃ��g���邼
;-------------------------------------------------
@PRINT_ALPHABET(RANK, RANK_NUM)
#DIM RANK
#DIM RANK_NUM
#DIMS CONST STR_RANK10, 10 = "Ex", "SS", " S", " A", " B", " C", " D", " E", " F", " G"
#DIMS CONST STR_RANK7,   7 = "Ex", " S", " A", " B", " C", " D", " E"
{
#DIMS  CONST C_RANK10, 10 =
	"C_P_PURPLE", "C_WHITE", "C_WHITE", "C_PINK", "C_RED",
	"C_ORANGE", "C_YELLOW", "C_GREEN", "C_AQUA", "C_GRAY"
}
#DIMS  CONST C_RANK7,   7 = "C_P_PURPLE", "C_WHITE", "C_PINK", "C_RED", "C_ORANGE", "C_YELLOW", "C_GRAY"
SELECTCASE RANK_NUM
CASE 10
	CALL COLOR_PRINT(STR_RANK10:RANK, C_RANK10:RANK, 2)
CASE  7
	CALL COLOR_PRINT(STR_RANK7:RANK, C_RANK7:RANK, 2)
CASEELSE
	THROW �s����RANK_NUM {RANK_NUM}
ENDSELECT
RESETCOLOR

;-------------------------------------------------
;�F�t��PRINT�֐�
;-------------------------------------------------
;�n����������n�����F��PRINT����RESETCOLOR
;�L��ϐ���DIM���Ă���F���̂݉\�i�ǉ��͗e�Ձj
;-------------------------------------------------
@COLOR_PRINT(ARGS, C_NAME, STR_NUM = 2)
#DIMS C_NAME
#DIM  STR_NUM
SIF !STRLENS(ARGS)
	RETURN
SELECTCASE C_NAME
CASE "C_P_PURPLE"
	SETCOLOR C_P_PURPLE
CASE "C_WHITE"
	SETCOLOR C_WHITE
CASE "C_PINK"
	SETCOLOR C_PINK
CASE "C_RED"
	SETCOLOR C_RED
CASE "C_ORANGE"
	SETCOLOR C_ORANGE
CASE "C_YELLOW"
	SETCOLOR C_YELLOW
CASE "C_GREEN"
	SETCOLOR C_GREEN
CASE "C_AQUA"
	SETCOLOR C_AQUA
CASE "C_GRAY"
	SETCOLOR C_GRAY
CASEELSE
	THROW �s����C_NAME %C_NAME%
ENDSELECT
PRINTFORM %ARGS, STR_NUM%
RESETCOLOR

;-------------------------------------------------
;BASE�J���[�o�[�֐�
;-------------------------------------------------
;�̗͂Ȃǂ̃J���[�o�[
;-------------------------------------------------
@BASE_BAR(C_ID, BASE_NAME, BAR_LENGTH, COLOR_NAME, OP)
#DIM  C_ID
#DIMS BASE_NAME
#DIM  BAR_LENGTH
#DIMS COLOR_NAME
#DIMS OP
#DIM  BASE_ID
BASE_ID = FINDELEMENT(BASENAME, BASE_NAME)
SIF BASE_ID < 0
	THROW ���݂��Ȃ�BASE_NAME %BASE_NAME%
SIF !STRCOUNT(OP, "�u��ޕ\�L�����v")
	PRINTFORM %BASE_NAME, 4%
CALL PRINT_COLORBAR(BASE:C_ID:BASE_ID, MAXBASE:C_ID:BASE_ID, BAR_LENGTH, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET(COLOR_NAME), RESULT:1)
IF !STRCOUNT(OP, "�u�����\�L�����v")
	IF BUFF:C_ID:BASE_ID > 0
		SETCOLOR C_AQUA
	ELSEIF BUFF:C_ID:BASE_ID < 0
		SETCOLOR C_YELLOW
	ENDIF
	PRINTFORM  ({BASE:C_ID:BASE_ID,5}/{MAXBASE:C_ID:BASE_ID,5})
	RESETCOLOR
ENDIF
SIF STRCOUNT(OP, "�u���s�v")
	PRINTFORML

;-------------------------------------------------
;�J���[�X�^���v�֐�
;-------------------------------------------------
;����̋L�������̐F�ŕ��ׂ�
;MARK�̕\���p�����ǂȂ񂩂��̑��ɂ��g����ł��傤
;-------------------------------------------------
@COLOR_STAMP(STAMP_NUM, MAX_NUM, STAMP_STR, STAMP_COLOR)
#DIM  STAMP_NUM   ;���ׂ�X�^���v�̐�
#DIM  MAX_NUM     ;�X�^���v�̍ő吔
#DIMS STAMP_STR   ;�X�^���v�Ɏg�p���镶����
#DIM  STAMP_COLOR ;�X�^���v�̐F
#DIM  STAMP_LENGTH;�X�^���v������̒���
STAMP_LENGTH = STRLENS(STAMP_STR)
SIF !STAMP_LENGTH
	THROW STAMP_STR���w�肳��Ă��܂���
SIF STAMP_COLOR
	SETCOLOR STAMP_COLOR
PRINTFORM %" " * (MAX_NUM - STAMP_NUM) * STAMP_LENGTH%
PRINTFORM %STAMP_STR * STAMP_NUM%
RESETCOLOR

;-------------------------------------------------
;�L�������I�֐�
;-------------------------------------------------
;�L�������X�g���烉���_����1����I�o����
;�߂�l�͓o�^�ԍ��A���s������-1
;-------------------------------------------------
@RAND_CHARASELECT(L_TYPE = "��l���ȊO�̃L�������X�g")
#DIMS L_TYPE                       ;���I�Ώۃ^�C�v
#DIM  L_ID                         ;���X�g�̃N���XID
#DIM  CHARA_LIST, �L�����N�^����� ;�쐬���郊�X�g
#DIM  CHARA_CNT                    ;�L�����J�E���^
CALL MAKE_CHARA_LIST("��l���ȊO�̃L�������X�g", L_ID, CHARA_LIST, CHARA_CNT)
SIF !CHARA_CNT
	RETURN -1
RETURN CHARA_LIST:(RAND:CHARA_CNT)

;----------------------------------------------------------------------------------------------------
;�L�����̓o�ꔻ��
;�Ƃ肠�������Ȃ��͒e���悤�ɂ���
;----------------------------------------------------------------------------------------------------
@CAN_MEET(CHARA)
#FUNCTION
#DIM CHARA
SIF !CHARA
	RETURNF 0
SIF !EXISTCSV(CHARA)
	RETURNF 0
SIF CFLAG:CHARA:�o��
	RETURNF 0
SIF CHARA == FLAG:�Ȃ肫��
	RETURNF 0
RETURNF 1

;----------------------------------------------------------------------------------------------------
;���ݒn�_����ړ��\�ȏꏊ�ֈړ�
;��������ǂ��o�����Ƃ��Ȃ�
;----------------------------------------------------------------------------------------------------
@GETOUT(ARG)
FOR LOCAL,MINROOM(),MAXROOM
	IF CAN_MOVE(CFLAG:ARG:���݈ʒu, LOCAL) & 1
		CFLAG:ARG:���݈ʒu = LOCAL
		BREAK
	ENDIF
NEXT

;----------------------------------------------------------------------------------------------------
;�L�����̃����_���I���֐�
;�蔲�������łł��邾���ȑf�Ȓ��I�֐����Ǝv�����iRAND_CHARASELECT�͂��ƋÂ�߂��j
;�n�����L�����͑I�΂�Ȃ�
;�o�փL��������������Ɩ������[�v�̂����ꂪ����̂���_
;��_�Ƃ͂������S�L�����Ώۂ̒��I�ł�
;�ɒ[�ȃv���C���O�����Ȃ���Ζ��ɂ͂Ȃ�Ȃ��A�͂�
;----------------------------------------------------------------------------------------------------
@RAND_PERSON(CHARA)
#FUNCTION
#DIM CHARA
#DIM HIT_CHARA
DO
	HIT_CHARA = RAND(1, �L�����N�^�����)
	SIF !CAN_MEET(HIT_CHARA) || HIT_CHARA == CHARA
		CONTINUE
	BREAK
LOOP 1
RETURNF HIT_CHARA

;----------------------------------------------------------------------------------------------------
;����ʒu�擾�֐�
;----------------------------------------------------------------------------------------------------
@GET_CHARAHOME(CHARA)
#FUNCTION
#DIM CHARA
;MASTER�����ʒu���܂��Ă�
SIF CHARA == MASTER
	RETURNF CFLAG:CHARA:�����ʒu
;�Z�ݍ��ރt���O�����Ă�Ȃ猈�܂��Ă�
SIF CHARA == FLAG:�Z�ݍ��݃L����
	RETURNF CFLAG:CHARA:�����ʒu
;�Z���s��̃L�����͐��
SIF GROUPMATCH(CSVCFLAG(CHARA, GETNUM(CFLAG, "�����ʒu")), 0, 99)
	RETURNF -100
RETURNF CSVCFLAG(CHARA, GETNUM(CFLAG, "�����ʒu"))

;----------------------------------------------------------------------------------------------------
;�ꏊ���擾�֐�
;MAIN_MAP����ŋ������ς���Ă��܂��Čl�I�ɋC��������
;���_�FGET_MAP_REPLACEMENT���g�p�ς݂�PLACE_ID���󂯎��ƌ듮����U��}�b�v�̏ꏊID�͎󂯎��܂���
;----------------------------------------------------------------------------------------------------
@GET_PLACENAME(PLACE_ID)
#FUNCTIONS
#DIM PLACE_ID
SIF PLACE_ID == SUKIMA()
	RETURNF "�X�L�}���"
SIF PLACE_ID == OMANEKIBEYA()
	RETURNF OMANEKI_PLACE()
IF GET_MAPID(PLACE_ID) == MAIN_MAP
	RETURNF NAME_FROM_PLACE(PLACE_ID)
ELSE
	RETURNF STR:(6000 + GET_MAP_REPLACEMENT(PLACE_ID) / 10)
ENDIF

;----------------------------------------------------------------------------------------------------
;�����ʒu�̒n�於�擾�֐�
;���ݒ�Ȃ�Ƃ肠����"�s��"��
;----------------------------------------------------------------------------------------------------
@AREANAME_CHARA_HOME(C_ID)
#FUNCTIONS
#LOCALSIZE 1
#LOCALSSIZE 1
#DIM C_ID
#DIM HOME_ID
HOME_ID = GET_CHARAHOME(C_ID)
SIF HOME_ID <= 0
	RETURNF "�s��"
RETURNF MAP_AREANAME(HOME_ID)

;----------------------------------------------------------------------------------------------------
;���݈ʒu�̒n�於�擾�֐�
;----------------------------------------------------------------------------------------------------
@AREANAME_CHARA_NOW(C_ID)
#FUNCTIONS
#LOCALSIZE 1
#LOCALSSIZE 1
#DIM C_ID
RETURNF MAP_AREANAME(CFLAG:C_ID:���݈ʒu)

;----------------------------------------------------------------------------------------------------
;�z�񒊑IF�֐�
;----------------------------------------------------------------------------------------------------
@ARRAY_HIT(HIT_LIST, LIST_SIZE)
#FUNCTION
#DIM REF HIT_LIST ;�m�����z���X�g
#DIM     LIST_SIZE;�m�����z���X�g�̃T�C�Y
#DIM     CHK_ID   ;����ΏۂƂȂ�v�f
#DIM     HIT_RAND ;���I��������
LOCAL = MAX(SUMARRAY(HIT_LIST, 0, LIST_SIZE),1)
HIT_RAND = RAND(0, LOCAL)
;DEBUGPRINTFORML LIST_SIZE��{LIST_SIZE}�@HIT_RAND{HIT_RAND}
FOR CHK_ID, 0, LIST_SIZE
	SIF HIT_RAND < SUMARRAY(HIT_LIST, 0, CHK_ID + 1)
		RETURNF CHK_ID
NEXT
;THROW ���I���s
;�J�E���^�[���I���s�ɂ��THROW�������������Ă�̂Ű1��Ԃ����Ƃɂ���
RETURNF -1

;----------------------------------------------------------------------------------------------------
;�z��RAND���֐�
;�d�������Ȃ��Ȃ̂œK�XFISHER_YATES_SHAFFLE�Ǝg�������ĉ�����
;----------------------------------------------------------------------------------------------------
@ARRAY_RAND(RAND_ARRAY, ARRAY_SIZE, RAND_MIN, RAND_MAX)
#DIM REF RAND_ARRAY; �Ώ۔z��
#DIM     ARRAY_SIZE; �z��T�C�Y�i1�ȏ�j
#DIM     RAND_MIN  ; RAND�̉����i0�ȏ�j
#DIM     RAND_MAX  ; RAND�̏��-1�A���̐����̂͒��I�ɑI�΂�Ȃ��iRAND_MIN+1�ȏ�j
#DIM     ID_ARRAY  ; ���[�v�p
FOR ID_ARRAY, 0, ARRAY_SIZE
	RAND_ARRAY:ID_ARRAY = RAND(RAND_MIN, RAND_MAX)
NEXT

;----------------------------------------------------------------------------------------------------
;FISHER_YATES_SHAFFLE�iF�֐��Łj
;�\�[�X��wikipedia
;CALLF FUNC_FISHER_YATES_SHAFFLE(LOCAL, 10)
;�����LOCAL:0�`9��0�`9���d���Ȃ��ő�������
;----------------------------------------------------------------------------------------------------
@FUNC_FISHER_YATES_SHAFFLE(ARRAY, ARRAY_SIZE)
#FUNCTION
#DIM REF ARRAY   ;�Ώ۔z��
#DIM ARRAY_SIZE  ;�z��̒����i2�ȏ�̐��l�ɂ��ĉ������j
#DIM ELE_SHAFFLE ;�V���b�t���Ώۗv�f
VARSET ARRAY, -1
ARRAY:0 = 0
;�v�f0�ɑ΂��遫�̏����͕K��0�ɂȂ�񂾂���1�ȍ~�ł���
FOR LOCAL:0, 1, ARRAY_SIZE
	ELE_SHAFFLE = RAND(0, LOCAL:0 + 1)
	;�����ς��Ȃ��悤�Ȃ�if�݂�����f�ʂ��̕������������Ȃ��Ȃ����肹�񂩁H
	;SIF ELE_SHAFFLE != LOCAL:0
	ARRAY:(LOCAL:0) = ARRAY:ELE_SHAFFLE
	ARRAY:ELE_SHAFFLE = LOCAL:0
NEXT

;----------------------------------------------------------------------------------------------------
;�����s�����\���֐�
;���̒��ȈՃA�j���[�V����
;1�b��1�s�ǋL���Ă�����֐�����
;�n���ꂽ�z��̗v�f�����Ԃɕ\������
;�{�i�I�ɓ����������Ȃ�ςɂ߁[�����g��
;�g�p�ӏ��̓i�Y�[�����̃_�E�W���O�R�}���h
;----------------------------------------------------------------------------------------------------
@PRINT_GROUP(COMMENT, NUM_COMMENT, TIME_REDRAW = 1000)
#DIMS REF COMMENT         ;�\�����镶����̔z��
#DIM  NUM_COMMENT         ;�z��̗v�f��
#DIM  PREV_REDRAW         ;�ꎞ�ޔ�p
#DIM  TIME_REDRAW         ;�s�ǉ��̊Ԋu�A�W����1�b
#DIM  DYNAMIC NOW_COMMENT ;�\���B������p
PREV_REDRAW = CURRENTREDRAW()
REDRAW 0
FOR LOCAL:0, 0, NUM_COMMENT
	FOR LOCAL:1, 0, NUM_COMMENT
		IF LOCAL:1 <= NOW_COMMENT
			PRINTFORML %COMMENT:(LOCAL:1)%
		ELSE
			PRINTFORML
		ENDIF
	NEXT
	TWAIT TIME_REDRAW, 0
	NOW_COMMENT ++
	SIF LOCAL:0 < NUM_COMMENT -1
		CLEARLINE NUM_COMMENT
NEXT
REDRAW PREV_REDRAW
WAIT

;----------------------------------------------------------------------------------------------------
;ARG(DAY)��N�����ɕϊ�����֐�
;----------------------------------------------------------------------------------------------------
@DAY_TO_DATE(ARG)
#FUNCTION
VARSET LOCAL
;�~�̌�31���͗�O
SIF ARG % 124 == 0
	LOCAL:5 = 1
;�N��
LOCAL:1 = ARG / 124
SIF !LOCAL:5
	LOCAL:1 += 1
;��
IF LOCAL:5
	LOCAL:2 = 4
ELSE
	LOCAL:2 = ARG % 124 / 31 + 1
ENDIF
;��
IF LOCAL:5 || ARG % 124 % 31 == 0
	LOCAL:3 = 31
ELSE
	LOCAL:3 = ARG % 124 % 31
ENDIF
LOCAL = LOCAL:1 * 1000 + LOCAL:2 * 100 + LOCAL:3
RETURNF LOCAL

;----------------------------------------------------------------------------------------------------
;ARG(�N����)��DAY�ɕϊ�����֐�
;----------------------------------------------------------------------------------------------------
@DATE_TO_DAY(ARG)
#FUNCTION
VARSET LOCAL
LOCAL += (ARG / 1000 - 1) * 124
LOCAL += (ARG % 1000 / 100 - 1) * 31
LOCAL += ARG % 1000 % 100
RETURNF LOCAL

;----------------------------------------------------------------------------------------------------
;ARG(DAY)��N�����i�j���j�ŕ\������֐�
;ARG���N�����ł���Ȃ�ARG:1��^�ɂ��邱��
;----------------------------------------------------------------------------------------------------
@PRINT_DATE(ARG, ARG:1)
;ARG��DAY�Ɣ���
IF !ARG:1
	LOCAL:1 = DAY_TO_DATE(ARG)
	LOCAL:2 = ARG
;ARG��N�����Ɣ���
ELSE
	LOCAL:1 = ARG
	LOCAL:2 = DATE_TO_DAY(ARG)
ENDIF
LOCAL:3 = LOCAL:1 % 1000 / 100
PRINTFORM {LOCAL:1 / 1000}�N�� %GET_MONTH(LOCAL:3)% {LOCAL:1 % 1000 % 100}���i%GET_DAY(LOCAL:2)%�j

@PRINT_DATE_F(ARG)
#FUNCTIONS
LOCAL = DAY_TO_DATE(ARG)
LOCAL:1 = LOCAL / 1000
LOCAL:2 = LOCAL % 1000 / 100
LOCAL:3 = LOCAL % 1000 % 100
LOCALS = {LOCAL:1}�N�� %GET_MONTH(LOCAL:2)%��{LOCAL:3}��
RETURNF LOCALS

;----------------------------------------------------------------------------------------------------
;����������J�E���gF�֐�
;----------------------------------------------------------------------------------------------------
;TARGET_STR�Ɋ܂܂�镡���̕�����̐�����������
;TARGET_STR�AKEY_STR�Ƃ���"/"���d�؂�Ƃ��ĕ����̒P����J�E���g����
;TARGET_STR�AKEY_STR�ň�x�ɓn���P��̎�ނ͂��ꂼ��100��ޖ����A��Q��1000�����ɂ��邱��
;
;�����j
;TARGET_STR�F"������/������/������/����/�˂�/�˂�/"
;��P�j
;�@KEY_STR�F"������/�˂�/"
;�@"������"��3�A"�˂�"��2�ō��v�l��5��Ԃ�
;��Q�j
;�@KEY_STR�F"����/�˂�/"
;�@"����"��1�A"�˂�"��2�ō��v�l��3��Ԃ�
;��R�j
;�@KEY_STR�F"������/������/"
;�@"������"��3�A�̏�����2�񕪂����6��Ԃ�
;----------------------------------------------------------------------------------------------------
@STR_MULTI_COUNT(TARGET_STR, KEY_STR)
#FUNCTION
#DIMS TARGET_STR             ;�����Ώە�����
#DIMS KEY_STR                ;������������Q�A��Q�̎�ނ̏����100���
#DIMS DYNAMIC KEY_LIST, 100  ;������̒P�ꃊ�X�g
#DIM  DYNAMIC KEY_CNT,  100  ;�e�P��̏o����
#DIM  DYNAMIC KEY_NUM        ;�P��̑���
#DIM          KEY_ID         ;���[�v�����p
#DIM  DYNAMIC STR_CNT        ;�J�E���g��
#DIMS DYNAMIC TEMP_STR, 1000 ;SPLIT�p�ꎟ�z��
#DIM  DYNAMIC TEMP_NUM       ;�ꎟ�z��Ŏg�p�����v�f��
#DIM          TEMP_RESULT    ;RESULT�ޔ�
;�O�̂���
TARGET_STR '= REPLACE(TARGET_STR, "\/+", "/")
CALLF CNT_SPLIT(KEY_STR, KEY_LIST, KEY_CNT, KEY_NUM)

TEMP_RESULT = RESULT
SPLIT TARGET_STR, "/", TEMP_STR
TEMP_NUM = RESULT
FOR KEY_ID, 0, KEY_NUM
	STR_CNT += MATCH(TEMP_STR, KEY_LIST:KEY_ID, 0, TEMP_NUM) * KEY_CNT:KEY_ID
NEXT
RESULT = TEMP_RESULT
RETURNF STR_CNT

;----------------------------------------------------------------------------------------------------
;�J�E���g�@�\��SPLIT�֐�
;----------------------------------------------------------------------------------------------------
;�ERESULT�����������AF�֐����ł��g�p�\
;�ECALLF�Ŏg�p�̂��ƁAREF���g�p���ĕϐ��𒼐ڏ���������
;�E�����K�{�A�P�ꃊ�X�g/�o�������X�g�̔z�����ɒ��ӁI
;�E��؂蕶����"/"�ŌŒ�
;�ESTR�p�̔z��ϐ��ƕʂɁA�e�P��̏o���񐔃��X�g��ǉ�
;�E�߂�l�P�jSTR_LIST�A"/"�ŕ�������o�͂����P�ꃊ�X�g
;�E�߂�l�Q�jCNT_LIST�A�e�P��̏o���񐔃��X�g
;�E�߂�l�R�jSTR_NUM�A�P��̎�ނ̑���
;�ETARGET_STR�ň�x�ɓn���P��̎�ނ�100��ޖ����A��Q��1000�����ɂ��邱��
;�����)
;TARGET_STR�F"�얲/�얲/�얲/�얲/������/������/���c/"
;�@STR_LIST:0 == "�얲"
;�@STR_LIST:1 == "������"
;�@STR_LIST:2 == "���c"
;�@CNT_LIST:0 == 4   ;"�얲"�̏o���񐔂�4��
;�@CNT_LIST:1 == 2   ;"������"�̏o���񐔂�2��
;�@CNT_LIST:2 == 1   ;"���c"�̏o���񐔂�1��
;�@STR_NUM    == 3   ;"�얲"�A"������"�A"���c"�ō��v3���
;----------------------------------------------------------------------------------------------------
@CNT_SPLIT(TARGET_STR, STR_LIST, CNT_LIST, STR_NUM)
#FUNCTION
#DIMS         TARGET_STR     ;�����Ώ�STR
#DIMS         NEW_STR        ;�X�V�p�ꎞSTR
#DIMS REF     STR_LIST       ;�P�ꃊ�X�g
#DIM  REF     CNT_LIST       ;�e�P��̏o�������X�g
#DIM  REF     STR_NUM        ;�P��̎�ނ̑���
#DIMS DYNAMIC TEMP_STR, 1000 ;SPLIT�p�ꎟ�z��
#DIM  DYNAMIC TEMP_NUM       ;�ꎟ�z��Ŏg�p�����v�f��
#DIM          TEMP_RESULT    ;RESULT�ޔ�
#DIM          TEMP_ID        ;���[�v�p
VARSET STR_LIST
VARSET CNT_LIST
STR_NUM = 0

TEMP_RESULT = RESULT
SPLIT TARGET_STR, "/", TEMP_STR
TEMP_NUM = RESULT
FOR TEMP_ID, 0, TEMP_NUM
	;����������
	SIF !STRLENS(TEMP_STR:TEMP_ID)
		CONTINUE
	;�d������
	SIF FINDELEMENT(STR_LIST, TEMP_STR:TEMP_ID, 0, STR_NUM, 1) != -1
		CONTINUE
	STR_LIST:STR_NUM '= TEMP_STR:TEMP_ID
	CNT_LIST:STR_NUM  = MATCH(TEMP_STR, TEMP_STR:TEMP_ID)
	STR_NUM ++
NEXT
RESULT = TEMP_RESULT

;----------------------------------------------------------------------------------------------------
;���s���̐l����Ԃ��֐�
;----------------------------------------------------------------------------------------------------
@���s�l��()
#FUNCTION
VARSET LOCAL
FOR LOCAL, 1, CHARANUM
	SIF CFLAG:LOCAL:���s
		LOCAL:1 ++
NEXT
RETURNF LOCAL:1